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.
Antworten
Benutzeravatar
downi
Beiträge: 30
Registriert: 30.08.2004 19:18
Wohnort: Lübeck

Beitrag von downi »

"Neues Spiel" geht nicht!

"Gewinnen" kann man aber.
Nach oben
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 »

Ich denke mal, ohne schummeln geht nichts mehr :mrgreen:

//Nachtrag:
Muß es mit Debugger auch funzen???
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
Nach oben
Benutzeravatar
NicTheQuick
Ein Admin
Beiträge: 8816
Registriert: 29.08.2004 20:20
Computerausstattung: Ryzen 7 5800X, 64 GB DDR4-3200
Ubuntu 24.04.2 LTS
GeForce RTX 3080 Ti
Wohnort: Saarbrücken

Beitrag von NicTheQuick »

Immer noch 781!

Dafür gehts dann aber auch mit Debugger!

Code: Alles auswählen

Dim T(9)
s.s=" ist dran"
t=79
c=190
l=OpenWindow(0,216,0,c,250,$CC<<16,"TicTacToe")
CreateGadgetList(l)
For a=0 To8
  ButtonGadget(a,70*a%3,70*(a/3),50,50,"")
  SetGadgetFont(a,LoadFont(a,"",24))
Next
TextGadget(9,0,195,c,20,"O"+s,1)
c/2
ButtonGadget(11,0,220,c,30,"Neues Spiel")
ButtonGadget(10,c,220,c,30,"Spiel Beenden")
SetGadgetFont(9,LoadFont(9,"",12))
Repeat
  w=WindowEvent()
  If w=13100
    O=EventwParam()
    If O=10
      End
    ElseIf O=11
      For a=0 To9
        T(a)=0
        SetGadgetText(a,"")
        DisableGadget(a,0)
      Next
      P=0
    Else
      If T(O)=0
        T(O)=P+1
        DisableGadget(O,1)
        SetGadgetText(O,Chr(t+P*9))
        SetGadgetText(9,Chr(t+P!1*9)+s)
        j=P+1
        For i=0 To2
          x=i*3
          If T(x)&T(x+1)&T(x+2)=j Or T(i)&T(i+3)&T(i+6)=j Or T(0)&T(4)&T(8)=j Or T(2)&T(4)&T(6)=j
            SetGadgetText(9,Chr(t+P*9)+" gewinnt")
            For a=0 To8
              DisableGadget(a,1)
            Next
          EndIf
        Next
        P!1
      EndIf
    EndIf
  EndIf
Until w=16
Nach oben
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 »

780

Code: Alles auswählen

Dim T(9)
s.s=" ist dran"
t=79
c=190
d=220
l=OpenWindow(0,d,0,c,250,$CC<<16,"TicTacToe")
CreateGadgetList(l)
For a=0 To8
  ButtonGadget(a,70*a%3,70*(a/3),50,50,"")
  SetGadgetFont(a,LoadFont(a,"",24))
Next
TextGadget(9,0,195,c,20,"O"+s,1)
c/2
ButtonGadget(11,0,d,c,30,"Neues Spiel")
ButtonGadget(10,c,d,c,30,"Spiel Beenden")
SetGadgetFont(9,LoadFont(9,"",12))
Repeat
  w=WindowEvent()
  If w=13100
    O=EventwParam()
    If O=10
      End
    ElseIf O=11
      For a=0 To9
        T(a)=0
        SetGadgetText(a,"")
        DisableGadget(a,0)
      Next
      P=0
    Else
      If T(O)=0
        T(O)=P+1
        DisableGadget(O,1)
        SetGadgetText(O,Chr(t+P*9))
        SetGadgetText(9,Chr(t+P!1*9)+s)
        j=P+1
        For i=0 To2
          x=i*3
          If T(x)&T(x+1)&T(x+2)=j Or T(i)&T(i+3)&T(i+6)=j Or T(0)&T(4)&T(8)=j Or T(2)&T(4)&T(6)=j
            SetGadgetText(9,Chr(t+P*9)+" gewinnt")
            For a=0 To8
              DisableGadget(a,1)
            Next
          EndIf
        Next
        P!1
      EndIf
    EndIf
  EndIf
Until w=16
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
Nach oben
Benutzeravatar
NicTheQuick
Ein Admin
Beiträge: 8816
Registriert: 29.08.2004 20:20
Computerausstattung: Ryzen 7 5800X, 64 GB DDR4-3200
Ubuntu 24.04.2 LTS
GeForce RTX 3080 Ti
Wohnort: Saarbrücken

Beitrag von NicTheQuick »

779!

Code: Alles auswählen

Dim T(9)
s.s=" ist dran"
t=79
c=190
l=OpenWindow(0,0,0,c,250,$C80001,"TicTacToe")
CreateGadgetList(l)
For a=0 To8
  ButtonGadget(a,70*a%3,70*(a/3),50,50,"")
  SetGadgetFont(a,LoadFont(a,"",24))
Next
TextGadget(9,0,195,c,20,"O"+s,1)
c/2
ButtonGadget(11,0,220,c,30,"Neues Spiel")
ButtonGadget(10,c,220,c,30,"Spiel Beenden")
SetGadgetFont(9,LoadFont(9,"",12))
Repeat
  w=WindowEvent()
  If w=13100
    O=EventwParam()
    If O=10
      End
    ElseIf O=11
      For a=0 To9
        T(a)=0
        SetGadgetText(a,"")
        DisableGadget(a,0)
      Next
      P=0
    Else
      If T(O)=0
        T(O)=P+1
        DisableGadget(O,1)
        SetGadgetText(O,Chr(t+P*9))
        SetGadgetText(9,Chr(t+P!1*9)+s)
        j=P+1
        For i=0 To2
          x=i*3
          If T(x)&T(x+1)&T(x+2)=j Or T(i)&T(i+3)&T(i+6)=j Or T(0)&T(4)&T(8)=j Or T(2)&T(4)&T(6)=j
            SetGadgetText(9,Chr(t+P*9)+" gewinnt")
            For a=0 To8
              DisableGadget(a,1)
            Next
          EndIf
        Next
        P!1
      EndIf
    EndIf
  EndIf
Until w=16
Nach oben
Benutzeravatar
NicTheQuick
Ein Admin
Beiträge: 8816
Registriert: 29.08.2004 20:20
Computerausstattung: Ryzen 7 5800X, 64 GB DDR4-3200
Ubuntu 24.04.2 LTS
GeForce RTX 3080 Ti
Wohnort: Saarbrücken

Beitrag von NicTheQuick »

Gilt das?

Edit:
Ok, gilt nicht. :wink:
Zuletzt geändert von NicTheQuick am 31.01.2006 16:19, insgesamt 1-mal geändert.
Nach oben
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 »

NicTheQuick hat geschrieben:Gilt das?
Nur im englischem Forum, hier nicht :wink:
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
Nach oben
Benutzeravatar
PMV
Beiträge: 2765
Registriert: 29.08.2004 13:59
Wohnort: Baden-Württemberg

Beitrag von PMV »

Auch im Englischen nicht :lol: da

Code: Alles auswählen

s.s=" ist dran"
eher weniger englisch ist :wink:
alte Projekte:
TSE, CWL, Chatsystem, GameMaker, AI-Game DLL, Fileparser, usw. -.-
Nach oben
Benutzeravatar
NicTheQuick
Ein Admin
Beiträge: 8816
Registriert: 29.08.2004 20:20
Computerausstattung: Ryzen 7 5800X, 64 GB DDR4-3200
Ubuntu 24.04.2 LTS
GeForce RTX 3080 Ti
Wohnort: Saarbrücken

Beitrag von NicTheQuick »

Ok, dann eben 770!

Ab jetzt darf man ja ruhig mal anfangen zu schummeln.

Code: Alles auswählen

Dim T(9)
s.s=" ist dran"
t=79
c=190
l=OpenWindow(0,0,0,c,250,1,"TicTacToe")
CreateGadgetList(l)
For a=0 To8
  ButtonGadget(a,70*a%3,70*(a/3),50,50,"")
  SetGadgetFont(a,LoadFont(a,"",24))
Next
TextGadget(9,0,195,c,20,"O"+s,1)
c/2
ButtonGadget(11,0,220,c,30,"Neues Spiel")
ButtonGadget(10,c,220,c,30,"Spiel Beenden")
SetGadgetFont(9,LoadFont(9,"",12))
Repeat
  w=WindowEvent()
  If w=13100
    O=EventwParam()
    If O=10
      End
    ElseIf O=11
      For a=0 To9
        T(a)=0
        SetGadgetText(a,"")
        DisableGadget(a,0)
      Next
      P=0
    Else
      If T(O)=0
        T(O)=P+1
        DisableGadget(O,1)
        SetGadgetText(O,Chr(t+P*9))
        SetGadgetText(9,Chr(t+P!1*9)+s)
        j=P+1
        For i=0 To2
          x=i*3
          If T(x)&T(x+1)&T(x+2)=j Or T(i)&T(i+3)&T(i+6)=j Or T(0)&T(4)&T(8)=j Or T(2)&T(4)&T(6)=j
            SetGadgetText(9,Chr(t+P*9)+" gewinnt")
            For a=0 To8
              DisableGadget(a,1)
            Next
          EndIf
        Next
        P!1
      EndIf
    EndIf
  EndIf
ForEver
Nach oben
Benutzeravatar
MLK
Beiträge: 267
Registriert: 01.11.2004 13:17
Wohnort: Hamburg

Beitrag von MLK »

jo, hatte es vorhin eilig und ne zeile vergessen wieder einzufügen ^^

womit zählt ihr die codelänge?
Nach oben
Antworten

Zurück zu „Offtopic“