Fastroping - Finished by RAVEN - Clan RAV

[Winters1807 0]

Bumpage, i'm not letting this thread die, i am soo desperate for a fastroping addon

[6thStorm 0]

lol im with you mate.

But don't bump too much since i would guess that the makers etc. are busy and talking to eachother at this time.. hopefully.

[Winters1807 0]

Almost a week and no news! bumpedy bump!

[Goldline 0]

SPAM ^^ SPAM ^^

To keep the post active

[Kerry 0]

yah ummmm...im pissed now..

wtf guys,

whered u go? what happened?!?!?

dont just drop it and say nothing!

[W0lle 1050]

Topic closed because of continued spamming/bumping.

If the addonmaker has something new to add they surely would do, asking every 2nd day for progress or news doesn't make things happen faster.

[Benoist 0]

Okeeeeeeeeeeey

News:

GHelicopter.sqs (Beta-1)

MOTIVE:

Tired of searching and making (evac, cargo transport, insertion, extraction, and their different modality), I decided to add all (or at least some of them) the operations with helicopters in only one script.

SCRIPT’S CAPABILITIES:

The invocation it isn’t hard, but it’s a little tweky. You have to pay attention to the parametres:

Parameter-1:

Quote[/b] ]The name of the unit with the asigned task.

(Example: Helo1)

Parameter-2:

Quote[/b] ]Array with the unit's groups names who are going to be transported.

(Example: [GrpW1, GrpW2,.....GrpW99])

Parameter-3:

Quote[/b] ]Array of the 3 elements which defines the behaviour in the sub-task of the platoon:

(Example1: [Helipad1, 30, false])

(Example2: [Camion, 0, true])

Parameter-3-1: Unit where the helicopter is going to go to extract the platoon.

Something normal to use is a invisible helipad but you can use a mobil unit,

The heli will move to it, even if it's moving.

Parameter-3-2: Number of seconds that the helicopter wait until the assigned unit come abord.

If it's zero, will wait indefinitely. If time has expired and the leader of the group

Is at least 100 meters, will maintain that position until address the group or

It is killed by the enemy.

Parametro-3-3: If it is true, the helicopter eject cans of smoke to cover the

Abord of the group.

Parameter-4:

Quote[/b] ]Array of the 3 elements which defines the behaviour in the sub-task of the platoon:

(Example1: [Helipad1, 30, false])

(Example2: [Camion, 0, true])

Parameter-4-1: idem to the parameter 3-1

Parameter-4-2: idem to the parameter 3-3 but at the moment of deploying the group (usually

LZ a "hot").

Parameter-5:

Quote[/b] ]Tipe of deployment of the transported group: (Values are: 0, 1 or 2)

0-Deployment in normal mode (altitude 0)

1-Deployment by rope (Rapel). (Will be shortly including in the addon-rope)

The helicopter arrives at the designated area, and deploys the group by ropes on the helicopter from

Stationary flight. Depending on the type of helicopter, it will use 1 or 2 cords.

2-Deployment by parachute

The helicopter arrives at a distance from the point of release (drop-zone) and acquires necessary altitude

To ensure the integrity of the group launched (> 150m). Then incorporates height and abandoned area.

Parameter-6:

Quote[/b] ]Name of the script that will run as soon as the insertion

of the group finish. (Combat, safe, etc).

Parameter-7:

Quote[/b] ]Array containing the names of the objects (usually logical units) used as benchmarks

to determine the approximate route of the helicopter on his way to the area of insertion(WPs).

Example: [uL1, UL2,....UL99]

FUTURE DEVELOPMENT:

This is an advanced Beta.

In the future, the script is going to add the fast-rope modality (Rapel) and portering in external slings (Armor, artillery, light vehicles).

SCRIPT

Quote[/b] ]

; ******************************************************************************************

******************

; ** Script: GHelicopter.sqs

; ** Description: Helicopter's Operation Manager

; ******************************************************************************************

******************

; ** Autor: RAVEN

; ******************************************************************************************

******************

; ** Invocation:

; ** [heliW2,[grpW1],[helipad1,0, true], [helipad2,true], 2,"accion.sqs", [pos1, pos2]] exec "Ghelicopter.sqs"

; ******************************************************************************************

******************

; ** Element Nº 1 of the fourt parameter is:

; ** nill: The heli will pick up the group in group's position

; ** object_name: The heli will pick up the group in object's position

; ******************************************************************************************

******************

;//--- Transport vehicle

_heli = _this select 0

;//--- Vector of group to transport

_grps = _this select 1

;//--- Object/reference of extraction and waiting time (0: Unlimited)

_intro = _this select 2

;//--- Object/reference of insertion of the group

_out = _this select 3

;//--- Tipe of insertion (0: go out, 1:Fast-Rope, 2: Parachute)

_modo = _this select 4

;//--- Script accion / group inserted

_acc = _this select 5

;//--- Sequence of intermediate positions for approach route

_ruta = _this select 6

;//--- Info to add the rope

_ang = -90.00

_ang2= 90.00

_distR = 1.20

_lngSoporte = 0.00

_abajo = 1.5

#inicio

? not(local server): goto "salida"

_primera = true

_altdrop = 100

_in = _intro select 0

_wait = _intro select 1

_cover = false

? count _intro == 3: _cover = _intro select 2

_cover2 = _out select 1

_out = _out select 0

? _in distance _out < 100: goto "salida"

;----------------------------------

;--- Engine Determination

;----------------------------------

_simulador = nill

_OFP = "scalar bool array string 0xfcffffef"

_ArmA = "scalar bool array string 0xe0ffffef"

_param = _ArmA

? format["%1",_simulador] == _OFP : _param = _OFP

? format["%1",_simulador] == _ArmA : _param = _ArmA

_orden = 0

_trip = count(crew _heli)

_posfin = [getpos _heli select 0, getpos _heli select 1, 0]

_dest = "HeliHempty" createvehicle _posfin

_alt = 30

#ciclo

_grp = _grps select _orden

;--- ? _out distance (leader _grp) < 500 : goto "retoma_1"

;--- Anulado provisoriamente -----------------------------------

;? _primera and ((getpos _heli) select 2) > 10: goto "cargado"

;---------------------------------------------------------------

? _heli distance (leader _grp) > 100: goto "recoge"

#cargado

{_x assignascargo _heli} foreach units _grp

{_x moveincargo _heli} foreach units _grp

goto "a_destino"

;-----------------------------------------------------

#recoge

? not alive(_heli): goto "salida"

~1

? format["%1",_in] == _param :_dest setpos getpos (leader _grp); goto "recoge_1"

_dest setpos getpos _in

;_heli action["engine on"]

#recoge_1

_heli domove getpos _dest

? _heli distance _dest < 100: _heli flyinheight 0

? _heli distance _dest > 100: goto "recoge"

_heli setspeedmode "LIMITED"

_heli land "get in"

#desciende1

? not alive(_heli): goto "salida"

? ((getpos _heli) select 2) < 10: goto "carga"

~1

_heli flyinheight ((getpos _heli) select 2) - 0.5

goto "desciende1"

;-----------------------------------------------------

#carga

_heli flyinheight 0

{_x assignascargo _heli} foreach units _grp

(units _grp) ordergetin true

_tiempo = _wait

_salto = "carga_01"

? _cover : goto "descarga_0"

#carga_01

? not alive(_heli): goto "salida"

? count(crew _heli) == (count(units _grp) + _trip): goto "a_destino"

~1

_viv = 0

{if (alive(_x)) then {_viv = _viv + 1}} forEach units _grp

? _viv == 0 : goto "retoma_1"

? _wait == 0: goto "carga_01"

_tiempo = _tiempo - 1

? (_tiempo > 0): goto "carga_01"

? (count(crew _heli) > _trip): goto "carga_01"

? _heli distance (leader _grp) < 100: goto "carga_01"

;_heli flyinheight _alt

{UnassignVehicle _x} foreach units _grp

goto "retoma_1"

;-----------------------------------------------------

#a_destino

_heli flyinheight _alt

_heli setspeedmode "NORMAL"

_wpmax = count _ruta

_wpact = 0

#a_destino_0

? _wpmax > 0: _heli domove getpos (_ruta select _wpact)

#a_destino_1

? not alive(_heli): goto "salida"

~1

? _wpmax == 0: _heli domove getpos _out; goto "a_destino_2"

? (_heli distance (_ruta select _wpact)) > 150: goto "a_destino_1"

_wpact = _wpact + 1

? _wpact < _wpmax: goto "a_destino_0"

_wpmax = 0

_heli domove getpos _out

#a_destino_2

? (_modo == 0) and (_heli distance _out) < 150: goto "despliega"

;--- Anulado momentaneamente --- ? (_modo == 1) and (_heli distance _out) < 150: goto "rapel"

? (_modo == 2) and (_heli distance _out) < 400: goto "paraca"

goto "a_destino_1"

;-----------------------------------------------------

#paraca

_alt = ((getpos _heli) select 2)

#paraca_1

? not alive(_heli): goto "salida"

_heli flyinheight _altdrop

~1

? ((getpos _heli) select 2) < _altdrop: goto "paraca_1"

~3

_max = (count units _grp) - 1

#salto

~1

_quien = ((units _grp) select _max)

_quien action ["eject", _heli]

_quien setvelocity velocity(_heli)

unassignvehicle _quien

_max = _max - 1

? _max >= 0: goto "salto"

~5

_heli flyinheight _alt

goto "retoma"

;-----------------------------------------------------

#rapel

_heli setspeedmode "LIMITED"

_heli flyinheight 15

#rapel_ini

? not alive(_heli): goto "salida"

_heli domove getpos _out

~0.5

? _heli distance _out > 100: goto "rapel_ini"

? getpos _heli select 2 > 15 and (speed _heli < 3): goto "rapel_ini"

#rapel_1

_vec = units _grp

_can = count _vec

_pos = 0

_InitCuerda = false

~3

#rapel_2

_man = _vec select _pos

_donde = getpos _heli

_dx = _donde select 0

_dy = _donde select 1

_alt = _donde select 2

? not(_InitCuerda): _cuerda = "FSM_FastRope" createvehicle [0,0,0]

_InitCuerda = true

#rapel_2_1

_dir = direction _heli

_donde = getpos _heli

_dx = _donde select 0

_dy = _donde select 1

_dz = _donde select 2

;############################################

_ang = 300.00

_ang2= 90.00

_distR = 1.50

_lngSoporte = 0.00

_abajo = -2.50

;############################################

_dif = 1

? _ang < 0 : _dif = -1

_dirC2= (_dir + _ang2)

_dirC = (_dir + _ang)

_pxC = _dx + (_distR * sin(_dirC))

_pyC = _dy + (_distR * cos(_dirC))

_cuerda setpos [_pxC, _pyC, _dz + _abajo]

_cuerda setdir _dirC2

#rapel_3

unassignvehicle _man

_man setdir random(360)

_man setpos [ _dx, _dy, _alt]

_man switchmove "AidlPercMstpSnonWnonDnon04"

#rapel_4

_heli setvelocity [0,0,0]

_dir = direction _heli

_donde = getpos _heli

_dx = _donde select 0

_dy = _donde select 1

_dz = _donde select 2

_dirC = (_dir + _ang)

_pxC = _dx + (_distR * sin(_dirC))

_pyC = _dy + (_distR * cos(_dirC))

_cuerda setdir _dirC

_cuerda setpos [_pxC, _pyC, _dz + 2]

_height = (getpos _man select 2)

_height = _height - 0.080

_dirC = (_dir + _ang)

_Ndir = ((getdir _man) + (_height * 0.2))

_pxM = _dx + ((_distR + _lngSoporte) * sin(_dirC))

_pyM = _dy + ((_distR + _lngSoporte) * cos(_dirC))

_man setdir _Ndir

_man setpos [ _pxM, _pyM, _height]

_cuerda2 setpos [_pxM, _pyM, _height]

_cuerda2 setdir _Ndir

_man setvelocity [0,0,0.25]

~0.01

? not(alive _man) : _man switchmove ""; goto "rapel_99"

? _height > 1.7 : goto "rapel_4"

_nx = getpos _man select 0

_ny = getpos _man select 1

_man switchMove "AcrgPknlMstpSnonWnonDnon_AmovPercMstpSnonWnonDnon_getOutHigh"

_man setpos [_pxM, _pyM, 0]

_man domove [_nx+1+random(20)-10, _ny+1+random(20)-10, 0]

#rapel_99

_can = _can - 1

_pos = _pos + 1

? _can > 0: goto "rapel_2"

#rapel_99_1

~1

;####################################### Suelta cuerdas

#rapel_99_2

_cuerda setpos [_pxC, _pyC, _dz - 0.2]

_vec = vectorUP _cuerda

_dz = (position _cuerda) select 2

~0.000000001

? _dz > 0 : goto "rapel_99_2"

deletevehicle _cuerda

deletevehicle _cuerda2

;####################################### Avance momentaneo

_heli flyinheight 30

_avX = _dx + (500 * sin(getdir _heli))

_avY = _dy + (500 * cos(getdir _heli))

_heli domove [_avX, _avY, 0]

@unitready _heli

goto "retoma"

;-----------------------------------------------------

#despliega

_heli setspeedmode "LIMITED"

_heli land "get out"

_salto = "descarga_2"

#desciende2

? not alive(_heli): goto "salida"

_heli flyinheight ((getpos _heli) select 2) - 0.5

? ((getpos _heli) select 2) < 2: goto "descarga"

~1

goto "desciende2"

#descarga

_heli flyinheight 0

? not _cover2 : goto "descarga_2"

#descarga_0

_heli flyinheight 0

_cansmoke = 2

#descarga_1

_sep = 15

? daytime < 7.00 or daytime > 18.00: goto "descarga_2"

_px = getpos _heli select 0

_py = getpos _heli select 1

_pz = getpos _heli select 2

_dir = random(360)

_px = _px + (_sep * sin(_dir))

_py = _py + (_sep * cos(_dir))

_humo = "smokeshell" createvehicle [_px, _py, _pz]

_cansmoke = _cansmoke - 1

? _cansmoke > 0: goto "descarga_1"

goto _salto

#descarga_2

_pos = 0

_can = count(units _grp)

#descarga_3

_man = (units _grp) select _pos

_man action ["EJECT",_heli]

unassignvehicle _man

~0.75

_pos = _pos + 1

_can = _can - 1

? _can >= 0: goto "descarga_3"

#retoma

? _acc != "": [_grp] exec _acc

#retoma_1

_heli flyinheight _alt

_heli setspeedmode "NORMAL"

_primera = false

_orden = _orden + 1

? _orden < (count _grps): goto "ciclo"

;-----------------------------------------------------

#retorna

? not alive(_heli): goto "salida"

_dest setpos _posfin

_heli domove getpos _dest

~1

? _heli distance _dest > 100: goto "retorna"

_heli land "land"

;-----------------------------------------------------

#salida

deletevehicle _dest

exit

It was time to bring something to this section. Now i'm making what i told.

PERSONAL NOTE (From Benoist): FOR THE LOVE OF GOOOOOOOOOOOOOD, DO YOU KNOW WHAT IS TRANSLATE ¡THAT! Yes i use "¡", i don't care if it's not used in english language.

God, i fell, i don't know how i fell, may be tired (i came from high school and gym, vey tired), may be depress and suicidal, what the he*l i know, and this music doesn't heeeeeeeelp (Alan's Psychedelic Breakfast) so i'm only asking for one thing: DON'T ASK ME WHEN IT IS GOING TO BE READY

I don't know for the love of Jesus! And if you keep asking you won't make it faster.

Aharhar translate this makes me angry, especially because i close word without save it and i lost it

Well better i go before someone call to the madman.

[Winters1807 0]

Sick boy!!! Please do something magically fantastical with this so lazy wastes of space like me can plop it in my mod folder!

[Yossarian 0]

awesome! great stuff. This is exactly what I've been looking for. With a bit of practice it even looks like I will be able to use it!! sweet.

Thanks

[NoRailgunner 0]

Benoist the most will be glad if you can add readme with short instructions too. Take your time to translate it to english

Will you make usefull fastroping as addon as soon as you've more time?

[Benoist 0]

Fast Rope

RAVEN is working to add it to the GHelicopter.sqs script

http://img.photobucket.com/albums....-89.jpg

http://img.photobucket.com/albums....-26.jpg

http://img.photobucket.com/albums....-76.jpg

I don't know what you don't understand, please, ask me here or by PM because i don't know how to write a FAQ without questions :P

[ricoadf 0]

So what does the above script do at the moment?

[Benoist 0]

It's useful to transport (and to do insertions) in helicopter and to make a disembarkation in parachute, by airplanes (Be-32K) or by helicopters.

Also, he is adding a "Fast-Rope button", like BAS's sistem in the OFP.

[Henrusin 0]

i dont understand this

[Winters1807 0]

Cool, keep us posted on updates, dont let this die again

[bugkill 7]

Let Raven know to make the rope have a OD green color, not the bright color he has now. Looks great!

[Casimir 0]

hey, can i ask you a question?  Why exactly did you decide to drop vehicle cargo? its somthing i would really like but i dont want to download XAM because of its size and some of its features. do you know somwhere i could find a stand alone vehicle cargo script or addon?

also ive downloaded the script but it seems to be in spanish, is there an english version?

thanks

[Commando84 0]

Henrusin, fast rope is when soldiers ninja rope themselves down from a chopper down to the ground or ontop of a building.

could be useful when dropping down troops in a area where the chopper cant land or just to make it look special or cool i dunno.

[Henrusin 0]

yes i know that thanks but i dont understand how to install this or enything can some one give me an read file with instructions?

[Benoist 0]

yes i know that thanks but i dont understand how to install this or enything can some one give me an read file with instructions?

Well, it's like a normal script and i have put a translated script (i will erase that download link).

The thing is that is a mess to config everything, so i'm asking him for a demo mission.

[Henrusin 0]

any news about the demo mission?

[lifeguard532 0]

any news at all???

[Guest]

At the first of this month Noobsta999 posted in the Armaholic.com forums there were some problems and they have to delay it.

No additional information has been given though. Just thought I should share what I know.

[manzilla 1]

yes i know that thanks but i dont understand how to install this or enything can some one give me an read file with instructions?

I was trying to figure how to add this to someones mission for personal use but I can't figure out how or where to start even.

[Benoist 0]

Demo Mission

It's in Spanish, i know, a few of you understand it, but i'm tired, ill, and depressed, so i'm sorry. I'm going to translate it when i fell beter.

Edited first post. Also, he is doing right now a mission with ONLY the chopper, no history o something like that, only the needed codes.