Seite 12 von 22
Verfasst: 31.01.2006 22:28
von HeX0R
557 (Beenden mit TAB
)
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
Dim T(9)
s.s=" turn"
t=70
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"XXO"))
TextGadget(9,t,t*3,t,20,"O"+s,1)
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8
ButtonGadget(a,t*a%3,a/3*t,t,t,z)
SetGadgetFont(a,LoadFont(a,z,24))
Next
t+9
While O<>9
w=WindowEvent()
O=EventwParam()
If w=13100
If T(O)=0
T(O)=P+1
z=Chr(t+P*9)
P!1
x=S(O,z)
S(9,Chr(t+P*9)+s)
For i=DisableGadget(O,1) 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,"")
DisableGadget(a,0)
Next
P=S(9,z+" wins")
EndIf
x+3
Next
EndIf
EndIf
Wend
Verfasst: 31.01.2006 22:30
von Then
HUND !!
Verfasst: 31.01.2006 22:33
von Then
554 :
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
Dim T(9)
s.s=" turn"
t=70
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"XXO"))
TextGadget(9,t,t*3,t,20,"O"+s,1)
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8
ButtonGadget(a,t*a%3,a/3*t,t,t,z)
SetGadgetFont(a,LoadFont(a,z,24))
Next
t+9
While O<>9
If WindowEvent()=13100
O=EventwParam()
If T(O)=0
T(O)=P+1
z=Chr(t+P*9)
P!1
x=S(O,z)
S(9,Chr(t+P*9)+s)
For i=DisableGadget(O,1) 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,"")
DisableGadget(a,0)
Next
P=S(9,z+" wins")
EndIf
x+3
Next
EndIf
EndIf
Wend
Verfasst: 31.01.2006 22:36
von nco2k
551
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
Dim T(9)
s.s=" turn"
t=70
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"XXO"))
TextGadget(9,t,t*3,t,20,"O"+s)
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8
ButtonGadget(a,t*a%3,a/3*t,t,t,z)
SetGadgetFont(a,LoadFont(a,z,24))
Next
t+9
Repeat
If WindowEvent()=13100
O=EventwParam()
If T(O)=0
T(O)=P+1
z=Chr(t+P*9)
P!1
x=S(O,z)
S(9,Chr(t+P*9)+s)
For i=DisableGadget(O,1) 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,"")
DisableGadget(a,0)
Next
P=S(9,z+" wins")
EndIf
x+3
Next
EndIf
EndIf
ForEver
beenden mit debugger oder taskmanager.
c ya,
nco2k
Verfasst: 31.01.2006 22:39
von Then
"Einspruch !!"
Verfasst: 31.01.2006 22:41
von HeX0R
Dann musst du dein eigenes aber auch zurücknehmen Then, das lässt sich nämlich auch nicht mehr beenden
Verfasst: 31.01.2006 22:42
von Then
sprich : "Einspruch abgelehnt !"
Okay
547 : (dann heißt´s jetzt nicht mehr XXO, sondern POP) :
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
Dim T(9)
s.s=" turn"
t=70
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"POP"))
TextGadget(9,t,t*3,t,20,"O"+s)
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8
ButtonGadget(a,t*a%3,a/3*t,t,t,z)
SetGadgetFont(a,LoadFont(a,z,24))
Next
t+9
Repeat
If WindowEvent()=13100
O=EventwParam()
If T(O)=0
T(O)=P+1
z=Chr(t+P)
P!1
x=S(O,z)
S(9,Chr(t+P)+s)
For i=DisableGadget(O,1) 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,"")
DisableGadget(a,0)
Next
P=S(9,z+" wins")
EndIf
x+3
Next
EndIf
EndIf
ForEver
Verfasst: 31.01.2006 22:45
von ts-soft
Kann ich auch
546
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
Dim T(9)
s.s=" turn"
t=70
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"POP"))
TextGadget(9,t,t*3,t,20,"O"+s)
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8
ButtonGadget(a,t*a%3,a/3*t,t,t,z)
SetGadgetFont(a,LoadFont(a,z,24))
Next
t+9
Repeat
If WindowEvent()>9999
O=EventwParam()
If T(O)=0
T(O)=P+1
z=Chr(t+P)
P!1
x=S(O,z)
S(9,Chr(t+P)+s)
For i=DisableGadget(O,1) 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,"")
DisableGadget(a,0)
Next
P=S(9,z+" wins")
EndIf
x+3
Next
EndIf
EndIf
ForEver
Verfasst: 31.01.2006 22:50
von nco2k
542
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
Dim T(9)
s.s=" turn"
t=70
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"POP"))
TextGadget(9,t,t*3,t,20,"O"+s)
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8
ButtonGadget(a,t*a%3,a/3*t,t,t,z)
SetGadgetFont(a,LoadFont(a,z,24))
Next
t+9
l:
If WindowEvent()=13100
O=EventwParam()
If T(O)=0
T(O)=P+1
z=Chr(t+P)
P!1
x=S(O,z)
S(9,Chr(t+P)+s)
For i=DisableGadget(O,1) 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,"")
DisableGadget(a,0)
Next
P=S(9,z+" wins")
EndIf
x+3
Next
EndIf
EndIf
Goto l
c ya,
nco2k
Verfasst: 31.01.2006 22:54
von Then
540 :
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
Dim T(9)
s.s=" turn"
t=70
CreateGadgetList(OpenWindow(0,0,0,t*3,230,1,"POP"))
TextGadget(9,t,t*3,t,20,"O"+s)
For a=SetGadgetFont(9,LoadFont(9,z.s,12)) To8
ButtonGadget(a,t*a%3,a/3*t,t,t,z)
SetGadgetFont(a,LoadFont(a,z,24))
Next
t+9
l:
If WindowEvent()>t*T ;- T*T statt 999
O=EventwParam()
If T(O)=0
T(O)=P+1
z=Chr(t+P)
P!1
x=S(O,z)
S(9,Chr(t+P)+s)
For i=DisableGadget(O,1) 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,"")
DisableGadget(a,0)
Next
P=S(9,z+" wins")
EndIf
x+3
Next
EndIf
EndIf
Goto l