forked from ground/ground
42 lines
762 B
Plaintext
42 lines
762 B
Plaintext
fun -bool !jumpy
|
|
stdlnout "This is the jumpy function"
|
|
set &counter 0
|
|
jump %inloop
|
|
@jumpback
|
|
stdlnout "Yay I jumped!"
|
|
@inloop
|
|
add 1 $counter &counter
|
|
inequal 10 $counter &out
|
|
stdout "Condition is"
|
|
stdlnout $out
|
|
if $out %jumpback
|
|
stdlnout "Finished"
|
|
return true
|
|
endfun
|
|
|
|
call !jumpy &tmp
|
|
|
|
stdlnout "I called a function"
|
|
|
|
# This function returns a list
|
|
|
|
fun -list !dingus
|
|
stdlnout "Testing lists in functions"
|
|
setlist *dingle "heheheha" "hahahahe" "hmmm"
|
|
return *dingle
|
|
endfun
|
|
|
|
call !dingus *outlist
|
|
|
|
getlistsize *outlist &size
|
|
set &counter 0
|
|
@loopstart
|
|
equal $size $counter &cond
|
|
if $cond %loopend
|
|
getlistat *outlist $counter &tmp
|
|
stdlnout $tmp
|
|
add 1 $counter &counter
|
|
jump %loopstart
|
|
@loopend
|
|
end 0
|