Sorry your browser is not supported!

`Used to Create New Users in Ganz
`Hopefully Ganz will be a great and free 3D MMO one day.
`This code isn't that complex might teach newbie programmers some good lessons! :)

`Load and play some tunes
load music "Oceans Apart.mid",1
play music 1
loop music 1

`Setup display
hide mouse

`Main Menu
ink rgb(0,255,0),1
Print "Ganz - World of the Dragon Account Management"
ink rgb(255,255,0),1

`Username and Password
input "Desired Username: ",username$
input "Desired Password: ",password$

`Male or Female
ink rgb(0,255,255),1
Print "Male or Female? M/F"

do
if inkey$() = "m" then gender$ = "Male":exit
if inkey$() = "f" then gender$ = "Female":exit
loop

Print gender$
if gender$ = "Male" then person$ = "man"
if gender$ = "Female" then person$ = "woman"

`Race
ink rgb(255,0,255),1
Print "Race: H)Human, E)Elf, D)Dwarf, F)Dark Elf, G)Gnome, O)Orc, T)Troll, P)Pixy, Q)Dark Pixy"
print "I)Goblin, R)River Troll, B)Beast";person$;", C)Cave";person$;", N)Hobbit, U)Hobgoblin"
Print "Some races that are renamed can also be known as that!"
do
if inkey$() = "h" then race$ = "Human":exit
if inkey$() = "e" then race$ = "Elf":exit
if inkey$() = "d" then race$ = "Dwarf":exit
if inkey$() = "f" then race$ = "Dark Elf":exit
if inkey$() = "g" then race$ = "Gnome":exit
if inkey$() = "o" then race$ = "HoboGoblin":exit
if inkey$() = "t" then race$ = "Troll":exit
if inkey$() = "p" then race$ = "Pixy":exit
if inkey$() = "q" then race$ = "Dark Pixy":exit
if inkey$() = "i" then race$ = "Goblin":exit
if inkey$() = "r" then race$ = "River Troll":exit
if inkey$() = "b" then race$ = "Beast":exit
if inkey$() = "c" then race$ = "Primitive Human":exit
if inkey$() = "n" then race$ = "Hobbit":exit
if inkey$() = "u" then race$ = "Hobgoblin":exit
loop
ink rgb(255,0,0),1
Print "You are a ";race$

`Class
ink rgb(255,172,89),1
Print "Class: K)Knight, P)Paladin, W)Wizard, C)Cleric, R)Ranger, B)Barbarian, D)Druid,"
Print "M)Beast-Master, N)Necromancer, E)Explorer, H)Hermit, T)Tourist"

do
if inkey$() = "k" then class$ = "Knight":exit
if inkey$() = "p" then class$ = "Paladin":exit
if inkey$() = "w" then class$ = "Wizard":exit
if inkey$() = "c" then class$ = "Cleric":exit
if inkey$() = "r" then class$ = "Ranger":exit
if inkey$() = "b" then class$ = "Barbarian":exit
if inkey$() = "d" then class$ = "Druid":exit
if inkey$() = "m" then class$ = "Beast-Master":exit
if inkey$() = "n" then class$ = "Necromancer":exit
if inkey$() = "e" then class$ = "Explorer":exit
if inkey$() = "h" then class$ = "Hermit":exit
if inkey$() = "t" then class$ = "Tourist":exit
loop

ink rgb(255,0,0),1
Print "You choose your character to be a ";class$

`Alignment
ink rgb(0,128,255),1
Print "Choose an alignment, your alignment effects how others view you"
Print "V)Very Good, G)Good, N)Nuetral, E)Evil, C)Chaotic"

do
if inkey$() = "v" then alignment$ = "Very Good":exit
if inkey$() = "g" then alignment$ = "Good":exit
if inkey$() = "n" then alignment$ = "Nuetral":exit
if inkey$() = "e" then alignment$ = "Evil":exit
if inkey$() = "c" then alignment$ = "Chaotic":exit
loop
ink rgb(255,0,0),1
Print "You are ";alignment$

`Pet
ink rgb(0,0,255),1
Print "Which Pet Do You Wish?"
Print "C)Cat, D)Dog, E)Crocodile, G)Dragoon, F)Chicken"

do
if inkey$() = "c" then pet$ = "Cat":exit
if inkey$() = "d" then pet$ = "Dog":exit
if inkey$() = "e" then pet$ = "Crocodile":exit
if inkey$() = "g" then pet$ = "Dragoon":exit
if inkey$() = "f" then pet$ = "Chicken":exit
loop
ink rgb(255,0,0),1
Print "You have a pet ";pet$

`Birthdate
ink rgb(255,255,255),1
Print "Your birthdate is needed for your character!"
Print "Make sure that it is in the following format!"
Print "eg/ex: May 9th, 1991"
input "Birthmonth ";birthmonth$
input "Birthdate ";birthdate$
input "Birthyear ";birthyear$

`Saving?
ink rgb(255,255,0),1
Print "Press Any Key To Save Your Character"
wait key
cls

`Save
Input "Save Path: ";save$

open to write 1,save$
if file exist(save$) = 1 then delete file save$
write string 1,username$
write string 1,password$
write string 1,gender$
write string 1,race$
write string 1,class$
write string 1,alignment$
write string 1,pet$
close file 1
Print "Files Are Saved Press Any Key To Exit"
wait key
end

`Wow Thank the good dude that this stupid account management is done!
`Have fun playing Ganz, well go play it now!