37 lines
737 B
Plaintext
37 lines
737 B
Plaintext
|
extern "grogs"
|
||
|
|
|
||
|
|
fun -list !init
|
||
|
|
setlist &keyChecks 32 97
|
||
|
|
setlist &keyDown false false
|
||
|
|
setlist &keyTracker $keyChecks $keyDown
|
||
|
|
return $keyTracker
|
||
|
|
endfun
|
||
|
|
|
||
|
|
fun -int !keyPressed -list &keyTracker
|
||
|
|
getlistat &keyTracker 0 &keyChecks
|
||
|
|
getlistat &keyTracker 1 &keyDown
|
||
|
|
|
||
|
|
!grogs:getLastKey &key
|
||
|
|
set &idx 0
|
||
|
|
getlistsize &keyChecks &len
|
||
|
|
@loop
|
||
|
|
equal $idx $len &cond
|
||
|
|
if $cond %false
|
||
|
|
|
||
|
|
getlistat &keyChecks $idx &store
|
||
|
|
equal $store $key &cond
|
||
|
|
getlistat &keyDown $idx &store
|
||
|
|
inequal $cond $store &cond
|
||
|
|
if $cond %true
|
||
|
|
|
||
|
|
add $idx 1 &idx
|
||
|
|
jump %loop
|
||
|
|
|
||
|
|
@true
|
||
|
|
getlistat &keyChecks $idx &store
|
||
|
|
return $store
|
||
|
|
|
||
|
|
@false
|
||
|
|
return -1
|
||
|
|
endfun
|