determine which way to rotate object in smallest angle?

Author

Message

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 31st Jan 2011 20:06

Link

I cant find any threads containing knowledge about how to get which way should object be rotated.

lets say i have an object (box) which can move forwards. i have box coordinates:

Rx#=object angle x (ID)
Ry#=object angle y (ID)
Rz#=object angle z (ID)

then i rotate box to target point:

point object ID, Unit(ID).dx, Unit(ID).dy, Unit(ID).dz

get y angle to target:

Ry2#=object angle y (ID)

and rotate object back to its original angle:

rotate object ID, Rx#,Ry#,Rz#

Then i rotate a little and move object:

if Ry#< Ry2#-10
yrotate object ID, Ry#+1
else
if Ry#> Ry2#+10 then yrotate object ID, Ry#-1
endif
move object ID, Unit(ID).Speed

but this doesn't work ok. box starts moving in circles. i tried to fix this with maximum difference of angle:

if Ry#< Ry2#-10 and abs(Ry#-Ry2#)<180
yrotate object ID, Ry#+1
else
if Ry#> Ry2#+10 and abs(Ry#-Ry2#)<180
yrotate object ID, Ry#-1
endif
endif

this works to turn in small angle okey, but when there is big angle (>90*) box don't turn, it just go straight

Any ideas how to fix this, or maybe there is some more efficient way to turn objects? i want to imitate car movement when it can turn in variable angle and while moving forwards and turning come to destination point (atm with no obstacles). later i would use this to travel between waypoints

Back to top

Profile PM Email

Neuro Fuzzy

17

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 31st Jan 2011 20:54

Link

If you like math, then you should check this out:
http://www.neurofuzzydev.com/V/D/43a.htm
Sry, don't have time to write a big post.

There are a lot of ways to do this.

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 1st Feb 2011 04:00

Link

Here's something else you could look at. It really does not have the maths that NeuroFuzzy incorporates, but it will rotate the object reasonably well. Five boxes are created and placed randomly. The 'player' is the white box and the camera follows it from overhead. It will target the five boxes one at a time in the order they are created. It is possible that the player box can go through one of the other five boxes, as it is only collision checking against the target box. Once it reaches the target box, it will be deleted and the player box will go to the next target. Once it reaches the fifth box, it ends. I hope that this will give you something to work with:

Rem Project: Dark Basic Pro Project
Rem Created: Monday, January 31, 2011

Rem ***** Main Source File *****
sync on : sync rate 60
randomize timer()
type UnitData
    ObjNum
    dx, dy, dz as float
endtype
dim Unit(5) as UnitData

for u = 1 to 5
    Unit(u).ObjNum = u
    make object box Unit(u).ObjNum,10,25,10
    r = rnd(200) + 55 : g = rnd(200) + 55 : b = rnd(200) + 55
    color object Unit(u).ObjNum,rgb(r,g,b)
    set object ambience Unit(u).ObjNum,rgb(r,g,b)
    x# = rnd(200) : z# = rnd(200)
    if rnd(100) > 50 then x# = x# * -1
    if rnd(100) < 50 then z# = z# * -1
    position object Unit(u).ObjNum,x#,0.0,z#
    Unit(u).dx = x# : Unit(u).dy = 0.0 : Unit(u).dz = z#
NEXT
global ID, direction, UnitToPointAt : ID = 100 : direction = 0
make object box ID,10,25,10
position object ID,camera position x(),0.0,camera position z()
UnitToPointAt = 1
repeat
    UserInput(UnitToPointAt)
    sync
UNTIL UnitToPointAt = 6
delete object ID
end

function UserInput(UTPA)
    Rx# = object angle x (ID)
    Ry# = object angle y (ID)
    Rz# = object angle z (ID)
    point object ID, Unit(UTPA).dx, Unit(UTPA).dy, Unit(UTPA).dz

Ry2# = object angle y (ID)

rotate object ID, Rx#,Ry#,Rz#

// is the object rotating already?
    if direction = 0
     // no, lets check to see if it is pointed at the object already
        if abs(Ry# - Ry2#) > 10.0 : // difference has to be greater than 10 degrees 
        // calculate whether it would be better rotating CW or CCW
            if Ry# > Ry2# then direction = -2
            if Ry# < Ry2# then direction = 2
            if Ry# < 90 and Ry2# > (Ry# + 180.0) then direction = -2
            if Ry# > 270 and Ry2# > (Ry# - 180.0) then direction = -2
            if Ry# > 270.0 and Ry2# < 360.0 then direction = 2
        endif
    else
        Ry# = wrapvalue(Ry# + direction)
        yrotate object ID,Ry#
        if abs(Ry# - Ry2#) <= 10.0 then direction = 0
    endif
    if object collision(ID,Unit(UTPA).ObjNum) = 1
     // got it!  delete it
        delete object Unit(UTPA).ObjNum
        inc UnitToPointAt  
    endif

move object ID, .8 : `Unit(ID).Speed
    x# = object position x(ID) : y# = object position y(ID) : z# = object position z(ID)
    position camera x#, y# + 50.0, z#
    move camera - 120
    point camera x#,y#,z#
endfunction

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Monday, January 31, 2011

Rem ***** Main Source File *****
sync on : sync rate 60
randomize timer()
type UnitData
    ObjNum
    dx, dy, dz as float
endtype
dim Unit(5) as UnitData

for u = 1 to 5
    Unit(u).ObjNum = u
    make object box Unit(u).ObjNum,10,25,10
    r = rnd(200) + 55 : g = rnd(200) + 55 : b = rnd(200) + 55
    color object Unit(u).ObjNum,rgb(r,g,b)
    set object ambience Unit(u).ObjNum,rgb(r,g,b)
    x# = rnd(200) : z# = rnd(200)
    if rnd(100) > 50 then x# = x# * -1
    if rnd(100) < 50 then z# = z# * -1
    position object Unit(u).ObjNum,x#,0.0,z#
    Unit(u).dx = x# : Unit(u).dy = 0.0 : Unit(u).dz = z#
NEXT
global ID, direction, UnitToPointAt : ID = 100 : direction = 0
make object box ID,10,25,10
position object ID,camera position x(),0.0,camera position z()
UnitToPointAt = 1
repeat
    UserInput(UnitToPointAt)
    sync
UNTIL UnitToPointAt = 6
delete object ID
end

function UserInput(UTPA)
    Rx# = object angle x (ID)
    Ry# = object angle y (ID)
    Rz# = object angle z (ID)
    point object ID, Unit(UTPA).dx, Unit(UTPA).dy, Unit(UTPA).dz

    Ry2# = object angle y (ID)

    rotate object ID, Rx#,Ry#,Rz#

    // is the object rotating already?
    if direction = 0
     // no, lets check to see if it is pointed at the object already
        if abs(Ry# - Ry2#) > 10.0 : // difference has to be greater than 10 degrees 
        // calculate whether it would be better rotating CW or CCW
            if Ry# > Ry2# then direction = -2
            if Ry# < Ry2# then direction = 2
            if Ry# < 90 and Ry2# > (Ry# + 180.0) then direction = -2
            if Ry# > 270 and Ry2# > (Ry# - 180.0) then direction = -2
            if Ry# > 270.0 and Ry2# < 360.0 then direction = 2
        endif
    else
        Ry# = wrapvalue(Ry# + direction)
        yrotate object ID,Ry#
        if abs(Ry# - Ry2#) <= 10.0 then direction = 0
    endif
    if object collision(ID,Unit(UTPA).ObjNum) = 1
     // got it!  delete it
        delete object Unit(UTPA).ObjNum
        inc UnitToPointAt  
    endif

    move object ID, .8 : `Unit(ID).Speed
    x# = object position x(ID) : y# = object position y(ID) : z# = object position z(ID)
    position camera x#, y# + 50.0, z#
    move camera - 120
    point camera x#,y#,z#
endfunction

LB

Back to top

Profile PM Email

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 1st Feb 2011 13:02

Link

LBFN's code works goood, but when i put it into my program...
those *swear-word* boxes just don't move like LBFN's boxes... i don't understand whats wrong

anyway thanks LBFN that is nice try to help. if u read this post once more, i add my program, maybe u can find whats wrong

i will try to read the Neuro Fuzzy's tutorial now- i don't like maths, but there is nothing else to do

Attachments

Login to view attachments

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 1st Feb 2011 15:44

Link

The variable, direction, needed to be global. I tweaked the angle check a little bit and reduced it to 5%. It seems to work now (I clicked on probably 50 different locations and it worked every time). However, it sometimes does spin an unnecessary circle (i.e. more tweaking needed) sometimes.

Rem Project: Terrain

`--- Constants ---

#constant UnitCount 200
#constant VehiclesCount 100
#constant OtherObjectCount 100
#constant FollowDistance 300

`--- Types ---

type Units   `u can add more stats in here, atm for program work need only "target" variable

hp as integer
dmg as integer
MaxSpeed as float  
Speed as float
traction as float
RotationSpeed as float
MoveTarget as integer `Object to be followed
Target as integer  `object number which was right clicked, while this object was set to "active"
IsMoving as float  `what speed is moving
IsFollowing as float `what speed is following
Dx as float    `destination coordinates
Dy as float
Dz as float
endtype

`--- Arrays ---

dim Unit(UnitCount) as units `array of all your controlable objects (units, soldiers, robots or whatever u use in game

`--- Variables ---

global activeID, direction as integer    `selected object number
global AngleDiff# as float
`----------------------------------------------------------------------------------------------------------------------------------
`--- Program start ---
`----------------------------------------------------------------------------------------------------------------------------------

Setup()   `program setup
TerrainSetup()   `make and set up terrain
LoadMenuPanel()
MakeBoxes()   `make random objects for selection (just for testing, remove later)
MakeSelectionIndicator()   `make object to be shown above selected objects

`----------------------------------------------------------------------------------------------------------------------------------
`--- Main Loop ---
`----------------------------------------------------------------------------------------------------------------------------------

do

MoveCamera()  `camera movement
  if mouseclick()= 1 then activeID= SelectObjects()  `left mouse click: select object
  SelectionIndicator(activeID)   `place indicator over selected object (can load your own object like sword, target sign and etc.)
  if mouseclick()= 2 then MakeTarget()   `get coordinates 
  MoveObjects()
  Info()  `when u encounter problems with new functions added, print variables to see if your functions give right answers, very usefull for debugging
  update terrain   `apply all the changes to terrain
  sync  `apply all the changes to screen

loop

`----------------------------------------------------------------------------------------------------------------------------------
`--- Functions and procedures ---
`----------------------------------------------------------------------------------------------------------------------------------

function Setup()

sync on
sync rate 90

autocam off  `when new objects are created camera isnt positioned at coordinates of new pbject
set display mode 1024,768,32
set camera range 10,20000 `how far objects will be visible
backdrop on

maximize window  `make full screen
randomize timer()

xrotate camera 20  `point camera little down
`hide mouse

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function TerrainSetup()

set dir "media"   ` set the directory to media

` load base and detail texture
load image "texture.bmp", 1
load image "detail.tga", 2

make object terrain 1                              ` create the terrain object
set terrain heightmap 1, "map.bmp"                 ` set the heightmap
set terrain scale 1, 3, 0.1, 3                     ` set the scale
set terrain split 1, 16                            ` split value by 16 * 16
set terrain tiling 1, 4                            ` detail map tiling
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5  ` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain texture 1, 1, 2                        ` base and detail texture
build terrain 1                                    ` finally build the terrain
position object 1, 0,0,0         ` position terrain at zero coordinates
sc_setupComplexObject 1,1,2                        ` setup collision on the terrain
remstart
` load our skybox (this is very low quality, u can find smth better)
load object "skybox.x", 6 `this file has images asociated (1-6 jpg images in media directory). U can change or edit them
set object light 6, 0
set object texture 6, 3, 1

position object 6, 500, 50, 500
scale object 6, 30000, 30000, 30000
remend
set dir ".."  ` reset the directory

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveCamera()

`get keyboard input for movement
   if upkey()=1 then move camera 3
   if downkey()=1 then move camera -3
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

`find out the camera height
   x#=camera position x()
   z#=camera position z()
   y#=get terrain ground height(1,x#,z#)+30

`position the camera
   position camera x#,y#,z#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectObjects()

which= pick object(mousex(),mousey(),10,20)    `function to pick object using screen coordinates
 
endfunction which `return value which object was selected, if 0 then none of objects

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeBoxes()  `make 10 random boxes

for i= 10 to 20
  
    make object box i,10,7,15
  
    x=rnd(200)+100
    z=rnd(200)+100
    y=get terrain ground height (1,x,y)
    position object i,x,y,z
    rotate object i,0,rnd(100),0
    color object i,rgb(0,255,0)
    
    Unit(i).RotationSpeed=2.0
    Unit(i).Speed =0.5
    Unit(i).IsMoving =0.0
    Unit(i).IsFollowing =0.0
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectionIndicator(obj)   `indicator handler

if obj=0:   `if no objects selected
      if object visible(2)=1:   `if indicator visible
        hide object (2)   `make it invisible
      endif
    else  `if some object is selected
      if object visible(2)=0: `if indicator is not visible
        show object (2)      `make it visible
      endif
      position object 2,object position x (obj),object position y (obj)+10,object position z(obj) `position indicator above your selected object
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeSelectionIndicator() `make objects for indicators

make object cone 2, 5 `for active object
zrotate object 2, 180 
set object 2, 1, 1, 0
color object 2,RGB(0, 255, 0)    `green color

make object cone 3, 5 `to mark target-coordinates on map
zrotate object 3, 180 
set object 3, 1, 1, 0
color object 3,RGB(255, 255, 0)  `yellow color

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Info()

text 10,10,"Object selected :"+str$(activeID)   `selected, active object
text 10,30,"FPS :" + str$(Screen FPS())   `frames per second (how many times screen refreshes)
            `determines how hard program is for pc, fps will go down if pc is too weak
text 10,50,"Left mouse click to select object"
text 10,70,"Right mouse click to place target/target object"
`text 100,100,"Unit(ActiveID).Dx = " + str$(Unit(ActiveID).Dx)
`text 100,120,"Unit(ActiveID).Dy = " + str$(Unit(ActiveID).Dy)
`text 100,140,"Unit(ActiveID).Dz = " + str$(Unit(ActiveID).Dz)
text 10,160,"AngleDiff# = " + str$(AngleDiff#,0)
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function object_distance(a,b)
l#= (object position z(a)-object position z(b))^2
w#= (object position x(a)-object position x(b))^2
h#= (object position y(a)-object position y(b))^2
d#= l#+w#+h#
endfunction d#

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function LoadMenuPanel()
remstart
  load image "media\MiniMap.bmp",3
  sprite 1,0,600,3
  load image "media\Panel.bmp",4
  sprite 2,250,600,4
  remend
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeTarget() `place target indicator if needed (i cant comment this funtion well, because its no my made.
      `forum link for it: http://forum.thegamecreators.com/?m=forum_view&t=79830&b=1
  obj=SelectObjects() `targeted object number
  if obj=0  `if none objects selected
    mX = mouseX()
    mY = mouseY()
    cx# = camera position x()
    cy# = camera position y()
    cz# = camera position z()
    pickState = Pick Object (mX, mY, 1, 1)
    If pickState <> 0
      Dist# = Get Pick Distance()
      Pick Screen mX, mY, Dist#
      indX# = cx# + get pick vector x()
      indY# = cy# + get pick vector y()
      indZ# = cz# + get pick vector z()
      Position Object 3, indX#, indY#+3, indZ# `position indicator on terrain
      Unit(ActiveID).Dx=indX# `set units destination coordinates
      Unit(ActiveID).Dy=indY#
      Unit(ActiveID).Dz=indZ#
      Unit(ActiveID).IsFollowing=0
      unit(i).movetarget=0
      Unit(ActiveID).IsMoving=0.1 `give starting movement speed
      if unit(ActiveID).MoveTarget<>0 then unit(ActiveID).MoveTarget=0
      if object visible(3)=0 then show object (3) `handling visibility again
    EndIf
  else
    unit(ActiveID).MoveTarget=obj `set units target value to selected object
    Unit(ActiveID).IsMoving=0
    Unit(ActiveID).IsFollowing=0.1 `give starting movement speed
    if object visible(3)=1 then hide object (3) `handling visibility again
  endif
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObject(ID)

Rx#=object angle x (ID)
Ry#=object angle y (ID)
Rz#=object angle z (ID)

point object ID, Unit(activeID).dx, Unit(activeID).dy, Unit(activeID).dz

Ry2#=object angle y (ID)

rotate object ID, Rx#,Ry#,Rz# 
AngleDiff# = abs(Ry# - Ry2#)
if Ry# > 355.0 and Ry2# < (5.0 - (360.0 - Ry#)) then AngleDiff# = ((360.0 - Ry#) + Ry2#)
if Ry2# > 355.0 and Ry# < (5.0 - (360.0 - Ry2#)) then AngleDiff# = ((360.0 - Ry2#) + Ry#)
 
if  AngleDiff# > 5.0 and direction = 0 : // difference has to be greater than 5 degrees (made by LBFN)
  // calculate whether it would be better rotating CW or CCW
  if Ry# > Ry2# then direction = -1
  if Ry# < Ry2# then direction = 1
  if Ry# < 90.0 and Ry2# > (Ry# + 180.0) then direction = -1
  if Ry# < 90.0 and Ry2# < (Ry# + 180.0) then direction = 1
  if Ry# > 270.0 and Ry2# > (Ry# - 180.0) then direction = -1
  if Ry# > 270.0 and Ry2# < (Ry# - 180.0) then direction = 1
endif

if AngleDiff# <= 5.0 then direction = 0

text 10,150,str$(Ry#)
text 10,170,str$(Ry2#)

yrotate object ID, wrapvalue (Ry#+ (Unit(ID).RotationSpeed*direction))

move object ID, Unit(ID).Speed

Ox#=object position x(ID)
Oz#=object position z(ID)
Oy#=get terrain ground height (1,Ox#,Oz#)+5

position object ID,Ox#,Oy#,Oz#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function FollowObject(ID)   `this is simple function, which will be more complicated later
       `like moveobject()
point object ID, object Position X(Unit(ID).Movetarget), object Position Y(Unit(ID).Movetarget),object Position Z(Unit(ID).Movetarget)
move object ID, Unit(ID).Speed

Ox#=object position x(ID)
Oz#=object position z(ID)
Oy#=get terrain ground height (1,Ox#,Oz#)+5

position object ID,Ox#,Oy#,Oz#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObjects()
 for i=10 to VehicleCount+UnitCount
    if unit(i).IsMoving <>0
      MoveObject(i)
      if abs(unit(i).dx-object position x(i))<5 and abs(unit(i).dz-object position z(i))<5 `if at destination. stop object
        unit(i).Ismoving=0
      endif
    endif
    if unit(i).IsFollowing <>0
      if object_distance (i,Unit(i).MoveTarget)>FollowDistance `if not at destination.
      FollowObject(i)
      endif
    endif
  next i
endfunction

+ Code Snippet

Rem Project: Terrain

`--- Constants ---

#constant UnitCount 200
#constant VehiclesCount 100
#constant OtherObjectCount 100
#constant FollowDistance 300

`--- Types ---

type Units   `u can add more stats in here, atm for program work need only "target" variable

hp as integer
dmg as integer
MaxSpeed as float  
Speed as float
traction as float
RotationSpeed as float
MoveTarget as integer `Object to be followed
Target as integer  `object number which was right clicked, while this object was set to "active"
IsMoving as float  `what speed is moving
IsFollowing as float `what speed is following
Dx as float    `destination coordinates
Dy as float
Dz as float
endtype

`--- Arrays ---

dim Unit(UnitCount) as units `array of all your controlable objects (units, soldiers, robots or whatever u use in game 

`--- Variables ---

global activeID, direction as integer    `selected object number
global AngleDiff# as float
`----------------------------------------------------------------------------------------------------------------------------------
`--- Program start ---
`----------------------------------------------------------------------------------------------------------------------------------

Setup()   `program setup
TerrainSetup()   `make and set up terrain
LoadMenuPanel()
MakeBoxes()   `make random objects for selection (just for testing, remove later)
MakeSelectionIndicator()   `make object to be shown above selected objects

`----------------------------------------------------------------------------------------------------------------------------------
`--- Main Loop ---
`----------------------------------------------------------------------------------------------------------------------------------

do

  MoveCamera()  `camera movement
  if mouseclick()= 1 then activeID= SelectObjects()  `left mouse click: select object
  SelectionIndicator(activeID)   `place indicator over selected object (can load your own object like sword, target sign and etc.)
  if mouseclick()= 2 then MakeTarget()   `get coordinates 
  MoveObjects()
  Info()  `when u encounter problems with new functions added, print variables to see if your functions give right answers, very usefull for debugging
  update terrain   `apply all the changes to terrain
  sync  `apply all the changes to screen

loop

`----------------------------------------------------------------------------------------------------------------------------------
`--- Functions and procedures ---
`----------------------------------------------------------------------------------------------------------------------------------

function Setup()

sync on
sync rate 90

autocam off  `when new objects are created camera isnt positioned at coordinates of new pbject
set display mode 1024,768,32
set camera range 10,20000 `how far objects will be visible
backdrop on  

maximize window  `make full screen
randomize timer()

xrotate camera 20  `point camera little down
`hide mouse

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function TerrainSetup()

set dir "media"   ` set the directory to media

` load base and detail texture
load image "texture.bmp", 1
load image "detail.tga", 2

make object terrain 1                              ` create the terrain object
set terrain heightmap 1, "map.bmp"                 ` set the heightmap
set terrain scale 1, 3, 0.1, 3                     ` set the scale
set terrain split 1, 16                            ` split value by 16 * 16
set terrain tiling 1, 4                            ` detail map tiling
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5  ` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain texture 1, 1, 2                        ` base and detail texture
build terrain 1                                    ` finally build the terrain
position object 1, 0,0,0         ` position terrain at zero coordinates
sc_setupComplexObject 1,1,2                        ` setup collision on the terrain
remstart
` load our skybox (this is very low quality, u can find smth better)
load object "skybox.x", 6 `this file has images asociated (1-6 jpg images in media directory). U can change or edit them
set object light 6, 0
set object texture 6, 3, 1 

position object 6, 500, 50, 500
scale object 6, 30000, 30000, 30000
remend
set dir ".."  ` reset the directory

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveCamera()

`get keyboard input for movement
   if upkey()=1 then move camera 3
   if downkey()=1 then move camera -3
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

   `find out the camera height
   x#=camera position x()
   z#=camera position z()
   y#=get terrain ground height(1,x#,z#)+30

   `position the camera
   position camera x#,y#,z#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectObjects()

which= pick object(mousex(),mousey(),10,20)    `function to pick object using screen coordinates
 
endfunction which `return value which object was selected, if 0 then none of objects

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeBoxes()  `make 10 random boxes

  for i= 10 to 20
  
    make object box i,10,7,15
  
    x=rnd(200)+100
    z=rnd(200)+100
    y=get terrain ground height (1,x,y)
    position object i,x,y,z
    rotate object i,0,rnd(100),0
    color object i,rgb(0,255,0)
    
    Unit(i).RotationSpeed=2.0
    Unit(i).Speed =0.5
    Unit(i).IsMoving =0.0
    Unit(i).IsFollowing =0.0
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectionIndicator(obj)   `indicator handler

  if obj=0:   `if no objects selected
      if object visible(2)=1:   `if indicator visible
        hide object (2)   `make it invisible
      endif
    else  `if some object is selected
      if object visible(2)=0: `if indicator is not visible
        show object (2)      `make it visible
      endif
      position object 2,object position x (obj),object position y (obj)+10,object position z(obj) `position indicator above your selected object
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeSelectionIndicator() `make objects for indicators

make object cone 2, 5 `for active object
zrotate object 2, 180 
set object 2, 1, 1, 0
color object 2,RGB(0, 255, 0)    `green color

make object cone 3, 5 `to mark target-coordinates on map
zrotate object 3, 180 
set object 3, 1, 1, 0
color object 3,RGB(255, 255, 0)  `yellow color

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Info()

text 10,10,"Object selected :"+str$(activeID)   `selected, active object
text 10,30,"FPS :" + str$(Screen FPS())   `frames per second (how many times screen refreshes)
            `determines how hard program is for pc, fps will go down if pc is too weak
text 10,50,"Left mouse click to select object"
text 10,70,"Right mouse click to place target/target object"
`text 100,100,"Unit(ActiveID).Dx = " + str$(Unit(ActiveID).Dx)
`text 100,120,"Unit(ActiveID).Dy = " + str$(Unit(ActiveID).Dy)
`text 100,140,"Unit(ActiveID).Dz = " + str$(Unit(ActiveID).Dz)
text 10,160,"AngleDiff# = " + str$(AngleDiff#,0)
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function object_distance(a,b)
l#= (object position z(a)-object position z(b))^2
w#= (object position x(a)-object position x(b))^2
h#= (object position y(a)-object position y(b))^2
d#= l#+w#+h#
endfunction d#

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function LoadMenuPanel()
remstart
  load image "media\MiniMap.bmp",3
  sprite 1,0,600,3
  load image "media\Panel.bmp",4
  sprite 2,250,600,4
  remend
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeTarget() `place target indicator if needed (i cant comment this funtion well, because its no my made.
      `forum link for it: http://forum.thegamecreators.com/?m=forum_view&t=79830&b=1
  obj=SelectObjects() `targeted object number
  if obj=0  `if none objects selected
    mX = mouseX()
    mY = mouseY()
    cx# = camera position x()
    cy# = camera position y()
    cz# = camera position z()
    pickState = Pick Object (mX, mY, 1, 1)
    If pickState <> 0
      Dist# = Get Pick Distance()
      Pick Screen mX, mY, Dist#
      indX# = cx# + get pick vector x()
      indY# = cy# + get pick vector y()
      indZ# = cz# + get pick vector z()
      Position Object 3, indX#, indY#+3, indZ# `position indicator on terrain
      Unit(ActiveID).Dx=indX# `set units destination coordinates
      Unit(ActiveID).Dy=indY#
      Unit(ActiveID).Dz=indZ#
      Unit(ActiveID).IsFollowing=0
      unit(i).movetarget=0
      Unit(ActiveID).IsMoving=0.1 `give starting movement speed
      if unit(ActiveID).MoveTarget<>0 then unit(ActiveID).MoveTarget=0
      if object visible(3)=0 then show object (3) `handling visibility again
    EndIf
  else
    unit(ActiveID).MoveTarget=obj `set units target value to selected object
    Unit(ActiveID).IsMoving=0
    Unit(ActiveID).IsFollowing=0.1 `give starting movement speed
    if object visible(3)=1 then hide object (3) `handling visibility again
  endif
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObject(ID)

Rx#=object angle x (ID)
Ry#=object angle y (ID)
Rz#=object angle z (ID)

point object ID, Unit(activeID).dx, Unit(activeID).dy, Unit(activeID).dz

Ry2#=object angle y (ID)

rotate object ID, Rx#,Ry#,Rz# 
AngleDiff# = abs(Ry# - Ry2#)
if Ry# > 355.0 and Ry2# < (5.0 - (360.0 - Ry#)) then AngleDiff# = ((360.0 - Ry#) + Ry2#)
if Ry2# > 355.0 and Ry# < (5.0 - (360.0 - Ry2#)) then AngleDiff# = ((360.0 - Ry2#) + Ry#)
 
if  AngleDiff# > 5.0 and direction = 0 : // difference has to be greater than 5 degrees (made by LBFN)
  // calculate whether it would be better rotating CW or CCW
  if Ry# > Ry2# then direction = -1
  if Ry# < Ry2# then direction = 1
  if Ry# < 90.0 and Ry2# > (Ry# + 180.0) then direction = -1
  if Ry# < 90.0 and Ry2# < (Ry# + 180.0) then direction = 1
  if Ry# > 270.0 and Ry2# > (Ry# - 180.0) then direction = -1
  if Ry# > 270.0 and Ry2# < (Ry# - 180.0) then direction = 1
endif

if AngleDiff# <= 5.0 then direction = 0

text 10,150,str$(Ry#)
text 10,170,str$(Ry2#)

yrotate object ID, wrapvalue (Ry#+ (Unit(ID).RotationSpeed*direction))

move object ID, Unit(ID).Speed

Ox#=object position x(ID)
Oz#=object position z(ID)
Oy#=get terrain ground height (1,Ox#,Oz#)+5

position object ID,Ox#,Oy#,Oz#


endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function FollowObject(ID)   `this is simple function, which will be more complicated later
       `like moveobject()
point object ID, object Position X(Unit(ID).Movetarget), object Position Y(Unit(ID).Movetarget),object Position Z(Unit(ID).Movetarget)
move object ID, Unit(ID).Speed

Ox#=object position x(ID)
Oz#=object position z(ID)
Oy#=get terrain ground height (1,Ox#,Oz#)+5

position object ID,Ox#,Oy#,Oz#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObjects()
 for i=10 to VehicleCount+UnitCount
    if unit(i).IsMoving <>0
      MoveObject(i)
      if abs(unit(i).dx-object position x(i))<5 and abs(unit(i).dz-object position z(i))<5 `if at destination. stop object
        unit(i).Ismoving=0
      endif
    endif
    if unit(i).IsFollowing <>0
      if object_distance (i,Unit(i).MoveTarget)>FollowDistance `if not at destination.
      FollowObject(i)
      endif
    endif
  next i
endfunction

NeuroFuzzy's tut makes my head hurt

LOL

Back to top

Profile PM Email

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 1st Feb 2011 16:51

Link

thx for your both help. i think will stick to neuro fuzzy's vectors. in fact i don't understand how those vectors work, but can handle the box movement quite easy

i used only 1 function from fuzzy, because in my own code there already exist object to act as a pointer. now all the program looks like this:

Rem Project: Terrain

`--- Constants ---

#constant UnitCount 200
#constant VehiclesCount 100
#constant OtherObjectCount 100
#constant FollowDistance 500.0

`--- Types ---

type Units   `u can add more stats in here, atm for program work need only "target" variable

hp as integer
dmg as integer
MaxSpeed as float		
Speed as float
traction as float
RotationSpeed as float
MoveTarget as integer	`Object to be followed
Target as integer		`object number which was right clicked, while this object was set to "active"
IsMoving as float		`what speed is moving
IsFollowing as float	`what speed is following
Dx as float				`destination coordinates
Dy as float
Dz as float
endtype

`--- Arrays ---

dim Unit(UnitCount) as units `array of all your controlable objects (units, soldiers, robots or whatever u use in game

`--- Variables ---

global activeID as integer    `selected object number

`----------------------------------------------------------------------------------------------------------------------------------
`--- Program start ---
`----------------------------------------------------------------------------------------------------------------------------------

Setup()   `program setup
TerrainSetup()   `make and set up terrain
LoadMenuPanel()
MakeBoxes()   `make random objects for selection (just for testing, remove later)
MakeSelectionIndicator()   `make object to be shown above selected objects

`----------------------------------------------------------------------------------------------------------------------------------
`--- Main Loop ---
`----------------------------------------------------------------------------------------------------------------------------------

do

MoveCamera()  `camera movement
  if mouseclick()= 1 then activeID= SelectObjects()  `left mouse click: select object
  SelectionIndicator(activeID)   `place indicator over selected object (can load your own object like sword, target sign and etc.)
  if mouseclick()= 2 then MakeTarget()   `get coordinates 
  MoveObjects()
  Info()  `when u encounter problems with new functions added, print variables to see if your functions give right answers, very usefull for debugging
  update terrain   `apply all the changes to terrain
  sync  `apply all the changes to screen

loop

`----------------------------------------------------------------------------------------------------------------------------------
`--- Functions and procedures ---
`----------------------------------------------------------------------------------------------------------------------------------

function Setup()

sync on
sync rate 500	
`i set such a high rate to see what highest actual frame rate my pc can reach 
`i dont know what rate is recomemnded, but mostly used in tutorials it is 60 or 90

autocam off  `when new objects are created camera isnt positioned at coordinates of new pbject
set display mode 1024,768,32
set camera range 10,20000	`how far objects will be visible
backdrop on

maximize window  `make full screen
randomize timer()

xrotate camera 20  `point camera little down
`hide mouse

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function TerrainSetup()

set dir "media"   ` set the directory to media

` load base and detail texture
load image "texture.bmp", 1
load image "detail.tga", 2

make object terrain 1                              ` create the terrain object
set terrain heightmap 1, "map.bmp"                 ` set the heightmap
set terrain scale 1, 3, 0.1, 3                     ` set the scale
set terrain split 1, 16                            ` split value by 16 * 16
set terrain tiling 1, 4                            ` detail map tiling
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5  ` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain texture 1, 1, 2                        ` base and detail texture
build terrain 1                                    ` finally build the terrain
position object 1, 0,0,0						   ` position terrain at zero coordinates
sc_setupComplexObject 1,1,2                        ` setup collision on the terrain
remstart
` load our skybox (this is very low quality, u can find smth better)
load object "skybox.x", 6	`this file has images asociated (1-6 jpg images in media directory). U can change or edit them
set object light 6, 0
set object texture 6, 3, 1

position object 6, 500, 50, 500
scale object 6, 30000, 30000, 30000
remend
set dir ".."  ` reset the directory

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveCamera()

`get keyboard input for movement
   if upkey()=1 then move camera 3
   if downkey()=1 then move camera -3
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

`find out the camera height
   x#=camera position x()
   z#=camera position z()
   y#=get terrain ground height(1,x#,z#)+30

`position the camera
   position camera x#,y#,z#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectObjects()

which= pick object(mousex(),mousey(),10,20)    `function to pick object using screen coordinates
 
endfunction which	`return value which object was selected, if 0 then none of objects

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeBoxes()  `make 10 random boxes
  make object box 9,10,7,15
  make mesh from object 1, 9
  for i= 10 to 20
    make object box i,10,7,15
    add limb i, 1, 1
    offset limb i, 1, 0, 0, 1
    hide limb i, 1
  
    x=rnd(200)+100
    z=rnd(200)+100
    y=get terrain ground height (1,x,y)
    position object i,x,y,z
    rotate object i,0,rnd(100),0
    color object i,rgb(0,255,0)
    
    Unit(i).RotationSpeed=3.0
    unit(i).maxspeed=0.5
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.01
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectionIndicator(obj)   `indicator handler

if obj=0:   `if no objects selected
      if object visible(2)=1:   `if indicator visible
        hide object (2) 		`make it invisible
      endif
    else 	`if some object is selected
      if object visible(2)=0:	`if indicator is not visible
        show object (2)		    `make it visible
      endif
      position object 2,object position x (obj),object position y (obj)+10,object position z(obj)	`position indicator above your selected object
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeSelectionIndicator()	`make objects for indicators

make object cone 2, 5	`for active object
zrotate object 2, 180 
set object 2, 1, 1, 0
color object 2,RGB(0, 255, 0)  		`green color

make object cone 3, 5	`to mark target-coordinates on map
zrotate object 3, 180 
set object 3, 1, 1, 0
color object 3,RGB(255, 255, 0)		`yellow color

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Info()

text 10,10,"Object selected :"+str$(activeID)   `selected, active object
text 10,30,"FPS :" + str$(Screen FPS())			`frames per second (how many times screen refreshes)
												`determines how hard program is for pc, fps will go down if pc is too weak
												`my 1.8Ghz, 1.5Gb Ram machine shows 100-120 in this program stage. 
												`as more functions are added it should slow down
text 10,50,"Left mouse click to select object"
text 10,70,"Right mouse click to place target/target object"

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function object_distance_squared(a,b)
l#= (object position z(a)-object position z(b))^2
w#= (object position x(a)-object position x(b))^2
h#= (object position y(a)-object position y(b))^2
d#= l#+w#+h#
endfunction d#

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function LoadMenuPanel()
remstart
  load image "media\MiniMap.bmp",3
  sprite 1,0,600,3
  load image "media\Panel.bmp",4
  sprite 2,250,600,4
  remend
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeTarget()	`place target indicator if needed (i cant comment this funtion well, because its no my made.
						`forum link for it: http://forum.thegamecreators.com/?m=forum_view&t=79830&b=1
  obj=SelectObjects()	`targeted object number
  if obj=0		`if none objects selected
    mX = mouseX()
    mY = mouseY()
    cx# = camera position x()
    cy# = camera position y()
    cz# = camera position z()
    pickState = Pick Object (mX, mY, 1, 1)
    If pickState <> 0
      Dist# = Get Pick Distance()
      Pick Screen mX, mY, Dist#
      indX# = cx# + get pick vector x()
      indY# = cy# + get pick vector y()
      indZ# = cz# + get pick vector z()
      Position Object 3, indX#, indY#+3, indZ#	`position indicator on terrain
      Unit(ActiveID).Dx=indX#	`set units destination coordinates
      Unit(ActiveID).Dy=indY#
      Unit(ActiveID).Dz=indZ#
      Unit(ActiveID).IsFollowing=0
      unit(i).movetarget=0
      Unit(ActiveID).IsMoving=0.1	`give starting movement speed
      if unit(ActiveID).MoveTarget<>0 then unit(ActiveID).MoveTarget=0
      if object visible(3)=0 then show object (3)	`handling visibility again
    EndIf
  else
    unit(ActiveID).MoveTarget=obj	`set units target value to selected object
    Unit(ActiveID).IsMoving=0
    Unit(ActiveID).IsFollowing=0.1	`give starting movement speed
    if object visible(3)=1 then hide object (3) `handling visibility again
  endif
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function FollowObject(ID)   `this is simple function, 
`which changes object destination coordinates into followed object coordinates, 
`and then calls MoveObject() function to move object
Unit(ID).dx=object Position X(Unit(ID).Movetarget)
Unit(ID).dz=object Position Z(Unit(ID).Movetarget)
MoveObject(ID)
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObjects()

for i=10 to VehicleCount+UnitCount  `for all controllable objects
    if unit(i).IsMoving <>0			`if object is moving to destination point
      MoveObject(i)					`then move it
      if abs(unit(i).dx-object position x(i))<5 and abs(unit(i).dz-object position z(i))<5	`if at destination. stop object
        unit(i).Ismoving=0			`if reached destination point then stop
      endif
    endif
    if unit(i).IsFollowing <>0		`if object is folowing other object
      if object_distance_squared (i,Unit(i).MoveTarget)>FollowDistance `if is too far
      FollowObject(i)				`then move it towards target
      endif
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObject(ID)	`made by Neuro Fuzzy, this is little edited to suit this program
						`link to His tutorial: http://www.neurofuzzydev.com/V/D/43a.htm
  a = 1
  null = make vector3(a)
  set vector3 a, unit(ID).Dx - object position x(ID), 0, unit(ID).Dz - object position z(ID)
  distance# = length vector3(a)

Rem PJY - check the length of this vector.
 
  Rem PJY - now we test to find out if the red cube is pointing at the blue cube
  Rem PJY - we do this by comparing the angle between the vector representing the red cube's direction
  Rem PJY - and the vector 90 degrees to the side of that
  normalize vector3 a, a
  b = 2
  null = make vector3(b)
  set vector3 b, limb position x(ID, 1) - object position x(ID), 0, limb position z(ID, 1) - object position z(ID)
  normalize vector3 b, b
  Rem PJY - calculate angle between direction of red cube and vector towards the blue cube
  angle# = acos(dot product vector3(a, b))
  Rem PJY - create a cross product vector c to determine in which direction to turn red cube
  c = 3
  null = make vector3(c)
  set vector3 c, 0, 1, 0
  cross product vector3 c, b, c
  angle2# = acos(dot product vector3(a, c))

Rem PJY - if the red cube is not pointing at the blue cube, turn it towards the blue cube
  if angle# > 0.1
    if angle2# <> 0
      Rem PJY - select whether to turn right or left
      if angle2# >= 90
        turn object right ID, 1
	  else
		turn object left ID, 1
	  endif
	endif
  endif

Rem PJY - now depending on the angle and the distance between the cubes
  Rem PJY - we move the selected cube. The reason for the following code is that
  Rem PJY - without it in certain situations the selected cube could begin
  Rem PJY - "orbiting" the target, i.e. where it is moving so much per turn
  Rem PJY - that it is not decreasing the angle
  if angle# < 1
    if unit(ID).speed<unit(ID).maxspeed then unit(ID).speed=unit(ID).speed+unit(ID).traction	
  endif
  
  if angle# => 1 AND angle# < 10
	if unit(ID).speed<unit(ID).maxspeed/1.5
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  unit(ID).speed=unit(ID).speed-0.01
	endif
  endif
  
  if angle# => 10 AND angle# < 90 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/2
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  unit(ID).speed=unit(ID).speed-0.01
	endif
  endif
  
  if angle# => 90 AND angle# < 120 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/8
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  unit(ID).speed=unit(ID).speed-0.01
	endif
  endif
  
  if angle# => 120 AND distance# > 10
	if unit(ID).speed<unit(ID).maxspeed/10
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  unit(ID).speed=unit(ID).speed-0.01
	endif
  endif
  
  if angle# => 80 AND distance# < 20
	if unit(ID).speed<unit(ID).maxspeed/20
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  unit(ID).speed=unit(ID).speed-0.02
	endif
  endif
 
  move object ID, unit(ID).speed
  
  null = delete vector3(b)
  null = delete vector3(c)
  null = delete vector3(a)
  
  `get coordinates of object 
  Ox#=object position x(ID)
  Oz#=object position z(ID)
  Oy#=get terrain ground height (1,Ox#,Oz#)+5
  `and place it on terrain
  position object ID,Ox#,Oy#,Oz#

endfunction

+ Code Snippet

Rem Project: Terrain

`--- Constants ---

#constant UnitCount 200
#constant VehiclesCount 100
#constant OtherObjectCount 100
#constant FollowDistance 500.0

`--- Types ---

type Units   `u can add more stats in here, atm for program work need only "target" variable

hp as integer
dmg as integer
MaxSpeed as float		
Speed as float
traction as float
RotationSpeed as float
MoveTarget as integer	`Object to be followed
Target as integer		`object number which was right clicked, while this object was set to "active"
IsMoving as float		`what speed is moving
IsFollowing as float	`what speed is following
Dx as float				`destination coordinates
Dy as float
Dz as float
endtype

`--- Arrays ---

dim Unit(UnitCount) as units `array of all your controlable objects (units, soldiers, robots or whatever u use in game 

`--- Variables ---

global activeID as integer    `selected object number

`----------------------------------------------------------------------------------------------------------------------------------
`--- Program start ---
`----------------------------------------------------------------------------------------------------------------------------------

Setup()   `program setup
TerrainSetup()   `make and set up terrain
LoadMenuPanel()
MakeBoxes()   `make random objects for selection (just for testing, remove later)
MakeSelectionIndicator()   `make object to be shown above selected objects

`----------------------------------------------------------------------------------------------------------------------------------
`--- Main Loop ---
`----------------------------------------------------------------------------------------------------------------------------------

do

  MoveCamera()  `camera movement
  if mouseclick()= 1 then activeID= SelectObjects()  `left mouse click: select object
  SelectionIndicator(activeID)   `place indicator over selected object (can load your own object like sword, target sign and etc.)
  if mouseclick()= 2 then MakeTarget()   `get coordinates 
  MoveObjects()
  Info()  `when u encounter problems with new functions added, print variables to see if your functions give right answers, very usefull for debugging
  update terrain   `apply all the changes to terrain
  sync  `apply all the changes to screen

loop

`----------------------------------------------------------------------------------------------------------------------------------
`--- Functions and procedures ---
`----------------------------------------------------------------------------------------------------------------------------------

function Setup()

sync on
sync rate 500	
`i set such a high rate to see what highest actual frame rate my pc can reach 
`i dont know what rate is recomemnded, but mostly used in tutorials it is 60 or 90 

autocam off  `when new objects are created camera isnt positioned at coordinates of new pbject
set display mode 1024,768,32
set camera range 10,20000	`how far objects will be visible
backdrop on  

maximize window  `make full screen
randomize timer()

xrotate camera 20  `point camera little down
`hide mouse

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function TerrainSetup()

set dir "media"   ` set the directory to media

` load base and detail texture
load image "texture.bmp", 1
load image "detail.tga", 2

make object terrain 1                              ` create the terrain object
set terrain heightmap 1, "map.bmp"                 ` set the heightmap
set terrain scale 1, 3, 0.1, 3                     ` set the scale
set terrain split 1, 16                            ` split value by 16 * 16
set terrain tiling 1, 4                            ` detail map tiling
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5  ` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain texture 1, 1, 2                        ` base and detail texture
build terrain 1                                    ` finally build the terrain
position object 1, 0,0,0						   ` position terrain at zero coordinates
sc_setupComplexObject 1,1,2                        ` setup collision on the terrain
remstart
` load our skybox (this is very low quality, u can find smth better)
load object "skybox.x", 6	`this file has images asociated (1-6 jpg images in media directory). U can change or edit them
set object light 6, 0
set object texture 6, 3, 1	

position object 6, 500, 50, 500
scale object 6, 30000, 30000, 30000
remend
set dir ".."  ` reset the directory

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveCamera()

`get keyboard input for movement
   if upkey()=1 then move camera 3
   if downkey()=1 then move camera -3
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

   `find out the camera height
   x#=camera position x()
   z#=camera position z()
   y#=get terrain ground height(1,x#,z#)+30

   `position the camera
   position camera x#,y#,z#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectObjects()

which= pick object(mousex(),mousey(),10,20)    `function to pick object using screen coordinates
 
endfunction which	`return value which object was selected, if 0 then none of objects

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeBoxes()  `make 10 random boxes
  make object box 9,10,7,15
  make mesh from object 1, 9
  for i= 10 to 20
    make object box i,10,7,15
    add limb i, 1, 1
    offset limb i, 1, 0, 0, 1
    hide limb i, 1
  
    x=rnd(200)+100
    z=rnd(200)+100
    y=get terrain ground height (1,x,y)
    position object i,x,y,z
    rotate object i,0,rnd(100),0
    color object i,rgb(0,255,0)
    
    Unit(i).RotationSpeed=3.0
    unit(i).maxspeed=0.5
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.01
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectionIndicator(obj)   `indicator handler

  if obj=0:   `if no objects selected
      if object visible(2)=1:   `if indicator visible
        hide object (2) 		`make it invisible
      endif
    else 	`if some object is selected
      if object visible(2)=0:	`if indicator is not visible
        show object (2)		    `make it visible
      endif
      position object 2,object position x (obj),object position y (obj)+10,object position z(obj)	`position indicator above your selected object
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeSelectionIndicator()	`make objects for indicators

make object cone 2, 5	`for active object
zrotate object 2, 180 
set object 2, 1, 1, 0
color object 2,RGB(0, 255, 0)  		`green color

make object cone 3, 5	`to mark target-coordinates on map
zrotate object 3, 180 
set object 3, 1, 1, 0
color object 3,RGB(255, 255, 0)		`yellow color

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Info()

text 10,10,"Object selected :"+str$(activeID)   `selected, active object
text 10,30,"FPS :" + str$(Screen FPS())			`frames per second (how many times screen refreshes)
												`determines how hard program is for pc, fps will go down if pc is too weak
												`my 1.8Ghz, 1.5Gb Ram machine shows 100-120 in this program stage. 
												`as more functions are added it should slow down
text 10,50,"Left mouse click to select object"
text 10,70,"Right mouse click to place target/target object"

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function object_distance_squared(a,b)
l#= (object position z(a)-object position z(b))^2
w#= (object position x(a)-object position x(b))^2
h#= (object position y(a)-object position y(b))^2
d#= l#+w#+h#
endfunction d#

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function LoadMenuPanel()
remstart
  load image "media\MiniMap.bmp",3
  sprite 1,0,600,3
  load image "media\Panel.bmp",4
  sprite 2,250,600,4
  remend
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeTarget()	`place target indicator if needed (i cant comment this funtion well, because its no my made.
						`forum link for it: http://forum.thegamecreators.com/?m=forum_view&t=79830&b=1
  obj=SelectObjects()	`targeted object number
  if obj=0		`if none objects selected
    mX = mouseX()
    mY = mouseY()
    cx# = camera position x()
    cy# = camera position y()
    cz# = camera position z()
    pickState = Pick Object (mX, mY, 1, 1)
    If pickState <> 0
      Dist# = Get Pick Distance()
      Pick Screen mX, mY, Dist#
      indX# = cx# + get pick vector x()
      indY# = cy# + get pick vector y()
      indZ# = cz# + get pick vector z()
      Position Object 3, indX#, indY#+3, indZ#	`position indicator on terrain
      Unit(ActiveID).Dx=indX#	`set units destination coordinates
      Unit(ActiveID).Dy=indY#
      Unit(ActiveID).Dz=indZ#
      Unit(ActiveID).IsFollowing=0
      unit(i).movetarget=0
      Unit(ActiveID).IsMoving=0.1	`give starting movement speed
      if unit(ActiveID).MoveTarget<>0 then unit(ActiveID).MoveTarget=0
      if object visible(3)=0 then show object (3)	`handling visibility again
    EndIf
  else
    unit(ActiveID).MoveTarget=obj	`set units target value to selected object
    Unit(ActiveID).IsMoving=0
    Unit(ActiveID).IsFollowing=0.1	`give starting movement speed
    if object visible(3)=1 then hide object (3) `handling visibility again
  endif
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function FollowObject(ID)   `this is simple function, 
`which changes object destination coordinates into followed object coordinates, 
`and then calls MoveObject() function to move object
Unit(ID).dx=object Position X(Unit(ID).Movetarget)
Unit(ID).dz=object Position Z(Unit(ID).Movetarget)
MoveObject(ID)
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObjects()

 for i=10 to VehicleCount+UnitCount  `for all controllable objects
    if unit(i).IsMoving <>0			`if object is moving to destination point
      MoveObject(i)					`then move it
      if abs(unit(i).dx-object position x(i))<5 and abs(unit(i).dz-object position z(i))<5	`if at destination. stop object
        unit(i).Ismoving=0			`if reached destination point then stop
      endif
    endif
    if unit(i).IsFollowing <>0		`if object is folowing other object
      if object_distance_squared (i,Unit(i).MoveTarget)>FollowDistance `if is too far
      FollowObject(i)				`then move it towards target
      endif
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObject(ID)	`made by Neuro Fuzzy, this is little edited to suit this program
						`link to His tutorial: http://www.neurofuzzydev.com/V/D/43a.htm
  a = 1
  null = make vector3(a)
  set vector3 a, unit(ID).Dx - object position x(ID), 0, unit(ID).Dz - object position z(ID)
  distance# = length vector3(a)

  Rem PJY - check the length of this vector.
 
  Rem PJY - now we test to find out if the red cube is pointing at the blue cube
  Rem PJY - we do this by comparing the angle between the vector representing the red cube's direction
  Rem PJY - and the vector 90 degrees to the side of that
  normalize vector3 a, a
  b = 2
  null = make vector3(b)
  set vector3 b, limb position x(ID, 1) - object position x(ID), 0, limb position z(ID, 1) - object position z(ID)
  normalize vector3 b, b
  Rem PJY - calculate angle between direction of red cube and vector towards the blue cube
  angle# = acos(dot product vector3(a, b))
  Rem PJY - create a cross product vector c to determine in which direction to turn red cube
  c = 3
  null = make vector3(c)
  set vector3 c, 0, 1, 0
  cross product vector3 c, b, c
  angle2# = acos(dot product vector3(a, c))

  Rem PJY - if the red cube is not pointing at the blue cube, turn it towards the blue cube
  if angle# > 0.1
    if angle2# <> 0
      Rem PJY - select whether to turn right or left
      if angle2# >= 90
        turn object right ID, 1
	  else
		turn object left ID, 1
	  endif
	endif
  endif

  Rem PJY - now depending on the angle and the distance between the cubes
  Rem PJY - we move the selected cube. The reason for the following code is that
  Rem PJY - without it in certain situations the selected cube could begin
  Rem PJY - "orbiting" the target, i.e. where it is moving so much per turn
  Rem PJY - that it is not decreasing the angle
  if angle# < 1
    if unit(ID).speed<unit(ID).maxspeed then unit(ID).speed=unit(ID).speed+unit(ID).traction	
  endif
  
  if angle# => 1 AND angle# < 10
	if unit(ID).speed<unit(ID).maxspeed/1.5
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  unit(ID).speed=unit(ID).speed-0.01
	endif
  endif
  
  if angle# => 10 AND angle# < 90 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/2
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  unit(ID).speed=unit(ID).speed-0.01
	endif
  endif
  
  if angle# => 90 AND angle# < 120 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/8
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  unit(ID).speed=unit(ID).speed-0.01
	endif
  endif
  
  if angle# => 120 AND distance# > 10
	if unit(ID).speed<unit(ID).maxspeed/10
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  unit(ID).speed=unit(ID).speed-0.01
	endif
  endif
  
  if angle# => 80 AND distance# < 20
	if unit(ID).speed<unit(ID).maxspeed/20
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  unit(ID).speed=unit(ID).speed-0.02
	endif
  endif
 
  move object ID, unit(ID).speed
  
  null = delete vector3(b)
  null = delete vector3(c)
  null = delete vector3(a)
  
  `get coordinates of object 
  Ox#=object position x(ID)
  Oz#=object position z(ID)
  Oy#=get terrain ground height (1,Ox#,Oz#)+5
  `and place it on terrain
  position object ID,Ox#,Oy#,Oz#

endfunction

if for someone vectors are too difficult u can use LBFN's posted version- it needs a little bit more editing, but should use less pc resources.
hope this thread helps for other's to take control over their boxes as well

Back to top

Profile PM Email

Neuro Fuzzy

17

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 2nd Feb 2011 02:58

Link

Quote: "NeuroFuzzy's tut makes my head hurt LOL"

Argh, It's not my tutorial, I'm just mirroring it 'cuz it's awesome! xD

And It figures... it's a thing at the END of a giant tutorial, so most of it relies on that stuff, and the problem that like 60% of the article is talking about is unrelated to this post, and actually pretty complicated (like, it really needs the knowledge taught in earlier sections).

Here's a link to it (I have it mirrored on my site like I said but... it seems to be super laggy ATM T_T)
http://forum.thegamecreators.com/?m=forum_view&t=133126&b=7
Odds are you'll need to know some of it sooner or later, but if you don't have much interest in *how* 3d math is handled, then it won't hurt too much if you don't learn it (When you get to other rotation stuff, EZRotate is there for you!)

Back to top

Profile PM Email

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 2nd Feb 2011 10:43

Link

I tried to navigate in your site, but it too difficult for me... LOL

I found this in "about" section:

Quote: "The papers section is a directory of things I've written up, about math, or programming, or about something I've seen. Basically, any purposeful document is a "paper"."

So i go to "papers" section, willing to find some wonderful treasures there...
and i get this:

Quote: "Error 404: not found.
My site doesn't have all pages finished! This error probably means I just haven't got the page up yet."

I have just downloaded Your vectorsCHM.rar file. When have some spare time will read it all, maybe then vectors don't bite me

As i understand, it contains all the other pages of Your tutorial, that U linked in first post.

The only thing that can't be too much is knowledge

Join The dark Side! We have cookies :-P

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 2nd Feb 2011 13:54 Edited at: 3rd Feb 2011 17:10

Link

I have recently written a tutorial about vectors in this thread. Maybe it's worth it to check it out as well.

To get the angle you might as well use the function:
[edit] Corrected

sync on
sync rate 80
randomize timer()

`Make box (player)
make object box 1, 2, 2, 5

`Make sphere (target)
make object sphere 2, 1

`Position camera
position camera -10, 10, -10
point camera 0, 0, 0

`Create 2 vectors that will be used by GetShortestAngle()
r = make vector2(1)
r = make vector2(2)

do

`Use spacekey to place sphere
    if spacekey() > 0 then position object 2, -5 + rnd(10), 0, -5 + rnd(10)

`Find shortest angle    
    Angle# = GetShortestAngle(object position x(1), object position z(1), object angle y(1), object position x(2), object position z(2))
    text 0, 0, str$(Angle#)
    
    `Turn object with a small margin to avoid shaking
    if Angle# <= -0.5 then yrotate object 1, object angle y(1) + 0.5
    if Angle# >= 0.5 then yrotate object 1, object angle y(1) - 0.5

sync
loop

function GetShortestAngle(x#, y#, ay#, tx#, ty#)

`set vectors
    set vector2 1, newxvalue(0.0, ay#, 1.0), newzvalue(0.0, ay#, 1.0)
    set vector2 2, tx# - x#, ty# - y#
    normalize vector2 2, 2
    
    `Find data
    ang# = acos(dot product vector2(1, 2))
    if ccw vector2(1, 2) < 0.0 then ang# = -ang#
endfunction ang#

+ Code Snippet

sync on
sync rate 80
randomize timer()

`Make box (player)
make object box 1, 2, 2, 5

`Make sphere (target)
make object sphere 2, 1

`Position camera
position camera -10, 10, -10
point camera 0, 0, 0

`Create 2 vectors that will be used by GetShortestAngle()
r = make vector2(1)
r = make vector2(2)

do

    `Use spacekey to place sphere
    if spacekey() > 0 then position object 2, -5 + rnd(10), 0, -5 + rnd(10)

    `Find shortest angle    
    Angle# = GetShortestAngle(object position x(1), object position z(1), object angle y(1), object position x(2), object position z(2))
    text 0, 0, str$(Angle#)
    
    `Turn object with a small margin to avoid shaking
    if Angle# <= -0.5 then yrotate object 1, object angle y(1) + 0.5
    if Angle# >= 0.5 then yrotate object 1, object angle y(1) - 0.5

    sync
loop

function GetShortestAngle(x#, y#, ay#, tx#, ty#)

    `set vectors
    set vector2 1, newxvalue(0.0, ay#, 1.0), newzvalue(0.0, ay#, 1.0)
    set vector2 2, tx# - x#, ty# - y#
    normalize vector2 2, 2
    
    `Find data
    ang# = acos(dot product vector2(1, 2))
    if ccw vector2(1, 2) < 0.0 then ang# = -ang#
endfunction ang#

Cheers!
Sven B

Back to top

Profile PM Email

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 2nd Feb 2011 21:00

Link

mmm... this looks much more compact and resource friendly

i don't understand what makes these two functions:

ccw vector2(a,b)
found only "prod# = CCW Vector2(IDa, IDb) See chapter 3.d" in tutorial

newxvalue(x#, ay#, 1.0)

can u plz explain them shortly? i can't find them explained in "Vectors in DBP" nor in "Easy Transformations in DBP"

i will try to put it in my code later. now dealing with limb rotation- maybe this helps with limbs too

should take some rest, all day fighting with boxes who don't want do what i want

thanks

Join The dark Side! We have cookies

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 2nd Feb 2011 21:45 Edited at: 4th Feb 2011 15:47

Link

Hi Kiaurutis,

ccw vector2() basically returns the Z-component of a cross-product of those two vectors. With "3.d" I meant the part where it says:

Quote: "
The cross product doesn't exist in 2D. However, if we imagine ourselves an extra Z-axis perpendicular on the existing X and Y axis in 2D, then it's possible to have the following variant of the cross product: (...)"

newxvalue(x#, ay#, d#) is equivalent to (edit: has to be a sine)
x# + sin(ay#) * d#

newzvalue(z#, ay#, d#) is equivalent to
z# + cos(ay#) * d#
They're mainly used to make something move on a circle with center (x#, y#), radius d# and with an angle of ay#.

They're not really related to vectors which is why you couldn't find them in any tutorial

.

Cheers!
Sven B

Back to top

Profile PM Email

Neuro Fuzzy

17

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 2nd Feb 2011 21:53

Link

^^ That has to do with vector cross product... The cross product takes two vectors and returns another vector perpendicular to both. If you have two vectors in the x/y plane, then the cross product of both will have 0 x and y value, and only a Z value. That function returns the Z value.

However... the atanfull function already does pretty much what that getShortestAngle does.
(If you use inverse cosine and inverse sine... well if I give you cos(x), there are probably multiple values of x on the interval [0,360], meaning if you use the atan(), acos() or asin() functions, you don't get the full angle, just "a guess"). atanfull determines the angle from -180 to 180.)

sync on
sync rate 80
randomize timer()

`Make box (player)
make object box 1, 2, 2, 5

`Make sphere (target)
make object sphere 2, 1

`Position camera
position camera -10, 10, -10
point camera 0, 0, 0

`Create 2 vectors that will be used by GetShortestAngle()
r = make vector2(1)
r = make vector2(2)

do

`Use spacekey to place sphere
    if spacekey() > 0 then position object 2, -5 + rnd(10), 0, -5 + rnd(10)

`Find shortest angle    
    Angle# = GetShortestAngle(object position x(1), object position z(1), object angle y(1), object position x(2), object position z(2))
    text 0, 0, str$(Angle#)
    text 0,16, str$(wrapvalue(object angle y(1)))
    `Turn object with a small margin to avoid shaking
    if Angle# <= -0.5 then yrotate object 1, object angle y(1) + 0.5
    if Angle# >= 0.5 then yrotate object 1, object angle y(1) - 0.5

sync
loop

function GetShortestAngle(x as float, y as float, angle as float, x2 as float, y2 as float)
    ang# = wrapvalue(angle)-wrapvalue(atanfull(x2-x,y2-y))
endfunction ang#

+ Code Snippet

sync on
sync rate 80
randomize timer()

`Make box (player)
make object box 1, 2, 2, 5

`Make sphere (target)
make object sphere 2, 1

`Position camera
position camera -10, 10, -10
point camera 0, 0, 0

`Create 2 vectors that will be used by GetShortestAngle()
r = make vector2(1)
r = make vector2(2)

do

    `Use spacekey to place sphere
    if spacekey() > 0 then position object 2, -5 + rnd(10), 0, -5 + rnd(10)

    `Find shortest angle    
    Angle# = GetShortestAngle(object position x(1), object position z(1), object angle y(1), object position x(2), object position z(2))
    text 0, 0, str$(Angle#)
    text 0,16, str$(wrapvalue(object angle y(1)))
    `Turn object with a small margin to avoid shaking
    if Angle# <= -0.5 then yrotate object 1, object angle y(1) + 0.5
    if Angle# >= 0.5 then yrotate object 1, object angle y(1) - 0.5

    sync
loop




function GetShortestAngle(x as float, y as float, angle as float, x2 as float, y2 as float)
    ang# = wrapvalue(angle)-wrapvalue(atanfull(x2-x,y2-y))
endfunction ang#

Back to top

Profile PM Email

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 3rd Feb 2011 08:38

Link

Sven's version works good

but Fuzzy's version has some bug, it doesn't rotate 100% correct. sometimes rotates more than 180 degrees. I would like to use it in my program because of small number of calculations, if it works

here is modified code to show the bug:

sync on
sync rate 80
randomize timer()

`Make box (player)
make object box 1, 2, 2, 5

`Make sphere (target)
make object sphere 2, 1

position object 2, -20 + rnd(40), 0, -20 + rnd(40)

`Position camera
position camera -10, 50, -10
point camera 0, 0, 0

`Create 2 vectors that will be used by GetShortestAngle()
r = make vector2(1)
r = make vector2(2)

do

`Use spacekey to place sphere
    if spacekey() > 0 then

`Find shortest angle    
    Angle# = GetShortestAngle(object position x(1), object position z(1), object angle y(1), object position x(2), object position z(2))
    Angle2# = GetShortestAngle2(object position x(1), object position z(1), object angle y(1), object position x(2), object position z(2))
    text 10, 10, "Fuzzy's angle: "+str$(Angle#)
    text 10, 23, "Sven's angle:  "+str$(Angle2#)
    
    `error if angles are different sign (soz about my english)
    if (angle#<0 and angle2#>0) or (angle#>0 and angle2#<0) then error()
    
    `if dont need to turn object replace target
    if abs(angle#)<1.0 then position object 2, -20 + rnd(40), 0, -20 + rnd(40)
    
    `Turn object with a small margin to avoid shaking
    if Angle# <= -1.0 then yrotate object 1, object angle y(1) + 1.0
    if Angle# >= 1.0 then yrotate object 1, object angle y(1) - 1.0

sync
loop

`fuzzy's function
function GetShortestAngle(x as float, y as float, angle as float, x2 as float, y2 as float)
    ang# = wrapvalue(angle)-wrapvalue(atanfull(x2-x,y2-y))
endfunction ang#

`sven's function
function GetShortestAngle2(x#, y#, ay#, tx#, ty#)

`set vectors
    set vector2 1, newxvalue(x#, ay#, 1.0), newzvalue(y#, ay#, 1.0)
    set vector2 2, tx# - x#, ty# - y#
    normalize vector2 2, 2
    
    `Find data
    ang# = acos(dot product vector2(1, 2))
    if ccw vector2(1, 2) < 0.0 then ang# = -ang#
endfunction ang#

function error()

text 100, 100, "angles are not same sign (+-)"
  text 100, 120, "after 5 seconds target will be repositioned"
  sync
  wait 5000
  position object 2, -20 + rnd(40), 0, -20 + rnd(40)
  
endfunction

+ Code Snippet

sync on
sync rate 80
randomize timer()

`Make box (player)
make object box 1, 2, 2, 5

`Make sphere (target)
make object sphere 2, 1

position object 2, -20 + rnd(40), 0, -20 + rnd(40)

`Position camera
position camera -10, 50, -10
point camera 0, 0, 0

`Create 2 vectors that will be used by GetShortestAngle()
r = make vector2(1)
r = make vector2(2)

do

    `Use spacekey to place sphere
    if spacekey() > 0 then 

    `Find shortest angle    
    Angle# = GetShortestAngle(object position x(1), object position z(1), object angle y(1), object position x(2), object position z(2))
    Angle2# = GetShortestAngle2(object position x(1), object position z(1), object angle y(1), object position x(2), object position z(2))
    text 10, 10, "Fuzzy's angle: "+str$(Angle#)
    text 10, 23, "Sven's angle:  "+str$(Angle2#)
    
    `error if angles are different sign (soz about my english)
    if (angle#<0 and angle2#>0) or (angle#>0 and angle2#<0) then error()
    
    `if dont need to turn object replace target
    if abs(angle#)<1.0 then position object 2, -20 + rnd(40), 0, -20 + rnd(40)
    
    `Turn object with a small margin to avoid shaking
    if Angle# <= -1.0 then yrotate object 1, object angle y(1) + 1.0
    if Angle# >= 1.0 then yrotate object 1, object angle y(1) - 1.0

    sync
loop


`fuzzy's function
function GetShortestAngle(x as float, y as float, angle as float, x2 as float, y2 as float)
    ang# = wrapvalue(angle)-wrapvalue(atanfull(x2-x,y2-y))
endfunction ang#


`sven's function
function GetShortestAngle2(x#, y#, ay#, tx#, ty#)

    `set vectors
    set vector2 1, newxvalue(x#, ay#, 1.0), newzvalue(y#, ay#, 1.0)
    set vector2 2, tx# - x#, ty# - y#
    normalize vector2 2, 2
    
    `Find data
    ang# = acos(dot product vector2(1, 2))
    if ccw vector2(1, 2) < 0.0 then ang# = -ang#
endfunction ang#



function error()

  text 100, 100, "angles are not same sign (+-)"
  text 100, 120, "after 5 seconds target will be repositioned"
  sync
  wait 5000
  position object 2, -20 + rnd(40), 0, -20 + rnd(40)
  
endfunction

bug appear randomly

Join The dark Side! We have cookies

Back to top

Profile PM Email

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 3rd Feb 2011 10:17

Link

Sven, there is smth strange about angle returned- when i use text command to print it, i get "-1.#IND". i checked if input was wrong- in sven's original function i get error with these values too. but can't understand whats wrong?

That's the input and return values

+ Code Snippet

x#= 139
y#= 119
ay#= 56
tx#= 162.4(...)
ty#= 123.8(...)

return after ang# = acos(dot product vector2(1, 2))
ang#= -1.#IND

return after ccw vector2(1, 2) < 0.0 then ang# = -ang#
ang#= -1.#IND

i tried to add "normalize vector2 1, 1"
this made my object to spin in various fixed radius circles

vectors still bite me

Join The dark Side! We have cookies

Back to top

Profile PM Email

Neuro Fuzzy

17

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 3rd Feb 2011 12:36 Edited at: 3rd Feb 2011 12:38

Link

Arghh sorry... messed up X_X

+ Code Snippet

function GetShortestAngle(x as float, y as float, angle as float, x2 as float, y2 as float)
    ang# = wrapvalue(angle-atanfull(x2-x,y2-y))
	 if ang#>180 then ang#=ang#-360
endfunction ang#

Okay, basically... I assume you're a bit familiar with some trigonometry? If you have a right triangle, like this:

then tan(θ[b][/b])=y/x
So by definition, θ=atan(y/x)
The problem is that there are multiple solutions for θ. The thing is - if you just have y and x, you can determine θ with no ambiguity. Because this isn't as straightforward as the inverse tangent command (in fact whatever the function does is probably exactly what sven's code is doing), it's given the name "atan2" or "atanfull". so θ=atanfull(x,y)

atanfull returns a value between -180 and 180. The difference between angle and atanfull(x,y) will be the angle difference the object needs to turn, and then since we want to find the shortest angle (which will be under 180 degrees), we just make sure the result is also inbetween -180 and 180. I just didn't think that code through at first X_X

Back to top

Profile PM Email

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 3rd Feb 2011 14:08 Edited at: 3rd Feb 2011 14:19

Link

no prob about Your messing... i think my code messes with your code- damn boxes aren't moving correctly

and i don't understand vectors and 3dmaths enough to fix it myself...

this is fuzzy's last code suggestion which is short, but unfortunately doesn't work:

Remstart
	Today, February 01, 2011, 8:31:10 PM
	Project: Terrain
	*Load map
	*Select objects
	*Move camera
	*Move objects to point on map
	*Follow enemies and friendly differently
	*Smooth rotation and speed until reach target
	*Added 2 sprites and text over them
	*different team object can be attacked
Remend

`--- Constants ---

#constant UnitCount 200		`maximum number of each type of objects
#constant VehiclesCount 100
#constant BuildingsCount 100
#constant ProjectilesCount 100
#constant OtherObjectsCount 100
#constant DestroyedUnitsCount 300
#constant FollowDistance 500.0 `this is squared (^2) 
`because square root in get_distance function would slow down program a little

`--- Types ---

type Units   `u can add more stats in here, atm for program work need only "target" variable
  Stance as integer `0-passive, 2-defensive, 3-agresive
  Name as string
  Exist as integer	`0-not egzist, 1-egzist
  Team as integer
  MaxHp as integer
  Hp as integer
  Dmg as integer
  Def as integer
  MaxSpeed as float		
  Speed as float
  Traction as float		`acelleration
  RotationSpeed as float	`how fast object rotates
  ProjectileType as integer 
  LastShotTime as integer
  ReloadTime as integer
  Range as float			`attack range- distance in which attacked object will be followed
  MoveTarget as integer	`Object to be followed
  AttackTarget as integer	`Object to be attacked
  IsMoving as integer		`if is moving
  IsFollowing as integer	`if is following
  Dx as float				`destination coordinates
  Dy as float
  Dz as float
endtype

type DestroyedUnits   `u can add more stats in here, atm for program work need only "target" variable
  exist as integer
  Name as string
  MaxHp as integer
  Dmg as integer
  MaxSpeed as float		
  Traction as float		`acelleration
  RotationSpeed as float	`how fast object rotates
  ProjectileType as integer 
  ReloadTime as integer
  Range as float			`attack range- distance in which attacked object will be followed
endtype

type Projectiles   		`projectiles for units to shoot with
  Object as integer
  type as integer 		`0-not exists, 1-bullet, 2-explosive, 3-rocket
  dmg as integer	
  Speed as float
  ParentObject as integer
  AttackTarget as integer	`Object to be followed if projectile is rocket
  startX as float
  startY as float
  startZ as float
  Range as float
endtype

`--- Variables ---

global activeID as integer    `selected object number
global TotalUnitCount as integer	`total number of Your controllable units
TotalUnitCount= UnitCount + VehiclesCount + BuildingsCount
global MovableUnitCount as integer	`total number of Your movable units
MovableUnitCount= UnitCount + VehiclesCount
global failed as integer
failed=0

`--- Arrays ---

`array of all your controlable objects (units, soldiers, robots or whatever u use in game 
dim Unit(TotalUnitCount+10) as units 
dim Projectile(ProjectilesCount) as Projectiles
dim DestroyedUnit(destroyedUnitsCount) as DestroyedUnits

`------------------------------------------------------------------------------------------
`--- Program start ---
`------------------------------------------------------------------------------------------

Setup()   			`program setup
TerrainSetup()  	`make and set up terrain
LoadMenuPanel()		`load sprites for in game menu
MakeBoxes()   		`make random objects just for testing, remove later
MakeSelectionIndicator()	`make objects to be shown above selected objects 
							`and at their destination coordinates

`------------------------------------------------------------------------------------------
`--- Main Loop ---
`------------------------------------------------------------------------------------------

do
  
  `camera movement
  MoveCamera()  
  
  `left mouse click: select object
  if mouseclick()= 1 then activeID= SelectObjects() 
   
  `place indicators over selected object and its target position 
  `(can load your own object like sword, target sign and etc.)
  SelectionIndicator(activeID)   
  
  `right mouse click: set active object's target as a point on map or other object
  if mouseclick()= 2 then MakeTarget()  
  
  `When all actions are made its time to move all the objects (if they should move ofc) 
  MoveObjects()
  
  CheckNewTargets()
  
  Attack()
  
  MoveProjectiles()
  
  `paste sprites and later print text, so text don't disappear behind sprites
  `thx to Phaelax
  `more about text over sprites here: 
  `http://forum.thegamecreators.com/?m=forum_view&t=171622&b=1
  RefreshSprites()
  `when u encounter problems with new functions added, print variables to see 
  `if your functions give right answers, very usefull for debugging
  Info()
  
  `Selected object/unit info
  ObjectInfo()
    
  update terrain   `apply all the changes to terrain
  sync  `apply all the changes to screen

loop

`------------------------------------------------------------------------------------------
`--- Functions and procedures ---
`------------------------------------------------------------------------------------------

function Setup()`program setup

sync on			`automatic screen refresh on
sync rate 500	`refresh rate (i think it is times per second)
`i set such a high rate to see what highest actual frame rate my pc can reach 
`i dont know what rate is recomemnded, but mostly used in tutorials it is 60 or 90

`when new objects are created camera isnt positioned at coordinates of new object
autocam off

`width and height in pixels and how much colors will contain 
`(not sure but should be 16 or 32 bits)
set display mode 1024,768,32	
								
set camera range 10,10000	`how far objects will be visible from 10 units to 10000 units

Fog on						`u know what fog is :D
Fog distance 15000			`this is distance in which u can't see anything through fog
							`it makes less colorful objects in smaller distance too
							`if u remove fog, skybox will be very bright
Fog color RGB(128,128,128)	`fog color- grey

maximize window		`make full screen

randomize timer()	`set starting value for random() function 
					`every time u run program random numbers will be different

xrotate camera 20	`point camera little down

`hide mouse			`U can hide mouse cursor if want. I like to see it :P
					`later U can put some image instead of cursor i.e. target

`re-calculates the normals of each polygon in an object 
`for the purpose of working out the rendering of each of the polygons
set normalization on

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function TerrainSetup()	`make and set up terrain

set dir "media\DefaultMap\"   		` set the directory to map's location (2 levels higher)

` load base and detail texture
load image "texture.bmp", 1
load image "detail.tga", 2

make object terrain 1                              ` create the terrain object
set terrain heightmap 1, "map.bmp"                 ` set the heightmap
set terrain scale 1, 3, 0.1, 3                     ` set the scale
set terrain split 1, 16                            ` split value by 16 * 16
set terrain tiling 1, 4                            ` detail map tiling
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5  ` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain texture 1, 1, 2                        ` base and detail texture
build terrain 1                                    ` finally build the terrain
position object 1, 0,0,0						   ` position terrain at zero coordinates
sc_setupComplexObject 1,1,2                        ` setup collision on the terrain

set dir ".."  			` reset the directory (1 level lower to media\)
set dir "Skybox\"  		` set the directory to skybox's location

`load our skybox (this is very low quality, u can find smth better)
`this file has images asociated (1-6 jpg images in media directory). 
`U can change or edit them
load object "skybox.x", 6

set object light 6, 0
set object texture 6, 3, 1	`not sure what it should do, but it improves skybox texture :)

position object 6, 500, 50, 500			`~in middle of terrain
scale object 6, 10000, 10000, 10000		`make skybox big!

set dir ".."  `reset the directory back to media\

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveCamera()

`keyboard input for movement
   if upkey()=1 then move camera 3
   if downkey()=1 then move camera -3
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

`find out the camera height
   x#=camera position x()
   z#=camera position z()
   y#=get terrain ground height(1,x#,z#)+30

`position the camera
   position camera x#,y#,z#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectObjects()

`function to pick any object's whose number is between 10 and TotalUnitCount+10
  `using screen coordinates
  which= pick object(mousex(),mousey(),10,TotalUnitCount+10)
 
endfunction which	`return value which object was selected, if 0 then none of objects

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeBoxes()  `make 20 random boxes

make object box 8,10,7,15		`make object
  make mesh from object 1, 8	`extract shape of object
  make object box 9,5,4,7		`make object
  make mesh from object 2, 9	`extract shape of object
  delete object 8
  delete object 9
  a=10+UnitCount
  b=a+10
  for i= a to b				`10 times
    make object box i,10,3,15	`make box
    add limb i, 1, 1			`add a part for object, parts shape is mesh 1
    offset limb i, 1, 0, 0, 1	`position part of object in local coordinates
    hide limb i, 1				`hide- make that part invisible
    add limb i, 2, 2			
    offset limb i, 2, 0, 2, -1
  
    x=rnd(200)+50				`get random x and z coordinates
    z=rnd(200)+50
    y=get terrain ground height (1,x,z)	`get height in that point
    position object i,x,y+4,z			`position object +4 units above ground
    rotate object i,0,rnd(100),0		`random rotate object object
    color object i,rgb(0,255,0)			`color object- green
    
    Unit(i).Stance=1
    Unit(i).Exist=1
    Unit(i).LastShotTime=0
	Unit(i).ReloadTime=200		`miliseconds
	Unit(i).ProjectileType=1
    Unit(i).Name="Machinegunner Box"
    Unit(i).Hp=100
    Unit(i).Dmg=6
    Unit(i).Def=3
    Unit(i).RotationSpeed=1.5
    unit(i).maxspeed=0.6
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.015
    Unit(i).Team=1
    Unit(i).Range=16000	`squared(^2)
  next i
  a=b+1
  b=a+10
for i= a to b			`make 10 more boxes in other team
    make object box i,10,4,15
    add limb i, 1, 1
    offset limb i, 1, 0, 0, 1
    hide limb i, 1
    add limb i, 2, 2			
    offset limb i, 2, 0, 2, -1
  
    x=rnd(200)+200
    z=rnd(200)+200
    y=get terrain ground height (1,x,z)
    position object i,x,y+4,z
    rotate object i,0,rnd(100),0
    color object i,rgb(128,128,0)	`color boxes "yellow-green" lol
    
    Unit(i).Stance=2
    Unit(i).Exist=1
    Unit(i).LastShotTime=0
	Unit(i).ReloadTime=2000		`miliseconds
	Unit(i).ProjectileType=1
    Unit(i).Name="Cannon Box"
    Unit(i).Hp=120
    Unit(i).Dmg=20
    Unit(i).Def=5
    Unit(i).RotationSpeed=1.0
    unit(i).maxspeed=0.4
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.01
    Unit(i).Team=2
    Unit(i).Range=16000		`this is squared (^2) 
  next i

a=10+MovableUnitCount
  b=a+3
for i= a to b			`make 3 more boxes as buildings
    
    make object box i,15,10,20
  
    x=rnd(200)+50
    z=rnd(200)+50
    y=get terrain ground height (1,x,z)
    position object i,x,y+4,z
    rotate object i,0,rnd(100),0
    color object i,rgb(128,128,128)	`color boxes "grey"
    
    Unit(i).Exist=1
    Unit(i).Name="Base"
    Unit(i).Hp=500
    Unit(i).Def=5
    Unit(i).Team=1
    
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectionIndicator(obj)   `indicator handler

if obj=0:   `if no objects selected
      if object visible(2)=1:   `if indicator visible
        hide object (2) 		`make it invisible
      endif
    else 	`if some object is selected
      if object visible(2)=0:	`if indicator is not visible
        show object (2)		    `make it visible
      endif
      `position indicator +10 units above your selected object
      if Object exist (obj) then position object 2,object position x (obj),object position y (obj)+10,object position z(obj)	
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeSelectionIndicator()	`make objects for indicators

make object cone 2, 5	`for active object
zrotate object 2, 180 	`rotate/point down
set object 2, 1, 1, 0	`don't know what this does
color object 2,RGB(0, 255, 0)  		`green color

make object cone 3, 5	`to mark target-coordinates on map
zrotate object 3, 180 	`rotate/point down
set object 3, 1, 1, 0
color object 3,RGB(255, 255, 0)		`yellow color

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Info()

`str$(a) function returns integer, float or other type variable as string
`"text x,y, string" function can't print other variables than strings
`strings can be added to each other i.e. "cat"+"dog"+str$(2)="catdog2"

text 10,20,"FPS :" + str$(Screen FPS())			`frames per second (how many times screen refreshes)
												`determines how hard program is for pc, fps will go down if pc is too weak
												`my 1.8Ghz, 1.5Gb Ram machine shows 80-90 in this program stage. 
												`as more functions are added it should slow down
text 10,40,"Left mouse click to select object"
text 10,55,"Right mouse click to place target/target object"

text 10,90,"Object selected: "+str$(activeID)   `selected, active object
text 10,200,"Failed: "+str$(Failed)	
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function object_distance_squared(a,b) 	`returns distance between objects squared
 										`(distance^2 or distance*distance)

w#= (object position x(a)-object position x(b))^2	`difference in x axis ^2
h#= (object position y(a)-object position y(b))^2	`difference in y axis ^2
l#= (object position z(a)-object position z(b))^2	`difference in z axis ^2

d#= l#+w#+h#	`summ up all distances (like pitagores just in 3D)
				`if u want to get real distance use d#= sqrt(l#+w#+h#)
				`but square root is calculated long, so if u make many calculations
				`program can slow down signicicantly

endfunction d#

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Projectile_distance(a) 	`similar to object_distance_squared
`remstart
w#= (object position x(projectile(a).Object)-projectile(a).StartX)^2	`difference in x axis ^2
h#= (object position y(projectile(a).Object)-projectile(a).StartY)^2	`difference in y axis ^2
l#= (object position z(projectile(a).Object)-projectile(a).StartZ)^2	`difference in z axis ^2

d#= l#+w#+h#

OutOfRange=0
if projectile(a).range<d# then OutOfRange=1
`remend
endfunction OutOfRange

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function LoadMenuPanel()	`this will load sprites for menu

set dir "Sprites\"	`directory for sprites
  load image "MiniMap.bmp",3	`minimap in left corner
  sprite 1,0,600,3
  hide sprite 1
  load image "Panel.bmp",4		`will be info about selected unit/object
  sprite 2,250,600,4
  hide sprite 2
  set dir ".."			`reset directory to media\
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeTarget()	`place target indicator if needed (i cant comment this funtion well, because its no my made.
						`forum link for it: http://forum.thegamecreators.com/?m=forum_view&t=79830&b=1
  obj=SelectObjects()	`targeted object number
  if obj=0		`if none objects selected
    mX = mouseX()
    mY = mouseY()
    cx# = camera position x()
    cy# = camera position y()
    cz# = camera position z()
    pickState = Pick Object (mX, mY, 1, 1)
    If pickState <> 0	`if nothing selected
      Dist# = Get Pick Distance()
      Pick Screen mX, mY, Dist#
      indX# = cx# + get pick vector x()
      indY# = cy# + get pick vector y()
      indZ# = cz# + get pick vector z()
      Position Object 3, indX#, indY#+3, indZ#	`position indicator on terrain
      Unit(ActiveID).Dx=indX#	`set units destination coordinates
      Unit(ActiveID).Dy=indY#
      Unit(ActiveID).Dz=indZ#
      Unit(ActiveID).IsFollowing=0	`no more folowing or attacking
      unit(i).movetarget=0
      unit(i).attacktarget=0
      Unit(ActiveID).IsMoving=1		`start moving to destination coordinates	
      if unit(ActiveID).MoveTarget<>0 then unit(ActiveID).MoveTarget=0
      if object visible(3)=0 then show object (3)	`show destination point indicator
    EndIf
  else
    unit(ActiveID).MoveTarget=obj	`set units target value to selected object
    `if target object is enemy, set attack target
    if unit(ActiveID).MoveTarget>0 and unit(obj).Team<>unit(ActiveID).Team
      unit(ActiveID).AttackTarget=obj
    else
      unit(ActiveID).AttackTarget=0
    endif
    Unit(ActiveID).IsMoving=0	`no more moving to destination coordinates
    Unit(ActiveID).IsFollowing=1	`start folowing
    if object visible(3)=1 then hide object (3) `hide destination point indicator
  endif
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function ObjectInfo()   `write selected object information
  
  if activeID<>0
    if activeID>=10+UnitCount and activeID<10+MovableUnitCount
      text 610, 680, "Name: "+ Unit(ActiveID).Name
	  text 610, 695, "Team: "+ str$(Unit(ActiveID).Team)
	  text 610, 710, "Hp:   "+ str$(Unit(ActiveID).Hp)
	  text 610, 725, "Dmg:  "+ str$(Unit(ActiveID).Dmg)
	endif
	if activeID>=10+MovableUnitCount and activeID<10+TotalUnitCount
      text 610, 680, "Name: "+ Unit(ActiveID).Name
	  text 610, 695, "Team: "+ str$(Unit(ActiveID).Team)
	  text 610, 710, "Hp:   "+ str$(Unit(ActiveID).Hp)
	endif
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function RefreshSprites()

paste sprite 1,0,600
  paste sprite 2,250,600

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Attack()

for i=10 to MovableUnitCount+10  `for all movable objects
    if unit(i).AttackTarget<>0 
      if object_distance_squared(i,unit(i).AttackTarget)<unit(i).range
        Time=timer()
        if Unit(i).LastShotTime+Unit(i).ReloadTime< Time
          MakeProjectile(i)
          Unit(i).LastShotTime=Time
        endif
      endif				
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeProjectile(ID)

found=0
  i=0

while found=0 and i<ProjectilesCount-1
    inc i, 1
    if projectile(i).type=0
      found=i
  	endif 
  endwhile
  projectile(i).type=1
  n=i+TotalUnitCount+10
  if object exist (n) then delete object n
  Make object sphere n, 10
  color object n,rgb(128,128,128)
  projectile(i).Object=n
  scale object n, 10,10,50
  x=object position x(ID)
  y=object position y(ID)
  z=object position z(ID)
  projectile(i).Startx=x
  projectile(i).Starty=y
  projectile(i).Startz=z
  Position Object n,x,y,z
  Point Object n, object position x(Unit(ID).attacktarget),object position y(Unit(ID).attacktarget),object position z(Unit(ID).attacktarget)
  projectile(i).Range=Unit(ID).Range
  projectile(i).dmg=Unit(ID).dmg
  projectile(i).speed=5.0
  projectile(i).ParentObject=ID		`object who shot projectile- not to check collision with it

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveProjectiles()
  col=0
  for i= 0 to ProjectilesCount 
    if projectile(i).type>0
      if Projectile(i).type=1
        Move Object projectile(i).object, projectile(i).speed
        col=OBJECT COLLISION(projectile(i).object, 0)
        if col>=10 and col<=TotalUnitCount and col<>projectile(i).ParentObject
          a=projectile(i).dmg-unit(col).Def
          if a>0 then dec unit(col).Hp,a
          DestroyProjectile(i)
          ProjectileDestroyed=1
          if unit(col).Hp<1 then DestroyObject(col)
        else
          if Projectile_distance(i)=1 then DestroyProjectile(i)
        endif
      endif 				
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function DestroyObject(ID)

for i=10 to TotalUnitCount+10
    if Unit(i).Movetarget=ID
      Unit(i).IsFollowing=0
      Unit(i).Movetarget=0
    endif
    if Unit(i).Attacktarget=ID then Unit(i).Attacktarget=0 
  next i
  
  found=0
  i=0
  while found=0 and i<DestroyedUnitsCount-10
    inc i, 1
    if DestroyedUnit(i).exist=0
      found=i
  	endif 
  endwhile
  if limb exist (ID, 1) then remove limb ID, 1
  make mesh from object 1, ID
  m=10+TotalUnitCount+OtherObjectsCount+i
  make object m,1,0
  color object m, RGB (10,10,0)
  position object m, Object position x (ID), Object position y (ID), Object position z (ID) 
  rotate object m, Object angle x (ID), Object angle y (ID),Object angle z (ID)
  DestroyedUnit(i).exist =1
  DestroyedUnit(i).Name = Unit(ID).Name
  DestroyedUnit(i).MaxHp =Unit(ID).Maxhp 
  DestroyedUnit(i).Dmg =Unit(ID).dmg
  DestroyedUnit(i).MaxSpeed =Unit(ID).MaxSpeed		
  DestroyedUnit(i).Traction =Unit(ID).traction
  DestroyedUnit(i).RotationSpeed =Unit(ID).RotationSpeed
  DestroyedUnit(i).ProjectileType = Unit(ID).ProjectileType
  DestroyedUnit(i).ReloadTime =Unit(ID).ReloadTime
  DestroyedUnit(i).Range =Unit(ID).Range
  Unit(ID).Name=""
  Unit(ID).Exist=0
  Unit(ID).Team=0
  Unit(ID).Maxhp=0
  Unit(ID).hp=0
  Unit(ID).dmg=0 
  Unit(ID).MaxSpeed=0 
  Unit(ID).Speed=0 
  Unit(ID).traction=0 
  Unit(ID).RotationSpeed=0 
  Unit(ID).Range=0 
  Unit(ID).ProjectileType=0 
  Unit(ID).LastShotTime=0 
  Unit(ID).ReloadTime=0 
  Unit(ID).MoveTarget=0 
  Unit(ID).AttackTarget=0 
  Unit(ID).IsMoving=0 
  Unit(ID).IsFollowing=0 
  Unit(ID).Dx=0 
  Unit(ID).Dy=0 
  Unit(ID).Dz=0 
  Delete Object ID

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function DestroyProjectile(ID)

delete object (projectile(ID).object)
  projectile(ID).Object=0 
  projectile(ID).type=0  
  projectile(ID).dmg=0  	
  projectile(ID).Speed=0 
  projectile(ID).ParentObject=0 
  projectile(ID).AttackTarget=0

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function CheckNewTargets()
  found=0
  b=10+TotalUnitCount
  for i=10 to b
    if unit(i).exist=1
      if unit(i).attacktarget=0 and unit(i).stance>0
         for n=10 to b
          while n<b and found=0
            inc n
            if n<>i and unit(n).exist=1 and unit(n).team<>unit(i).team
              if object_distance_squared(i,n)<unit(i).range
                found=1
                unit(i).attacktarget=n
                if unit(i).stance=2 then unit(i).movetarget=n
              endif
            endif
          endwhile  
        next n
      endif
    endif  
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObjects()

for i=10 to MovableUnitCount+9  `for all controllable objects
   if unit(i).exist=1
    if unit(i).IsMoving <>0			`if object is moving to destination point
        MoveObject(i)					`then move it
      if abs(unit(i).dx-object position x(i))<5 and abs(unit(i).dz-object position z(i))<5	`if at destination. stop object
        unit(i).Ismoving=0			`if reached destination point then stop
      endif
    endif
    if unit(i).IsFollowing <>0		`if object is folowing other object
      if unit(unit(i).MoveTarget).Team=unit(i).Team
        if object_distance_squared (i,Unit(i).MoveTarget)>FollowDistance `if is too far
          FollowObject(i)				`then move it towards target
        endif
      else
        if object_distance_squared (i,Unit(i).MoveTarget)>Unit(i).Range-10 then FollowObject(i) 
      endif
    endif
   endif 
 next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObject(ID)	`made by Neuro Fuzzy, this is little edited to suit this program
						`link to His tutorial: http://www.neurofuzzydev.com/V/D/43a.htm
						`link to download full vectors tutorial: 
						`http://forum.thegamecreators.com/?m=forum_view&t=133126&b=7
  
  Angle# = GetShortestAngle(object position x(ID), object position z(ID), object angle y(ID), Unit(ID).dx, Unit(ID).dy)

Rem PJY - if the selected cube is not pointing at the targeted cube, turn it towards the targeted cube
  if abs(angle#) > 0.5
      Rem PJY - select whether to turn right or left
      if Angle# <= -0.5 then turn object right ID, Unit(ID).RotationSpeed
      if Angle# >= 0.5 then turn object left ID, Unit(ID).RotationSpeed
  endif
  
  Rem PJY - now depending on the angle and the distance between the cubes
  Rem PJY - we move the selected cube. The reason for the following code is that
  Rem PJY - without it in certain situations the seleceted cube could begin
  Rem PJY - "orbiting" the targeted cube, i.e. where it is moving so much per turn
  Rem PJY - that it is not decreasing the angle
  
  `all of the following code meaning is to slow down object 
  `when it is near or in big angle with it destination point
  `the best way to set angles, distances and slow down/acelerate values
  `is to experiment. 
  `all these values varie with different box sizes, speeds, stop distances 
  
  `if object is pointing ~ at its target then acelerate till max speed
  if angle# < 1	
    if unit(ID).speed<unit(ID).maxspeed then unit(ID).speed=unit(ID).speed+unit(ID).traction	
  endif
  
  `if object is pointing sharp angle at its target then acelerate till max speed/1.5
  if angle# => 1 AND angle# < 10	
	if unit(ID).speed<unit(ID).maxspeed/1.5
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing bigger angle at its target then acelerate till max speed/2
  if angle# => 10 AND angle# < 90 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/2
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing away from its target then acelerate till max speed/8
  if angle# => 90 AND angle# < 120 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/8
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing away from its target and distance is small
  `then acelerate till max speed/10
  if angle# => 120 AND distance# > 10
	if unit(ID).speed<unit(ID).maxspeed/10
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, slow down
	endif
  endif
  
  `i added this by experimenting with boxes, to slow down even more
  if angle# => 80 AND distance# < 20
	if unit(ID).speed<unit(ID).maxspeed/20
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.02	`if too fast, slow down
	endif
  endif
 
  move object ID, unit(ID).speed  `when we set units speed, now can finally move it, YeY!
  
  `get coordinates of object 
  Ox#=object position x(ID)
  Oz#=object position z(ID)
  Oy#=get terrain ground height (1,Ox#,Oz#)+4
  `and place it on terrain
  position object ID,Ox#,Oy#,Oz#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function FollowObject(ID)   `this is a simple function,

`which changes object destination coordinates into followed object coordinates, 
Unit(ID).dx=object Position X(Unit(ID).Movetarget)
Unit(ID).dz=object Position Z(Unit(ID).Movetarget)
`and then calls MoveObject() function to move object
MoveObject(ID)

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

`made by Neuro Fuzzy

function GetShortestAngle(x as float, y as float, angle as float, x2 as float, y2 as float)
    ang# = wrapvalue(angle-atanfull(x2-x,y2-y))
	 if ang#>180 then ang#=ang#-360
endfunction ang#

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

+ Code Snippet

Remstart
	Today, February 01, 2011, 8:31:10 PM
	Project: Terrain
	*Load map
	*Select objects
	*Move camera
	*Move objects to point on map
	*Follow enemies and friendly differently
	*Smooth rotation and speed until reach target
	*Added 2 sprites and text over them
	*different team object can be attacked
Remend

`--- Constants ---

#constant UnitCount 200		`maximum number of each type of objects
#constant VehiclesCount 100
#constant BuildingsCount 100
#constant ProjectilesCount 100
#constant OtherObjectsCount 100
#constant DestroyedUnitsCount 300
#constant FollowDistance 500.0 `this is squared (^2) 
`because square root in get_distance function would slow down program a little

`--- Types ---

type Units   `u can add more stats in here, atm for program work need only "target" variable
  Stance as integer `0-passive, 2-defensive, 3-agresive
  Name as string
  Exist as integer	`0-not egzist, 1-egzist
  Team as integer
  MaxHp as integer
  Hp as integer
  Dmg as integer
  Def as integer
  MaxSpeed as float		
  Speed as float
  Traction as float		`acelleration
  RotationSpeed as float	`how fast object rotates
  ProjectileType as integer 
  LastShotTime as integer
  ReloadTime as integer
  Range as float			`attack range- distance in which attacked object will be followed
  MoveTarget as integer	`Object to be followed
  AttackTarget as integer	`Object to be attacked
  IsMoving as integer		`if is moving
  IsFollowing as integer	`if is following
  Dx as float				`destination coordinates
  Dy as float
  Dz as float
endtype

type DestroyedUnits   `u can add more stats in here, atm for program work need only "target" variable
  exist as integer
  Name as string
  MaxHp as integer
  Dmg as integer
  MaxSpeed as float		
  Traction as float		`acelleration
  RotationSpeed as float	`how fast object rotates
  ProjectileType as integer 
  ReloadTime as integer
  Range as float			`attack range- distance in which attacked object will be followed
endtype

type Projectiles   		`projectiles for units to shoot with
  Object as integer
  type as integer 		`0-not exists, 1-bullet, 2-explosive, 3-rocket
  dmg as integer	
  Speed as float
  ParentObject as integer
  AttackTarget as integer	`Object to be followed if projectile is rocket
  startX as float
  startY as float
  startZ as float
  Range as float
endtype

`--- Variables ---

global activeID as integer    `selected object number
global TotalUnitCount as integer	`total number of Your controllable units
TotalUnitCount= UnitCount + VehiclesCount + BuildingsCount
global MovableUnitCount as integer	`total number of Your movable units
MovableUnitCount= UnitCount + VehiclesCount
global failed as integer
failed=0

`--- Arrays ---

`array of all your controlable objects (units, soldiers, robots or whatever u use in game 
dim Unit(TotalUnitCount+10) as units 
dim Projectile(ProjectilesCount) as Projectiles
dim DestroyedUnit(destroyedUnitsCount) as DestroyedUnits  

`------------------------------------------------------------------------------------------
`--- Program start ---
`------------------------------------------------------------------------------------------

Setup()   			`program setup
TerrainSetup()  	`make and set up terrain
LoadMenuPanel()		`load sprites for in game menu
MakeBoxes()   		`make random objects just for testing, remove later
MakeSelectionIndicator()	`make objects to be shown above selected objects 
							`and at their destination coordinates

`------------------------------------------------------------------------------------------
`--- Main Loop ---
`------------------------------------------------------------------------------------------

do
  
  `camera movement
  MoveCamera()  
  
  `left mouse click: select object
  if mouseclick()= 1 then activeID= SelectObjects() 
   
  `place indicators over selected object and its target position 
  `(can load your own object like sword, target sign and etc.)
  SelectionIndicator(activeID)   
  
  `right mouse click: set active object's target as a point on map or other object
  if mouseclick()= 2 then MakeTarget()  
  
  `When all actions are made its time to move all the objects (if they should move ofc) 
  MoveObjects()
  
  CheckNewTargets()
  
  Attack()
  
  MoveProjectiles()
  
  `paste sprites and later print text, so text don't disappear behind sprites
  `thx to Phaelax
  `more about text over sprites here: 
  `http://forum.thegamecreators.com/?m=forum_view&t=171622&b=1
  RefreshSprites()
  `when u encounter problems with new functions added, print variables to see 
  `if your functions give right answers, very usefull for debugging
  Info()
  
  `Selected object/unit info
  ObjectInfo()
    
  update terrain   `apply all the changes to terrain
  sync  `apply all the changes to screen

loop

`------------------------------------------------------------------------------------------
`--- Functions and procedures ---
`------------------------------------------------------------------------------------------

function Setup()`program setup

sync on			`automatic screen refresh on
sync rate 500	`refresh rate (i think it is times per second)
`i set such a high rate to see what highest actual frame rate my pc can reach 
`i dont know what rate is recomemnded, but mostly used in tutorials it is 60 or 90 

`when new objects are created camera isnt positioned at coordinates of new object
autocam off  

`width and height in pixels and how much colors will contain 
`(not sure but should be 16 or 32 bits)
set display mode 1024,768,32	
								
set camera range 10,10000	`how far objects will be visible from 10 units to 10000 units

Fog on						`u know what fog is :D
Fog distance 15000			`this is distance in which u can't see anything through fog
							`it makes less colorful objects in smaller distance too
							`if u remove fog, skybox will be very bright
Fog color RGB(128,128,128)	`fog color- grey

maximize window		`make full screen

randomize timer()	`set starting value for random() function 
					`every time u run program random numbers will be different

xrotate camera 20	`point camera little down

`hide mouse			`U can hide mouse cursor if want. I like to see it :P
					`later U can put some image instead of cursor i.e. target 

`re-calculates the normals of each polygon in an object 
`for the purpose of working out the rendering of each of the polygons
set normalization on

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function TerrainSetup()	`make and set up terrain

set dir "media\DefaultMap\"   		` set the directory to map's location (2 levels higher)

` load base and detail texture
load image "texture.bmp", 1
load image "detail.tga", 2

make object terrain 1                              ` create the terrain object
set terrain heightmap 1, "map.bmp"                 ` set the heightmap
set terrain scale 1, 3, 0.1, 3                     ` set the scale
set terrain split 1, 16                            ` split value by 16 * 16
set terrain tiling 1, 4                            ` detail map tiling
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5  ` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain texture 1, 1, 2                        ` base and detail texture
build terrain 1                                    ` finally build the terrain
position object 1, 0,0,0						   ` position terrain at zero coordinates
sc_setupComplexObject 1,1,2                        ` setup collision on the terrain

set dir ".."  			` reset the directory (1 level lower to media\)
set dir "Skybox\"  		` set the directory to skybox's location 

`load our skybox (this is very low quality, u can find smth better)
`this file has images asociated (1-6 jpg images in media directory). 
`U can change or edit them
load object "skybox.x", 6	

set object light 6, 0
set object texture 6, 3, 1	`not sure what it should do, but it improves skybox texture :)

position object 6, 500, 50, 500			`~in middle of terrain
scale object 6, 10000, 10000, 10000		`make skybox big!

set dir ".."  `reset the directory back to media\

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveCamera()

   `keyboard input for movement
   if upkey()=1 then move camera 3
   if downkey()=1 then move camera -3
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

   `find out the camera height
   x#=camera position x()
   z#=camera position z()
   y#=get terrain ground height(1,x#,z#)+30

   `position the camera
   position camera x#,y#,z#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectObjects()

  `function to pick any object's whose number is between 10 and TotalUnitCount+10
  `using screen coordinates
  which= pick object(mousex(),mousey(),10,TotalUnitCount+10)
 
endfunction which	`return value which object was selected, if 0 then none of objects

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeBoxes()  `make 20 random boxes

  make object box 8,10,7,15		`make object
  make mesh from object 1, 8	`extract shape of object
  make object box 9,5,4,7		`make object
  make mesh from object 2, 9	`extract shape of object
  delete object 8
  delete object 9
  a=10+UnitCount
  b=a+10
  for i= a to b				`10 times
    make object box i,10,3,15	`make box
    add limb i, 1, 1			`add a part for object, parts shape is mesh 1
    offset limb i, 1, 0, 0, 1	`position part of object in local coordinates
    hide limb i, 1				`hide- make that part invisible
    add limb i, 2, 2			
    offset limb i, 2, 0, 2, -1
  
    x=rnd(200)+50				`get random x and z coordinates
    z=rnd(200)+50
    y=get terrain ground height (1,x,z)	`get height in that point
    position object i,x,y+4,z			`position object +4 units above ground
    rotate object i,0,rnd(100),0		`random rotate object object
    color object i,rgb(0,255,0)			`color object- green
    
    Unit(i).Stance=1
    Unit(i).Exist=1
    Unit(i).LastShotTime=0
	Unit(i).ReloadTime=200		`miliseconds
	Unit(i).ProjectileType=1
    Unit(i).Name="Machinegunner Box"
    Unit(i).Hp=100
    Unit(i).Dmg=6
    Unit(i).Def=3
    Unit(i).RotationSpeed=1.5
    unit(i).maxspeed=0.6
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.015
    Unit(i).Team=1
    Unit(i).Range=16000	`squared(^2)
  next i
  a=b+1
  b=a+10
for i= a to b			`make 10 more boxes in other team
    make object box i,10,4,15
    add limb i, 1, 1
    offset limb i, 1, 0, 0, 1
    hide limb i, 1
    add limb i, 2, 2			
    offset limb i, 2, 0, 2, -1
  
    x=rnd(200)+200
    z=rnd(200)+200
    y=get terrain ground height (1,x,z)
    position object i,x,y+4,z
    rotate object i,0,rnd(100),0
    color object i,rgb(128,128,0)	`color boxes "yellow-green" lol
    
    Unit(i).Stance=2
    Unit(i).Exist=1
    Unit(i).LastShotTime=0
	Unit(i).ReloadTime=2000		`miliseconds
	Unit(i).ProjectileType=1
    Unit(i).Name="Cannon Box"
    Unit(i).Hp=120
    Unit(i).Dmg=20
    Unit(i).Def=5
    Unit(i).RotationSpeed=1.0
    unit(i).maxspeed=0.4
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.01
    Unit(i).Team=2
    Unit(i).Range=16000		`this is squared (^2) 
  next i

  a=10+MovableUnitCount
  b=a+3
for i= a to b			`make 3 more boxes as buildings
    
    make object box i,15,10,20
  
    x=rnd(200)+50
    z=rnd(200)+50
    y=get terrain ground height (1,x,z)
    position object i,x,y+4,z
    rotate object i,0,rnd(100),0
    color object i,rgb(128,128,128)	`color boxes "grey"
    
    Unit(i).Exist=1
    Unit(i).Name="Base"
    Unit(i).Hp=500
    Unit(i).Def=5
    Unit(i).Team=1
    
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectionIndicator(obj)   `indicator handler

  if obj=0:   `if no objects selected
      if object visible(2)=1:   `if indicator visible
        hide object (2) 		`make it invisible
      endif
    else 	`if some object is selected
      if object visible(2)=0:	`if indicator is not visible
        show object (2)		    `make it visible
      endif
      `position indicator +10 units above your selected object
      if Object exist (obj) then position object 2,object position x (obj),object position y (obj)+10,object position z(obj)	
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeSelectionIndicator()	`make objects for indicators

make object cone 2, 5	`for active object
zrotate object 2, 180 	`rotate/point down
set object 2, 1, 1, 0	`don't know what this does
color object 2,RGB(0, 255, 0)  		`green color

make object cone 3, 5	`to mark target-coordinates on map
zrotate object 3, 180 	`rotate/point down
set object 3, 1, 1, 0
color object 3,RGB(255, 255, 0)		`yellow color

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Info()

`str$(a) function returns integer, float or other type variable as string
`"text x,y, string" function can't print other variables than strings
`strings can be added to each other i.e. "cat"+"dog"+str$(2)="catdog2"

text 10,20,"FPS :" + str$(Screen FPS())			`frames per second (how many times screen refreshes)
												`determines how hard program is for pc, fps will go down if pc is too weak
												`my 1.8Ghz, 1.5Gb Ram machine shows 80-90 in this program stage. 
												`as more functions are added it should slow down
text 10,40,"Left mouse click to select object"
text 10,55,"Right mouse click to place target/target object"

text 10,90,"Object selected: "+str$(activeID)   `selected, active object
text 10,200,"Failed: "+str$(Failed)	
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function object_distance_squared(a,b) 	`returns distance between objects squared
 										`(distance^2 or distance*distance)

w#= (object position x(a)-object position x(b))^2	`difference in x axis ^2
h#= (object position y(a)-object position y(b))^2	`difference in y axis ^2
l#= (object position z(a)-object position z(b))^2	`difference in z axis ^2

d#= l#+w#+h#	`summ up all distances (like pitagores just in 3D)
				`if u want to get real distance use d#= sqrt(l#+w#+h#)
				`but square root is calculated long, so if u make many calculations
				`program can slow down signicicantly

endfunction d#

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Projectile_distance(a) 	`similar to object_distance_squared
`remstart
w#= (object position x(projectile(a).Object)-projectile(a).StartX)^2	`difference in x axis ^2
h#= (object position y(projectile(a).Object)-projectile(a).StartY)^2	`difference in y axis ^2
l#= (object position z(projectile(a).Object)-projectile(a).StartZ)^2	`difference in z axis ^2

d#= l#+w#+h#

OutOfRange=0
if projectile(a).range<d# then OutOfRange=1
`remend
endfunction OutOfRange

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function LoadMenuPanel()	`this will load sprites for menu

  set dir "Sprites\"	`directory for sprites
  load image "MiniMap.bmp",3	`minimap in left corner
  sprite 1,0,600,3
  hide sprite 1
  load image "Panel.bmp",4		`will be info about selected unit/object
  sprite 2,250,600,4
  hide sprite 2
  set dir ".."			`reset directory to media\
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeTarget()	`place target indicator if needed (i cant comment this funtion well, because its no my made.
						`forum link for it: http://forum.thegamecreators.com/?m=forum_view&t=79830&b=1
  obj=SelectObjects()	`targeted object number
  if obj=0		`if none objects selected
    mX = mouseX()
    mY = mouseY()
    cx# = camera position x()
    cy# = camera position y()
    cz# = camera position z()
    pickState = Pick Object (mX, mY, 1, 1)
    If pickState <> 0	`if nothing selected
      Dist# = Get Pick Distance()
      Pick Screen mX, mY, Dist#
      indX# = cx# + get pick vector x()
      indY# = cy# + get pick vector y()
      indZ# = cz# + get pick vector z()
      Position Object 3, indX#, indY#+3, indZ#	`position indicator on terrain
      Unit(ActiveID).Dx=indX#	`set units destination coordinates
      Unit(ActiveID).Dy=indY#
      Unit(ActiveID).Dz=indZ#
      Unit(ActiveID).IsFollowing=0	`no more folowing or attacking
      unit(i).movetarget=0
      unit(i).attacktarget=0
      Unit(ActiveID).IsMoving=1		`start moving to destination coordinates	
      if unit(ActiveID).MoveTarget<>0 then unit(ActiveID).MoveTarget=0
      if object visible(3)=0 then show object (3)	`show destination point indicator
    EndIf
  else
    unit(ActiveID).MoveTarget=obj	`set units target value to selected object
    `if target object is enemy, set attack target
    if unit(ActiveID).MoveTarget>0 and unit(obj).Team<>unit(ActiveID).Team
      unit(ActiveID).AttackTarget=obj
    else
      unit(ActiveID).AttackTarget=0
    endif
    Unit(ActiveID).IsMoving=0	`no more moving to destination coordinates
    Unit(ActiveID).IsFollowing=1	`start folowing
    if object visible(3)=1 then hide object (3) `hide destination point indicator
  endif
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function ObjectInfo()   `write selected object information
  
  if activeID<>0
    if activeID>=10+UnitCount and activeID<10+MovableUnitCount
      text 610, 680, "Name: "+ Unit(ActiveID).Name
	  text 610, 695, "Team: "+ str$(Unit(ActiveID).Team)
	  text 610, 710, "Hp:   "+ str$(Unit(ActiveID).Hp)
	  text 610, 725, "Dmg:  "+ str$(Unit(ActiveID).Dmg)
	endif
	if activeID>=10+MovableUnitCount and activeID<10+TotalUnitCount
      text 610, 680, "Name: "+ Unit(ActiveID).Name
	  text 610, 695, "Team: "+ str$(Unit(ActiveID).Team)
	  text 610, 710, "Hp:   "+ str$(Unit(ActiveID).Hp)
	endif
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function RefreshSprites() 

  paste sprite 1,0,600
  paste sprite 2,250,600

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Attack()

 for i=10 to MovableUnitCount+10  `for all movable objects
    if unit(i).AttackTarget<>0 
      if object_distance_squared(i,unit(i).AttackTarget)<unit(i).range
        Time=timer()
        if Unit(i).LastShotTime+Unit(i).ReloadTime< Time
          MakeProjectile(i)
          Unit(i).LastShotTime=Time
        endif
      endif				
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeProjectile(ID)

  found=0
  i=0

  while found=0 and i<ProjectilesCount-1
    inc i, 1
    if projectile(i).type=0
      found=i
  	endif 
  endwhile
  projectile(i).type=1
  n=i+TotalUnitCount+10
  if object exist (n) then delete object n
  Make object sphere n, 10
  color object n,rgb(128,128,128)
  projectile(i).Object=n
  scale object n, 10,10,50
  x=object position x(ID)
  y=object position y(ID)
  z=object position z(ID)
  projectile(i).Startx=x
  projectile(i).Starty=y
  projectile(i).Startz=z
  Position Object n,x,y,z
  Point Object n, object position x(Unit(ID).attacktarget),object position y(Unit(ID).attacktarget),object position z(Unit(ID).attacktarget)
  projectile(i).Range=Unit(ID).Range
  projectile(i).dmg=Unit(ID).dmg
  projectile(i).speed=5.0
  projectile(i).ParentObject=ID		`object who shot projectile- not to check collision with it

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveProjectiles()
  col=0
  for i= 0 to ProjectilesCount 
    if projectile(i).type>0
      if Projectile(i).type=1
        Move Object projectile(i).object, projectile(i).speed
        col=OBJECT COLLISION(projectile(i).object, 0)
        if col>=10 and col<=TotalUnitCount and col<>projectile(i).ParentObject
          a=projectile(i).dmg-unit(col).Def
          if a>0 then dec unit(col).Hp,a
          DestroyProjectile(i)
          ProjectileDestroyed=1
          if unit(col).Hp<1 then DestroyObject(col)
        else
          if Projectile_distance(i)=1 then DestroyProjectile(i)
        endif
      endif 				
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function DestroyObject(ID)

  for i=10 to TotalUnitCount+10
    if Unit(i).Movetarget=ID
      Unit(i).IsFollowing=0
      Unit(i).Movetarget=0
    endif
    if Unit(i).Attacktarget=ID then Unit(i).Attacktarget=0 
  next i
  
  found=0
  i=0
  while found=0 and i<DestroyedUnitsCount-10
    inc i, 1
    if DestroyedUnit(i).exist=0
      found=i
  	endif 
  endwhile
  if limb exist (ID, 1) then remove limb ID, 1
  make mesh from object 1, ID
  m=10+TotalUnitCount+OtherObjectsCount+i
  make object m,1,0
  color object m, RGB (10,10,0)
  position object m, Object position x (ID), Object position y (ID), Object position z (ID) 
  rotate object m, Object angle x (ID), Object angle y (ID),Object angle z (ID)
  DestroyedUnit(i).exist =1
  DestroyedUnit(i).Name = Unit(ID).Name
  DestroyedUnit(i).MaxHp =Unit(ID).Maxhp 
  DestroyedUnit(i).Dmg =Unit(ID).dmg
  DestroyedUnit(i).MaxSpeed =Unit(ID).MaxSpeed		
  DestroyedUnit(i).Traction =Unit(ID).traction
  DestroyedUnit(i).RotationSpeed =Unit(ID).RotationSpeed
  DestroyedUnit(i).ProjectileType = Unit(ID).ProjectileType
  DestroyedUnit(i).ReloadTime =Unit(ID).ReloadTime
  DestroyedUnit(i).Range =Unit(ID).Range
  Unit(ID).Name=""
  Unit(ID).Exist=0
  Unit(ID).Team=0
  Unit(ID).Maxhp=0
  Unit(ID).hp=0
  Unit(ID).dmg=0 
  Unit(ID).MaxSpeed=0 
  Unit(ID).Speed=0 
  Unit(ID).traction=0 
  Unit(ID).RotationSpeed=0 
  Unit(ID).Range=0 
  Unit(ID).ProjectileType=0 
  Unit(ID).LastShotTime=0 
  Unit(ID).ReloadTime=0 
  Unit(ID).MoveTarget=0 
  Unit(ID).AttackTarget=0 
  Unit(ID).IsMoving=0 
  Unit(ID).IsFollowing=0 
  Unit(ID).Dx=0 
  Unit(ID).Dy=0 
  Unit(ID).Dz=0 
  Delete Object ID

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function DestroyProjectile(ID)

  delete object (projectile(ID).object)
  projectile(ID).Object=0 
  projectile(ID).type=0  
  projectile(ID).dmg=0  	
  projectile(ID).Speed=0 
  projectile(ID).ParentObject=0 
  projectile(ID).AttackTarget=0 

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function CheckNewTargets()
  found=0
  b=10+TotalUnitCount
  for i=10 to b
    if unit(i).exist=1
      if unit(i).attacktarget=0 and unit(i).stance>0
         for n=10 to b
          while n<b and found=0
            inc n
            if n<>i and unit(n).exist=1 and unit(n).team<>unit(i).team
              if object_distance_squared(i,n)<unit(i).range
                found=1
                unit(i).attacktarget=n
                if unit(i).stance=2 then unit(i).movetarget=n
              endif
            endif
          endwhile  
        next n
      endif
    endif  
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObjects()

 for i=10 to MovableUnitCount+9  `for all controllable objects
   if unit(i).exist=1
    if unit(i).IsMoving <>0			`if object is moving to destination point
        MoveObject(i)					`then move it
      if abs(unit(i).dx-object position x(i))<5 and abs(unit(i).dz-object position z(i))<5	`if at destination. stop object
        unit(i).Ismoving=0			`if reached destination point then stop
      endif
    endif
    if unit(i).IsFollowing <>0		`if object is folowing other object
      if unit(unit(i).MoveTarget).Team=unit(i).Team
        if object_distance_squared (i,Unit(i).MoveTarget)>FollowDistance `if is too far
          FollowObject(i)				`then move it towards target
        endif
      else
        if object_distance_squared (i,Unit(i).MoveTarget)>Unit(i).Range-10 then FollowObject(i) 
      endif
    endif
   endif 
 next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObject(ID)	`made by Neuro Fuzzy, this is little edited to suit this program
						`link to His tutorial: http://www.neurofuzzydev.com/V/D/43a.htm
						`link to download full vectors tutorial: 
						`http://forum.thegamecreators.com/?m=forum_view&t=133126&b=7
  
  Angle# = GetShortestAngle(object position x(ID), object position z(ID), object angle y(ID), Unit(ID).dx, Unit(ID).dy)

  Rem PJY - if the selected cube is not pointing at the targeted cube, turn it towards the targeted cube
  if abs(angle#) > 0.5
      Rem PJY - select whether to turn right or left
      if Angle# <= -0.5 then turn object right ID, Unit(ID).RotationSpeed
      if Angle# >= 0.5 then turn object left ID, Unit(ID).RotationSpeed
  endif
  
  Rem PJY - now depending on the angle and the distance between the cubes
  Rem PJY - we move the selected cube. The reason for the following code is that
  Rem PJY - without it in certain situations the seleceted cube could begin
  Rem PJY - "orbiting" the targeted cube, i.e. where it is moving so much per turn
  Rem PJY - that it is not decreasing the angle
  
  `all of the following code meaning is to slow down object 
  `when it is near or in big angle with it destination point
  `the best way to set angles, distances and slow down/acelerate values
  `is to experiment. 
  `all these values varie with different box sizes, speeds, stop distances 
  
  `if object is pointing ~ at its target then acelerate till max speed
  if angle# < 1	
    if unit(ID).speed<unit(ID).maxspeed then unit(ID).speed=unit(ID).speed+unit(ID).traction	
  endif
  
  `if object is pointing sharp angle at its target then acelerate till max speed/1.5
  if angle# => 1 AND angle# < 10	
	if unit(ID).speed<unit(ID).maxspeed/1.5
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing bigger angle at its target then acelerate till max speed/2
  if angle# => 10 AND angle# < 90 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/2
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing away from its target then acelerate till max speed/8
  if angle# => 90 AND angle# < 120 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/8
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing away from its target and distance is small
  `then acelerate till max speed/10
  if angle# => 120 AND distance# > 10
	if unit(ID).speed<unit(ID).maxspeed/10
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, slow down
	endif
  endif
  
  `i added this by experimenting with boxes, to slow down even more
  if angle# => 80 AND distance# < 20
	if unit(ID).speed<unit(ID).maxspeed/20
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.02	`if too fast, slow down
	endif
  endif
 
  move object ID, unit(ID).speed  `when we set units speed, now can finally move it, YeY!
  
  `get coordinates of object 
  Ox#=object position x(ID)
  Oz#=object position z(ID)
  Oy#=get terrain ground height (1,Ox#,Oz#)+4
  `and place it on terrain
  position object ID,Ox#,Oy#,Oz#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function FollowObject(ID)   `this is a simple function, 

`which changes object destination coordinates into followed object coordinates, 
Unit(ID).dx=object Position X(Unit(ID).Movetarget)
Unit(ID).dz=object Position Z(Unit(ID).Movetarget)
`and then calls MoveObject() function to move object
MoveObject(ID)

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

`made by Neuro Fuzzy

function GetShortestAngle(x as float, y as float, angle as float, x2 as float, y2 as float)
    ang# = wrapvalue(angle-atanfull(x2-x,y2-y))
	 if ang#>180 then ang#=ang#-360
endfunction ang#


`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

I use unit(ID).dx and unit(ID).dz to store move target coordinates for any movable object, first object's coordinates and angle is taken directly with "object angle..." and "object position..." built in functions. have no clue what could be giving wrong answer from GetShortestAngle function

this is sven's code that doesn't work too:

Remstart
	Today, February 01, 2011, 8:31:10 PM
	Project: Terrain
	*Load map
	*Select objects
	*Move camera
	*Move objects to point on map
	*Follow enemies and friendly differently
	*Smooth rotation and speed until reach target
	*Added 2 sprites and text over them
	*different team object can be attacked
Remend

`--- Constants ---

#constant UnitCount 200		`maximum number of each type of objects
#constant VehiclesCount 100
#constant ProjectilesCount 100
#constant OtherObjectsCount 100
#constant DestroyedUnitsCount 300
#constant FollowDistance 500.0 `this is squared (^2) 
`because square root in get_distance function would slow down program a little

`--- Types ---

type Units   `u can add more stats in here, atm for program work need only "target" variable
  Stance as integer `0-passive, 2-defensive, 3-agresive
  Name as string
  Exist as integer	`0-not egzist, 1-egzist
  Team as integer
  MaxHp as integer
  Hp as integer
  Dmg as integer
  MaxSpeed as float		
  Speed as float
  Traction as float		`acelleration
  RotationSpeed as float	`how fast object rotates
  ProjectileType as integer 
  LastShotTime as integer
  ReloadTime as integer
  Range as float			`attack range- distance in which attacked object will be followed
  MoveTarget as integer	`Object to be followed
  AttackTarget as integer	`Object to be attacked
  IsMoving as integer		`if is moving
  IsFollowing as integer	`if is following
  Dx as float				`destination coordinates
  Dy as float
  Dz as float
endtype

type DestroyedUnits   `u can add more stats in here, atm for program work need only "target" variable
  exist as integer
  Name as string
  MaxHp as integer
  Dmg as integer
  MaxSpeed as float		
  Traction as float		`acelleration
  RotationSpeed as float	`how fast object rotates
  ProjectileType as integer 
  ReloadTime as integer
  Range as float			`attack range- distance in which attacked object will be followed
endtype

type Projectiles   		`projectiles for units to shoot with
  Object as integer
  type as integer 		`0-not exists, 1-bullet, 2-explosive, 3-rocket
  dmg as integer	
  Speed as float
  ParentObject as integer
  AttackTarget as integer	`Object to be followed if projectile is rocket
  startX as float
  startY as float
  startZ as float
  Range as float
endtype

`--- Variables ---

global activeID as integer    `selected object number
global TotalUnitCount as integer	`total number of Your controllable units
TotalUnitCount= UnitCount + VehiclesCount

r = make vector2(1)
    r = make vector2(2)

`--- Arrays ---

`array of all your controlable objects (units, soldiers, robots or whatever u use in game 
dim Unit(TotalUnitCount+10) as units 
dim Projectile(ProjectilesCount) as Projectiles
dim DestroyedUnit(destroyedUnitsCount) as DestroyedUnits

`------------------------------------------------------------------------------------------
`--- Program start ---
`------------------------------------------------------------------------------------------

Setup()   			`program setup
TerrainSetup()  	`make and set up terrain
LoadMenuPanel()		`load sprites for in game menu
MakeBoxes()   		`make random objects just for testing, remove later
MakeSelectionIndicator()	`make objects to be shown above selected objects 
							`and at their destination coordinates

`------------------------------------------------------------------------------------------
`--- Main Loop ---
`------------------------------------------------------------------------------------------

do
  
  `camera movement
  MoveCamera()  
  
  `left mouse click: select object
  if mouseclick()= 1 then activeID= SelectObjects() 
   
  `place indicators over selected object and its target position 
  `(can load your own object like sword, target sign and etc.)
  SelectionIndicator(activeID)   
  
  `right mouse click: set active object's target as a point on map or other object
  if mouseclick()= 2 then MakeTarget()  
  
  `When all actions are made its time to move all the objects (if they should move ofc) 
  MoveObjects()
  
  CheckNewTargets()
  
  `RotateTurrets()
  
  Attack()
  
  MoveProjectiles()
  
  `paste sprites and later print text, so text don't disappear behind sprites
  `thx to Phaelax
  `more about text over sprites here: 
  `http://forum.thegamecreators.com/?m=forum_view&t=171622&b=1
  RefreshSprites()
  `when u encounter problems with new functions added, print variables to see 
  `if your functions give right answers, very usefull for debugging
  Info()
  
  `Selected object/unit info
  ObjectInfo()
    
  update terrain   `apply all the changes to terrain
  sync  `apply all the changes to screen

loop

`------------------------------------------------------------------------------------------
`--- Functions and procedures ---
`------------------------------------------------------------------------------------------

function Setup()`program setup

sync on			`automatic screen refresh on
sync rate 500	`refresh rate (i think it is times per second)
`i set such a high rate to see what highest actual frame rate my pc can reach 
`i dont know what rate is recomemnded, but mostly used in tutorials it is 60 or 90

`when new objects are created camera isnt positioned at coordinates of new object
autocam off

`width and height in pixels and how much colors will contain 
`(not sure but should be 16 or 32 bits)
set display mode 1024,768,32	
								
set camera range 10,10000	`how far objects will be visible from 10 units to 10000 units

Fog on						`u know what fog is :D
Fog distance 15000			`this is distance in which u can't see anything through fog
							`it makes less colorful objects in smaller distance too
							`if u remove fog, skybox will be very bright
Fog color RGB(128,128,128)	`fog color- grey

maximize window		`make full screen

randomize timer()	`set starting value for random() function 
					`every time u run program random numbers will be different

xrotate camera 20	`point camera little down

`hide mouse			`U can hide mouse cursor if want. I like to see it :P
					`later U can put some image instead of cursor i.e. target

`re-calculates the normals of each polygon in an object 
`for the purpose of working out the rendering of each of the polygons
set normalization on

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function TerrainSetup()	`make and set up terrain

set dir "media\DefaultMap\"   		` set the directory to map's location (2 levels higher)

` load base and detail texture
load image "texture.bmp", 1
load image "detail.tga", 2

make object terrain 1                              ` create the terrain object
set terrain heightmap 1, "map.bmp"                 ` set the heightmap
set terrain scale 1, 3, 0.1, 3                     ` set the scale
set terrain split 1, 16                            ` split value by 16 * 16
set terrain tiling 1, 4                            ` detail map tiling
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5  ` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain texture 1, 1, 2                        ` base and detail texture
build terrain 1                                    ` finally build the terrain
position object 1, 0,0,0						   ` position terrain at zero coordinates
sc_setupComplexObject 1,1,2                        ` setup collision on the terrain

set dir ".."  			` reset the directory (1 level lower to media\)
set dir "Skybox\"  		` set the directory to skybox's location

`load our skybox (this is very low quality, u can find smth better)
`this file has images asociated (1-6 jpg images in media directory). 
`U can change or edit them
load object "skybox.x", 6

set object light 6, 0
set object texture 6, 3, 1	`not sure what it should do, but it improves skybox texture :)

position object 6, 500, 50, 500			`~in middle of terrain
scale object 6, 10000, 10000, 10000		`make skybox big!

set dir ".."  `reset the directory back to media\

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveCamera()

`keyboard input for movement
   if upkey()=1 then move camera 3
   if downkey()=1 then move camera -3
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

`find out the camera height
   x#=camera position x()
   z#=camera position z()
   y#=get terrain ground height(1,x#,z#)+30

`position the camera
   position camera x#,y#,z#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectObjects()

`function to pick any object's whose number is between 10 and TotalUnitCount+10
  `using screen coordinates
  which= pick object(mousex(),mousey(),10,TotalUnitCount+10)
 
endfunction which	`return value which object was selected, if 0 then none of objects

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeBoxes()  `make 20 random boxes

make object box 8,10,7,15		`make object
  make mesh from object 1, 8	`extract shape of object
  make object box 9,5,4,7		`make object
  make mesh from object 2, 9	`extract shape of object
  delete object 8
  delete object 9
  a=10+UnitCount
  b=a+10
  for i= a to b				`10 times
    make object box i,10,3,15	`make box
    add limb i, 1, 1			`add a part for object, parts shape is mesh 1
    offset limb i, 1, 0, 0, 1	`position part of object in local coordinates
    hide limb i, 1				`hide- make that part invisible
    add limb i, 2, 2			
    offset limb i, 2, 0, 2, -1
  
    x=rnd(200)+50				`get random x and z coordinates
    z=rnd(200)+50
    y=get terrain ground height (1,x,z)	`get height in that point
    position object i,x,y+4,z			`position object +4 units above ground
    rotate object i,0,rnd(100),0		`random rotate object object
    color object i,rgb(0,255,0)			`color object- green
    
    Unit(i).Stance=1
    Unit(i).Exist=1
    Unit(i).LastShotTime=0
	Unit(i).ReloadTime=100		`miliseconds
	Unit(i).ProjectileType=1
    Unit(i).Name="Machinegunner Box"
    Unit(i).Hp=100
    Unit(i).Dmg=1
    Unit(i).RotationSpeed=1.5
    unit(i).maxspeed=0.6
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.015
    Unit(i).Team=1
    Unit(i).Range=16000	`squared(^2)
  next i
  a=b+1
  b=a+10
for i= a to b			`make 10 more boxes in other team
    make object box i,10,4,15
    add limb i, 1, 1
    offset limb i, 1, 0, 0, 1
    hide limb i, 1
    add limb i, 2, 2			
    offset limb i, 2, 0, 2, -1
  
    x=rnd(200)+200
    z=rnd(200)+200
    y=get terrain ground height (1,x,z)
    position object i,x,y+4,z
    rotate object i,0,rnd(100),0
    color object i,rgb(128,128,0)	`color boxes "yellow-green" lol
    
    Unit(i).Stance=2
    Unit(i).Exist=1
    Unit(i).LastShotTime=0
	Unit(i).ReloadTime=2000		`miliseconds
	Unit(i).ProjectileType=1
    Unit(i).Name="Cannon Box"
    Unit(i).Hp=120
    Unit(i).Dmg=20
    Unit(i).RotationSpeed=1.0
    unit(i).maxspeed=0.4
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.01
    Unit(i).Team=2
    Unit(i).Range=16000		`this is squared (^2) 
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectionIndicator(obj)   `indicator handler

if obj=0:   `if no objects selected
      if object visible(2)=1:   `if indicator visible
        hide object (2) 		`make it invisible
      endif
    else 	`if some object is selected
      if object visible(2)=0:	`if indicator is not visible
        show object (2)		    `make it visible
      endif
      `position indicator +10 units above your selected object
      if Object exist (obj) then position object 2,object position x (obj),object position y (obj)+10,object position z(obj)	
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeSelectionIndicator()	`make objects for indicators

make object cone 2, 5	`for active object
zrotate object 2, 180 	`rotate/point down
set object 2, 1, 1, 0	`don't know what this does
color object 2,RGB(0, 255, 0)  		`green color

make object cone 3, 5	`to mark target-coordinates on map
zrotate object 3, 180 	`rotate/point down
set object 3, 1, 1, 0
color object 3,RGB(255, 255, 0)		`yellow color

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Info()

`str$(a) function returns integer, float or other type variable as string
`"text x,y, string" function can't print other variables than strings
`strings can be added to each other i.e. "cat"+"dog"+str$(2)="catdog2"

text 10,10,"Object selected :"+str$(activeID)   `selected, active object
text 10,30,"FPS :" + str$(Screen FPS())			`frames per second (how many times screen refreshes)
												`determines how hard program is for pc, fps will go down if pc is too weak
												`my 1.8Ghz, 1.5Gb Ram machine shows 80-90 in this program stage. 
												`as more functions are added it should slow down
`text 10,50,"Left mouse click to select object"
`text 10,70,"Right mouse click to place target/target object"

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function object_distance_squared(a,b) 	`returns distance between objects squared
 										`(distance^2 or distance*distance)

w#= (object position x(a)-object position x(b))^2	`difference in x axis ^2
h#= (object position y(a)-object position y(b))^2	`difference in y axis ^2
l#= (object position z(a)-object position z(b))^2	`difference in z axis ^2

d#= l#+w#+h#	`summ up all distances (like pitagores just in 3D)
				`if u want to get real distance use d#= sqrt(l#+w#+h#)
				`but square root is calculated long, so if u make many calculations
				`program can slow down signicicantly

endfunction d#

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Projectile_distance(a) 	`similar to object_distance_squared
`remstart
w#= (object position x(projectile(a).Object)-projectile(a).StartX)^2	`difference in x axis ^2
h#= (object position y(projectile(a).Object)-projectile(a).StartY)^2	`difference in y axis ^2
l#= (object position z(projectile(a).Object)-projectile(a).StartZ)^2	`difference in z axis ^2

d#= l#+w#+h#

OutOfRange=0
if projectile(a).range<d# then OutOfRange=1
`remend
endfunction OutOfRange

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function LoadMenuPanel()	`this will load sprites for menu

set dir "Sprites\"	`directory for sprites
  load image "MiniMap.bmp",3	`minimap in left corner
  sprite 1,0,600,3
  hide sprite 1
  load image "Panel.bmp",4		`will be info about selected unit/object
  sprite 2,250,600,4
  hide sprite 2
  set dir ".."			`reset directory to media\
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeTarget()	`place target indicator if needed (i cant comment this funtion well, because its no my made.
						`forum link for it: http://forum.thegamecreators.com/?m=forum_view&t=79830&b=1
  obj=SelectObjects()	`targeted object number
  if obj=0		`if none objects selected
    mX = mouseX()
    mY = mouseY()
    cx# = camera position x()
    cy# = camera position y()
    cz# = camera position z()
    pickState = Pick Object (mX, mY, 1, 1)
    If pickState <> 0	`if nothing selected
      Dist# = Get Pick Distance()
      Pick Screen mX, mY, Dist#
      indX# = cx# + get pick vector x()
      indY# = cy# + get pick vector y()
      indZ# = cz# + get pick vector z()
      Position Object 3, indX#, indY#+3, indZ#	`position indicator on terrain
      Unit(ActiveID).Dx=indX#	`set units destination coordinates
      Unit(ActiveID).Dy=indY#
      Unit(ActiveID).Dz=indZ#
      Unit(ActiveID).IsFollowing=0	`no more folowing or attacking
      unit(i).movetarget=0
      unit(i).attacktarget=0
      Unit(ActiveID).IsMoving=1		`start moving to destination coordinates	
      if unit(ActiveID).MoveTarget<>0 then unit(ActiveID).MoveTarget=0
      if object visible(3)=0 then show object (3)	`show destination point indicator
    EndIf
  else
    unit(ActiveID).MoveTarget=obj	`set units target value to selected object
    `if target object is enemy, set attack target
    if unit(ActiveID).MoveTarget>0 and unit(obj).Team<>unit(ActiveID).Team
      unit(ActiveID).AttackTarget=obj
    else
      unit(ActiveID).AttackTarget=0
    endif
    Unit(ActiveID).IsMoving=0	`no more moving to destination coordinates
    Unit(ActiveID).IsFollowing=1	`start folowing
    if object visible(3)=1 then hide object (3) `hide destination point indicator
  endif
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObjects()

for i=10 to TotalUnitCount  `for all controllable objects
   if unit(i).exist=1
    if unit(i).IsMoving <>0			`if object is moving to destination point
      MoveObject(i)					`then move it
      if abs(unit(i).dx-object position x(i))<5 and abs(unit(i).dz-object position z(i))<5	`if at destination. stop object
        unit(i).Ismoving=0			`if reached destination point then stop
      endif
    endif
    if unit(i).IsFollowing <>0		`if object is folowing other object
      if unit(unit(i).MoveTarget).Team=unit(i).Team
        if object_distance_squared (i,Unit(i).MoveTarget)>FollowDistance `if is too far
          FollowObject(i)				`then move it towards target
        endif
      else
        if object_distance_squared (i,Unit(i).MoveTarget)>Unit(i).Range-10 then FollowObject(i) 
      endif
    endif
   endif 
 next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObject(ID)	`made by Neuro Fuzzy, this is little edited to suit this program
						`link to His tutorial: http://www.neurofuzzydev.com/V/D/43a.htm
						`link to download full vectors tutorial: 
						`http://forum.thegamecreators.com/?m=forum_view&t=133126&b=7
 
  Angle# = GetShortestAngle(object position x(ID), object position z(ID), object angle y(ID),unit(ID).dx, unit(ID).dz)
  
  if Angle# <= -1.0 then turn object left ID, Unit(ID).RotationSpeed
  if Angle# >= 1.0 then turn object right ID, Unit(ID).RotationSpeed
  
  text 200,(ID-unitCount-10)*10, str$(angle#)

Rem PJY - now depending on the angle and the distance between the cubes
  Rem PJY - we move the selected cube. The reason for the following code is that
  Rem PJY - without it in certain situations the seleceted cube could begin
  Rem PJY - "orbiting" the targeted cube, i.e. where it is moving so much per turn
  Rem PJY - that it is not decreasing the angle
  
  `all of the following code meaning is to slow down object 
  `when it is near or in big angle with it destination point
  `the best way to set angles, distances and slow down/acelerate values
  `is to experiment. 
  `all these values varie with different box sizes, speeds, stop distances 
  
  `if object is pointing ~ at its target then acelerate till max speed
  if abs(angle#) < 1	
    if unit(ID).speed<unit(ID).maxspeed then unit(ID).speed=unit(ID).speed+unit(ID).traction	
  endif
  
  `if object is pointing sharp angle at its target then acelerate till max speed/1.5
  if abs(angle#) => 1 AND angle# < 10	
	if unit(ID).speed<unit(ID).maxspeed/1.5
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing bigger angle at its target then acelerate till max speed/2
  if abs(angle#) => 10 AND angle# < 90 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/2
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing away from its target then acelerate till max speed/8
  if abs(angle#) => 90 AND angle# < 120 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/8
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing away from its target and distance is small
  `then acelerate till max speed/10
  if abs(angle#) => 120 AND distance# > 10
	if unit(ID).speed<unit(ID).maxspeed/10
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, slow down
	endif
  endif
  
  `i added this by experimenting with boxes, to slow down even more
  if abs(angle#) => 80 AND distance# < 20
	if unit(ID).speed<unit(ID).maxspeed/20
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.02	`if too fast, slow down
	endif
  endif
 
  move object ID, unit(ID).speed  `when we set units speed, now can finally move it, YeY!
  
  `get coordinates of object 
  Ox#=object position x(ID)
  Oz#=object position z(ID)
  Oy#=get terrain ground height (1,Ox#,Oz#)+4
  `and place it on terrain
  position object ID,Ox#,Oy#,Oz#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function FollowObject(ID)   `this is a simple function,

`which changes object destination coordinates into followed object coordinates, 
Unit(ID).dx=object Position X(Unit(ID).Movetarget)
Unit(ID).dz=object Position Z(Unit(ID).Movetarget)
`and then calls MoveObject() function to move object
MoveObject(ID)

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function ObjectInfo()   `write selected object information
  
  if activeID<>0
    text 610, 680, "Name: "+ Unit(ActiveID).Name
	text 610, 695, "Hp: "+ str$(Unit(ActiveID).Hp)
	text 610, 710, "Dmg: "+ str$(Unit(ActiveID).Dmg)
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function RefreshSprites()

paste sprite 1,0,600
  paste sprite 2,250,600

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Attack()

for i=10 to TotalUnitCount+10  `for all controllable objects
    if unit(i).AttackTarget<>0 
      if object_distance_squared(i,unit(i).AttackTarget)<unit(i).range
        Time=timer()
        if Unit(i).LastShotTime+Unit(i).ReloadTime< Time
          MakeProjectile(i)
          Unit(i).LastShotTime=Time
        endif
      endif				
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeProjectile(ID)

found=0
  i=0

while found=0 and i<ProjectilesCount-1
    inc i, 1
    if projectile(i).type=0
      found=i
  	endif 
  endwhile
  projectile(i).type=1
  n=i+TotalUnitCount+10
  if object exist (n) then delete object n
  Make object sphere n, 10
  color object n,rgb(128,128,128)
  projectile(i).Object=n
  scale object n, 10,10,30
  x=object position x(ID)
  y=object position y(ID)
  z=object position z(ID)
  projectile(i).Startx=x
  projectile(i).Starty=y
  projectile(i).Startz=z
  Position Object n,x,y,z
  Point Object n, object position x(Unit(ID).attacktarget),object position y(Unit(ID).attacktarget),object position z(Unit(ID).attacktarget)
  projectile(i).Range=Unit(ID).Range
  projectile(i).dmg=Unit(ID).dmg
  projectile(i).speed=2.0
  projectile(i).ParentObject=ID		`object who shot projectile- not to check collision with it

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveProjectiles()
  col=0
  for i= 0 to ProjectilesCount 
    if projectile(i).type>0
      if Projectile(i).type=1
        Move Object projectile(i).object, projectile(i).speed
        col=OBJECT COLLISION(projectile(i).object, 0)
        if col>=10 and col<=TotalUnitCount and col<>projectile(i).ParentObject
          dec unit(col).Hp,projectile(i).dmg
          DestroyProjectile(i)
          ProjectileDestroyed=1
          if unit(col).Hp<1 then DestroyObject(col)
        else
          if Projectile_distance(i)=1 then DestroyProjectile(i)
        endif
      endif 				
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function DestroyObject(ID)

for i=10 to TotalUnitCount+10
    if Unit(i).Movetarget=ID
      Unit(i).IsFollowing=0
      Unit(i).Movetarget=0
    endif
    if Unit(i).Attacktarget=ID then Unit(i).Attacktarget=0 
  next i
  
  found=0
  i=0
  while found=0 and i<DestroyedUnitsCount-10
    inc i, 1
    if DestroyedUnit(i).exist=0
      found=i
  	endif 
  endwhile
  make mesh from object 1, ID
  m=10+TotalUnitCount+OtherObjectsCount+i
  make object m,1,0
  color object m, RGB (0,0,0)
  position object m, Object position x (ID), Object position y (ID), Object position z (ID) 
  rotate object m, Object angle x (ID), Object angle y (ID),Object angle z (ID)
  DestroyedUnit(i).exist =1
  DestroyedUnit(i).Name =Unit(ID).Name
  DestroyedUnit(i).MaxHp =Unit(ID).Maxhp 
  DestroyedUnit(i).Dmg =Unit(ID).dmg
  DestroyedUnit(i).MaxSpeed =Unit(ID).MaxSpeed		
  DestroyedUnit(i).Traction =Unit(ID).traction
  DestroyedUnit(i).RotationSpeed =Unit(ID).RotationSpeed
  DestroyedUnit(i).ProjectileType = Unit(ID).ProjectileType
  DestroyedUnit(i).ReloadTime =Unit(ID).ReloadTime
  DestroyedUnit(i).Range =Unit(ID).Range
  Unit(ID).Name=""
  Unit(ID).Exist=0
  Unit(ID).Team=0
  Unit(ID).Maxhp=0
  Unit(ID).hp=0
  Unit(ID).dmg=0 
  Unit(ID).MaxSpeed=0 
  Unit(ID).Speed=0 
  Unit(ID).traction=0 
  Unit(ID).RotationSpeed=0 
  Unit(ID).Range=0 
  Unit(ID).ProjectileType=0 
  Unit(ID).LastShotTime=0 
  Unit(ID).ReloadTime=0 
  Unit(ID).MoveTarget=0 
  Unit(ID).AttackTarget=0 
  Unit(ID).IsMoving=0 
  Unit(ID).IsFollowing=0 
  Unit(ID).Dx=0 
  Unit(ID).Dy=0 
  Unit(ID).Dz=0 
  Delete Object ID

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function DestroyProjectile(ID)

delete object (projectile(ID).object)
  projectile(ID).Object=0 
  projectile(ID).type=0  
  projectile(ID).dmg=0  	
  projectile(ID).Speed=0 
  projectile(ID).ParentObject=0 
  projectile(ID).AttackTarget=0

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function RotateTurrets()
a=10+UnitCount
b=a+vehiclesCount
for i=a to b
  `lets do the same to find out which direction should vehicles turret turn
  if unit(i).AttackTarget<>0
    text 400, (i-a)*10,str$(unit(i).attacktarget)
  
    turretangle#=wrapvalue(object angle y(i)+ limb angle y (i,2))
    Angle# = GetShortestAngle(object position x(i), object position z(i), turretangle#, object position x(unit(i).attacktarget), object position z(unit(i).attacktarget))
    text 400, (i-a)*10, str$(Angle#)

if abs (angle#)>0.1
        text 500, (i-a)*10, "shouldrotate"
        Rem PJY - select whether to turn right or left
        if angle#<0.0
          rotate limb i, 2, limb angle x(i,2), limb angle y(i,2)-1, limb angle z(i,2)
	    else
		  rotate limb i, 2, limb angle x(i,2), limb angle y(i,2)+1, limb angle z(i,2)
	    endif
    endif
  endif
next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function CheckNewTargets()
  found=0
  b=10+TotalUnitCount
  for i=10 to b
    if unit(i).exist=1
      if unit(i).attacktarget=0 and unit(i).stance>0
         for n=10 to b
          while n<b and found=0
            inc n
            if n<>i and unit(n).exist=1 and unit(n).team<>unit(i).team
              if object_distance_squared(i,n)<unit(i).range
                found=1
                unit(i).attacktarget=n
                if unit(i).stance=2 then unit(i).movetarget=n
              endif

endif
          endwhile  
        next n
      endif
    endif  
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function GetShortestAngle(x#, y#, ay#, tx#, ty#)

text 500, 10, str$(x#)
    text 500, 20, str$(y#)
    text 500, 30, str$(ay#)
    text 500, 40, str$(tx#)
    text 500, 50, str$(ty#)

`set vectors
    set vector2 1, newxvalue(x#, ay#, 1.0), newzvalue(y#, ay#, 1.0)
    set vector2 2, tx# - x#, ty# - y#
    normalize vector2 1, 1
    normalize vector2 2, 2
    
    `Find data
    ang# = acos(dot product vector2(1, 2))
    
    text 500, 70, str$(ang#)
    
    if ccw vector2(1, 2) < 0.0 then ang# = -ang#
    
    text 500, 80, str$(ang#)

endfunction ang#

+ Code Snippet

Remstart
	Today, February 01, 2011, 8:31:10 PM
	Project: Terrain
	*Load map
	*Select objects
	*Move camera
	*Move objects to point on map
	*Follow enemies and friendly differently
	*Smooth rotation and speed until reach target
	*Added 2 sprites and text over them
	*different team object can be attacked
Remend

`--- Constants ---

#constant UnitCount 200		`maximum number of each type of objects
#constant VehiclesCount 100
#constant ProjectilesCount 100
#constant OtherObjectsCount 100
#constant DestroyedUnitsCount 300
#constant FollowDistance 500.0 `this is squared (^2) 
`because square root in get_distance function would slow down program a little

`--- Types ---

type Units   `u can add more stats in here, atm for program work need only "target" variable
  Stance as integer `0-passive, 2-defensive, 3-agresive
  Name as string
  Exist as integer	`0-not egzist, 1-egzist
  Team as integer
  MaxHp as integer
  Hp as integer
  Dmg as integer
  MaxSpeed as float		
  Speed as float
  Traction as float		`acelleration
  RotationSpeed as float	`how fast object rotates
  ProjectileType as integer 
  LastShotTime as integer
  ReloadTime as integer
  Range as float			`attack range- distance in which attacked object will be followed
  MoveTarget as integer	`Object to be followed
  AttackTarget as integer	`Object to be attacked
  IsMoving as integer		`if is moving
  IsFollowing as integer	`if is following
  Dx as float				`destination coordinates
  Dy as float
  Dz as float
endtype

type DestroyedUnits   `u can add more stats in here, atm for program work need only "target" variable
  exist as integer
  Name as string
  MaxHp as integer
  Dmg as integer
  MaxSpeed as float		
  Traction as float		`acelleration
  RotationSpeed as float	`how fast object rotates
  ProjectileType as integer 
  ReloadTime as integer
  Range as float			`attack range- distance in which attacked object will be followed
endtype

type Projectiles   		`projectiles for units to shoot with
  Object as integer
  type as integer 		`0-not exists, 1-bullet, 2-explosive, 3-rocket
  dmg as integer	
  Speed as float
  ParentObject as integer
  AttackTarget as integer	`Object to be followed if projectile is rocket
  startX as float
  startY as float
  startZ as float
  Range as float
endtype

`--- Variables ---

global activeID as integer    `selected object number
global TotalUnitCount as integer	`total number of Your controllable units
TotalUnitCount= UnitCount + VehiclesCount

r = make vector2(1)
    r = make vector2(2)

`--- Arrays ---

`array of all your controlable objects (units, soldiers, robots or whatever u use in game 
dim Unit(TotalUnitCount+10) as units 
dim Projectile(ProjectilesCount) as Projectiles
dim DestroyedUnit(destroyedUnitsCount) as DestroyedUnits  

`------------------------------------------------------------------------------------------
`--- Program start ---
`------------------------------------------------------------------------------------------

Setup()   			`program setup
TerrainSetup()  	`make and set up terrain
LoadMenuPanel()		`load sprites for in game menu
MakeBoxes()   		`make random objects just for testing, remove later
MakeSelectionIndicator()	`make objects to be shown above selected objects 
							`and at their destination coordinates

`------------------------------------------------------------------------------------------
`--- Main Loop ---
`------------------------------------------------------------------------------------------

do
  
  `camera movement
  MoveCamera()  
  
  `left mouse click: select object
  if mouseclick()= 1 then activeID= SelectObjects() 
   
  `place indicators over selected object and its target position 
  `(can load your own object like sword, target sign and etc.)
  SelectionIndicator(activeID)   
  
  `right mouse click: set active object's target as a point on map or other object
  if mouseclick()= 2 then MakeTarget()  
  
  `When all actions are made its time to move all the objects (if they should move ofc) 
  MoveObjects()
  
  CheckNewTargets()
  
  `RotateTurrets()
  
  Attack()
  
  MoveProjectiles()
  
  `paste sprites and later print text, so text don't disappear behind sprites
  `thx to Phaelax
  `more about text over sprites here: 
  `http://forum.thegamecreators.com/?m=forum_view&t=171622&b=1
  RefreshSprites()
  `when u encounter problems with new functions added, print variables to see 
  `if your functions give right answers, very usefull for debugging
  Info()
  
  `Selected object/unit info
  ObjectInfo()
    
  update terrain   `apply all the changes to terrain
  sync  `apply all the changes to screen

loop

`------------------------------------------------------------------------------------------
`--- Functions and procedures ---
`------------------------------------------------------------------------------------------

function Setup()`program setup

sync on			`automatic screen refresh on
sync rate 500	`refresh rate (i think it is times per second)
`i set such a high rate to see what highest actual frame rate my pc can reach 
`i dont know what rate is recomemnded, but mostly used in tutorials it is 60 or 90 

`when new objects are created camera isnt positioned at coordinates of new object
autocam off  

`width and height in pixels and how much colors will contain 
`(not sure but should be 16 or 32 bits)
set display mode 1024,768,32	
								
set camera range 10,10000	`how far objects will be visible from 10 units to 10000 units

Fog on						`u know what fog is :D
Fog distance 15000			`this is distance in which u can't see anything through fog
							`it makes less colorful objects in smaller distance too
							`if u remove fog, skybox will be very bright
Fog color RGB(128,128,128)	`fog color- grey

maximize window		`make full screen

randomize timer()	`set starting value for random() function 
					`every time u run program random numbers will be different

xrotate camera 20	`point camera little down

`hide mouse			`U can hide mouse cursor if want. I like to see it :P
					`later U can put some image instead of cursor i.e. target 

`re-calculates the normals of each polygon in an object 
`for the purpose of working out the rendering of each of the polygons
set normalization on

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function TerrainSetup()	`make and set up terrain

set dir "media\DefaultMap\"   		` set the directory to map's location (2 levels higher)

` load base and detail texture
load image "texture.bmp", 1
load image "detail.tga", 2

make object terrain 1                              ` create the terrain object
set terrain heightmap 1, "map.bmp"                 ` set the heightmap
set terrain scale 1, 3, 0.1, 3                     ` set the scale
set terrain split 1, 16                            ` split value by 16 * 16
set terrain tiling 1, 4                            ` detail map tiling
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5  ` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain texture 1, 1, 2                        ` base and detail texture
build terrain 1                                    ` finally build the terrain
position object 1, 0,0,0						   ` position terrain at zero coordinates
sc_setupComplexObject 1,1,2                        ` setup collision on the terrain

set dir ".."  			` reset the directory (1 level lower to media\)
set dir "Skybox\"  		` set the directory to skybox's location 

`load our skybox (this is very low quality, u can find smth better)
`this file has images asociated (1-6 jpg images in media directory). 
`U can change or edit them
load object "skybox.x", 6	

set object light 6, 0
set object texture 6, 3, 1	`not sure what it should do, but it improves skybox texture :)

position object 6, 500, 50, 500			`~in middle of terrain
scale object 6, 10000, 10000, 10000		`make skybox big!

set dir ".."  `reset the directory back to media\

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveCamera()

   `keyboard input for movement
   if upkey()=1 then move camera 3
   if downkey()=1 then move camera -3
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

   `find out the camera height
   x#=camera position x()
   z#=camera position z()
   y#=get terrain ground height(1,x#,z#)+30

   `position the camera
   position camera x#,y#,z#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectObjects()

  `function to pick any object's whose number is between 10 and TotalUnitCount+10
  `using screen coordinates
  which= pick object(mousex(),mousey(),10,TotalUnitCount+10)
 
endfunction which	`return value which object was selected, if 0 then none of objects

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeBoxes()  `make 20 random boxes

  make object box 8,10,7,15		`make object
  make mesh from object 1, 8	`extract shape of object
  make object box 9,5,4,7		`make object
  make mesh from object 2, 9	`extract shape of object
  delete object 8
  delete object 9
  a=10+UnitCount
  b=a+10
  for i= a to b				`10 times
    make object box i,10,3,15	`make box
    add limb i, 1, 1			`add a part for object, parts shape is mesh 1
    offset limb i, 1, 0, 0, 1	`position part of object in local coordinates
    hide limb i, 1				`hide- make that part invisible
    add limb i, 2, 2			
    offset limb i, 2, 0, 2, -1
  
    x=rnd(200)+50				`get random x and z coordinates
    z=rnd(200)+50
    y=get terrain ground height (1,x,z)	`get height in that point
    position object i,x,y+4,z			`position object +4 units above ground
    rotate object i,0,rnd(100),0		`random rotate object object
    color object i,rgb(0,255,0)			`color object- green
    
    Unit(i).Stance=1
    Unit(i).Exist=1
    Unit(i).LastShotTime=0
	Unit(i).ReloadTime=100		`miliseconds
	Unit(i).ProjectileType=1
    Unit(i).Name="Machinegunner Box"
    Unit(i).Hp=100
    Unit(i).Dmg=1
    Unit(i).RotationSpeed=1.5
    unit(i).maxspeed=0.6
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.015
    Unit(i).Team=1
    Unit(i).Range=16000	`squared(^2)
  next i
  a=b+1
  b=a+10
for i= a to b			`make 10 more boxes in other team
    make object box i,10,4,15
    add limb i, 1, 1
    offset limb i, 1, 0, 0, 1
    hide limb i, 1
    add limb i, 2, 2			
    offset limb i, 2, 0, 2, -1
  
    x=rnd(200)+200
    z=rnd(200)+200
    y=get terrain ground height (1,x,z)
    position object i,x,y+4,z
    rotate object i,0,rnd(100),0
    color object i,rgb(128,128,0)	`color boxes "yellow-green" lol
    
    Unit(i).Stance=2
    Unit(i).Exist=1
    Unit(i).LastShotTime=0
	Unit(i).ReloadTime=2000		`miliseconds
	Unit(i).ProjectileType=1
    Unit(i).Name="Cannon Box"
    Unit(i).Hp=120
    Unit(i).Dmg=20
    Unit(i).RotationSpeed=1.0
    unit(i).maxspeed=0.4
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.01
    Unit(i).Team=2
    Unit(i).Range=16000		`this is squared (^2) 
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectionIndicator(obj)   `indicator handler

  if obj=0:   `if no objects selected
      if object visible(2)=1:   `if indicator visible
        hide object (2) 		`make it invisible
      endif
    else 	`if some object is selected
      if object visible(2)=0:	`if indicator is not visible
        show object (2)		    `make it visible
      endif
      `position indicator +10 units above your selected object
      if Object exist (obj) then position object 2,object position x (obj),object position y (obj)+10,object position z(obj)	
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeSelectionIndicator()	`make objects for indicators

make object cone 2, 5	`for active object
zrotate object 2, 180 	`rotate/point down
set object 2, 1, 1, 0	`don't know what this does
color object 2,RGB(0, 255, 0)  		`green color

make object cone 3, 5	`to mark target-coordinates on map
zrotate object 3, 180 	`rotate/point down
set object 3, 1, 1, 0
color object 3,RGB(255, 255, 0)		`yellow color

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Info()

`str$(a) function returns integer, float or other type variable as string
`"text x,y, string" function can't print other variables than strings
`strings can be added to each other i.e. "cat"+"dog"+str$(2)="catdog2"

text 10,10,"Object selected :"+str$(activeID)   `selected, active object
text 10,30,"FPS :" + str$(Screen FPS())			`frames per second (how many times screen refreshes)
												`determines how hard program is for pc, fps will go down if pc is too weak
												`my 1.8Ghz, 1.5Gb Ram machine shows 80-90 in this program stage. 
												`as more functions are added it should slow down
`text 10,50,"Left mouse click to select object"
`text 10,70,"Right mouse click to place target/target object"


endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function object_distance_squared(a,b) 	`returns distance between objects squared
 										`(distance^2 or distance*distance)

w#= (object position x(a)-object position x(b))^2	`difference in x axis ^2
h#= (object position y(a)-object position y(b))^2	`difference in y axis ^2
l#= (object position z(a)-object position z(b))^2	`difference in z axis ^2

d#= l#+w#+h#	`summ up all distances (like pitagores just in 3D)
				`if u want to get real distance use d#= sqrt(l#+w#+h#)
				`but square root is calculated long, so if u make many calculations
				`program can slow down signicicantly

endfunction d#

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Projectile_distance(a) 	`similar to object_distance_squared
`remstart
w#= (object position x(projectile(a).Object)-projectile(a).StartX)^2	`difference in x axis ^2
h#= (object position y(projectile(a).Object)-projectile(a).StartY)^2	`difference in y axis ^2
l#= (object position z(projectile(a).Object)-projectile(a).StartZ)^2	`difference in z axis ^2

d#= l#+w#+h#

OutOfRange=0
if projectile(a).range<d# then OutOfRange=1
`remend
endfunction OutOfRange

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function LoadMenuPanel()	`this will load sprites for menu

  set dir "Sprites\"	`directory for sprites
  load image "MiniMap.bmp",3	`minimap in left corner
  sprite 1,0,600,3
  hide sprite 1
  load image "Panel.bmp",4		`will be info about selected unit/object
  sprite 2,250,600,4
  hide sprite 2
  set dir ".."			`reset directory to media\
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeTarget()	`place target indicator if needed (i cant comment this funtion well, because its no my made.
						`forum link for it: http://forum.thegamecreators.com/?m=forum_view&t=79830&b=1
  obj=SelectObjects()	`targeted object number
  if obj=0		`if none objects selected
    mX = mouseX()
    mY = mouseY()
    cx# = camera position x()
    cy# = camera position y()
    cz# = camera position z()
    pickState = Pick Object (mX, mY, 1, 1)
    If pickState <> 0	`if nothing selected
      Dist# = Get Pick Distance()
      Pick Screen mX, mY, Dist#
      indX# = cx# + get pick vector x()
      indY# = cy# + get pick vector y()
      indZ# = cz# + get pick vector z()
      Position Object 3, indX#, indY#+3, indZ#	`position indicator on terrain
      Unit(ActiveID).Dx=indX#	`set units destination coordinates
      Unit(ActiveID).Dy=indY#
      Unit(ActiveID).Dz=indZ#
      Unit(ActiveID).IsFollowing=0	`no more folowing or attacking
      unit(i).movetarget=0
      unit(i).attacktarget=0
      Unit(ActiveID).IsMoving=1		`start moving to destination coordinates	
      if unit(ActiveID).MoveTarget<>0 then unit(ActiveID).MoveTarget=0
      if object visible(3)=0 then show object (3)	`show destination point indicator
    EndIf
  else
    unit(ActiveID).MoveTarget=obj	`set units target value to selected object
    `if target object is enemy, set attack target
    if unit(ActiveID).MoveTarget>0 and unit(obj).Team<>unit(ActiveID).Team
      unit(ActiveID).AttackTarget=obj
    else
      unit(ActiveID).AttackTarget=0
    endif
    Unit(ActiveID).IsMoving=0	`no more moving to destination coordinates
    Unit(ActiveID).IsFollowing=1	`start folowing
    if object visible(3)=1 then hide object (3) `hide destination point indicator
  endif
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObjects()

 for i=10 to TotalUnitCount  `for all controllable objects
   if unit(i).exist=1
    if unit(i).IsMoving <>0			`if object is moving to destination point
      MoveObject(i)					`then move it
      if abs(unit(i).dx-object position x(i))<5 and abs(unit(i).dz-object position z(i))<5	`if at destination. stop object
        unit(i).Ismoving=0			`if reached destination point then stop
      endif
    endif
    if unit(i).IsFollowing <>0		`if object is folowing other object
      if unit(unit(i).MoveTarget).Team=unit(i).Team
        if object_distance_squared (i,Unit(i).MoveTarget)>FollowDistance `if is too far
          FollowObject(i)				`then move it towards target
        endif
      else
        if object_distance_squared (i,Unit(i).MoveTarget)>Unit(i).Range-10 then FollowObject(i) 
      endif
    endif
   endif 
 next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObject(ID)	`made by Neuro Fuzzy, this is little edited to suit this program
						`link to His tutorial: http://www.neurofuzzydev.com/V/D/43a.htm
						`link to download full vectors tutorial: 
						`http://forum.thegamecreators.com/?m=forum_view&t=133126&b=7
 
  Angle# = GetShortestAngle(object position x(ID), object position z(ID), object angle y(ID),unit(ID).dx, unit(ID).dz)
  
  if Angle# <= -1.0 then turn object left ID, Unit(ID).RotationSpeed
  if Angle# >= 1.0 then turn object right ID, Unit(ID).RotationSpeed
  
  text 200,(ID-unitCount-10)*10, str$(angle#)

  
  Rem PJY - now depending on the angle and the distance between the cubes
  Rem PJY - we move the selected cube. The reason for the following code is that
  Rem PJY - without it in certain situations the seleceted cube could begin
  Rem PJY - "orbiting" the targeted cube, i.e. where it is moving so much per turn
  Rem PJY - that it is not decreasing the angle
  
  `all of the following code meaning is to slow down object 
  `when it is near or in big angle with it destination point
  `the best way to set angles, distances and slow down/acelerate values
  `is to experiment. 
  `all these values varie with different box sizes, speeds, stop distances 
  
  `if object is pointing ~ at its target then acelerate till max speed
  if abs(angle#) < 1	
    if unit(ID).speed<unit(ID).maxspeed then unit(ID).speed=unit(ID).speed+unit(ID).traction	
  endif
  
  `if object is pointing sharp angle at its target then acelerate till max speed/1.5
  if abs(angle#) => 1 AND angle# < 10	
	if unit(ID).speed<unit(ID).maxspeed/1.5
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing bigger angle at its target then acelerate till max speed/2
  if abs(angle#) => 10 AND angle# < 90 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/2
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing away from its target then acelerate till max speed/8
  if abs(angle#) => 90 AND angle# < 120 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/8
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing away from its target and distance is small
  `then acelerate till max speed/10
  if abs(angle#) => 120 AND distance# > 10
	if unit(ID).speed<unit(ID).maxspeed/10
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, slow down
	endif
  endif
  
  `i added this by experimenting with boxes, to slow down even more
  if abs(angle#) => 80 AND distance# < 20
	if unit(ID).speed<unit(ID).maxspeed/20
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.02	`if too fast, slow down
	endif
  endif
 
  move object ID, unit(ID).speed  `when we set units speed, now can finally move it, YeY!
  
  `get coordinates of object 
  Ox#=object position x(ID)
  Oz#=object position z(ID)
  Oy#=get terrain ground height (1,Ox#,Oz#)+4
  `and place it on terrain
  position object ID,Ox#,Oy#,Oz#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function FollowObject(ID)   `this is a simple function, 

`which changes object destination coordinates into followed object coordinates, 
Unit(ID).dx=object Position X(Unit(ID).Movetarget)
Unit(ID).dz=object Position Z(Unit(ID).Movetarget)
`and then calls MoveObject() function to move object
MoveObject(ID)

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function ObjectInfo()   `write selected object information
  
  if activeID<>0
    text 610, 680, "Name: "+ Unit(ActiveID).Name
	text 610, 695, "Hp: "+ str$(Unit(ActiveID).Hp)
	text 610, 710, "Dmg: "+ str$(Unit(ActiveID).Dmg)
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function RefreshSprites() 

  paste sprite 1,0,600
  paste sprite 2,250,600

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Attack()

 for i=10 to TotalUnitCount+10  `for all controllable objects
    if unit(i).AttackTarget<>0 
      if object_distance_squared(i,unit(i).AttackTarget)<unit(i).range
        Time=timer()
        if Unit(i).LastShotTime+Unit(i).ReloadTime< Time
          MakeProjectile(i)
          Unit(i).LastShotTime=Time
        endif
      endif				
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeProjectile(ID)

  found=0
  i=0

  while found=0 and i<ProjectilesCount-1
    inc i, 1
    if projectile(i).type=0
      found=i
  	endif 
  endwhile
  projectile(i).type=1
  n=i+TotalUnitCount+10
  if object exist (n) then delete object n
  Make object sphere n, 10
  color object n,rgb(128,128,128)
  projectile(i).Object=n
  scale object n, 10,10,30
  x=object position x(ID)
  y=object position y(ID)
  z=object position z(ID)
  projectile(i).Startx=x
  projectile(i).Starty=y
  projectile(i).Startz=z
  Position Object n,x,y,z
  Point Object n, object position x(Unit(ID).attacktarget),object position y(Unit(ID).attacktarget),object position z(Unit(ID).attacktarget)
  projectile(i).Range=Unit(ID).Range
  projectile(i).dmg=Unit(ID).dmg
  projectile(i).speed=2.0
  projectile(i).ParentObject=ID		`object who shot projectile- not to check collision with it

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveProjectiles()
  col=0
  for i= 0 to ProjectilesCount 
    if projectile(i).type>0
      if Projectile(i).type=1
        Move Object projectile(i).object, projectile(i).speed
        col=OBJECT COLLISION(projectile(i).object, 0)
        if col>=10 and col<=TotalUnitCount and col<>projectile(i).ParentObject
          dec unit(col).Hp,projectile(i).dmg
          DestroyProjectile(i)
          ProjectileDestroyed=1
          if unit(col).Hp<1 then DestroyObject(col)
        else
          if Projectile_distance(i)=1 then DestroyProjectile(i)
        endif
      endif 				
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function DestroyObject(ID)

  for i=10 to TotalUnitCount+10
    if Unit(i).Movetarget=ID
      Unit(i).IsFollowing=0
      Unit(i).Movetarget=0
    endif
    if Unit(i).Attacktarget=ID then Unit(i).Attacktarget=0 
  next i
  
  found=0
  i=0
  while found=0 and i<DestroyedUnitsCount-10
    inc i, 1
    if DestroyedUnit(i).exist=0
      found=i
  	endif 
  endwhile
  make mesh from object 1, ID
  m=10+TotalUnitCount+OtherObjectsCount+i
  make object m,1,0
  color object m, RGB (0,0,0)
  position object m, Object position x (ID), Object position y (ID), Object position z (ID) 
  rotate object m, Object angle x (ID), Object angle y (ID),Object angle z (ID)
  DestroyedUnit(i).exist =1
  DestroyedUnit(i).Name =Unit(ID).Name
  DestroyedUnit(i).MaxHp =Unit(ID).Maxhp 
  DestroyedUnit(i).Dmg =Unit(ID).dmg
  DestroyedUnit(i).MaxSpeed =Unit(ID).MaxSpeed		
  DestroyedUnit(i).Traction =Unit(ID).traction
  DestroyedUnit(i).RotationSpeed =Unit(ID).RotationSpeed
  DestroyedUnit(i).ProjectileType = Unit(ID).ProjectileType
  DestroyedUnit(i).ReloadTime =Unit(ID).ReloadTime
  DestroyedUnit(i).Range =Unit(ID).Range
  Unit(ID).Name=""
  Unit(ID).Exist=0
  Unit(ID).Team=0
  Unit(ID).Maxhp=0
  Unit(ID).hp=0
  Unit(ID).dmg=0 
  Unit(ID).MaxSpeed=0 
  Unit(ID).Speed=0 
  Unit(ID).traction=0 
  Unit(ID).RotationSpeed=0 
  Unit(ID).Range=0 
  Unit(ID).ProjectileType=0 
  Unit(ID).LastShotTime=0 
  Unit(ID).ReloadTime=0 
  Unit(ID).MoveTarget=0 
  Unit(ID).AttackTarget=0 
  Unit(ID).IsMoving=0 
  Unit(ID).IsFollowing=0 
  Unit(ID).Dx=0 
  Unit(ID).Dy=0 
  Unit(ID).Dz=0 
  Delete Object ID

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function DestroyProjectile(ID)

  delete object (projectile(ID).object)
  projectile(ID).Object=0 
  projectile(ID).type=0  
  projectile(ID).dmg=0  	
  projectile(ID).Speed=0 
  projectile(ID).ParentObject=0 
  projectile(ID).AttackTarget=0 

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function RotateTurrets()
a=10+UnitCount
b=a+vehiclesCount
for i=a to b
  `lets do the same to find out which direction should vehicles turret turn
  if unit(i).AttackTarget<>0
    text 400, (i-a)*10,str$(unit(i).attacktarget)
  
    turretangle#=wrapvalue(object angle y(i)+ limb angle y (i,2))
    Angle# = GetShortestAngle(object position x(i), object position z(i), turretangle#, object position x(unit(i).attacktarget), object position z(unit(i).attacktarget))
    text 400, (i-a)*10, str$(Angle#)

    if abs (angle#)>0.1
        text 500, (i-a)*10, "shouldrotate"
        Rem PJY - select whether to turn right or left
        if angle#<0.0
          rotate limb i, 2, limb angle x(i,2), limb angle y(i,2)-1, limb angle z(i,2)
	    else
		  rotate limb i, 2, limb angle x(i,2), limb angle y(i,2)+1, limb angle z(i,2)
	    endif
    endif
  endif
next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function CheckNewTargets()
  found=0
  b=10+TotalUnitCount
  for i=10 to b
    if unit(i).exist=1
      if unit(i).attacktarget=0 and unit(i).stance>0
         for n=10 to b
          while n<b and found=0
            inc n
            if n<>i and unit(n).exist=1 and unit(n).team<>unit(i).team
              if object_distance_squared(i,n)<unit(i).range
                found=1
                unit(i).attacktarget=n
                if unit(i).stance=2 then unit(i).movetarget=n
              endif

            endif
          endwhile  
        next n
      endif
    endif  
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function GetShortestAngle(x#, y#, ay#, tx#, ty#)

    text 500, 10, str$(x#)
    text 500, 20, str$(y#)
    text 500, 30, str$(ay#)
    text 500, 40, str$(tx#)
    text 500, 50, str$(ty#)

    `set vectors
    set vector2 1, newxvalue(x#, ay#, 1.0), newzvalue(y#, ay#, 1.0)
    set vector2 2, tx# - x#, ty# - y#
    normalize vector2 1, 1
    normalize vector2 2, 2
    
    `Find data
    ang# = acos(dot product vector2(1, 2))
    
    text 500, 70, str$(ang#)
    
    if ccw vector2(1, 2) < 0.0 then ang# = -ang#
    
    text 500, 80, str$(ang#)

    
endfunction ang#

i would prefer to use as economical function as possible, coz now have only 60 FPS after adding function to check distances between objects- for automatic enemy targeting.

all this program will be rewrited and structure changed later, as now i only learn and want to have "standalone" functions for everything: will make get distance function to use vectors, maybe 3dimensional matrix for holding all object-to-object distances if they aren't moving and much more

added media too -->

Join The dark Side! We have cookies

Attachments

Login to view attachments

Back to top

Profile PM Email

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 3rd Feb 2011 14:24 Edited at: 3rd Feb 2011 14:25

Link

some "\\\" appeared in previous post's text after posting failure, i think my post was too long.
after i deleted part with my working code i could post. i removed those "\\\" with word program so text should be ok

now here is the working code from fuzzy's tutorial. it includes more functions, so slow down program a little, if used many times (it will be used many times)

Remstart
	Today, February 01, 2011, 8:31:10 PM
	Project: Terrain
	*Load map
	*Select objects
	*Move camera
	*Move objects to point on map
	*Follow enemies and friendly differently
	*Smooth rotation and speed until reach target
	*Added 2 sprites and text over them
	*different team object can be attacked
Remend

`--- Constants ---

#constant UnitCount 200		`maximum number of each type of objects
#constant VehiclesCount 100
#constant BuildingsCount 100
#constant ProjectilesCount 100
#constant OtherObjectsCount 100
#constant DestroyedUnitsCount 300
#constant FollowDistance 500.0 `this is squared (^2) 
`because square root in get_distance function would slow down program a little

`--- Types ---

type Units   `u can add more stats in here, atm for program work need only "target" variable
  Stance as integer `0-passive, 2-defensive, 3-agresive
  Name as string
  Exist as integer	`0-not egzist, 1-egzist
  Team as integer
  MaxHp as integer
  Hp as integer
  Dmg as integer
  Def as integer
  MaxSpeed as float		
  Speed as float
  Traction as float		`acelleration
  RotationSpeed as float	`how fast object rotates
  ProjectileType as integer 
  LastShotTime as integer
  ReloadTime as integer
  Range as float			`attack range- distance in which attacked object will be followed
  MoveTarget as integer	`Object to be followed
  AttackTarget as integer	`Object to be attacked
  IsMoving as integer		`if is moving
  IsFollowing as integer	`if is following
  Dx as float				`destination coordinates
  Dy as float
  Dz as float
endtype

type DestroyedUnits   `u can add more stats in here, atm for program work need only "target" variable
  exist as integer
  Name as string
  MaxHp as integer
  Dmg as integer
  MaxSpeed as float		
  Traction as float		`acelleration
  RotationSpeed as float	`how fast object rotates
  ProjectileType as integer 
  ReloadTime as integer
  Range as float			`attack range- distance in which attacked object will be followed
endtype

type Projectiles   		`projectiles for units to shoot with
  Object as integer
  type as integer 		`0-not exists, 1-bullet, 2-explosive, 3-rocket
  dmg as integer	
  Speed as float
  ParentObject as integer
  AttackTarget as integer	`Object to be followed if projectile is rocket
  startX as float
  startY as float
  startZ as float
  Range as float
endtype

`--- Variables ---

global activeID as integer    `selected object number
global TotalUnitCount as integer	`total number of Your controllable units
TotalUnitCount= UnitCount + VehiclesCount + BuildingsCount
global MovableUnitCount as integer	`total number of Your movable units
MovableUnitCount= UnitCount + VehiclesCount
global failed as integer
failed=0

`--- Arrays ---

`array of all your controlable objects (units, soldiers, robots or whatever u use in game 
dim Unit(TotalUnitCount+10) as units 
dim Projectile(ProjectilesCount) as Projectiles
dim DestroyedUnit(destroyedUnitsCount) as DestroyedUnits

`------------------------------------------------------------------------------------------
`--- Program start ---
`------------------------------------------------------------------------------------------

Setup()   			`program setup
TerrainSetup()  	`make and set up terrain
LoadMenuPanel()		`load sprites for in game menu
MakeBoxes()   		`make random objects just for testing, remove later
MakeSelectionIndicator()	`make objects to be shown above selected objects 
							`and at their destination coordinates

`------------------------------------------------------------------------------------------
`--- Main Loop ---
`------------------------------------------------------------------------------------------

do
  
  `camera movement
  MoveCamera()  
  
  `left mouse click: select object
  if mouseclick()= 1 then activeID= SelectObjects() 
   
  `place indicators over selected object and its target position 
  `(can load your own object like sword, target sign and etc.)
  SelectionIndicator(activeID)   
  
  `right mouse click: set active object's target as a point on map or other object
  if mouseclick()= 2 then MakeTarget()  
  
  `When all actions are made its time to move all the objects (if they should move ofc) 
  MoveObjects()
  
  CheckNewTargets()
  
  RotateTurrets()
  
  Attack()
  
  MoveProjectiles()
  
  `paste sprites and later print text, so text don't disappear behind sprites
  `thx to Phaelax
  `more about text over sprites here: 
  `http://forum.thegamecreators.com/?m=forum_view&t=171622&b=1
  RefreshSprites()
  `when u encounter problems with new functions added, print variables to see 
  `if your functions give right answers, very usefull for debugging
  Info()
  
  `Selected object/unit info
  ObjectInfo()
    
  update terrain   `apply all the changes to terrain
  sync  `apply all the changes to screen

loop

`------------------------------------------------------------------------------------------
`--- Functions and procedures ---
`------------------------------------------------------------------------------------------

function Setup()`program setup

sync on			`automatic screen refresh on
sync rate 500	`refresh rate (i think it is times per second)
`i set such a high rate to see what highest actual frame rate my pc can reach 
`i dont know what rate is recomemnded, but mostly used in tutorials it is 60 or 90

`when new objects are created camera isnt positioned at coordinates of new object
autocam off

`width and height in pixels and how much colors will contain 
`(not sure but should be 16 or 32 bits)
set display mode 1024,768,32	
								
set camera range 10,10000	`how far objects will be visible from 10 units to 10000 units

Fog on						`u know what fog is :D
Fog distance 15000			`this is distance in which u can't see anything through fog
							`it makes less colorful objects in smaller distance too
							`if u remove fog, skybox will be very bright
Fog color RGB(128,128,128)	`fog color- grey

maximize window		`make full screen

randomize timer()	`set starting value for random() function 
					`every time u run program random numbers will be different

xrotate camera 20	`point camera little down

`hide mouse			`U can hide mouse cursor if want. I like to see it :P
					`later U can put some image instead of cursor i.e. target

`re-calculates the normals of each polygon in an object 
`for the purpose of working out the rendering of each of the polygons
set normalization on

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function TerrainSetup()	`make and set up terrain

set dir "media\DefaultMap\"   		` set the directory to map's location (2 levels higher)

` load base and detail texture
load image "texture.bmp", 1
load image "detail.tga", 2

make object terrain 1                              ` create the terrain object
set terrain heightmap 1, "map.bmp"                 ` set the heightmap
set terrain scale 1, 3, 0.1, 3                     ` set the scale
set terrain split 1, 16                            ` split value by 16 * 16
set terrain tiling 1, 4                            ` detail map tiling
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5  ` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain texture 1, 1, 2                        ` base and detail texture
build terrain 1                                    ` finally build the terrain
position object 1, 0,0,0						   ` position terrain at zero coordinates
sc_setupComplexObject 1,1,2                        ` setup collision on the terrain

set dir ".."  			` reset the directory (1 level lower to media\)
set dir "Skybox\"  		` set the directory to skybox's location

`load our skybox (this is very low quality, u can find smth better)
`this file has images asociated (1-6 jpg images in media directory). 
`U can change or edit them
load object "skybox.x", 6

set object light 6, 0
set object texture 6, 3, 1	`not sure what it should do, but it improves skybox texture :)

position object 6, 500, 50, 500			`~in middle of terrain
scale object 6, 10000, 10000, 10000		`make skybox big!

set dir ".."  `reset the directory back to media\

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveCamera()

`keyboard input for movement
   if upkey()=1 then move camera 3
   if downkey()=1 then move camera -3
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

`find out the camera height
   x#=camera position x()
   z#=camera position z()
   y#=get terrain ground height(1,x#,z#)+30

`position the camera
   position camera x#,y#,z#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectObjects()

`function to pick any object's whose number is between 10 and TotalUnitCount+10
  `using screen coordinates
  which= pick object(mousex(),mousey(),10,TotalUnitCount+10)
 
endfunction which	`return value which object was selected, if 0 then none of objects

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeBoxes()  `make 20 random boxes

make object box 8,10,7,15		`make object
  make mesh from object 1, 8	`extract shape of object
  make object box 9,5,4,7		`make object
  make mesh from object 2, 9	`extract shape of object
  delete object 8
  delete object 9
  a=10+UnitCount
  b=a+10
  for i= a to b				`10 times
    make object box i,10,3,15	`make box
    add limb i, 1, 1			`add a part for object, parts shape is mesh 1
    offset limb i, 1, 0, 0, 1	`position part of object in local coordinates
    hide limb i, 1				`hide- make that part invisible
    add limb i, 2, 2			
    offset limb i, 2, 0, 2, -1
  
    x=rnd(200)+50				`get random x and z coordinates
    z=rnd(200)+50
    y=get terrain ground height (1,x,z)	`get height in that point
    position object i,x,y+4,z			`position object +4 units above ground
    rotate object i,0,rnd(100),0		`random rotate object object
    color object i,rgb(0,255,0)			`color object- green
    
    Unit(i).Stance=1
    Unit(i).Exist=1
    Unit(i).LastShotTime=0
	Unit(i).ReloadTime=200		`miliseconds
	Unit(i).ProjectileType=1
    Unit(i).Name="Machinegunner Box"
    Unit(i).Hp=100
    Unit(i).Dmg=6
    Unit(i).Def=3
    Unit(i).RotationSpeed=1.5
    unit(i).maxspeed=0.6
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.015
    Unit(i).Team=1
    Unit(i).Range=16000	`squared(^2)
  next i
  a=b+1
  b=a+10
for i= a to b			`make 10 more boxes in other team
    make object box i,10,4,15
    add limb i, 1, 1
    offset limb i, 1, 0, 0, 1
    hide limb i, 1
    add limb i, 2, 2			
    offset limb i, 2, 0, 2, -1
  
    x=rnd(200)+200
    z=rnd(200)+200
    y=get terrain ground height (1,x,z)
    position object i,x,y+4,z
    rotate object i,0,rnd(100),0
    color object i,rgb(128,128,0)	`color boxes "yellow-green" lol
    
    Unit(i).Stance=2
    Unit(i).Exist=1
    Unit(i).LastShotTime=0
	Unit(i).ReloadTime=2000		`miliseconds
	Unit(i).ProjectileType=1
    Unit(i).Name="Cannon Box"
    Unit(i).Hp=120
    Unit(i).Dmg=20
    Unit(i).Def=5
    Unit(i).RotationSpeed=1.0
    unit(i).maxspeed=0.4
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.01
    Unit(i).Team=2
    Unit(i).Range=16000		`this is squared (^2) 
  next i

a=10+MovableUnitCount
  b=a+3
for i= a to b			`make 3 more boxes as buildings
    
    make object box i,15,10,20
  
    x=rnd(200)+50
    z=rnd(200)+50
    y=get terrain ground height (1,x,z)
    position object i,x,y+4,z
    rotate object i,0,rnd(100),0
    color object i,rgb(128,128,128)	`color boxes "grey"
    
    Unit(i).Exist=1
    Unit(i).Name="Base"
    Unit(i).Hp=500
    Unit(i).Def=5
    Unit(i).Team=1
    
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectionIndicator(obj)   `indicator handler

if obj=0:   `if no objects selected
      if object visible(2)=1:   `if indicator visible
        hide object (2) 		`make it invisible
      endif
    else 	`if some object is selected
      if object visible(2)=0:	`if indicator is not visible
        show object (2)		    `make it visible
      endif
      `position indicator +10 units above your selected object
      if Object exist (obj) then position object 2,object position x (obj),object position y (obj)+10,object position z(obj)	
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeSelectionIndicator()	`make objects for indicators

make object cone 2, 5	`for active object
zrotate object 2, 180 	`rotate/point down
set object 2, 1, 1, 0	`don't know what this does
color object 2,RGB(0, 255, 0)  		`green color

make object cone 3, 5	`to mark target-coordinates on map
zrotate object 3, 180 	`rotate/point down
set object 3, 1, 1, 0
color object 3,RGB(255, 255, 0)		`yellow color

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Info()

`str$(a) function returns integer, float or other type variable as string
`"text x,y, string" function can't print other variables than strings
`strings can be added to each other i.e. "cat"+"dog"+str$(2)="catdog2"

text 10,20,"FPS :" + str$(Screen FPS())			`frames per second (how many times screen refreshes)
												`determines how hard program is for pc, fps will go down if pc is too weak
												`my 1.8Ghz, 1.5Gb Ram machine shows 80-90 in this program stage. 
												`as more functions are added it should slow down
text 10,40,"Left mouse click to select object"
text 10,55,"Right mouse click to place target/target object"

text 10,90,"Object selected: "+str$(activeID)   `selected, active object
text 10,200,"Failed: "+str$(Failed)	
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function object_distance_squared(a,b) 	`returns distance between objects squared
 										`(distance^2 or distance*distance)

w#= (object position x(a)-object position x(b))^2	`difference in x axis ^2
h#= (object position y(a)-object position y(b))^2	`difference in y axis ^2
l#= (object position z(a)-object position z(b))^2	`difference in z axis ^2

d#= l#+w#+h#	`summ up all distances (like pitagores just in 3D)
				`if u want to get real distance use d#= sqrt(l#+w#+h#)
				`but square root is calculated long, so if u make many calculations
				`program can slow down signicicantly

endfunction d#

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Projectile_distance(a) 	`similar to object_distance_squared
`remstart
w#= (object position x(projectile(a).Object)-projectile(a).StartX)^2	`difference in x axis ^2
h#= (object position y(projectile(a).Object)-projectile(a).StartY)^2	`difference in y axis ^2
l#= (object position z(projectile(a).Object)-projectile(a).StartZ)^2	`difference in z axis ^2

d#= l#+w#+h#

OutOfRange=0
if projectile(a).range<d# then OutOfRange=1
`remend
endfunction OutOfRange

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function LoadMenuPanel()	`this will load sprites for menu

set dir "Sprites\"	`directory for sprites
  load image "MiniMap.bmp",3	`minimap in left corner
  sprite 1,0,600,3
  hide sprite 1
  load image "Panel.bmp",4		`will be info about selected unit/object
  sprite 2,250,600,4
  hide sprite 2
  set dir ".."			`reset directory to media\
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeTarget()	`place target indicator if needed (i cant comment this funtion well, because its no my made.
						`forum link for it: http://forum.thegamecreators.com/?m=forum_view&t=79830&b=1
  obj=SelectObjects()	`targeted object number
  if obj=0		`if none objects selected
    mX = mouseX()
    mY = mouseY()
    cx# = camera position x()
    cy# = camera position y()
    cz# = camera position z()
    pickState = Pick Object (mX, mY, 1, 1)
    If pickState <> 0	`if nothing selected
      Dist# = Get Pick Distance()
      Pick Screen mX, mY, Dist#
      indX# = cx# + get pick vector x()
      indY# = cy# + get pick vector y()
      indZ# = cz# + get pick vector z()
      Position Object 3, indX#, indY#+3, indZ#	`position indicator on terrain
      Unit(ActiveID).Dx=indX#	`set units destination coordinates
      Unit(ActiveID).Dy=indY#
      Unit(ActiveID).Dz=indZ#
      Unit(ActiveID).IsFollowing=0	`no more folowing or attacking
      unit(i).movetarget=0
      unit(i).attacktarget=0
      Unit(ActiveID).IsMoving=1		`start moving to destination coordinates	
      if unit(ActiveID).MoveTarget<>0 then unit(ActiveID).MoveTarget=0
      if object visible(3)=0 then show object (3)	`show destination point indicator
    EndIf
  else
    unit(ActiveID).MoveTarget=obj	`set units target value to selected object
    `if target object is enemy, set attack target
    if unit(ActiveID).MoveTarget>0 and unit(obj).Team<>unit(ActiveID).Team
      unit(ActiveID).AttackTarget=obj
    else
      unit(ActiveID).AttackTarget=0
    endif
    Unit(ActiveID).IsMoving=0	`no more moving to destination coordinates
    Unit(ActiveID).IsFollowing=1	`start folowing
    if object visible(3)=1 then hide object (3) `hide destination point indicator
  endif
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObjects()

for i=10 to MovableUnitCount+9  `for all controllable objects
   if unit(i).exist=1
    if unit(i).IsMoving <>0			`if object is moving to destination point
        MoveObject(i)					`then move it
      if abs(unit(i).dx-object position x(i))<5 and abs(unit(i).dz-object position z(i))<5	`if at destination. stop object
        unit(i).Ismoving=0			`if reached destination point then stop
      endif
    endif
    if unit(i).IsFollowing <>0		`if object is folowing other object
      if unit(unit(i).MoveTarget).Team=unit(i).Team
        if object_distance_squared (i,Unit(i).MoveTarget)>FollowDistance `if is too far
          FollowObject(i)				`then move it towards target
        endif
      else
        if object_distance_squared (i,Unit(i).MoveTarget)>Unit(i).Range-10 then FollowObject(i) 
      endif
    endif
   endif 
 next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObject(ID)	`made by Neuro Fuzzy, this is little edited to suit this program
						`link to His tutorial: http://www.neurofuzzydev.com/V/D/43a.htm
						`link to download full vectors tutorial: 
						`http://forum.thegamecreators.com/?m=forum_view&t=133126&b=7
  a = 1
  null = make vector3(a)
  set vector3 a, unit(ID).Dx - object position x(ID), 0, unit(ID).Dz - object position z(ID)
  distance# = length vector3(a)

Rem PJY - check the length of this vector.
 
  Rem PJY - now we test to find out if the selected cube is pointing at the targeted cube
  Rem PJY - we do this by comparing the angle between the vector representing the selected cube's direction
  Rem PJY - and the vector 90 degrees to the side of that
  normalize vector3 a, a
  b = 2
  null = make vector3(b)
  set vector3 b, limb position x(ID, 1) - object position x(ID), 0, limb position z(ID, 1) - object position z(ID)
  normalize vector3 b, b
  Rem PJY - calculate angle between direction of selected cube and vector towards the target cube
  angle# = acos(dot product vector3(a, b))
  Rem PJY - create a cross product vector c to determine in which direction to turn selected cube
  c = 3
  null = make vector3(c)
  set vector3 c, 0, 1, 0
  cross product vector3 c, b, c
  angle2# = acos(dot product vector3(a, c))
  
  null = delete vector3(b)
  null = delete vector3(c)
  null = delete vector3(a)

Rem PJY - if the selected cube is not pointing at the targeted cube, turn it towards the targeted cube
  if angle# > 0.1
    if angle2# <> 0
      Rem PJY - select whether to turn right or left
      if angle2# >= 90
        turn object right ID, Unit(ID).RotationSpeed
	  else
		turn object left ID, Unit(ID).RotationSpeed
	  endif
	endif
  endif

Rem PJY - now depending on the angle and the distance between the cubes
  Rem PJY - we move the selected cube. The reason for the following code is that
  Rem PJY - without it in certain situations the seleceted cube could begin
  Rem PJY - "orbiting" the targeted cube, i.e. where it is moving so much per turn
  Rem PJY - that it is not decreasing the angle
  
  `all of the following code meaning is to slow down object 
  `when it is near or in big angle with it destination point
  `the best way to set angles, distances and slow down/acelerate values
  `is to experiment. 
  `all these values varie with different box sizes, speeds, stop distances 
  
  `if object is pointing ~ at its target then acelerate till max speed
  if angle# < 1	
    if unit(ID).speed<unit(ID).maxspeed then unit(ID).speed=unit(ID).speed+unit(ID).traction	
  endif
  
  `if object is pointing sharp angle at its target then acelerate till max speed/1.5
  if angle# => 1 AND angle# < 10	
	if unit(ID).speed<unit(ID).maxspeed/1.5
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing bigger angle at its target then acelerate till max speed/2
  if angle# => 10 AND angle# < 90 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/2
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing away from its target then acelerate till max speed/8
  if angle# => 90 AND angle# < 120 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/8
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing away from its target and distance is small
  `then acelerate till max speed/10
  if angle# => 120 AND distance# > 10
	if unit(ID).speed<unit(ID).maxspeed/10
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, slow down
	endif
  endif
  
  `i added this by experimenting with boxes, to slow down even more
  if angle# => 80 AND distance# < 20
	if unit(ID).speed<unit(ID).maxspeed/20
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.02	`if too fast, slow down
	endif
  endif
 
  move object ID, unit(ID).speed  `when we set units speed, now can finally move it, YeY!
  
  `get coordinates of object 
  Ox#=object position x(ID)
  Oz#=object position z(ID)
  Oy#=get terrain ground height (1,Ox#,Oz#)+4
  `and place it on terrain
  position object ID,Ox#,Oy#,Oz#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function FollowObject(ID)   `this is a simple function,

`which changes object destination coordinates into followed object coordinates, 
Unit(ID).dx=object Position X(Unit(ID).Movetarget)
Unit(ID).dz=object Position Z(Unit(ID).Movetarget)
`and then calls MoveObject() function to move object
MoveObject(ID)

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function ObjectInfo()   `write selected object information
  
  if activeID<>0
    if activeID>=10+UnitCount and activeID<10+MovableUnitCount
      text 610, 680, "Name: "+ Unit(ActiveID).Name
	  text 610, 695, "Team: "+ str$(Unit(ActiveID).Team)
	  text 610, 710, "Hp:   "+ str$(Unit(ActiveID).Hp)
	  text 610, 725, "Dmg:  "+ str$(Unit(ActiveID).Dmg)
	endif
	if activeID>=10+MovableUnitCount and activeID<10+TotalUnitCount
      text 610, 680, "Name: "+ Unit(ActiveID).Name
	  text 610, 695, "Team: "+ str$(Unit(ActiveID).Team)
	  text 610, 710, "Hp:   "+ str$(Unit(ActiveID).Hp)
	endif
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function RefreshSprites()

paste sprite 1,0,600
  paste sprite 2,250,600

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Attack()

for i=10 to MovableUnitCount+10  `for all movable objects
    if unit(i).AttackTarget<>0 
      if object_distance_squared(i,unit(i).AttackTarget)<unit(i).range
        Time=timer()
        if Unit(i).LastShotTime+Unit(i).ReloadTime< Time
          MakeProjectile(i)
          Unit(i).LastShotTime=Time
        endif
      endif				
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeProjectile(ID)

found=0
  i=0

while found=0 and i<ProjectilesCount-1
    inc i, 1
    if projectile(i).type=0
      found=i
  	endif 
  endwhile
  projectile(i).type=1
  n=i+TotalUnitCount+10
  if object exist (n) then delete object n
  Make object sphere n, 10
  color object n,rgb(128,128,128)
  projectile(i).Object=n
  scale object n, 10,10,50
  x=object position x(ID)
  y=object position y(ID)
  z=object position z(ID)
  projectile(i).Startx=x
  projectile(i).Starty=y
  projectile(i).Startz=z
  Position Object n,x,y,z
  Point Object n, object position x(Unit(ID).attacktarget),object position y(Unit(ID).attacktarget),object position z(Unit(ID).attacktarget)
  projectile(i).Range=Unit(ID).Range
  projectile(i).dmg=Unit(ID).dmg
  projectile(i).speed=5.0
  projectile(i).ParentObject=ID		`object who shot projectile- not to check collision with it

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveProjectiles()
  col=0
  for i= 0 to ProjectilesCount 
    if projectile(i).type>0
      if Projectile(i).type=1
        Move Object projectile(i).object, projectile(i).speed
        col=OBJECT COLLISION(projectile(i).object, 0)
        if col>=10 and col<=TotalUnitCount and col<>projectile(i).ParentObject
          a=projectile(i).dmg-unit(col).Def
          if a>0 then dec unit(col).Hp,a
          DestroyProjectile(i)
          ProjectileDestroyed=1
          if unit(col).Hp<1 then DestroyObject(col)
        else
          if Projectile_distance(i)=1 then DestroyProjectile(i)
        endif
      endif 				
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function DestroyObject(ID)

for i=10 to TotalUnitCount+10
    if Unit(i).Movetarget=ID
      Unit(i).IsFollowing=0
      Unit(i).Movetarget=0
    endif
    if Unit(i).Attacktarget=ID then Unit(i).Attacktarget=0 
  next i
  
  found=0
  i=0
  while found=0 and i<DestroyedUnitsCount-10
    inc i, 1
    if DestroyedUnit(i).exist=0
      found=i
  	endif 
  endwhile
  if limb exist (ID, 1) then remove limb ID, 1
  make mesh from object 1, ID
  m=10+TotalUnitCount+OtherObjectsCount+i
  make object m,1,0
  color object m, RGB (10,10,0)
  position object m, Object position x (ID), Object position y (ID), Object position z (ID) 
  rotate object m, Object angle x (ID), Object angle y (ID),Object angle z (ID)
  DestroyedUnit(i).exist =1
  DestroyedUnit(i).Name = Unit(ID).Name
  DestroyedUnit(i).MaxHp =Unit(ID).Maxhp 
  DestroyedUnit(i).Dmg =Unit(ID).dmg
  DestroyedUnit(i).MaxSpeed =Unit(ID).MaxSpeed		
  DestroyedUnit(i).Traction =Unit(ID).traction
  DestroyedUnit(i).RotationSpeed =Unit(ID).RotationSpeed
  DestroyedUnit(i).ProjectileType = Unit(ID).ProjectileType
  DestroyedUnit(i).ReloadTime =Unit(ID).ReloadTime
  DestroyedUnit(i).Range =Unit(ID).Range
  Unit(ID).Name=""
  Unit(ID).Exist=0
  Unit(ID).Team=0
  Unit(ID).Maxhp=0
  Unit(ID).hp=0
  Unit(ID).dmg=0 
  Unit(ID).MaxSpeed=0 
  Unit(ID).Speed=0 
  Unit(ID).traction=0 
  Unit(ID).RotationSpeed=0 
  Unit(ID).Range=0 
  Unit(ID).ProjectileType=0 
  Unit(ID).LastShotTime=0 
  Unit(ID).ReloadTime=0 
  Unit(ID).MoveTarget=0 
  Unit(ID).AttackTarget=0 
  Unit(ID).IsMoving=0 
  Unit(ID).IsFollowing=0 
  Unit(ID).Dx=0 
  Unit(ID).Dy=0 
  Unit(ID).Dz=0 
  Delete Object ID

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function DestroyProjectile(ID)

delete object (projectile(ID).object)
  projectile(ID).Object=0 
  projectile(ID).type=0  
  projectile(ID).dmg=0  	
  projectile(ID).Speed=0 
  projectile(ID).ParentObject=0 
  projectile(ID).AttackTarget=0

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function RotateTurrets()
a=10+UnitCount
b=a+vehiclesCount
for i=a to b
  `lets do the same to find out which direction should vehicles turret turn
  if unit(i).AttackTarget<>0
    text 700, i*10,str$(unit(i).attacktarget)
  
    a = 1
    null = make vector3(a)
    set vector3 a, object position x(unit(i).attacktarget) - object position x(i), 0, object position z(unit(i).attacktarget) - object position z(i)
    turretdistance# = length vector3(a)

normalize vector3 a, a
    b = 2
    null = make vector3(b)
    d=int(limb angle y(i,2))
    e=int(object angle y(i))
    f=d+e
    if f<0 
      limbangle=f+360
    else
      if f>360
        limbangle=f-360
      else
        limbangle=f
      endif
    endif
    if e>180 and e<270 then limbangle= 90-limbangle
    vecx#=acos (limbangle)
    vecz#=asin (limbangle)
    set vector3 b,vecx#,0,vecz# 
    normalize vector3 b, b
    Rem PJY - calculate angle between direction of selected cube and vector towards the target cube
    turretangle# = acos(dot product vector3(a, b))
    Rem PJY - create a cross product vector c to determine in which direction to turn selected cube
    c = 3
    null = make vector3(c)
    set vector3 c, 0, 1, 0
    cross product vector3 c, b, c
    turretangle2# = acos(dot product vector3(a, c))
    
    null = delete vector3(b)
    null = delete vector3(c)
    null = delete vector3(a)

Rem PJY - if the selected cube is not pointing at the targeted cube, turn it towards the targeted cube
    if turretangle# > 1
      if turretangle2# <> 0
        Rem PJY - select whether to turn right or left
        if turretangle2# >= 90
          rotate limb i, 2, limb angle x(i,2), limb angle y(i,2)-1, limb angle z(i,2)
	    else
		  rotate limb i, 2, limb angle x(i,2), limb angle y(i,2)+1, limb angle z(i,2)
	    endif
	  endif
    endif
  endif
next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function CheckNewTargets()
  found=0
  b=10+TotalUnitCount
  for i=10 to b
    if unit(i).exist=1
      if unit(i).attacktarget=0 and unit(i).stance>0
         for n=10 to b
          while n<b and found=0
            inc n
            if n<>i and unit(n).exist=1 and unit(n).team<>unit(i).team
              if object_distance_squared(i,n)<unit(i).range
                found=1
                unit(i).attacktarget=n
                if unit(i).stance=2 then unit(i).movetarget=n
              endif

endif
          endwhile  
        next n
      endif
    endif  
  next i

endfunction

+ Code Snippet

Remstart
	Today, February 01, 2011, 8:31:10 PM
	Project: Terrain
	*Load map
	*Select objects
	*Move camera
	*Move objects to point on map
	*Follow enemies and friendly differently
	*Smooth rotation and speed until reach target
	*Added 2 sprites and text over them
	*different team object can be attacked
Remend

`--- Constants ---

#constant UnitCount 200		`maximum number of each type of objects
#constant VehiclesCount 100
#constant BuildingsCount 100
#constant ProjectilesCount 100
#constant OtherObjectsCount 100
#constant DestroyedUnitsCount 300
#constant FollowDistance 500.0 `this is squared (^2) 
`because square root in get_distance function would slow down program a little

`--- Types ---

type Units   `u can add more stats in here, atm for program work need only "target" variable
  Stance as integer `0-passive, 2-defensive, 3-agresive
  Name as string
  Exist as integer	`0-not egzist, 1-egzist
  Team as integer
  MaxHp as integer
  Hp as integer
  Dmg as integer
  Def as integer
  MaxSpeed as float		
  Speed as float
  Traction as float		`acelleration
  RotationSpeed as float	`how fast object rotates
  ProjectileType as integer 
  LastShotTime as integer
  ReloadTime as integer
  Range as float			`attack range- distance in which attacked object will be followed
  MoveTarget as integer	`Object to be followed
  AttackTarget as integer	`Object to be attacked
  IsMoving as integer		`if is moving
  IsFollowing as integer	`if is following
  Dx as float				`destination coordinates
  Dy as float
  Dz as float
endtype

type DestroyedUnits   `u can add more stats in here, atm for program work need only "target" variable
  exist as integer
  Name as string
  MaxHp as integer
  Dmg as integer
  MaxSpeed as float		
  Traction as float		`acelleration
  RotationSpeed as float	`how fast object rotates
  ProjectileType as integer 
  ReloadTime as integer
  Range as float			`attack range- distance in which attacked object will be followed
endtype

type Projectiles   		`projectiles for units to shoot with
  Object as integer
  type as integer 		`0-not exists, 1-bullet, 2-explosive, 3-rocket
  dmg as integer	
  Speed as float
  ParentObject as integer
  AttackTarget as integer	`Object to be followed if projectile is rocket
  startX as float
  startY as float
  startZ as float
  Range as float
endtype

`--- Variables ---

global activeID as integer    `selected object number
global TotalUnitCount as integer	`total number of Your controllable units
TotalUnitCount= UnitCount + VehiclesCount + BuildingsCount
global MovableUnitCount as integer	`total number of Your movable units
MovableUnitCount= UnitCount + VehiclesCount
global failed as integer
failed=0

`--- Arrays ---

`array of all your controlable objects (units, soldiers, robots or whatever u use in game 
dim Unit(TotalUnitCount+10) as units 
dim Projectile(ProjectilesCount) as Projectiles
dim DestroyedUnit(destroyedUnitsCount) as DestroyedUnits  

`------------------------------------------------------------------------------------------
`--- Program start ---
`------------------------------------------------------------------------------------------

Setup()   			`program setup
TerrainSetup()  	`make and set up terrain
LoadMenuPanel()		`load sprites for in game menu
MakeBoxes()   		`make random objects just for testing, remove later
MakeSelectionIndicator()	`make objects to be shown above selected objects 
							`and at their destination coordinates

`------------------------------------------------------------------------------------------
`--- Main Loop ---
`------------------------------------------------------------------------------------------

do
  
  `camera movement
  MoveCamera()  
  
  `left mouse click: select object
  if mouseclick()= 1 then activeID= SelectObjects() 
   
  `place indicators over selected object and its target position 
  `(can load your own object like sword, target sign and etc.)
  SelectionIndicator(activeID)   
  
  `right mouse click: set active object's target as a point on map or other object
  if mouseclick()= 2 then MakeTarget()  
  
  `When all actions are made its time to move all the objects (if they should move ofc) 
  MoveObjects()
  
  CheckNewTargets()
  
  RotateTurrets()
  
  Attack()
  
  MoveProjectiles()
  
  `paste sprites and later print text, so text don't disappear behind sprites
  `thx to Phaelax
  `more about text over sprites here: 
  `http://forum.thegamecreators.com/?m=forum_view&t=171622&b=1
  RefreshSprites()
  `when u encounter problems with new functions added, print variables to see 
  `if your functions give right answers, very usefull for debugging
  Info()
  
  `Selected object/unit info
  ObjectInfo()
    
  update terrain   `apply all the changes to terrain
  sync  `apply all the changes to screen

loop

`------------------------------------------------------------------------------------------
`--- Functions and procedures ---
`------------------------------------------------------------------------------------------

function Setup()`program setup

sync on			`automatic screen refresh on
sync rate 500	`refresh rate (i think it is times per second)
`i set such a high rate to see what highest actual frame rate my pc can reach 
`i dont know what rate is recomemnded, but mostly used in tutorials it is 60 or 90 

`when new objects are created camera isnt positioned at coordinates of new object
autocam off  

`width and height in pixels and how much colors will contain 
`(not sure but should be 16 or 32 bits)
set display mode 1024,768,32	
								
set camera range 10,10000	`how far objects will be visible from 10 units to 10000 units

Fog on						`u know what fog is :D
Fog distance 15000			`this is distance in which u can't see anything through fog
							`it makes less colorful objects in smaller distance too
							`if u remove fog, skybox will be very bright
Fog color RGB(128,128,128)	`fog color- grey

maximize window		`make full screen

randomize timer()	`set starting value for random() function 
					`every time u run program random numbers will be different

xrotate camera 20	`point camera little down

`hide mouse			`U can hide mouse cursor if want. I like to see it :P
					`later U can put some image instead of cursor i.e. target 

`re-calculates the normals of each polygon in an object 
`for the purpose of working out the rendering of each of the polygons
set normalization on

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function TerrainSetup()	`make and set up terrain

set dir "media\DefaultMap\"   		` set the directory to map's location (2 levels higher)

` load base and detail texture
load image "texture.bmp", 1
load image "detail.tga", 2

make object terrain 1                              ` create the terrain object
set terrain heightmap 1, "map.bmp"                 ` set the heightmap
set terrain scale 1, 3, 0.1, 3                     ` set the scale
set terrain split 1, 16                            ` split value by 16 * 16
set terrain tiling 1, 4                            ` detail map tiling
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5  ` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain texture 1, 1, 2                        ` base and detail texture
build terrain 1                                    ` finally build the terrain
position object 1, 0,0,0						   ` position terrain at zero coordinates
sc_setupComplexObject 1,1,2                        ` setup collision on the terrain

set dir ".."  			` reset the directory (1 level lower to media\)
set dir "Skybox\"  		` set the directory to skybox's location 

`load our skybox (this is very low quality, u can find smth better)
`this file has images asociated (1-6 jpg images in media directory). 
`U can change or edit them
load object "skybox.x", 6	

set object light 6, 0
set object texture 6, 3, 1	`not sure what it should do, but it improves skybox texture :)

position object 6, 500, 50, 500			`~in middle of terrain
scale object 6, 10000, 10000, 10000		`make skybox big!

set dir ".."  `reset the directory back to media\

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveCamera()

   `keyboard input for movement
   if upkey()=1 then move camera 3
   if downkey()=1 then move camera -3
   if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-2)
   if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+2)

   `find out the camera height
   x#=camera position x()
   z#=camera position z()
   y#=get terrain ground height(1,x#,z#)+30

   `position the camera
   position camera x#,y#,z#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectObjects()

  `function to pick any object's whose number is between 10 and TotalUnitCount+10
  `using screen coordinates
  which= pick object(mousex(),mousey(),10,TotalUnitCount+10)
 
endfunction which	`return value which object was selected, if 0 then none of objects

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeBoxes()  `make 20 random boxes

  make object box 8,10,7,15		`make object
  make mesh from object 1, 8	`extract shape of object
  make object box 9,5,4,7		`make object
  make mesh from object 2, 9	`extract shape of object
  delete object 8
  delete object 9
  a=10+UnitCount
  b=a+10
  for i= a to b				`10 times
    make object box i,10,3,15	`make box
    add limb i, 1, 1			`add a part for object, parts shape is mesh 1
    offset limb i, 1, 0, 0, 1	`position part of object in local coordinates
    hide limb i, 1				`hide- make that part invisible
    add limb i, 2, 2			
    offset limb i, 2, 0, 2, -1
  
    x=rnd(200)+50				`get random x and z coordinates
    z=rnd(200)+50
    y=get terrain ground height (1,x,z)	`get height in that point
    position object i,x,y+4,z			`position object +4 units above ground
    rotate object i,0,rnd(100),0		`random rotate object object
    color object i,rgb(0,255,0)			`color object- green
    
    Unit(i).Stance=1
    Unit(i).Exist=1
    Unit(i).LastShotTime=0
	Unit(i).ReloadTime=200		`miliseconds
	Unit(i).ProjectileType=1
    Unit(i).Name="Machinegunner Box"
    Unit(i).Hp=100
    Unit(i).Dmg=6
    Unit(i).Def=3
    Unit(i).RotationSpeed=1.5
    unit(i).maxspeed=0.6
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.015
    Unit(i).Team=1
    Unit(i).Range=16000	`squared(^2)
  next i
  a=b+1
  b=a+10
for i= a to b			`make 10 more boxes in other team
    make object box i,10,4,15
    add limb i, 1, 1
    offset limb i, 1, 0, 0, 1
    hide limb i, 1
    add limb i, 2, 2			
    offset limb i, 2, 0, 2, -1
  
    x=rnd(200)+200
    z=rnd(200)+200
    y=get terrain ground height (1,x,z)
    position object i,x,y+4,z
    rotate object i,0,rnd(100),0
    color object i,rgb(128,128,0)	`color boxes "yellow-green" lol
    
    Unit(i).Stance=2
    Unit(i).Exist=1
    Unit(i).LastShotTime=0
	Unit(i).ReloadTime=2000		`miliseconds
	Unit(i).ProjectileType=1
    Unit(i).Name="Cannon Box"
    Unit(i).Hp=120
    Unit(i).Dmg=20
    Unit(i).Def=5
    Unit(i).RotationSpeed=1.0
    unit(i).maxspeed=0.4
    Unit(i).Speed=0.0
    Unit(i).IsMoving=0.0
    Unit(i).IsFollowing=0.0
    Unit(i).Traction=0.01
    Unit(i).Team=2
    Unit(i).Range=16000		`this is squared (^2) 
  next i

  a=10+MovableUnitCount
  b=a+3
for i= a to b			`make 3 more boxes as buildings
    
    make object box i,15,10,20
  
    x=rnd(200)+50
    z=rnd(200)+50
    y=get terrain ground height (1,x,z)
    position object i,x,y+4,z
    rotate object i,0,rnd(100),0
    color object i,rgb(128,128,128)	`color boxes "grey"
    
    Unit(i).Exist=1
    Unit(i).Name="Base"
    Unit(i).Hp=500
    Unit(i).Def=5
    Unit(i).Team=1
    
  next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function SelectionIndicator(obj)   `indicator handler

  if obj=0:   `if no objects selected
      if object visible(2)=1:   `if indicator visible
        hide object (2) 		`make it invisible
      endif
    else 	`if some object is selected
      if object visible(2)=0:	`if indicator is not visible
        show object (2)		    `make it visible
      endif
      `position indicator +10 units above your selected object
      if Object exist (obj) then position object 2,object position x (obj),object position y (obj)+10,object position z(obj)	
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeSelectionIndicator()	`make objects for indicators

make object cone 2, 5	`for active object
zrotate object 2, 180 	`rotate/point down
set object 2, 1, 1, 0	`don't know what this does
color object 2,RGB(0, 255, 0)  		`green color

make object cone 3, 5	`to mark target-coordinates on map
zrotate object 3, 180 	`rotate/point down
set object 3, 1, 1, 0
color object 3,RGB(255, 255, 0)		`yellow color

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Info()

`str$(a) function returns integer, float or other type variable as string
`"text x,y, string" function can't print other variables than strings
`strings can be added to each other i.e. "cat"+"dog"+str$(2)="catdog2"

text 10,20,"FPS :" + str$(Screen FPS())			`frames per second (how many times screen refreshes)
												`determines how hard program is for pc, fps will go down if pc is too weak
												`my 1.8Ghz, 1.5Gb Ram machine shows 80-90 in this program stage. 
												`as more functions are added it should slow down
text 10,40,"Left mouse click to select object"
text 10,55,"Right mouse click to place target/target object"

text 10,90,"Object selected: "+str$(activeID)   `selected, active object
text 10,200,"Failed: "+str$(Failed)	
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function object_distance_squared(a,b) 	`returns distance between objects squared
 										`(distance^2 or distance*distance)

w#= (object position x(a)-object position x(b))^2	`difference in x axis ^2
h#= (object position y(a)-object position y(b))^2	`difference in y axis ^2
l#= (object position z(a)-object position z(b))^2	`difference in z axis ^2

d#= l#+w#+h#	`summ up all distances (like pitagores just in 3D)
				`if u want to get real distance use d#= sqrt(l#+w#+h#)
				`but square root is calculated long, so if u make many calculations
				`program can slow down signicicantly

endfunction d#

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Projectile_distance(a) 	`similar to object_distance_squared
`remstart
w#= (object position x(projectile(a).Object)-projectile(a).StartX)^2	`difference in x axis ^2
h#= (object position y(projectile(a).Object)-projectile(a).StartY)^2	`difference in y axis ^2
l#= (object position z(projectile(a).Object)-projectile(a).StartZ)^2	`difference in z axis ^2

d#= l#+w#+h#

OutOfRange=0
if projectile(a).range<d# then OutOfRange=1
`remend
endfunction OutOfRange

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function LoadMenuPanel()	`this will load sprites for menu

  set dir "Sprites\"	`directory for sprites
  load image "MiniMap.bmp",3	`minimap in left corner
  sprite 1,0,600,3
  hide sprite 1
  load image "Panel.bmp",4		`will be info about selected unit/object
  sprite 2,250,600,4
  hide sprite 2
  set dir ".."			`reset directory to media\
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeTarget()	`place target indicator if needed (i cant comment this funtion well, because its no my made.
						`forum link for it: http://forum.thegamecreators.com/?m=forum_view&t=79830&b=1
  obj=SelectObjects()	`targeted object number
  if obj=0		`if none objects selected
    mX = mouseX()
    mY = mouseY()
    cx# = camera position x()
    cy# = camera position y()
    cz# = camera position z()
    pickState = Pick Object (mX, mY, 1, 1)
    If pickState <> 0	`if nothing selected
      Dist# = Get Pick Distance()
      Pick Screen mX, mY, Dist#
      indX# = cx# + get pick vector x()
      indY# = cy# + get pick vector y()
      indZ# = cz# + get pick vector z()
      Position Object 3, indX#, indY#+3, indZ#	`position indicator on terrain
      Unit(ActiveID).Dx=indX#	`set units destination coordinates
      Unit(ActiveID).Dy=indY#
      Unit(ActiveID).Dz=indZ#
      Unit(ActiveID).IsFollowing=0	`no more folowing or attacking
      unit(i).movetarget=0
      unit(i).attacktarget=0
      Unit(ActiveID).IsMoving=1		`start moving to destination coordinates	
      if unit(ActiveID).MoveTarget<>0 then unit(ActiveID).MoveTarget=0
      if object visible(3)=0 then show object (3)	`show destination point indicator
    EndIf
  else
    unit(ActiveID).MoveTarget=obj	`set units target value to selected object
    `if target object is enemy, set attack target
    if unit(ActiveID).MoveTarget>0 and unit(obj).Team<>unit(ActiveID).Team
      unit(ActiveID).AttackTarget=obj
    else
      unit(ActiveID).AttackTarget=0
    endif
    Unit(ActiveID).IsMoving=0	`no more moving to destination coordinates
    Unit(ActiveID).IsFollowing=1	`start folowing
    if object visible(3)=1 then hide object (3) `hide destination point indicator
  endif
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObjects()

 for i=10 to MovableUnitCount+9  `for all controllable objects
   if unit(i).exist=1
    if unit(i).IsMoving <>0			`if object is moving to destination point
        MoveObject(i)					`then move it
      if abs(unit(i).dx-object position x(i))<5 and abs(unit(i).dz-object position z(i))<5	`if at destination. stop object
        unit(i).Ismoving=0			`if reached destination point then stop
      endif
    endif
    if unit(i).IsFollowing <>0		`if object is folowing other object
      if unit(unit(i).MoveTarget).Team=unit(i).Team
        if object_distance_squared (i,Unit(i).MoveTarget)>FollowDistance `if is too far
          FollowObject(i)				`then move it towards target
        endif
      else
        if object_distance_squared (i,Unit(i).MoveTarget)>Unit(i).Range-10 then FollowObject(i) 
      endif
    endif
   endif 
 next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveObject(ID)	`made by Neuro Fuzzy, this is little edited to suit this program
						`link to His tutorial: http://www.neurofuzzydev.com/V/D/43a.htm
						`link to download full vectors tutorial: 
						`http://forum.thegamecreators.com/?m=forum_view&t=133126&b=7
  a = 1
  null = make vector3(a)
  set vector3 a, unit(ID).Dx - object position x(ID), 0, unit(ID).Dz - object position z(ID)
  distance# = length vector3(a)

  Rem PJY - check the length of this vector.
 
  Rem PJY - now we test to find out if the selected cube is pointing at the targeted cube
  Rem PJY - we do this by comparing the angle between the vector representing the selected cube's direction
  Rem PJY - and the vector 90 degrees to the side of that
  normalize vector3 a, a
  b = 2
  null = make vector3(b)
  set vector3 b, limb position x(ID, 1) - object position x(ID), 0, limb position z(ID, 1) - object position z(ID)
  normalize vector3 b, b
  Rem PJY - calculate angle between direction of selected cube and vector towards the target cube
  angle# = acos(dot product vector3(a, b))
  Rem PJY - create a cross product vector c to determine in which direction to turn selected cube
  c = 3
  null = make vector3(c)
  set vector3 c, 0, 1, 0
  cross product vector3 c, b, c
  angle2# = acos(dot product vector3(a, c))
  
  null = delete vector3(b)
  null = delete vector3(c)
  null = delete vector3(a)

  Rem PJY - if the selected cube is not pointing at the targeted cube, turn it towards the targeted cube
  if angle# > 0.1
    if angle2# <> 0
      Rem PJY - select whether to turn right or left
      if angle2# >= 90
        turn object right ID, Unit(ID).RotationSpeed
	  else
		turn object left ID, Unit(ID).RotationSpeed
	  endif
	endif
  endif

  
  Rem PJY - now depending on the angle and the distance between the cubes
  Rem PJY - we move the selected cube. The reason for the following code is that
  Rem PJY - without it in certain situations the seleceted cube could begin
  Rem PJY - "orbiting" the targeted cube, i.e. where it is moving so much per turn
  Rem PJY - that it is not decreasing the angle
  
  `all of the following code meaning is to slow down object 
  `when it is near or in big angle with it destination point
  `the best way to set angles, distances and slow down/acelerate values
  `is to experiment. 
  `all these values varie with different box sizes, speeds, stop distances 
  
  `if object is pointing ~ at its target then acelerate till max speed
  if angle# < 1	
    if unit(ID).speed<unit(ID).maxspeed then unit(ID).speed=unit(ID).speed+unit(ID).traction	
  endif
  
  `if object is pointing sharp angle at its target then acelerate till max speed/1.5
  if angle# => 1 AND angle# < 10	
	if unit(ID).speed<unit(ID).maxspeed/1.5
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing bigger angle at its target then acelerate till max speed/2
  if angle# => 10 AND angle# < 90 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/2
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing away from its target then acelerate till max speed/8
  if angle# => 90 AND angle# < 120 AND distance# > 20
	if unit(ID).speed<unit(ID).maxspeed/8
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, decrease speed
	endif
  endif
  
  `if object is pointing away from its target and distance is small
  `then acelerate till max speed/10
  if angle# => 120 AND distance# > 10
	if unit(ID).speed<unit(ID).maxspeed/10
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.01	`if too fast, slow down
	endif
  endif
  
  `i added this by experimenting with boxes, to slow down even more
  if angle# => 80 AND distance# < 20
	if unit(ID).speed<unit(ID).maxspeed/20
	  unit(ID).speed=unit(ID).speed+unit(ID).traction
	else
	  dec unit(ID).speed, 0.02	`if too fast, slow down
	endif
  endif
 
  move object ID, unit(ID).speed  `when we set units speed, now can finally move it, YeY!
  
  `get coordinates of object 
  Ox#=object position x(ID)
  Oz#=object position z(ID)
  Oy#=get terrain ground height (1,Ox#,Oz#)+4
  `and place it on terrain
  position object ID,Ox#,Oy#,Oz#

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function FollowObject(ID)   `this is a simple function, 

`which changes object destination coordinates into followed object coordinates, 
Unit(ID).dx=object Position X(Unit(ID).Movetarget)
Unit(ID).dz=object Position Z(Unit(ID).Movetarget)
`and then calls MoveObject() function to move object
MoveObject(ID)

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function ObjectInfo()   `write selected object information
  
  if activeID<>0
    if activeID>=10+UnitCount and activeID<10+MovableUnitCount
      text 610, 680, "Name: "+ Unit(ActiveID).Name
	  text 610, 695, "Team: "+ str$(Unit(ActiveID).Team)
	  text 610, 710, "Hp:   "+ str$(Unit(ActiveID).Hp)
	  text 610, 725, "Dmg:  "+ str$(Unit(ActiveID).Dmg)
	endif
	if activeID>=10+MovableUnitCount and activeID<10+TotalUnitCount
      text 610, 680, "Name: "+ Unit(ActiveID).Name
	  text 610, 695, "Team: "+ str$(Unit(ActiveID).Team)
	  text 610, 710, "Hp:   "+ str$(Unit(ActiveID).Hp)
	endif
  endif

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function RefreshSprites() 

  paste sprite 1,0,600
  paste sprite 2,250,600

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function Attack()

 for i=10 to MovableUnitCount+10  `for all movable objects
    if unit(i).AttackTarget<>0 
      if object_distance_squared(i,unit(i).AttackTarget)<unit(i).range
        Time=timer()
        if Unit(i).LastShotTime+Unit(i).ReloadTime< Time
          MakeProjectile(i)
          Unit(i).LastShotTime=Time
        endif
      endif				
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MakeProjectile(ID)

  found=0
  i=0

  while found=0 and i<ProjectilesCount-1
    inc i, 1
    if projectile(i).type=0
      found=i
  	endif 
  endwhile
  projectile(i).type=1
  n=i+TotalUnitCount+10
  if object exist (n) then delete object n
  Make object sphere n, 10
  color object n,rgb(128,128,128)
  projectile(i).Object=n
  scale object n, 10,10,50
  x=object position x(ID)
  y=object position y(ID)
  z=object position z(ID)
  projectile(i).Startx=x
  projectile(i).Starty=y
  projectile(i).Startz=z
  Position Object n,x,y,z
  Point Object n, object position x(Unit(ID).attacktarget),object position y(Unit(ID).attacktarget),object position z(Unit(ID).attacktarget)
  projectile(i).Range=Unit(ID).Range
  projectile(i).dmg=Unit(ID).dmg
  projectile(i).speed=5.0
  projectile(i).ParentObject=ID		`object who shot projectile- not to check collision with it

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

function MoveProjectiles()
  col=0
  for i= 0 to ProjectilesCount 
    if projectile(i).type>0
      if Projectile(i).type=1
        Move Object projectile(i).object, projectile(i).speed
        col=OBJECT COLLISION(projectile(i).object, 0)
        if col>=10 and col<=TotalUnitCount and col<>projectile(i).ParentObject
          a=projectile(i).dmg-unit(col).Def
          if a>0 then dec unit(col).Hp,a
          DestroyProjectile(i)
          ProjectileDestroyed=1
          if unit(col).Hp<1 then DestroyObject(col)
        else
          if Projectile_distance(i)=1 then DestroyProjectile(i)
        endif
      endif 				
    endif
  next i
  
endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function DestroyObject(ID)

  for i=10 to TotalUnitCount+10
    if Unit(i).Movetarget=ID
      Unit(i).IsFollowing=0
      Unit(i).Movetarget=0
    endif
    if Unit(i).Attacktarget=ID then Unit(i).Attacktarget=0 
  next i
  
  found=0
  i=0
  while found=0 and i<DestroyedUnitsCount-10
    inc i, 1
    if DestroyedUnit(i).exist=0
      found=i
  	endif 
  endwhile
  if limb exist (ID, 1) then remove limb ID, 1
  make mesh from object 1, ID
  m=10+TotalUnitCount+OtherObjectsCount+i
  make object m,1,0
  color object m, RGB (10,10,0)
  position object m, Object position x (ID), Object position y (ID), Object position z (ID) 
  rotate object m, Object angle x (ID), Object angle y (ID),Object angle z (ID)
  DestroyedUnit(i).exist =1
  DestroyedUnit(i).Name = Unit(ID).Name
  DestroyedUnit(i).MaxHp =Unit(ID).Maxhp 
  DestroyedUnit(i).Dmg =Unit(ID).dmg
  DestroyedUnit(i).MaxSpeed =Unit(ID).MaxSpeed		
  DestroyedUnit(i).Traction =Unit(ID).traction
  DestroyedUnit(i).RotationSpeed =Unit(ID).RotationSpeed
  DestroyedUnit(i).ProjectileType = Unit(ID).ProjectileType
  DestroyedUnit(i).ReloadTime =Unit(ID).ReloadTime
  DestroyedUnit(i).Range =Unit(ID).Range
  Unit(ID).Name=""
  Unit(ID).Exist=0
  Unit(ID).Team=0
  Unit(ID).Maxhp=0
  Unit(ID).hp=0
  Unit(ID).dmg=0 
  Unit(ID).MaxSpeed=0 
  Unit(ID).Speed=0 
  Unit(ID).traction=0 
  Unit(ID).RotationSpeed=0 
  Unit(ID).Range=0 
  Unit(ID).ProjectileType=0 
  Unit(ID).LastShotTime=0 
  Unit(ID).ReloadTime=0 
  Unit(ID).MoveTarget=0 
  Unit(ID).AttackTarget=0 
  Unit(ID).IsMoving=0 
  Unit(ID).IsFollowing=0 
  Unit(ID).Dx=0 
  Unit(ID).Dy=0 
  Unit(ID).Dz=0 
  Delete Object ID

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function DestroyProjectile(ID)

  delete object (projectile(ID).object)
  projectile(ID).Object=0 
  projectile(ID).type=0  
  projectile(ID).dmg=0  	
  projectile(ID).Speed=0 
  projectile(ID).ParentObject=0 
  projectile(ID).AttackTarget=0 

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function RotateTurrets()
a=10+UnitCount
b=a+vehiclesCount
for i=a to b
  `lets do the same to find out which direction should vehicles turret turn
  if unit(i).AttackTarget<>0
    text 700, i*10,str$(unit(i).attacktarget)
  
    a = 1
    null = make vector3(a)
    set vector3 a, object position x(unit(i).attacktarget) - object position x(i), 0, object position z(unit(i).attacktarget) - object position z(i)
    turretdistance# = length vector3(a)

    normalize vector3 a, a
    b = 2
    null = make vector3(b)
    d=int(limb angle y(i,2))
    e=int(object angle y(i))
    f=d+e
    if f<0 
      limbangle=f+360
    else
      if f>360
        limbangle=f-360
      else
        limbangle=f
      endif
    endif
    if e>180 and e<270 then limbangle= 90-limbangle
    vecx#=acos (limbangle)
    vecz#=asin (limbangle)
    set vector3 b,vecx#,0,vecz# 
    normalize vector3 b, b
    Rem PJY - calculate angle between direction of selected cube and vector towards the target cube
    turretangle# = acos(dot product vector3(a, b))
    Rem PJY - create a cross product vector c to determine in which direction to turn selected cube
    c = 3
    null = make vector3(c)
    set vector3 c, 0, 1, 0
    cross product vector3 c, b, c
    turretangle2# = acos(dot product vector3(a, c))
    
    null = delete vector3(b)
    null = delete vector3(c)
    null = delete vector3(a)

    Rem PJY - if the selected cube is not pointing at the targeted cube, turn it towards the targeted cube
    if turretangle# > 1
      if turretangle2# <> 0
        Rem PJY - select whether to turn right or left
        if turretangle2# >= 90
          rotate limb i, 2, limb angle x(i,2), limb angle y(i,2)-1, limb angle z(i,2)
	    else
		  rotate limb i, 2, limb angle x(i,2), limb angle y(i,2)+1, limb angle z(i,2)
	    endif
	  endif
    endif
  endif
next i

endfunction

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function CheckNewTargets()
  found=0
  b=10+TotalUnitCount
  for i=10 to b
    if unit(i).exist=1
      if unit(i).attacktarget=0 and unit(i).stance>0
         for n=10 to b
          while n<b and found=0
            inc n
            if n<>i and unit(n).exist=1 and unit(n).team<>unit(i).team
              if object_distance_squared(i,n)<unit(i).range
                found=1
                unit(i).attacktarget=n
                if unit(i).stance=2 then unit(i).movetarget=n
              endif

            endif
          endwhile  
        next n
      endif
    endif  
  next i

endfunction

Join The dark Side! We have cookies

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 3rd Feb 2011 17:09 Edited at: 3rd Feb 2011 17:10

Link

My apologies, the correct functions is:

+ Code Snippet

function GetShortestAngle(x#, y#, ay#, tx#, ty#)

    `set vectors
    set vector2 1, newxvalue(0.0, ay#, 1.0), newzvalue(0.0, ay#, 1.0)
    set vector2 2, tx# - x#, ty# - y#
    normalize vector2 2, 2
    
    `Find data
    ang# = acos(dot product vector2(1, 2))
    if ccw vector2(1, 2) < 0.0 then ang# = -ang#
endfunction ang#

Sven B

Back to top

Profile PM Email

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 4th Feb 2011 20:39

Link

Thanks Sven... i can't make this work in my code anyway- but maybe it helps for other ppl

The longer version of vectors works ok, i will use it as long as have enough fps, if there is a must to fasten program, i will learn all the vectors and even ask a mathematics professor for help if there is no other way

on the other hand that "longer" function ain't that long to slow program decisively

Now rewriting all the program in other structure to fight back some fps

Join The dark Side! We have cookies

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / determine which way to rotate object in smallest angle?

Attachments

Attachments