TheGameCreators - CodeBase - DBZ Battle Engine

Return to the CodeBase listing

Category: Games

Version: 1.2

Information

Uploaded: 14th Jan 2004 09:08

Modified: 15th Jan 2004 11:50

Author: Represent

Summary

A Dragon Ball Z battle engine.

Full Description

A battle engine that has 4 options per player, 2 or 1 player game, you can play as Goku or Raditz. HP, and MP counter. Enjoy.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

input "So Goku you decided to challenge me?>";a$

print a$

input "Let's just see how strong you are Goku....>";a$

print a$

input "HAHAHAHAHHAHAHA,that's pathetic POWER LEVEL 720!>";a$

print a$

input "I will crush you like a bug>";a$

print a$

cls

rem default player attributes

dim hp#(1)

dim mp#(1)

dim ehp#(1)

dim emp#(1)

dim power_level#(1,2)

dim attack$(3,4)

dim attack(3,4)

dim mpcost(4,4)

rem attack arrays

attack$(1,1)="punch"

attack$(1,2)="double_roundhouse"

attack$(1,3)="energy_beam"

attack$(1,4)="kamehameha"

attack$(2,1)="raditz_punch"

attack$(2,2)="hi-kick"

attack$(2,3)="knee-kick"

attack$(2,4)="rapid_fire"

attack$(3,1)="heal-potion"

attack$(3,2)="raditz-heal"

rem magic point cost arrays

mpcost(1,1)=0

mpcost(1,2)=2

mpcost(1,3)=30

mpcost(1,4)=40

mpcost(2,1)=0

mpcost(2,2)=2

mpcost(2,3)=7

mpcost(2,4)=30

mpcost(3,1)=0

mpcost(3,2)=0

`GOKU:

HP#=100

MP#=50

POWER_LEVEL#=720

PUNCH#=10

DOUBLE_ROUNDHOUSE#=22

ENERGY_BEAM#=30

KAMEHAMEHA#=40

`RADITZ:

EHP#=90

EMP#=50

RADITZ_POWER_LEVEL#=680

PUNCH#=5

HI_KICK#=5

KNEE-KICK#=12

RAPID_FIRE#=8

battle_screen:

rem Battle Screen

SET CURSOR 0,0

rem Goku's stats

PRINT "GOKU"

set cursor 0,20

PRINT "HP"

set cursor 40,20

PRINT HP#

set cursor 0,40

PRINT "MP"

set cursor 40,40

PRINT MP#

set cursor 0,60

PRINT "POWER LEVEL"

set cursor 120,60

PRINT POWER_LEVEL#

rem Raditz's stats

SET CURSOR 400,0

PRINT "RADITZ"

SET CURSOR 400,20

PRINT "HP" :

SET CURSOR 440,20

PRINT EHP#

SET CURSOR 400,40

PRINT "MP" :

SET CURSOR 440,40

PRINT EMP#

SET CURSOR 400,60

PRINT "POWER LEVEL" :

SET CURSOR 520,60

PRINT RADITZ_POWER_LEVEL#

rem Instructions

TEXT 10,160,"PLAYER 1 CONTROLS"

Text 10,200,"PRESS 1 TO PUNCH"

TEXT 10,220,"PRESS 2 TO DOUBLE ROUNDHOUSE KICK"

TEXT 10,240,"PRESS 3 TO USE ENERGY BEAM"

TEXT 10,260,"PRESS 4 TO USE KAMEHAMEHA"

TEXT 10,300,"PLAYER 2 CONTROLS"

TEXT 10,320,"PRESS 5 TO PUNCH"

TEXT 10,340,"PRESS 6 TO HI-KICK"

TEXT 10,360,"PRESS 7 TO KNEE-KICK"

TEXT 10,380,"PRESS 8 TO USE RAPID FIRE"

````````````````````````````````````````````````````````````````````

`````````````````` MAIN LOOP````````````````````````````````````````

````````````````````````````````````````````````````````````````````

if scancode()=2 then attack(1,1)=1

if scancode()=3 then attack(1,2)=1

if scancode()=4 then attack(1,3)=1

if scancode()=5 then attack(1,4)=1

if scancode()=6 then attack(2,1)=1

if scancode()=7 then attack(2,2)=1

if scancode()=8 then attack(2,3)=1

if scancode()=9 then attack(2,4)=1

if scancode()=10 then attack(3,1)=1

if scancode()=11 then attack(3,2)=1

rem Attack activation and Artificial Intelligence

If attack(1,1)=1 then gosub punch : gosub raditz_punch : goto battle_screen

If attack(1,2)=1 then gosub double_roundhouse : gosub high_kick : goto battle_screen

If attack(1,3)=1 then gosub energy_beam : gosub knee_kick : goto battle_screen

If attack(1,4)=1 then gosub kamehameha : gosub rapid_fire :goto battle_screen

if attack(2,1)=1 then gosub raditz_punch : goto battle_screen

if attack(2,2)=1 then gosub high_kick : goto battle_screen

if attack(2,3)=1 then gosub knee_kick : goto battle_screen

if attack(2,4)=1 then gosub rapid_fire : goto battle_screen

if attack(3,1)=1 then gosub heal : goto battle_screen

if attack(3,2)=1 then gosub enemy_heal : goto battle_screen

rem Conditions for victory and loss

if ehp#<0 then goto Game_over

if hp#<0 then goto Game_over

loop

````````````````````````````````````````````````````````````````````

```````````````````rem attack gosubs````````````````````````````````

````````````````````````````````````````````````````````````````````

rem punch

punch:

ehp#=ehp#-9

attack(1,1)=0

set cursor 200,200

print "GOKU THROWS A PUNCH"

wait 1000

ehp#=ehp#-10

print ehp#

cls

Return

rem double_roundhouse

double_roundhouse:

ehp#=ehp#-20

attack(1,2)=0

set cursor 200,200

print "GOKU FLYS IN WITH A DOUBLE ROUNDHOUSE KICK"

wait 1000

cls

return

rem energy_beam

energy_beam:

ehp#=ehp#-30

attack(1,3)=0

set cursor 200,200

print "GOKU USES ENERGY BEAM"

wait 1000

cls

return

rem kamehameha

kamehameha:

ehp#=ehp#-40

attack(1,4)=0

set cursor 200,200

print "GOKU POWERS UP AND UNLEASHES A KAMEHAMEHA WAVE!"

wait 1000

cls

return

rem raditz_punch

raditz_punch:

hp#=hp#-6

attack(2,1)=0

set cursor 200,200

print "!!RADITZ PUNCH!!"

wait 1000

cls

return

rem hi_kick

high_kick:

hp#=hp#-10

attack(2,2)=0

set cursor 200,200

print "RADITZ JUMPS AND DOES A HIGH KICK"

wait 1000

cls

return

rem knee_kick

knee_kick:

hp#=hp#-15

attack(2,3)=0

set cursor 200,200

print "RADITZ KNEE KICKS YOU"

wait 1000

cls

return

rem rapid fire

rapid_fire:

hp#=hp#-25

attack(2,4)=0

set cursor 200,200

print "RADITZ OVERWHELMS YOU WITH RAPID FIRE"

wait 1000

cls

return

rem heal

heal:

hp#=hp#+60

attack(3,1)=0

set cursor 200,200

print "GOKU RECOVERS HEALTH WITH A SENZU BEAN"

wait 1000

cls

return

rem enemy_heal

enemy_heal:

ehp#=ehp#+40

attack(3,2)=0

set cursor 200,200

print "RADITZ RECOVERS HEALTH"

wait 1000

cls

return

rem Battle_menu_UPDATE

Battle_menu_update:

SET CURSOR 20,0

EHP#=EHP#-10

PRINT EHP#

TEXT 0,0,"HP"

rem Game Over

Game_over:

end

Download

Please login to download

Comments

No comments yet.

Author Name:	Represent
CodeBase Entries:	2

CodeBase - DBZ Battle Engine

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments