TheGameCreators - CodeBase - RPG Battle Code

Return to the CodeBase listing

Category: Miscellaneous

Version: 0.03

Information

Uploaded: 11th Sep 2008 20:57

Modified: 11th Sep 2008 21:57

Author: MaPo

Summary

In progress RPG battle code. Text only.

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

cls

hide mouse

randomize timer()

setScreenMode()

type variables

PLAYER_HP as dword

ENEMY_HP as dword

RESPONSE_MESSAGE_1 as string

RESPONSE_MESSAGE_2 as string

RESPONSE_MESSAGE_3 as string

RESPONSE_MESSAGE_4 as string

INSTRUCTIONS as string

TEMP as dword

WAIT_KEYPRESS as boolean

KEYPRESS as byte

OLD_KEYPRESS as byte

endtype

v as variables

v.WAIT_KEYPRESS=0

v.PLAYER_HP=100

v.ENEMY_HP=100

v.RESPONSE_MESSAGE_1 = "Both the Player and the Enemy have 100 Hit Points."

v.RESPONSE_MESSAGE_2 = ""

v.RESPONSE_MESSAGE_3 = ""

v.RESPONSE_MESSAGE_4 = ""

v.INSTRUCTIONS = "(A)ttack, (C)ast, (P)ass"

`--------------

`main game loop

`--------------

cls

printInstructions()

printEnemyStats()

printPlayerStats()

printResponseMessages()

getPlayerInput()

checkForWinner()

loop

end

function setScreenMode()

set display mode 320,240,32

set text font "terminal",1

set text size 8

endfunction

function attackEnemy()

`-----------------------------------

`when player chooses to attack enemy

`-----------------------------------

v.TEMP=rnd(30)`enemy takes a random hit

v.ENEMY_HP=v.ENEMY_HP-v.TEMP

v.RESPONSE_MESSAGE_1="Player attacks Enemy."

v.RESPONSE_MESSAGE_2="Player hits Enemy for "+str$(v.TEMP)+ " damage."

endfunction

function attackPlayer()

`-----------------------------------

`when enemy chooses to attack player

`-----------------------------------

v.TEMP=rnd(30)`player takes a random hit

v.PLAYER_HP=v.PLAYER_HP-v.TEMP

v.RESPONSE_MESSAGE_3="Enemy attacks Player"

v.RESPONSE_MESSAGE_4="Enemy hits Player for "+str$(v.TEMP)+ " damage."

endfunction

function checkForWinner()

`-----------------------------------------

`check if either player or enemy is "dead"

`-----------------------------------------

if v.ENEMY_HP<1

cls

center text 160, 100, "Player Wins"

wait key

end

endif

if v.PLAYER_HP<1

cls

center text 160, 100, "Enemy Wins"

wait key

end

endif

endfunction

function printEnemyStats()

`------------------------------

`print enemy data to the screen

`color the name to indicate

`health in general

`------------------------------

set cursor 60, 20

if v.ENEMY_HP => 75

ink rgb (0, 255, 0),0

endif

if v.ENEMY_HP > 25

if v.ENEMY_HP =<74

ink rgb (255, 255, 0),0

endif

if v.ENEMY_HP =< 25

ink rgb (255, 0, 0),0

endif

print "-ENEMY-"

ink rgb (255, 255, 255),0

set cursor 61,36

print "HP: ",v.ENEMY_HP

endfunction

function printInstructions()

center text 160,232,v.INSTRUCTIONS

endfunction

function printPlayerStats()

`-------------------------------

`print player data to the screen

`-------------------------------

set cursor 200, 20

if v.PLAYER_HP => 75

ink rgb (0, 255, 0),0

endif

if v.PLAYER_HP > 25

if v.PLAYER_HP =<74

ink rgb (255, 255, 0),0

endif

if v.PLAYER_HP =< 25

ink rgb (255, 0, 0),0

endif

print "-PLAYER-"

ink rgb (255, 255, 255),0

set cursor 201,36

print "HP: ",v.PLAYER_HP

endfunction

function getPlayerInput()

`---------------------------------

`allow the player to interact with

`the program by using key presses

`---------------------------------

v.WAIT_KEYPRESS=1

while v.WAIT_KEYPRESS=1

v.OLD_KEYPRESS=v.KEYPRESS

v.KEYPRESS=scancode()

if v.OLD_KEYPRESS>0 and v.KEYPRESS=0

select v.OLD_KEYPRESS

case 30

v.WAIT_KEYPRESS=0

attackEnemy()

attackPlayer()

v.INSTRUCTIONS = "(A)ttack, (C)ast, (P)ass"

endcase

case 25

v.WAIT_KEYPRESS=0

v.RESPONSE_MESSAGE_1 = "Player passes turn."

v.RESPONSE_MESSAGE_2 = "Enemy receives no damage from Player"

attackPlayer()

v.INSTRUCTIONS = "(A)ttack, (C)ast, (P)ass"

endcase

endselect

endif

endwhile`--v.KEYPRESS=1

endfunction

function printResponseMessages()

center text 160, 110, v.RESPONSE_MESSAGE_1

center text 160, 124, v.RESPONSE_MESSAGE_2

center text 160, 138, v.RESPONSE_MESSAGE_3

center text 160, 152, v.RESPONSE_MESSAGE_4

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	MaPo
CodeBase Entries:	14

CodeBase - RPG Battle Code

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments