脚本制作自我学习~(个人进度而已）

黑暗枪骑兵

setup.enh.missilecmd

1. $Key = get global variable: name='enh.barrage.key'
   
2. if not $Key
   
3.   $Key = register hotkey 'Sector Fleet Missile Barrage' to call script 'lib.hkp.barrage.target'
   
4.   set global variable: name='enh.barrage.key' value=$Key
   
5. end
   
6. 
   
7. $Key = get global variable: name='enh.wbarrage.key'
   
8. if not $Key
   
9.   $Key = register hotkey 'Wing Missile Barrage' to call script 'lib.hkp.wbarrage.target'
   
10.   set global variable: name='enh.wbarrage.key' value=$Key
    
11. end
    
12. 
    
13. return null

复制代码

lidazheng09

什么东东，虽然是沙发。能解释下不，你不解释我也不敢网游戏里试啊!!!!

黑暗枪骑兵

lib.enh.missilecmd.single

1. $anull = null
   
2. $ship = [THIS]
   
3. skip if $ship != null
   
4.   $ship = [PLAYERSHIP]
   
5. 
   
6. 
   
7. 
   
8. $dist = get distance between $aim and $ship
   
9. if $dist > 60000
   
10.   = speak text: page=13 id=135 priority=0
    
11.   return null
    
12. end
    
13. 
    
14. $sec = $ship->get sector
    
15. 
    
16. $current = $ship->get current missile
    
17. $ship->set fire missile time difference to 1 ms
    
18. 
    
19. 
    
20. $cam = $ship->get amount of ware $current in cargo bay
    
21. $msg = sprintf: pageid=8815 textid=4, $current, $aim, null, null, null
    
22. skip if $aim == null
    
23.   display subtitle text: text=$msg duration=5000 ms
    
24. 
    
25. $aim->set attacker to $ship
    
26. while $amount > 0
    
27.   dec $amount =
    
28.   = $ship->fire missile $current on $aim
    
29. end
    
30. 
    
31. 
    
32. 
    
33. return null

复制代码

黑暗枪骑兵

什么东东，虽然是沙发。能解释下不，你不解释我也不敢网游戏里试啊!!!!
lidazheng09 发表于 2010-12-15 10:42

源码而已，再说，你也不知道怎么搞进游戏里。。

lidazheng09

我知道是代码，饿说的是作用

黑暗枪骑兵

导弹发射控制脚本

19511951

学习了一下。

bonesys

$dist = get distance between $aim and $ship

if $dist > 60000


这条难道是。。。。锁定距离范围60KM

黑暗枪骑兵

那一条只不过是给游戏发监测距离的命令。
跟锁定没直接关系

黑暗枪骑兵

barrage.launnch (游戏自带，准备借用）

1. * SymTec (24-06-08)
   
2. skip if not [THIS]->is docked
   
3.   return null
   
4. skip if [THIS]->has same environment as $target
   
5.   return null
   
6. skip if $target->exists
   
7.   return null
   
8. 
   
9. $text = read text: page=6020 id=231
   
10. $volleys = [THIS]->get user input: type={Var/Number}, title=$text
    
11. if is datatyp[ $volleys ] == {DATATYP_INT}
    
12.   skip if $volleys != 0
    
13.     $volleys = -1
    
14.    
    
15.   if $volleys != -1
    
16.     skip if $volleys >= 1
    
17.       $volleys = 1
    
18.   end
    
19. else
    
20.   $volleys = 1
    
21. end
    
22. 
    
23. $old.timediff = [THIS]->get fire missile time difference in seconds
    
24. while $volleys
    
25.   skip if $volleys == -1
    
26.     dec $volleys =
    
27.    
    
28.   $best.miss = [THIS]->call script '!lib.get.best.missile.fortarget' : Target=$target  set.timediff=0
    
29.   [THIS]->set fire missile time difference to 0 ms
    
30.    
    
31.   skip if $target->exists
    
32.     break
    
33.   skip if $best.miss
    
34.     break
    
35.    
    
36.   skip if [THIS]->get true amount of ware $best.miss in cargo bay
    
37.     break
    
38.    
    
39.   $turrets = array alloc: size=0
    
40.   $i = [THIS]->get number of turrets
    
41.   while $i > 1
    
42.     dec $i =
    
43.     skip if not [THIS]->can turret $i fire missiles
    
44.       append $i to array $turrets
    
45.   end
    
46.    
    
47.   $num.turrets = size of array $turrets
    
48.   $num.missiles = 8
    
49.   while $num.missiles
    
50.     dec $num.missiles =
    
51.     if $num.turrets
    
52.       $i = $num.missiles MOD $num.turrets
    
53.       $i = $turrets[$i]
    
54.     else
    
55.       $i = 0
    
56.     end
    
57.     [THIS]->set relation against $target to {Foe}
    
58.     = [THIS]->fire missile $best.miss from turret $i on $target
    
59.   end
    
60.   $diff = $old.timediff / 2
    
61.   = wait $diff ms
    
62. end
    
63. [THIS]->set fire missile time difference to $old.timediff ms
    
64. return null
    

复制代码