Scrolling Text

[1micha.elok]

This is my version of scrolling text , very simple ....

Code:

set window "scrolling text",1000,500,false
set redraw off

'color definition
visible white = [255,255,255]
visible black = [0,0,0]

Closing_Credits()

'scrolling text
function Closing_Credits()
    words = []
    words[1] = "CLOSING CREDITS"
    words[2] = ""   
    words[3] = ""
    words[4] = "A special thanks to Marcus, the creator of Naalaa" 
    words[5] = "for his dedication, support and encouragement"
    words[6] = "in the making of this tiny game."
    words[7] = ""
    words[8] = "I really appreciate his stepping in"
    words[9] = "to develop the fantastic game engine and its supporting libraries"
    words[10] = "I know he had to put in extra hours"
    words[11] = "to catch up on his own work, so thank you very much."
    words[12] = "Your expertise was vital for this tiny game."
    words[13] = ""
    words[14] = "Heartfelt thanks to all the talented artists"
    words[15] = "who created the amazing game assets"
    words[16] = "I couldn't have made this game without them"
    words[17] = ""
    words[18] = ""
    words[19] = ""
    words[20] = "Game assets"
    words[21] = "Building Pixel by LandEnd Studios https://isaquerr.itch.io/building-pixel"
    words[22] = "Free 3D Fps-Shooter Models | TurboSquid https://images.app.goo.gl/NQtoZhALCWDoYFPp6"
    words[23] = "Stealth Battle background music by Mark, meak363 from Pixabay.com"
    words[24] = "Different kinds of weapons such as trident, hands, crossbow of The Spriting Dark Carnival"
    words[25] = "  https://www.altarofstone.com/forums/viewtopic.php?t=42"   
    words[26] = "Man's Silhouette https://pixabay.com/vectors/man-silhouette-male-people-4329249/"
    words[27] = "Monster https://images.app.goo.gl/6HiZncjYoCaJ7zSr9"

    'text animation of the closing credits
    for i = height(primary)-30 to 30
        set color black; cls; set color white
        set caret width(primary)/2,i
        for j = 1 to 27
            center words[j]
        next
        redraw
        fwait 30
    next
    do; wait 1; until keydown(KEY_RETURN,true)
endfunc

Another simple text game ...

Code:

pln "=============="
pln "  Math Exam   "
pln "=============="

for a = 1 to 100
    number1 = rnd(100)
    number2 = rnd(100)
    result  = number1 + number2
   
    pln number1+" + "+number2+" = "
    answer = rln()
    if answer = result then
        pln "Genius"
    else
        pln "Wrong answer"
    endif
   
    pln
   
    wait 300
next

pln
pln "Press ENTER to exit"
tmp = rln()