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

Removed debug lines

This commit is contained in:
JJFlash 2022-11-01 08:41:27 +01:00
parent 5ccbfb2f5c
commit 5b062803ba
1 changed files with 661 additions and 683 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
superchase.bas
View File

@ -8,10 +8,10 @@
'** - Atari version by someone @ Compute! Gazette ** '** - Atari version by someone @ Compute! Gazette **
'** - TI-99 4/A version by Cheryl Regena ** '** - TI-99 4/A version by Cheryl Regena **
'** ** '** **
'** Written in XC-BASIC 3.1.0 by @JJFlash@mastodon.social - Oct 2022 ** '** Written in XC-BASIC 3.1.0 by @JJFlash@mastodon.social - Nov 2022 **
'** XC-BASIC created by Csaba Fekete! - https://xc-basic.net/ ** '** XC-BASIC created by Csaba Fekete! - https://xc-basic.net/ **
'** ** '** **
'** WORK IN PROGRESS!! ** '** **
'*********************************************************************** '***********************************************************************
@ -24,7 +24,6 @@ DATA AS WORD 1824, 1864, 1904, 1944, 1984
poke 53280, 0 : poke 53281, 0 poke 53280, 0 : poke 53281, 0
'~ memcpy @LOC_charset_addr, $3800, 1000
poke $D018, %00011111 'screen $0400, char location: $3800 poke $D018, %00011111 'screen $0400, char location: $3800
poke 657, 128 'disable upper-lower case change poke 657, 128 'disable upper-lower case change
@ -149,8 +148,6 @@ call titleScreen()
'-------------------GAME-START------------------------------------------ '-------------------GAME-START------------------------------------------
'~ Dim lRandomSeed as LONG : lRandomSeed = clong(248) ' <<<<<<<<<<<<<<<------------- RANDOM!!!
sys $E544 FAST ' clear screen sys $E544 FAST ' clear screen
textat 32, 0, "super", 1 'white textat 32, 0, "super", 1 'white
textat 33, 1, "chase!", 1 'white textat 33, 1, "chase!", 1 'white
@ -159,7 +156,6 @@ textat 33, 8, "level", 5 'green
textat 32, 13, "score", 3 'cyan textat 32, 13, "score", 3 'cyan
textat 32, 18, "speed", 7 'yellow textat 32, 18, "speed", 7 'yellow
'~ Randomize (TI() * (clong(peek( $D012)) + clong(1)))
Randomize TI() Randomize TI()
For N = 1 to 10 : bPeekedTileContent = RNDB() : Next N ' bPeekedTileContent used here as a dummy variable! For N = 1 to 10 : bPeekedTileContent = RNDB() : Next N ' bPeekedTileContent used here as a dummy variable!
@ -170,13 +166,7 @@ For N as BYTE = 0 to 24
memset VIC_COLOR_OFFSET + scrAddrCache(N), 31, 6 'blue memset VIC_COLOR_OFFSET + scrAddrCache(N), 31, 6 'blue
Next N Next N
'~ lRandomSeed = lRandomSeed + clong(1)
'~ textat 33, 23, str$(lRandomSeed), 14 'light blue
'~ Randomize (lRandomSeed)
'~ For N = 1 to 10 : bPeekedTileContent = RNDB() : Next N ' bPeekedTileContent used here as a dummy variable!
call generateMaze() call generateMaze()
'~ textat 33, 24, str$(bTreasures_Quantity), 7 'yellow
call placeDoor() call placeDoor()
'********LEVEL INIT********** '********LEVEL INIT**********
@ -202,7 +192,6 @@ if bSkillLevel < bTreasuresToOpenDoor then
else else
bTreasuresToOpenDoor = bTreasures_Quantity bTreasuresToOpenDoor = bTreasures_Quantity
end if end if
'~ textat 36, 24, str$(bTreasuresToOpenDoor), 12 'gray
call playerAppears() call playerAppears()
call initPlayer() call initPlayer()
@ -215,7 +204,6 @@ actorMovement:
'-------PLAYER MOVEMENT----------------- '-------PLAYER MOVEMENT-----------------
call playerMovement() call playerMovement()
if bExitEvent then exit do if bExitEvent then exit do
'~ textat 33, 22, str$(bTreasuresCollected) + " ", 15 ' light gray
'-------MONSTER MOVEMENT----------------- '-------MONSTER MOVEMENT-----------------
if bMonsterIsOn then if bMonsterIsOn then
@ -244,12 +232,6 @@ mainAnimation:
'------------------------------------------------------------------- '-------------------------------------------------------------------
endFrame: endFrame:
'~ if (peek( $DC00) AND 16) = 0 then goto restartGame
'~ if (peek( $DC00) AND 16) = 0 then poke wDoorAddress, DOOR_CLOSED : call openDoorAnimation()
'~ if (peek( $DC00) AND 16) = 0 then bAnimTimer_GoldTaken = 16
'~ if (peek( $DC00) AND 16) = 0 then call colouredFrame() : wait $DC00, 16
'~ if (peek( $DC00) AND 16) = 0 then call playerAppears()
call timedSounds() call timedSounds()
wait $d011, 128, 128 : wait $d011, 128 : wait $d011, 128, 128 : wait $d011, 128 wait $d011, 128, 128 : wait $d011, 128 : wait $d011, 128, 128 : wait $d011, 128
bFrameCounter = (bFrameCounter + 1) AND 3 bFrameCounter = (bFrameCounter + 1) AND 3
@ -414,10 +396,6 @@ sub placeDoor() STATIC
end sub end sub
sub drawInfoBox() STATIC sub drawInfoBox() STATIC
'~ textat 4, 11, "{168}{171}{171}{171}{171}{171}{171}{171}{171}{171}{171}{171}{171}{171}{171}{171}{171}{171}{171}{171}{171}{171}{173}", 6 'blu
'~ textat 4, 12, "{169} {174}", 6 'blu
'~ textat 4, 13, "{169} {174}", 6 'blu
'~ textat 4, 14, "{170}{172}{172}{172}{172}{172}{172}{172}{172}{172}{172}{172}{172}{172}{172}{172}{172}{172}{172}{172}{172}{172}{175}", 6 'blu
poke 1468, 104 'col 4, row 11 poke 1468, 104 'col 4, row 11
memset 1469, 21, 107 'col 5-25, row 11 memset 1469, 21, 107 'col 5-25, row 11
poke 1490, 109 'col 26, row 11 poke 1490, 109 'col 26, row 11