Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-09-26 23:54:57 +00:00
Code Issues Projects Releases Wiki Activity

Fix bug when move backward called twice.

Browse Source
This commit is contained in:
Martin Haye 2018-04-16 08:19:38 -07:00
parent eb4701f0d4
commit c7dfbef4c6
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Platform/Apple/virtual/src/plasma/gameloop.pla
View File

@ -117,7 +117,7 @@ export byte curMapPartition = 0
export word pGodModule = NULL
export word typeHash = 0
word curHeapPct = 0
byte lastMoveDir
byte lastMoveDir = $FF
// Queue setMap / teleport / start_encounter, since otherwise script might be replaced while executing
byte q_mapIs3D = 0
@ -2505,11 +2505,14 @@ end
export def moveWayBackward()#1
byte facingDir, moveDir
facingDir = getDir()
moveDir = (lastMoveDir + 8) & 15 // reverse of last move
moveInternal(facingDir, moveDir, FALSE, TRUE) // no beep, but do adv time
if mapIs3D
moveInternal(facingDir, moveDir, FALSE, FALSE) // no beep, don't adv time
if lastMoveDir <> $FF
moveDir = (lastMoveDir + 8) & 15 // reverse of last move
moveInternal(facingDir, moveDir, FALSE, TRUE) // no beep, but do adv time
if mapIs3D
moveInternal(facingDir, moveDir, FALSE, FALSE) // no beep, don't adv time
fin
fin
lastMoveDir = $FF // avoid problems if moveWayBackward called repeatedly
return 0
end