Code: Select all
Game:
SCREEN 800,600 //Asettaa ruudun kooksi x800 ja y600
ArialS = LoadFont("arial",12) //muuttuja niinkun muutama seuraavakin
ArialN = LoadFont("arial",15)
Health# = 54
Lvl# = 1
MaxHealth# = 54
Exp# = 0
MaxExp# = 250
Mana# = 50
MaxMana# = 50
Repeat
SetFont ArialS //Asettaa fontin
Text 10,40,"Level:"+Lvl
Text 10,50,"Exp:"+Exp
If KeyHit(cbKeyReturn) Then Health = Health - 10 //Jos näppäintä Enter painetaan elkkaa menee 10 pistettä
If KeyHit(cbKeySpace) Then Exp = Exp+10 //Jos näppäintä SpaceBar painetaan Exp nousee 10 pistettä
If Exp = MaxExp Then Lvl = Lvl+1 : Exp = 0 //Jos Exp = MaxExp niin tulee leveli
If KeyHit(cbKeyLcontrol) Then Mana = Mana - 10 //Jos painetaan näppäintä Vasen Control niin Manaa menee 10 pistettä
If Lvl# = 2 Then MaxExp = 450 : MaxMana = 75 : MaxHealth = 68 //Leveli nousee ja Mana Health myös
If Lvl# = 3 Then MaxExp = 600 : MaxMana = 125 : MaxHealth = 89 //-||-
If Lvl# = 4 Then MaxExp = 1000 : MaxMana = 146 : MaxHealth = 109 //-||-
If Lvl# = 5 Then MaxExp = 1500 : MaxMana = 200 : MaxHealth = 150 //-||-
If Health<0 Then Health=0 //Jos elkkaa vähemmän kuin 0 niin elkka ei tipu
If Mana<0 Then Mana=0 //Sama asia manalle
If Exp>MaxExp Then Exp = MaxExp //Jos Exp enemmän kun MaxExp niin Exp on MaxExp
Color 255,255,255 // R,G,B Värin asettelu
Box 10,10,60,7,0 //Turhake
Box 10,520,780,7,0 //Turhake
Box 10,20,60,7,0 //Turhake
Color 255,0,0
Box 11,11,Health#/MaxHealth#*58,5,1 //Piirtää elkka laatikon
Color 100,0,100
Box 11,521,Exp#/MaxExp#*778,5,1 //Sama Expelle
Color 0,0,255
Box 11,21,Mana#/MaxMana#*58,5,1 //Sama Manalle
Color 255,255,255
DrawScreen
Forever