PureGolf mit TicTacToe

[HeX0R]

437

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure
t=65
z.s="=> A"
1:
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,"")
  TextGadget(9,t,t*3,t,t,z)
  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+3)&T(i+6))|(T(4)&T(8-i))&T(i)
        z+" won"
        Goto 1
      EndIf
      x+3
    Next
  EndIf
Wend 

[Stefan]

436

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
t=65 
z.s="=> A" 
!Q: 
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,"") 
  TextGadget(9,t,t*3,t,t,z) 
  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+3)&T(i+6))|(T(4)&T(8-i))&T(i) 
        z+" won" 
        JZ Q
      EndIf 
      x+3 
    Next 
  EndIf 
Wend
; IDE Options = PureBasic v3.94 (Windows - x86) (Demo)
; CursorPosition = 23
; FirstLine = 7
; Folding = -
; EnableAsm

[MLK]

soweit ich mich erinnere ist asm nicht erlaubt

[HeX0R]

Laut Regeln schon

[Stefan]

doch:

Programmiert wird in PureBasic 3.8. Erlaubt sind nur PureBasic-Befehle, Inline-Assembler und die WinAPI, keine Extra-Libraries, keine DLLs.

[Stefan]

Hat keiner mehr Lust mitzumachen ?

[HeX0R]

Ich habs aufgegeben

[ts-soft]

Mit Macros muß es doch kleiner werden

[Stefan]

435

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
t=65 
z.s="=> A" 
!Q: 
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,"") 
  TextGadget(9,t,t*3,t,t,z) 
  SetGadgetFont(a,LoadFont(a,z,24-a/9*12)) 
Next 
While O-9 
  x=WindowEvent()-'3,' 
  O=EventwParam()%t
  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+3)&T(i+6))|(T(4)&T(8-i))&T(i) 
        z+" won" 
        JZ Q 
      EndIf 
      x+3 
    Next 
  EndIf 
Wend 
; IDE Options = PureBasic v3.94 (Windows - x86) (Demo) 
; CursorPosition = 23 
; FirstLine = 7 
; Folding = - 
; EnableAsm

[edel]

Ich kenne die Regeln nicht aber ohne die Procedure s[...] sind es 412.
Hat das jetzt nen Grund warum die keiner heraus nimmt ?