PureGolf mit TicTacToe

[HeX0R]

Die Idee hatte ich auch schon, aber irgendwann hiess es eigentlich die Texte bleiben wie sie sind.
Aber wurscht.

Sollten es nicht trotzdem 505 und nicht 501 sein ? Oder hast du noch mehr geändert ?

[Then]

Sorry, habs jetzt dokumentiert !

[Franky]

Als ersatzspiel: 4 gewinnt.

Code: Alles auswählen

      if random(4)=4
                Messagerequester("Gewonnen","Man bist du gut")
      endif

[HeX0R]

499

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure
Dim T($F)
t=65
CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB"))
TextGadget(9,t,t*3,t,20,"=> A")
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

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

Kann aber mal der Oberschiedsrichter endlich festsetzen, dass an den Texten nix mehr geändert werden darf ?

[NicTheQuick]

Kann aber mal der Oberschiedsrichter endlich festsetzen, dass an den Texten nix mehr geändert werden darf ?

Ab jetzt darf nichts mehr an den Texten geändert werden!!!

[Franky]

498

Code: Alles auswählen

Procedure S(k,s.s)
  SetGadgetText(k,s)
EndProcedure
Dim T(9)
t=65
CreateGadgetList(OpenWindow(0,0,0,t*3,220,1,"AB"))
TextGadget(9,t,t*3,t,20,"=> A")
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

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

[HeX0R]

Is das zulässig ?
Drück mal nen 'L' (z.B.) wenn das Fenster offen is

[hardfalcon]

Die andern Programme hab ich jetzt mal nicht getestet, aber Frankys letztes Programm hat zwei paar gravierende Mängel:
1.) Es läuft nur mit ausgeschaltetem Debugger
2.) Es lässt sich nicht beenden ohne den Taskmanager

//EDIT: Siehe die beiden nächsten Threads

[HeX0R]

Beenden lässt es sich schon.
Vor einigen Versionen wurde die TAB-Taste zur Beenden-Taste ernannt

[PMV]

Alle letzten Codes lassen sich mit TAB beenden.
Franky hat allerdings die Größe des Arrays geändert, was ein "Array Index out of bounds" nach sich zieht. (mit Debugger)

MFG PMV