通用函数集合帖 又是黑科技系列

RoyalFlare

既然百度贴吧魔兽争霸编辑器吧的大神们都喜欢弄1套自己的通用函数库 那我就收集整理1下吧
话说天灵萃梦和橙子貌似失踪了? N年不见人影了
1 图片弹幕函数(预读的)

• // -------------
• //real MOVEIMAGETIMER_TIMEOUT=0.04
• //! textmacro imageBulletsFunction takes NAME
• globals
•     image array imageBullet_$NAME$_images
•     timer imageBullet_$NAME$_timer
•     integer imageBullet_$NAME$_Max=0
•     integer imageBullet_$NAME$_imageMax=0
•     integer array imageBullet_$NAME$_id
•     unit array imageBullet_$NAME$_spellunit
•     real array imageBullet_$NAME$_x
•     real array imageBullet_$NAME$_y
•     real array imageBullet_$NAME$_z
•     real array imageBullet_$NAME$_speed_x
•     real array imageBullet_$NAME$_speed_y
•     real array imageBullet_$NAME$_distance
•     real array imageBullet_$NAME$_speed
•     string array imageBullet_$NAME$_effpath
•     string array imageBullet_$NAME$_targeteffpath
•     real array imageBullet_$NAME$_collision
•     real array imageBullet_$NAME$_range
•     integer udg_$NAME$_Max = 0
•     integer array udg_$NAME$_Flu
• endglobals
• function Create_$NAME$_Id takes nothing returns integer
•     set udg_$NAME$_Max = udg_$NAME$_Max + 1
•     debug call BJDebugMsg("$NAME$_Max_ID="+I2S(udg_$NAME$_Max))
•     if udg_$NAME$_Max>8190 then
•         call BJDebugMsg("|cffff0000 CreateImageId_$NAME$_error: cannot create id (>8190)|r")
•         return 0
•     endif
•     if udg_$NAME$_Flu[udg_$NAME$_Max == 0 then
•         return udg_$NAME$_Max
•     endif
•     return udg_$NAME$_Flu[udg_$NAME$_Max
• endfunction
• function Remove_$NAME$_Id takes integer tid returns nothing
•     set udg_$NAME$_Flu[udg_$NAME$_Max = tid
•     set udg_$NAME$_Max = udg_$NAME$_Max - 1
•     debug call BJDebugMsg("$NAME$_Max_ID="+I2S(udg_$NAME$_Max))
• endfunction
• function imageBullet_$NAME$_Preload takes nothing returns nothing
•     local integer c=imageBullet_$NAME$_imageMax+IMAGE_BULLET_PRELOAD_AMOUNT
•     debug call BJDebugMsg("Image_$NAME$ is preloading")
•     if c>8190 then
•         call BJDebugMsg("|cffff0000 Image_$NAME$_error: preload is failed|r")
•         return
•     endif
•     loop
•         set imageBullet_$NAME$_imageMax=imageBullet_$NAME$_imageMax+1
•         exitwhen imageBullet_$NAME$_imageMax>c
•         set imageBullet_$NAME$_images[imageBullet_$NAME$_imageMax=CreateImage(IMAGE_BULLETS_paths[$NAME$,IMAGE_BULLETS_size[$NAME$,IMAGE_BULLETS_size[$NAME$,IMAGE_BULLETS_size[$NAME$,0,0,0,0,0,0,2)
•         call ShowImage(imageBullet_$NAME$_images[imageBullet_$NAME$_imageMax,false)
•         call SetImageRenderAlways(imageBullet_$NAME$_images[imageBullet_$NAME$_imageMax,true)
•     endloop
•     set imageBullet_$NAME$_imageMax=imageBullet_$NAME$_imageMax-1
• endfunction
• function imageBullet_$NAME$_Delete takes integer id returns nothing
•     call ShowImage(imageBullet_$NAME$_images[imageBullet_$NAME$_id[id,false)
•     call Remove_$NAME$_Id(imageBullet_$NAME$_id[id)
•     set imageBullet_$NAME$_id[id=imageBullet_$NAME$_id[imageBullet_$NAME$_Max
•     set imageBullet_$NAME$_Max=imageBullet_$NAME$_Max-1
• endfunction
• function imageBullet_$NAME$_New takes unit spellunit,real x,real y,real z,real angle,real speed,real distance,string effpath,real collision,real range,string targeteffpath returns nothing
•     local integer id
•     set imageBullet_$NAME$_Max=imageBullet_$NAME$_Max+1
•     set id=imageBullet_$NAME$_Max
•     if id>imageBullet_$NAME$_imageMax then
•         call imageBullet_$NAME$_Preload()
•     endif
•     set imageBullet_$NAME$_id[imageBullet_$NAME$_Max=Create_$NAME$_Id()
•     set id=imageBullet_$NAME$_id[imageBullet_$NAME$_Max
•     set imageBullet_$NAME$_spellunit[id=spellunit
•     set imageBullet_$NAME$_x[id=x
•     set imageBullet_$NAME$_y[id=y
•     set imageBullet_$NAME$_z[id=z
•     set speed=speed*MOVEIMAGETIMER_TIMEOUT
•     set imageBullet_$NAME$_speed_x[id=speed*Cos(angle)
•     set imageBullet_$NAME$_speed_y[id=speed*Sin(angle)
•     set imageBullet_$NAME$_distance[id=distance
•     set imageBullet_$NAME$_speed[id=speed
•     set imageBullet_$NAME$_effpath[id=effpath
•     set imageBullet_$NAME$_targeteffpath[id=targeteffpath
•     set imageBullet_$NAME$_collision[id=collision
•     set imageBullet_$NAME$_range[id=range
•     call ShowImage(imageBullet_$NAME$_images[id,true)
•     call SetImagePosition(imageBullet_$NAME$_images[id,x,y,z)
• endfunction
• function imageBullet_$NAME$_TimerAction takes nothing returns nothing
•     local integer id
•     local integer i
•     local group g
•     local unit u
•     local boolean b
•     local player p
•     set i=imageBullet_$NAME$_Max
•     loop
•         exitwhen i<=0
•         set id=imageBullet_$NAME$_id[i
•         set b=false
•         set p=GetOwningPlayer(imageBullet_$NAME$_spellunit[id)
•         if imageBullet_$NAME$_effpath[id!=null then
•             call DestroyEffect(AddSpecialEffect(imageBullet_$NAME$_effpath[id,imageBullet_$NAME$_x[id,imageBullet_$NAME$_y[id))
•         endif
•         set imageBullet_$NAME$_x[id=imageBullet_$NAME$_x[id+imageBullet_$NAME$_speed_x[id
•         set imageBullet_$NAME$_y[id=imageBullet_$NAME$_y[id+imageBullet_$NAME$_speed_y[id
•         if (imageBullet_$NAME$_x[id>MAP_MINX)and(imageBullet_$NAME$_y[id>MAP_MINY)and(imageBullet_$NAME$_x[id<MAP_MAXX)and(imageBullet_$NAME$_y[id<MAP_MAXY) then
•             call SetImagePosition(imageBullet_$NAME$_images[id,imageBullet_$NAME$_x[id,imageBullet_$NAME$_y[id,imageBullet_$NAME$_z[id)
•         else
•             set b=true
•         endif
•         set imageBullet_$NAME$_distance[id=imageBullet_$NAME$_distance[id-imageBullet_$NAME$_speed[id
•         if imageBullet_$NAME$_distance[id<=0 then
•             set b=true
•             set g=CreateGroup()
•             call GroupEnumUnitsInRange(g,imageBullet_$NAME$_x[id,imageBullet_$NAME$_y[id,imageBullet_$NAME$_range[id,null)
•             loop
•                 set u = FirstOfGroup(g)
•                 exitwhen u == null
•                 if (GetUnitState(u,UNIT_STATE_LIFE)>0 and IsUnitEnemy(u,p)) then
•                     // call Damage 此处为伤害动作
•                 endif
•                 call GroupRemoveUnit(g,u)
•             endloop
•         else
•             set g=CreateGroup()
•             call GroupEnumUnitsInRange(g,imageBullet_$NAME$_x[id,imageBullet_$NAME$_y[id,imageBullet_$NAME$_collision[id,null)
•             loop
•                 set u = FirstOfGroup(g)
•                 exitwhen u == null
•                 if (GetUnitState(u,UNIT_STATE_LIFE)>0 and IsUnitEnemy(u,p)) or b then
•                     call GroupEnumUnitsInRange(g,imageBullet_$NAME$_x[id,imageBullet_$NAME$_y[id,imageBullet_$NAME$_range[id,null)
•                     loop
•                         set u = FirstOfGroup(g)
•                         exitwhen u == null
•                         if (GetUnitState(u,UNIT_STATE_LIFE)>0 and IsUnitEnemy(u,p)) then
•                             // call Damage 此处为伤害动作
•                         endif
•                         call GroupRemoveUnit(g,u)
•                     endloop
•                     set b=true
•                     exitwhen true
•                 endif
•                 call GroupRemoveUnit(g,u)
•             endloop
•         endif
•         call DestroyGroup(g)
•         set g = null
•         if b then
•             if imageBullet_$NAME$_targeteffpath[id!=null then
•                 call DestroyEffect(AddSpecialEffect(imageBullet_$NAME$_targeteffpath[id,imageBullet_$NAME$_x[id,imageBullet_$NAME$_y[id))
•             endif
•             call imageBullet_$NAME$_Delete(i)
•         endif
•         set i=i-1
•     endloop
• endfunction
• function imageBullet_$NAME$_init takes nothing returns nothing
•     set imageBullet_$NAME$_timer=CreateTimer()
•     call TimerStart(imageBullet_$NAME$_timer,MOVEIMAGETIMER_TIMEOUT,true,function imageBullet_$NAME$_TimerAction)
• endfunction
• //! endtextmacro
• // -------------
• //! textmacro imageBulletsInit takes NAME,PATH,SIZE
• set IMAGE_BULLETS_paths[$NAME$="$PATH$"
• set IMAGE_BULLETS_size[$NAME$=$SIZE$
• call imageBullet_$NAME$_init()
• //! endtextmacro
• globals
•     real MOVEIMAGETIMER_TIMEOUT=0.04
•     integer IMAGE_BULLET_PRELOAD_AMOUNT=50 //每次预创建数量
•     string array IMAGE_BULLETS_paths
•     real array IMAGE_BULLETS_size
•     real MAP_MINX=-15594 //地图范围
•     real MAP_MINY=-15860
•     real MAP_MAXX=15578
•     real MAP_MAXY=15342
• endglobals
• //! runtextmacro imageBulletsFunction("1")
• // 参数为数字,做为下标
• function IMAGE_BULLET_init takes nothing returns nothing
•     //! runtextmacro imageBulletsInit("1","Cast_BallGreen.BLP","32")
•     // 设置 1号图片弹幕 图片为Cast_BallGreen.BLP, 大小为32x32x32
• endfunction
• // call imageBullet_1_New(spellunit,x,y,z,angle,speed,distance,effpath,collision,range,targeteffpath)
• // 发布弹幕的单位,坐标x,y,高度z,方向(弧度),速度,距离,路径特效(无则填null),碰撞半径,伤害范围,终点特效(无则填null)
  

1. 
   
2. globals
   
3. integer array MoveIndex
   
4. real array MoveSpeed
   
5. // real array MoveAngle
   
6. real array MoveRange
   
7. real array MoveDamageRange
   
8. real array MoveDamage
   
9. real array MoveDistance
   
10. real array MoveCos
    
11. real array MoveSin
    
12. unit array MoveUnit
    
13. unit array MoveDamageUnit
    
14. boolean array MoveAllyRange
    
15. boolean BarrierUnitSetsel
    
16. integer SetselInt
    
17. endglobals
    
18. function PopUnit takes integer id returns nothing
    
19. local integer i=MoveIndex[0]
    
20. set MoveUnit[id]=MoveUnit[i]
    
21. set MoveSpeed[id]=MoveSpeed[i]
    
22. set MoveDistance[id]=MoveDistance[i]
    
23. // set MoveAngle[id]=MoveAngle[i]
    
24. set MoveCos[id]=MoveCos[i]
    
25. set MoveSin[id]=MoveSin[i]
    
26. set MoveAllyRange[id]=MoveAllyRange[i]
    
27. set MoveDamageUnit[id]=MoveDamageUnit[i]
    
28. set MoveDamageRange[id]=MoveDamageRange[i]
    
29. set MoveRange[id]=MoveRange[i]
    
30. set MoveDamage[id]=MoveDamage[i]
    
31. set MoveUnit[i]=null
    
32. set MoveIndex[0]=i-1//指针左移
    
33. endfunction
    
34. function MoveMode takes nothing returns nothing
    
35. local integer i=MoveIndex[0]//获得栈里当前记录单位数
    
36. local real x
    
37. local real y
    
38. local group g0
    
39. local group g1
    
40. local unit u
    
41. local unit u1
    
42. local unit mu
    
43. local unit du
    
44. loop
    
45. exitwhen i == 0// 如果栈拥有 >0 个单位 就会从 高id往低id 的对栈里每个单位执行动作
    
46. // call BJDebugMsg("a 遍历到了 i = "+I2S(i))
    
47. // call BJDebugMsg("b i="+I2S(i)+" 判断距离是否到了 = "+R2S(MoveDistance[i]))
    
48. set mu=MoveUnit[i]
    
49. if MoveDistance[i]<0 then//如果移动距离到了 就杀死单位 记录销毁序号
    
50. call KillUnit(mu)//就杀死单位
    
51. // set MoveIndex[MoveIndex[0]]=i//记录销毁序号
    
52. call PopUnit(i)
    
53. // call BJDebugMsg("c end i="+I2S(i)+" 距离到了 杀死单位 i("+I2S(i)+")入栈 指针-1 = "+I2S(MoveIndex[0]))
    
54. else//否则移动单位 同时判断是否碰撞单位 如果碰到就不移动
    
55. set du=MoveDamageUnit[i]
    
56. set x=GetUnitX(mu)+MoveCos[i]//获得位移坐标x
    
57. set y=GetUnitY(mu)+MoveSin[i]//获得位移坐标y
    
58. // call BJDebugMsg("c i="+I2S(i)+" 距离没到 准备移动单位("+R2S(GetUnitX(MoveUnit[i]))+","+R2S(GetUnitY(MoveUnit[i]))+") 到 ("+R2S(x)+","+Rsssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
    
59. set BarrierUnitSetsel=false//初始化布尔值变量
    
60. set g0=CreateGroup()
    
61. call GroupEnumUnitsInRange(g0,x,y,MoveRange[i],null)//选取坐标附近指定范围的所有单位检查条件是否匹配
    
62. loop
    
63. set u=FirstOfGroup(g0)
    
64. exitwhen u == null
    
65. if not(IsUnitType(u,UNIT_TYPE_DEAD)) and ((MoveAllyRange[i] and u != du and u != mu) or IsUnitEnemy(du,GetOwningPlayer(u))) and not(BarrierUnitSetsel) then
    
66. set BarrierUnitSetsel=true//设置此判断变量真 然后伤害选取到的敌人
    
67. if MoveDamageRange[i] == 0 then
    
68. call UnitDamageTarget(du,u,MoveDamage[i],true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS )
    
69. elseif MoveDamageRange[i]<0 then
    
70. call UnitDamagePoint(du,0,0-MoveDamageRange[i],GetUnitX(u),GetUnitY(u),MoveDamage[i],true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS)
    
71. else
    
72. set g1=CreateGroup()
    
73. call GroupEnumUnitsInRange(g1,GetUnitX(u),GetUnitY(u),MoveDamageRange[i],null)
    
74. loop
    
75. set u1=FirstOfGroup(g1)
    
76. exitwhen u1 == null
    
77. if IsUnitType(u1,UNIT_TYPE_DEAD) == false and IsUnitEnemy(du,GetOwningPlayer(u1)) then
    
78. call UnitDamageTarget(du,u1,MoveDamage[i],true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS )
    
79. endif
    
80. call GroupRemoveUnit(g1,u1)
    
81. endloop
    
82. call DestroyGroup(g1)
    
83. set g1=null
    
84. endif
    
85. call KillUnit(mu)//杀死弹幕单位
    
86. call PopUnit(i)
    
87. endif
    
88. call GroupRemoveUnit(g0,u)
    
89. endloop
    
90. set du=null
    
91. call DestroyGroup(g0)
    
92. set g0=null
    
93. // call BJDebugMsg("i 选取完")
    
94. if not(BarrierUnitSetsel or IsTerrainPathable(x,y,PATHING_TYPE_FLYABILITY)) then//如果此为假 亦即没有选取到敌人单位
    
95. call SetUnitX(mu,x)//移动单位到指定x坐标
    
96. call SetUnitY(mu,y)//移动单位到指定y坐标
    
97. // call BJDebugMsg("j end 没有碰到敌人")
    
98. // else
    
99. // call BJDebugMsg("j end 碰到敌人了")
    
100. endif
     
101. set MoveDistance[i]=MoveDistance[i]-MoveSpeed[i]//减少记录的距离 亦即记录剩下移动距离
     
102. set mu=null
     
103. endif
     
104. set i=i-1
     
105. endloop
     
106. endfunction
     
107. //call AddMoveMode(玩家,辅助单位id,伤害来源,初始x,初始y,移动角度,移动速度,最大距离,伤害范围,碰撞检查范围,伤害值)
     
108. //角度 按角度制即 0-360
     
109. //伤害来源 即最终伤害由谁给出
     
110. //伤害范围 设置0 即只伤害目标 设置了正数 就能范围伤害(不伤害队友) 设置负数 伤害队友的范围伤害
     
111. //碰撞检查范围 设置了正数 就碰到敌人才爆炸 设置负数 碰到队友也爆炸
     
112. function AddMoveMode takes player p,integer uid,unit Damage,real x0,real y0,real r,real speed,real juli,real drange,real range,real damage returns nothing
     
113. local integer i
     
114. set MoveIndex[0]=MoveIndex[0]+1 //指针右移
     
115. if MoveIndex[MoveIndex[0]] != 0 then //如果此位置记录销毁id
     
116. set i=MoveIndex[MoveIndex[0]] //设置取得id=此被销毁id
     
117. else //如果此位置没记录销毁id
     
118. set i=MoveIndex[0] //设置取得id=指针位置
     
119. endif
     
120. set MoveUnit[i]=CreateUnit(p,uid,x0,y0,r)//创建单位 记录单位
     
121. set r=bj_DEGTORAD*r //把角度制转 弧度制 (例:180转bj_PI)
     
122. set MoveDamageUnit[i]=Damage
     
123. if MoveDamageUnit[i] == null then
     
124. set MoveDamageUnit[i]=MoveUnit[i]
     
125. endif
     
126. set MoveSpeed[i]=speed//记录速度
     
127. set MoveDistance[i]=juli//记录最大距离
     
128. // set MoveAngle[i]=r//记录移动角度
     
129. set MoveAllyRange[i]=range<0
     
130. set MoveDamageRange[i]=drange
     
131. if MoveAllyRange[i] then
     
132. set MoveRange[i]=0-range//记录碰撞检查范围
     
133. else
     
134. set MoveRange[i]=range//记录碰撞检查范围
     
135. endif
     
136. set MoveDamage[i]=damage//记录伤害值
     
137. set MoveCos[i]=Cos(r)*MoveSpeed[i]
     
138. set MoveSin[i]=Sin(r)*MoveSpeed[i]
     
139. endfunction
     
140. function InitMoveMode takes nothing returns nothing//初始化函数
     
141. call TimerStart(CreateTimer(),.01,true,function MoveMode)//永久开启计时器
     
142. endfunction
     

复制代码

调用方法：call AddMoveMode(玩家,辅助单位id,伤害来源,初始x,初始y,移动角度,移动速度,最大距离,伤害范围,碰撞检查范围,伤害值)
//角度 按角度制即 0-360
//伤害来源 即最终伤害由谁给出
//伤害范围 设置0 即只伤害目标 设置了正数 就能范围伤害(不伤害队友) 设置负数 伤害队友的范围伤害
//碰撞检查范围 设置了正数 就碰到敌人才爆炸 设置负数 碰到队友也爆炸

1. 
   
2. 2.AngleBetweenAngles 角度差
   
3. function AngleBetweenAnglesDEG takes real f1,real f2 returns real
   
4.     local real r=f1-f2
   
5.     if r<0. then
   
6.         if r<-180. then
   
7.             return 360.+r
   
8.         else
   
9.             return -r
   
10.         endif
    
11.     else
    
12.         if r<180. then
    
13.             return r
    
14.         else
    
15.             return 360.-r
    
16.         endif
    
17.     endif
    
18. endfunction
    
19. 
    
20. function AngleBetweenAnglesRAD takes real f1,real f2 returns real
    
21.     local real r=f1-f2
    
22.     if r<0. then
    
23.         if r<-bj_PI then
    
24.             return 6.28319+r
    
25.         else
    
26.             return -r
    
27.         endif
    
28.     else
    
29.         if r<bj_PI then
    
30.             return r
    
31.         else
    
32.             return 6.28319-r
    
33.         endif
    
34.     endif
    
35. endfunction
    
36. //------------------------
    
37. 3.GetNearestUnitInRange 得到一定范围内距离某坐标最近的单位
    
38. function DistanceBetweenCoords takes real Ax,real Ay,real Bx,real By returns real
    
39.     local real dx = Bx-Ax
    
40.     local real dy = By-Ay
    
41.     return SquareRoot(dx * dx + dy * dy)
    
42. endfunction
    
43. function GetNearestUnitInRangeA takes unit tu,unit u,real x,real y,real range,boolexpr filter returns unit
    
44.     local group g=CreateGroup()
    
45.     local real dis
    
46.     call GroupEnumUnitsInRange(g,x,y,range,filter)
    
47.     set u=FirstOfGroup(g)
    
48.     set tu=u
    
49.     loop
    
50.         exitwhen u==null
    
51.         set dis=DistanceBetweenCoords(GetUnitX(u),GetUnitY(u),x,y)
    
52.         if dis<range then
    
53.             set range=dis
    
54.             set tu=u
    
55.         endif
    
56.         call GroupRemoveUnit(g,u)
    
57.         set u=FirstOfGroup(g)
    
58.     endloop
    
59.     call DestroyGroup(g)
    
60.     set g=null
    
61.     return tu
    
62. endfunction
    
63. function GetNearestUnitInRange takes real x,real y,real range,boolexpr filter returns unit
    
64.     return GetNearestUnitInRangeA(null,null,x,y,range,filter)
    
65. endfunction
    

复制代码

1. 
   
2. 4.DistanceFromPointToLine 点到直线距离
   
3. 
   
4. function DistanceFromPointToLine_PK takes real pointX, real pointY, real lineX, real lineY, real angle returns real
   
5.     //调用 DistanceFromPointToLine_PK(点坐标x,点坐标y,直线上一点坐标x,直线上一点坐标y,直线角度)
   
6.     //返回 任意一点到直线的距离     弧度制 -bj_PI ~ bj_PI
   
7.     local real lineA
   
8.     set lineA = Tan(angle)
   
9.     set lineA = (lineA*pointX-pointY-lineA*lineX+lineY)/SquareRoot(lineA*lineA+1)
   
10.     if lineA>=0 then
    
11.         return lineA
    
12.     else
    
13.         return -lineA
    
14.     endif
    
15. endfunction
    
16. 
    
17. function DistanceFromPointToLine takes real x0, real y0, real Aa, real Ba, real Ca returns real
    
18.     //任意一点(x,y)到直线(Ax+By+C=0)的距离
    
19.     set Aa = (x0*Aa+y0*Ba+Ca)/SquareRoot(Aa*Aa+Ba*Ba)
    
20.     if Aa>=0 then
    
21.         return Aa
    
22.     else
    
23.         return -Aa
    
24.     endif
    
25. endfunction
    
26. //==============================
    
27. 5.GroupEnumUnitsInRectangle 选取任意角度矩形范围内单位组
    
28. function IsInRectangle takes real cx,real cy,real x,real y,real l,real w,real angle returns boolean
    
29.     local real dis
    
30.     local real dx
    
31.     local real dy
    
32.     set l=l/2
    
33.     set w=w/2
    
34.     set dx=cx-x
    
35.     set dy=cy-y
    
36.     set dis=SquareRoot(dx*dx+dy*dy)
    
37.     set angle=Atan2(dy,dx)-angle
    
38.     set cx=x+dis*Cos(angle)
    
39.     set cy=y+dis*Sin(angle)
    
40.     return (cx>x-l and cx<x+l and cy>y-w and cy<y+w)
    
41. endfunction
    
42. globals
    
43.     real udg_GEUIRA_tempX
    
44.     real udg_GEUIRA_tempY
    
45.     real udg_GEUIRA_tempA
    
46.     real udg_GEUIRA_tempL
    
47.     real udg_GEUIRA_tempW
    
48. endglobals
    
49. function GroupEnumUnitsInRectangleFilter takes nothing returns boolean
    
50.     return IsInRectangle(GetUnitX(GetFilterUnit()),GetUnitY(GetFilterUnit()),udg_GEUIRA_tempX,udg_GEUIRA_tempY,udg_GEUIRA_tempL,udg_GEUIRA_tempW,udg_GEUIRA_tempA)
    
51. endfunction
    
52. function GroupEnumUnitsInRectangle takes group g,real x,real y,real l,real w,real angle returns nothing
    
53.     //点x,y为矩形中心
    
54.     set udg_GEUIRA_tempX=x
    
55.     set udg_GEUIRA_tempY=y
    
56.     set udg_GEUIRA_tempA=angle
    
57.     set udg_GEUIRA_tempL=l
    
58.     set udg_GEUIRA_tempW=w
    
59.     call GroupEnumUnitsInRange(g,x,y,SquareRoot(l*l+w*w)/2,Condition(function GroupEnumUnitsInRectangleFilter))
    
60. endfunction
    

复制代码

1. 
   
2. //=======================================================
   
3. //  函数：CreateEffectEX(locA,locB,modelName,rmLocs)
   
4. //        @locA:施法单位点
   
5. //        @locB:施法区域点
   
6. //        @modelName:特效模型路径,路径中的""请使用"\"代替，进行特殊字符转义
   
7. //        @rmLocs:是否删除点
   
8. //=======================================================
   
9. function CreateEffectEX takes location locA,location locB,string modelName,boolean rmLocs returns nothing
   
10.     local real tempX = GetLocationX(locA)
    
11.     local real tempY = GetLocationX(locB)
    
12.     local real dis = DistanceBetweenPoints(locA,locB)
    
13.     local real angle = AngleBetweenPoints(locA,locB)
    
14.     local integer index = 0
    
15.     loop
    
16.         set tempX = tempX + 24*Cos(angle*bj_DEGTORAD)
    
17.         set tempY = tempY + 24*Sin(angle*bj_DEGTORAD)
    
18.         call DestroyEffect(AddSpecialEffect(modelName,tempX,tempY))
    
19.         set index = index + 1
    
20.         exitwhen index > dis/24
    
21.     endloop
    
22.     if rmLocs then
    
23.         call RemoveLocation(locA)
    
24.         call RemoveLocation(locB)
    
25.     endif
    
26. endfunction
    
27. 
    
28. 把下面函数贴在全局函数中，在触发中使用[ 自定义代码：call CreateEffectEX(locA,locB,modelName,rmLocs) ]调用这个函数就可以进行两点间任意特效创建了，特效的模型由自己指定。
    

复制代码

RoyalFlare

@actboy168 不知道你还记得自己做的通用弹幕函数麽? 最近还在添加新的功能麽? 还是说能集成到UI里方便在T中直接调用? 减少工作量
@ckpig 蠢ck快去做1个CKUI出来啊 现在贴吧出了个5in1的UI集合版 我当时就震精了!

RoyalFlare

1. 
   
2. //两个坐标之间的角度
   
3. function tdbv4 takes real x1,real y1,real x2,real y2 returns real
   
4.    return bj_RADTODEG*Atan2(y2-y1,x2-x1)
   
5. endfunction
   
6. 
   
7. //两个坐标之间的距离
   
8. function tdbv3 takes real x1,real y1,real x2,real y2 returns real
   
9.    return SquareRoot((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))
   
10. endfunction
    
11. 
    
12. //两个单位之间的距离
    
13. function disU2U takes unit u,unit u1 returns real
    
14.    local real y2 = GetUnitY(u1)
    
15.    local real y1 = GetUnitY(u)
    
16.    local real x2 = GetUnitX(u1)
    
17.    local real x1 = GetUnitX(u)
    
18.    return SquareRoot((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))
    
19. endfunction
    
20. 
    
21. //两个单位之间个角度
    
22. function angU2U takes unit u,unit u1 returns real
    
23.    local real y2 = GetUnitY(u1)
    
24.    local real y1 = GetUnitY(u)
    
25.    local real x2 = GetUnitX(u1)
    
26.    local real x1 = GetUnitX(u)
    
27.    return bj_RADTODEG*Atan2(y2-y1,x2-x1)
    
28. endfunction
    

复制代码

1. 
   
2. //单位组伤害函数
   
3. 
   
4. function fun takes unit u ,real x, real y , real distance ,real hurt,string strings ,boolean hurt1,integer i returns nothing
   
5. local unit u1
   
6. call GroupEnumUnitsInRange(e,x,y,distance,null)
   
7. loop
   
8. set u1 = FirstOfGroup(e)
   
9. exitwhen u1 == null
   
10. if Con(u,u1,i) then
    
11. if strings != "" then
    
12.     call DestroyEffect( AddSpecialEffect(strings, GetUnitX(u1), GetUnitY(u1)) )
    
13. endif
    
14. call UnitDamageTarget( u, u1, hurt, false, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_MAGIC, WEAPON_TYPE_WHOKNOWS )
    
15. call GroupRemoveUnit( e, u1 )
    
16. else
    
17. call GroupRemoveUnit( e, u1 )
    
18. endif
    
19. endloop
    
20. call GroupClear(e)
    
21. set u1 = null
    
22. endfunction
    

复制代码

1. 
   
2. //1.24timerunits库
   
3. library_once TimerUtils
   
4.     globals
   
5.         private constant integer MAX_HANDLE_ID_COUNT = 408000
   
6.         private integer array data[MAX_HANDLE_ID_COUNT]
   
7.         private constant integer MIN_HANDLE_ID=0x100000
   
8.         private constant integer HELD=0x28829022
   
9.         private timer array tT
   
10.         private integer tN = 0
    
11.     endglobals
    
12.     function SetTimerData takes timer t, integer value returns nothing
    
13.         set data[GetHandleId(t)-MIN_HANDLE_ID]=value
    
14.     endfunction
    
15.     function GetTimerData takes timer t returns integer
    
16.        return data[GetHandleId(t)-MIN_HANDLE_ID]
    
17.     endfunction
    
18.     function NewTimer takes nothing returns timer
    
19.         if (tN==0) then
    
20.             set tT[0]=CreateTimer()
    
21.         else
    
22.             set tN=tN-1
    
23.         endif
    
24.         call SetTimerData(tT[tN],0)
    
25.      return tT[tN]
    
26.     endfunction
    
27.     function ReleaseTimer takes timer t returns nothing
    
28.         if(t==null) then
    
29.             return
    
30.         endif
    
31.         if (tN==8191) then
    
32.             call DestroyTimer(t)
    
33.         else
    
34.             call PauseTimer(t)
    
35.             if(GetTimerData(t)==HELD) then
    
36.                 return
    
37.             endif
    
38.             call SetTimerData(t,HELD)
    
39.             set tT[tN]=t
    
40.             set tN=tN+1
    
41.         endif   
    
42.     endfunction
    
43. endlibrary
    

复制代码

1. 
   
2. //跳跃函数
   
3. library flyhigh requires TimerUtils ,system
   
4. struct fly
   
5.     timer t
   
6.     real x
   
7.     real y
   
8.     real dist
   
9.     real dheig
   
10.     real OriginHeight
    
11.     real x1
    
12.     real y1
    
13.     real ang
    
14.     real heightMax
    
15.     real height
    
16.     real hurt
    
17.     integer steepsMax
    
18.     integer steeps
    
19.     integer lvJumpTimer
    
20.     unit u
    
21.     unit u2
    
22.     string strings
    
23.     effect eff
    
24.     boolean stops
    
25.     boolean kill
    
26.     boolean gone
    
27.    
    
28. static method JumpLoop takes nothing returns nothing
    
29.            local thistype d = thistype(GetTimerData(GetExpiredTimer()))
    
30.            local location l
    
31.            local real z
    
32.            set d.x1=d.x+d.steeps*d.dist*Cos(d.ang*3.14159/180.0)
    
33.            
    
34.            set d.y1=d.y+d.steeps*d.dist*Sin(d.ang*3.14159/180.0)
    
35.            
    
36.            set d.x1=YDWECoordinateX(d.x1)
    
37.            
    
38.            set d.y1=YDWECoordinateY(d.y1)
    
39.            
    
40.            set d.steeps=d.steeps+1
    
41.            
    
42.            call SetUnitX(d.u,d.x1)
    
43.            
    
44.            call SetUnitY(d.u,d.y1)
    
45.            call UnitAddAbility( d.u, 'Amrf' )
    
46.            
    
47.            call UnitRemoveAbility(d.u,'Amrf')
    
48.            
    
49.            set l = Location(d.x1,d.y1)
    
50.            
    
51.            set z = GetLocationZ(l)
    
52.            
    
53.            set d.height=((-(2*I2R(d.steeps)*d.dheig-1)*(2*I2R(d.steeps)*d.dheig-1)+1)*d.heightMax+d.OriginHeight)   +  z  
    
54.            
    
55.            call RemoveLocation(l)
    
56.            call SetUnitFlyHeight(d.u,d.height,99999)   
    
57.            
    
58.            call SetUnitFacing(d.u,d.ang)
    
59.            if d.steeps == d.steepsMax  then
    
60.            call PauseTimer(d.t)
    
61.            
    
62.            if d.stops == true then
    
63.            call PauseUnit( d.u, false )
    
64.            
    
65.            call IssueImmediateOrder( d.u, "stop" )
    
66.            endif
    
67.            if d.hurt >= 0. then
    
68.            call fun(d.u2,GetUnitX(d.u),GetUnitY(d.u),350.,d.hurt,d.strings,false,0)
    
69.            endif
    
70.            if d.kill == true then
    
71.            call RemoveUnit(d.u)
    
72.            endif
    
73.            call SetUnitFlyHeight(d.u,GetUnitDefaultFlyHeight(d.u),700)
    
74.            call d.destroy()
    
75.            set d.u = null
    
76.            set d.u2=null
    
77.            set d.eff = null
    
78.   
    
79.            endif
    
80.            set l = null
    
81. endmethod
    
82. static method Jump takes unit un,real a,real d,real l,real t,real h,boolean stop,real hurt,unit u2,boolean kill ,string strings,boolean gone  returns thistype
    
83.     local thistype q = thistype.allocate()
    
84.     set q.steepsMax=R2I(l/t)
    
85.     set q.steeps=0
    
86.     set q.u = un
    
87.     set q.u2=u2
    
88.     set q.gone = gone
    
89.     set q.hurt = hurt
    
90.     set q.strings = strings
    
91.     set q.ang = a
    
92.     set q.kill = kill
    
93.     set q.t=NewTimer()
    
94.     set q.x=GetUnitX(q.u)  
    
95.     set q.y=GetUnitY(q.u)
    
96.     set q.dist=d/q.steepsMax  
    
97.     set q.dheig=1.0/q.steepsMax  
    
98.     set q.heightMax = h
    
99.     set q.OriginHeight=GetUnitFlyHeight(q.u)
    
100.     call SetTimerData(q.t, integer(q))
     
101.     if stop == true then
     
102.     set q.stops = stop
     
103.         call PauseUnit( q.u, true )
     
104.     endif
     
105.     call TimerStart(q.t,t,true,function fly.JumpLoop)
     
106.     return q
     
107. endmethod
     
108.         
     
109.         method onDestroy takes nothing returns nothing
     
110.            set .u = null
     
111.            set .u2 = null
     
112.            set .eff = null
     
113.            call ReleaseTimer(.t)
     
114.         endmethod
     
115. endstruct
     
116. endlibrary
     

复制代码

RoyalFlare

1. 
   
2. //============================冲锋==================================
   
3. 
   
4. library MoveUnit requires system
   
5. 
   
6. globals
   
7. private constant timer displacement_timer=CreateTimer()
   
8. private constant real displacement_time=0.05
   
9. private integer displacement_index=0
   
10. private integer array displacement_array
    
11. endglobals
    
12. 
    
13. struct moving
    
14. unit units
    
15. real ang
    
16. real x
    
17. real y
    
18. real x1
    
19. real y1
    
20. real max=0.
    
21. real index
    
22. real dis
    
23. integer AnimationByIndex
    
24. boolean kills
    
25. static moving data
    
26. 
    
27. static method Loop takes nothing returns nothing
    
28. local integer i=0
    
29. local real Former
    
30. local real Latter
    
31. local boolean NotifyX
    
32. local boolean NotifyY
    
33. loop
    
34. exitwhen       i==displacement_index
    
35. set data=displacement_array[i]
    
36. if             data.max>=data.dis then
    
37. if data.kills == true then
    
38. call RemoveUnit(data.units)
    
39. endif
    
40. call SetUnitAnimation( data.units, "stand" )
    
41. set data.units = null
    
42. set displacement_index=displacement_index-1
    
43. set displacement_array[i]=displacement_array[displacement_index]
    
44. set i=i-1
    
45. call data.destroy()
    
46. else
    
47. if data.AnimationByIndex != 0 then
    
48. call SetUnitAnimationByIndex( data.units, data.AnimationByIndex )
    
49. endif
    
50. set data.max=data.max+26
    
51. call IssueImmediateOrder(data.units,"stop")
    
52. set Former=GetUnitX(data.units)+26.*Cos(data.ang*bj_DEGTORAD)
    
53. set Latter=GetUnitY(data.units)+26.*Sin(data.ang*bj_DEGTORAD)
    
54. set data.x=GetUnitX(data.units)
    
55. set data.y=GetUnitY(data.units)
    
56. call SetUnitPosition(data.units,Former,Latter)
    
57. if  (RAbsBJ(GetUnitX(data.units)-Former)>.5)or(RAbsBJ(GetUnitY(data.units)-Latter)>.5)then
    
58. set NotifyX=RAbsBJ(GetUnitX(data.units)-Former)<=.5
    
59. set NotifyY=RAbsBJ(GetUnitY(data.units)-Latter)<=.5
    
60. if             NotifyX then
    
61. call SetUnitPosition(data.units,Former,data.y)
    
62. elseif NotifyY then
    
63. call SetUnitPosition(data.units,data.x,Latter)
    
64. else
    
65. call SetUnitPosition(data.units,data.x,Latter)
    
66. endif
    
67. endif
    
68. endif
    
69. set i=i+1
    
70. endloop
    
71. if             displacement_index==0 then
    
72. call PauseTimer(displacement_timer)
    
73. endif
    
74. endmethod
    
75. endstruct
    
76. 
    
77. function TimerCreate takes unit units,real ang,real dis,integer i,boolean kills returns nothing
    
78. local moving dat
    
79. set dat=moving.create()
    
80. set dat.units=units
    
81. set dat.ang=ang
    
82. set dat.kills = kills
    
83. set dat.dis=dis
    
84. set dat.AnimationByIndex = i
    
85. set displacement_array[displacement_index]=dat
    
86. set displacement_index=displacement_index+1
    
87. if             displacement_index==1 then
    
88. call TimerStart(displacement_timer,displacement_time,true,function moving.Loop)
    
89. endif
    
90. endfunction
    
91. endlibrary
    

复制代码

最后来个冲锋函数 终结此贴

o0木子0o

能赶在被广告机淹没之前看到真是幸运啊

RoyalFlare

@o0木子0o 这种东西发在飞飞世界论坛没什麽人看 还是发到这里来吧
召唤最萌小汐 也许她能看到吧

chyj4747

RoyalFlare 发表于 2014-12-20 18:54
我估计下面会出现各种这TM是什麽玩意 1点都看不懂;
看不明白啊 求科普; J盲路过之类的评论
呵呵

看不明白啊 求科普，J盲路过~

RoyalFlare

chyj4747 发表于 2014-12-21 06:16
看不明白啊 求科普，J盲路过~

你别逗了行不? chyj4747
关于自己编写WE的UI 你是否有做过研究或尝试? 我想把这些通用函数封装到1个mpq文件里 然后在WE中调用
需要lua脚本
[s:172]

ck5524210

ui毕竟是新手玩的 没有任何通用性 等玩腻了自然还是要自己找原理 如此还不如indexer系统通用

RoyalFlare

ck5524210 发表于 2014-12-21 16:58
ui毕竟是新手玩的 没有任何通用性 等玩腻了自然还是要自己找原理 如此还不如indexer系统通用

每次创建1张新地图你都要在自定义代码去写1堆预定义函数?
还是几个vJass的library 解决
现在的效率就是时间啊 写个Boss战设计英雄技能的时候调用1个弹幕函数和单位组选取敌对单位的函数(1个Filter) 然后在T里面直接call 1下就好了 你说简不简单?!

RoyalFlare

ck来做1个反魂蝶练练手吧 试试
这些函数还没研究 有时间去做1下这些技能 其实说穿了就是堆特效 XY坐标轴马甲移动 选取1下范围单位组造成伤害.

ck5524210

呵呵  你觉得方便你自己做就是了 喊我干嘛

actboy168

我弄的蛋目函数只是玩玩，不用在意

异界行者

很不错支持下

yeeboys

RoyalFlare 发表于 2014-12-21 17:39
ck来做1个反魂蝶练练手吧 试试
这些函数还没研究 有时间去做1下这些技能 其实说穿了就是 ...

这图是你的吗，能不能玩，我想玩下，还有你写的太长了，能不能放在地图上给出

RoyalFlare

yeeboys 发表于 2015-6-1 12:50
这图是你的吗，能不能玩，我想玩下，还有你写的太长了，能不能放在地图上给出

地图名字是梦境神域 U9论坛上可以搜索到下载
动漫对抗地图 不是我的作品.

少啦A梦

厉害厉害1支持下。