TheGameCreators - CodeBase - 1 v 1 turn based battle system

Return to the CodeBase listing

Category: Core

Version: 1.0

Information

Uploaded: 6th Apr 2008 12:12

Modified: 1st Jan 1970 01:00

Author: Murdock 743

Summary

This is a turn based battle system for an RPG.

Full Description

This is a turn based battle system for an RPG. There may be some incomplete code in this as I can't remember if I was in the middle of adding magic or not... Basically all it does it some very basic attack/heal commands. This is to be used in conjunction with more code showing battle animations and what not.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem turn based thingy for game (possibly)

sync on : sync rate 60

Randomize rnd (1000) `sets a random seed

` this is the list of predetermined variables

turn=0

player_health=100

enemy_health=100

rem now for the main loop

main_loop:

gosub life `this monitors life

gosub turn `this is the guts of the program

Sync

Loop

turn: `this is the initial chunck that decides if it is the start of the battle

if turn=0 then goto start else goto not_start

return

`this lable starts the initial vars for determining who goes first

start: `start of battle-determines who is first

turn=1

turn_indicator=rnd(1)

if turn_indicator=1 then player_turn=1 and enemy_turn=0

if turn_indicator=0 then player_turn=0 and enemy_turn=1

goto middle

middle:  `determines who's turn it is

if player_turn=1 and enemy_turn=0 then goto player

if enemy_turn=1 and player_turn=0 then goto enemy

player: `players turn and input

turn_complete=0 `turn_complete makes sure player can only do one action

player_turn=0 `sets up the enemy's turn

enemy_turn=1 `more setting up of the enemy's turn

input "1=attack 2=defend",player_input

if player_input=1 then goto player_attack

if player_input=2 then goto player_defend

player_attack: `this is the attack phase (if player attacks)

if turn_complete=1 then goto display else damage=rnd(30) `makes sure player can only heal or attack

turn_complete=1 `ends the turn

enemy_health=enemy_health-damage

print "you deal ",damage," points of damage to the enemy"

gosub display

player_defend: `this is the defence phase if player defends

if turn_complete=1 then goto display else heal=rnd(15) `makes sure player only can heal or attack

turn_complete=1 `ends the turn

player_health=player_health+heal

print "you heal yourself and gain ",heal," points of health"

gosub display

enemy: `the enemy's turn

turn_complete=0 `starts a new turn for the enemy

enemy_turn=0 `sets up the player's turn

player_turn=1 `more setting up of the players turn

if enemy_health<30 then ai_choice=1 else ai_choice=0 `AI picks what it wants to do

if ai_choice=0 then goto enemy_attack

if ai_choice=1 then goto enemy_defend

enemy_attack: `enemy's attack phase

if turn_complete=1 then goto display else ai_damage=rnd(30) `makes sure he cannot attack and heal

turn_complete=1 `ends the turn

player_health=player_health-ai_damage

print "enemy deals ",ai_damage," points of damage to you"

gosub display

enemy_defend: `enemy's defend phase

if turn_complete=1 then goto display else ai_heal=rnd(15) `makes sure he did not already go

turn_complet=1 `ends the turn

enemy_health=enemy_health+ai_heal

Print "enemy heals and gains ",ai_heal," points of health"

gosub display

not_start: `determines who's turn it is

if player_turn=1 and enemy_turn=0 then goto player

if enemy_turn=1 and player_turn=0 then goto enemy

display: `shows player what is going on

Print "Your Health is:",player_health

Print "Enemy Health is:",enemy_health

goto main_loop

life: `determines if player or enemy dies

if player_health<0 or player_health=0 then goto death

if enemy_health<0 or player_health=0 then goto win

return

win: `if player wins

print "You win"

wait key

end

death: `if player loses

print "You died"

wait key

end

Download

Please login to download

Comments

No comments yet.

Author Name:	Murdock 743
CodeBase Entries:	1

CodeBase - 1 v 1 turn based battle system

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments