DROID WARS((f(******************** DROID-WARS Your Sinclair Issue #1 January 1986 ******************** |Modified by: Jim Grimwood Dec '85 for High-Speed Operation and Bug Eradication h()=(*100d)+1 3p$(pd)=(" "p<100d)+(" "p<10 )+p  8001A Kevinometer w=0:j=115:w=w+D(r,j)*V(j,5)+V(j,4)*(D(r,j)0):j:18,13 ;p$(w):18,29;p$(M(D(r,8),1)): Scrolling Window! (a$=b$:220:220:220 ܅z=24:l$(z-1)=l$(z):z:l$(4)=17+r+a$:z=14:9 ;17+z,0;l$(z);:z: Move Droid & Display en=0 Hh()+M(D(r,8),3)(p-op)spd=(p-op) Jmv=(p-op)*dir:mv=0dir=+1mv=1-2*(>.5) 9p=p+spd*mv:p=p-p*(p<0):p>255p=255 ,Xen=en-1:w=w-1:np=(p/8):np=olonp=np+(np31)-(np=31) . np=olp 6olpolo16,olp;" "; @&16,np;r;144:olp=np: YScan Arena ^=ran=999:D(r,7)ƨh()+30>damran=30 c.D(r,6)ƨh()+35#>damran=502 h/D(r,5)ƨh()+502>damran=100d r'ran=999a$="Blind!":220 |;en=en-1:w=w-1:a=(p-op):a>rana=999  ran=a: LDraw Arena V0:4:4::11 ;"DROID WARS"'':a=5:i=175169-2:a,i:87W-23677}\,0:168,i:87W-a,0:a=a+5:i `1;" ";n$(f);" READY"'0;" Energy"''" Damage"'''2;" ";n$(s);" READY"'0;" Energy"''" Damage";14,12 ;"SCANNER" e.0,161:255,0:0,-45-:-255,0:0,45-:0,112p:255,0:0,-45-:-255,0:0,45-:0,59;:95_,0:152,59;:103g,0:0,37%:255,0 j210:mnu2010 Init Robots i=2227:D(f,i)=0:D(s,i)=0:i:D(f,21)=90Z:D(s,21)=150:D(s,23)=1:D(f,23)=1:ef=D(f,11 ):es=D(s,11 ) j=02:1:8,j+138:D(f,11 ),0:2:8,j+91[:D(s,11 ),0:j ΂olf=(D(f,21)/8):ols=(D(s,21)/8):16,olf;1;144;16,ols;2;144; 210:a$=b$:220:a$=" MORITURI TE SALUTANT":220:a$=b$:220:a$=" ENTER to begin, M for mercy":220 *i=110 :r=s:>.5r=f i #a$=:a$=""r=f:>.5r=s &a$="M"a$="m"210:2010 a$13 1260  210 Swap Over & Unpack Or=sr=f:or=138:oo=91[:o=s:en=ef:olp=olf:olo=ols:1340< #>r=s:or=91[:oo=138:o=f:en=es:olp=ols:olo=olf <7mod=D(r,23):p=D(r,21):dam=D(r,24) ABop=D(o,21):w=D(r,20):ar=D(r,10 )/6:r: F** 1st Decisions PRen=0a$="Exhausted!":220:mod=3:D(r,26)=D(r,15) ZrD(r,25)>D(r,13 )mod<3mod=3:D(r,26)=D(r,15):a$="Breaking off!":220 deD(r,24)>D(r,22)mod=1h()D(r,12 )mod=2:a$="Provoked!":220 nC2+(r=s)*6,13 ;M$(mod):1300+100d*mod sHunt Mode x?dir=-1:240:350^:ran=9991910v ]a$="Enemy sighted!":ranD(r,14)mod=2:D(r,25)=0:a$="Banzaiiii!" 220:1910v Attack Mode 3350^:ran=999mod=1:1910v /wn=0:D(r,4)ƨh()>damwn=4 #D(r,3)ƨh()>damwn=3 #D(r,2)ƨh()>damwn=2 #D(r,1)ƨh()>damwn=1 :wn=0a$="weapons failure!":220:1910v Kran>W(wn,1)a$="Out of range ":220:mod=1:1910v  a$="Firing "+W$(wn):220  Ien=en-1:w=w-V(wn,5)-1:D(r,wn)=D(r,wn)-W(wn,5) Bacc=W(wn,2):D(r,5)=1ƨh()>damacc=7000X E16,olp;1;144;16,olp;0;144 =h()>acc/(ran+1)a$="Missed!":220:1910v &16,olo;1;1;" "; "2pd=W(wn,3)+*(W(wn,4)-W(wn,3)) ,6esr=D(o,9 )*(100d-D(o,24))/100d 11pd=5+pd*(100d-esr)/100d:pd=pd 2i=1pd*2:254,170:254,85U:i:4:16,olo;o;144;:a$=pd+" unit hit!":220 3Qz=D(o,24):D(o,25)=D(o,25)+pd:D(o,24)=D(o,24)+pd 6zD(o,24)100d210:a$=n$(o)+" Destroyed!":220:a$=n$(r)+" Is The Victor!":220:2010 8Ij=oo-17oo-15:o;z+8,j:o;pd,0:j:1910v ;Chicken Mode @`dir=+1:240:D(r,26)=0mod=1:D(r,25)=0:1910v JKD(r,26)=D(r,26)-1:dam=dam-ar:dam<0dam=0 OSj=or-17or-15:1;dam+8,j:1;ar+5,0:j T<dam=0w+ara$=:a$=""2110> H#a$"a"a$"z"a$=(a$-32 ) Ra$="B"r=f:3010 \a$="R"r=s:3010 f!a$="F"mnu=0:1110V a$"Q"2110> )6:0:4::9999' ** Create/Edit Droid r0:6:6::5;"DROID DESIGN WORKSHOP"''"Droid: ";n$(r)''r;"WEAPON SYSTEMS GENERAL"'' ́0;"Plasma Bolt Motive type"'"Laser Cannon Shielding"'"Shock Bombs Autorepair"'"Energy Lance Fuel"' ְr;'"VISION SYSTEMS PROGRAMMING"''0;"Range Tracker Aggro"'"Local Radar Pain"'"Thermic Eyes Attack"'18;"Break-Off"''"Weight Maximum" C:"Press just Enter for next item. Enter Q when you've finished." bJi=115:V(i,2),V(i,1);p$(D(r,i)):i:150 l i=0 vi>03250 j2,7;1;n$(r):a$:a$="q"a$="Q"D(r,20)=w:2,7;n$(r):1010 a$""n$(r)=a$ $2,7;n$(r):3290 lin=V(i,2):pos=V(i,1):len=V(i,3):lin,pos;p$(D(r,i));lin,pos+3-len;1;1;" "(len):a$:a$=""3270 ,a$="q"a$="Q"D(r,20)=w:1010 `a=0:j=1̱a$:a=a$(j)<"0"a$(j)>"9"a:j:a=1.5,12 :3250 La=a$:a>V(i,3)(i=8a=0).5,12 :3250 t=D(r,i):D(r,i)=a:150:w>M(D(r,8),1)D(r,i)=t:19,0;1;"OVERWEIGHT":.5,12 :j=1502:j:150:19,0;b$(10 ):3250 lin,pos;p$(D(r,i)) $i=i+1:i>15i=0 3190v @Init it bit [?] A7:7:0: B"YS Droid Wars"''"Please Wait!";19,10 ;"1985 Strange Software";5;4;1;20,10 ;"Souped-Up by:";31;21,10 ;"Slippery Jim Boggitt " J.r=1:f=1:s=2:mnu=1 Ob$(32 ) Q'p$="? Blue Red Fight Quit ?" T$l$(4,34"):Scroller Y3i=14:l$(i)=16+0+b$:i ^Mode Display hYM$(3,10 ):M$(1)="HUNT":M$(2)="ATTACK":M$(3)="BREAK-OFF" mW$(4,15):W$(1)="Plasma Bolt":W$(2)="Laser Canon":W$(3)="Shock Bomb":W$(4)="Energy Lance" Droid Array +D(2,30):n$(2,11 ) Yi=12:D(i,8)=1:D(i,20)=30:n$(i)="- no name -":i Improved Droid UDG oi=07:a:"A"+i,a:i:60<,36$,152,126~,25,60<,36$,102f MPD Visit HM(4,3):i=14:j=13:M(i,j):j:i n180,12 ,30,220,8,502,200,8,502,240,6,65A Designer Table JV(15,5):i=115:j=15:V(i,j):j:i +13 ,6,5,5,502 &+13 ,7,557,5,5 0+13 ,8,557,3,5 :+13 ,9 ,1,30,0 D,13 ,13 ,1,20,0 N,13 ,14,1,10 ,0 X+13 ,15,1,5,0 b*29,6,4,0,5 l,29,7,100d,0,1 v,29,8,100d,0,1 ,29,9 ,255,0,1 -29,13 ,100d,0,0 -29,14,100d,0,0 -29,15,100d,0,0 -29,16,100d,0,0 Weapons Table HW(4,5):i=14:j=15:W(i,j):j:i /60<,2000,40(,502,1 /40(,1800,10 ,20,1 /25,1600@,15,30,1 !-2,7000X,5,15,0 !4 1100L d