Seite 19 von 22
Verfasst: 02.02.2006 22:06
von Batze
etwas gewagt
Verfasst: 02.02.2006 22:10
von freedimension
Kann das mal jemand für mich zählen:
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)
TextGadget(9,t,t*3,t,y,"=> A")
SetGadgetFont(a,LoadFont(a,z,y-a/9*12))
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
Verfasst: 02.02.2006 22:16
von ts-soft
freedimension hat geschrieben:Kann das mal jemand für mich zählen:
472
Verfasst: 02.02.2006 22:17
von freedimension
Danke
Verfasst: 02.02.2006 22:18
von Stefan
469
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
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)
TextGadget(9,t,t*3,t,t,"=> A")
SetGadgetFont(a,LoadFont(a,z,24-a/9*12))
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
Verfasst: 02.02.2006 22:37
von freedimension
Wenn mich nicht alles täuscht sind es damit 463
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
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)
TextGadget(9,t,t*3,t,t,"=> A")
SetGadgetFont(a,LoadFont(a,z,24-a/9*12))
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
Verfasst: 02.02.2006 22:50
von Stefan
Jetzt sind es 463 !
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
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)
TextGadget(9,t,t*3,t,t,"=> A")
SetGadgetFont(a,LoadFont(a,z,24-a/9*12))
Next
While O<>9
x=WindowEvent()
O=EventwParam()&$F
If x-T(O)='3,'
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
Verfasst: 02.02.2006 22:54
von freedimension
Argh, das Leerzeichen. Klar!
Verfasst: 02.02.2006 22:54
von HeX0R
461
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
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)
TextGadget(9,t,t*3,t,t,"=> A")
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)&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
Verfasst: 02.02.2006 22:57
von HeX0R
übrigens sehr genial mit dem '3,' Stefan