� >!RunImage
� Cavern Duel Release 1
'� Version 1.22 (4th December, 1997)
(!� Released 5th December, 1997
2� 
<X� Copyright held by authors. Distribute freely, but do not alter any internal files!
F�
P3� Written by Graeme and Stephen Scott � 1994-97
Z+� See documentation for contact details
d�
n(� � �12:�:�" at line ";�:� �:�tidy:�
x-� SYS "OS_Byte",229,1: REM Disable Escape
��arrays
�
�initgrab
��initfader
�:
�� 128+12
�� 12
��
�+�palette("CavenDuel:Palettes.TitlePal")
�
�intro
�	�menu
�:
��
��dronening


�mouse

	� end

	�tidy

"�

,:

6
� �arrays

@� block% 64,scale% 15

J� fname$(25)

T� screen$(7,3,16,16)

^� YOUX(2),YOUY(2)

h
� move(2)

r� dire$(2)

|
� anim(2)

�� screenx(2),screeny(2)

�5� energy(2),shield(2),weapon$(2),reduce_shield(2)

�#� fire1range(16),fire2range(16)

�� activbul(16),activdos(16)

�� firefr1(16),firefr2(16)

�B� fire1x(16),fire1y(16),fire1scx(16),fire1scy(16),fire1dir(16)

�B� fire2x(16),fire2y(16),fire2scx(16),fire2scy(16),fire2dir(16)

�9� teletoscx(20),teletoscy(20),teletox(20),teletoy(20)

�%� tscx(20),tscy(20),tx(20),ty(20)

�� obj_remem$(200)

�5� obj_scx(200),obj_scy(200),obj_x(200),obj_y(200)

�foodval=50

�weapval=20

televal=5
shldval=10
numofobjs=0
&
dodrone=0
0�
:
D� �initgrab
N g$="g1":gg$="g2":size%=43000
X � grab% size%,grabtwo% size%
b"grab%!0=size%:grabtwo%!0=size%
lgrab%!8=16:grabtwo%!8=16
vș 46,&109,grab%
�ș 46,&109,grabtwo%
�s1%=1:s2%=2:s3%=1:s4%=2
�width%=16:width2%=16
�height%=16:height2%=16
��
�:
�� �initfader
�� 16 Colour mode fader.
�� by Matthew Edgar
�0� (c) The Micro User September/November 1990
�#ptr=1:done=3:sixteen=4:colour=5
� � code% 256:� pass=0 � 2 � 2
�P%=code%:[OPT pass
	.fade
STMFD R13!,{R0-R5,R14}
MOV done,#16
 MOV sixteen,#16
*	.wait
4MOV R0,#19
>SWI "OS_Byte" \ wait...
H SWI "OS_Byte" \ ...and again
RMOV colour,#15
\ADR ptr,data
f.nextcolour
pSTRB colour,[ptr]
zMOV R0,#11
�#SWI "OS_Word"    \ read palette
�.red
�$LDRB R0,[ptr,#2] \ current value
�SUBS R0,R0,sixteen
�%MOVMI R0,#0      \ find new value
�&STRB R0,[ptr,#2] \ store new value
�
.green
�$LDRB R0,[ptr,#3] \ current value
�SUBS R0,R0,sixteen
�%MOVMI R0,#0      \ find new value
�&STRB R0,[ptr,#3] \ store new value
�	.blue
�$LDRB R0,[ptr,#4] \ current value
SUBS R0,R0,sixteen
%MOVMI R0,#0      \ find new value
&STRB R0,[ptr,#4] \ store new value
$9STRB sixteen,[ptr,#1] \ define colour from RGB values
.MOV R0,#12
8!SWI "OS_Word" \ write palette
BSUBS colour,colour,#1
LBGE nextcolour
V
BL border
`SUBS done,done,#1
jBNE wait
t!LDMFD R13!,{R0-R5,PC}:.border
~%STMFD R13!,{R0-R3,R14}:MOV R0,ptr
�MOV R1,#24:STRB R1,[R0,#1]
�"SWI "OS_ReadPalette":MOV R1,#2
�.loop:MOV R2,R2,ROR #8
�#� R3,R2,#&FF:SUBS R3,R3,sixteen
�MOVMI R3,#0:STRB R3,[R0,R1]
�#ADD R1,R1,#1:CMP R1,#5:BNE loop
�MOV ptr,R0:MOV R0,#12
�SWI "OS_Word"
�LDMFD R13!,{R0-R3,PC}
�	.data
�EQUD 0:EQUD 0
�]:�
�

:
� �intro
� 6th-7th August, 1994
(skip%=�
2=ș "OS_File",5,"CavenDuel:Graphics.IntroSprs" � ,,,,room%
<� sprites% room%+32
F!sprites%=room%+32
Psprites%!4=0
Zsprites%!8=16
dsprites%!12=16
n6ș 46,&10A,sprites%,"CavenDuel:Graphics.IntroSprs"
xș "Hourglass_Off"
�ȗ �
�%ș 46,&122,sprites%,"title",0,0,0
��135:�11:�
�P� �7,30)"Full Version 1.22 (4th December, 1997) Released 5th December, 1997"
�/�loadsprites("CavenDuel:Graphics.GameSprs")
��loadscreens("<Game$Path>")
�Ƞ 8:� fade:�clearbanks
��
�:
�� �wait(T)
�� x%,y%,b%
�M=�
�T%=�
� ȗ x%,y%,b%
� b%<>0skip%=�
� �>T%+T �skip%
"�
,:
6/� �palette(pal$):ș "XOS_CLI","Run "+pal$:�
@:
J� �loadscreens(filename$)
T1numofobjs=0:x=0:y=15:scrx=0:scry=0:telenum%=0
^channel=� filename$:a$=""
ha$=�(�#channel)
r�
|y=15
��:� dodrone=1 � �dronening
�a$=�(�#channel)
�Ȏ a$ �
�� "A":a$="12"
�� "B":a$="11"
�� "C":a$="10"
�� "D":a$="13"
�� "E":a$="14"
�� "F":a$="15"
�� "G":a$="16"
�� "H":a$="19"
�� "P":screenx(1)=scrx:screeny(1)=scry:YOUX(1)=x:YOUY(1)=y:remem1sx=screenx(1):remem1sy=screeny(1):remem1x=YOUX(1):remem1y=YOUY(1):a$="0"
��� "Q":screenx(2)=scrx:screeny(2)=scry:YOUX(2)=x:YOUY(2)=y:rememdossx=screenx(2):rememdossy=screeny(2):rememdosx=YOUX(2):rememdosy=YOUY(2):a$="0"
�
�screen$(scrx,scry,x,y)=a$:� VDU5:PROCshadow("Map ("+STR$(scrx)+","+STR$(scry)+","+STR$(x)+","+STR$(y)+")",12*32,70,14,8):VDU4
Ȏ a$ �
&,� "7" :telenum%=telenum%+1:�readteleport
0;� "10","11","12","13","14","15":numofobjs+=1:�remobject
:�
Dx+=1:� x>15 � x=0:y-=1
N	� y<0
Xa$=�(�#channel)
b� a$<>"-" � �"Close":�7:�
l%scry+=1:� scry>3 � scry=0:scrx+=1
v� scrx>7
�ș "XOS_CLI","Close"
��
�:
�� �readteleport
�� telenum%>20 � �
�%t1$=�(�#channel):t2$=�(�#channel)
�%t3$=�(�#channel):t4$=�(�#channel)
�?teletoscx(telenum%)=�(t1$)-65:teletoscy(telenum%)=�(t2$)-65
�;teletox(telenum%)=�(t3$)-65:teletoy(telenum%)=�(t4$)-65
�+tscx(telenum%)=scrx:tscy(telenum%)=scry
�!tx(telenum%)=x:ty(telenum%)=y
��
�:
� �remobject
� numofobjs>200 � �7:�
obj_remem$(numofobjs)=a$
 3obj_scx(numofobjs)=scrx:obj_scy(numofobjs)=scry
*)obj_x(numofobjs)=x:obj_y(numofobjs)=y
4�
>:
H� �loadsprites(S$)
R!ș "OS_File",5,S$ � ,,,,size%
\� area% size%+32
f5area%!0=size%+32:area%!4=0:area%!8=16:area%!12=16
pș 46,&109,area%
zș 46,&10A,area%,S$
�� B%(26)
��set("0",B%(0),h%,w%)
��set("1",B%(1),h%,w%)
��set("2",B%(2),h%,w%)
��set("3",B%(3),h%,w%)
��set("5",B%(5),h%,w%)
��set("6",B%(6),h%,w%)
��set("7",B%(7),h%,w%)
��set("8",B%(8),h%,w%)
��set("9",B%(9),h%,w%)
��set("10",B%(10),h%,w%)
��set("11",B%(11),h%,w%)
��set("12",B%(12),h%,w%)
	�set("13",B%(13),h%,w%)
	�set("14",B%(14),h%,w%)
	�set("15",B%(15),h%,w%)
	$�set("16",B%(16),h%,w%)
	.�set("19",B%(19),h%,w%)
	8�set("wep0",B%(20),h%,w%)
	B�set("wep1",B%(21),h%,w%)
	L�set("wep2",B%(22),h%,w%)
	V�set("wep3",B%(23),h%,w%)
	`�set("wep4",B%(24),h%,w%)
	j�set("40",B%(17),h%,w%)
	t�set("41",B%(18),h%,w%)
	~�
	�:
	�/� �set(string$,� value%,� width%,� height%)
	�Rș 46,&118,area%,string$ �,,value%:ș 46,&128,area%,string$ �,,,width%,height%
	��
	�:
	�� �menu
	�� I%=1�15:�19,I%,0;0;:�
	�drone%=0
	�#done1=0:done2=0:done3=0:done4=0
	�/!scale%=1:scale%!4=1:scale%!8=1:scale%!12=1
	�	end=�
	�
step=1
screen=1

5� SYS 6,112,screen:COLOUR135:CLS:SYS 6,113,screen
�drawtitle
�drawknights
(
�drawkeys
2�drawboxes
<(ș&2E,36+256,area%,"ptr_sword",1,0,0
F+�palette("CavenDuel:Palettes.!Palette")
P�5
Z
ȗ �:�
d�
n:
x� �drawtitle
�!scale%=6:scale%!4=2
�scale%!8=2:scale%!12=2
�+ș 46,&134,area%,"words",0,940,0,scale%
��
�:
�� �drawknights
�#!scale%=4:scale%!4=4:scale%!8=3
�7scale%!12=3:ș 46,&134,area%,"red",900,450,0,scale%
�-ș 46,&134,area%,"green",100,450,0,scale%
��
�:
�� �drawkeys
��5:�size(16,8)
!�shadow("KEYS",18*32,430,1,8)
#�shadow("Player 1",100,420,1,8)
.�shadow("Player 2",900,420,1,8):�size(8,8)
"$�shadow("Z - Left",164,380,10,4)
,%�shadow("X - Right",164,348,10,4)
6"�shadow("F - Up",164,316,10,4)
@$�shadow("C - Down",164,284,10,4)
J$�shadow("G - Fire",164,252,10,4)
T+�shadow("Keypad 1 - Left",900,380,11,4)
^,�shadow("Keypad 2 - Right",900,348,11,4)
h)�shadow("Keypad 6 - Up",900,316,11,4)
r+�shadow("Keypad 3 - Down",900,284,11,4)
|+�shadow("Keypad + - Fire",900,252,11,4)
�)�shadow("Delete - Pause",400,380,0,4)
�+�shadow("  Copy - Unpause",400,348,0,4)
�,�shadow("     S - Sound on",400,316,0,4)
�-�shadow("     Q - Sound off",400,284,0,4)
�<�shadow("     Tab - Return to main menu",400-32,252,0,4)
�L�shadow("Full release version 1.22 (4th December, 1997)",(17*16),64,9,4)
�P�shadow("Written by Graeme and Stephen Scott � 1994-97",(17.5*16),32,9,4):�4
��
�:
�� �drawboxes
�|�5:� 1:ȓ400,480,480,400:�11:ȓ416,496,216,168:�15:ȓ Ȑ424,512,200,48:�11:ȓ416,580+116,216,168:�15:ȓ Ȑ424,712,200,48
��11:ȓ648,496,216,168:�15:ȓ Ȑ656,512,200,48:�11:ȓ648,580+116,216,168:�15:ȓ Ȑ656,712,200,48:�size(32,8):�shadow(�(foodval),424,752,12,8):�shadow(�(weapval),424,552,12,8)
���shadow(�(televal),656,752,12,8):�shadow(�(shldval),656,552,12,8):�size(8,8):�shadow("Select to increase, Adjust to decrease",336,920,0,4)
��shadow("Food",492,848,11,4):ș46,&122,area%,"pro3b",500,782,8:�shadow("Weapons",468,648,11,4):ș46,&122,area%,"wep0b",500,582,8:�shadow("Teleports",660+24,848,11,4):ș46,&122,area%,"pro1b",736,782,8
��shadow("Shields",700,648,11,4):ș 46,&122,area%,"pro0b",736,582,8:�12:ȓ0,100,224,64:�shadow("Instructions",16,100+48,9,4):�12:ȓ224+128,100,224,64:�11:ȓ Ȑ224+130,104,220,56:�shadow("Play",(224+128)+(5*16),100+48,14,4)
��12:ȓ(2*224)+(2*128),100,224,64:�shadow("Desktop",(2*224)+(2*128)+(3.5*16),100+48,14,4):�shadow("Load new caves",(3*224)+(3*128)-8,100+48,9,4):�12:ȓ(3*224)+(3*128)-8,100,224,64:�size(32,8):�4
&�
0:
:.� �dronening:ș "XOS_CLI","Channel. 2 Arg"
Ddrone%=�
N0� done1=0:� drone%>0:�2,-15,&100,100:done1=1
X2� done2=0:� drone%>480:�2,-15,&200,100:done2=1
b2� done3=0:� drone%>880:�2,-15,&300,100:done3=1
l3� done4=0:� drone%>1290:�2,-15,&200,100:done4=1
v>� drone%>1730:drone%=0:�=0:done1=0:done2=0:done3=0:done4=0
��
�:
�� �mouse
�J� screen=1 � �-99:� fade:�clearbanks2:�play:� fade:�clearbanks:�menu:�
�� MX%,MY%,but%
�ȗ MX%,MY%,but%
�� but%=0 � �
�� but%=4 step=1
�� but%=1 step=-1
�Ȏ screen �
�� 1:
�;food=�range(424,712,200,48):weap=�range(424,512,200,48)
�;tran=�range(656,712,200,48):shld=�range(656,512,200,48)

?play=�range((224+128),100,224,64):help=�range(0,100,224,64)

Tquit=�range((2*224)+(2*128),100,224,64):new=�range((3*224)+(3*128)-8,100,224,64)

\� food �15:ȓ Ȑ424,712,200,48:foodval+=step:�checkvals:�shadow(�(foodval),424,752,12,8)

 \� weap �15:ȓ Ȑ424,512,200,48:weapval+=step:�checkvals:�shadow(�(weapval),424,552,12,8)

*\� tran �15:ȓ Ȑ656,712,200,48:televal+=step:�checkvals:�shadow(�(televal),656,752,12,8)

4\� shld �15:ȓ Ȑ656,512,200,48:shldval+=step:�checkvals:�shadow(�(shldval),656,552,12,8)

>?� play � fade:�clearbanks2:�play:� fade:�clearbanks:�menu:�

H6� help � fade:�instruct:� fade:�clearbanks:�menu:�

R9� new � fade:�loadnewcaves:� fade:�clearbanks:�menu:�

\� quit � fade:�quit:�

f� 2:

pyes=�range(250,250,160,64)

zno=�range(930,250,160,64)

�� yes � end=�

�%� no � � fade:�clearbanks:�menu:�

��

��

�:

�� �instruct

�/�5,24,0;0;1279;940;:� 135:�:�26:�size(16,8)

�5�shadow("INSTRUCTIONS",28*16,908,12,8):�size(8,8)

���shadow("You have knocked over the pint glass of Big Biceps McCrinkle, the strongest",48,850,9,4):�shadow("warrior in the land, and to restore his pride, he demands a duel to the death",32,850-32,9,4)

��shadow("in the caverns situated below the kingdom's mountain range.",11*16,850-64,9,4):�shadow("Both players must find each other and using the weapons scattered about the",48,850-128,9,4)

��shadow("caverns battle it out until one player's energy reaches zero, and the",96,850-160,9,4):�shadow("opponent wins.",33.5*16,850-192,9,4)

���shadow("Collecting food and red potion bottles increases energy. Collecting armour",56,850-256,9,4):�shadow("increases your resistance to your opponent's chosen weapon. Collecting green",40,(850-256)-32,9,4)

���shadow("potion bottles teleport you to random locations. Use the teleports to take",56,(850-256)-64,9,4):�shadow("you to pre-defined locations. Be aware of the fact that some walls are not",56,(850-256)-96,9,4)
��shadow("solid!",37*16,(850-256)-128,9,4):�shadow("The weapons you will come across can either be thrown, fired or held.",6*16,(850-256)-192,9,4)
��shadow("As a rule, held weapons are less effective than the others, particularly if",48,(850-256)-224,9,4):�shadow("the opponent has an obviously more powerful weapon. But it is up to you to",56,850-512,9,4)
��shadow("find out which weapons are the best.",22.5*16,850-544,9,4):�shadow("When you play, the screen is divided into two parts. The top half is for",72,(850-544)-64,9,4)
$��shadow("player one, the bottom half for player two. For each half, there is a status",40,(850-544)-96,9,4):�shadow("box, showing the currently held weapon, the player's energy bar, and the",72,(850-544)-128,9,4)
.��shadow("amount of armour the player has (up to a maximum of 5!!).",11.5*16,(850-544)-160,9,4):� 12:ȓ 352,0,576,64:� 11:ȓ Ȑ 354,4,572,56
8=�shadow("Click mouse button to continue ...",368,48,12,4)
B+�palette("CavenDuel:Palettes.!Palette")
L�
Vȗ X,Y,Z
`�dronening
j
� Z<>0
t�
~:
�� �quit
�,screen=2:� 5,24,0;0;1279;940;:�135:�:�26
��drawknights:�size(16,8)
�<�shadow("Are you sure you want to return",9*16,400,14,8)
�1�shadow("to the desktop ?",24*16,400-40,14,8)
�� 12:ȓ 250,250,160,64
�%�shadow("YES",250+32,250+48,12,8)
�� 11:ȓ 930,250,160,64
�$�shadow("NO",930+48,250+48,11,8)
�+�palette("CavenDuel:Palettes.!Palette")
��
�
�� �loadnewcaves:� 5,24,0;0;1279;940;:� 135:�:�drawknights:�size(16,8):�shadow("Select a new set of caves to load",7*16,400,14,8):�size(8,8):myownnumber%=0:datafiles%=�readfiles("CavenDuel:Screens",&022):�palette("CavenDuel:Palettes.!Palette")

:
� � �12:�:�" at line ";�:�
-printx=250:printy=280:mapnum=1:loaded=0:�
(N�11:ȓ Ȑ printx,printy,192,40:�5:�0:�printx+16,printy+32:� fname$(mapnum)
2=printx+=212:mapnum+=1:� printx>1025:printx=250:printy-=52
<� mapnum>datafiles%
F:
P�:ȗ X,Y,Z:�dronening
Zx2=250:y2=280
d� a=1�datafiles%
nP� X>x2 � X<x2+192 � Y>y2 � Y<y2+40 � Z=4:�6,-15,190+(a*5),10:�loadnewscreens
x#x2+=212:� x2>1025:x2=250:y2-=52
��
�� loaded=1:� fade:�
�9� CLS:VDU4:OFF:REPORT:PRINT " at line ";ERL:GOTO 8520
�:
�9� �loadnewscreens:ș&2E,36+256,area%,"ptr_wait",1,0,0
��7:ȓ Ȑ0,360,1280,50
�� X=0:Y=0:SCX=0:SCY=0
�x� REPEAT:PROCdronening:VDU4:PRINTTAB(0,28)"Clearing map (";STR$(SCX);",";STR$(SCY);",";STR$(X);",";STR$(Y);")";:VDU5
�+screen$()="0":� screen$(SCX,SCY,X,Y)=""
�� X+=1:IF X>16:X=0:Y+=1
�� IF Y>16:SCY+=1:X=0:Y=0
�#� IF SCY>3:SCX+=1:SCY=0:X=0:Y=0
�� UNTIL SCX>7:VDU7,7,7,7
�5
:
� Clearing teleporters
":
,� FOR A%=0TO10
6��shadow("Clearing teleports",26*16,400,14,8):teletoscx()=0:teletoscy()=0:teletox()=0:teletoy()=0:tscx()=0:tscy()=0:tx()=0:ty()=0
@
� NEXT
J:
T�7:ȓ Ȑ0,360,1280,50
^p�shadow("Loading screens - "+fname$(a),26*16,400,14,8):�loadscreens("CavenDuel:Screens."+fname$(a)):loaded=1
h=ș "XOS_CLI","Set Game$Path CavenDuel:Screens."+fname$(a)
r�
|:
� � �readfiles(dir$,filetype%)
�(� curfile%,file%,name$,name%,number%
�$curfile%=1:fname$()="":file%=0:�
�;ș "OS_GBPB",10,dir$,block%,1,file%,63,"*" � ,,,number%
�name$="":name%=&14
�ȕ block%?name%<>0
�name$+=�(block%?name%)
�name%+=1
��
�J� ((!block% >>> 8)� &FFF)=filetype%:fname$(curfile%)=name$:curfile%+=1
�file%+=1:myownnumber%+=1
�� number%<>1
�=curfile%-2
:
� �checkvals
� foodval>120 foodval=120
&� foodval<=5  foodval=5
0� weapval>30  weapval=30
:� weapval<=4  weapval=4
D� televal>10  televal=10
N� televal<=0  televal=0
X� shldval>20  shldval=20
b� shldval<=0  shldval=0
l�
v:
�� �range(RX,RY,RW,RH)
�� XT,YT
�XT=�
�� MX%>RX � MX%<(RX+RW):XT=�
�� MY%>RY � MY%<(RY+RH):YT=�
�� (XT=�) � (YT=�): =�
�� RX,RY
�� &62,RW,RH
�T%=�:� � �>T%+7
�� RX,RY
�� &62,RW,RH
�=�
�:
%� �size(x%,y%):� 23,17,7,6,x%;y%|
�
:
 X� �shadow(text$,x,y,col,gap):�5:� 7:� x+gap,y-gap:� text$:� col:� x,y:� text$:�4:�:�
*:
4� �tidy
>� fade:ȗ �:�26:�
Hș "OS_Byte",15,0
R ș "OS_Byte",129,0,255 � ,a%
\� a%=165 �
f,�palette("CavenDuel:Palettes.!RiscPCol")
p�
z+�palette("CavenDuel:Palettes.!Default")
��
�� OSCLI"RMKill ObjGet"
�� OSCLI"RMKill Rotate"
�� OSCLI"RMKill Sides"
�� OSCLI"RMKill Arg"
�� OSCLI"RMKill Fire"
�� OSCLI"RMKill hit"
�� OSCLI"ChannelVoice 1 1"
�.ș "XOS_CLI","Run CavenDuel:Resources.End"
��
�:
�� �play
�)�:� I%=0�15:�19,I%,0;0;:�:�clearbanks
ȗ �

gapfire=0
#� Recall pre-positioned objects
$� obj=1 � numofobjs
.Lscreen$(obj_scx(obj),obj_scy(obj),obj_x(obj),obj_y(obj))=obj_remem$(obj)
8�
B!� SYS 6,112,2:SYS 6,113,2:CLS
L!� SYS 6,112,1:SYS 6,113,1:CLS
V�drawgraphics
`�placeobjects
j�setupplayers
t
player%=1
~6�screen(screenx(player%),screeny(player%),player%)
��1,-15,&2000,100
�
player%=2
�6�screen(screenx(player%),screeny(player%),player%)
��1,-15,&1000,100
� � 63 Ȝ 192:� 0,508,1280,508
��grab(1):�grab(2)
�Lplayer%=1:ș 46,&122,area%,"1d0",YOUX(player%)*64,512+YOUY(player%)*32,8
�Jplayer%=2:ș 46,&122,area%,"2d0",YOUX(player%)*64,YOUY(player%)*32-4,8
�*�palette("CavenDuel:Palettes.GamePal")
�:
��
�ș 46,&222,grab%,bg%,0,0,0
$ș 46,&222,grabtwo%,bg2%,0,512,0

:
)� energy(1)>0:� keycheckrate=1:�keys1
gapdo=0
(
weptype=0
2-� weapon$(1)="wep1" � weapon$(1)="wep4" �
<gapdo=1
F
weptype=1
P�
Z
weptype=2
d
�gap_fire
n�
x� gapdo=0 �
��checkweps
��
�<� weptype=1:� �-84:� energy(1)>0:� keycheckrate=1:�fire1
�5� weptype=2:� �-84:� energy(1)>0:� gapdo=1:�fire1
��checkweps
��
�:
�)� energy(2)>0:� keycheckrate=1:�keys2
�0� �-59:� energy(2)>0:� keycheckrate=1:�fire2
��checkweps2
�� �-90 � � � �-106
�� �-17 � *SPEAKER OFF
�� �-82 � *SPEAKER ON
?� �-97:end%=1:ș "XOS_CLI","CHANNEL. 2 Arg":�2,-15,&100,100
 player%=1:�print:�printbuls1
 player%=2:�print:�printbuls1
"�printother
,5keycheckrate+=1:� keycheckrate>1 � keycheckrate=0
6!� hit1=1:hitcounter1=0:hit1=2
@!� hit2=1:hitcounter2=0:hit2=2
J*� hit1=2:hitcounter1+=1:�drawblood_pl1
T*� hit2=2:hitcounter2+=1:�drawblood_pl2
^2� hit1=2:� hitcounter1>10:hit1=0:hitcounter1=0
h2� hit2=2:� hitcounter2>10:hit2=0:hitcounter2=0
r�printenergy
|?� energy(1)<=0 � energy(2)<=0:counttillend%+=1:�printwinner
�2� counttillend%=1:�2,-15,&1000,100:�findwinner
�2�=0:� � �=1:� Time Delay to get speed the same
�Ȗ
�ș 6,112,s1%
�ș 6,113,s2%
�Ȕ s1%,s2%
�� end%=1 � counttillend%>90
�creds=1
�:
�� Clear map of waste.
�scrposx=0:scrposy=0
��
�9� A=0�15 :� B=0�15:what$=screen$(scrposx,scrposy,A,B)
Ȏ what$ �
g� "10","11","12","13","14","15","wep0","wep1","wep2","wep3","wep4":screen$(scrposx,scrposy,A,B)="0"
�
&�:�
01scrposx+=1:� scrposx>7 � scrposx=0:scrposy+=1
:� scrposy>3
D�
N:
X� �gap_fire:gapdo=0
bgapfire+=1
l!� gapfire>3:gapfire=0:gapdo=1
v�
�:
�� �keys1
�
player%=1
��� �-98:YOUX(player%)-=1:move(player%)=0:dire$(player%)="l":buld1=3:�check:�checkarea:anim(player%)=anim(player%)+1:�print:�clear:�
��� �-67:YOUX(player%)+=1:move(player%)=1:dire$(player%)="r":buld1=1:�check:�checkarea:anim(player%)=anim(player%)+1:�print:�clear:�
��� �-68:YOUY(player%)+=1:move(player%)=2:dire$(player%)="u":buld1=0:�check:�checkarea:anim(player%)=anim(player%)+1:�print:�clear:�
��� �-83:YOUY(player%)-=1:move(player%)=3:dire$(player%)="d":buld1=2:�check:�checkarea:anim(player%)=anim(player%)+1:�print:�clear
��
�:
�� �keys2
�
player%=2
�s� �-108:YOUX(player%)-=1:move(player%)=0:dire$(player%)="l":buld2=3:�check:�checkarea:anim(player%)+=1:�print:�
�s� �-125:YOUX(player%)+=1:move(player%)=1:dire$(player%)="r":buld2=1:�check:�checkarea:anim(player%)+=1:�print:�
r� �-27:YOUY(player%)+=1:move(player%)=2:dire$(player%)="u":buld2=0:�check:�checkarea:anim(player%)+=1:�print:�
q� �-109:YOUY(player%)-=1:move(player%)=3:dire$(player%)="d":buld2=2:�check:�checkarea:anim(player%)+=1:�print
�
 :
*� �screen(E,F,PLAY%)
4
C=0:D=994
>� PLAY%=2 � C=0:D=476
HX=0:Y=15
R�
\a$=screen$(E,F,X,Y)
fȎ a$ �
p� "wep0":a%=20
z� "wep1":a%=21
�� "wep2":a%=22
�� "wep3":a%=23
�� "wep4":a%=24
�� "4":r%=�(2)-1:a%=17+r%
�:a%=�(a$)
��
�,� a%>19 � a%<25 � a%>5 � a%<16 � a%=19 �
�>ș 46,&222,area%,B%(0),C,D,0:ș 46,&222,area%,B%(a%),C,D,8
��
�!ș 46,&222,area%,B%(a%),C,D,0
��
�,X=X+1:C+=64:� X>15 � Y=Y-1:X=0:C=0:D-=32
�	� Y<0
�grab(PLAY%)
�
:
$� �remobject
.� numofobjs>200 � �7:�
8obj_remem$(numofobjs)=a$
B3obj_scx(numofobjs)=scrx:obj_scy(numofobjs)=scry
L)obj_x(numofobjs)=x:obj_y(numofobjs)=y
V�
`:
j� �check :b=0:dontdraw=0
t�� YOUX(player%)<0 :screenx(player%)-=1:YOUX(player%)=15:b=0:�checkarea2:� dontdraw=0 :�screen(screenx(player%),screeny(player%),player%)
~�� YOUX(player%)>15 :screenx(player%)+=1:YOUX(player%)=0:b=1:�checkarea2:� dontdraw=0 :�screen(screenx(player%),screeny(player%),player%)
��� YOUY(player%)>15 :screeny(player%)+=1:YOUY(player%)=0:b=2:�checkarea2:� dontdraw=0 :�screen(screenx(player%),screeny(player%),player%)
��� YOUY(player%)<0 :screeny(player%)-=1:YOUY(player%)=15:b=3:�checkarea2:� dontdraw=0 :�screen(screenx(player%),screeny(player%),player%)
��
�:
�� �checkarea2
�Ms$=screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))
�i� b=0 :� s$="1" � s$="2" � s$="3" � s$="4" � s$="19" � YOUX(player%)=0:screenx(player%)+=1:dontdraw=1
�j� b=1 :� s$="1" � s$="2" � s$="3" � s$="4" � s$="19" � YOUX(player%)=15:screenx(player%)-=1:dontdraw=1
�j� b=2 :� s$="1" � s$="2" � s$="3" � s$="4" � s$="19" � YOUY(player%)=15:screeny(player%)-=1:dontdraw=1
�i� b=3 :� s$="1" � s$="2" � s$="3" � s$="4" � s$="19" � YOUY(player%)=0:screeny(player%)+=1:dontdraw=1
��
�:
� �clear

Mf$=screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))
C� f$="wep0" � f$="wep1" � f$="wep2" �  f$="wep3" �  f$="wep4":�
:
(�� player%=1:ș 46,&122,area%,screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%)),YOUX(player%)*64,512+YOUY(player%)*32,8
2�� player%=2:ș 46,&122,area%,screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%)),YOUX(player%)*64,(YOUY(player%)*32)-4,8
<�� player%=1:� screenx(2)=screenx(1) � screeny(2)=screeny(1):ș 46,256+34,area%,screen$(screenx(1),screeny(1),YOUX(1),YOUY(1)),YOUX(1)*64,(YOUY(1)*32)-4,8
F�� player%=2:� screenx(1)=screenx(2) � screeny(1)=screeny(2):ș 46,256+34,area%,screen$(screenx(2),screeny(2),YOUX(2),YOUY(2)),YOUX(2)*64,512+(YOUY(2)*32),8
P�
Z:
d� �checkarea
nMs$=screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))
xn� move(player%)=0:�checkforobjects:� s$="1" � s$="2" � s$="3" � s$="4" � s$="19" � YOUX(player%)+=1:�check
�n� move(player%)=1:�checkforobjects:� s$="1" � s$="2" � s$="3" � s$="4" � s$="19" � YOUX(player%)-=1:�check
�n� move(player%)=2:�checkforobjects:� s$="1" � s$="2" � s$="3" � s$="4" � s$="19" � YOUY(player%)-=1:�check
�n� move(player%)=3:�checkforobjects:� s$="1" � s$="2" � s$="3" � s$="4" � s$="19" � YOUY(player%)+=1:�check
��
�:
�� �print
�%� anim(player%)>1:anim(player%)=0
�$name2$=�(player%)+dire$(player%)
�n� player%=1 � energy(1)>0:ș 46,&122,area%,name2$+�(anim(player%)),YOUX(player%)*64,512+YOUY(player%)*32,8
�_� player%=1 � energy(1)<=0:ș 46,&122,area%,"death",YOUX(player%)*64,512+YOUY(player%)*32,8
�n� player%=2 � energy(2)>0:ș 46,&122,area%,name2$+�(anim(player%)),YOUX(player%)*64,(YOUY(player%)*32)-4,8
�_� player%=2 � energy(2)<=0:ș 46,&122,area%,"death",YOUX(player%)*64,(YOUY(player%)*32)-4,8
��
:
� �printother
name2$="2"+dire$(2)
"�� screenx(1)=screenx(2) � screeny(1)=screeny(2) � energy(2)>0:ș 46,&122,area%,name2$+�(anim(2)),YOUX(2)*64,512+(YOUY(2)*32),8
,y� screenx(1)=screenx(2) � screeny(1)=screeny(2) � energy(2)<=0:ș 46,&122,area%,"death",YOUX(2)*64,512+(YOUY(2)*32),8
6name2$="1"+dire$(1)
@�� screenx(2)=screenx(1) � screeny(2)=screeny(1) � energy(1)>0:ș 46,&122,area%,name2$+�(anim(1)),YOUX(1)*64,(YOUY(1)*32)-4,8
Jw� screenx(2)=screenx(1) � screeny(2)=screeny(1) � energy(1)<=0:ș 46,&122,area%,"death",YOUX(1)*64,(YOUY(1)*32)-4,8
T�
^:
h� �checkforobjects
rȎ s$ �
|1� "10","11","12","13","14","15":�deleteobject
�7� "wep0","wep1","wep2","wep3","wep4":�sortwepchange
�� "6":�randomteleport
�#� "7":�teleport_to_set_position
��
��
�:
�� �deleteobject
�Ȏ s$ �
�� "10" : �getshield
�� "11" : �getapple
�� "12" : �getfish
�� "15" : �gettrans
�� "13" : �getpotion
� "14" : �getsandwich
�
�
&:
0#� Part for collecting a shield.
:� �getshield
D$ș "XOS_CLI","CHANNEL. 5 ObjGet"
N;� shield(player%)<6:�5,-15,&1000,100:shield(player%)+=1
Xb� shield(player%)<6:screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))="0"
bj� shield(player%)<6:�clearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
lM� shield(player%)<6:� screenx(1)=screenx(2) � screeny(1)=screeny(2):�col2
v&� shield(player%)<6 �grab(player%)
�;� shield(player%)>=6:�5,-15,&200,100:shield(player%)-=1
�
�print
��
�:
�'� Part for collecting a teleporter.
�� �gettrans
�$ș "XOS_CLI","CHANNEL. 5 Rotate"
��5,-15,&1000,100
�Nscreen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))="0"
�V�clearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
�9� screenx(1)=screenx(2) � screeny(1)=screeny(2):�col2
��grab(player%)
�
�print
�randomteleport
�
:
 *� Part for collecting a potion bottle.
*� �getpotion
4$ș "XOS_CLI","CHANNEL. 5 Rotate"
>�5,-15,&2000,100
HNscreen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))="0"
RV�clearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
\9� screenx(1)=screenx(2) � screeny(1)=screeny(2):�col2
f�grab(player%)
p
�print
zenergy(player%)+=8
��
�:
�%� Part for collecting a sandwich.
�� �getsandwich
�$ș "XOS_CLI","CHANNEL. 5 ObjGet"
��5,-15,&2000,100
�Nscreen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))="0"
�V�clearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
�9� screenx(1)=screenx(2) � screeny(1)=screeny(2):�col2
��grab(player%)
�
�print
�energy(player%)+=4
��
:
!� Part for collecting a fish.
� �getfish
$$ș "XOS_CLI","CHANNEL. 5 ObjGet"
.�5,-15,&4000,10
8Nscreen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))="0"
BV�clearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
L9� screenx(1)=screenx(2) � screeny(1)=screeny(2):�col2
V�grab(player%)
`
�print
jenergy(player%)+=6
t�
~:
�#� Part for collecting an apple.
�� �getapple
�$ș "XOS_CLI","CHANNEL. 5 ObjGet"
��5,-15,&3000,10
�Nscreen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))="0"
�V�clearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
�9� screenx(1)=screenx(2) � screeny(1)=screeny(2):�col2
��grab(player%)
�
�print
�energy(player%)+=4
��
�:
� �col2

e� player%=1:�clearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),2):�grab(2)
e� player%=2:�clearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),1):�grab(1)
�
(:
2� �randomteleport
<!ș "XOS_CLI","CHANNEL. 4 Hit"
F�4,-15,&1000,100
P:
Z�
d-R1%=�(8)-1:R2%=�(4)-1:R3%=�(15):R4%=�(15)
n�� screen$(R1%,R2%,R3%,R4%)="0" � screen$(R1%,R2%,R3%,R4%)="5":screenx(player%)=R1%:screeny(player%)=R2%:YOUX(player%)=R3%:YOUY(player%)=R4%
xE�screen(screenx(player%),screeny(player%),player%):�grab(player%)
��
�:
�� �teleport_to_set_position
�� tele%=0�telenum%
��� tscx(tele%)=screenx(player%) � tscy(tele%)=screeny(player%) � tx(tele%)=YOUX(player%) � ty(tele%)=YOUY(player%):�shift_to_position
��
��
�:
�� �shift_to_position
�2ș "XOS_CLI","CHANNEL. 4 Hit":�4,-15,&1000,100
�J� Remove 'REM' commands here if you want a failure rate on teleporters
�� Z%=RND(3)-1
�(� IF Z%=1:PROCrandomteleport:ENDPROC
Gscreenx(player%)=teletoscx(tele%):screeny(player%)=teletoscy(tele%)
=YOUX(player%)=teletox(tele%):YOUY(player%)=teletoy(tele%)
E�screen(screenx(player%),screeny(player%),player%):�grab(player%)
"�
,:
6� �fire1
@� weapon$(1)="0" � �
J� fire1>10 � fire1=0
T)� activbul(fire1)=1 � fire1+=1:� �dL_
^activbul(fire1)=1
h/fire1x(fire1)=YOUX(1):fire1y(fire1)=YOUY(1)
r9fire1scx(fire1)=screenx(1):fire1scy(fire1)=screeny(1)
|?fire1dir(fire1)=buld1:fire1range(fire1)=-1:firefr1(fire1)=0
�!fire1+=1:� fire1>10 � fire1=0
�"ș "XOS_CLI","CHANNEL. 7 Fire"
�'� weapon$(1)="wep4":�7,-15,&200,100
�(� weapon$(1)="wep3":�7,-15,&1000,100
�'� weapon$(1)="wep2":�7,-15,&500,100
�(� weapon$(1)="wep1":�7,-10,&1500,100
�(� weapon$(1)="wep0":�7,-15,&1000,100
��
�:
�� �fire2
�� weapon$(2)="0":�
�� fire2>10:fire2=0
�'� activdos(fire2)=1:fire2+=1:� �Dl`
 activdos(fire2)=1
 /fire2x(fire2)=YOUX(2):fire2y(fire2)=YOUY(2)
 9fire2scx(fire2)=screenx(2):fire2scy(fire2)=screeny(2)
 &>fire2dir(fire2)=buld2:fire2range(fire2)=0:firefr2(fire2)=0
 0"ș "XOS_CLI","CHANNEL. 8 Fire"
 :'� weapon$(2)="wep4":�8,-15,&200,100
 D(� weapon$(2)="wep3":�8,-15,&1000,100
 N'� weapon$(2)="wep2":�8,-15,&500,100
 X'� weapon$(2)="wep1":�8,-10,&200,100
 b(� weapon$(2)="wep0":�8,-15,&1000,100
 l�
 v:
 �� �checkweps
 �� bollets2%=0 � 10
 �"� activbul(bollets2%)=0:� �TVa
 �0� fire1dir(bollets2%)=0:fire1y(bollets2%)+=1
 �0� fire1dir(bollets2%)=2:fire1y(bollets2%)-=1
 �0� fire1dir(bollets2%)=1:fire1x(bollets2%)+=1
 �0� fire1dir(bollets2%)=3:fire1x(bollets2%)-=1
 �E� fire1x(bollets2%)<0:fire1scx(bollets2%)-=1:fire1x(bollets2%)=15
 �E� fire1x(bollets2%)>15:fire1scx(bollets2%)+=1:fire1x(bollets2%)=0
 �E� fire1y(bollets2%)<0:fire1scy(bollets2%)-=1:fire1y(bollets2%)=15
 �E� fire1y(bollets2%)>15:fire1scy(bollets2%)+=1:fire1y(bollets2%)=0
 �:
 �\�checkblock(fire1scx(bollets2%),fire1scy(bollets2%),fire1x(bollets2%),fire1y(bollets2%))
!�� feedback$="1" � feedback$="2" � feedback$="3" � feedback$="4" � feedback$="6" � feedback$="7" :activbul(bollets2%)=0:ș "XOS_CLI","CHANNEL. 5 Sides":�5,-15,&2000,100
!(fire1range(bollets2%)+=1:�checkrange
!�
! �
!*:
!4� �checkweps2
!>� bullets%=0 � 10
!H!� activdos(bullets%)=0:� �dJa
!R.� fire2dir(bullets%)=0:fire2y(bullets%)+=1
!\.� fire2dir(bullets%)=2:fire2y(bullets%)-=1
!f.� fire2dir(bullets%)=1:fire2x(bullets%)+=1
!p.� fire2dir(bullets%)=3:fire2x(bullets%)-=1
!zB� fire2x(bullets%)<0:fire2scx(bullets%)-=1:fire2x(bullets%)=15
!�B� fire2x(bullets%)>15:fire2scx(bullets%)+=1:fire2x(bullets%)=0
!�B� fire2y(bullets%)<0:fire2scy(bullets%)-=1:fire2y(bullets%)=15
!�B� fire2y(bullets%)>15:fire2scy(bullets%)+=1:fire2y(bullets%)=0
!�:
!�X�checkblock(fire2scx(bullets%),fire2scy(bullets%),fire2x(bullets%),fire2y(bullets%))
!��� feedback$="1" � feedback$="2" � feedback$="3" � feedback$="4" � feedback$="6" � feedback$="7" :activdos(bullets%)=0:ș "XOS_CLI","CHANNEL. 6 Sides":�6,-15,&2000,100
!�(fire2range(bullets%)+=1:�checkrange2
!��
!��
!�:
!�� �checkrange
!�Y� weapon$(1)="wep0":� fire1range(bollets2%)=16:fire1range(bollets2%)=0:�resetfire2(1)
!�Y� weapon$(1)="wep1":� fire1range(bollets2%)=1:fire1range(bollets2%)=-1:�resetfire2(1)
"Y� weapon$(1)="wep2":� fire1range(bollets2%)=48:fire1range(bollets2%)=0:�resetfire2(1)
"Y� weapon$(1)="wep3":� fire1range(bollets2%)=10:fire1range(bollets2%)=0:�resetfire2(1)
"Y� weapon$(1)="wep4":� fire1range(bollets2%)=1:fire1range(bollets2%)=-1:�resetfire2(1)
"$�
".� �checkrange2
"8W� weapon$(2)="wep0":� fire2range(bullets%)=16:fire2range(bullets%)=0:�resetfire2(2)
"BV� weapon$(2)="wep1":� fire2range(bullets%)=2:fire2range(bullets%)=0:�resetfire2(2)
"LW� weapon$(2)="wep2":� fire2range(bullets%)=48:fire2range(bullets%)=0:�resetfire2(2)
"VW� weapon$(2)="wep3":� fire2range(bullets%)=10:fire2range(bullets%)=0:�resetfire2(2)
"`V� weapon$(2)="wep4":� fire2range(bullets%)=2:fire2range(bullets%)=0:�resetfire2(2)
"j�
"t:
"~"� �clearblock(scx,scy,z,x,pl%)
"�Ȏ screen$(scx,scy,z,x) �
"�M� "wep0","wep1","wep2","wep3","wep4","6","7","8":�sort_out_other_blocks:�
"��
"�:
"�h� pl%=1:ș 46,&222,area%,B%(0),z*64,512+x*32,0:ș 46,&122,area%,screen$(scx,scy,z,x),z*64,512+x*32,8
"�d� pl%=2:ș 46,&222,area%,B%(0),z*64,x*32-4,0:ș 46,&122,area%,screen$(scx,scy,z,x),z*64,x*32-4,8
"��
"�:
"�� �sort_out_other_blocks
"�2� pl%=1:ș 46,&222,area%,B%(0),z*64,512+x*32,0
"�A� pl%=1:ș 46,&122,area%,screen$(scx,scy,z,x),z*64,512+x*32,8
"�0� pl%=2:ș 46,&222,area%,B%(0),z*64,x*32-4,0
#?� pl%=2:ș 46,&122,area%,screen$(scx,scy,z,x),z*64,x*32-4,8
#
�
#:
#� �checkblock(scx,scy,z,x)
#("feedback$=screen$(scx,scy,z,x)
#2�
#<:
#F� �printbuls1
#PȎ player% �
#Z� 1:�printbuls1_1
#d� 2:�printbuls1_2
#n�
#x�
#�:
#�� �printbuls1_1
#�� weapon$(1)="0" :�
#�:
#�� bolls%=0 � 10
#�!� activbul(bolls%)=0 � � �Tld
#�:
#�<firefr1(bolls%)+=1:� firefr1(bolls%)>3:firefr1(bolls%)=0
#�L� screenx(1)=fire1scx(bolls%) � screeny(1)=fire1scy(bolls%) � : � � �TXd
#�:
#�� weapon$(1)="wep0" �
#�cș 46,&122,area%,weapon$(1)+�(firefr1(bolls%)),fire1x(bolls%)*64,512+fire1y(bolls%)*32,8:� �TXd
#��
$]ș 46,&122,area%,weapon$(1)+�(fire1dir(bolls%)),fire1x(bolls%)*64,512+fire1y(bolls%)*32,8
$�
$}� YOUX(2)=fire1x(bolls%) � YOUY(2)=fire1y(bolls%) � screenx(2)=fire1scx(bolls%) � screeny(2)=fire1scy(bolls%):�hitplayer1
$"O� screenx(2)=fire1scx(bolls%) � screeny(2)=fire1scy(bolls%):�printotherbuls
$,�
$6� PROCprint
$@�
$J:
$T� �printbuls1_2
$^� weapon$(2)="0" :�
$h:
$r� bolls%=0 � 10
$|!� activdos(bolls%)=0 � � �djd
$�<firefr2(bolls%)+=1:� firefr2(bolls%)>3:firefr2(bolls%)=0
$�L� screenx(2)=fire2scx(bolls%) � screeny(2)=fire2scy(bolls%) � : � � �dVd
$�:
$�� weapon$(2)="wep0" �
$�aș 46,&122,area%,weapon$(2)+�(firefr2(bolls%)),fire2x(bolls%)*64,fire2y(bolls%)*32-4,8:� �dVd
$��
$�[ș 46,&122,area%,weapon$(2)+�(fire2dir(bolls%)),fire2x(bolls%)*64,fire2y(bolls%)*32-4,8
$��
$�}� fire2x(bolls%)=YOUX(1) � fire2y(bolls%)=YOUY(1) � fire2scx(bolls%)=screenx(1) � fire2scy(bolls%)=screeny(1):�hitplayer2
$�P� screenx(1)=fire2scx(bolls%) � screeny(1)=fire2scy(bolls%):�printotherbuls2
$��
$�� PROCprint
$��
%:
%� �printotherbuls
%� activbul(bolls%)=0 � �
%&p� weapon$(1)="wep0":ș 46,&122,area%,weapon$(1)+�(firefr1(bolls%)),fire1x(bolls%)*64,fire1y(bolls%)*32-4,8:�
%0[ș 46,&122,area%,weapon$(1)+�(fire1dir(bolls%)),fire1x(bolls%)*64,fire1y(bolls%)*32-4,8
%:�
%D:
%N� �printotherbuls2
%X� activdos(bolls%)=0 � �
%br� weapon$(2)="wep0":ș 46,&122,area%,weapon$(2)+�(firefr2(bolls%)),fire2x(bolls%)*64,512+fire2y(bolls%)*32,8:�
%l]ș 46,&122,area%,weapon$(2)+�(fire2dir(bolls%)),fire2x(bolls%)*64,512+fire2y(bolls%)*32,8
%v�
%�:
%�� Grab Screen
%�� �grab(pl%)
%�� pl%=1:�grab2
%�� pl%=2:�grab1
%��
%�:
%�� Grab Screen for player 1
%�� �grab1
%�eș46,&110,grab%,g$,0,0,0,1280,508:ș46,&118,grab%,g$ �,,bg%:ș46,&128,grab%,g$ �,,,width%,height%
%��
%�:
%�� Grab Screen for player 2
&� �grab2
&wș46,&110,grabtwo%,gg$,0,0,512,1280,1023:ș46,&118,grabtwo%,gg$ �,,bg2%:ș46,&128,grabtwo%,gg$ �,,,width2%,height2%
&�
& :
&*� �sortwepchange
&4Pcopy$=screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))
&>�backup$=copy$:screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))=weapon$(player%):weapon$(player%)=backup$
&H!ș "XOS_CLI","CHANNEL. 4 Hit"
&R�4,-15,&400,100
&\V�clearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
&f:� screenx(1)=screenx(2) � screeny(1)=screeny(2):�sort2
&p�grab(player%):�print
&z�
&�:
&�� �sort2
&�e� player%=1:�clearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),2):�grab(2)
&�g� player%=2 � �clearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),1):�grab(1)
&��
&�:
&�� �resetbul(p%)
&�Ȏ p% �
&�� 1:
&�)fire1scy(bolls%)=0:fire1scx(bolls%)=0
&�%fire1y(bolls%)=0:fire1x(bolls%)=0
&�activbul(bolls%)=0
&�� 2:
')fire2scy(bolls%)=0:fire2scx(bolls%)=0
'%fire2y(bolls%)=0:fire2x(bolls%)=0
'activdos(bolls%)=0
'$�
'.�
'8:
'B� �resetfire2(p%)
'LȎ p% �
'V� 1:
'`/fire1scy(bollets2%)=0:fire1scx(bollets2%)=0
'j+fire1y(bollets2%)=0:fire1x(bollets2%)=0
't1activbul(bollets2%)=0:fire1range(bollets2%)=0
'~� 2:
'�-fire2scy(bullets%)=0:fire2scx(bullets%)=0
'�)fire2y(bullets%)=0:fire2x(bullets%)=0
'�/activdos(bullets%)=0:fire2range(bullets%)=0
'��
'��
'�:
'�� �printenergy
'��5
'�<� energy(1)>0 � energy(1)<184:ȓ Ȑ1050,560,50,energy(1)
'�;� energy(2)>0 � energy(2)<184:ȓ Ȑ1050,48,50,energy(2)
'�s� energy(2)>=184:�5:ȓ Ȑ1050,48,50,184:�7:�1075,48,1075,48+184:�1050,48+92,1075,48+184:�1100,48+92,1075,48+184
'�z� energy(1)>=184:�5:ȓ Ȑ1050,560,50,184:�7:�1075,560,1075,560+184:�1050,560+92,1075,560+184:�1100,560+92,1075,560+184
(:
(
*� shield(2)=5:� 11:ȓ Ȑ1200,52,50,184
(+� shield(1)=5:� 11:ȓ Ȑ1200,564,50,184
(:
(($� shield(2)>0 � �print_shields_2
(2$� shield(1)>0 � �print_shields_1
(<@� weapon$(1)="0" � : � ș46,&122,area%,weapon$(1),1122,866,8
(F@� weapon$(2)="0" � : � ș46,&122,area%,weapon$(2),1122,346,8
(P�
(Z:
(d� �print_shields_2
(nY=0
(x� shield(2)<6 �
(�� A%=1�shield(2)
(�%ș 46,&122,area%,"10",1192,56+Y,8
(�	Y+=36
(��
(��
(��
(�:
(�� �print_shields_1
(�Y=0
(�� shield(1)<6 �
(�� A%=1�shield(1)
(�&ș 46,&122,area%,"10",1192,568+Y,8
(�	Y+=36
)�
)�
)�
)":
),� �hitplayer1
)6� energy(2)>0 �
)@P� energy(2)>0 � shield(2)>0:ș "XOS_CLI","CHANNEL. 6 Sides":�6,-15,&4000,100
)JL� energy(2)>0 � shield(2)=0:ș "XOS_CLI","CHANNEL. 2 ARG":�2,-15,&3000,1
)T�
)^�resetbul(1)
)h� shield(2)<>0 �
)rȎ weapon$(1) �
)|�"wep0":reduce_shield(2)+=3
)��"wep1":reduce_shield(2)+=2
)��"wep2":reduce_shield(2)+=1
)�!�"wep3":reduce_shield(2)+=0.5
)��"wep4":reduce_shield(2)+=3
)��
)�8� reduce_shield(2)>5:reduce_shield(2)=0:shield(2)-=1
)��
)��
)�%� weapon$(1)="wep0":energy(2)-=16
)�%� weapon$(1)="wep1":energy(2)-=12
)�$� weapon$(1)="wep2":energy(2)-=8
)�$� weapon$(1)="wep3":energy(2)-=4
)�%� weapon$(1)="wep4":energy(2)-=16
*
hit2=1
*�
*�
*&:
*0� �hitplayer2
*:� energy(1)>0 �
*DP� energy(1)>0 � shield(1)>0:ș "XOS_CLI","CHANNEL. 5 Sides":�5,-15,&4000,100
*NL� energy(1)>0 � shield(1)=0:ș "XOS_CLI","CHANNEL. 3 ARG":�3,-15,&2000,1
*X�
*b�resetbul(2)
*l� shield(1)<>0 �
*vȎ weapon$(2) �
*��"wep0":reduce_shield(1)+=3
*��"wep1":reduce_shield(1)+=2
*��"wep2":reduce_shield(1)+=1
*�!�"wep3":reduce_shield(1)+=0.5
*��"wep4":reduce_shield(1)+=3
*��
*�8� reduce_shield(1)>5:reduce_shield(1)=0:shield(1)-=1
*��
*��
*�%� weapon$(2)="wep0":energy(1)-=16
*�%� weapon$(2)="wep1":energy(1)-=12
*�$� weapon$(2)="wep2":energy(1)-=8
*�$� weapon$(2)="wep3":energy(1)-=4
+%� weapon$(2)="wep4":energy(1)-=16
+
hit1=1
+�
+ �
+*:
+4� �drawblood_pl1
+>@ș46,&122,area%,"gore"+�(�(2)-1),YOUX(1)*64,512+YOUY(1)*32,8
+Hn� screenx(1)=screenx(2) � screeny(1)=screeny(2):ș46,&122,area%,"gore"+�(�(2)-1),YOUX(1)*64,YOUY(1)*32-4,8
+R�
+\:
+f� �drawblood_pl2
+p>ș46,&122,area%,"gore"+�(�(2)-1),YOUX(2)*64,YOUY(2)*32-4,8
+z�� energy(2)>0 � shield(2)=0 � screenx(2)=screenx(1) � screeny(2)=screeny(1):ș46,&122,area%,"gore"+�(�(2)-1),YOUX(2)*64,512+YOUY(2)*32,8
+��
+�:
+�� �findwinner
+�/� energy(1)<=0 � energy(2)>0:playertwowin=�
+�/� energy(2)<=0 � energy(1)>0:playeronewin=�
+�.� energy(1)<=0 � energy(2)<=0:playerdraw=�
+��
+�:
+�� �printwinner
+�,� playeronewin � playertwowin:speed-=2.2
+�� playerdraw:speed-=1.6
+�� speed<0:speed=0
+�c+=speed
,"� playeronewin:�printonewin(c)
,"� playertwowin:�printtwowin(c)
,� playerdraw:�printdraw(c)
,$� �-99:counttillend%=90
,.�
,8:
,B� �printonewin(x)
,L)ș46,&122,area%,"announce",x+80,210,8
,V)ș46,&122,area%,"announce",x+80,710,8
,`)ș46,&122,area%,"player1",x+320,706,8
,j)ș46,&122,area%,"player2",x+314,206,8
,t(ș46,&122,area%,"winner",x+600,710,8
,~'ș46,&122,area%,"loser",x+600,210,8
,��
,�:
,�� �printtwowin(x)
,�)ș46,&122,area%,"announce",x+80,210,8
,�)ș46,&122,area%,"announce",x+80,710,8
,�)ș46,&122,area%,"player1",x+320,706,8
,�)ș46,&122,area%,"player2",x+314,206,8
,�'ș46,&122,area%,"loser",x+600,710,8
,�(ș46,&122,area%,"winner",x+600,210,8
,��
,�:
,�� �printdraw(x)
-#ș46,&122,area%,"draw!",x,210,8
-
%ș46,256+34,area%,"draw!",x,710,8
-�
-:
-(� �drawgraphics
-2-ș46,&122,area%,"statforplay1",1030,516,8
-<+ș46,&122,area%,"statforplay2",1030,0,8
-F&ș46,&122,area%,"health",1058,12,8
-P'ș46,&122,area%,"health",1058,524,8
-Z%ș46,&122,area%,"shield",1192,8,8
-d'ș46,&122,area%,"shield",1192,524,8
-n�7
-xȓ Ȑ1200,52,50,184
-�ȓ Ȑ1200,564,50,184
-�ȓ Ȑ1118,862,68,36
-�ȓ Ȑ1118,342,68,36
-�ȓ Ȑ1050,48,50,184
-�ȓ Ȑ1050,560,50,184
-��0
-�ȓ1200,52,48,184
-�ȓ1202,52,48,184
-�ȓ1200,564,48,184
-�ȓ1202,564,48,184
-�ȓ1118,862,68,36
-�ȓ1118,342,68,36
-��
.:
.� �setupplayers
.screenx(1)=remem1sx
."screeny(1)=remem1sy
.,screenx(2)=rememdossx
.6screeny(2)=rememdossy
.@YOUX(1)=remem1x
.JYOUX(2)=rememdosx
.TYOUY(1)=remem1y
.^YOUY(2)=rememdosy
.h?xpos=0:ypos=0:anim()=0:energy()=50:shield()=0:weapon$()="0"
.r9fire1range()=0:fire2range()=0:firefr1()=0:firefr2()=0
.|#fire1=0:fire2=0:buld1=2:buld2=2
.�6dire$()="d":player%=1:keycheckrate=0:no1%=0:no2%=0
.�;checkdone%=0:noprint%=0:pause%=0:end%=0:counttillend%=0
.�.playeronewin=�:playertwowin=�:playerdraw=�
.�speed=60:c=-800
.�hit1=0:hit2=0
.�hitcounter1=0:hitcounter2=0
.��
.�:
.�� �load_screens
.�ab%=0:cd%=0
.��
.��loadscreen(ab%,cd%)
.�ab%+=1:� ab%>7:cd%+=1:ab%=0
/� cd%>3
/�
/:
/&� Place game objects on map
/0� �placeobjects
/:� abcd%=1 � foodval
/D?R1%=�(8)-1:R2%=�(4)-1:R3%=�(15):R4%=�(15):obj$=�(�(4)-1+11)
/NI� screen$(R1%,R2%,R3%,R4%)="0":screen$(R1%,R2%,R3%,R4%)=obj$:� � �DDo
/X�
/b:
/l� Place shields on map
/v� abcd%=1 � shldval
/�7R1%=�(8)-1:R2%=�(4)-1:R3%=�(15):R4%=�(15):obj$="10"
/�I� screen$(R1%,R2%,R3%,R4%)="0":screen$(R1%,R2%,R3%,R4%)=obj$:� � �t@o
/��
/�:
/�&� Place teleporter potions on map.
/�� abcd%=1 � televal
/�-R1%=�(8)-1:R2%=�(4)-1:R3%=�(15):R4%=�(15)
/�I� screen$(R1%,R2%,R3%,R4%)="0":screen$(R1%,R2%,R3%,R4%)="15":� � �t|o
/��
/�:
/�� Place weapons on map
/�� abcde%=1 � weapval
/�BR1%=�(8)-1:R2%=�(4)-1:R3%=�(15):R4%=�(15):obj$="wep"+�(�(5)-1)
0I� screen$(R1%,R2%,R3%,R4%)="0":screen$(R1%,R2%,R3%,R4%)=obj$:� � �dxo
0�
0�
0 :
0*� �clearbanks
04
ș6,112,1
0>
ș6,113,1
0H�26:�4:�135:�
0R
ș6,112,2
0\
ș6,113,2
0f
�135:�
0p
ș6,113,1
0z
ș6,112,1
0��
0�:
0�� �clearbanks2
0�
ș6,112,1
0�
ș6,113,1
0��26:�4:�128:�
0�
ș6,112,2
0�
ș6,113,2
0�
�128:�
0�
ș6,113,1
0�
ș6,112,1
0��
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 1b f4 20 43 61  76 65 72 6e 20 44 75 65  |..... Cavern Due|
00000020  6c 20 52 65 6c 65 61 73  65 20 31 0d 00 1e 27 f4  |l Release 1...'.|
00000030  20 56 65 72 73 69 6f 6e  20 31 2e 32 32 20 28 34  | Version 1.22 (4|
00000040  74 68 20 44 65 63 65 6d  62 65 72 2c 20 31 39 39  |th December, 199|
00000050  37 29 0d 00 28 21 f4 20  52 65 6c 65 61 73 65 64  |7)..(!. Released|
00000060  20 35 74 68 20 44 65 63  65 6d 62 65 72 2c 20 31  | 5th December, 1|
00000070  39 39 37 0d 00 32 06 f4  20 0d 00 3c 58 f4 20 43  |997..2.. ..<X. C|
00000080  6f 70 79 72 69 67 68 74  20 68 65 6c 64 20 62 79  |opyright held by|
00000090  20 61 75 74 68 6f 72 73  2e 20 44 69 73 74 72 69  | authors. Distri|
000000a0  62 75 74 65 20 66 72 65  65 6c 79 2c 20 62 75 74  |bute freely, but|
000000b0  20 64 6f 20 6e 6f 74 20  61 6c 74 65 72 20 61 6e  | do not alter an|
000000c0  79 20 69 6e 74 65 72 6e  61 6c 20 66 69 6c 65 73  |y internal files|
000000d0  21 0d 00 46 05 f4 0d 00  50 33 f4 20 57 72 69 74  |!..F....P3. Writ|
000000e0  74 65 6e 20 62 79 20 47  72 61 65 6d 65 20 61 6e  |ten by Graeme an|
000000f0  64 20 53 74 65 70 68 65  6e 20 53 63 6f 74 74 20  |d Stephen Scott |
00000100  a9 20 31 39 39 34 2d 39  37 0d 00 5a 2b f4 20 53  |. 1994-97..Z+. S|
00000110  65 65 20 64 6f 63 75 6d  65 6e 74 61 74 69 6f 6e  |ee documentation|
00000120  20 66 6f 72 20 63 6f 6e  74 61 63 74 20 64 65 74  | for contact det|
00000130  61 69 6c 73 0d 00 64 05  f4 0d 00 6e 28 ee 20 85  |ails..d....n(. .|
00000140  20 eb 31 32 3a f6 3a f1  22 20 61 74 20 6c 69 6e  | .12:.:." at lin|
00000150  65 20 22 3b 9e 3a e7 20  a5 3a f2 74 69 64 79 3a  |e ";.:. .:.tidy:|
00000160  e0 0d 00 78 2d f4 20 53  59 53 20 22 4f 53 5f 42  |...x-. SYS "OS_B|
00000170  79 74 65 22 2c 32 32 39  2c 31 3a 20 52 45 4d 20  |yte",229,1: REM |
00000180  44 69 73 61 62 6c 65 20  45 73 63 61 70 65 0d 00  |Disable Escape..|
00000190  82 0b f2 61 72 72 61 79  73 0d 00 8c 0d f2 69 6e  |...arrays.....in|
000001a0  69 74 67 72 61 62 0d 00  96 0e f2 69 6e 69 74 66  |itgrab.....initf|
000001b0  61 64 65 72 0d 00 a0 05  3a 0d 00 aa 0c eb 20 31  |ader....:..... 1|
000001c0  32 38 2b 31 32 0d 00 b4  08 eb 20 31 32 0d 00 be  |28+12..... 12...|
000001d0  05 87 0d 00 c8 2b f2 70  61 6c 65 74 74 65 28 22  |.....+.palette("|
000001e0  43 61 76 65 6e 44 75 65  6c 3a 50 61 6c 65 74 74  |CavenDuel:Palett|
000001f0  65 73 2e 54 69 74 6c 65  50 61 6c 22 29 0d 00 d2  |es.TitlePal")...|
00000200  0a f2 69 6e 74 72 6f 0d  00 dc 09 f2 6d 65 6e 75  |..intro.....menu|
00000210  0d 00 e6 05 3a 0d 00 f0  05 f5 0d 00 fa 0e f2 64  |....:..........d|
00000220  72 6f 6e 65 6e 69 6e 67  0d 01 04 0a f2 6d 6f 75  |ronening.....mou|
00000230  73 65 0d 01 0e 09 fd 20  65 6e 64 0d 01 18 09 f2  |se..... end.....|
00000240  74 69 64 79 0d 01 22 05  e0 0d 01 2c 05 3a 0d 01  |tidy.."....,.:..|
00000250  36 0d dd 20 f2 61 72 72  61 79 73 0d 01 40 19 de  |6.. .arrays..@..|
00000260  20 62 6c 6f 63 6b 25 20  36 34 2c 73 63 61 6c 65  | block% 64,scale|
00000270  25 20 31 35 0d 01 4a 10  de 20 66 6e 61 6d 65 24  |% 15..J.. fname$|
00000280  28 32 35 29 0d 01 54 18  de 20 73 63 72 65 65 6e  |(25)..T.. screen|
00000290  24 28 37 2c 33 2c 31 36  2c 31 36 29 0d 01 5e 15  |$(7,3,16,16)..^.|
000002a0  de 20 59 4f 55 58 28 32  29 2c 59 4f 55 59 28 32  |. YOUX(2),YOUY(2|
000002b0  29 0d 01 68 0d de 20 6d  6f 76 65 28 32 29 0d 01  |)..h.. move(2)..|
000002c0  72 0e de 20 64 69 72 65  24 28 32 29 0d 01 7c 0d  |r.. dire$(2)..|.|
000002d0  de 20 61 6e 69 6d 28 32  29 0d 01 86 1b de 20 73  |. anim(2)..... s|
000002e0  63 72 65 65 6e 78 28 32  29 2c 73 63 72 65 65 6e  |creenx(2),screen|
000002f0  79 28 32 29 0d 01 90 35  de 20 65 6e 65 72 67 79  |y(2)...5. energy|
00000300  28 32 29 2c 73 68 69 65  6c 64 28 32 29 2c 77 65  |(2),shield(2),we|
00000310  61 70 6f 6e 24 28 32 29  2c 72 65 64 75 63 65 5f  |apon$(2),reduce_|
00000320  73 68 69 65 6c 64 28 32  29 0d 01 9a 23 de 20 66  |shield(2)...#. f|
00000330  69 72 65 31 72 61 6e 67  65 28 31 36 29 2c 66 69  |ire1range(16),fi|
00000340  72 65 32 72 61 6e 67 65  28 31 36 29 0d 01 a4 1f  |re2range(16)....|
00000350  de 20 61 63 74 69 76 62  75 6c 28 31 36 29 2c 61  |. activbul(16),a|
00000360  63 74 69 76 64 6f 73 28  31 36 29 0d 01 ae 1d de  |ctivdos(16).....|
00000370  20 66 69 72 65 66 72 31  28 31 36 29 2c 66 69 72  | firefr1(16),fir|
00000380  65 66 72 32 28 31 36 29  0d 01 b8 42 de 20 66 69  |efr2(16)...B. fi|
00000390  72 65 31 78 28 31 36 29  2c 66 69 72 65 31 79 28  |re1x(16),fire1y(|
000003a0  31 36 29 2c 66 69 72 65  31 73 63 78 28 31 36 29  |16),fire1scx(16)|
000003b0  2c 66 69 72 65 31 73 63  79 28 31 36 29 2c 66 69  |,fire1scy(16),fi|
000003c0  72 65 31 64 69 72 28 31  36 29 0d 01 c2 42 de 20  |re1dir(16)...B. |
000003d0  66 69 72 65 32 78 28 31  36 29 2c 66 69 72 65 32  |fire2x(16),fire2|
000003e0  79 28 31 36 29 2c 66 69  72 65 32 73 63 78 28 31  |y(16),fire2scx(1|
000003f0  36 29 2c 66 69 72 65 32  73 63 79 28 31 36 29 2c  |6),fire2scy(16),|
00000400  66 69 72 65 32 64 69 72  28 31 36 29 0d 01 cc 39  |fire2dir(16)...9|
00000410  de 20 74 65 6c 65 74 6f  73 63 78 28 32 30 29 2c  |. teletoscx(20),|
00000420  74 65 6c 65 74 6f 73 63  79 28 32 30 29 2c 74 65  |teletoscy(20),te|
00000430  6c 65 74 6f 78 28 32 30  29 2c 74 65 6c 65 74 6f  |letox(20),teleto|
00000440  79 28 32 30 29 0d 01 d6  25 de 20 74 73 63 78 28  |y(20)...%. tscx(|
00000450  32 30 29 2c 74 73 63 79  28 32 30 29 2c 74 78 28  |20),tscy(20),tx(|
00000460  32 30 29 2c 74 79 28 32  30 29 0d 01 e0 15 de 20  |20),ty(20)..... |
00000470  6f 62 6a 5f 72 65 6d 65  6d 24 28 32 30 30 29 0d  |obj_remem$(200).|
00000480  01 ea 35 de 20 6f 62 6a  5f 73 63 78 28 32 30 30  |..5. obj_scx(200|
00000490  29 2c 6f 62 6a 5f 73 63  79 28 32 30 30 29 2c 6f  |),obj_scy(200),o|
000004a0  62 6a 5f 78 28 32 30 30  29 2c 6f 62 6a 5f 79 28  |bj_x(200),obj_y(|
000004b0  32 30 30 29 0d 01 f4 0e  66 6f 6f 64 76 61 6c 3d  |200)....foodval=|
000004c0  35 30 0d 01 fe 0e 77 65  61 70 76 61 6c 3d 32 30  |50....weapval=20|
000004d0  0d 02 08 0d 74 65 6c 65  76 61 6c 3d 35 0d 02 12  |....televal=5...|
000004e0  0e 73 68 6c 64 76 61 6c  3d 31 30 0d 02 1c 0f 6e  |.shldval=10....n|
000004f0  75 6d 6f 66 6f 62 6a 73  3d 30 0d 02 26 0d 64 6f  |umofobjs=0..&.do|
00000500  64 72 6f 6e 65 3d 30 0d  02 30 05 e1 0d 02 3a 04  |drone=0..0....:.|
00000510  0d 02 44 0f dd 20 f2 69  6e 69 74 67 72 61 62 0d  |..D.. .initgrab.|
00000520  02 4e 20 67 24 3d 22 67  31 22 3a 67 67 24 3d 22  |.N g$="g1":gg$="|
00000530  67 32 22 3a 73 69 7a 65  25 3d 34 33 30 30 30 0d  |g2":size%=43000.|
00000540  02 58 20 de 20 67 72 61  62 25 20 73 69 7a 65 25  |.X . grab% size%|
00000550  2c 67 72 61 62 74 77 6f  25 20 73 69 7a 65 25 0d  |,grabtwo% size%.|
00000560  02 62 22 67 72 61 62 25  21 30 3d 73 69 7a 65 25  |.b"grab%!0=size%|
00000570  3a 67 72 61 62 74 77 6f  25 21 30 3d 73 69 7a 65  |:grabtwo%!0=size|
00000580  25 0d 02 6c 1c 67 72 61  62 25 21 38 3d 31 36 3a  |%..l.grab%!8=16:|
00000590  67 72 61 62 74 77 6f 25  21 38 3d 31 36 0d 02 76  |grabtwo%!8=16..v|
000005a0  14 c8 99 20 34 36 2c 26  31 30 39 2c 67 72 61 62  |... 46,&109,grab|
000005b0  25 0d 02 80 17 c8 99 20  34 36 2c 26 31 30 39 2c  |%...... 46,&109,|
000005c0  67 72 61 62 74 77 6f 25  0d 02 8a 1b 73 31 25 3d  |grabtwo%....s1%=|
000005d0  31 3a 73 32 25 3d 32 3a  73 33 25 3d 31 3a 73 34  |1:s2%=2:s3%=1:s4|
000005e0  25 3d 32 0d 02 94 18 77  69 64 74 68 25 3d 31 36  |%=2....width%=16|
000005f0  3a 77 69 64 74 68 32 25  3d 31 36 0d 02 9e 1a 68  |:width2%=16....h|
00000600  65 69 67 68 74 25 3d 31  36 3a 68 65 69 67 68 74  |eight%=16:height|
00000610  32 25 3d 31 36 0d 02 a8  05 e1 0d 02 b2 05 3a 0d  |2%=16.........:.|
00000620  02 bc 10 dd 20 f2 69 6e  69 74 66 61 64 65 72 0d  |.... .initfader.|
00000630  02 c6 1b f4 20 31 36 20  43 6f 6c 6f 75 72 20 6d  |.... 16 Colour m|
00000640  6f 64 65 20 66 61 64 65  72 2e 0d 02 d0 16 f4 20  |ode fader...... |
00000650  62 79 20 4d 61 74 74 68  65 77 20 45 64 67 61 72  |by Matthew Edgar|
00000660  0d 02 da 30 f4 20 28 63  29 20 54 68 65 20 4d 69  |...0. (c) The Mi|
00000670  63 72 6f 20 55 73 65 72  20 53 65 70 74 65 6d 62  |cro User Septemb|
00000680  65 72 2f 4e 6f 76 65 6d  62 65 72 20 31 39 39 30  |er/November 1990|
00000690  0d 02 e4 23 70 74 72 3d  31 3a 64 6f 6e 65 3d 33  |...#ptr=1:done=3|
000006a0  3a 73 69 78 74 65 65 6e  3d 34 3a 63 6f 6c 6f 75  |:sixteen=4:colou|
000006b0  72 3d 35 0d 02 ee 20 de  20 63 6f 64 65 25 20 32  |r=5... . code% 2|
000006c0  35 36 3a e3 20 70 61 73  73 3d 30 20 b8 20 32 20  |56:. pass=0 . 2 |
000006d0  88 20 32 0d 02 f8 16 50  25 3d 63 6f 64 65 25 3a  |. 2....P%=code%:|
000006e0  5b 4f 50 54 20 70 61 73  73 0d 03 02 09 2e 66 61  |[OPT pass.....fa|
000006f0  64 65 0d 03 0c 1a 53 54  4d 46 44 20 52 31 33 21  |de....STMFD R13!|
00000700  2c 7b 52 30 2d 52 35 2c  52 31 34 7d 0d 03 16 10  |,{R0-R5,R14}....|
00000710  4d 4f 56 20 64 6f 6e 65  2c 23 31 36 0d 03 20 13  |MOV done,#16.. .|
00000720  4d 4f 56 20 73 69 78 74  65 65 6e 2c 23 31 36 0d  |MOV sixteen,#16.|
00000730  03 2a 09 2e 77 61 69 74  0d 03 34 0e 4d 4f 56 20  |.*..wait..4.MOV |
00000740  52 30 2c 23 31 39 0d 03  3e 1b 53 57 49 20 22 4f  |R0,#19..>.SWI "O|
00000750  53 5f 42 79 74 65 22 20  5c 20 77 61 69 74 2e 2e  |S_Byte" \ wait..|
00000760  2e 0d 03 48 20 53 57 49  20 22 4f 53 5f 42 79 74  |...H SWI "OS_Byt|
00000770  65 22 20 5c 20 2e 2e 2e  61 6e 64 20 61 67 61 69  |e" \ ...and agai|
00000780  6e 0d 03 52 12 4d 4f 56  20 63 6f 6c 6f 75 72 2c  |n..R.MOV colour,|
00000790  23 31 35 0d 03 5c 10 41  44 52 20 70 74 72 2c 64  |#15..\.ADR ptr,d|
000007a0  61 74 61 0d 03 66 0f 2e  6e 65 78 74 63 6f 6c 6f  |ata..f..nextcolo|
000007b0  75 72 0d 03 70 15 53 54  52 42 20 63 6f 6c 6f 75  |ur..p.STRB colou|
000007c0  72 2c 5b 70 74 72 5d 0d  03 7a 0e 4d 4f 56 20 52  |r,[ptr]..z.MOV R|
000007d0  30 2c 23 31 31 0d 03 84  23 53 57 49 20 22 4f 53  |0,#11...#SWI "OS|
000007e0  5f 57 6f 72 64 22 20 20  20 20 5c 20 72 65 61 64  |_Word"    \ read|
000007f0  20 70 61 6c 65 74 74 65  0d 03 8e 08 2e 72 65 64  | palette.....red|
00000800  0d 03 98 24 4c 44 52 42  20 52 30 2c 5b 70 74 72  |...$LDRB R0,[ptr|
00000810  2c 23 32 5d 20 5c 20 63  75 72 72 65 6e 74 20 76  |,#2] \ current v|
00000820  61 6c 75 65 0d 03 a2 16  53 55 42 53 20 52 30 2c  |alue....SUBS R0,|
00000830  52 30 2c 73 69 78 74 65  65 6e 0d 03 ac 25 4d 4f  |R0,sixteen...%MO|
00000840  56 4d 49 20 52 30 2c 23  30 20 20 20 20 20 20 5c  |VMI R0,#0      \|
00000850  20 66 69 6e 64 20 6e 65  77 20 76 61 6c 75 65 0d  | find new value.|
00000860  03 b6 26 53 54 52 42 20  52 30 2c 5b 70 74 72 2c  |..&STRB R0,[ptr,|
00000870  23 32 5d 20 5c 20 73 74  6f 72 65 20 6e 65 77 20  |#2] \ store new |
00000880  76 61 6c 75 65 0d 03 c0  0a 2e 67 72 65 65 6e 0d  |value.....green.|
00000890  03 ca 24 4c 44 52 42 20  52 30 2c 5b 70 74 72 2c  |..$LDRB R0,[ptr,|
000008a0  23 33 5d 20 5c 20 63 75  72 72 65 6e 74 20 76 61  |#3] \ current va|
000008b0  6c 75 65 0d 03 d4 16 53  55 42 53 20 52 30 2c 52  |lue....SUBS R0,R|
000008c0  30 2c 73 69 78 74 65 65  6e 0d 03 de 25 4d 4f 56  |0,sixteen...%MOV|
000008d0  4d 49 20 52 30 2c 23 30  20 20 20 20 20 20 5c 20  |MI R0,#0      \ |
000008e0  66 69 6e 64 20 6e 65 77  20 76 61 6c 75 65 0d 03  |find new value..|
000008f0  e8 26 53 54 52 42 20 52  30 2c 5b 70 74 72 2c 23  |.&STRB R0,[ptr,#|
00000900  33 5d 20 5c 20 73 74 6f  72 65 20 6e 65 77 20 76  |3] \ store new v|
00000910  61 6c 75 65 0d 03 f2 09  2e 62 6c 75 65 0d 03 fc  |alue.....blue...|
00000920  24 4c 44 52 42 20 52 30  2c 5b 70 74 72 2c 23 34  |$LDRB R0,[ptr,#4|
00000930  5d 20 5c 20 63 75 72 72  65 6e 74 20 76 61 6c 75  |] \ current valu|
00000940  65 0d 04 06 16 53 55 42  53 20 52 30 2c 52 30 2c  |e....SUBS R0,R0,|
00000950  73 69 78 74 65 65 6e 0d  04 10 25 4d 4f 56 4d 49  |sixteen...%MOVMI|
00000960  20 52 30 2c 23 30 20 20  20 20 20 20 5c 20 66 69  | R0,#0      \ fi|
00000970  6e 64 20 6e 65 77 20 76  61 6c 75 65 0d 04 1a 26  |nd new value...&|
00000980  53 54 52 42 20 52 30 2c  5b 70 74 72 2c 23 34 5d  |STRB R0,[ptr,#4]|
00000990  20 5c 20 73 74 6f 72 65  20 6e 65 77 20 76 61 6c  | \ store new val|
000009a0  75 65 0d 04 24 39 53 54  52 42 20 73 69 78 74 65  |ue..$9STRB sixte|
000009b0  65 6e 2c 5b 70 74 72 2c  23 31 5d 20 5c 20 64 65  |en,[ptr,#1] \ de|
000009c0  66 69 6e 65 20 63 6f 6c  6f 75 72 20 66 72 6f 6d  |fine colour from|
000009d0  20 52 47 42 20 76 61 6c  75 65 73 0d 04 2e 0e 4d  | RGB values....M|
000009e0  4f 56 20 52 30 2c 23 31  32 0d 04 38 21 53 57 49  |OV R0,#12..8!SWI|
000009f0  20 22 4f 53 5f 57 6f 72  64 22 20 5c 20 77 72 69  | "OS_Word" \ wri|
00000a00  74 65 20 70 61 6c 65 74  74 65 0d 04 42 19 53 55  |te palette..B.SU|
00000a10  42 53 20 63 6f 6c 6f 75  72 2c 63 6f 6c 6f 75 72  |BS colour,colour|
00000a20  2c 23 31 0d 04 4c 12 42  47 45 20 6e 65 78 74 63  |,#1..L.BGE nextc|
00000a30  6f 6c 6f 75 72 0d 04 56  0d 42 4c 20 62 6f 72 64  |olour..V.BL bord|
00000a40  65 72 0d 04 60 15 53 55  42 53 20 64 6f 6e 65 2c  |er..`.SUBS done,|
00000a50  64 6f 6e 65 2c 23 31 0d  04 6a 0c 42 4e 45 20 77  |done,#1..j.BNE w|
00000a60  61 69 74 0d 04 74 21 4c  44 4d 46 44 20 52 31 33  |ait..t!LDMFD R13|
00000a70  21 2c 7b 52 30 2d 52 35  2c 50 43 7d 3a 2e 62 6f  |!,{R0-R5,PC}:.bo|
00000a80  72 64 65 72 0d 04 7e 25  53 54 4d 46 44 20 52 31  |rder..~%STMFD R1|
00000a90  33 21 2c 7b 52 30 2d 52  33 2c 52 31 34 7d 3a 4d  |3!,{R0-R3,R14}:M|
00000aa0  4f 56 20 52 30 2c 70 74  72 0d 04 88 1e 4d 4f 56  |OV R0,ptr....MOV|
00000ab0  20 52 31 2c 23 32 34 3a  53 54 52 42 20 52 31 2c  | R1,#24:STRB R1,|
00000ac0  5b 52 30 2c 23 31 5d 0d  04 92 22 53 57 49 20 22  |[R0,#1]..."SWI "|
00000ad0  4f 53 5f 52 65 61 64 50  61 6c 65 74 74 65 22 3a  |OS_ReadPalette":|
00000ae0  4d 4f 56 20 52 31 2c 23  32 0d 04 9c 1a 2e 6c 6f  |MOV R1,#2.....lo|
00000af0  6f 70 3a 4d 4f 56 20 52  32 2c 52 32 2c 52 4f 52  |op:MOV R2,R2,ROR|
00000b00  20 23 38 0d 04 a6 23 80  20 52 33 2c 52 32 2c 23  | #8...#. R3,R2,#|
00000b10  26 46 46 3a 53 55 42 53  20 52 33 2c 52 33 2c 73  |&FF:SUBS R3,R3,s|
00000b20  69 78 74 65 65 6e 0d 04  b0 1f 4d 4f 56 4d 49 20  |ixteen....MOVMI |
00000b30  52 33 2c 23 30 3a 53 54  52 42 20 52 33 2c 5b 52  |R3,#0:STRB R3,[R|
00000b40  30 2c 52 31 5d 0d 04 ba  23 41 44 44 20 52 31 2c  |0,R1]...#ADD R1,|
00000b50  52 31 2c 23 31 3a 43 4d  50 20 52 31 2c 23 35 3a  |R1,#1:CMP R1,#5:|
00000b60  42 4e 45 20 6c 6f 6f 70  0d 04 c4 19 4d 4f 56 20  |BNE loop....MOV |
00000b70  70 74 72 2c 52 30 3a 4d  4f 56 20 52 30 2c 23 31  |ptr,R0:MOV R0,#1|
00000b80  32 0d 04 ce 11 53 57 49  20 22 4f 53 5f 57 6f 72  |2....SWI "OS_Wor|
00000b90  64 22 0d 04 d8 19 4c 44  4d 46 44 20 52 31 33 21  |d"....LDMFD R13!|
00000ba0  2c 7b 52 30 2d 52 33 2c  50 43 7d 0d 04 e2 09 2e  |,{R0-R3,PC}.....|
00000bb0  64 61 74 61 0d 04 ec 11  45 51 55 44 20 30 3a 45  |data....EQUD 0:E|
00000bc0  51 55 44 20 30 0d 04 f6  07 5d 3a ed 0d 05 00 05  |QUD 0....]:.....|
00000bd0  e1 0d 05 0a 05 3a 0d 05  14 0c dd 20 f2 69 6e 74  |.....:..... .int|
00000be0  72 6f 0d 05 1e 1a f4 20  36 74 68 2d 37 74 68 20  |ro..... 6th-7th |
00000bf0  41 75 67 75 73 74 2c 20  31 39 39 34 0d 05 28 0b  |August, 1994..(.|
00000c00  73 6b 69 70 25 3d a3 0d  05 32 3d c8 99 20 22 4f  |skip%=...2=.. "O|
00000c10  53 5f 46 69 6c 65 22 2c  35 2c 22 43 61 76 65 6e  |S_File",5,"Caven|
00000c20  44 75 65 6c 3a 47 72 61  70 68 69 63 73 2e 49 6e  |Duel:Graphics.In|
00000c30  74 72 6f 53 70 72 73 22  20 b8 20 2c 2c 2c 2c 72  |troSprs" . ,,,,r|
00000c40  6f 6f 6d 25 0d 05 3c 17  de 20 73 70 72 69 74 65  |oom%..<.. sprite|
00000c50  73 25 20 72 6f 6f 6d 25  2b 33 32 0d 05 46 16 21  |s% room%+32..F.!|
00000c60  73 70 72 69 74 65 73 25  3d 72 6f 6f 6d 25 2b 33  |sprites%=room%+3|
00000c70  32 0d 05 50 10 73 70 72  69 74 65 73 25 21 34 3d  |2..P.sprites%!4=|
00000c80  30 0d 05 5a 11 73 70 72  69 74 65 73 25 21 38 3d  |0..Z.sprites%!8=|
00000c90  31 36 0d 05 64 12 73 70  72 69 74 65 73 25 21 31  |16..d.sprites%!1|
00000ca0  32 3d 31 36 0d 05 6e 36  c8 99 20 34 36 2c 26 31  |2=16..n6.. 46,&1|
00000cb0  30 41 2c 73 70 72 69 74  65 73 25 2c 22 43 61 76  |0A,sprites%,"Cav|
00000cc0  65 6e 44 75 65 6c 3a 47  72 61 70 68 69 63 73 2e  |enDuel:Graphics.|
00000cd0  49 6e 74 72 6f 53 70 72  73 22 0d 05 78 16 c8 99  |IntroSprs"..x...|
00000ce0  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  | "Hourglass_Off"|
00000cf0  0d 05 82 08 c8 97 20 87  0d 05 8c 25 c8 99 20 34  |...... ....%.. 4|
00000d00  36 2c 26 31 32 32 2c 73  70 72 69 74 65 73 25 2c  |6,&122,sprites%,|
00000d10  22 74 69 74 6c 65 22 2c  30 2c 30 2c 30 0d 05 96  |"title",0,0,0...|
00000d20  0e fb 31 33 35 3a fb 31  31 3a 87 0d 05 a0 50 f1  |..135:.11:....P.|
00000d30  20 8a 37 2c 33 30 29 22  46 75 6c 6c 20 56 65 72  | .7,30)"Full Ver|
00000d40  73 69 6f 6e 20 31 2e 32  32 20 28 34 74 68 20 44  |sion 1.22 (4th D|
00000d50  65 63 65 6d 62 65 72 2c  20 31 39 39 37 29 20 52  |ecember, 1997) R|
00000d60  65 6c 65 61 73 65 64 20  35 74 68 20 44 65 63 65  |eleased 5th Dece|
00000d70  6d 62 65 72 2c 20 31 39  39 37 22 0d 05 aa 2f f2  |mber, 1997".../.|
00000d80  6c 6f 61 64 73 70 72 69  74 65 73 28 22 43 61 76  |loadsprites("Cav|
00000d90  65 6e 44 75 65 6c 3a 47  72 61 70 68 69 63 73 2e  |enDuel:Graphics.|
00000da0  47 61 6d 65 53 70 72 73  22 29 0d 05 b4 1f f2 6c  |GameSprs").....l|
00000db0  6f 61 64 73 63 72 65 65  6e 73 28 22 3c 47 61 6d  |oadscreens("<Gam|
00000dc0  65 24 50 61 74 68 3e 22  29 0d 05 be 1b c8 a0 20  |e$Path>")...... |
00000dd0  38 3a d6 20 66 61 64 65  3a f2 63 6c 65 61 72 62  |8:. fade:.clearb|
00000de0  61 6e 6b 73 0d 05 c8 05  e1 0d 05 d2 05 3a 0d 05  |anks.........:..|
00000df0  dc 0e dd 20 f2 77 61 69  74 28 54 29 0d 05 e6 0e  |... .wait(T)....|
00000e00  ea 20 78 25 2c 79 25 2c  62 25 0d 05 f0 07 4d 3d  |. x%,y%,b%....M=|
00000e10  a3 0d 05 fa 08 54 25 3d  91 0d 06 04 11 f5 20 c8  |.....T%=...... .|
00000e20  97 20 78 25 2c 79 25 2c  62 25 0d 06 0e 12 e7 20  |. x%,y%,b%..... |
00000e30  62 25 3c 3e 30 73 6b 69  70 25 3d b9 0d 06 18 13  |b%<>0skip%=.....|
00000e40  fd 20 91 3e 54 25 2b 54  20 84 73 6b 69 70 25 0d  |. .>T%+T .skip%.|
00000e50  06 22 05 e1 0d 06 2c 05  3a 0d 06 36 2f dd 20 f2  |."....,.:..6/. .|
00000e60  70 61 6c 65 74 74 65 28  70 61 6c 24 29 3a c8 99  |palette(pal$):..|
00000e70  20 22 58 4f 53 5f 43 4c  49 22 2c 22 52 75 6e 20  | "XOS_CLI","Run |
00000e80  22 2b 70 61 6c 24 3a e1  0d 06 40 05 3a 0d 06 4a  |"+pal$:...@.:..J|
00000e90  1d dd 20 f2 6c 6f 61 64  73 63 72 65 65 6e 73 28  |.. .loadscreens(|
00000ea0  66 69 6c 65 6e 61 6d 65  24 29 0d 06 54 31 6e 75  |filename$)..T1nu|
00000eb0  6d 6f 66 6f 62 6a 73 3d  30 3a 78 3d 30 3a 79 3d  |mofobjs=0:x=0:y=|
00000ec0  31 35 3a 73 63 72 78 3d  30 3a 73 63 72 79 3d 30  |15:scrx=0:scry=0|
00000ed0  3a 74 65 6c 65 6e 75 6d  25 3d 30 0d 06 5e 1d 63  |:telenum%=0..^.c|
00000ee0  68 61 6e 6e 65 6c 3d 8e  20 66 69 6c 65 6e 61 6d  |hannel=. filenam|
00000ef0  65 24 3a 61 24 3d 22 22  0d 06 68 13 61 24 3d bd  |e$:a$=""..h.a$=.|
00000f00  28 9a 23 63 68 61 6e 6e  65 6c 29 0d 06 72 05 f5  |(.#channel)..r..|
00000f10  0d 06 7c 08 79 3d 31 35  0d 06 86 1e f5 3a e7 20  |..|.y=15.....:. |
00000f20  64 6f 64 72 6f 6e 65 3d  31 20 8c 20 f2 64 72 6f  |dodrone=1 . .dro|
00000f30  6e 65 6e 69 6e 67 0d 06  90 13 61 24 3d bd 28 9a  |nening....a$=.(.|
00000f40  23 63 68 61 6e 6e 65 6c  29 0d 06 9a 0b c8 8e 20  |#channel)...... |
00000f50  61 24 20 ca 0d 06 a4 11  c9 20 22 41 22 3a 61 24  |a$ ...... "A":a$|
00000f60  3d 22 31 32 22 0d 06 ae  11 c9 20 22 42 22 3a 61  |="12"..... "B":a|
00000f70  24 3d 22 31 31 22 0d 06  b8 11 c9 20 22 43 22 3a  |$="11"..... "C":|
00000f80  61 24 3d 22 31 30 22 0d  06 c2 11 c9 20 22 44 22  |a$="10"..... "D"|
00000f90  3a 61 24 3d 22 31 33 22  0d 06 cc 11 c9 20 22 45  |:a$="13"..... "E|
00000fa0  22 3a 61 24 3d 22 31 34  22 0d 06 d6 11 c9 20 22  |":a$="14"..... "|
00000fb0  46 22 3a 61 24 3d 22 31  35 22 0d 06 e0 11 c9 20  |F":a$="15"..... |
00000fc0  22 47 22 3a 61 24 3d 22  31 36 22 0d 06 ea 11 c9  |"G":a$="16".....|
00000fd0  20 22 48 22 3a 61 24 3d  22 31 39 22 0d 06 f4 8c  | "H":a$="19"....|
00000fe0  c9 20 22 50 22 3a 73 63  72 65 65 6e 78 28 31 29  |. "P":screenx(1)|
00000ff0  3d 73 63 72 78 3a 73 63  72 65 65 6e 79 28 31 29  |=scrx:screeny(1)|
00001000  3d 73 63 72 79 3a 59 4f  55 58 28 31 29 3d 78 3a  |=scry:YOUX(1)=x:|
00001010  59 4f 55 59 28 31 29 3d  79 3a 72 65 6d 65 6d 31  |YOUY(1)=y:remem1|
00001020  73 78 3d 73 63 72 65 65  6e 78 28 31 29 3a 72 65  |sx=screenx(1):re|
00001030  6d 65 6d 31 73 79 3d 73  63 72 65 65 6e 79 28 31  |mem1sy=screeny(1|
00001040  29 3a 72 65 6d 65 6d 31  78 3d 59 4f 55 58 28 31  |):remem1x=YOUX(1|
00001050  29 3a 72 65 6d 65 6d 31  79 3d 59 4f 55 59 28 31  |):remem1y=YOUY(1|
00001060  29 3a 61 24 3d 22 30 22  0d 06 fe 94 c9 20 22 51  |):a$="0"..... "Q|
00001070  22 3a 73 63 72 65 65 6e  78 28 32 29 3d 73 63 72  |":screenx(2)=scr|
00001080  78 3a 73 63 72 65 65 6e  79 28 32 29 3d 73 63 72  |x:screeny(2)=scr|
00001090  79 3a 59 4f 55 58 28 32  29 3d 78 3a 59 4f 55 59  |y:YOUX(2)=x:YOUY|
000010a0  28 32 29 3d 79 3a 72 65  6d 65 6d 64 6f 73 73 78  |(2)=y:rememdossx|
000010b0  3d 73 63 72 65 65 6e 78  28 32 29 3a 72 65 6d 65  |=screenx(2):reme|
000010c0  6d 64 6f 73 73 79 3d 73  63 72 65 65 6e 79 28 32  |mdossy=screeny(2|
000010d0  29 3a 72 65 6d 65 6d 64  6f 73 78 3d 59 4f 55 58  |):rememdosx=YOUX|
000010e0  28 32 29 3a 72 65 6d 65  6d 64 6f 73 79 3d 59 4f  |(2):rememdosy=YO|
000010f0  55 59 28 32 29 3a 61 24  3d 22 30 22 0d 07 08 05  |UY(2):a$="0"....|
00001100  cb 0d 07 12 81 73 63 72  65 65 6e 24 28 73 63 72  |.....screen$(scr|
00001110  78 2c 73 63 72 79 2c 78  2c 79 29 3d 61 24 3a f4  |x,scry,x,y)=a$:.|
00001120  20 56 44 55 35 3a 50 52  4f 43 73 68 61 64 6f 77  | VDU5:PROCshadow|
00001130  28 22 4d 61 70 20 28 22  2b 53 54 52 24 28 73 63  |("Map ("+STR$(sc|
00001140  72 78 29 2b 22 2c 22 2b  53 54 52 24 28 73 63 72  |rx)+","+STR$(scr|
00001150  79 29 2b 22 2c 22 2b 53  54 52 24 28 78 29 2b 22  |y)+","+STR$(x)+"|
00001160  2c 22 2b 53 54 52 24 28  79 29 2b 22 29 22 2c 31  |,"+STR$(y)+")",1|
00001170  32 2a 33 32 2c 37 30 2c  31 34 2c 38 29 3a 56 44  |2*32,70,14,8):VD|
00001180  55 34 0d 07 1c 0b c8 8e  20 61 24 20 ca 0d 07 26  |U4...... a$ ...&|
00001190  2c c9 20 22 37 22 20 3a  74 65 6c 65 6e 75 6d 25  |,. "7" :telenum%|
000011a0  3d 74 65 6c 65 6e 75 6d  25 2b 31 3a f2 72 65 61  |=telenum%+1:.rea|
000011b0  64 74 65 6c 65 70 6f 72  74 0d 07 30 3b c9 20 22  |dteleport..0;. "|
000011c0  31 30 22 2c 22 31 31 22  2c 22 31 32 22 2c 22 31  |10","11","12","1|
000011d0  33 22 2c 22 31 34 22 2c  22 31 35 22 3a 6e 75 6d  |3","14","15":num|
000011e0  6f 66 6f 62 6a 73 2b 3d  31 3a f2 72 65 6d 6f 62  |ofobjs+=1:.remob|
000011f0  6a 65 63 74 0d 07 3a 05  cb 0d 07 44 1a 78 2b 3d  |ject..:....D.x+=|
00001200  31 3a e7 20 78 3e 31 35  20 8c 20 78 3d 30 3a 79  |1:. x>15 . x=0:y|
00001210  2d 3d 31 0d 07 4e 09 fd  20 79 3c 30 0d 07 58 13  |-=1..N.. y<0..X.|
00001220  61 24 3d bd 28 9a 23 63  68 61 6e 6e 65 6c 29 0d  |a$=.(.#channel).|
00001230  07 62 1d e7 20 61 24 3c  3e 22 2d 22 20 8c 20 ff  |.b.. a$<>"-" . .|
00001240  22 43 6c 6f 73 65 22 3a  ef 37 3a e0 0d 07 6c 25  |"Close":.7:...l%|
00001250  73 63 72 79 2b 3d 31 3a  e7 20 73 63 72 79 3e 33  |scry+=1:. scry>3|
00001260  20 8c 20 73 63 72 79 3d  30 3a 73 63 72 78 2b 3d  | . scry=0:scrx+=|
00001270  31 0d 07 76 0c fd 20 73  63 72 78 3e 37 0d 07 80  |1..v.. scrx>7...|
00001280  18 c8 99 20 22 58 4f 53  5f 43 4c 49 22 2c 22 43  |... "XOS_CLI","C|
00001290  6c 6f 73 65 22 0d 07 8a  05 e1 0d 07 94 05 3a 0d  |lose".........:.|
000012a0  07 9e 13 dd 20 f2 72 65  61 64 74 65 6c 65 70 6f  |.... .readtelepo|
000012b0  72 74 0d 07 a8 15 e7 20  74 65 6c 65 6e 75 6d 25  |rt..... telenum%|
000012c0  3e 32 30 20 8c 20 e1 0d  07 b2 25 74 31 24 3d bd  |>20 . ....%t1$=.|
000012d0  28 9a 23 63 68 61 6e 6e  65 6c 29 3a 74 32 24 3d  |(.#channel):t2$=|
000012e0  bd 28 9a 23 63 68 61 6e  6e 65 6c 29 0d 07 bc 25  |.(.#channel)...%|
000012f0  74 33 24 3d bd 28 9a 23  63 68 61 6e 6e 65 6c 29  |t3$=.(.#channel)|
00001300  3a 74 34 24 3d bd 28 9a  23 63 68 61 6e 6e 65 6c  |:t4$=.(.#channel|
00001310  29 0d 07 c6 3f 74 65 6c  65 74 6f 73 63 78 28 74  |)...?teletoscx(t|
00001320  65 6c 65 6e 75 6d 25 29  3d 97 28 74 31 24 29 2d  |elenum%)=.(t1$)-|
00001330  36 35 3a 74 65 6c 65 74  6f 73 63 79 28 74 65 6c  |65:teletoscy(tel|
00001340  65 6e 75 6d 25 29 3d 97  28 74 32 24 29 2d 36 35  |enum%)=.(t2$)-65|
00001350  0d 07 d0 3b 74 65 6c 65  74 6f 78 28 74 65 6c 65  |...;teletox(tele|
00001360  6e 75 6d 25 29 3d 97 28  74 33 24 29 2d 36 35 3a  |num%)=.(t3$)-65:|
00001370  74 65 6c 65 74 6f 79 28  74 65 6c 65 6e 75 6d 25  |teletoy(telenum%|
00001380  29 3d 97 28 74 34 24 29  2d 36 35 0d 07 da 2b 74  |)=.(t4$)-65...+t|
00001390  73 63 78 28 74 65 6c 65  6e 75 6d 25 29 3d 73 63  |scx(telenum%)=sc|
000013a0  72 78 3a 74 73 63 79 28  74 65 6c 65 6e 75 6d 25  |rx:tscy(telenum%|
000013b0  29 3d 73 63 72 79 0d 07  e4 21 74 78 28 74 65 6c  |)=scry...!tx(tel|
000013c0  65 6e 75 6d 25 29 3d 78  3a 74 79 28 74 65 6c 65  |enum%)=x:ty(tele|
000013d0  6e 75 6d 25 29 3d 79 0d  07 ee 05 e1 0d 07 f8 05  |num%)=y.........|
000013e0  3a 0d 08 02 10 dd 20 f2  72 65 6d 6f 62 6a 65 63  |:..... .remobjec|
000013f0  74 0d 08 0c 1a e7 20 6e  75 6d 6f 66 6f 62 6a 73  |t..... numofobjs|
00001400  3e 32 30 30 20 8c 20 ef  37 3a e1 0d 08 16 1c 6f  |>200 . .7:.....o|
00001410  62 6a 5f 72 65 6d 65 6d  24 28 6e 75 6d 6f 66 6f  |bj_remem$(numofo|
00001420  62 6a 73 29 3d 61 24 0d  08 20 33 6f 62 6a 5f 73  |bjs)=a$.. 3obj_s|
00001430  63 78 28 6e 75 6d 6f 66  6f 62 6a 73 29 3d 73 63  |cx(numofobjs)=sc|
00001440  72 78 3a 6f 62 6a 5f 73  63 79 28 6e 75 6d 6f 66  |rx:obj_scy(numof|
00001450  6f 62 6a 73 29 3d 73 63  72 79 0d 08 2a 29 6f 62  |objs)=scry..*)ob|
00001460  6a 5f 78 28 6e 75 6d 6f  66 6f 62 6a 73 29 3d 78  |j_x(numofobjs)=x|
00001470  3a 6f 62 6a 5f 79 28 6e  75 6d 6f 66 6f 62 6a 73  |:obj_y(numofobjs|
00001480  29 3d 79 0d 08 34 05 e1  0d 08 3e 05 3a 0d 08 48  |)=y..4....>.:..H|
00001490  16 dd 20 f2 6c 6f 61 64  73 70 72 69 74 65 73 28  |.. .loadsprites(|
000014a0  53 24 29 0d 08 52 21 c8  99 20 22 4f 53 5f 46 69  |S$)..R!.. "OS_Fi|
000014b0  6c 65 22 2c 35 2c 53 24  20 b8 20 2c 2c 2c 2c 73  |le",5,S$ . ,,,,s|
000014c0  69 7a 65 25 0d 08 5c 14  de 20 61 72 65 61 25 20  |ize%..\.. area% |
000014d0  73 69 7a 65 25 2b 33 32  0d 08 66 35 61 72 65 61  |size%+32..f5area|
000014e0  25 21 30 3d 73 69 7a 65  25 2b 33 32 3a 61 72 65  |%!0=size%+32:are|
000014f0  61 25 21 34 3d 30 3a 61  72 65 61 25 21 38 3d 31  |a%!4=0:area%!8=1|
00001500  36 3a 61 72 65 61 25 21  31 32 3d 31 36 0d 08 70  |6:area%!12=16..p|
00001510  14 c8 99 20 34 36 2c 26  31 30 39 2c 61 72 65 61  |... 46,&109,area|
00001520  25 0d 08 7a 17 c8 99 20  34 36 2c 26 31 30 41 2c  |%..z... 46,&10A,|
00001530  61 72 65 61 25 2c 53 24  0d 08 84 0c de 20 42 25  |area%,S$..... B%|
00001540  28 32 36 29 0d 08 8e 19  f2 73 65 74 28 22 30 22  |(26).....set("0"|
00001550  2c 42 25 28 30 29 2c 68  25 2c 77 25 29 0d 08 98  |,B%(0),h%,w%)...|
00001560  19 f2 73 65 74 28 22 31  22 2c 42 25 28 31 29 2c  |..set("1",B%(1),|
00001570  68 25 2c 77 25 29 0d 08  a2 19 f2 73 65 74 28 22  |h%,w%).....set("|
00001580  32 22 2c 42 25 28 32 29  2c 68 25 2c 77 25 29 0d  |2",B%(2),h%,w%).|
00001590  08 ac 19 f2 73 65 74 28  22 33 22 2c 42 25 28 33  |....set("3",B%(3|
000015a0  29 2c 68 25 2c 77 25 29  0d 08 b6 19 f2 73 65 74  |),h%,w%).....set|
000015b0  28 22 35 22 2c 42 25 28  35 29 2c 68 25 2c 77 25  |("5",B%(5),h%,w%|
000015c0  29 0d 08 c0 19 f2 73 65  74 28 22 36 22 2c 42 25  |).....set("6",B%|
000015d0  28 36 29 2c 68 25 2c 77  25 29 0d 08 ca 19 f2 73  |(6),h%,w%).....s|
000015e0  65 74 28 22 37 22 2c 42  25 28 37 29 2c 68 25 2c  |et("7",B%(7),h%,|
000015f0  77 25 29 0d 08 d4 19 f2  73 65 74 28 22 38 22 2c  |w%).....set("8",|
00001600  42 25 28 38 29 2c 68 25  2c 77 25 29 0d 08 de 19  |B%(8),h%,w%)....|
00001610  f2 73 65 74 28 22 39 22  2c 42 25 28 39 29 2c 68  |.set("9",B%(9),h|
00001620  25 2c 77 25 29 0d 08 e8  1b f2 73 65 74 28 22 31  |%,w%).....set("1|
00001630  30 22 2c 42 25 28 31 30  29 2c 68 25 2c 77 25 29  |0",B%(10),h%,w%)|
00001640  0d 08 f2 1b f2 73 65 74  28 22 31 31 22 2c 42 25  |.....set("11",B%|
00001650  28 31 31 29 2c 68 25 2c  77 25 29 0d 08 fc 1b f2  |(11),h%,w%).....|
00001660  73 65 74 28 22 31 32 22  2c 42 25 28 31 32 29 2c  |set("12",B%(12),|
00001670  68 25 2c 77 25 29 0d 09  06 1b f2 73 65 74 28 22  |h%,w%).....set("|
00001680  31 33 22 2c 42 25 28 31  33 29 2c 68 25 2c 77 25  |13",B%(13),h%,w%|
00001690  29 0d 09 10 1b f2 73 65  74 28 22 31 34 22 2c 42  |).....set("14",B|
000016a0  25 28 31 34 29 2c 68 25  2c 77 25 29 0d 09 1a 1b  |%(14),h%,w%)....|
000016b0  f2 73 65 74 28 22 31 35  22 2c 42 25 28 31 35 29  |.set("15",B%(15)|
000016c0  2c 68 25 2c 77 25 29 0d  09 24 1b f2 73 65 74 28  |,h%,w%)..$..set(|
000016d0  22 31 36 22 2c 42 25 28  31 36 29 2c 68 25 2c 77  |"16",B%(16),h%,w|
000016e0  25 29 0d 09 2e 1b f2 73  65 74 28 22 31 39 22 2c  |%).....set("19",|
000016f0  42 25 28 31 39 29 2c 68  25 2c 77 25 29 0d 09 38  |B%(19),h%,w%)..8|
00001700  1d f2 73 65 74 28 22 77  65 70 30 22 2c 42 25 28  |..set("wep0",B%(|
00001710  32 30 29 2c 68 25 2c 77  25 29 0d 09 42 1d f2 73  |20),h%,w%)..B..s|
00001720  65 74 28 22 77 65 70 31  22 2c 42 25 28 32 31 29  |et("wep1",B%(21)|
00001730  2c 68 25 2c 77 25 29 0d  09 4c 1d f2 73 65 74 28  |,h%,w%)..L..set(|
00001740  22 77 65 70 32 22 2c 42  25 28 32 32 29 2c 68 25  |"wep2",B%(22),h%|
00001750  2c 77 25 29 0d 09 56 1d  f2 73 65 74 28 22 77 65  |,w%)..V..set("we|
00001760  70 33 22 2c 42 25 28 32  33 29 2c 68 25 2c 77 25  |p3",B%(23),h%,w%|
00001770  29 0d 09 60 1d f2 73 65  74 28 22 77 65 70 34 22  |)..`..set("wep4"|
00001780  2c 42 25 28 32 34 29 2c  68 25 2c 77 25 29 0d 09  |,B%(24),h%,w%)..|
00001790  6a 1b f2 73 65 74 28 22  34 30 22 2c 42 25 28 31  |j..set("40",B%(1|
000017a0  37 29 2c 68 25 2c 77 25  29 0d 09 74 1b f2 73 65  |7),h%,w%)..t..se|
000017b0  74 28 22 34 31 22 2c 42  25 28 31 38 29 2c 68 25  |t("41",B%(18),h%|
000017c0  2c 77 25 29 0d 09 7e 05  e1 0d 09 88 05 3a 0d 09  |,w%)..~......:..|
000017d0  92 2f dd 20 f2 73 65 74  28 73 74 72 69 6e 67 24  |./. .set(string$|
000017e0  2c f8 20 76 61 6c 75 65  25 2c f8 20 77 69 64 74  |,. value%,. widt|
000017f0  68 25 2c f8 20 68 65 69  67 68 74 25 29 0d 09 9c  |h%,. height%)...|
00001800  52 c8 99 20 34 36 2c 26  31 31 38 2c 61 72 65 61  |R.. 46,&118,area|
00001810  25 2c 73 74 72 69 6e 67  24 20 b8 2c 2c 76 61 6c  |%,string$ .,,val|
00001820  75 65 25 3a c8 99 20 34  36 2c 26 31 32 38 2c 61  |ue%:.. 46,&128,a|
00001830  72 65 61 25 2c 73 74 72  69 6e 67 24 20 b8 2c 2c  |rea%,string$ .,,|
00001840  2c 77 69 64 74 68 25 2c  68 65 69 67 68 74 25 0d  |,width%,height%.|
00001850  09 a6 05 e1 0d 09 b0 05  3a 0d 09 ba 0b dd 20 f2  |........:..... .|
00001860  6d 65 6e 75 0d 09 c4 1b  e3 20 49 25 3d 31 b8 31  |menu..... I%=1.1|
00001870  35 3a ef 31 39 2c 49 25  2c 30 3b 30 3b 3a ed 0d  |5:.19,I%,0;0;:..|
00001880  09 ce 0c 64 72 6f 6e 65  25 3d 30 0d 09 d8 23 64  |...drone%=0...#d|
00001890  6f 6e 65 31 3d 30 3a 64  6f 6e 65 32 3d 30 3a 64  |one1=0:done2=0:d|
000018a0  6f 6e 65 33 3d 30 3a 64  6f 6e 65 34 3d 30 0d 09  |one3=0:done4=0..|
000018b0  e2 2f 21 73 63 61 6c 65  25 3d 31 3a 73 63 61 6c  |./!scale%=1:scal|
000018c0  65 25 21 34 3d 31 3a 73  63 61 6c 65 25 21 38 3d  |e%!4=1:scale%!8=|
000018d0  31 3a 73 63 61 6c 65 25  21 31 32 3d 31 0d 09 ec  |1:scale%!12=1...|
000018e0  09 65 6e 64 3d a3 0d 09  f6 0a 73 74 65 70 3d 31  |.end=.....step=1|
000018f0  0d 0a 00 0c 73 63 72 65  65 6e 3d 31 0d 0a 0a 35  |....screen=1...5|
00001900  f4 20 53 59 53 20 36 2c  31 31 32 2c 73 63 72 65  |. SYS 6,112,scre|
00001910  65 6e 3a 43 4f 4c 4f 55  52 31 33 35 3a 43 4c 53  |en:COLOUR135:CLS|
00001920  3a 53 59 53 20 36 2c 31  31 33 2c 73 63 72 65 65  |:SYS 6,113,scree|
00001930  6e 0d 0a 14 0e f2 64 72  61 77 74 69 74 6c 65 0d  |n.....drawtitle.|
00001940  0a 1e 10 f2 64 72 61 77  6b 6e 69 67 68 74 73 0d  |....drawknights.|
00001950  0a 28 0d f2 64 72 61 77  6b 65 79 73 0d 0a 32 0e  |.(..drawkeys..2.|
00001960  f2 64 72 61 77 62 6f 78  65 73 0d 0a 3c 28 c8 99  |.drawboxes..<(..|
00001970  26 32 45 2c 33 36 2b 32  35 36 2c 61 72 65 61 25  |&2E,36+256,area%|
00001980  2c 22 70 74 72 5f 73 77  6f 72 64 22 2c 31 2c 30  |,"ptr_sword",1,0|
00001990  2c 30 0d 0a 46 2b f2 70  61 6c 65 74 74 65 28 22  |,0..F+.palette("|
000019a0  43 61 76 65 6e 44 75 65  6c 3a 50 61 6c 65 74 74  |CavenDuel:Palett|
000019b0  65 73 2e 21 50 61 6c 65  74 74 65 22 29 0d 0a 50  |es.!Palette")..P|
000019c0  06 ef 35 0d 0a 5a 0a c8  97 20 ee 3a 87 0d 0a 64  |..5..Z... .:...d|
000019d0  05 e1 0d 0a 6e 05 3a 0d  0a 78 10 dd 20 f2 64 72  |....n.:..x.. .dr|
000019e0  61 77 74 69 74 6c 65 0d  0a 82 18 21 73 63 61 6c  |awtitle....!scal|
000019f0  65 25 3d 36 3a 73 63 61  6c 65 25 21 34 3d 32 0d  |e%=6:scale%!4=2.|
00001a00  0a 8c 1a 73 63 61 6c 65  25 21 38 3d 32 3a 73 63  |...scale%!8=2:sc|
00001a10  61 6c 65 25 21 31 32 3d  32 0d 0a 96 2b c8 99 20  |ale%!12=2...+.. |
00001a20  34 36 2c 26 31 33 34 2c  61 72 65 61 25 2c 22 77  |46,&134,area%,"w|
00001a30  6f 72 64 73 22 2c 30 2c  39 34 30 2c 30 2c 73 63  |ords",0,940,0,sc|
00001a40  61 6c 65 25 0d 0a a0 05  e1 0d 0a aa 05 3a 0d 0a  |ale%.........:..|
00001a50  b4 12 dd 20 f2 64 72 61  77 6b 6e 69 67 68 74 73  |... .drawknights|
00001a60  0d 0a be 23 21 73 63 61  6c 65 25 3d 34 3a 73 63  |...#!scale%=4:sc|
00001a70  61 6c 65 25 21 34 3d 34  3a 73 63 61 6c 65 25 21  |ale%!4=4:scale%!|
00001a80  38 3d 33 0d 0a c8 37 73  63 61 6c 65 25 21 31 32  |8=3...7scale%!12|
00001a90  3d 33 3a c8 99 20 34 36  2c 26 31 33 34 2c 61 72  |=3:.. 46,&134,ar|
00001aa0  65 61 25 2c 22 72 65 64  22 2c 39 30 30 2c 34 35  |ea%,"red",900,45|
00001ab0  30 2c 30 2c 73 63 61 6c  65 25 0d 0a d2 2d c8 99  |0,0,scale%...-..|
00001ac0  20 34 36 2c 26 31 33 34  2c 61 72 65 61 25 2c 22  | 46,&134,area%,"|
00001ad0  67 72 65 65 6e 22 2c 31  30 30 2c 34 35 30 2c 30  |green",100,450,0|
00001ae0  2c 73 63 61 6c 65 25 0d  0a dc 05 e1 0d 0a e6 05  |,scale%.........|
00001af0  3a 0d 0a f0 0f dd 20 f2  64 72 61 77 6b 65 79 73  |:..... .drawkeys|
00001b00  0d 0a fa 12 ef 35 3a f2  73 69 7a 65 28 31 36 2c  |.....5:.size(16,|
00001b10  38 29 0d 0b 04 21 f2 73  68 61 64 6f 77 28 22 4b  |8)...!.shadow("K|
00001b20  45 59 53 22 2c 31 38 2a  33 32 2c 34 33 30 2c 31  |EYS",18*32,430,1|
00001b30  2c 38 29 0d 0b 0e 23 f2  73 68 61 64 6f 77 28 22  |,8)...#.shadow("|
00001b40  50 6c 61 79 65 72 20 31  22 2c 31 30 30 2c 34 32  |Player 1",100,42|
00001b50  30 2c 31 2c 38 29 0d 0b  18 2e f2 73 68 61 64 6f  |0,1,8).....shado|
00001b60  77 28 22 50 6c 61 79 65  72 20 32 22 2c 39 30 30  |w("Player 2",900|
00001b70  2c 34 32 30 2c 31 2c 38  29 3a f2 73 69 7a 65 28  |,420,1,8):.size(|
00001b80  38 2c 38 29 0d 0b 22 24  f2 73 68 61 64 6f 77 28  |8,8).."$.shadow(|
00001b90  22 5a 20 2d 20 4c 65 66  74 22 2c 31 36 34 2c 33  |"Z - Left",164,3|
00001ba0  38 30 2c 31 30 2c 34 29  0d 0b 2c 25 f2 73 68 61  |80,10,4)..,%.sha|
00001bb0  64 6f 77 28 22 58 20 2d  20 52 69 67 68 74 22 2c  |dow("X - Right",|
00001bc0  31 36 34 2c 33 34 38 2c  31 30 2c 34 29 0d 0b 36  |164,348,10,4)..6|
00001bd0  22 f2 73 68 61 64 6f 77  28 22 46 20 2d 20 55 70  |".shadow("F - Up|
00001be0  22 2c 31 36 34 2c 33 31  36 2c 31 30 2c 34 29 0d  |",164,316,10,4).|
00001bf0  0b 40 24 f2 73 68 61 64  6f 77 28 22 43 20 2d 20  |.@$.shadow("C - |
00001c00  44 6f 77 6e 22 2c 31 36  34 2c 32 38 34 2c 31 30  |Down",164,284,10|
00001c10  2c 34 29 0d 0b 4a 24 f2  73 68 61 64 6f 77 28 22  |,4)..J$.shadow("|
00001c20  47 20 2d 20 46 69 72 65  22 2c 31 36 34 2c 32 35  |G - Fire",164,25|
00001c30  32 2c 31 30 2c 34 29 0d  0b 54 2b f2 73 68 61 64  |2,10,4)..T+.shad|
00001c40  6f 77 28 22 4b 65 79 70  61 64 20 31 20 2d 20 4c  |ow("Keypad 1 - L|
00001c50  65 66 74 22 2c 39 30 30  2c 33 38 30 2c 31 31 2c  |eft",900,380,11,|
00001c60  34 29 0d 0b 5e 2c f2 73  68 61 64 6f 77 28 22 4b  |4)..^,.shadow("K|
00001c70  65 79 70 61 64 20 32 20  2d 20 52 69 67 68 74 22  |eypad 2 - Right"|
00001c80  2c 39 30 30 2c 33 34 38  2c 31 31 2c 34 29 0d 0b  |,900,348,11,4)..|
00001c90  68 29 f2 73 68 61 64 6f  77 28 22 4b 65 79 70 61  |h).shadow("Keypa|
00001ca0  64 20 36 20 2d 20 55 70  22 2c 39 30 30 2c 33 31  |d 6 - Up",900,31|
00001cb0  36 2c 31 31 2c 34 29 0d  0b 72 2b f2 73 68 61 64  |6,11,4)..r+.shad|
00001cc0  6f 77 28 22 4b 65 79 70  61 64 20 33 20 2d 20 44  |ow("Keypad 3 - D|
00001cd0  6f 77 6e 22 2c 39 30 30  2c 32 38 34 2c 31 31 2c  |own",900,284,11,|
00001ce0  34 29 0d 0b 7c 2b f2 73  68 61 64 6f 77 28 22 4b  |4)..|+.shadow("K|
00001cf0  65 79 70 61 64 20 2b 20  2d 20 46 69 72 65 22 2c  |eypad + - Fire",|
00001d00  39 30 30 2c 32 35 32 2c  31 31 2c 34 29 0d 0b 86  |900,252,11,4)...|
00001d10  29 f2 73 68 61 64 6f 77  28 22 44 65 6c 65 74 65  |).shadow("Delete|
00001d20  20 2d 20 50 61 75 73 65  22 2c 34 30 30 2c 33 38  | - Pause",400,38|
00001d30  30 2c 30 2c 34 29 0d 0b  90 2b f2 73 68 61 64 6f  |0,0,4)...+.shado|
00001d40  77 28 22 20 20 43 6f 70  79 20 2d 20 55 6e 70 61  |w("  Copy - Unpa|
00001d50  75 73 65 22 2c 34 30 30  2c 33 34 38 2c 30 2c 34  |use",400,348,0,4|
00001d60  29 0d 0b 9a 2c f2 73 68  61 64 6f 77 28 22 20 20  |)...,.shadow("  |
00001d70  20 20 20 53 20 2d 20 53  6f 75 6e 64 20 6f 6e 22  |   S - Sound on"|
00001d80  2c 34 30 30 2c 33 31 36  2c 30 2c 34 29 0d 0b a4  |,400,316,0,4)...|
00001d90  2d f2 73 68 61 64 6f 77  28 22 20 20 20 20 20 51  |-.shadow("     Q|
00001da0  20 2d 20 53 6f 75 6e 64  20 6f 66 66 22 2c 34 30  | - Sound off",40|
00001db0  30 2c 32 38 34 2c 30 2c  34 29 0d 0b ae 3c f2 73  |0,284,0,4)...<.s|
00001dc0  68 61 64 6f 77 28 22 20  20 20 20 20 54 61 62 20  |hadow("     Tab |
00001dd0  2d 20 52 65 74 75 72 6e  20 74 6f 20 6d 61 69 6e  |- Return to main|
00001de0  20 6d 65 6e 75 22 2c 34  30 30 2d 33 32 2c 32 35  | menu",400-32,25|
00001df0  32 2c 30 2c 34 29 0d 0b  b8 4c f2 73 68 61 64 6f  |2,0,4)...L.shado|
00001e00  77 28 22 46 75 6c 6c 20  72 65 6c 65 61 73 65 20  |w("Full release |
00001e10  76 65 72 73 69 6f 6e 20  31 2e 32 32 20 28 34 74  |version 1.22 (4t|
00001e20  68 20 44 65 63 65 6d 62  65 72 2c 20 31 39 39 37  |h December, 1997|
00001e30  29 22 2c 28 31 37 2a 31  36 29 2c 36 34 2c 39 2c  |)",(17*16),64,9,|
00001e40  34 29 0d 0b c2 50 f2 73  68 61 64 6f 77 28 22 57  |4)...P.shadow("W|
00001e50  72 69 74 74 65 6e 20 62  79 20 47 72 61 65 6d 65  |ritten by Graeme|
00001e60  20 61 6e 64 20 53 74 65  70 68 65 6e 20 53 63 6f  | and Stephen Sco|
00001e70  74 74 20 a9 20 31 39 39  34 2d 39 37 22 2c 28 31  |tt . 1994-97",(1|
00001e80  37 2e 35 2a 31 36 29 2c  33 32 2c 39 2c 34 29 3a  |7.5*16),32,9,4):|
00001e90  ef 34 0d 0b cc 05 e1 0d  0b d6 05 3a 0d 0b e0 10  |.4.........:....|
00001ea0  dd 20 f2 64 72 61 77 62  6f 78 65 73 0d 0b ea 7c  |. .drawboxes...||
00001eb0  ef 35 3a e6 20 31 3a c8  93 34 30 30 2c 34 38 30  |.5:. 1:..400,480|
00001ec0  2c 34 38 30 2c 34 30 30  3a e6 31 31 3a c8 93 34  |,480,400:.11:..4|
00001ed0  31 36 2c 34 39 36 2c 32  31 36 2c 31 36 38 3a e6  |16,496,216,168:.|
00001ee0  31 35 3a c8 93 20 c8 90  34 32 34 2c 35 31 32 2c  |15:.. ..424,512,|
00001ef0  32 30 30 2c 34 38 3a e6  31 31 3a c8 93 34 31 36  |200,48:.11:..416|
00001f00  2c 35 38 30 2b 31 31 36  2c 32 31 36 2c 31 36 38  |,580+116,216,168|
00001f10  3a e6 31 35 3a c8 93 20  c8 90 34 32 34 2c 37 31  |:.15:.. ..424,71|
00001f20  32 2c 32 30 30 2c 34 38  0d 0b f4 b1 e6 31 31 3a  |2,200,48.....11:|
00001f30  c8 93 36 34 38 2c 34 39  36 2c 32 31 36 2c 31 36  |..648,496,216,16|
00001f40  38 3a e6 31 35 3a c8 93  20 c8 90 36 35 36 2c 35  |8:.15:.. ..656,5|
00001f50  31 32 2c 32 30 30 2c 34  38 3a e6 31 31 3a c8 93  |12,200,48:.11:..|
00001f60  36 34 38 2c 35 38 30 2b  31 31 36 2c 32 31 36 2c  |648,580+116,216,|
00001f70  31 36 38 3a e6 31 35 3a  c8 93 20 c8 90 36 35 36  |168:.15:.. ..656|
00001f80  2c 37 31 32 2c 32 30 30  2c 34 38 3a f2 73 69 7a  |,712,200,48:.siz|
00001f90  65 28 33 32 2c 38 29 3a  f2 73 68 61 64 6f 77 28  |e(32,8):.shadow(|
00001fa0  c3 28 66 6f 6f 64 76 61  6c 29 2c 34 32 34 2c 37  |.(foodval),424,7|
00001fb0  35 32 2c 31 32 2c 38 29  3a f2 73 68 61 64 6f 77  |52,12,8):.shadow|
00001fc0  28 c3 28 77 65 61 70 76  61 6c 29 2c 34 32 34 2c  |(.(weapval),424,|
00001fd0  35 35 32 2c 31 32 2c 38  29 0d 0b fe 8e f2 73 68  |552,12,8).....sh|
00001fe0  61 64 6f 77 28 c3 28 74  65 6c 65 76 61 6c 29 2c  |adow(.(televal),|
00001ff0  36 35 36 2c 37 35 32 2c  31 32 2c 38 29 3a f2 73  |656,752,12,8):.s|
00002000  68 61 64 6f 77 28 c3 28  73 68 6c 64 76 61 6c 29  |hadow(.(shldval)|
00002010  2c 36 35 36 2c 35 35 32  2c 31 32 2c 38 29 3a f2  |,656,552,12,8):.|
00002020  73 69 7a 65 28 38 2c 38  29 3a f2 73 68 61 64 6f  |size(8,8):.shado|
00002030  77 28 22 53 65 6c 65 63  74 20 74 6f 20 69 6e 63  |w("Select to inc|
00002040  72 65 61 73 65 2c 20 41  64 6a 75 73 74 20 74 6f  |rease, Adjust to|
00002050  20 64 65 63 72 65 61 73  65 22 2c 33 33 36 2c 39  | decrease",336,9|
00002060  32 30 2c 30 2c 34 29 0d  0c 08 cb f2 73 68 61 64  |20,0,4).....shad|
00002070  6f 77 28 22 46 6f 6f 64  22 2c 34 39 32 2c 38 34  |ow("Food",492,84|
00002080  38 2c 31 31 2c 34 29 3a  c8 99 34 36 2c 26 31 32  |8,11,4):..46,&12|
00002090  32 2c 61 72 65 61 25 2c  22 70 72 6f 33 62 22 2c  |2,area%,"pro3b",|
000020a0  35 30 30 2c 37 38 32 2c  38 3a f2 73 68 61 64 6f  |500,782,8:.shado|
000020b0  77 28 22 57 65 61 70 6f  6e 73 22 2c 34 36 38 2c  |w("Weapons",468,|
000020c0  36 34 38 2c 31 31 2c 34  29 3a c8 99 34 36 2c 26  |648,11,4):..46,&|
000020d0  31 32 32 2c 61 72 65 61  25 2c 22 77 65 70 30 62  |122,area%,"wep0b|
000020e0  22 2c 35 30 30 2c 35 38  32 2c 38 3a f2 73 68 61  |",500,582,8:.sha|
000020f0  64 6f 77 28 22 54 65 6c  65 70 6f 72 74 73 22 2c  |dow("Teleports",|
00002100  36 36 30 2b 32 34 2c 38  34 38 2c 31 31 2c 34 29  |660+24,848,11,4)|
00002110  3a c8 99 34 36 2c 26 31  32 32 2c 61 72 65 61 25  |:..46,&122,area%|
00002120  2c 22 70 72 6f 31 62 22  2c 37 33 36 2c 37 38 32  |,"pro1b",736,782|
00002130  2c 38 0d 0c 12 e1 f2 73  68 61 64 6f 77 28 22 53  |,8.....shadow("S|
00002140  68 69 65 6c 64 73 22 2c  37 30 30 2c 36 34 38 2c  |hields",700,648,|
00002150  31 31 2c 34 29 3a c8 99  20 34 36 2c 26 31 32 32  |11,4):.. 46,&122|
00002160  2c 61 72 65 61 25 2c 22  70 72 6f 30 62 22 2c 37  |,area%,"pro0b",7|
00002170  33 36 2c 35 38 32 2c 38  3a e6 31 32 3a c8 93 30  |36,582,8:.12:..0|
00002180  2c 31 30 30 2c 32 32 34  2c 36 34 3a f2 73 68 61  |,100,224,64:.sha|
00002190  64 6f 77 28 22 49 6e 73  74 72 75 63 74 69 6f 6e  |dow("Instruction|
000021a0  73 22 2c 31 36 2c 31 30  30 2b 34 38 2c 39 2c 34  |s",16,100+48,9,4|
000021b0  29 3a e6 31 32 3a c8 93  32 32 34 2b 31 32 38 2c  |):.12:..224+128,|
000021c0  31 30 30 2c 32 32 34 2c  36 34 3a e6 31 31 3a c8  |100,224,64:.11:.|
000021d0  93 20 c8 90 32 32 34 2b  31 33 30 2c 31 30 34 2c  |. ..224+130,104,|
000021e0  32 32 30 2c 35 36 3a f2  73 68 61 64 6f 77 28 22  |220,56:.shadow("|
000021f0  50 6c 61 79 22 2c 28 32  32 34 2b 31 32 38 29 2b  |Play",(224+128)+|
00002200  28 35 2a 31 36 29 2c 31  30 30 2b 34 38 2c 31 34  |(5*16),100+48,14|
00002210  2c 34 29 0d 0c 1c c5 e6  31 32 3a c8 93 28 32 2a  |,4).....12:..(2*|
00002220  32 32 34 29 2b 28 32 2a  31 32 38 29 2c 31 30 30  |224)+(2*128),100|
00002230  2c 32 32 34 2c 36 34 3a  f2 73 68 61 64 6f 77 28  |,224,64:.shadow(|
00002240  22 44 65 73 6b 74 6f 70  22 2c 28 32 2a 32 32 34  |"Desktop",(2*224|
00002250  29 2b 28 32 2a 31 32 38  29 2b 28 33 2e 35 2a 31  |)+(2*128)+(3.5*1|
00002260  36 29 2c 31 30 30 2b 34  38 2c 31 34 2c 34 29 3a  |6),100+48,14,4):|
00002270  f2 73 68 61 64 6f 77 28  22 4c 6f 61 64 20 6e 65  |.shadow("Load ne|
00002280  77 20 63 61 76 65 73 22  2c 28 33 2a 32 32 34 29  |w caves",(3*224)|
00002290  2b 28 33 2a 31 32 38 29  2d 38 2c 31 30 30 2b 34  |+(3*128)-8,100+4|
000022a0  38 2c 39 2c 34 29 3a e6  31 32 3a c8 93 28 33 2a  |8,9,4):.12:..(3*|
000022b0  32 32 34 29 2b 28 33 2a  31 32 38 29 2d 38 2c 31  |224)+(3*128)-8,1|
000022c0  30 30 2c 32 32 34 2c 36  34 3a f2 73 69 7a 65 28  |00,224,64:.size(|
000022d0  33 32 2c 38 29 3a ef 34  0d 0c 26 05 e1 0d 0c 30  |32,8):.4..&....0|
000022e0  05 3a 0d 0c 3a 2e dd 20  f2 64 72 6f 6e 65 6e 69  |.:..:.. .droneni|
000022f0  6e 67 3a c8 99 20 22 58  4f 53 5f 43 4c 49 22 2c  |ng:.. "XOS_CLI",|
00002300  22 43 68 61 6e 6e 65 6c  2e 20 32 20 41 72 67 22  |"Channel. 2 Arg"|
00002310  0d 0c 44 0c 64 72 6f 6e  65 25 3d 91 0d 0c 4e 30  |..D.drone%=...N0|
00002320  e7 20 64 6f 6e 65 31 3d  30 3a e7 20 64 72 6f 6e  |. done1=0:. dron|
00002330  65 25 3e 30 3a d4 32 2c  2d 31 35 2c 26 31 30 30  |e%>0:.2,-15,&100|
00002340  2c 31 30 30 3a 64 6f 6e  65 31 3d 31 0d 0c 58 32  |,100:done1=1..X2|
00002350  e7 20 64 6f 6e 65 32 3d  30 3a e7 20 64 72 6f 6e  |. done2=0:. dron|
00002360  65 25 3e 34 38 30 3a d4  32 2c 2d 31 35 2c 26 32  |e%>480:.2,-15,&2|
00002370  30 30 2c 31 30 30 3a 64  6f 6e 65 32 3d 31 0d 0c  |00,100:done2=1..|
00002380  62 32 e7 20 64 6f 6e 65  33 3d 30 3a e7 20 64 72  |b2. done3=0:. dr|
00002390  6f 6e 65 25 3e 38 38 30  3a d4 32 2c 2d 31 35 2c  |one%>880:.2,-15,|
000023a0  26 33 30 30 2c 31 30 30  3a 64 6f 6e 65 33 3d 31  |&300,100:done3=1|
000023b0  0d 0c 6c 33 e7 20 64 6f  6e 65 34 3d 30 3a e7 20  |..l3. done4=0:. |
000023c0  64 72 6f 6e 65 25 3e 31  32 39 30 3a d4 32 2c 2d  |drone%>1290:.2,-|
000023d0  31 35 2c 26 32 30 30 2c  31 30 30 3a 64 6f 6e 65  |15,&200,100:done|
000023e0  34 3d 31 0d 0c 76 3e e7  20 64 72 6f 6e 65 25 3e  |4=1..v>. drone%>|
000023f0  31 37 33 30 3a 64 72 6f  6e 65 25 3d 30 3a d1 3d  |1730:drone%=0:.=|
00002400  30 3a 64 6f 6e 65 31 3d  30 3a 64 6f 6e 65 32 3d  |0:done1=0:done2=|
00002410  30 3a 64 6f 6e 65 33 3d  30 3a 64 6f 6e 65 34 3d  |0:done3=0:done4=|
00002420  30 0d 0c 80 05 e1 0d 0c  8a 05 3a 0d 0c 94 0c dd  |0.........:.....|
00002430  20 f2 6d 6f 75 73 65 0d  0c 9e 4a e7 20 73 63 72  | .mouse...J. scr|
00002440  65 65 6e 3d 31 20 80 20  a6 2d 39 39 3a d6 20 66  |een=1 . .-99:. f|
00002450  61 64 65 3a f2 63 6c 65  61 72 62 61 6e 6b 73 32  |ade:.clearbanks2|
00002460  3a f2 70 6c 61 79 3a d6  20 66 61 64 65 3a f2 63  |:.play:. fade:.c|
00002470  6c 65 61 72 62 61 6e 6b  73 3a f2 6d 65 6e 75 3a  |learbanks:.menu:|
00002480  e1 0d 0c a8 12 ea 20 4d  58 25 2c 4d 59 25 2c 62  |...... MX%,MY%,b|
00002490  75 74 25 0d 0c b2 13 c8  97 20 4d 58 25 2c 4d 59  |ut%...... MX%,MY|
000024a0  25 2c 62 75 74 25 0d 0c  bc 10 e7 20 62 75 74 25  |%,but%..... but%|
000024b0  3d 30 20 8c 20 e1 0d 0c  c6 13 e7 20 62 75 74 25  |=0 . ...... but%|
000024c0  3d 34 20 73 74 65 70 3d  31 0d 0c d0 14 e7 20 62  |=4 step=1..... b|
000024d0  75 74 25 3d 31 20 73 74  65 70 3d 2d 31 0d 0c da  |ut%=1 step=-1...|
000024e0  0f c8 8e 20 73 63 72 65  65 6e 20 ca 0d 0c e4 08  |... screen .....|
000024f0  c9 20 31 3a 0d 0c ee 3b  66 6f 6f 64 3d a4 72 61  |. 1:...;food=.ra|
00002500  6e 67 65 28 34 32 34 2c  37 31 32 2c 32 30 30 2c  |nge(424,712,200,|
00002510  34 38 29 3a 77 65 61 70  3d a4 72 61 6e 67 65 28  |48):weap=.range(|
00002520  34 32 34 2c 35 31 32 2c  32 30 30 2c 34 38 29 0d  |424,512,200,48).|
00002530  0c f8 3b 74 72 61 6e 3d  a4 72 61 6e 67 65 28 36  |..;tran=.range(6|
00002540  35 36 2c 37 31 32 2c 32  30 30 2c 34 38 29 3a 73  |56,712,200,48):s|
00002550  68 6c 64 3d a4 72 61 6e  67 65 28 36 35 36 2c 35  |hld=.range(656,5|
00002560  31 32 2c 32 30 30 2c 34  38 29 0d 0d 02 3f 70 6c  |12,200,48)...?pl|
00002570  61 79 3d a4 72 61 6e 67  65 28 28 32 32 34 2b 31  |ay=.range((224+1|
00002580  32 38 29 2c 31 30 30 2c  32 32 34 2c 36 34 29 3a  |28),100,224,64):|
00002590  68 65 6c 70 3d a4 72 61  6e 67 65 28 30 2c 31 30  |help=.range(0,10|
000025a0  30 2c 32 32 34 2c 36 34  29 0d 0d 0c 54 71 75 69  |0,224,64)...Tqui|
000025b0  74 3d a4 72 61 6e 67 65  28 28 32 2a 32 32 34 29  |t=.range((2*224)|
000025c0  2b 28 32 2a 31 32 38 29  2c 31 30 30 2c 32 32 34  |+(2*128),100,224|
000025d0  2c 36 34 29 3a 6e 65 77  3d a4 72 61 6e 67 65 28  |,64):new=.range(|
000025e0  28 33 2a 32 32 34 29 2b  28 33 2a 31 32 38 29 2d  |(3*224)+(3*128)-|
000025f0  38 2c 31 30 30 2c 32 32  34 2c 36 34 29 0d 0d 16  |8,100,224,64)...|
00002600  5c e7 20 66 6f 6f 64 20  e6 31 35 3a c8 93 20 c8  |\. food .15:.. .|
00002610  90 34 32 34 2c 37 31 32  2c 32 30 30 2c 34 38 3a  |.424,712,200,48:|
00002620  66 6f 6f 64 76 61 6c 2b  3d 73 74 65 70 3a f2 63  |foodval+=step:.c|
00002630  68 65 63 6b 76 61 6c 73  3a f2 73 68 61 64 6f 77  |heckvals:.shadow|
00002640  28 c3 28 66 6f 6f 64 76  61 6c 29 2c 34 32 34 2c  |(.(foodval),424,|
00002650  37 35 32 2c 31 32 2c 38  29 0d 0d 20 5c e7 20 77  |752,12,8).. \. w|
00002660  65 61 70 20 e6 31 35 3a  c8 93 20 c8 90 34 32 34  |eap .15:.. ..424|
00002670  2c 35 31 32 2c 32 30 30  2c 34 38 3a 77 65 61 70  |,512,200,48:weap|
00002680  76 61 6c 2b 3d 73 74 65  70 3a f2 63 68 65 63 6b  |val+=step:.check|
00002690  76 61 6c 73 3a f2 73 68  61 64 6f 77 28 c3 28 77  |vals:.shadow(.(w|
000026a0  65 61 70 76 61 6c 29 2c  34 32 34 2c 35 35 32 2c  |eapval),424,552,|
000026b0  31 32 2c 38 29 0d 0d 2a  5c e7 20 74 72 61 6e 20  |12,8)..*\. tran |
000026c0  e6 31 35 3a c8 93 20 c8  90 36 35 36 2c 37 31 32  |.15:.. ..656,712|
000026d0  2c 32 30 30 2c 34 38 3a  74 65 6c 65 76 61 6c 2b  |,200,48:televal+|
000026e0  3d 73 74 65 70 3a f2 63  68 65 63 6b 76 61 6c 73  |=step:.checkvals|
000026f0  3a f2 73 68 61 64 6f 77  28 c3 28 74 65 6c 65 76  |:.shadow(.(telev|
00002700  61 6c 29 2c 36 35 36 2c  37 35 32 2c 31 32 2c 38  |al),656,752,12,8|
00002710  29 0d 0d 34 5c e7 20 73  68 6c 64 20 e6 31 35 3a  |)..4\. shld .15:|
00002720  c8 93 20 c8 90 36 35 36  2c 35 31 32 2c 32 30 30  |.. ..656,512,200|
00002730  2c 34 38 3a 73 68 6c 64  76 61 6c 2b 3d 73 74 65  |,48:shldval+=ste|
00002740  70 3a f2 63 68 65 63 6b  76 61 6c 73 3a f2 73 68  |p:.checkvals:.sh|
00002750  61 64 6f 77 28 c3 28 73  68 6c 64 76 61 6c 29 2c  |adow(.(shldval),|
00002760  36 35 36 2c 35 35 32 2c  31 32 2c 38 29 0d 0d 3e  |656,552,12,8)..>|
00002770  3f e7 20 70 6c 61 79 20  d6 20 66 61 64 65 3a f2  |?. play . fade:.|
00002780  63 6c 65 61 72 62 61 6e  6b 73 32 3a f2 70 6c 61  |clearbanks2:.pla|
00002790  79 3a d6 20 66 61 64 65  3a f2 63 6c 65 61 72 62  |y:. fade:.clearb|
000027a0  61 6e 6b 73 3a f2 6d 65  6e 75 3a e1 0d 0d 48 36  |anks:.menu:...H6|
000027b0  e7 20 68 65 6c 70 20 d6  20 66 61 64 65 3a f2 69  |. help . fade:.i|
000027c0  6e 73 74 72 75 63 74 3a  d6 20 66 61 64 65 3a f2  |nstruct:. fade:.|
000027d0  63 6c 65 61 72 62 61 6e  6b 73 3a f2 6d 65 6e 75  |clearbanks:.menu|
000027e0  3a e1 0d 0d 52 39 e7 20  6e 65 77 20 d6 20 66 61  |:...R9. new . fa|
000027f0  64 65 3a f2 6c 6f 61 64  6e 65 77 63 61 76 65 73  |de:.loadnewcaves|
00002800  3a d6 20 66 61 64 65 3a  f2 63 6c 65 61 72 62 61  |:. fade:.clearba|
00002810  6e 6b 73 3a f2 6d 65 6e  75 3a e1 0d 0d 5c 19 e7  |nks:.menu:...\..|
00002820  20 71 75 69 74 20 d6 20  66 61 64 65 3a f2 71 75  | quit . fade:.qu|
00002830  69 74 3a e1 0d 0d 66 08  c9 20 32 3a 0d 0d 70 1e  |it:...f.. 2:..p.|
00002840  79 65 73 3d a4 72 61 6e  67 65 28 32 35 30 2c 32  |yes=.range(250,2|
00002850  35 30 2c 31 36 30 2c 36  34 29 0d 0d 7a 1d 6e 6f  |50,160,64)..z.no|
00002860  3d a4 72 61 6e 67 65 28  39 33 30 2c 32 35 30 2c  |=.range(930,250,|
00002870  31 36 30 2c 36 34 29 0d  0d 84 11 e7 20 79 65 73  |160,64)..... yes|
00002880  20 8c 20 65 6e 64 3d b9  0d 0d 8e 25 e7 20 6e 6f  | . end=....%. no|
00002890  20 8c 20 d6 20 66 61 64  65 3a f2 63 6c 65 61 72  | . . fade:.clear|
000028a0  62 61 6e 6b 73 3a f2 6d  65 6e 75 3a e1 0d 0d 98  |banks:.menu:....|
000028b0  05 cb 0d 0d a2 05 e1 0d  0d ac 05 3a 0d 0d b6 0f  |...........:....|
000028c0  dd 20 f2 69 6e 73 74 72  75 63 74 0d 0d c0 2f ef  |. .instruct.../.|
000028d0  35 2c 32 34 2c 30 3b 30  3b 31 32 37 39 3b 39 34  |5,24,0;0;1279;94|
000028e0  30 3b 3a e6 20 31 33 35  3a da 3a ef 32 36 3a f2  |0;:. 135:.:.26:.|
000028f0  73 69 7a 65 28 31 36 2c  38 29 0d 0d ca 35 f2 73  |size(16,8)...5.s|
00002900  68 61 64 6f 77 28 22 49  4e 53 54 52 55 43 54 49  |hadow("INSTRUCTI|
00002910  4f 4e 53 22 2c 32 38 2a  31 36 2c 39 30 38 2c 31  |ONS",28*16,908,1|
00002920  32 2c 38 29 3a f2 73 69  7a 65 28 38 2c 38 29 0d  |2,8):.size(8,8).|
00002930  0d d4 cc f2 73 68 61 64  6f 77 28 22 59 6f 75 20  |....shadow("You |
00002940  68 61 76 65 20 6b 6e 6f  63 6b 65 64 20 6f 76 65  |have knocked ove|
00002950  72 20 74 68 65 20 70 69  6e 74 20 67 6c 61 73 73  |r the pint glass|
00002960  20 6f 66 20 42 69 67 20  42 69 63 65 70 73 20 4d  | of Big Biceps M|
00002970  63 43 72 69 6e 6b 6c 65  2c 20 74 68 65 20 73 74  |cCrinkle, the st|
00002980  72 6f 6e 67 65 73 74 22  2c 34 38 2c 38 35 30 2c  |rongest",48,850,|
00002990  39 2c 34 29 3a f2 73 68  61 64 6f 77 28 22 77 61  |9,4):.shadow("wa|
000029a0  72 72 69 6f 72 20 69 6e  20 74 68 65 20 6c 61 6e  |rrior in the lan|
000029b0  64 2c 20 61 6e 64 20 74  6f 20 72 65 73 74 6f 72  |d, and to restor|
000029c0  65 20 68 69 73 20 70 72  69 64 65 2c 20 68 65 20  |e his pride, he |
000029d0  64 65 6d 61 6e 64 73 20  61 20 64 75 65 6c 20 74  |demands a duel t|
000029e0  6f 20 74 68 65 20 64 65  61 74 68 22 2c 33 32 2c  |o the death",32,|
000029f0  38 35 30 2d 33 32 2c 39  2c 34 29 0d 0d de c1 f2  |850-32,9,4).....|
00002a00  73 68 61 64 6f 77 28 22  69 6e 20 74 68 65 20 63  |shadow("in the c|
00002a10  61 76 65 72 6e 73 20 73  69 74 75 61 74 65 64 20  |averns situated |
00002a20  62 65 6c 6f 77 20 74 68  65 20 6b 69 6e 67 64 6f  |below the kingdo|
00002a30  6d 27 73 20 6d 6f 75 6e  74 61 69 6e 20 72 61 6e  |m's mountain ran|
00002a40  67 65 2e 22 2c 31 31 2a  31 36 2c 38 35 30 2d 36  |ge.",11*16,850-6|
00002a50  34 2c 39 2c 34 29 3a f2  73 68 61 64 6f 77 28 22  |4,9,4):.shadow("|
00002a60  42 6f 74 68 20 70 6c 61  79 65 72 73 20 6d 75 73  |Both players mus|
00002a70  74 20 66 69 6e 64 20 65  61 63 68 20 6f 74 68 65  |t find each othe|
00002a80  72 20 61 6e 64 20 75 73  69 6e 67 20 74 68 65 20  |r and using the |
00002a90  77 65 61 70 6f 6e 73 20  73 63 61 74 74 65 72 65  |weapons scattere|
00002aa0  64 20 61 62 6f 75 74 20  74 68 65 22 2c 34 38 2c  |d about the",48,|
00002ab0  38 35 30 2d 31 32 38 2c  39 2c 34 29 0d 0d e8 91  |850-128,9,4)....|
00002ac0  f2 73 68 61 64 6f 77 28  22 63 61 76 65 72 6e 73  |.shadow("caverns|
00002ad0  20 62 61 74 74 6c 65 20  69 74 20 6f 75 74 20 75  | battle it out u|
00002ae0  6e 74 69 6c 20 6f 6e 65  20 70 6c 61 79 65 72 27  |ntil one player'|
00002af0  73 20 65 6e 65 72 67 79  20 72 65 61 63 68 65 73  |s energy reaches|
00002b00  20 7a 65 72 6f 2c 20 61  6e 64 20 74 68 65 22 2c  | zero, and the",|
00002b10  39 36 2c 38 35 30 2d 31  36 30 2c 39 2c 34 29 3a  |96,850-160,9,4):|
00002b20  f2 73 68 61 64 6f 77 28  22 6f 70 70 6f 6e 65 6e  |.shadow("opponen|
00002b30  74 20 77 69 6e 73 2e 22  2c 33 33 2e 35 2a 31 36  |t wins.",33.5*16|
00002b40  2c 38 35 30 2d 31 39 32  2c 39 2c 34 29 0d 0d f2  |,850-192,9,4)...|
00002b50  d4 f2 73 68 61 64 6f 77  28 22 43 6f 6c 6c 65 63  |..shadow("Collec|
00002b60  74 69 6e 67 20 66 6f 6f  64 20 61 6e 64 20 72 65  |ting food and re|
00002b70  64 20 70 6f 74 69 6f 6e  20 62 6f 74 74 6c 65 73  |d potion bottles|
00002b80  20 69 6e 63 72 65 61 73  65 73 20 65 6e 65 72 67  | increases energ|
00002b90  79 2e 20 43 6f 6c 6c 65  63 74 69 6e 67 20 61 72  |y. Collecting ar|
00002ba0  6d 6f 75 72 22 2c 35 36  2c 38 35 30 2d 32 35 36  |mour",56,850-256|
00002bb0  2c 39 2c 34 29 3a f2 73  68 61 64 6f 77 28 22 69  |,9,4):.shadow("i|
00002bc0  6e 63 72 65 61 73 65 73  20 79 6f 75 72 20 72 65  |ncreases your re|
00002bd0  73 69 73 74 61 6e 63 65  20 74 6f 20 79 6f 75 72  |sistance to your|
00002be0  20 6f 70 70 6f 6e 65 6e  74 27 73 20 63 68 6f 73  | opponent's chos|
00002bf0  65 6e 20 77 65 61 70 6f  6e 2e 20 43 6f 6c 6c 65  |en weapon. Colle|
00002c00  63 74 69 6e 67 20 67 72  65 65 6e 22 2c 34 30 2c  |cting green",40,|
00002c10  28 38 35 30 2d 32 35 36  29 2d 33 32 2c 39 2c 34  |(850-256)-32,9,4|
00002c20  29 0d 0d fc d7 f2 73 68  61 64 6f 77 28 22 70 6f  |).....shadow("po|
00002c30  74 69 6f 6e 20 62 6f 74  74 6c 65 73 20 74 65 6c  |tion bottles tel|
00002c40  65 70 6f 72 74 20 79 6f  75 20 74 6f 20 72 61 6e  |eport you to ran|
00002c50  64 6f 6d 20 6c 6f 63 61  74 69 6f 6e 73 2e 20 55  |dom locations. U|
00002c60  73 65 20 74 68 65 20 74  65 6c 65 70 6f 72 74 73  |se the teleports|
00002c70  20 74 6f 20 74 61 6b 65  22 2c 35 36 2c 28 38 35  | to take",56,(85|
00002c80  30 2d 32 35 36 29 2d 36  34 2c 39 2c 34 29 3a f2  |0-256)-64,9,4):.|
00002c90  73 68 61 64 6f 77 28 22  79 6f 75 20 74 6f 20 70  |shadow("you to p|
00002ca0  72 65 2d 64 65 66 69 6e  65 64 20 6c 6f 63 61 74  |re-defined locat|
00002cb0  69 6f 6e 73 2e 20 42 65  20 61 77 61 72 65 20 6f  |ions. Be aware o|
00002cc0  66 20 74 68 65 20 66 61  63 74 20 74 68 61 74 20  |f the fact that |
00002cd0  73 6f 6d 65 20 77 61 6c  6c 73 20 61 72 65 20 6e  |some walls are n|
00002ce0  6f 74 22 2c 35 36 2c 28  38 35 30 2d 32 35 36 29  |ot",56,(850-256)|
00002cf0  2d 39 36 2c 39 2c 34 29  0d 0e 06 95 f2 73 68 61  |-96,9,4).....sha|
00002d00  64 6f 77 28 22 73 6f 6c  69 64 21 22 2c 33 37 2a  |dow("solid!",37*|
00002d10  31 36 2c 28 38 35 30 2d  32 35 36 29 2d 31 32 38  |16,(850-256)-128|
00002d20  2c 39 2c 34 29 3a f2 73  68 61 64 6f 77 28 22 54  |,9,4):.shadow("T|
00002d30  68 65 20 77 65 61 70 6f  6e 73 20 79 6f 75 20 77  |he weapons you w|
00002d40  69 6c 6c 20 63 6f 6d 65  20 61 63 72 6f 73 73 20  |ill come across |
00002d50  63 61 6e 20 65 69 74 68  65 72 20 62 65 20 74 68  |can either be th|
00002d60  72 6f 77 6e 2c 20 66 69  72 65 64 20 6f 72 20 68  |rown, fired or h|
00002d70  65 6c 64 2e 22 2c 36 2a  31 36 2c 28 38 35 30 2d  |eld.",6*16,(850-|
00002d80  32 35 36 29 2d 31 39 32  2c 39 2c 34 29 0d 0e 10  |256)-192,9,4)...|
00002d90  d4 f2 73 68 61 64 6f 77  28 22 41 73 20 61 20 72  |..shadow("As a r|
00002da0  75 6c 65 2c 20 68 65 6c  64 20 77 65 61 70 6f 6e  |ule, held weapon|
00002db0  73 20 61 72 65 20 6c 65  73 73 20 65 66 66 65 63  |s are less effec|
00002dc0  74 69 76 65 20 74 68 61  6e 20 74 68 65 20 6f 74  |tive than the ot|
00002dd0  68 65 72 73 2c 20 70 61  72 74 69 63 75 6c 61 72  |hers, particular|
00002de0  6c 79 20 69 66 22 2c 34  38 2c 28 38 35 30 2d 32  |ly if",48,(850-2|
00002df0  35 36 29 2d 32 32 34 2c  39 2c 34 29 3a f2 73 68  |56)-224,9,4):.sh|
00002e00  61 64 6f 77 28 22 74 68  65 20 6f 70 70 6f 6e 65  |adow("the oppone|
00002e10  6e 74 20 68 61 73 20 61  6e 20 6f 62 76 69 6f 75  |nt has an obviou|
00002e20  73 6c 79 20 6d 6f 72 65  20 70 6f 77 65 72 66 75  |sly more powerfu|
00002e30  6c 20 77 65 61 70 6f 6e  2e 20 42 75 74 20 69 74  |l weapon. But it|
00002e40  20 69 73 20 75 70 20 74  6f 20 79 6f 75 20 74 6f  | is up to you to|
00002e50  22 2c 35 36 2c 38 35 30  2d 35 31 32 2c 39 2c 34  |",56,850-512,9,4|
00002e60  29 0d 0e 1a af f2 73 68  61 64 6f 77 28 22 66 69  |).....shadow("fi|
00002e70  6e 64 20 6f 75 74 20 77  68 69 63 68 20 77 65 61  |nd out which wea|
00002e80  70 6f 6e 73 20 61 72 65  20 74 68 65 20 62 65 73  |pons are the bes|
00002e90  74 2e 22 2c 32 32 2e 35  2a 31 36 2c 38 35 30 2d  |t.",22.5*16,850-|
00002ea0  35 34 34 2c 39 2c 34 29  3a f2 73 68 61 64 6f 77  |544,9,4):.shadow|
00002eb0  28 22 57 68 65 6e 20 79  6f 75 20 70 6c 61 79 2c  |("When you play,|
00002ec0  20 74 68 65 20 73 63 72  65 65 6e 20 69 73 20 64  | the screen is d|
00002ed0  69 76 69 64 65 64 20 69  6e 74 6f 20 74 77 6f 20  |ivided into two |
00002ee0  70 61 72 74 73 2e 20 54  68 65 20 74 6f 70 20 68  |parts. The top h|
00002ef0  61 6c 66 20 69 73 20 66  6f 72 22 2c 37 32 2c 28  |alf is for",72,(|
00002f00  38 35 30 2d 35 34 34 29  2d 36 34 2c 39 2c 34 29  |850-544)-64,9,4)|
00002f10  0d 0e 24 d8 f2 73 68 61  64 6f 77 28 22 70 6c 61  |..$..shadow("pla|
00002f20  79 65 72 20 6f 6e 65 2c  20 74 68 65 20 62 6f 74  |yer one, the bot|
00002f30  74 6f 6d 20 68 61 6c 66  20 66 6f 72 20 70 6c 61  |tom half for pla|
00002f40  79 65 72 20 74 77 6f 2e  20 46 6f 72 20 65 61 63  |yer two. For eac|
00002f50  68 20 68 61 6c 66 2c 20  74 68 65 72 65 20 69 73  |h half, there is|
00002f60  20 61 20 73 74 61 74 75  73 22 2c 34 30 2c 28 38  | a status",40,(8|
00002f70  35 30 2d 35 34 34 29 2d  39 36 2c 39 2c 34 29 3a  |50-544)-96,9,4):|
00002f80  f2 73 68 61 64 6f 77 28  22 62 6f 78 2c 20 73 68  |.shadow("box, sh|
00002f90  6f 77 69 6e 67 20 74 68  65 20 63 75 72 72 65 6e  |owing the curren|
00002fa0  74 6c 79 20 68 65 6c 64  20 77 65 61 70 6f 6e 2c  |tly held weapon,|
00002fb0  20 74 68 65 20 70 6c 61  79 65 72 27 73 20 65 6e  | the player's en|
00002fc0  65 72 67 79 20 62 61 72  2c 20 61 6e 64 20 74 68  |ergy bar, and th|
00002fd0  65 22 2c 37 32 2c 28 38  35 30 2d 35 34 34 29 2d  |e",72,(850-544)-|
00002fe0  31 32 38 2c 39 2c 34 29  0d 0e 2e 8f f2 73 68 61  |128,9,4).....sha|
00002ff0  64 6f 77 28 22 61 6d 6f  75 6e 74 20 6f 66 20 61  |dow("amount of a|
00003000  72 6d 6f 75 72 20 74 68  65 20 70 6c 61 79 65 72  |rmour the player|
00003010  20 68 61 73 20 28 75 70  20 74 6f 20 61 20 6d 61  | has (up to a ma|
00003020  78 69 6d 75 6d 20 6f 66  20 35 21 21 29 2e 22 2c  |ximum of 5!!).",|
00003030  31 31 2e 35 2a 31 36 2c  28 38 35 30 2d 35 34 34  |11.5*16,(850-544|
00003040  29 2d 31 36 30 2c 39 2c  34 29 3a e6 20 31 32 3a  |)-160,9,4):. 12:|
00003050  c8 93 20 33 35 32 2c 30  2c 35 37 36 2c 36 34 3a  |.. 352,0,576,64:|
00003060  e6 20 31 31 3a c8 93 20  c8 90 20 33 35 34 2c 34  |. 11:.. .. 354,4|
00003070  2c 35 37 32 2c 35 36 0d  0e 38 3d f2 73 68 61 64  |,572,56..8=.shad|
00003080  6f 77 28 22 43 6c 69 63  6b 20 6d 6f 75 73 65 20  |ow("Click mouse |
00003090  62 75 74 74 6f 6e 20 74  6f 20 63 6f 6e 74 69 6e  |button to contin|
000030a0  75 65 20 2e 2e 2e 22 2c  33 36 38 2c 34 38 2c 31  |ue ...",368,48,1|
000030b0  32 2c 34 29 0d 0e 42 2b  f2 70 61 6c 65 74 74 65  |2,4)..B+.palette|
000030c0  28 22 43 61 76 65 6e 44  75 65 6c 3a 50 61 6c 65  |("CavenDuel:Pale|
000030d0  74 74 65 73 2e 21 50 61  6c 65 74 74 65 22 29 0d  |ttes.!Palette").|
000030e0  0e 4c 05 f5 0d 0e 56 0c  c8 97 20 58 2c 59 2c 5a  |.L....V... X,Y,Z|
000030f0  0d 0e 60 0e f2 64 72 6f  6e 65 6e 69 6e 67 0d 0e  |..`..dronening..|
00003100  6a 0a fd 20 5a 3c 3e 30  0d 0e 74 05 e1 0d 0e 7e  |j.. Z<>0..t....~|
00003110  05 3a 0d 0e 88 0b dd 20  f2 71 75 69 74 0d 0e 92  |.:..... .quit...|
00003120  2c 73 63 72 65 65 6e 3d  32 3a ef 20 35 2c 32 34  |,screen=2:. 5,24|
00003130  2c 30 3b 30 3b 31 32 37  39 3b 39 34 30 3b 3a e6  |,0;0;1279;940;:.|
00003140  31 33 35 3a da 3a ef 32  36 0d 0e 9c 1c f2 64 72  |135:.:.26.....dr|
00003150  61 77 6b 6e 69 67 68 74  73 3a f2 73 69 7a 65 28  |awknights:.size(|
00003160  31 36 2c 38 29 0d 0e a6  3c f2 73 68 61 64 6f 77  |16,8)...<.shadow|
00003170  28 22 41 72 65 20 79 6f  75 20 73 75 72 65 20 79  |("Are you sure y|
00003180  6f 75 20 77 61 6e 74 20  74 6f 20 72 65 74 75 72  |ou want to retur|
00003190  6e 22 2c 39 2a 31 36 2c  34 30 30 2c 31 34 2c 38  |n",9*16,400,14,8|
000031a0  29 0d 0e b0 31 f2 73 68  61 64 6f 77 28 22 74 6f  |)...1.shadow("to|
000031b0  20 74 68 65 20 64 65 73  6b 74 6f 70 20 3f 22 2c  | the desktop ?",|
000031c0  32 34 2a 31 36 2c 34 30  30 2d 34 30 2c 31 34 2c  |24*16,400-40,14,|
000031d0  38 29 0d 0e ba 1a e6 20  31 32 3a c8 93 20 32 35  |8)..... 12:.. 25|
000031e0  30 2c 32 35 30 2c 31 36  30 2c 36 34 0d 0e c4 25  |0,250,160,64...%|
000031f0  f2 73 68 61 64 6f 77 28  22 59 45 53 22 2c 32 35  |.shadow("YES",25|
00003200  30 2b 33 32 2c 32 35 30  2b 34 38 2c 31 32 2c 38  |0+32,250+48,12,8|
00003210  29 0d 0e ce 1a e6 20 31  31 3a c8 93 20 39 33 30  |)..... 11:.. 930|
00003220  2c 32 35 30 2c 31 36 30  2c 36 34 0d 0e d8 24 f2  |,250,160,64...$.|
00003230  73 68 61 64 6f 77 28 22  4e 4f 22 2c 39 33 30 2b  |shadow("NO",930+|
00003240  34 38 2c 32 35 30 2b 34  38 2c 31 31 2c 38 29 0d  |48,250+48,11,8).|
00003250  0e e2 2b f2 70 61 6c 65  74 74 65 28 22 43 61 76  |..+.palette("Cav|
00003260  65 6e 44 75 65 6c 3a 50  61 6c 65 74 74 65 73 2e  |enDuel:Palettes.|
00003270  21 50 61 6c 65 74 74 65  22 29 0d 0e ec 05 e1 0d  |!Palette")......|
00003280  0e f6 04 0d 0f 00 f6 dd  20 f2 6c 6f 61 64 6e 65  |........ .loadne|
00003290  77 63 61 76 65 73 3a ef  20 35 2c 32 34 2c 30 3b  |wcaves:. 5,24,0;|
000032a0  30 3b 31 32 37 39 3b 39  34 30 3b 3a e6 20 31 33  |0;1279;940;:. 13|
000032b0  35 3a da 3a f2 64 72 61  77 6b 6e 69 67 68 74 73  |5:.:.drawknights|
000032c0  3a f2 73 69 7a 65 28 31  36 2c 38 29 3a f2 73 68  |:.size(16,8):.sh|
000032d0  61 64 6f 77 28 22 53 65  6c 65 63 74 20 61 20 6e  |adow("Select a n|
000032e0  65 77 20 73 65 74 20 6f  66 20 63 61 76 65 73 20  |ew set of caves |
000032f0  74 6f 20 6c 6f 61 64 22  2c 37 2a 31 36 2c 34 30  |to load",7*16,40|
00003300  30 2c 31 34 2c 38 29 3a  f2 73 69 7a 65 28 38 2c  |0,14,8):.size(8,|
00003310  38 29 3a 6d 79 6f 77 6e  6e 75 6d 62 65 72 25 3d  |8):myownnumber%=|
00003320  30 3a 64 61 74 61 66 69  6c 65 73 25 3d a4 72 65  |0:datafiles%=.re|
00003330  61 64 66 69 6c 65 73 28  22 43 61 76 65 6e 44 75  |adfiles("CavenDu|
00003340  65 6c 3a 53 63 72 65 65  6e 73 22 2c 26 30 32 32  |el:Screens",&022|
00003350  29 3a f2 70 61 6c 65 74  74 65 28 22 43 61 76 65  |):.palette("Cave|
00003360  6e 44 75 65 6c 3a 50 61  6c 65 74 74 65 73 2e 21  |nDuel:Palettes.!|
00003370  50 61 6c 65 74 74 65 22  29 0d 0f 0a 05 3a 0d 0f  |Palette")....:..|
00003380  14 1e ee 20 85 20 eb 31  32 3a f6 3a f1 22 20 61  |... . .12:.:." a|
00003390  74 20 6c 69 6e 65 20 22  3b 9e 3a e0 0d 0f 1e 2d  |t line ";.:....-|
000033a0  70 72 69 6e 74 78 3d 32  35 30 3a 70 72 69 6e 74  |printx=250:print|
000033b0  79 3d 32 38 30 3a 6d 61  70 6e 75 6d 3d 31 3a 6c  |y=280:mapnum=1:l|
000033c0  6f 61 64 65 64 3d 30 3a  f5 0d 0f 28 4e e6 31 31  |oaded=0:...(N.11|
000033d0  3a c8 93 20 c8 90 20 70  72 69 6e 74 78 2c 70 72  |:.. .. printx,pr|
000033e0  69 6e 74 79 2c 31 39 32  2c 34 30 3a ef 35 3a e6  |inty,192,40:.5:.|
000033f0  30 3a ec 70 72 69 6e 74  78 2b 31 36 2c 70 72 69  |0:.printx+16,pri|
00003400  6e 74 79 2b 33 32 3a f1  20 66 6e 61 6d 65 24 28  |nty+32:. fname$(|
00003410  6d 61 70 6e 75 6d 29 0d  0f 32 3d 70 72 69 6e 74  |mapnum)..2=print|
00003420  78 2b 3d 32 31 32 3a 6d  61 70 6e 75 6d 2b 3d 31  |x+=212:mapnum+=1|
00003430  3a e7 20 70 72 69 6e 74  78 3e 31 30 32 35 3a 70  |:. printx>1025:p|
00003440  72 69 6e 74 78 3d 32 35  30 3a 70 72 69 6e 74 79  |rintx=250:printy|
00003450  2d 3d 35 32 0d 0f 3c 17  fd 20 6d 61 70 6e 75 6d  |-=52..<.. mapnum|
00003460  3e 64 61 74 61 66 69 6c  65 73 25 0d 0f 46 05 3a  |>datafiles%..F.:|
00003470  0d 0f 50 19 f5 3a c8 97  20 58 2c 59 2c 5a 3a f2  |..P..:.. X,Y,Z:.|
00003480  64 72 6f 6e 65 6e 69 6e  67 0d 0f 5a 11 78 32 3d  |dronening..Z.x2=|
00003490  32 35 30 3a 79 32 3d 32  38 30 0d 0f 64 14 e3 20  |250:y2=280..d.. |
000034a0  61 3d 31 b8 64 61 74 61  66 69 6c 65 73 25 0d 0f  |a=1.datafiles%..|
000034b0  6e 50 e7 20 58 3e 78 32  20 80 20 58 3c 78 32 2b  |nP. X>x2 . X<x2+|
000034c0  31 39 32 20 80 20 59 3e  79 32 20 80 20 59 3c 79  |192 . Y>y2 . Y<y|
000034d0  32 2b 34 30 20 80 20 5a  3d 34 3a d4 36 2c 2d 31  |2+40 . Z=4:.6,-1|
000034e0  35 2c 31 39 30 2b 28 61  2a 35 29 2c 31 30 3a f2  |5,190+(a*5),10:.|
000034f0  6c 6f 61 64 6e 65 77 73  63 72 65 65 6e 73 0d 0f  |loadnewscreens..|
00003500  78 23 78 32 2b 3d 32 31  32 3a e7 20 78 32 3e 31  |x#x2+=212:. x2>1|
00003510  30 32 35 3a 78 32 3d 32  35 30 3a 79 32 2d 3d 35  |025:x2=250:y2-=5|
00003520  32 0d 0f 82 05 ed 0d 0f  8c 17 fd 20 6c 6f 61 64  |2.......... load|
00003530  65 64 3d 31 3a d6 20 66  61 64 65 3a e1 0d 0f 96  |ed=1:. fade:....|
00003540  39 f4 20 43 4c 53 3a 56  44 55 34 3a 4f 46 46 3a  |9. CLS:VDU4:OFF:|
00003550  52 45 50 4f 52 54 3a 50  52 49 4e 54 20 22 20 61  |REPORT:PRINT " a|
00003560  74 20 6c 69 6e 65 20 22  3b 45 52 4c 3a 47 4f 54  |t line ";ERL:GOT|
00003570  4f 20 38 35 32 30 0d 0f  a0 05 3a 0d 0f aa 39 dd  |O 8520....:...9.|
00003580  20 f2 6c 6f 61 64 6e 65  77 73 63 72 65 65 6e 73  | .loadnewscreens|
00003590  3a c8 99 26 32 45 2c 33  36 2b 32 35 36 2c 61 72  |:..&2E,36+256,ar|
000035a0  65 61 25 2c 22 70 74 72  5f 77 61 69 74 22 2c 31  |ea%,"ptr_wait",1|
000035b0  2c 30 2c 30 0d 0f b4 19  e6 37 3a c8 93 20 c8 90  |,0,0.....7:.. ..|
000035c0  30 2c 33 36 30 2c 31 32  38 30 2c 35 30 0d 0f be  |0,360,1280,50...|
000035d0  19 f4 20 58 3d 30 3a 59  3d 30 3a 53 43 58 3d 30  |.. X=0:Y=0:SCX=0|
000035e0  3a 53 43 59 3d 30 0d 0f  c8 78 f4 20 52 45 50 45  |:SCY=0...x. REPE|
000035f0  41 54 3a 50 52 4f 43 64  72 6f 6e 65 6e 69 6e 67  |AT:PROCdronening|
00003600  3a 56 44 55 34 3a 50 52  49 4e 54 54 41 42 28 30  |:VDU4:PRINTTAB(0|
00003610  2c 32 38 29 22 43 6c 65  61 72 69 6e 67 20 6d 61  |,28)"Clearing ma|
00003620  70 20 28 22 3b 53 54 52  24 28 53 43 58 29 3b 22  |p (";STR$(SCX);"|
00003630  2c 22 3b 53 54 52 24 28  53 43 59 29 3b 22 2c 22  |,";STR$(SCY);","|
00003640  3b 53 54 52 24 28 58 29  3b 22 2c 22 3b 53 54 52  |;STR$(X);",";STR|
00003650  24 28 59 29 3b 22 29 22  3b 3a 56 44 55 35 0d 0f  |$(Y);")";:VDU5..|
00003660  d2 2b 73 63 72 65 65 6e  24 28 29 3d 22 30 22 3a  |.+screen$()="0":|
00003670  f4 20 73 63 72 65 65 6e  24 28 53 43 58 2c 53 43  |. screen$(SCX,SC|
00003680  59 2c 58 2c 59 29 3d 22  22 0d 0f dc 1b f4 20 58  |Y,X,Y)=""..... X|
00003690  2b 3d 31 3a 49 46 20 58  3e 31 36 3a 58 3d 30 3a  |+=1:IF X>16:X=0:|
000036a0  59 2b 3d 31 0d 0f e6 1c  f4 20 49 46 20 59 3e 31  |Y+=1..... IF Y>1|
000036b0  36 3a 53 43 59 2b 3d 31  3a 58 3d 30 3a 59 3d 30  |6:SCY+=1:X=0:Y=0|
000036c0  0d 0f f0 23 f4 20 49 46  20 53 43 59 3e 33 3a 53  |...#. IF SCY>3:S|
000036d0  43 58 2b 3d 31 3a 53 43  59 3d 30 3a 58 3d 30 3a  |CX+=1:SCY=0:X=0:|
000036e0  59 3d 30 0d 0f fa 1c f4  20 55 4e 54 49 4c 20 53  |Y=0..... UNTIL S|
000036f0  43 58 3e 37 3a 56 44 55  37 2c 37 2c 37 2c 37 0d  |CX>7:VDU7,7,7,7.|
00003700  10 04 06 ef 35 0d 10 0e  05 3a 0d 10 18 1a f4 20  |....5....:..... |
00003710  43 6c 65 61 72 69 6e 67  20 74 65 6c 65 70 6f 72  |Clearing telepor|
00003720  74 65 72 73 0d 10 22 05  3a 0d 10 2c 12 f4 20 46  |ters..".:..,.. F|
00003730  4f 52 20 41 25 3d 30 54  4f 31 30 0d 10 36 84 f2  |OR A%=0TO10..6..|
00003740  73 68 61 64 6f 77 28 22  43 6c 65 61 72 69 6e 67  |shadow("Clearing|
00003750  20 74 65 6c 65 70 6f 72  74 73 22 2c 32 36 2a 31  | teleports",26*1|
00003760  36 2c 34 30 30 2c 31 34  2c 38 29 3a 74 65 6c 65  |6,400,14,8):tele|
00003770  74 6f 73 63 78 28 29 3d  30 3a 74 65 6c 65 74 6f  |toscx()=0:teleto|
00003780  73 63 79 28 29 3d 30 3a  74 65 6c 65 74 6f 78 28  |scy()=0:teletox(|
00003790  29 3d 30 3a 74 65 6c 65  74 6f 79 28 29 3d 30 3a  |)=0:teletoy()=0:|
000037a0  74 73 63 78 28 29 3d 30  3a 74 73 63 79 28 29 3d  |tscx()=0:tscy()=|
000037b0  30 3a 74 78 28 29 3d 30  3a 74 79 28 29 3d 30 0d  |0:tx()=0:ty()=0.|
000037c0  10 40 0a f4 20 4e 45 58  54 0d 10 4a 05 3a 0d 10  |.@.. NEXT..J.:..|
000037d0  54 19 e6 37 3a c8 93 20  c8 90 30 2c 33 36 30 2c  |T..7:.. ..0,360,|
000037e0  31 32 38 30 2c 35 30 0d  10 5e 70 f2 73 68 61 64  |1280,50..^p.shad|
000037f0  6f 77 28 22 4c 6f 61 64  69 6e 67 20 73 63 72 65  |ow("Loading scre|
00003800  65 6e 73 20 2d 20 22 2b  66 6e 61 6d 65 24 28 61  |ens - "+fname$(a|
00003810  29 2c 32 36 2a 31 36 2c  34 30 30 2c 31 34 2c 38  |),26*16,400,14,8|
00003820  29 3a f2 6c 6f 61 64 73  63 72 65 65 6e 73 28 22  |):.loadscreens("|
00003830  43 61 76 65 6e 44 75 65  6c 3a 53 63 72 65 65 6e  |CavenDuel:Screen|
00003840  73 2e 22 2b 66 6e 61 6d  65 24 28 61 29 29 3a 6c  |s."+fname$(a)):l|
00003850  6f 61 64 65 64 3d 31 0d  10 68 3d c8 99 20 22 58  |oaded=1..h=.. "X|
00003860  4f 53 5f 43 4c 49 22 2c  22 53 65 74 20 47 61 6d  |OS_CLI","Set Gam|
00003870  65 24 50 61 74 68 20 43  61 76 65 6e 44 75 65 6c  |e$Path CavenDuel|
00003880  3a 53 63 72 65 65 6e 73  2e 22 2b 66 6e 61 6d 65  |:Screens."+fname|
00003890  24 28 61 29 0d 10 72 05  e1 0d 10 7c 05 3a 0d 10  |$(a)..r....|.:..|
000038a0  86 20 dd 20 a4 72 65 61  64 66 69 6c 65 73 28 64  |. . .readfiles(d|
000038b0  69 72 24 2c 66 69 6c 65  74 79 70 65 25 29 0d 10  |ir$,filetype%)..|
000038c0  90 28 ea 20 63 75 72 66  69 6c 65 25 2c 66 69 6c  |.(. curfile%,fil|
000038d0  65 25 2c 6e 61 6d 65 24  2c 6e 61 6d 65 25 2c 6e  |e%,name$,name%,n|
000038e0  75 6d 62 65 72 25 0d 10  9a 24 63 75 72 66 69 6c  |umber%...$curfil|
000038f0  65 25 3d 31 3a 66 6e 61  6d 65 24 28 29 3d 22 22  |e%=1:fname$()=""|
00003900  3a 66 69 6c 65 25 3d 30  3a f5 0d 10 a4 3b c8 99  |:file%=0:....;..|
00003910  20 22 4f 53 5f 47 42 50  42 22 2c 31 30 2c 64 69  | "OS_GBPB",10,di|
00003920  72 24 2c 62 6c 6f 63 6b  25 2c 31 2c 66 69 6c 65  |r$,block%,1,file|
00003930  25 2c 36 33 2c 22 2a 22  20 b8 20 2c 2c 2c 6e 75  |%,63,"*" . ,,,nu|
00003940  6d 62 65 72 25 0d 10 ae  16 6e 61 6d 65 24 3d 22  |mber%....name$="|
00003950  22 3a 6e 61 6d 65 25 3d  26 31 34 0d 10 b8 16 c8  |":name%=&14.....|
00003960  95 20 62 6c 6f 63 6b 25  3f 6e 61 6d 65 25 3c 3e  |. block%?name%<>|
00003970  30 0d 10 c2 1a 6e 61 6d  65 24 2b 3d bd 28 62 6c  |0....name$+=.(bl|
00003980  6f 63 6b 25 3f 6e 61 6d  65 25 29 0d 10 cc 0c 6e  |ock%?name%)....n|
00003990  61 6d 65 25 2b 3d 31 0d  10 d6 05 ce 0d 10 e0 4a  |ame%+=1........J|
000039a0  e7 20 28 28 21 62 6c 6f  63 6b 25 20 3e 3e 3e 20  |. ((!block% >>> |
000039b0  38 29 80 20 26 46 46 46  29 3d 66 69 6c 65 74 79  |8). &FFF)=filety|
000039c0  70 65 25 3a 66 6e 61 6d  65 24 28 63 75 72 66 69  |pe%:fname$(curfi|
000039d0  6c 65 25 29 3d 6e 61 6d  65 24 3a 63 75 72 66 69  |le%)=name$:curfi|
000039e0  6c 65 25 2b 3d 31 0d 10  ea 1c 66 69 6c 65 25 2b  |le%+=1....file%+|
000039f0  3d 31 3a 6d 79 6f 77 6e  6e 75 6d 62 65 72 25 2b  |=1:myownnumber%+|
00003a00  3d 31 0d 10 f4 10 fd 20  6e 75 6d 62 65 72 25 3c  |=1..... number%<|
00003a10  3e 31 0d 10 fe 0f 3d 63  75 72 66 69 6c 65 25 2d  |>1....=curfile%-|
00003a20  32 0d 11 08 05 3a 0d 11  12 10 dd 20 f2 63 68 65  |2....:..... .che|
00003a30  63 6b 76 61 6c 73 0d 11  1c 1d e7 20 66 6f 6f 64  |ckvals..... food|
00003a40  76 61 6c 3e 31 32 30 20  66 6f 6f 64 76 61 6c 3d  |val>120 foodval=|
00003a50  31 32 30 0d 11 26 1b e7  20 66 6f 6f 64 76 61 6c  |120..&.. foodval|
00003a60  3c 3d 35 20 20 66 6f 6f  64 76 61 6c 3d 35 0d 11  |<=5  foodval=5..|
00003a70  30 1c e7 20 77 65 61 70  76 61 6c 3e 33 30 20 20  |0.. weapval>30  |
00003a80  77 65 61 70 76 61 6c 3d  33 30 0d 11 3a 1b e7 20  |weapval=30..:.. |
00003a90  77 65 61 70 76 61 6c 3c  3d 34 20 20 77 65 61 70  |weapval<=4  weap|
00003aa0  76 61 6c 3d 34 0d 11 44  1c e7 20 74 65 6c 65 76  |val=4..D.. telev|
00003ab0  61 6c 3e 31 30 20 20 74  65 6c 65 76 61 6c 3d 31  |al>10  televal=1|
00003ac0  30 0d 11 4e 1b e7 20 74  65 6c 65 76 61 6c 3c 3d  |0..N.. televal<=|
00003ad0  30 20 20 74 65 6c 65 76  61 6c 3d 30 0d 11 58 1c  |0  televal=0..X.|
00003ae0  e7 20 73 68 6c 64 76 61  6c 3e 32 30 20 20 73 68  |. shldval>20  sh|
00003af0  6c 64 76 61 6c 3d 32 30  0d 11 62 1b e7 20 73 68  |ldval=20..b.. sh|
00003b00  6c 64 76 61 6c 3c 3d 30  20 20 73 68 6c 64 76 61  |ldval<=0  shldva|
00003b10  6c 3d 30 0d 11 6c 05 e1  0d 11 76 05 3a 0d 11 80  |l=0..l....v.:...|
00003b20  19 dd 20 a4 72 61 6e 67  65 28 52 58 2c 52 59 2c  |.. .range(RX,RY,|
00003b30  52 57 2c 52 48 29 0d 11  8a 0b ea 20 58 54 2c 59  |RW,RH)..... XT,Y|
00003b40  54 0d 11 94 08 58 54 3d  a3 0d 11 9e 1f e7 20 4d  |T....XT=...... M|
00003b50  58 25 3e 52 58 20 80 20  4d 58 25 3c 28 52 58 2b  |X%>RX . MX%<(RX+|
00003b60  52 57 29 3a 58 54 3d b9  0d 11 a8 1f e7 20 4d 59  |RW):XT=...... MY|
00003b70  25 3e 52 59 20 80 20 4d  59 25 3c 28 52 59 2b 52  |%>RY . MY%<(RY+R|
00003b80  48 29 3a 59 54 3d b9 0d  11 b2 19 e7 20 28 58 54  |H):YT=...... (XT|
00003b90  3d a3 29 20 84 20 28 59  54 3d a3 29 3a 20 3d a3  |=.) . (YT=.): =.|
00003ba0  0d 11 bc 0b ec 20 52 58  2c 52 59 0d 11 c6 0f f0  |..... RX,RY.....|
00003bb0  20 26 36 32 2c 52 57 2c  52 48 0d 11 d0 13 54 25  | &62,RW,RH....T%|
00003bc0  3d 91 3a f5 20 fd 20 91  3e 54 25 2b 37 0d 11 da  |=.:. . .>T%+7...|
00003bd0  0b ec 20 52 58 2c 52 59  0d 11 e4 0f f0 20 26 36  |.. RX,RY..... &6|
00003be0  32 2c 52 57 2c 52 48 0d  11 ee 06 3d b9 0d 11 f8  |2,RW,RH....=....|
00003bf0  05 3a 0d 12 02 25 dd 20  f2 73 69 7a 65 28 78 25  |.:...%. .size(x%|
00003c00  2c 79 25 29 3a ef 20 32  33 2c 31 37 2c 37 2c 36  |,y%):. 23,17,7,6|
00003c10  2c 78 25 3b 79 25 7c 0d  12 0c 05 e1 0d 12 16 05  |,x%;y%|.........|
00003c20  3a 0d 12 20 58 dd 20 f2  73 68 61 64 6f 77 28 74  |:.. X. .shadow(t|
00003c30  65 78 74 24 2c 78 2c 79  2c 63 6f 6c 2c 67 61 70  |ext$,x,y,col,gap|
00003c40  29 3a ef 35 3a e6 20 37  3a ec 20 78 2b 67 61 70  |):.5:. 7:. x+gap|
00003c50  2c 79 2d 67 61 70 3a f1  20 74 65 78 74 24 3a e6  |,y-gap:. text$:.|
00003c60  20 63 6f 6c 3a ec 20 78  2c 79 3a f1 20 74 65 78  | col:. x,y:. tex|
00003c70  74 24 3a ef 34 3a 87 3a  e1 0d 12 2a 05 3a 0d 12  |t$:.4:.:...*.:..|
00003c80  34 0b dd 20 f2 74 69 64  79 0d 12 3e 15 d6 20 66  |4.. .tidy..>.. f|
00003c90  61 64 65 3a c8 97 20 87  3a ef 32 36 3a db 0d 12  |ade:.. .:.26:...|
00003ca0  48 15 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 31  |H... "OS_Byte",1|
00003cb0  35 2c 30 0d 12 52 20 c8  99 20 22 4f 53 5f 42 79  |5,0..R .. "OS_By|
00003cc0  74 65 22 2c 31 32 39 2c  30 2c 32 35 35 20 b8 20  |te",129,0,255 . |
00003cd0  2c 61 25 0d 12 5c 0e e7  20 61 25 3d 31 36 35 20  |,a%..\.. a%=165 |
00003ce0  8c 0d 12 66 2c f2 70 61  6c 65 74 74 65 28 22 43  |...f,.palette("C|
00003cf0  61 76 65 6e 44 75 65 6c  3a 50 61 6c 65 74 74 65  |avenDuel:Palette|
00003d00  73 2e 21 52 69 73 63 50  43 6f 6c 22 29 0d 12 70  |s.!RiscPCol")..p|
00003d10  05 cc 0d 12 7a 2b f2 70  61 6c 65 74 74 65 28 22  |....z+.palette("|
00003d20  43 61 76 65 6e 44 75 65  6c 3a 50 61 6c 65 74 74  |CavenDuel:Palett|
00003d30  65 73 2e 21 44 65 66 61  75 6c 74 22 29 0d 12 84  |es.!Default")...|
00003d40  05 cd 0d 12 8e 1a f4 20  4f 53 43 4c 49 22 52 4d  |....... OSCLI"RM|
00003d50  4b 69 6c 6c 20 4f 62 6a  47 65 74 22 0d 12 98 1a  |Kill ObjGet"....|
00003d60  f4 20 4f 53 43 4c 49 22  52 4d 4b 69 6c 6c 20 52  |. OSCLI"RMKill R|
00003d70  6f 74 61 74 65 22 0d 12  a2 19 f4 20 4f 53 43 4c  |otate"..... OSCL|
00003d80  49 22 52 4d 4b 69 6c 6c  20 53 69 64 65 73 22 0d  |I"RMKill Sides".|
00003d90  12 ac 17 f4 20 4f 53 43  4c 49 22 52 4d 4b 69 6c  |.... OSCLI"RMKil|
00003da0  6c 20 41 72 67 22 0d 12  b6 18 f4 20 4f 53 43 4c  |l Arg"..... OSCL|
00003db0  49 22 52 4d 4b 69 6c 6c  20 46 69 72 65 22 0d 12  |I"RMKill Fire"..|
00003dc0  c0 17 f4 20 4f 53 43 4c  49 22 52 4d 4b 69 6c 6c  |... OSCLI"RMKill|
00003dd0  20 68 69 74 22 0d 12 ca  1d f4 20 4f 53 43 4c 49  | hit"..... OSCLI|
00003de0  22 43 68 61 6e 6e 65 6c  56 6f 69 63 65 20 31 20  |"ChannelVoice 1 |
00003df0  31 22 0d 12 d4 2e c8 99  20 22 58 4f 53 5f 43 4c  |1"...... "XOS_CL|
00003e00  49 22 2c 22 52 75 6e 20  43 61 76 65 6e 44 75 65  |I","Run CavenDue|
00003e10  6c 3a 52 65 73 6f 75 72  63 65 73 2e 45 6e 64 22  |l:Resources.End"|
00003e20  0d 12 de 05 e1 0d 12 e8  05 3a 0d 12 f2 0b dd 20  |.........:..... |
00003e30  f2 70 6c 61 79 0d 12 fc  29 db 3a e3 20 49 25 3d  |.play...).:. I%=|
00003e40  30 b8 31 35 3a ef 31 39  2c 49 25 2c 30 3b 30 3b  |0.15:.19,I%,0;0;|
00003e50  3a ed 3a f2 63 6c 65 61  72 62 61 6e 6b 73 0d 13  |:.:.clearbanks..|
00003e60  06 08 c8 97 20 87 0d 13  10 0d 67 61 70 66 69 72  |.... .....gapfir|
00003e70  65 3d 30 0d 13 1a 23 f4  20 52 65 63 61 6c 6c 20  |e=0...#. Recall |
00003e80  70 72 65 2d 70 6f 73 69  74 69 6f 6e 65 64 20 6f  |pre-positioned o|
00003e90  62 6a 65 63 74 73 0d 13  24 17 e3 20 6f 62 6a 3d  |bjects..$.. obj=|
00003ea0  31 20 b8 20 6e 75 6d 6f  66 6f 62 6a 73 0d 13 2e  |1 . numofobjs...|
00003eb0  4c 73 63 72 65 65 6e 24  28 6f 62 6a 5f 73 63 78  |Lscreen$(obj_scx|
00003ec0  28 6f 62 6a 29 2c 6f 62  6a 5f 73 63 79 28 6f 62  |(obj),obj_scy(ob|
00003ed0  6a 29 2c 6f 62 6a 5f 78  28 6f 62 6a 29 2c 6f 62  |j),obj_x(obj),ob|
00003ee0  6a 5f 79 28 6f 62 6a 29  29 3d 6f 62 6a 5f 72 65  |j_y(obj))=obj_re|
00003ef0  6d 65 6d 24 28 6f 62 6a  29 0d 13 38 05 ed 0d 13  |mem$(obj)..8....|
00003f00  42 21 f4 20 53 59 53 20  36 2c 31 31 32 2c 32 3a  |B!. SYS 6,112,2:|
00003f10  53 59 53 20 36 2c 31 31  33 2c 32 3a 43 4c 53 0d  |SYS 6,113,2:CLS.|
00003f20  13 4c 21 f4 20 53 59 53  20 36 2c 31 31 32 2c 31  |.L!. SYS 6,112,1|
00003f30  3a 53 59 53 20 36 2c 31  31 33 2c 31 3a 43 4c 53  |:SYS 6,113,1:CLS|
00003f40  0d 13 56 11 f2 64 72 61  77 67 72 61 70 68 69 63  |..V..drawgraphic|
00003f50  73 0d 13 60 11 f2 70 6c  61 63 65 6f 62 6a 65 63  |s..`..placeobjec|
00003f60  74 73 0d 13 6a 11 f2 73  65 74 75 70 70 6c 61 79  |ts..j..setupplay|
00003f70  65 72 73 0d 13 74 0d 70  6c 61 79 65 72 25 3d 31  |ers..t.player%=1|
00003f80  0d 13 7e 36 f2 73 63 72  65 65 6e 28 73 63 72 65  |..~6.screen(scre|
00003f90  65 6e 78 28 70 6c 61 79  65 72 25 29 2c 73 63 72  |enx(player%),scr|
00003fa0  65 65 6e 79 28 70 6c 61  79 65 72 25 29 2c 70 6c  |eeny(player%),pl|
00003fb0  61 79 65 72 25 29 0d 13  88 14 d4 31 2c 2d 31 35  |ayer%).....1,-15|
00003fc0  2c 26 32 30 30 30 2c 31  30 30 0d 13 92 0d 70 6c  |,&2000,100....pl|
00003fd0  61 79 65 72 25 3d 32 0d  13 9c 36 f2 73 63 72 65  |ayer%=2...6.scre|
00003fe0  65 6e 28 73 63 72 65 65  6e 78 28 70 6c 61 79 65  |en(screenx(playe|
00003ff0  72 25 29 2c 73 63 72 65  65 6e 79 28 70 6c 61 79  |r%),screeny(play|
00004000  65 72 25 29 2c 70 6c 61  79 65 72 25 29 0d 13 a6  |er%),player%)...|
00004010  14 d4 31 2c 2d 31 35 2c  26 31 30 30 30 2c 31 30  |..1,-15,&1000,10|
00004020  30 0d 13 b0 20 e6 20 36  33 20 c8 9c 20 31 39 32  |0... . 63 .. 192|
00004030  3a 86 20 30 2c 35 30 38  2c 31 32 38 30 2c 35 30  |:. 0,508,1280,50|
00004040  38 0d 13 ba 15 f2 67 72  61 62 28 31 29 3a f2 67  |8.....grab(1):.g|
00004050  72 61 62 28 32 29 0d 13  c4 4c 70 6c 61 79 65 72  |rab(2)...Lplayer|
00004060  25 3d 31 3a c8 99 20 34  36 2c 26 31 32 32 2c 61  |%=1:.. 46,&122,a|
00004070  72 65 61 25 2c 22 31 64  30 22 2c 59 4f 55 58 28  |rea%,"1d0",YOUX(|
00004080  70 6c 61 79 65 72 25 29  2a 36 34 2c 35 31 32 2b  |player%)*64,512+|
00004090  59 4f 55 59 28 70 6c 61  79 65 72 25 29 2a 33 32  |YOUY(player%)*32|
000040a0  2c 38 0d 13 ce 4a 70 6c  61 79 65 72 25 3d 32 3a  |,8...Jplayer%=2:|
000040b0  c8 99 20 34 36 2c 26 31  32 32 2c 61 72 65 61 25  |.. 46,&122,area%|
000040c0  2c 22 32 64 30 22 2c 59  4f 55 58 28 70 6c 61 79  |,"2d0",YOUX(play|
000040d0  65 72 25 29 2a 36 34 2c  59 4f 55 59 28 70 6c 61  |er%)*64,YOUY(pla|
000040e0  79 65 72 25 29 2a 33 32  2d 34 2c 38 0d 13 d8 2a  |yer%)*32-4,8...*|
000040f0  f2 70 61 6c 65 74 74 65  28 22 43 61 76 65 6e 44  |.palette("CavenD|
00004100  75 65 6c 3a 50 61 6c 65  74 74 65 73 2e 47 61 6d  |uel:Palettes.Gam|
00004110  65 50 61 6c 22 29 0d 13  e2 05 3a 0d 13 ec 05 f5  |ePal")....:.....|
00004120  0d 13 f6 1e c8 99 20 34  36 2c 26 32 32 32 2c 67  |...... 46,&222,g|
00004130  72 61 62 25 2c 62 67 25  2c 30 2c 30 2c 30 0d 14  |rab%,bg%,0,0,0..|
00004140  00 24 c8 99 20 34 36 2c  26 32 32 32 2c 67 72 61  |.$.. 46,&222,gra|
00004150  62 74 77 6f 25 2c 62 67  32 25 2c 30 2c 35 31 32  |btwo%,bg2%,0,512|
00004160  2c 30 0d 14 0a 05 3a 0d  14 14 29 e7 20 65 6e 65  |,0....:...). ene|
00004170  72 67 79 28 31 29 3e 30  3a e7 20 6b 65 79 63 68  |rgy(1)>0:. keych|
00004180  65 63 6b 72 61 74 65 3d  31 3a f2 6b 65 79 73 31  |eckrate=1:.keys1|
00004190  0d 14 1e 0b 67 61 70 64  6f 3d 30 0d 14 28 0d 77  |....gapdo=0..(.w|
000041a0  65 70 74 79 70 65 3d 30  0d 14 32 2d e7 20 77 65  |eptype=0..2-. we|
000041b0  61 70 6f 6e 24 28 31 29  3d 22 77 65 70 31 22 20  |apon$(1)="wep1" |
000041c0  84 20 77 65 61 70 6f 6e  24 28 31 29 3d 22 77 65  |. weapon$(1)="we|
000041d0  70 34 22 20 8c 0d 14 3c  0b 67 61 70 64 6f 3d 31  |p4" ...<.gapdo=1|
000041e0  0d 14 46 0d 77 65 70 74  79 70 65 3d 31 0d 14 50  |..F.weptype=1..P|
000041f0  05 cc 0d 14 5a 0d 77 65  70 74 79 70 65 3d 32 0d  |....Z.weptype=2.|
00004200  14 64 0d f2 67 61 70 5f  66 69 72 65 0d 14 6e 05  |.d..gap_fire..n.|
00004210  cd 0d 14 78 0f e7 20 67  61 70 64 6f 3d 30 20 8c  |...x.. gapdo=0 .|
00004220  0d 14 82 0e f2 63 68 65  63 6b 77 65 70 73 0d 14  |.....checkweps..|
00004230  8c 05 cc 0d 14 96 3c e7  20 77 65 70 74 79 70 65  |......<. weptype|
00004240  3d 31 3a e7 20 a6 2d 38  34 3a e7 20 65 6e 65 72  |=1:. .-84:. ener|
00004250  67 79 28 31 29 3e 30 3a  e7 20 6b 65 79 63 68 65  |gy(1)>0:. keyche|
00004260  63 6b 72 61 74 65 3d 31  3a f2 66 69 72 65 31 0d  |ckrate=1:.fire1.|
00004270  14 a0 35 e7 20 77 65 70  74 79 70 65 3d 32 3a e7  |..5. weptype=2:.|
00004280  20 a6 2d 38 34 3a e7 20  65 6e 65 72 67 79 28 31  | .-84:. energy(1|
00004290  29 3e 30 3a e7 20 67 61  70 64 6f 3d 31 3a f2 66  |)>0:. gapdo=1:.f|
000042a0  69 72 65 31 0d 14 aa 0e  f2 63 68 65 63 6b 77 65  |ire1.....checkwe|
000042b0  70 73 0d 14 b4 05 cd 0d  14 be 05 3a 0d 14 c8 29  |ps.........:...)|
000042c0  e7 20 65 6e 65 72 67 79  28 32 29 3e 30 3a e7 20  |. energy(2)>0:. |
000042d0  6b 65 79 63 68 65 63 6b  72 61 74 65 3d 31 3a f2  |keycheckrate=1:.|
000042e0  6b 65 79 73 32 0d 14 d2  30 e7 20 a6 2d 35 39 3a  |keys2...0. .-59:|
000042f0  e7 20 65 6e 65 72 67 79  28 32 29 3e 30 3a e7 20  |. energy(2)>0:. |
00004300  6b 65 79 63 68 65 63 6b  72 61 74 65 3d 31 3a f2  |keycheckrate=1:.|
00004310  66 69 72 65 32 0d 14 dc  0f f2 63 68 65 63 6b 77  |fire2.....checkw|
00004320  65 70 73 32 0d 14 e6 16  e7 20 a6 2d 39 30 20 8c  |eps2..... .-90 .|
00004330  20 f5 20 fd 20 a6 2d 31  30 36 0d 14 f0 19 e7 20  | . . .-106..... |
00004340  a6 2d 31 37 20 8c 20 2a  53 50 45 41 4b 45 52 20  |.-17 . *SPEAKER |
00004350  4f 46 46 0d 14 fa 18 e7  20 a6 2d 38 32 20 8c 20  |OFF..... .-82 . |
00004360  2a 53 50 45 41 4b 45 52  20 4f 4e 0d 15 04 3f e7  |*SPEAKER ON...?.|
00004370  20 a6 2d 39 37 3a 65 6e  64 25 3d 31 3a c8 99 20  | .-97:end%=1:.. |
00004380  22 58 4f 53 5f 43 4c 49  22 2c 22 43 48 41 4e 4e  |"XOS_CLI","CHANN|
00004390  45 4c 2e 20 32 20 41 72  67 22 3a d4 32 2c 2d 31  |EL. 2 Arg":.2,-1|
000043a0  35 2c 26 31 30 30 2c 31  30 30 0d 15 0e 20 70 6c  |5,&100,100... pl|
000043b0  61 79 65 72 25 3d 31 3a  f2 70 72 69 6e 74 3a f2  |ayer%=1:.print:.|
000043c0  70 72 69 6e 74 62 75 6c  73 31 0d 15 18 20 70 6c  |printbuls1... pl|
000043d0  61 79 65 72 25 3d 32 3a  f2 70 72 69 6e 74 3a f2  |ayer%=2:.print:.|
000043e0  70 72 69 6e 74 62 75 6c  73 31 0d 15 22 0f f2 70  |printbuls1.."..p|
000043f0  72 69 6e 74 6f 74 68 65  72 0d 15 2c 35 6b 65 79  |rintother..,5key|
00004400  63 68 65 63 6b 72 61 74  65 2b 3d 31 3a e7 20 6b  |checkrate+=1:. k|
00004410  65 79 63 68 65 63 6b 72  61 74 65 3e 31 20 8c 20  |eycheckrate>1 . |
00004420  6b 65 79 63 68 65 63 6b  72 61 74 65 3d 30 0d 15  |keycheckrate=0..|
00004430  36 21 e7 20 68 69 74 31  3d 31 3a 68 69 74 63 6f  |6!. hit1=1:hitco|
00004440  75 6e 74 65 72 31 3d 30  3a 68 69 74 31 3d 32 0d  |unter1=0:hit1=2.|
00004450  15 40 21 e7 20 68 69 74  32 3d 31 3a 68 69 74 63  |.@!. hit2=1:hitc|
00004460  6f 75 6e 74 65 72 32 3d  30 3a 68 69 74 32 3d 32  |ounter2=0:hit2=2|
00004470  0d 15 4a 2a e7 20 68 69  74 31 3d 32 3a 68 69 74  |..J*. hit1=2:hit|
00004480  63 6f 75 6e 74 65 72 31  2b 3d 31 3a f2 64 72 61  |counter1+=1:.dra|
00004490  77 62 6c 6f 6f 64 5f 70  6c 31 0d 15 54 2a e7 20  |wblood_pl1..T*. |
000044a0  68 69 74 32 3d 32 3a 68  69 74 63 6f 75 6e 74 65  |hit2=2:hitcounte|
000044b0  72 32 2b 3d 31 3a f2 64  72 61 77 62 6c 6f 6f 64  |r2+=1:.drawblood|
000044c0  5f 70 6c 32 0d 15 5e 32  e7 20 68 69 74 31 3d 32  |_pl2..^2. hit1=2|
000044d0  3a e7 20 68 69 74 63 6f  75 6e 74 65 72 31 3e 31  |:. hitcounter1>1|
000044e0  30 3a 68 69 74 31 3d 30  3a 68 69 74 63 6f 75 6e  |0:hit1=0:hitcoun|
000044f0  74 65 72 31 3d 30 0d 15  68 32 e7 20 68 69 74 32  |ter1=0..h2. hit2|
00004500  3d 32 3a e7 20 68 69 74  63 6f 75 6e 74 65 72 32  |=2:. hitcounter2|
00004510  3e 31 30 3a 68 69 74 32  3d 30 3a 68 69 74 63 6f  |>10:hit2=0:hitco|
00004520  75 6e 74 65 72 32 3d 30  0d 15 72 10 f2 70 72 69  |unter2=0..r..pri|
00004530  6e 74 65 6e 65 72 67 79  0d 15 7c 3f e7 20 65 6e  |ntenergy..|?. en|
00004540  65 72 67 79 28 31 29 3c  3d 30 20 84 20 65 6e 65  |ergy(1)<=0 . ene|
00004550  72 67 79 28 32 29 3c 3d  30 3a 63 6f 75 6e 74 74  |rgy(2)<=0:countt|
00004560  69 6c 6c 65 6e 64 25 2b  3d 31 3a f2 70 72 69 6e  |illend%+=1:.prin|
00004570  74 77 69 6e 6e 65 72 0d  15 86 32 e7 20 63 6f 75  |twinner...2. cou|
00004580  6e 74 74 69 6c 6c 65 6e  64 25 3d 31 3a d4 32 2c  |nttillend%=1:.2,|
00004590  2d 31 35 2c 26 31 30 30  30 2c 31 30 30 3a f2 66  |-15,&1000,100:.f|
000045a0  69 6e 64 77 69 6e 6e 65  72 0d 15 90 32 d1 3d 30  |indwinner...2.=0|
000045b0  3a f5 20 fd 20 91 3d 31  3a f4 20 54 69 6d 65 20  |:. . .=1:. Time |
000045c0  44 65 6c 61 79 20 74 6f  20 67 65 74 20 73 70 65  |Delay to get spe|
000045d0  65 64 20 74 68 65 20 73  61 6d 65 0d 15 9a 06 c8  |ed the same.....|
000045e0  96 0d 15 a4 10 c8 99 20  36 2c 31 31 32 2c 73 31  |....... 6,112,s1|
000045f0  25 0d 15 ae 10 c8 99 20  36 2c 31 31 33 2c 73 32  |%...... 6,113,s2|
00004600  25 0d 15 b8 0e c8 94 20  73 31 25 2c 73 32 25 0d  |%...... s1%,s2%.|
00004610  15 c2 1f fd 20 65 6e 64  25 3d 31 20 84 20 63 6f  |.... end%=1 . co|
00004620  75 6e 74 74 69 6c 6c 65  6e 64 25 3e 39 30 0d 15  |unttillend%>90..|
00004630  cc 0b 63 72 65 64 73 3d  31 0d 15 d6 05 3a 0d 15  |..creds=1....:..|
00004640  e0 19 f4 20 43 6c 65 61  72 20 6d 61 70 20 6f 66  |... Clear map of|
00004650  20 77 61 73 74 65 2e 0d  15 ea 17 73 63 72 70 6f  | waste.....scrpo|
00004660  73 78 3d 30 3a 73 63 72  70 6f 73 79 3d 30 0d 15  |sx=0:scrposy=0..|
00004670  f4 05 f5 0d 15 fe 39 e3  20 41 3d 30 b8 31 35 20  |......9. A=0.15 |
00004680  3a e3 20 42 3d 30 b8 31  35 3a 77 68 61 74 24 3d  |:. B=0.15:what$=|
00004690  73 63 72 65 65 6e 24 28  73 63 72 70 6f 73 78 2c  |screen$(scrposx,|
000046a0  73 63 72 70 6f 73 79 2c  41 2c 42 29 0d 16 08 0e  |scrposy,A,B)....|
000046b0  c8 8e 20 77 68 61 74 24  20 ca 0d 16 12 67 c9 20  |.. what$ ....g. |
000046c0  22 31 30 22 2c 22 31 31  22 2c 22 31 32 22 2c 22  |"10","11","12","|
000046d0  31 33 22 2c 22 31 34 22  2c 22 31 35 22 2c 22 77  |13","14","15","w|
000046e0  65 70 30 22 2c 22 77 65  70 31 22 2c 22 77 65 70  |ep0","wep1","wep|
000046f0  32 22 2c 22 77 65 70 33  22 2c 22 77 65 70 34 22  |2","wep3","wep4"|
00004700  3a 73 63 72 65 65 6e 24  28 73 63 72 70 6f 73 78  |:screen$(scrposx|
00004710  2c 73 63 72 70 6f 73 79  2c 41 2c 42 29 3d 22 30  |,scrposy,A,B)="0|
00004720  22 0d 16 1c 05 cb 0d 16  26 07 ed 3a ed 0d 16 30  |".......&..:...0|
00004730  31 73 63 72 70 6f 73 78  2b 3d 31 3a e7 20 73 63  |1scrposx+=1:. sc|
00004740  72 70 6f 73 78 3e 37 20  8c 20 73 63 72 70 6f 73  |rposx>7 . scrpos|
00004750  78 3d 30 3a 73 63 72 70  6f 73 79 2b 3d 31 0d 16  |x=0:scrposy+=1..|
00004760  3a 0f fd 20 73 63 72 70  6f 73 79 3e 33 0d 16 44  |:.. scrposy>3..D|
00004770  05 e1 0d 16 4e 05 3a 0d  16 58 17 dd 20 f2 67 61  |....N.:..X.. .ga|
00004780  70 5f 66 69 72 65 3a 67  61 70 64 6f 3d 30 0d 16  |p_fire:gapdo=0..|
00004790  62 0e 67 61 70 66 69 72  65 2b 3d 31 0d 16 6c 21  |b.gapfire+=1..l!|
000047a0  e7 20 67 61 70 66 69 72  65 3e 33 3a 67 61 70 66  |. gapfire>3:gapf|
000047b0  69 72 65 3d 30 3a 67 61  70 64 6f 3d 31 0d 16 76  |ire=0:gapdo=1..v|
000047c0  05 e1 0d 16 80 05 3a 0d  16 8a 0c dd 20 f2 6b 65  |......:..... .ke|
000047d0  79 73 31 0d 16 94 0d 70  6c 61 79 65 72 25 3d 31  |ys1....player%=1|
000047e0  0d 16 9e 86 e7 20 a6 2d  39 38 3a 59 4f 55 58 28  |..... .-98:YOUX(|
000047f0  70 6c 61 79 65 72 25 29  2d 3d 31 3a 6d 6f 76 65  |player%)-=1:move|
00004800  28 70 6c 61 79 65 72 25  29 3d 30 3a 64 69 72 65  |(player%)=0:dire|
00004810  24 28 70 6c 61 79 65 72  25 29 3d 22 6c 22 3a 62  |$(player%)="l":b|
00004820  75 6c 64 31 3d 33 3a f2  63 68 65 63 6b 3a f2 63  |uld1=3:.check:.c|
00004830  68 65 63 6b 61 72 65 61  3a 61 6e 69 6d 28 70 6c  |heckarea:anim(pl|
00004840  61 79 65 72 25 29 3d 61  6e 69 6d 28 70 6c 61 79  |ayer%)=anim(play|
00004850  65 72 25 29 2b 31 3a f2  70 72 69 6e 74 3a f2 63  |er%)+1:.print:.c|
00004860  6c 65 61 72 3a e1 0d 16  a8 86 e7 20 a6 2d 36 37  |lear:...... .-67|
00004870  3a 59 4f 55 58 28 70 6c  61 79 65 72 25 29 2b 3d  |:YOUX(player%)+=|
00004880  31 3a 6d 6f 76 65 28 70  6c 61 79 65 72 25 29 3d  |1:move(player%)=|
00004890  31 3a 64 69 72 65 24 28  70 6c 61 79 65 72 25 29  |1:dire$(player%)|
000048a0  3d 22 72 22 3a 62 75 6c  64 31 3d 31 3a f2 63 68  |="r":buld1=1:.ch|
000048b0  65 63 6b 3a f2 63 68 65  63 6b 61 72 65 61 3a 61  |eck:.checkarea:a|
000048c0  6e 69 6d 28 70 6c 61 79  65 72 25 29 3d 61 6e 69  |nim(player%)=ani|
000048d0  6d 28 70 6c 61 79 65 72  25 29 2b 31 3a f2 70 72  |m(player%)+1:.pr|
000048e0  69 6e 74 3a f2 63 6c 65  61 72 3a e1 0d 16 b2 86  |int:.clear:.....|
000048f0  e7 20 a6 2d 36 38 3a 59  4f 55 59 28 70 6c 61 79  |. .-68:YOUY(play|
00004900  65 72 25 29 2b 3d 31 3a  6d 6f 76 65 28 70 6c 61  |er%)+=1:move(pla|
00004910  79 65 72 25 29 3d 32 3a  64 69 72 65 24 28 70 6c  |yer%)=2:dire$(pl|
00004920  61 79 65 72 25 29 3d 22  75 22 3a 62 75 6c 64 31  |ayer%)="u":buld1|
00004930  3d 30 3a f2 63 68 65 63  6b 3a f2 63 68 65 63 6b  |=0:.check:.check|
00004940  61 72 65 61 3a 61 6e 69  6d 28 70 6c 61 79 65 72  |area:anim(player|
00004950  25 29 3d 61 6e 69 6d 28  70 6c 61 79 65 72 25 29  |%)=anim(player%)|
00004960  2b 31 3a f2 70 72 69 6e  74 3a f2 63 6c 65 61 72  |+1:.print:.clear|
00004970  3a e1 0d 16 bc 84 e7 20  a6 2d 38 33 3a 59 4f 55  |:...... .-83:YOU|
00004980  59 28 70 6c 61 79 65 72  25 29 2d 3d 31 3a 6d 6f  |Y(player%)-=1:mo|
00004990  76 65 28 70 6c 61 79 65  72 25 29 3d 33 3a 64 69  |ve(player%)=3:di|
000049a0  72 65 24 28 70 6c 61 79  65 72 25 29 3d 22 64 22  |re$(player%)="d"|
000049b0  3a 62 75 6c 64 31 3d 32  3a f2 63 68 65 63 6b 3a  |:buld1=2:.check:|
000049c0  f2 63 68 65 63 6b 61 72  65 61 3a 61 6e 69 6d 28  |.checkarea:anim(|
000049d0  70 6c 61 79 65 72 25 29  3d 61 6e 69 6d 28 70 6c  |player%)=anim(pl|
000049e0  61 79 65 72 25 29 2b 31  3a f2 70 72 69 6e 74 3a  |ayer%)+1:.print:|
000049f0  f2 63 6c 65 61 72 0d 16  c6 05 e1 0d 16 d0 05 3a  |.clear.........:|
00004a00  0d 16 da 0c dd 20 f2 6b  65 79 73 32 0d 16 e4 0d  |..... .keys2....|
00004a10  70 6c 61 79 65 72 25 3d  32 0d 16 ee 73 e7 20 a6  |player%=2...s. .|
00004a20  2d 31 30 38 3a 59 4f 55  58 28 70 6c 61 79 65 72  |-108:YOUX(player|
00004a30  25 29 2d 3d 31 3a 6d 6f  76 65 28 70 6c 61 79 65  |%)-=1:move(playe|
00004a40  72 25 29 3d 30 3a 64 69  72 65 24 28 70 6c 61 79  |r%)=0:dire$(play|
00004a50  65 72 25 29 3d 22 6c 22  3a 62 75 6c 64 32 3d 33  |er%)="l":buld2=3|
00004a60  3a f2 63 68 65 63 6b 3a  f2 63 68 65 63 6b 61 72  |:.check:.checkar|
00004a70  65 61 3a 61 6e 69 6d 28  70 6c 61 79 65 72 25 29  |ea:anim(player%)|
00004a80  2b 3d 31 3a f2 70 72 69  6e 74 3a e1 0d 16 f8 73  |+=1:.print:....s|
00004a90  e7 20 a6 2d 31 32 35 3a  59 4f 55 58 28 70 6c 61  |. .-125:YOUX(pla|
00004aa0  79 65 72 25 29 2b 3d 31  3a 6d 6f 76 65 28 70 6c  |yer%)+=1:move(pl|
00004ab0  61 79 65 72 25 29 3d 31  3a 64 69 72 65 24 28 70  |ayer%)=1:dire$(p|
00004ac0  6c 61 79 65 72 25 29 3d  22 72 22 3a 62 75 6c 64  |layer%)="r":buld|
00004ad0  32 3d 31 3a f2 63 68 65  63 6b 3a f2 63 68 65 63  |2=1:.check:.chec|
00004ae0  6b 61 72 65 61 3a 61 6e  69 6d 28 70 6c 61 79 65  |karea:anim(playe|
00004af0  72 25 29 2b 3d 31 3a f2  70 72 69 6e 74 3a e1 0d  |r%)+=1:.print:..|
00004b00  17 02 72 e7 20 a6 2d 32  37 3a 59 4f 55 59 28 70  |..r. .-27:YOUY(p|
00004b10  6c 61 79 65 72 25 29 2b  3d 31 3a 6d 6f 76 65 28  |layer%)+=1:move(|
00004b20  70 6c 61 79 65 72 25 29  3d 32 3a 64 69 72 65 24  |player%)=2:dire$|
00004b30  28 70 6c 61 79 65 72 25  29 3d 22 75 22 3a 62 75  |(player%)="u":bu|
00004b40  6c 64 32 3d 30 3a f2 63  68 65 63 6b 3a f2 63 68  |ld2=0:.check:.ch|
00004b50  65 63 6b 61 72 65 61 3a  61 6e 69 6d 28 70 6c 61  |eckarea:anim(pla|
00004b60  79 65 72 25 29 2b 3d 31  3a f2 70 72 69 6e 74 3a  |yer%)+=1:.print:|
00004b70  e1 0d 17 0c 71 e7 20 a6  2d 31 30 39 3a 59 4f 55  |....q. .-109:YOU|
00004b80  59 28 70 6c 61 79 65 72  25 29 2d 3d 31 3a 6d 6f  |Y(player%)-=1:mo|
00004b90  76 65 28 70 6c 61 79 65  72 25 29 3d 33 3a 64 69  |ve(player%)=3:di|
00004ba0  72 65 24 28 70 6c 61 79  65 72 25 29 3d 22 64 22  |re$(player%)="d"|
00004bb0  3a 62 75 6c 64 32 3d 32  3a f2 63 68 65 63 6b 3a  |:buld2=2:.check:|
00004bc0  f2 63 68 65 63 6b 61 72  65 61 3a 61 6e 69 6d 28  |.checkarea:anim(|
00004bd0  70 6c 61 79 65 72 25 29  2b 3d 31 3a f2 70 72 69  |player%)+=1:.pri|
00004be0  6e 74 0d 17 16 05 e1 0d  17 20 05 3a 0d 17 2a 18  |nt....... .:..*.|
00004bf0  dd 20 f2 73 63 72 65 65  6e 28 45 2c 46 2c 50 4c  |. .screen(E,F,PL|
00004c00  41 59 25 29 0d 17 34 0d  43 3d 30 3a 44 3d 39 39  |AY%)..4.C=0:D=99|
00004c10  34 0d 17 3e 19 e7 20 50  4c 41 59 25 3d 32 20 8c  |4..>.. PLAY%=2 .|
00004c20  20 43 3d 30 3a 44 3d 34  37 36 0d 17 48 0c 58 3d  | C=0:D=476..H.X=|
00004c30  30 3a 59 3d 31 35 0d 17  52 05 f5 0d 17 5c 17 61  |0:Y=15..R....\.a|
00004c40  24 3d 73 63 72 65 65 6e  24 28 45 2c 46 2c 58 2c  |$=screen$(E,F,X,|
00004c50  59 29 0d 17 66 0b c8 8e  20 61 24 20 ca 0d 17 70  |Y)..f... a$ ...p|
00004c60  12 c9 20 22 77 65 70 30  22 3a 61 25 3d 32 30 0d  |.. "wep0":a%=20.|
00004c70  17 7a 12 c9 20 22 77 65  70 31 22 3a 61 25 3d 32  |.z.. "wep1":a%=2|
00004c80  31 0d 17 84 12 c9 20 22  77 65 70 32 22 3a 61 25  |1..... "wep2":a%|
00004c90  3d 32 32 0d 17 8e 12 c9  20 22 77 65 70 33 22 3a  |=22..... "wep3":|
00004ca0  61 25 3d 32 33 0d 17 98  12 c9 20 22 77 65 70 34  |a%=23..... "wep4|
00004cb0  22 3a 61 25 3d 32 34 0d  17 a2 1c c9 20 22 34 22  |":a%=24..... "4"|
00004cc0  3a 72 25 3d b3 28 32 29  2d 31 3a 61 25 3d 31 37  |:r%=.(2)-1:a%=17|
00004cd0  2b 72 25 0d 17 ac 0e 7f  3a 61 25 3d bb 28 61 24  |+r%.....:a%=.(a$|
00004ce0  29 0d 17 b6 05 cb 0d 17  c0 2c e7 20 61 25 3e 31  |)........,. a%>1|
00004cf0  39 20 80 20 61 25 3c 32  35 20 84 20 61 25 3e 35  |9 . a%<25 . a%>5|
00004d00  20 80 20 61 25 3c 31 36  20 84 20 61 25 3d 31 39  | . a%<16 . a%=19|
00004d10  20 8c 0d 17 ca 3e c8 99  20 34 36 2c 26 32 32 32  | ....>.. 46,&222|
00004d20  2c 61 72 65 61 25 2c 42  25 28 30 29 2c 43 2c 44  |,area%,B%(0),C,D|
00004d30  2c 30 3a c8 99 20 34 36  2c 26 32 32 32 2c 61 72  |,0:.. 46,&222,ar|
00004d40  65 61 25 2c 42 25 28 61  25 29 2c 43 2c 44 2c 38  |ea%,B%(a%),C,D,8|
00004d50  0d 17 d4 05 cc 0d 17 de  21 c8 99 20 34 36 2c 26  |........!.. 46,&|
00004d60  32 32 32 2c 61 72 65 61  25 2c 42 25 28 61 25 29  |222,area%,B%(a%)|
00004d70  2c 43 2c 44 2c 30 0d 17  e8 05 cd 0d 17 f2 2c 58  |,C,D,0........,X|
00004d80  3d 58 2b 31 3a 43 2b 3d  36 34 3a e7 20 58 3e 31  |=X+1:C+=64:. X>1|
00004d90  35 20 8c 20 59 3d 59 2d  31 3a 58 3d 30 3a 43 3d  |5 . Y=Y-1:X=0:C=|
00004da0  30 3a 44 2d 3d 33 32 0d  17 fc 09 fd 20 59 3c 30  |0:D-=32..... Y<0|
00004db0  0d 18 06 10 f2 67 72 61  62 28 50 4c 41 59 25 29  |.....grab(PLAY%)|
00004dc0  0d 18 10 05 e1 0d 18 1a  05 3a 0d 18 24 10 dd 20  |.........:..$.. |
00004dd0  f2 72 65 6d 6f 62 6a 65  63 74 0d 18 2e 1a e7 20  |.remobject..... |
00004de0  6e 75 6d 6f 66 6f 62 6a  73 3e 32 30 30 20 8c 20  |numofobjs>200 . |
00004df0  ef 37 3a e1 0d 18 38 1c  6f 62 6a 5f 72 65 6d 65  |.7:...8.obj_reme|
00004e00  6d 24 28 6e 75 6d 6f 66  6f 62 6a 73 29 3d 61 24  |m$(numofobjs)=a$|
00004e10  0d 18 42 33 6f 62 6a 5f  73 63 78 28 6e 75 6d 6f  |..B3obj_scx(numo|
00004e20  66 6f 62 6a 73 29 3d 73  63 72 78 3a 6f 62 6a 5f  |fobjs)=scrx:obj_|
00004e30  73 63 79 28 6e 75 6d 6f  66 6f 62 6a 73 29 3d 73  |scy(numofobjs)=s|
00004e40  63 72 79 0d 18 4c 29 6f  62 6a 5f 78 28 6e 75 6d  |cry..L)obj_x(num|
00004e50  6f 66 6f 62 6a 73 29 3d  78 3a 6f 62 6a 5f 79 28  |ofobjs)=x:obj_y(|
00004e60  6e 75 6d 6f 66 6f 62 6a  73 29 3d 79 0d 18 56 05  |numofobjs)=y..V.|
00004e70  e1 0d 18 60 05 3a 0d 18  6a 1c dd 20 f2 63 68 65  |...`.:..j.. .che|
00004e80  63 6b 20 3a 62 3d 30 3a  64 6f 6e 74 64 72 61 77  |ck :b=0:dontdraw|
00004e90  3d 30 0d 18 74 8c e7 20  59 4f 55 58 28 70 6c 61  |=0..t.. YOUX(pla|
00004ea0  79 65 72 25 29 3c 30 20  3a 73 63 72 65 65 6e 78  |yer%)<0 :screenx|
00004eb0  28 70 6c 61 79 65 72 25  29 2d 3d 31 3a 59 4f 55  |(player%)-=1:YOU|
00004ec0  58 28 70 6c 61 79 65 72  25 29 3d 31 35 3a 62 3d  |X(player%)=15:b=|
00004ed0  30 3a f2 63 68 65 63 6b  61 72 65 61 32 3a e7 20  |0:.checkarea2:. |
00004ee0  64 6f 6e 74 64 72 61 77  3d 30 20 3a f2 73 63 72  |dontdraw=0 :.scr|
00004ef0  65 65 6e 28 73 63 72 65  65 6e 78 28 70 6c 61 79  |een(screenx(play|
00004f00  65 72 25 29 2c 73 63 72  65 65 6e 79 28 70 6c 61  |er%),screeny(pla|
00004f10  79 65 72 25 29 2c 70 6c  61 79 65 72 25 29 0d 18  |yer%),player%)..|
00004f20  7e 8c e7 20 59 4f 55 58  28 70 6c 61 79 65 72 25  |~.. YOUX(player%|
00004f30  29 3e 31 35 20 3a 73 63  72 65 65 6e 78 28 70 6c  |)>15 :screenx(pl|
00004f40  61 79 65 72 25 29 2b 3d  31 3a 59 4f 55 58 28 70  |ayer%)+=1:YOUX(p|
00004f50  6c 61 79 65 72 25 29 3d  30 3a 62 3d 31 3a f2 63  |layer%)=0:b=1:.c|
00004f60  68 65 63 6b 61 72 65 61  32 3a e7 20 64 6f 6e 74  |heckarea2:. dont|
00004f70  64 72 61 77 3d 30 20 3a  f2 73 63 72 65 65 6e 28  |draw=0 :.screen(|
00004f80  73 63 72 65 65 6e 78 28  70 6c 61 79 65 72 25 29  |screenx(player%)|
00004f90  2c 73 63 72 65 65 6e 79  28 70 6c 61 79 65 72 25  |,screeny(player%|
00004fa0  29 2c 70 6c 61 79 65 72  25 29 0d 18 88 8c e7 20  |),player%)..... |
00004fb0  59 4f 55 59 28 70 6c 61  79 65 72 25 29 3e 31 35  |YOUY(player%)>15|
00004fc0  20 3a 73 63 72 65 65 6e  79 28 70 6c 61 79 65 72  | :screeny(player|
00004fd0  25 29 2b 3d 31 3a 59 4f  55 59 28 70 6c 61 79 65  |%)+=1:YOUY(playe|
00004fe0  72 25 29 3d 30 3a 62 3d  32 3a f2 63 68 65 63 6b  |r%)=0:b=2:.check|
00004ff0  61 72 65 61 32 3a e7 20  64 6f 6e 74 64 72 61 77  |area2:. dontdraw|
00005000  3d 30 20 3a f2 73 63 72  65 65 6e 28 73 63 72 65  |=0 :.screen(scre|
00005010  65 6e 78 28 70 6c 61 79  65 72 25 29 2c 73 63 72  |enx(player%),scr|
00005020  65 65 6e 79 28 70 6c 61  79 65 72 25 29 2c 70 6c  |eeny(player%),pl|
00005030  61 79 65 72 25 29 0d 18  92 8c e7 20 59 4f 55 59  |ayer%)..... YOUY|
00005040  28 70 6c 61 79 65 72 25  29 3c 30 20 3a 73 63 72  |(player%)<0 :scr|
00005050  65 65 6e 79 28 70 6c 61  79 65 72 25 29 2d 3d 31  |eeny(player%)-=1|
00005060  3a 59 4f 55 59 28 70 6c  61 79 65 72 25 29 3d 31  |:YOUY(player%)=1|
00005070  35 3a 62 3d 33 3a f2 63  68 65 63 6b 61 72 65 61  |5:b=3:.checkarea|
00005080  32 3a e7 20 64 6f 6e 74  64 72 61 77 3d 30 20 3a  |2:. dontdraw=0 :|
00005090  f2 73 63 72 65 65 6e 28  73 63 72 65 65 6e 78 28  |.screen(screenx(|
000050a0  70 6c 61 79 65 72 25 29  2c 73 63 72 65 65 6e 79  |player%),screeny|
000050b0  28 70 6c 61 79 65 72 25  29 2c 70 6c 61 79 65 72  |(player%),player|
000050c0  25 29 0d 18 9c 05 e1 0d  18 a6 05 3a 0d 18 b0 11  |%).........:....|
000050d0  dd 20 f2 63 68 65 63 6b  61 72 65 61 32 0d 18 ba  |. .checkarea2...|
000050e0  4d 73 24 3d 73 63 72 65  65 6e 24 28 73 63 72 65  |Ms$=screen$(scre|
000050f0  65 6e 78 28 70 6c 61 79  65 72 25 29 2c 73 63 72  |enx(player%),scr|
00005100  65 65 6e 79 28 70 6c 61  79 65 72 25 29 2c 59 4f  |eeny(player%),YO|
00005110  55 58 28 70 6c 61 79 65  72 25 29 2c 59 4f 55 59  |UX(player%),YOUY|
00005120  28 70 6c 61 79 65 72 25  29 29 0d 18 c4 69 e7 20  |(player%))...i. |
00005130  62 3d 30 20 3a e7 20 73  24 3d 22 31 22 20 84 20  |b=0 :. s$="1" . |
00005140  73 24 3d 22 32 22 20 84  20 73 24 3d 22 33 22 20  |s$="2" . s$="3" |
00005150  84 20 73 24 3d 22 34 22  20 84 20 73 24 3d 22 31  |. s$="4" . s$="1|
00005160  39 22 20 8c 20 59 4f 55  58 28 70 6c 61 79 65 72  |9" . YOUX(player|
00005170  25 29 3d 30 3a 73 63 72  65 65 6e 78 28 70 6c 61  |%)=0:screenx(pla|
00005180  79 65 72 25 29 2b 3d 31  3a 64 6f 6e 74 64 72 61  |yer%)+=1:dontdra|
00005190  77 3d 31 0d 18 ce 6a e7  20 62 3d 31 20 3a e7 20  |w=1...j. b=1 :. |
000051a0  73 24 3d 22 31 22 20 84  20 73 24 3d 22 32 22 20  |s$="1" . s$="2" |
000051b0  84 20 73 24 3d 22 33 22  20 84 20 73 24 3d 22 34  |. s$="3" . s$="4|
000051c0  22 20 84 20 73 24 3d 22  31 39 22 20 8c 20 59 4f  |" . s$="19" . YO|
000051d0  55 58 28 70 6c 61 79 65  72 25 29 3d 31 35 3a 73  |UX(player%)=15:s|
000051e0  63 72 65 65 6e 78 28 70  6c 61 79 65 72 25 29 2d  |creenx(player%)-|
000051f0  3d 31 3a 64 6f 6e 74 64  72 61 77 3d 31 0d 18 d8  |=1:dontdraw=1...|
00005200  6a e7 20 62 3d 32 20 3a  e7 20 73 24 3d 22 31 22  |j. b=2 :. s$="1"|
00005210  20 84 20 73 24 3d 22 32  22 20 84 20 73 24 3d 22  | . s$="2" . s$="|
00005220  33 22 20 84 20 73 24 3d  22 34 22 20 84 20 73 24  |3" . s$="4" . s$|
00005230  3d 22 31 39 22 20 8c 20  59 4f 55 59 28 70 6c 61  |="19" . YOUY(pla|
00005240  79 65 72 25 29 3d 31 35  3a 73 63 72 65 65 6e 79  |yer%)=15:screeny|
00005250  28 70 6c 61 79 65 72 25  29 2d 3d 31 3a 64 6f 6e  |(player%)-=1:don|
00005260  74 64 72 61 77 3d 31 0d  18 e2 69 e7 20 62 3d 33  |tdraw=1...i. b=3|
00005270  20 3a e7 20 73 24 3d 22  31 22 20 84 20 73 24 3d  | :. s$="1" . s$=|
00005280  22 32 22 20 84 20 73 24  3d 22 33 22 20 84 20 73  |"2" . s$="3" . s|
00005290  24 3d 22 34 22 20 84 20  73 24 3d 22 31 39 22 20  |$="4" . s$="19" |
000052a0  8c 20 59 4f 55 59 28 70  6c 61 79 65 72 25 29 3d  |. YOUY(player%)=|
000052b0  30 3a 73 63 72 65 65 6e  79 28 70 6c 61 79 65 72  |0:screeny(player|
000052c0  25 29 2b 3d 31 3a 64 6f  6e 74 64 72 61 77 3d 31  |%)+=1:dontdraw=1|
000052d0  0d 18 ec 05 e1 0d 18 f6  05 3a 0d 19 00 0c dd 20  |.........:..... |
000052e0  f2 63 6c 65 61 72 0d 19  0a 4d 66 24 3d 73 63 72  |.clear...Mf$=scr|
000052f0  65 65 6e 24 28 73 63 72  65 65 6e 78 28 70 6c 61  |een$(screenx(pla|
00005300  79 65 72 25 29 2c 73 63  72 65 65 6e 79 28 70 6c  |yer%),screeny(pl|
00005310  61 79 65 72 25 29 2c 59  4f 55 58 28 70 6c 61 79  |ayer%),YOUX(play|
00005320  65 72 25 29 2c 59 4f 55  59 28 70 6c 61 79 65 72  |er%),YOUY(player|
00005330  25 29 29 0d 19 14 43 e7  20 66 24 3d 22 77 65 70  |%))...C. f$="wep|
00005340  30 22 20 84 20 66 24 3d  22 77 65 70 31 22 20 84  |0" . f$="wep1" .|
00005350  20 66 24 3d 22 77 65 70  32 22 20 84 20 20 66 24  | f$="wep2" .  f$|
00005360  3d 22 77 65 70 33 22 20  84 20 20 66 24 3d 22 77  |="wep3" .  f$="w|
00005370  65 70 34 22 3a e1 0d 19  1e 05 3a 0d 19 28 8f e7  |ep4":.....:..(..|
00005380  20 70 6c 61 79 65 72 25  3d 31 3a c8 99 20 34 36  | player%=1:.. 46|
00005390  2c 26 31 32 32 2c 61 72  65 61 25 2c 73 63 72 65  |,&122,area%,scre|
000053a0  65 6e 24 28 73 63 72 65  65 6e 78 28 70 6c 61 79  |en$(screenx(play|
000053b0  65 72 25 29 2c 73 63 72  65 65 6e 79 28 70 6c 61  |er%),screeny(pla|
000053c0  79 65 72 25 29 2c 59 4f  55 58 28 70 6c 61 79 65  |yer%),YOUX(playe|
000053d0  72 25 29 2c 59 4f 55 59  28 70 6c 61 79 65 72 25  |r%),YOUY(player%|
000053e0  29 29 2c 59 4f 55 58 28  70 6c 61 79 65 72 25 29  |)),YOUX(player%)|
000053f0  2a 36 34 2c 35 31 32 2b  59 4f 55 59 28 70 6c 61  |*64,512+YOUY(pla|
00005400  79 65 72 25 29 2a 33 32  2c 38 0d 19 32 8f e7 20  |yer%)*32,8..2.. |
00005410  70 6c 61 79 65 72 25 3d  32 3a c8 99 20 34 36 2c  |player%=2:.. 46,|
00005420  26 31 32 32 2c 61 72 65  61 25 2c 73 63 72 65 65  |&122,area%,scree|
00005430  6e 24 28 73 63 72 65 65  6e 78 28 70 6c 61 79 65  |n$(screenx(playe|
00005440  72 25 29 2c 73 63 72 65  65 6e 79 28 70 6c 61 79  |r%),screeny(play|
00005450  65 72 25 29 2c 59 4f 55  58 28 70 6c 61 79 65 72  |er%),YOUX(player|
00005460  25 29 2c 59 4f 55 59 28  70 6c 61 79 65 72 25 29  |%),YOUY(player%)|
00005470  29 2c 59 4f 55 58 28 70  6c 61 79 65 72 25 29 2a  |),YOUX(player%)*|
00005480  36 34 2c 28 59 4f 55 59  28 70 6c 61 79 65 72 25  |64,(YOUY(player%|
00005490  29 2a 33 32 29 2d 34 2c  38 0d 19 3c 9d e7 20 70  |)*32)-4,8..<.. p|
000054a0  6c 61 79 65 72 25 3d 31  3a e7 20 73 63 72 65 65  |layer%=1:. scree|
000054b0  6e 78 28 32 29 3d 73 63  72 65 65 6e 78 28 31 29  |nx(2)=screenx(1)|
000054c0  20 80 20 73 63 72 65 65  6e 79 28 32 29 3d 73 63  | . screeny(2)=sc|
000054d0  72 65 65 6e 79 28 31 29  3a c8 99 20 34 36 2c 32  |reeny(1):.. 46,2|
000054e0  35 36 2b 33 34 2c 61 72  65 61 25 2c 73 63 72 65  |56+34,area%,scre|
000054f0  65 6e 24 28 73 63 72 65  65 6e 78 28 31 29 2c 73  |en$(screenx(1),s|
00005500  63 72 65 65 6e 79 28 31  29 2c 59 4f 55 58 28 31  |creeny(1),YOUX(1|
00005510  29 2c 59 4f 55 59 28 31  29 29 2c 59 4f 55 58 28  |),YOUY(1)),YOUX(|
00005520  31 29 2a 36 34 2c 28 59  4f 55 59 28 31 29 2a 33  |1)*64,(YOUY(1)*3|
00005530  32 29 2d 34 2c 38 0d 19  46 9f e7 20 70 6c 61 79  |2)-4,8..F.. play|
00005540  65 72 25 3d 32 3a e7 20  73 63 72 65 65 6e 78 28  |er%=2:. screenx(|
00005550  31 29 3d 73 63 72 65 65  6e 78 28 32 29 20 80 20  |1)=screenx(2) . |
00005560  73 63 72 65 65 6e 79 28  31 29 3d 73 63 72 65 65  |screeny(1)=scree|
00005570  6e 79 28 32 29 3a c8 99  20 34 36 2c 32 35 36 2b  |ny(2):.. 46,256+|
00005580  33 34 2c 61 72 65 61 25  2c 73 63 72 65 65 6e 24  |34,area%,screen$|
00005590  28 73 63 72 65 65 6e 78  28 32 29 2c 73 63 72 65  |(screenx(2),scre|
000055a0  65 6e 79 28 32 29 2c 59  4f 55 58 28 32 29 2c 59  |eny(2),YOUX(2),Y|
000055b0  4f 55 59 28 32 29 29 2c  59 4f 55 58 28 32 29 2a  |OUY(2)),YOUX(2)*|
000055c0  36 34 2c 35 31 32 2b 28  59 4f 55 59 28 32 29 2a  |64,512+(YOUY(2)*|
000055d0  33 32 29 2c 38 0d 19 50  05 e1 0d 19 5a 05 3a 0d  |32),8..P....Z.:.|
000055e0  19 64 10 dd 20 f2 63 68  65 63 6b 61 72 65 61 0d  |.d.. .checkarea.|
000055f0  19 6e 4d 73 24 3d 73 63  72 65 65 6e 24 28 73 63  |.nMs$=screen$(sc|
00005600  72 65 65 6e 78 28 70 6c  61 79 65 72 25 29 2c 73  |reenx(player%),s|
00005610  63 72 65 65 6e 79 28 70  6c 61 79 65 72 25 29 2c  |creeny(player%),|
00005620  59 4f 55 58 28 70 6c 61  79 65 72 25 29 2c 59 4f  |YOUX(player%),YO|
00005630  55 59 28 70 6c 61 79 65  72 25 29 29 0d 19 78 6e  |UY(player%))..xn|
00005640  e7 20 6d 6f 76 65 28 70  6c 61 79 65 72 25 29 3d  |. move(player%)=|
00005650  30 3a f2 63 68 65 63 6b  66 6f 72 6f 62 6a 65 63  |0:.checkforobjec|
00005660  74 73 3a e7 20 73 24 3d  22 31 22 20 84 20 73 24  |ts:. s$="1" . s$|
00005670  3d 22 32 22 20 84 20 73  24 3d 22 33 22 20 84 20  |="2" . s$="3" . |
00005680  73 24 3d 22 34 22 20 84  20 73 24 3d 22 31 39 22  |s$="4" . s$="19"|
00005690  20 8c 20 59 4f 55 58 28  70 6c 61 79 65 72 25 29  | . YOUX(player%)|
000056a0  2b 3d 31 3a f2 63 68 65  63 6b 0d 19 82 6e e7 20  |+=1:.check...n. |
000056b0  6d 6f 76 65 28 70 6c 61  79 65 72 25 29 3d 31 3a  |move(player%)=1:|
000056c0  f2 63 68 65 63 6b 66 6f  72 6f 62 6a 65 63 74 73  |.checkforobjects|
000056d0  3a e7 20 73 24 3d 22 31  22 20 84 20 73 24 3d 22  |:. s$="1" . s$="|
000056e0  32 22 20 84 20 73 24 3d  22 33 22 20 84 20 73 24  |2" . s$="3" . s$|
000056f0  3d 22 34 22 20 84 20 73  24 3d 22 31 39 22 20 8c  |="4" . s$="19" .|
00005700  20 59 4f 55 58 28 70 6c  61 79 65 72 25 29 2d 3d  | YOUX(player%)-=|
00005710  31 3a f2 63 68 65 63 6b  0d 19 8c 6e e7 20 6d 6f  |1:.check...n. mo|
00005720  76 65 28 70 6c 61 79 65  72 25 29 3d 32 3a f2 63  |ve(player%)=2:.c|
00005730  68 65 63 6b 66 6f 72 6f  62 6a 65 63 74 73 3a e7  |heckforobjects:.|
00005740  20 73 24 3d 22 31 22 20  84 20 73 24 3d 22 32 22  | s$="1" . s$="2"|
00005750  20 84 20 73 24 3d 22 33  22 20 84 20 73 24 3d 22  | . s$="3" . s$="|
00005760  34 22 20 84 20 73 24 3d  22 31 39 22 20 8c 20 59  |4" . s$="19" . Y|
00005770  4f 55 59 28 70 6c 61 79  65 72 25 29 2d 3d 31 3a  |OUY(player%)-=1:|
00005780  f2 63 68 65 63 6b 0d 19  96 6e e7 20 6d 6f 76 65  |.check...n. move|
00005790  28 70 6c 61 79 65 72 25  29 3d 33 3a f2 63 68 65  |(player%)=3:.che|
000057a0  63 6b 66 6f 72 6f 62 6a  65 63 74 73 3a e7 20 73  |ckforobjects:. s|
000057b0  24 3d 22 31 22 20 84 20  73 24 3d 22 32 22 20 84  |$="1" . s$="2" .|
000057c0  20 73 24 3d 22 33 22 20  84 20 73 24 3d 22 34 22  | s$="3" . s$="4"|
000057d0  20 84 20 73 24 3d 22 31  39 22 20 8c 20 59 4f 55  | . s$="19" . YOU|
000057e0  59 28 70 6c 61 79 65 72  25 29 2b 3d 31 3a f2 63  |Y(player%)+=1:.c|
000057f0  68 65 63 6b 0d 19 a0 05  e1 0d 19 aa 05 3a 0d 19  |heck.........:..|
00005800  b4 0c dd 20 f2 70 72 69  6e 74 0d 19 be 25 e7 20  |... .print...%. |
00005810  61 6e 69 6d 28 70 6c 61  79 65 72 25 29 3e 31 3a  |anim(player%)>1:|
00005820  61 6e 69 6d 28 70 6c 61  79 65 72 25 29 3d 30 0d  |anim(player%)=0.|
00005830  19 c8 24 6e 61 6d 65 32  24 3d c3 28 70 6c 61 79  |..$name2$=.(play|
00005840  65 72 25 29 2b 64 69 72  65 24 28 70 6c 61 79 65  |er%)+dire$(playe|
00005850  72 25 29 0d 19 d2 6e e7  20 70 6c 61 79 65 72 25  |r%)...n. player%|
00005860  3d 31 20 80 20 65 6e 65  72 67 79 28 31 29 3e 30  |=1 . energy(1)>0|
00005870  3a c8 99 20 34 36 2c 26  31 32 32 2c 61 72 65 61  |:.. 46,&122,area|
00005880  25 2c 6e 61 6d 65 32 24  2b c3 28 61 6e 69 6d 28  |%,name2$+.(anim(|
00005890  70 6c 61 79 65 72 25 29  29 2c 59 4f 55 58 28 70  |player%)),YOUX(p|
000058a0  6c 61 79 65 72 25 29 2a  36 34 2c 35 31 32 2b 59  |layer%)*64,512+Y|
000058b0  4f 55 59 28 70 6c 61 79  65 72 25 29 2a 33 32 2c  |OUY(player%)*32,|
000058c0  38 0d 19 dc 5f e7 20 70  6c 61 79 65 72 25 3d 31  |8..._. player%=1|
000058d0  20 80 20 65 6e 65 72 67  79 28 31 29 3c 3d 30 3a  | . energy(1)<=0:|
000058e0  c8 99 20 34 36 2c 26 31  32 32 2c 61 72 65 61 25  |.. 46,&122,area%|
000058f0  2c 22 64 65 61 74 68 22  2c 59 4f 55 58 28 70 6c  |,"death",YOUX(pl|
00005900  61 79 65 72 25 29 2a 36  34 2c 35 31 32 2b 59 4f  |ayer%)*64,512+YO|
00005910  55 59 28 70 6c 61 79 65  72 25 29 2a 33 32 2c 38  |UY(player%)*32,8|
00005920  0d 19 e6 6e e7 20 70 6c  61 79 65 72 25 3d 32 20  |...n. player%=2 |
00005930  80 20 65 6e 65 72 67 79  28 32 29 3e 30 3a c8 99  |. energy(2)>0:..|
00005940  20 34 36 2c 26 31 32 32  2c 61 72 65 61 25 2c 6e  | 46,&122,area%,n|
00005950  61 6d 65 32 24 2b c3 28  61 6e 69 6d 28 70 6c 61  |ame2$+.(anim(pla|
00005960  79 65 72 25 29 29 2c 59  4f 55 58 28 70 6c 61 79  |yer%)),YOUX(play|
00005970  65 72 25 29 2a 36 34 2c  28 59 4f 55 59 28 70 6c  |er%)*64,(YOUY(pl|
00005980  61 79 65 72 25 29 2a 33  32 29 2d 34 2c 38 0d 19  |ayer%)*32)-4,8..|
00005990  f0 5f e7 20 70 6c 61 79  65 72 25 3d 32 20 80 20  |._. player%=2 . |
000059a0  65 6e 65 72 67 79 28 32  29 3c 3d 30 3a c8 99 20  |energy(2)<=0:.. |
000059b0  34 36 2c 26 31 32 32 2c  61 72 65 61 25 2c 22 64  |46,&122,area%,"d|
000059c0  65 61 74 68 22 2c 59 4f  55 58 28 70 6c 61 79 65  |eath",YOUX(playe|
000059d0  72 25 29 2a 36 34 2c 28  59 4f 55 59 28 70 6c 61  |r%)*64,(YOUY(pla|
000059e0  79 65 72 25 29 2a 33 32  29 2d 34 2c 38 0d 19 fa  |yer%)*32)-4,8...|
000059f0  05 e1 0d 1a 04 05 3a 0d  1a 0e 11 dd 20 f2 70 72  |......:..... .pr|
00005a00  69 6e 74 6f 74 68 65 72  0d 1a 18 17 6e 61 6d 65  |intother....name|
00005a10  32 24 3d 22 32 22 2b 64  69 72 65 24 28 32 29 0d  |2$="2"+dire$(2).|
00005a20  1a 22 82 e7 20 73 63 72  65 65 6e 78 28 31 29 3d  |.".. screenx(1)=|
00005a30  73 63 72 65 65 6e 78 28  32 29 20 80 20 73 63 72  |screenx(2) . scr|
00005a40  65 65 6e 79 28 31 29 3d  73 63 72 65 65 6e 79 28  |eeny(1)=screeny(|
00005a50  32 29 20 80 20 65 6e 65  72 67 79 28 32 29 3e 30  |2) . energy(2)>0|
00005a60  3a c8 99 20 34 36 2c 26  31 32 32 2c 61 72 65 61  |:.. 46,&122,area|
00005a70  25 2c 6e 61 6d 65 32 24  2b c3 28 61 6e 69 6d 28  |%,name2$+.(anim(|
00005a80  32 29 29 2c 59 4f 55 58  28 32 29 2a 36 34 2c 35  |2)),YOUX(2)*64,5|
00005a90  31 32 2b 28 59 4f 55 59  28 32 29 2a 33 32 29 2c  |12+(YOUY(2)*32),|
00005aa0  38 0d 1a 2c 79 e7 20 73  63 72 65 65 6e 78 28 31  |8..,y. screenx(1|
00005ab0  29 3d 73 63 72 65 65 6e  78 28 32 29 20 80 20 73  |)=screenx(2) . s|
00005ac0  63 72 65 65 6e 79 28 31  29 3d 73 63 72 65 65 6e  |creeny(1)=screen|
00005ad0  79 28 32 29 20 80 20 65  6e 65 72 67 79 28 32 29  |y(2) . energy(2)|
00005ae0  3c 3d 30 3a c8 99 20 34  36 2c 26 31 32 32 2c 61  |<=0:.. 46,&122,a|
00005af0  72 65 61 25 2c 22 64 65  61 74 68 22 2c 59 4f 55  |rea%,"death",YOU|
00005b00  58 28 32 29 2a 36 34 2c  35 31 32 2b 28 59 4f 55  |X(2)*64,512+(YOU|
00005b10  59 28 32 29 2a 33 32 29  2c 38 0d 1a 36 17 6e 61  |Y(2)*32),8..6.na|
00005b20  6d 65 32 24 3d 22 31 22  2b 64 69 72 65 24 28 31  |me2$="1"+dire$(1|
00005b30  29 0d 1a 40 80 e7 20 73  63 72 65 65 6e 78 28 32  |)..@.. screenx(2|
00005b40  29 3d 73 63 72 65 65 6e  78 28 31 29 20 80 20 73  |)=screenx(1) . s|
00005b50  63 72 65 65 6e 79 28 32  29 3d 73 63 72 65 65 6e  |creeny(2)=screen|
00005b60  79 28 31 29 20 80 20 65  6e 65 72 67 79 28 31 29  |y(1) . energy(1)|
00005b70  3e 30 3a c8 99 20 34 36  2c 26 31 32 32 2c 61 72  |>0:.. 46,&122,ar|
00005b80  65 61 25 2c 6e 61 6d 65  32 24 2b c3 28 61 6e 69  |ea%,name2$+.(ani|
00005b90  6d 28 31 29 29 2c 59 4f  55 58 28 31 29 2a 36 34  |m(1)),YOUX(1)*64|
00005ba0  2c 28 59 4f 55 59 28 31  29 2a 33 32 29 2d 34 2c  |,(YOUY(1)*32)-4,|
00005bb0  38 0d 1a 4a 77 e7 20 73  63 72 65 65 6e 78 28 32  |8..Jw. screenx(2|
00005bc0  29 3d 73 63 72 65 65 6e  78 28 31 29 20 80 20 73  |)=screenx(1) . s|
00005bd0  63 72 65 65 6e 79 28 32  29 3d 73 63 72 65 65 6e  |creeny(2)=screen|
00005be0  79 28 31 29 20 80 20 65  6e 65 72 67 79 28 31 29  |y(1) . energy(1)|
00005bf0  3c 3d 30 3a c8 99 20 34  36 2c 26 31 32 32 2c 61  |<=0:.. 46,&122,a|
00005c00  72 65 61 25 2c 22 64 65  61 74 68 22 2c 59 4f 55  |rea%,"death",YOU|
00005c10  58 28 31 29 2a 36 34 2c  28 59 4f 55 59 28 31 29  |X(1)*64,(YOUY(1)|
00005c20  2a 33 32 29 2d 34 2c 38  0d 1a 54 05 e1 0d 1a 5e  |*32)-4,8..T....^|
00005c30  05 3a 0d 1a 68 16 dd 20  f2 63 68 65 63 6b 66 6f  |.:..h.. .checkfo|
00005c40  72 6f 62 6a 65 63 74 73  0d 1a 72 0b c8 8e 20 73  |robjects..r... s|
00005c50  24 20 ca 0d 1a 7c 31 c9  20 22 31 30 22 2c 22 31  |$ ...|1. "10","1|
00005c60  31 22 2c 22 31 32 22 2c  22 31 33 22 2c 22 31 34  |1","12","13","14|
00005c70  22 2c 22 31 35 22 3a f2  64 65 6c 65 74 65 6f 62  |","15":.deleteob|
00005c80  6a 65 63 74 0d 1a 86 37  c9 20 22 77 65 70 30 22  |ject...7. "wep0"|
00005c90  2c 22 77 65 70 31 22 2c  22 77 65 70 32 22 2c 22  |,"wep1","wep2","|
00005ca0  77 65 70 33 22 2c 22 77  65 70 34 22 3a f2 73 6f  |wep3","wep4":.so|
00005cb0  72 74 77 65 70 63 68 61  6e 67 65 0d 1a 90 19 c9  |rtwepchange.....|
00005cc0  20 22 36 22 3a f2 72 61  6e 64 6f 6d 74 65 6c 65  | "6":.randomtele|
00005cd0  70 6f 72 74 0d 1a 9a 23  c9 20 22 37 22 3a f2 74  |port...#. "7":.t|
00005ce0  65 6c 65 70 6f 72 74 5f  74 6f 5f 73 65 74 5f 70  |eleport_to_set_p|
00005cf0  6f 73 69 74 69 6f 6e 0d  1a a4 05 cb 0d 1a ae 05  |osition.........|
00005d00  e1 0d 1a b8 05 3a 0d 1a  c2 13 dd 20 f2 64 65 6c  |.....:..... .del|
00005d10  65 74 65 6f 62 6a 65 63  74 0d 1a cc 0b c8 8e 20  |eteobject...... |
00005d20  73 24 20 ca 0d 1a d6 17  c9 20 22 31 30 22 20 3a  |s$ ...... "10" :|
00005d30  20 f2 67 65 74 73 68 69  65 6c 64 0d 1a e0 16 c9  | .getshield.....|
00005d40  20 22 31 31 22 20 3a 20  f2 67 65 74 61 70 70 6c  | "11" : .getappl|
00005d50  65 0d 1a ea 15 c9 20 22  31 32 22 20 3a 20 f2 67  |e..... "12" : .g|
00005d60  65 74 66 69 73 68 0d 1a  f4 16 c9 20 22 31 35 22  |etfish..... "15"|
00005d70  20 3a 20 f2 67 65 74 74  72 61 6e 73 0d 1a fe 17  | : .gettrans....|
00005d80  c9 20 22 31 33 22 20 3a  20 f2 67 65 74 70 6f 74  |. "13" : .getpot|
00005d90  69 6f 6e 0d 1b 08 19 c9  20 22 31 34 22 20 3a 20  |ion..... "14" : |
00005da0  f2 67 65 74 73 61 6e 64  77 69 63 68 0d 1b 12 05  |.getsandwich....|
00005db0  cb 0d 1b 1c 05 e1 0d 1b  26 05 3a 0d 1b 30 23 f4  |........&.:..0#.|
00005dc0  20 50 61 72 74 20 66 6f  72 20 63 6f 6c 6c 65 63  | Part for collec|
00005dd0  74 69 6e 67 20 61 20 73  68 69 65 6c 64 2e 0d 1b  |ting a shield...|
00005de0  3a 10 dd 20 f2 67 65 74  73 68 69 65 6c 64 0d 1b  |:.. .getshield..|
00005df0  44 24 c8 99 20 22 58 4f  53 5f 43 4c 49 22 2c 22  |D$.. "XOS_CLI","|
00005e00  43 48 41 4e 4e 45 4c 2e  20 35 20 4f 62 6a 47 65  |CHANNEL. 5 ObjGe|
00005e10  74 22 0d 1b 4e 3b e7 20  73 68 69 65 6c 64 28 70  |t"..N;. shield(p|
00005e20  6c 61 79 65 72 25 29 3c  36 3a d4 35 2c 2d 31 35  |layer%)<6:.5,-15|
00005e30  2c 26 31 30 30 30 2c 31  30 30 3a 73 68 69 65 6c  |,&1000,100:shiel|
00005e40  64 28 70 6c 61 79 65 72  25 29 2b 3d 31 0d 1b 58  |d(player%)+=1..X|
00005e50  62 e7 20 73 68 69 65 6c  64 28 70 6c 61 79 65 72  |b. shield(player|
00005e60  25 29 3c 36 3a 73 63 72  65 65 6e 24 28 73 63 72  |%)<6:screen$(scr|
00005e70  65 65 6e 78 28 70 6c 61  79 65 72 25 29 2c 73 63  |eenx(player%),sc|
00005e80  72 65 65 6e 79 28 70 6c  61 79 65 72 25 29 2c 59  |reeny(player%),Y|
00005e90  4f 55 58 28 70 6c 61 79  65 72 25 29 2c 59 4f 55  |OUX(player%),YOU|
00005ea0  59 28 70 6c 61 79 65 72  25 29 29 3d 22 30 22 0d  |Y(player%))="0".|
00005eb0  1b 62 6a e7 20 73 68 69  65 6c 64 28 70 6c 61 79  |.bj. shield(play|
00005ec0  65 72 25 29 3c 36 3a f2  63 6c 65 61 72 62 6c 6f  |er%)<6:.clearblo|
00005ed0  63 6b 28 73 63 72 65 65  6e 78 28 70 6c 61 79 65  |ck(screenx(playe|
00005ee0  72 25 29 2c 73 63 72 65  65 6e 79 28 70 6c 61 79  |r%),screeny(play|
00005ef0  65 72 25 29 2c 59 4f 55  58 28 70 6c 61 79 65 72  |er%),YOUX(player|
00005f00  25 29 2c 59 4f 55 59 28  70 6c 61 79 65 72 25 29  |%),YOUY(player%)|
00005f10  2c 70 6c 61 79 65 72 25  29 0d 1b 6c 4d e7 20 73  |,player%)..lM. s|
00005f20  68 69 65 6c 64 28 70 6c  61 79 65 72 25 29 3c 36  |hield(player%)<6|
00005f30  3a e7 20 73 63 72 65 65  6e 78 28 31 29 3d 73 63  |:. screenx(1)=sc|
00005f40  72 65 65 6e 78 28 32 29  20 80 20 73 63 72 65 65  |reenx(2) . scree|
00005f50  6e 79 28 31 29 3d 73 63  72 65 65 6e 79 28 32 29  |ny(1)=screeny(2)|
00005f60  3a f2 63 6f 6c 32 0d 1b  76 26 e7 20 73 68 69 65  |:.col2..v&. shie|
00005f70  6c 64 28 70 6c 61 79 65  72 25 29 3c 36 20 f2 67  |ld(player%)<6 .g|
00005f80  72 61 62 28 70 6c 61 79  65 72 25 29 0d 1b 80 3b  |rab(player%)...;|
00005f90  e7 20 73 68 69 65 6c 64  28 70 6c 61 79 65 72 25  |. shield(player%|
00005fa0  29 3e 3d 36 3a d4 35 2c  2d 31 35 2c 26 32 30 30  |)>=6:.5,-15,&200|
00005fb0  2c 31 30 30 3a 73 68 69  65 6c 64 28 70 6c 61 79  |,100:shield(play|
00005fc0  65 72 25 29 2d 3d 31 0d  1b 8a 0a f2 70 72 69 6e  |er%)-=1.....prin|
00005fd0  74 0d 1b 94 05 e1 0d 1b  9e 05 3a 0d 1b a8 27 f4  |t.........:...'.|
00005fe0  20 50 61 72 74 20 66 6f  72 20 63 6f 6c 6c 65 63  | Part for collec|
00005ff0  74 69 6e 67 20 61 20 74  65 6c 65 70 6f 72 74 65  |ting a teleporte|
00006000  72 2e 0d 1b b2 0f dd 20  f2 67 65 74 74 72 61 6e  |r...... .gettran|
00006010  73 0d 1b bc 24 c8 99 20  22 58 4f 53 5f 43 4c 49  |s...$.. "XOS_CLI|
00006020  22 2c 22 43 48 41 4e 4e  45 4c 2e 20 35 20 52 6f  |","CHANNEL. 5 Ro|
00006030  74 61 74 65 22 0d 1b c6  14 d4 35 2c 2d 31 35 2c  |tate".....5,-15,|
00006040  26 31 30 30 30 2c 31 30  30 0d 1b d0 4e 73 63 72  |&1000,100...Nscr|
00006050  65 65 6e 24 28 73 63 72  65 65 6e 78 28 70 6c 61  |een$(screenx(pla|
00006060  79 65 72 25 29 2c 73 63  72 65 65 6e 79 28 70 6c  |yer%),screeny(pl|
00006070  61 79 65 72 25 29 2c 59  4f 55 58 28 70 6c 61 79  |ayer%),YOUX(play|
00006080  65 72 25 29 2c 59 4f 55  59 28 70 6c 61 79 65 72  |er%),YOUY(player|
00006090  25 29 29 3d 22 30 22 0d  1b da 56 f2 63 6c 65 61  |%))="0"...V.clea|
000060a0  72 62 6c 6f 63 6b 28 73  63 72 65 65 6e 78 28 70  |rblock(screenx(p|
000060b0  6c 61 79 65 72 25 29 2c  73 63 72 65 65 6e 79 28  |layer%),screeny(|
000060c0  70 6c 61 79 65 72 25 29  2c 59 4f 55 58 28 70 6c  |player%),YOUX(pl|
000060d0  61 79 65 72 25 29 2c 59  4f 55 59 28 70 6c 61 79  |ayer%),YOUY(play|
000060e0  65 72 25 29 2c 70 6c 61  79 65 72 25 29 0d 1b e4  |er%),player%)...|
000060f0  39 e7 20 73 63 72 65 65  6e 78 28 31 29 3d 73 63  |9. screenx(1)=sc|
00006100  72 65 65 6e 78 28 32 29  20 80 20 73 63 72 65 65  |reenx(2) . scree|
00006110  6e 79 28 31 29 3d 73 63  72 65 65 6e 79 28 32 29  |ny(1)=screeny(2)|
00006120  3a f2 63 6f 6c 32 0d 1b  ee 12 f2 67 72 61 62 28  |:.col2.....grab(|
00006130  70 6c 61 79 65 72 25 29  0d 1b f8 0a f2 70 72 69  |player%).....pri|
00006140  6e 74 0d 1c 02 13 f2 72  61 6e 64 6f 6d 74 65 6c  |nt.....randomtel|
00006150  65 70 6f 72 74 0d 1c 0c  05 e1 0d 1c 16 05 3a 0d  |eport.........:.|
00006160  1c 20 2a f4 20 50 61 72  74 20 66 6f 72 20 63 6f  |. *. Part for co|
00006170  6c 6c 65 63 74 69 6e 67  20 61 20 70 6f 74 69 6f  |llecting a potio|
00006180  6e 20 62 6f 74 74 6c 65  2e 0d 1c 2a 10 dd 20 f2  |n bottle...*.. .|
00006190  67 65 74 70 6f 74 69 6f  6e 0d 1c 34 24 c8 99 20  |getpotion..4$.. |
000061a0  22 58 4f 53 5f 43 4c 49  22 2c 22 43 48 41 4e 4e  |"XOS_CLI","CHANN|
000061b0  45 4c 2e 20 35 20 52 6f  74 61 74 65 22 0d 1c 3e  |EL. 5 Rotate"..>|
000061c0  14 d4 35 2c 2d 31 35 2c  26 32 30 30 30 2c 31 30  |..5,-15,&2000,10|
000061d0  30 0d 1c 48 4e 73 63 72  65 65 6e 24 28 73 63 72  |0..HNscreen$(scr|
000061e0  65 65 6e 78 28 70 6c 61  79 65 72 25 29 2c 73 63  |eenx(player%),sc|
000061f0  72 65 65 6e 79 28 70 6c  61 79 65 72 25 29 2c 59  |reeny(player%),Y|
00006200  4f 55 58 28 70 6c 61 79  65 72 25 29 2c 59 4f 55  |OUX(player%),YOU|
00006210  59 28 70 6c 61 79 65 72  25 29 29 3d 22 30 22 0d  |Y(player%))="0".|
00006220  1c 52 56 f2 63 6c 65 61  72 62 6c 6f 63 6b 28 73  |.RV.clearblock(s|
00006230  63 72 65 65 6e 78 28 70  6c 61 79 65 72 25 29 2c  |creenx(player%),|
00006240  73 63 72 65 65 6e 79 28  70 6c 61 79 65 72 25 29  |screeny(player%)|
00006250  2c 59 4f 55 58 28 70 6c  61 79 65 72 25 29 2c 59  |,YOUX(player%),Y|
00006260  4f 55 59 28 70 6c 61 79  65 72 25 29 2c 70 6c 61  |OUY(player%),pla|
00006270  79 65 72 25 29 0d 1c 5c  39 e7 20 73 63 72 65 65  |yer%)..\9. scree|
00006280  6e 78 28 31 29 3d 73 63  72 65 65 6e 78 28 32 29  |nx(1)=screenx(2)|
00006290  20 80 20 73 63 72 65 65  6e 79 28 31 29 3d 73 63  | . screeny(1)=sc|
000062a0  72 65 65 6e 79 28 32 29  3a f2 63 6f 6c 32 0d 1c  |reeny(2):.col2..|
000062b0  66 12 f2 67 72 61 62 28  70 6c 61 79 65 72 25 29  |f..grab(player%)|
000062c0  0d 1c 70 0a f2 70 72 69  6e 74 0d 1c 7a 16 65 6e  |..p..print..z.en|
000062d0  65 72 67 79 28 70 6c 61  79 65 72 25 29 2b 3d 38  |ergy(player%)+=8|
000062e0  0d 1c 84 05 e1 0d 1c 8e  05 3a 0d 1c 98 25 f4 20  |.........:...%. |
000062f0  50 61 72 74 20 66 6f 72  20 63 6f 6c 6c 65 63 74  |Part for collect|
00006300  69 6e 67 20 61 20 73 61  6e 64 77 69 63 68 2e 0d  |ing a sandwich..|
00006310  1c a2 12 dd 20 f2 67 65  74 73 61 6e 64 77 69 63  |.... .getsandwic|
00006320  68 0d 1c ac 24 c8 99 20  22 58 4f 53 5f 43 4c 49  |h...$.. "XOS_CLI|
00006330  22 2c 22 43 48 41 4e 4e  45 4c 2e 20 35 20 4f 62  |","CHANNEL. 5 Ob|
00006340  6a 47 65 74 22 0d 1c b6  14 d4 35 2c 2d 31 35 2c  |jGet".....5,-15,|
00006350  26 32 30 30 30 2c 31 30  30 0d 1c c0 4e 73 63 72  |&2000,100...Nscr|
00006360  65 65 6e 24 28 73 63 72  65 65 6e 78 28 70 6c 61  |een$(screenx(pla|
00006370  79 65 72 25 29 2c 73 63  72 65 65 6e 79 28 70 6c  |yer%),screeny(pl|
00006380  61 79 65 72 25 29 2c 59  4f 55 58 28 70 6c 61 79  |ayer%),YOUX(play|
00006390  65 72 25 29 2c 59 4f 55  59 28 70 6c 61 79 65 72  |er%),YOUY(player|
000063a0  25 29 29 3d 22 30 22 0d  1c ca 56 f2 63 6c 65 61  |%))="0"...V.clea|
000063b0  72 62 6c 6f 63 6b 28 73  63 72 65 65 6e 78 28 70  |rblock(screenx(p|
000063c0  6c 61 79 65 72 25 29 2c  73 63 72 65 65 6e 79 28  |layer%),screeny(|
000063d0  70 6c 61 79 65 72 25 29  2c 59 4f 55 58 28 70 6c  |player%),YOUX(pl|
000063e0  61 79 65 72 25 29 2c 59  4f 55 59 28 70 6c 61 79  |ayer%),YOUY(play|
000063f0  65 72 25 29 2c 70 6c 61  79 65 72 25 29 0d 1c d4  |er%),player%)...|
00006400  39 e7 20 73 63 72 65 65  6e 78 28 31 29 3d 73 63  |9. screenx(1)=sc|
00006410  72 65 65 6e 78 28 32 29  20 80 20 73 63 72 65 65  |reenx(2) . scree|
00006420  6e 79 28 31 29 3d 73 63  72 65 65 6e 79 28 32 29  |ny(1)=screeny(2)|
00006430  3a f2 63 6f 6c 32 0d 1c  de 12 f2 67 72 61 62 28  |:.col2.....grab(|
00006440  70 6c 61 79 65 72 25 29  0d 1c e8 0a f2 70 72 69  |player%).....pri|
00006450  6e 74 0d 1c f2 16 65 6e  65 72 67 79 28 70 6c 61  |nt....energy(pla|
00006460  79 65 72 25 29 2b 3d 34  0d 1c fc 05 e1 0d 1d 06  |yer%)+=4........|
00006470  05 3a 0d 1d 10 21 f4 20  50 61 72 74 20 66 6f 72  |.:...!. Part for|
00006480  20 63 6f 6c 6c 65 63 74  69 6e 67 20 61 20 66 69  | collecting a fi|
00006490  73 68 2e 0d 1d 1a 0e dd  20 f2 67 65 74 66 69 73  |sh...... .getfis|
000064a0  68 0d 1d 24 24 c8 99 20  22 58 4f 53 5f 43 4c 49  |h..$$.. "XOS_CLI|
000064b0  22 2c 22 43 48 41 4e 4e  45 4c 2e 20 35 20 4f 62  |","CHANNEL. 5 Ob|
000064c0  6a 47 65 74 22 0d 1d 2e  13 d4 35 2c 2d 31 35 2c  |jGet".....5,-15,|
000064d0  26 34 30 30 30 2c 31 30  0d 1d 38 4e 73 63 72 65  |&4000,10..8Nscre|
000064e0  65 6e 24 28 73 63 72 65  65 6e 78 28 70 6c 61 79  |en$(screenx(play|
000064f0  65 72 25 29 2c 73 63 72  65 65 6e 79 28 70 6c 61  |er%),screeny(pla|
00006500  79 65 72 25 29 2c 59 4f  55 58 28 70 6c 61 79 65  |yer%),YOUX(playe|
00006510  72 25 29 2c 59 4f 55 59  28 70 6c 61 79 65 72 25  |r%),YOUY(player%|
00006520  29 29 3d 22 30 22 0d 1d  42 56 f2 63 6c 65 61 72  |))="0"..BV.clear|
00006530  62 6c 6f 63 6b 28 73 63  72 65 65 6e 78 28 70 6c  |block(screenx(pl|
00006540  61 79 65 72 25 29 2c 73  63 72 65 65 6e 79 28 70  |ayer%),screeny(p|
00006550  6c 61 79 65 72 25 29 2c  59 4f 55 58 28 70 6c 61  |layer%),YOUX(pla|
00006560  79 65 72 25 29 2c 59 4f  55 59 28 70 6c 61 79 65  |yer%),YOUY(playe|
00006570  72 25 29 2c 70 6c 61 79  65 72 25 29 0d 1d 4c 39  |r%),player%)..L9|
00006580  e7 20 73 63 72 65 65 6e  78 28 31 29 3d 73 63 72  |. screenx(1)=scr|
00006590  65 65 6e 78 28 32 29 20  80 20 73 63 72 65 65 6e  |eenx(2) . screen|
000065a0  79 28 31 29 3d 73 63 72  65 65 6e 79 28 32 29 3a  |y(1)=screeny(2):|
000065b0  f2 63 6f 6c 32 0d 1d 56  12 f2 67 72 61 62 28 70  |.col2..V..grab(p|
000065c0  6c 61 79 65 72 25 29 0d  1d 60 0a f2 70 72 69 6e  |layer%)..`..prin|
000065d0  74 0d 1d 6a 16 65 6e 65  72 67 79 28 70 6c 61 79  |t..j.energy(play|
000065e0  65 72 25 29 2b 3d 36 0d  1d 74 05 e1 0d 1d 7e 05  |er%)+=6..t....~.|
000065f0  3a 0d 1d 88 23 f4 20 50  61 72 74 20 66 6f 72 20  |:...#. Part for |
00006600  63 6f 6c 6c 65 63 74 69  6e 67 20 61 6e 20 61 70  |collecting an ap|
00006610  70 6c 65 2e 0d 1d 92 0f  dd 20 f2 67 65 74 61 70  |ple...... .getap|
00006620  70 6c 65 0d 1d 9c 24 c8  99 20 22 58 4f 53 5f 43  |ple...$.. "XOS_C|
00006630  4c 49 22 2c 22 43 48 41  4e 4e 45 4c 2e 20 35 20  |LI","CHANNEL. 5 |
00006640  4f 62 6a 47 65 74 22 0d  1d a6 13 d4 35 2c 2d 31  |ObjGet".....5,-1|
00006650  35 2c 26 33 30 30 30 2c  31 30 0d 1d b0 4e 73 63  |5,&3000,10...Nsc|
00006660  72 65 65 6e 24 28 73 63  72 65 65 6e 78 28 70 6c  |reen$(screenx(pl|
00006670  61 79 65 72 25 29 2c 73  63 72 65 65 6e 79 28 70  |ayer%),screeny(p|
00006680  6c 61 79 65 72 25 29 2c  59 4f 55 58 28 70 6c 61  |layer%),YOUX(pla|
00006690  79 65 72 25 29 2c 59 4f  55 59 28 70 6c 61 79 65  |yer%),YOUY(playe|
000066a0  72 25 29 29 3d 22 30 22  0d 1d ba 56 f2 63 6c 65  |r%))="0"...V.cle|
000066b0  61 72 62 6c 6f 63 6b 28  73 63 72 65 65 6e 78 28  |arblock(screenx(|
000066c0  70 6c 61 79 65 72 25 29  2c 73 63 72 65 65 6e 79  |player%),screeny|
000066d0  28 70 6c 61 79 65 72 25  29 2c 59 4f 55 58 28 70  |(player%),YOUX(p|
000066e0  6c 61 79 65 72 25 29 2c  59 4f 55 59 28 70 6c 61  |layer%),YOUY(pla|
000066f0  79 65 72 25 29 2c 70 6c  61 79 65 72 25 29 0d 1d  |yer%),player%)..|
00006700  c4 39 e7 20 73 63 72 65  65 6e 78 28 31 29 3d 73  |.9. screenx(1)=s|
00006710  63 72 65 65 6e 78 28 32  29 20 80 20 73 63 72 65  |creenx(2) . scre|
00006720  65 6e 79 28 31 29 3d 73  63 72 65 65 6e 79 28 32  |eny(1)=screeny(2|
00006730  29 3a f2 63 6f 6c 32 0d  1d ce 12 f2 67 72 61 62  |):.col2.....grab|
00006740  28 70 6c 61 79 65 72 25  29 0d 1d d8 0a f2 70 72  |(player%).....pr|
00006750  69 6e 74 0d 1d e2 16 65  6e 65 72 67 79 28 70 6c  |int....energy(pl|
00006760  61 79 65 72 25 29 2b 3d  34 0d 1d ec 05 e1 0d 1d  |ayer%)+=4.......|
00006770  f6 05 3a 0d 1e 00 0b dd  20 f2 63 6f 6c 32 0d 1e  |..:..... .col2..|
00006780  0a 65 e7 20 70 6c 61 79  65 72 25 3d 31 3a f2 63  |.e. player%=1:.c|
00006790  6c 65 61 72 62 6c 6f 63  6b 28 73 63 72 65 65 6e  |learblock(screen|
000067a0  78 28 70 6c 61 79 65 72  25 29 2c 73 63 72 65 65  |x(player%),scree|
000067b0  6e 79 28 70 6c 61 79 65  72 25 29 2c 59 4f 55 58  |ny(player%),YOUX|
000067c0  28 70 6c 61 79 65 72 25  29 2c 59 4f 55 59 28 70  |(player%),YOUY(p|
000067d0  6c 61 79 65 72 25 29 2c  32 29 3a f2 67 72 61 62  |layer%),2):.grab|
000067e0  28 32 29 0d 1e 14 65 e7  20 70 6c 61 79 65 72 25  |(2)...e. player%|
000067f0  3d 32 3a f2 63 6c 65 61  72 62 6c 6f 63 6b 28 73  |=2:.clearblock(s|
00006800  63 72 65 65 6e 78 28 70  6c 61 79 65 72 25 29 2c  |creenx(player%),|
00006810  73 63 72 65 65 6e 79 28  70 6c 61 79 65 72 25 29  |screeny(player%)|
00006820  2c 59 4f 55 58 28 70 6c  61 79 65 72 25 29 2c 59  |,YOUX(player%),Y|
00006830  4f 55 59 28 70 6c 61 79  65 72 25 29 2c 31 29 3a  |OUY(player%),1):|
00006840  f2 67 72 61 62 28 31 29  0d 1e 1e 05 e1 0d 1e 28  |.grab(1).......(|
00006850  05 3a 0d 1e 32 15 dd 20  f2 72 61 6e 64 6f 6d 74  |.:..2.. .randomt|
00006860  65 6c 65 70 6f 72 74 0d  1e 3c 21 c8 99 20 22 58  |eleport..<!.. "X|
00006870  4f 53 5f 43 4c 49 22 2c  22 43 48 41 4e 4e 45 4c  |OS_CLI","CHANNEL|
00006880  2e 20 34 20 48 69 74 22  0d 1e 46 14 d4 34 2c 2d  |. 4 Hit"..F..4,-|
00006890  31 35 2c 26 31 30 30 30  2c 31 30 30 0d 1e 50 05  |15,&1000,100..P.|
000068a0  3a 0d 1e 5a 05 f5 0d 1e  64 2d 52 31 25 3d b3 28  |:..Z....d-R1%=.(|
000068b0  38 29 2d 31 3a 52 32 25  3d b3 28 34 29 2d 31 3a  |8)-1:R2%=.(4)-1:|
000068c0  52 33 25 3d b3 28 31 35  29 3a 52 34 25 3d b3 28  |R3%=.(15):R4%=.(|
000068d0  31 35 29 0d 1e 6e 8f fd  20 73 63 72 65 65 6e 24  |15)..n.. screen$|
000068e0  28 52 31 25 2c 52 32 25  2c 52 33 25 2c 52 34 25  |(R1%,R2%,R3%,R4%|
000068f0  29 3d 22 30 22 20 84 20  73 63 72 65 65 6e 24 28  |)="0" . screen$(|
00006900  52 31 25 2c 52 32 25 2c  52 33 25 2c 52 34 25 29  |R1%,R2%,R3%,R4%)|
00006910  3d 22 35 22 3a 73 63 72  65 65 6e 78 28 70 6c 61  |="5":screenx(pla|
00006920  79 65 72 25 29 3d 52 31  25 3a 73 63 72 65 65 6e  |yer%)=R1%:screen|
00006930  79 28 70 6c 61 79 65 72  25 29 3d 52 32 25 3a 59  |y(player%)=R2%:Y|
00006940  4f 55 58 28 70 6c 61 79  65 72 25 29 3d 52 33 25  |OUX(player%)=R3%|
00006950  3a 59 4f 55 59 28 70 6c  61 79 65 72 25 29 3d 52  |:YOUY(player%)=R|
00006960  34 25 0d 1e 78 45 f2 73  63 72 65 65 6e 28 73 63  |4%..xE.screen(sc|
00006970  72 65 65 6e 78 28 70 6c  61 79 65 72 25 29 2c 73  |reenx(player%),s|
00006980  63 72 65 65 6e 79 28 70  6c 61 79 65 72 25 29 2c  |creeny(player%),|
00006990  70 6c 61 79 65 72 25 29  3a f2 67 72 61 62 28 70  |player%):.grab(p|
000069a0  6c 61 79 65 72 25 29 0d  1e 82 05 e1 0d 1e 8c 05  |layer%).........|
000069b0  3a 0d 1e 96 1f dd 20 f2  74 65 6c 65 70 6f 72 74  |:..... .teleport|
000069c0  5f 74 6f 5f 73 65 74 5f  70 6f 73 69 74 69 6f 6e  |_to_set_position|
000069d0  0d 1e a0 16 e3 20 74 65  6c 65 25 3d 30 b8 74 65  |..... tele%=0.te|
000069e0  6c 65 6e 75 6d 25 0d 1e  aa 88 e7 20 74 73 63 78  |lenum%..... tscx|
000069f0  28 74 65 6c 65 25 29 3d  73 63 72 65 65 6e 78 28  |(tele%)=screenx(|
00006a00  70 6c 61 79 65 72 25 29  20 80 20 74 73 63 79 28  |player%) . tscy(|
00006a10  74 65 6c 65 25 29 3d 73  63 72 65 65 6e 79 28 70  |tele%)=screeny(p|
00006a20  6c 61 79 65 72 25 29 20  80 20 74 78 28 74 65 6c  |layer%) . tx(tel|
00006a30  65 25 29 3d 59 4f 55 58  28 70 6c 61 79 65 72 25  |e%)=YOUX(player%|
00006a40  29 20 80 20 74 79 28 74  65 6c 65 25 29 3d 59 4f  |) . ty(tele%)=YO|
00006a50  55 59 28 70 6c 61 79 65  72 25 29 3a f2 73 68 69  |UY(player%):.shi|
00006a60  66 74 5f 74 6f 5f 70 6f  73 69 74 69 6f 6e 0d 1e  |ft_to_position..|
00006a70  b4 05 ed 0d 1e be 05 e1  0d 1e c8 05 3a 0d 1e d2  |............:...|
00006a80  18 dd 20 f2 73 68 69 66  74 5f 74 6f 5f 70 6f 73  |.. .shift_to_pos|
00006a90  69 74 69 6f 6e 0d 1e dc  32 c8 99 20 22 58 4f 53  |ition...2.. "XOS|
00006aa0  5f 43 4c 49 22 2c 22 43  48 41 4e 4e 45 4c 2e 20  |_CLI","CHANNEL. |
00006ab0  34 20 48 69 74 22 3a d4  34 2c 2d 31 35 2c 26 31  |4 Hit":.4,-15,&1|
00006ac0  30 30 30 2c 31 30 30 0d  1e e6 4a f4 20 52 65 6d  |000,100...J. Rem|
00006ad0  6f 76 65 20 27 52 45 4d  27 20 63 6f 6d 6d 61 6e  |ove 'REM' comman|
00006ae0  64 73 20 68 65 72 65 20  69 66 20 79 6f 75 20 77  |ds here if you w|
00006af0  61 6e 74 20 61 20 66 61  69 6c 75 72 65 20 72 61  |ant a failure ra|
00006b00  74 65 20 6f 6e 20 74 65  6c 65 70 6f 72 74 65 72  |te on teleporter|
00006b10  73 0d 1e f0 11 f4 20 5a  25 3d 52 4e 44 28 33 29  |s..... Z%=RND(3)|
00006b20  2d 31 0d 1e fa 28 f4 20  49 46 20 5a 25 3d 31 3a  |-1...(. IF Z%=1:|
00006b30  50 52 4f 43 72 61 6e 64  6f 6d 74 65 6c 65 70 6f  |PROCrandomtelepo|
00006b40  72 74 3a 45 4e 44 50 52  4f 43 0d 1f 04 47 73 63  |rt:ENDPROC...Gsc|
00006b50  72 65 65 6e 78 28 70 6c  61 79 65 72 25 29 3d 74  |reenx(player%)=t|
00006b60  65 6c 65 74 6f 73 63 78  28 74 65 6c 65 25 29 3a  |eletoscx(tele%):|
00006b70  73 63 72 65 65 6e 79 28  70 6c 61 79 65 72 25 29  |screeny(player%)|
00006b80  3d 74 65 6c 65 74 6f 73  63 79 28 74 65 6c 65 25  |=teletoscy(tele%|
00006b90  29 0d 1f 0e 3d 59 4f 55  58 28 70 6c 61 79 65 72  |)...=YOUX(player|
00006ba0  25 29 3d 74 65 6c 65 74  6f 78 28 74 65 6c 65 25  |%)=teletox(tele%|
00006bb0  29 3a 59 4f 55 59 28 70  6c 61 79 65 72 25 29 3d  |):YOUY(player%)=|
00006bc0  74 65 6c 65 74 6f 79 28  74 65 6c 65 25 29 0d 1f  |teletoy(tele%)..|
00006bd0  18 45 f2 73 63 72 65 65  6e 28 73 63 72 65 65 6e  |.E.screen(screen|
00006be0  78 28 70 6c 61 79 65 72  25 29 2c 73 63 72 65 65  |x(player%),scree|
00006bf0  6e 79 28 70 6c 61 79 65  72 25 29 2c 70 6c 61 79  |ny(player%),play|
00006c00  65 72 25 29 3a f2 67 72  61 62 28 70 6c 61 79 65  |er%):.grab(playe|
00006c10  72 25 29 0d 1f 22 05 e1  0d 1f 2c 05 3a 0d 1f 36  |r%).."....,.:..6|
00006c20  0c dd 20 f2 66 69 72 65  31 0d 1f 40 18 e7 20 77  |.. .fire1..@.. w|
00006c30  65 61 70 6f 6e 24 28 31  29 3d 22 30 22 20 8c 20  |eapon$(1)="0" . |
00006c40  e1 0d 1f 4a 18 e7 20 66  69 72 65 31 3e 31 30 20  |...J.. fire1>10 |
00006c50  8c 20 66 69 72 65 31 3d  30 0d 1f 54 29 e7 20 61  |. fire1=0..T). a|
00006c60  63 74 69 76 62 75 6c 28  66 69 72 65 31 29 3d 31  |ctivbul(fire1)=1|
00006c70  20 8c 20 66 69 72 65 31  2b 3d 31 3a e5 20 8d 64  | . fire1+=1:. .d|
00006c80  4c 5f 0d 1f 5e 15 61 63  74 69 76 62 75 6c 28 66  |L_..^.activbul(f|
00006c90  69 72 65 31 29 3d 31 0d  1f 68 2f 66 69 72 65 31  |ire1)=1..h/fire1|
00006ca0  78 28 66 69 72 65 31 29  3d 59 4f 55 58 28 31 29  |x(fire1)=YOUX(1)|
00006cb0  3a 66 69 72 65 31 79 28  66 69 72 65 31 29 3d 59  |:fire1y(fire1)=Y|
00006cc0  4f 55 59 28 31 29 0d 1f  72 39 66 69 72 65 31 73  |OUY(1)..r9fire1s|
00006cd0  63 78 28 66 69 72 65 31  29 3d 73 63 72 65 65 6e  |cx(fire1)=screen|
00006ce0  78 28 31 29 3a 66 69 72  65 31 73 63 79 28 66 69  |x(1):fire1scy(fi|
00006cf0  72 65 31 29 3d 73 63 72  65 65 6e 79 28 31 29 0d  |re1)=screeny(1).|
00006d00  1f 7c 3f 66 69 72 65 31  64 69 72 28 66 69 72 65  |.|?fire1dir(fire|
00006d10  31 29 3d 62 75 6c 64 31  3a 66 69 72 65 31 72 61  |1)=buld1:fire1ra|
00006d20  6e 67 65 28 66 69 72 65  31 29 3d 2d 31 3a 66 69  |nge(fire1)=-1:fi|
00006d30  72 65 66 72 31 28 66 69  72 65 31 29 3d 30 0d 1f  |refr1(fire1)=0..|
00006d40  86 21 66 69 72 65 31 2b  3d 31 3a e7 20 66 69 72  |.!fire1+=1:. fir|
00006d50  65 31 3e 31 30 20 8c 20  66 69 72 65 31 3d 30 0d  |e1>10 . fire1=0.|
00006d60  1f 90 22 c8 99 20 22 58  4f 53 5f 43 4c 49 22 2c  |..".. "XOS_CLI",|
00006d70  22 43 48 41 4e 4e 45 4c  2e 20 37 20 46 69 72 65  |"CHANNEL. 7 Fire|
00006d80  22 0d 1f 9a 27 e7 20 77  65 61 70 6f 6e 24 28 31  |"...'. weapon$(1|
00006d90  29 3d 22 77 65 70 34 22  3a d4 37 2c 2d 31 35 2c  |)="wep4":.7,-15,|
00006da0  26 32 30 30 2c 31 30 30  0d 1f a4 28 e7 20 77 65  |&200,100...(. we|
00006db0  61 70 6f 6e 24 28 31 29  3d 22 77 65 70 33 22 3a  |apon$(1)="wep3":|
00006dc0  d4 37 2c 2d 31 35 2c 26  31 30 30 30 2c 31 30 30  |.7,-15,&1000,100|
00006dd0  0d 1f ae 27 e7 20 77 65  61 70 6f 6e 24 28 31 29  |...'. weapon$(1)|
00006de0  3d 22 77 65 70 32 22 3a  d4 37 2c 2d 31 35 2c 26  |="wep2":.7,-15,&|
00006df0  35 30 30 2c 31 30 30 0d  1f b8 28 e7 20 77 65 61  |500,100...(. wea|
00006e00  70 6f 6e 24 28 31 29 3d  22 77 65 70 31 22 3a d4  |pon$(1)="wep1":.|
00006e10  37 2c 2d 31 30 2c 26 31  35 30 30 2c 31 30 30 0d  |7,-10,&1500,100.|
00006e20  1f c2 28 e7 20 77 65 61  70 6f 6e 24 28 31 29 3d  |..(. weapon$(1)=|
00006e30  22 77 65 70 30 22 3a d4  37 2c 2d 31 35 2c 26 31  |"wep0":.7,-15,&1|
00006e40  30 30 30 2c 31 30 30 0d  1f cc 05 e1 0d 1f d6 05  |000,100.........|
00006e50  3a 0d 1f e0 0c dd 20 f2  66 69 72 65 32 0d 1f ea  |:..... .fire2...|
00006e60  16 e7 20 77 65 61 70 6f  6e 24 28 32 29 3d 22 30  |.. weapon$(2)="0|
00006e70  22 3a e1 0d 1f f4 16 e7  20 66 69 72 65 32 3e 31  |":...... fire2>1|
00006e80  30 3a 66 69 72 65 32 3d  30 0d 1f fe 27 e7 20 61  |0:fire2=0...'. a|
00006e90  63 74 69 76 64 6f 73 28  66 69 72 65 32 29 3d 31  |ctivdos(fire2)=1|
00006ea0  3a 66 69 72 65 32 2b 3d  31 3a e5 20 8d 44 6c 60  |:fire2+=1:. .Dl`|
00006eb0  0d 20 08 15 61 63 74 69  76 64 6f 73 28 66 69 72  |. ..activdos(fir|
00006ec0  65 32 29 3d 31 0d 20 12  2f 66 69 72 65 32 78 28  |e2)=1. ./fire2x(|
00006ed0  66 69 72 65 32 29 3d 59  4f 55 58 28 32 29 3a 66  |fire2)=YOUX(2):f|
00006ee0  69 72 65 32 79 28 66 69  72 65 32 29 3d 59 4f 55  |ire2y(fire2)=YOU|
00006ef0  59 28 32 29 0d 20 1c 39  66 69 72 65 32 73 63 78  |Y(2). .9fire2scx|
00006f00  28 66 69 72 65 32 29 3d  73 63 72 65 65 6e 78 28  |(fire2)=screenx(|
00006f10  32 29 3a 66 69 72 65 32  73 63 79 28 66 69 72 65  |2):fire2scy(fire|
00006f20  32 29 3d 73 63 72 65 65  6e 79 28 32 29 0d 20 26  |2)=screeny(2). &|
00006f30  3e 66 69 72 65 32 64 69  72 28 66 69 72 65 32 29  |>fire2dir(fire2)|
00006f40  3d 62 75 6c 64 32 3a 66  69 72 65 32 72 61 6e 67  |=buld2:fire2rang|
00006f50  65 28 66 69 72 65 32 29  3d 30 3a 66 69 72 65 66  |e(fire2)=0:firef|
00006f60  72 32 28 66 69 72 65 32  29 3d 30 0d 20 30 22 c8  |r2(fire2)=0. 0".|
00006f70  99 20 22 58 4f 53 5f 43  4c 49 22 2c 22 43 48 41  |. "XOS_CLI","CHA|
00006f80  4e 4e 45 4c 2e 20 38 20  46 69 72 65 22 0d 20 3a  |NNEL. 8 Fire". :|
00006f90  27 e7 20 77 65 61 70 6f  6e 24 28 32 29 3d 22 77  |'. weapon$(2)="w|
00006fa0  65 70 34 22 3a d4 38 2c  2d 31 35 2c 26 32 30 30  |ep4":.8,-15,&200|
00006fb0  2c 31 30 30 0d 20 44 28  e7 20 77 65 61 70 6f 6e  |,100. D(. weapon|
00006fc0  24 28 32 29 3d 22 77 65  70 33 22 3a d4 38 2c 2d  |$(2)="wep3":.8,-|
00006fd0  31 35 2c 26 31 30 30 30  2c 31 30 30 0d 20 4e 27  |15,&1000,100. N'|
00006fe0  e7 20 77 65 61 70 6f 6e  24 28 32 29 3d 22 77 65  |. weapon$(2)="we|
00006ff0  70 32 22 3a d4 38 2c 2d  31 35 2c 26 35 30 30 2c  |p2":.8,-15,&500,|
00007000  31 30 30 0d 20 58 27 e7  20 77 65 61 70 6f 6e 24  |100. X'. weapon$|
00007010  28 32 29 3d 22 77 65 70  31 22 3a d4 38 2c 2d 31  |(2)="wep1":.8,-1|
00007020  30 2c 26 32 30 30 2c 31  30 30 0d 20 62 28 e7 20  |0,&200,100. b(. |
00007030  77 65 61 70 6f 6e 24 28  32 29 3d 22 77 65 70 30  |weapon$(2)="wep0|
00007040  22 3a d4 38 2c 2d 31 35  2c 26 31 30 30 30 2c 31  |":.8,-15,&1000,1|
00007050  30 30 0d 20 6c 05 e1 0d  20 76 05 3a 0d 20 80 10  |00. l... v.:. ..|
00007060  dd 20 f2 63 68 65 63 6b  77 65 70 73 0d 20 8a 16  |. .checkweps. ..|
00007070  e3 20 62 6f 6c 6c 65 74  73 32 25 3d 30 20 b8 20  |. bollets2%=0 . |
00007080  31 30 0d 20 94 22 e7 20  61 63 74 69 76 62 75 6c  |10. .". activbul|
00007090  28 62 6f 6c 6c 65 74 73  32 25 29 3d 30 3a e5 20  |(bollets2%)=0:. |
000070a0  8d 54 56 61 0d 20 9e 30  e7 20 66 69 72 65 31 64  |.TVa. .0. fire1d|
000070b0  69 72 28 62 6f 6c 6c 65  74 73 32 25 29 3d 30 3a  |ir(bollets2%)=0:|
000070c0  66 69 72 65 31 79 28 62  6f 6c 6c 65 74 73 32 25  |fire1y(bollets2%|
000070d0  29 2b 3d 31 0d 20 a8 30  e7 20 66 69 72 65 31 64  |)+=1. .0. fire1d|
000070e0  69 72 28 62 6f 6c 6c 65  74 73 32 25 29 3d 32 3a  |ir(bollets2%)=2:|
000070f0  66 69 72 65 31 79 28 62  6f 6c 6c 65 74 73 32 25  |fire1y(bollets2%|
00007100  29 2d 3d 31 0d 20 b2 30  e7 20 66 69 72 65 31 64  |)-=1. .0. fire1d|
00007110  69 72 28 62 6f 6c 6c 65  74 73 32 25 29 3d 31 3a  |ir(bollets2%)=1:|
00007120  66 69 72 65 31 78 28 62  6f 6c 6c 65 74 73 32 25  |fire1x(bollets2%|
00007130  29 2b 3d 31 0d 20 bc 30  e7 20 66 69 72 65 31 64  |)+=1. .0. fire1d|
00007140  69 72 28 62 6f 6c 6c 65  74 73 32 25 29 3d 33 3a  |ir(bollets2%)=3:|
00007150  66 69 72 65 31 78 28 62  6f 6c 6c 65 74 73 32 25  |fire1x(bollets2%|
00007160  29 2d 3d 31 0d 20 c6 45  e7 20 66 69 72 65 31 78  |)-=1. .E. fire1x|
00007170  28 62 6f 6c 6c 65 74 73  32 25 29 3c 30 3a 66 69  |(bollets2%)<0:fi|
00007180  72 65 31 73 63 78 28 62  6f 6c 6c 65 74 73 32 25  |re1scx(bollets2%|
00007190  29 2d 3d 31 3a 66 69 72  65 31 78 28 62 6f 6c 6c  |)-=1:fire1x(boll|
000071a0  65 74 73 32 25 29 3d 31  35 0d 20 d0 45 e7 20 66  |ets2%)=15. .E. f|
000071b0  69 72 65 31 78 28 62 6f  6c 6c 65 74 73 32 25 29  |ire1x(bollets2%)|
000071c0  3e 31 35 3a 66 69 72 65  31 73 63 78 28 62 6f 6c  |>15:fire1scx(bol|
000071d0  6c 65 74 73 32 25 29 2b  3d 31 3a 66 69 72 65 31  |lets2%)+=1:fire1|
000071e0  78 28 62 6f 6c 6c 65 74  73 32 25 29 3d 30 0d 20  |x(bollets2%)=0. |
000071f0  da 45 e7 20 66 69 72 65  31 79 28 62 6f 6c 6c 65  |.E. fire1y(bolle|
00007200  74 73 32 25 29 3c 30 3a  66 69 72 65 31 73 63 79  |ts2%)<0:fire1scy|
00007210  28 62 6f 6c 6c 65 74 73  32 25 29 2d 3d 31 3a 66  |(bollets2%)-=1:f|
00007220  69 72 65 31 79 28 62 6f  6c 6c 65 74 73 32 25 29  |ire1y(bollets2%)|
00007230  3d 31 35 0d 20 e4 45 e7  20 66 69 72 65 31 79 28  |=15. .E. fire1y(|
00007240  62 6f 6c 6c 65 74 73 32  25 29 3e 31 35 3a 66 69  |bollets2%)>15:fi|
00007250  72 65 31 73 63 79 28 62  6f 6c 6c 65 74 73 32 25  |re1scy(bollets2%|
00007260  29 2b 3d 31 3a 66 69 72  65 31 79 28 62 6f 6c 6c  |)+=1:fire1y(boll|
00007270  65 74 73 32 25 29 3d 30  0d 20 ee 05 3a 0d 20 f8  |ets2%)=0. ..:. .|
00007280  5c f2 63 68 65 63 6b 62  6c 6f 63 6b 28 66 69 72  |\.checkblock(fir|
00007290  65 31 73 63 78 28 62 6f  6c 6c 65 74 73 32 25 29  |e1scx(bollets2%)|
000072a0  2c 66 69 72 65 31 73 63  79 28 62 6f 6c 6c 65 74  |,fire1scy(bollet|
000072b0  73 32 25 29 2c 66 69 72  65 31 78 28 62 6f 6c 6c  |s2%),fire1x(boll|
000072c0  65 74 73 32 25 29 2c 66  69 72 65 31 79 28 62 6f  |ets2%),fire1y(bo|
000072d0  6c 6c 65 74 73 32 25 29  29 0d 21 02 ab e7 20 66  |llets2%)).!... f|
000072e0  65 65 64 62 61 63 6b 24  3d 22 31 22 20 84 20 66  |eedback$="1" . f|
000072f0  65 65 64 62 61 63 6b 24  3d 22 32 22 20 84 20 66  |eedback$="2" . f|
00007300  65 65 64 62 61 63 6b 24  3d 22 33 22 20 84 20 66  |eedback$="3" . f|
00007310  65 65 64 62 61 63 6b 24  3d 22 34 22 20 84 20 66  |eedback$="4" . f|
00007320  65 65 64 62 61 63 6b 24  3d 22 36 22 20 84 20 66  |eedback$="6" . f|
00007330  65 65 64 62 61 63 6b 24  3d 22 37 22 20 3a 61 63  |eedback$="7" :ac|
00007340  74 69 76 62 75 6c 28 62  6f 6c 6c 65 74 73 32 25  |tivbul(bollets2%|
00007350  29 3d 30 3a c8 99 20 22  58 4f 53 5f 43 4c 49 22  |)=0:.. "XOS_CLI"|
00007360  2c 22 43 48 41 4e 4e 45  4c 2e 20 35 20 53 69 64  |,"CHANNEL. 5 Sid|
00007370  65 73 22 3a d4 35 2c 2d  31 35 2c 26 32 30 30 30  |es":.5,-15,&2000|
00007380  2c 31 30 30 0d 21 0c 28  66 69 72 65 31 72 61 6e  |,100.!.(fire1ran|
00007390  67 65 28 62 6f 6c 6c 65  74 73 32 25 29 2b 3d 31  |ge(bollets2%)+=1|
000073a0  3a f2 63 68 65 63 6b 72  61 6e 67 65 0d 21 16 05  |:.checkrange.!..|
000073b0  ed 0d 21 20 05 e1 0d 21  2a 05 3a 0d 21 34 11 dd  |..! ...!*.:.!4..|
000073c0  20 f2 63 68 65 63 6b 77  65 70 73 32 0d 21 3e 15  | .checkweps2.!>.|
000073d0  e3 20 62 75 6c 6c 65 74  73 25 3d 30 20 b8 20 31  |. bullets%=0 . 1|
000073e0  30 0d 21 48 21 e7 20 61  63 74 69 76 64 6f 73 28  |0.!H!. activdos(|
000073f0  62 75 6c 6c 65 74 73 25  29 3d 30 3a e5 20 8d 64  |bullets%)=0:. .d|
00007400  4a 61 0d 21 52 2e e7 20  66 69 72 65 32 64 69 72  |Ja.!R.. fire2dir|
00007410  28 62 75 6c 6c 65 74 73  25 29 3d 30 3a 66 69 72  |(bullets%)=0:fir|
00007420  65 32 79 28 62 75 6c 6c  65 74 73 25 29 2b 3d 31  |e2y(bullets%)+=1|
00007430  0d 21 5c 2e e7 20 66 69  72 65 32 64 69 72 28 62  |.!\.. fire2dir(b|
00007440  75 6c 6c 65 74 73 25 29  3d 32 3a 66 69 72 65 32  |ullets%)=2:fire2|
00007450  79 28 62 75 6c 6c 65 74  73 25 29 2d 3d 31 0d 21  |y(bullets%)-=1.!|
00007460  66 2e e7 20 66 69 72 65  32 64 69 72 28 62 75 6c  |f.. fire2dir(bul|
00007470  6c 65 74 73 25 29 3d 31  3a 66 69 72 65 32 78 28  |lets%)=1:fire2x(|
00007480  62 75 6c 6c 65 74 73 25  29 2b 3d 31 0d 21 70 2e  |bullets%)+=1.!p.|
00007490  e7 20 66 69 72 65 32 64  69 72 28 62 75 6c 6c 65  |. fire2dir(bulle|
000074a0  74 73 25 29 3d 33 3a 66  69 72 65 32 78 28 62 75  |ts%)=3:fire2x(bu|
000074b0  6c 6c 65 74 73 25 29 2d  3d 31 0d 21 7a 42 e7 20  |llets%)-=1.!zB. |
000074c0  66 69 72 65 32 78 28 62  75 6c 6c 65 74 73 25 29  |fire2x(bullets%)|
000074d0  3c 30 3a 66 69 72 65 32  73 63 78 28 62 75 6c 6c  |<0:fire2scx(bull|
000074e0  65 74 73 25 29 2d 3d 31  3a 66 69 72 65 32 78 28  |ets%)-=1:fire2x(|
000074f0  62 75 6c 6c 65 74 73 25  29 3d 31 35 0d 21 84 42  |bullets%)=15.!.B|
00007500  e7 20 66 69 72 65 32 78  28 62 75 6c 6c 65 74 73  |. fire2x(bullets|
00007510  25 29 3e 31 35 3a 66 69  72 65 32 73 63 78 28 62  |%)>15:fire2scx(b|
00007520  75 6c 6c 65 74 73 25 29  2b 3d 31 3a 66 69 72 65  |ullets%)+=1:fire|
00007530  32 78 28 62 75 6c 6c 65  74 73 25 29 3d 30 0d 21  |2x(bullets%)=0.!|
00007540  8e 42 e7 20 66 69 72 65  32 79 28 62 75 6c 6c 65  |.B. fire2y(bulle|
00007550  74 73 25 29 3c 30 3a 66  69 72 65 32 73 63 79 28  |ts%)<0:fire2scy(|
00007560  62 75 6c 6c 65 74 73 25  29 2d 3d 31 3a 66 69 72  |bullets%)-=1:fir|
00007570  65 32 79 28 62 75 6c 6c  65 74 73 25 29 3d 31 35  |e2y(bullets%)=15|
00007580  0d 21 98 42 e7 20 66 69  72 65 32 79 28 62 75 6c  |.!.B. fire2y(bul|
00007590  6c 65 74 73 25 29 3e 31  35 3a 66 69 72 65 32 73  |lets%)>15:fire2s|
000075a0  63 79 28 62 75 6c 6c 65  74 73 25 29 2b 3d 31 3a  |cy(bullets%)+=1:|
000075b0  66 69 72 65 32 79 28 62  75 6c 6c 65 74 73 25 29  |fire2y(bullets%)|
000075c0  3d 30 0d 21 a2 05 3a 0d  21 ac 58 f2 63 68 65 63  |=0.!..:.!.X.chec|
000075d0  6b 62 6c 6f 63 6b 28 66  69 72 65 32 73 63 78 28  |kblock(fire2scx(|
000075e0  62 75 6c 6c 65 74 73 25  29 2c 66 69 72 65 32 73  |bullets%),fire2s|
000075f0  63 79 28 62 75 6c 6c 65  74 73 25 29 2c 66 69 72  |cy(bullets%),fir|
00007600  65 32 78 28 62 75 6c 6c  65 74 73 25 29 2c 66 69  |e2x(bullets%),fi|
00007610  72 65 32 79 28 62 75 6c  6c 65 74 73 25 29 29 0d  |re2y(bullets%)).|
00007620  21 b6 aa e7 20 66 65 65  64 62 61 63 6b 24 3d 22  |!... feedback$="|
00007630  31 22 20 84 20 66 65 65  64 62 61 63 6b 24 3d 22  |1" . feedback$="|
00007640  32 22 20 84 20 66 65 65  64 62 61 63 6b 24 3d 22  |2" . feedback$="|
00007650  33 22 20 84 20 66 65 65  64 62 61 63 6b 24 3d 22  |3" . feedback$="|
00007660  34 22 20 84 20 66 65 65  64 62 61 63 6b 24 3d 22  |4" . feedback$="|
00007670  36 22 20 84 20 66 65 65  64 62 61 63 6b 24 3d 22  |6" . feedback$="|
00007680  37 22 20 3a 61 63 74 69  76 64 6f 73 28 62 75 6c  |7" :activdos(bul|
00007690  6c 65 74 73 25 29 3d 30  3a c8 99 20 22 58 4f 53  |lets%)=0:.. "XOS|
000076a0  5f 43 4c 49 22 2c 22 43  48 41 4e 4e 45 4c 2e 20  |_CLI","CHANNEL. |
000076b0  36 20 53 69 64 65 73 22  3a d4 36 2c 2d 31 35 2c  |6 Sides":.6,-15,|
000076c0  26 32 30 30 30 2c 31 30  30 0d 21 c0 28 66 69 72  |&2000,100.!.(fir|
000076d0  65 32 72 61 6e 67 65 28  62 75 6c 6c 65 74 73 25  |e2range(bullets%|
000076e0  29 2b 3d 31 3a f2 63 68  65 63 6b 72 61 6e 67 65  |)+=1:.checkrange|
000076f0  32 0d 21 ca 05 ed 0d 21  d4 05 e1 0d 21 de 05 3a  |2.!....!....!..:|
00007700  0d 21 e8 11 dd 20 f2 63  68 65 63 6b 72 61 6e 67  |.!... .checkrang|
00007710  65 0d 21 f2 59 e7 20 77  65 61 70 6f 6e 24 28 31  |e.!.Y. weapon$(1|
00007720  29 3d 22 77 65 70 30 22  3a e7 20 66 69 72 65 31  |)="wep0":. fire1|
00007730  72 61 6e 67 65 28 62 6f  6c 6c 65 74 73 32 25 29  |range(bollets2%)|
00007740  3d 31 36 3a 66 69 72 65  31 72 61 6e 67 65 28 62  |=16:fire1range(b|
00007750  6f 6c 6c 65 74 73 32 25  29 3d 30 3a f2 72 65 73  |ollets2%)=0:.res|
00007760  65 74 66 69 72 65 32 28  31 29 0d 21 fc 59 e7 20  |etfire2(1).!.Y. |
00007770  77 65 61 70 6f 6e 24 28  31 29 3d 22 77 65 70 31  |weapon$(1)="wep1|
00007780  22 3a e7 20 66 69 72 65  31 72 61 6e 67 65 28 62  |":. fire1range(b|
00007790  6f 6c 6c 65 74 73 32 25  29 3d 31 3a 66 69 72 65  |ollets2%)=1:fire|
000077a0  31 72 61 6e 67 65 28 62  6f 6c 6c 65 74 73 32 25  |1range(bollets2%|
000077b0  29 3d 2d 31 3a f2 72 65  73 65 74 66 69 72 65 32  |)=-1:.resetfire2|
000077c0  28 31 29 0d 22 06 59 e7  20 77 65 61 70 6f 6e 24  |(1).".Y. weapon$|
000077d0  28 31 29 3d 22 77 65 70  32 22 3a e7 20 66 69 72  |(1)="wep2":. fir|
000077e0  65 31 72 61 6e 67 65 28  62 6f 6c 6c 65 74 73 32  |e1range(bollets2|
000077f0  25 29 3d 34 38 3a 66 69  72 65 31 72 61 6e 67 65  |%)=48:fire1range|
00007800  28 62 6f 6c 6c 65 74 73  32 25 29 3d 30 3a f2 72  |(bollets2%)=0:.r|
00007810  65 73 65 74 66 69 72 65  32 28 31 29 0d 22 10 59  |esetfire2(1).".Y|
00007820  e7 20 77 65 61 70 6f 6e  24 28 31 29 3d 22 77 65  |. weapon$(1)="we|
00007830  70 33 22 3a e7 20 66 69  72 65 31 72 61 6e 67 65  |p3":. fire1range|
00007840  28 62 6f 6c 6c 65 74 73  32 25 29 3d 31 30 3a 66  |(bollets2%)=10:f|
00007850  69 72 65 31 72 61 6e 67  65 28 62 6f 6c 6c 65 74  |ire1range(bollet|
00007860  73 32 25 29 3d 30 3a f2  72 65 73 65 74 66 69 72  |s2%)=0:.resetfir|
00007870  65 32 28 31 29 0d 22 1a  59 e7 20 77 65 61 70 6f  |e2(1).".Y. weapo|
00007880  6e 24 28 31 29 3d 22 77  65 70 34 22 3a e7 20 66  |n$(1)="wep4":. f|
00007890  69 72 65 31 72 61 6e 67  65 28 62 6f 6c 6c 65 74  |ire1range(bollet|
000078a0  73 32 25 29 3d 31 3a 66  69 72 65 31 72 61 6e 67  |s2%)=1:fire1rang|
000078b0  65 28 62 6f 6c 6c 65 74  73 32 25 29 3d 2d 31 3a  |e(bollets2%)=-1:|
000078c0  f2 72 65 73 65 74 66 69  72 65 32 28 31 29 0d 22  |.resetfire2(1)."|
000078d0  24 05 e1 0d 22 2e 12 dd  20 f2 63 68 65 63 6b 72  |$..."... .checkr|
000078e0  61 6e 67 65 32 0d 22 38  57 e7 20 77 65 61 70 6f  |ange2."8W. weapo|
000078f0  6e 24 28 32 29 3d 22 77  65 70 30 22 3a e7 20 66  |n$(2)="wep0":. f|
00007900  69 72 65 32 72 61 6e 67  65 28 62 75 6c 6c 65 74  |ire2range(bullet|
00007910  73 25 29 3d 31 36 3a 66  69 72 65 32 72 61 6e 67  |s%)=16:fire2rang|
00007920  65 28 62 75 6c 6c 65 74  73 25 29 3d 30 3a f2 72  |e(bullets%)=0:.r|
00007930  65 73 65 74 66 69 72 65  32 28 32 29 0d 22 42 56  |esetfire2(2)."BV|
00007940  e7 20 77 65 61 70 6f 6e  24 28 32 29 3d 22 77 65  |. weapon$(2)="we|
00007950  70 31 22 3a e7 20 66 69  72 65 32 72 61 6e 67 65  |p1":. fire2range|
00007960  28 62 75 6c 6c 65 74 73  25 29 3d 32 3a 66 69 72  |(bullets%)=2:fir|
00007970  65 32 72 61 6e 67 65 28  62 75 6c 6c 65 74 73 25  |e2range(bullets%|
00007980  29 3d 30 3a f2 72 65 73  65 74 66 69 72 65 32 28  |)=0:.resetfire2(|
00007990  32 29 0d 22 4c 57 e7 20  77 65 61 70 6f 6e 24 28  |2)."LW. weapon$(|
000079a0  32 29 3d 22 77 65 70 32  22 3a e7 20 66 69 72 65  |2)="wep2":. fire|
000079b0  32 72 61 6e 67 65 28 62  75 6c 6c 65 74 73 25 29  |2range(bullets%)|
000079c0  3d 34 38 3a 66 69 72 65  32 72 61 6e 67 65 28 62  |=48:fire2range(b|
000079d0  75 6c 6c 65 74 73 25 29  3d 30 3a f2 72 65 73 65  |ullets%)=0:.rese|
000079e0  74 66 69 72 65 32 28 32  29 0d 22 56 57 e7 20 77  |tfire2(2)."VW. w|
000079f0  65 61 70 6f 6e 24 28 32  29 3d 22 77 65 70 33 22  |eapon$(2)="wep3"|
00007a00  3a e7 20 66 69 72 65 32  72 61 6e 67 65 28 62 75  |:. fire2range(bu|
00007a10  6c 6c 65 74 73 25 29 3d  31 30 3a 66 69 72 65 32  |llets%)=10:fire2|
00007a20  72 61 6e 67 65 28 62 75  6c 6c 65 74 73 25 29 3d  |range(bullets%)=|
00007a30  30 3a f2 72 65 73 65 74  66 69 72 65 32 28 32 29  |0:.resetfire2(2)|
00007a40  0d 22 60 56 e7 20 77 65  61 70 6f 6e 24 28 32 29  |."`V. weapon$(2)|
00007a50  3d 22 77 65 70 34 22 3a  e7 20 66 69 72 65 32 72  |="wep4":. fire2r|
00007a60  61 6e 67 65 28 62 75 6c  6c 65 74 73 25 29 3d 32  |ange(bullets%)=2|
00007a70  3a 66 69 72 65 32 72 61  6e 67 65 28 62 75 6c 6c  |:fire2range(bull|
00007a80  65 74 73 25 29 3d 30 3a  f2 72 65 73 65 74 66 69  |ets%)=0:.resetfi|
00007a90  72 65 32 28 32 29 0d 22  6a 05 e1 0d 22 74 05 3a  |re2(2)."j..."t.:|
00007aa0  0d 22 7e 22 dd 20 f2 63  6c 65 61 72 62 6c 6f 63  |."~". .clearbloc|
00007ab0  6b 28 73 63 78 2c 73 63  79 2c 7a 2c 78 2c 70 6c  |k(scx,scy,z,x,pl|
00007ac0  25 29 0d 22 88 1d c8 8e  20 73 63 72 65 65 6e 24  |%).".... screen$|
00007ad0  28 73 63 78 2c 73 63 79  2c 7a 2c 78 29 20 ca 0d  |(scx,scy,z,x) ..|
00007ae0  22 92 4d c9 20 22 77 65  70 30 22 2c 22 77 65 70  |".M. "wep0","wep|
00007af0  31 22 2c 22 77 65 70 32  22 2c 22 77 65 70 33 22  |1","wep2","wep3"|
00007b00  2c 22 77 65 70 34 22 2c  22 36 22 2c 22 37 22 2c  |,"wep4","6","7",|
00007b10  22 38 22 3a f2 73 6f 72  74 5f 6f 75 74 5f 6f 74  |"8":.sort_out_ot|
00007b20  68 65 72 5f 62 6c 6f 63  6b 73 3a e1 0d 22 9c 05  |her_blocks:.."..|
00007b30  cb 0d 22 a6 05 3a 0d 22  b0 68 e7 20 70 6c 25 3d  |.."..:.".h. pl%=|
00007b40  31 3a c8 99 20 34 36 2c  26 32 32 32 2c 61 72 65  |1:.. 46,&222,are|
00007b50  61 25 2c 42 25 28 30 29  2c 7a 2a 36 34 2c 35 31  |a%,B%(0),z*64,51|
00007b60  32 2b 78 2a 33 32 2c 30  3a c8 99 20 34 36 2c 26  |2+x*32,0:.. 46,&|
00007b70  31 32 32 2c 61 72 65 61  25 2c 73 63 72 65 65 6e  |122,area%,screen|
00007b80  24 28 73 63 78 2c 73 63  79 2c 7a 2c 78 29 2c 7a  |$(scx,scy,z,x),z|
00007b90  2a 36 34 2c 35 31 32 2b  78 2a 33 32 2c 38 0d 22  |*64,512+x*32,8."|
00007ba0  ba 64 e7 20 70 6c 25 3d  32 3a c8 99 20 34 36 2c  |.d. pl%=2:.. 46,|
00007bb0  26 32 32 32 2c 61 72 65  61 25 2c 42 25 28 30 29  |&222,area%,B%(0)|
00007bc0  2c 7a 2a 36 34 2c 78 2a  33 32 2d 34 2c 30 3a c8  |,z*64,x*32-4,0:.|
00007bd0  99 20 34 36 2c 26 31 32  32 2c 61 72 65 61 25 2c  |. 46,&122,area%,|
00007be0  73 63 72 65 65 6e 24 28  73 63 78 2c 73 63 79 2c  |screen$(scx,scy,|
00007bf0  7a 2c 78 29 2c 7a 2a 36  34 2c 78 2a 33 32 2d 34  |z,x),z*64,x*32-4|
00007c00  2c 38 0d 22 c4 05 e1 0d  22 ce 05 3a 0d 22 d8 1c  |,8."...."..:."..|
00007c10  dd 20 f2 73 6f 72 74 5f  6f 75 74 5f 6f 74 68 65  |. .sort_out_othe|
00007c20  72 5f 62 6c 6f 63 6b 73  0d 22 e2 32 e7 20 70 6c  |r_blocks.".2. pl|
00007c30  25 3d 31 3a c8 99 20 34  36 2c 26 32 32 32 2c 61  |%=1:.. 46,&222,a|
00007c40  72 65 61 25 2c 42 25 28  30 29 2c 7a 2a 36 34 2c  |rea%,B%(0),z*64,|
00007c50  35 31 32 2b 78 2a 33 32  2c 30 0d 22 ec 41 e7 20  |512+x*32,0.".A. |
00007c60  70 6c 25 3d 31 3a c8 99  20 34 36 2c 26 31 32 32  |pl%=1:.. 46,&122|
00007c70  2c 61 72 65 61 25 2c 73  63 72 65 65 6e 24 28 73  |,area%,screen$(s|
00007c80  63 78 2c 73 63 79 2c 7a  2c 78 29 2c 7a 2a 36 34  |cx,scy,z,x),z*64|
00007c90  2c 35 31 32 2b 78 2a 33  32 2c 38 0d 22 f6 30 e7  |,512+x*32,8.".0.|
00007ca0  20 70 6c 25 3d 32 3a c8  99 20 34 36 2c 26 32 32  | pl%=2:.. 46,&22|
00007cb0  32 2c 61 72 65 61 25 2c  42 25 28 30 29 2c 7a 2a  |2,area%,B%(0),z*|
00007cc0  36 34 2c 78 2a 33 32 2d  34 2c 30 0d 23 00 3f e7  |64,x*32-4,0.#.?.|
00007cd0  20 70 6c 25 3d 32 3a c8  99 20 34 36 2c 26 31 32  | pl%=2:.. 46,&12|
00007ce0  32 2c 61 72 65 61 25 2c  73 63 72 65 65 6e 24 28  |2,area%,screen$(|
00007cf0  73 63 78 2c 73 63 79 2c  7a 2c 78 29 2c 7a 2a 36  |scx,scy,z,x),z*6|
00007d00  34 2c 78 2a 33 32 2d 34  2c 38 0d 23 0a 05 e1 0d  |4,x*32-4,8.#....|
00007d10  23 14 05 3a 0d 23 1e 1e  dd 20 f2 63 68 65 63 6b  |#..:.#... .check|
00007d20  62 6c 6f 63 6b 28 73 63  78 2c 73 63 79 2c 7a 2c  |block(scx,scy,z,|
00007d30  78 29 0d 23 28 22 66 65  65 64 62 61 63 6b 24 3d  |x).#("feedback$=|
00007d40  73 63 72 65 65 6e 24 28  73 63 78 2c 73 63 79 2c  |screen$(scx,scy,|
00007d50  7a 2c 78 29 0d 23 32 05  e1 0d 23 3c 05 3a 0d 23  |z,x).#2...#<.:.#|
00007d60  46 11 dd 20 f2 70 72 69  6e 74 62 75 6c 73 31 0d  |F.. .printbuls1.|
00007d70  23 50 10 c8 8e 20 70 6c  61 79 65 72 25 20 ca 0d  |#P... player% ..|
00007d80  23 5a 15 c9 20 31 3a f2  70 72 69 6e 74 62 75 6c  |#Z.. 1:.printbul|
00007d90  73 31 5f 31 0d 23 64 15  c9 20 32 3a f2 70 72 69  |s1_1.#d.. 2:.pri|
00007da0  6e 74 62 75 6c 73 31 5f  32 0d 23 6e 05 cb 0d 23  |ntbuls1_2.#n...#|
00007db0  78 05 e1 0d 23 82 05 3a  0d 23 8c 13 dd 20 f2 70  |x...#..:.#... .p|
00007dc0  72 69 6e 74 62 75 6c 73  31 5f 31 0d 23 96 17 e7  |rintbuls1_1.#...|
00007dd0  20 77 65 61 70 6f 6e 24  28 31 29 3d 22 30 22 20  | weapon$(1)="0" |
00007de0  3a e1 0d 23 a0 05 3a 0d  23 aa 13 e3 20 62 6f 6c  |:..#..:.#... bol|
00007df0  6c 73 25 3d 30 20 b8 20  31 30 0d 23 b4 21 e7 20  |ls%=0 . 10.#.!. |
00007e00  61 63 74 69 76 62 75 6c  28 62 6f 6c 6c 73 25 29  |activbul(bolls%)|
00007e10  3d 30 20 8c 20 e5 20 8d  54 6c 64 0d 23 be 05 3a  |=0 . . .Tld.#..:|
00007e20  0d 23 c8 3c 66 69 72 65  66 72 31 28 62 6f 6c 6c  |.#.<firefr1(boll|
00007e30  73 25 29 2b 3d 31 3a e7  20 66 69 72 65 66 72 31  |s%)+=1:. firefr1|
00007e40  28 62 6f 6c 6c 73 25 29  3e 33 3a 66 69 72 65 66  |(bolls%)>3:firef|
00007e50  72 31 28 62 6f 6c 6c 73  25 29 3d 30 0d 23 d2 4c  |r1(bolls%)=0.#.L|
00007e60  e7 20 73 63 72 65 65 6e  78 28 31 29 3d 66 69 72  |. screenx(1)=fir|
00007e70  65 31 73 63 78 28 62 6f  6c 6c 73 25 29 20 80 20  |e1scx(bolls%) . |
00007e80  73 63 72 65 65 6e 79 28  31 29 3d 66 69 72 65 31  |screeny(1)=fire1|
00007e90  73 63 79 28 62 6f 6c 6c  73 25 29 20 8c 20 3a 20  |scy(bolls%) . : |
00007ea0  8b 20 e5 20 8d 54 58 64  0d 23 dc 05 3a 0d 23 e6  |. . .TXd.#..:.#.|
00007eb0  19 e7 20 77 65 61 70 6f  6e 24 28 31 29 3d 22 77  |.. weapon$(1)="w|
00007ec0  65 70 30 22 20 8c 0d 23  f0 63 c8 99 20 34 36 2c  |ep0" ..#.c.. 46,|
00007ed0  26 31 32 32 2c 61 72 65  61 25 2c 77 65 61 70 6f  |&122,area%,weapo|
00007ee0  6e 24 28 31 29 2b c3 28  66 69 72 65 66 72 31 28  |n$(1)+.(firefr1(|
00007ef0  62 6f 6c 6c 73 25 29 29  2c 66 69 72 65 31 78 28  |bolls%)),fire1x(|
00007f00  62 6f 6c 6c 73 25 29 2a  36 34 2c 35 31 32 2b 66  |bolls%)*64,512+f|
00007f10  69 72 65 31 79 28 62 6f  6c 6c 73 25 29 2a 33 32  |ire1y(bolls%)*32|
00007f20  2c 38 3a e5 20 8d 54 58  64 0d 23 fa 05 cc 0d 24  |,8:. .TXd.#....$|
00007f30  04 5d c8 99 20 34 36 2c  26 31 32 32 2c 61 72 65  |.].. 46,&122,are|
00007f40  61 25 2c 77 65 61 70 6f  6e 24 28 31 29 2b c3 28  |a%,weapon$(1)+.(|
00007f50  66 69 72 65 31 64 69 72  28 62 6f 6c 6c 73 25 29  |fire1dir(bolls%)|
00007f60  29 2c 66 69 72 65 31 78  28 62 6f 6c 6c 73 25 29  |),fire1x(bolls%)|
00007f70  2a 36 34 2c 35 31 32 2b  66 69 72 65 31 79 28 62  |*64,512+fire1y(b|
00007f80  6f 6c 6c 73 25 29 2a 33  32 2c 38 0d 24 0e 05 cd  |olls%)*32,8.$...|
00007f90  0d 24 18 7d e7 20 59 4f  55 58 28 32 29 3d 66 69  |.$.}. YOUX(2)=fi|
00007fa0  72 65 31 78 28 62 6f 6c  6c 73 25 29 20 80 20 59  |re1x(bolls%) . Y|
00007fb0  4f 55 59 28 32 29 3d 66  69 72 65 31 79 28 62 6f  |OUY(2)=fire1y(bo|
00007fc0  6c 6c 73 25 29 20 80 20  73 63 72 65 65 6e 78 28  |lls%) . screenx(|
00007fd0  32 29 3d 66 69 72 65 31  73 63 78 28 62 6f 6c 6c  |2)=fire1scx(boll|
00007fe0  73 25 29 20 80 20 73 63  72 65 65 6e 79 28 32 29  |s%) . screeny(2)|
00007ff0  3d 66 69 72 65 31 73 63  79 28 62 6f 6c 6c 73 25  |=fire1scy(bolls%|
00008000  29 3a f2 68 69 74 70 6c  61 79 65 72 31 0d 24 22  |):.hitplayer1.$"|
00008010  4f e7 20 73 63 72 65 65  6e 78 28 32 29 3d 66 69  |O. screenx(2)=fi|
00008020  72 65 31 73 63 78 28 62  6f 6c 6c 73 25 29 20 80  |re1scx(bolls%) .|
00008030  20 73 63 72 65 65 6e 79  28 32 29 3d 66 69 72 65  | screeny(2)=fire|
00008040  31 73 63 79 28 62 6f 6c  6c 73 25 29 3a f2 70 72  |1scy(bolls%):.pr|
00008050  69 6e 74 6f 74 68 65 72  62 75 6c 73 0d 24 2c 05  |intotherbuls.$,.|
00008060  ed 0d 24 36 0f f4 20 50  52 4f 43 70 72 69 6e 74  |..$6.. PROCprint|
00008070  0d 24 40 05 e1 0d 24 4a  05 3a 0d 24 54 13 dd 20  |.$@...$J.:.$T.. |
00008080  f2 70 72 69 6e 74 62 75  6c 73 31 5f 32 0d 24 5e  |.printbuls1_2.$^|
00008090  17 e7 20 77 65 61 70 6f  6e 24 28 32 29 3d 22 30  |.. weapon$(2)="0|
000080a0  22 20 3a e1 0d 24 68 05  3a 0d 24 72 13 e3 20 62  |" :..$h.:.$r.. b|
000080b0  6f 6c 6c 73 25 3d 30 20  b8 20 31 30 0d 24 7c 21  |olls%=0 . 10.$|!|
000080c0  e7 20 61 63 74 69 76 64  6f 73 28 62 6f 6c 6c 73  |. activdos(bolls|
000080d0  25 29 3d 30 20 8c 20 e5  20 8d 64 6a 64 0d 24 86  |%)=0 . . .djd.$.|
000080e0  3c 66 69 72 65 66 72 32  28 62 6f 6c 6c 73 25 29  |<firefr2(bolls%)|
000080f0  2b 3d 31 3a e7 20 66 69  72 65 66 72 32 28 62 6f  |+=1:. firefr2(bo|
00008100  6c 6c 73 25 29 3e 33 3a  66 69 72 65 66 72 32 28  |lls%)>3:firefr2(|
00008110  62 6f 6c 6c 73 25 29 3d  30 0d 24 90 4c e7 20 73  |bolls%)=0.$.L. s|
00008120  63 72 65 65 6e 78 28 32  29 3d 66 69 72 65 32 73  |creenx(2)=fire2s|
00008130  63 78 28 62 6f 6c 6c 73  25 29 20 80 20 73 63 72  |cx(bolls%) . scr|
00008140  65 65 6e 79 28 32 29 3d  66 69 72 65 32 73 63 79  |eeny(2)=fire2scy|
00008150  28 62 6f 6c 6c 73 25 29  20 8c 20 3a 20 8b 20 e5  |(bolls%) . : . .|
00008160  20 8d 64 56 64 0d 24 9a  05 3a 0d 24 a4 19 e7 20  | .dVd.$..:.$... |
00008170  77 65 61 70 6f 6e 24 28  32 29 3d 22 77 65 70 30  |weapon$(2)="wep0|
00008180  22 20 8c 0d 24 ae 61 c8  99 20 34 36 2c 26 31 32  |" ..$.a.. 46,&12|
00008190  32 2c 61 72 65 61 25 2c  77 65 61 70 6f 6e 24 28  |2,area%,weapon$(|
000081a0  32 29 2b c3 28 66 69 72  65 66 72 32 28 62 6f 6c  |2)+.(firefr2(bol|
000081b0  6c 73 25 29 29 2c 66 69  72 65 32 78 28 62 6f 6c  |ls%)),fire2x(bol|
000081c0  6c 73 25 29 2a 36 34 2c  66 69 72 65 32 79 28 62  |ls%)*64,fire2y(b|
000081d0  6f 6c 6c 73 25 29 2a 33  32 2d 34 2c 38 3a e5 20  |olls%)*32-4,8:. |
000081e0  8d 64 56 64 0d 24 b8 05  cc 0d 24 c2 5b c8 99 20  |.dVd.$....$.[.. |
000081f0  34 36 2c 26 31 32 32 2c  61 72 65 61 25 2c 77 65  |46,&122,area%,we|
00008200  61 70 6f 6e 24 28 32 29  2b c3 28 66 69 72 65 32  |apon$(2)+.(fire2|
00008210  64 69 72 28 62 6f 6c 6c  73 25 29 29 2c 66 69 72  |dir(bolls%)),fir|
00008220  65 32 78 28 62 6f 6c 6c  73 25 29 2a 36 34 2c 66  |e2x(bolls%)*64,f|
00008230  69 72 65 32 79 28 62 6f  6c 6c 73 25 29 2a 33 32  |ire2y(bolls%)*32|
00008240  2d 34 2c 38 0d 24 cc 05  cd 0d 24 d6 7d e7 20 66  |-4,8.$....$.}. f|
00008250  69 72 65 32 78 28 62 6f  6c 6c 73 25 29 3d 59 4f  |ire2x(bolls%)=YO|
00008260  55 58 28 31 29 20 80 20  66 69 72 65 32 79 28 62  |UX(1) . fire2y(b|
00008270  6f 6c 6c 73 25 29 3d 59  4f 55 59 28 31 29 20 80  |olls%)=YOUY(1) .|
00008280  20 66 69 72 65 32 73 63  78 28 62 6f 6c 6c 73 25  | fire2scx(bolls%|
00008290  29 3d 73 63 72 65 65 6e  78 28 31 29 20 80 20 66  |)=screenx(1) . f|
000082a0  69 72 65 32 73 63 79 28  62 6f 6c 6c 73 25 29 3d  |ire2scy(bolls%)=|
000082b0  73 63 72 65 65 6e 79 28  31 29 3a f2 68 69 74 70  |screeny(1):.hitp|
000082c0  6c 61 79 65 72 32 0d 24  e0 50 e7 20 73 63 72 65  |layer2.$.P. scre|
000082d0  65 6e 78 28 31 29 3d 66  69 72 65 32 73 63 78 28  |enx(1)=fire2scx(|
000082e0  62 6f 6c 6c 73 25 29 20  80 20 73 63 72 65 65 6e  |bolls%) . screen|
000082f0  79 28 31 29 3d 66 69 72  65 32 73 63 79 28 62 6f  |y(1)=fire2scy(bo|
00008300  6c 6c 73 25 29 3a f2 70  72 69 6e 74 6f 74 68 65  |lls%):.printothe|
00008310  72 62 75 6c 73 32 0d 24  ea 05 ed 0d 24 f4 0f f4  |rbuls2.$....$...|
00008320  20 50 52 4f 43 70 72 69  6e 74 0d 24 fe 05 e1 0d  | PROCprint.$....|
00008330  25 08 05 3a 0d 25 12 15  dd 20 f2 70 72 69 6e 74  |%..:.%... .print|
00008340  6f 74 68 65 72 62 75 6c  73 0d 25 1c 1c e7 20 61  |otherbuls.%... a|
00008350  63 74 69 76 62 75 6c 28  62 6f 6c 6c 73 25 29 3d  |ctivbul(bolls%)=|
00008360  30 20 8c 20 e1 0d 25 26  70 e7 20 77 65 61 70 6f  |0 . ..%&p. weapo|
00008370  6e 24 28 31 29 3d 22 77  65 70 30 22 3a c8 99 20  |n$(1)="wep0":.. |
00008380  34 36 2c 26 31 32 32 2c  61 72 65 61 25 2c 77 65  |46,&122,area%,we|
00008390  61 70 6f 6e 24 28 31 29  2b c3 28 66 69 72 65 66  |apon$(1)+.(firef|
000083a0  72 31 28 62 6f 6c 6c 73  25 29 29 2c 66 69 72 65  |r1(bolls%)),fire|
000083b0  31 78 28 62 6f 6c 6c 73  25 29 2a 36 34 2c 66 69  |1x(bolls%)*64,fi|
000083c0  72 65 31 79 28 62 6f 6c  6c 73 25 29 2a 33 32 2d  |re1y(bolls%)*32-|
000083d0  34 2c 38 3a e1 0d 25 30  5b c8 99 20 34 36 2c 26  |4,8:..%0[.. 46,&|
000083e0  31 32 32 2c 61 72 65 61  25 2c 77 65 61 70 6f 6e  |122,area%,weapon|
000083f0  24 28 31 29 2b c3 28 66  69 72 65 31 64 69 72 28  |$(1)+.(fire1dir(|
00008400  62 6f 6c 6c 73 25 29 29  2c 66 69 72 65 31 78 28  |bolls%)),fire1x(|
00008410  62 6f 6c 6c 73 25 29 2a  36 34 2c 66 69 72 65 31  |bolls%)*64,fire1|
00008420  79 28 62 6f 6c 6c 73 25  29 2a 33 32 2d 34 2c 38  |y(bolls%)*32-4,8|
00008430  0d 25 3a 05 e1 0d 25 44  05 3a 0d 25 4e 16 dd 20  |.%:...%D.:.%N.. |
00008440  f2 70 72 69 6e 74 6f 74  68 65 72 62 75 6c 73 32  |.printotherbuls2|
00008450  0d 25 58 1c e7 20 61 63  74 69 76 64 6f 73 28 62  |.%X.. activdos(b|
00008460  6f 6c 6c 73 25 29 3d 30  20 8c 20 e1 0d 25 62 72  |olls%)=0 . ..%br|
00008470  e7 20 77 65 61 70 6f 6e  24 28 32 29 3d 22 77 65  |. weapon$(2)="we|
00008480  70 30 22 3a c8 99 20 34  36 2c 26 31 32 32 2c 61  |p0":.. 46,&122,a|
00008490  72 65 61 25 2c 77 65 61  70 6f 6e 24 28 32 29 2b  |rea%,weapon$(2)+|
000084a0  c3 28 66 69 72 65 66 72  32 28 62 6f 6c 6c 73 25  |.(firefr2(bolls%|
000084b0  29 29 2c 66 69 72 65 32  78 28 62 6f 6c 6c 73 25  |)),fire2x(bolls%|
000084c0  29 2a 36 34 2c 35 31 32  2b 66 69 72 65 32 79 28  |)*64,512+fire2y(|
000084d0  62 6f 6c 6c 73 25 29 2a  33 32 2c 38 3a e1 0d 25  |bolls%)*32,8:..%|
000084e0  6c 5d c8 99 20 34 36 2c  26 31 32 32 2c 61 72 65  |l].. 46,&122,are|
000084f0  61 25 2c 77 65 61 70 6f  6e 24 28 32 29 2b c3 28  |a%,weapon$(2)+.(|
00008500  66 69 72 65 32 64 69 72  28 62 6f 6c 6c 73 25 29  |fire2dir(bolls%)|
00008510  29 2c 66 69 72 65 32 78  28 62 6f 6c 6c 73 25 29  |),fire2x(bolls%)|
00008520  2a 36 34 2c 35 31 32 2b  66 69 72 65 32 79 28 62  |*64,512+fire2y(b|
00008530  6f 6c 6c 73 25 29 2a 33  32 2c 38 0d 25 76 05 e1  |olls%)*32,8.%v..|
00008540  0d 25 80 05 3a 0d 25 8a  11 f4 20 47 72 61 62 20  |.%..:.%... Grab |
00008550  53 63 72 65 65 6e 0d 25  94 10 dd 20 f2 67 72 61  |Screen.%... .gra|
00008560  62 28 70 6c 25 29 0d 25  9e 12 e7 20 70 6c 25 3d  |b(pl%).%... pl%=|
00008570  31 3a f2 67 72 61 62 32  0d 25 a8 12 e7 20 70 6c  |1:.grab2.%... pl|
00008580  25 3d 32 3a f2 67 72 61  62 31 0d 25 b2 05 e1 0d  |%=2:.grab1.%....|
00008590  25 bc 05 3a 0d 25 c6 1e  f4 20 47 72 61 62 20 53  |%..:.%... Grab S|
000085a0  63 72 65 65 6e 20 66 6f  72 20 70 6c 61 79 65 72  |creen for player|
000085b0  20 31 0d 25 d0 0c dd 20  f2 67 72 61 62 31 0d 25  | 1.%... .grab1.%|
000085c0  da 65 c8 99 34 36 2c 26  31 31 30 2c 67 72 61 62  |.e..46,&110,grab|
000085d0  25 2c 67 24 2c 30 2c 30  2c 30 2c 31 32 38 30 2c  |%,g$,0,0,0,1280,|
000085e0  35 30 38 3a c8 99 34 36  2c 26 31 31 38 2c 67 72  |508:..46,&118,gr|
000085f0  61 62 25 2c 67 24 20 b8  2c 2c 62 67 25 3a c8 99  |ab%,g$ .,,bg%:..|
00008600  34 36 2c 26 31 32 38 2c  67 72 61 62 25 2c 67 24  |46,&128,grab%,g$|
00008610  20 b8 2c 2c 2c 77 69 64  74 68 25 2c 68 65 69 67  | .,,,width%,heig|
00008620  68 74 25 0d 25 e4 05 e1  0d 25 ee 05 3a 0d 25 f8  |ht%.%....%..:.%.|
00008630  1e f4 20 47 72 61 62 20  53 63 72 65 65 6e 20 66  |.. Grab Screen f|
00008640  6f 72 20 70 6c 61 79 65  72 20 32 0d 26 02 0c dd  |or player 2.&...|
00008650  20 f2 67 72 61 62 32 0d  26 0c 77 c8 99 34 36 2c  | .grab2.&.w..46,|
00008660  26 31 31 30 2c 67 72 61  62 74 77 6f 25 2c 67 67  |&110,grabtwo%,gg|
00008670  24 2c 30 2c 30 2c 35 31  32 2c 31 32 38 30 2c 31  |$,0,0,512,1280,1|
00008680  30 32 33 3a c8 99 34 36  2c 26 31 31 38 2c 67 72  |023:..46,&118,gr|
00008690  61 62 74 77 6f 25 2c 67  67 24 20 b8 2c 2c 62 67  |abtwo%,gg$ .,,bg|
000086a0  32 25 3a c8 99 34 36 2c  26 31 32 38 2c 67 72 61  |2%:..46,&128,gra|
000086b0  62 74 77 6f 25 2c 67 67  24 20 b8 2c 2c 2c 77 69  |btwo%,gg$ .,,,wi|
000086c0  64 74 68 32 25 2c 68 65  69 67 68 74 32 25 0d 26  |dth2%,height2%.&|
000086d0  16 05 e1 0d 26 20 05 3a  0d 26 2a 14 dd 20 f2 73  |....& .:.&*.. .s|
000086e0  6f 72 74 77 65 70 63 68  61 6e 67 65 0d 26 34 50  |ortwepchange.&4P|
000086f0  63 6f 70 79 24 3d 73 63  72 65 65 6e 24 28 73 63  |copy$=screen$(sc|
00008700  72 65 65 6e 78 28 70 6c  61 79 65 72 25 29 2c 73  |reenx(player%),s|
00008710  63 72 65 65 6e 79 28 70  6c 61 79 65 72 25 29 2c  |creeny(player%),|
00008720  59 4f 55 58 28 70 6c 61  79 65 72 25 29 2c 59 4f  |YOUX(player%),YO|
00008730  55 59 28 70 6c 61 79 65  72 25 29 29 0d 26 3e 82  |UY(player%)).&>.|
00008740  62 61 63 6b 75 70 24 3d  63 6f 70 79 24 3a 73 63  |backup$=copy$:sc|
00008750  72 65 65 6e 24 28 73 63  72 65 65 6e 78 28 70 6c  |reen$(screenx(pl|
00008760  61 79 65 72 25 29 2c 73  63 72 65 65 6e 79 28 70  |ayer%),screeny(p|
00008770  6c 61 79 65 72 25 29 2c  59 4f 55 58 28 70 6c 61  |layer%),YOUX(pla|
00008780  79 65 72 25 29 2c 59 4f  55 59 28 70 6c 61 79 65  |yer%),YOUY(playe|
00008790  72 25 29 29 3d 77 65 61  70 6f 6e 24 28 70 6c 61  |r%))=weapon$(pla|
000087a0  79 65 72 25 29 3a 77 65  61 70 6f 6e 24 28 70 6c  |yer%):weapon$(pl|
000087b0  61 79 65 72 25 29 3d 62  61 63 6b 75 70 24 0d 26  |ayer%)=backup$.&|
000087c0  48 21 c8 99 20 22 58 4f  53 5f 43 4c 49 22 2c 22  |H!.. "XOS_CLI","|
000087d0  43 48 41 4e 4e 45 4c 2e  20 34 20 48 69 74 22 0d  |CHANNEL. 4 Hit".|
000087e0  26 52 13 d4 34 2c 2d 31  35 2c 26 34 30 30 2c 31  |&R..4,-15,&400,1|
000087f0  30 30 0d 26 5c 56 f2 63  6c 65 61 72 62 6c 6f 63  |00.&\V.clearbloc|
00008800  6b 28 73 63 72 65 65 6e  78 28 70 6c 61 79 65 72  |k(screenx(player|
00008810  25 29 2c 73 63 72 65 65  6e 79 28 70 6c 61 79 65  |%),screeny(playe|
00008820  72 25 29 2c 59 4f 55 58  28 70 6c 61 79 65 72 25  |r%),YOUX(player%|
00008830  29 2c 59 4f 55 59 28 70  6c 61 79 65 72 25 29 2c  |),YOUY(player%),|
00008840  70 6c 61 79 65 72 25 29  0d 26 66 3a e7 20 73 63  |player%).&f:. sc|
00008850  72 65 65 6e 78 28 31 29  3d 73 63 72 65 65 6e 78  |reenx(1)=screenx|
00008860  28 32 29 20 80 20 73 63  72 65 65 6e 79 28 31 29  |(2) . screeny(1)|
00008870  3d 73 63 72 65 65 6e 79  28 32 29 3a f2 73 6f 72  |=screeny(2):.sor|
00008880  74 32 0d 26 70 19 f2 67  72 61 62 28 70 6c 61 79  |t2.&p..grab(play|
00008890  65 72 25 29 3a f2 70 72  69 6e 74 0d 26 7a 05 e1  |er%):.print.&z..|
000088a0  0d 26 84 05 3a 0d 26 8e  0c dd 20 f2 73 6f 72 74  |.&..:.&... .sort|
000088b0  32 0d 26 98 65 e7 20 70  6c 61 79 65 72 25 3d 31  |2.&.e. player%=1|
000088c0  3a f2 63 6c 65 61 72 62  6c 6f 63 6b 28 73 63 72  |:.clearblock(scr|
000088d0  65 65 6e 78 28 70 6c 61  79 65 72 25 29 2c 73 63  |eenx(player%),sc|
000088e0  72 65 65 6e 79 28 70 6c  61 79 65 72 25 29 2c 59  |reeny(player%),Y|
000088f0  4f 55 58 28 70 6c 61 79  65 72 25 29 2c 59 4f 55  |OUX(player%),YOU|
00008900  59 28 70 6c 61 79 65 72  25 29 2c 32 29 3a f2 67  |Y(player%),2):.g|
00008910  72 61 62 28 32 29 0d 26  a2 67 e7 20 70 6c 61 79  |rab(2).&.g. play|
00008920  65 72 25 3d 32 20 8c 20  f2 63 6c 65 61 72 62 6c  |er%=2 . .clearbl|
00008930  6f 63 6b 28 73 63 72 65  65 6e 78 28 70 6c 61 79  |ock(screenx(play|
00008940  65 72 25 29 2c 73 63 72  65 65 6e 79 28 70 6c 61  |er%),screeny(pla|
00008950  79 65 72 25 29 2c 59 4f  55 58 28 70 6c 61 79 65  |yer%),YOUX(playe|
00008960  72 25 29 2c 59 4f 55 59  28 70 6c 61 79 65 72 25  |r%),YOUY(player%|
00008970  29 2c 31 29 3a f2 67 72  61 62 28 31 29 0d 26 ac  |),1):.grab(1).&.|
00008980  05 e1 0d 26 b6 05 3a 0d  26 c0 13 dd 20 f2 72 65  |...&..:.&... .re|
00008990  73 65 74 62 75 6c 28 70  25 29 0d 26 ca 0b c8 8e  |setbul(p%).&....|
000089a0  20 70 25 20 ca 0d 26 d4  08 c9 20 31 3a 0d 26 de  | p% ..&... 1:.&.|
000089b0  29 66 69 72 65 31 73 63  79 28 62 6f 6c 6c 73 25  |)fire1scy(bolls%|
000089c0  29 3d 30 3a 66 69 72 65  31 73 63 78 28 62 6f 6c  |)=0:fire1scx(bol|
000089d0  6c 73 25 29 3d 30 0d 26  e8 25 66 69 72 65 31 79  |ls%)=0.&.%fire1y|
000089e0  28 62 6f 6c 6c 73 25 29  3d 30 3a 66 69 72 65 31  |(bolls%)=0:fire1|
000089f0  78 28 62 6f 6c 6c 73 25  29 3d 30 0d 26 f2 16 61  |x(bolls%)=0.&..a|
00008a00  63 74 69 76 62 75 6c 28  62 6f 6c 6c 73 25 29 3d  |ctivbul(bolls%)=|
00008a10  30 0d 26 fc 08 c9 20 32  3a 0d 27 06 29 66 69 72  |0.&... 2:.'.)fir|
00008a20  65 32 73 63 79 28 62 6f  6c 6c 73 25 29 3d 30 3a  |e2scy(bolls%)=0:|
00008a30  66 69 72 65 32 73 63 78  28 62 6f 6c 6c 73 25 29  |fire2scx(bolls%)|
00008a40  3d 30 0d 27 10 25 66 69  72 65 32 79 28 62 6f 6c  |=0.'.%fire2y(bol|
00008a50  6c 73 25 29 3d 30 3a 66  69 72 65 32 78 28 62 6f  |ls%)=0:fire2x(bo|
00008a60  6c 6c 73 25 29 3d 30 0d  27 1a 16 61 63 74 69 76  |lls%)=0.'..activ|
00008a70  64 6f 73 28 62 6f 6c 6c  73 25 29 3d 30 0d 27 24  |dos(bolls%)=0.'$|
00008a80  05 cb 0d 27 2e 05 e1 0d  27 38 05 3a 0d 27 42 15  |...'....'8.:.'B.|
00008a90  dd 20 f2 72 65 73 65 74  66 69 72 65 32 28 70 25  |. .resetfire2(p%|
00008aa0  29 0d 27 4c 0b c8 8e 20  70 25 20 ca 0d 27 56 08  |).'L... p% ..'V.|
00008ab0  c9 20 31 3a 0d 27 60 2f  66 69 72 65 31 73 63 79  |. 1:.'`/fire1scy|
00008ac0  28 62 6f 6c 6c 65 74 73  32 25 29 3d 30 3a 66 69  |(bollets2%)=0:fi|
00008ad0  72 65 31 73 63 78 28 62  6f 6c 6c 65 74 73 32 25  |re1scx(bollets2%|
00008ae0  29 3d 30 0d 27 6a 2b 66  69 72 65 31 79 28 62 6f  |)=0.'j+fire1y(bo|
00008af0  6c 6c 65 74 73 32 25 29  3d 30 3a 66 69 72 65 31  |llets2%)=0:fire1|
00008b00  78 28 62 6f 6c 6c 65 74  73 32 25 29 3d 30 0d 27  |x(bollets2%)=0.'|
00008b10  74 31 61 63 74 69 76 62  75 6c 28 62 6f 6c 6c 65  |t1activbul(bolle|
00008b20  74 73 32 25 29 3d 30 3a  66 69 72 65 31 72 61 6e  |ts2%)=0:fire1ran|
00008b30  67 65 28 62 6f 6c 6c 65  74 73 32 25 29 3d 30 0d  |ge(bollets2%)=0.|
00008b40  27 7e 08 c9 20 32 3a 0d  27 88 2d 66 69 72 65 32  |'~.. 2:.'.-fire2|
00008b50  73 63 79 28 62 75 6c 6c  65 74 73 25 29 3d 30 3a  |scy(bullets%)=0:|
00008b60  66 69 72 65 32 73 63 78  28 62 75 6c 6c 65 74 73  |fire2scx(bullets|
00008b70  25 29 3d 30 0d 27 92 29  66 69 72 65 32 79 28 62  |%)=0.'.)fire2y(b|
00008b80  75 6c 6c 65 74 73 25 29  3d 30 3a 66 69 72 65 32  |ullets%)=0:fire2|
00008b90  78 28 62 75 6c 6c 65 74  73 25 29 3d 30 0d 27 9c  |x(bullets%)=0.'.|
00008ba0  2f 61 63 74 69 76 64 6f  73 28 62 75 6c 6c 65 74  |/activdos(bullet|
00008bb0  73 25 29 3d 30 3a 66 69  72 65 32 72 61 6e 67 65  |s%)=0:fire2range|
00008bc0  28 62 75 6c 6c 65 74 73  25 29 3d 30 0d 27 a6 05  |(bullets%)=0.'..|
00008bd0  cb 0d 27 b0 05 e1 0d 27  ba 05 3a 0d 27 c4 12 dd  |..'....'..:.'...|
00008be0  20 f2 70 72 69 6e 74 65  6e 65 72 67 79 0d 27 ce  | .printenergy.'.|
00008bf0  06 e6 35 0d 27 d8 3c e7  20 65 6e 65 72 67 79 28  |..5.'.<. energy(|
00008c00  31 29 3e 30 20 80 20 65  6e 65 72 67 79 28 31 29  |1)>0 . energy(1)|
00008c10  3c 31 38 34 3a c8 93 20  c8 90 31 30 35 30 2c 35  |<184:.. ..1050,5|
00008c20  36 30 2c 35 30 2c 65 6e  65 72 67 79 28 31 29 0d  |60,50,energy(1).|
00008c30  27 e2 3b e7 20 65 6e 65  72 67 79 28 32 29 3e 30  |'.;. energy(2)>0|
00008c40  20 80 20 65 6e 65 72 67  79 28 32 29 3c 31 38 34  | . energy(2)<184|
00008c50  3a c8 93 20 c8 90 31 30  35 30 2c 34 38 2c 35 30  |:.. ..1050,48,50|
00008c60  2c 65 6e 65 72 67 79 28  32 29 0d 27 ec 73 e7 20  |,energy(2).'.s. |
00008c70  65 6e 65 72 67 79 28 32  29 3e 3d 31 38 34 3a e6  |energy(2)>=184:.|
00008c80  35 3a c8 93 20 c8 90 31  30 35 30 2c 34 38 2c 35  |5:.. ..1050,48,5|
00008c90  30 2c 31 38 34 3a e6 37  3a 86 31 30 37 35 2c 34  |0,184:.7:.1075,4|
00008ca0  38 2c 31 30 37 35 2c 34  38 2b 31 38 34 3a 86 31  |8,1075,48+184:.1|
00008cb0  30 35 30 2c 34 38 2b 39  32 2c 31 30 37 35 2c 34  |050,48+92,1075,4|
00008cc0  38 2b 31 38 34 3a 86 31  31 30 30 2c 34 38 2b 39  |8+184:.1100,48+9|
00008cd0  32 2c 31 30 37 35 2c 34  38 2b 31 38 34 0d 27 f6  |2,1075,48+184.'.|
00008ce0  7a e7 20 65 6e 65 72 67  79 28 31 29 3e 3d 31 38  |z. energy(1)>=18|
00008cf0  34 3a e6 35 3a c8 93 20  c8 90 31 30 35 30 2c 35  |4:.5:.. ..1050,5|
00008d00  36 30 2c 35 30 2c 31 38  34 3a e6 37 3a 86 31 30  |60,50,184:.7:.10|
00008d10  37 35 2c 35 36 30 2c 31  30 37 35 2c 35 36 30 2b  |75,560,1075,560+|
00008d20  31 38 34 3a 86 31 30 35  30 2c 35 36 30 2b 39 32  |184:.1050,560+92|
00008d30  2c 31 30 37 35 2c 35 36  30 2b 31 38 34 3a 86 31  |,1075,560+184:.1|
00008d40  31 30 30 2c 35 36 30 2b  39 32 2c 31 30 37 35 2c  |100,560+92,1075,|
00008d50  35 36 30 2b 31 38 34 0d  28 00 05 3a 0d 28 0a 2a  |560+184.(..:.(.*|
00008d60  e7 20 73 68 69 65 6c 64  28 32 29 3d 35 3a e6 20  |. shield(2)=5:. |
00008d70  31 31 3a c8 93 20 c8 90  31 32 30 30 2c 35 32 2c  |11:.. ..1200,52,|
00008d80  35 30 2c 31 38 34 0d 28  14 2b e7 20 73 68 69 65  |50,184.(.+. shie|
00008d90  6c 64 28 31 29 3d 35 3a  e6 20 31 31 3a c8 93 20  |ld(1)=5:. 11:.. |
00008da0  c8 90 31 32 30 30 2c 35  36 34 2c 35 30 2c 31 38  |..1200,564,50,18|
00008db0  34 0d 28 1e 05 3a 0d 28  28 24 e7 20 73 68 69 65  |4.(..:.(($. shie|
00008dc0  6c 64 28 32 29 3e 30 20  8c 20 f2 70 72 69 6e 74  |ld(2)>0 . .print|
00008dd0  5f 73 68 69 65 6c 64 73  5f 32 0d 28 32 24 e7 20  |_shields_2.(2$. |
00008de0  73 68 69 65 6c 64 28 31  29 3e 30 20 8c 20 f2 70  |shield(1)>0 . .p|
00008df0  72 69 6e 74 5f 73 68 69  65 6c 64 73 5f 31 0d 28  |rint_shields_1.(|
00008e00  3c 40 e7 20 77 65 61 70  6f 6e 24 28 31 29 3d 22  |<@. weapon$(1)="|
00008e10  30 22 20 8c 20 3a 20 8b  20 c8 99 34 36 2c 26 31  |0" . : . ..46,&1|
00008e20  32 32 2c 61 72 65 61 25  2c 77 65 61 70 6f 6e 24  |22,area%,weapon$|
00008e30  28 31 29 2c 31 31 32 32  2c 38 36 36 2c 38 0d 28  |(1),1122,866,8.(|
00008e40  46 40 e7 20 77 65 61 70  6f 6e 24 28 32 29 3d 22  |F@. weapon$(2)="|
00008e50  30 22 20 8c 20 3a 20 8b  20 c8 99 34 36 2c 26 31  |0" . : . ..46,&1|
00008e60  32 32 2c 61 72 65 61 25  2c 77 65 61 70 6f 6e 24  |22,area%,weapon$|
00008e70  28 32 29 2c 31 31 32 32  2c 33 34 36 2c 38 0d 28  |(2),1122,346,8.(|
00008e80  50 05 e1 0d 28 5a 05 3a  0d 28 64 16 dd 20 f2 70  |P...(Z.:.(d.. .p|
00008e90  72 69 6e 74 5f 73 68 69  65 6c 64 73 5f 32 0d 28  |rint_shields_2.(|
00008ea0  6e 07 59 3d 30 0d 28 78  13 e7 20 73 68 69 65 6c  |n.Y=0.(x.. shiel|
00008eb0  64 28 32 29 3c 36 20 8c  0d 28 82 14 e3 20 41 25  |d(2)<6 ..(... A%|
00008ec0  3d 31 b8 73 68 69 65 6c  64 28 32 29 0d 28 8c 25  |=1.shield(2).(.%|
00008ed0  c8 99 20 34 36 2c 26 31  32 32 2c 61 72 65 61 25  |.. 46,&122,area%|
00008ee0  2c 22 31 30 22 2c 31 31  39 32 2c 35 36 2b 59 2c  |,"10",1192,56+Y,|
00008ef0  38 0d 28 96 09 59 2b 3d  33 36 0d 28 a0 05 ed 0d  |8.(..Y+=36.(....|
00008f00  28 aa 05 cd 0d 28 b4 05  e1 0d 28 be 05 3a 0d 28  |(....(....(..:.(|
00008f10  c8 16 dd 20 f2 70 72 69  6e 74 5f 73 68 69 65 6c  |... .print_shiel|
00008f20  64 73 5f 31 0d 28 d2 07  59 3d 30 0d 28 dc 13 e7  |ds_1.(..Y=0.(...|
00008f30  20 73 68 69 65 6c 64 28  31 29 3c 36 20 8c 0d 28  | shield(1)<6 ..(|
00008f40  e6 14 e3 20 41 25 3d 31  b8 73 68 69 65 6c 64 28  |... A%=1.shield(|
00008f50  31 29 0d 28 f0 26 c8 99  20 34 36 2c 26 31 32 32  |1).(.&.. 46,&122|
00008f60  2c 61 72 65 61 25 2c 22  31 30 22 2c 31 31 39 32  |,area%,"10",1192|
00008f70  2c 35 36 38 2b 59 2c 38  0d 28 fa 09 59 2b 3d 33  |,568+Y,8.(..Y+=3|
00008f80  36 0d 29 04 05 ed 0d 29  0e 05 cd 0d 29 18 05 e1  |6.)....)....)...|
00008f90  0d 29 22 05 3a 0d 29 2c  11 dd 20 f2 68 69 74 70  |.)".:.),.. .hitp|
00008fa0  6c 61 79 65 72 31 0d 29  36 13 e7 20 65 6e 65 72  |layer1.)6.. ener|
00008fb0  67 79 28 32 29 3e 30 20  8c 0d 29 40 50 e7 20 65  |gy(2)>0 ..)@P. e|
00008fc0  6e 65 72 67 79 28 32 29  3e 30 20 80 20 73 68 69  |nergy(2)>0 . shi|
00008fd0  65 6c 64 28 32 29 3e 30  3a c8 99 20 22 58 4f 53  |eld(2)>0:.. "XOS|
00008fe0  5f 43 4c 49 22 2c 22 43  48 41 4e 4e 45 4c 2e 20  |_CLI","CHANNEL. |
00008ff0  36 20 53 69 64 65 73 22  3a d4 36 2c 2d 31 35 2c  |6 Sides":.6,-15,|
00009000  26 34 30 30 30 2c 31 30  30 0d 29 4a 4c e7 20 65  |&4000,100.)JL. e|
00009010  6e 65 72 67 79 28 32 29  3e 30 20 80 20 73 68 69  |nergy(2)>0 . shi|
00009020  65 6c 64 28 32 29 3d 30  3a c8 99 20 22 58 4f 53  |eld(2)=0:.. "XOS|
00009030  5f 43 4c 49 22 2c 22 43  48 41 4e 4e 45 4c 2e 20  |_CLI","CHANNEL. |
00009040  32 20 41 52 47 22 3a d4  32 2c 2d 31 35 2c 26 33  |2 ARG":.2,-15,&3|
00009050  30 30 30 2c 31 0d 29 54  05 cd 0d 29 5e 10 f2 72  |000,1.)T...)^..r|
00009060  65 73 65 74 62 75 6c 28  31 29 0d 29 68 14 e7 20  |esetbul(1).)h.. |
00009070  73 68 69 65 6c 64 28 32  29 3c 3e 30 20 8c 0d 29  |shield(2)<>0 ..)|
00009080  72 13 c8 8e 20 77 65 61  70 6f 6e 24 28 31 29 20  |r... weapon$(1) |
00009090  ca 0d 29 7c 1f c9 22 77  65 70 30 22 3a 72 65 64  |..)|.."wep0":red|
000090a0  75 63 65 5f 73 68 69 65  6c 64 28 32 29 2b 3d 33  |uce_shield(2)+=3|
000090b0  0d 29 86 1f c9 22 77 65  70 31 22 3a 72 65 64 75  |.)..."wep1":redu|
000090c0  63 65 5f 73 68 69 65 6c  64 28 32 29 2b 3d 32 0d  |ce_shield(2)+=2.|
000090d0  29 90 1f c9 22 77 65 70  32 22 3a 72 65 64 75 63  |)..."wep2":reduc|
000090e0  65 5f 73 68 69 65 6c 64  28 32 29 2b 3d 31 0d 29  |e_shield(2)+=1.)|
000090f0  9a 21 c9 22 77 65 70 33  22 3a 72 65 64 75 63 65  |.!."wep3":reduce|
00009100  5f 73 68 69 65 6c 64 28  32 29 2b 3d 30 2e 35 0d  |_shield(2)+=0.5.|
00009110  29 a4 1f c9 22 77 65 70  34 22 3a 72 65 64 75 63  |)..."wep4":reduc|
00009120  65 5f 73 68 69 65 6c 64  28 32 29 2b 3d 33 0d 29  |e_shield(2)+=3.)|
00009130  ae 05 cb 0d 29 b8 38 e7  20 72 65 64 75 63 65 5f  |....).8. reduce_|
00009140  73 68 69 65 6c 64 28 32  29 3e 35 3a 72 65 64 75  |shield(2)>5:redu|
00009150  63 65 5f 73 68 69 65 6c  64 28 32 29 3d 30 3a 73  |ce_shield(2)=0:s|
00009160  68 69 65 6c 64 28 32 29  2d 3d 31 0d 29 c2 05 e1  |hield(2)-=1.)...|
00009170  0d 29 cc 05 cc 0d 29 d6  25 e7 20 77 65 61 70 6f  |.)....).%. weapo|
00009180  6e 24 28 31 29 3d 22 77  65 70 30 22 3a 65 6e 65  |n$(1)="wep0":ene|
00009190  72 67 79 28 32 29 2d 3d  31 36 0d 29 e0 25 e7 20  |rgy(2)-=16.).%. |
000091a0  77 65 61 70 6f 6e 24 28  31 29 3d 22 77 65 70 31  |weapon$(1)="wep1|
000091b0  22 3a 65 6e 65 72 67 79  28 32 29 2d 3d 31 32 0d  |":energy(2)-=12.|
000091c0  29 ea 24 e7 20 77 65 61  70 6f 6e 24 28 31 29 3d  |).$. weapon$(1)=|
000091d0  22 77 65 70 32 22 3a 65  6e 65 72 67 79 28 32 29  |"wep2":energy(2)|
000091e0  2d 3d 38 0d 29 f4 24 e7  20 77 65 61 70 6f 6e 24  |-=8.).$. weapon$|
000091f0  28 31 29 3d 22 77 65 70  33 22 3a 65 6e 65 72 67  |(1)="wep3":energ|
00009200  79 28 32 29 2d 3d 34 0d  29 fe 25 e7 20 77 65 61  |y(2)-=4.).%. wea|
00009210  70 6f 6e 24 28 31 29 3d  22 77 65 70 34 22 3a 65  |pon$(1)="wep4":e|
00009220  6e 65 72 67 79 28 32 29  2d 3d 31 36 0d 2a 08 0a  |nergy(2)-=16.*..|
00009230  68 69 74 32 3d 31 0d 2a  12 05 cd 0d 2a 1c 05 e1  |hit2=1.*....*...|
00009240  0d 2a 26 05 3a 0d 2a 30  11 dd 20 f2 68 69 74 70  |.*&.:.*0.. .hitp|
00009250  6c 61 79 65 72 32 0d 2a  3a 13 e7 20 65 6e 65 72  |layer2.*:.. ener|
00009260  67 79 28 31 29 3e 30 20  8c 0d 2a 44 50 e7 20 65  |gy(1)>0 ..*DP. e|
00009270  6e 65 72 67 79 28 31 29  3e 30 20 80 20 73 68 69  |nergy(1)>0 . shi|
00009280  65 6c 64 28 31 29 3e 30  3a c8 99 20 22 58 4f 53  |eld(1)>0:.. "XOS|
00009290  5f 43 4c 49 22 2c 22 43  48 41 4e 4e 45 4c 2e 20  |_CLI","CHANNEL. |
000092a0  35 20 53 69 64 65 73 22  3a d4 35 2c 2d 31 35 2c  |5 Sides":.5,-15,|
000092b0  26 34 30 30 30 2c 31 30  30 0d 2a 4e 4c e7 20 65  |&4000,100.*NL. e|
000092c0  6e 65 72 67 79 28 31 29  3e 30 20 80 20 73 68 69  |nergy(1)>0 . shi|
000092d0  65 6c 64 28 31 29 3d 30  3a c8 99 20 22 58 4f 53  |eld(1)=0:.. "XOS|
000092e0  5f 43 4c 49 22 2c 22 43  48 41 4e 4e 45 4c 2e 20  |_CLI","CHANNEL. |
000092f0  33 20 41 52 47 22 3a d4  33 2c 2d 31 35 2c 26 32  |3 ARG":.3,-15,&2|
00009300  30 30 30 2c 31 0d 2a 58  05 cd 0d 2a 62 10 f2 72  |000,1.*X...*b..r|
00009310  65 73 65 74 62 75 6c 28  32 29 0d 2a 6c 14 e7 20  |esetbul(2).*l.. |
00009320  73 68 69 65 6c 64 28 31  29 3c 3e 30 20 8c 0d 2a  |shield(1)<>0 ..*|
00009330  76 13 c8 8e 20 77 65 61  70 6f 6e 24 28 32 29 20  |v... weapon$(2) |
00009340  ca 0d 2a 80 1f c9 22 77  65 70 30 22 3a 72 65 64  |..*..."wep0":red|
00009350  75 63 65 5f 73 68 69 65  6c 64 28 31 29 2b 3d 33  |uce_shield(1)+=3|
00009360  0d 2a 8a 1f c9 22 77 65  70 31 22 3a 72 65 64 75  |.*..."wep1":redu|
00009370  63 65 5f 73 68 69 65 6c  64 28 31 29 2b 3d 32 0d  |ce_shield(1)+=2.|
00009380  2a 94 1f c9 22 77 65 70  32 22 3a 72 65 64 75 63  |*..."wep2":reduc|
00009390  65 5f 73 68 69 65 6c 64  28 31 29 2b 3d 31 0d 2a  |e_shield(1)+=1.*|
000093a0  9e 21 c9 22 77 65 70 33  22 3a 72 65 64 75 63 65  |.!."wep3":reduce|
000093b0  5f 73 68 69 65 6c 64 28  31 29 2b 3d 30 2e 35 0d  |_shield(1)+=0.5.|
000093c0  2a a8 1f c9 22 77 65 70  34 22 3a 72 65 64 75 63  |*..."wep4":reduc|
000093d0  65 5f 73 68 69 65 6c 64  28 31 29 2b 3d 33 0d 2a  |e_shield(1)+=3.*|
000093e0  b2 05 cb 0d 2a bc 38 e7  20 72 65 64 75 63 65 5f  |....*.8. reduce_|
000093f0  73 68 69 65 6c 64 28 31  29 3e 35 3a 72 65 64 75  |shield(1)>5:redu|
00009400  63 65 5f 73 68 69 65 6c  64 28 31 29 3d 30 3a 73  |ce_shield(1)=0:s|
00009410  68 69 65 6c 64 28 31 29  2d 3d 31 0d 2a c6 05 e1  |hield(1)-=1.*...|
00009420  0d 2a d0 05 cc 0d 2a da  25 e7 20 77 65 61 70 6f  |.*....*.%. weapo|
00009430  6e 24 28 32 29 3d 22 77  65 70 30 22 3a 65 6e 65  |n$(2)="wep0":ene|
00009440  72 67 79 28 31 29 2d 3d  31 36 0d 2a e4 25 e7 20  |rgy(1)-=16.*.%. |
00009450  77 65 61 70 6f 6e 24 28  32 29 3d 22 77 65 70 31  |weapon$(2)="wep1|
00009460  22 3a 65 6e 65 72 67 79  28 31 29 2d 3d 31 32 0d  |":energy(1)-=12.|
00009470  2a ee 24 e7 20 77 65 61  70 6f 6e 24 28 32 29 3d  |*.$. weapon$(2)=|
00009480  22 77 65 70 32 22 3a 65  6e 65 72 67 79 28 31 29  |"wep2":energy(1)|
00009490  2d 3d 38 0d 2a f8 24 e7  20 77 65 61 70 6f 6e 24  |-=8.*.$. weapon$|
000094a0  28 32 29 3d 22 77 65 70  33 22 3a 65 6e 65 72 67  |(2)="wep3":energ|
000094b0  79 28 31 29 2d 3d 34 0d  2b 02 25 e7 20 77 65 61  |y(1)-=4.+.%. wea|
000094c0  70 6f 6e 24 28 32 29 3d  22 77 65 70 34 22 3a 65  |pon$(2)="wep4":e|
000094d0  6e 65 72 67 79 28 31 29  2d 3d 31 36 0d 2b 0c 0a  |nergy(1)-=16.+..|
000094e0  68 69 74 31 3d 31 0d 2b  16 05 cd 0d 2b 20 05 e1  |hit1=1.+....+ ..|
000094f0  0d 2b 2a 05 3a 0d 2b 34  14 dd 20 f2 64 72 61 77  |.+*.:.+4.. .draw|
00009500  62 6c 6f 6f 64 5f 70 6c  31 0d 2b 3e 40 c8 99 34  |blood_pl1.+>@..4|
00009510  36 2c 26 31 32 32 2c 61  72 65 61 25 2c 22 67 6f  |6,&122,area%,"go|
00009520  72 65 22 2b c3 28 b3 28  32 29 2d 31 29 2c 59 4f  |re"+.(.(2)-1),YO|
00009530  55 58 28 31 29 2a 36 34  2c 35 31 32 2b 59 4f 55  |UX(1)*64,512+YOU|
00009540  59 28 31 29 2a 33 32 2c  38 0d 2b 48 6e e7 20 73  |Y(1)*32,8.+Hn. s|
00009550  63 72 65 65 6e 78 28 31  29 3d 73 63 72 65 65 6e  |creenx(1)=screen|
00009560  78 28 32 29 20 80 20 73  63 72 65 65 6e 79 28 31  |x(2) . screeny(1|
00009570  29 3d 73 63 72 65 65 6e  79 28 32 29 3a c8 99 34  |)=screeny(2):..4|
00009580  36 2c 26 31 32 32 2c 61  72 65 61 25 2c 22 67 6f  |6,&122,area%,"go|
00009590  72 65 22 2b c3 28 b3 28  32 29 2d 31 29 2c 59 4f  |re"+.(.(2)-1),YO|
000095a0  55 58 28 31 29 2a 36 34  2c 59 4f 55 59 28 31 29  |UX(1)*64,YOUY(1)|
000095b0  2a 33 32 2d 34 2c 38 0d  2b 52 05 e1 0d 2b 5c 05  |*32-4,8.+R...+\.|
000095c0  3a 0d 2b 66 14 dd 20 f2  64 72 61 77 62 6c 6f 6f  |:.+f.. .drawbloo|
000095d0  64 5f 70 6c 32 0d 2b 70  3e c8 99 34 36 2c 26 31  |d_pl2.+p>..46,&1|
000095e0  32 32 2c 61 72 65 61 25  2c 22 67 6f 72 65 22 2b  |22,area%,"gore"+|
000095f0  c3 28 b3 28 32 29 2d 31  29 2c 59 4f 55 58 28 32  |.(.(2)-1),YOUX(2|
00009600  29 2a 36 34 2c 59 4f 55  59 28 32 29 2a 33 32 2d  |)*64,YOUY(2)*32-|
00009610  34 2c 38 0d 2b 7a 8c e7  20 65 6e 65 72 67 79 28  |4,8.+z.. energy(|
00009620  32 29 3e 30 20 80 20 73  68 69 65 6c 64 28 32 29  |2)>0 . shield(2)|
00009630  3d 30 20 80 20 73 63 72  65 65 6e 78 28 32 29 3d  |=0 . screenx(2)=|
00009640  73 63 72 65 65 6e 78 28  31 29 20 80 20 73 63 72  |screenx(1) . scr|
00009650  65 65 6e 79 28 32 29 3d  73 63 72 65 65 6e 79 28  |eeny(2)=screeny(|
00009660  31 29 3a c8 99 34 36 2c  26 31 32 32 2c 61 72 65  |1):..46,&122,are|
00009670  61 25 2c 22 67 6f 72 65  22 2b c3 28 b3 28 32 29  |a%,"gore"+.(.(2)|
00009680  2d 31 29 2c 59 4f 55 58  28 32 29 2a 36 34 2c 35  |-1),YOUX(2)*64,5|
00009690  31 32 2b 59 4f 55 59 28  32 29 2a 33 32 2c 38 0d  |12+YOUY(2)*32,8.|
000096a0  2b 84 05 e1 0d 2b 8e 05  3a 0d 2b 98 11 dd 20 f2  |+....+..:.+... .|
000096b0  66 69 6e 64 77 69 6e 6e  65 72 0d 2b a2 2f e7 20  |findwinner.+./. |
000096c0  65 6e 65 72 67 79 28 31  29 3c 3d 30 20 80 20 65  |energy(1)<=0 . e|
000096d0  6e 65 72 67 79 28 32 29  3e 30 3a 70 6c 61 79 65  |nergy(2)>0:playe|
000096e0  72 74 77 6f 77 69 6e 3d  b9 0d 2b ac 2f e7 20 65  |rtwowin=..+./. e|
000096f0  6e 65 72 67 79 28 32 29  3c 3d 30 20 80 20 65 6e  |nergy(2)<=0 . en|
00009700  65 72 67 79 28 31 29 3e  30 3a 70 6c 61 79 65 72  |ergy(1)>0:player|
00009710  6f 6e 65 77 69 6e 3d b9  0d 2b b6 2e e7 20 65 6e  |onewin=..+... en|
00009720  65 72 67 79 28 31 29 3c  3d 30 20 80 20 65 6e 65  |ergy(1)<=0 . ene|
00009730  72 67 79 28 32 29 3c 3d  30 3a 70 6c 61 79 65 72  |rgy(2)<=0:player|
00009740  64 72 61 77 3d b9 0d 2b  c0 05 e1 0d 2b ca 05 3a  |draw=..+....+..:|
00009750  0d 2b d4 12 dd 20 f2 70  72 69 6e 74 77 69 6e 6e  |.+... .printwinn|
00009760  65 72 0d 2b de 2c e7 20  70 6c 61 79 65 72 6f 6e  |er.+.,. playeron|
00009770  65 77 69 6e 20 84 20 70  6c 61 79 65 72 74 77 6f  |ewin . playertwo|
00009780  77 69 6e 3a 73 70 65 65  64 2d 3d 32 2e 32 0d 2b  |win:speed-=2.2.+|
00009790  e8 1b e7 20 70 6c 61 79  65 72 64 72 61 77 3a 73  |... playerdraw:s|
000097a0  70 65 65 64 2d 3d 31 2e  36 0d 2b f2 15 e7 20 73  |peed-=1.6.+... s|
000097b0  70 65 65 64 3c 30 3a 73  70 65 65 64 3d 30 0d 2b  |peed<0:speed=0.+|
000097c0  fc 0c 63 2b 3d 73 70 65  65 64 0d 2c 06 22 e7 20  |..c+=speed.,.". |
000097d0  70 6c 61 79 65 72 6f 6e  65 77 69 6e 3a f2 70 72  |playeronewin:.pr|
000097e0  69 6e 74 6f 6e 65 77 69  6e 28 63 29 0d 2c 10 22  |intonewin(c).,."|
000097f0  e7 20 70 6c 61 79 65 72  74 77 6f 77 69 6e 3a f2  |. playertwowin:.|
00009800  70 72 69 6e 74 74 77 6f  77 69 6e 28 63 29 0d 2c  |printtwowin(c).,|
00009810  1a 1e e7 20 70 6c 61 79  65 72 64 72 61 77 3a f2  |... playerdraw:.|
00009820  70 72 69 6e 74 64 72 61  77 28 63 29 0d 2c 24 1b  |printdraw(c).,$.|
00009830  e7 20 a6 2d 39 39 3a 63  6f 75 6e 74 74 69 6c 6c  |. .-99:counttill|
00009840  65 6e 64 25 3d 39 30 0d  2c 2e 05 e1 0d 2c 38 05  |end%=90.,....,8.|
00009850  3a 0d 2c 42 15 dd 20 f2  70 72 69 6e 74 6f 6e 65  |:.,B.. .printone|
00009860  77 69 6e 28 78 29 0d 2c  4c 29 c8 99 34 36 2c 26  |win(x).,L)..46,&|
00009870  31 32 32 2c 61 72 65 61  25 2c 22 61 6e 6e 6f 75  |122,area%,"annou|
00009880  6e 63 65 22 2c 78 2b 38  30 2c 32 31 30 2c 38 0d  |nce",x+80,210,8.|
00009890  2c 56 29 c8 99 34 36 2c  26 31 32 32 2c 61 72 65  |,V)..46,&122,are|
000098a0  61 25 2c 22 61 6e 6e 6f  75 6e 63 65 22 2c 78 2b  |a%,"announce",x+|
000098b0  38 30 2c 37 31 30 2c 38  0d 2c 60 29 c8 99 34 36  |80,710,8.,`)..46|
000098c0  2c 26 31 32 32 2c 61 72  65 61 25 2c 22 70 6c 61  |,&122,area%,"pla|
000098d0  79 65 72 31 22 2c 78 2b  33 32 30 2c 37 30 36 2c  |yer1",x+320,706,|
000098e0  38 0d 2c 6a 29 c8 99 34  36 2c 26 31 32 32 2c 61  |8.,j)..46,&122,a|
000098f0  72 65 61 25 2c 22 70 6c  61 79 65 72 32 22 2c 78  |rea%,"player2",x|
00009900  2b 33 31 34 2c 32 30 36  2c 38 0d 2c 74 28 c8 99  |+314,206,8.,t(..|
00009910  34 36 2c 26 31 32 32 2c  61 72 65 61 25 2c 22 77  |46,&122,area%,"w|
00009920  69 6e 6e 65 72 22 2c 78  2b 36 30 30 2c 37 31 30  |inner",x+600,710|
00009930  2c 38 0d 2c 7e 27 c8 99  34 36 2c 26 31 32 32 2c  |,8.,~'..46,&122,|
00009940  61 72 65 61 25 2c 22 6c  6f 73 65 72 22 2c 78 2b  |area%,"loser",x+|
00009950  36 30 30 2c 32 31 30 2c  38 0d 2c 88 05 e1 0d 2c  |600,210,8.,....,|
00009960  92 05 3a 0d 2c 9c 15 dd  20 f2 70 72 69 6e 74 74  |..:.,... .printt|
00009970  77 6f 77 69 6e 28 78 29  0d 2c a6 29 c8 99 34 36  |wowin(x).,.)..46|
00009980  2c 26 31 32 32 2c 61 72  65 61 25 2c 22 61 6e 6e  |,&122,area%,"ann|
00009990  6f 75 6e 63 65 22 2c 78  2b 38 30 2c 32 31 30 2c  |ounce",x+80,210,|
000099a0  38 0d 2c b0 29 c8 99 34  36 2c 26 31 32 32 2c 61  |8.,.)..46,&122,a|
000099b0  72 65 61 25 2c 22 61 6e  6e 6f 75 6e 63 65 22 2c  |rea%,"announce",|
000099c0  78 2b 38 30 2c 37 31 30  2c 38 0d 2c ba 29 c8 99  |x+80,710,8.,.)..|
000099d0  34 36 2c 26 31 32 32 2c  61 72 65 61 25 2c 22 70  |46,&122,area%,"p|
000099e0  6c 61 79 65 72 31 22 2c  78 2b 33 32 30 2c 37 30  |layer1",x+320,70|
000099f0  36 2c 38 0d 2c c4 29 c8  99 34 36 2c 26 31 32 32  |6,8.,.)..46,&122|
00009a00  2c 61 72 65 61 25 2c 22  70 6c 61 79 65 72 32 22  |,area%,"player2"|
00009a10  2c 78 2b 33 31 34 2c 32  30 36 2c 38 0d 2c ce 27  |,x+314,206,8.,.'|
00009a20  c8 99 34 36 2c 26 31 32  32 2c 61 72 65 61 25 2c  |..46,&122,area%,|
00009a30  22 6c 6f 73 65 72 22 2c  78 2b 36 30 30 2c 37 31  |"loser",x+600,71|
00009a40  30 2c 38 0d 2c d8 28 c8  99 34 36 2c 26 31 32 32  |0,8.,.(..46,&122|
00009a50  2c 61 72 65 61 25 2c 22  77 69 6e 6e 65 72 22 2c  |,area%,"winner",|
00009a60  78 2b 36 30 30 2c 32 31  30 2c 38 0d 2c e2 05 e1  |x+600,210,8.,...|
00009a70  0d 2c ec 05 3a 0d 2c f6  13 dd 20 f2 70 72 69 6e  |.,..:.,... .prin|
00009a80  74 64 72 61 77 28 78 29  0d 2d 00 23 c8 99 34 36  |tdraw(x).-.#..46|
00009a90  2c 26 31 32 32 2c 61 72  65 61 25 2c 22 64 72 61  |,&122,area%,"dra|
00009aa0  77 21 22 2c 78 2c 32 31  30 2c 38 0d 2d 0a 25 c8  |w!",x,210,8.-.%.|
00009ab0  99 34 36 2c 32 35 36 2b  33 34 2c 61 72 65 61 25  |.46,256+34,area%|
00009ac0  2c 22 64 72 61 77 21 22  2c 78 2c 37 31 30 2c 38  |,"draw!",x,710,8|
00009ad0  0d 2d 14 05 e1 0d 2d 1e  05 3a 0d 2d 28 13 dd 20  |.-....-..:.-(.. |
00009ae0  f2 64 72 61 77 67 72 61  70 68 69 63 73 0d 2d 32  |.drawgraphics.-2|
00009af0  2d c8 99 34 36 2c 26 31  32 32 2c 61 72 65 61 25  |-..46,&122,area%|
00009b00  2c 22 73 74 61 74 66 6f  72 70 6c 61 79 31 22 2c  |,"statforplay1",|
00009b10  31 30 33 30 2c 35 31 36  2c 38 0d 2d 3c 2b c8 99  |1030,516,8.-<+..|
00009b20  34 36 2c 26 31 32 32 2c  61 72 65 61 25 2c 22 73  |46,&122,area%,"s|
00009b30  74 61 74 66 6f 72 70 6c  61 79 32 22 2c 31 30 33  |tatforplay2",103|
00009b40  30 2c 30 2c 38 0d 2d 46  26 c8 99 34 36 2c 26 31  |0,0,8.-F&..46,&1|
00009b50  32 32 2c 61 72 65 61 25  2c 22 68 65 61 6c 74 68  |22,area%,"health|
00009b60  22 2c 31 30 35 38 2c 31  32 2c 38 0d 2d 50 27 c8  |",1058,12,8.-P'.|
00009b70  99 34 36 2c 26 31 32 32  2c 61 72 65 61 25 2c 22  |.46,&122,area%,"|
00009b80  68 65 61 6c 74 68 22 2c  31 30 35 38 2c 35 32 34  |health",1058,524|
00009b90  2c 38 0d 2d 5a 25 c8 99  34 36 2c 26 31 32 32 2c  |,8.-Z%..46,&122,|
00009ba0  61 72 65 61 25 2c 22 73  68 69 65 6c 64 22 2c 31  |area%,"shield",1|
00009bb0  31 39 32 2c 38 2c 38 0d  2d 64 27 c8 99 34 36 2c  |192,8,8.-d'..46,|
00009bc0  26 31 32 32 2c 61 72 65  61 25 2c 22 73 68 69 65  |&122,area%,"shie|
00009bd0  6c 64 22 2c 31 31 39 32  2c 35 32 34 2c 38 0d 2d  |ld",1192,524,8.-|
00009be0  6e 06 e6 37 0d 2d 78 17  c8 93 20 c8 90 31 32 30  |n..7.-x... ..120|
00009bf0  30 2c 35 32 2c 35 30 2c  31 38 34 0d 2d 82 18 c8  |0,52,50,184.-...|
00009c00  93 20 c8 90 31 32 30 30  2c 35 36 34 2c 35 30 2c  |. ..1200,564,50,|
00009c10  31 38 34 0d 2d 8c 17 c8  93 20 c8 90 31 31 31 38  |184.-.... ..1118|
00009c20  2c 38 36 32 2c 36 38 2c  33 36 0d 2d 96 17 c8 93  |,862,68,36.-....|
00009c30  20 c8 90 31 31 31 38 2c  33 34 32 2c 36 38 2c 33  | ..1118,342,68,3|
00009c40  36 0d 2d a0 17 c8 93 20  c8 90 31 30 35 30 2c 34  |6.-.... ..1050,4|
00009c50  38 2c 35 30 2c 31 38 34  0d 2d aa 18 c8 93 20 c8  |8,50,184.-.... .|
00009c60  90 31 30 35 30 2c 35 36  30 2c 35 30 2c 31 38 34  |.1050,560,50,184|
00009c70  0d 2d b4 06 e6 30 0d 2d  be 14 c8 93 31 32 30 30  |.-...0.-....1200|
00009c80  2c 35 32 2c 34 38 2c 31  38 34 0d 2d c8 14 c8 93  |,52,48,184.-....|
00009c90  31 32 30 32 2c 35 32 2c  34 38 2c 31 38 34 0d 2d  |1202,52,48,184.-|
00009ca0  d2 15 c8 93 31 32 30 30  2c 35 36 34 2c 34 38 2c  |....1200,564,48,|
00009cb0  31 38 34 0d 2d dc 15 c8  93 31 32 30 32 2c 35 36  |184.-....1202,56|
00009cc0  34 2c 34 38 2c 31 38 34  0d 2d e6 14 c8 93 31 31  |4,48,184.-....11|
00009cd0  31 38 2c 38 36 32 2c 36  38 2c 33 36 0d 2d f0 14  |18,862,68,36.-..|
00009ce0  c8 93 31 31 31 38 2c 33  34 32 2c 36 38 2c 33 36  |..1118,342,68,36|
00009cf0  0d 2d fa 05 e1 0d 2e 04  05 3a 0d 2e 0e 13 dd 20  |.-.......:..... |
00009d00  f2 73 65 74 75 70 70 6c  61 79 65 72 73 0d 2e 18  |.setupplayers...|
00009d10  17 73 63 72 65 65 6e 78  28 31 29 3d 72 65 6d 65  |.screenx(1)=reme|
00009d20  6d 31 73 78 0d 2e 22 17  73 63 72 65 65 6e 79 28  |m1sx..".screeny(|
00009d30  31 29 3d 72 65 6d 65 6d  31 73 79 0d 2e 2c 19 73  |1)=remem1sy..,.s|
00009d40  63 72 65 65 6e 78 28 32  29 3d 72 65 6d 65 6d 64  |creenx(2)=rememd|
00009d50  6f 73 73 78 0d 2e 36 19  73 63 72 65 65 6e 79 28  |ossx..6.screeny(|
00009d60  32 29 3d 72 65 6d 65 6d  64 6f 73 73 79 0d 2e 40  |2)=rememdossy..@|
00009d70  13 59 4f 55 58 28 31 29  3d 72 65 6d 65 6d 31 78  |.YOUX(1)=remem1x|
00009d80  0d 2e 4a 15 59 4f 55 58  28 32 29 3d 72 65 6d 65  |..J.YOUX(2)=reme|
00009d90  6d 64 6f 73 78 0d 2e 54  13 59 4f 55 59 28 31 29  |mdosx..T.YOUY(1)|
00009da0  3d 72 65 6d 65 6d 31 79  0d 2e 5e 15 59 4f 55 59  |=remem1y..^.YOUY|
00009db0  28 32 29 3d 72 65 6d 65  6d 64 6f 73 79 0d 2e 68  |(2)=rememdosy..h|
00009dc0  3f 78 70 6f 73 3d 30 3a  79 70 6f 73 3d 30 3a 61  |?xpos=0:ypos=0:a|
00009dd0  6e 69 6d 28 29 3d 30 3a  65 6e 65 72 67 79 28 29  |nim()=0:energy()|
00009de0  3d 35 30 3a 73 68 69 65  6c 64 28 29 3d 30 3a 77  |=50:shield()=0:w|
00009df0  65 61 70 6f 6e 24 28 29  3d 22 30 22 0d 2e 72 39  |eapon$()="0"..r9|
00009e00  66 69 72 65 31 72 61 6e  67 65 28 29 3d 30 3a 66  |fire1range()=0:f|
00009e10  69 72 65 32 72 61 6e 67  65 28 29 3d 30 3a 66 69  |ire2range()=0:fi|
00009e20  72 65 66 72 31 28 29 3d  30 3a 66 69 72 65 66 72  |refr1()=0:firefr|
00009e30  32 28 29 3d 30 0d 2e 7c  23 66 69 72 65 31 3d 30  |2()=0..|#fire1=0|
00009e40  3a 66 69 72 65 32 3d 30  3a 62 75 6c 64 31 3d 32  |:fire2=0:buld1=2|
00009e50  3a 62 75 6c 64 32 3d 32  0d 2e 86 36 64 69 72 65  |:buld2=2...6dire|
00009e60  24 28 29 3d 22 64 22 3a  70 6c 61 79 65 72 25 3d  |$()="d":player%=|
00009e70  31 3a 6b 65 79 63 68 65  63 6b 72 61 74 65 3d 30  |1:keycheckrate=0|
00009e80  3a 6e 6f 31 25 3d 30 3a  6e 6f 32 25 3d 30 0d 2e  |:no1%=0:no2%=0..|
00009e90  90 3b 63 68 65 63 6b 64  6f 6e 65 25 3d 30 3a 6e  |.;checkdone%=0:n|
00009ea0  6f 70 72 69 6e 74 25 3d  30 3a 70 61 75 73 65 25  |oprint%=0:pause%|
00009eb0  3d 30 3a 65 6e 64 25 3d  30 3a 63 6f 75 6e 74 74  |=0:end%=0:countt|
00009ec0  69 6c 6c 65 6e 64 25 3d  30 0d 2e 9a 2e 70 6c 61  |illend%=0....pla|
00009ed0  79 65 72 6f 6e 65 77 69  6e 3d a3 3a 70 6c 61 79  |yeronewin=.:play|
00009ee0  65 72 74 77 6f 77 69 6e  3d a3 3a 70 6c 61 79 65  |ertwowin=.:playe|
00009ef0  72 64 72 61 77 3d a3 0d  2e a4 13 73 70 65 65 64  |rdraw=.....speed|
00009f00  3d 36 30 3a 63 3d 2d 38  30 30 0d 2e ae 11 68 69  |=60:c=-800....hi|
00009f10  74 31 3d 30 3a 68 69 74  32 3d 30 0d 2e b8 1f 68  |t1=0:hit2=0....h|
00009f20  69 74 63 6f 75 6e 74 65  72 31 3d 30 3a 68 69 74  |itcounter1=0:hit|
00009f30  63 6f 75 6e 74 65 72 32  3d 30 0d 2e c2 05 e1 0d  |counter2=0......|
00009f40  2e cc 05 3a 0d 2e d6 13  dd 20 f2 6c 6f 61 64 5f  |...:..... .load_|
00009f50  73 63 72 65 65 6e 73 0d  2e e0 0f 61 62 25 3d 30  |screens....ab%=0|
00009f60  3a 63 64 25 3d 30 0d 2e  ea 05 f5 0d 2e f4 18 f2  |:cd%=0..........|
00009f70  6c 6f 61 64 73 63 72 65  65 6e 28 61 62 25 2c 63  |loadscreen(ab%,c|
00009f80  64 25 29 0d 2e fe 1f 61  62 25 2b 3d 31 3a e7 20  |d%)....ab%+=1:. |
00009f90  61 62 25 3e 37 3a 63 64  25 2b 3d 31 3a 61 62 25  |ab%>7:cd%+=1:ab%|
00009fa0  3d 30 0d 2f 08 0b fd 20  63 64 25 3e 33 0d 2f 12  |=0./... cd%>3./.|
00009fb0  05 e1 0d 2f 1c 05 3a 0d  2f 26 1f f4 20 50 6c 61  |.../..:./&.. Pla|
00009fc0  63 65 20 67 61 6d 65 20  6f 62 6a 65 63 74 73 20  |ce game objects |
00009fd0  6f 6e 20 6d 61 70 0d 2f  30 13 dd 20 f2 70 6c 61  |on map./0.. .pla|
00009fe0  63 65 6f 62 6a 65 63 74  73 0d 2f 3a 17 e3 20 61  |ceobjects./:.. a|
00009ff0  62 63 64 25 3d 31 20 b8  20 66 6f 6f 64 76 61 6c  |bcd%=1 . foodval|
0000a000  0d 2f 44 3f 52 31 25 3d  b3 28 38 29 2d 31 3a 52  |./D?R1%=.(8)-1:R|
0000a010  32 25 3d b3 28 34 29 2d  31 3a 52 33 25 3d b3 28  |2%=.(4)-1:R3%=.(|
0000a020  31 35 29 3a 52 34 25 3d  b3 28 31 35 29 3a 6f 62  |15):R4%=.(15):ob|
0000a030  6a 24 3d c3 28 b3 28 34  29 2d 31 2b 31 31 29 0d  |j$=.(.(4)-1+11).|
0000a040  2f 4e 49 e7 20 73 63 72  65 65 6e 24 28 52 31 25  |/NI. screen$(R1%|
0000a050  2c 52 32 25 2c 52 33 25  2c 52 34 25 29 3d 22 30  |,R2%,R3%,R4%)="0|
0000a060  22 3a 73 63 72 65 65 6e  24 28 52 31 25 2c 52 32  |":screen$(R1%,R2|
0000a070  25 2c 52 33 25 2c 52 34  25 29 3d 6f 62 6a 24 3a  |%,R3%,R4%)=obj$:|
0000a080  8b 20 e5 20 8d 44 44 6f  0d 2f 58 05 ed 0d 2f 62  |. . .DDo./X.../b|
0000a090  05 3a 0d 2f 6c 1a f4 20  50 6c 61 63 65 20 73 68  |.:./l.. Place sh|
0000a0a0  69 65 6c 64 73 20 6f 6e  20 6d 61 70 0d 2f 76 17  |ields on map./v.|
0000a0b0  e3 20 61 62 63 64 25 3d  31 20 b8 20 73 68 6c 64  |. abcd%=1 . shld|
0000a0c0  76 61 6c 0d 2f 80 37 52  31 25 3d b3 28 38 29 2d  |val./.7R1%=.(8)-|
0000a0d0  31 3a 52 32 25 3d b3 28  34 29 2d 31 3a 52 33 25  |1:R2%=.(4)-1:R3%|
0000a0e0  3d b3 28 31 35 29 3a 52  34 25 3d b3 28 31 35 29  |=.(15):R4%=.(15)|
0000a0f0  3a 6f 62 6a 24 3d 22 31  30 22 0d 2f 8a 49 e7 20  |:obj$="10"./.I. |
0000a100  73 63 72 65 65 6e 24 28  52 31 25 2c 52 32 25 2c  |screen$(R1%,R2%,|
0000a110  52 33 25 2c 52 34 25 29  3d 22 30 22 3a 73 63 72  |R3%,R4%)="0":scr|
0000a120  65 65 6e 24 28 52 31 25  2c 52 32 25 2c 52 33 25  |een$(R1%,R2%,R3%|
0000a130  2c 52 34 25 29 3d 6f 62  6a 24 3a 8b 20 e5 20 8d  |,R4%)=obj$:. . .|
0000a140  74 40 6f 0d 2f 94 05 ed  0d 2f 9e 05 3a 0d 2f a8  |t@o./..../..:./.|
0000a150  26 f4 20 50 6c 61 63 65  20 74 65 6c 65 70 6f 72  |&. Place telepor|
0000a160  74 65 72 20 70 6f 74 69  6f 6e 73 20 6f 6e 20 6d  |ter potions on m|
0000a170  61 70 2e 0d 2f b2 17 e3  20 61 62 63 64 25 3d 31  |ap../... abcd%=1|
0000a180  20 b8 20 74 65 6c 65 76  61 6c 0d 2f bc 2d 52 31  | . televal./.-R1|
0000a190  25 3d b3 28 38 29 2d 31  3a 52 32 25 3d b3 28 34  |%=.(8)-1:R2%=.(4|
0000a1a0  29 2d 31 3a 52 33 25 3d  b3 28 31 35 29 3a 52 34  |)-1:R3%=.(15):R4|
0000a1b0  25 3d b3 28 31 35 29 0d  2f c6 49 e7 20 73 63 72  |%=.(15)./.I. scr|
0000a1c0  65 65 6e 24 28 52 31 25  2c 52 32 25 2c 52 33 25  |een$(R1%,R2%,R3%|
0000a1d0  2c 52 34 25 29 3d 22 30  22 3a 73 63 72 65 65 6e  |,R4%)="0":screen|
0000a1e0  24 28 52 31 25 2c 52 32  25 2c 52 33 25 2c 52 34  |$(R1%,R2%,R3%,R4|
0000a1f0  25 29 3d 22 31 35 22 3a  8b 20 e5 20 8d 74 7c 6f  |%)="15":. . .t|o|
0000a200  0d 2f d0 05 ed 0d 2f da  05 3a 0d 2f e4 1a f4 20  |./..../..:./... |
0000a210  50 6c 61 63 65 20 77 65  61 70 6f 6e 73 20 6f 6e  |Place weapons on|
0000a220  20 6d 61 70 0d 2f ee 18  e3 20 61 62 63 64 65 25  | map./... abcde%|
0000a230  3d 31 20 b8 20 77 65 61  70 76 61 6c 0d 2f f8 42  |=1 . weapval./.B|
0000a240  52 31 25 3d b3 28 38 29  2d 31 3a 52 32 25 3d b3  |R1%=.(8)-1:R2%=.|
0000a250  28 34 29 2d 31 3a 52 33  25 3d b3 28 31 35 29 3a  |(4)-1:R3%=.(15):|
0000a260  52 34 25 3d b3 28 31 35  29 3a 6f 62 6a 24 3d 22  |R4%=.(15):obj$="|
0000a270  77 65 70 22 2b c3 28 b3  28 35 29 2d 31 29 0d 30  |wep"+.(.(5)-1).0|
0000a280  02 49 e7 20 73 63 72 65  65 6e 24 28 52 31 25 2c  |.I. screen$(R1%,|
0000a290  52 32 25 2c 52 33 25 2c  52 34 25 29 3d 22 30 22  |R2%,R3%,R4%)="0"|
0000a2a0  3a 73 63 72 65 65 6e 24  28 52 31 25 2c 52 32 25  |:screen$(R1%,R2%|
0000a2b0  2c 52 33 25 2c 52 34 25  29 3d 6f 62 6a 24 3a 8b  |,R3%,R4%)=obj$:.|
0000a2c0  20 e5 20 8d 64 78 6f 0d  30 0c 05 ed 0d 30 16 05  | . .dxo.0....0..|
0000a2d0  e1 0d 30 20 05 3a 0d 30  2a 11 dd 20 f2 63 6c 65  |..0 .:.0*.. .cle|
0000a2e0  61 72 62 61 6e 6b 73 0d  30 34 0d c8 99 36 2c 31  |arbanks.04...6,1|
0000a2f0  31 32 2c 31 0d 30 3e 0d  c8 99 36 2c 31 31 33 2c  |12,1.0>...6,113,|
0000a300  31 0d 30 48 11 ef 32 36  3a ef 34 3a fb 31 33 35  |1.0H..26:.4:.135|
0000a310  3a db 0d 30 52 0d c8 99  36 2c 31 31 32 2c 32 0d  |:..0R...6,112,2.|
0000a320  30 5c 0d c8 99 36 2c 31  31 33 2c 32 0d 30 66 0a  |0\...6,113,2.0f.|
0000a330  fb 31 33 35 3a db 0d 30  70 0d c8 99 36 2c 31 31  |.135:..0p...6,11|
0000a340  33 2c 31 0d 30 7a 0d c8  99 36 2c 31 31 32 2c 31  |3,1.0z...6,112,1|
0000a350  0d 30 84 05 e1 0d 30 8e  05 3a 0d 30 98 12 dd 20  |.0....0..:.0... |
0000a360  f2 63 6c 65 61 72 62 61  6e 6b 73 32 0d 30 a2 0d  |.clearbanks2.0..|
0000a370  c8 99 36 2c 31 31 32 2c  31 0d 30 ac 0d c8 99 36  |..6,112,1.0....6|
0000a380  2c 31 31 33 2c 31 0d 30  b6 11 ef 32 36 3a ef 34  |,113,1.0...26:.4|
0000a390  3a fb 31 32 38 3a db 0d  30 c0 0d c8 99 36 2c 31  |:.128:..0....6,1|
0000a3a0  31 32 2c 32 0d 30 ca 0d  c8 99 36 2c 31 31 33 2c  |12,2.0....6,113,|
0000a3b0  32 0d 30 d4 0a fb 31 32  38 3a db 0d 30 de 0d c8  |2.0...128:..0...|
0000a3c0  99 36 2c 31 31 33 2c 31  0d 30 e8 0d c8 99 36 2c  |.6,113,1.0....6,|
0000a3d0  31 31 32 2c 31 0d 30 f2  05 e1 0d ff              |112,1.0.....|
0000a3dc