Strategy game - loading soldier health.

Author

Message

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 5th Jan 2004 10:42 Edited at: 5th Jan 2004 10:45

Link

I have made a code (attached) for loading archers and reading their health value. However, I can not see a way of shortening it and making it more effective. I thought of using a for... next like this

+ Code Snippet

for t=1 to archercount#
read string 1,str$
archerhealth#=val(str$)
next t

loop but that would store all the different data on the same variable (archerhealth#). Can someone help because otherwise this will not only take up hundreds of lines of code even if I had a limit of 200 archers, it also necessitates the limit.
NOTE: The attached code only prints the archer health so that I can test to see if it is working- it would be displayed better in a game.

P.S. Anyone who can help in any way with this style of game could you please reply with hints or source on this board because I haven't got a clue about making strategy games and the only feature I have started with so far is the loading archers bit and as you can see that is not going very well...

Am I the only one here who's really confused?

Back to top

Profile PM Website

BatVink

Moderator

22

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 5th Jan 2004 15:24

Link

Suggestion:

Put your archers into an array. Change the code to...

+ Code Snippet

for t=1 to archercount#
read string 1,str$
archerhealth#(t)=val(str$)
next t

BatVink (formerly StevieVee)
http://facepaint.me.uk/catalog/default.php

Back to top

Profile PM Email

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 6th Jan 2004 10:44

Link

dim archerhealth#(count)

for t=1 to count
archerhealth#(t) = number
next t

DBP would have even more advantages. By using TYPES, you can make a single array hold health, dmg, its name, etc...
It's better than having to do parallel arrays, which is what you'll have to probably do when you add more archer attributes.

Back to top

Profile PM Email Website

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 6th Jan 2004 22:18 Edited at: 6th Jan 2004 22:18

Link

Thanx all. I have now managed to change

rem archers----------------------------------------------------------
if file exist("savegamesslot1archers.txt")
   open to read 1,"savegamesslot1archers.txt"
      read string 1,str$
      archercount# = val(str$)
      if archercount#>0
         read string 1,str$
         archerhealth1#=val(str$)
      endif
      if archercount#>1
         read string 1,str$
         archerhealth2#=val(str$)
      endif
      if archercount#>2
         read string 1,str$
         archerhealth3#=val(str$)
      endif
      if archercount#>3
         read string 1,str$
         archerhealth4#=val(str$)
      endif
      if archercount#>4
         read string 1,str$
         archerhealth5#=val(str$)
      endif
      if archercount#>5
         read string 1,str$
         archerhealth6#=val(str$)
      endif
      if archercount#>6
         read string 1,str$
         archerhealth7#=val(str$)
      endif
      if archercount#>7
         read string 1,str$
         archerhealth8#=val(str$)
      endif
      if archercount#>8
         read string 1,str$
         archerhealth9#=val(str$)
      endif
      if archercount#>9
         read string 1,str$
         archerhealth10#=val(str$)
      endif
      if archercount#>10
         read string 1,str$
         archerhealth11#=val(str$)
      endif
      if archercount#>11
         read string 1,str$
         archerhealth12#=val(str$)
      endif
      if archercount#>12
         read string 1,str$
         archerhealth13#=val(str$)
      endif
      if archercount#>13
         read string 1,str$
         archerhealth14#=val(str$)
      endif
      if archercount#>14
         read string 1,str$
         archerhealth15#=val(str$)
      endif
      if archercount#>15
         read string 1,str$
         archerhealth16#=val(str$)
      endif
      if archercount#>16
         read string 1,str$
         archerhealth17#=val(str$)
      endif
      if archercount#>17
         read string 1,str$
         archerhealth18#=val(str$)
      endif
      if archercount#>18
         read string 1,str$
         archerhealth19#=val(str$)
      endif
      if archercount#>19
         read string 1,str$
         archerhealth20#=val(str$)
      endif
   close file 1
endif
print archerhealth1#
print archerhealth2#
print archerhealth3#
print archerhealth4#
print archerhealth5#
print archerhealth6#
print archerhealth7#
print archerhealth8#
print archerhealth9#
print archerhealth10#
print archerhealth11#
print archerhealth12#
print archerhealth13#
print archerhealth14#
print archerhealth15#
print archerhealth16#
print archerhealth17#
print archerhealth18#
print archerhealth19#
print archerhealth20#
rem archers----------------------------------------------------------

+ Code Snippet

rem archers----------------------------------------------------------
if file exist("savegamesslot1archers.txt")
   open to read 1,"savegamesslot1archers.txt"
      read string 1,str$
      archercount# = val(str$)
      if archercount#>0
         read string 1,str$
         archerhealth1#=val(str$)
      endif
      if archercount#>1
         read string 1,str$
         archerhealth2#=val(str$)
      endif
      if archercount#>2
         read string 1,str$
         archerhealth3#=val(str$)
      endif
      if archercount#>3
         read string 1,str$
         archerhealth4#=val(str$)
      endif
      if archercount#>4
         read string 1,str$
         archerhealth5#=val(str$)
      endif
      if archercount#>5
         read string 1,str$
         archerhealth6#=val(str$)
      endif
      if archercount#>6
         read string 1,str$
         archerhealth7#=val(str$)
      endif
      if archercount#>7
         read string 1,str$
         archerhealth8#=val(str$)
      endif
      if archercount#>8
         read string 1,str$
         archerhealth9#=val(str$)
      endif
      if archercount#>9
         read string 1,str$
         archerhealth10#=val(str$)
      endif
      if archercount#>10
         read string 1,str$
         archerhealth11#=val(str$)
      endif
      if archercount#>11
         read string 1,str$
         archerhealth12#=val(str$)
      endif
      if archercount#>12
         read string 1,str$
         archerhealth13#=val(str$)
      endif
      if archercount#>13
         read string 1,str$
         archerhealth14#=val(str$)
      endif
      if archercount#>14
         read string 1,str$
         archerhealth15#=val(str$)
      endif
      if archercount#>15
         read string 1,str$
         archerhealth16#=val(str$)
      endif
      if archercount#>16
         read string 1,str$
         archerhealth17#=val(str$)
      endif
      if archercount#>17
         read string 1,str$
         archerhealth18#=val(str$)
      endif
      if archercount#>18
         read string 1,str$
         archerhealth19#=val(str$)
      endif
      if archercount#>19
         read string 1,str$
         archerhealth20#=val(str$)
      endif
   close file 1
endif
print archerhealth1#
print archerhealth2#
print archerhealth3#
print archerhealth4#
print archerhealth5#
print archerhealth6#
print archerhealth7#
print archerhealth8#
print archerhealth9#
print archerhealth10#
print archerhealth11#
print archerhealth12#
print archerhealth13#
print archerhealth14#
print archerhealth15#
print archerhealth16#
print archerhealth17#
print archerhealth18#
print archerhealth19#
print archerhealth20#
rem archers----------------------------------------------------------

into

+ Code Snippet

if file exist("savegamesslot1archers.txt")
	open to read 1,"savegamesslot1archers.txt"
		read string 1,str$
		archercount# = val(str$)
		dim archerhealth#(archercount#)
		for t=1 to archercount#
			read string 1,str$
			archerhealth#(t) = val(str$)
		next t
	close file 1
endif
for t=1 to archercount#
	print archerhealth#(archercount#)
next t

.

One question, however. How would I increase the number of archers later on in the game (this is the only part of the game I have done yet and was supposed to be just for practising saving but now I've started it I might as well have a shot at finishing it)? Would I have to do

+ Code Snippet

if (condition)
   archercount#=archercount#+1
   dim archerhealth2#(archercount#)
   for t=1 to archercount#-1
      archerhealth2#(t)=archerhealth#(t)
   next t
   archerhealth#(archercount#)=100
   undim archerhealth#
   dim archerhealth#(archercount#)
   for t=1 to archercount#
      archerhealth#(t) = archerhealth2#(2)
   next t
   undim archerhealth#2
endif

or is there a way of just increasing the numbers of variables stored in an array. Please note: this code may be rubbish-I don't know, I've just figured it out and basically what it is supposed to do is make a second array with the new amount of archers, transfer all the variables to the second array and add a new one with full health (100). Then it deletes the original array, rebuilds it with the new number of archers, transfers the data back and deletes the seccond array. This is probably a very long-winded way of doing things, but please help! I NEED FEEDBACK - will this work?

Am I the only one here who's really confused?

Back to top

Profile PM Website

Emperor Baal

21

Years of Service

User Offline

Joined: 1st Dec 2003

Location: The Netherlands - Oudenbosch

Posted: 6th Jan 2004 22:41

Link

Just make an big juicy

array

+ Code Snippet


rem The population-cap is 1501 units
dim archer_life#(1500)


do

rem Reset the "trained archer" flag
archer_made=0

rem Reset the "reached popcap" flag
unit_cap_reached=0

rem If the player trained an archer then do this
 if archer_made=1

  rem Return a object number for the archer, if its -1 then popcap is reached
  unit_number=check_free()
  if unit_number<0 then unit_cap_reached=1

 endif

rem if the popcap hasnt been reached and an archer IS trained then make one
 if unit_cap_reached=0 and archer_made=1 then place_archer(unit_number)

loop

function check_free()
for a=0 to 1500
if archer_life#(1500) =< 0 then exitfunction a
next a
endfunction -1

function place_archer(b)
load object "archer.3ds", b
position object b object position x(barracks),object position y(barracks),object position z(barracks)
archer_life#(b)=30
endfunction

Ive added some comments, this is an example.

Quote: "Amd 2500+ | 1024mb pc2700 | A7N8X-X | Geforce4 ti 4200 128mb"

Back to top

Profile PM Email Website

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 6th Jan 2004 22:48

Link

Thanx. P.S. You were quick!

Am I the only one here who's really confused?

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Discussion / Strategy game - loading soldier health.