火箭弹覆盖脚本更新至V1.3

FFUR2007SLX2_5

使用方法见原帖：A10+Su25火箭炮覆盖指定区域[11月26日更新,3楼SU25]
http://www.chinavme.com/forum-vi ... 7-fromuid-9320.html

12月1日将放出自杀式袭击脚本V1.0



A10 WCRffsx_70mmCoverage.sqs V1.3
下载

Su25 WCRffsx_S8TCoverage.sqs V1.3
下载

A10源码

1. ;////Let a fixed wing aircraft use 70mm FFAR cover an area                                                           \\\\
   
2. ;////Author: WCR_ffsx                                                                                                 \\\\
   
3. ;////Usage [aircraft,BombingArea,frequency between each Rockets] exec "WCRffsx_70mmCoverage.sqs"                       \\\\
   
4. ;////Example: Create a fixed wing aircraft like A10, init is flying. Then use logic to locate                           \\\\
   
5. ;////your bombing area. Finally, use number to fill in the third position in the arrary as launching frequency.          \\\\
   
6. ;////My mailbox:ffur2007slx2_5@126.com                                                                                    \\\\
   
7. ;////======================================================================================================================\\\\
   
8. private ["_AmmoNum"]
   
9. WCR_A10=_this select 0
   
10. WCR_BombArea=_this select 1
    
11. WCR_frequency=_this select 2
    
12. _AmmoNum=14
    
13. WCR_A10G=group WCR_A10
    
14. WCR_A10GA=units WCR_A10G
    
15. WCR_A10GNum=count WCR_A10GA
    
16. if (local player && alive player && player distance WCR_BombArea <=2500 && (damage WCR_A10<0.1) && (WCR_A10 Ammo "FFARLauncher_14">=12) && WCR_A10GNum==1) then {goto "Start"} else {hintSilent "Rockets coverage support is not available at present";goto "exit"}
    
17. #start
    
18. if (alive WCR_A10 && (damage WCR_A10<0.1) && (WCR_A10GNum==1)) then {goto "start0"} else {goto "exit"}
    
19. #start0
    
20. WCR_A10Init=[] spawn {WCR_A10 disableAI "AutoTarget";WCR_A10 disableAI "Target";WCR_A10 flyInHeight 500;WCR_A10 setpos [getpos WCR_BombArea select 0,(getpos WCR_BombArea select 1)-3000,getpos WCR_A10 select 2];removeAllWeapons WCR_A10;"US_Soldier_EP1" createUnit [[getpos WCR_BombArea select 0,(getpos WCR_BombArea select 1)-500,0],WCR_BombArea,"WCR_observer=this;removeallweapons this;dostop this;this setcaptive true;this disableai 'autotarget';this disableai 'target';hideObject this",0]}
    
21. ~0.1
    
22. #start1
    
23. if (alive WCR_A10 &&(damage WCR_A10<0.1)&&(WCR_A10GNum==1)) then {WCR_A10 move getpos WCR_observer} else {goto "exit"}
    
24. if ((WCR_A10 distance WCR_BombArea <=2500) && (alive WCR_A10) && (damage WCR_A10<0.1) && (WCR_A10GNum==1)) then {goto "AngleAdjust"} else {goto "Start1"}
    
25. #AngleAdjust
    
26. WCR_A10 flyInHeight 550
    
27. ~18
    
28. if (alive WCR_A10 && (damage WCR_A10<0.1) && (WCR_A10GNum==1)) then {WCR_A10 setVectorDirAndUp [[0,10,-17],[0,10,0]]} else {goto "exit"}
    
29. if (alive WCR_A10 && (damage WCR_A10<0.1) && (WCR_A10GNum==1)) then {WCR_A10 move getpos WCR_BombArea} else {goto "exit"}
    
30. if (alive WCR_A10 && (damage WCR_A10<0.1) && (WCR_A10GNum==1)) then {WCR_A10 flyinheight 100} else {goto "exit"}
    
31. ~0.25
    
32. #Fire
    
33. if (alive WCR_A10 && (damage WCR_A10<0.1) && (WCR_A10GNum==1)) then {Launcher="R_Hydra_HE" createVehicle [(getpos WCR_A10 select 0)-7,(getpos WCR_A10 select 1)+3,(getpos WCR_A10 select 2)-9]} else {goto "exit"}
    
34. if (alive WCR_A10 && (damage WCR_A10<0.1) && (WCR_A10GNum==1)) then {Launcher setDir getDir WCR_A10} else {goto "exit"}
    
35. if (alive WCR_A10 && (damage WCR_A10<0.1) && (WCR_A10GNum==1)) then {Launcher setVectorDirAndUp [[0,10,-11],[0,10,0]]} else {goto "exit"}
    
36. if (alive WCR_A10 && (damage WCR_A10<0.1) && (WCR_A10GNum==1)) then {Launcher0="R_Hydra_HE" createVehicle [(getpos WCR_A10 select 0)+7,(getpos WCR_A10 select 1)+3,(getpos WCR_A10 select 2)-9]} else {goto "exit"}
    
37. if (alive WCR_A10 && (damage WCR_A10<0.1) && (WCR_A10GNum==1)) then {Launcher0 setDir getDir WCR_A10} else {goto "exit"}
    
38. if (alive WCR_A10 && (damage WCR_A10<0.1) && (WCR_A10GNum==1)) then {Launcher0 setVectorDirAndUp [[0,10,-11],[0,10,0]]} else {goto "exit"}
    
39. ~WCR_frequency
    
40. _AmmoNum=_AmmoNum-2
    
41. if (_AmmoNum>0 && (alive WCR_A10) && (WCR_A10GNum==1)) then {goto "Fire"} else {goto "exit"}
    
42. if (_AmmoNum==0 && (alive WCR_A10) && (WCR_A10GNum==1)) then {WCR_A10 flyinheight 500; deleteVehicle WCR_observer; WCR_A10 setCaptive false; WCR_A10 enableAI "AUTOTARGET"; WCR_A10 enableAI "TARGET"; WCR_A10 setVehicleAmmo 0.5} else {goto "exit"}
    
43. #exit
    
44. exit
    

复制代码

bym101

晕。。。1.2还没来得及测试。。。1.3又出来鸟

Alex.XP

我说你在一个帖子里更新不行么………………………………{:4_106:}

FFUR2007SLX2_5

Alex.XP 发表于 2010-11-29 08:57
我说你在一个帖子里更新不行么………………………………

好。   

bym101

哈哈哈哈哈哈哈