PureBoard

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

PureGolf mit TicTacToe

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

Seite 15 von 22

Verfasst: 01.02.2006 13:36
von NicTheQuick

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,"POP")) 
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<>9
  x=WindowEvent()
  O=EventwParam()
  If x=13100 AND T(O)=0
    T(O)=P+1 
    z=Chr(t+P)
    P!1 
    x=S(O,z) 
    S(9,Chr(t+P)+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 
Wend
Edit by freedimension: Argghhhh, Sorry Nic - Ich dachte wirklich ich hätte auf Zitat gedrückt gehabt :(

Verfasst: 01.02.2006 14:09
von nco2k
547 heisst aber jetzt nicht mehr POP sondern FG. :mrgreen:

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,"FG"))
TextGadget(9,t,t*3,t,20,"F"+s)
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
While O<>9
  x=WindowEvent()
  O=EventwParam()
  If x=13100
    If T(O)=0
      T(O)=P+1
      z=Chr(t+P)
      P!1
      x=S(O,z)
      S(9,Chr(t+P)+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
ansonsten 551 aber dafür POP:

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,"POP")) 
TextGadget(9,t,t*3,t,20,"O"+s) 
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<>9 
  x=WindowEvent() 
  O=EventwParam() 
  If x=13100 
    If T(O)=0 
      T(O)=P+1 
      z=Chr(t+P) 
      P!1 
      x=S(O,z) 
      S(9,Chr(t+P)+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
sucht es euch aus. :lol:

c ya,
nco2k

Verfasst: 01.02.2006 14:13
von nco2k
533

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,"FG")) 
TextGadget(9,t,t*3,t,20,"F"+s) 
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 
While O<>9 
  x=WindowEvent() 
  O=EventwParam() 
  If x=13100 
    T(O)=P+1 
    z=Chr(t+P) 
    P!1 
    x=S(O,z) 
    S(9,Chr(t+P)+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 
Wend
gilt das?

ansonsten einfach If x=13100 And T(O)=0 sind dann 544 zeichen.

c ya,
nco2k

Verfasst: 01.02.2006 14:43
von NicTheQuick
511!

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
Dim T(9)
s.s=" turn" 
t=65 
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"FG")) 
TextGadget(9,t,t*3,t,20,"F"+s) 
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

While O<>9 
  x=WindowEvent() 
  O=EventwParam() 
  If x=13100 
    If T(O)=0
      T(O)=P+1 
      z=Chr(t+P) 
      P!1 
      x=S(O,z) 
      For i=S(9,Chr(t+P)+s) 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,"") 
          Next 
          P=S(9,z+" wins") 
        EndIf 
        x+3 
      Next 
    EndIf
  EndIf 
Wend
freedimension:
tststststs....
Böser Junge!

Na jetzt siehts so aus als wär ich es gewesen. :mrgreen:

@ts-soft:
Sortierung muss nicht sein:
92!

Code: Alles auswählen

Dim a(54) 
While c<6 
  b=Random(48)+6 
  If a(b)=0 
    a(b)=1 
    a(c)=b-5
    c+1 
  EndIf  
Wend 
For d=0 To5
  Debug a(d)
Next

Verfasst: 01.02.2006 14:58
von HeX0R
509

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
Dim T(9)
t=65 
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"FG")) 
TextGadget(9,t,t*3,t,20,"F turn") 
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 

While O<>9 
  x=WindowEvent() 
  O=EventwParam() 
  If x=13100 
    If T(O)=0 
      T(O)=P+1 
      z=Chr(t+P) 
      P!1 
      x=S(O,z) 
      For i=S(9,Chr(t+P)+" turn") 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,"") 
          Next 
          P=S(9,z+" wins") 
        EndIf 
        x+3 
      Next 
    EndIf 
  EndIf 
Wend

Verfasst: 01.02.2006 14:58
von nco2k
508

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
Dim T(9) 
s.s=" turn" 
t=65 
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"AB")) 
TextGadget(9,t,t*3,t,20,"A"+s) 
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 

While O<>9 
  x=WindowEvent() 
  O=EventwParam() 
  If x=13100 And T(O)=0 
    T(O)=P+1 
    z=Chr(t+P) 
    P!1 
    x=S(O,z) 
    For i=S(9,Chr(t+P)+s) 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,"") 
        Next 
        P=S(9,z+" wins") 
      EndIf 
      x+3 
    Next 
  EndIf 
Wend
brauchen wir überhaupt das And T(O)=0 ?

c ya,
nco2k

Verfasst: 01.02.2006 15:01
von HeX0R
506

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
Dim T(9) 
t=65 
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"AB")) 
TextGadget(9,t,t*3,t,20,"A turn") 
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 

While O<>9 
  x=WindowEvent() 
  O=EventwParam() 
  If x=13100 And T(O)=0 
    T(O)=P+1 
    z=Chr(t+P) 
    P!1 
    x=S(O,z) 
    For i=S(9,Chr(t+P)+" turn") 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,"") 
        Next 
        P=S(9,z+" wins") 
      EndIf 
      x+3 
    Next 
  EndIf 
Wend

Verfasst: 01.02.2006 15:02
von nco2k
hehe ich wusste dass das jetzt kommt. :mrgreen:

c ya,
nco2k

Verfasst: 01.02.2006 15:07
von HeX0R
Ich hab mir aber lange genug damit Zeit gelassen...
Wenn du halt ned magst :mrgreen:

Übrigens, da das Disablen der Buttons weg is, brauchen wir die Überprüfung T(O)=0

Verfasst: 01.02.2006 16:04
von Then
1er geht noch.... :D

501 :

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
Dim T(9) 
t=65 
CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB")) 
TextGadget(9,t,t*3,t,20,"A =>")                           ;- "turn" geändert 
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 

While O<>9 
  x=WindowEvent() 
  O=EventwParam() 
  If x=13100 And T(O)=0
    T(O)=P+1 
    z=Chr(t+P) 
    P!1 
    x=S(O,z) 
    For i=S(9,"=> "+Chr(t+P)) To2                ;- turn entfernt
      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,"") 
        Next 
        P=S(9,z+" won")                                ;- "wins" gegen "won"
      EndIf 
      x+3 
    Next 
  EndIf 
Wend
Gramatikalisch heißts ja WON stat WINS (lt. Google)
Alle Zeiten sind UTC+02:00
Seite 15 von 22

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de