; [vojak01,tank,"PASAZIER",4] Exec "bvp.sqs"
; [vojak02,tank,"VODIC",4] Exec "bvp.sqs"
; [vojak03,tank,"VELITEL",4] Exec "bvp.sqs"
; [vojak04,tank,"STRELEC",4] Exec "bvp.sqs"

_tankysta = (_this Select 0)
_tank = (_this Select 1)
_miesto = (_this Select 2)
_count = (_this Select 3)

? (_miesto == "PASAZIER") : _tankysta AssignAsCargo _tank;[_tankysta] OrderGetIn True;Goto "dalej"
? (_miesto == "VODIC") : _tankysta AssignAsDriver _tank;[_tankysta] OrderGetIn True;Goto "dalej"
? (_miesto == "VELITEL") : _tankysta AssignAsCommander _tank;[_tankysta] OrderGetIn True;Goto "dalej"
? (_miesto == "STRELEC") : _tankysta AssignAsGunner _tank;[_tankysta] OrderGetIn True

#dalej
@(_tankysta In _tank)

? (_miesto != "VODIC") : Exit

#kontrola
~1
_pocet = Count Crew _tank
?(_pocet != _count) : Goto "kontrola"

_pole = [Commander _tank,Driver _tank]
{_x DoMove GetMarkerPos "bvp_here"} ForEach _pole

Exit