Seite 22 von 22
Verfasst: 05.02.2006 22:30
von NicTheQuick
Na die Procedure wird doch benutzt.
Verfasst: 05.02.2006 22:41
von 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
Verfasst: 05.02.2006 22:50
von 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
Verfasst: 05.02.2006 23:17
von ts-soft
Deeem2031 hat geschrieben:
Wie zählt man das am besten..?
http://www.robsite.de/puregolf/puregolf_counter.pb 
Re: PureGolf mit TicTacToe
Verfasst: 06.09.2011 12:58
von NicTheQuick
Hat Deeem2031 hier gewonnen?
Wer macht weiter oder erfindet ein neues PureGolf, diesmal allerdings cross-platform?
Re: PureGolf mit TicTacToe
Verfasst: 06.09.2011 13:14
von Kiffi
NicTheQuick hat geschrieben:Wer macht weiter oder erfindet ein neues PureGolf
pbor, PureGolf, ... bist Du auf dem Nostalgie-Trip?
Grüße ... Kiffi
Re: PureGolf mit TicTacToe
Verfasst: 06.09.2011 13:21
von 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)