TGC Codebase Backup



Experience / Leveling Up by Red Rain

29th Jan 2010 16:08
Summary

Here's a simple text coding of how I was able to level up a character by gaining experience. I hope this helps people out in the RPGamers........ Sadly, it double's up the needed E



Description



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

Lvl=0
PlayerExp=0

rem ** you can start out with whatever number u choose
rem ** in order to make your first level up Xp=(whatever number)
Xp=250

rem do/loops
do
if returnkey()=1 then inc PlayerExp,1

text 5,5,"Press RETURNKEY to increase Exp points"
Lv$="Lv: "+str$(Lvl) : text 5,25,Lv$
GainedXp$="Xp: "+str$(PlayerExp) : text 5,40,GainedXp$
NeededXp$="Xp needed: "+str$(Xp) : text 5,55,NeededXp$

rem level up
if PlayerExp=Xp
 Lvl=Lvl+1
  dec PlayerExp,PlayerExp
 Xp=Xp*2
endif

sync
loop