[Contest] Official Spell Contest #1

Darkchaoself · Nov 3, 2007

Question, Will having a large amount of units, around 12, using them as models for spells, take off points for importability?

darkRae · Nov 3, 2007

>Why only Jass coded spell can post their code? GUI can't?

What do you mean? Don't you see mine?

Well, tomorrow is the deadline, yet there is no 2nd Judge.
I wonder what emjlr3 will do about this

Rheias · Nov 3, 2007

Can't give you official answer, but I guess it might remove a few points of coding. Why do you need so many units anyway?

Darkchaoself · Nov 3, 2007

Maybe if Daxtreme takes the time he can Judge?

Rheias said:
Can't give you official answer, but I guess it might remove a few points of coding. Why do you need so many units anyway?

Special effects that move

AceHart · Nov 3, 2007

I'm sure there was some mention of models in post #1 in this thread... around the part called "Rules".

Darkchaoself · Nov 3, 2007

No, they're regular models, not imported

Rheias · Nov 3, 2007

< I'm sure there was some mention of models in post #1 in this thread...

I believe he wasn't talking about custom models.

Unless you were refering to something else I missed?

> Special effects that move

Keep destroying and recreating special effects, or attach them to dummy with a very small model file?

Uberplayer · Nov 3, 2007

Is the ded-lain today's or tomorrow's midnight?

*hoping for tomorrow, as I have not much time to do it today anymore. - I has some business nowadays*

>Keep destroying and recreating special effects, or attach them to dummy with a very small model file?
Or instead of small model, use invisible dummy.mdx (still special effects can be attached) made by Cookie.. or infrane.. don't remember.. but it can be found from castersystem.

AceHart · Nov 3, 2007

> Unless you were refering to something else I missed?

Yep, the rules.
They mention models when it comes to imports... that's it.

Hence, what's the problem?

Darkchaoself · Nov 3, 2007

Just asking if like 9-12 units will lose points
Since i use them for special effects

>Keep destroying and recreating special effects, or attach them to dummy with a very small model file?

Cant now, I'd have to re-code most of it and dont have the time

0zaru · Nov 3, 2007

Mana Sphere

Code:

Unleash a sphere in front of the caster. The sphere will start growing as it drains mana of nearly units. Whenever you stop the channeling the sphere will explode dealing damage to nearby units by an % of the mana drained. Mana Sphere overloads with a determined mana. 600 AoE For all levels, needs at least 100 mana to maintain the sphere

The spell basically abuses of the ability immolation and Aerial Shackles

Darkchaoself · Nov 3, 2007

I know it leaks. But im tired, and i dont feel like creating and finding the variables/leaks.
Ok, heres first submission, might fix up a bit then re-enter it.

Essence Spheres

ScreenShots

The Spheres of Darkness!

They're getting closer to the caster...

The two Spheres collided, exploding into tiny skulls!

Thats is only 1 of the 5 (6?) Elements that are created.

Am having trouble with the Tooltip and fixing up last of point leaks, will post by 11:30 (about 45 min)

~GaLs~ · Nov 4, 2007

You are kidding right? Rheias.

Edit - Add in version 2.

JASS:

//!&lt;--Start of my Spell--&gt;!//
scope BunJeeShotStructed


//---------------------------------------------------------//
//                        BunJee Shot                      //
//                         by ~GaLs~                       //
//---------------------------------------------------------//
//**Especially made for Official Spell Contest #1**//
//
//[Requires NewGen WorldEditor to get this spell work]
//[Download it from <a href="http://www.wc3campaigns.net]" target="_blank" class="link link--external" rel="nofollow ugc noopener">www.wc3campaigns.net]</a>
//
//[3 Simple Step To Implement This Spell]
//
//Implementation Instruction:
//
//1. Things need to be copied from Object Editor to your map:
//      &lt;&lt; Unit &gt;&gt;
//  a. A dummy unit named Stick DummyUse.
//
//      &lt;&lt; Ability &gt;&gt;
//  b. The BunJee Shot ability.
//
//2. Copy this whole trigger to your map.
//
//3. Replace those rawcode in the configuration below. (Also modify those speed, effect at there.)
//---------------------------------------------------------//
//                Thanks For Using My Spell                //
//                    Please Give Credit                   //
//---------------------------------------------------------//


globals
//===================================================
//==                 Configuration                 ==
//===================================================
//-------------------------------------------------------------------------------------
    //&lt;--RawCode--&gt;//
    
    private constant integer BJS_Id = &#039;A000&#039;        //Rawcode of the main ability.
    private constant integer BJS_TorchId = &#039;h001&#039;   //Rawcode of the Torch Unit.
    
    //&lt;--End--&gt;//
//-------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------
    //&lt;--Charging Speed--&gt;//
    
    private constant real    BJS_ChargingSpeed = .07
    //This is the charge speed of the charging period. (Channeling Period)
    //The smaller the number, the faster the unit charge.
    
    //&lt;--End--&gt;//
//-------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------
    //&lt;--Rush Speed--&gt;//
    
    private constant real    BJS_RushSpeed = 100.
    //This is the rush speed of the rushing period. (After Channel)
    //The larger the number, the faster it rush. BEWARE: Do not set it larger than 200 or less than 50, LAG warning.
    //But the different between 50 and 200 is hard to different shape by naked eye.
    
    //&lt;--End--&gt;//
//-------------------------------------------------------------------------------------
    //&lt;--Charge Effect--&gt;//
    
    private constant string  BJS_ChargeEffect = &quot;Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl&quot;
    //This is the special effect that will be view when charging.
    
    //&lt;--End--&gt;//
//-------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------
    //&lt;--Lightning Effect--&gt;//
    
    //These are the lightning effect which is act as an elastic string. The level of it is sort by BJS_Lightning&lt;Level&gt;.
    private constant string  BJS_Lightning1 = &quot;MFPB&quot; //Mana Flare
    private constant string  BJS_Lightning2 = &quot;MBUR&quot; //Mana Burn
    private constant string  BJS_Lightning3 = &quot;HWSB&quot; //Healing Wave (Secondary)
    private constant string  BJS_Lightning4 = &quot;SPLK&quot; //Spirit Link
    private constant string  BJS_Lightning5 = &quot;AFOD&quot; //Finger Of Death
    
    //&lt;--End--&gt;//
//-------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------    
    //&lt;--Rush Effect--&gt;//

    private constant string  BJS_RushEffect = &quot;Abilities\\Spells\\Items\\WandOfNeutralization\\NeutralizationMissile.mdl&quot;
    //This is the effect that will be display at whole caster&#039;s body when the channeling had finished.
    
    //&lt;--End--&gt;//
//------------------------------------------------------------------------------------- 
//-------------------------------------------------------------------------------------   
    //&lt;--Channel ID--&gt;//
    
    private constant integer ChannelId = 852600
    //Well, I was force to use 852600 because OrderId doesn&#039;t work for unknown reason. =.=
    
    //&lt;--End--&gt;//
//-------------------------------------------------------------------------------------
//===================================================
//==               End Configuration               ==
//===================================================    
    
    
//===================================
//==        Unrelated Items        ==
//===================================
//Comment: These 3 variable are variable that is needed to pass function. Advised to not take any care of them.

    private group DummyDamaged
    private unit  DummyCaster
    private real  DummyDamage
//===================================
//==      Unrelated Items End      ==
//===================================   

endglobals

//========================================================================================
//==                             WARNING! WARNING! WARNING!                             ==
//==                        DO NOT EDIT ANYTHING UNDER THIS LINE!                       ==
//========================================================================================                                                   

//! Comments below is only for emjlr3. (Judging purpose) !//

//===================================
//==       BunjeeShot Struct       ==
//===================================
private struct BunjeeShot
unit caster
unit array Torch [3]
real TarAngle
real ChannelTotal = 5
real Charged
real DamageOn
real RushDist
real CX
real CY
real TX
real TY
timer t
timer RushT
lightning array Elastic [3]
string LastLightningEffect
string array LightningEffect[6]
group Damaged
    
    static method create takes unit cast, real TarX, real TarY returns BunjeeShot
    local BunjeeShot BJS = BunjeeShot.allocate()
        set BJS.caster = cast                   //set caster
        set BJS.TX     = TarX                   //set targeted position&#039;s X
        set BJS.TY     = TarY                   //set targeted position&#039;s Y
        set BJS.CX     = GetUnitX(BJS.caster)   //set the caster&#039;s position to X and Y
        set BJS.CY     = GetUnitY(BJS.caster)
        set BJS.TarAngle = bj_RADTODEG * Atan2(BJS.TY - BJS.CY, BJS.TX - BJS.CX) //This evaluate the angle from caster to the casting point
        set BJS.t = CreateTimer()                      //create timer.
        set BJS.RushT = CreateTimer()                  //create timer. (Which uses CSSafety xD)
        set BJS.ChannelTotal = 5                    //The maximun channel period.
        set BJS.LightningEffect[1] = BJS_Lightning1 //Setting all those lightning string to array.
        set BJS.LightningEffect[2] = BJS_Lightning2
        set BJS.LightningEffect[3] = BJS_Lightning3
        set BJS.LightningEffect[4] = BJS_Lightning4
        set BJS.LightningEffect[5] = BJS_Lightning5
        set BJS.Damaged = CreateGroup()             //This group is to store damaged unit during the damaging period.
    return BJS
    endmethod
    
    method offsetX takes real X, real distance, real angle returns real
        return X + distance * Cos(angle * bj_DEGTORAD)
    endmethod
    
    method offsetY takes real Y, real distance, real angle returns real
        return Y + distance * Sin(angle * bj_DEGTORAD)
    endmethod
    
    method CreLightning takes nothing returns nothing //This is a short system for creating the lightning effect as elastic. <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite7" alt=":p" title="Stick Out Tongue    :p" loading="lazy" data-shortname=":p" />
    local integer start =0
    local integer end = 5           //Thanks to the array I just set at the create method. I would use loop to finish this task.
        loop
        exitwhen start&gt;end
            if 5 - .ChannelTotal &gt;start and 5-.ChannelTotal &lt;start+1 then
                call DestroyLightning(.Elastic[1])
                call DestroyLightning(.Elastic[2])
                set .Elastic[1] = AddLightningEx(.LightningEffect[start+1],true,GetUnitX(.Torch[1]),GetUnitY(.Torch[1]),0,GetUnitX(.caster),GetUnitY(.caster),GetUnitFlyHeight(.caster))
                set .Elastic[2] = AddLightningEx(.LightningEffect[start+1],true,GetUnitX(.Torch[2]),GetUnitY(.Torch[2]),0,GetUnitX(.caster),GetUnitY(.caster),GetUnitFlyHeight(.caster))
            endif
        set start = start+1
        endloop
    endmethod
    
    method EndLightning takes nothing returns nothing //This is what the lightning looks like when the channeling is done.
        call DestroyLightning(.Elastic[1])
        call DestroyLightning(.Elastic[2])
        set .Elastic[1] = AddLightning(.LightningEffect[5],true,GetUnitX(.Torch[1]),GetUnitY(.Torch[1]),GetUnitX(.Torch[2]),GetUnitY(.Torch[2]))
        set .Elastic[2] = AddLightning(.LightningEffect[5],true,GetUnitX(.Torch[2]),GetUnitY(.Torch[2]),GetUnitX(.Torch[1]),GetUnitY(.Torch[1]))
    endmethod
    
    method onDestroy takes nothing returns nothing //Cleans all leaks
    set .caster = null
    set .Torch[1] = null
    set .Torch[2] = null
    call DestroyTimer(.t)
    call DestroyTimer(.RushT)
    set .t = null
    set .RushT = null
    call DestroyLightning(.Elastic[1])
    call DestroyLightning(.Elastic[2])
    set .Elastic[1] = null
    set .Elastic[2] = null
    call DestroyGroup(.Damaged)
    set .Damaged = null
    endmethod
    
endstruct
//===================================
//==     BunjeeShot Struct End     ==
//===================================


//=======================================================================
//==                          Timer Call Back                          ==    
//=======================================================================                
    private function BJS_DamagedCond takes nothing returns boolean
        return IsUnitType(GetFilterUnit(),UNIT_TYPE_STRUCTURE) == false and GetUnitState(GetFilterUnit(),UNIT_STATE_LIFE)&gt;0 and IsUnitInGroup(GetFilterUnit(),DummyDamaged) == false and IsUnitAlly(GetFilterUnit(),GetOwningPlayer(DummyCaster))==false
        //The condition of damaging a unit.
    endfunction  
    
    private function BJS_DamagedAct takes nothing returns nothing
        call UnitDamageTarget(DummyCaster,GetEnumUnit(),DummyDamage,true,false,ATTACK_TYPE_MAGIC,DAMAGE_TYPE_NORMAL,null)
        call GroupAddUnit(DummyDamaged,GetEnumUnit())
        //To prevent double or even triple damage deal to a unit.
    endfunction

    private function BJS_RushTEnd takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local BunjeeShot BJS = GetTimerStructB(t)
    local group Damaged = CreateGroup()
    set DummyDamaged = BJS.Damaged
    set DummyCaster  = BJS.caster       //This 3 globals are to pass value through functions.
    set DummyDamage = BJS.DamageOn      //Don&#039;t worry, leaks are all cleaned when the struct is destroyed.
    
        if BJS.RushDist &gt; 0 then
        
            set BJS.CX = BJS.offsetX(BJS.CX,BJS_RushSpeed,BJS.TarAngle)
            set BJS.CY = BJS.offsetY(BJS.CY,BJS_RushSpeed,BJS.TarAngle)
            
            call DestroyEffect(AddSpecialEffectTarget(BJS_RushEffect, BJS.caster,&quot;chest&quot;))
            call DestroyEffect(AddSpecialEffectTarget(BJS_RushEffect, BJS.caster,&quot;hand, left&quot;))
            call DestroyEffect(AddSpecialEffectTarget(BJS_RushEffect, BJS.caster,&quot;hand, right&quot;))
            call DestroyEffect(AddSpecialEffectTarget(BJS_RushEffect, BJS.caster,&quot;foot, left&quot;))
            call DestroyEffect(AddSpecialEffectTarget(BJS_RushEffect, BJS.caster,&quot;foot, right&quot;))
            
            if IsTerrainPathable(BJS.CX,BJS.CY,PATHING_TYPE_WALKABILITY)==false then
                call SetUnitX(BJS.caster,BJS.CX)
                call SetUnitY(BJS.caster,BJS.CY)
            endif
            
            call GroupEnumUnitsInRange(Damaged, BJS.CX,BJS.CY,200, Condition(function BJS_DamagedCond))
            call ForGroup(Damaged, function BJS_DamagedAct)
            
            set BJS.Damaged = DummyDamaged
            set BJS.RushDist = BJS.RushDist - BJS_RushSpeed
            
        elseif BJS.RushDist &lt; 0 then
        
            call PauseTimer(t)
            call DestroyTimer(t)
            call BJS.destroy()
            
        endif
    set t = null
    call DestroyGroup(Damaged)
    set Damaged = null
    endfunction

private function BJS_TimerEnd takes nothing returns nothing
local timer t = GetExpiredTimer()
local BunjeeShot BJS = GetTimerStructA(t)

    if GetUnitCurrentOrder(BJS.caster) == ChannelId and BJS.ChannelTotal &gt; 0 then
        set BJS.CX = BJS.offsetX(BJS.CX, 5, BJS.TarAngle-180)//New X 
        set BJS.CY = BJS.offsetY(BJS.CY, 5, BJS.TarAngle-180)//New Y
        
        
        if IsTerrainPathable(BJS.CX,BJS.CY,PATHING_TYPE_WALKABILITY)==false then //Avoid unit to crash outside of the map border.
            call DestroyEffect(AddSpecialEffect(BJS_ChargeEffect,BJS.CX,BJS.CY))
            call SetUnitX(BJS.caster,BJS.CX)
            call SetUnitY(BJS.caster,BJS.CY)
        endif
        
        call BJS.CreLightning()
        set BJS.ChannelTotal = BJS.ChannelTotal - .08
        
    elseif GetUnitCurrentOrder(BJS.caster) != ChannelId or BJS.ChannelTotal &lt; 0 then
    
        call UnitApplyTimedLife(BJS.Torch[1],&#039;BTLF&#039;,.1)
        call UnitApplyTimedLife(BJS.Torch[2],&#039;BTLF&#039;,.1)
        set BJS.Charged = 5 - BJS.ChannelTotal
        set BJS.DamageOn = (GetUnitAbilityLevel(BJS.caster,BJS_Id))*(BJS.Charged)*(50) 
        set BJS.RushDist = (GetUnitAbilityLevel(BJS.caster,BJS_Id)) * (100) * (BJS.Charged)
        
        call SetTimerStructB(t,BJS)
        call BJS.EndLightning()
        call TimerStart(t,.01,true,function BJS_RushTEnd)
    endif
set t = null
endfunction
//=======================================================================
//==                        Timer Call Back End                       ==    
//=======================================================================  


//=========================================================
//==                     Main Function                   ==
//=========================================================
private function BJS_Cond takes nothing returns boolean
    return GetSpellAbilityId() == BJS_Id
endfunction

private function BJS_Act takes nothing returns nothing
local location TLoc = GetSpellTargetLoc()
local BunjeeShot BJS = BunjeeShot.create(GetSpellAbilityUnit(),GetLocationX(TLoc),GetLocationY(TLoc))
local integer LoopInt = 1    
local real CreateDummyX
local real CreateDummyY
    
    //&lt;--Creating Torch--&gt;//
    loop
    exitwhen LoopInt&gt;2
    
        if LoopInt == 1 then
        
            set CreateDummyX = BJS.offsetX(BJS.CX,200,BJS.TarAngle+90)
            set CreateDummyY = BJS.offsetY(BJS.CY,200,BJS.TarAngle+90)
            set BJS.Torch[LoopInt] = CreateUnit(GetOwningPlayer(BJS.caster),BJS_TorchId,CreateDummyX,CreateDummyY,BJS.TarAngle)
            
        elseif LoopInt == 2 then
        
            set CreateDummyX = BJS.offsetX(BJS.CX,200,BJS.TarAngle-90)
            set CreateDummyY = BJS.offsetY(BJS.CY,200,BJS.TarAngle-90)
            set BJS.Torch[LoopInt] = CreateUnit(GetOwningPlayer(BJS.caster),BJS_TorchId,CreateDummyX,CreateDummyY,BJS.TarAngle)
            
        endif
        
    set LoopInt = LoopInt + 1
    endloop
    //&lt;--End--&gt;//
    
    
    call SetTimerStructA(BJS.t,BJS)
    call TimerStart(BJS.t,BJS_ChargingSpeed,true,function BJS_TimerEnd)

endfunction
//=========================================================
//==                   End Main Function                 ==
//=========================================================

//===========================================================================
function InitTrig_BunJee_Shot takes nothing returns nothing
local integer start = 0
local integer end = 15
    set gg_trg_BunJee_Shot = CreateTrigger()
    
    loop
    exitwhen start&gt;end
        call TriggerRegisterPlayerUnitEvent(gg_trg_BunJee_Shot,Player(start),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
        set start = start + 1
    endloop
    call TriggerAddCondition(gg_trg_BunJee_Shot, Condition(function BJS_Cond))
    call TriggerAddAction(gg_trg_BunJee_Shot, function BJS_Act)
endfunction

endscope

//!&lt;--End of my Spell--&gt;!//


//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


//Thanks to Cohadar for his brilliant ABC system.

//==============================================================================
//  ABC -- STRUCT ATTACHMENT SYSTEM BY COHADAR -- v5.1
//==============================================================================


//------------------------------------------------------------------------------
//  We will use textmacros to create multiple instances of system
//------------------------------------------------------------------------------
//! textmacro ABC takes X, NAME, TYPE

//------------------------------------------------------------------------------
// Global arrays represent our hash tables.
// System is currently using 3 hash tables per handle type. (A, B, C)
//------------------------------------------------------------------------------
globals
    private $TYPE$    array $TYPE$Key$X$
    private integer  array $TYPE$Value$X$
	private integer  $TYPE$maxCollision$X$ = 0
endglobals

//------------------------------------------------------------------------------
// returns the maximum collision so far
//------------------------------------------------------------------------------
function Get$NAME$Collision$X$ takes nothing returns integer
    return $TYPE$maxCollision$X$
endfunction


//------------------------------------------------------------------------------
// initializes hash arrays to prevent lag when ABC is used for the first time
//------------------------------------------------------------------------------
private function Init$NAME$Hash$X$ takes nothing returns nothing
    set $TYPE$Key$X$[HASH_INDEX_LIMIT]   = null
	set $TYPE$Value$X$[HASH_INDEX_LIMIT] = 0
endfunction

//------------------------------------------------------------------------------
// attaches struct to a handle by using hash table
//------------------------------------------------------------------------------
function Set$NAME$Struct$X$ takes $TYPE$ t, integer s returns nothing
	debug local integer collision
	
	// hash using 32-bit integer overflow
    local integer i = (H2I(t) * HASH_UP) / HASH_DOWN + HASH_BIAS

	if $TYPE$Key$X$<i> == null then
	    set $TYPE$Value$X$<i> = s
		set $TYPE$Key$X$<i> = t
		return
	endif

    debug if $TYPE$Key$X$<i> == t then
        debug call BJDebugMsg(&quot;|cFFFF0000ERROR: Hash[$X$] attachment overwrite on $TYPE$ #&quot; +I2S(H2I(t)))
        debug return
    debug endif        
    
	// if function gets below this line we have a collision
    debug set collision = 1
    loop
		debug if collision &gt;= HASH_COLLISION_LIMIT then
            debug call BJDebugMsg(&quot;|cFFFF0000ERROR: Hash[$X$] overflow&quot;)
            debug return
		debug endif    
        debug set collision = collision + 1
    
        set i = i + 1    
	    exitwhen $TYPE$Key$X$<i> == null

        debug if $TYPE$Key$X$<i> == t then
            debug call BJDebugMsg(&quot;|cFFFF0000ERROR: Hash[$X$] attachment overwrite on $TYPE$ #&quot; +I2S(H2I(t)))
            debug return
        debug endif    
	endloop

	debug if collision &gt; $TYPE$maxCollision$X$ then
	debug 	call BJDebugMsg(&quot;|cFFFF4444Warning: Hash[$X$] maximum collision is now: &quot; + I2S(collision))
	debug 	set $TYPE$maxCollision$X$ = collision
	debug endif
	
    set $TYPE$Value$X$<i> = s
    set $TYPE$Key$X$<i> = t

    return
endfunction

//------------------------------------------------------------------------------
// gets stored struct from a handle 
//------------------------------------------------------------------------------
function Get$NAME$Struct$X$ takes $TYPE$ t returns integer
	debug local integer collision
	
	// hash using 32-bit integer overflow
    local integer i = (H2I(t) * HASH_UP) / HASH_DOWN + HASH_BIAS
	
	if $TYPE$Key$X$<i> == t then
		return $TYPE$Value$X$<i>
	endif
	
	// if function gets below this line we have a collision
    debug set collision = 1
    loop
		debug if collision &gt;= HASH_COLLISION_LIMIT then
		debug   call BJDebugMsg(&quot;|cFFFF0000ERROR: Hash[$X$] : get request on unknown handle&quot;)
		debug   return 0
		debug endif		
        debug set collision = collision + 1      
    
        set i = i + 1
	    exitwhen $TYPE$Key$X$<i> == t
	endloop	
	
    return $TYPE$Value$X$<i>
endfunction


//------------------------------------------------------------------------------
// clears stored struct from a handle, also returns cleared value
//------------------------------------------------------------------------------
function Clear$NAME$Struct$X$ takes $TYPE$ t returns integer
	debug local integer collision
    local integer ik
    local integer ret
	
	// hash using 32-bit integer overflow
    local integer i = (H2I(t) * HASH_UP) / HASH_DOWN + HASH_BIAS
	
    // first find the index on witch key is stored
    debug set collision = 0
    loop
		debug if collision &gt;= HASH_COLLISION_LIMIT then
		debug   call BJDebugMsg(&quot;|cFFFF0000ERROR: Hash[$X$] : clear request on unknown handle&quot;)
		debug   return 0
		debug endif        
        debug set collision = collision + 1       
    
        exitwhen $TYPE$Key$X$<i> == t
        set i = i + 1
    endloop
    
    set ik = i
    set ret = $TYPE$Value$X$[ik]
    
    // then find last used key index in bucket
    loop
        set i = i + 1
        // we use the fact bucket borders (mod 8 indexes) are always null
        exitwhen $TYPE$Key$X$<i> == null  
    endloop
    
    // shift last bucket entry to the place of removed one
    set $TYPE$Key$X$[ik] = $TYPE$Key$X$[i-1]
    set $TYPE$Value$X$[ik] = $TYPE$Value$X$[i-1]
    // clear the previous last bucket entry
    set $TYPE$Key$X$[i-1] = null
    
    return ret
endfunction

//! endtextmacro

//==============================================================================
//  Macro execution -- this is where real functions get created
//==============================================================================
library ABC initializer Init

globals
	public constant integer HASH_SIZE = 8192
	public constant integer HASH_INDEX_LIMIT = 8190
	public constant integer HASH_DOWN = 524288     // 2^19	
	public constant integer HASH_UP   = 2134900736 // 2^22 * 509
	public constant integer HASH_BIAS = 4096       // HASH_SIZE / 2
	public constant integer HASH_COLLISION_LIMIT = 7 // ABC v5.0 had limit 8
	// 509 is the prime closest to 512
endglobals


//------------------------------------------------------------------------------
// conversion function used by the system internally
// you will not need to use it directly
//------------------------------------------------------------------------------
public function H2I takes handle h returns integer
    return h
    return 0
endfunction

//! runtextmacro ABC(&quot;A&quot;,&quot;Timer&quot;,&quot;timer&quot;)
//! runtextmacro ABC(&quot;B&quot;,&quot;Timer&quot;,&quot;timer&quot;)
//! runtextmacro ABC(&quot;C&quot;,&quot;Timer&quot;,&quot;timer&quot;)

//! runtextmacro ABC(&quot;A&quot;,&quot;Trigger&quot;,&quot;trigger&quot;)
//! runtextmacro ABC(&quot;B&quot;,&quot;Trigger&quot;,&quot;trigger&quot;)
//! runtextmacro ABC(&quot;C&quot;,&quot;Trigger&quot;,&quot;trigger&quot;)

//! runtextmacro ABC(&quot;A&quot;,&quot;Dialog&quot;,&quot;dialog&quot;)
//! runtextmacro ABC(&quot;B&quot;,&quot;Dialog&quot;,&quot;dialog&quot;)
//! runtextmacro ABC(&quot;C&quot;,&quot;Dialog&quot;,&quot;dialog&quot;)

private function Init takes nothing returns nothing
	call InitTimerHashA()
	call InitTimerHashB()
	call InitTimerHashC()

	call InitTriggerHashA()
	call InitTriggerHashB()
	call InitTriggerHashC()       
    
	call InitDialogHashA()
	call InitDialogHashB()
	call InitDialogHashC()
endfunction


endlibrary
//==============================================================================
//  END OF ABC STRUCT ATTACHMENT SYSTEM
//==============================================================================</i></i></i></i></i></i></i></i></i></i></i></i></i></i>

Download Here

Rheias · Nov 4, 2007

> You are kidding right? Rheias.

No. How the heck did you manage to do that? Heh, I couldn't mess it up that much even if I tried.

Do you mind pointing out what were your actions that caused this?
It would be helpful.

~GaLs~ · Nov 4, 2007

>>No. How the heck did you manage to do that? Heh, I couldn't mess it up that much even if I tried.
Well, I don't know how do I did that. I didn't edit the code. REALLY!

I just highlight everything around the caster and order 'em to move. (When the caster is channeling the spell)

Uberplayer · Nov 4, 2007

Actually, you need comments only for "configuration menu".

You don't need comments for other things, as long as functions and variables have.. descirptivinve names

.. someone could correct that word, dunno how to write it...

~GaLs~ · Nov 4, 2007

"Descriptive"
Hmm....Well, I wonder....nvm. I fix it right away, and update the v2.

Edit - Add in version 2.1
A really really minor change.

JASS:

//!&lt;--Start of my Spell--&gt;!//
scope BunJeeShotStructed


//---------------------------------------------------------//
//                        BunJee Shot                      //
//                         by ~GaLs~                       //
//---------------------------------------------------------//
//**Especially made for Official Spell Contest #1**//
//
//[Requires NewGen WorldEditor to get this spell work]
//[Download it from <a href="http://www.wc3campaigns.net]" target="_blank" class="link link--external" rel="nofollow ugc noopener">www.wc3campaigns.net]</a>
//
//[3 Simple Step To Implement This Spell]
//
//Implementation Instruction:
//
//1. Things need to be copied from Object Editor to your map:
//      &lt;&lt; Unit &gt;&gt;
//  a. A dummy unit named Stick DummyUse.
//
//      &lt;&lt; Ability &gt;&gt;
//  b. The BunJee Shot ability.
//
//2. Copy this whole trigger to your map.
//
//3. Replace those rawcode in the configuration below. (Also modify those speed, effect at there.)
//---------------------------------------------------------//
//                Thanks For Using My Spell                //
//                    Please Give Credit                   //
//---------------------------------------------------------//


globals
//===================================================
//==                 Configuration                 ==
//===================================================
//-------------------------------------------------------------------------------------
    //&lt;--RawCode--&gt;//
    
    private constant integer BJS_Id = &#039;A000&#039;        //Rawcode of the main ability.
    private constant integer BJS_TorchId = &#039;h001&#039;   //Rawcode of the Torch Unit.
    
    //&lt;--End--&gt;//
//-------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------
    //&lt;--Charging Speed--&gt;//
    
    private constant real    BJS_ChargingSpeed = .07
    //This is the charge speed of the charging period. (Channeling Period)
    //The smaller the number, the faster the unit charge.
    
    //&lt;--End--&gt;//
//-------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------
    //&lt;--Rush Speed--&gt;//
    
    private constant real    BJS_RushSpeed = 100.
    //This is the rush speed of the rushing period. (After Channel)
    //The larger the number, the faster it rush. BEWARE: Do not set it larger than 200 or less than 50, LAG warning.
    //But the different between 50 and 200 is hard to different shape by naked eye.
    
    //&lt;--End--&gt;//
//-------------------------------------------------------------------------------------
    //&lt;--Charge Effect--&gt;//
    
    private constant string  BJS_ChargeEffect = &quot;Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl&quot;
    //This is the special effect that will be view when charging.
    
    //&lt;--End--&gt;//
//-------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------
    //&lt;--Lightning Effect--&gt;//
    
    //These are the lightning effect which is act as an elastic string. The level of it is sort by BJS_Lightning&lt;Level&gt;.
    private constant string  BJS_Lightning1 = &quot;MFPB&quot; //Mana Flare
    private constant string  BJS_Lightning2 = &quot;MBUR&quot; //Mana Burn
    private constant string  BJS_Lightning3 = &quot;HWSB&quot; //Healing Wave (Secondary)
    private constant string  BJS_Lightning4 = &quot;SPLK&quot; //Spirit Link
    private constant string  BJS_Lightning5 = &quot;AFOD&quot; //Finger Of Death
    
    //&lt;--End--&gt;//
//-------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------    
    //&lt;--Rush Effect--&gt;//

    private constant string  BJS_RushEffect = &quot;Abilities\\Spells\\Items\\WandOfNeutralization\\NeutralizationMissile.mdl&quot;
    //This is the effect that will be display at whole caster&#039;s body when the channeling had finished.
    
    //&lt;--End--&gt;//
//------------------------------------------------------------------------------------- 
//-------------------------------------------------------------------------------------   
    //&lt;--Channel ID--&gt;//
    
    private constant integer ChannelId = 852600
    //Well, I was force to use 852600 because OrderId doesn&#039;t work for unknown reason. =.=
    
    //&lt;--End--&gt;//
//-------------------------------------------------------------------------------------
//===================================================
//==               End Configuration               ==
//===================================================    
    
    
//===================================
//==        Unrelated Items        ==
//===================================
//Comment: These 3 variable are variable that is needed to pass function. Advised to not take any care of them.

    private group DummyDamaged
    private unit  DummyCaster
    private real  DummyDamage
//===================================
//==      Unrelated Items End      ==
//===================================   

endglobals

//========================================================================================
//==                             WARNING! WARNING! WARNING!                             ==
//==                        DO NOT EDIT ANYTHING UNDER THIS LINE!                       ==
//========================================================================================                                                   

//! Comments below is only for emjlr3. (Judging purpose) !//

//===================================
//==       BunjeeShot Struct       ==
//===================================
private struct BunjeeShot
unit caster
unit array Torch [3]
real TarAngle
real ChannelTotal = 5
real Charged
real DamageOn
real RushDist
real CX
real CY
real TX
real TY
timer t
timer RushT
lightning array Elastic [3]
string LastLightningEffect
string array LightningEffect[6]
group Damaged
    
    static method create takes unit cast, real TarX, real TarY returns BunjeeShot
    local BunjeeShot BJS = BunjeeShot.allocate()
        set BJS.caster = cast                   
        set BJS.TX     = TarX                   
        set BJS.TY     = TarY                  
        set BJS.CX     = GetUnitX(BJS.caster)  
        set BJS.CY     = GetUnitY(BJS.caster)
        set BJS.TarAngle = bj_RADTODEG * Atan2(BJS.TY - BJS.CY, BJS.TX - BJS.CX)
        set BJS.t = CreateTimer()                      
        set BJS.RushT = CreateTimer()                 
        set BJS.ChannelTotal = 5                   
        set BJS.LightningEffect[1] = BJS_Lightning1 
        set BJS.LightningEffect[2] = BJS_Lightning2
        set BJS.LightningEffect[3] = BJS_Lightning3
        set BJS.LightningEffect[4] = BJS_Lightning4
        set BJS.LightningEffect[5] = BJS_Lightning5
        set BJS.Damaged = CreateGroup()             
    return BJS
    endmethod
    
    method offsetX takes real X, real distance, real angle returns real
        return X + distance * Cos(angle * bj_DEGTORAD)
    endmethod
    
    method offsetY takes real Y, real distance, real angle returns real
        return Y + distance * Sin(angle * bj_DEGTORAD)
    endmethod
    
    method CreLightning takes nothing returns nothing 
    local integer start =0
    local integer end = 5           
        loop
        exitwhen start&gt;end
            if 5 - .ChannelTotal &gt;start and 5-.ChannelTotal &lt;start+1 then
                call DestroyLightning(.Elastic[1])
                call DestroyLightning(.Elastic[2])
                set .Elastic[1] = AddLightningEx(.LightningEffect[start+1],true,GetUnitX(.Torch[1]),GetUnitY(.Torch[1]),0,GetUnitX(.caster),GetUnitY(.caster),GetUnitFlyHeight(.caster))
                set .Elastic[2] = AddLightningEx(.LightningEffect[start+1],true,GetUnitX(.Torch[2]),GetUnitY(.Torch[2]),0,GetUnitX(.caster),GetUnitY(.caster),GetUnitFlyHeight(.caster))
            endif
        set start = start+1
        endloop
    endmethod
    
    method EndLightning takes nothing returns nothing 
        call DestroyLightning(.Elastic[1])
        call DestroyLightning(.Elastic[2])
        set .Elastic[1] = AddLightning(.LightningEffect[5],true,GetUnitX(.Torch[1]),GetUnitY(.Torch[1]),GetUnitX(.Torch[2]),GetUnitY(.Torch[2]))
        set .Elastic[2] = AddLightning(.LightningEffect[5],true,GetUnitX(.Torch[2]),GetUnitY(.Torch[2]),GetUnitX(.Torch[1]),GetUnitY(.Torch[1]))
    endmethod
    
    method onDestroy takes nothing returns nothing 
    set .caster = null
    set .Torch[1] = null
    set .Torch[2] = null
    call DestroyTimer(.t)
    call DestroyTimer(.RushT)
    set .t = null
    set .RushT = null
    call DestroyLightning(.Elastic[1])
    call DestroyLightning(.Elastic[2])
    set .Elastic[1] = null
    set .Elastic[2] = null
    call DestroyGroup(.Damaged)
    set .Damaged = null
    endmethod
    
endstruct
//===================================
//==     BunjeeShot Struct End     ==
//===================================


//=======================================================================
//==                          Timer Call Back                          ==    
//=======================================================================                
    private function BJS_DamagedCond takes nothing returns boolean
        return IsUnitType(GetFilterUnit(),UNIT_TYPE_STRUCTURE) == false and GetUnitState(GetFilterUnit(),UNIT_STATE_LIFE)&gt;0 and IsUnitInGroup(GetFilterUnit(),DummyDamaged) == false and IsUnitAlly(GetFilterUnit(),GetOwningPlayer(DummyCaster))==false
    endfunction  
    
    private function BJS_DamagedAct takes nothing returns nothing
        call UnitDamageTarget(DummyCaster,GetEnumUnit(),DummyDamage,true,false,ATTACK_TYPE_MAGIC,DAMAGE_TYPE_NORMAL,null)
        call GroupAddUnit(DummyDamaged,GetEnumUnit())
    endfunction

    private function BJS_RushTEnd takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local BunjeeShot BJS = GetTimerStructB(t)
    local group Damaged = CreateGroup()
    set DummyDamaged = BJS.Damaged
    set DummyCaster  = BJS.caster       
    set DummyDamage = BJS.DamageOn     
    
        if BJS.RushDist &gt; 0 then
        
            set BJS.CX = BJS.offsetX(BJS.CX,BJS_RushSpeed,BJS.TarAngle)
            set BJS.CY = BJS.offsetY(BJS.CY,BJS_RushSpeed,BJS.TarAngle)
            
            call DestroyEffect(AddSpecialEffectTarget(BJS_RushEffect, BJS.caster,&quot;chest&quot;))
            call DestroyEffect(AddSpecialEffectTarget(BJS_RushEffect, BJS.caster,&quot;hand, left&quot;))
            call DestroyEffect(AddSpecialEffectTarget(BJS_RushEffect, BJS.caster,&quot;hand, right&quot;))
            call DestroyEffect(AddSpecialEffectTarget(BJS_RushEffect, BJS.caster,&quot;foot, left&quot;))
            call DestroyEffect(AddSpecialEffectTarget(BJS_RushEffect, BJS.caster,&quot;foot, right&quot;))
            
            if IsTerrainPathable(BJS.CX,BJS.CY,PATHING_TYPE_WALKABILITY)==false then
                call SetUnitX(BJS.caster,BJS.CX)
                call SetUnitY(BJS.caster,BJS.CY)
            endif
            
            call GroupEnumUnitsInRange(Damaged, BJS.CX,BJS.CY,200, Condition(function BJS_DamagedCond))
            call ForGroup(Damaged, function BJS_DamagedAct)
            
            set BJS.Damaged = DummyDamaged
            set BJS.RushDist = BJS.RushDist - BJS_RushSpeed
            
        elseif BJS.RushDist &lt; 0 then
        
            call PauseTimer(t)
            call DestroyTimer(t)
            call BJS.destroy()
            
        endif
    set t = null
    call DestroyGroup(Damaged)
    set Damaged = null
    endfunction

private function BJS_TimerEnd takes nothing returns nothing
local timer t = GetExpiredTimer()
local BunjeeShot BJS = GetTimerStructA(t)

    if GetUnitCurrentOrder(BJS.caster) == ChannelId and BJS.ChannelTotal &gt; 0 then
        set BJS.CX = BJS.offsetX(BJS.CX, 5, BJS.TarAngle-180)
        set BJS.CY = BJS.offsetY(BJS.CY, 5, BJS.TarAngle-180)
        
        
        if IsTerrainPathable(BJS.CX,BJS.CY,PATHING_TYPE_WALKABILITY)==false then 
            call DestroyEffect(AddSpecialEffect(BJS_ChargeEffect,BJS.CX,BJS.CY))
            call SetUnitX(BJS.caster,BJS.CX)
            call SetUnitY(BJS.caster,BJS.CY)
        endif
        
        call BJS.CreLightning()
        set BJS.ChannelTotal = BJS.ChannelTotal - .08
        
    elseif GetUnitCurrentOrder(BJS.caster) != ChannelId or BJS.ChannelTotal &lt; 0 then
    
        call UnitApplyTimedLife(BJS.Torch[1],&#039;BTLF&#039;,.1)
        call UnitApplyTimedLife(BJS.Torch[2],&#039;BTLF&#039;,.1)
        set BJS.Charged = 5 - BJS.ChannelTotal
        set BJS.DamageOn = (GetUnitAbilityLevel(BJS.caster,BJS_Id))*(BJS.Charged)*(50) 
        set BJS.RushDist = (GetUnitAbilityLevel(BJS.caster,BJS_Id)) * (100) * (BJS.Charged)
        
        call SetTimerStructB(t,BJS)
        call BJS.EndLightning()
        call TimerStart(t,.01,true,function BJS_RushTEnd)
    endif
set t = null
endfunction
//=======================================================================
//==                        Timer Call Back End                       ==    
//=======================================================================  


//=========================================================
//==                     Main Function                   ==
//=========================================================
private function BJS_Cond takes nothing returns boolean
    return GetSpellAbilityId() == BJS_Id
endfunction

private function BJS_Act takes nothing returns nothing
local location TLoc = GetSpellTargetLoc()
local BunjeeShot BJS = BunjeeShot.create(GetSpellAbilityUnit(),GetLocationX(TLoc),GetLocationY(TLoc))
local integer LoopInt = 1    
local real CreateDummyX
local real CreateDummyY
    
    //&lt;--Creating Torch--&gt;//
    loop
    exitwhen LoopInt&gt;2
    
        if LoopInt == 1 then
        
            set CreateDummyX = BJS.offsetX(BJS.CX,200,BJS.TarAngle+90)
            set CreateDummyY = BJS.offsetY(BJS.CY,200,BJS.TarAngle+90)
            set BJS.Torch[LoopInt] = CreateUnit(GetOwningPlayer(BJS.caster),BJS_TorchId,CreateDummyX,CreateDummyY,BJS.TarAngle)
            
        elseif LoopInt == 2 then
        
            set CreateDummyX = BJS.offsetX(BJS.CX,200,BJS.TarAngle-90)
            set CreateDummyY = BJS.offsetY(BJS.CY,200,BJS.TarAngle-90)
            set BJS.Torch[LoopInt] = CreateUnit(GetOwningPlayer(BJS.caster),BJS_TorchId,CreateDummyX,CreateDummyY,BJS.TarAngle)
            
        endif
        
    set LoopInt = LoopInt + 1
    endloop
    //&lt;--End--&gt;//
    
    
    call SetTimerStructA(BJS.t,BJS)
    call TimerStart(BJS.t,BJS_ChargingSpeed,true,function BJS_TimerEnd)

endfunction
//=========================================================
//==                   End Main Function                 ==
//=========================================================

//===========================================================================
function InitTrig_BunJee_Shot takes nothing returns nothing
local integer start = 0
local integer end = 15
    set gg_trg_BunJee_Shot = CreateTrigger()
    
    loop
    exitwhen start&gt;end
        call TriggerRegisterPlayerUnitEvent(gg_trg_BunJee_Shot,Player(start),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
        set start = start + 1
    endloop
    call TriggerAddCondition(gg_trg_BunJee_Shot, Condition(function BJS_Cond))
    call TriggerAddAction(gg_trg_BunJee_Shot, function BJS_Act)
endfunction

endscope

//!&lt;--End of my Spell--&gt;!//


//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


//Thanks to Cohadar for his brilliant ABC system.

//==============================================================================
//  ABC -- STRUCT ATTACHMENT SYSTEM BY COHADAR -- v5.1
//==============================================================================


//------------------------------------------------------------------------------
//  We will use textmacros to create multiple instances of system
//------------------------------------------------------------------------------
//! textmacro ABC takes X, NAME, TYPE

//------------------------------------------------------------------------------
// Global arrays represent our hash tables.
// System is currently using 3 hash tables per handle type. (A, B, C)
//------------------------------------------------------------------------------
globals
    private $TYPE$    array $TYPE$Key$X$
    private integer  array $TYPE$Value$X$
	private integer  $TYPE$maxCollision$X$ = 0
endglobals

//------------------------------------------------------------------------------
// returns the maximum collision so far
//------------------------------------------------------------------------------
function Get$NAME$Collision$X$ takes nothing returns integer
    return $TYPE$maxCollision$X$
endfunction


//------------------------------------------------------------------------------
// initializes hash arrays to prevent lag when ABC is used for the first time
//------------------------------------------------------------------------------
private function Init$NAME$Hash$X$ takes nothing returns nothing
    set $TYPE$Key$X$[HASH_INDEX_LIMIT]   = null
	set $TYPE$Value$X$[HASH_INDEX_LIMIT] = 0
endfunction

//------------------------------------------------------------------------------
// attaches struct to a handle by using hash table
//------------------------------------------------------------------------------
function Set$NAME$Struct$X$ takes $TYPE$ t, integer s returns nothing
	debug local integer collision
	
	// hash using 32-bit integer overflow
    local integer i = (H2I(t) * HASH_UP) / HASH_DOWN + HASH_BIAS

	if $TYPE$Key$X$<i> == null then
	    set $TYPE$Value$X$<i> = s
		set $TYPE$Key$X$<i> = t
		return
	endif

    debug if $TYPE$Key$X$<i> == t then
        debug call BJDebugMsg(&quot;|cFFFF0000ERROR: Hash[$X$] attachment overwrite on $TYPE$ #&quot; +I2S(H2I(t)))
        debug return
    debug endif        
    
	// if function gets below this line we have a collision
    debug set collision = 1
    loop
		debug if collision &gt;= HASH_COLLISION_LIMIT then
            debug call BJDebugMsg(&quot;|cFFFF0000ERROR: Hash[$X$] overflow&quot;)
            debug return
		debug endif    
        debug set collision = collision + 1
    
        set i = i + 1    
	    exitwhen $TYPE$Key$X$<i> == null

        debug if $TYPE$Key$X$<i> == t then
            debug call BJDebugMsg(&quot;|cFFFF0000ERROR: Hash[$X$] attachment overwrite on $TYPE$ #&quot; +I2S(H2I(t)))
            debug return
        debug endif    
	endloop

	debug if collision &gt; $TYPE$maxCollision$X$ then
	debug 	call BJDebugMsg(&quot;|cFFFF4444Warning: Hash[$X$] maximum collision is now: &quot; + I2S(collision))
	debug 	set $TYPE$maxCollision$X$ = collision
	debug endif
	
    set $TYPE$Value$X$<i> = s
    set $TYPE$Key$X$<i> = t

    return
endfunction

//------------------------------------------------------------------------------
// gets stored struct from a handle 
//------------------------------------------------------------------------------
function Get$NAME$Struct$X$ takes $TYPE$ t returns integer
	debug local integer collision
	
	// hash using 32-bit integer overflow
    local integer i = (H2I(t) * HASH_UP) / HASH_DOWN + HASH_BIAS
	
	if $TYPE$Key$X$<i> == t then
		return $TYPE$Value$X$<i>
	endif
	
	// if function gets below this line we have a collision
    debug set collision = 1
    loop
		debug if collision &gt;= HASH_COLLISION_LIMIT then
		debug   call BJDebugMsg(&quot;|cFFFF0000ERROR: Hash[$X$] : get request on unknown handle&quot;)
		debug   return 0
		debug endif		
        debug set collision = collision + 1      
    
        set i = i + 1
	    exitwhen $TYPE$Key$X$<i> == t
	endloop	
	
    return $TYPE$Value$X$<i>
endfunction


//------------------------------------------------------------------------------
// clears stored struct from a handle, also returns cleared value
//------------------------------------------------------------------------------
function Clear$NAME$Struct$X$ takes $TYPE$ t returns integer
	debug local integer collision
    local integer ik
    local integer ret
	
	// hash using 32-bit integer overflow
    local integer i = (H2I(t) * HASH_UP) / HASH_DOWN + HASH_BIAS
	
    // first find the index on witch key is stored
    debug set collision = 0
    loop
		debug if collision &gt;= HASH_COLLISION_LIMIT then
		debug   call BJDebugMsg(&quot;|cFFFF0000ERROR: Hash[$X$] : clear request on unknown handle&quot;)
		debug   return 0
		debug endif        
        debug set collision = collision + 1       
    
        exitwhen $TYPE$Key$X$<i> == t
        set i = i + 1
    endloop
    
    set ik = i
    set ret = $TYPE$Value$X$[ik]
    
    // then find last used key index in bucket
    loop
        set i = i + 1
        // we use the fact bucket borders (mod 8 indexes) are always null
        exitwhen $TYPE$Key$X$<i> == null  
    endloop
    
    // shift last bucket entry to the place of removed one
    set $TYPE$Key$X$[ik] = $TYPE$Key$X$[i-1]
    set $TYPE$Value$X$[ik] = $TYPE$Value$X$[i-1]
    // clear the previous last bucket entry
    set $TYPE$Key$X$[i-1] = null
    
    return ret
endfunction

//! endtextmacro

//==============================================================================
//  Macro execution -- this is where real functions get created
//==============================================================================
library ABC initializer Init

globals
	public constant integer HASH_SIZE = 8192
	public constant integer HASH_INDEX_LIMIT = 8190
	public constant integer HASH_DOWN = 524288     // 2^19	
	public constant integer HASH_UP   = 2134900736 // 2^22 * 509
	public constant integer HASH_BIAS = 4096       // HASH_SIZE / 2
	public constant integer HASH_COLLISION_LIMIT = 7 // ABC v5.0 had limit 8
	// 509 is the prime closest to 512
endglobals


//------------------------------------------------------------------------------
// conversion function used by the system internally
// you will not need to use it directly
//------------------------------------------------------------------------------
public function H2I takes handle h returns integer
    return h
    return 0
endfunction

//! runtextmacro ABC(&quot;A&quot;,&quot;Timer&quot;,&quot;timer&quot;)
//! runtextmacro ABC(&quot;B&quot;,&quot;Timer&quot;,&quot;timer&quot;)
//! runtextmacro ABC(&quot;C&quot;,&quot;Timer&quot;,&quot;timer&quot;)

//! runtextmacro ABC(&quot;A&quot;,&quot;Trigger&quot;,&quot;trigger&quot;)
//! runtextmacro ABC(&quot;B&quot;,&quot;Trigger&quot;,&quot;trigger&quot;)
//! runtextmacro ABC(&quot;C&quot;,&quot;Trigger&quot;,&quot;trigger&quot;)

//! runtextmacro ABC(&quot;A&quot;,&quot;Dialog&quot;,&quot;dialog&quot;)
//! runtextmacro ABC(&quot;B&quot;,&quot;Dialog&quot;,&quot;dialog&quot;)
//! runtextmacro ABC(&quot;C&quot;,&quot;Dialog&quot;,&quot;dialog&quot;)

private function Init takes nothing returns nothing
	call InitTimerHashA()
	call InitTimerHashB()
	call InitTimerHashC()

	call InitTriggerHashA()
	call InitTriggerHashB()
	call InitTriggerHashC()       
    
	call InitDialogHashA()
	call InitDialogHashB()
	call InitDialogHashC()
endfunction


endlibrary
//==============================================================================
//  END OF ABC STRUCT ATTACHMENT SYSTEM
//==============================================================================</i></i></i></i></i></i></i></i></i></i></i></i></i></i>

BunJee Shot v2.1

Darkchaoself · Nov 4, 2007

Updated, and fixed unit bug

If you find any, please tell

Updated, Again

emjlr3 · Nov 4, 2007

today is the 4th, midnight, tonight, eastern time

and if anyone types countdown shit, you are DQ'd and -repped

don't be idiots

Sevion · Nov 4, 2007

Gals, I found two bugs in yours.

1: If I cast Bunjee Shot twice with the same hero it will bunjee around and around a bit.

2: If I cast it 3 times before the 2nd cast is finished channeling it will create a permanent effect.

[Contest] Official Spell Contest #1

What is this i dont even

Ueki Fan (Ueki is watching you)

New Helper (I got over 2000 posts)

What is this i dont even

Your Friendly Neighborhood Admin

What is this i dont even

New Helper (I got over 2000 posts)

-

Your Friendly Neighborhood Admin

What is this i dont even

Learning vJASS ;)

Attachments

What is this i dont even

Attachments

† Ғσſ ŧħə ѕαĸε Φƒ ~ĞäŁš~ †

New Helper (I got over 2000 posts)

† Ғσſ ŧħə ѕαĸε Φƒ ~ĞäŁš~ †

-

† Ғσſ ŧħə ѕαĸε Φƒ ~ĞäŁš~ †

What is this i dont even

Attachments

Change can be a good thing

The DIY Ninja

Log in

The Helper Discord

Share this page

Affiliates

Network Sponsors