Seite 21 von 22
Verfasst: 03.02.2006 18:15
von HeX0R
437
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
t=65
z.s="=> A"
1:
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()&$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+3)&T(i+6))|(T(4)&T(8-i))&T(i)
z+" won"
Goto 1
EndIf
x+3
Next
EndIf
Wend
Verfasst: 04.02.2006 11:38
von Stefan
436
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
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()&$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+3)&T(i+6))|(T(4)&T(8-i))&T(i)
z+" won"
JZ Q
EndIf
x+3
Next
EndIf
Wend
; IDE Options = PureBasic v3.94 (Windows - x86) (Demo)
; CursorPosition = 23
; FirstLine = 7
; Folding = -
; EnableAsm
Verfasst: 04.02.2006 16:00
von MLK
soweit ich mich erinnere ist asm nicht erlaubt
Verfasst: 04.02.2006 16:02
von HeX0R
Laut
Regeln schon
Verfasst: 04.02.2006 16:02
von Stefan
doch:
Programmiert wird in PureBasic 3.8. Erlaubt sind nur PureBasic-Befehle, Inline-Assembler und die WinAPI, keine Extra-Libraries, keine DLLs.
Verfasst: 04.02.2006 16:49
von Stefan
Hat keiner mehr Lust mitzumachen ?
Verfasst: 04.02.2006 17:09
von HeX0R
Ich habs aufgegeben
Verfasst: 04.02.2006 17:11
von ts-soft
Mit Macros muß es doch kleiner werden
Verfasst: 04.02.2006 17:24
von Stefan
435
Code: Alles auswählen
Procedure S(k,s.s)
SetGadgetText(k,s)
EndProcedure
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
S(O,z)
For i=S(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
; IDE Options = PureBasic v3.94 (Windows - x86) (Demo)
; CursorPosition = 23
; FirstLine = 7
; Folding = -
; EnableAsm
Verfasst: 04.02.2006 17:26
von edel
Ich kenne die Regeln nicht aber ohne die Procedure s[...] sind es 412.
Hat das jetzt nen Grund warum die keiner heraus nimmt ?