BotL - Coding & Systems

[T. D. W.]

okay, i'll try it now

 

[Malhorne]

(Hopin' it works)

 

[T. D. W.]

nop :/
i'll test more, but with the first test, it makes the unit immediatly transparent, meaning he doesn't fade

 

[chobibo]

Oh shit, I posted on the wrong thread... Is the DoT fixed?

 

[Malhorne]

You wanted it to fade oO ?

 

[T. D. W.]

Oo yes LOLOLOLOLOL

 

[Malhorne]

Ah sorry ....
DoT is fixed and stats not I don't know why :/
I'm doing Batch because I need to know it >_<

 

[chobibo]

@Malhorn: Could you provide a link please? thanks.

 

[Malhorne]

What link do you want ?

 

[T. D. W.]

Mat, le system de transparence c'est pour quand?

 

[Malhorne]

Aucune idée >_<
I have no fkin idea sorry ....
I still have some work to do -> Things to learn -> Then see if Maker will finally approve my Fear and girlzzzzzz

 

[chobibo]

The stat thing? I dunno haha XD

 

[T. D. W.]

Mmm i have an idea, i'll applicate it in a moment, it consists on Me fixing the systems, but i need to understand some stuff first..

 

[Malhorne]

Ah lol xD
It needs infact to change thins in the add method i think ....
I'll try somethiing.

 

[chobibo]

What was the bug anyway?

 

[Malhorne]

For transparency it needs fade I did it without fade xD
Stats dunno...

 

[chobibo]

Isn't fading setting the vertex coloring to alpha 0?

 

[Malhorne]

I did that xD

library Transparency requires Table
    globals
        private constant real FPS = 0.100
    endglobals
    
    struct Transparency extends array
        private unit target
        private real temp
        private integer trans
        private thistype next
        private thistype prev
        private static integer count
        private static timer period
        private static HandleTable tab
        
        static method GetUnitAlpha takes unit u returns integer
            if tab.exists(u) then
                return tab[u]
            else
                return 255
            endif
        endmethod
        
        private static method cond takes nothing returns boolean
            local unit u = GetTriggerUnit()
            if tab.exists(u) then
                call tab.flush(u)
            endif
            set u = null
            return false
        endmethod
        
        private static method periodic takes nothing returns nothing
            local thistype this = thistype(0).next
            loop
                exitwhen this == 0
                set this.temp = this.temp - FPS
                if this.temp <= 0 then
                    call SetUnitVertexColor(this.target, 255, 255, 255, GetUnitAlpha(this.target) + this.trans)
                    call this.destroy()
                endif
                set this = this.next
            endloop
        endmethod
                    
        static method add takes unit targ, real dur, integer transp returns nothing
            local thistype this
            local integer i = GetUnitAlpha(targ)
            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.periodic)
            else
                set thistype(0).next.prev = this
            endif
            set this.next = thistype(0).next
            set thistype(0).next = this
            set this.prev = thistype(0).prev
            set this.target = targ
            set this.temp = dur
            set this.trans = transp
            if transp > i then
                debug call BJDebugMsg("You're giving a bad number !")
                return
            else
                call SetUnitVertexColor(targ, 255, 255, 255, i-transp)
                set tab[targ] = i-transp
            endif
        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
            local trigger t = CreateTrigger()
            call TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_UNIT_DEATH)
            call TriggerAddCondition(t, Condition(function thistype.cond))
            set tab = HandleTable.create()
            set count = 0
            set period = CreateTimer()
            set t = null
        endmethod
    endstruct
endlibrary

It is the current system no fixes made

 

[chobibo]

Goodness! why aren't you using TimerUtils for this man? Unless you're going to alpha out hundreds of units?

TimerUtils + hashtable or a unit indexer will suffice for this.

 

[Malhorne]

I don't know xD
I never really used TimerUtils and I like to be a mad man

 

[chobibo]

Oh, is that so, please proceed

 

[Malhorne]

The real problem is the fading and I don't have that much time at the moment :/
If you prefer using a TimerUtils way to fix it no problem dude I'll learn how to use it ^^

 

[chobibo]

I can't haha, I'm busy with RL atm, and I know you'll fix the bugs haha.

 

[Malhorne]

Ahah thanks
Until wenesday include i'm busy

 

[T. D. W.]

i am trying to fix the systems, but i have some questions:

1. what do the thistype next and prev do?
2. what is the difference between a private global and a private static global Oo

 

[Malhorne]

Static global doesn't exist.
Only static member of struct exists.
Prev and next are linked lists xD

 

[T. D. W.]

Only static member of struct exists.

ah yes XD my bad, so what is the difference anyway
between those 2:

private static timer period
private timer period

?

 

[chobibo]

private timer extends array, private static timer is a timer instance.

 

[T. D. W.]

oh cool

 

[Malhorne]

Consider that every struct instance got every non static variables and static variable work as globals

 

[T. D. W.]

god dammit, i think i know now the bug of timedstat... report in minutes

 

[T. D. W.]

        private static method periodic takes nothing returns nothing
            local thistype this = thistype(0)
            call BJDebugMsg("LOL")
            loop
                set this = this.next
                exitwhen this == 0
                set this.temp = this.temp -FPS
                call BJDebugMsg(R2S(this.temp))
                if this.temp-FPS <= 0 then
                    if this.type==1 then
                        call SetHeroStr(this.targ, GetHeroStr(this.targ, false)-this.amount, false)
                    elseif this.type==2 then
                        call SetHeroAgi(this.targ, GetHeroAgi(this.targ, false)-this.amount, false)
                    elseif this.type==3 then
                        call SetHeroInt(this.targ, GetHeroInt(this.targ, false)-this.amount, false)
                    debug else
                        debug call BJDebugMsg("You entered the wrong number for the stats thingy")
                    endif
                    call this.destroy()
                endif
            endloop
        endmethod

First debug shows up
second DOESN'T!!!!!

The loop doesn't start

 

[Malhorne]

OK I'll see my linked list thingy

 

[Malhorne]

Try this >_<

library TimedStats

    globals
        private constant real FPS = 0.100
    endglobals
    
    //1 : Strength
    //2 : Agility
    //3 : Intelligence
    struct TimedStats extends array
        private unit targ
        private real temp
        private integer amount
        private integer type
        private thistype prev
        private thistype next
        private static timer period
        private static integer count
        
        private static method periodic takes nothing returns nothing
            local thistype this = thistype(0).next
            loop
                exitwhen this == 0 
                set this.temp = this.temp - FPS
                if this.temp <= 0 then
                    if this.type==1 then
                        call SetHeroStr(this.targ, GetHeroStr(this.targ, false)-this.amount, false)
                    elseif this.type==2 then
                        call SetHeroAgi(this.targ, GetHeroAgi(this.targ, false)-this.amount, false)
                    elseif this.type==3 then
                        call SetHeroInt(this.targ, GetHeroInt(this.targ, false)-this.amount, false)
                    debug else
                        debug call BJDebugMsg("You entered the wrong number for the stats thingy")
                    endif
                    call this.destroy()
                endif
                set this = this.next
            endloop
        endmethod
        
        static method AddTimedStatBonus takes unit targ, integer amount, integer stats, real time 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.periodic)
            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.targ = targ
            set this.amount = amount
            set this.type = stats
            set this.temp = time
            if stats==1 then
                call SetHeroStr(targ, GetHeroStr(targ, false)+amount, false)
            elseif stats==2 then
                call SetHeroAgi(targ, GetHeroAgi(targ, false)+amount, false)
            elseif stats==3 then
                call SetHeroInt(targ, GetHeroInt(targ, false)+amount, false)
            debug else
                debug call BJDebugMsg("You're giving wrong number for the stats thingy")
            endif
        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.targ = null
        endmethod
        
        private static method onInit takes nothing returns nothing
            set count = 0
            set period = CreateTimer()
        endmethod
    endstruct
endlibrary

 

[T. D. W.]

Works!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[T. D. W.]

final thing: FADE in the transparency xD

 

[Malhorne]

Ya sorry it was the first times I use this linked list ^^'

Fade in the transparency needs no change in the coding style it needs change about the trick ^^
How to simulate a fade xD ?

 

[chobibo]

It was the allocator right? The loop worked for me when I tested it.

            if thistype(0).prev == 0 then
                set this = thistype(0).prev
                set thistype(0).prev = thistype(0).prev.prev
            else
                set count = count + 1
                set this = count
            endif

You got it reversed haha xD

 

[Malhorne]

Yes xD !

 

[T. D. W.]

easy: (following is an example)
time = 2 s
total transparency difference = 100 (from 0% transparent to 100% transparent)


transparency decreaser = total transparency difference/ time * FPS

On every FPS increase the transparency of the unit by *transparency decreaser*
and stop when the timer reaches max value of time

Done

 

[Malhorne]

Yeah I see what do you mean.
I have to add another element...
I'll do this tomorrow in class (C class is so easy) or this evening.

 

[chobibo]

transparency decreaser = total transparency difference/ time * FPS

delta=255/(time/FPS)

255 is the constant value for 100% opacity.

Let time be 2 seconds and FPS be 1/10 of a second:

delta=255/(2/0.10)
delta=255/20
delta=12.75

 

[Malhorne]

Jad you want this alway to be fully transparent ?
If yes it will be faster to do

 

[chobibo]

Increase the periodic frequency, the current one will look weird.

 

[T. D. W.]

yes, from 0% transparency to 100 transparency malhorne

 

[Malhorne]

Yep I'll took 1/16 s

 

[T. D. W.]

can't it be done now :? it's so easy...(damn if only i can do it)... and you don't seem busy XD

 

[Malhorne]

library Transparency requires Table
    globals
        private constant real FPS = 0.062500
    endglobals
    
    struct Transparency extends array
        private unit target
        private real temp
        private integer delta
        private thistype next
        private thistype prev
        private static integer count
        private static timer period
        private static HandleTable tab
        
        static method GetUnitAlpha takes unit u returns integer
            if tab.exists(u) then
                return tab[u]
            else
                return 255
            endif
        endmethod
        
        private static method cond takes nothing returns boolean
            local unit u = GetTriggerUnit()
            if tab.exists(u) then
                call tab.flush(u)
            endif
            set u = null
            return false
        endmethod
        
        private static method periodic takes nothing returns nothing
            local thistype this = thistype(0).next
            local integer i
            loop
                exitwhen this == 0
                set this.temp = this.temp - FPS
                if this.temp <= 0 then
                    call SetUnitVertexColor(this.target, 255, 255, 255, 255)
                    call this.destroy()
                else
                    set i = GetUnitAlpha(this.target)-this.delta
                    call SetUnitVertexColor(this.target, 255, 255, 255, i)
                    set tab[this.target] = i
                endif
                set this = this.next
            endloop
        endmethod
                    
        static method add takes unit targ, real dur returns nothing
            local thistype this
            local integer i
            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.periodic)
            else
                set thistype(0).next.prev = this
            endif
            set this.next = thistype(0).next
            set thistype(0).next = this
            set this.prev = thistype(0).prev
            set this.target = targ
            set this.temp = dur - FPS
            set this.delta = R2I(255/dur/FPS)+1
            set i = GetUnitAlpha(targ)-this.delta
            call SetUnitVertexColor(targ, 255, 255, 255, i)
            set tab[targ] = i
        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
            local trigger t = CreateTrigger()
            call TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_UNIT_DEATH)
            call TriggerAddCondition(t, Condition(function thistype.cond))
            set tab = HandleTable.create()
            set count = 0
            set period = CreateTimer()
            set t = null
        endmethod
    endstruct
endlibrary

call Transparency.add(target, duration)

 

[T. D. W.]

lol thanks, i'll try it xD

 

[Malhorne]

No problem.
Just note that I am always doing many things at a time