这个系统为何不能通过编译?

RoyalFlare

检查单位可通行状态

1. 
   
2. library CheckPathability initializer init
   
3. public function init takes nothing returns nothing
   
4. function CheckPathability takes unit u, real x, real y returns boolean
   
5.     local real ox = GetUnitX(u)
   
6.     local real oy = GetUnitY(u)
   
7.     if x > 9376. or x < -9632. or y > 9376. or y < -9632. then    //map bounds
   
8.         return false
   
9.     endif
   
10.     call SetUnitX(u, -9472.) //move unit to safespot
    
11.     call SetUnitY(u, 9216.)
    
12.     call SetUnitPosition(checkpathabilityunit, x, y) //requires global unit here
    
13.     set x = GetUnitX(checkpathabilityunit)-x
    
14.     set y = GetUnitY(checkpathabilityunit)-y
    
15.     call SetUnitX(checkpathabilityunit, -9472.) //moves global unit back to safespot
    
16.     call SetUnitY(checkpathabilityunit, 9216.)
    
17.     call SetUnitX(u, ox)
    
18.     call SetUnitY(u, oy)
    
19.     return x*x+y*y <= 100.
    
20. endfunction
    
21. function CheckPathability_IgnoreUnits takes real x, real y returns boolean
    
22.     if x > 9376. or x < -9632. or y > 9376. or y < -9632. then    //map bounds
    
23.         return false
    
24.     endif
    
25.     call SetItemPosition(checkpathabilityitem,x,y) //requires global item
    
26.     call SetItemVisible(checkpathabilityitem, false)
    
27.     set x = GetItemX(checkpathabilityitem)-x
    
28.     set y = GetItemY(checkpathabilityitem)-y
    
29.     return x*x+y*y <=100
    
30. endfunction
    
31. endfunction
    
32. endlibrary
    
33. //===========================================================================
    
34. function InitTrig_Init takes nothing returns nothing
    
35. endfunction
    

复制代码

击退主函数

1. 
   
2. library Knockback requires CheckPathability
   
3. globals
   
4. // Things to change, !!CHANING THE DUMMY UNIT TO YOURS IS NECESSARY TO WORK!!
   
5. private constant real Interval = 0.3125 // How often the timer will execute
   
6. private constant integer Dummy = 'h000' // Rawcode ID of your dummy unit
   
7. // Change these values to the ones where your unit should slide faster
   
8. // NOTE: If you want any more terrain types added, create a new "private constant integer" named
   
9. // TerrainIdx, replace x with the next number. After that, increase the "TerrainChecks" value by 1.
   
10. private constant integer TerrainId1 = 'Nice' // Northrend Ice
    
11. private constant integer TerrainId2 = 'Idki' // Icecrown Glacies, Dark Ice
    
12. private constant integer TerrainId3 = 'Iice' // Icecrown Glacies, Ice
    
13. private constant integer TerrainId4 = 'Ldrt'
    
14. private constant integer TerrainId5 = 'Ldro'
    
15. private constant integer TerrainId6 = 'Ldrg'
    
16. private constant integer TerrainChecks = 6 // Amount of Terrain Checks which have to be checked
    
17. // Things you mustn't change, necessary for the whole to work
    
18. private timer KnockbackTimer = CreateTimer() // Timer used to move the unit
    
19. private integer array StructArray // Struct array to allow multiple instances
    
20. private integer TotalRunnings = 0 // Integer to show the number of running instances
    
21. endglobals
    
22. public struct Data
    
23. unit KnockbackedUnit // Stores the unit which gets moved
    
24. real MoveAmount // Amount of how many the unit gets moved each time
    
25. real MoveAmountAbstraction // Amount of how many is substraced each time to make the movement slowly stop
    
26. real sin // Stores the sin value of the unit to not need to execute it each time
    
27. real cos // Same as above, only for the cos value
    
28. real Radius // The radius in which units/trees will trigger
    
29. real HitPercentage // The percentage of how fast the unit has to move from its original speed
    
30. boolean UnitCanMove // Boolean to check if the unit gets paused during the whole thing or not
    
31. boolean CheckTerrain // Boolean to check if the terrain should be checked or not
    
32. string MoveEffect = "" // Model Path for the effect which gets created
    
33. static method init takes unit Target, real Distance, real TimeUntilFinish, real Angle, real Radius, real HitPercentage, boolean UnitCanMove, boolean CheckTerrain, string EffectName returns Data
    
34. // Creates the struct
    
35. local Data data = .allocate()
    
36. // Initializes the target as the KnockbackedUnit
    
37. set data.KnockbackedUnit = Target
    
38. // Formula for this. 2 * max distance moved, divided by the number of executions + 1. Simply, huh?
    
39. set data.MoveAmount = 2 * Distance / ( ( TimeUntilFinish / Interval ) + 1 )
    
40. // Formula for the Abtraction. Should be pretty obvious.
    
41. set data.MoveAmountAbstraction = data.MoveAmount / ( TimeUntilFinish / Interval )
    
42. // Sets up the sin and cos.
    
43. set data.sin = Sin(Angle)
    
44. set data.cos = Cos(Angle)
    
45. // Sets up the radius
    
46. set data.Radius = Radius
    
47. // Sets up the percentage
    
48. set data.HitPercentage = data.MoveAmount * HitPercentage
    
49. // Sets up the booleans
    
50. set data.UnitCanMove = UnitCanMove
    
51. set data.CheckTerrain = CheckTerrain
    
52. // Sets up the effect
    
53. set data.MoveEffect = EffectName
    
54. // If the unit shouldn't move, it will be paused. Before that it will be moved to its own position to stop all orders.
    
55. if UnitCanMove then
    
56. call SetUnitPosition ( Target, GetUnitX( Target ), GetUnitY( Target ) )
    
57. call PauseUnit ( Target, true )
    
58. endif
    
59. // If there are no executions yet, the timer will be started.
    
60. if TotalRunnings == 0 then
    
61. call TimerStart ( KnockbackTimer, Interval, true, function Data.move )
    
62. endif
    
63. // Sets up the array for the structstack, and sets the running Knockbacks to one more.
    
64. set StructArray[ TotalRunnings ] = data
    
65. set TotalRunnings = TotalRunnings + 1
    
66. return data
    
67. endmethod
    
68. static method move takes nothing returns nothing
    
69. local Data data
    
70. local integer LoopInteger = 0 // Needed for the structstack
    
71. local real UnitX // X value of the unit, will be changed to get the new unitposition
    
72. local real UnitY // same as above, for the Y value
    
73. local rect CheckRect // Neede to check for the units/trees
    
74. local boolean Pathable // To check if the terrain is pathable or not
    
75. loop
    
76. exitwhen LoopInteger >= TotalRunnings
    
77. // Setup the struct for the usage
    
78. set data = StructArray[ TotalRunnings - 1 ]
    
79. // To not have some problems with the Pathability
    
80. set Pathable = false
    
81. // If theres an special effect specified, there will be one created, otherwise not.
    
82. if data.MoveEffect != "" and data.MoveEffect != null then
    
83. set UnitX = GetUnitX( data.KnockbackedUnit )
    
84. set UnitY = GetUnitY( data.KnockbackedUnit )
    
85. call DestroyEffect ( AddSpecialEffect( data.MoveEffect, UnitX, UnitY ) )
    
86. set UnitX = UnitX + data.MoveAmount * data.cos
    
87. set UnitY = UnitY + data.MoveAmount * data.sin
    
88. else
    
89. // Simple polar projection with X/Y values [ Old X/Y + amount * cos for X and sin for Y ]
    
90. set UnitX = GetUnitX( data.KnockbackedUnit ) + data.MoveAmount * data.cos
    
91. set UnitY = GetUnitY( data.KnockbackedUnit ) + data.MoveAmount * data.sin
    
92. endif
    
93. // Reduce the amount each time
    
94. set data.MoveAmount = data.MoveAmount - data.MoveAmountAbstraction
    
95. // Checks whether the terrain is pathable or not. thx to Vexorian for his function
    
96. set Pathable = CheckPathability( UnitX, UnitY )
    
97. if Pathable then
    
98. call SetUnitX( data.KnockbackedUnit, UnitX )
    
99. call SetUnitY( data.KnockbackedUnit, UnitY )
    
100. endif
     
101. // If the movement is finished (amount <= 0), the struct gets destroyed
     
102. if data.MoveAmount <= 0 or Pathable == false then
     
103. set TotalRunnings = TotalRunnings - 1
     
104. set data = StructArray[ TotalRunnings ]
     
105. call data.destroy()
     
106. endif
     
107. set LoopInteger = LoopInteger + 1
     
108. endloop
     
109. // When there are no knockbacks left, the timer gets paused
     
110. if TotalRunnings == 0 then
     
111. call PauseTimer( KnockbackTimer )
     
112. endif
     
113. endmethod
     
114. method onDestroy takes nothing returns nothing
     
115. // To unpause the unit when it is needed, after the destroy
     
116. if .UnitCanMove == false then
     
117. call PauseUnit( .KnockbackedUnit, false)
     
118. endif
     
119. endmethod
     
120. endstruct
     
121. function Knockback takes unit Target, real Distance, real TimeUntilFinish, real Angle, real Radius, real HitPercentage, boolean UnitCanMove, boolean CheckTerrain, string EffectName returns nothing
     
122. call Data.init( Target, Distance, TimeUntilFinish, Angle, Radius, HitPercentage, UnitCanMove, CheckTerrain, EffectName )
     
123. endfunction
     
124. endlibrary
     
125. //===========================================================================
     
126. function InitTrig_Knockback takes nothing returns nothing
     
127. endfunction
     

复制代码

最近重建地图的核心代码 用上老外的系统 JassHelper编译的时候提示如下
Line 60: Syntax Error, unexpected: "takes"?
指向这个位置
function CheckPathability takes unit u, real x, real y returns boolean
求各位大神答疑解惑 难道返回的布尔值有问题麽? takes不到数值[bq3]
@希瓦 @chyj4747 @ckpig @zhuzeitou @actboy168
原帖地址在此:
http://www.wc3c.net/showthread.php?t=92525
http://www.wc3c.net/showthread.php?t=93891

原始代码页:
http://peeeq.de/code.php?id=2195 KnockBack System
http://peeeq.de/code.php?id=2202 Library CheckPathability

RoyalFlare

1. 
   
2. //=======================================================================
   
3. function H2I takes handle h returns integer
   
4.     return h
   
5.     return 0
   
6. endfunction
   
7. //=======================================================================
   
8. //  Bullet Lancher Sys Support Function
   
9. globals
   
10.     real Main_MapMinX
    
11.     real Main_MapMinY
    
12.     real Main_MapMaxX
    
13.     real Main_MapMaxY
    
14. endglobals
    
15. function sMapPointInit takes nothing returns nothing
    
16.     local string s
    
17.     set Main_MapMinX = GetRectMinX(bj_mapInitialPlayableArea)
    
18.     set Main_MapMinY = GetRectMinY(bj_mapInitialPlayableArea)
    
19.     set Main_MapMaxX = GetRectMaxX(bj_mapInitialPlayableArea)
    
20.     set Main_MapMaxY = GetRectMaxY(bj_mapInitialPlayableArea)
    
21.     set s = "MinX: " + R2S(Main_MapMinX) + " MinY: " + R2S(Main_MapMinY) + " MaxX: " + R2S(Main_MapMaxX) + " MaxY: " + R2S(Main_MapMaxY)
    
22.     call DisplayTextToPlayer(Player(0),0,0,s)
    
23. endfunction
    
24. function sPointIsInMap takes real x, real y, boolean checkpath returns boolean
    
25.     if checkpath then
    
26.         if IsTerrainPathable(x, y, PATHING_TYPE_WALKABILITY) then  // 这里可以修改地形判断的条件 这里是地面单位可通行 当然你也可以修改为空中单位可飞行 如果马甲单位有设置飞行高度的话
    
27.             return false
    
28.         endif
    
29.     endif
    
30.     if x < Main_MapMinX then
    
31.         return false
    
32.     endif
    
33.     if x > Main_MapMaxX then
    
34.         return false
    
35.     endif
    
36.     if y < Main_MapMinY then
    
37.         return false
    
38.     endif
    
39.     if y > Main_MapMaxY then
    
40.         return false
    
41.     endif
    
42.     return true
    
43. endfunction
    
44. function fCommonFilter takes nothing returns boolean
    
45.     local unit u = GetFilterUnit()
    
46.     if GetUnitState(u, UNIT_STATE_LIFE) <= 0 then
    
47.         set u = null
    
48.         return false
    
49.     endif
    
50.     if IsUnitType(u, UNIT_TYPE_STRUCTURE) then
    
51.         set u = null
    
52.         return false
    
53.     endif
    
54.     if GetUnitTypeId(u) == 'h000' then  // 'h000'为马甲单位ID 根据实际需要做相应修改 也可以同时匹配多个马甲单位ID
    
55.         set u = null
    
56.         return false
    
57.     endif
    
58.     set u = null
    
59.     return true
    
60. endfunction
    
61. //=======================================================================
    
62. //=======================================================================
    
63. // TimerSys Main Function
    
64. globals
    
65.     timer array Main_Timer
    
66.     integer Main_First_Timer
    
67.     integer Main_First_Attachable_Timer
    
68.     boolean array Main_Timer_Attachable
    
69.    
    
70.     integer Main_Max_Timer = 1000
    
71. endglobals
    
72. function TimerDataSysInit takes nothing returns nothing
    
73.     local integer i = 0
    
74.     set Main_Timer[0] = CreateTimer()
    
75.     set Main_Timer_Attachable[0] = true
    
76.     set Main_First_Timer = H2I(Main_Timer[0])
    
77.     set Main_First_Attachable_Timer = Main_First_Timer
    
78.     loop
    
79.         set i = i + 1
    
80.         exitwhen i == Main_Max_Timer
    
81.             set Main_Timer[i] = CreateTimer()
    
82.             set Main_Timer_Attachable[i] = true
    
83.     endloop
    
84. endfunction
    
85. function TimerDataSysGetID takes nothing returns integer
    
86.     local integer id = Main_First_Attachable_Timer - Main_First_Timer
    
87.     local integer idr = id
    
88.     set Main_Timer_Attachable[id] = false
    
89.     loop
    
90.         set id = id + 1
    
91.         exitwhen id > Main_Max_Timer
    
92.             if Main_Timer_Attachable[id] == true then
    
93.                 set Main_First_Attachable_Timer = id + Main_First_Timer
    
94.                 return idr
    
95.             endif
    
96.     endloop
    
97.     return Main_Max_Timer + 1
    
98. endfunction
    
99. function TimerDataSysGetTimerID takes timer t returns integer
    
100.     return H2I(t) - Main_First_Timer
     
101. endfunction
     
102. function TimerDataSysFlush takes timer t returns nothing
     
103.     local integer id = H2I(t)
     
104.     call PauseTimer(t)
     
105.     set Main_Timer_Attachable[id - Main_First_Timer] = true
     
106.     if Main_First_Attachable_Timer > id then
     
107.         set Main_First_Attachable_Timer = id
     
108.     endif
     
109. endfunction
     
110. //========================================================================
     

复制代码

调用方法:
新建1个触发器 命名为MapsInitialization

1. 
   
2. MapsInitialzation
   
3.     事件
   
4.         地图初始化
   
5.     条件
   
6.     动作
   
7.         -------- ------------------ 这一行无论如何都是要的... --------------------- --------
   
8.         自定义代码:   call TimerDataSysInit()
   
9.         -------- --------------------------------------------------------------------- --------
   
10.         自定义代码:   call sMapPointInit()
    
11.         -------- --------------------------------------------------------------------- --------
    
12.         可见度 - 禁用 战争迷雾
    
13.         可见度 - 禁用 黑色阴影
    
14.         -------- --------------------------------------------------------------------- --------
    

复制代码

除了louter的这套系统以外是否还有其他的选择?

RoyalFlare

人工顶1下 GA论坛的人越来越少了
发个帖都没人回复XD