PureBoard

Code: Alles auswählen

Procedure Botspiel()
Shared bot, botzeichnung$,spieler$

If bot = 1
Botposi = 1+Random(9)

  If Botposi = 1
      nr1$ = GetGadgetText(#Button_0)
     
     If nr1$ = spieler$ Or nr1$ = botzeichen$
      Botspiel()
     Else 
       DisableGadget(#Button_0,1)
      SetGadgetText(#Button_0,Botzeichen$)
     EndIf
     
   EndIf
 
   bot =  0
EndIf
EndProcedure
...
If bot = 1
Botposi = 1+Random(9)

  If Botposi = 1
      nr1$ = GetGadgetText(#Button_0)
     
     If nr1$ = spieler$ Or nr1$ = botzeichen$
      Botspiel()
     Else 
       DisableGadget(#Button_0,1)
      SetGadgetText(#Button_0,Botzeichen$)
     EndIf
     
   EndIf
 
   bot =  0
EndIf

Code: Alles auswählen

(Bis jetzt) Es wird über ein Random ausgelosst ob Button 1 ,2...9 "makiert" wird.
Wenn der Button bereits mit einem X oder O versehen ist soll die Prozedure solang wiederholt werden bis Random() ein freies Feld gefunden hat, und dann mit dem Botzeichen$ einträgt.
Dann ist Spieler 1 wieder dran.
[*/code]

Das alles ist kein Problem 

Nur wenn ich alles ausschreibe ist der Code wo überprüft wird ob es noch ein freies Feld gibt für den KI" über 150Zeilen ... 
Aber auch für Zukünftige Sachen wäre es besser zu wissen , weil auch bei X360 Mathe hab ich ca. 500 Code warscheinlich Sinnlos verbraucht nur weil ich es ausgeschrieben habe.


Zum einrücken hab das Plugin fürn IDE aus  :?

Code: Alles auswählen

Dim Feld.s(8)

Dim Player.s(1)

Player(0) = "X"
Player(1) = "O"

For n=0 To 8
  Feld(n) = "_"
Next

Define Spieler.l = 0
Define Set.l = 0

For n=0 To 8  ; Neun Felder zu besetzen

  Repeat
    Set = Random(8)       ; zufällig wählen
  Until Feld(Set) = "_"   ; bis freies getroffen
   Feld(Set) = Player(Spieler)
   Spieler = 1 - Spieler

  For y=0 To 2
    out$ =""
    For x=0 To 2
      out$ + Feld(3*y + x)
    Next
    Debug out$
  Next
  Debug "---------------"

Next