perimeter 1

;Script by Grendel
; add this to init - player addaction ["Form Peremiter","peremiter.sqs"]
pgroup = group player
_groupnum=(count units _pgroup)
_grouparray=units _pgroup

_deg=0
_splitdeg=360/(_groupnum-1)
_range=15
_pos=getpos player
_px=_pos select 0
_py=_pos select 1

#top
_groupnum=_groupnum-1
?(_groupnum<0):exit
_pman=_grouparray select _groupnum
;skip player
?(_pman==player):goto "top"

_deg=_deg+_splitdeg
_movex=_px+(_range*(sin(_deg)))
_movey=_py+(_range*(cos(_deg)))

_watchx=_px+((_range*2)*(sin(_deg)))
_watchy=_py+((_range*2)*(cos(_deg)))


_pman domove [_movex,_movey,0]
_pman dowatch [_watchx,_watchy,1]

goto "top"