Trying to get my "Bots" to follow behind my ship.

Author

Message

MickeyIII

19

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 20th Jan 2007 20:32

Link

Hey, I need help with some AI. I made a function for Finding the angle between one point and another point. Well, the function works. But when I make my "Bots" move... Well, I really have no clue what they're doing, even when I make some text showing what's going on. I even tried to make a line from the Bot's position to where it's heading and I can't even do that. The Funny part is I can do it all in Visual Basics 6.0 using the same idea someone had done in a tutorial via this link...http://www.gpwiki.org/index.php/VB:Tutorials:Seeking_and_Fleeing

But I can't replicate it into my game. Please download my attachment and help me out. I'll even post a code_snipet if you need.

Rem Project: Tactical Space Combat
Rem Created: 8/8/06 4:13:45 PM

Rem ***** Main Source File *****
sync on:sync rate 0
set display mode 1024,768,32
backdrop off:randomize timer()
set image colorkey 0,0,0

Intro:

cls

load = timer() + 5000

l = (1024 / 2) - 200

repeat
cls

Title(1024 / 2,768 / 2,"Tactical Space Combat")

box (1024 / 2) - 200,600,(1024 / 2) + 200,632,rgb(0,255,0),rgb(0,100,0),rgb(0,255,0),rgb(0,100,0)

l = l + 9
if l > (1024 / 2) + (200 - 32)
   l = (1024 / 2) - 200
endif

box l,600,l + 32,632,rgb(255,0,255),rgb(100,0,100),rgb(255,0,255),rgb(100,0,100)

sync
until timer() > load

MainMenu:

cls

do
cls

Title(1024 / 2,100,"Tactical Space Combat")

if Button("Arcade",(1024 / 2) - (text width("Arcade") / 2),200) = 1 then wait 500:goto Arcade
if Button("Exit",800,600) = 1 then end

sync
loop

Arcade:

cls

img_Ship1 = 1
img_Ship2 = 2
img_Bullet1 = 3
img_Bullet2 = 4
load image "Images\Ship_01.bmp",img_Ship1
load image "Images\Ship_03.bmp",img_Ship2
load image "Images\Bullet1.bmp",img_Bullet1
load image "Images\Bullet2.bmp",img_Bullet2

img_Star = 5
img_Smoke = 6
load image "Images\Bullet4.bmp",img_Star
load image "Images\Smoke.bmp",img_Smoke

type vector2
   x as integer
   y as integer
endtype

type rect
   top as integer
   left as integer
   right as integer
   bottom as integer
endtype

type Ship
   num as integer
   pos as vector2
   pos2 as vector2
   size as vector2
   angle as integer
   ammo as integer
   maxammo as integer
   sheilds as integer
   armor as integer
   speed as integer
   maxspeed as integer
   botsowned as integer
   lastshot as integer
   score as integer
endtype

dim Ship(1) as Ship

type Bots
   num as integer
   pos as vector2
   pos2 as vector2
   size as vector2
   angle as integer
   ammo as integer
   maxammo as integer
   sheilds as integer
   armor as integer
   speed as integer
   maxspeed as integer
   following as integer
   followpoint as vector2
   fleeing as integer
   fleeingpoint as vector2
   swarming as integer
   swarmingpoint as vector2
   swarmingarea as rect
   lastshot as integer
   owned as integer
endtype

dim Bot(199) as Bots

type BulletsU1
   num as vector2
   pos as vector2
   pos2 as vector2
   size as vector2
   angle as integer
   life as integer
   mindammage as integer
   maxdammage as integer
endtype

dim Bullet1(1,39) as BulletsU1

type TExplode
   pos as vector2
   pos2 as vector2
   size as vector2
   size2 as rect
   life as integer
endtype

dim Explode(999,19) as TExplode

type TTrail
   pos as vector2
   pos2 as vector2
   size as vector2
   size2 as rect
   life as integer
endtype

dim Trail(999,19) as TTrail

Scroll as vector2
Scroll.x = 100
Scroll.y = 9900

Ship(0).pos.x = 100
Ship(0).pos.y = 9900
Ship(0).Size.x = 32
Ship(0).Size.y = 32
Ship(0).Angle = 0
Ship(0).Ammo = 1500
Ship(0).maxammo = 2000
Ship(0).Sheilds = 800
Ship(0).Armor = 80
Ship(0).speed = 0
Ship(0).maxspeed = 24
Ship(0).botsowned = 5
Ship(0).lastshot = 0

Ship(1).pos.x = 9900
Ship(1).pos.y = 100
Ship(1).Size.x = 32
Ship(1).Size.y = 32
Ship(1).Angle = 180
Ship(1).Ammo = 1500
Ship(1).maxammo = 2000
Ship(1).Sheilds = 800
Ship(1).Armor = 80
Ship(1).speed = 0
Ship(1).maxspeed = 24
Ship(1).botsowned = 5
Ship(1).lastshot = 0

ii = 100
for i = 0 to 99
   inc ii,1
   if i < 5
      Bot(i).num = ii
      Bot(i).owned = 0
   endif
   if i > 4
      Bot(i).num = ii
      Bot(i).owned = -1
   endif
next i

for i = 100 to 199
   inc ii,1
   if i < 105
      Bot(i).num = ii
      Bot(i).owned = 1
   endif
   if i > 104
      Bot(i).num = ii
      Bot(i).owned = -1
   endif
next i

for i = 0 to 4
   Bot(i).pos.x = 100 + rnd(100)
   Bot(i).pos.y = 9900 - rnd(100)
   Bot(i).Size.x = 4
   Bot(i).Size.y = 4
   Bot(i).Ammo = 750
   Bot(i).maxammo = 800
   Bot(i).Sheilds = 200
   Bot(i).Armor = 60
   Bot(i).speed = 0
   Bot(i).maxspeed = 32
   Bot(i).lastshot = 0
   Bot(i).owned = 0
   Bot(i).following = 1
next i

for i = 100 to 104
   Bot(i).pos.x = 9900 - rnd(100)
   Bot(i).pos.y = 100 + rnd(100)
   Bot(i).Size.x = 4
   Bot(i).Size.y = 4
   Bot(i).Angle = 180
   Bot(i).Ammo = 750
   Bot(i).maxammo = 800
   Bot(i).Sheilds = 200
   Bot(i).Armor = 60
   Bot(i).speed = 0
   Bot(i).maxspeed = 32
   Bot(i).lastshot = 0
   Bot(i).owned = 1
   Bot(i).following = 2
next i

Ship(0).num = 1
Ship(1).num = 2

type stars
   pos as vector2
   size as vector2
   angle as integer
endtype

dim star(999) as stars

cls

for i = 0 to 999
   star(i).pos.x = rnd(12000)
   star(i).pos.y = rnd(12000)
   star(i).size.x = rnd(31) + 1
   star(i).size.y = rnd(31) + 1
   star(i).angle = rnd(359)
next i

for i = 0 to 999
   if sprite exist(i + 3000) = 1 then delete sprite i + 3000
next i

do
cls

gosub Draw_Stars
gosub Ship1_Movement
gosub Ship1_Bullets
gosub Ship1_Bots_Movement

sync
loop

Draw_Stars:

for i = 0 to 499
   sprite i + 1000,star(i).pos.x - Scroll.x,star(i).pos.y - Scroll.y,img_Bullet1
   set sprite i + 1000,1,1
   size sprite i + 1000,star(i).size.x,star(i).size.y
   offset sprite i + 1000,sprite width(i + 1000) / 2,sprite height(i + 1000) / 2
   rotate sprite i + 1000,star(i).angle
next i

for i = 500 to 999
   sprite i + 1000,star(i).pos.x - Scroll.x,star(i).pos.y - Scroll.y,img_Bullet2
   set sprite i + 1000,1,1
   size sprite i + 1000,star(i).size.x,star(i).size.y
   offset sprite i + 1000,sprite width(i + 1000) / 2,sprite height(i + 1000) / 2
   rotate sprite i + 1000,star(i).angle
next i

return

Ship1_Movement:

if keystate(17) = 1 and Ship(0).speed <= Ship(0).maxspeed
   inc Ship(0).speed,1
endif
if keystate(31) = 1 and Ship(0).speed => (Ship(0).maxspeed * -1)
   dec Ship(0).speed,1
endif

if keystate(48) = 1 and Ship(0).speed <> 0
   if Ship(0).speed > 0 then dec Ship(0).speed,8
   if Ship(0).speed < 0 then inc Ship(0).speed,8
endif

Ship(0).pos.x = NXV(Ship(0).pos.x,Ship(0).angle,Ship(0).speed)
Ship(0).pos.y = NYV(Ship(0).pos.y,Ship(0).angle,Ship(0).speed)

if Ship(0).pos.x - Scroll.x < 250 then dec Scroll.x,Ship(0).maxspeed
if Ship(0).pos.x - Scroll.x > 1024 - 250 then inc Scroll.x,Ship(0).maxspeed
if Ship(0).pos.y - Scroll.y < 250 then dec Scroll.y,Ship(0).maxspeed
if Ship(0).pos.y - Scroll.y > 768 - 250 then inc Scroll.y,Ship(0).maxspeed

if keystate(30) = 1 then dec Ship(0).angle,8
if keystate(32) = 1 then inc Ship(0).angle,8

sprite Ship(0).num,Ship(0).pos.x - Scroll.x,Ship(0).pos.y - Scroll.y,img_Ship1
set sprite 1,1,1
size sprite Ship(0).num,Ship(0).size.x,Ship(0).size.y
offset sprite 1,sprite width(1) / 2,sprite height(1) / 2
rotate sprite 1,Ship(0).angle

return

Ship1_Bullets:

for i = 0 to 39

Bullet1(0,i).Size.x = Ship(0).Size.x / 2
Bullet1(0,i).Size.y = Ship(0).Size.y / 2

if keystate(42) = 0 and Ship(0).ammo <= Ship(0).maxammo
   inc Ship(0).ammo,1
endif

`left_shift
if keystate(42) = 1 and timer() > ls and timer() => Bullet1(0,i).life and Ship(0).ammo > 0
ls = timer() + 80
Bullet1(0,i).pos.x = Ship(0).pos.x
Bullet1(0,i).pos.y = Ship(0).pos.y
Bullet1(0,i).angle = Ship(0).angle
Bullet1(0,i).life = timer() + 80 * 40
dec Ship(0).ammo,1
endif

if timer() < Bullet1(0,i).life
   Bullet1(0,i).pos.x = NXV(Bullet1(0,i).pos.x,Bullet1(0,i).angle,64)
   Bullet1(0,i).pos.y = NYV(Bullet1(0,i).pos.y,Bullet1(0,i).angle,64)
   sprite i + 3000,Bullet1(0,i).pos.x - Scroll.x,Bullet1(0,i).pos.y - Scroll.y,img_Bullet1
   set sprite i + 3000,1,1
   size sprite i + 3000,Bullet1(0,i).Size.x,Bullet1(0,i).Size.y
   offset sprite i + 3000,sprite width(i + 3000) / 2,sprite height(i + 3000) / 2
endif

if timer() => Bullet1(0,i).life
   if sprite exist(i + 3000) = 1 then delete sprite i + 3000
endif

next i

return

Ship1_Bots_Movement:

for i = 0 to Ship(0).Botsowned - 1

if Bot(i).following = 1

Bot(i).followpoint.x = Ship(0).pos.x + sin(Ship(0).angle) * -32
Bot(i).followpoint.y = Ship(0).pos.y + cos(Ship(0).angle + 180) * -32

if Get_Dist(Bot(i).pos.x,Bot(i).pos.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 16

temp_angle# = Find_Angle(Bot(i).followpoint.x,Bot(i).followpoint.y,Bot(i).pos.x,Bot(i).pos.y)

inc Bot(i).speed,1
   Bot(i).angle = temp_angle#

else

dec Bot(i).speed,1
   Bot(i).angle = temp_angle#

endif

if Bot(i).speed > Bot(i).maxspeed then Bot(i).speed = Bot(i).maxspeed
if Bot(i).speed < Bot(i).maxspeed * -1 then Bot(i).speed = Bot(i).maxspeed * -1

Bot(i).pos.x = NXV(Bot(i).pos.x,Bot(i).angle,Bot(i).speed)
Bot(i).pos.y = NYV(Bot(i).pos.y,Bot(i).angle,Bot(i).speed)

sprite Bot(i).num,Bot(i).pos.x - Scroll.x,Bot(i).pos.y - Scroll.y,img_Ship1
set sprite Bot(i).num,1,1
size sprite Bot(i).num,Bot(i).size.x,Bot(i).size.y
offset sprite Bot(i).num,sprite width(Bot(i).num) / 2,sprite height(Bot(i).num) / 2
rotate sprite Bot(i).num,Bot(i).angle

next i

return

function Find_Angle(X1,Y1,X2,Y2)
   x# = (X2 - X1)
   y# = (Y1 - Y2)
   if sgn(y#) > 0 then angle# = atan(x# / y#)
   if sgn(y#) < 0 then angle# = atan(x# / y#) + PI()
endfunction angle#

function Get_Dist(X1,X2,Y1,Y2)
   dist# = sqrt(((X2 - X1) ^ 2) + ((Y2 - Y1) ^ 2))
endfunction dist#

function NXV(cur,angle,dest)
   value# = cur + sin(angle) * dest
endfunction value#

function NYV(cur,angle,dest)
   value# = cur + cos(angle + 180) * dest
endfunction value#

function Title(x,y,title$)
   box x - (text width(title$) / 2),y,x + (text width(title$) / 2),y + text height(title$),rgb(0,0,100),rgb(0,0,255),rgb(100,0,0),rgb(255,0,0)
   ink rgb(255,255,255),rgb(0,0,0)
   set text size 72
   text x - (text width(title$) / 2),y,title$
endfunction

function Button(txt$,x,y)

ink rgb(0,255,0),rgb(0,0,0)
   set text size 48
   text x,y,txt$

if mousex() > x and mousex() < x + text width(txt$)
   if mousey() > y and mousey() < y + text height(txt$)
      ink rgb(255,255,255),rgb(0,0,0)
      set text size 25
      text x,y,txt$
      Pressed = mouseclick()
   endif
   endif

endfunction Pressed

function GameTime(BaseTime as integer)
   local TimeValue as integer
   local TextTime as string

TimeValue=abs( timer() - BaseTime )

` Centi-Seconds
   TimeValue = TimeValue / 10
   TextTime=PadNumber( TimeValue mod 100 , 2)

` Seconds
   TimeValue = TimeValue / 100
   TextTime=PadNumber( TimeValue mod 60, 2) + ":" + TextTime

` Minutes
   TimeValue = TimeValue / 60
   TextTime=PadNumber( TimeValue mod 60, 2) + ":" + TextTime

` Hours
   TimeValue = TimeValue / 60
   TextTime=PadNumber( TimeValue mod 60, 2) + ":" + TextTime

endfunction TextTime

function PadNumber(n as integer, Size as integer)
   local PaddedNumber as string

PaddedNumber=str$(n)
   while len(PaddedNumber) < Size
      PaddedNumber = "0" + PaddedNumber
   endwhile
endfunction PaddedNumber

+ Code Snippet

Rem Project: Tactical Space Combat
Rem Created: 8/8/06 4:13:45 PM

Rem ***** Main Source File *****
sync on:sync rate 0
set display mode 1024,768,32
backdrop off:randomize timer()
set image colorkey 0,0,0

Intro:

cls

load = timer() + 5000

l = (1024 / 2) - 200

repeat
cls

Title(1024 / 2,768 / 2,"Tactical Space Combat")

box (1024 / 2) - 200,600,(1024 / 2) + 200,632,rgb(0,255,0),rgb(0,100,0),rgb(0,255,0),rgb(0,100,0)

l = l + 9
if l > (1024 / 2) + (200 - 32)
   l = (1024 / 2) - 200
endif

box l,600,l + 32,632,rgb(255,0,255),rgb(100,0,100),rgb(255,0,255),rgb(100,0,100)

sync
until timer() > load

MainMenu:

cls

do
cls

Title(1024 / 2,100,"Tactical Space Combat")

if Button("Arcade",(1024 / 2) - (text width("Arcade") / 2),200) = 1 then wait 500:goto Arcade
if Button("Exit",800,600) = 1 then end

sync
loop

Arcade:

cls

img_Ship1 = 1
img_Ship2 = 2
img_Bullet1 = 3
img_Bullet2 = 4
load image "Images\Ship_01.bmp",img_Ship1
load image "Images\Ship_03.bmp",img_Ship2
load image "Images\Bullet1.bmp",img_Bullet1
load image "Images\Bullet2.bmp",img_Bullet2

img_Star = 5
img_Smoke = 6
load image "Images\Bullet4.bmp",img_Star
load image "Images\Smoke.bmp",img_Smoke

type vector2
   x as integer
   y as integer
endtype

type rect
   top as integer
   left as integer
   right as integer
   bottom as integer
endtype

type Ship
   num as integer
   pos as vector2
   pos2 as vector2
   size as vector2
   angle as integer
   ammo as integer
   maxammo as integer
   sheilds as integer
   armor as integer
   speed as integer
   maxspeed as integer
   botsowned as integer
   lastshot as integer
   score as integer
endtype

dim Ship(1) as Ship

type Bots
   num as integer
   pos as vector2
   pos2 as vector2
   size as vector2
   angle as integer
   ammo as integer
   maxammo as integer
   sheilds as integer
   armor as integer
   speed as integer
   maxspeed as integer
   following as integer
   followpoint as vector2
   fleeing as integer
   fleeingpoint as vector2
   swarming as integer
   swarmingpoint as vector2
   swarmingarea as rect
   lastshot as integer
   owned as integer
endtype

dim Bot(199) as Bots

type BulletsU1
   num as vector2
   pos as vector2
   pos2 as vector2
   size as vector2
   angle as integer
   life as integer
   mindammage as integer
   maxdammage as integer
endtype

dim Bullet1(1,39) as BulletsU1

type TExplode
   pos as vector2
   pos2 as vector2
   size as vector2
   size2 as rect
   life as integer
endtype

dim Explode(999,19) as TExplode

type TTrail
   pos as vector2
   pos2 as vector2
   size as vector2
   size2 as rect
   life as integer
endtype

dim Trail(999,19) as TTrail

Scroll as vector2
Scroll.x = 100
Scroll.y = 9900

Ship(0).pos.x = 100
Ship(0).pos.y = 9900
Ship(0).Size.x = 32
Ship(0).Size.y = 32
Ship(0).Angle = 0
Ship(0).Ammo = 1500
Ship(0).maxammo = 2000
Ship(0).Sheilds = 800
Ship(0).Armor = 80
Ship(0).speed = 0
Ship(0).maxspeed = 24
Ship(0).botsowned = 5
Ship(0).lastshot = 0

Ship(1).pos.x = 9900
Ship(1).pos.y = 100
Ship(1).Size.x = 32
Ship(1).Size.y = 32
Ship(1).Angle = 180
Ship(1).Ammo = 1500
Ship(1).maxammo = 2000
Ship(1).Sheilds = 800
Ship(1).Armor = 80
Ship(1).speed = 0
Ship(1).maxspeed = 24
Ship(1).botsowned = 5
Ship(1).lastshot = 0

ii = 100
for i = 0 to 99
   inc ii,1
   if i < 5
      Bot(i).num = ii
      Bot(i).owned = 0
   endif
   if i > 4
      Bot(i).num = ii
      Bot(i).owned = -1
   endif
next i

for i = 100 to 199
   inc ii,1
   if i < 105
      Bot(i).num = ii
      Bot(i).owned = 1
   endif
   if i > 104
      Bot(i).num = ii
      Bot(i).owned = -1
   endif
next i

for i = 0 to 4
   Bot(i).pos.x = 100 + rnd(100)
   Bot(i).pos.y = 9900 - rnd(100)
   Bot(i).Size.x = 4
   Bot(i).Size.y = 4
   Bot(i).Ammo = 750
   Bot(i).maxammo = 800
   Bot(i).Sheilds = 200
   Bot(i).Armor = 60
   Bot(i).speed = 0
   Bot(i).maxspeed = 32
   Bot(i).lastshot = 0
   Bot(i).owned = 0
   Bot(i).following = 1
next i

for i = 100 to 104
   Bot(i).pos.x = 9900 - rnd(100)
   Bot(i).pos.y = 100 + rnd(100)
   Bot(i).Size.x = 4
   Bot(i).Size.y = 4
   Bot(i).Angle = 180
   Bot(i).Ammo = 750
   Bot(i).maxammo = 800
   Bot(i).Sheilds = 200
   Bot(i).Armor = 60
   Bot(i).speed = 0
   Bot(i).maxspeed = 32
   Bot(i).lastshot = 0
   Bot(i).owned = 1
   Bot(i).following = 2
next i

Ship(0).num = 1
Ship(1).num = 2

type stars
   pos as vector2
   size as vector2
   angle as integer
endtype

dim star(999) as stars

cls

for i = 0 to 999
   star(i).pos.x = rnd(12000)
   star(i).pos.y = rnd(12000)
   star(i).size.x = rnd(31) + 1
   star(i).size.y = rnd(31) + 1
   star(i).angle = rnd(359)
next i

for i = 0 to 999
   if sprite exist(i + 3000) = 1 then delete sprite i + 3000
next i

do
cls

gosub Draw_Stars
gosub Ship1_Movement
gosub Ship1_Bullets
gosub Ship1_Bots_Movement

sync
loop

Draw_Stars:

for i = 0 to 499
   sprite i + 1000,star(i).pos.x - Scroll.x,star(i).pos.y - Scroll.y,img_Bullet1
   set sprite i + 1000,1,1
   size sprite i + 1000,star(i).size.x,star(i).size.y
   offset sprite i + 1000,sprite width(i + 1000) / 2,sprite height(i + 1000) / 2
   rotate sprite i + 1000,star(i).angle
next i

for i = 500 to 999
   sprite i + 1000,star(i).pos.x - Scroll.x,star(i).pos.y - Scroll.y,img_Bullet2
   set sprite i + 1000,1,1
   size sprite i + 1000,star(i).size.x,star(i).size.y
   offset sprite i + 1000,sprite width(i + 1000) / 2,sprite height(i + 1000) / 2
   rotate sprite i + 1000,star(i).angle
next i

return

Ship1_Movement:

if keystate(17) = 1 and Ship(0).speed <= Ship(0).maxspeed
   inc Ship(0).speed,1
endif
if keystate(31) = 1 and Ship(0).speed => (Ship(0).maxspeed * -1)
   dec Ship(0).speed,1
endif

if keystate(48) = 1 and Ship(0).speed <> 0
   if Ship(0).speed > 0 then dec Ship(0).speed,8
   if Ship(0).speed < 0 then inc Ship(0).speed,8
endif

Ship(0).pos.x = NXV(Ship(0).pos.x,Ship(0).angle,Ship(0).speed)
Ship(0).pos.y = NYV(Ship(0).pos.y,Ship(0).angle,Ship(0).speed)

if Ship(0).pos.x - Scroll.x < 250 then dec Scroll.x,Ship(0).maxspeed
if Ship(0).pos.x - Scroll.x > 1024 - 250 then inc Scroll.x,Ship(0).maxspeed
if Ship(0).pos.y - Scroll.y < 250 then dec Scroll.y,Ship(0).maxspeed
if Ship(0).pos.y - Scroll.y > 768 - 250 then inc Scroll.y,Ship(0).maxspeed

if keystate(30) = 1 then dec Ship(0).angle,8
if keystate(32) = 1 then inc Ship(0).angle,8

sprite Ship(0).num,Ship(0).pos.x - Scroll.x,Ship(0).pos.y - Scroll.y,img_Ship1
set sprite 1,1,1
size sprite Ship(0).num,Ship(0).size.x,Ship(0).size.y
offset sprite 1,sprite width(1) / 2,sprite height(1) / 2
rotate sprite 1,Ship(0).angle

return

Ship1_Bullets:

for i = 0 to 39

Bullet1(0,i).Size.x = Ship(0).Size.x / 2
Bullet1(0,i).Size.y = Ship(0).Size.y / 2

if keystate(42) = 0 and Ship(0).ammo <= Ship(0).maxammo
   inc Ship(0).ammo,1
endif

`left_shift
if keystate(42) = 1 and timer() > ls and timer() => Bullet1(0,i).life and Ship(0).ammo > 0
ls = timer() + 80
Bullet1(0,i).pos.x = Ship(0).pos.x
Bullet1(0,i).pos.y = Ship(0).pos.y
Bullet1(0,i).angle = Ship(0).angle
Bullet1(0,i).life = timer() + 80 * 40
dec Ship(0).ammo,1
endif

if timer() < Bullet1(0,i).life
   Bullet1(0,i).pos.x = NXV(Bullet1(0,i).pos.x,Bullet1(0,i).angle,64)
   Bullet1(0,i).pos.y = NYV(Bullet1(0,i).pos.y,Bullet1(0,i).angle,64)
   sprite i + 3000,Bullet1(0,i).pos.x - Scroll.x,Bullet1(0,i).pos.y - Scroll.y,img_Bullet1
   set sprite i + 3000,1,1
   size sprite i + 3000,Bullet1(0,i).Size.x,Bullet1(0,i).Size.y
   offset sprite i + 3000,sprite width(i + 3000) / 2,sprite height(i + 3000) / 2
endif

if timer() => Bullet1(0,i).life
   if sprite exist(i + 3000) = 1 then delete sprite i + 3000
endif

next i

return

Ship1_Bots_Movement:

for i = 0 to Ship(0).Botsowned - 1

if Bot(i).following = 1

Bot(i).followpoint.x = Ship(0).pos.x + sin(Ship(0).angle) * -32
Bot(i).followpoint.y = Ship(0).pos.y + cos(Ship(0).angle + 180) * -32

if Get_Dist(Bot(i).pos.x,Bot(i).pos.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 16

   temp_angle# = Find_Angle(Bot(i).followpoint.x,Bot(i).followpoint.y,Bot(i).pos.x,Bot(i).pos.y)

   inc Bot(i).speed,1
   Bot(i).angle = temp_angle#

else

   dec Bot(i).speed,1
   Bot(i).angle = temp_angle#

endif

endif

if Bot(i).speed > Bot(i).maxspeed then Bot(i).speed = Bot(i).maxspeed
if Bot(i).speed < Bot(i).maxspeed * -1 then Bot(i).speed = Bot(i).maxspeed * -1

Bot(i).pos.x = NXV(Bot(i).pos.x,Bot(i).angle,Bot(i).speed)
Bot(i).pos.y = NYV(Bot(i).pos.y,Bot(i).angle,Bot(i).speed)

sprite Bot(i).num,Bot(i).pos.x - Scroll.x,Bot(i).pos.y - Scroll.y,img_Ship1
set sprite Bot(i).num,1,1
size sprite Bot(i).num,Bot(i).size.x,Bot(i).size.y
offset sprite Bot(i).num,sprite width(Bot(i).num) / 2,sprite height(Bot(i).num) / 2
rotate sprite Bot(i).num,Bot(i).angle

next i

return

function Find_Angle(X1,Y1,X2,Y2)
   x# = (X2 - X1)
   y# = (Y1 - Y2)
   if sgn(y#) > 0 then angle# = atan(x# / y#)
   if sgn(y#) < 0 then angle# = atan(x# / y#) + PI()
endfunction angle#

function Get_Dist(X1,X2,Y1,Y2)
   dist# = sqrt(((X2 - X1) ^ 2) + ((Y2 - Y1) ^ 2))
endfunction dist#

function NXV(cur,angle,dest)
   value# = cur + sin(angle) * dest
endfunction value#

function NYV(cur,angle,dest)
   value# = cur + cos(angle + 180) * dest
endfunction value#

function Title(x,y,title$)
   box x - (text width(title$) / 2),y,x + (text width(title$) / 2),y + text height(title$),rgb(0,0,100),rgb(0,0,255),rgb(100,0,0),rgb(255,0,0)
   ink rgb(255,255,255),rgb(0,0,0)
   set text size 72
   text x - (text width(title$) / 2),y,title$
endfunction

function Button(txt$,x,y)

   ink rgb(0,255,0),rgb(0,0,0)
   set text size 48
   text x,y,txt$

   if mousex() > x and mousex() < x + text width(txt$)
   if mousey() > y and mousey() < y + text height(txt$)
      ink rgb(255,255,255),rgb(0,0,0)
      set text size 25
      text x,y,txt$
      Pressed = mouseclick()
   endif
   endif

endfunction Pressed

function GameTime(BaseTime as integer)
   local TimeValue as integer
   local TextTime as string

   TimeValue=abs( timer() - BaseTime )

   ` Centi-Seconds
   TimeValue = TimeValue / 10
   TextTime=PadNumber( TimeValue mod 100 , 2)

   ` Seconds
   TimeValue = TimeValue / 100
   TextTime=PadNumber( TimeValue mod 60, 2) + ":" + TextTime

   ` Minutes
   TimeValue = TimeValue / 60
   TextTime=PadNumber( TimeValue mod 60, 2) + ":" + TextTime

   ` Hours
   TimeValue = TimeValue / 60
   TextTime=PadNumber( TimeValue mod 60, 2) + ":" + TextTime

endfunction TextTime

function PadNumber(n as integer, Size as integer)
   local PaddedNumber as string

   PaddedNumber=str$(n)
   while len(PaddedNumber) < Size
      PaddedNumber = "0" + PaddedNumber
   endwhile
endfunction PaddedNumber

Thanks,
Mickey III

Back to top

Profile PM Email Website

sixblades

21

Years of Service

User Offline

Joined: 30th Jul 2004

Location:

Posted: 31st Jan 2007 05:00

Link

I don't have nearly enough time to take a good look at all that code, but my guess would be that you aren't getting correct angle values due to the use of the 'atan()' function. Unfortunately, this will not give you the full 360 degrees, for that you will need to call the function 'atanfull()' instead. I'd try working with that, as I made a little program similar to this at some point along the line and ran into this problem.

Cheers!

Back to top

Profile PM Email

MickeyIII

19

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 31st Jan 2007 23:24

Link

Thanks, but that doesn't help much, because that's the first thing I tried. I'll try it again any way though. Thanks.

MickeyIII

Back to top

Profile PM Email Website

MickeyIII

19

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 18th Feb 2007 02:11

Link

Ship1_Bots_Movement:

for i = 0 to Ship(0).Botsowned - 1

if Bot(i).following = 1

Bot(i).followpoint.x = Ship(0).pos.x
Bot(i).followpoint.y = Ship(0).pos.y

text 5,5,str$(temp_angle#)

if Get_Dist(Bot(i).pos.x,Bot(i).pos.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 16

temp_angle# = Find_Angle(Bot(i).pos.x,Bot(i).pos.y,Bot(i).followpoint.x,Bot(i).followpoint.y,Bot(i).angle)

inc Bot(i).speed,1

if temp_angle# <= 180 then dec Bot(i).angle,8
   if temp_angle# > 180 then inc Bot(i).angle,8

else

temp_angle# = Find_Angle(Bot(i).pos.x,Bot(i).pos.y,Bot(i).followpoint.x,Bot(i).followpoint.y,Bot(i).angle)

dec Bot(i).speed,1

if temp_angle# <= 180 then dec Bot(i).angle,8
   if temp_angle# > 180 then inc Bot(i).angle,8

endif

if Bot(i).speed > Bot(i).maxspeed then Bot(i).speed = Bot(i).maxspeed
if Bot(i).speed < Bot(i).maxspeed * -1 then Bot(i).speed = Bot(i).maxspeed * -1

Bot(i).pos.x = NXV(Bot(i).pos.x,Bot(i).angle,Bot(i).speed)
Bot(i).pos.y = NYV(Bot(i).pos.y,Bot(i).angle,Bot(i).speed)

sprite Bot(i).num,Bot(i).pos.x - Scroll.x,Bot(i).pos.y - Scroll.y,img_Ship1
set sprite Bot(i).num,1,1
size sprite Bot(i).num,Bot(i).size.x,Bot(i).size.y
offset sprite Bot(i).num,sprite width(Bot(i).num) / 2,sprite height(Bot(i).num) / 2
rotate sprite Bot(i).num,Bot(i).angle

next i

return

function Find_Angle(X1,Y1,X2,Y2,angle1)
   x# = (X1 - X2)
   y# = (Y2 - Y1)
   angle# = atanfull(x#,y#)
   d# = abs(angle# - angle1#)
endfunction d#

function Get_Dist(X1,X2,Y1,Y2)
   dist# = sqrt(((X2 - X1) ^ 2) + ((Y2 - Y1) ^ 2))
endfunction dist#

function NXV(cur,angle,dest)
   value# = cur + sin(angle) * dest
endfunction value#

function NYV(cur,angle,dest)
   value# = cur + cos(angle + 180) * dest
endfunction value#

+ Code Snippet

Ship1_Bots_Movement:

for i = 0 to Ship(0).Botsowned - 1

if Bot(i).following = 1

Bot(i).followpoint.x = Ship(0).pos.x
Bot(i).followpoint.y = Ship(0).pos.y

text 5,5,str$(temp_angle#)

if Get_Dist(Bot(i).pos.x,Bot(i).pos.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 16

   temp_angle# = Find_Angle(Bot(i).pos.x,Bot(i).pos.y,Bot(i).followpoint.x,Bot(i).followpoint.y,Bot(i).angle)

   inc Bot(i).speed,1

   if temp_angle# <= 180 then dec Bot(i).angle,8
   if temp_angle# > 180 then inc Bot(i).angle,8

else

   temp_angle# = Find_Angle(Bot(i).pos.x,Bot(i).pos.y,Bot(i).followpoint.x,Bot(i).followpoint.y,Bot(i).angle)

   dec Bot(i).speed,1

   if temp_angle# <= 180 then dec Bot(i).angle,8
   if temp_angle# > 180 then inc Bot(i).angle,8

endif

endif

if Bot(i).speed > Bot(i).maxspeed then Bot(i).speed = Bot(i).maxspeed
if Bot(i).speed < Bot(i).maxspeed * -1 then Bot(i).speed = Bot(i).maxspeed * -1

Bot(i).pos.x = NXV(Bot(i).pos.x,Bot(i).angle,Bot(i).speed)
Bot(i).pos.y = NYV(Bot(i).pos.y,Bot(i).angle,Bot(i).speed)

sprite Bot(i).num,Bot(i).pos.x - Scroll.x,Bot(i).pos.y - Scroll.y,img_Ship1
set sprite Bot(i).num,1,1
size sprite Bot(i).num,Bot(i).size.x,Bot(i).size.y
offset sprite Bot(i).num,sprite width(Bot(i).num) / 2,sprite height(Bot(i).num) / 2
rotate sprite Bot(i).num,Bot(i).angle

next i

return

function Find_Angle(X1,Y1,X2,Y2,angle1)
   x# = (X1 - X2)
   y# = (Y2 - Y1)
   angle# = atanfull(x#,y#)
   d# = abs(angle# - angle1#)
endfunction d#

function Get_Dist(X1,X2,Y1,Y2)
   dist# = sqrt(((X2 - X1) ^ 2) + ((Y2 - Y1) ^ 2))
endfunction dist#

function NXV(cur,angle,dest)
   value# = cur + sin(angle) * dest
endfunction value#

function NYV(cur,angle,dest)
   value# = cur + cos(angle + 180) * dest
endfunction value#

I tried and it didn't work. I even tried to change the find angle function to...

+ Code Snippet

function Find_Angle(x1,x2,y1,y2,angle1)
x# = (x1 - y1)
y# = (x2 - y2)

tangle# = sin(x#)/cos(y#)
angle# = abs(tangle# - angle1#)
endfunction angle#

that didn't workd either. I would apriciated if any one has any ideas of what's wrong. If you were to run the downloaded code, you can see that the tiny blue bots just fly around in circles that get larger every time. And you can see the return value of the Find_Angle() function in the upper-left corner...well, sort of. the number does change with every bot in the for next loop, but hopefully someone can help.

Oh...And if it's the way I'm making the bots move and turn, then someone please notify me and give me some tips on how to make it better...

Thanks,

MickeyIII

Back to top

Profile PM Email Website

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 18th Feb 2007 21:45

Link

This is how I check the difference between angles:

angdif#=wrapvalue(ang1#-ang2#) : if angdif#>180 then dec angdif#,360

That would set angdif# to the difference, which you can add to the bots angle to make them rotate towards the target.

Good guy, Good guy, Wan...

Back to top

Profile PM Email

MickeyIII

19

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 19th Feb 2007 03:49

Link

Thanks Van B, but that didn't work.

It's most likely the way I adjust my bot's angles using the inc and dec commands...Either I should slow down their speed or their angle increment and decrement...still not sure though. I would still apriciate more help...unless I need a better book than the "DARKBASIC PRO GAME PROGRAMING SECOND EDITION"...That's how I refreshed my memory about the tangent = sine divided by cosine. It's a good book for people like me,but it would be nice to get some more knowledge for Artificial Inteligence. That's why I just make games that don't need any like Breakout or Astroids. Only I like to add more to them to make them more interesting and original.

Help would be greatly apriciated...

Mickey III

Back to top

Profile PM Email Website

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 19th Feb 2007 08:51

Link

To limit the rotation, maybe to 5 degrees per loop:

angdif#=wrapvalue(ang1#-ang2#) : if angdif#>180 then dec angdif#,360
if angdif#>5.0 then angdif#=5.0
if angdif#<-5.0 then angdif#=-5.0

I just used this technique for lots of different AI and functions, like having enemies form chains like in snake, having enemies head towards the player when within range, magnetic points that enemies head towards... If I have time later I'll take a look at your full source code, might be able to fix it for you.

Good guy, Good guy, Wan...

Back to top

Profile PM Email

MickeyIII

19

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 19th Feb 2007 16:09

Link

Ok thanks, I'll keep working on another game until I can get some more replies on this. I didn't know this would go this far...

Mickey III

Back to top

Profile PM Email Website

MickeyIII

19

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 1st Mar 2007 00:06

Link

Hey

I still can't figure this out and I've pretty much completed the Atomic Blox Game...Except for trying to make the high score table(Some ideas would be nice.)

If I could get some more replies, it would be really nice. I plan on making this game an Action\Shooter\RTS game, but for now, I'd like to get this angle thing down. Not to mention a REAL loading Bar and some Splash Screens...

Thanks in Advance,
MickeyIII

Back to top

Profile PM Email Website

MickeyIII

19

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 1st Mar 2007 00:37

Link

hey

heres that Atomic Blox game that I was talking about W/O the high score table...

MickeyIII

Back to top

Profile PM Email Website

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 1st Mar 2007 15:39

Link

With high score tables, I usually make a boolean sort routine, like:

For n=0 to 10
For nn=n to 10

If value(n)>value(nn)
tempvalue=value(n)
value(n)=value(nn)
value(nn)>tempvalue
endif

next nn
next n

That would sort the array 'Value' with 11 indices, so that the lowest value is in indice 10.

After the sort, just compare the player score with the value in indice 10, if it's more, then get the name, and replace the values.

This is quite a psuedo example, but it's pretty much the easiest way to do it. I'd start by making an array, say one for the name, and one for the score, then sort and swap until your lowest value is the last item in the array.

To save your array, well it can get tricky unless you opt for a pure string highscore table array, which would let you SAVE ARRAY the whole lot easily. Like Score$(10,1), where the Y component is 0 for the name, 1 for the score - the score is converted to a string before setting it to the array. Remember you can use boolean on text as well, like...

IF "eggs" > "bacon"

So sorting on a string is nice and easy (and quick).

Good guy, Good guy, Wan...

Back to top

Profile PM Email

Thc03

22

Years of Service

User Offline

Joined: 19th May 2004

Location: Pavia - Italy

Posted: 1st Mar 2007 16:23

Link

It's like you're looking at this using the wrong perspective.
You're basicly trying to rotate your bots and make them go forward until the next node, but this heavily depends on theyr traveling speed.
If you try to look at this like you would do finding your way on a cartography, you would notice the path you're going to follow can be traced using lines, smoothed or not.
Now, if you're going to smooth curves, your drawing will be like splines. Otherwise, you should go using straight lines, like in this

+ Code Snippet

function drawLine(x1 as float, y1 as float, x2 as float, y2 as float)
   xRoad as float
   xStep as float
   xDir as float
   xNow as float
   yRoad as float
   yStep as float
   yDir as float
   yNow as float
   gStep as float
   nStep as float

   xRoad = abs(x1 - x2)
   yRoad = abs(y1 - y2)
   gStep = xRoad + yRoad
   xStep = xRoad / gStep
   yStep = yRoad / gStep
   xDir = (x1 < x2) - (x1 > x2)
   yDir = (y1 < y2) - (y1 > y2)
   while int(abs(nStep * (xStep + yStep))) <= int(gStep)
      dot int(xNow), int(yNow)
      nStep = nStep + 1
      xNow = nStep * xStep * xDir + x1
      yNow = nStep * yStep * yDir + y1
   endwhile
endfunction

.
.

Bye, Berserk.
.

Back to top

Profile PM Email Website

MickeyIII

19

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 3rd Mar 2007 20:39

Link

Thanks for the high score table tip Van B. I will Impliment it when I understand how to Find the Angle, which by the way, Thc03, I'm not quite sure I follow your explanation and code. And I don't see a return value unless there are Globals involved. Please explain further...

Thanks

MickeyIII

Back to top

Profile PM Email Website

Thc03

22

Years of Service

User Offline

Joined: 19th May 2004

Location: Pavia - Italy

Posted: 4th Mar 2007 11:32

Link

Try putting that code snippet in a blank source file and fill it with

+ Code Snippet

set display mode 640, 480, 32
set window on
sync on
hide mouse

drawLine(10, 10, 600, 200)
rem or whatever values you'd like to try here

do
   sync
loop

Basicly, it's a method you could also use for drawing path lines (where linear - non smoothed - paths are used) change 10, 10 with your bot x and y, 600, 200 with your bot destination x and y, and make the dot line transforming your bot's coordinates and you're almost done.
Bot orientation can be done with trig functions on difference between start and finish point, so you can use atanfull (I think that is the trig function you need) with xRoad and yRoad values (maybe you'll need to create another xRoad and yRoad wich are not using abs() - but don't remove abs() from the x and y Road variables, as the lines would not draw correctly).
.

Bye, Berserk.
.

Back to top

Profile PM Email Website

Thc03

22

Years of Service

User Offline

Joined: 19th May 2004

Location: Pavia - Italy

Posted: 4th Mar 2007 13:12

Link

Look, try this

set display mode 640, 480, 32
set window off
hide mouse
sync on

qx as integer
px as integer
oldpx as integer

qy as integer
py as integer
oldpy as integer

debug as integer

px = 2
qx = 2
oldpx = p

py = 2
qy = 2
oldpy = p

debug = 1

do
   cls
   gosub draw
   gosub xQuantize
   gosub yQuantize
   sync
loop

draw:
   ink RGB(175,191,207), RGB(0,0,0)
   drawGrid(qx, qy)
   ink RGB(255,0,0), RGB(0,0,0)
   drawLine(0, 0, 640, 480, qx, qy)
   if (debug) = 1
      ink rgb(255,255,255), rgb(0,0,0)
      text 0, 0, str$(qx) + " " + str$(qy)
   endif
return

xQuantize:
   oldpx = px
   px = px + (upkey() - downkey())
   if (px < 2) then px = 2
   if oldpx <> px
      qx = power(2, px)
      oldpx = px
   endif
return

yQuantize:
   oldpy = py
   py = py + (rightkey() - leftkey())
   if (py < 2) then py = 2
   if oldpy <> py
      qy = power(2, py)
      oldpy = py
   endif
return

function power(base as integer, exponent as integer)
   number as integer
   number = 1

for a = 1 to exponent
      number = number * base
   next a
   wait 50
endfunction number

function drawLine(x1 as float, y1 as float, x2 as float, y2 as float, xQuant as integer, yQuant as integer)
   xRoad as float
   xStep as float
   xDir as float
   xNow as float
   yRoad as float
   yStep as float
   yDir as float
   yNow as float
   gStep as float
   nStep as float

xRoad = abs(x1 - x2)
   yRoad = abs(y1 - y2)
   gStep = xRoad + yRoad
   xStep = xRoad / gStep
   yStep = yRoad / gStep
   xDir = (x1 < x2) - (x1 > x2)
   yDir = (y1 < y2) - (y1 > y2)
   while int(abs(nStep * (xStep + yStep))) <= int(gStep)
      if (((xNow) = 0) or (int(xNow mod xQuant) = 0)) or (((yNow) = 0) or (int(yNow mod yQuant) = 0))
         circle int(xNow), int(yNow), xQuant / (xQuant / 2)
         rem there's no need to use both x and y quant values, as whatever they are,
         rem dividing each by it's own half always results 2
      else
         dot int(xNow), int(yNow)
      endif
      nStep = nStep + 1
      xNow = nStep * xStep * xDir + x1
      yNow = nStep * yStep * yDir + y1
   endwhile
endfunction

function drawGrid(bx as integer, by as integer)
   for y = 0 to 480 step by
      line 0, y, 640, y
   next y
   for x = 0 to 640 step bx
      line x, 0, x, 480
   next x
endfunction

+ Code Snippet

set display mode 640, 480, 32
set window off
hide mouse
sync on

qx as integer
px as integer
oldpx as integer

qy as integer
py as integer
oldpy as integer

debug as integer

px = 2
qx = 2
oldpx = p

py = 2
qy = 2
oldpy = p

debug = 1

do
   cls
   gosub draw
   gosub xQuantize
   gosub yQuantize
   sync
loop

draw:
   ink RGB(175,191,207), RGB(0,0,0)
   drawGrid(qx, qy)
   ink RGB(255,0,0), RGB(0,0,0)
   drawLine(0, 0, 640, 480, qx, qy)
   if (debug) = 1
      ink rgb(255,255,255), rgb(0,0,0)
      text 0, 0, str$(qx) + " " + str$(qy)
   endif
return

xQuantize:
   oldpx = px
   px = px + (upkey() - downkey())
   if (px < 2) then px = 2
   if oldpx <> px
      qx = power(2, px)
      oldpx = px
   endif
return

yQuantize:
   oldpy = py
   py = py + (rightkey() - leftkey())
   if (py < 2) then py = 2
   if oldpy <> py
      qy = power(2, py)
      oldpy = py
   endif
return

function power(base as integer, exponent as integer)
   number as integer
   number = 1

   for a = 1 to exponent
      number = number * base
   next a
   wait 50
endfunction number

function drawLine(x1 as float, y1 as float, x2 as float, y2 as float, xQuant as integer, yQuant as integer)
   xRoad as float
   xStep as float
   xDir as float
   xNow as float
   yRoad as float
   yStep as float
   yDir as float
   yNow as float
   gStep as float
   nStep as float

   xRoad = abs(x1 - x2)
   yRoad = abs(y1 - y2)
   gStep = xRoad + yRoad
   xStep = xRoad / gStep
   yStep = yRoad / gStep
   xDir = (x1 < x2) - (x1 > x2)
   yDir = (y1 < y2) - (y1 > y2)
   while int(abs(nStep * (xStep + yStep))) <= int(gStep)
      if (((xNow) = 0) or (int(xNow mod xQuant) = 0)) or (((yNow) = 0) or (int(yNow mod yQuant) = 0))
         circle int(xNow), int(yNow), xQuant / (xQuant / 2)
         rem there's no need to use both x and y quant values, as whatever they are,
         rem dividing each by it's own half always results 2
      else
         dot int(xNow), int(yNow)
      endif
      nStep = nStep + 1
      xNow = nStep * xStep * xDir + x1
      yNow = nStep * yStep * yDir + y1
   endwhile
endfunction

function drawGrid(bx as integer, by as integer)
   for y = 0 to 480 step by
      line 0, y, 640, y
   next y
   for x = 0 to 640 step bx
      line x, 0, x, 480
   next x
endfunction

instead of the previous one.
Where line turns in circles, those are good points for defining orientation values and aStar path nodes.
Use whatever grid-snapping you like, using up and down cursor keys to define X tile size, and left and right cursors to define Y tile size.
Adding lines will result in a pathway sketch-up, but still implementing this into your code is up to you.
.

Bye, Berserk.
.

Back to top

Profile PM Email Website

MickeyIII

19

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 4th Mar 2007 18:44

Link

Thc03

I'm not sure that's really what I need for my, game. The atanfull function is really what I'm looking for, and I managed to figure out somewhat of what was wrong with my code. In the followpoint.x
and followpoint.y variables, I forgot to put in the Scroll.x and Scroll.y Values. Now they follow I think, but they keep straying off after a while...I've also added code so that when the bots start getting closer, they slow down until they are too close to move...Here's the updated code in the code snippet...

Rem Project: Tactical Space Combat
Rem Created: 8/8/06 4:13:45 PM

Rem ***** Main Source File *****
sync on:sync rate 0
set display mode 1024,768,32
backdrop off:randomize timer()
set image colorkey 0,0,0

Intro:

cls

load = timer() + 5000

l = (1024 / 2) - 200

repeat
cls

Title(1024 / 2,768 / 2,"Tactical Space Combat")

box (1024 / 2) - 200,600,(1024 / 2) + 200,632,rgb(0,255,0),rgb(0,100,0),rgb(0,255,0),rgb(0,100,0)

l = l + 9
if l > (1024 / 2) + (200 - 32)
   l = (1024 / 2) - 200
endif

box l,600,l + 32,632,rgb(255,0,255),rgb(100,0,100),rgb(255,0,255),rgb(100,0,100)

sync
until timer() > load

MainMenu:

cls

do
cls

Title(1024 / 2,100,"Tactical Space Combat")

if Button("Arcade",(1024 / 2) - (text width("Arcade") / 2),200) = 1 then wait 500:goto Arcade
if Button("Exit",800,600) = 1 then end

sync
loop

Arcade:

cls

img_Ship1 = 1
img_Ship2 = 2
img_Bullet1 = 3
img_Bullet2 = 4
load image "Images\Ship_01.bmp",img_Ship1
load image "Images\Ship_03.bmp",img_Ship2
load image "Images\Bullet1.bmp",img_Bullet1
load image "Images\Bullet2.bmp",img_Bullet2

img_Star = 5
img_Smoke = 6
load image "Images\Bullet4.bmp",img_Star
load image "Images\Smoke.bmp",img_Smoke

type vector2
   x as integer
   y as integer
endtype

type rect
   top as integer
   left as integer
   right as integer
   bottom as integer
endtype

type Ship
   num as integer
   pos as vector2
   pos2 as vector2
   size as vector2
   angle as integer
   ammo as integer
   maxammo as integer
   sheilds as integer
   armor as integer
   speed as integer
   maxspeed as integer
   botsowned as integer
   lastshot as integer
   score as integer
endtype

dim Ship(1) as Ship

type Bots
   num as integer
   pos as vector2
   pos2 as vector2
   size as vector2
   angle as integer
   ammo as integer
   maxammo as integer
   sheilds as integer
   armor as integer
   speed as integer
   maxspeed as integer
   following as integer
   followpoint as vector2
   fleeing as integer
   fleeingpoint as vector2
   swarming as integer
   swarmingpoint as vector2
   swarmingarea as rect
   lastshot as integer
   owned as integer
endtype

dim Bot(199) as Bots

type BulletsU1
   num as vector2
   pos as vector2
   pos2 as vector2
   size as vector2
   angle as integer
   life as integer
   mindammage as integer
   maxdammage as integer
endtype

dim Bullet1(1,39) as BulletsU1

type TExplode
   pos as vector2
   pos2 as vector2
   size as vector2
   size2 as rect
   life as integer
endtype

dim Explode(999,19) as TExplode

type TTrail
   pos as vector2
   pos2 as vector2
   size as vector2
   size2 as rect
   life as integer
endtype

dim Trail(999,19) as TTrail

Scroll as vector2
Scroll.x = 100
Scroll.y = 9900

Ship(0).pos.x = 100
Ship(0).pos.y = 9900
Ship(0).Size.x = 32
Ship(0).Size.y = 32
Ship(0).Angle = 0
Ship(0).Ammo = 1500
Ship(0).maxammo = 2000
Ship(0).Sheilds = 800
Ship(0).Armor = 80
Ship(0).speed = 0
Ship(0).maxspeed = 24
Ship(0).botsowned = 5
Ship(0).lastshot = 0

Ship(1).pos.x = 9900
Ship(1).pos.y = 100
Ship(1).Size.x = 32
Ship(1).Size.y = 32
Ship(1).Angle = 180
Ship(1).Ammo = 1500
Ship(1).maxammo = 2000
Ship(1).Sheilds = 800
Ship(1).Armor = 80
Ship(1).speed = 0
Ship(1).maxspeed = 24
Ship(1).botsowned = 5
Ship(1).lastshot = 0

ii = 100
for i = 0 to 99
   inc ii,1
   if i < 5
      Bot(i).num = ii
      Bot(i).owned = 0
   endif
   if i > 4
      Bot(i).num = ii
      Bot(i).owned = -1
   endif
next i

for i = 100 to 199
   inc ii,1
   if i < 105
      Bot(i).num = ii
      Bot(i).owned = 1
   endif
   if i > 104
      Bot(i).num = ii
      Bot(i).owned = -1
   endif
next i

for i = 0 to 4
   Bot(i).pos.x = 100 + rnd(100)
   Bot(i).pos.y = 9900 - rnd(100)
   Bot(i).Size.x = 4
   Bot(i).Size.y = 4
   Bot(i).Ammo = 750
   Bot(i).maxammo = 800
   Bot(i).Sheilds = 200
   Bot(i).Armor = 60
   Bot(i).speed = 0
   Bot(i).maxspeed = 32
   Bot(i).lastshot = 0
   Bot(i).owned = 0
   Bot(i).following = 1
next i

for i = 100 to 104
   Bot(i).pos.x = 9900 - rnd(100)
   Bot(i).pos.y = 100 + rnd(100)
   Bot(i).Size.x = 4
   Bot(i).Size.y = 4
   Bot(i).Angle = 180
   Bot(i).Ammo = 750
   Bot(i).maxammo = 800
   Bot(i).Sheilds = 200
   Bot(i).Armor = 60
   Bot(i).speed = 0
   Bot(i).maxspeed = 32
   Bot(i).lastshot = 0
   Bot(i).owned = 1
   Bot(i).following = 2
next i

Ship(0).num = 1
Ship(1).num = 2

type stars
   pos as vector2
   size as vector2
   angle as integer
endtype

dim star(999) as stars

cls

for i = 0 to 999
   star(i).pos.x = rnd(12000)
   star(i).pos.y = rnd(12000)
   star(i).size.x = rnd(31) + 1
   star(i).size.y = rnd(31) + 1
   star(i).angle = rnd(359)
next i

for i = 0 to 999
   if sprite exist(i + 3000) = 1 then delete sprite i + 3000
next i

do
cls

gosub Draw_Stars
gosub Ship1_Movement
gosub Ship1_Bullets
gosub Ship1_Bots_Movement

sync
loop

Draw_Stars:

for i = 0 to 499
   sprite i + 1000,star(i).pos.x - Scroll.x,star(i).pos.y - Scroll.y,img_Bullet1
   set sprite i + 1000,1,1
   size sprite i + 1000,star(i).size.x,star(i).size.y
   offset sprite i + 1000,sprite width(i + 1000) / 2,sprite height(i + 1000) / 2
   rotate sprite i + 1000,star(i).angle
next i

for i = 500 to 999
   sprite i + 1000,star(i).pos.x - Scroll.x,star(i).pos.y - Scroll.y,img_Bullet2
   set sprite i + 1000,1,1
   size sprite i + 1000,star(i).size.x,star(i).size.y
   offset sprite i + 1000,sprite width(i + 1000) / 2,sprite height(i + 1000) / 2
   rotate sprite i + 1000,star(i).angle
next i

return

Ship1_Movement:

if keystate(17) = 1 and Ship(0).speed <= Ship(0).maxspeed
   inc Ship(0).speed,1
endif
if keystate(31) = 1 and Ship(0).speed => (Ship(0).maxspeed * -1)
   dec Ship(0).speed,1
endif

if keystate(48) = 1 and Ship(0).speed <> 0
   if Ship(0).speed > 0 then dec Ship(0).speed,8
   if Ship(0).speed < 0 then inc Ship(0).speed,8
endif

Ship(0).pos.x = NXV(Ship(0).pos.x,Ship(0).angle,Ship(0).speed)
Ship(0).pos.y = NYV(Ship(0).pos.y,Ship(0).angle,Ship(0).speed)

if Ship(0).pos.x - Scroll.x < 250 then dec Scroll.x,Ship(0).maxspeed
if Ship(0).pos.x - Scroll.x > 1024 - 250 then inc Scroll.x,Ship(0).maxspeed
if Ship(0).pos.y - Scroll.y < 250 then dec Scroll.y,Ship(0).maxspeed
if Ship(0).pos.y - Scroll.y > 768 - 250 then inc Scroll.y,Ship(0).maxspeed

if keystate(30) = 1 then dec Ship(0).angle,8
if keystate(32) = 1 then inc Ship(0).angle,8

sprite Ship(0).num,Ship(0).pos.x - Scroll.x,Ship(0).pos.y - Scroll.y,img_Ship1
set sprite 1,1,1
size sprite Ship(0).num,Ship(0).size.x,Ship(0).size.y
offset sprite 1,sprite width(1) / 2,sprite height(1) / 2
rotate sprite 1,Ship(0).angle

return

Ship1_Bullets:

for i = 0 to 39

Bullet1(0,i).Size.x = Ship(0).Size.x / 2
Bullet1(0,i).Size.y = Ship(0).Size.y / 2

if keystate(42) = 0 and Ship(0).ammo <= Ship(0).maxammo
   inc Ship(0).ammo,1
endif

`left_shift
if keystate(42) = 1 and timer() > ls and timer() => Bullet1(0,i).life and Ship(0).ammo > 0
ls = timer() + 80
Bullet1(0,i).pos.x = Ship(0).pos.x
Bullet1(0,i).pos.y = Ship(0).pos.y
Bullet1(0,i).angle = Ship(0).angle
Bullet1(0,i).life = timer() + 80 * 40
dec Ship(0).ammo,1
endif

if timer() < Bullet1(0,i).life
   Bullet1(0,i).pos.x = NXV(Bullet1(0,i).pos.x,Bullet1(0,i).angle,64)
   Bullet1(0,i).pos.y = NYV(Bullet1(0,i).pos.y,Bullet1(0,i).angle,64)
   sprite i + 3000,Bullet1(0,i).pos.x - Scroll.x,Bullet1(0,i).pos.y - Scroll.y,img_Bullet1
   set sprite i + 3000,1,1
   size sprite i + 3000,Bullet1(0,i).Size.x,Bullet1(0,i).Size.y
   offset sprite i + 3000,sprite width(i + 3000) / 2,sprite height(i + 3000) / 2
endif

if timer() => Bullet1(0,i).life
   if sprite exist(i + 3000) = 1 then delete sprite i + 3000
endif

next i

return

Ship1_Bots_Movement:

for i = 0 to Ship(0).Botsowned - 1

if Bot(i).following = 1

Bot(i).followpoint.x = Ship(0).pos.x - Scroll.x
Bot(i).followpoint.y = Ship(0).pos.y - Scroll.y

if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 100

temp_angle# = Find_Angle(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y,Bot(i).angle)

if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 400
   if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) <= 500
      Bot(i).speed = 32
   endif
   endif

if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 300
   if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) <= 400
      Bot(i).speed = 16
   endif
   endif

if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 200
   if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) <= 300
      Bot(i).speed = 8
   endif
   endif

if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 100
   if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) <= 200
      Bot(i).speed = 1
   endif
   endif

if temp_angle# < 0 then dec Bot(i).angle,8
   if temp_angle# > 0 then inc Bot(i).angle,8

endif
if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) < 16

temp_angle# = Find_Angle(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y,Bot(i).angle)

Bot(i).speed = 0

if temp_angle# < 0 then dec Bot(i).angle,8
   if temp_angle# > 0 then inc Bot(i).angle,8

endif

if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 500 then Bot(i).speed = 0

endif

if Bot(i).speed > Bot(i).maxspeed then Bot(i).speed = Bot(i).maxspeed
if Bot(i).speed < Bot(i).maxspeed * -1 then Bot(i).speed = Bot(i).maxspeed * -1

Bot(i).pos.x = NXV(Bot(i).pos.x,Bot(i).angle,Bot(i).speed)
Bot(i).pos.y = NYV(Bot(i).pos.y,Bot(i).angle,Bot(i).speed)

sprite Bot(i).num,Bot(i).pos.x - Scroll.x,Bot(i).pos.y - Scroll.y,img_Ship1
set sprite Bot(i).num,1,1
size sprite Bot(i).num,Bot(i).size.x,Bot(i).size.y
offset sprite Bot(i).num,sprite width(Bot(i).num) / 2,sprite height(Bot(i).num) / 2
rotate sprite Bot(i).num,Bot(i).angle

next i

return

function Find_Angle(X1,Y1,X2,Y2,angle1)
   x# = (X1 - X2)
   y# = (Y2 - Y1)
   angle# = wrapvalue(atanfull(x#,y#))
   d# = int(abs(angle# - wrapvalue(angle1)))
   if d# > 180 then dec d#,360
endfunction d#

function Get_Dist(X1,X2,Y1,Y2)
   dist = int(sqrt(((X2 - X1) ^ 2) + ((Y2 - Y1) ^ 2)))
endfunction dist

function NXV(cur,angle,dest)
   value# = cur + sin(angle) * dest
endfunction value#

function NYV(cur,angle,dest)
   value# = cur + cos(angle + 180) * dest
endfunction value#

function Title(x,y,title$)
   box x - (text width(title$) / 2),y,x + (text width(title$) / 2),y + text height(title$),rgb(0,0,100),rgb(0,0,255),rgb(100,0,0),rgb(255,0,0)
   ink rgb(255,255,255),rgb(0,0,0)
   set text size 72
   text x - (text width(title$) / 2),y,title$
endfunction

function Button(txt$,x,y)

ink rgb(0,255,0),rgb(0,0,0)
   set text size 48
   text x,y,txt$

if mousex() > x and mousex() < x + text width(txt$)
   if mousey() > y and mousey() < y + text height(txt$)
      ink rgb(255,255,255),rgb(0,0,0)
      set text size 25
      text x,y,txt$
      Pressed = mouseclick()
   endif
   endif

endfunction Pressed

function GameTime(BaseTime as integer)
   local TimeValue as integer
   local TextTime as string

TimeValue=abs( timer() - BaseTime )

` Centi-Seconds
   TimeValue = TimeValue / 10
   TextTime=PadNumber( TimeValue mod 100 , 2)

` Seconds
   TimeValue = TimeValue / 100
   TextTime=PadNumber( TimeValue mod 60, 2) + ":" + TextTime

` Minutes
   TimeValue = TimeValue / 60
   TextTime=PadNumber( TimeValue mod 60, 2) + ":" + TextTime

` Hours
   TimeValue = TimeValue / 60
   TextTime=PadNumber( TimeValue mod 60, 2) + ":" + TextTime

endfunction TextTime

function PadNumber(n as integer, Size as integer)
   local PaddedNumber as string

PaddedNumber=str$(n)
   while len(PaddedNumber) < Size
      PaddedNumber = "0" + PaddedNumber
   endwhile
endfunction PaddedNumber

+ Code Snippet

Rem Project: Tactical Space Combat
Rem Created: 8/8/06 4:13:45 PM

Rem ***** Main Source File *****
sync on:sync rate 0
set display mode 1024,768,32
backdrop off:randomize timer()
set image colorkey 0,0,0

Intro:

cls

load = timer() + 5000

l = (1024 / 2) - 200

repeat
cls

Title(1024 / 2,768 / 2,"Tactical Space Combat")

box (1024 / 2) - 200,600,(1024 / 2) + 200,632,rgb(0,255,0),rgb(0,100,0),rgb(0,255,0),rgb(0,100,0)

l = l + 9
if l > (1024 / 2) + (200 - 32)
   l = (1024 / 2) - 200
endif

box l,600,l + 32,632,rgb(255,0,255),rgb(100,0,100),rgb(255,0,255),rgb(100,0,100)

sync
until timer() > load

MainMenu:

cls

do
cls

Title(1024 / 2,100,"Tactical Space Combat")

if Button("Arcade",(1024 / 2) - (text width("Arcade") / 2),200) = 1 then wait 500:goto Arcade
if Button("Exit",800,600) = 1 then end

sync
loop

Arcade:

cls

img_Ship1 = 1
img_Ship2 = 2
img_Bullet1 = 3
img_Bullet2 = 4
load image "Images\Ship_01.bmp",img_Ship1
load image "Images\Ship_03.bmp",img_Ship2
load image "Images\Bullet1.bmp",img_Bullet1
load image "Images\Bullet2.bmp",img_Bullet2

img_Star = 5
img_Smoke = 6
load image "Images\Bullet4.bmp",img_Star
load image "Images\Smoke.bmp",img_Smoke

type vector2
   x as integer
   y as integer
endtype

type rect
   top as integer
   left as integer
   right as integer
   bottom as integer
endtype

type Ship
   num as integer
   pos as vector2
   pos2 as vector2
   size as vector2
   angle as integer
   ammo as integer
   maxammo as integer
   sheilds as integer
   armor as integer
   speed as integer
   maxspeed as integer
   botsowned as integer
   lastshot as integer
   score as integer
endtype

dim Ship(1) as Ship

type Bots
   num as integer
   pos as vector2
   pos2 as vector2
   size as vector2
   angle as integer
   ammo as integer
   maxammo as integer
   sheilds as integer
   armor as integer
   speed as integer
   maxspeed as integer
   following as integer
   followpoint as vector2
   fleeing as integer
   fleeingpoint as vector2
   swarming as integer
   swarmingpoint as vector2
   swarmingarea as rect
   lastshot as integer
   owned as integer
endtype

dim Bot(199) as Bots

type BulletsU1
   num as vector2
   pos as vector2
   pos2 as vector2
   size as vector2
   angle as integer
   life as integer
   mindammage as integer
   maxdammage as integer
endtype

dim Bullet1(1,39) as BulletsU1

type TExplode
   pos as vector2
   pos2 as vector2
   size as vector2
   size2 as rect
   life as integer
endtype

dim Explode(999,19) as TExplode

type TTrail
   pos as vector2
   pos2 as vector2
   size as vector2
   size2 as rect
   life as integer
endtype

dim Trail(999,19) as TTrail

Scroll as vector2
Scroll.x = 100
Scroll.y = 9900

Ship(0).pos.x = 100
Ship(0).pos.y = 9900
Ship(0).Size.x = 32
Ship(0).Size.y = 32
Ship(0).Angle = 0
Ship(0).Ammo = 1500
Ship(0).maxammo = 2000
Ship(0).Sheilds = 800
Ship(0).Armor = 80
Ship(0).speed = 0
Ship(0).maxspeed = 24
Ship(0).botsowned = 5
Ship(0).lastshot = 0

Ship(1).pos.x = 9900
Ship(1).pos.y = 100
Ship(1).Size.x = 32
Ship(1).Size.y = 32
Ship(1).Angle = 180
Ship(1).Ammo = 1500
Ship(1).maxammo = 2000
Ship(1).Sheilds = 800
Ship(1).Armor = 80
Ship(1).speed = 0
Ship(1).maxspeed = 24
Ship(1).botsowned = 5
Ship(1).lastshot = 0

ii = 100
for i = 0 to 99
   inc ii,1
   if i < 5
      Bot(i).num = ii
      Bot(i).owned = 0
   endif
   if i > 4
      Bot(i).num = ii
      Bot(i).owned = -1
   endif
next i

for i = 100 to 199
   inc ii,1
   if i < 105
      Bot(i).num = ii
      Bot(i).owned = 1
   endif
   if i > 104
      Bot(i).num = ii
      Bot(i).owned = -1
   endif
next i

for i = 0 to 4
   Bot(i).pos.x = 100 + rnd(100)
   Bot(i).pos.y = 9900 - rnd(100)
   Bot(i).Size.x = 4
   Bot(i).Size.y = 4
   Bot(i).Ammo = 750
   Bot(i).maxammo = 800
   Bot(i).Sheilds = 200
   Bot(i).Armor = 60
   Bot(i).speed = 0
   Bot(i).maxspeed = 32
   Bot(i).lastshot = 0
   Bot(i).owned = 0
   Bot(i).following = 1
next i

for i = 100 to 104
   Bot(i).pos.x = 9900 - rnd(100)
   Bot(i).pos.y = 100 + rnd(100)
   Bot(i).Size.x = 4
   Bot(i).Size.y = 4
   Bot(i).Angle = 180
   Bot(i).Ammo = 750
   Bot(i).maxammo = 800
   Bot(i).Sheilds = 200
   Bot(i).Armor = 60
   Bot(i).speed = 0
   Bot(i).maxspeed = 32
   Bot(i).lastshot = 0
   Bot(i).owned = 1
   Bot(i).following = 2
next i

Ship(0).num = 1
Ship(1).num = 2

type stars
   pos as vector2
   size as vector2
   angle as integer
endtype

dim star(999) as stars

cls

for i = 0 to 999
   star(i).pos.x = rnd(12000)
   star(i).pos.y = rnd(12000)
   star(i).size.x = rnd(31) + 1
   star(i).size.y = rnd(31) + 1
   star(i).angle = rnd(359)
next i

for i = 0 to 999
   if sprite exist(i + 3000) = 1 then delete sprite i + 3000
next i

do
cls

gosub Draw_Stars
gosub Ship1_Movement
gosub Ship1_Bullets
gosub Ship1_Bots_Movement

sync
loop

Draw_Stars:

for i = 0 to 499
   sprite i + 1000,star(i).pos.x - Scroll.x,star(i).pos.y - Scroll.y,img_Bullet1
   set sprite i + 1000,1,1
   size sprite i + 1000,star(i).size.x,star(i).size.y
   offset sprite i + 1000,sprite width(i + 1000) / 2,sprite height(i + 1000) / 2
   rotate sprite i + 1000,star(i).angle
next i

for i = 500 to 999
   sprite i + 1000,star(i).pos.x - Scroll.x,star(i).pos.y - Scroll.y,img_Bullet2
   set sprite i + 1000,1,1
   size sprite i + 1000,star(i).size.x,star(i).size.y
   offset sprite i + 1000,sprite width(i + 1000) / 2,sprite height(i + 1000) / 2
   rotate sprite i + 1000,star(i).angle
next i

return

Ship1_Movement:

if keystate(17) = 1 and Ship(0).speed <= Ship(0).maxspeed
   inc Ship(0).speed,1
endif
if keystate(31) = 1 and Ship(0).speed => (Ship(0).maxspeed * -1)
   dec Ship(0).speed,1
endif

if keystate(48) = 1 and Ship(0).speed <> 0
   if Ship(0).speed > 0 then dec Ship(0).speed,8
   if Ship(0).speed < 0 then inc Ship(0).speed,8
endif

Ship(0).pos.x = NXV(Ship(0).pos.x,Ship(0).angle,Ship(0).speed)
Ship(0).pos.y = NYV(Ship(0).pos.y,Ship(0).angle,Ship(0).speed)

if Ship(0).pos.x - Scroll.x < 250 then dec Scroll.x,Ship(0).maxspeed
if Ship(0).pos.x - Scroll.x > 1024 - 250 then inc Scroll.x,Ship(0).maxspeed
if Ship(0).pos.y - Scroll.y < 250 then dec Scroll.y,Ship(0).maxspeed
if Ship(0).pos.y - Scroll.y > 768 - 250 then inc Scroll.y,Ship(0).maxspeed

if keystate(30) = 1 then dec Ship(0).angle,8
if keystate(32) = 1 then inc Ship(0).angle,8

sprite Ship(0).num,Ship(0).pos.x - Scroll.x,Ship(0).pos.y - Scroll.y,img_Ship1
set sprite 1,1,1
size sprite Ship(0).num,Ship(0).size.x,Ship(0).size.y
offset sprite 1,sprite width(1) / 2,sprite height(1) / 2
rotate sprite 1,Ship(0).angle

return

Ship1_Bullets:

for i = 0 to 39

Bullet1(0,i).Size.x = Ship(0).Size.x / 2
Bullet1(0,i).Size.y = Ship(0).Size.y / 2

if keystate(42) = 0 and Ship(0).ammo <= Ship(0).maxammo
   inc Ship(0).ammo,1
endif

`left_shift
if keystate(42) = 1 and timer() > ls and timer() => Bullet1(0,i).life and Ship(0).ammo > 0
ls = timer() + 80
Bullet1(0,i).pos.x = Ship(0).pos.x
Bullet1(0,i).pos.y = Ship(0).pos.y
Bullet1(0,i).angle = Ship(0).angle
Bullet1(0,i).life = timer() + 80 * 40
dec Ship(0).ammo,1
endif

if timer() < Bullet1(0,i).life
   Bullet1(0,i).pos.x = NXV(Bullet1(0,i).pos.x,Bullet1(0,i).angle,64)
   Bullet1(0,i).pos.y = NYV(Bullet1(0,i).pos.y,Bullet1(0,i).angle,64)
   sprite i + 3000,Bullet1(0,i).pos.x - Scroll.x,Bullet1(0,i).pos.y - Scroll.y,img_Bullet1
   set sprite i + 3000,1,1
   size sprite i + 3000,Bullet1(0,i).Size.x,Bullet1(0,i).Size.y
   offset sprite i + 3000,sprite width(i + 3000) / 2,sprite height(i + 3000) / 2
endif

if timer() => Bullet1(0,i).life
   if sprite exist(i + 3000) = 1 then delete sprite i + 3000
endif

next i

return

Ship1_Bots_Movement:

for i = 0 to Ship(0).Botsowned - 1

if Bot(i).following = 1

Bot(i).followpoint.x = Ship(0).pos.x - Scroll.x
Bot(i).followpoint.y = Ship(0).pos.y - Scroll.y

if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 100

   temp_angle# = Find_Angle(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y,Bot(i).angle)

   if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 400
   if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) <= 500
      Bot(i).speed = 32
   endif
   endif

   if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 300
   if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) <= 400
      Bot(i).speed = 16
   endif
   endif

   if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 200
   if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) <= 300
      Bot(i).speed = 8
   endif
   endif

   if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 100
   if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) <= 200
      Bot(i).speed = 1
   endif
   endif

   if temp_angle# < 0 then dec Bot(i).angle,8
   if temp_angle# > 0 then inc Bot(i).angle,8

endif
if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) < 16

   temp_angle# = Find_Angle(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y,Bot(i).angle)

   Bot(i).speed = 0

   if temp_angle# < 0 then dec Bot(i).angle,8
   if temp_angle# > 0 then inc Bot(i).angle,8

endif

if Get_Dist(Bot(0).pos.x - Scroll.x,Bot(0).pos.y - Scroll.y,Bot(i).followpoint.x,Bot(i).followpoint.y) > 500 then Bot(i).speed = 0

endif

if Bot(i).speed > Bot(i).maxspeed then Bot(i).speed = Bot(i).maxspeed
if Bot(i).speed < Bot(i).maxspeed * -1 then Bot(i).speed = Bot(i).maxspeed * -1

Bot(i).pos.x = NXV(Bot(i).pos.x,Bot(i).angle,Bot(i).speed)
Bot(i).pos.y = NYV(Bot(i).pos.y,Bot(i).angle,Bot(i).speed)

sprite Bot(i).num,Bot(i).pos.x - Scroll.x,Bot(i).pos.y - Scroll.y,img_Ship1
set sprite Bot(i).num,1,1
size sprite Bot(i).num,Bot(i).size.x,Bot(i).size.y
offset sprite Bot(i).num,sprite width(Bot(i).num) / 2,sprite height(Bot(i).num) / 2
rotate sprite Bot(i).num,Bot(i).angle

next i

return

function Find_Angle(X1,Y1,X2,Y2,angle1)
   x# = (X1 - X2)
   y# = (Y2 - Y1)
   angle# = wrapvalue(atanfull(x#,y#))
   d# = int(abs(angle# - wrapvalue(angle1)))
   if d# > 180 then dec d#,360
endfunction d#

function Get_Dist(X1,X2,Y1,Y2)
   dist = int(sqrt(((X2 - X1) ^ 2) + ((Y2 - Y1) ^ 2)))
endfunction dist

function NXV(cur,angle,dest)
   value# = cur + sin(angle) * dest
endfunction value#

function NYV(cur,angle,dest)
   value# = cur + cos(angle + 180) * dest
endfunction value#

function Title(x,y,title$)
   box x - (text width(title$) / 2),y,x + (text width(title$) / 2),y + text height(title$),rgb(0,0,100),rgb(0,0,255),rgb(100,0,0),rgb(255,0,0)
   ink rgb(255,255,255),rgb(0,0,0)
   set text size 72
   text x - (text width(title$) / 2),y,title$
endfunction

function Button(txt$,x,y)

   ink rgb(0,255,0),rgb(0,0,0)
   set text size 48
   text x,y,txt$

   if mousex() > x and mousex() < x + text width(txt$)
   if mousey() > y and mousey() < y + text height(txt$)
      ink rgb(255,255,255),rgb(0,0,0)
      set text size 25
      text x,y,txt$
      Pressed = mouseclick()
   endif
   endif

endfunction Pressed

function GameTime(BaseTime as integer)
   local TimeValue as integer
   local TextTime as string

   TimeValue=abs( timer() - BaseTime )

   ` Centi-Seconds
   TimeValue = TimeValue / 10
   TextTime=PadNumber( TimeValue mod 100 , 2)

   ` Seconds
   TimeValue = TimeValue / 100
   TextTime=PadNumber( TimeValue mod 60, 2) + ":" + TextTime

   ` Minutes
   TimeValue = TimeValue / 60
   TextTime=PadNumber( TimeValue mod 60, 2) + ":" + TextTime

   ` Hours
   TimeValue = TimeValue / 60
   TextTime=PadNumber( TimeValue mod 60, 2) + ":" + TextTime

endfunction TextTime

function PadNumber(n as integer, Size as integer)
   local PaddedNumber as string

   PaddedNumber=str$(n)
   while len(PaddedNumber) < Size
      PaddedNumber = "0" + PaddedNumber
   endwhile
endfunction PaddedNumber

Thanks

MickeyIII

Back to top

Profile PM Email Website

Thc03

22

Years of Service

User Offline

Joined: 19th May 2004

Location: Pavia - Italy

Posted: 4th Mar 2007 22:04

Link

I don't mind on reading all that code.
Could you substitute models with dummy object for demonstration purposes?
However, the idea behind my code was, drawing a line set, to define a path to make the bot follow it.
Substancially, every time you "snap" with the grid, a new path finding node is created, while the bots will have to follow that path.
However, since you got the problem, glad to know.
.

Bye, Berserk.
.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

2D All the way! / Trying to get my "Bots" to follow behind my ship.

Sorry your browser is not supported!

2D All the way! / Trying to get my &quot;Bots&quot; to follow behind my ship.

2D All the way! / Trying to get my "Bots" to follow behind my ship.