PureGolf mit TicTacToe

DarkDragon · Beitrag von **DarkDragon** » 02.02.2006 19:54

Weniger:

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure
Dim T($F)
t=65
q=t*3
CreateGadgetList(OpenWindow(0,0,0,q,220,1,"AB"))
For a=0 To9
  ButtonGadget(a,t*a%3,a/3*t,t,t,z.s)
  If a>8
    TextGadget(a,t,q,t,20,"=> A")
  EndIf
  SetGadgetFont(a,LoadFont(a,z,24-a*4/3)) 
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

PMV · Beitrag von **PMV** » 02.02.2006 20:13

Weniger:

nö
soweit ich gesehen hab ergibt deine Änderung + 1 Zeichen

MFG PMV

Stefan · Beitrag von **Stefan** » 02.02.2006 20:15

PMV hat geschrieben:
Weniger:
nö
soweit ich gesehen hab ergibt deine Änderung + 1 Zeichen

Und bei dir sind die Buchstaben nicht gleich groß.

DarkDragon · Beitrag von **DarkDragon** » 02.02.2006 20:17

PMV hat geschrieben:
Weniger:
nö
soweit ich gesehen hab ergibt deine Änderung + 1 Zeichen

MFG PMV

NicTheQuick sollte sein tool hier mal reinstellen, habs leider verloren.
[EDIT]
Stimmt. Naja sorry.

PMV · Beitrag von **PMV** » 02.02.2006 20:42

Das Tool wäre wirklich hilfreich ... zum selberproggen is man ja schließlich
zu faul

Hast recht Stefan, aber wenn nicht so, dann halt so:
482

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
Dim T($F) 
t=65
y=24
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) 
  If a>8 
    TextGadget(a,t,t*3,t,20,"=> A")
    y/2
  EndIf 
  SetGadgetFont(a,LoadFont(a,z,y))  
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

MFG PMV

HeX0R · Beitrag von **HeX0R** » 02.02.2006 20:56

481

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure
y=24
Dim T(y)
t=65
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)
  If a>8
    TextGadget(a,t,t*3,t,20,"=> A")
    y/2
  EndIf
  SetGadgetFont(a,LoadFont(a,z,y)) 
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 · Beitrag von **Stefan** » 02.02.2006 20:56

480

Code: Alles auswählen

Procedure S(k,s.s) 
  SetGadgetText(k,s) 
EndProcedure 
y=24
Dim T(y) 
t=65 
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) 
  If a>8 
    TextGadget(a,t,t*3,t,y,"=> A") 
    y/2 
  EndIf 
  SetGadgetFont(a,LoadFont(a,z,y)) 
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

Beitrag von **NicTheQuick** » 02.02.2006 21:00

Ich fass es einfach nicht....

WEITER SO!!

HeX0R · Beitrag von **HeX0R** » 02.02.2006 21:33

[Edit]
Leider stimmte das ned so ganz

HeX0R · Beitrag von **HeX0R** » 02.02.2006 21:52

479

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)
  If a>8
    TextGadget(a,t,t*3,t,y,"=> A")
    y/2
  EndIf
  SetGadgetFont(a,LoadFont(a,z,y))
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

[Edit]
Wieso sagt denn keiner was ?
Bin ich der einzige, der meine eigene Konstruktion etwas gewagt findet ?
Kann CreateGadgetList() auch wirklich keine negativen Werte zurückgeben ?