TheGameCreators - CodeBase - JV Battle engine

Return to the CodeBase listing

Category: Miscellaneous

Version: 1.0

Information

Uploaded: 30th Apr 2005 18:04

Modified: 2nd May 2005 08:30

Author: Jonathan Valintine

Summary

Problem with start of Battle engine, timer system does not work.

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

SYNC ON

SYNC RATE 0

HP#=100

EHP#=100

load music "Final Fantasy 7 - Main Theme (Fully Orchestrated).mp3",7

play music 7

PRINT "ENEMY HP ",EHP#

SET CURSOR 400,0

PRINT "YOUR HP ",HP#

Rem speed

SPEED#=speedquality#

speedquality#=level#/2

Plyerwait#= timer()

Playerwaittime#=timer()>5000

if Playerwait>=Playerwaittime then INPUT "A TO ATTACK OR H TO HEAL ", MOVE$

Ifplayerwaittime=<timer()

then INPUT "A TO ATTACK OR H TO HEAL ", MOVE$

Playerwaitime= timer()+5000:endif

Rem character level handeler

level#=6

expn#=400

exp#=0

if expn#=exp#

level#=level#+1

expn#=level#*expn#

Endif

rem monster level

mlevel#= 5

rem experiance gained

expgained#=mlevel#*32

Rem physcial damage and protection

Damage#= strenght#*attack#

Protection#= vitality*Defense/3

Rem Magical Damage and protection

MDamage#=mattack*spelldamage#

MProtection#= Mdefense#*spirit#

Rem Elemental halve, immune, absorb

rem fire: halve

If Hfire#=1

Enemymfattack#=Enemymfattack#/2

endif

rem fire null

If Nfire#=1

Enemymfattack#=Enemymfattack#-(Enemymfattack#)

Endif

rem fire absorb

If Afire#=1

Enemymfattack#=Enemymfattack#-(Enemymfattack#*2)

Endif

rem lightning: halve

If Hlightning#=1

Enemymlattack#=Enemymlattack#/2

endif

rem lightning: null

If Nlightning#=1

Enemymlattack#=Enemymlattack#-(Enemymlattack#)

Endif

rem lightning: absorb

If Alightning#=1

Enemymlattack#=Enemymlattack#-(Enemymlattack#*2)

Endif

rem ice: halve

If Hice#=1

Enemymlattack#=Enemymlattack#/2

endif

rem ice: null

If Nice#=1

Enemymlattack#=Enemymlattack#-(Enemymlattack#)

Endif

rem lightning: absorb

If Aice#=1

Enemymlattack#=Enemymlattack#-(Enemymlattack#*2)

Endif

Rem choice of moves

IF MOVE$="A"

EHP#=EHP#-50

ENDIF

IF MOVE$="H"

HP#=HP#+1000

ENDIF

Rem Fire attack strenght(fire1,2,3) for enemy

Enemymfattack#= Rnd(30)=90*Emattack/4

If FIRE2#=1

Enemymfattack#=Enemymfattack#*2

endif

If FIRE3#=1

Enemymfattack#=Enemymfattack#*3

endif

Rem lightning attack strenght(bolt 1,2,3) for enemy

Enemymiattack#= Rnd(30)+120*Emattack/4

If Bolt2#=1

Enemymiattack#=Enemymiattack#*2

endif

If Bolt3#=1

Enemymiattack#=Enemymiattack#*3

endif

Rem If monster is dead

IF EHP#<1

GOTO WIN

ENDIF

SYNC

LOOP

rem Ninja (first enemy)

Rem attack

Ninjawaittime#=timer()>3000

if Ninjawait#>=Ninjawaittime#

Nchoice#=Rnd(Edamage# or Enemymfattack# or Enemymiattack#)

Ninjawait#= timer()

endif

loop

WIN:

CLS

PRINT "Congratulations you have defeated the monster!"

WAIT KEY

END

Download

Please login to download

Comments

No comments yet.

Author Name:	Jonathan Valintine
CodeBase Entries:	1

CodeBase - JV Battle engine

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments