PureBoard

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

PureGolf mit TicTacToe

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

Seite 11 von 22

Verfasst: 31.01.2006 21:47
von MLK
nco2k hat geschrieben:@MLK
ja gut, dafür ist die schrift am anfang nicht in der gewünschten grösse und wird jedesmal neu gesetzt/geladen, pro schleifendurchgang. da ist mir die version von Stefan lieber.
schaus dir noch mal an, habe es 2 minuten nach posten editiert. es ist alles so wie vorher - nur kürzer.

Verfasst: 31.01.2006 21:52
von nco2k
@MLK
:lol: :allright:

c ya,
nco2k

Verfasst: 31.01.2006 21:56
von Then
568 :

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
Dim T(9) 
s.s=" turn" 
t=79
c=190 
CreateGadgetList(OpenWindow(0,0,0,c,210,$C80001,"XXO")) 
TextGadget(9,0,c,c,20,"O"+s,1) 
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8 
 ButtonGadget(a,70*a%3,a/3*70,50,50,z) 
 SetGadgetFont(a,LoadFont(a,z,24)) 
Next 
Repeat
 w=WindowEvent() 
 If w>999 
  O=EventwParam() 
  If T(O)=0 
   T(O)=P+1 
   h.s=Chr(t+P*9) 
   S(O,h) 
   S(9,Chr(t+P!1*9)+s) 
   For i=DisableGadget(O,1) To2 
    x=i*3 
    If (T(x)&T(x+1)&T(x+2))|(T(i)&T(i+3)&T(i+6))|(T(i)&T(4)&T(8-i)) 
     For a=0 To9 
      T(a)=S(a,z)  
      DisableGadget(a,0) 
     Next 
     P=S(9,h+" wins")  
    EndIf 
   Next 
   P!1 
  EndIf 
 EndIf
Until w=16

Verfasst: 31.01.2006 21:59
von Then
567 :

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
Dim T(9) 
s.s=" turn" 
t=79
c=190 
CreateGadgetList(OpenWindow(0,0,0,c,210,$C80001,"XXO")) 
TextGadget(9,0,c,c,20,"O"+s,1) 
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8 
 ButtonGadget(a,70*a%3,a/3*70,50,50,z) 
 SetGadgetFont(a,LoadFont(a,z,24)) 
Next 
While w<>16
 w=WindowEvent() 
 If w>999 
  O=EventwParam() 
  If T(O)=0 
   T(O)=P+1 
   h.s=Chr(t+P*9) 
   S(O,h) 
   S(9,Chr(t+P!1*9)+s) 
   For i=DisableGadget(O,1) To2 
    x=i*3 
    If (T(x)&T(x+1)&T(x+2))|(T(i)&T(i+3)&T(i+6))|(T(i)&T(4)&T(8-i)) 
     For a=0 To9 
      T(a)=S(a,z)  
      DisableGadget(a,0) 
     Next 
     P=S(9,h+" wins")  
    EndIf 
   Next 
   P!1 
  EndIf 
 EndIf
Wend

Verfasst: 31.01.2006 22:01
von NicTheQuick
Immer noch 568, aber dafür ohne Fehlerbericht!

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure
Dim T(9)
s.s=" turn"
t=79
c=190
CreateGadgetList(OpenWindow(0,0,0,c,210,$C80001,"XXO"))
TextGadget(9,0,c,c,20,"O"+s,1)
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8
  ButtonGadget(a,70*a%3,a/3*70,50,50,z)
  SetGadgetFont(a,LoadFont(a,z,24))
Next
Repeat
  w=WindowEvent()
  If w=13100
    O=EventwParam()
    If T(O)=0
      T(O)=P+1
      h.s=Chr(t+P*9)
      P!1
      x=S(O,h)
      S(9,Chr(t+P*9)+s)
      For i=DisableGadget(O,1) To2
        If (T(x)&T(x+1)&T(x+2))|(T(i)&T(i+3)&T(i+6))|(T(i)&T(4)&T(8-i))
          For a=0 To9
            T(a)=S(a,z)
            DisableGadget(a,0) 
          Next
          P=S(9,h+" wins")
        EndIf
        x+3
      Next
    EndIf
  EndIf
Until w=16

Verfasst: 31.01.2006 22:05
von NicTheQuick
562! Beenden mit ESC!

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure
Dim T(9)
s.s=" turn"
t=79
c=190
CreateGadgetList(OpenWindow(0,0,0,c,210,1,"XXO"))
TextGadget(9,0,c,c,20,"O"+s,1)
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8
  ButtonGadget(a,70*a%3,a/3*70,50,50,z)
  SetGadgetFont(a,LoadFont(a,z,24))
Next
Repeat
  w=WindowEvent()
  O=EventwParam()
  If w=13100
    If T(O)=0
      T(O)=P+1
      h.s=Chr(t+P*9)
      P!1
      x=S(O,h)
      S(9,Chr(t+P*9)+s)
      For i=DisableGadget(O,1) To2
        If (T(x)&T(x+1)&T(x+2))|(T(i)&T(i+3)&T(i+6))|(T(i)&T(4)&T(8-i))
          For a=0 To9
            T(a)=S(a,z)
            DisableGadget(a,0) 
          Next
          P=S(9,h+" wins")
        EndIf
        x+3
      Next
    EndIf
  EndIf
Until O=27

Verfasst: 31.01.2006 22:08
von MLK
561 ;-)

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
Dim T(9) 
s.s=" turn" 
t=79 
c=190 
CreateGadgetList(OpenWindow(0,0,0,c,210,1,"XXO")) 
TextGadget(9,0,c,c,20,"O"+s,1) 
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8 
  ButtonGadget(a,70*a%3,a/3*70,50,50,z) 
  SetGadgetFont(a,LoadFont(a,z,24)) 
Next 
While O<>27 
  w=WindowEvent() 
  O=EventwParam() 
  If w=13100 
    If T(O)=0 
      T(O)=P+1 
      h.s=Chr(t+P*9) 
      P!1 
      x=S(O,h) 
      S(9,Chr(t+P*9)+s) 
      For i=DisableGadget(O,1) To2 
        If (T(x)&T(x+1)&T(x+2))|(T(i)&T(i+3)&T(i+6))|(T(i)&T(4)&T(8-i)) 
          For a=0 To9 
            T(a)=S(a,z) 
            DisableGadget(a,0) 
          Next 
          P=S(9,h+" wins") 
        EndIf 
        x+3 
      Next 
    EndIf 
  EndIf 
Wend

Verfasst: 31.01.2006 22:09
von Then
560 : (optisch schöner !!)

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
Dim T(9) 
s.s=" turn" 
t=70 
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"XXO")) 
TextGadget(9,0,t*3,t,20,"O"+s,1) 
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8 
  ButtonGadget(a,t*a%3,a/3*t,t,t,z) 
  SetGadgetFont(a,LoadFont(a,z,24)) 
Next 
t+9
Repeat 
  w=WindowEvent() 
  O=EventwParam() 
  If w=13100 
    If T(O)=0 
      T(O)=P+1 
      h.s=Chr(t+P*9) 
      P!1 
      x=S(O,h) 
      S(9,Chr(t+P*9)+s) 
      For i=DisableGadget(O,1) To2 
        If (T(x)&T(x+1)&T(x+2))|(T(i)&T(i+3)&T(i+6))|(T(i)&T(4)&T(8-i)) 
          For a=0 To9 
            T(a)=S(a,z) 
            DisableGadget(a,0) 
          Next 
          P=S(9,h+" wins") 
        EndIf 
        x+3 
      Next 
    EndIf 
  EndIf 
Until O=27

Verfasst: 31.01.2006 22:10
von HeX0R
559

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure
Dim T(9)
s.s=" turn"
t=70
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"XXO"))
TextGadget(9,0,t*3,t,20,"O"+s,1)
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8
  ButtonGadget(a,t*a%3,a/3*t,t,t,z)
  SetGadgetFont(a,LoadFont(a,z,24))
Next
t+9
Repeat
  w=WindowEvent()
  O=EventwParam()
  If w=13100
    If T(O)=0
      T(O)=P+1
      z=Chr(t+P*9)
      P!1
      x=S(O,z)
      S(9,Chr(t+P*9)+s)
      For i=DisableGadget(O,1) To2
        If (T(x)&T(x+1)&T(x+2))|(T(i)&T(i+3)&T(i+6))|(T(i)&T(4)&T(8-i))
          For a=0 To9
            T(a)=S(a,"")
            DisableGadget(a,0)
          Next
          P=S(9,z+" wins")
        EndIf
        x+3
      Next
    EndIf
  EndIf
Until O=27

Verfasst: 31.01.2006 22:15
von Then
wieder 1 !! 558 :

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
Dim T(9) 
s.s=" turn" 
t=70 
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"XXO")) 
TextGadget(9,t,t*3,t,20,"O"+s,1) 
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8 
  ButtonGadget(a,t*a%3,a/3*t,t,t,z) 
  SetGadgetFont(a,LoadFont(a,z,24)) 
Next 
t+9 
While O<>27 
  w=WindowEvent() 
  O=EventwParam() 
  If w=13100 
    If T(O)=0 
      T(O)=P+1 
      z=Chr(t+P*9) 
      P!1 
      x=S(O,z) 
      S(9,Chr(t+P*9)+s) 
      For i=DisableGadget(O,1) To2 
        If (T(x)&T(x+1)&T(x+2))|(T(i)&T(i+3)&T(i+6))|(T(i)&T(4)&T(8-i)) 
          For a=0 To9 
            T(a)=S(a,"") 
            DisableGadget(a,0) 
          Next 
          P=S(9,z+" wins") 
        EndIf 
        x+3 
      Next 
    EndIf 
  EndIf 
Wend
Alle Zeiten sind UTC+02:00
Seite 11 von 22

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de