[System] ProgressCastingBar

Progress Casting Bar

​

PHP:

library ProgressCastingBar /* by Dhguardianes v1.01 and thank raivor! (System)
*/ requires R32 /* v1.10 http://goo.gl/ag8a7
*/ optional AutoFly/* http://goo.gl/YNcbR
model http://goo.gl/beovT
************************************************************************************* 
* ____                                     ____          _   _             ____             
*|  _ \ _ __ ___   __ _ _ __ ___  ___ ___ / ___|__ _ ___| |_(_)_ __   __ _| __ )  __ _ _ __ 
*| |_) | '__/ _ \ / _` | '__/ _ \/ __/ __| |   / _` / __| __| | '_ \ / _` |  _ \ / _` | '__|
*|  __/| | | (_) | (_| | | |  __/\__ \__ \ |__| (_| \__ \ |_| | | | | (_| | |_) | (_| | |   
*|_|   |_|  \___/ \__, |_|  \___||___/___/\____\__,_|___/\__|_|_| |_|\__, |____/ \__,_|_|   
*                 |___/                                              |___/                  
************************************************************************************* 
*    ProgressCastingBar la system su dung model ProgressCastingBar co animation la 1 giay!
*     muc dich system nay su dung hien thi. casting bar tu` model!
*     va` co the thay doi mau sac de dang` bang cach config tai. ColorType
*     
*
*    system nay yeu cau su dung RepeatData cua Daric Nguyen va co the tuong lai se ra phien ban xai TimerUltis!
*    va duoc tuy chon AutoFly ban co the hok can su dung autofly system nay van se hoat dong binh thuong`
*
*    function Castingbar takes unit caster, string order, real timed, integer color,real height, string ex, string attach returns 

nothing
*    caster la vi tri casting bar va` cung la OwningPlayer
*    timed la thoi gian cua casting channel spell
*    color la mau` sac' minh set trong day! o day mau do? la so 1
*
*    order la order id cua spell cai nay su dung de check spell co' bi disable boi (stun,move,die v.v.) hok!
*    order id hok dung' voi' order id cua spell thi` casting bar se bi destroy ngay,
*     vi du su dung Channel spell order id la "channel"
*
*    height la chieu cao cua casting bar su dung tang Z khi gap hero Z qua' cao
*    ex la tao effect tai vi tri' Attach no se bi destroy sau khi ket castingbar!
*
*    Credit:
*    cam on toi raivor da cung cap model ProgressCastingBar.
*
***************************************************************************************/
    globals
        // external ObjectMerger  w3u hpea pbar unam "Progress Casting Bar ver2" utyp "" usid 0 usin 0 ufoo 0 ucol 0 umvt 

"fly" umvs 100 umvh 500 umvf 0 ushu "" umdl "war3mapImported\ProgressCastingBar.mdx" umxp 0. umxr 0. uico 

"ReplaceableTextures\CommandButtons\BTNRune.blp" uabi "Aloc,Avul" uaen 0 
        private constant integer RAW_ID_DUMMY_BAR = 0x70626172
        private integer red
        private integer green
        private integer blue
    endglobals
        
    private struct repeat extends RepeatData
        unit caster
        unit dummy
        effect ex
        string order
            
        method onLoop takes nothing returns nothing
            if (GetUnitCurrentOrder(this.caster)!= OrderId(this.order)) then
                call this.stop()
            endif
        endmethod
            
        method onEnd takes nothing returns nothing
            call DestroyEffect(this.ex)
            call SetUnitTimeScale(this.dummy, 1.00)
            call UnitApplyTimedLife(this.dummy,0x42544c46, 0.01)
            set this.ex = null
            set this.caster = null
            set this.dummy = null
        endmethod
    endstruct
        
    private function ColorType takes integer i returns nothing
        if i == 1 then//red
            set red = 255
            set green = 0
            set blue = 0
        elseif i == 2 then//yellow
            set red = 255
            set green = 255
            set blue = 0
        elseif i == 3 then//green
            set red = 0
            set green = 255
            set blue = 0
        elseif i == 4 then//blue
            set red = 0
            set green = 200
            set blue = 255
        elseif i == 4 then//gray
            set red = 128
            set green = 128
            set blue = 128
        elseif i == 5 then//orange
            set red = 255
            set green = 204
            set blue = 0
        elseif i == 6 then//purple
            set red = 128
            set green = 0
            set blue = 128
        else
            set red = 255
            set green = 255
            set blue = 255
            debug call BJDebugMsg(SCOPE_PREFIX + "Error: No color!")
        endif
    endfunction

    function Castingbar takes unit caster, string order, real timed, integer color, real height, string ex, string attach returns 

nothing
        local repeat this = repeat.create(R32_Period, timed)
        set this.caster = caster
        set this.order = order
        set this.ex = AddSpecialEffectTarget(ex, caster, attach)
        set this.dummy = CreateUnit(GetOwningPlayer(caster), RAW_ID_DUMMY_BAR, GetUnitX(caster), GetUnitY

(caster), 270.)
        call ColorType(color)
        call SetUnitVertexColor(this.dummy, red, green, blue, 255)
        call SetUnitTimeScale(this.dummy, 1 / timed)
        static if LIBRARY_AutoFly then
            call SetUnitFlyHeight(this.dummy, height, 999999)
        else
            call UnitAddAbility(this.dummy, 'Amrf')
            call SetUnitFlyHeight(this.dummy, height, 999999)
            call UnitRemoveAbility(this.dummy, 'Amrf')
        endif
        debug if this.caster == null then
            debug call this.stop()
            debug call BJDebugMsg(SCOPE_PREFIX + "Error: No Caster!")
        debug endif
    endfunction
endlibrary

Giới thiệu

chắc hẳn các bạn đã từng chơi qua những map Arena Style(action)
chẳng hạn như the fame(của Ice_water) có 1 ống bar chạy xong ống bar kia thì mới cast
được spell
và ống bar đó được gọi là CastingBar! Nhưng map của the fame và 1 số map Arena Style
khác là sử đụng floatingtext làm ống bar là đại đa số!

trong đó có cả map mình cũng thế! và mục đích mình làm system này là giúp "quảng bá" Repeat32 của Daric Nguyen sẵn giúp mọi người làm map ArenaStyle có thể sử dụng model
ProgressCastingBar này của raivor làm một ống casting bar dễ nhìn thích hợp hơn so với floatingtext và cũng hok bị giới hạn 100 của FloatingText nữa

Bạn nào muốn làm map Arena Style hay muốn sử dụng idea CastingBar thì dùng system mình!

Trình hàm

function Castingbar takes unit caster, string order, real timed, integer color,real height, string ex, string attach returns nothing

• caster là vị trí casting bar xuất hiện và cũng là OwningPlayer
• timed là life của castingbar! nếu spell bạn channel 5 giây thì hãy set 5.00
• color là màu sắc mình set cho casting bar ở đây màu đỏ là số 1 màu xanh la số 3 các bạn có thể set tại ColorType để config màu thích hợp
• order là order id của spell cái này sử dụng để check spell có bị disable bởi (stun,move,die, v.v..) hok! nếu order id hok đúng với order id của spell thì casting bar sẽ bị destroy ngay! ví dụ su dung Channel spell thì order id là "channel"
• height là chiều cao của castingbar sử dụng, vì đều này cho phép bạn tăng Z cho vừa cỡ của hero!
• ex là tạo effect tại vị trí Attach nó sẽ bị destroy sau khi kết castingbar!

Chú ý

System này yêu cầu phải có R32 ver 1.10+
Auto Fly là tùy chọn!
bạn có thể import unit ngay trong system bằng cách thêm ! vào //! external ObjectMerger ngay trong system

và gửi lời cảm ơn tới raivor!

Download map demo
Link MF:
SystemProgressCastingBar.w3x

 

thế lập topic Snippet và System làm gì thế thým

 

về sau toic đó giữ lại danh sách system and Snipet thôi và up Snippet ở trong đó

 

đã có ver 1.01 tối ưu code và nâng cấp R32 cải thiện lỗi độ cao của dummy!

 

nh` debug liên tục thì xài var boolean DEBUG_MODE đi nhá

quảng cáo rầm rộ quá nhể

 

bít phần đó. tai nhìn trông xấu nên viết liền mấy cái debug

 

thay vì chọn "integer color" thì sao ko cho ng` ta nhập vào "integer red, integer green, integer blue" luôn nhỉ

 

rối =]]

 

để zậy mới rối, làm vậy chẳng khác gì bắt ng` dùng nhớ "integer color" số mấy <=> màu gì sao
cho nó tự nhập lun red green blue lại có thể mở rộng ra nhìu màu hơn mà