Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2025-02-28 12:29:59 +00:00
Code Issues Projects Releases Wiki Activity

Blink cursor while story mode waits for a key.

Browse Source
This commit is contained in:
Martin Haye 2019-06-13 10:08:20 -07:00
parent 7f6d3752c0
commit 63a6d7c3eb
2 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1613,8 +1613,12 @@ export def getUpperKey()#1
// Now wait for a key, and animate while doing so.
while ^kbd < 128
// pause() will terminate on keypress, returning the count it did
*seed = *seed + pause(30000)
if recordMode
pause(30000)
else
// pause() will terminate on keypress, returning the count it did
*seed = *seed + pause(30000)
fin
loop
key = recordKey
return charToUpper(key)

15
Platform/Apple/virtual/src/plasma/story.pla
View File

@ -136,6 +136,19 @@ def displayStoryBlock()#1
return pStoryCur < pStoryEnd
end
///////////////////////////////////////////////////////////////////////////////////////////////////
def storyKeyWait()#1
byte key
while ^kbd < 128
^$3FF5 = ^$3FF5 ^ $7F // lowermost, rightmost byte of screen
pause(300)
loop
^$3FF5 = 0
key = ^kbd & $7F
^kbdStrobe
return key
end
///////////////////////////////////////////////////////////////////////////////////////////////////
// Display story and picture on a blank screen, with blanking follow-up
def _story_display(storyNum)#1
@ -150,7 +163,7 @@ def _story_display(storyNum)#1
displayStoryBlock
fin
c = getUpperKey
c = storyKeyWait
if c == 27 or pStoryCur >= pStoryEnd; break; fin
clearWindow