;
; The Noid v3.2
;
; author: Hylke van der Schaaf
; may be made public in locked form
;
;drives around the arena following the walls. unless it
;sees a robot in front, it will then avoid it, and continiu
;it's squares when safe... best with a time slice of 10 or greater,
;it works with the default, but not very good...
;
;history:
;	v1	: very simple driving system, I started on the aiming
;	v2	: implemented the square driving system
;	v3.0	: included the robot avoidance system, and improved the enemy tracking
;	V3.1	: Improved the position tracking & response in the steering system
;	V3.2	: Inproved the robot steering system to avoid moving straith away from enemy's
;	V3.3	: fixed a bug in the tracking system
;	V4	: Added a second firing type for when the first one keeps missing

; THENOID4 Locked on 04/16/97
;
; You can put comments before the #LOCK directive.
;
#LOCK UI]MVLLW^O\SWPFUT[ERN`PM`WWADR\OOESHI
7LYJ5XHWSFP
7LYJ5GDUV
7LYJ5OY@MAH
7LYJ5SHYO
7LYJ5RHYO
7LYJ5H^DUK_
7LYJ5[YPUK_
7LYJ5M_OMK
7LYJ5OBEI
7LYJ5GNPI
7LYJ5YBQUZ
7LYJ5^[
7LYJ5ODAS
7EOK5J]YTJ;F^J%Z\S@1,
YGJ,YNMB=?-"
YGJ,GBL^I.#&&
YGJ,@[+'(>
YGJ,QD\X=6/"
[XS,$8+&=
[XS,$<+/=
YGJ,TS+'=
]FH,&+
[XS,$8+&=
YGJ,QY]FR];'&/
]XS,&+HCOF^V6
YGJ,EYM^XJ;QC]MQW
YGJ,S_RFX.-"
^EL,$+
.<<
]XS,"+O_NZ;
YGJ,YDH]=?;
WEL,QBXB=<+"&/
^ON, +
WEL,QBXB=8+"6
^ON,"+
WEL,QBXB=:+"6
^ON,$:+
YGJ,FHJXQ];#6
[XS,$<+.=
]XS,-+IN=
ULX,WS+TE.
ULX,WS+TE.
[XS,$9+TE.
^EL,S_RFX.
.9-
YGJ,FHJXQ];#6
[XS,$<+"=
]XS,-+IN=
ULX,WS+TE.
[XS,$9+TE.
^EL,S_RFX.
.?
YGJ,FHJXQ];#6
[XS,$<+$=
]XS,-+IN=
[XS,$9+TE.
^EL,S_RFX.
.>,,
]XS,'+JN=
WEL,TS+'.>;
^I<:5
[XS,$>+
^EL,#
.>-,
]XS,'+JN=
WEL,TS+#=
^I<:5
[XS,$>+;).
[XS,$>+"=
[XS,$>+;..
[XS,$>+%=
[XS,$>+;,.
[XS,$>+'=
[XS,$>+&=
^EL,#
.=
YGJ,YDH]=>;
WEL,FHJXQ];"6
^M<45
YGJ,FHJXQ];"6
[XS,$9+'(.
.0<
[XS,$<+/=
[XS,$9+;$.
.>
FMH
.9.
]XS,&+HCOF^V6
WEL,YDH]=>;
^MM,,+
]XS,!+XU\@SY6
WEL,FHJXUE; #/
^DO,$8+
WEL,FHJXUE; %?%
^ON,$8+
WEL,FHJXUE;#&<%
^DO,,+
WEL,FHJXUE;##<%
^DO,$8+
^EL,,+
.9/
ULX,EYM^XJ;!$/
YGJ,QY]FR];&//
.1
]FH,'+
YGJ,MHDD=KC2
YGJ,LHDD=HC2
^EL,QY]FR]
.<%
YGJ,QY]FR];'&
^EL, >
.=,,
WEL,MHDD=B^TB
^ON, =
YGJ,QY]FR];'%
YGJ,EYM^XJ;"
^EL, 8
.=*
WEL,MHDD=\RU^[
^DO, <
YGJ,QY]FR];''
YGJ,EYM^XJ;#$7
^EL, :
.=+
WEL,LHDD=[K
^ON, 3
YGJ,QY]FR];'"
YGJ,EYM^XJ;$"
^EL, ?
.=$
WEL,LHDD=JTEX
^DO, >
YGJ,QY]FR];'$
YGJ,EYM^XJ;#/=
^EL, 9
.=-,
WEL,MHDD=\RU^[
^DO, >
YGJ,QY]FR];'$/
YGJ,EYM^XJ;#$7%
^EL, 9
.=.,
WEL,LHDD=JTEX
^DO, >
YGJ,QY]FR];'%/
YGJ,EYM^XJ;#/=%
^EL, 8
.=/,
WEL,MHDD=B^TB
^ON, >
YGJ,QY]FR];'"/
YGJ,EYM^XJ;"6
^EL, ?
.=(,
WEL,LHDD=[K
^ON, >
YGJ,QY]FR];''/
YGJ,EYM^XJ;$"/
^EL, :
.=)
YGJ,TS+FOHSWR
G]^,TS+UH\SWR
[XS,$?+WE.
[XS,$:+'->
FMH
.9<
.:<
PG<8
.9,
S[^,!+
XGS\5:;
S[^,$9+
]FH,$:+
WEL,SS+#->;
^ON,$?+
^EL,'+
.9(
YGJ,S_RFX.-#6
^EL,'
7MRH