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

RoyalFlare · 发表于 2014-12-20 18:27:55

既然百度贴吧魔兽争霸编辑器吧的大神们都喜欢弄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)

globals
integer array MoveIndex
real array MoveSpeed
// real array MoveAngle
real array MoveRange
real array MoveDamageRange
real array MoveDamage
real array MoveDistance
real array MoveCos
real array MoveSin
unit array MoveUnit
unit array MoveDamageUnit
boolean array MoveAllyRange
boolean BarrierUnitSetsel
integer SetselInt
endglobals
function PopUnit takes integer id returns nothing
local integer i=MoveIndex[0]
set MoveUnit[id]=MoveUnit[i]
set MoveSpeed[id]=MoveSpeed[i]
set MoveDistance[id]=MoveDistance[i]
// set MoveAngle[id]=MoveAngle[i]
set MoveCos[id]=MoveCos[i]
set MoveSin[id]=MoveSin[i]
set MoveAllyRange[id]=MoveAllyRange[i]
set MoveDamageUnit[id]=MoveDamageUnit[i]
set MoveDamageRange[id]=MoveDamageRange[i]
set MoveRange[id]=MoveRange[i]
set MoveDamage[id]=MoveDamage[i]
set MoveUnit[i]=null
set MoveIndex[0]=i-1//指针左移
endfunction
function MoveMode takes nothing returns nothing
local integer i=MoveIndex[0]//获得栈里当前记录单位数
local real x
local real y
local group g0
local group g1
local unit u
local unit u1
local unit mu
local unit du
loop
exitwhen i == 0// 如果栈拥有 >0 个单位就会从高id往低id 的对栈里每个单位执行动作
// call BJDebugMsg("a 遍历到了 i = "+I2S(i))
// call BJDebugMsg("b i="+I2S(i)+" 判断距离是否到了 = "+R2S(MoveDistance[i]))
set mu=MoveUnit[i]
if MoveDistance[i]<0 then//如果移动距离到了就杀死单位记录销毁序号
call KillUnit(mu)//就杀死单位
// set MoveIndex[MoveIndex[0]]=i//记录销毁序号
call PopUnit(i)
// call BJDebugMsg("c end i="+I2S(i)+" 距离到了杀死单位 i("+I2S(i)+")入栈指针-1 = "+I2S(MoveIndex[0]))
else//否则移动单位同时判断是否碰撞单位如果碰到就不移动
set du=MoveDamageUnit[i]
set x=GetUnitX(mu)+MoveCos[i]//获得位移坐标x
set y=GetUnitY(mu)+MoveSin[i]//获得位移坐标y
// call BJDebugMsg("c i="+I2S(i)+" 距离没到准备移动单位("+R2S(GetUnitX(MoveUnit[i]))+","+R2S(GetUnitY(MoveUnit[i]))+") 到 ("+R2S(x)+","+Rsssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
set BarrierUnitSetsel=false//初始化布尔值变量
set g0=CreateGroup()
call GroupEnumUnitsInRange(g0,x,y,MoveRange[i],null)//选取坐标附近指定范围的所有单位检查条件是否匹配
loop
set u=FirstOfGroup(g0)
exitwhen u == null
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
set BarrierUnitSetsel=true//设置此判断变量真然后伤害选取到的敌人
if MoveDamageRange[i] == 0 then
call UnitDamageTarget(du,u,MoveDamage[i],true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS )
elseif MoveDamageRange[i]<0 then
call UnitDamagePoint(du,0,0-MoveDamageRange[i],GetUnitX(u),GetUnitY(u),MoveDamage[i],true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS)
else
set g1=CreateGroup()
call GroupEnumUnitsInRange(g1,GetUnitX(u),GetUnitY(u),MoveDamageRange[i],null)
loop
set u1=FirstOfGroup(g1)
exitwhen u1 == null
if IsUnitType(u1,UNIT_TYPE_DEAD) == false and IsUnitEnemy(du,GetOwningPlayer(u1)) then
call UnitDamageTarget(du,u1,MoveDamage[i],true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS )
endif
call GroupRemoveUnit(g1,u1)
endloop
call DestroyGroup(g1)
set g1=null
endif
call KillUnit(mu)//杀死弹幕单位
call PopUnit(i)
endif
call GroupRemoveUnit(g0,u)
endloop
set du=null
call DestroyGroup(g0)
set g0=null
// call BJDebugMsg("i 选取完")
if not(BarrierUnitSetsel or IsTerrainPathable(x,y,PATHING_TYPE_FLYABILITY)) then//如果此为假亦即没有选取到敌人单位
call SetUnitX(mu,x)//移动单位到指定x坐标
call SetUnitY(mu,y)//移动单位到指定y坐标
// call BJDebugMsg("j end 没有碰到敌人")
// else
// call BJDebugMsg("j end 碰到敌人了")
endif
set MoveDistance[i]=MoveDistance[i]-MoveSpeed[i]//减少记录的距离亦即记录剩下移动距离
set mu=null
endif
set i=i-1
endloop
endfunction
//call AddMoveMode(玩家,辅助单位id,伤害来源,初始x,初始y,移动角度,移动速度,最大距离,伤害范围,碰撞检查范围,伤害值)
//角度按角度制即 0-360
//伤害来源即最终伤害由谁给出
//伤害范围设置0 即只伤害目标设置了正数就能范围伤害(不伤害队友) 设置负数伤害队友的范围伤害
//碰撞检查范围设置了正数就碰到敌人才爆炸设置负数碰到队友也爆炸
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
local integer i
set MoveIndex[0]=MoveIndex[0]+1 //指针右移
if MoveIndex[MoveIndex[0]] != 0 then //如果此位置记录销毁id
set i=MoveIndex[MoveIndex[0]] //设置取得id=此被销毁id
else //如果此位置没记录销毁id
set i=MoveIndex[0] //设置取得id=指针位置
endif
set MoveUnit[i]=CreateUnit(p,uid,x0,y0,r)//创建单位记录单位
set r=bj_DEGTORAD*r //把角度制转弧度制 (例:180转bj_PI)
set MoveDamageUnit[i]=Damage
if MoveDamageUnit[i] == null then
set MoveDamageUnit[i]=MoveUnit[i]
endif
set MoveSpeed[i]=speed//记录速度
set MoveDistance[i]=juli//记录最大距离
// set MoveAngle[i]=r//记录移动角度
set MoveAllyRange[i]=range<0
set MoveDamageRange[i]=drange
if MoveAllyRange[i] then
set MoveRange[i]=0-range//记录碰撞检查范围
else
set MoveRange[i]=range//记录碰撞检查范围
endif
set MoveDamage[i]=damage//记录伤害值
set MoveCos[i]=Cos(r)*MoveSpeed[i]
set MoveSin[i]=Sin(r)*MoveSpeed[i]
endfunction
function InitMoveMode takes nothing returns nothing//初始化函数
call TimerStart(CreateTimer(),.01,true,function MoveMode)//永久开启计时器
endfunction

复制代码

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

2.AngleBetweenAngles 角度差
function AngleBetweenAnglesDEG takes real f1,real f2 returns real
local real r=f1-f2
if r<0. then
if r<-180. then
return 360.+r
else
return -r
endif
else
if r<180. then
return r
else
return 360.-r
endif
endif
endfunction
function AngleBetweenAnglesRAD takes real f1,real f2 returns real
local real r=f1-f2
if r<0. then
if r<-bj_PI then
return 6.28319+r
else
return -r
endif
else
if r<bj_PI then
return r
else
return 6.28319-r
endif
endif
endfunction
//------------------------
3.GetNearestUnitInRange 得到一定范围内距离某坐标最近的单位
function DistanceBetweenCoords takes real Ax,real Ay,real Bx,real By returns real
local real dx = Bx-Ax
local real dy = By-Ay
return SquareRoot(dx * dx + dy * dy)
endfunction
function GetNearestUnitInRangeA takes unit tu,unit u,real x,real y,real range,boolexpr filter returns unit
local group g=CreateGroup()
local real dis
call GroupEnumUnitsInRange(g,x,y,range,filter)
set u=FirstOfGroup(g)
set tu=u
loop
exitwhen u==null
set dis=DistanceBetweenCoords(GetUnitX(u),GetUnitY(u),x,y)
if dis<range then
set range=dis
set tu=u
endif
call GroupRemoveUnit(g,u)
set u=FirstOfGroup(g)
endloop
call DestroyGroup(g)
set g=null
return tu
endfunction
function GetNearestUnitInRange takes real x,real y,real range,boolexpr filter returns unit
return GetNearestUnitInRangeA(null,null,x,y,range,filter)
endfunction

复制代码

4.DistanceFromPointToLine 点到直线距离
function DistanceFromPointToLine_PK takes real pointX, real pointY, real lineX, real lineY, real angle returns real
//调用 DistanceFromPointToLine_PK(点坐标x,点坐标y,直线上一点坐标x,直线上一点坐标y,直线角度)
//返回任意一点到直线的距离弧度制 -bj_PI ~ bj_PI
local real lineA
set lineA = Tan(angle)
set lineA = (lineA*pointX-pointY-lineA*lineX+lineY)/SquareRoot(lineA*lineA+1)
if lineA>=0 then
return lineA
else
return -lineA
endif
endfunction
function DistanceFromPointToLine takes real x0, real y0, real Aa, real Ba, real Ca returns real
//任意一点(x,y)到直线(Ax+By+C=0)的距离
set Aa = (x0*Aa+y0*Ba+Ca)/SquareRoot(Aa*Aa+Ba*Ba)
if Aa>=0 then
return Aa
else
return -Aa
endif
endfunction
//==============================
5.GroupEnumUnitsInRectangle 选取任意角度矩形范围内单位组
function IsInRectangle takes real cx,real cy,real x,real y,real l,real w,real angle returns boolean
local real dis
local real dx
local real dy
set l=l/2
set w=w/2
set dx=cx-x
set dy=cy-y
set dis=SquareRoot(dx*dx+dy*dy)
set angle=Atan2(dy,dx)-angle
set cx=x+dis*Cos(angle)
set cy=y+dis*Sin(angle)
return (cx>x-l and cx<x+l and cy>y-w and cy<y+w)
endfunction
globals
real udg_GEUIRA_tempX
real udg_GEUIRA_tempY
real udg_GEUIRA_tempA
real udg_GEUIRA_tempL
real udg_GEUIRA_tempW
endglobals
function GroupEnumUnitsInRectangleFilter takes nothing returns boolean
return IsInRectangle(GetUnitX(GetFilterUnit()),GetUnitY(GetFilterUnit()),udg_GEUIRA_tempX,udg_GEUIRA_tempY,udg_GEUIRA_tempL,udg_GEUIRA_tempW,udg_GEUIRA_tempA)
endfunction
function GroupEnumUnitsInRectangle takes group g,real x,real y,real l,real w,real angle returns nothing
//点x,y为矩形中心
set udg_GEUIRA_tempX=x
set udg_GEUIRA_tempY=y
set udg_GEUIRA_tempA=angle
set udg_GEUIRA_tempL=l
set udg_GEUIRA_tempW=w
call GroupEnumUnitsInRange(g,x,y,SquareRoot(l*l+w*w)/2,Condition(function GroupEnumUnitsInRectangleFilter))
endfunction

复制代码

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

复制代码

RoyalFlare · 发表于 2014-12-20 18:31:16

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

RoyalFlare · 发表于 2014-12-20 18:33:17

本帖最后由 RoyalFlare 于 2014-12-20 18:34 编辑

//两个坐标之间的角度
function tdbv4 takes real x1,real y1,real x2,real y2 returns real
return bj_RADTODEG*Atan2(y2-y1,x2-x1)
endfunction
//两个坐标之间的距离
function tdbv3 takes real x1,real y1,real x2,real y2 returns real
return SquareRoot((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))
endfunction
//两个单位之间的距离
function disU2U takes unit u,unit u1 returns real
local real y2 = GetUnitY(u1)
local real y1 = GetUnitY(u)
local real x2 = GetUnitX(u1)
local real x1 = GetUnitX(u)
return SquareRoot((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))
endfunction
//两个单位之间个角度
function angU2U takes unit u,unit u1 returns real
local real y2 = GetUnitY(u1)
local real y1 = GetUnitY(u)
local real x2 = GetUnitX(u1)
local real x1 = GetUnitX(u)
return bj_RADTODEG*Atan2(y2-y1,x2-x1)
endfunction

复制代码

//单位组伤害函数
function fun takes unit u ,real x, real y , real distance ,real hurt,string strings ,boolean hurt1,integer i returns nothing
local unit u1
call GroupEnumUnitsInRange(e,x,y,distance,null)
loop
set u1 = FirstOfGroup(e)
exitwhen u1 == null
if Con(u,u1,i) then
if strings != "" then
call DestroyEffect( AddSpecialEffect(strings, GetUnitX(u1), GetUnitY(u1)) )
endif
call UnitDamageTarget( u, u1, hurt, false, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_MAGIC, WEAPON_TYPE_WHOKNOWS )
call GroupRemoveUnit( e, u1 )
else
call GroupRemoveUnit( e, u1 )
endif
endloop
call GroupClear(e)
set u1 = null
endfunction

复制代码

//1.24timerunits库
library_once TimerUtils
globals
private constant integer MAX_HANDLE_ID_COUNT = 408000
private integer array data[MAX_HANDLE_ID_COUNT]
private constant integer MIN_HANDLE_ID=0x100000
private constant integer HELD=0x28829022
private timer array tT
private integer tN = 0
endglobals
function SetTimerData takes timer t, integer value returns nothing
set data[GetHandleId(t)-MIN_HANDLE_ID]=value
endfunction
function GetTimerData takes timer t returns integer
return data[GetHandleId(t)-MIN_HANDLE_ID]
endfunction
function NewTimer takes nothing returns timer
if (tN==0) then
set tT[0]=CreateTimer()
else
set tN=tN-1
endif
call SetTimerData(tT[tN],0)
return tT[tN]
endfunction
function ReleaseTimer takes timer t returns nothing
if(t==null) then
return
endif
if (tN==8191) then
call DestroyTimer(t)
else
call PauseTimer(t)
if(GetTimerData(t)==HELD) then
return
endif
call SetTimerData(t,HELD)
set tT[tN]=t
set tN=tN+1
endif
endfunction
endlibrary

复制代码

//跳跃函数
library flyhigh requires TimerUtils ,system
struct fly
timer t
real x
real y
real dist
real dheig
real OriginHeight
real x1
real y1
real ang
real heightMax
real height
real hurt
integer steepsMax
integer steeps
integer lvJumpTimer
unit u
unit u2
string strings
effect eff
boolean stops
boolean kill
boolean gone
static method JumpLoop takes nothing returns nothing
local thistype d = thistype(GetTimerData(GetExpiredTimer()))
local location l
local real z
set d.x1=d.x+d.steeps*d.dist*Cos(d.ang*3.14159/180.0)
set d.y1=d.y+d.steeps*d.dist*Sin(d.ang*3.14159/180.0)
set d.x1=YDWECoordinateX(d.x1)
set d.y1=YDWECoordinateY(d.y1)
set d.steeps=d.steeps+1
call SetUnitX(d.u,d.x1)
call SetUnitY(d.u,d.y1)
call UnitAddAbility( d.u, 'Amrf' )
call UnitRemoveAbility(d.u,'Amrf')
set l = Location(d.x1,d.y1)
set z = GetLocationZ(l)
set d.height=((-(2*I2R(d.steeps)*d.dheig-1)*(2*I2R(d.steeps)*d.dheig-1)+1)*d.heightMax+d.OriginHeight) + z
call RemoveLocation(l)
call SetUnitFlyHeight(d.u,d.height,99999)
call SetUnitFacing(d.u,d.ang)
if d.steeps == d.steepsMax then
call PauseTimer(d.t)
if d.stops == true then
call PauseUnit( d.u, false )
call IssueImmediateOrder( d.u, "stop" )
endif
if d.hurt >= 0. then
call fun(d.u2,GetUnitX(d.u),GetUnitY(d.u),350.,d.hurt,d.strings,false,0)
endif
if d.kill == true then
call RemoveUnit(d.u)
endif
call SetUnitFlyHeight(d.u,GetUnitDefaultFlyHeight(d.u),700)
call d.destroy()
set d.u = null
set d.u2=null
set d.eff = null
endif
set l = null
endmethod
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
local thistype q = thistype.allocate()
set q.steepsMax=R2I(l/t)
set q.steeps=0
set q.u = un
set q.u2=u2
set q.gone = gone
set q.hurt = hurt
set q.strings = strings
set q.ang = a
set q.kill = kill
set q.t=NewTimer()
set q.x=GetUnitX(q.u)
set q.y=GetUnitY(q.u)
set q.dist=d/q.steepsMax
set q.dheig=1.0/q.steepsMax
set q.heightMax = h
set q.OriginHeight=GetUnitFlyHeight(q.u)
call SetTimerData(q.t, integer(q))
if stop == true then
set q.stops = stop
call PauseUnit( q.u, true )
endif
call TimerStart(q.t,t,true,function fly.JumpLoop)
return q
endmethod
method onDestroy takes nothing returns nothing
set .u = null
set .u2 = null
set .eff = null
call ReleaseTimer(.t)
endmethod
endstruct
endlibrary

复制代码

RoyalFlare · 发表于 2014-12-20 18:35:54

//============================冲锋==================================
library MoveUnit requires system
globals
private constant timer displacement_timer=CreateTimer()
private constant real displacement_time=0.05
private integer displacement_index=0
private integer array displacement_array
endglobals
struct moving
unit units
real ang
real x
real y
real x1
real y1
real max=0.
real index
real dis
integer AnimationByIndex
boolean kills
static moving data
static method Loop takes nothing returns nothing
local integer i=0
local real Former
local real Latter
local boolean NotifyX
local boolean NotifyY
loop
exitwhen i==displacement_index
set data=displacement_array[i]
if data.max>=data.dis then
if data.kills == true then
call RemoveUnit(data.units)
endif
call SetUnitAnimation( data.units, "stand" )
set data.units = null
set displacement_index=displacement_index-1
set displacement_array[i]=displacement_array[displacement_index]
set i=i-1
call data.destroy()
else
if data.AnimationByIndex != 0 then
call SetUnitAnimationByIndex( data.units, data.AnimationByIndex )
endif
set data.max=data.max+26
call IssueImmediateOrder(data.units,"stop")
set Former=GetUnitX(data.units)+26.*Cos(data.ang*bj_DEGTORAD)
set Latter=GetUnitY(data.units)+26.*Sin(data.ang*bj_DEGTORAD)
set data.x=GetUnitX(data.units)
set data.y=GetUnitY(data.units)
call SetUnitPosition(data.units,Former,Latter)
if (RAbsBJ(GetUnitX(data.units)-Former)>.5)or(RAbsBJ(GetUnitY(data.units)-Latter)>.5)then
set NotifyX=RAbsBJ(GetUnitX(data.units)-Former)<=.5
set NotifyY=RAbsBJ(GetUnitY(data.units)-Latter)<=.5
if NotifyX then
call SetUnitPosition(data.units,Former,data.y)
elseif NotifyY then
call SetUnitPosition(data.units,data.x,Latter)
else
call SetUnitPosition(data.units,data.x,Latter)
endif
endif
endif
set i=i+1
endloop
if displacement_index==0 then
call PauseTimer(displacement_timer)
endif
endmethod
endstruct
function TimerCreate takes unit units,real ang,real dis,integer i,boolean kills returns nothing
local moving dat
set dat=moving.create()
set dat.units=units
set dat.ang=ang
set dat.kills = kills
set dat.dis=dis
set dat.AnimationByIndex = i
set displacement_array[displacement_index]=dat
set displacement_index=displacement_index+1
if displacement_index==1 then
call TimerStart(displacement_timer,displacement_time,true,function moving.Loop)
endif
endfunction
endlibrary

复制代码

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

o0木子0o · 发表于 2014-12-20 18:39:44

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

RoyalFlare · 发表于 2014-12-20 18:42:47

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

chyj4747 · 发表于 2014-12-21 06:16:51

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

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

RoyalFlare · 发表于 2014-12-21 16:21:59

本帖最后由 RoyalFlare 于 2019-8-22 00:16 编辑

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

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

ck5524210 · 发表于 2014-12-21 16:58:34

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

RoyalFlare · 发表于 2014-12-21 17:37:49

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

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

RoyalFlare · 发表于 2014-12-21 17:39:30

本帖最后由 RoyalFlare 于 2014-12-21 17:57 编辑

QQ截图20141219163738.jpg

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

ck5524210 · 发表于 2014-12-21 18:12:28

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

actboy168 · 发表于 2014-12-24 11:31:39

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

异界行者 · 发表于 2015-5-17 23:24:53

很不错支持下

yeeboys · 发表于 2015-6-1 12:50:45

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

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

RoyalFlare · 发表于 2015-6-1 19:12:11

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

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

少啦A梦 · 发表于 2019-3-8 06:11:17

厉害厉害1支持下。

		自动登录	找回密码
密码			点一下

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

相关帖子

点评

点评

点评

点评

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

相关帖子

点评

点评

点评

点评

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