JJFlash
/
C64_Superchase
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Forgot the non-debug version...

This commit is contained in:
JJFlash 2022-09-02 11:04:03 +02:00
parent bda5ccd3fe
commit 0f862353a9
1 changed files with 309 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

309
initial_ported_version/superchase-ported.xcbbas Normal file
View File

@ -0,0 +1,309 @@
Dim scrAddrCache(25) as WORD @loc_scrAddrCache ' 0 -> 24
loc_scrAddrCache:
DATA AS WORD 1024, 1064, 1104, 1144, 1184, 1224, 1264, 1304, 1344, 1384
DATA AS WORD 1424, 1464, 1504, 1544, 1584, 1624, 1664, 1704, 1744, 1784
DATA AS WORD 1824, 1864, 1904, 1944, 1984
poke 53280, 13 : poke 53281, 13
sys $E544 FAST ' clear screen
poke 646, 0 'black chars
locate 0, 24
dim charset_array(2048) as BYTE @LOC_charset_addr
memcpy @charset_array, $3800, 2048
poke $D018, 31 'final character location: $3800
PRINT " **************"
PRINT " * superchase *"
PRINT " **************"
PRINT "{13}{13}{13}{13} use the arrow keys to move."
PRINT "{13}{13} try to gather as many"
PRINT "{13} treasures ({160}) in the maze"
PRINT "{13} as possible before the"
PRINT "{13} enemy catches you!"
PRINT "{13}{13}{13} press any key to begin";
poke 198, 0 : wait 198, 1 : poke 198, 0
line300:
SC = 0
LV = 1
Dim FL as BYTE : FL = 0
Dim CX as INT : CX = 0
Dim CY as INT : CY = 0
Dim CCX as INT : CCX = 0
Dim CCY as INT : CCY = 0
Dim G as BYTE : G = 0
Dim tryAgain$ as STRING * 1
line320:
sys $E544 FAST ' clear screen
poke 53280, 5 ' green
poke 53281, 7 'yellow
memset $0400, 1000, 104 'reverse space
memset $D800, 1000, 6 'blue
Randomize TI()
For I AS BYTE = 1 to 65
X = 2 * (CBYTE(9*RND())) + 4
Y = 2 * (CBYTE(11*RND())) + 4
TEXTAT Y, X, "{176}{176}{176}{176}{176}"
Next I
For I AS BYTE = 1 to 60
X = 2 * (CBYTE(7*RND())) + 4
Y = 2 * (CBYTE(13*RND())) + 4
CHARAT Y, X , 112
CHARAT Y, X + 1, 112
CHARAT Y, X + 2, 112
CHARAT Y, X + 3, 112
CHARAT Y, X + 4, 112
Next I
TEXTAT 4, 4, "{176}{176}{176}{176}{176}"
CHARAT 4, 5, 112
CHARAT 4, 6, 112
CHARAT 4, 7, 112
CHARAT 4, 8, 112
For I AS BYTE = 1 to 80
X = 2 * (CBYTE(9*RND())) + 4
Y = 2 * (CBYTE(13*RND())) + 4
CHARAT Y, X, 96, 4 ' 4 = magenta
Next I
TEXTAT 3, 23, "score:", 0 'black
'****************************************************************************
T = 0 ' treasures collected
IF LV = 8 Then LV = 7
A = 4
B = 4
C = 4
D = 4
PG = 112
'****************************************************************************
line670:
CHARAT B, A, 120, 2 ' 2 = Red
IF T < 8-LV THEN goto line1410
IF FL = 0 THEN goto line740
IF (FL AND 1) = 0 THEN Goto line1140
CCX = CX
CCY = CY
FL = 0
line740: '"PRIVILEGED" CHECK -------------------------------------------------
GC = peek(scrAddrCache(C + 1) + D)
IF GC = 120 THEN goto line1760
IF GC = 104 THEN goto line810
IF GC <> 128 THEN goto line810
CX = 1
CY = 0
GOTO line1340
line810:
GC = peek(scrAddrCache(C) + D + 1)
IF GC = 120 THEN goto line1760
IF GC = 104 THEN goto line880
IF GC <> 128 THEN goto line880
CX = 0
CY = 1
GOTO line1340
line880:
GC = peek(scrAddrCache(C - 1) + D)
IF GC = 120 THEN goto line1760
IF GC = 104 THEN goto line950
IF GC <> 128 THEN goto line950
CX = -1
CY = 0
GOTO line1340
line950:
GC = peek(scrAddrCache(C) + D - 1)
IF GC = 120 THEN goto line1760
IF GC = 128 THEN goto line1320
IF GC = 112 THEN goto line1320
FL = FL + 1
IF (FL AND 1) = 0 then goto line1040
CX = CCX
CY = CCY
GOTO line1160
line1040: '-----------CHECK USING SGN - ***NEVER EXECUTES!!***
CX = SGN(A - C)
CY = 0
IF CX <> 0 THEN goto line1080
CY = SGN(D - B)
line1080:
GC = peek(scrAddrCache(C + CX) + D + CY)
IF GC = 104 THEN goto line1110
IF (GC = 96) OR (GC = 112) THEN goto line1340
line1110:
CX = -1
CY = 0
GOTO line1160
line1140:
FL = FL + 1
IF FL > 1 THEN goto line1300
line1160: '---------------"RELAXED" CHECK
GC = peek(scrAddrCache(C + CX) + D + CY)
IF (GC = 112) OR (GC = 96) OR (GC = 128) THEN goto line1340
CX = 1
CY = 0
GC = peek(scrAddrCache(C + CX) + D)
IF (GC = 112) OR (GC = 96) OR (GC = 128) THEN goto line1340
CX = -1
GC = peek(scrAddrCache(C + CX) + D)
IF (GC = 112) OR (GC = 96) OR (GC = 128) THEN goto line1340
CX = 0
CY = -1
GC = peek(scrAddrCache(C) + D + CY)
IF (GC = 112) OR (GC = 96) OR (GC = 128) THEN goto line1340
CY = 1
line1300:
GC = peek(scrAddrCache(C + CX) + D + CY)
IF GC = 104 THEN goto line1390 ELSE goto line1340
line1320:
CX = 0
CY = -1
line1340:
IF PG = 96 THEN goto line1360
PG = 112 + FL
line1360:
CHARAT D, C, PG, 4 '4 = magenta
C = C + CX
D = D + CY
line1390:
CHARAT D, C, 42, 0 ' 0 = black
PG = GC
'****************************************************************************
line1410:
K1 = peek( $DC00) : K1 = 127 - K1
if K1 = 0 OR K1 > 8 then goto line1410
'Wait for the stick to be released, otherwise the game runs too fast
do
loop until peek ( $DC00) = 127
CHARAT B, A, 128, 1 ' 1 = White
'1: up - 2: down - 4: left - 8: right
on K1 goto line1410, line1690, line1540, line1410, line1590, line1410, line1410, line1410, line1640
line1450:
IF G <> 96 then goto line670
poke 53280, 13 : wait $d011, 128 : wait $d011, 128, 128 : wait $d011, 128 : wait $d011, 128, 128 : poke 53280, 5 ' light green, green
SC = SC + 1
textat 10, 23, str$(SC), 0
T = T + 1 ' treasures collected
IF T < 45 then goto line670 else LV = LV + 1 : Goto line320
line1540:
G = peek(scrAddrCache(A + 1) + B)
IF G = 104 then goto line1740
IF G = 42 then goto line1760
A = A + 1
Goto line1450
line1590:
G = peek(scrAddrCache(A) + B - 1)
IF G = 104 then goto line1740
IF G = 42 then goto line1760
B = B - 1
Goto line1450
line1640:
G = peek(scrAddrCache(A) + B + 1)
IF G = 104 then goto line1740
IF G = 42 then goto line1760
B = B + 1
Goto line1450
line1690:
G = peek(scrAddrCache(A - 1) + B)
IF G = 104 then goto line1740
IF G = 42 then goto line1760
A = A - 1
Goto line1450
line1740:
poke 53280, 2 : wait $d011, 128 : wait $d011, 128, 128 : poke 53280, 5 ' red, green
goto line670
'****************************************************************************
line1760:
FOR I = 1 to 3
poke 53280, 2
wait $d011, 128 : wait $d011, 128, 128
wait $d011, 128 : wait $d011, 128, 128
wait $d011, 128 : wait $d011, 128, 128
poke 53280, 4
wait $d011, 128 : wait $d011, 128, 128
wait $d011, 128 : wait $d011, 128, 128
wait $d011, 128 : wait $d011, 128, 128
next I
FOR I = 1 to 3
poke 53280, 1 : poke 53281, 1 'white
wait $d011, 128 : wait $d011, 128, 128
wait $d011, 128 : wait $d011, 128, 128
wait $d011, 128 : wait $d011, 128, 128
poke 53280, 10 : poke 53281, 10 'light red
wait $d011, 128 : wait $d011, 128, 128
wait $d011, 128 : wait $d011, 128, 128
wait $d011, 128 : wait $d011, 128, 128
poke 53280, 3 : poke 53281, 3 'cyan
wait $d011, 128 : wait $d011, 128, 128
wait $d011, 128 : wait $d011, 128, 128
wait $d011, 128 : wait $d011, 128, 128
next I
locate 0, 24
PRINT "got caught!!!"
PRINT "try again? (y/n)";
line1840:
poke 198, 0 : wait 198,1
get tryAgain$
if tryAgain$ = "y" then goto line300
if tryAgain$ <> "n" then goto line1840
poke 53280, 14 : poke 53281, 6
memset $d800, 1000, 14
poke 646, 14
poke $D018, 21 'original character location
memcpy $E3A2, $73, $17 'CHRGET bug workaround
END
LOC_charset_addr:
incbin "charset.chr"