[jass]function GetTrackableX takes trackable tc, hashtable h returns real
return LoadReal(h,GetHandleId(tc),0)
endfunction

function GetTrackableY takes trackable tc, hashtable h returns real
return LoadReal(h,GetHandleId(tc),1)
endfunction

function GetTrackableZ takes trackable tc, hashtable h returns string
return LoadReal(h,GetHandleId(tc),2)
endfunction

function GetTrackableFacing takes trackable tc, hashtable h returns real
return LoadReal(h,GetHandleId(tc),3)
endfunction

function GetTrackablePath takes trackable tc, hashtable h returns string
return LoadStr(h,GetHandleId(tc),4)
endfunction

function GetTrackableOwner takes trackable tc, hashtable h returns player
return Player(LoadInteger(h,GetHandleId(tc),5))
endfunction

function NewTrackable takes string path, real x, real y, real z, real facing, player owner, hashtable h returns trackable
local trackable tc
local string invisible = ""
local destructable d = CreateDestructableZ('OTip', x, y, z, 0.00, 1.00, 0 )
if GetLocalPlayer() != owner then
set path = invisible
endif
set tc = CreateTrackable(path, x, y, facing)
call RemoveDestructable(d)
set d = null
call SaveReal(h,GetHandleId(tc),0,x)
call SaveReal(h,GetHandleId(tc),1,y)
call SaveReal(h,GetHandleId(tc),2,z)
call SaveReal(h,GetHandleId(tc),3,facing)
call SaveStr(h,GetHandleId(tc),4,path)
call SaveInteger(h,GetHandleId(tc),5,GetPlayerId(owner))
return tc
endfunction[/jass]

[jass]function ReviveHeroTimed_Child eakes nothing returns nothing
local timer t = GetExpiredTimer()
local unit hero = LoadUnitHandle(udg_Hashtable,GetHandleId(t),0)
local real x = LoadReal(udg_Hashtable,GetHandleId(t),1)
local real y = LoadReal(udg_Hashtable,GetHandleId(t),2)
local boolean show = LoadBoolean(udg_Hashtable,GetHandleId(t),3)
call ReviveHero(hero,x,y,show)
call FludhChildHashtable(udg_Hashtable,GetHandleId(t))
call DestroyTimer(t)
set hero = null
set t = null
endfunction

function ReviveHeroTimed takes unit hero, real time, real x, real y, boolean doEyeCandy returns nothing
local timer t = CreateTimer()
call TimerStart(t,time,false,function ReviveHeroTimed_Child)
call SaveUnitHandle(udg_Hashtable,GetHandleId(t),0,hero)
call SaveReal(udg_Hashtable,GetHandleId(t),1,x)
call SaveReal(udg_Hashtable,GetHandleId(t),2,y)
call SaveBoolean(udg_Hashtable,GetHandleId(t),3,doEyeCandy)
set t = null
endfunction[/jass]

[jass]library RecipeFunction

struct RecipeItems
integer item0_id
integer item1_id
integer item2_id
integer item3_id
integer item4_id
integer item5_id
integer item6_id
integer item7_id
unit u
item item1 = null
item item2 = null
item item3 = null
item item4 = null
item item5 = null
item item6 = null

method CheckItems2 takes nothing returns nothing
local integer this_id
local integer i = 0
loop
set this_id = GetItemTypeId(UnitItemInSlot(.u, i))
if this_id == .item0_id then
set .item1 = UnitItemInSlot(.u, i)
elseif this_id == .item1_id then
set .item2 = UnitItemInSlot(.u, i)
endif
set i = i + 1
exitwhen i >= bj_MAX_INVENTORY
endloop
if .item1 != null and .item2 != null then
call RemoveItem(.item1)
call RemoveItem(.item2)
call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIem\\AIemTarget.mdl",.u,"overhead"))
call UnitAddItemById(.u, .item2_id)
set .item1 = null
set .item2 = null
set .u = null
endif
endmethod

method CheckItems3 takes nothing returns nothing
local integer this_id
local integer i = 0
loop
set this_id = GetItemTypeId(UnitItemInSlot(.u, i))
if this_id == .item0_id then
set .item1 = UnitItemInSlot(.u, i)
elseif this_id == .item1_id then
set .item2 = UnitItemInSlot(.u, i)
elseif this_id == .item2_id then
set .item3 = UnitItemInSlot(.u, i)
endif
set i = i + 1
exitwhen i >= bj_MAX_INVENTORY
endloop
if .item1 != null and .item2 != null and .item3 != null then
call RemoveItem(.item1)
call RemoveItem(.item2)
call RemoveItem(.item3)
call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIem\\AIemTarget.mdl",.u,"overhead")) //adds a special effect
call UnitAddItemById(.u, .item3_id)
set .item1 = null
set .item2 = null
set .item3 = null
set .u = null
endif
endmethod

method CheckItems4 takes nothing returns nothing
local integer this_id
local integer i = 0
loop
set this_id = GetItemTypeId(UnitItemInSlot(.u, i))
if this_id == .item0_id then
set .item1 = UnitItemInSlot(.u, i)
elseif this_id == .item1_id then
set .item2 = UnitItemInSlot(.u, i)
elseif this_id == .item2_id then
set .item3 = UnitItemInSlot(.u, i)
elseif this_id == .item3_id then
set .item4 = UnitItemInSlot(.u, i)
endif
set i = i + 1
exitwhen i >= bj_MAX_INVENTORY
endloop
if .item1 != null and .item2 != null and .item3 != null and .item4 != null then
call RemoveItem(.item1)
call RemoveItem(.item2)
call RemoveItem(.item3)
call RemoveItem(.item4)
call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIem\\AIemTarget.mdl",.u,"overhead"))
call UnitAddItemById(.u, .item4_id)
set .item1 = null
set .item2 = null
set .item3 = null
set .item4 = null
set .u = null
endif
endmethod

method CheckItems5 takes nothing returns nothing
local integer this_id
local integer i = 0
loop
set this_id = GetItemTypeId(UnitItemInSlot(.u, i))
if this_id == .item0_id then
set .item1 = UnitItemInSlot(.u, i)
elseif this_id == .item1_id then
set .item2 = UnitItemInSlot(.u, i)
elseif this_id == .item2_id then
set .item3 = UnitItemInSlot(.u, i)
elseif this_id == .item3_id then
set .item4 = UnitItemInSlot(.u, i)
elseif this_id == .item4_id then
set .item5 = UnitItemInSlot(.u, i)
endif
set i = i + 1
exitwhen i >= bj_MAX_INVENTORY
endloop
if .item1 != null and .item2 != null and .item3 != null and .item4 != null and .item5 != null then
call RemoveItem(.item1)
call RemoveItem(.item2)
call RemoveItem(.item3)
call RemoveItem(.item4)
call RemoveItem(.item5)
call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIem\\AIemTarget.mdl",.u,"overhead"))
call UnitAddItemById(.u, .item5_id)
set .item1 = null
set .item2 = null
set .item3 = null
set .item4 = null
set .item5 = null
set .u = null
endif
endmethod

method CheckItems6 takes nothing returns nothing
local integer this_id
local integer i = 0
loop
set this_id = GetItemTypeId(UnitItemInSlot(.u, i))
if this_id == .item0_id then
set .item1 = UnitItemInSlot(.u, i)
elseif this_id == .item1_id then
set .item2 = UnitItemInSlot(.u, i)
elseif this_id == .item2_id then
set .item3 = UnitItemInSlot(.u, i)
elseif this_id == .item3_id then
set .item4 = UnitItemInSlot(.u, i)
elseif this_id == .item4_id then
set .item5 = UnitItemInSlot(.u, i)
elseif this_id == .item5_id then
set .item6 = UnitItemInSlot(.u, i)
endif
set i = i + 1
exitwhen i >= bj_MAX_INVENTORY
endloop
if .item1 != null and .item2 != null and .item3 != null and .item4 != null and .item5 != null and .item6 != null then
call RemoveItem(.item1)
call RemoveItem(.item2)
call RemoveItem(.item3)
call RemoveItem(.item4)
call RemoveItem(.item5)
call RemoveItem(.item6)
call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Items\\AIem\\AIemTarget.mdl",.u,"overhead"))
call UnitAddItemById(.u, .item6_id)
set .item1 = null
set .item2 = null
set .item3 = null
set .item4 = null
set .item5 = null
set .item6 = null
set .u = null
endif
endmethod
endstruct

function Recipe2 takes unit hero, integer i1, integer i2, integer ni returns nothing
local RecipeItems IS=RecipeItems.create()
set IS.item0_id = i1
set IS.item1_id = i2
set IS.item2_id = ni
set IS.u = hero
call IS.CheckItems2()
call IS.destroy()
endfunction

function Recipe3 takes unit hero, integer i1, integer i2, integer i3, integer ni returns nothing
local RecipeItems IS=RecipeItems.create()
set IS.item0_id = i1
set IS.item1_id = i2
set IS.item2_id = i3
set IS.item3_id = ni
set IS.u = hero
call IS.CheckItems3()
call IS.destroy()
endfunction

function Recipe4 takes unit hero, integer i1, integer i2, integer i3, integer i4, integer ni returns nothing
local RecipeItems IS=RecipeItems.create()
set IS.item0_id = i1
set IS.item1_id = i2
set IS.item2_id = i3
set IS.item3_id = i4
set IS.item4_id = ni
set IS.u = hero
call IS.CheckItems4()
call IS.destroy()
endfunction

function Recipe5 takes unit hero, integer i1, integer i2, integer i3, integer i4, integer i5, integer ni returns nothing
local RecipeItems IS=RecipeItems.create()
set IS.item0_id = i1
set IS.item1_id = i2
set IS.item2_id = i3
set IS.item3_id = i4
set IS.item4_id = i5
set IS.item5_id = ni
set IS.u = hero
call IS.CheckItems5()
call IS.destroy()
endfunction

function Recipe6 takes unit hero, integer i1, integer i2, integer i3, integer i4, integer i5, integer i6, integer ni returns nothing
local RecipeItems IS=RecipeItems.create()
set IS.item0_id = i1
set IS.item1_id = i2
set IS.item2_id = i3
set IS.item3_id = i4
set IS.item4_id = i5
set IS.item5_id = i6
set IS.item6_id = ni
set IS.u = hero
call IS.CheckItems6()
call IS.destroy()
endfunction

endlibrary[/jass]

[jass]function H2D takes string hex returns integer
local string abc = "0123456789abcdef"
local integer i = 0
local integer dec
loop
set i = i + 1
exitwhen( SubString(abc, (i-1), i)==SubString(hex, 0, 1) )
endloop
set dec = (i-1) * 16
set i = 0
loop
set i = i + 1
exitwhen( SubString(abc, (i-1), i)==SubString(hex, 1, 2) )
endloop
set dec = dec + i - 1
return dec
endfunction[/jass]

[jass]function D2H takes integer i returns string
local string abc = "0123456789abcdef"
local string s = SubString(abc, i / 16, i / 16 + 1) + SubString(abc, ModuloInteger(i, 16), ModuloInteger(i, 16) + 1)
return s
endfunction[/jass]

[jass]function GetPlayerColoredIcon takes player p returns string
local playercolor pc = GetPlayerColor(p)
local integer i = GetHandleId(pc)
local string s
if i < 10 then
set s = "0" + I2S(i)
else
set s = I2S(i)
endif
set pc = null
return "ReplaceableTextures\\TeamColor\\TeamColor" + s + ".blp"
endfunction[/jass]

[jass]function DamageLine takes location a, location b, real w, real dmg, boolean ranged returns nothing
local integer i = 0
local real aX = GetLocationX(a)
local real bX = GetLocationX(b)
local real aY = GetLocationY(a)
local real bY = GetLocationY(b)
local real dist = SquareRoot((bX - aX) * (bX - aX) + (bY - aY) * (bY - aY))
local real angle = 57.295827908 * Atan2(bY - aY, bX - aX)
local group g = CreateGroup()
local group tg = CreateGroup()
local unit u
loop
exitwhen i > 2*dist/w
call GroupEnumUnitsInRange(g, aX, aY, w, null)
loop
set u = FirstOfGroup(g)
if (IsUnitInGroup(u, tg) == false) then
call UnitDamageTarget(u, u, dmg, true, ranged, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
endif
call GroupAddUnit(tg, u)
call GroupRemoveUnit(g, u)
exitwhen u == null
endloop
set aX = aX + w/2 * Cos(angle * 0.01745327)
set aY = aY + w/2 * Sin(angle * 0.01745327)
set i = i + 1
endloop
call DestroyGroup(g)
call DestroyGroup(tg)
set g = null
set u = null
endfunction[/jass]

[jass]function GetPlayerNameColored takes player p returns string
local playercolor col=GetPlayerColor(p)
local string r=GetPlayerName(p)
if GetPlayerId(p) == 12 then
set r="the |CFF333429"+r+"|r"
elseif GetPlayerId(p) == 13 then
set r="the |cffc1c1ff"+r+"|r"
elseif GetPlayerId(p) == 14 then
set r="the |CFF333429"+r+"|r"
elseif GetPlayerId(p) == 15 then
set r="the |CFF333429"+r+"|r"
elseif col == PLAYER_COLOR_RED then
set r="|CFFFF0303"+r+"|r"
elseif col == PLAYER_COLOR_BLUE then
set r="|CFF0042FF"+r+"|r"
elseif col == PLAYER_COLOR_CYAN then
set r="|CFF1CE6B9"+r+"|r"
elseif col == PLAYER_COLOR_PURPLE then
set r="|CFF540081"+r+"|r"
elseif col == PLAYER_COLOR_YELLOW then
set r="|CFFFFFC00"+r+"|r"
elseif col == PLAYER_COLOR_ORANGE then
set r="|CFFFE8A0E"+r+"|r"
elseif col == PLAYER_COLOR_GREEN then
set r="|CFF20C000"+r+"|r"
elseif col == PLAYER_COLOR_PINK then
set r="|cffff80c0"+r+"|r"
elseif col == PLAYER_COLOR_LIGHT_GRAY then
set r="|CFF959697"+r+"|r"
elseif col == PLAYER_COLOR_LIGHT_BLUE then
set r="|CFF7FBFF1"+r+"|r"
elseif col == PLAYER_COLOR_AQUA then
set r="|cFF106246"+r+"|r"
elseif col == PLAYER_COLOR_BROWN then
set r="|cFF4E2A04"+r+"|r"
else
set r=""
endif
set col=null
return r
endfunction[/jass]

[jass]integer cj_ind = 0;

define{
(Type,Name) = {

Type array Name##1
Type array Name##2
Type array Name##3
Type array Name##4
Type array Name##5
Type array Name##6
Type array Name##7
Type array Name##8}

(Name,Handle,variable) = {
cj_ind = GetHandleId(Handle)-0xffff0

if (cj_ind > 0x7999) {
if (cj_ind > 0xbfff) {
Name##8[cj_ind - 0xd000] = variable;
Name##7[cj_ind - 0xc000] = variable;
} else {
Name##6[cj_ind - 0xa000] = variable;
Name##5[cj_ind - 0x8000] = variable;
}
} elseif (cj_ind > 0x3fff) {
Name##4[cj_ind - 0x6000] = variable;
Name##3[cj_ind - 0x4000] = variable;
} else {
Name##2[cj_ind - 0x2000] = variable;
Name##1[cj_ind] = variable;
}
}

(Name,Handle,variable) = {
cj_ind = GetHandleId(Handle)- 0xffff0
if (cj_ind > 0x7fff) {
if (cj_ind > 0xbfff) {
if (cj_ind > 0xdfff) {
variable = Name##8[cj_ind - 0xe000];
} else {
variable = Name##7[cj_ind - 0xc000];
}
} elseif (cj_ind > 0x9fff) {
variable = Name##6[cj_ind - 0xa000];
} else {
variable = Name##5[cj_ind - 0x8000];
}
} elseif (cj_ind > 0x3fff) {
if (cj_ind > 0x5fff) {
variable = Name##4[cj_ind - 0x6000];
} else {
variable = Name##3[cj_ind - 0x4000];
}
} elseif (cj_ind > 0x1fff) {
variable = Name##2[cj_ind - 0x2000];
} else {
variable = Name##1[cj_ind];
}
}

Load (Name,Handle,variable) = {
cj_ind = GetHandleId(Handle)-0xffff0
if (cj_ind < 0x1fff ) {
variable = Name##1[cj_ind]
} elseif (cj_ind < 0x3fff ) {
variable = Name##2[cj_ind-0x2000]
} elseif (cj_ind < 0x5fff ) {
variable = Name##3[cj_ind - 0x4000]
} elseif (cj_ind < 0x7fff ) {
variable = Name##4[cj_ind - 0x6000]
} elseif (cj_ind < 0x9fff ) {
variable = Name##5[cj_ind - 0x8000]
} elseif (cj_ind < 0xafff ) {
variable = Name##6[cj_ind - 0xa000]
} elseif (cj_ind < 0xcfff ) {
variable = Name##7[cj_ind - 0xc000]
} else {
variable = Name##8[cj_ind - 0xe000]
}
}

Save (Name,Handle,variable) = {
cj_ind = GetHandleId(Handle)-0xffff0
if (cj_ind < 0x3fff ) {
Name##1[cj_ind] = variable
Name##2[cj_ind-0x2000] = variable
} elseif (cj_ind < 0x7fff ) {
Name##3[cj_ind - 0x4000] = variable
Name##4[cj_ind - 0x6000] = variable
} elseif (cj_ind < 0xbfff ) {
Name##5[cj_ind - 0x8000] = variable
Name##6[cj_ind - 0xa000] = variable
} else {
Name##7[cj_ind - 0xc000] = variable
Name##8[cj_ind - 0xe000] = variable
}
}
}
//test

New Data (integer,test1)[/jass]