συνέχεια κώδικα...
###########################
μάθε υπολογιστής
{
αν (($χ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,255,0
σκ
μσ 5
αν $χ1==-1
{
πήγαινε 55,55
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ2==-1
{
πήγαινε 155,55
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ3==-1
{
πήγαινε 255,55
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ4==-1
{
πήγαινε 55,155
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ5==-1
{
πήγαινε 155,155
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ6==-1
{
πήγαινε 255,155
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ7==-1
{
πήγαινε 55,255
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ8==-1
{
πήγαινε 155,255
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
αν $χ9==-1
{
πήγαινε 255,255
επανάλαβε 4
{σδ 90 μπ 90}
επανάλαβε 9
{σδ 90 μπ 5 σδ 90 μπ 90
σα 90 μπ 5 σα 90μπ 90}
}
καρέκλα
}
μάθε παιχνίδι
{
όσο (($απάντηση != 1) και ($απάντηση != 2))
{ $απάντηση = ερώτηση "Αν θέλετε να παίξετε με 2 παίκτες πληκτρολογήστε 2. Αν θέλετε να παίξετε με τον υπολογιστή πληκτρολογηστε 1"
αν (($απάντηση != 1) και ($απάντηση != 2))
{ μήνυμα "Δεκτές είναι οι επιλογές 1 ή 2 και καμία άλλη!"
}
}
όσο ($σειρά <9) και ($νικητής=="ΚΑΝΕΙΣ")
{
αν (($σειρά==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 ως 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
}
αλλιώς
{
$λάθος=0
μήνυμα "Δώσατε λάθος επιλογή. Δεκτοί είναι οι αριθμοί από 1 μέχρι και 9 και μόνο!"
}
αν ($λάθος!=0)
{
ο $χχ, $ψψ
έλεγξε_νικητή
}
}
}
αν ($έλεγχος!=1)
{
$σειρά = $σειρά + 1
# μήνυμα "Σειρά = " +$σειρά
}
}
αν $νικητής=="ΚΑΝΕΙΣ"
{
μήνυμα "Ισοπαλία. Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}
}
παιχνίδι