XProfan

Título de la ventana "DAS SPIEL NIMM"
' (CL) CopyLeft 2014-09 by P. Pájaro carpintero, Wien. Keine sin embargo geartete Gewähr!
' Lo son para el Spieler, el beginnt una Strategie, en él no verlieren kann.
' Zu Beginn nimmt el spätere Gewinner una Streichholz. Dann richtet él se después de seinem
' Gegner o. intenta stets una Viererzahl a erreichen. Denn si él el Gegner en el letzteb
' Zug como Auswahl 4 Hölzchen präsentiert, kann ER el letzte Hölchen nehmen y gewinnt así.
Windowstyle 24:Selección aleatoria : font 2 : declarar b&,m&,h&,x&,y&,s$ : h&=9+rnd(21)
Start:
b&=0:m&=0:CLS
Imprimir "\n Der Zufallsgenerator legt en dieser Runde ";h&;" Hölzchen de."
show h&
Imprimir "\n Wer se beginnen {1=Spieler, 0=Computer}?: ";:Entrada b&
imprimir " --------------------------------------------------------"
Loop:

If b&=0 : cls:imprimir "\n Der Computer es dran."

    más    : imprimir "\n Spieler es dran.     "

endif

inc m& : imprimir "\n ";int(m&/2);". Zug: Noch mentira ";h&;" Hölzchen en el Tisch.\n"
show h&

if b&=0

    ' Gewinn-Zug: Möglichst en una Viererzahl bringen
    x&=h& mod 4:caso x&=0:x&=1'Pech para Compi: 0 va no!
    imprimir " Computer nimmt ";x&;" Hölzchen weg.     ":h&=h&-x&
    más :otra vez:
    imprimir " Wieviele Hölzchen möchten ellos wegnehmen {1,2 oder 3}?: ";:input y&
    caso (y&<1) or (y&>3):goto "nochmal"
    imprimir "\n Spieler ha ";y&;" Hölzchen weggenommen.":h&=h&-y&

endif

b&=not(b&)
imprimir "\n Nach el ";m&;". Zug mentira ahora ";h&;" Hölzchen en el Tisch.\n"
show h&
waitinput 2000

if h&<=0 :imprimir "\n *********************************"

    if b&=0:imprimir " * Spieler gewinnt! Gratulation! *"

        más   :imprimir " *      Computer ha gewonnen.   *"
        endif  :imprimir " *********************************"
        imprimir  "\n Noch una Spiel {1=Ja}?: ";:input s$:caso s$="1":goto "Start"
        imprimir "\n Wiedersehen!":waitinput 6000:end

    más

        imprimir " --------------------------------------------------------"
        waitinput 1000:goto "Loop"

    endif

    FIN

    proc show :parámetros h&

        usepen 1,1,rgb(255,255,255):usebrush 1,rgb(255,255,255)
        rectangle 0,13/20*height(%hwnd) - width(%hwnd),height(%hwnd)

        whileloop h&

            usepen 0,7,rgb(200,200,100)
            line &Loop*width(%hwnd)/30,(14*height(%hwnd)/20) - &Loop*width(%hwnd)/30, 19/20*height(%hwnd)
            usepen 0,14,rgb(230,70,0)
            line &Loop*width(%hwnd)/30,(14*height(%hwnd)/20) - &Loop*width(%hwnd)/30, 14/20*height(%hwnd)

        endwhile

    ENDPROC