[GB] ++dead_orc

[drunken monkey]

Code:

: streq ( addr u addr u -- flag )
rot dup rot =
if
    0 u+do
        2dup c@ swap c@ <>
        if
            2drop 0 leave
        endif
        char+ swap char+
    loop
    0= if
        0
    else
        drop 1
    endif
else
    drop drop drop 0
endif ;

: gb ( addr u -- )
s" dead_orc" streq if
    ." Alles Gute zum Geburtstag!"
else
    ." Was willstn du da?"
endif ;

Auch von mir herzlichen Glückwunsch! ^^

Aber sollte dead_orc nicht ein Objekt (oder zumindest eine Struktur) sein, von dem man höchstens das Alter hochzählen könnte? :P
Oje, schon wieder eine Pseudocode-Diskussion. XD