Sorry your browser is not supported!

reference 
ai(num,4) = selected or not, 1 for selected
numselected = ai's spot in line placement. 
totalselected = total number of units selected.
currentline = current line to work on. right now it's merely how far to offset the current row from the found sine value.
linemax=max amount of units in each line
ai(0,0) number of ai
playerdata#(0) = placment object, I,E mouse pointer

for a = 1 to ai(0,0)

numselected=0

totalselected=0 <--- this finds out how many ai are selected
for a =1 to ai(0,0)
    
    if ai(a,4)=1 then inc totalselected,1
    
NEXT a

linemax = 5
currentline = 0 


if mouseclick()=2 and ai(a,4)=1 <---- code to see if a unit needs to be positioned 

`do math

if numselected > linemax then numselected = 0 : inc currentline,60

        x1#=cos(wrapvalue(ax)) * (500 + object position x(playerdata#(0)))
        y1#=sin(wrapvalue(ax)) * (500 + object position z(playerdata#(0)))

        x2#=cos(wrapvalue(ax + 180 )) * (500 + object position x(playerdata#(0)))
        y2#=sin(wrapvalue(ax + 180 )) * ( 500 + object position z(playerdata#(0)))


        dx# = (x2# - x1#) / totalselected
        dy# = (y2# - y1#) / totalselected

    AI Set Entity position ai(a,3), object position x(playerdata#(0)) + (dx# * numselected)  ,object position z(playerdata#(0))  + (dy# * numselected)
`print " (dx# * numselected) ", (dx# * numselected)

ENDIF `mouseclick()=2 and ai(a,4)=1


 if ai(a,4)=1 then inc numselected,1 

next a 

Rem Project: Dark Basic Pro Project
Rem Created: Thursday, March 07, 2013

Rem ***** Main Source File *****

type unit
    x as float
    y as float
endtype


dim units(100) as unit

angle as float
rem spacing between units
spacing = 20
rem how many units per row
unitRowSize = 10
rem keeps units centered
offset# = spacing * (unitRowSize-1) / 2.0

midX = screen width() / 2
midY = screen height() / 2

sync on
sync rate 30

do
    cls
    
    if mouseclick() = 1 then inc unitRowSize
    if mouseclick() = 2 then dec unitRowSize
    offset# = spacing * (unitRowSize-1) / 2.0
    
    rem point troops at mouse
    mx = mousex()
    my = mousey()
    angle = atanfull(mx-midX, my-midY)
    print angle
    rem Angle units are facing
    fx# = sin(angle)
    fy# = cos(angle)
    
    rem add 90 to get angle to the right of where units are facing
    rem this is the direction in which the row expands
    rx# = sin(angle+90)
    ry# = cos(angle+90)
    
    
    ink -1,0
    u = -1
    row = -1
    for i = 1 to 100
        u = wrap(u+1, 0, unitRowSize-1)
        if u = 0 then inc row
        d# = u*spacing - offset#
        units(i).x = (rx# * d#) - (fx# * (row*spacing)) + midX
        units(i).y = (ry# * d#) - (fy# * (row*spacing)) + midY
        
        circle units(i).x, units(i).y, 6
    next i


    ink 0xFF0000,0
    line midX, midY, mx, my

    sync
loop