KTurtle : Περιβάλλον Προγραμματισμού σε Logo

Ξεκίνησε από markakis, 20 Σεπ 2008, 05:28:48 ΜΜ

« προηγούμενο - επόμενο »

markakis

Για όσους δεν το γνωρίζουν το KTurtle είναι ένα εκπαιδευτικό περιβάλλον προγραμματισμού σε Logo (μια παραλλαγή της την TurtleScript). Πρόκειται για Ελεύθερο Λογισμικό καθώς είναι εφαρμογή-τμήμα του Γραφικού Περιβάλλοντος KDE. Αυτό το κάνει άμεσα διαθέσιμο μέσα από τα αποθετήρια όλων των διανομών Linux αλλά και στα Windows μέσα από το "KDE on Windows Project" http://windows.kde.org.

Το περιβάλλον είναι εξελληνισμένο (από την έκδοση 3.x του KDE), όπως και οι εντολές της γλώσσας (από την έκδοση 4.0 του KDE). Πρόσφατα ολοκλήρωσα τη μετάφραση του εγχειριδίου χρήσης του KTurtle, όμως για τεχνικούς λόγους (απόσυρση συντονιστή την ελληνικής ομάδας μετάφρασης του KDE κ.α) δεν έχει ενσωματωθεί ακόμα στην ελληνική μετάφραση. Μέχρι να γίνει αυτό, πιθανό να ανεβάσω το εγχειρίδιο σε μορφή HTML.

Από τα εξελληνισμένα περιβάλλοντα, το προτιμώ όχι μόνο γιατί είναι ελεύθερο λογισμικό αλλά γιατί το θεωρώ πιο λειτουργικό και εύχρηστο από το "Χελωνόκοσμο". To Microworlds το απορρίπτω, καθώς όσα σχολεία δεν το διαθέτουν, θα πρέπει να πληρώσουν για να το αποκτήσουν, πράγμα ΑΠΑΡΑΔΕΚΤΟ για εκπαιδευτικό λογισμικό που αναφέρεται στις σελίδες του βιβλίου.

Νομίζω ότι καλύπτει με το παραπάνω τις ανάγκες του μαθήματος. Αν μη τι άλλο οι συνάδελφοι με Linux στα εργαστήρια πρέπει να σταματήσουν να προσπαθούν να τρέξουν το Microworlds με WINE...

alkisg

Συμφωνώ απόλυτα, και από του χρόνου που θα αρχίσει (τυπικά) η διδασκαλία της Logo θα μου άρεσε να μαζευόμασταν κάποιοι συνάδελφοι και να "αντικαθιστούσαμε" τα σχετικά κεφάλαια του βιβλίου που αναφέρονται στο Microworlds με αντίστοιχες σημειώσεις για Kturtle... Λϊγες σελίδες είναι, και από το να αγοράζουμε το Microworlds καλύτερα να μοιράζουμε φωτοτυπίες στα παιδιά.

markakis

Επειδή διάβασα το post κάποιου συναδέλφου στο φόρουμ του Hellug που έψαχνε βοήθεια για τα ελληνικά, επανέρχομαι για να βοηθήσω όσους ενδιαφέρονται για το θέμα.

Έχω προσθέσει μερικές πληροφορίες και ένα "οδηγό εκκίνησης" στην παρακάτω διεύθυνση:
http://www.μαρκακης.gr/KTurtle

denix

Παράθεση από: alkisg στις 20 Σεπ 2008, 10:25:42 ΜΜ
Συμφωνώ απόλυτα, και από του χρόνου που θα αρχίσει (τυπικά) η διδασκαλία της Logo θα μου άρεσε να μαζευόμασταν κάποιοι συνάδελφοι και να "αντικαθιστούσαμε" τα σχετικά κεφάλαια του βιβλίου που αναφέρονται στο Microworlds με αντίστοιχες σημειώσεις για Kturtle... Λϊγες σελίδες είναι, και από το να αγοράζουμε το Microworlds καλύτερα να μοιράζουμε φωτοτυπίες στα παιδιά.

Έγινε. (αν και με 1,5 χρόνο καθυστέρηση...) ;)

mbot

Καλησπέρα, είμαι φοιτητής του τμήματος Πληροφορικής & Τηλεπικοινωνιών και κάνω την πτυχιακή μου εργασία που αφορά τη σύγκριση Logo-Like περιβαλλόντων. Μόλις εγκατέστησα το kturtle και έχω κάποιες απορίες. :)
Στο microworlds pro ο χρήστης μπορεί να κάνει εισαγωγή σχημάτων από μια καρτέλα. Στο kturtle πως μπορεί να γίνει αυτό;
Επίσης, πως μπορώ να εισάγω εκτός από την αρχική χελώνα και άλλες στον καμβά;
Αυτά για αρχή!! :P

mbot

Παράθεση από: mbot στις 08 Μαΐου 2010, 12:01:36 ΜΜ
Καλησπέρα, είμαι φοιτητής του τμήματος Πληροφορικής & Τηλεπικοινωνιών και κάνω την πτυχιακή μου εργασία που αφορά τη σύγκριση Logo-Like περιβαλλόντων. Μόλις εγκατέστησα το kturtle και έχω κάποιες απορίες. :)
Στο microworlds pro ο χρήστης μπορεί να κάνει εισαγωγή σχημάτων από μια καρτέλα. Στο kturtle πως μπορεί να γίνει αυτό;
Επίσης, πως μπορώ να εισάγω εκτός από την αρχική χελώνα και άλλες στον καμβά;
Αυτά για αρχή!! :P

Κάποιος;;; :(

markakis

Παράθεση από: mbot στις 08 Μαΐου 2010, 12:01:36 ΜΜ
Στο microworlds pro ο χρήστης μπορεί να κάνει εισαγωγή σχημάτων από μια καρτέλα. Στο kturtle πως μπορεί να γίνει αυτό;
Επίσης, πως μπορώ να εισάγω εκτός από την αρχική χελώνα και άλλες στον καμβά;

Και στα δυο ερωτήματα η απάντηση είναι ότι δεν υπάρχουν αυτές οι δυνατότητες/λειτουργίες στο KTurtle.

Για περισσότερη μελέτη γύρω από το KTurtle μπορείς να ανατρέξεις στο επίσημο εγχειρίδιο αλλά και στο  δικτυακό τόπο που αναφέρω παραπάνω και φροντίζω να είναι ενημερωμένος γύρω από την ελληνική έκδοση. Και βέβαια αν κάτι δεν καταλαβαίνεις μπορείς να ξαναρωτήσεις εδώ  :)

mbot

#7
Παράθεση από: markakis στις 17 Μαΐου 2010, 01:32:37 ΜΜ
Και στα δυο ερωτήματα η απάντηση είναι ότι δεν υπάρχουν αυτές οι δυνατότητες/λειτουργίες στο KTurtle.

Για περισσότερη μελέτη γύρω από το KTurtle μπορείς να ανατρέξεις στο επίσημο εγχειρίδιο αλλά και στο  δικτυακό τόπο που αναφέρω παραπάνω και φροντίζω να είναι ενημερωμένος γύρω από την ελληνική έκδοση. Και βέβαια αν κάτι δεν καταλαβαίνεις μπορείς να ξαναρωτήσεις εδώ  :)

Καλησπέρα. Τα διάβασα τα παραπάνω και τα χρησιμοποίησα και βλέπω αρκετές ομοιότητες με το microworlds pro. Αλλά έχω το εξής πρόβλημα.. Στο microworlds pro είχα υλοποιήσει το παιχνίδι της τρίλιζας με δύο παίκτες. Δηλαδή είχα φτιάξει 9 τετράγωνα-χελώνες στις οποίες όταν γινόταν κλικ μετατρέπονταν σε Χ ή Ο ανάλογα με το ποιος έπαιζε. Όμως αφού εδώ δεν μπορούμε να βάλουμε νέες χελώνες και σχήματα στο kturtle πως μπορεί να υλοποιηθεί το παιχνίδι αυτό; Μια ιδέα θα μου ήταν πολύ χρήσιμη.

Επίσης, ήχο,εικόνα και βίντεο μπορούμε να εισάγουμε στο kturtle;

Ευχαριστώ πολύ!!!!  :)

denix

Παράθεση από: mbot στις 25 Μαΐου 2010, 06:35:02 ΜΜ
Επίσης, ήχο,εικόνα και βίντεο μπορούμε να εισάγουμε στο kturtle;
Όχι...  :(
Παράθεση από: mbot στις 25 Μαΐου 2010, 06:35:02 ΜΜ
Καλησπέρα. Τα διάβασα τα παραπάνω και τα χρησιμοποίησα και βλέπω αρκετές ομοιότητες με το microworlds pro. Αλλά έχω το εξής πρόβλημα.. Στο microworlds pro είχα υλοποιήσει το παιχνίδι της τρίλιζας με δύο παίκτες. Δηλαδή είχα φτιάξει 9 τετράγωνα-χελώνες στις οποίες όταν γινόταν κλικ μετατρέπονταν σε Χ ή Ο ανάλογα με το ποιος έπαιζε. Όμως αφού εδώ δεν μπορούμε να βάλουμε νέες χελώνες και σχήματα στο kturtle πως μπορεί να υλοποιηθεί το παιχνίδι αυτό; Μια ιδέα θα μου ήταν πολύ χρήσιμη.
Ζωγραφίζοντας. Δες συνημμένα.

mbot

Παράθεση από: denix στις 26 Μαΐου 2010, 02:39:47 ΠΜ
Όχι...  :(Ζωγραφίζοντας. Δες συνημμένα.

Οκ. Μου εμφανίζει κάποια σφάλματα στον κώδικα.  :( Για παράδειγμα η πρώτη συνάρτηση είναι όπως παρακάτω:
μάθε πλέγμα {
  χσ 0,0,0
  πήγαινε 50,50
  επανάλαβε 4 {σδ 90 μπ 300}
  πήγαινε 150, 350 μπ 300
  πήγαινε 250, 350 μπ 300
  σδ 90
  πήγαινε 50, 150 μπ 300
  πήγαινε 50, 250 μπ 300
  σα 90
  κέντρο
}

δίπλα στο μάθε δηλαδή δεν καταλαβαίνει τι είναι. Το ίδιο συμβαίνει και στις επόμενες συναρτήσεις. Έκανα κάτι λάθος;;  :(

denix

Παράθεση από: mbot στις 26 Μαΐου 2010, 11:54:31 ΠΜ
δίπλα στο μάθε δηλαδή δεν καταλαβαίνει τι είναι. Το ίδιο συμβαίνει και στις επόμενες συναρτήσεις. Έκανα κάτι λάθος;;  :(
Δες.
αρχικοποίησε 
#################
μάθε πλέγμα {
  χσ 0,0,0
  πήγαινε 50,50
  επανάλαβε 4 {σδ 90 μπ 300}
  πήγαινε 150, 350 μπ 300
  πήγαινε 250, 350 μπ 300
  σδ 90
  πήγαινε 50, 150 μπ 300
  πήγαινε 50, 250 μπ 300
  σα 90
  κέντρο
}
μάθε ετικέτες {
χσ 0,255,0
$χ=50 $ψ=48 $α=1
  επανάλαβε 3 {
    επανάλαβε 3 {
      πήγαινε $χ, $ψ
      τύπωσε $α
      $α=$α+1
      $χ=$χ+100
    }
  $χ=50
  $ψ=$ψ+100
  }
}
μάθε καρέκλα {
  πήγαινε 375,200 κατ 0
}
μάθε ο $χ, $ψ {
  χσ 255,0,0
  πήγαινε $χ-4, $ψ+2
  σπ κατ 0 μπ 40 σδ 90 σκ
    επανάλαβε 30 {
      μπ 8 σδ 12
    }
  καρέκλα
}
μάθε χ $χ, $ψ {
  χσ 0,0,255
  πήγαινε $χ, $ψ
  σδ 45
  μπ 50 πι 100 μπ 50
  σα 90
  μπ 50 πι 100 μπ 50
  καρέκλα
}
# Ακέραια Διαίρεση
# ΜΟΝΟ για θετικούς >=1
μάθε αδ $α, $β {
  $π=στρογγυλοποίησε($α/$β-0.5)
  επίστρεψε $π
}
# Υπόλοιπο
# ΜΟΝΟ για θετικούς >=1
μάθε υπόλοιπο $α, $β {
  $υ=$α - $β * στρογγυλοποίησε($α/$β-0.5)
  επίστρεψε $υ
}

# Εμφάνιση πλέγματος
μσ 5
πλέγμα
ετικέτες
μσ 3
καρέκλα

# τεστ
# χ 100, 100
# ο 200, 200
# χ 300, 300
# ο 100, 200
# χ 300, 200
# ο 300, 100

# Δοκιμαστικό για θέσεις
επανάλαβε 4 {
  $πχ = ερώτηση "Παίκτης [Χ]: Δώσε θέση (από 1 ως 9)"
  $ι=υπόλοιπο ($πχ+2), 3
  $ι=($ι + 1) * 100
  $κ = (αδ ($πχ+2), 3) * 100
  χ $ι, $κ

  $πο = ερώτηση "Παίκτης [Ο]: Δώσε θέση (από 1 ως 9)"
  $ι=υπόλοιπο ($πο+2), 3
  $ι=($ι + 1) * 100
  $κ = (αδ ($πο+2), 3) * 100
  ο $ι, $κ
}

aspd

#11
Χρησιμοποίησα το microworlds pro φέτος μέσα από wine σε ubuntu 9.04 περιβάλλον.
Τη νέα χρονιά λέω να χρησιμοποιήσω το kturtle.
Το υλικό που παραθέτεις και κυρίως η  προσαρμογή του κεφαλαίου 2 είναι ό, τι ακριβώς χρειαζόμουνα.
Ευχαριστώ πολύ

Προσπάθησα να εγκαταστήσω τα ελληνικά στο kturtle με βάση τις παρακάτω οδηγίες
1. Copy logokeywords.el_GR.xml to kdeedu/kturtle/src/data/keywords/

2. Copy logohighlightstyle.el_GR.xml to kdeedu/kturtle/src/data/highlightstyles/

3. Copy el_GR directory to kdeedu/kturtle/examples/



In Ubuntu these paths are:

1. /usr/share/apps/kturtle/data/

2. /usr/share/apps/katepart/syntax/

3. /usr/share/apps/kturtle/examples/

Δεν υπάρχουν τα παραπάνω paths για  ubuntu 9.04.
Έχω /usr/share/kde4/apps/kturtle, αλλά δεν ακολουθεί data ή examples

Τελικά έστησα την εξελληνισμένη έκδοση με βάση το
http://wiki.ubuntu-gr.org/Γυμνάσιο/kturtle/2.0.1 Εγκατάσταση σε Ubuntu, όπου δούλεψε κατευθείαν.


mbot

Με βάση τον κώδικα που δώσατε πήρα και τροποποίησα την τρίλιζα για παιχνίδι με δύο παίκτες και παιχνίδι με υπολογιστή. Τα ανεβάζω να τα δείτε και να μου πείτε την άποψή σας και πιθανές ιδέες για βελτιώσεις.

#################
αρχικοποίησε
$χ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
}
#################
#Σχηματίζει το Ο στις συντεταγμένες που δινονται
μάθε ο $χ, $ψ {
  χσ 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 ως 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)
		{
			$σειρά = $σειρά + 1
	#		μήνυμα "Σειρά = " +$σειρά
		}
	}
αν 	$νικητής==0
{
	μήνυμα "Ισοπαλία. Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}[pre][/pre]

mbot

Και ο κώδικας για το παιχνίδι με τον υπολογιστή:

#################
αρχικοποίησε
$χ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
{
	μήνυμα "Ισοπαλία. Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}

mbot

Αυτή είναι η τελική μορφή της τρίλιζας, η οποία δίνει τη δυνατότητα στο χρήστη να επιλέξει στην αρχή του παιχνιδιού αν θα παίξει τρίλιζα με τον υπολογιστή ή με τρίλιζα με δύο παίκτες.
Θα ήθελα να ακούσω τις απόψεις σας για το πως σας φαίνεται. Ευχαριστώ πολύ.

#################
αρχικοποίησε
$χ1=-1
$χ2=-1
$χ3=-1
$χ4=-1
$χ5=-1
$χ6=-1
$χ7=-1
$χ8=-1
$χ9=-1
$σημαία=0
$σειρά=0 #ζυγά παίζει ο Χ, μονά ο Ο
$νικητής="ΚΑΝΕΙΣ"
$έλεγχος=0
$λάθος=1
$απάντηση=0
#################
#Το πλέγμα φτιάχνει το σχήμα της τρίλιζας!
μάθε πλέγμα {
χσ 0,0,0                                   #θέτει χρώμα στυλό το μαύρο

πήγαινε 50,50                         #πηγαίνει στη θέση με συντεταγμένες 50,50

επανάλαβε 4 {σδ 90 μπ 300}  #δημιουργεί τετράγωνο πλευράς 300

πήγαινε 150, 350 μπ 300        #πηγαίνει στη θέση με συντεταγμένες 150,350 και στη συνέχεια προχωράει μπροστά 300 εικονοστοιχεία. Αποτέλεσμα αυτού είναι η δημιουργία της 1ης στήλης του τετραγώνου.

πήγαινε 250, 350 μπ 300       # πηγαίνει στη θέση με συντεταγμένες 250,350 και στη συνέχεια προχωράει μπροστά 300 εικονοστοιχεία. Αποτέλεσμα αυτού είναι ο διαχωρισμός του τετραγώνου σε 3 στήλες.

σδ 90                                     #στρίβει δεξιά 90 μοίρες
πήγαινε 50, 150 μπ 300        #πηγαίνει στη θέση με συντεταγμένες 50,150 και στη συνέχεια προχωράει μπροστά 300 εικονοστοιχεία. Αποτέλεσμα αυτού είναι η δημιουργία της 1ης γραμμής του τετραγώνου.

πήγαινε 50, 250 μπ 300        #πηγαίνει στη θέση με συντεταγμένες 50,250 και στη συνέχεια προχωράει μπροστά 300 εικονοστοιχεία. Αποτέλεσμα αυτού είναι ο διαχωρισμός του τετραγώνου σε 3 γραμμές.

σα 90                                   #στρίβει αριστερά 90 μοίρες
κέντρο                                #μετακινείται στο κέντρο
}
#################
μσ 5                           #αλλάζει το μέγεθος στυλό σε 5. 
πλέγμα
#Βάζει τους αριθμούς στα τετράγωνα της τρίλιζας. Από 1 μέχρι 9
μάθε ετικέτες {
χσ 0,255,0              #θέτει χρώμα στυλό πράσινο.
$χ=50                    #συντεταγμένη χ           
$ψ=48                   #συντεταγμένη ψ
$α=1                     #νούμερα από 1 μέχρι 9. Το α θα τυπώνουμε
επανάλαβε 3 
{
         επανάλαβε 3   # σε αυτήν την επανάληψη τυπώνονται τα νούμερα τις γραμμές. Στην αρχή 1,2,3 μετά 4,5,6 και τέλος 7,8,9.
         {
              πήγαινε $χ, $ψ     #πηγαίνει στη θέση που θέλουμε 
              τύπωσε $α            #τυπώνει το α
              $α=$α+1             #το αυξάνει κατά 1
              $χ=$χ+100          #μετακινείται δεξιά κατά 100 εικονοστοιχεία
         }
         $χ=50
         $ψ=$ψ+100              #μετακινείται κάτω κατά 100 εικονοστοιχεία
}
}
#################
ετικέτες
#Μετακινεί τη χελώνα στη 375,200 για να μην παρεμβάλλεται στο σχήμα
μάθε καρέκλα {
πήγαινε 375,200 κατ 0
}
#################
μσ 3                   # αλλάζει το μέγεθος στυλό σε 3.
καρέκλα
#Σχηματίζει το Χ στις συντεταγμένες που δίνονται
μάθε χ $χ, $ψ {                             #καλείται χ και συντεταγμένηΧ,συντεταγμένηΨ
χσ 0,0,255                                     #θέτει χρώμα στυλό μπλε
$σημαία=0
$έλεγχος=0
αν (($χ == 100) και ($ψ == 100))     #αν είμαστε στο πάνω αριστερά τετράγωνο 
{
αν $χ1==1                                    # και η μεταβλητή χ1 είναι 1 το τετράγωνο έχει επιλεγεί ήδη από τον παίκτη με το «Χ»
{
$σημαία=1                                 #η σημαία γίνεται 1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"  #εκτυπώνεται μήνυμα
$έλεγχος=1                                #και η τιμή της μεταβλητής έλεγχος γίνεται 1
}
αλλιώς αν $χ1==2                     #αλλιώς αν η μεταβλητή χ1 είναι 2 το τετράγωνο έχει επιλεγεί ήδη από τον παίκτη με το «Ο»
{
$σημαία=1                                #η σημαία γίνεται 1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"   #εκτυπώνεται μήνυμα
$έλεγχος=1                               #και η τιμή της μεταβλητής έλεγχος γίνεται 1
}
αλλιώς                                      #αλλιώς το χ1 είναι ίσο με -1, και θα επιλεγεί από τον παίκτη με το «Χ»
{
$χ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)               #αν η σημαία είναι 0 τότε το τετράγωνο δεν έχει επιλεγεί και μπορούμε να ζωγραφίσουμε το Χ στο τετράγωνο αυτό.
{
πήγαινε $χ, $ψ                    #πηγαίνουμε στις συντεταγμένες που δίνονται
σδ 45                                 #και σχεδιάζουμε το Χ
μπ 50 πι 100 μπ 50
σα 90
μπ 50 πι 100 μπ 50
καρέκλα
}
}
#################
#Σχηματίζει το Ο στις συντεταγμένες που δίνονται
μάθε ο $χ, $ψ {                              #καλείται ο και συντεταγμένηΧ,συντεταγμένηΨ
χσ 255,0,0                                     #θέτει χρώμα στυλό κόκκινο
$σημαία=0
$έλεγχος=0
αν ($χ == 100) και ($ψ == 100)     #αν είμαστε στο πάνω αριστερά τετράγωνο
{
αν $χ1==1                                    # και η μεταβλητή χ1 είναι 1 το τετράγωνο έχει επιλεγεί ήδη από τον παίκτη με το «Χ»
{
$σημαία=1                                     #η σημαία γίνεται 1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Χ"    #εκτυπώνεται μήνυμα
$έλεγχος=1                                   #και η τιμή της μεταβλητής έλεγχος γίνεται 1
}
αλλιώς αν $χ1==2                         #αλλιώς αν η μεταβλητή χ1 είναι 2 το τετράγωνο έχει επιλεγεί ήδη από τον παίκτη με το «Ο»
{
$σημαία=1                                    #η σημαία γίνεται 1
μήνυμα "Ήδη επιλεγμένο τετράγωνο από τον παίκτη με το Ο"    #εκτυπώνεται μήνυμα
$έλεγχος=1                                   #και η τιμή της μεταβλητής έλεγχος γίνεται 1
}
αλλιώς                                          #αλλιώς το χ1 είναι ίσο με -1, και θα επιλεγεί από τον παίκτη με το «Ο»
{
$χ1=2                                          #και για αυτό η τιμή της μεταβλητή χ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)                       #αν η σημαία είναι 0 τότε το τετράγωνο δεν έχει επιλεγεί και μπορούμε να ζωγραφίσουμε το Χ στο τετράγωνο αυτό.

{
πήγαινε $χ, $ψ                            #πηγαίνουμε στις συντεταγμένες που δίνονται
σπ κατ 0 μπ 40 σδ 90 σκ               #και σχεδιάζουμε το Χ
επανάλαβε 30 
{
μπ 8 σδ 12
}
καρέκλα
}
}
#################
μάθε έλεγξε_νικητή
{
αν ( ($χ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 κερδίζει!!! Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση!"
τέλος
}
#################
μάθε νικητήςΟ
{
$νικητής="Ο"
μήνυμα "Ο Παίχτης με το Ο κερδίζει!!! Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση!"
τέλος
}


συνεχίζεται και στο επόμενο μήνυμα..

mbot

συνέχεια κώδικα...

###########################
μάθε υπολογιστής
{
	αν (($χ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
	#		μήνυμα "Σειρά = " +$σειρά
		}
	}
αν $νικητής=="ΚΑΝΕΙΣ"
{
μήνυμα "Ισοπαλία. Για να ξαναπαίξετε κάντε κλικ στο κουμπί Εκτέλεση"
}
}
παιχνίδι

mour

Μήπως είναι υπερβολικά δύσκολο για τα παιδιά???

mbot

Χμμ.... Μπορεί να είναι δύσκολο όντως για το παιχνίδι με τον υπολογιστή. Για το παιχνίδι με δύο παίκτες είναι αρκετά απλοϊκό νομίζω.
Αλλά από τη στιγμή που υλοποίησα κώδικα για όταν παίζει ο υπολογιστής από την αρχή γνώριζα ότι θα είναι λίγο πολύπλοκο. Λογικό αν σκεφτούμε ότι ο κώδικας για τον υπολογιστή είναι έτσι και αλλιώς πολύπλοκος. Εκεί νομίζω ότι υπάρχει η όποια δυσκολία..

markakis

Παράθεση από: aspd στις 15 Ιουν 2010, 11:15:32 ΜΜ
Προσπάθησα να εγκαταστήσω τα ελληνικά στο kturtle με βάση τις παρακάτω οδηγίες
1. Copy logokeywords.el_GR.xml to kdeedu/kturtle/src/data/keywords/
2. Copy logohighlightstyle.el_GR.xml to kdeedu/kturtle/src/data/highlightstyles/
3. Copy el_GR directory to kdeedu/kturtle/examples/

In Ubuntu these paths are:
1. /usr/share/apps/kturtle/data/
2. /usr/share/apps/katepart/syntax/
3. /usr/share/apps/kturtle/examples/

Δεν υπάρχουν τα παραπάνω paths για  ubuntu 9.04.
Έχω /usr/share/kde4/apps/kturtle, αλλά δεν ακολουθεί data ή examples

Οι οδηγίες αυτές αφορούν μέχρι και την έκδοση 8.04 του Ubuntu καθώς περιλάμβανε την έκδοση 3.x του KDE.

Από την έκδοση 8.10 και μετά, το Ubuntu, περιλαμβάνει το KDE 4.x και έχει ενσωματωμένα τα ελληνικά στο KTurtle. Έτσι χρειάζεται απλά και μόνο η εγκατάσταση του KTurtle και της υποστήριξη της ελληνικής γλώσσας (γίνεται αυτόματα μέσα από το "Σύστημα->Διαχείριση συστήματος->Γλωσσική υποστήριξη").

denix

Πολύ καλό!! Μου άρεσε!! Λίγη "τύχη" στις κινήσεις του υπολογιστή θα ήταν υπέροχη! Και λίγο "γιαχού" όταν κερδίζει ο παίκτης, του στυλ:
μάθε yahoo {
	επανάλαβε 3 {
		χκ 0,0,0 περίμενε 0.1
		χκ 255,255,255 περίμενε 0.1
		χκ 255,0,255 περίμενε 0.1
		χκ 255,255,255 περίμενε 0.1
	}
}
#####################
# Ο παίκτης κερδίζει:
yahoo

mbot

Παράθεση από: denix στις 03 Ιουλ 2010, 12:57:09 ΠΜ
Πολύ καλό!! Μου άρεσε!! Λίγη "τύχη" στις κινήσεις του υπολογιστή θα ήταν υπέροχη! Και λίγο "γιαχού" όταν κερδίζει ο παίκτης, του στυλ:
μάθε yahoo {
	επανάλαβε 3 {
		χκ 0,0,0 περίμενε 0.1
		χκ 255,255,255 περίμενε 0.1
		χκ 255,0,255 περίμενε 0.1
		χκ 255,255,255 περίμενε 0.1
	}
}
#####################
# Ο παίκτης κερδίζει:
yahoo


Ευχαριστώ πολύ!
Απλά επειδή είχα υλοποιήσει τον κώδικα του υπολογιστή για το MicroWorlds και για το Scratch ακριβώς όπως είναι παραπάνω είπα να μην τον αλλάξω. Φυσικά θα μπορούσε να βελτιωθεί, όμως δεν είναι αυτός ο στόχος της πτυχιακής μου... Μπορεί όμως αφού την τελειώσω να τον τελειοποιήσω! :)
Όντως πρόσθεσα το yahoo και είναι πιο ωραίο!!! :) Ευχαριστώ.

markakis

Υπάρχει ένα θεματάκι με την υποστήριξη γλωσσών πέρα της αγγλικής σε κάποιες εκδόσεις του KDE για Windows (μεταξύ αυτών και στην έκδοση 4.4.4). Συγκεκριμένα δεν υπάρχουν διαθέσιμα για κατέβασμα τα πακέτα γλωσσικής υποστήριξης, επομένως δεν μπορείτε να έχετε ελληνικά (ή άλλη γλώσσα) στο KTurtle. Υπενθυμίζω "KDE on Windows is not in the final state..."

Η λύση για να παρακάμψετε το πρόβλημα είναι απλή: κατεβάστε μια έκδοση που περιλαμβάνει τα πακέτα γλωσσικής υποστήριξης. Τη στιγμή που γράφεται αυτό το κείμενο ο mirror ftp.ntua.gr έχει την έκδοση 4.2.2 που είναι ΟΚ. Η πιο πρόσφατη που μπόρεσα να βρω και δεν έχει πρόβλημα είναι η έκδοση 4.4.1 στον mirror www.winkde.org.

Οι διαφορές που έχει το KTurtle σε αυτές τις εκδόσεις είναι από καμιά έως κάποιο ασήμαντο bug fix, οπότε πρακτικά δεν υπάρχει θέμα όποια και να επιλέξετε.

Σε κάθε περίπτωση δεν ξεχνάμε να επιλέξουμε το Language package kde-l10n-el για κατέβασμα, και στην πρώτη εκτέλεση του KTurtle να επιλέξουμε ως γλώσσα τα ελληνικά (Help -> Switch Application Language και Settings -> Script Language -> Greek).

Τα παραπάνω αφορούν τις εκδόσεις για Windows και όχι τις διανομές Linux.

alexxtasi

τη στιγμή αυτή υπάρχει η έκδοση 4.5.4 του kde και από τις δοκιμές που έκανα δεν υπάρχει πρόβλημα με τα ελληνικά (βέβαια επιλέγοντας το πακέτο ελληνικής γλώσσας!).
για τη χρήση στο μάθημα πληροφορικής Γ Γυμνασίου, έχει φτιαχτεί ένα wiki page, που μαζί με τις σημειώσεις του μαθήματος έχει και οδηγίες για εγκατάσταση του kde σε windows... για χρήση από τους μαθητές. http://wiki.ubuntu-gr.org/%CE%93%CF%85%CE%BC%CE%BD%CE%AC%CF%83%CE%B9%CE%BF/kturtle/2.0.2%20%CE%95%CE%B3%CE%BA%CE%B1%CF%84%CE%AC%CF%83%CF%84%CE%B1%CF%83%CE%B7%20%CF%83%CE%B5%20Windows

Θέλω να ρωτήσω αν ξέρει κανείς τρόπο να εγκατασταθεί στα windows το documentation του kturtle, αν βέβαια αυτό είναι στα ελληνικά. Στη σελίδα http://docs.kde.org/stable/en/kdeedu/ δεν είδα κάτι τέτοιο. Γνωρίζει κάποιος κάτι για τη μετάφραση του documentation?

markakis

Παράθεση από: alexxtasi στις 17 Φεβ 2011, 12:02:30 ΠΜ
Θέλω να ρωτήσω αν ξέρει κανείς τρόπο να εγκατασταθεί στα windows το documentation του kturtle, αν βέβαια αυτό είναι στα ελληνικά. Στη σελίδα http://docs.kde.org/stable/en/kdeedu/ δεν είδα κάτι τέτοιο. Γνωρίζει κάποιος κάτι για τη μετάφραση του documentation?

Έχω στείλει τη μετάφραση του documentation στην ελληνική ομάδα μετάφρασης του KDE εδώ και πολύ καιρό. Επειδή ήταν το πρώτο documentation εφαρμογής του KDE που μεταφραζόταν στα ελληνικά δεν μπορούσε να ανέβει μόνο του, οπότε το πράγμα έμεινε εκεί.

Ωστόσο στη σελίδα www.μαρκακησ.gr/KTurtle/ έχω ανεβάσει τα απαραίτητα αρχεία (kturtle.zip) και οδηγίες για χειρωνακτική εγκατάσταση σε Linux. Δυστυχώς η έκδοση για Windows απ' ότι βλέπω έχει διαφορές στους φακέλους και τα αρχεία και δεν μπορεί να γίνει εγκατάσταση με αυτό τον τρόπο.

alexxtasi

με λίγα λόγια το ελληνικό documentation για το kturtle είναι έτοιμο, απλά περιμένουμε να ενσωματωθεί στις διανομές (ή το εγκαθιστούμε μόνοι μας)... σωστά?
τώρα στο http://docs.kde.org/stable/en/kdeedu/ τι γίνεται? έχει ξεκινήσει κάποια διαδικασία ενσωμάτωσης ή δε μπορεί να γίνει κάτι τέτοιο?

το σκεπτικό μου είναι ότι:

1. μέχρι την ενσωμάτωση στις linux διανομές καταφεύγουμε στη χειρωνακτική εγκατάσταση (ltsp σε εργαστήρια)
2. αλλά για τους υπολογιστές με windows? Ίσως αν υπήρχε το documentation στο δίκτυο να έλυνε κάποια τέτοια προβλήματα (οι πιο πολλοί μαθητές έχουν windows στο σπίτι τους)

αν μπορώ να βοηθήσω ευχαρίστως, αρκεί να έχω καθοδήγηση. Προσπαθώ κιόλας να ενημερώσω το wiki.ubuntu-gr.org με τις σημειώσεις για το μάθημα της Γ' (πολύ καλή δουλειά του Λυκούργου), βάζοντας screenshots από τη διαδικασία εγκατάστασης σε windows, ώστε να είναι πιο εύκολο και σύντομο για τα πιτσιρίκια....

ευχαριστώ

skoud

Έχω εγκαταστήσει χειρωνακτικά σε windows XP, σύμφωνα με τις οδηγίες του συνάδελφου Μαρκάκη, το ελληνικό documentation στο φάκελο C:\Program Files\KDE\share\doc\HTML\el\kturtle και δουλεύει μια χαρά.

Παρεμπιπτόντως έχω φτιάξει ένα blog για τους μαθητές μου (http://14gymnasio-informatics.blogspot.com) , όπου έχω ανεβάσει τις σημειώσεις και ασκήσεις που τους έχω δώσει εφέτος. Κάθε παρατήρηση δεκτή.
Ενώ οι μαθητές ξέχασαν από καιρό τα λάθη του δασκάλου, αυτός ακόμα τα θυμάται...

markakis

Παράθεση από: alexxtasi στις 18 Φεβ 2011, 04:50:57 ΜΜ
με λίγα λόγια το ελληνικό documentation για το kturtle είναι έτοιμο, απλά περιμένουμε να ενσωματωθεί στις διανομές (ή το εγκαθιστούμε μόνοι μας)... σωστά?

σωστά, αλλά θα αργήσει καθώς δεν έχει προχωρήσει η μετάφραση του documentation του KDE στα ελληνικά και θα πρέπει να έχει μεταφραστεί ένα (σημαντικό) ποσοστό για να περιληφθεί μετάφραση.

Παράθεση από: alexxtasi στις 18 Φεβ 2011, 04:50:57 ΜΜ
τώρα στο http://docs.kde.org/stable/en/kdeedu/ τι γίνεται? έχει ξεκινήσει κάποια διαδικασία ενσωμάτωσης ή δε μπορεί να γίνει κάτι τέτοιο?

Νομίζω ότι το ίδιο ισχύει και για το δικτυακό τόπο. Εξάλλου το documentation είναι ένα. Ό,τι υπάρχει ενσωματωμένο στην εφαρμογή βρίσκεται και στο site.

Παράθεση από: alexxtasi στις 18 Φεβ 2011, 04:50:57 ΜΜ
1. μέχρι την ενσωμάτωση στις linux διανομές καταφεύγουμε στη χειρωνακτική εγκατάσταση (ltsp σε εργαστήρια)

Αυτό είναι η μια λύση. Μια άλλη είναι μια μορφή αυτοματοποίησης π.χ. μέσα από το αποθετήριο του ΠΣΔ

Παράθεση από: alexxtasi στις 18 Φεβ 2011, 04:50:57 ΜΜ
2. αλλά για τους υπολογιστές με windows? Ίσως αν υπήρχε το documentation στο δίκτυο να έλυνε κάποια τέτοια προβλήματα (οι πιο πολλοί μαθητές έχουν windows στο σπίτι τους)

χμμμ... είχα προσπαθήσει να το κάνω για να το ανεβάσω κάπου ως μια προσωρινή λύση. Δυστυχώς δεν τα κατάφερα με τα εργαλεία που (υποτίθεται) θα παρήγαγαν .html από τα .docbook αρχεία. Πάει καιρός όμως από τότε...

Τώρα, αν κάποιος θέλει να αφιερώσει κάμποσο χρόνο και να το κάνει χειρωνακτικά, μπορεί πάρει τα αγγλικά html και τη μετάφραση (από τα ελληνικά docbook ή να του στείλω τα .po) ώστε να έχουμε html με την ελληνική μετάφραση.

alkisg

Παράθεση από: markakis στις 18 Φεβ 2011, 01:23:44 ΠΜ
Ωστόσο στη σελίδα www.μαρκακησ.gr/KTurtle/ έχω ανεβάσει τα απαραίτητα αρχεία (kturtle.zip) και οδηγίες για χειρωνακτική εγκατάσταση σε Linux.

Εάν δεν υπάρχει περίπτωση να βγει πακέτο με το ελληνικό documentation του kturtle για το Ubuntu 10.04, τότε να δημοσιεύσουμε εμείς ένα πακέτο στο αποθετήριο για να διευκολύνουμε την κατάσταση.

Να το ονομάσω kturtle-el και απλά να βάλω τα αρχεία από το kturtle.zip και dependency στο kturtle; Χρειάζεται κάτι άλλο;
Ή να το ονομάσω kturtle και να συμπεριλάβω και τα αρχεία του πρωτότυπου kturtle, ώστε να έρθει σαν update για όλους;

Για τα Windows, ίσως ένα self-extracting .exe που να τα αποσυμπιέζει στην κατάλληλη θέση να ήταν ένα βολικό workaround.

markakis

Παράθεση από: alkisg στις 24 Φεβ 2011, 06:45:51 ΜΜ
Εάν δεν υπάρχει περίπτωση να βγει πακέτο με το ελληνικό documentation του kturtle για το Ubuntu 10.04, τότε να δημοσιεύσουμε εμείς ένα πακέτο στο αποθετήριο για να διευκολύνουμε την κατάσταση.

Δε νομίζω να βγει πακέτο. Η ελληνική μετάφραση των εφαρμογών του KDE έχει επιταχυνθεί τελευταία, όμως δεν ισχύει το ίδιο με το documentation.

Παράθεση από: alkisg στις 24 Φεβ 2011, 06:45:51 ΜΜ
Να το ονομάσω kturtle-el και απλά να βάλω τα αρχεία από το kturtle.zip και dependency στο kturtle; Χρειάζεται κάτι άλλο;
Ή να το ονομάσω kturtle και να συμπεριλάβω και τα αρχεία του πρωτότυπου kturtle, ώστε να έρθει σαν update για όλους;

Ναι, αρκεί τα αρχεία του .zip να μπουν στο φάκελο /usr/share/doc/kde/HTML/el/kturtle/
Νομίζω πιο κομψό είναι να υπάρχει ένα πακέτο kturtle-el που να προσθέτει το ελληνικό documentation και απλά να έχει dependency στο kturtle. Το μειονέκτημα σε αυτή την περίπτωση, όπως λες και 'συ, είναι ότι δεν θα έρθει ως update στις υπάρχουσες ενημερώσεις αλλά θα πρέπει να το προσθέσει ο χρήστης-διαχειριστής. Το πακέτο kturtle-el μπορεί να είναι στα προτεινόμενα των sch-scripts  για το Γυμνάσιο αντί του πακέτου kturtle.

Παράθεση από: alkisg στις 24 Φεβ 2011, 06:45:51 ΜΜ
Για τα Windows, ίσως ένα self-extracting .exe που να τα αποσυμπιέζει στην κατάλληλη θέση να ήταν ένα βολικό workaround.
Το ζήτημα στα Windows είναι ποια είναι η κατάλληλη θέση. Σε παλαιότερες εκδόσεις του KDE για Windows η δομή των φακέλων ήταν παρόμοια με το linux και αρκούσε η αντιγραφή των αρχείων. Στην 4.5.x που δοκίμασα (windows πάντα) βλέπω έχουν αλλάξει οι φάκελοι. Αν κάποιος τα κατάφερε σε πρόσφατη έκδοση να πει πως...

alkisg

Τελικά η σωστή τους θέση είναι στο πακέτο kde-l10n-el. Απ' ότι φαίνεται στη λίστα αρχείων του πακέτου, έχουν ήδη βάλει τα ελληνικά docbooks για τον konqueror εκεί, οπότε δεν πρέπει να είναι δύσκολο να συμπεριλάβουν και τα docbooks του kturtle.
Μέχρι όμως να τα συμπεριλάβουν εμείς μπορούμε να ανεβάσουμε στο αποθετήριο μια βελτιωμένη έκδοση αυτού του πακέτου που να τα περιέχει. Αυτό θα έρθει αυτόματα σαν update για όλους.

Με παραξενεύει όμως το ότι φαίνεται το Debian να έχει διαφορετικό πακέτο kde-l10n-el από το Ubuntu, θα το ψάξω με την πρώτη ευκαιρία...

alkisg

Παράθεση από: markakis στις 18 Φεβ 2011, 01:23:44 ΠΜ
Έχω στείλει τη μετάφραση του documentation στην ελληνική ομάδα μετάφρασης του KDE εδώ και πολύ καιρό. Επειδή ήταν το πρώτο documentation εφαρμογής του KDE που μεταφραζόταν στα ελληνικά δεν μπορούσε να ανέβει μόνο του, οπότε το πράγμα έμεινε εκεί.

Γρηγόρη πότε και πού το έστειλες; Αν είναι σε κάποια mailing list, στείλε το ακριβές link από το archive της για να αναμοχλεύσουμε το ζήτημα.
Το πρώτο βήμα είναι να πάει upstream εδώ: http://websvn.kde.org/trunk/l10n-kde4/el/docmessages/
Να τα αντίστοιχα αγγλικά templates: http://websvn.kde.org/trunk/l10n-kde4/templates/docmessages/
Τα docbooks του kturtle είναι στον υποφάκελο kdeedu.
Και η σελίδα επικοινωνίας της ελληνικής ομάδας KDE: http://l10n.kde.org/team-infos.php?teamcode=el

markakis

θα 'ναι καμια διετία, τότε που υπεύθυνος ήταν ακόμα ο Γεωργαράς. Η μετάφραση της εφαρμογής μπήκε upstream στο KDE αλλά το documentation ατύχησε επειδή ήταν το μόνο. Αφού μπήκε του konqueror τότε μπορεί να μπει και του KTurtle. Όντως αξίζει να αναμοχλεύσουμε το ζήτημα. Θα δω αν έχει αλλαγές και το ξαναστείλω στην ομάδα.

alexxtasi

Γρηγόρη και Άλκη...
αφήνω τις τεχνικές λεπτομέρειες σε εσάς για το upstream του documentation.
θα μπορούσα να βοηθήσω (με το δικό μου ρυθμό!!) στη δημιουργία του ελληνικού http://docs.kde.org/stable/en/kdeedu/  ??
Καταλαβαίνω πως είναι ένα online documentation ανεξάρτητο από αυτό του πακέτου έτσι?
Αν μου στείλετε απαραίτητο υλικό και οδηγίες (για νιούφιδες)  θα το ξεκινήσω... (χαλαρά όμως ε...)

areti1973

Καλησπέρα σας,

Είδα στο forum αυτά που έχετε αναρτήσει και αφορούν στο παιχνίδι τρίλιζα για 2 παίκτες σε Logo - kturtle.
Είμαι φοιτήτρια πληροφορικής και έχω γράψει παρόμοιο κώδικα για αυτό το παιχνίδι στην εργασία μου.
Κοίταξα και το δικό σας και θα ήθελα να σας ενημερώσω πως και η δική μου εκδοχή και η δική σας (κώδικα)
δεν τρέχουν διότι χτυπά η εντολή "αλλιώς αν".
}
αλλιώς αν $χ2==2
{
Έχετε καμιά ιδέα για το πως θα το ξεπεράσουμε αυτό? Είστε πιο έμπειρος και θα ήθελα τη βοήθεια σας εαν μπορείτε.
Ευχαριστώ πολύ.

areti1973

Εϊναι γραμμένο στο Logo - Κturtle και ο επεξεργαστής χτυπά συνεχώς την εντολή "αλλιώς" καθώς και το "αλλιώς αν"

markakis

Παράθεση από: areti1973 στις 04 Μαΐου 2012, 09:31:27 ΜΜ
Εϊναι γραμμένο στο Logo - Κturtle και ο επεξεργαστής χτυπά συνεχώς την εντολή "αλλιώς" καθώς και το "αλλιώς αν"


Μήπως το λάθος δεν είναι στην σύνταξη της εντολής αλλά στο άνοιγμα/κλείσιμο των άγκιστρων? {}
Μήπως υπάρχει ένα άγκιστρο λιγότερο ή περισσότερο στον κώδικα σου; Τέτοιου είδους σφάλματα δυστυχώς δεν εντοπίζονται από τον διερμηνευτή.

Ένα απλό παράδειγμα σύνταξης της *αν* και *αλλιώς αν* είναι το παρακάτω

$χ = ερώτηση "Δώσε ένα αριθμό"
αν $χ==0 {
   τύπωσε "Μηδέν"
} αλλιώς αν $χ>0 {
   τύπωσε "Θετικός"
} αλλιώς {
   τύπωσε "Αρνητικός"
}