XProfan

Titre de la fenêtre "    J A G '   D E N   W U M P U S"
Fenêtre Style 24
CLS
Font 2
Randomiser
Déclarer RO&[20,3],LO&[20],WPOS&
declare i&,j&,T&,i$,k$
Déclarer L&,ARROWS&,DATA$

Proc MON :parameters x&

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

ENDPROC

Proc CHK :parameters x&

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

ENDPROC

Proc FLUTTER

    Repeat

        L&=RND(19)+1

    UNTIL I&<>L&

ENDPROC

' Erzeuge cela 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&=&Boucle

    LO&[I&]=0

    Whileloop 3:j&=&Boucle

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

    Endwhile

Endwhile

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

Whileloop 2,5:i&=&Boucle

    Repeat

        T&=RND(19)+2

    UNTIL LO&[T&]=0

    LO&[T&]=I&

Endwhile

START:
ARROWS&=5'Anzahl Pfeile
L&=1'Start-Location = Höhle 1
CLS 0
' Hauptschleife

WHILE 1

    cas %csrlin>12:cls 0
    color 10,0
    PRINT
    PRINT "  tu es dans Höhle ";L&;"."
    PRINT "  Tunnels mener le Höhlen ";RO&[L&,1];", ";RO&[L&,2];" et ";RO&[L&,3];"."
    PRINT
    color 0,14
    Cas MON(1):PRINT "  dans qui Nähe stinkt quelque chose bestialisch!"
    Cas MON(2) OU MON(3):PRINT "  Du hörst quelque chose flattern."
    Cas MON(4) OU MON(5):PRINT "  un eiskalter Wind bläst aus einer angrenzenden Höhle."
    color 3,13
    PRINT "  flèche schiessen ou bien weiterMarschieren? [S,M]"

    Repeat

        K$=Upper$(GETKEY$())

    UNTIL (K$="S") OU (K$="M")

    imprimer

    IF K$="M"' Move

        color 0,15
        imprimer "  trop Höhle Nr. ?",:INPUT I&
        imprimer

        IF CHK(I&)

            L&=I&

        ELSE

            PRINT "  allez pas."

        ENDIF

    ELSE' Shoot

        color 2,14
        PRInt "  dans quelle Höhle schießen?",:INPUT I&
        imprimer

        IF CHK(I&)

            IF LO&[I&]=1

                color 4,11
                PRINT "  DU HAST DAS WUMPUS-MONSTER ERLEGT!"
                PRINT "  Gratulation, tu as gewonnen!"
                BREAK

            ELSE

                color 11,4
                PRINT "  Pfeile rendez-vous pas so oui c'est ca -"
                imprimer "  versuche es dans einer anderen Höhle..."

                IF RND(4)<3

                    color 5,12
                    PRINT "  tu as den Wumpus geweckt et vertrieben."
                    LO&[WPOS&]=0:WPOS&=RO&[WPOS&,RND(2)+1]:LO&[WPOS&]=1

                ENDIF

                Décembre ARROWS&

                IF ARROWS&=0

                    color 12,5
                    PRINT "  tu as malheureusement aucun Pfeile plus!"
                    BREAK

                Endif

            ENDIF

        ELSE

            color 0,15
            PRINT "  pas possible."

        ENDIF

    ENDIF

    SELECT LO&[L&]

        CASEof 1:color 13,2:PRINT "  qui Wumpus hat toi soeben GEFRESSEN!":BREAK

        CASEof 2,3:color 2,13:PRINT "  une Riesenfledermaus trägt toi woanders hin!":I&=L&

        FLUTTER
        OTHERWISE

    ENDSELECT

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

        color 4,10
        PRINT "  Du fällst ins Bodenlose..."
        Imprimer "  Dein vivre ist verwirkt!  "
        BREAK

    Endif

ENDWHILE

Color 15,0:Imprimer:Imprimer "Nochmal?",:Contribution i$
cas upper$(i$)="J":goto "START"
imprimer "  merci pour cela Spiel! Bye!"
waitinput 1500
FIN