PureGolf mit TicTacToe

Hier kann alles mögliche diskutiert werden. Themen zu Purebasic sind hier erwünscht.
Flames und Spam kommen ungefragt in den Mülleimer.
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:

Beitrag von MVXA »

könntet ihr mal vielleicht dazu schreiben was ihr alles verändert
habt :? ? Wäre vielleicht ganz interessant für nicht-pure-golfer
Bild
Benutzeravatar
nco2k
Beiträge: 892
Registriert: 08.09.2004 23:13

Beitrag von nco2k »

@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
~|__/
..o.o.. <--- This is Einkaufswagen. Copy Einkaufswagen into your signature to help him on his way to world domination.
Benutzeravatar
Then
Beiträge: 278
Registriert: 06.09.2004 13:26
Wohnort: Siegen

Beitrag von Then »

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...
PB 6.10LTs / Windows 11 64Bit (i9/32GB/ 1TB-SSD+4TB-HDD/3060GTX12GB) / 2x27" Multitouch

... ich mache dazu keine Aussage, weil ich mich damit selbst belasten könnte !
Benutzeravatar
Then
Beiträge: 278
Registriert: 06.09.2004 13:26
Wohnort: Siegen

Beitrag von Then »

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
PB 6.10LTs / Windows 11 64Bit (i9/32GB/ 1TB-SSD+4TB-HDD/3060GTX12GB) / 2x27" Multitouch

... ich mache dazu keine Aussage, weil ich mich damit selbst belasten könnte !
Benutzeravatar
nco2k
Beiträge: 892
Registriert: 08.09.2004 23:13

Beitrag von nco2k »

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

c ya,
nco2k
~|__/
..o.o.. <--- This is Einkaufswagen. Copy Einkaufswagen into your signature to help him on his way to world domination.
Benutzeravatar
Then
Beiträge: 278
Registriert: 06.09.2004 13:26
Wohnort: Siegen

Beitrag von Then »

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 ... 8) )
PB 6.10LTs / Windows 11 64Bit (i9/32GB/ 1TB-SSD+4TB-HDD/3060GTX12GB) / 2x27" Multitouch

... ich mache dazu keine Aussage, weil ich mich damit selbst belasten könnte !
Benutzeravatar
nco2k
Beiträge: 892
Registriert: 08.09.2004 23:13

Beitrag von nco2k »

ok, ok dann POP. :lol:

close button muss net sein, nur ich persönlich finde es hübscher mit. :D aber das habe ich nicht zu entscheiden, frag NTQ. :)

c ya,
nco2k
~|__/
..o.o.. <--- This is Einkaufswagen. Copy Einkaufswagen into your signature to help him on his way to world domination.
Benutzeravatar
Then
Beiträge: 278
Registriert: 06.09.2004 13:26
Wohnort: Siegen

Beitrag von Then »

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"... :wink:

Ne aber ein anderes kleines Tool oder Spiel....
PB 6.10LTs / Windows 11 64Bit (i9/32GB/ 1TB-SSD+4TB-HDD/3060GTX12GB) / 2x27" Multitouch

... ich mache dazu keine Aussage, weil ich mich damit selbst belasten könnte !
Benutzeravatar
Then
Beiträge: 278
Registriert: 06.09.2004 13:26
Wohnort: Siegen

Beitrag von Then »

Hör auf nen Erwachsenen !! ... bin 2 Tage früher hier gewesen !! :mrgreen:
PB 6.10LTs / Windows 11 64Bit (i9/32GB/ 1TB-SSD+4TB-HDD/3060GTX12GB) / 2x27" Multitouch

... ich mache dazu keine Aussage, weil ich mich damit selbst belasten könnte !
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

548 war noch ein "" zu beseitigen :mrgreen:

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
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Antworten