Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_15_03.adf » !CavenDuel_Cavern » !CavenDuel/Game

!CavenDuel/Game

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_15_03.adf » !CavenDuel_Cavern
Filename: !CavenDuel/Game
Read OK:
File size: A3DC bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM >!RunImage
   20REM Cavern Duel Release 1
   30REM Version 1.22 (4th December, 1997)
   40REM Released 5th December, 1997
   50REM 
   60REM Copyright held by authors. Distribute freely, but do not alter any internal files!
   70REM
   80REM Written by Graeme and Stephen Scott LEN 1994-97
   90REM See documentation for contact details
  100REM
  110ON ERROR MODE12:REPORT:PRINT" at line ";ERL:IF GET:PROCtidy:END
  120REM SYS "OS_Byte",229,1: REM Disable Escape
  130PROCarrays
  140PROCinitgrab
  150PROCinitfader
  160:
  170MODE 128+12
  180MODE 12
  190OFF
  200PROCpalette("CavenDuel:Palettes.TitlePal")
  210PROCintro
  220PROCmenu
  230:
  240REPEAT
  250PROCdronening
  260PROCmouse
  270UNTIL end
  280PROCtidy
  290END
  300:
  310DEF PROCarrays
  320DIM block% 64,scale% 15
  330DIM fname$(25)
  340DIM screen$(7,3,16,16)
  350DIM YOUX(2),YOUY(2)
  360DIM move(2)
  370DIM dire$(2)
  380DIM anim(2)
  390DIM screenx(2),screeny(2)
  400DIM energy(2),shield(2),weapon$(2),reduce_shield(2)
  410DIM fire1range(16),fire2range(16)
  420DIM activbul(16),activdos(16)
  430DIM firefr1(16),firefr2(16)
  440DIM fire1x(16),fire1y(16),fire1scx(16),fire1scy(16),fire1dir(16)
  450DIM fire2x(16),fire2y(16),fire2scx(16),fire2scy(16),fire2dir(16)
  460DIM teletoscx(20),teletoscy(20),teletox(20),teletoy(20)
  470DIM tscx(20),tscy(20),tx(20),ty(20)
  480DIM obj_remem$(200)
  490DIM obj_scx(200),obj_scy(200),obj_x(200),obj_y(200)
  500foodval=50
  510weapval=20
  520televal=5
  530shldval=10
  540numofobjs=0
  550dodrone=0
  560ENDPROC
  570
  580DEF PROCinitgrab
  590g$="g1":gg$="g2":size%=43000
  600DIM grab% size%,grabtwo% size%
  610grab%!0=size%:grabtwo%!0=size%
  620grab%!8=16:grabtwo%!8=16
  630SYS 46,&109,grab%
  640SYS 46,&109,grabtwo%
  650s1%=1:s2%=2:s3%=1:s4%=2
  660width%=16:width2%=16
  670height%=16:height2%=16
  680ENDPROC
  690:
  700DEF PROCinitfader
  710REM 16 Colour mode fader.
  720REM by Matthew Edgar
  730REM (c) The Micro User September/November 1990
  740ptr=1:done=3:sixteen=4:colour=5
  750DIM code% 256:FOR pass=0 TO 2 STEP 2
  760P%=code%:[OPT pass
  770.fade
  780STMFD R13!,{R0-R5,R14}
  790MOV done,#16
  800MOV sixteen,#16
  810.wait
  820MOV R0,#19
  830SWI "OS_Byte" \ wait...
  840SWI "OS_Byte" \ ...and again
  850MOV colour,#15
  860ADR ptr,data
  870.nextcolour
  880STRB colour,[ptr]
  890MOV R0,#11
  900SWI "OS_Word"    \ read palette
  910.red
  920LDRB R0,[ptr,#2] \ current value
  930SUBS R0,R0,sixteen
  940MOVMI R0,#0      \ find new value
  950STRB R0,[ptr,#2] \ store new value
  960.green
  970LDRB R0,[ptr,#3] \ current value
  980SUBS R0,R0,sixteen
  990MOVMI R0,#0      \ find new value
 1000STRB R0,[ptr,#3] \ store new value
 1010.blue
 1020LDRB R0,[ptr,#4] \ current value
 1030SUBS R0,R0,sixteen
 1040MOVMI R0,#0      \ find new value
 1050STRB R0,[ptr,#4] \ store new value
 1060STRB sixteen,[ptr,#1] \ define colour from RGB values
 1070MOV R0,#12
 1080SWI "OS_Word" \ write palette
 1090SUBS colour,colour,#1
 1100BGE nextcolour
 1110BL border
 1120SUBS done,done,#1
 1130BNE wait
 1140LDMFD R13!,{R0-R5,PC}:.border
 1150STMFD R13!,{R0-R3,R14}:MOV R0,ptr
 1160MOV R1,#24:STRB R1,[R0,#1]
 1170SWI "OS_ReadPalette":MOV R1,#2
 1180.loop:MOV R2,R2,ROR #8
 1190AND R3,R2,#&FF:SUBS R3,R3,sixteen
 1200MOVMI R3,#0:STRB R3,[R0,R1]
 1210ADD R1,R1,#1:CMP R1,#5:BNE loop
 1220MOV ptr,R0:MOV R0,#12
 1230SWI "OS_Word"
 1240LDMFD R13!,{R0-R3,PC}
 1250.data
 1260EQUD 0:EQUD 0
 1270]:NEXT
 1280ENDPROC
 1290:
 1300DEF PROCintro
 1310REM 6th-7th August, 1994
 1320skip%=FALSE
 1330SYS "OS_File",5,"CavenDuel:Graphics.IntroSprs" TO ,,,,room%
 1340DIM sprites% room%+32
 1350!sprites%=room%+32
 1360sprites%!4=0
 1370sprites%!8=16
 1380sprites%!12=16
 1390SYS 46,&10A,sprites%,"CavenDuel:Graphics.IntroSprs"
 1400SYS "Hourglass_Off"
 1410MOUSE OFF
 1420SYS 46,&122,sprites%,"title",0,0,0
 1430COLOUR135:COLOUR11:OFF
 1440PRINT TAB(7,30)"Full Version 1.22 (4th December, 1997) Released 5th December, 1997"
 1450PROCloadsprites("CavenDuel:Graphics.GameSprs")
 1460PROCloadscreens("<Game$Path>")
 1470VOICES 8:CALL fade:PROCclearbanks
 1480ENDPROC
 1490:
 1500DEF PROCwait(T)
 1510LOCAL x%,y%,b%
 1520M=FALSE
 1530T%=TIME
 1540REPEAT MOUSE x%,y%,b%
 1550IF b%<>0skip%=TRUE
 1560UNTIL TIME>T%+T ORskip%
 1570ENDPROC
 1580:
 1590DEF PROCpalette(pal$):SYS "XOS_CLI","Run "+pal$:ENDPROC
 1600:
 1610DEF PROCloadscreens(filename$)
 1620numofobjs=0:x=0:y=15:scrx=0:scry=0:telenum%=0
 1630channel=OPENIN filename$:a$=""
 1640a$=CHR$(BGET#channel)
 1650REPEAT
 1660y=15
 1670REPEAT:IF dodrone=1 THEN PROCdronening
 1680a$=CHR$(BGET#channel)
 1690CASE a$ OF
 1700WHEN "A":a$="12"
 1710WHEN "B":a$="11"
 1720WHEN "C":a$="10"
 1730WHEN "D":a$="13"
 1740WHEN "E":a$="14"
 1750WHEN "F":a$="15"
 1760WHEN "G":a$="16"
 1770WHEN "H":a$="19"
 1780WHEN "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"
 1790WHEN "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"
 1800ENDCASE
 1810screen$(scrx,scry,x,y)=a$:REM VDU5:PROCshadow("Map ("+STR$(scrx)+","+STR$(scry)+","+STR$(x)+","+STR$(y)+")",12*32,70,14,8):VDU4
 1820CASE a$ OF
 1830WHEN "7" :telenum%=telenum%+1:PROCreadteleport
 1840WHEN "10","11","12","13","14","15":numofobjs+=1:PROCremobject
 1850ENDCASE
 1860x+=1:IF x>15 THEN x=0:y-=1
 1870UNTIL y<0
 1880a$=CHR$(BGET#channel)
 1890IF a$<>"-" THEN OSCLI"Close":VDU7:END
 1900scry+=1:IF scry>3 THEN scry=0:scrx+=1
 1910UNTIL scrx>7
 1920SYS "XOS_CLI","Close"
 1930ENDPROC
 1940:
 1950DEF PROCreadteleport
 1960IF telenum%>20 THEN ENDPROC
 1970t1$=CHR$(BGET#channel):t2$=CHR$(BGET#channel)
 1980t3$=CHR$(BGET#channel):t4$=CHR$(BGET#channel)
 1990teletoscx(telenum%)=ASC(t1$)-65:teletoscy(telenum%)=ASC(t2$)-65
 2000teletox(telenum%)=ASC(t3$)-65:teletoy(telenum%)=ASC(t4$)-65
 2010tscx(telenum%)=scrx:tscy(telenum%)=scry
 2020tx(telenum%)=x:ty(telenum%)=y
 2030ENDPROC
 2040:
 2050DEF PROCremobject
 2060IF numofobjs>200 THEN VDU7:ENDPROC
 2070obj_remem$(numofobjs)=a$
 2080obj_scx(numofobjs)=scrx:obj_scy(numofobjs)=scry
 2090obj_x(numofobjs)=x:obj_y(numofobjs)=y
 2100ENDPROC
 2110:
 2120DEF PROCloadsprites(S$)
 2130SYS "OS_File",5,S$ TO ,,,,size%
 2140DIM area% size%+32
 2150area%!0=size%+32:area%!4=0:area%!8=16:area%!12=16
 2160SYS 46,&109,area%
 2170SYS 46,&10A,area%,S$
 2180DIM B%(26)
 2190PROCset("0",B%(0),h%,w%)
 2200PROCset("1",B%(1),h%,w%)
 2210PROCset("2",B%(2),h%,w%)
 2220PROCset("3",B%(3),h%,w%)
 2230PROCset("5",B%(5),h%,w%)
 2240PROCset("6",B%(6),h%,w%)
 2250PROCset("7",B%(7),h%,w%)
 2260PROCset("8",B%(8),h%,w%)
 2270PROCset("9",B%(9),h%,w%)
 2280PROCset("10",B%(10),h%,w%)
 2290PROCset("11",B%(11),h%,w%)
 2300PROCset("12",B%(12),h%,w%)
 2310PROCset("13",B%(13),h%,w%)
 2320PROCset("14",B%(14),h%,w%)
 2330PROCset("15",B%(15),h%,w%)
 2340PROCset("16",B%(16),h%,w%)
 2350PROCset("19",B%(19),h%,w%)
 2360PROCset("wep0",B%(20),h%,w%)
 2370PROCset("wep1",B%(21),h%,w%)
 2380PROCset("wep2",B%(22),h%,w%)
 2390PROCset("wep3",B%(23),h%,w%)
 2400PROCset("wep4",B%(24),h%,w%)
 2410PROCset("40",B%(17),h%,w%)
 2420PROCset("41",B%(18),h%,w%)
 2430ENDPROC
 2440:
 2450DEF PROCset(string$,RETURN value%,RETURN width%,RETURN height%)
 2460SYS 46,&118,area%,string$ TO,,value%:SYS 46,&128,area%,string$ TO,,,width%,height%
 2470ENDPROC
 2480:
 2490DEF PROCmenu
 2500FOR I%=1TO15:VDU19,I%,0;0;:NEXT
 2510drone%=0
 2520done1=0:done2=0:done3=0:done4=0
 2530!scale%=1:scale%!4=1:scale%!8=1:scale%!12=1
 2540end=FALSE
 2550step=1
 2560screen=1
 2570REM SYS 6,112,screen:COLOUR135:CLS:SYS 6,113,screen
 2580PROCdrawtitle
 2590PROCdrawknights
 2600PROCdrawkeys
 2610PROCdrawboxes
 2620SYS&2E,36+256,area%,"ptr_sword",1,0,0
 2630PROCpalette("CavenDuel:Palettes.!Palette")
 2640VDU5
 2650MOUSE ON:OFF
 2660ENDPROC
 2670:
 2680DEF PROCdrawtitle
 2690!scale%=6:scale%!4=2
 2700scale%!8=2:scale%!12=2
 2710SYS 46,&134,area%,"words",0,940,0,scale%
 2720ENDPROC
 2730:
 2740DEF PROCdrawknights
 2750!scale%=4:scale%!4=4:scale%!8=3
 2760scale%!12=3:SYS 46,&134,area%,"red",900,450,0,scale%
 2770SYS 46,&134,area%,"green",100,450,0,scale%
 2780ENDPROC
 2790:
 2800DEF PROCdrawkeys
 2810VDU5:PROCsize(16,8)
 2820PROCshadow("KEYS",18*32,430,1,8)
 2830PROCshadow("Player 1",100,420,1,8)
 2840PROCshadow("Player 2",900,420,1,8):PROCsize(8,8)
 2850PROCshadow("Z - Left",164,380,10,4)
 2860PROCshadow("X - Right",164,348,10,4)
 2870PROCshadow("F - Up",164,316,10,4)
 2880PROCshadow("C - Down",164,284,10,4)
 2890PROCshadow("G - Fire",164,252,10,4)
 2900PROCshadow("Keypad 1 - Left",900,380,11,4)
 2910PROCshadow("Keypad 2 - Right",900,348,11,4)
 2920PROCshadow("Keypad 6 - Up",900,316,11,4)
 2930PROCshadow("Keypad 3 - Down",900,284,11,4)
 2940PROCshadow("Keypad + - Fire",900,252,11,4)
 2950PROCshadow("Delete - Pause",400,380,0,4)
 2960PROCshadow("  Copy - Unpause",400,348,0,4)
 2970PROCshadow("     S - Sound on",400,316,0,4)
 2980PROCshadow("     Q - Sound off",400,284,0,4)
 2990PROCshadow("     Tab - Return to main menu",400-32,252,0,4)
 3000PROCshadow("Full release version 1.22 (4th December, 1997)",(17*16),64,9,4)
 3010PROCshadow("Written by Graeme and Stephen Scott � 1994-97",(17.5*16),32,9,4):VDU4
 3020ENDPROC
 3030:
 3040DEF PROCdrawboxes
 3050VDU5:GCOL 1:RECTANGLE400,480,480,400:GCOL11:RECTANGLE416,496,216,168:GCOL15:RECTANGLE FILL424,512,200,48:GCOL11:RECTANGLE416,580+116,216,168:GCOL15:RECTANGLE FILL424,712,200,48
 3060GCOL11:RECTANGLE648,496,216,168:GCOL15:RECTANGLE FILL656,512,200,48:GCOL11:RECTANGLE648,580+116,216,168:GCOL15:RECTANGLE FILL656,712,200,48:PROCsize(32,8):PROCshadow(STR$(foodval),424,752,12,8):PROCshadow(STR$(weapval),424,552,12,8)
 3070PROCshadow(STR$(televal),656,752,12,8):PROCshadow(STR$(shldval),656,552,12,8):PROCsize(8,8):PROCshadow("Select to increase, Adjust to decrease",336,920,0,4)
 3080PROCshadow("Food",492,848,11,4):SYS46,&122,area%,"pro3b",500,782,8:PROCshadow("Weapons",468,648,11,4):SYS46,&122,area%,"wep0b",500,582,8:PROCshadow("Teleports",660+24,848,11,4):SYS46,&122,area%,"pro1b",736,782,8
 3090PROCshadow("Shields",700,648,11,4):SYS 46,&122,area%,"pro0b",736,582,8:GCOL12:RECTANGLE0,100,224,64:PROCshadow("Instructions",16,100+48,9,4):GCOL12:RECTANGLE224+128,100,224,64:GCOL11:RECTANGLE FILL224+130,104,220,56:PROCshadow("Play",(224+128)+(5*16),100+48,14,4)
 3100GCOL12:RECTANGLE(2*224)+(2*128),100,224,64:PROCshadow("Desktop",(2*224)+(2*128)+(3.5*16),100+48,14,4):PROCshadow("Load new caves",(3*224)+(3*128)-8,100+48,9,4):GCOL12:RECTANGLE(3*224)+(3*128)-8,100,224,64:PROCsize(32,8):VDU4
 3110ENDPROC
 3120:
 3130DEF PROCdronening:SYS "XOS_CLI","Channel. 2 Arg"
 3140drone%=TIME
 3150IF done1=0:IF drone%>0:SOUND2,-15,&100,100:done1=1
 3160IF done2=0:IF drone%>480:SOUND2,-15,&200,100:done2=1
 3170IF done3=0:IF drone%>880:SOUND2,-15,&300,100:done3=1
 3180IF done4=0:IF drone%>1290:SOUND2,-15,&200,100:done4=1
 3190IF drone%>1730:drone%=0:TIME=0:done1=0:done2=0:done3=0:done4=0
 3200ENDPROC
 3210:
 3220DEF PROCmouse
 3230IF screen=1 AND INKEY-99:CALL fade:PROCclearbanks2:PROCplay:CALL fade:PROCclearbanks:PROCmenu:ENDPROC
 3240LOCAL MX%,MY%,but%
 3250MOUSE MX%,MY%,but%
 3260IF but%=0 THEN ENDPROC
 3270IF but%=4 step=1
 3280IF but%=1 step=-1
 3290CASE screen OF
 3300WHEN 1:
 3310food=FNrange(424,712,200,48):weap=FNrange(424,512,200,48)
 3320tran=FNrange(656,712,200,48):shld=FNrange(656,512,200,48)
 3330play=FNrange((224+128),100,224,64):help=FNrange(0,100,224,64)
 3340quit=FNrange((2*224)+(2*128),100,224,64):new=FNrange((3*224)+(3*128)-8,100,224,64)
 3350IF food GCOL15:RECTANGLE FILL424,712,200,48:foodval+=step:PROCcheckvals:PROCshadow(STR$(foodval),424,752,12,8)
 3360IF weap GCOL15:RECTANGLE FILL424,512,200,48:weapval+=step:PROCcheckvals:PROCshadow(STR$(weapval),424,552,12,8)
 3370IF tran GCOL15:RECTANGLE FILL656,712,200,48:televal+=step:PROCcheckvals:PROCshadow(STR$(televal),656,752,12,8)
 3380IF shld GCOL15:RECTANGLE FILL656,512,200,48:shldval+=step:PROCcheckvals:PROCshadow(STR$(shldval),656,552,12,8)
 3390IF play CALL fade:PROCclearbanks2:PROCplay:CALL fade:PROCclearbanks:PROCmenu:ENDPROC
 3400IF help CALL fade:PROCinstruct:CALL fade:PROCclearbanks:PROCmenu:ENDPROC
 3410IF new CALL fade:PROCloadnewcaves:CALL fade:PROCclearbanks:PROCmenu:ENDPROC
 3420IF quit CALL fade:PROCquit:ENDPROC
 3430WHEN 2:
 3440yes=FNrange(250,250,160,64)
 3450no=FNrange(930,250,160,64)
 3460IF yes THEN end=TRUE
 3470IF no THEN CALL fade:PROCclearbanks:PROCmenu:ENDPROC
 3480ENDCASE
 3490ENDPROC
 3500:
 3510DEF PROCinstruct
 3520VDU5,24,0;0;1279;940;:GCOL 135:CLG:VDU26:PROCsize(16,8)
 3530PROCshadow("INSTRUCTIONS",28*16,908,12,8):PROCsize(8,8)
 3540PROCshadow("You have knocked over the pint glass of Big Biceps McCrinkle, the strongest",48,850,9,4):PROCshadow("warrior in the land, and to restore his pride, he demands a duel to the death",32,850-32,9,4)
 3550PROCshadow("in the caverns situated below the kingdom's mountain range.",11*16,850-64,9,4):PROCshadow("Both players must find each other and using the weapons scattered about the",48,850-128,9,4)
 3560PROCshadow("caverns battle it out until one player's energy reaches zero, and the",96,850-160,9,4):PROCshadow("opponent wins.",33.5*16,850-192,9,4)
 3570PROCshadow("Collecting food and red potion bottles increases energy. Collecting armour",56,850-256,9,4):PROCshadow("increases your resistance to your opponent's chosen weapon. Collecting green",40,(850-256)-32,9,4)
 3580PROCshadow("potion bottles teleport you to random locations. Use the teleports to take",56,(850-256)-64,9,4):PROCshadow("you to pre-defined locations. Be aware of the fact that some walls are not",56,(850-256)-96,9,4)
 3590PROCshadow("solid!",37*16,(850-256)-128,9,4):PROCshadow("The weapons you will come across can either be thrown, fired or held.",6*16,(850-256)-192,9,4)
 3600PROCshadow("As a rule, held weapons are less effective than the others, particularly if",48,(850-256)-224,9,4):PROCshadow("the opponent has an obviously more powerful weapon. But it is up to you to",56,850-512,9,4)
 3610PROCshadow("find out which weapons are the best.",22.5*16,850-544,9,4):PROCshadow("When you play, the screen is divided into two parts. The top half is for",72,(850-544)-64,9,4)
 3620PROCshadow("player one, the bottom half for player two. For each half, there is a status",40,(850-544)-96,9,4):PROCshadow("box, showing the currently held weapon, the player's energy bar, and the",72,(850-544)-128,9,4)
 3630PROCshadow("amount of armour the player has (up to a maximum of 5!!).",11.5*16,(850-544)-160,9,4):GCOL 12:RECTANGLE 352,0,576,64:GCOL 11:RECTANGLE FILL 354,4,572,56
 3640PROCshadow("Click mouse button to continue ...",368,48,12,4)
 3650PROCpalette("CavenDuel:Palettes.!Palette")
 3660REPEAT
 3670MOUSE X,Y,Z
 3680PROCdronening
 3690UNTIL Z<>0
 3700ENDPROC
 3710:
 3720DEF PROCquit
 3730screen=2:VDU 5,24,0;0;1279;940;:GCOL135:CLG:VDU26
 3740PROCdrawknights:PROCsize(16,8)
 3750PROCshadow("Are you sure you want to return",9*16,400,14,8)
 3760PROCshadow("to the desktop ?",24*16,400-40,14,8)
 3770GCOL 12:RECTANGLE 250,250,160,64
 3780PROCshadow("YES",250+32,250+48,12,8)
 3790GCOL 11:RECTANGLE 930,250,160,64
 3800PROCshadow("NO",930+48,250+48,11,8)
 3810PROCpalette("CavenDuel:Palettes.!Palette")
 3820ENDPROC
 3830
 3840DEF PROCloadnewcaves:VDU 5,24,0;0;1279;940;:GCOL 135:CLG:PROCdrawknights:PROCsize(16,8):PROCshadow("Select a new set of caves to load",7*16,400,14,8):PROCsize(8,8):myownnumber%=0:datafiles%=FNreadfiles("CavenDuel:Screens",&022):PROCpalette("CavenDuel:Palettes.!Palette")
 3850:
 3860ON ERROR MODE12:REPORT:PRINT" at line ";ERL:END
 3870printx=250:printy=280:mapnum=1:loaded=0:REPEAT
 3880GCOL11:RECTANGLE FILL printx,printy,192,40:VDU5:GCOL0:MOVEprintx+16,printy+32:PRINT fname$(mapnum)
 3890printx+=212:mapnum+=1:IF printx>1025:printx=250:printy-=52
 3900UNTIL mapnum>datafiles%
 3910:
 3920REPEAT:MOUSE X,Y,Z:PROCdronening
 3930x2=250:y2=280
 3940FOR a=1TOdatafiles%
 3950IF X>x2 AND X<x2+192 AND Y>y2 AND Y<y2+40 AND Z=4:SOUND6,-15,190+(a*5),10:PROCloadnewscreens
 3960x2+=212:IF x2>1025:x2=250:y2-=52
 3970NEXT
 3980UNTIL loaded=1:CALL fade:ENDPROC
 3990REM CLS:VDU4:OFF:REPORT:PRINT " at line ";ERL:GOTO 8520
 4000:
 4010DEF PROCloadnewscreens:SYS&2E,36+256,area%,"ptr_wait",1,0,0
 4020GCOL7:RECTANGLE FILL0,360,1280,50
 4030REM X=0:Y=0:SCX=0:SCY=0
 4040REM REPEAT:PROCdronening:VDU4:PRINTTAB(0,28)"Clearing map (";STR$(SCX);",";STR$(SCY);",";STR$(X);",";STR$(Y);")";:VDU5
 4050screen$()="0":REM screen$(SCX,SCY,X,Y)=""
 4060REM X+=1:IF X>16:X=0:Y+=1
 4070REM IF Y>16:SCY+=1:X=0:Y=0
 4080REM IF SCY>3:SCX+=1:SCY=0:X=0:Y=0
 4090REM UNTIL SCX>7:VDU7,7,7,7
 4100VDU5
 4110:
 4120REM Clearing teleporters
 4130:
 4140REM FOR A%=0TO10
 4150PROCshadow("Clearing teleports",26*16,400,14,8):teletoscx()=0:teletoscy()=0:teletox()=0:teletoy()=0:tscx()=0:tscy()=0:tx()=0:ty()=0
 4160REM NEXT
 4170:
 4180GCOL7:RECTANGLE FILL0,360,1280,50
 4190PROCshadow("Loading screens - "+fname$(a),26*16,400,14,8):PROCloadscreens("CavenDuel:Screens."+fname$(a)):loaded=1
 4200SYS "XOS_CLI","Set Game$Path CavenDuel:Screens."+fname$(a)
 4210ENDPROC
 4220:
 4230DEF FNreadfiles(dir$,filetype%)
 4240LOCAL curfile%,file%,name$,name%,number%
 4250curfile%=1:fname$()="":file%=0:REPEAT
 4260SYS "OS_GBPB",10,dir$,block%,1,file%,63,"*" TO ,,,number%
 4270name$="":name%=&14
 4280WHILE block%?name%<>0
 4290name$+=CHR$(block%?name%)
 4300name%+=1
 4310ENDWHILE
 4320IF ((!block% >>> 8)AND &FFF)=filetype%:fname$(curfile%)=name$:curfile%+=1
 4330file%+=1:myownnumber%+=1
 4340UNTIL number%<>1
 4350=curfile%-2
 4360:
 4370DEF PROCcheckvals
 4380IF foodval>120 foodval=120
 4390IF foodval<=5  foodval=5
 4400IF weapval>30  weapval=30
 4410IF weapval<=4  weapval=4
 4420IF televal>10  televal=10
 4430IF televal<=0  televal=0
 4440IF shldval>20  shldval=20
 4450IF shldval<=0  shldval=0
 4460ENDPROC
 4470:
 4480DEF FNrange(RX,RY,RW,RH)
 4490LOCAL XT,YT
 4500XT=FALSE
 4510IF MX%>RX AND MX%<(RX+RW):XT=TRUE
 4520IF MY%>RY AND MY%<(RY+RH):YT=TRUE
 4530IF (XT=FALSE) OR (YT=FALSE): =FALSE
 4540MOVE RX,RY
 4550PLOT &62,RW,RH
 4560T%=TIME:REPEAT UNTIL TIME>T%+7
 4570MOVE RX,RY
 4580PLOT &62,RW,RH
 4590=TRUE
 4600:
 4610DEF PROCsize(x%,y%):VDU 23,17,7,6,x%;y%|
 4620ENDPROC
 4630:
 4640DEF PROCshadow(text$,x,y,col,gap):VDU5:GCOL 7:MOVE x+gap,y-gap:PRINT text$:GCOL col:MOVE x,y:PRINT text$:VDU4:OFF:ENDPROC
 4650:
 4660DEF PROCtidy
 4670CALL fade:MOUSE OFF:VDU26:CLS
 4680SYS "OS_Byte",15,0
 4690SYS "OS_Byte",129,0,255 TO ,a%
 4700IF a%=165 THEN
 4710PROCpalette("CavenDuel:Palettes.!RiscPCol")
 4720ELSE
 4730PROCpalette("CavenDuel:Palettes.!Default")
 4740ENDIF
 4750REM OSCLI"RMKill ObjGet"
 4760REM OSCLI"RMKill Rotate"
 4770REM OSCLI"RMKill Sides"
 4780REM OSCLI"RMKill Arg"
 4790REM OSCLI"RMKill Fire"
 4800REM OSCLI"RMKill hit"
 4810REM OSCLI"ChannelVoice 1 1"
 4820SYS "XOS_CLI","Run CavenDuel:Resources.End"
 4830ENDPROC
 4840:
 4850DEF PROCplay
 4860CLS:FOR I%=0TO15:VDU19,I%,0;0;:NEXT:PROCclearbanks
 4870MOUSE OFF
 4880gapfire=0
 4890REM Recall pre-positioned objects
 4900FOR obj=1 TO numofobjs
 4910screen$(obj_scx(obj),obj_scy(obj),obj_x(obj),obj_y(obj))=obj_remem$(obj)
 4920NEXT
 4930REM SYS 6,112,2:SYS 6,113,2:CLS
 4940REM SYS 6,112,1:SYS 6,113,1:CLS
 4950PROCdrawgraphics
 4960PROCplaceobjects
 4970PROCsetupplayers
 4980player%=1
 4990PROCscreen(screenx(player%),screeny(player%),player%)
 5000SOUND1,-15,&2000,100
 5010player%=2
 5020PROCscreen(screenx(player%),screeny(player%),player%)
 5030SOUND1,-15,&1000,100
 5040GCOL 63 TINT 192:LINE 0,508,1280,508
 5050PROCgrab(1):PROCgrab(2)
 5060player%=1:SYS 46,&122,area%,"1d0",YOUX(player%)*64,512+YOUY(player%)*32,8
 5070player%=2:SYS 46,&122,area%,"2d0",YOUX(player%)*64,YOUY(player%)*32-4,8
 5080PROCpalette("CavenDuel:Palettes.GamePal")
 5090:
 5100REPEAT
 5110SYS 46,&222,grab%,bg%,0,0,0
 5120SYS 46,&222,grabtwo%,bg2%,0,512,0
 5130:
 5140IF energy(1)>0:IF keycheckrate=1:PROCkeys1
 5150gapdo=0
 5160weptype=0
 5170IF weapon$(1)="wep1" OR weapon$(1)="wep4" THEN
 5180gapdo=1
 5190weptype=1
 5200ELSE
 5210weptype=2
 5220PROCgap_fire
 5230ENDIF
 5240IF gapdo=0 THEN
 5250PROCcheckweps
 5260ELSE
 5270IF weptype=1:IF INKEY-84:IF energy(1)>0:IF keycheckrate=1:PROCfire1
 5280IF weptype=2:IF INKEY-84:IF energy(1)>0:IF gapdo=1:PROCfire1
 5290PROCcheckweps
 5300ENDIF
 5310:
 5320IF energy(2)>0:IF keycheckrate=1:PROCkeys2
 5330IF INKEY-59:IF energy(2)>0:IF keycheckrate=1:PROCfire2
 5340PROCcheckweps2
 5350IF INKEY-90 THEN REPEAT UNTIL INKEY-106
 5360IF INKEY-17 THEN *SPEAKER OFF
 5370IF INKEY-82 THEN *SPEAKER ON
 5380IF INKEY-97:end%=1:SYS "XOS_CLI","CHANNEL. 2 Arg":SOUND2,-15,&100,100
 5390player%=1:PROCprint:PROCprintbuls1
 5400player%=2:PROCprint:PROCprintbuls1
 5410PROCprintother
 5420keycheckrate+=1:IF keycheckrate>1 THEN keycheckrate=0
 5430IF hit1=1:hitcounter1=0:hit1=2
 5440IF hit2=1:hitcounter2=0:hit2=2
 5450IF hit1=2:hitcounter1+=1:PROCdrawblood_pl1
 5460IF hit2=2:hitcounter2+=1:PROCdrawblood_pl2
 5470IF hit1=2:IF hitcounter1>10:hit1=0:hitcounter1=0
 5480IF hit2=2:IF hitcounter2>10:hit2=0:hitcounter2=0
 5490PROCprintenergy
 5500IF energy(1)<=0 OR energy(2)<=0:counttillend%+=1:PROCprintwinner
 5510IF counttillend%=1:SOUND2,-15,&1000,100:PROCfindwinner
 5520TIME=0:REPEAT UNTIL TIME=1:REM Time Delay to get speed the same
 5530WAIT
 5540SYS 6,112,s1%
 5550SYS 6,113,s2%
 5560SWAP s1%,s2%
 5570UNTIL end%=1 OR counttillend%>90
 5580creds=1
 5590:
 5600REM Clear map of waste.
 5610scrposx=0:scrposy=0
 5620REPEAT
 5630FOR A=0TO15 :FOR B=0TO15:what$=screen$(scrposx,scrposy,A,B)
 5640CASE what$ OF
 5650WHEN "10","11","12","13","14","15","wep0","wep1","wep2","wep3","wep4":screen$(scrposx,scrposy,A,B)="0"
 5660ENDCASE
 5670NEXT:NEXT
 5680scrposx+=1:IF scrposx>7 THEN scrposx=0:scrposy+=1
 5690UNTIL scrposy>3
 5700ENDPROC
 5710:
 5720DEF PROCgap_fire:gapdo=0
 5730gapfire+=1
 5740IF gapfire>3:gapfire=0:gapdo=1
 5750ENDPROC
 5760:
 5770DEF PROCkeys1
 5780player%=1
 5790IF INKEY-98:YOUX(player%)-=1:move(player%)=0:dire$(player%)="l":buld1=3:PROCcheck:PROCcheckarea:anim(player%)=anim(player%)+1:PROCprint:PROCclear:ENDPROC
 5800IF INKEY-67:YOUX(player%)+=1:move(player%)=1:dire$(player%)="r":buld1=1:PROCcheck:PROCcheckarea:anim(player%)=anim(player%)+1:PROCprint:PROCclear:ENDPROC
 5810IF INKEY-68:YOUY(player%)+=1:move(player%)=2:dire$(player%)="u":buld1=0:PROCcheck:PROCcheckarea:anim(player%)=anim(player%)+1:PROCprint:PROCclear:ENDPROC
 5820IF INKEY-83:YOUY(player%)-=1:move(player%)=3:dire$(player%)="d":buld1=2:PROCcheck:PROCcheckarea:anim(player%)=anim(player%)+1:PROCprint:PROCclear
 5830ENDPROC
 5840:
 5850DEF PROCkeys2
 5860player%=2
 5870IF INKEY-108:YOUX(player%)-=1:move(player%)=0:dire$(player%)="l":buld2=3:PROCcheck:PROCcheckarea:anim(player%)+=1:PROCprint:ENDPROC
 5880IF INKEY-125:YOUX(player%)+=1:move(player%)=1:dire$(player%)="r":buld2=1:PROCcheck:PROCcheckarea:anim(player%)+=1:PROCprint:ENDPROC
 5890IF INKEY-27:YOUY(player%)+=1:move(player%)=2:dire$(player%)="u":buld2=0:PROCcheck:PROCcheckarea:anim(player%)+=1:PROCprint:ENDPROC
 5900IF INKEY-109:YOUY(player%)-=1:move(player%)=3:dire$(player%)="d":buld2=2:PROCcheck:PROCcheckarea:anim(player%)+=1:PROCprint
 5910ENDPROC
 5920:
 5930DEF PROCscreen(E,F,PLAY%)
 5940C=0:D=994
 5950IF PLAY%=2 THEN C=0:D=476
 5960X=0:Y=15
 5970REPEAT
 5980a$=screen$(E,F,X,Y)
 5990CASE a$ OF
 6000WHEN "wep0":a%=20
 6010WHEN "wep1":a%=21
 6020WHEN "wep2":a%=22
 6030WHEN "wep3":a%=23
 6040WHEN "wep4":a%=24
 6050WHEN "4":r%=RND(2)-1:a%=17+r%
 6060OTHERWISE:a%=VAL(a$)
 6070ENDCASE
 6080IF a%>19 AND a%<25 OR a%>5 AND a%<16 OR a%=19 THEN
 6090SYS 46,&222,area%,B%(0),C,D,0:SYS 46,&222,area%,B%(a%),C,D,8
 6100ELSE
 6110SYS 46,&222,area%,B%(a%),C,D,0
 6120ENDIF
 6130X=X+1:C+=64:IF X>15 THEN Y=Y-1:X=0:C=0:D-=32
 6140UNTIL Y<0
 6150PROCgrab(PLAY%)
 6160ENDPROC
 6170:
 6180DEF PROCremobject
 6190IF numofobjs>200 THEN VDU7:ENDPROC
 6200obj_remem$(numofobjs)=a$
 6210obj_scx(numofobjs)=scrx:obj_scy(numofobjs)=scry
 6220obj_x(numofobjs)=x:obj_y(numofobjs)=y
 6230ENDPROC
 6240:
 6250DEF PROCcheck :b=0:dontdraw=0
 6260IF YOUX(player%)<0 :screenx(player%)-=1:YOUX(player%)=15:b=0:PROCcheckarea2:IF dontdraw=0 :PROCscreen(screenx(player%),screeny(player%),player%)
 6270IF YOUX(player%)>15 :screenx(player%)+=1:YOUX(player%)=0:b=1:PROCcheckarea2:IF dontdraw=0 :PROCscreen(screenx(player%),screeny(player%),player%)
 6280IF YOUY(player%)>15 :screeny(player%)+=1:YOUY(player%)=0:b=2:PROCcheckarea2:IF dontdraw=0 :PROCscreen(screenx(player%),screeny(player%),player%)
 6290IF YOUY(player%)<0 :screeny(player%)-=1:YOUY(player%)=15:b=3:PROCcheckarea2:IF dontdraw=0 :PROCscreen(screenx(player%),screeny(player%),player%)
 6300ENDPROC
 6310:
 6320DEF PROCcheckarea2
 6330s$=screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))
 6340IF b=0 :IF s$="1" OR s$="2" OR s$="3" OR s$="4" OR s$="19" THEN YOUX(player%)=0:screenx(player%)+=1:dontdraw=1
 6350IF b=1 :IF s$="1" OR s$="2" OR s$="3" OR s$="4" OR s$="19" THEN YOUX(player%)=15:screenx(player%)-=1:dontdraw=1
 6360IF b=2 :IF s$="1" OR s$="2" OR s$="3" OR s$="4" OR s$="19" THEN YOUY(player%)=15:screeny(player%)-=1:dontdraw=1
 6370IF b=3 :IF s$="1" OR s$="2" OR s$="3" OR s$="4" OR s$="19" THEN YOUY(player%)=0:screeny(player%)+=1:dontdraw=1
 6380ENDPROC
 6390:
 6400DEF PROCclear
 6410f$=screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))
 6420IF f$="wep0" OR f$="wep1" OR f$="wep2" OR  f$="wep3" OR  f$="wep4":ENDPROC
 6430:
 6440IF player%=1:SYS 46,&122,area%,screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%)),YOUX(player%)*64,512+YOUY(player%)*32,8
 6450IF player%=2:SYS 46,&122,area%,screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%)),YOUX(player%)*64,(YOUY(player%)*32)-4,8
 6460IF player%=1:IF screenx(2)=screenx(1) AND screeny(2)=screeny(1):SYS 46,256+34,area%,screen$(screenx(1),screeny(1),YOUX(1),YOUY(1)),YOUX(1)*64,(YOUY(1)*32)-4,8
 6470IF player%=2:IF screenx(1)=screenx(2) AND screeny(1)=screeny(2):SYS 46,256+34,area%,screen$(screenx(2),screeny(2),YOUX(2),YOUY(2)),YOUX(2)*64,512+(YOUY(2)*32),8
 6480ENDPROC
 6490:
 6500DEF PROCcheckarea
 6510s$=screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))
 6520IF move(player%)=0:PROCcheckforobjects:IF s$="1" OR s$="2" OR s$="3" OR s$="4" OR s$="19" THEN YOUX(player%)+=1:PROCcheck
 6530IF move(player%)=1:PROCcheckforobjects:IF s$="1" OR s$="2" OR s$="3" OR s$="4" OR s$="19" THEN YOUX(player%)-=1:PROCcheck
 6540IF move(player%)=2:PROCcheckforobjects:IF s$="1" OR s$="2" OR s$="3" OR s$="4" OR s$="19" THEN YOUY(player%)-=1:PROCcheck
 6550IF move(player%)=3:PROCcheckforobjects:IF s$="1" OR s$="2" OR s$="3" OR s$="4" OR s$="19" THEN YOUY(player%)+=1:PROCcheck
 6560ENDPROC
 6570:
 6580DEF PROCprint
 6590IF anim(player%)>1:anim(player%)=0
 6600name2$=STR$(player%)+dire$(player%)
 6610IF player%=1 AND energy(1)>0:SYS 46,&122,area%,name2$+STR$(anim(player%)),YOUX(player%)*64,512+YOUY(player%)*32,8
 6620IF player%=1 AND energy(1)<=0:SYS 46,&122,area%,"death",YOUX(player%)*64,512+YOUY(player%)*32,8
 6630IF player%=2 AND energy(2)>0:SYS 46,&122,area%,name2$+STR$(anim(player%)),YOUX(player%)*64,(YOUY(player%)*32)-4,8
 6640IF player%=2 AND energy(2)<=0:SYS 46,&122,area%,"death",YOUX(player%)*64,(YOUY(player%)*32)-4,8
 6650ENDPROC
 6660:
 6670DEF PROCprintother
 6680name2$="2"+dire$(2)
 6690IF screenx(1)=screenx(2) AND screeny(1)=screeny(2) AND energy(2)>0:SYS 46,&122,area%,name2$+STR$(anim(2)),YOUX(2)*64,512+(YOUY(2)*32),8
 6700IF screenx(1)=screenx(2) AND screeny(1)=screeny(2) AND energy(2)<=0:SYS 46,&122,area%,"death",YOUX(2)*64,512+(YOUY(2)*32),8
 6710name2$="1"+dire$(1)
 6720IF screenx(2)=screenx(1) AND screeny(2)=screeny(1) AND energy(1)>0:SYS 46,&122,area%,name2$+STR$(anim(1)),YOUX(1)*64,(YOUY(1)*32)-4,8
 6730IF screenx(2)=screenx(1) AND screeny(2)=screeny(1) AND energy(1)<=0:SYS 46,&122,area%,"death",YOUX(1)*64,(YOUY(1)*32)-4,8
 6740ENDPROC
 6750:
 6760DEF PROCcheckforobjects
 6770CASE s$ OF
 6780WHEN "10","11","12","13","14","15":PROCdeleteobject
 6790WHEN "wep0","wep1","wep2","wep3","wep4":PROCsortwepchange
 6800WHEN "6":PROCrandomteleport
 6810WHEN "7":PROCteleport_to_set_position
 6820ENDCASE
 6830ENDPROC
 6840:
 6850DEF PROCdeleteobject
 6860CASE s$ OF
 6870WHEN "10" : PROCgetshield
 6880WHEN "11" : PROCgetapple
 6890WHEN "12" : PROCgetfish
 6900WHEN "15" : PROCgettrans
 6910WHEN "13" : PROCgetpotion
 6920WHEN "14" : PROCgetsandwich
 6930ENDCASE
 6940ENDPROC
 6950:
 6960REM Part for collecting a shield.
 6970DEF PROCgetshield
 6980SYS "XOS_CLI","CHANNEL. 5 ObjGet"
 6990IF shield(player%)<6:SOUND5,-15,&1000,100:shield(player%)+=1
 7000IF shield(player%)<6:screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))="0"
 7010IF shield(player%)<6:PROCclearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
 7020IF shield(player%)<6:IF screenx(1)=screenx(2) AND screeny(1)=screeny(2):PROCcol2
 7030IF shield(player%)<6 PROCgrab(player%)
 7040IF shield(player%)>=6:SOUND5,-15,&200,100:shield(player%)-=1
 7050PROCprint
 7060ENDPROC
 7070:
 7080REM Part for collecting a teleporter.
 7090DEF PROCgettrans
 7100SYS "XOS_CLI","CHANNEL. 5 Rotate"
 7110SOUND5,-15,&1000,100
 7120screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))="0"
 7130PROCclearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
 7140IF screenx(1)=screenx(2) AND screeny(1)=screeny(2):PROCcol2
 7150PROCgrab(player%)
 7160PROCprint
 7170PROCrandomteleport
 7180ENDPROC
 7190:
 7200REM Part for collecting a potion bottle.
 7210DEF PROCgetpotion
 7220SYS "XOS_CLI","CHANNEL. 5 Rotate"
 7230SOUND5,-15,&2000,100
 7240screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))="0"
 7250PROCclearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
 7260IF screenx(1)=screenx(2) AND screeny(1)=screeny(2):PROCcol2
 7270PROCgrab(player%)
 7280PROCprint
 7290energy(player%)+=8
 7300ENDPROC
 7310:
 7320REM Part for collecting a sandwich.
 7330DEF PROCgetsandwich
 7340SYS "XOS_CLI","CHANNEL. 5 ObjGet"
 7350SOUND5,-15,&2000,100
 7360screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))="0"
 7370PROCclearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
 7380IF screenx(1)=screenx(2) AND screeny(1)=screeny(2):PROCcol2
 7390PROCgrab(player%)
 7400PROCprint
 7410energy(player%)+=4
 7420ENDPROC
 7430:
 7440REM Part for collecting a fish.
 7450DEF PROCgetfish
 7460SYS "XOS_CLI","CHANNEL. 5 ObjGet"
 7470SOUND5,-15,&4000,10
 7480screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))="0"
 7490PROCclearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
 7500IF screenx(1)=screenx(2) AND screeny(1)=screeny(2):PROCcol2
 7510PROCgrab(player%)
 7520PROCprint
 7530energy(player%)+=6
 7540ENDPROC
 7550:
 7560REM Part for collecting an apple.
 7570DEF PROCgetapple
 7580SYS "XOS_CLI","CHANNEL. 5 ObjGet"
 7590SOUND5,-15,&3000,10
 7600screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))="0"
 7610PROCclearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
 7620IF screenx(1)=screenx(2) AND screeny(1)=screeny(2):PROCcol2
 7630PROCgrab(player%)
 7640PROCprint
 7650energy(player%)+=4
 7660ENDPROC
 7670:
 7680DEF PROCcol2
 7690IF player%=1:PROCclearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),2):PROCgrab(2)
 7700IF player%=2:PROCclearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),1):PROCgrab(1)
 7710ENDPROC
 7720:
 7730DEF PROCrandomteleport
 7740SYS "XOS_CLI","CHANNEL. 4 Hit"
 7750SOUND4,-15,&1000,100
 7760:
 7770REPEAT
 7780R1%=RND(8)-1:R2%=RND(4)-1:R3%=RND(15):R4%=RND(15)
 7790UNTIL screen$(R1%,R2%,R3%,R4%)="0" OR screen$(R1%,R2%,R3%,R4%)="5":screenx(player%)=R1%:screeny(player%)=R2%:YOUX(player%)=R3%:YOUY(player%)=R4%
 7800PROCscreen(screenx(player%),screeny(player%),player%):PROCgrab(player%)
 7810ENDPROC
 7820:
 7830DEF PROCteleport_to_set_position
 7840FOR tele%=0TOtelenum%
 7850IF tscx(tele%)=screenx(player%) AND tscy(tele%)=screeny(player%) AND tx(tele%)=YOUX(player%) AND ty(tele%)=YOUY(player%):PROCshift_to_position
 7860NEXT
 7870ENDPROC
 7880:
 7890DEF PROCshift_to_position
 7900SYS "XOS_CLI","CHANNEL. 4 Hit":SOUND4,-15,&1000,100
 7910REM Remove 'REM' commands here if you want a failure rate on teleporters
 7920REM Z%=RND(3)-1
 7930REM IF Z%=1:PROCrandomteleport:ENDPROC
 7940screenx(player%)=teletoscx(tele%):screeny(player%)=teletoscy(tele%)
 7950YOUX(player%)=teletox(tele%):YOUY(player%)=teletoy(tele%)
 7960PROCscreen(screenx(player%),screeny(player%),player%):PROCgrab(player%)
 7970ENDPROC
 7980:
 7990DEF PROCfire1
 8000IF weapon$(1)="0" THEN ENDPROC
 8010IF fire1>10 THEN fire1=0
 8020IF activbul(fire1)=1 THEN fire1+=1:GOTO 8140
 8030activbul(fire1)=1
 8040fire1x(fire1)=YOUX(1):fire1y(fire1)=YOUY(1)
 8050fire1scx(fire1)=screenx(1):fire1scy(fire1)=screeny(1)
 8060fire1dir(fire1)=buld1:fire1range(fire1)=-1:firefr1(fire1)=0
 8070fire1+=1:IF fire1>10 THEN fire1=0
 8080SYS "XOS_CLI","CHANNEL. 7 Fire"
 8090IF weapon$(1)="wep4":SOUND7,-15,&200,100
 8100IF weapon$(1)="wep3":SOUND7,-15,&1000,100
 8110IF weapon$(1)="wep2":SOUND7,-15,&500,100
 8120IF weapon$(1)="wep1":SOUND7,-10,&1500,100
 8130IF weapon$(1)="wep0":SOUND7,-15,&1000,100
 8140ENDPROC
 8150:
 8160DEF PROCfire2
 8170IF weapon$(2)="0":ENDPROC
 8180IF fire2>10:fire2=0
 8190IF activdos(fire2)=1:fire2+=1:GOTO 8300
 8200activdos(fire2)=1
 8210fire2x(fire2)=YOUX(2):fire2y(fire2)=YOUY(2)
 8220fire2scx(fire2)=screenx(2):fire2scy(fire2)=screeny(2)
 8230fire2dir(fire2)=buld2:fire2range(fire2)=0:firefr2(fire2)=0
 8240SYS "XOS_CLI","CHANNEL. 8 Fire"
 8250IF weapon$(2)="wep4":SOUND8,-15,&200,100
 8260IF weapon$(2)="wep3":SOUND8,-15,&1000,100
 8270IF weapon$(2)="wep2":SOUND8,-15,&500,100
 8280IF weapon$(2)="wep1":SOUND8,-10,&200,100
 8290IF weapon$(2)="wep0":SOUND8,-15,&1000,100
 8300ENDPROC
 8310:
 8320DEF PROCcheckweps
 8330FOR bollets2%=0 TO 10
 8340IF activbul(bollets2%)=0:GOTO 8470
 8350IF fire1dir(bollets2%)=0:fire1y(bollets2%)+=1
 8360IF fire1dir(bollets2%)=2:fire1y(bollets2%)-=1
 8370IF fire1dir(bollets2%)=1:fire1x(bollets2%)+=1
 8380IF fire1dir(bollets2%)=3:fire1x(bollets2%)-=1
 8390IF fire1x(bollets2%)<0:fire1scx(bollets2%)-=1:fire1x(bollets2%)=15
 8400IF fire1x(bollets2%)>15:fire1scx(bollets2%)+=1:fire1x(bollets2%)=0
 8410IF fire1y(bollets2%)<0:fire1scy(bollets2%)-=1:fire1y(bollets2%)=15
 8420IF fire1y(bollets2%)>15:fire1scy(bollets2%)+=1:fire1y(bollets2%)=0
 8430:
 8440PROCcheckblock(fire1scx(bollets2%),fire1scy(bollets2%),fire1x(bollets2%),fire1y(bollets2%))
 8450IF feedback$="1" OR feedback$="2" OR feedback$="3" OR feedback$="4" OR feedback$="6" OR feedback$="7" :activbul(bollets2%)=0:SYS "XOS_CLI","CHANNEL. 5 Sides":SOUND5,-15,&2000,100
 8460fire1range(bollets2%)+=1:PROCcheckrange
 8470NEXT
 8480ENDPROC
 8490:
 8500DEF PROCcheckweps2
 8510FOR bullets%=0 TO 10
 8520IF activdos(bullets%)=0:GOTO 8650
 8530IF fire2dir(bullets%)=0:fire2y(bullets%)+=1
 8540IF fire2dir(bullets%)=2:fire2y(bullets%)-=1
 8550IF fire2dir(bullets%)=1:fire2x(bullets%)+=1
 8560IF fire2dir(bullets%)=3:fire2x(bullets%)-=1
 8570IF fire2x(bullets%)<0:fire2scx(bullets%)-=1:fire2x(bullets%)=15
 8580IF fire2x(bullets%)>15:fire2scx(bullets%)+=1:fire2x(bullets%)=0
 8590IF fire2y(bullets%)<0:fire2scy(bullets%)-=1:fire2y(bullets%)=15
 8600IF fire2y(bullets%)>15:fire2scy(bullets%)+=1:fire2y(bullets%)=0
 8610:
 8620PROCcheckblock(fire2scx(bullets%),fire2scy(bullets%),fire2x(bullets%),fire2y(bullets%))
 8630IF feedback$="1" OR feedback$="2" OR feedback$="3" OR feedback$="4" OR feedback$="6" OR feedback$="7" :activdos(bullets%)=0:SYS "XOS_CLI","CHANNEL. 6 Sides":SOUND6,-15,&2000,100
 8640fire2range(bullets%)+=1:PROCcheckrange2
 8650NEXT
 8660ENDPROC
 8670:
 8680DEF PROCcheckrange
 8690IF weapon$(1)="wep0":IF fire1range(bollets2%)=16:fire1range(bollets2%)=0:PROCresetfire2(1)
 8700IF weapon$(1)="wep1":IF fire1range(bollets2%)=1:fire1range(bollets2%)=-1:PROCresetfire2(1)
 8710IF weapon$(1)="wep2":IF fire1range(bollets2%)=48:fire1range(bollets2%)=0:PROCresetfire2(1)
 8720IF weapon$(1)="wep3":IF fire1range(bollets2%)=10:fire1range(bollets2%)=0:PROCresetfire2(1)
 8730IF weapon$(1)="wep4":IF fire1range(bollets2%)=1:fire1range(bollets2%)=-1:PROCresetfire2(1)
 8740ENDPROC
 8750DEF PROCcheckrange2
 8760IF weapon$(2)="wep0":IF fire2range(bullets%)=16:fire2range(bullets%)=0:PROCresetfire2(2)
 8770IF weapon$(2)="wep1":IF fire2range(bullets%)=2:fire2range(bullets%)=0:PROCresetfire2(2)
 8780IF weapon$(2)="wep2":IF fire2range(bullets%)=48:fire2range(bullets%)=0:PROCresetfire2(2)
 8790IF weapon$(2)="wep3":IF fire2range(bullets%)=10:fire2range(bullets%)=0:PROCresetfire2(2)
 8800IF weapon$(2)="wep4":IF fire2range(bullets%)=2:fire2range(bullets%)=0:PROCresetfire2(2)
 8810ENDPROC
 8820:
 8830DEF PROCclearblock(scx,scy,z,x,pl%)
 8840CASE screen$(scx,scy,z,x) OF
 8850WHEN "wep0","wep1","wep2","wep3","wep4","6","7","8":PROCsort_out_other_blocks:ENDPROC
 8860ENDCASE
 8870:
 8880IF pl%=1:SYS 46,&222,area%,B%(0),z*64,512+x*32,0:SYS 46,&122,area%,screen$(scx,scy,z,x),z*64,512+x*32,8
 8890IF pl%=2:SYS 46,&222,area%,B%(0),z*64,x*32-4,0:SYS 46,&122,area%,screen$(scx,scy,z,x),z*64,x*32-4,8
 8900ENDPROC
 8910:
 8920DEF PROCsort_out_other_blocks
 8930IF pl%=1:SYS 46,&222,area%,B%(0),z*64,512+x*32,0
 8940IF pl%=1:SYS 46,&122,area%,screen$(scx,scy,z,x),z*64,512+x*32,8
 8950IF pl%=2:SYS 46,&222,area%,B%(0),z*64,x*32-4,0
 8960IF pl%=2:SYS 46,&122,area%,screen$(scx,scy,z,x),z*64,x*32-4,8
 8970ENDPROC
 8980:
 8990DEF PROCcheckblock(scx,scy,z,x)
 9000feedback$=screen$(scx,scy,z,x)
 9010ENDPROC
 9020:
 9030DEF PROCprintbuls1
 9040CASE player% OF
 9050WHEN 1:PROCprintbuls1_1
 9060WHEN 2:PROCprintbuls1_2
 9070ENDCASE
 9080ENDPROC
 9090:
 9100DEF PROCprintbuls1_1
 9110IF weapon$(1)="0" :ENDPROC
 9120:
 9130FOR bolls%=0 TO 10
 9140IF activbul(bolls%)=0 THEN GOTO 9260
 9150:
 9160firefr1(bolls%)+=1:IF firefr1(bolls%)>3:firefr1(bolls%)=0
 9170IF screenx(1)=fire1scx(bolls%) AND screeny(1)=fire1scy(bolls%) THEN : ELSE GOTO 9240
 9180:
 9190IF weapon$(1)="wep0" THEN
 9200SYS 46,&122,area%,weapon$(1)+STR$(firefr1(bolls%)),fire1x(bolls%)*64,512+fire1y(bolls%)*32,8:GOTO 9240
 9210ELSE
 9220SYS 46,&122,area%,weapon$(1)+STR$(fire1dir(bolls%)),fire1x(bolls%)*64,512+fire1y(bolls%)*32,8
 9230ENDIF
 9240IF YOUX(2)=fire1x(bolls%) AND YOUY(2)=fire1y(bolls%) AND screenx(2)=fire1scx(bolls%) AND screeny(2)=fire1scy(bolls%):PROChitplayer1
 9250IF screenx(2)=fire1scx(bolls%) AND screeny(2)=fire1scy(bolls%):PROCprintotherbuls
 9260NEXT
 9270REM PROCprint
 9280ENDPROC
 9290:
 9300DEF PROCprintbuls1_2
 9310IF weapon$(2)="0" :ENDPROC
 9320:
 9330FOR bolls%=0 TO 10
 9340IF activdos(bolls%)=0 THEN GOTO 9450
 9350firefr2(bolls%)+=1:IF firefr2(bolls%)>3:firefr2(bolls%)=0
 9360IF screenx(2)=fire2scx(bolls%) AND screeny(2)=fire2scy(bolls%) THEN : ELSE GOTO 9430
 9370:
 9380IF weapon$(2)="wep0" THEN
 9390SYS 46,&122,area%,weapon$(2)+STR$(firefr2(bolls%)),fire2x(bolls%)*64,fire2y(bolls%)*32-4,8:GOTO 9430
 9400ELSE
 9410SYS 46,&122,area%,weapon$(2)+STR$(fire2dir(bolls%)),fire2x(bolls%)*64,fire2y(bolls%)*32-4,8
 9420ENDIF
 9430IF fire2x(bolls%)=YOUX(1) AND fire2y(bolls%)=YOUY(1) AND fire2scx(bolls%)=screenx(1) AND fire2scy(bolls%)=screeny(1):PROChitplayer2
 9440IF screenx(1)=fire2scx(bolls%) AND screeny(1)=fire2scy(bolls%):PROCprintotherbuls2
 9450NEXT
 9460REM PROCprint
 9470ENDPROC
 9480:
 9490DEF PROCprintotherbuls
 9500IF activbul(bolls%)=0 THEN ENDPROC
 9510IF weapon$(1)="wep0":SYS 46,&122,area%,weapon$(1)+STR$(firefr1(bolls%)),fire1x(bolls%)*64,fire1y(bolls%)*32-4,8:ENDPROC
 9520SYS 46,&122,area%,weapon$(1)+STR$(fire1dir(bolls%)),fire1x(bolls%)*64,fire1y(bolls%)*32-4,8
 9530ENDPROC
 9540:
 9550DEF PROCprintotherbuls2
 9560IF activdos(bolls%)=0 THEN ENDPROC
 9570IF weapon$(2)="wep0":SYS 46,&122,area%,weapon$(2)+STR$(firefr2(bolls%)),fire2x(bolls%)*64,512+fire2y(bolls%)*32,8:ENDPROC
 9580SYS 46,&122,area%,weapon$(2)+STR$(fire2dir(bolls%)),fire2x(bolls%)*64,512+fire2y(bolls%)*32,8
 9590ENDPROC
 9600:
 9610REM Grab Screen
 9620DEF PROCgrab(pl%)
 9630IF pl%=1:PROCgrab2
 9640IF pl%=2:PROCgrab1
 9650ENDPROC
 9660:
 9670REM Grab Screen for player 1
 9680DEF PROCgrab1
 9690SYS46,&110,grab%,g$,0,0,0,1280,508:SYS46,&118,grab%,g$ TO,,bg%:SYS46,&128,grab%,g$ TO,,,width%,height%
 9700ENDPROC
 9710:
 9720REM Grab Screen for player 2
 9730DEF PROCgrab2
 9740SYS46,&110,grabtwo%,gg$,0,0,512,1280,1023:SYS46,&118,grabtwo%,gg$ TO,,bg2%:SYS46,&128,grabtwo%,gg$ TO,,,width2%,height2%
 9750ENDPROC
 9760:
 9770DEF PROCsortwepchange
 9780copy$=screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))
 9790backup$=copy$:screen$(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%))=weapon$(player%):weapon$(player%)=backup$
 9800SYS "XOS_CLI","CHANNEL. 4 Hit"
 9810SOUND4,-15,&400,100
 9820PROCclearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),player%)
 9830IF screenx(1)=screenx(2) AND screeny(1)=screeny(2):PROCsort2
 9840PROCgrab(player%):PROCprint
 9850ENDPROC
 9860:
 9870DEF PROCsort2
 9880IF player%=1:PROCclearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),2):PROCgrab(2)
 9890IF player%=2 THEN PROCclearblock(screenx(player%),screeny(player%),YOUX(player%),YOUY(player%),1):PROCgrab(1)
 9900ENDPROC
 9910:
 9920DEF PROCresetbul(p%)
 9930CASE p% OF
 9940WHEN 1:
 9950fire1scy(bolls%)=0:fire1scx(bolls%)=0
 9960fire1y(bolls%)=0:fire1x(bolls%)=0
 9970activbul(bolls%)=0
 9980WHEN 2:
 9990fire2scy(bolls%)=0:fire2scx(bolls%)=0
10000fire2y(bolls%)=0:fire2x(bolls%)=0
10010activdos(bolls%)=0
10020ENDCASE
10030ENDPROC
10040:
10050DEF PROCresetfire2(p%)
10060CASE p% OF
10070WHEN 1:
10080fire1scy(bollets2%)=0:fire1scx(bollets2%)=0
10090fire1y(bollets2%)=0:fire1x(bollets2%)=0
10100activbul(bollets2%)=0:fire1range(bollets2%)=0
10110WHEN 2:
10120fire2scy(bullets%)=0:fire2scx(bullets%)=0
10130fire2y(bullets%)=0:fire2x(bullets%)=0
10140activdos(bullets%)=0:fire2range(bullets%)=0
10150ENDCASE
10160ENDPROC
10170:
10180DEF PROCprintenergy
10190GCOL5
10200IF energy(1)>0 AND energy(1)<184:RECTANGLE FILL1050,560,50,energy(1)
10210IF energy(2)>0 AND energy(2)<184:RECTANGLE FILL1050,48,50,energy(2)
10220IF energy(2)>=184:GCOL5:RECTANGLE FILL1050,48,50,184:GCOL7:LINE1075,48,1075,48+184:LINE1050,48+92,1075,48+184:LINE1100,48+92,1075,48+184
10230IF energy(1)>=184:GCOL5:RECTANGLE FILL1050,560,50,184:GCOL7:LINE1075,560,1075,560+184:LINE1050,560+92,1075,560+184:LINE1100,560+92,1075,560+184
10240:
10250IF shield(2)=5:GCOL 11:RECTANGLE FILL1200,52,50,184
10260IF shield(1)=5:GCOL 11:RECTANGLE FILL1200,564,50,184
10270:
10280IF shield(2)>0 THEN PROCprint_shields_2
10290IF shield(1)>0 THEN PROCprint_shields_1
10300IF weapon$(1)="0" THEN : ELSE SYS46,&122,area%,weapon$(1),1122,866,8
10310IF weapon$(2)="0" THEN : ELSE SYS46,&122,area%,weapon$(2),1122,346,8
10320ENDPROC
10330:
10340DEF PROCprint_shields_2
10350Y=0
10360IF shield(2)<6 THEN
10370FOR A%=1TOshield(2)
10380SYS 46,&122,area%,"10",1192,56+Y,8
10390Y+=36
10400NEXT
10410ENDIF
10420ENDPROC
10430:
10440DEF PROCprint_shields_1
10450Y=0
10460IF shield(1)<6 THEN
10470FOR A%=1TOshield(1)
10480SYS 46,&122,area%,"10",1192,568+Y,8
10490Y+=36
10500NEXT
10510ENDIF
10520ENDPROC
10530:
10540DEF PROChitplayer1
10550IF energy(2)>0 THEN
10560IF energy(2)>0 AND shield(2)>0:SYS "XOS_CLI","CHANNEL. 6 Sides":SOUND6,-15,&4000,100
10570IF energy(2)>0 AND shield(2)=0:SYS "XOS_CLI","CHANNEL. 2 ARG":SOUND2,-15,&3000,1
10580ENDIF
10590PROCresetbul(1)
10600IF shield(2)<>0 THEN
10610CASE weapon$(1) OF
10620WHEN"wep0":reduce_shield(2)+=3
10630WHEN"wep1":reduce_shield(2)+=2
10640WHEN"wep2":reduce_shield(2)+=1
10650WHEN"wep3":reduce_shield(2)+=0.5
10660WHEN"wep4":reduce_shield(2)+=3
10670ENDCASE
10680IF reduce_shield(2)>5:reduce_shield(2)=0:shield(2)-=1
10690ENDPROC
10700ELSE
10710IF weapon$(1)="wep0":energy(2)-=16
10720IF weapon$(1)="wep1":energy(2)-=12
10730IF weapon$(1)="wep2":energy(2)-=8
10740IF weapon$(1)="wep3":energy(2)-=4
10750IF weapon$(1)="wep4":energy(2)-=16
10760hit2=1
10770ENDIF
10780ENDPROC
10790:
10800DEF PROChitplayer2
10810IF energy(1)>0 THEN
10820IF energy(1)>0 AND shield(1)>0:SYS "XOS_CLI","CHANNEL. 5 Sides":SOUND5,-15,&4000,100
10830IF energy(1)>0 AND shield(1)=0:SYS "XOS_CLI","CHANNEL. 3 ARG":SOUND3,-15,&2000,1
10840ENDIF
10850PROCresetbul(2)
10860IF shield(1)<>0 THEN
10870CASE weapon$(2) OF
10880WHEN"wep0":reduce_shield(1)+=3
10890WHEN"wep1":reduce_shield(1)+=2
10900WHEN"wep2":reduce_shield(1)+=1
10910WHEN"wep3":reduce_shield(1)+=0.5
10920WHEN"wep4":reduce_shield(1)+=3
10930ENDCASE
10940IF reduce_shield(1)>5:reduce_shield(1)=0:shield(1)-=1
10950ENDPROC
10960ELSE
10970IF weapon$(2)="wep0":energy(1)-=16
10980IF weapon$(2)="wep1":energy(1)-=12
10990IF weapon$(2)="wep2":energy(1)-=8
11000IF weapon$(2)="wep3":energy(1)-=4
11010IF weapon$(2)="wep4":energy(1)-=16
11020hit1=1
11030ENDIF
11040ENDPROC
11050:
11060DEF PROCdrawblood_pl1
11070SYS46,&122,area%,"gore"+STR$(RND(2)-1),YOUX(1)*64,512+YOUY(1)*32,8
11080IF screenx(1)=screenx(2) AND screeny(1)=screeny(2):SYS46,&122,area%,"gore"+STR$(RND(2)-1),YOUX(1)*64,YOUY(1)*32-4,8
11090ENDPROC
11100:
11110DEF PROCdrawblood_pl2
11120SYS46,&122,area%,"gore"+STR$(RND(2)-1),YOUX(2)*64,YOUY(2)*32-4,8
11130IF energy(2)>0 AND shield(2)=0 AND screenx(2)=screenx(1) AND screeny(2)=screeny(1):SYS46,&122,area%,"gore"+STR$(RND(2)-1),YOUX(2)*64,512+YOUY(2)*32,8
11140ENDPROC
11150:
11160DEF PROCfindwinner
11170IF energy(1)<=0 AND energy(2)>0:playertwowin=TRUE
11180IF energy(2)<=0 AND energy(1)>0:playeronewin=TRUE
11190IF energy(1)<=0 AND energy(2)<=0:playerdraw=TRUE
11200ENDPROC
11210:
11220DEF PROCprintwinner
11230IF playeronewin OR playertwowin:speed-=2.2
11240IF playerdraw:speed-=1.6
11250IF speed<0:speed=0
11260c+=speed
11270IF playeronewin:PROCprintonewin(c)
11280IF playertwowin:PROCprinttwowin(c)
11290IF playerdraw:PROCprintdraw(c)
11300IF INKEY-99:counttillend%=90
11310ENDPROC
11320:
11330DEF PROCprintonewin(x)
11340SYS46,&122,area%,"announce",x+80,210,8
11350SYS46,&122,area%,"announce",x+80,710,8
11360SYS46,&122,area%,"player1",x+320,706,8
11370SYS46,&122,area%,"player2",x+314,206,8
11380SYS46,&122,area%,"winner",x+600,710,8
11390SYS46,&122,area%,"loser",x+600,210,8
11400ENDPROC
11410:
11420DEF PROCprinttwowin(x)
11430SYS46,&122,area%,"announce",x+80,210,8
11440SYS46,&122,area%,"announce",x+80,710,8
11450SYS46,&122,area%,"player1",x+320,706,8
11460SYS46,&122,area%,"player2",x+314,206,8
11470SYS46,&122,area%,"loser",x+600,710,8
11480SYS46,&122,area%,"winner",x+600,210,8
11490ENDPROC
11500:
11510DEF PROCprintdraw(x)
11520SYS46,&122,area%,"draw!",x,210,8
11530SYS46,256+34,area%,"draw!",x,710,8
11540ENDPROC
11550:
11560DEF PROCdrawgraphics
11570SYS46,&122,area%,"statforplay1",1030,516,8
11580SYS46,&122,area%,"statforplay2",1030,0,8
11590SYS46,&122,area%,"health",1058,12,8
11600SYS46,&122,area%,"health",1058,524,8
11610SYS46,&122,area%,"shield",1192,8,8
11620SYS46,&122,area%,"shield",1192,524,8
11630GCOL7
11640RECTANGLE FILL1200,52,50,184
11650RECTANGLE FILL1200,564,50,184
11660RECTANGLE FILL1118,862,68,36
11670RECTANGLE FILL1118,342,68,36
11680RECTANGLE FILL1050,48,50,184
11690RECTANGLE FILL1050,560,50,184
11700GCOL0
11710RECTANGLE1200,52,48,184
11720RECTANGLE1202,52,48,184
11730RECTANGLE1200,564,48,184
11740RECTANGLE1202,564,48,184
11750RECTANGLE1118,862,68,36
11760RECTANGLE1118,342,68,36
11770ENDPROC
11780:
11790DEF PROCsetupplayers
11800screenx(1)=remem1sx
11810screeny(1)=remem1sy
11820screenx(2)=rememdossx
11830screeny(2)=rememdossy
11840YOUX(1)=remem1x
11850YOUX(2)=rememdosx
11860YOUY(1)=remem1y
11870YOUY(2)=rememdosy
11880xpos=0:ypos=0:anim()=0:energy()=50:shield()=0:weapon$()="0"
11890fire1range()=0:fire2range()=0:firefr1()=0:firefr2()=0
11900fire1=0:fire2=0:buld1=2:buld2=2
11910dire$()="d":player%=1:keycheckrate=0:no1%=0:no2%=0
11920checkdone%=0:noprint%=0:pause%=0:end%=0:counttillend%=0
11930playeronewin=FALSE:playertwowin=FALSE:playerdraw=FALSE
11940speed=60:c=-800
11950hit1=0:hit2=0
11960hitcounter1=0:hitcounter2=0
11970ENDPROC
11980:
11990DEF PROCload_screens
12000ab%=0:cd%=0
12010REPEAT
12020PROCloadscreen(ab%,cd%)
12030ab%+=1:IF ab%>7:cd%+=1:ab%=0
12040UNTIL cd%>3
12050ENDPROC
12060:
12070REM Place game objects on map
12080DEF PROCplaceobjects
12090FOR abcd%=1 TO foodval
12100R1%=RND(8)-1:R2%=RND(4)-1:R3%=RND(15):R4%=RND(15):obj$=STR$(RND(4)-1+11)
12110IF screen$(R1%,R2%,R3%,R4%)="0":screen$(R1%,R2%,R3%,R4%)=obj$:ELSE GOTO 12100
12120NEXT
12130:
12140REM Place shields on map
12150FOR abcd%=1 TO shldval
12160R1%=RND(8)-1:R2%=RND(4)-1:R3%=RND(15):R4%=RND(15):obj$="10"
12170IF screen$(R1%,R2%,R3%,R4%)="0":screen$(R1%,R2%,R3%,R4%)=obj$:ELSE GOTO 12160
12180NEXT
12190:
12200REM Place teleporter potions on map.
12210FOR abcd%=1 TO televal
12220R1%=RND(8)-1:R2%=RND(4)-1:R3%=RND(15):R4%=RND(15)
12230IF screen$(R1%,R2%,R3%,R4%)="0":screen$(R1%,R2%,R3%,R4%)="15":ELSE GOTO 12220
12240NEXT
12250:
12260REM Place weapons on map
12270FOR abcde%=1 TO weapval
12280R1%=RND(8)-1:R2%=RND(4)-1:R3%=RND(15):R4%=RND(15):obj$="wep"+STR$(RND(5)-1)
12290IF screen$(R1%,R2%,R3%,R4%)="0":screen$(R1%,R2%,R3%,R4%)=obj$:ELSE GOTO 12280
12300NEXT
12310ENDPROC
12320:
12330DEF PROCclearbanks
12340SYS6,112,1
12350SYS6,113,1
12360VDU26:VDU4:COLOUR135:CLS
12370SYS6,112,2
12380SYS6,113,2
12390COLOUR135:CLS
12400SYS6,113,1
12410SYS6,112,1
12420ENDPROC
12430:
12440DEF PROCclearbanks2
12450SYS6,112,1
12460SYS6,113,1
12470VDU26:VDU4:COLOUR128:CLS
12480SYS6,112,2
12490SYS6,113,2
12500COLOUR128:CLS
12510SYS6,113,1
12520SYS6,112,1
12530ENDPROC

� >!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