PureGolf mit TicTacToe

[Batze]

etwas gewagt

[freedimension]

Kann das mal jemand für mich zählen:

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure
y=24
t=65
Dim T(CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB")))
For a=0 To9
  ButtonGadget(a,t*a%3,a/3*t,t,t,z.s)
  TextGadget(9,t,t*3,t,y,"=> A")
  SetGadgetFont(a,LoadFont(a,z,y-a/9*12))
Next
While O<>9
  x=WindowEvent()
  O=EventwParam()&$F
  If x-T(O)=13100
    T(O)=P+1
    z=Chr(t+P)
    P!1
    x=S(O,z)
    For i=S(9,"=> "+Chr(t+P))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+" won")
      EndIf
      x+3
    Next
  EndIf
Wend

[ts-soft]

Kann das mal jemand für mich zählen:

472

[freedimension]

Danke

[Stefan]

469

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure  
t=65 
Dim T(CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB"))) 
For a=0 To9 
  ButtonGadget(a,t*a%3,a/3*t,t,t,z.s) 
  TextGadget(9,t,t*3,t,t,"=> A") 
  SetGadgetFont(a,LoadFont(a,z,24-a/9*12)) 
Next 
While O<>9 
  x=WindowEvent() 
  O=EventwParam()&$F 
  If x-T(O)=13100 
    T(O)=P+1 
    z=Chr(t+P) 
    P!1 
    x=S(O,z) 
    For i=S(9,"=> "+Chr(t+P))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+" won") 
      EndIf 
      x+3 
    Next 
  EndIf 
Wend 

[freedimension]

Wenn mich nicht alles täuscht sind es damit 463

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure  
t=65 
Dim T(CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB"))) 
For a=0 To9 
  ButtonGadget(a,t*a%3,a/3*t,t,t,z.s) 
  TextGadget(9,t,t*3,t,t,"=> A") 
  SetGadgetFont(a,LoadFont(a,z,24-a/9*12)) 
Next 
While O<>9 
  x=WindowEvent() 
  O=EventwParam()&$F 
  If x-T(O)=13100 
    T(O)=P+1 
    z=Chr(t+P) 
    P!1 
    x=S(O,z) 
    For i=S(9,"=> "+Chr(t+P))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+" won") 
      EndIf 
      x+3 
    Next 
  EndIf 
Wend

[Stefan]

Jetzt sind es 463 !

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure  
t=65 
Dim T(CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB"))) 
For a=0 To9 
  ButtonGadget(a,t*a%3,a/3*t,t,t,z.s) 
  TextGadget(9,t,t*3,t,t,"=> A") 
  SetGadgetFont(a,LoadFont(a,z,24-a/9*12))
Next 
While O<>9 
  x=WindowEvent() 
  O=EventwParam()&$F 
  If x-T(O)='3,' 
    T(O)=P+1 
    z=Chr(t+P) 
    P!1 
    x=S(O,z) 
    For i=S(9,"=> "+Chr(t+P))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+" won") 
      EndIf 
      x+3 
    Next 
  EndIf 
Wend 

[freedimension]

Argh, das Leerzeichen. Klar!

[HeX0R]

461

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure 
t=65
Dim T(CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB")))
For a=0 To9
  ButtonGadget(a,t*a%3,a/3*t,t,t,z.s)
  TextGadget(9,t,t*3,t,t,"=> A")
  SetGadgetFont(a,LoadFont(a,z,24-a/9*12))
Next
While O<>9
  x=WindowEvent()-'3,'
  O=EventwParam()&$F
  If x=T(O)
    T(O)=P+1
    z=Chr(t+P)
    P!1
    S(O,z)
    For i=S(9,"=> "+Chr(t+P))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+" won")
      EndIf
      x+3
    Next
  EndIf
Wend

[HeX0R]

übrigens sehr genial mit dem '3,' Stefan