PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

PureGolf mit TicTacToe

https://www.purebasic.fr/german/viewtopic.php?t=6728

Seite 7 von 22

Verfasst: 31.01.2006 17:31
von HeX0R
752!

Code: Alles auswählen

Dim T(9)
s.s=" ist dran"
t=79
c=190
CreateGadgetList(OpenWindow(0,0,0,c,250,1,"TicTacToe"))
For a=0 To8
  ButtonGadget(a,70*a%3,70*(a/3),50,50,"")
  SetGadgetFont(a,LoadFont(a,"",24))
Next
TextGadget(9,0,c,c,20,"O"+s,1)
c/2
ButtonGadget(c,0,220,c,30,"Neu")
ButtonGadget(t,c,220,c,30,"Ende")
SetGadgetFont(9,LoadFont(9,"",12))
1:
  w=WindowEvent()
  If w>999
    O=EventwParam()
    If O=t
      End
    ElseIf O=c
      For a=0 To9
        T(a)=0
        SetGadgetText(a,"")
        DisableGadget(a,0)
      Next
      P=0
    Else
      If T(O)=0
        T(O)=P+SetGadgetText(9,Chr(t+P!1*9)+s)
        DisableGadget(O,SetGadgetText(O,Chr(t+P*9)))
        j=P+1
        For i=0 To2
          x=i*3
          If T(x)&T(x+1)&T(x+2)=j Or T(i)&T(i+3)&T(i+6)=j Or T(0)&T(4)&T(8)=j Or T(2)&T(4)&T(6)=j
            SetGadgetText(9,Chr(t+P*9)+" gewinnt")
            For a=0 To8
              DisableGadget(a,1)
            Next
          EndIf
        Next
        P!1
      EndIf
    EndIf
  EndIf
Goto 1

Verfasst: 31.01.2006 17:33
von Franky
@Nic: Das Niveau schaff ich auch :)

735!

Code: Alles auswählen

Procedure S(k,s.s)
   SetGadgetText(k,s)
EndProcedure
Dim T(9)
s.s=" is dran "
t=79
c=190
CreateGadgetList(OpenWindow(0,0,0,c,250,1,"Spiel"))
For a=0 To8
  ButtonGadget(a,70*a%3,70*(a/3),50,50,"")
  SetGadgetFont(a,LoadFont(a,"",24))
Next
TextGadget(9,0,c,c,20,"O"+s,1)
c/2
ButtonGadget(c,0,220,c,30,"Neu")
ButtonGadget(t,c,220,c,30,"Ende")
SetGadgetFont(9,LoadFont(9,"",12))
l:
  w=WindowEvent()
  If w=13100
    O=EventwParam()
    If O=t
      End
    ElseIf O=c
      For a=0 To9
        T(a)=0
        S(a,"")
        DisableGadget(a,0)
      Next
      p=0
    Else
      If T(O)=0
        T(O)=p+1
        DisableGadget(O,1)
        S(O,Chr(t+p*9))
        S(9,Chr(t+p!1*9)+s)
        j=p+1
        For i=0 To2
          x=i*3
          If T(x)&T(x+1)&T(x+2)=j Or T(i)&T(i+3)&T(i+6)=j Or T(0)&T(4)&T(8)=j Or T(2)&T(4)&T(6)=j
            S(9,Chr(t+p*9)+" gewinnt")
            For a=0 To8
              DisableGadget(a,1)
            Next
          EndIf
        Next
        p!1
      EndIf
    EndIf
  EndIf
Goto l
Edit: Ok, ok, wenn ihr "is nu" net versteht ^^

Verfasst: 31.01.2006 17:36
von HeX0R
730

Code: Alles auswählen

Procedure S(k,s.s)
   SetGadgetText(k,s)
EndProcedure
Dim T(9)
s.s=" is nu "
t=79
c=190
CreateGadgetList(OpenWindow(0,0,0,c,250,1,"Spiel"))
For a=0 To8
  ButtonGadget(a,70*a%3,70*(a/3),50,50,"")
  SetGadgetFont(a,LoadFont(a,"",24))
Next
TextGadget(9,0,c,c,20,"O"+s,1)
c/2
ButtonGadget(c,0,220,c,30,"Neu")
ButtonGadget(t,c,220,c,30,"End")
SetGadgetFont(9,LoadFont(9,"",12))
l:
  w=WindowEvent()
  If w>999
    O=EventwParam()
    If O=t
      End
    ElseIf O=c
      For a=0 To9
        T(a)=0
        S(a,"")
        DisableGadget(a,0)
      Next
      p=0
    Else
      If T(O)=0
        T(O)=p+1
        DisableGadget(O,1)
        S(O,Chr(t+p*9))
        S(9,Chr(t+p!1*9)+s)
        j=p+1
        For i=0 To2
          x=i*3
          If T(x)&T(x+1)&T(x+2)=j Or T(i)&T(i+3)&T(i+6)=j Or T(0)&T(4)&T(8)=j Or T(2)&T(4)&T(6)=j
            S(9,Chr(t+p*9)+" gewinnt")
            For a=0 To8
              DisableGadget(a,1)
            Next
          EndIf
        Next
        p!1
      EndIf
    EndIf
  EndIf
Goto l

Verfasst: 31.01.2006 17:37
von MLK
damit unsere friends auch mitmachen können ;-)

728

Code: Alles auswählen

Procedure S(k,s.s) 
   SetGadgetText(k,s) 
EndProcedure 

Dim T(9) 
s.s="'s turn" 
t=79 
c=190 
CreateGadgetList(OpenWindow(0,0,0,c,250,1,"Game")) 
For a=0 To8 
  ButtonGadget(a,70*a%3,70*(a/3),50,50,"") 
  SetGadgetFont(a,LoadFont(a,"",24)) 
Next 
TextGadget(9,0,c,c,20,"O"+s,1) 
c/2 
ButtonGadget(c,0,220,c,30,"New") 
ButtonGadget(t,c,220,c,30,"End") 
SetGadgetFont(9,LoadFont(9,"",12)) 
l: 
  w=WindowEvent() 
  If w=13100 
    O=EventwParam() 
    If O=t 
      End 
    ElseIf O=c 
      For a=0 To9 
        T(a)=0 
        S(a,"") 
        DisableGadget(a,0) 
      Next 
      p=0 
    Else 
      If T(O)=0 
        T(O)=p+1 
        DisableGadget(O,1) 
        S(O,Chr(t+p*9)) 
        S(9,Chr(t+p!1*9)+s) 
        j=p+1 
        For i=0 To2 
          x=i*3 
          If T(x)&T(x+1)&T(x+2)=j Or T(i)&T(i+3)&T(i+6)=j Or T(0)&T(4)&T(8)=j Or T(2)&T(4)&T(6)=j 
            S(9,Chr(t+p*9)+" wins") 
            For a=0 To8 
              DisableGadget(a,1) 
            Next 
          EndIf 
        Next 
        p!1 
      EndIf 
    EndIf 
  EndIf 
Goto l

Verfasst: 31.01.2006 17:40
von Franky
Lass ma eben Regel einführen: MLK´s Texte sind jetzt Ultimo, sonst komm ich gleich mit Chinesischen Schriftzeichen an.

Also nix zwischen " und " mehr kürzen bitte (ich tu´s auch net mehr) <)

Achja, und bevor noch wer auf meine Tolle Idee kommt: Bitte die Buttons und Textgadgets in der Größe belassen, 0en sparen is toll, aber auf 5*5-Button klicken is so schwer ;)

Verfasst: 31.01.2006 17:41
von NicTheQuick
726!

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 

Dim T(9) 
s.s="'s turn" 
t=79 
c=190 
CreateGadgetList(OpenWindow(0,0,0,c,250,1,"Game")) 
For a=0 To8 
  ButtonGadget(a,70*a%3,70*(a/3),50,50,"") 
  SetGadgetFont(a,LoadFont(a,"",24)) 
Next 
TextGadget(9,0,c,c,20,"O"+s,1) 
c/2 
ButtonGadget(c,0,220,c,30,"New") 
ButtonGadget(t,c,220,c,30,"End") 
SetGadgetFont(9,LoadFont(9,"",12)) 
l: 
  w=WindowEvent() 
  If w>999
    O=EventwParam() 
    If O=t 
      End 
    ElseIf O=c 
      For a=0 To9 
        T(a)=0 
        S(a,"") 
        DisableGadget(a,0) 
      Next 
      P=0 
    Else 
      If T(O)=0 
        T(O)=P+1 
        DisableGadget(O,1) 
        S(O,Chr(t+P*9)) 
        S(9,Chr(t+P!1*9)+s) 
        j=P+1 
        For i=0 To2 
          x=i*3 
          If T(x)&T(x+1)&T(x+2)=j Or T(i)&T(i+3)&T(i+6)=j Or T(0)&T(4)&T(8)=j Or T(2)&T(4)&T(6)=j 
            S(9,Chr(t+P*9)+" wins") 
            For a=0 To8 
              DisableGadget(a,1) 
            Next 
          EndIf 
        Next 
        P!1 
      EndIf 
    EndIf 
  EndIf 
Goto l

Verfasst: 31.01.2006 17:47
von MLK
725 :-D

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 

Dim T(9) 
s.s="'s turn" 
t=79 
c=190 
CreateGadgetList(OpenWindow(0,0,0,c,250,1,"Game")) 
For a=0 To8 
  ButtonGadget(a,70*a%3,70*(a/3),50,50,"") 
  SetGadgetFont(a,LoadFont(a,"",24)) 
Next 
TextGadget(9,0,c,c,20,"O"+s,1) 
c/2 
ButtonGadget(c,0,220,c,30,"New") 
ButtonGadget(t,c,220,c,30,"End") 
SetGadgetFont(9,LoadFont(9,"",12)) 
l: 
  w=WindowEvent() 
  If w>999 
    O=EventwParam() 
    If O=t 
      End 
    ElseIf O=c 
      For a=0 To9 
        T(a)=0 
        S(a,"") 
        DisableGadget(a,0)
      Next 
      P=0 
    Else 
      If T(O)=0 
        T(O)=P+1 
        S(O,Chr(t+P*9)) 
        S(9,Chr(t+P!1*9)+s) 
        j=P+1 
        For i=DisableGadget(O,1) To2 
          x=i*3 
          If T(x)&T(x+1)&T(x+2)=j Or T(i)&T(i+3)&T(i+6)=j Or T(0)&T(4)&T(8)=j Or T(2)&T(4)&T(6)=j 
            S(9,Chr(t+P*9)+" wins") 
            For a=0 To8 
              DisableGadget(a,1) 
            Next 
          EndIf 
        Next 
        P!1 
      EndIf 
    EndIf 
  EndIf 
Goto l

Verfasst: 31.01.2006 17:48
von Franky
@Nic: deins stürzt bei mir ab

MLK, deins auch

Verfasst: 31.01.2006 17:49
von HeX0R
724

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure

Dim T(9)
s.s="'s turn"
z.s
t=79
c=190
CreateGadgetList(OpenWindow(0,0,0,c,250,1,"Game"))
For a=0 To8
  ButtonGadget(a,70*a%3,70*(a/3),50,50,z)
  SetGadgetFont(a,LoadFont(a,z,24))
Next
TextGadget(9,0,c,c,20,"O"+s,1)
c/2
ButtonGadget(c,0,220,c,30,"New")
ButtonGadget(t,c,220,c,30,"End")
SetGadgetFont(9,LoadFont(9,z,12))
l:
  w=WindowEvent()
  If w>999
    O=EventwParam()
    If O=t
      End
    ElseIf O=c
      For a=0 To9
        T(a)=0
        S(a,z)
        DisableGadget(a,0)
      Next
      P=0
    Else
      If T(O)=0
        T(O)=P+1
        S(O,Chr(t+P*9))
        S(9,Chr(t+P!1*9)+s)
        j=P+1
        For i=DisableGadget(O,1) To2
          x=i*3
          If T(x)&T(x+1)&T(x+2)=j Or T(i)&T(i+3)&T(i+6)=j Or T(0)&T(4)&T(8)=j Or T(2)&T(4)&T(6)=j
            S(9,Chr(t+P*9)+" wins")
            For a=0 To8
              DisableGadget(a,1)
            Next
          EndIf
        Next
        P!1
      EndIf
    EndIf
  EndIf
Goto l

Verfasst: 31.01.2006 17:50
von HeX0R
723

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure

Dim T(9)
s.s="'s turn"
t=79
c=190
CreateGadgetList(OpenWindow(0,0,0,c,250,1,"Game"))
For a=0 To8
  ButtonGadget(a,70*a%3,70*(a/3),50,50,z.s)
  SetGadgetFont(a,LoadFont(a,z,24))
Next
TextGadget(9,0,c,c,20,"O"+s,1)
c/2
ButtonGadget(c,0,220,c,30,"New")
ButtonGadget(t,c,220,c,30,"End")
SetGadgetFont(9,LoadFont(9,z,12))
l:
  w=WindowEvent()
  If w>999
    O=EventwParam()
    If O=t
      End
    ElseIf O=c
      For a=0 To9
        T(a)=0
        S(a,z)
        DisableGadget(a,0)
      Next
      P=0
    Else
      If T(O)=0
        T(O)=P+1
        S(O,Chr(t+P*9))
        S(9,Chr(t+P!1*9)+s)
        j=P+1
        For i=DisableGadget(O,1) To2
          x=i*3
          If T(x)&T(x+1)&T(x+2)=j Or T(i)&T(i+3)&T(i+6)=j Or T(0)&T(4)&T(8)=j Or T(2)&T(4)&T(6)=j
            S(9,Chr(t+P*9)+" wins")
            For a=0 To8
              DisableGadget(a,1)
            Next
          EndIf
        Next
        P!1
      EndIf
    EndIf
  EndIf
Goto l
Alle Zeiten sind UTC+02:00
Seite 7 von 22

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de