TheGameCreators - CodeBase - Text based RPG battle

Return to the CodeBase listing

Category: Text

Version: 0.75

Information

Uploaded: 23rd Jul 2008 05:21

Modified: 24th Jul 2008 11:20

Author: Anti Human

Summary

Incomplete battle sequence for RPG. all text-based. real shabby but i'm still learning

Full Description

7/21/08 Something I'v been working on the past 2 nights. might be cleaner if I can get arrays to work. Planning on adding: weapons, armor, enemies, and player actions. Been using this as a test bed to teach myself DBP. Will update once in awhile. 7/23/08 Had sound added to new code, made second save and removed all sound (i think!). couldn't get all sounds in 500kb zip. changed enemies, and some more stuff is random now. cut health and potions. added stuff to things i'm planning: player xp and lvl, enemy lvl based on players, loot (mostly more health potions). and making it so you don't have to start fresh each fight.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

RemStart Couple of Notes. This is just the sequence of battle. I'm

hoping to actually get it some what finished so I can work on the

rest of the RPG.

There probably better ways of coding any piece of this, I don't

know what they are or I would have used them. hoh_antihuman@hotmail.com

let me know please. Just pointing me in the direction would work.

Want to add: More Enemies, Weapon, and Armor. Magic, XP, and Loot.

Enemy Lvl & Equipment generation based on player lvl.

need to learn arrays.

any feed back at all is welcome, even negative.

RemEnd

`Setting up the screen. This really helps when using the Text command.

set display mode 800,600,32

hide mouse

Restart:

`Random numbers for Luck stat and creating the Enemy.

Randomize Timer()

`Variblies I couldn't invent a name for.

Global E_Time=100

Global P_Time=100

Global Damage=0

`All the Player (P_) variblies.

Global Player$="Player" : Global P_Health=P_THP : Global P_THP=50

Global P_Str=0 : Global P_Dex=0 : Global P_Luck=0 : Global P_Con=0

Global P_Weapon$="Fork" : Global P_WD=0 : Global P_WW=0

Global P_Armor$="Spoon" : Global P_Arm=0 : Global P_AW=0

Global P_Att=0 : Global P_Def=0 : Global P_Spd=0 : Global P_Wght=2

Global P_Potion=3

`All the Enemy (E_) variblies.

Global Enemy$="Enemy" : Global E_Health=0 : Global E_THP=0

Global E_Str=0 : Global E_Dex=0 : Global E_Luck=0 : Global E_Con=0

Global E_Weapon$="Plate" : Global E_WD=0 : Global E_WW=0

Global E_Armor$="Bowl" : Global E_Arm=0 : Global E_AW=0

Global E_Att=0 : Global E_Def=0 : Global E_Spd=0 : Global E_Wght=2

Gosub Main_Menu

Gosub Enemy

Round:

CLS : Gosub Stats

`Main Do/Loop.

`Checking Health for Winner

If E_Health <1

Winner$=Player$

Gosub EndGame

Endif

If P_Health <1

Winner$=Enemy$

Gosub EndGame

Endif

`Turn Timers based on Speed and Luck.

E_Time=E_Time-(E_Spd+Rnd(E_Luck))

P_Time=P_Time-(P_Spd+Rnd(E_Luck))

`Activating the turns.

If E_Time <1

Gosub EnemyMove

Endif

If P_Time <1

Gosub PlayerMove

Endif

Loop

End

`E_ Timer reached 0.

EnemyMove:

CLS : Gosub Stats

`Keeping real E_Stat, Resetting P_Combo.

E_Def2=E_Def : E_Luck2=E_Luck : P_Combo=0

`Hoping this will make the Enemy defend once in awhile.

If E_Health+P_Time<50 And E_Time>P_Time/2

E_Def=E_Def2

E_Def2=E_Def2+E_Str+Rnd(E_Luck2)

Text 5,500, Enemy$+" is defending."

Wait key

CLS : Gosub Stats

Wait 500

Else

Gosub E_Attack

Endif

E_Time=100

Gosub Stats

Gosub Round

Return

`Enemy attacks.

E_Attack:

CLS : Gosub Stats

E_Combo=E_Combo+1 : E_Luck2=E_Luck : E_Luck2=E_Luck2*E_Combo

Text 5,500, Enemy$+" "+E_WepAtt$+" at "+Player$+"."

`Figures hit and damage done in attack.

If E_Spd*2+Rnd(E_Luck2)<P_Spd+Rnd(P_Luck2)

Text 5,520, Player$+" Dodges."

Wait key

CLS : Gosub Stats

Wait 500

E_Time=120

CLS

Gosub Round

Endif

Damage=(E_Att+Rnd(E_Luck2))-((P_Def2+Rnd(P_Luck2))/2)

If Damage<0

Damage=0

Endif

P_Health=P_Health-Damage

Text 5,520, Enemy$+" Hits! "+Str$(Damage)+" damage done."

Wait key

CLS : Gosub Stats

Wait 500

`Resets Enemies Turn Timer.

E_Time=100

CLS : Gosub Stats

Gosub Round

Return

`Players Timer reached 0.

PlayerMove:

CLS : Gosub Stats

`Keeping real stats. reset E_ combo count.

PM$="0" : P_Def2=P_Def : P_Luck2=P_Luck : E_Combo=0

`Player selecting action. [2] raises Def stat until next player turn.

Text 5,500, "Please select an action. "

Text 5,520, "[1]Attack [2]Defend [3]Potion("+Str$(P_Potion)+")"

Repeat

PM$=Upper$(Inkey$())

Until PM$="1" or PM$="2" or PM$="3"

If PM$="1"

Gosub P_Attack

Endif

If PM$="2"

P_Def=P_Def2

P_Def2=P_Def2+P_Str+Rnd(P_Luck2)

CLS : Gosub Stats

Text 5,500, Player$+" is defending."

Wait key

CLS : Gosub Stats

Wait 500

Endif

If PM$="3"

If P_Potion=0

CLS : Gosub Stats

Text 5,500, "You do not have any potions."

Wait key

Wait 500

Else

P_Health=P_Health+20

P_Potion=P_Potion-1

Text 5,500, Player$+" uses potion."

Wait keys

CLS : Gosub Stats

Wait 500

Endif

P_Time=100

CLS : Gosub Stats

Gosub Round

Return

`Player attacks.

P_Attack:

CLS : Gosub Stats

P_Combo=P_Combo+1 : P_Luck2=P_Luck : P_Luck2=P_Luck2*P_Combo

Text 5,500, Player$+" "+P_WepAtt$+" at "+Enemy$+"."

`Figures hit and damage done. Increases Time if dodged.

If P_Spd*2+Rnd(P_Luck2)<E_Spd+Rnd(E_Luck2)

Text 5,520, Enemy$+" Dodges."

Wait key

Wait 500

P_Time=120

CLS : Gosub Stats

Gosub Round

Endif

Damage=(P_Att+Rnd(P_Luck2))-((E_Def+Rnd(P_Luck2))/2)

If Damage<0

Damage=0

Endif

E_Health=E_Health-Damage

Text 5,520, "Hits! "+Str$(Damage)+" damage done."

Wait key

Wait 500

`Resets Players Turn Timer

P_Time=100

CLS : Gosub Stats

Gosub Round

Return

`And the Winner is?

EndGame:

CLS

Text 10,10, Winner$+" wins."

Text 10,30, "Would you like to play again? Y/N "

Repeat

L$=Upper$(Inkey$())

Until L$="Y" or L$="N"

If L$="Y"

CLS

Gosub Restart

Endif

If L$="N"

CLS

End

Endif

Return

`The Main Menu. Hoping to add Load when I learn array command.

Main_Menu:

CLS

Set Text Font "roman",1

Set Text Size 50

Center Text 400,200, "Sword Play"

sleep 3000

CLS

Center Text 400,100, "Sword Play"

Set Text Size 20

Center Text 400,200, "[1]New Game"

Center Text 400,300, "[2]Exit"

Repeat

M$=Inkey$()

Until M$="1" or M$="2"

If M$="1"

Gosub New_Game

Endif

If M$="2"

End

Endif

Return

`Creating Players Charactor.

New_Game:

CLS

Input "Please enter your charactors name. ", Player$

`Selecting Players Stats.

Stat_Reset:

SkPt=15

CLS

Text 10,10, "You have 15 points to spend on 4 stats. Str, Dex, Con, and Luck."

Set Cursor 10,30, : Input "Enter Strength ", P_Str

If P_Str>SkPt

Text 10,50, "Sorry, you don't have that many points."

Wait key

Goto Stat_Reset

Else

SkPt=SkPt-P_Str

Endif

Set Cursor 10,50, : Input "Enter Dex ", P_Dex

If P_Dex>SkPt

Text 10,50, "Sorry, you don't have that many points."

Wait key

Goto Stat_Reset

Else

SkPt=SkPt-P_Dex

Endif

Set Cursor 10,70, : Input "Enter Con ", P_Con

If P_Con>SkPt

Text 10,50, "Sorry, you don't have that many points."

Wait key

Goto Stat_Reset

Else

SkPt=SkPt-P_Con

Endif

P_Luck=SkPt

Text 10,90, "That leaves "+Str$(SkPt)+" for Luck."

Wait key

Wait 500

CLS

SkPt=SkPt-P_Luck

If SkPt <>0

Goto Stat_Reset

Endif

`Selecting Players Weapon.

Text 10,10, "Please select your weapon. "

Text 10,30, "[1]Spear D:2 W:3"

Text 10,50, "[2]Sword D:5 W:6"

Text 10,70, "[3]Mace  D:8 W:9"

Repeat

W$=Inkey$()

Until W$="1" or W$="2" or W$="3"

`WD=Weapon Damage, WW=Weapon Weight

If W$="1"

P_Weapon$="Spear" : P_WD=2 : P_WW=3 : P_WepAtt$="Stabs"

Endif

If W$="2"

P_Weapon$="Sword" : P_WD=5 : P_WW=6 : P_WepAtt$="Slashes"

Endif

If W$="3"

P_Weapon$="Mace" : P_WD=8 : P_WW=9 : P_WepAtt$="Bashes"

Endif

Wait 500

CLS

`Selecting Players Armor.

Text 10,10, "Please select your armor. "

Text 10,30, "[1]Leather A:2 W:3"

Text 10,50, "[2]Mail    A:5 W:6"

Text 10,70, "[3]Plate   A:8 W:9"

Repeat

A$=Inkey$()

Until A$="1" or A$="2" or A$="3"

`Arm=Armor Value, AW=Armor Weight

If A$="1"

P_Armor$="Leather" : P_Arm=2 : P_AW=3

Endif

If A$="2"

P_Armor$="Mail" : P_Arm=5 : P_AW=6

Endif

If A$="3"

P_Armor$="Plate" : P_Arm=8 : P_AW=9

Endif

Wait 500

`Using Players Weapon and Armor to assign Players Stats.

P_Att=P_WD+P_Str : P_Def=P_Arm+P_Con

P_THP=P_THP+(P_Con*2) : P_Health=P_THP

P_Wght=P_WW+P_AW+2 : P_Spd=P_Dex*3-P_Wght/2

CLS

Text 10,10, Player$+", armed with a "+P_Weapon$+" and "+P_Armor$+"."

Text 10,30, "Base Stats: Str "+Str$(P_Str)+" Dex "+Str$(P_Dex)+" Luck "+Str$(P_Luck)

Text 10,50, "Attack: "+Str$(P_Att)+" Defense: "+Str$(P_Def)+" Speed: "+Str$(P_Spd)

Text 10,70, "Weight "+Str$(P_Wght)+"."

Text 10,90, "Is this okay? Y/N "

Repeat

L$=Upper$(Inkey$())

Until L$="Y" or L$="N"

If L$="Y"

CLS

Gosub Enemy

Endif

If L$="N"

CLS

Gosub Stat_Reset

Endif

Return

`Use to Create almost random Enemy.

Enemy:

RN=Rnd(2)+1

`Random Creature.

If RN=1

Enemy$="Rat" : E_Health=25 : E_THP=25

E_Str=4 : E_Dex=3 : E_Luck=2 : E_Con=2

E_Weapon$="Bites" : E_WD=1 : E_WW=0 : E_WepAtt$="Bites"

E_Armor$="Fur" : E_Arm=1 : E_AW=0

E_Att=0 : E_Def=0 : E_Spd=0 : E_Wght=2

E_SkPt=5

Endif

If RN=2

Enemy$="Slime" : E_Health=10 : E_THP=10

E_Str=2 : E_Dex=5 : E_Luck=4 : E_Con=0

E_Weapon$="Punch" : E_WD=2 : E_WW=0 : E_WepAtt$="Punches"

E_Armor$="None" : E_Arm=0 : E_AW=0

E_Att=0 : E_Def=0 : E_Spd=0 : E_Wght=1

E_SkPt=5

Endif

If RN=3

Enemy$="Bat" : E_Health=20 : E_THP=20

E_Str=3 : E_Dex=4 : E_Luck=3 : E_Con=1

E_Weapon$="Teeth" : E_WD=1 : E_WW=0 : E_WepAtt$="Bites"

E_Armor$="Fur" : E_Arm=1 : E_AW=0

E_Att=0 : E_Def=0 : E_Spd=0 : E_Wght=1

E_SkPt=5

Endif

`Random Stats.

RES=Rnd(E_SkPt)

E_Str=E_Str+RES

E_SkPt=E_SkPt-RES

RED=Rnd(E_SkPt)

E_Dex=E_Dex+RED

E_SkPt=E_SkPt-RED

REC=Rnd(E_SkPt)

E_Con=E_Con+REC

E_SkPt=E_SkPt-REC

E_Luck=E_Luck+E_SkPt

`Random Weapon.

REMSTART Remed this off until I get XP and lvl system, then use it for

lvl 2 creatures (Gnolls, Orcs, Trolls) and maybe lvl 3 (Ogres, Giants)

RW=Rnd(2)+1

If RW=1

E_Weapon$="Spear"

E_WD=2

E_WW=1

Endif

If RW=2

E_Weapon$="Sword"

E_WD=5

E_WW=5

Endif

If RW=3

E_Weapon$="Mace"

E_WD=8

E_WW=9

Endif

`Random Armor.

RA=RND(2)+1

If RA=1

E_Armor$="Leather"

E_Arm=2

E_AW=2

Endif

If RA=2

E_Armor$="Mail"

E_Arm=5

E_AW=5

Endif

If RA=3

E_Armor$="Plate"

E_Arm=8

E_AW=8

Endif

REMEND

`Using E_ Weapon and Armor to assign Enemies Stats.

E_Att=E_WD+E_Str : E_Def=E_Arm+E_Dex

E_Wght=E_WW+E_AW+2 : E_Spd=E_Dex*3-E_Wght/2

Return

`Displays P_ and E_ Stats.

Stats:

Text 5,5, Player$

Text 5,25, "HP: "+Str$(P_Health)

Text 5,45, "Turn Time: "+Str$(P_Time)

Text 500,5, Enemy$

Text 500,25, "HP: "+Str$(E_Health)

Text 500,45, "Turn Time: "+Str$(E_Time)

Return

Download

Please login to download

Comments

No comments yet.

Author Name:	Anti Human
CodeBase Entries:	1

CodeBase - Text based RPG battle

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments