_Allign = _this select 0
_X = _this select 1
_Y = _this select 2
_Nb = _this select 3

_C = count _Allign
_D = 1
_N = 0
_Sel = 1
_Dir = direction (_Allign select 0)
_P00 = getpos (_Allign select 0) select 0
_P11 = getpos (_Allign select 0) select 1
_P0 = _P00
_P1 = _P11

#boucle
_B = _Allign select _Sel
_B setDir _Dir
_B setpos [_P0 + cos _Dir*_X,_P1 - sin _Dir*_X]
_P0 = getpos _B select 0
_P1 = getpos _B select 1
_Sel = _Sel + 1
?(_D == _C):goto "exit"
_D = _D + 1
?((_D == _Nb) and (_N == 0)):goto "suivant0"
?(_D == _Nb):goto "suivant1"
goto "boucle"
#suivant0
_P00 = _P00 - cos _Dir*_X
_P11 = _P11 + sin _Dir*_X
#suivant1
_P0 = _P00 - cos (90 - _Dir)*_Y
_P1 = _P11 - sin (90 - _Dir)*_Y
_P00 = _P0
_P11 = _P1
_N = 1
_D = 0
_C = _C - _Nb
goto "boucle"

#exit
exit