Text sample code for rpg gamers who need help for there 'experience points' for leveling there character(s).

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

set text font "new times roman" : set text size 16
set text transparent

sync on : sync rate 60

Lv=0
 Xp=0
NewExp=45

do
text 200,10,"Hit RETURNKEY to gain Exp's"
text 10,30,"Name: Unknown"

Lvl$="Lv: "+str$(Lv) : text 10,60,Lvl$
 GainXp$="Exp: "+str$(Xp)+" / "+str$(NewExp) : text 10,75,GainXp$

if returnkey()=1
 inc Xp,1
endif
 
if Xp=NewExp
 inc Lv,1 : Xp=0
  NewExp=NewExp+400/3
 else Lv=Lv
endif

sync
loop