PureGolf mit TicTacToe

[NicTheQuick]

Na die Procedure wird doch benutzt.

[edel]

Ja ganze 2 mal. Loescht man die Prozedur und schreibt den SetGadgetText
so in den Code, ist es kleiner.

2 x SetGadgetText ist kuerzer als die ganze Prozedur.

Code: Alles auswählen

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
    SetGadgetText(O,z)
    For i=SetGadgetText(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

[Deeem2031]

Dann muss man das aber richtig machen, weil SetGadgetText() 1 zurück gibt:

Code: Alles auswählen

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!SetGadgetText(O,z) 
    SetGadgetText(9,"=> "+Chr(t+P))
    For i=0 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

Wie zählt man das am besten..?

[Edit] Ah, thx. Also: 412

[ts-soft]

Wie zählt man das am besten..?

http://www.robsite.de/puregolf/puregolf_counter.pb

[NicTheQuick]

Hat Deeem2031 hier gewonnen?

Wer macht weiter oder erfindet ein neues PureGolf, diesmal allerdings cross-platform?

[Kiffi]

Wer macht weiter oder erfindet ein neues PureGolf

pbor, PureGolf, ... bist Du auf dem Nostalgie-Trip?

Grüße ... Kiffi

[NicTheQuick]

Ein bisschen. DarkDragon hatte damit im ICQ angefangen. Das hat damit angefangen, dass ich nach meinem alten Thread-Control gesucht hab. Da werden die Eingaben für ein Spiel in einem Thread abgehandelt. Das ist ja gerade in einem anderen Thread aktuell. Und dann ging's weiter...

(Zum Glück sind wir hier im Offtopic)