【90%高仿Dota技能】 巫妖 - 连环霜冻(纯Jass傻瓜移植版)

苦工

1 - 解决了第一次移动弹射球到目标跟下次弹射的衔接
2 - 弹射下次目标不重复
3 - 解决了用单位 - 伤害目标函数导致目标死亡出现不了效果的问题
4 - 因弹射中途目标单位死亡导致弹射球移动到地图中心点的Bug
    设置一个备用目标。如果备用目标死亡那么就人品问题了（此问题尚未完美解决）
5 - 如何移植在模板中有清晰注释
6 - 需要1.24B以上魔兽版本
7 - 需要YDWE1.20以上编辑器
8 - 支持多人同时施法
9 - 100%排泄 90%高仿




[jass]
library SDXX
globals
    hashtable hx = InitHashtable()
endglobals
function Distance takes real  x1,real x2,real y1, real  y2 returns real
    local real s
    local real dx = x2 - x1
    local real dy = y2 - y1
    set s = SquareRoot(dx*dx+dy*dy)
    return s
endfunction
function fzq takes real y1,real y2,real x1,real x2 returns real
    local real s =(bj_RADTODEG* Atan2(y1-y2,x1-x2 ))
    return s
endfunction
   
function zbX takes real xx,real xxx,real xxxx returns real
    local real x
    set x = xx+xxx*Cos(xxxx*bj_DEGTORAD)
    return x
endfunction
function zbY takes real xx,real xxx,real xxxx returns real
    local real y
    set y = xx+xxx*Sin(xxxx*bj_DEGTORAD)
    return y
endfunction
function Hero_Bn_Skill_R2 takes nothing returns nothing
    local integer i = GetHandleId(GetExpiredTimer())
    local unit Hero = LoadUnitHandle(hx,i,1)
    local unit u =  LoadUnitHandle(hx,i,2)
    local unit majia = LoadUnitHandle(hx,i,3)
    local boolean Boo = LoadBoolean(hx,i,5)
    local boolean Booo = LoadBoolean(hx,i,6)
    local integer C = LoadInteger(hx,i,7)
    local unit beiyong = LoadUnitHandle(hx,i,8)
    local integer i2 = 0
    local real x
    local real y
    local real s
    local group g = CreateGroup()
    local group g2 = CreateGroup()
    local location d = GetUnitLoc(u)
    local unit xm
    local unit majia2
   
    if C == 7 /*这里的7为最大弹射次数*/ then
    call PauseTimer(GetExpiredTimer())
    call RemoveUnit(majia)
    call FlushChildHashtable(hx,i)
    call DestroyTimer(GetExpiredTimer())
    else
    if  Boo == false then
        if IsUnitAliveBJ(u) == true then
        set s =
fzq(GetUnitY(u),GetUnitY(majia),GetUnitX(u),GetUnitX(majia))
        set x = zbX(GetUnitX(majia),13,s)//这里的13为冰霜球一开始飞行的移动速度
        set y = zbY(GetUnitY(majia),13,s)//如上
        call SetUnitX(majia,x)
        call SetUnitY(majia,y)
        if
Distance(GetUnitX(majia),GetUnitX(u),GetUnitY(majia),GetUnitY(u))<=10  
then
            set Boo = true
            call SaveBoolean(hx,i,5,Boo)
        endif
        else
        set C = 7
        endif
    else
        if Booo == false then
            set C = C +1
            call SaveInteger(hx,i,7,C)
            set majia2 = CreateUnit(GetOwningPlayer(Hero),/*这里的e000改为释放技能马甲ID*/'e000',GetUnitX(u),GetUnitY(u),0)
             call UnitApplyTimedLife( majia2, 'BHwe', 2.00 )
             call IssueTargetOrder( majia2, "frostnova", u )
            set g =  GetUnitsInRangeOfLocAll(600,d)//这里的600为弹射选取单位的范围
            call GroupRemoveUnit(g,u)
            loop
                set xm = FirstOfGroup(g)
                exitwhen xm == null
                if IsUnitType(xm, UNIT_TYPE_STRUCTURE) == false /*
            */and IsUnitEnemy(xm, GetOwningPlayer(Hero)) == true /*
            */ and IsUnitAliveBJ(xm) == true  then
                        call GroupAddUnit(g2,xm)
                endif
                call GroupRemoveUnit(g,xm)
            endloop
            
            
            if CountUnitsInGroup(g2) == 0  then
                set C = 7
            else
                set u = GroupPickRandomUnit(g2)
                call SaveUnitHandle(hx,i,2,u)
                call GroupRemoveUnit(g2,u)
                set beiyong = GroupPickRandomUnit(g2)
                call SaveUnitHandle(hx,i,8,beiyong)
                set Booo = true
                call SaveBoolean(hx,i,6,Booo)
            endif
            
        else
            if IsUnitAliveBJ(u) == true then
                set s =
fzq(GetUnitY(u),GetUnitY(majia),GetUnitX(u),GetUnitX(majia))
                set x = zbX(GetUnitX(majia),13,s) //这里的13为冰霜球弹射的时候的移动速度
                set y = zbY(GetUnitY(majia),13,s)//如上
                call SetUnitX(majia,x)
                call SetUnitY(majia,y)
                if
Distance(GetUnitX(majia),GetUnitX(u),GetUnitY(majia),GetUnitY(u))<=10
then
                    set Booo = false
                endif
            else
                if IsUnitAliveBJ(beiyong) == true then
                    set u = beiyong
                    call SaveUnitHandle(hx,i,2,u)
                else
                    set C = 7
                endif
            endif
            call SaveBoolean(hx,i,6,Booo)
        endif
    endif
    endif
    call SaveInteger(hx,i,7,C)
    call DestroyGroup(g2)
    call DestroyGroup(g)
     call RemoveLocation(d)
    set Hero = null
    set majia = null
    set u = null
    set majia2 = null
    set g = null
    set g2 = null
    set d = null
    set xm = null
    set beiyong = null
   
endfunction
function Hero_Bv_Skill_R takes unit Hero  returns nothing
    local unit u = GetSpellTargetUnit()
    local unit majia =
CreateUnit(GetOwningPlayer(Hero),/*这里的e001改为冰霜球马甲ID*/'e001',GetUnitX(Hero),GetUnitY(Hero),0)
    local timer t  = CreateTimer()
    local integer i = GetHandleId(t)
   
    call SaveUnitHandle(hx,i,1,Hero)
    call SaveUnitHandle(hx,i,2,u)
    call SaveUnitHandle(hx,i,3,majia)
    call TimerStart(t,0.03,true,function Hero_Bn_Skill_R2)
   
    set u = null
    set majia = null
    set Hero = null
   
endfunction

endlibrary
[/jass]

[通魔]米波 - 连环霜冻(纯Jass傻瓜移植版).w3x (23 KB, 下载次数: 216)

2011-12-2 03:18 上传

点击文件名下载附件

okolek

   其实我想吐槽用马甲+T也能做出来这样的效果  而且相当简单  相当简单。。。


唉。。突然发现自己天真了呢。。

lo

难道是风暴之锤？看见目标单位头上闪了一个buff，没看清是啥……
其实用马甲+T能做出这样的效果，不过一点也不简单 真不简单……

okolek

   因为那个球体没有死亡动画我就收回了我简单的说法。

  在DotA里边这个是用睡眠做的。

  我的思路是  召唤一个马甲 设置给他5点蓝(随便你设定) 然后每次释放技能少一点。
任意单位接受伤害来自是马甲的时候  创建单位组再丢个暗影突袭 。
任意单位接受伤害带有Buff为xx而且来源为马甲  给他丢一本霜之新星的书然后命令本体打他一下

破喉咙

想试试 但是手头WE已经被删了怎么办。。

okolek

    不用试了呗

lo

不要死亡动画其实很简单啊……
任意单位死亡，单位类型是……，删除单位
于是单位不播放动画的凭空消失了……

不了解这个技能，所以不试了……
嘛，了解了也不试~

chyj4747

话说。。弹射目标意外身亡这一点……有木有人用DOTA测试下呢。。

然后调用普通成员不用包含库文件吗……我第一次知道。。[s:166]

另外LS们想多了。。。英雄技能是通魔（基本是常见设置），马甲的技能是霜冻新星
LZ的截图估计是实际地图里截的，所以与移植版的有些不同~
额。。。T真的很难做吗？哪个部分难做？求LS们指点~
话说。。漠漠说的球体是什么？
        

---

我挑了一些小刺，希望LZ不要介意~
因为LZ说了是移植版啦~如果是教学那也无所谓了，移植的话个人认为应该将效率啥的尽量提升到最大，而教学的话倒只要一个明确的思路即可~

哈希表的初始化最好说明下放在脚本里初始化一个就够了，不然如果有别的移植也要初始化的话。。感觉会浪费不少时间

我忘了DOTA里的冰弹弹射次数是否会随着技能等级的变化而变化，如果会的话那么需要做些小的调整~

LZ用了些BJ，这本身没什么问题，只是IsUnitAliveBJ这个。。。效率实在……
如果将其打回原形的话就是
[jass]GetUnitState(whichUnit, UNIT_STATE_LIFE) <= 0[/jass]
这个东西啦。。为何不直接用而要多进行两次不必要的调用？

然后，GetUnitsInRangeOfLocAll也与上面的理由相同，因为filter的布尔式是null，完全没必要使用这个BJ来降低效率，另外这个函数采用的是点，需要后续排泄，所以替换成坐标的话应该效率更高~

嘛。。如果LZ是从移植时方便新人学习这方面考虑的话。。
个人认为还是不需要这样子的，那些BJ和CJ的理解难度的差异应该只有参数数量的差异，的确参数少便于理解，但是个人认为参数数量差造成的理解难度对于真心想学J的同学来说不会成为太大的问题，所以……
        

---

不过由于我这边已经很晚了所以只是大致看了下，有什么说错了请见谅~
当然，也请务必纠正~

苦工

chyj4747:话说。。弹射目标意外身亡这一点……有木有人用DOTA测试下呢。。

然后调用普通成员不用包含库文件吗……我第一次知道。。[s:166]

另外LS们想多了。。。英雄技能是通魔（基本是常见设置），马甲的技能是霜冻新星
....... (2011-12-02 13:32)

谢谢指导。 其实GetUnitsInRangeOfLocAll这个我也找不到其他可用的函数。 一篇紫色就这个红色的。。IsUnitAliveBJ的话。。 习惯了。。。其实T GUI上面都有说明是判断生命值 不过太懒了就懒得动了

chyj4747

苦工: 谢谢指导。 其实GetUnitsInRangeOfLocAll这个我也找不到其他可用的函数。 一篇紫色就这个红色的。。IsUnitAliveBJ的话。。 习惯了。。。其实T GUI上面都有说明是判断生命值 不过太懒了就懒得动了   (2011-12-02 13:49)

[jass]set g =  GetUnitsInRangeOfLocAll(600,d)
call GroupRemoveUnit(g,u)[/jass]
就是上面这两句吧~
g应该是个单位组没错吧，然后d是单位位置
可以这么写
[jass]call GroupEnumUnitInRange(g, GetUnitX(u), GetUnitY(u), 600, null)
call GroupRemoveUnit(g,u)[/jass]
LZ去function list看下GetUnitsInRangeOfLocAll调用的函数就知道了~
不过。。。我没试过……所以，万一错了，麻烦LZ来纠正~

PS：null应该跟returns nothing不一样吧……太晚了我就不测了，很早以前老狼写过一个优化ForGroup的写法，用的是GroupEnumUnitInRange并将里面的布尔式返回nothing，如果两者是一样的那么就矛盾了……因为BJ函数里写的是条件为空，返回单位组，于是该加入的单位全加好了，而老狼那个写法在函数运行完之后单位并不会真正加入该单位组

嘛。。没有条件和条件无返回值（等于返回false）应该是不同的吧~

陰毒老人

[jass]
function IsUnitAliveBJ takes unit whichUnit returns boolean
    return not IsUnitDeadBJ(whichUnit)
endfunction
[/jass]


[jass]
function IsUnitDeadBJ takes unit whichUnit returns boolean
    return GetUnitState(whichUnit, UNIT_STATE_LIFE) <= 0
endfunction
[/jass]


路程真遠

lo

还是有点不明白……
弹射下次目标不重复是什么意思？
用单位 - 伤害目标函数导致目标死亡出现不了效果是什么问题？
弹射中途目标单位死亡应该是弹尸体还是继续直线移动？

chyj4747

lo:还是有点不明白……
弹射下次目标不重复是什么意思？
用单位 - 伤害目标函数导致目标死亡出现不了效果是什么问题？
弹射中途目标单位死亡应该是弹尸体还是继续直线移动？ (2011-12-02 21:15)

弹射下次目标不重复就是不会一直弹一个单位……
DOTA的冰弹是如果弹射目标身亡则消失……
另外对首个目标有0.01的睡眠

lo

目标闪烁或者被龙卷风了之类的，冰球也消失么

lo

嘛，不想那么多了，猫咪又没打算做……

10235724429

我发现这个技能用T来做的话会简化会简化5倍以上。

chyj4747

10235724429:我发现这个技能用T来做的话会简化会简化5倍以上。 (2011-12-03 23:38)

这LS就不要考虑了。。。
T不管怎样效率都不及J的，最多跟J相等
如果LS说的是看起来简洁……我觉得是LS还不习惯J而已
J的可读性也比T要强很多

okolek

   说真的。

   用Jass做技能的话。

   效率能比T高多少

蓝色小锤

迫切的想学J却发现自己连T都没完全弄懂的少年。。路过。。

chyj4747

uoer:   说真的。

   用Jass做技能的话。

   效率能比T高多少 (2011-12-04 06:32)

单就常规技能来说的话。。2-4倍左右……如果以前某大大的研究没有问题的话~