Battle System help needed. - GameCreators Forum

Author

Message

N3R0

14

Years of Service

User Offline

Joined: 11th May 2010

Location:

Posted: 16th May 2010 02:48

Link

RANDOMIZE TIMER()

health = 100
opphealth = 100

type class
   ranger as string
   swordsman as string
   theif as string
endtype

type stat
   health as integer
   str as integer
   dex as integer
   acc as integer
endtype

dim class(3) as class
dim stat(3) as stat

class(1).ranger = "Ranger"
   stat(1).str = 4
   stat(1).dex = 7
   stat(1).acc = 12
class(2).swordsman = "Swordsman"
   stat(2).str = 12
   stat(2).dex = 6
   stat(2).acc = 4
class(3).theif = "Theif"
   stat(3).str = 3
   stat(3).dex = 12
   stat(3).acc = 6

dim oppclass(3) as class
dim oppstat(3) as stat

class(1).ranger = "Ranger"
   stat(1).str = 4
   stat(1).dex = 7
   stat(1).acc = 12
class(2).swordsman = "Swordsman"
   stat(2).str = 12
   stat(2).dex = 6
   stat(2).acc = 4
class(3).theif = "Theif"
   stat(3).str = 3
   stat(3).dex = 12
   stat(3).acc = 6

do
print ""
print "What class do you want?"
print "1.) Ranger"
print "2.) Swordsman"
print "3.) Theif"
input "", classc

if classc = 1 then plyrclass$ = class(1).ranger
if classc = 2 then plyrclass$ = class(2).swordsman
if classc = 3 then plyrclass$ = class(3).theif

print "Who would you like to battle?"
print "1.) Ranger"
print "2.) Swordsman"
print "3.) Theif"
input "", oppclass

if oppclass = 1 then oppclass$ = oppclass(1).ranger
if oppclass = 2 then oppclass$ = oppclass(2).swordsman
if oppclass = 3 then oppclass$ = oppclass(3).theif

cls
goto battle
loop

battle:
   tohit = rnd(5)+ 1 + (stat(class).acc) * (stat(class).str)
   oppTohit = rnd(5) + 1 + (stat(oppclass).acc) * (stat(oppclass).str)
   plyrdmg = (stat(class).str)
   oppdmg = (stat(oppclass).str)
   if tohit > oppTohit then dec opphealth, plyrdmg else dec health, oppdmg
   goto health

health:
repeat
cls
print health
print opphealth
wait 500
until health or opphealth =< 0
goto battle

+ Code Snippet

RANDOMIZE TIMER()

health = 100
opphealth = 100

type class
   ranger as string
   swordsman as string
   theif as string
endtype

type stat
   health as integer
   str as integer
   dex as integer
   acc as integer
endtype

dim class(3) as class
dim stat(3) as stat

class(1).ranger = "Ranger"
   stat(1).str = 4
   stat(1).dex = 7
   stat(1).acc = 12
class(2).swordsman = "Swordsman"
   stat(2).str = 12
   stat(2).dex = 6
   stat(2).acc = 4
class(3).theif = "Theif"
   stat(3).str = 3
   stat(3).dex = 12
   stat(3).acc = 6

dim oppclass(3) as class
dim oppstat(3) as stat

class(1).ranger = "Ranger"
   stat(1).str = 4
   stat(1).dex = 7
   stat(1).acc = 12
class(2).swordsman = "Swordsman"
   stat(2).str = 12
   stat(2).dex = 6
   stat(2).acc = 4
class(3).theif = "Theif"
   stat(3).str = 3
   stat(3).dex = 12
   stat(3).acc = 6

do
print ""
print "What class do you want?"
print "1.) Ranger"
print "2.) Swordsman"
print "3.) Theif"
input "", classc

if classc = 1 then plyrclass$ = class(1).ranger
if classc = 2 then plyrclass$ = class(2).swordsman
if classc = 3 then plyrclass$ = class(3).theif

print "Who would you like to battle?"
print "1.) Ranger"
print "2.) Swordsman"
print "3.) Theif"
input "", oppclass

if oppclass = 1 then oppclass$ = oppclass(1).ranger
if oppclass = 2 then oppclass$ = oppclass(2).swordsman
if oppclass = 3 then oppclass$ = oppclass(3).theif

cls
goto battle
loop

battle:
   tohit = rnd(5)+ 1 + (stat(class).acc) * (stat(class).str)
   oppTohit = rnd(5) + 1 + (stat(oppclass).acc) * (stat(oppclass).str)
   plyrdmg = (stat(class).str)
   oppdmg = (stat(oppclass).str)
   if tohit > oppTohit then dec opphealth, plyrdmg else dec health, oppdmg
   goto health

health:
repeat
cls
print health
print opphealth
wait 500
until health or opphealth =< 0
goto battle

This is a battle system, rather basic, but you get the idea. The problem is while its doing the calculations the opptohit will always be higher than the tohit, and the damage is always weird. Can anyone help, and anyone who wants to mod this or use it for theirs just tell me. I would like to see how you used it.

Back to top

Profile PM

Spectre 117

14

Years of Service

User Offline

Joined: 18th Apr 2010

Location: *Insert cheesy location here*

Posted: 16th May 2010 05:14

Link

I tried to find the error in your code but had no luck. Maybe someone more experienced will be able to help. Sorry.

Back to top

Profile PM

Dia

19

Years of Service

User Offline

Joined: 16th Jan 2005

Location:

Posted: 16th May 2010 05:37 Edited at: 16th May 2010 05:39

Link

woah...wierd

ok a couple of issues

- I find it difficult to use goto's, they are the bastard spawn of the devil and the original basic language

- your use of types is.... most odd - see what I did below

- you reference "stat(class).acc" but you never give a value to the variable 'class', so it defaults to 0, hence tohit = rnd(5)+1+0*0 - may be why opptohit was always > tohit (the same thing happened with the plyrdmg variable) - you DID assign an input value to classc, so I am assuming that is wht you meant to use

that's about it for your code, but when you work out your tohit numbers, you are ensuring that the thief will always have a lower number than the other two classes, the tohit ranges you have specified are:

Ranger - 49>54
Swordsman - 49>54
Thief - 19>24

so that needs a little balancing

this is not exactly the way I would have written it, but I have had a bash at modifying your code as below

RANDOMIZE TIMER()

health = 100
opphealth = 100

type class
   str as integer
   dex as integer
   acc as integer
endtype

dim classes(3) as class

#constant RANGER = 1
#constant SWORDSMAN = 2
#constant THIEF = 3

classes(RANGER).str = 4
classes(RANGER).dex = 7
classes(RANGER).acc = 12
classes(SWORDSMAN).str = 12
classes(SWORDSMAN).dex = 6
classes(SWORDSMAN).acc = 4
classes(THIEF).str = 3
classes(THIEF).dex = 12
classes(THIEF).acc = 6

do
print ""
print "What class do you want?"
print "1.) Ranger"
print "2.) Swordsman"
print "3.) Thief"
input "", playerclass

print "Who would you like to battle?"
print "1.) Ranger"
print "2.) Swordsman"
print "3.) Thief"
input "", oppclass

cls
gosub battle
loop

Battle:
   repeat
      tohit = rnd(5)+ 1 + (classes(playerclass).acc) * (classes(playerclass).str)
      oppTohit = rnd(5) + 1 + (classes(oppclass).acc) * (classes(oppclass).str)
      plyrdmg = (classes(playerclass).str)
      oppdmg = (classes(oppclass).str)
      if tohit > oppTohit then dec opphealth,plyrdmg
      if tohit < oppTohit then dec health,oppdmg
      cls
      print health
      print opphealth
      wait 200
   until (health < 1) or (opphealth < 1)
return

+ Code Snippet

RANDOMIZE TIMER()

health = 100
opphealth = 100

type class
   str as integer
   dex as integer
   acc as integer
endtype

dim classes(3) as class

#constant RANGER = 1
#constant SWORDSMAN = 2
#constant THIEF = 3

classes(RANGER).str = 4
classes(RANGER).dex = 7
classes(RANGER).acc = 12
classes(SWORDSMAN).str = 12
classes(SWORDSMAN).dex = 6
classes(SWORDSMAN).acc = 4
classes(THIEF).str = 3
classes(THIEF).dex = 12
classes(THIEF).acc = 6

do
print ""
print "What class do you want?"
print "1.) Ranger"
print "2.) Swordsman"
print "3.) Thief"
input "", playerclass



print "Who would you like to battle?"
print "1.) Ranger"
print "2.) Swordsman"
print "3.) Thief"
input "", oppclass

cls
gosub battle
loop


Battle:
   repeat
      tohit = rnd(5)+ 1 + (classes(playerclass).acc) * (classes(playerclass).str)
      oppTohit = rnd(5) + 1 + (classes(oppclass).acc) * (classes(oppclass).str)
      plyrdmg = (classes(playerclass).str)
      oppdmg = (classes(oppclass).str)
      if tohit > oppTohit then dec opphealth,plyrdmg
      if tohit < oppTohit then dec health,oppdmg
      cls
      print health
      print opphealth
      wait 200
   until (health < 1) or (opphealth < 1)
return

give it a bash and see if you can figure out what I have done

This is not the Sig you are looking for....

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Battle System help needed.