this is the greek alphabet with character and proper pronunciation due to the fact that the web site doesn't support large files, i was unable to attach them, but anyway here's the

dear friendzone,
there is a bug, when your about to change the fonts, the state from english to greek, it's unstable/none/both states. The problem just vanishes, after the second click

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    ` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

global pushed_this$
global txt$
global proper_pronunciation$="false"
global greek_fonts$="false"
global empty_1$="false"
global empty_2$="false"
global empty_3$="false"
Path$=GET DIR$()
SET DIR Path$+"\character pronunciation\"
load sound "α.wav",1
load sound "β.wav",2
load sound "γ.wav",3
load sound "δ.wav",4
load sound "ε.wav",5
load sound "ζ.wav",6
load sound "η.wav",7
load sound "θ.wav",8
load sound "ι.wav",9
load sound "κ.wav",10
load sound "λ.wav",11
load sound "μ.wav",12
load sound "ν.wav",13
load sound "ξ.wav",14
load sound "ο.wav",15
load sound "Ï€.wav",16
load sound "ρ.wav",17
load sound "σ.wav",18
load sound "Ï„.wav",19
load sound "Ï….wav",20
load sound "φ.wav",21
load sound "χ.wav",22
load sound "ψ.wav",23
load sound "ω.wav",24
SET DIR Path$+"\alphabet pronunciation\"
load sound "alpha.wav",25
load sound "bita.wav", 26
load sound "gamma.wav",27
load sound "delta.wav",28
load sound "epsilo.wav",29
load sound "zita.wav",30
load sound "itta.wav",31
load sound "thita.wav",32
load sound "iota.wav",33
load sound "kappa.wav",34
load sound "lamda.wav",35
load sound "mi.wav",36
load sound "ni.wav",37
load sound "xsi.wav",38
load sound "omicro.wav",39
load sound "pi.wav",40
load sound "ro.wav",41
load sound "sigma.wav",42
load sound "taf.wav",43
load sound "ipsilo.wav",44
load sound "fi.wav",45
load sound "xi.wav",46
load sound "psi.wav",47
load sound "omega.wav",48
maxx=screen width()
maxy=screen height()
halfx=maxx/2
halfy=maxy/2
do
if (greek_fonts$="true")
make_button(halfx*(0.15625*1),halfy*(0.1*1),200.0,0.0,0.0,"α")
make_button(halfx*(0.15625*1),halfy*(0.1*2),200.0,0.0,0.0,"β")
make_button(halfx*(0.15625*1),halfy*(0.1*3),200.0,0.0,0.0,"γ")
make_button(halfx*(0.15625*1),halfy*(0.1*4),200.0,0.0,0.0,"δ")
make_button(halfx*(0.15625*1),halfy*(0.1*5),200.0,0.0,0.0,"ε")
make_button(halfx*(0.15625*1),halfy*(0.1*6),200.0,0.0,0.0,"ζ")
make_button(halfx*(0.15625*1),halfy*(0.1*7),200.0,0.0,0.0,"η")
make_button(halfx*(0.15625*1),halfy*(0.1*8),200.0,0.0,0.0,"θ")
make_button(halfx*(0.15625*3),halfy*(0.1*1),200.0,0.0,0.0,"ι")
make_button(halfx*(0.15625*3),halfy*(0.1*2),200.0,0.0,0.0,"κ")
make_button(halfx*(0.15625*3),halfy*(0.1*3),200.0,0.0,0.0,"λ")
make_button(halfx*(0.15625*3),halfy*(0.1*4),200.0,0.0,0.0,"μ")
make_button(halfx*(0.15625*3),halfy*(0.1*5),200.0,0.0,0.0,"ν")
make_button(halfx*(0.15625*3),halfy*(0.1*6),200.0,0.0,0.0,"ξ")
make_button(halfx*(0.15625*3),halfy*(0.1*7),200.0,0.0,0.0,"ο")
make_button(halfx*(0.15625*3),halfy*(0.1*8),200.0,0.0,0.0,"Ï€")
make_button(halfx*(0.15625*5),halfy*(0.1*1),200.0,0.0,0.0,"ρ")
make_button(halfx*(0.15625*5),halfy*(0.1*2),200.0,0.0,0.0,"σ")
make_button(halfx*(0.15625*5),halfy*(0.1*3),200.0,0.0,0.0,"Ï„")
make_button(halfx*(0.15625*5),halfy*(0.1*4),200.0,0.0,0.0,"Ï…")
make_button(halfx*(0.15625*5),halfy*(0.1*5),200.0,0.0,0.0,"φ")
make_button(halfx*(0.15625*5),halfy*(0.1*6),200.0,0.0,0.0,"χ")
make_button(halfx*(0.15625*5),halfy*(0.1*7),200.0,0.0,0.0,"ψ")
make_button(halfx*(0.15625*5),halfy*(0.1*8),200.0,0.0,0.0,"ω")
make_button(halfx*(0.15625*9),halfy*(0.1*1),0,200.0,0.0,"Κανονική Προφορά Χαρακτήρων")
make_button(halfx*(0.15625*9),halfy*(0.1*2),0,200.0,0.0,"Ελληνικοί Χαρακτήρες")
make_button(halfx*(0.15625*9),halfy*(0.1*3),0,200.0,0.0,"Άδειο 1")
make_button(halfx*(0.15625*9),halfy*(0.1*4),0,200.0,0.0,"Άδειο 2")
make_button(halfx*(0.15625*9),halfy*(0.1*5),0,200.0,0.0,"Άδειο 3")
else
make_button(halfx*(0.15625*1),halfy*(0.1*1),200.0,0.0,0.0,"alpha")
make_button(halfx*(0.15625*1),halfy*(0.1*2),200.0,0.0,0.0,"bita")
make_button(halfx*(0.15625*1),halfy*(0.1*3),200.0,0.0,0.0,"gamma")
make_button(halfx*(0.15625*1),halfy*(0.1*4),200.0,0.0,0.0,"delta")
make_button(halfx*(0.15625*1),halfy*(0.1*5),200.0,0.0,0.0,"epsilo")
make_button(halfx*(0.15625*1),halfy*(0.1*6),200.0,0.0,0.0,"zita")
make_button(halfx*(0.15625*1),halfy*(0.1*7),200.0,0.0,0.0,"itta")
make_button(halfx*(0.15625*1),halfy*(0.1*8),200.0,0.0,0.0,"thita")
make_button(halfx*(0.15625*3),halfy*(0.1*1),200.0,0.0,0.0,"iota")
make_button(halfx*(0.15625*3),halfy*(0.1*2),200.0,0.0,0.0,"kappa")
make_button(halfx*(0.15625*3),halfy*(0.1*3),200.0,0.0,0.0,"lamda")
make_button(halfx*(0.15625*3),halfy*(0.1*4),200.0,0.0,0.0,"mi")
make_button(halfx*(0.15625*3),halfy*(0.1*5),200.0,0.0,0.0,"ni")
make_button(halfx*(0.15625*3),halfy*(0.1*6),200.0,0.0,0.0,"xsi")
make_button(halfx*(0.15625*3),halfy*(0.1*7),200.0,0.0,0.0,"omicro")
make_button(halfx*(0.15625*3),halfy*(0.1*8),200.0,0.0,0.0,"pi")
make_button(halfx*(0.15625*5),halfy*(0.1*1),200.0,0.0,0.0,"ro")
make_button(halfx*(0.15625*5),halfy*(0.1*2),200.0,0.0,0.0,"sigma")
make_button(halfx*(0.15625*5),halfy*(0.1*3),200.0,0.0,0.0,"taf")
make_button(halfx*(0.15625*5),halfy*(0.1*4),200.0,0.0,0.0,"ipsilo")
make_button(halfx*(0.15625*5),halfy*(0.1*5),200.0,0.0,0.0,"fi")
make_button(halfx*(0.15625*5),halfy*(0.1*6),200.0,0.0,0.0,"xi")
make_button(halfx*(0.15625*5),halfy*(0.1*7),200.0,0.0,0.0,"psi")
make_button(halfx*(0.15625*5),halfy*(0.1*8),200.0,0.0,0.0,"omega")
make_button(halfx*(0.15625*9),halfy*(0.1*1),0,200.0,0.0,"Proper Alphabet Pronunciation")
make_button(halfx*(0.15625*9),halfy*(0.1*2),0,200.0,0.0,"Greek Fonts")
make_button(halfx*(0.15625*9),halfy*(0.1*3),0,200.0,0.0,"Empty 1")
make_button(halfx*(0.15625*9),halfy*(0.1*4),0,200.0,0.0,"Empty 2")
make_button(halfx*(0.15625*9),halfy*(0.1*5),0,200.0,0.0,"Empty 3")
endif
make_button(halfx*(0.15625*12),halfy*(0.1*1),0,0.0,200.0,proper_pronunciation$)
make_button(halfx*(0.15625*12),halfy*(0.1*2),0,0.0,200.0,greek_fonts$)
make_button(halfx*(0.15625*12),halfy*(0.1*3),0,0.0,200.0,empty_1$)
make_button(halfx*(0.15625*12),halfy*(0.1*4),0,0.0,200.0,empty_2$)
make_button(halfx*(0.15625*12),halfy*(0.1*5),0,0.0,200.0,empty_3$)

line 0,halfy,maxx,halfy
line halfx,0,halfx,halfy
line 0,halfy*1.2,maxx,halfy*1.2

if (pushed_this$="Proper Alphabet Pronunciation")
if (proper_pronunciation$="false")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"The Symbols representing a speech")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"  sound as they would have been")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"        pronunced in a word.")
else
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"The Symbols representing a speech")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"  sound as they would have been")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8)," pronunced in the Greek alphabet.")
endif
endif

if (pushed_this$="Greek Fonts")
if (greek_fonts$="false")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"The Symbols represented in the")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"  alphabet corner, appear by")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"   the use of English Fonts.")
else
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"The Symbols represented in the")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"  alphabet corner, appear by")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"    the use of Greek Fonts.")
endif
endif

if (pushed_this$="Empty 1")
if (empty_1$="false")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"       empty 1 is false")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"")
else
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"       empty 1 is true")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"")
endif
endif

if (pushed_this$="Empty 2")
if (empty_2$="false")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"       empty 2 is false")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"")
else
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"       empty 2 is true")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"")
endif
endif

if (pushed_this$="Empty 3")
if (empty_3$="false")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"       empty 3 is false")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"")
else
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"       empty 3 is true")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"")
endif
endif
`````````````````````````
if (pushed_this$="Κανονική Προφορά Χαρακτήρων")
if (proper_pronunciation$="Ψευδής")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"The Symbols representing a speech")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"  sound as they would have been")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"        pronunced in a word.")
else
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"The Symbols representing a speech")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"  sound as they would have been")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8)," pronunced in the Greek alphabet.")
endif
endif

if (pushed_this$="Ελληνικοί Χαρακτήρες")
if (greek_fonts$="Ψευδής")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"  Τα σύμβολα που παρουσιάζονται")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"στο μέρος του αλφάβητου,εμφανίζονται")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"     με Αγγλικούς χαρακτήρες.")
else
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"   Τα σύμβολα που παρουσιάζονται")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7),"στο μέρος του αλφάβητου, εμφανίζονται")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"     με Ελληνικούς χαρακτήρες.")
endif
endif

if (pushed_this$="Άδειο 1")
if (empty_1$="Ψευδής")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7)," Πρώτη θέση φανταστική")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"")
else
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7)," Πρώτη θέση πραγματική")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"")
endif
endif

if (pushed_this$="Άδειο 2")
if (empty_2$="Ψευδής")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7)," Δεύτερη θέση φανταστική")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"")
else
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7)," Δεύτερη θέση πραγματική")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"")
endif
endif

if (pushed_this$="Άδειο 3")
if (empty_3$="Ψευδής")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7)," Τρίτη θέση φανταστική")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"")
else
print_xy(halfx*(0.15625*6.7),halfy*(0.1*6),"")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*7)," Τρίτη θέση πραγματική")
print_xy(halfx*(0.15625*6.7),halfy*(0.1*8),"")
endif
endif
loop
end

function make_button(x,y,r#,g#,b#,txt$)
button(x,y,txt$,r#,g#,b#)
endfunction

function print_xy(x,y,message$)
set cursor x,y
print message$
endfunction

function print_xy_int(x,y,i)
set cursor x,y
print i
endfunction

function button(x,y,txt$,r#,g#,b#)
   ` code made by Atreides (I don't mind if you don't add me to your credits ^^)
   ` X ans Y are the center of the button
   ` txt is the text of the button
   ` r, g and b is the color of the button
   mob as boolean
   if mousex()>x-text width(txt$)/2-6 and mousex()<x+text width(txt$)/2+6
      if mousey()>y-text height(txt$)/2-2 and mousey()<y+text height(txt$)/2+2
         if mouseclick()=1 then :mob=1:pushed_this$=txt$:cls 0:switch_states():Play_sound(pushed_this$)
      endif
   endif
   if mob=0
      ink rgb(r#*0.7,g#*0.7,b#*0.7),0
      box x-text width(txt$)/2-6,y-text height(txt$)/2-2,x+text width(txt$)/2+6,y+text height(txt$)/2+4
      ink rgb(r#,g#,b#),0
      box x-text width(txt$)/2-3,y-text height(txt$)/2,x+text width(txt$)/2+3,y+text height(txt$)/2+2
      if (r#+g#+b#)/3>=128
         ink rgb(0,0,0),0
      else
         ink rgb(255,255,255),0
      endif
      text x-text width(txt$)/2,y-text height(txt$)/2,txt$
   else
      repeat
         ink rgb(r#,g#,b#),0
         box x-text width(txt$)/2-6,y-text height(txt$)/2-2,x+text width(txt$)/2+6,y+text height(txt$)/2+4
         ink rgb(r#*0.7,g#*0.7,b#*0.7),0
         box x-text width(txt$)/2-3,y-text height(txt$)/2,x+text width(txt$)/2+3,y+text height(txt$)/2+2
         if (r#*0.7+g#*0.7+b#*0.7)/3>=128
            ink rgb(0,0,0),0
         else
            ink rgb(255,255,255),0
         endif
         text x-text width(txt$)/2,y-text height(txt$)/2,txt$
         sync
      until mouseclick()=0
      if mousex()>x-text width(txt$)/2-6 and mousex()<x+text width(txt$)/2+6 and mousey()>y-text height(txt$)/2-2 and mousey()<y+text height(txt$)/2+2
         if mouseclick()=1 then mob=1
      else
         mob = 0
      endif
   endif
   ink rgb(255,255,255),0
endfunction mob


function Play_sound(pushed_this$)
   if (pushed_this$="α")then:play sound 1
   if (pushed_this$="β")then:Play sound 2
   if (pushed_this$="γ")then:play sound 3
   if (pushed_this$="δ")then:play sound 4
   if (pushed_this$="ε")then:play sound 5
   if (pushed_this$="ζ")then:play sound 6
   if (pushed_this$="η")then:PLAY sound 7
   if (pushed_this$="θ")then:Play sound 8
   if (pushed_this$="ι")then:play sound 9
   if (pushed_this$="κ")then:play sound 10
   if (pushed_this$="λ")then:play sound 11
   if (pushed_this$="μ")then:play sound 12
   if (pushed_this$="ν")then:PLAY sound 13
   if (pushed_this$="ξ")then:Play sound 14
   if (pushed_this$="ο")then:play sound 15
   if (pushed_this$="Ï€")then:play sound 16
   if (pushed_this$="ρ")then:play sound 17
   if (pushed_this$="σ")then:play sound 18
   if (pushed_this$="Ï„")then:PLAY sound 19
   if (pushed_this$="Ï…")then:Play sound 20
   if (pushed_this$="φ")then:play sound 21
   if (pushed_this$="χ")then:play sound 22
   if (pushed_this$="ψ")then:play sound 23
   if (pushed_this$="ω")then:play sound 24

if (proper_pronunciation$="false")
   if (pushed_this$="alpha")then:play sound 1
   if (pushed_this$="bita")then:Play sound 2
   if (pushed_this$="gamma")then:play sound 3
   if (pushed_this$="delta")then:play sound 4
   if (pushed_this$="epsilo")then:play sound 5
   if (pushed_this$="zita")then:play sound 6
   if (pushed_this$="itta")then:PLAY sound 7
   if (pushed_this$="thita")then:Play sound 8
   if (pushed_this$="iota")then:play sound 9
   if (pushed_this$="kappa")then:play sound 10
   if (pushed_this$="lamda")then:play sound 11
   if (pushed_this$="mi")then:play sound 12
   if (pushed_this$="ni")then:PLAY sound 13
   if (pushed_this$="xsi")then:Play sound 14
   if (pushed_this$="omicro")then:play sound 15
   if (pushed_this$="pi")then:play sound 16
   if (pushed_this$="ro")then:play sound 17
   if (pushed_this$="sigma")then:play sound 18
   if (pushed_this$="taf")then:PLAY sound 19
   if (pushed_this$="ipsilo")then:Play sound 20
   if (pushed_this$="fi")then:play sound 21
   if (pushed_this$="xi")then:play sound 22
   if (pushed_this$="psi")then:play sound 23
   if (pushed_this$="omega")then:play sound 24

else
   if (pushed_this$="alpha")then:play sound 25
   if (pushed_this$="bita")then:Play sound 26
   if (pushed_this$="gamma")then:play sound 27
   if (pushed_this$="delta")then:play sound 28
   if (pushed_this$="epsilo")then:play sound 29
   if (pushed_this$="zita")then:play sound 30
   if (pushed_this$="itta")then:PLAY sound 31
   if (pushed_this$="thita")then:Play sound 32
   if (pushed_this$="iota")then:play sound 33
   if (pushed_this$="kappa")then:play sound 34
   if (pushed_this$="lamda")then:play sound 35
   if (pushed_this$="mi")then:play sound 36
   if (pushed_this$="ni")then:PLAY sound 37
   if (pushed_this$="xsi")then:Play sound 38
   if (pushed_this$="omicro")then:play sound 39
   if (pushed_this$="pi")then:play sound 40
   if (pushed_this$="ro")then:play sound 41
   if (pushed_this$="sigma")then:play sound 42
   if (pushed_this$="taf")then:PLAY sound 43
   if (pushed_this$="ipsilo")then:Play sound 44
   if (pushed_this$="fi")then:play sound 45
   if (pushed_this$="xi")then:play sound 46
   if (pushed_this$="psi")then:play sound 47
   if (pushed_this$="omega")then:play sound 48
endif

endfunction

function switch_states()
if (pushed_this$="Proper Alphabet Pronunciation")
   if (proper_pronunciation$="false")
      proper_pronunciation$="true"
   else
   proper_pronunciation$="false"
   endif
endif

if (pushed_this$="Greek Fonts")
   if (greek_fonts$="false")
      greek_fonts$="true"
   else
   greek_fonts$="false"
   endif
endif

if (pushed_this$="Empty 1")
   if (empty_1$="false")
      empty_1$="true"
   else
   empty_1$="false"
   endif
endif

if (pushed_this$="Empty 2")
   if (empty_2$="false")
      empty_2$="true"
   else
   empty_2$="false"
   endif
endif

if (pushed_this$="Empty 3")
   if (empty_3$="false")
      empty_3$="true"
   else
   empty_3$="false"
   endif
endif
``````````````````````
if (pushed_this$="Κανονική Προφορά Χαρακτήρων")
   if (proper_pronunciation$="Ψευδής")
      proper_pronunciation$="Αληθής"
   else
   proper_pronunciation$="Ψευδής"
   endif
endif

if (pushed_this$="Ελληνικοί Χαρακτήρες")
   if (greek_fonts$="Ψευδής")
      greek_fonts$="Αληθής"
   else
   greek_fonts$="Ψευδής"
   endif
endif

if (pushed_this$=" Άδειο 1")
   if (empty_1$="Ψευδής")
      empty_1$="Αληθής"
   else
   empty_1$="Ψευδής"
   endif
endif

if (pushed_this$=" Άδειο 2")
   if (empty_2$="Ψευδής")
      empty_2$="Αληθής"
   else
   empty_2$="Ψευδής"
   endif
endif

if (pushed_this$=" Άδειο 3")
   if (empty_3$="Ψευδής")
      empty_3$="Αληθής"
   else
   empty_3$="Ψευδής"
   endif
endif
endfunction

function clear_region_box(x1,y1,x2,y2,color1,color2,color3,color4)
box x1,y1,x2,y2,color1,color2,color3,color4
endfunction