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:43:12 +01:00
parent 5b062803ba
commit cd038a76b6
1 changed files with 181 additions and 202 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
inc_monster.bas
View File

@ -39,16 +39,12 @@ sub initMonster() SHARED STATIC
VOICE 2 OFF TONE 256 WAVE NOISE ADSR 0, 0, VOI2_S, VOI2_R 'monster sound VOICE 2 OFF TONE 256 WAVE NOISE ADSR 0, 0, VOI2_S, VOI2_R 'monster sound
'~ textat 33, 3, " "
'~ textat 33, 4, " "
'~ textat 33, 21, " "
end sub end sub
sub handleMonster() SHARED STATIC sub handleMonster() SHARED STATIC
Dim bMoveFrame as BYTE Dim bMoveFrame as BYTE
bManhattanDistance = myByteABS(bPlayer_Row - bMonster_Row) + myByteABS(bPlayer_Col - bMonster_Col) bManhattanDistance = myByteABS(bPlayer_Row - bMonster_Row) + myByteABS(bPlayer_Col - bMonster_Col)
'~ textat 33, 21, str$(bManhattanDistance) + " ", 11 'dark gray
if bManhattanDistance > bMonster_Distance_TurnONSpeedUp then if bManhattanDistance > bMonster_Distance_TurnONSpeedUp then
bMonster_SpeedUpMode = TRUE bMonster_SpeedUpMode = TRUE
else else
@ -78,8 +74,6 @@ sub handleMonster() SHARED STATIC
if bMoveFrame = 0 then bMonster_DelayFrame = bMonster_Lag - 1 if bMoveFrame = 0 then bMonster_DelayFrame = bMonster_Lag - 1
end if end if
'~ textat 33, 3, str$(bMonster_DelayFrame), 10 'light red
'~ textat 33, 4, str$(bMoveFrame) + " ", 13 'light green
end sub end sub
sub monsterMovement() STATIC sub monsterMovement() STATIC
@ -183,20 +177,5 @@ sub monsterMovement() STATIC
charat bMonster_Col, bMonster_Row, MONSTER, 2 'red charat bMonster_Col, bMonster_Row, MONSTER, 2 'red
VOICE 2 ON VOICE 2 ON
'debug code right after -DRAW-
'~ for bMonsterDebug as BYTE = 0 to 3
'~ textat 33, 2 + bMonsterDebug, " "
'~ next bMonsterDebug
'~ if bWalkableDirections_Count <> MINUS_ONE then
'~ for bMonsterDebug as BYTE = 0 to bWalkableDirections_Count
'~ if bWalkableDirections(bMonsterDebug) = bMonster_Direction then
'~ textat 33, 2 + bMonsterDebug, str$(bWalkableDirections(bMonsterDebug)), 1 'white
'~ else
'~ textat 33, 2 + bMonsterDebug, str$(bWalkableDirections(bMonsterDebug)), 11 'gray
'~ end if
'~ next bMonsterDebug
'~ end if
end sub end sub