Και ο κώδικας για το παιχνίδι με τον υπολογιστή:
#################
αρχικοποίησε
$χ1=-1
$χ2=-1
$χ3=-1
$χ4=-1
$χ5=-1
$χ6=-1
$χ7=-1
$χ8=-1
$χ9=-1
$σημαία=0
$σειρά=0 #ζυγά παίζει ο Χ,μονά ο Ο
$νικητής=0
$έλεγχος=0
#################
#Το πλέγμα φτιάχνει το σχήμα της τρίλιζας!
μάθε πλέγμα {
χσ 0,0,0
πήγαινε 50,50
επανάλαβε 4 {σδ 90 μπ 300}
πήγαινε 150, 350 μπ 300
πήγαινε 250, 350 μπ 300
σδ 90
πήγαινε 50, 150 μπ 300
πήγαινε 50, 250 μπ 300
σα 90
κέντρο
}
#################
#Βάζει τους αριθμούς στα τετράγωνα της τρίλιζας. Από 1 μέχρι 9
μάθε ετικέτες {
χσ 0,255,0
$χ=50 #συντεταγμένη χ
$ψ=48 #συντεταγμένη ψ
$α=1 #νούμερα από 1 μέχρι 9
επανάλαβε 3
{
επανάλαβε 3
{
πήγαινε $χ, $ψ
τύπωσε $α
$α=$α+1
$χ=$χ+100
}
$χ=50
$ψ=$ψ+100
}
}
#################
#Μετακινεί τη χελώνα στη 375,200 για να μην παρεμβάλλεται στο σχήμα
μάθε καρέκλα {
πήγαινε 375,200 κατ 0
}
#################
#Σχηματίζει το Ο στις συντεταγμένες που δινονται
μάθε υπολογιστής
{
αν (($χ1==2) και ($χ4==2) και ($χ7==-1))
{ο 100,300}
αλλιώς αν (($χ1==2) και ($χ4==-1) και ($χ7==2))
{ο 100,200}
αλλιώς αν (($χ1==-1) και ($χ4==2) και ($χ7==2))
{ο 100,100}
αλλιώς αν (($χ1==2) και ($χ2==2) και ($χ3==-1))
{ο 300,100}
αλλιώς αν (($χ1==2) και ($χ2==-1) και ($χ3==2))
{ο 200,100}
αλλιώς αν (($χ1==-1) και ($χ2==2) και ($χ3==2))
{ο 100,100}
αλλιώς αν (($χ1==2) και ($χ5==2) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ1==2) και ($χ5==-1) και ($χ9==2))
{ο 200,200}
αλλιώς αν (($χ1==-1) και ($χ5==2) και ($χ9==2))
{ο 100,100}
αλλιώς αν (($χ2==2) και ($χ5==2) και ($χ8==-1))
{ο 200,300}
αλλιώς αν (($χ2==2) και ($χ5==-1) και ($χ8==2))
{ο 200,200}
αλλιώς αν (($χ2==-1) και ($χ5==2) και ($χ8==2))
{ο 200,100}
αλλιώς αν (($χ3==2) και ($χ6==2) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ3==2) και ($χ6==-1) και ($χ9==2))
{ο 300,200}
αλλιώς αν (($χ3==-1) και ($χ6==2) και ($χ9==2))
{ο 300,100}
αλλιώς αν (($χ3==2) και ($χ5==2) και ($χ7==-1))
{ο 100,300}
αλλιώς αν (($χ3==2) και ($χ5==-1) και ($χ7==2))
{ο 200,200}
αλλιώς αν (($χ3==-1) και ($χ5==2) και ($χ7==2))
{ο 300,100}
αλλιώς αν (($χ4==2) και ($χ5==2) και ($χ6==-1))
{ο 300,200}
αλλιώς αν (($χ4==2) και ($χ5==-1) και ($χ6==2))
{ο 200,200}
αλλιώς αν (($χ4==-1) και ($χ5==2) και ($χ6==2))
{ο 100,200}
αλλιώς αν (($χ7==2) και ($χ8==2) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ7==2) και ($χ8==-1) και ($χ9==2))
{ο 200,300}
αλλιώς αν (($χ7==-1) και ($χ8==2) και ($χ9==2))
{ο 100,300}
#########################################
αλλιώς αν (($χ1==1) και ($χ4==1) και ($χ7==-1))
{ο 100,300}
αλλιώς αν (($χ1==1) και ($χ4==-1) και ($χ7==1))
{ο 100,200}
αλλιώς αν (($χ1==-1) και ($χ4==1) και ($χ7==1))
{ο 100,100}
αλλιώς αν (($χ1==1) και ($χ2==1) και ($χ3==-1))
{ο 300,100}
αλλιώς αν (($χ1==1) και ($χ2==-1) και ($χ3==1))
{ο 200,100}
αλλιώς αν (($χ1==-1) και ($χ2==1) και ($χ3==1))
{ο 100,100}
αλλιώς αν (($χ1==1) και ($χ5==1) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ1==1) και ($χ5==-1) και ($χ9==1))
{ο 200,200}
αλλιώς αν (($χ1==-1) και ($χ5==1) και ($χ9==1))
{ο 100,100}
αλλιώς αν (($χ2==1) και ($χ5==1) και ($χ8==-1))
{ο 200,300}
αλλιώς αν (($χ2==1) και ($χ5==-1) και ($χ8==1))
{ο 200,200}
αλλιώς αν (($χ2==-1) και ($χ5==1) και ($χ8==1))
{ο 200,100}
αλλιώς αν (($χ3==1) και ($χ6==1) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ3==1) και ($χ6==-1) και ($χ9==1))
{ο 300,200}
αλλιώς αν (($χ3==-1) και ($χ6==1) και ($χ9==1))
{ο 300,100}
αλλιώς αν (($χ3==1) και ($χ5==1) και ($χ7==-1))
{ο 100,300}
αλλιώς αν (($χ3==1) και ($χ5==-1) και ($χ7==1))
{ο 200,200}
αλλιώς αν (($χ3==-1) και ($χ5==1) και ($χ7==1))
{ο 300,100}
αλλιώς αν (($χ4==1) και ($χ5==1) και ($χ6==-1))
{ο 300,200}
αλλιώς αν (($χ4==1) και ($χ5==-1) και ($χ6==1))
{ο 200,200}
αλλιώς αν (($χ4==-1) και ($χ5==1) και ($χ6==1))
{ο 100,200}
αλλιώς αν (($χ7==1) και ($χ8==1) και ($χ9==-1))
{ο 300,300}
αλλιώς αν (($χ7==1) και ($χ8==-1) και ($χ9==1))
{ο 200,300}
αλλιώς αν (($χ7==-1) και ($χ8==1) και ($χ9==1))
{ο 100,300}
#########################################
αλλιώς αν ($χ1==-1)
{ο 100,100}
αλλιώς αν ($χ2==-1)
{ο 200,100}
αλλιώς αν ($χ3==-1)
{ο 300,200}
αλλιώς αν ($χ4==-1)
{ο 100,200}
αλλιώς αν ($χ5==-1)
{ο 200,200}
αλλιώς αν ($χ6==-1)
{ο 300,200}
αλλιώς αν ($χ7==-1)
{ο 100,300}
αλλιώς αν ($χ8==-1)
{ο 200,300}
αλλιώς αν ($χ9==-1)
{ο 300,300}
}
μάθε ο $χ, $ψ {
χσ 255,0,0
$σημαία=0
$έλεγχος=0
αν ($χ == 100) και ($ψ == 100)
{
αν $χ1==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ1==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ1=2
}
}
αν ($χ == 200) και ($ψ == 100)
{
αν $χ2==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ2==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ2=2
}
}
αν ($χ == 300) και ($ψ == 100)
{
αν $χ3==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ3==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ3=2
}
}
αν ($χ == 100) και ($ψ == 200)
{
αν $χ4==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ4==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ4=2
}
}
αν ($χ == 200) και ($ψ == 200)
{
αν $χ5==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ5==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ5=2
}
}
αν ($χ == 300) και ($ψ == 200)
{
αν $χ6==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ6==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ6=2
}
}
αν ($χ == 100) και ($ψ == 300)
{
αν $χ7==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ7==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ7=2
}
}
αν ($χ == 200) και ($ψ == 300)
{
αν $χ8==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ8==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ8=2
}
}
αν ($χ == 300) και ($ψ == 300)
{
αν $χ9==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ9==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ9=2
}
}
αν ($σημαία == 0)
{
# πήγαινε $χ-4, $ψ+2
πήγαινε $χ, $ψ
σπ κατ 0 μπ 40 σδ 90 σκ
επανάλαβε 30
{
μπ 8 σδ 12
}
καρέκλα
}
}
#################
#Σχηματίζει το Χ στις συντεταγμένες που δινονται
μάθε χ $χ, $ψ {
χσ 0,0,255
$σημαία=0
αν ($χ == 100) και ($ψ == 100)
{
αν $χ1==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ1==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ1=1
}
}
αν ($χ == 200) και ($ψ == 100)
{
αν $χ2==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ2==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ2=1
}
}
αν ($χ == 300) και ($ψ == 100)
{
αν $χ3==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ3==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ3=1
}
}
αν ($χ == 100) και ($ψ == 200)
{
αν $χ4==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ4==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ4=1
}
}
αν ($χ == 200) και ($ψ == 200)
{
αν $χ5==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ5==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ5=1
}
}
αν ($χ == 300) και ($ψ == 200)
{
αν $χ6==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ6==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ6=1
}
}
αν ($χ == 100) και ($ψ == 300)
{
αν $χ7==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ7==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ7=1
}
}
αν ($χ == 200) και ($ψ == 300)
{
αν $χ8==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ8==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ8=1
}
}
αν ($χ == 300) και ($ψ == 300)
{
αν $χ9==1
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"
$έλεγχος=1
}
αλλιώς αν $χ9==2
{
$σημαία=1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"
$έλεγχος=1
}
αλλιώς
{
$χ9=1
}
}
αν ($σημαία == 0)
{
πήγαινε $χ, $ψ
σδ 45
μπ 50 πι 100 μπ 50
σα 90
μπ 50 πι 100 μπ 50
καρέκλα
}
}
#################
μάθε έλεγξε_νικητή
{
αν ( ($χ1==1) και ($χ4==1) και ($χ7==1))
{νικητήςΧ}
αλλιώς αν ( ($χ1==1) και ($χ2==1) και($χ3==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ1==1) και ($χ5==1) και ($χ9==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ1==2) και ($χ4==2) και ($χ7==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ1==2) και ($χ2==2) και ($χ3==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ1==2) και ($χ5==2) και ($χ9==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ2==1) και ($χ5==1) και ($χ8==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ2==2) και ($χ5==2) και ($χ8==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ3==1) και ($χ6==1) και ($χ9==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ3==1) και ($χ5==1) και ($χ7==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ3==2) και ($χ6==2) και ($χ9==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ3==2) και ($χ5==2) και ($χ7==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ4==1) και ($χ5==1) και ($χ6==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ4==2) και ($χ5==2) και ($χ6==2) ) {νικητήςΟ}
αλλιώς αν ( ($χ7==1) και ($χ8==1) και ($χ9==1) ) {νικητήςΧ}
αλλιώς αν ( ($χ7==2) και ($χ8==2) και ($χ7==2) ) {νικητήςΟ}
}
#################
μάθε νικητήςΧ
{
$νικητής="Χ"
μήνυμα "Ο Παίχτης με το X κερδίζει!!! Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}
#################
μάθε νικητήςΟ
{
$νικητής="Ο"
μήνυμα "Ο Παίχτης με το Ο κερδίζει!!! Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}
#################
# Εμφάνιση πλέγματος
μσ 5
πλέγμα
ετικέτες
μσ 3
καρέκλα
όσο ($σειρά <9) και ($νικητής == 0)
{
αν (($σειρά==0) ή($σειρά==2) ή($σειρά==4) ή ($σειρά==6) ή ($σειρά==8))
{
$πχ = ερώτηση "Παίκτης [Χ]: Δώσε θέση (από 1 ως 9)"
αν ($πχ==1)
{
$χχ=100
$ψψ=100
}
αλλιώς αν ($πχ==2)
{
$χχ=200
$ψψ=100
}
αλλιώς αν ($πχ==3)
{
$χχ=300
$ψψ=100
}
αλλιώς αν ($πχ==4)
{
$χχ=100
$ψψ=200
}
αλλιώς αν ($πχ==5)
{
$χχ=200
$ψψ=200
}
αλλιώς αν ($πχ==6)
{
$χχ=300
$ψψ=200
}
αλλιώς αν ($πχ==7)
{
$χχ=100
$ψψ=300
}
αλλιώς αν ($πχ==8)
{
$χχ=200
$ψψ=300
}
αλλιώς αν ($πχ==9)
{
$χχ=300
$ψψ=300
}
# μήνυμα "χχ="+$χχ+" ψψ="+$ψψ
χ $χχ, $ψψ
έλεγξε_νικητή
}
αλλιώς αν (($σειρά==1) ή($σειρά==3) ή($σειρά==5) ή ($σειρά==7) ή ($σειρά==9))
{
υπολογιστής
}
αν ($έλεγχος!=1)
{
$σειρά = $σειρά + 1
# μήνυμα "Σειρά = " +$σειρά
}
}
αν $νικητής==0
{
μήνυμα "Ισοπαλία. Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}