TheGameCreators - CodeBase

Category: Complete Applications

Version: 1.0

Information

Uploaded: 11th Aug 2004 18:24

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

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 code

Full Description

dear friendzone,<br /> 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<br />

DarkBASIC Professional Source Code

` 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

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

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

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

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

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

`````````````````````````

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

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

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

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

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

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

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

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

if (pushed_this$="Greek Fonts")

if (greek_fonts$="false")

greek_fonts$="true"

else

greek_fonts$="false"

endif

if (pushed_this$="Empty 1")

if (empty_1$="false")

empty_1$="true"

else

empty_1$="false"

endif

if (pushed_this$="Empty 2")

if (empty_2$="false")

empty_2$="true"

else

empty_2$="false"

endif

if (pushed_this$="Empty 3")

if (empty_3$="false")

empty_3$="true"

else

empty_3$="false"

endif

``````````````````````

if (proper_pronunciation$="Î¨ÎµÏ…Î´Î®Ï‚")

proper_pronunciation$="Î‘Î»Î·Î¸Î®Ï‚"

else

proper_pronunciation$="Î¨ÎµÏ…Î´Î®Ï‚"

endif

if (pushed_this$="Î•Î»Î»Î·Î½Î¹ÎºÎ¿Î¯ Î§Î±ÏÎ±ÎºÏ„Î®ÏÎµÏ‚")

if (greek_fonts$="Î¨ÎµÏ…Î´Î®Ï‚")

greek_fonts$="Î‘Î»Î·Î¸Î®Ï‚"

else

greek_fonts$="Î¨ÎµÏ…Î´Î®Ï‚"

endif

if (pushed_this$=" Î†Î´ÎµÎ¹Î¿ 1")

if (empty_1$="Î¨ÎµÏ…Î´Î®Ï‚")

empty_1$="Î‘Î»Î·Î¸Î®Ï‚"

else

empty_1$="Î¨ÎµÏ…Î´Î®Ï‚"

endif

if (pushed_this$=" Î†Î´ÎµÎ¹Î¿ 2")

if (empty_2$="Î¨ÎµÏ…Î´Î®Ï‚")

empty_2$="Î‘Î»Î·Î¸Î®Ï‚"

else

empty_2$="Î¨ÎµÏ…Î´Î®Ï‚"

endif

if (pushed_this$=" Î†Î´ÎµÎ¹Î¿ 3")

if (empty_3$="Î¨ÎµÏ…Î´Î®Ï‚")

empty_3$="Î‘Î»Î·Î¸Î®Ï‚"

else

empty_3$="Î¨ÎµÏ…Î´Î®Ï‚"

endif

endfunction

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

box x1,y1,x2,y2,color1,color2,color3,color4

endfunction

Download

Please login to download

Comments

No comments yet.

CodeBase - greek alphabet

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	34