XProfan

Título de la ventana "    J A G '   D E N   W U M P U S"
Ventana de Estilo 24
CLS
Font 2
Selección aleatoria
Declarar RO&[20,3],LO&[20],WPOS&
declarar i&,j&,T&,i$,k$
Declarar L&,ARROWS&,DATA$

Proc MON :parámetros x&

    volver (X&=LO&[RO&[L&,1]]) O (X&=LO&[RO&[L&,2]]) O (X&=LO&[RO&[L&,3]])

ENDPROC

Proc CHK :parámetros x&

    volver (X&=RO&[L&,1]) O (X&=RO&[L&,2]) O (X&=RO&[L&,3])

ENDPROC

Proc FLUTTER

    Repeat

        L&=RND(19)+1

    UNTIL I&<>L&

ENDPROC

' Erzeuge el 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'Anzahl Pfeile
L&=1'Start-Location = Höhle 1
CLS 0
' Hauptschleife

WHILE 1

    caso %csrlin>12:cls 0
    color 10,0
    PRINT
    PRINT "  Usted bist en Höhle ";L&;"."
    PRINT "  Tunnels führen a Höhlen ";RO&[L&,1];", ";RO&[L&,2];" y ";RO&[L&,3];"."
    PRINT
    color 0,14
    Case MON(1):PRINT "  In el Nähe stinkt algo bestialisch!"
    Case MON(2) O MON(3):PRINT "  Usted hörst algo flattern."
    Case MON(4) O MON(5):PRINT "  Ein eiskalter Wind bläst de uno angrenzenden Höhle."
    color 3,13
    PRINT "  Pfeil schiessen oder weiterMarschieren? [S,M]"

    Repeat

        K$=Upper$(GETKEY$())

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

    imprimir

    IF K$="M"' Move

        color 0,15
        imprimir "  Zu Höhle Nr. ?",:INPUT I&
        imprimir

        IF CHK(I&)

            L&=I&

        ELSE

            PRINT "  Geht no."

        ENDIF

    ELSE' Shoot

        color 2,14
        PRInt "  In welche Höhle schießen?",:INPUT I&
        imprimir

        IF CHK(I&)

            IF LO&[I&]=1

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

            ELSE

                color 11,4
                PRINT "  Pfeile treffen no así genau -"
                imprimir "  versuche lo en uno otro Höhle..."

                IF RND(4)<3

                    color 5,12
                    PRINT "  Usted hast el Wumpus geweckt y vertrieben."
                    LO&[WPOS&]=0:WPOS&=RO&[WPOS&,RND(2)+1]:LO&[WPOS&]=1

                ENDIF

                Dec ARROWS&

                IF ARROWS&=0

                    color 12,5
                    PRINT "  Usted hast desafortunadamente no Pfeile mehr!"
                    BREAK

                Endif

            ENDIF

        ELSE

            color 0,15
            PRINT "  No posible."

        ENDIF

    ENDIF

    SELECT LO&[L&]

        CASEof 1:color 13,2:PRINT "  Der Wumpus ha dich soeben GEFRESSEN!":BREAK

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

        FLUTTER
        OTHERWISE

    ENDSELECT

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

        color 4,10
        PRINT "  Usted fällst en el Bodenlose..."
        Imprimir "  Su Leben es verwirkt!  "
        BREAK

    Endif

ENDWHILE

Color 15,0:Imprimir:Imprimir "Nochmal?",:Entrada i$
caso upper$(i$)="J":goto "START"
imprimir "  Gracias para el Spiel! Bye!"
waitinput 1500
FIN