XProfan

Window Title "    J A G '   D E n   W u M P u S"
Window Style 24
CLS
Font 2
Randomize
Declare RO&[20,3],LO&[20],WPOS&
declare i&,j&,T&,i$,k$
Declare L&,ARROWS&,DATA$

Proc MON :parameters x&

    return (X&=LO&[RO&[L&,1]]) OR (X&=LO&[RO&[L&,2]]) OR (X&=LO&[RO&[L&,3]])

Endproc

Proc CHK :parameters x&

    return (X&=RO&[L&,1]) OR (X&=RO&[L&,2]) OR (X&=RO&[L&,3])

ENDPROC

Proc FLUTTER

    Repeat

        L&=RND(19)+1

    UNTIL I&<>L&

ENDPROC

' beget the Höhlensystem:
DATA$="2,6,5,3,8,1,4,10,2,5,2,3,1,14,4,15,1,7,17,6,8,7,2,9,18,8,10,9,3,11"+\
"19,10,12,11,4,13,20,12,14,5,11,13,6,16,14,20,15,17,16,7,18,17,9,19,18,11,20,19,13,16"

Whileloop 20:i&=&Loop

    LO&[I&]=0

    Whileloop 3:j&=&Loop

        RO&[I&,J&]=Val(Substr$(Data$,3*(i&-1)+j&,","))

    Endwhile

Endwhile

WPOS&=RND(19)+2
LO&[WPOS&]=1

Whileloop 2,5:i&=&Loop

    Repeat

        T&=RND(19)+2

    UNTIL LO&[T&]=0

    LO&[T&]=I&

Endwhile

START:
ARROWS&=5'amount Pfeile
L&=1'Start-Location = hollow 1
CLS 0
' Hauptschleife

WHILE 1

    case %csrlin>12:cls 0
    color 10,0
    PRINT
    PRINT "  you are in hollow ";L&;"."
    PRINT "  tunnel make for whom holes ";RO&[L&,1];", ";RO&[L&,2];"And ";RO&[L&,3];"."
    PRINT
    color 0,14
    Case MON(1):PRINT "  in the sew stink something bestialisch!"
    Case MON(2) OR MON(3):PRINT "  you hear something to flutter."
    Case MON(4) OR MON(5):PRINT "  One eiskalter wind bläst a angrenzenden hollow."
    color 3,13
    PRINT "  arrow shooting or weiterMarschieren? [s,M]"

    Repeat

        k$=Upper $(GETKEY$())

    UNTIL (k$="S") OR (k$="M")

    print

    IF k$="M"' Move

        color 0,15
        print "  To hollow Nr. ?",:INPUT I&
        print

        IF CHK(I&)

            L&=I&

        ELSE

            PRINT "  No way."

        ENDIF

    ELSE' Shoot

        color 2,14
        PRInt "  In which hollow schießen?",:INPUT I&
        print

        IF CHK(I&)

            IF LO&[I&]=1

                color 4,11
                PRINT "  DU HAST DAS WUMPUS-MONSTER ERLEGT!"
                PRINT "  Congratulations, you have won!"
                BREAK

            ELSE

                color 11,4
                PRINT "  Pfeile meet not as accurate -"
                print "  try it in a others hollow..."

                IF RND(4)<3

                    color 5,12
                    PRINT "  you have whom Wumpus geweckt and vertrieben."
                    LO&[WPOS&]=0:WPOS&=RO&[WPOS&,RND(2)+1]:LO&[WPOS&]=1

                ENDIF

                Dec ARROWS&

                IF ARROWS&=0

                    color 12,5
                    PRINT "  you have unfortunately no Pfeile More!"
                    BREAK

                Endif

            ENDIF

        ELSE

            color 0,15
            PRINT "  you don't say so."

        ENDIF

    ENDIF

    SELECT LO&[L&]

        CASEof 1:color 13,2:PRINT "  The Wumpus has you soeben GEFRESSEN!":BREAK

        CASEof 2,3:color 2,13:PRINT "  an Riesenfledermaus carry you elsewhere there!":I&=L&

        FLUTTER
        OTHERWISE

    ENDSELECT

    IF (LO&[L&]=4) OR (LO&[L&]=5)

        color 4,10
        PRINT "  You drop in that Bodenlose..."
        Print "  your life is verwirkt!  "
        BREAK

    Endif

ENDWHILE

Color 15,0:Print:Print "Nochmal?",:Input i$
case upper$(i$)="J":goto "START"
print "  thanks for the game! Bye!"
waitinput 1500
END