PureGolf mit TicTacToe

MVXA · Beitrag von **MVXA** » 31.01.2006 22:55

könntet ihr mal vielleicht dazu schreiben was ihr alles verändert
habt

? Wäre vielleicht ganz interessant für nicht-pure-golfer

nco2k · Beitrag von **nco2k** » 31.01.2006 22:58

@Then
wenn du WindowEvent()>t*T anstatt WindowEvent()=13100, dann düfte das einen fehler bei mvxa verursachen und ausserdem wird das programm selbständig wenn du alt+tab switchst und wieder zurück.

c ya,
nco2k

Then · Beitrag von **Then** » 31.01.2006 23:00

da man es ja eh nicht mehr beenden kann ists ja dann auch wieder wurscht, oder, ansonsten müssen wir soweit zurück, daß wenigstens BEENDEN geht...

Then · Beitrag von **Then** » 31.01.2006 23:03

Dann sind wir hier ! 549 :

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,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()>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 
Wend

nco2k · Beitrag von **nco2k** » 31.01.2006 23:03

jo stimme dir zu. also von mir aus jetzt wieder mit close button und name XXO.

c ya,
nco2k

Then · Beitrag von **Then** » 31.01.2006 23:05

hm xxo und Closebutton ?? Solange eine fertige EXE sich beenden läßt und man erkennt was es ist... kann ja dann bei POP bleiben (ich POPe mal ne runde ...

)

nco2k · Beitrag von **nco2k** » 31.01.2006 23:08

ok, ok dann POP.

close button muss net sein, nur ich persönlich finde es hübscher mit.

aber das habe ich nicht zu entscheiden, frag NTQ.

c ya,
nco2k

Then · Beitrag von **Then** » 31.01.2006 23:08

wobei ein WaitWindowEvent() ratsamer ist und wieder 4 Buchstaben bringt ! Ich glaube da ist nicht mehr viel rauszuholen !
Man sollte ein neuen Thread in dieser Art aufmachen ! Ich denke da an nen Clone von "Mr.Puniverse"...

Ne aber ein anderes kleines Tool oder Spiel....

Then · Beitrag von **Then** » 31.01.2006 23:10

Hör auf nen Erwachsenen !! ... bin 2 Tage früher hier gewesen !!

ts-soft · Beitrag von **ts-soft** » 31.01.2006 23:12

548 war noch ein "" zu beseitigen

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,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()>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,z)
            DisableGadget(a,0)
          Next
          P=S(9,z+" wins")
        EndIf
        x+3
      Next
    EndIf
  EndIf
Wend