BotL - Coding & Systems

[Malhorne]

Okay Guys Update

 

[T. D. W.]

So which preload do we use :3

 

[Malhorne]

I think we need tests of the second, besides he is more efficient and don't use Table.

 

[Vinz]

What kind of preloads. Explanations plox.

 

[Malhorne]

Preload sound/spells

 

[Malhorne]

WHAT DDS WE'LL USE ?
If we use one

 

[T. D. W.]

I an actually using looking_for_help's DDS, we can differ between physical and magical damage and can change the amount of damage

 

[Vinz]

rulerofiron99's damage engine can perform the same - with even custom evasion and crit.

 

[T. D. W.]

We can do this too with LFH's DDS

 

[Vinz]

It doesn't bug for you?

 

[T. D. W.]

Never did

 

[T. D. W.]

i created my first snippet xDDD

Heal over time:

library HoT
    globals
        private constant real FPS = 0.0100
    endglobals
   
    struct HoT extends array
        private unit target
        private real interval  
        private real during
        private real heal
        private real temp
        private static integer count
        private thistype prev
        private thistype next
        private static timer period
       
        private static method iterate takes nothing returns nothing
            local thistype this = thistype(0)
            loop
                set this = this.next
                exitwhen this == 0
                set this.temp = this.temp + FPS
                if this.temp+FPS >= this.interval then
                    call SetUnitState(this.target, UNIT_STATE_LIFE, GetUnitState(this.target, UNIT_STATE_LIFE)+this.heal)
                    set this.temp = 0
                endif
                set this.during = this.during - FPS
                if this.during <= 0 then
                    call this.destroy()
                endif
            endloop
        endmethod
       
        static method add takes unit targ, real dur, real inter, real amount returns nothing
            local thistype this
           
            if thistype(0).prev == 0 then
                set count = count + 1
                set this = count
            else
                set this = thistype(0).prev
                set thistype(0).prev = thistype(0).prev.prev
            endif
           
            if thistype(0).next == 0 then
                call TimerStart(period, FPS, true, function thistype.iterate)
            else
                set thistype(0).next.prev = this
            endif
           
            set this.next = thistype(0).next
            set thistype(0).next = this
            set this.prev = thistype(0)
           
            set this.target = targ
            set this.interval = inter
            set this.during = dur
            set this.heal = amount
            set this.temp = 0
        endmethod

        private method destroy takes nothing returns nothing
            if this.next != 0 then
                set this.next.prev = this.prev
            endif
           
            set this.prev.next = this.next
            set this.prev = thistype(0).prev
            set thistype(0).prev = this
       
            if thistype(0).next == 0 then
                call PauseTimer(period)
            endif

            set this.target = null
        endmethod
       
        private static method onInit takes nothing returns nothing
            set count = 0
            set period = CreateTimer()
        endmethod
    endstruct
endlibrary

 

[Malhorne]

It is like my DoT but with healing xD

 

[T. D. W.]

you uncovered me

 

[Malhorne]

Ahah xD
Oh btw....
Put the destroy method above the periodic method
It will be better I forgot to do so.

And you SHOULD use Get/SetWidgetLife to heal.

 

[T. D. W.]

Okay, but what does it change?

 

[T. D. W.]

Ah yeah, forgot about that widget thing

 

[Malhorne]

If you put the destroy method after it will do an ExecuteFunc in the periodic function

 

[T. D. W.]

Play

** OMG, how did i did this, lol, okay>>play xDD
And did you notice that wrathion seems to be active when we are not active xD and same in return

 

[Malhorne]

I got 12h time difference with him (or nearly)

What play xD ?

 

[T. D. W.]

I ended making a typo, that was in final the word "play"
Which was originally "okay"
Yh but ... Yh lol

 

[Malhorne]

Ah ok ^^

 

[Vinz]

K, Malhorne, we have 6h difference, but since I'm nocturnal, it's .. IDK.
I wake up late.
Anyways you should make something as dynamic as Kb3D that can heal/deal damage. Right?

 

[T. D. W.]

Possible yeah

 

[Malhorne]

I can do this but later I got some requests to do.

 

[T. D. W.]

I can do this too (at least i'll try)

 

[Malhorne]

If you want and I'll correct it.

 

[T. D. W.]

yeah lol xD

 

[Malhorne]

For this one

library Preload requires Table //By Vex atm
    globals
        //CHANGE THIS LINE TO FIT TO THE MAP WITH YOUR DUMMY_ID
        private constant integer DUMMY_ID = 'hfoo'
    endglobals
    
    private module Module
        static method onInit takes nothing returns nothing
            call init()
        endmethod
    endmodule
    
    private struct slop extends array
        string snd
        static HandleTable tab
        thistype recycleNext
        static integer instanceCount
        static thistype recycle
        static unit dummy

        static method create takes nothing returns thistype
            local thistype this
            if recycle == 0 then
                set instanceCount = instanceCount + 1
                set this = instanceCount
            else
                set this = recycle
                set recycle = recycle.recycleNext
            endif
            return this
        endmethod

        method destroy takes nothing returns nothing
            set recycleNext = recycle
            set recycle = this
        endmethod

        static method init takes nothing returns nothing
            set tab = HandleTable.create()
            set instanceCount = 0
            set recycle = 0
            set dummy = CreateUnit(Player(15), DUMMY_ID, 0,0,0)
            call UnitApplyTimedLife(dummy, 'BTLF', 2)
        endmethod
        implement Module
    endstruct
    
    private function AfterPreload takes nothing returns nothing
        local timer t = GetExpiredTimer()
        local slop s = slop.tab[t]
        local sound sn = CreateSound(s.snd, false, false, false, 12700, 12700, "" )
        call SetSoundVolume(sn, 1)
        call StartSound(sn)
        call KillSoundWhenDone(sn)
        set sn = null
        call slop.tab.flush(t)
        call DestroyTimer(t)
        set t = null
        call s.destroy()
    endfunction
    
    public function PreloadSound takes string snd returns nothing
        local timer t = CreateTimer()
        local slop s = slop.create()
        set s.snd = snd
        set slop.tab[t] = s
        call TimerStart( t, 0.01, false, function AfterPreload )
        set t = null
    endfunction
    
    public function PreloadSpell takes integer id returns nothing
        call UnitAddAbility(slop.dummy, id)
    endfunction
   
//The keyword public will be the difference between the BJ func and mine
    public function PlaySound takes string s, real x, real y returns nothing
        local sound snd = CreateSound(s,false,true,true,12700,12700,"")
        call SetSoundVolume(snd,127)
        call SetSoundPitch(snd,.88)
        call SetSoundPosition(snd,x,y,50.)
        call StartSound(snd)
        call KillSoundWhenDone(snd)
        set snd=null
    endfunction
endlibrary

Use this :
call Preload_PreloadSound(string path)
call Preload_PreloadSpell(integer id)
call Preload_PlaySound(string path, real x, real y)

 

[chobibo]

Is dat 3d sound? Kewl!

 

[T. D. W.]

Why not make it like that:

call Preload_Sound(string path) 
call Preload_Spell(integer id) 
call Preload_PlaySound(string path, real x, real y)

 

[Malhorne]

It is like this atm....
Only 2D sorry xD

 

[T. D. W.]

Just a suggestion because Preload_Preaload is a little nonsence

 

[Malhorne]

Ah okay xD
I didn't catch the thing ...

 

[chobibo]

Yeah haha xD, Jad's right again.

 

[Malhorne]

My naming always fit to convention but aren't always friendly user ^^

 

[chobibo]

Friendly user means someone who befriends people for his own selfish benefit, I hope you didn't mean that mah mastah Malhorne, I sure do. I'm joking btw.

 

[Vinz]

What.

 

[Malhorne]

I love this old man xD

 

[T. D. W.]

1. Stop Time snippet: used for this ability: Dramatically Stops Time all over the game, freezing heroes, timer, day time while keeping the Time Walker unharmed the snippet should do the purposed ability
   
2. A snippet (more of a template) of a looping trigger in vJASS, Linked List, just make a random example that shows a debug msg each 1 s, i'll need it for other things (PS: make it like: call LoopTest_Debug(string Msg, real FPS)

ok i was excpecting more, but the loop snippet pretty much sums up all of them (instead of letting you make many stuff that are all based on the same thing)

 

[chobibo]

Yo mal, you can use CTL for number 2, I guess. Ew.

 

[Malhorne]

Nope I won't use CTL XD
I don't like using libraries xD
Don't worry chobibo I'll use only timer for everything as usual

Anyway the second is only a debug loop ?
For the first I might do this API :
call Time.stop(unit u, real time)
Where the unit is the only one which is not harmed and the time is the duration.

 

[T. D. W.]

For the first, that will be perfect
For the second, i need it as template, for like making 5 explosions each 0.3 s, i need a template on a loop, with some stuff attached like the FPS or the debug string

 

[Malhorne]

What do you mean ?

library LLAlloc /*
************************************************************************************
*
*   module LL_Alloc
*
*       Description
*       -------------------------
*
*           This is an alternative allocation that allows you to use LinkedList
*           in your struct. Linked List for allocation, destruction, iteration.
*
*       Fields
*       -------------------------
*
*           private thistype next
*           private thistype prev
*           
*           private static integer count
*
*           debug private boolean check
*
*       Methods
*       -------------------------
*
*           static method allocate takes nothing returns thistype
*           method deallocate takes nothing returns nothing
*
*           method chain takes nothing returns nothing
*               ~Chain the instance in order to make the iteration iterate through it
*
*           method unchain takes nothing returns nothing
*               ~Unchain the instance in order to make the iteration not iterate anymore through it
*           
*           method operator first takes nothing returns thistype
*               ~Return the first one in the list to iterate
*
*           Example of usage
*           ~~~~~~~~~~~~~~~~~~
*
*            private struct Test extends array
*                Your
*                Parameters
*               
*               static timer period = CreateTimer()
*               implement LL_Alloc
*        
*                static method periodic takes nothing returns nothing
*                   local thistype this = first
*                   loop
*                       exitwhen this == 0
*                
*                       Do
*                       Your
*                       Stuff
*                       
*                       if you have to deallocate then
*                           Do
*                           Deallocate
*                           Stuff
*                           
*                           call this.unchain
*                           call this.deallocate (if you don't need the struct anymore)
*                       endif
*                       set this = this.next
*                   endloop
*               endmethod
*
*               static method create takes nothing returns thistype
*                   local thistype this = thistype.allocate()
*            
*                   Perform
*                   Create
*                    Stuff
*            
*                    return this
*               endmethod
*
*               method start takes nothing returns nothing
*                   if this.empty then
*                       call TimerStart(period, 0.0312500, true, function thistype.periodic)
*                   endif
*                   call this.chain
*               endmethod
*           endstruct
************************************************************************/
    //! textmacro LL_Alloc
        private thistype prev
        private thistype next
        private static integer count = 0
        debug private boolean check
        
        private method deallocate takes nothing returns nothing
            set this.prev = thistype(0).prev
            set thistype(0).prev = this
        endmethod
        
        private static method allocate takes nothing returns thistype
            local thistype this
            if thistype(0).prev == 0 then
                set count = count + 1
                debug if count > 8190 then
                    debug call BJDebugMsg("Linked List Module -> You're instanciating too much structs !!!")
                    debug return 0
                debug endif
                set this = count
            else
                set this = thistype(0).prev
                set thistype(0).prev = thistype(0).prev.prev
            endif
            debug set this.check = false
            return this
        endmethod
        
        private method chain takes nothing returns nothing
            debug if this.check then
                debug call BJDebugMsg("You're trying to chain an already chained unit")
                debug return
            debug endif
            debug set this.check = true
            if thistype(0).next != 0 then
                set thistype(0).next.prev = this
            endif
            set this.next = thistype(0).next
            set thistype(0).next = this
            set this.prev = thistype(0)
        endmethod
        
        private method unchain takes nothing returns nothing
            debug if not this.check then
                debug call BJDebugMsg("You're tring to unchain a non-chained unit")
                debug return
            debug endif
            debug set this.check = false
            if this.next != 0 then
                set this.next.prev = this.prev
            endif
            set this.prev.next = this.next
        endmethod
        
        private static method first takes nothing returns thistype
            return thistype(0).next
        endmethod
        
        private static method empty takes nothing returns boolean
            return thistype(0).next == 0
        endmethod
        //! endtextmacro
endlibrary

It explains well how to loop if you want to use linked list easily.

@Chobibo : it is mine

 

[chobibo]

Yeah, I saw that on your vm conversation with Jad haha xD. I was stalking... Now I don't need to Ew anymore lolololol

 

[Malhorne]

Yep you're right
You always stalk :3
A good student on the stalking way

 

[T. D. W.]

I see no loop man :/
Or... Dunno, i can't see the loop

 

[chobibo]

Yeah, I learned from the best, lol.

@on-topic: I think Jad wants you to make an API (the loop thing), like the one he mentioned earlier.

 

[T. D. W.]

Yes chobi is right

 

[Malhorne]

*                static method periodic takes nothing returns nothing
*                   local thistype this = first
*                   loop
*                       exitwhen this == 0
*                
*                       Do
*                       Your
*                       Stuff
*                
*                       set this = this.next
*                   endloop
*               endmethod

If it is not this I didn't understand what do you want xD