Troop Formations - GameCreators Forum

Author

Message

ChozoMufin

20

Years of Service

User Offline

Joined: 19th Apr 2005

Location: Columbus, OH

Posted: 18th Jul 2005 06:12 Edited at: 18th Jul 2005 06:13

Link

I have a problem. In my rts, when i tell my soldiers to go to somewhere, they all have the same obvective location so they all clump together because they're all trying to get to the same spot. now i have tried to make them go into little formations(or lines, rows, whatever) when they move but my attempt has failed (see snippit). if anyone knows how to do this, please help.

REM get position orders on right mouseclick
if mouseclick()=2
   if rhold = 0

for selection = 1 to soldiercount
      for selection = 1 to soldiercount
         if select(selection)=1 then inc number
         if number = 1
            soldier1 = selection
         else
            soldier1 = 0
         endif

if number = 2
            soldier2 = selection
         else
            soldier2 = 0
         endif

if number = 3
            soldier3 = selection
         else
            soldier3 = 0
         endif

next selection

if select(selection)=1
         if number=1
            soldier1 = selection
            select(soldier1,1)=object position x(500)
            select(soldier1,2)=object position z(500)
            select(soldier1,3)=object position y(500)
         endif

if number=2
            soldier1 = selection
            select(soldier1,1)=object position x(500)
            select(soldier1,2)=object position z(500)
            select(soldier1,3)=object position y(500)

soldier2 = selection
            select(soldier2,1)=object position x(500)+20
            select(soldier2,2)=object position z(500)
            select(soldier2,3)=object position y(500)
         endif
         if number=3

select(soldier1,1)=object position x(500)
            select(soldier1,2)=object position z(500)
            select(soldier1,3)=object position y(500)

select(soldier2,1)=object position x(500)+20
            select(soldier2,2)=object position z(500)
            select(soldier2,3)=object position y(500)

select(soldier3,1)=object position x(500)
            select(soldier3,2)=object position z(500)+20
            select(soldier3,3)=object position y(500)
         endif

else
         select(selection,1)=object position x(selection)
         select(selection,2)=object position z(selection)
         select(selection,3)=object position y(selection)
         number=0
      endif

next selection
   endif
   rhold=1
endif

if mouseclick()=0 then rhold=0

+ Code Snippet

REM get position orders on right mouseclick
if mouseclick()=2
   if rhold = 0

      for selection = 1 to soldiercount
      for selection = 1 to soldiercount
         if select(selection)=1 then inc number
         if number = 1
            soldier1 = selection
         else
            soldier1 = 0
         endif

         if number = 2
            soldier2 = selection
         else
            soldier2 = 0
         endif

         if number = 3
            soldier3 = selection
         else
            soldier3 = 0
         endif

      next selection

      if select(selection)=1
         if number=1
            soldier1 = selection
            select(soldier1,1)=object position x(500)
            select(soldier1,2)=object position z(500)
            select(soldier1,3)=object position y(500)
         endif

         if number=2
            soldier1 = selection
            select(soldier1,1)=object position x(500)
            select(soldier1,2)=object position z(500)
            select(soldier1,3)=object position y(500)

            soldier2 = selection
            select(soldier2,1)=object position x(500)+20
            select(soldier2,2)=object position z(500)
            select(soldier2,3)=object position y(500)
         endif
         if number=3

            select(soldier1,1)=object position x(500)
            select(soldier1,2)=object position z(500)
            select(soldier1,3)=object position y(500)

            select(soldier2,1)=object position x(500)+20
            select(soldier2,2)=object position z(500)
            select(soldier2,3)=object position y(500)

            select(soldier3,1)=object position x(500)
            select(soldier3,2)=object position z(500)+20
            select(soldier3,3)=object position y(500)
         endif

      else
         select(selection,1)=object position x(selection)
         select(selection,2)=object position z(selection)
         select(selection,3)=object position y(selection)
         number=0
      endif

      next selection
   endif
   rhold=1
endif



if mouseclick()=0 then rhold=0

yeah just so you know, the array called select's second level of data is the particular troop's x, y, and z location orders. if you have no idea what i just said just say so and i'll try to exsplain it more.

Your Head A-Splode

Back to top

Profile PM Email Website

HWT

20

Years of Service

User Offline

Joined: 1st Apr 2005

Location: Earth

Posted: 19th Jul 2005 05:50

Link

Hi there

I haven't really understood your code but tried to develop something myself - hope this helps

REM ************************************************************************************
REM                                TROOP MOVEMENT
REM This simple program demonstrates simple troop movement AI
REM Date: 18-July-2005        By: HWT
REM ************************************************************************************
Rem inits stuff
autocam off
hide mouse

`Make soldiers
for i = 1 to 5
make object cube i,10
next i
`Make dud soldier
make object cube 6,1 : hide object 6

`Make land
make matrix 1,2500,2500,15,15
position camera 50,25,-100

`Cursor variables
a = 1
b=0
timer=100

`MAIN PROGRAM LOOP
sync on : sync rate 0 : do

rem Make soldiers go to the spot 1 by 1
   `First point the current soldier at the desired spot (depending on what
   `soldier is selected, the desired spot changes)
   point object a,100-b,0,100
   `Make him move towards it
   move object a,5
   `If the number of soldiers is still okay and the object exists
   if a <= 5 and object exist(a)=1
      `If the object position is just right, change the selection to next soldier
      if object position x(a)>=100-b
         inc a : inc b,20
         `Reset the rotation of the object
         rotate object (a-1),0,0,0
      endif
   endif

rem Now I'm having a little fun :)
   if a>=6
   dec timer,3
   set text font "IMPACT"
   set text size 100
   ink rgb(255,0,0),0
   if timer < 80 : text 50,140,"SIR!" : endif
   if timer < 60 : text 250,140,"YES!" : endif
   if timer < 40 : text 450,140,"SIR!" : endif
   endif

sync : loop

+ Code Snippet

REM ************************************************************************************
REM                                TROOP MOVEMENT
REM This simple program demonstrates simple troop movement AI
REM Date: 18-July-2005        By: HWT
REM ************************************************************************************
Rem inits stuff
autocam off
hide mouse

`Make soldiers
for i = 1 to 5
make object cube i,10
next i
`Make dud soldier
make object cube 6,1 : hide object 6

`Make land
make matrix 1,2500,2500,15,15
position camera 50,25,-100

`Cursor variables
a = 1
b=0
timer=100

`MAIN PROGRAM LOOP
sync on : sync rate 0 : do

   rem Make soldiers go to the spot 1 by 1
   `First point the current soldier at the desired spot (depending on what
   `soldier is selected, the desired spot changes)
   point object a,100-b,0,100
   `Make him move towards it
   move object a,5
   `If the number of soldiers is still okay and the object exists
   if a <= 5 and object exist(a)=1
      `If the object position is just right, change the selection to next soldier
      if object position x(a)>=100-b
         inc a : inc b,20
         `Reset the rotation of the object
         rotate object (a-1),0,0,0
      endif
   endif


   rem Now I'm having a little fun :)
   if a>=6
   dec timer,3
   set text font "IMPACT"
   set text size 100
   ink rgb(255,0,0),0
   if timer < 80 : text 50,140,"SIR!" : endif
   if timer < 60 : text 250,140,"YES!" : endif
   if timer < 40 : text 450,140,"SIR!" : endif
   endif


sync : loop

Hope this helps

HelloWorld Tommorrow

Back to top

Profile PM

ChozoMufin

20

Years of Service

User Offline

Joined: 19th Apr 2005

Location: Columbus, OH

Posted: 19th Jul 2005 06:27

Link

yeah thats' not exactly what i wanted, but thanks anyway.

i'll explain my code a bit: object 500 is the 3d mouse cursor that i made, so when you right click, whatever soldiers are selected get orders to move to the location of the cursor at the time of the click.

the select array is for determining wether a soldier is selected or not and for each soldier what his position orders are. as i said before, in the selection array, the second level of data (select(selection, 1 2 or 3) is each soldiers x, y, and z position orders, wich are declared when you right-click on a location.

rhold is just a holding variable that makes sure that when you right-click, the orders are only given once (so that the soldier won't follow your cursor if you hold it down).

soldiercount is the number of troops there are presently. right now it's 10, but i made my program in such a way so that if i increase the number of soldiers, everything still works.

now the number variable finds how many soldiers are selected in this for next statement:

+ Code Snippet

for selection = 1 to soldiercount
         if select(selection)=1 then inc number
         if number = 1
            soldier1 = selection
         else
            soldier1 = 0
         endif

         if number = 2
            soldier2 = selection
         else
            soldier2 = 0
         endif

         if number = 3
            soldier3 = selection
         else
            soldier3 = 0
         endif

      next selection

i have only made formations for 3 amounts of selected soldiers(1,2,and 3) but will make more later.

soldier1, soldier2, and soldier3 are assigned the value of whatever units are selected, with soldier1 being the soldier with the least object number, soldier2 being the soldier with the next greatest object number, and so on.

so now that i have explained all that i can without giving you my entire code, somebody please help!

Your Head A-Splode

Back to top

Profile PM Email Website

ChozoMufin

20

Years of Service

User Offline

Joined: 19th Apr 2005

Location: Columbus, OH

Posted: 19th Jul 2005 06:38

Link

I fixed it!

i just had one for next loop too many, so i took one of them out and now it works.

Your Head A-Splode

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Troop Formations