Einzelnen Beitrag anzeigen
Alt 17.12.2006, 14:41   #3 (permalink)
leo235
Newbie
 
Registriert seit: 16.12.2006
Beiträge: 47
Standard

das kann ich ja mal machen:







;Skript & Idea by Mr-Murray 2006
;mr-murray@bossmail.de
;www.mapfact.net
;www.mr-murray.de.vu

?sperre : goto "Ende2"
sperre=true

setfire=true
titletext ["Click on the map to set your firedirection","plain down"]
onMapSingleClick "ASTarget setpos _pos;setfire=false"

@!setfire
"Firedirection" setmarkerpos getpos ASTarget
onMapSingleClick ""
titletext ["","plain down"]
Playsound "Funk"

;=========DEFINE=======================
_dropPosition = getpos ASTarget
~0.5
_dropPosX = _dropPosition select 0
_dropPosY = _dropPosition select 1
_dropPosZ = _dropPosition select 2
~0.1
_planespawnpos = [_dropPosX - 3000, _dropPosY, _dropPosZ + 1000]
_pilotspawnpos = [_dropPosX - 3000, _dropPosY, _dropPosZ + 1000]

;=========CREATE=======================
~0.1
_plane = "AV8B" createvehicle _planespawnpos
_plane setpos [(getpos _plane select 0),(getpos _plane select 1),900]
_pilot = "SoldierWPilot" createUnit [getmarkerpos "Firedirection", dummy,"pilot1=this"]
_Plane setVelocity [50,0,0]

~0.4
pilot1 MoveInDriver _plane
pilot1 setdamage 0

pilot1 action ["gear_up", vehicle pilot1]

_plane FlyInHeight 100
_plane SetSpeedMode "full"

#Check
pilot1 doMove getpos ASTarget
pilot1 dotarget ASTarget
pilot1 dowatch ASTarget
? (_plane distance ASTarget) < 1500 : goto "Drop"
goto "Check"

#Drop
~5.2
_plane FlyInHeight 90
_plane setpos [(getpos _plane select 0),(getpos _plane select 1),100]
~1.05
_plane fire "BombLauncher"
~0.1
_plane fire "BombLauncher"
~0.6
_plane fire "BombLauncher"
~0.1
_plane fire "BombLauncher"
~0.6
_plane fire "BombLauncher"
~0.1
_plane fire "BombLauncher"
_plane SetSpeedMode "normal"
~3
_plane FlyInHeight 600

pilot1 doMove getpos Dummy
pilot1 dotarget Dummy


#Check2
_plane Setdamage 0
pilot1 Setdamage 0
pilot1 MoveInDriver _plane
? (_plane distance ASTarget) > 2500 : goto "Ende"
goto "Check2"


#Ende
ASTarget setpos getpos Dummy
"Firedirection" setmarkerpos getpos Dummy
deletevehicle _plane
deletevehicle pilot1

sperre=false
exit


#Ende2
hintc "An airstrike is currently not available! Wait!"

exit
leo235 ist offline   Mit Zitat antworten