function SaveLoad_InitialSetup takes nothing returns nothing
local integer i = 0
local integer j = 0
loop
set udg_SaveLoad_Compress[i + 48] = j
set udg_SaveLoad_Uncompress[i] = i + 48
set j = j + 1
set i = i + 1
exitwhen i >= 10
endloop
set i = 0
loop
set udg_SaveLoad_Compress[i + 97] = j
set udg_SaveLoad_Compress[i + 65] = j + 26
set udg_SaveLoad_Uncompress[i + 10] = i + 97
set udg_SaveLoad_Uncompress[i + 26 + 10] = i + 65
set j = j + 1
set i = i + 1
exitwhen i >= 26
endloop
endfunction
function SaveLoad_Id2CId takes integer n returns integer
local integer i = n / (256 * 256 * 256)
local integer r
set n = n - i * (256 * 256 * 256)
set r = udg_SaveLoad_Compress[i]
set i = n / (256 * 256)
set n = n - i * (256 * 256)
set r = r * 64 + udg_SaveLoad_Compress[i]
set i = n / 256
set r = r * 64 + udg_SaveLoad_Compress[i]
return r * 64 + udg_SaveLoad_Compress[n - i * 256]
endfunction
function SaveLoad_CId2Id takes integer n returns integer
local integer i = n / (64 * 64 * 64)
local integer r
set n = n - i * (64 * 64 * 64)
set r = udg_SaveLoad_Uncompress[i]
set i = n / (64 * 64)
set n = n - i * (64 * 64)
set r = r * 256 + udg_SaveLoad_Uncompress[i]
set i = n / 64
set r = r * 256 + udg_SaveLoad_Uncompress[i]
return r * 256 + udg_SaveLoad_Uncompress[n - i * 64]
endfunction
function SaveLoad_Unit2Integer takes unit u returns integer
local integer i = 0
local integer n = GetUnitTypeId(u)
if udg_SaveLoad_Initialized == false then
set udg_SaveLoad_Initialized = true
call SaveLoad_InitialSetup()
endif
loop
set i = i + 1
exitwhen i > udg_SaveLoad_Heroes_LastIndex
if udg_SaveLoad_Heroes[i] == n then
return i
endif
endloop
return SaveLoad_Id2CId(n)
endfunction
function SaveLoad_Integer2Unit takes integer i returns integer
if udg_SaveLoad_Initialized == false then
set udg_SaveLoad_Initialized = true
call SaveLoad_InitialSetup()
endif
if i <= udg_SaveLoad_Heroes_LastIndex then
return udg_SaveLoad_Heroes[i]
endif
return SaveLoad_CId2Id(i)
endfunction
function SaveLoad_Item2Integer takes item t returns integer
local integer i = 0
local integer n = GetItemTypeId(t)
if udg_SaveLoad_Initialized == false then
set udg_SaveLoad_Initialized = true
call SaveLoad_InitialSetup()
endif
loop
set i = i + 1
exitwhen i > udg_SaveLoad_Items_LastIndex
if udg_SaveLoad_Items[i] == n then
return i
endif
endloop
return SaveLoad_Id2CId(n)
endfunction
function SaveLoad_Integer2Item takes integer i returns integer
if udg_SaveLoad_Initialized == false then
set udg_SaveLoad_Initialized = true
call SaveLoad_InitialSetup()
endif
if i <= udg_SaveLoad_Items_LastIndex then
return udg_SaveLoad_Items[i]
endif
return SaveLoad_CId2Id(i)
endfunction
function SaveLoad_Ability2Integer takes integer a returns integer
local integer i = 0
if udg_SaveLoad_Initialized == false then
set udg_SaveLoad_Initialized = true
call SaveLoad_InitialSetup()
endif
loop
set i = i + 1
exitwhen i > udg_SaveLoad_Abilities_LastIndex
if udg_SaveLoad_Abilities[i] == a then
return i
endif
endloop
return SaveLoad_Id2CId(a)
endfunction
function SaveLoad_Integer2Ability takes integer i returns integer
if udg_SaveLoad_Initialized == false then
set udg_SaveLoad_Initialized = true
call SaveLoad_InitialSetup()
endif
if i <= udg_SaveLoad_Abilities_LastIndex then
return udg_SaveLoad_Abilities[i]
endif
return SaveLoad_CId2Id(i)
endfunction
function SaveLoad_Color takes string s returns string
local integer i = StringLength(s)
local string c
local string r = ""
loop
set i = i - 1
set c = SubString(s,i,i + 1)
if c == "0" or c == "1" or c == "2" or c == "3" or c == "4" or c == "5" or c == "6" or c == "7" or c == "8" or c == "9" then
set r = "|cffffcc00" + c + "|r" + r
elseif c == "-" then
set r = "|cffdddddd-|r" + r
else
set r = c + r
endif
exitwhen i <= 0
endloop
return r
endfunction
function SaveLoad_EncodeChar takes string n returns integer
local integer i = 0
local string s1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
local string s2 = "abcdefghijklmnopqrstuvwxyz"
local string s3 = "0123456789"
loop
if SubString(s1,i,i + 1) == n then
return i
endif
if SubString(s2,i,i + 1) == n then
return i
endif
set i = i + 1
exitwhen i >= 26
endloop
set i = 0
loop
if SubString(s3,i,i + 1) == n then
return i
endif
set i = i + 1
exitwhen i >= 10
endloop
return 0
endfunction
function SaveLoad_EncodeVerify takes string buffer returns integer
local integer i = 0
local integer j = 0
local string name = GetPlayerName(GetTriggerPlayer())
if udg_SaveLoad_UsePlayername == true then
loop
set j = j + SaveLoad_EncodeChar(SubString(name,i,i + 1))
set i = i + 1
exitwhen i >= StringLength(name)
endloop
endif
set i = 0
loop
set j = j + SaveLoad_EncodeChar(SubString(buffer,i,i + 1))
set i = i + 1
exitwhen i >= StringLength(buffer)
endloop
return j
endfunction
function SaveLoad_EncodeValues takes nothing returns string
local integer i
local integer j
local integer k
local integer l
local integer m
local integer CodeLength = StringLength(udg_SaveLoad_Alphabet)
local integer array a
local string buffer = ""
local string c = ""
local integer skip = 0
local integer CONST = 1000000
local string abc = "0123456789"
set i = 0
loop
set i = i + 1
exitwhen i > udg_SaveCount
set buffer = buffer + I2S(udg_Save[i]) + "-"
endloop
set buffer = buffer + I2S(SaveLoad_EncodeVerify(buffer))
if udg_Save[1] == 0 then
set buffer = "-" + buffer
endif
set i = 0
loop
set a[i] = 0
set i = i + 1
exitwhen i >= 100
endloop
set m = 0
set i = 0
loop
set j = 0
loop
set a[j] = a[j] * 11
set j = j + 1
exitwhen j > m
endloop
set l = 0
set c = SubString(buffer,i,i + 1)
loop
exitwhen SubString(abc,l,l + 1) == c
set l = l + 1
exitwhen l > 9
endloop
set a[0] = a[0] + l
set j = 0
loop
set k = a[j] / CONST
set a[j] = a[j] - k * CONST
set a[j + 1] = a[j + 1] + k
set j = j + 1
exitwhen j > m
endloop
if k > 0 then
set m = m + 1
endif
set i = i + 1
exitwhen i >= StringLength(buffer)
endloop
set buffer = ""
loop
exitwhen m < 0
set j = m
loop
exitwhen j <= 0
set k = a[j] / CodeLength
set a[j - 1] = a[j - 1] + (a[j] - k * CodeLength) * CONST
set a[j] = k
set j = j - 1
endloop
set k = a[j] / CodeLength
set i = a[j] - k * CodeLength
set buffer = buffer + SubString(udg_SaveLoad_Alphabet,i,i + 1)
set a[j] = k
if a[m] == 0 then
set m = m - 1
endif
endloop
set i = StringLength(buffer)
set skip = 0
set c = ""
loop
set i = i - 1
set c = c + SubString(buffer,i,i + 1)
set skip = skip + 1
if skip == 4 and i > 0 then
set c = c + "-"
set skip = 0
endif
exitwhen i <= 0
endloop
return c
endfunction
function SaveLoad_DecodeValues takes string s returns boolean
local integer i
local integer j
local integer k
local integer l
local integer SaveCode = 0
local integer m
local integer array a
local string buffer = ""
local integer CodeLength = StringLength(udg_SaveLoad_Alphabet)
local integer skip = -1
local integer CONST = 1000000
local string abc = "0123456789-"
local string c
set i = 0
loop
set a[i] = 0
set i = i + 1
exitwhen i >= 100
endloop
set m = 0
set i = 0
loop
set j = 0
loop
set a[j] = a[j] * CodeLength
set j = j + 1
exitwhen j > m
endloop
set skip = skip + 1
if skip == 4 then
set skip = 0
set i = i + 1
endif
set l = CodeLength
set c = SubString(s,i,i + 1)
loop
set l = l - 1
exitwhen l < 1
exitwhen SubString(udg_SaveLoad_Alphabet,l,l + 1) == c
endloop
set a[0] = a[0] + l
set j = 0
loop
set k = a[j] / CONST
set a[j] = a[j] - k * CONST
set a[j + 1] = a[j + 1] + k
set j = j + 1
exitwhen j > m
endloop
if k > 0 then
set m = m + 1
endif
set i = i + 1
exitwhen i >= StringLength(s)
endloop
loop
exitwhen m < 0
set j = m
loop
exitwhen j <= 0
set k = a[j] / 11
set a[j - 1] = a[j - 1] + (a[j] - k * 11) * CONST
set a[j] = k
set j = j - 1
endloop
set k = a[j] / 11
set i = a[j] - k * 11
set buffer = SubString(abc,i,i + 1) + buffer
set a[j] = k
if a[m] == 0 then
set m = m - 1
endif
endloop
set i = 0
set j = 0
loop
loop
exitwhen i >= StringLength(buffer)
exitwhen i > 0 and SubString(buffer,i,i + 1) == "-" and SubString(buffer,i - 1,i) != "-"
set i = i + 1
endloop
if i < StringLength(buffer) then
set k = i
endif
set SaveCode = SaveCode + 1
set udg_Save[SaveCode] = S2I(SubString(buffer,j,i))
set j = i + 1
set i = i + 1
exitwhen i >= StringLength(buffer)
endloop
set j = SaveLoad_EncodeVerify(SubString(buffer,0,k))
set udg_SaveCount = SaveCode - 1
if j == udg_Save[SaveCode] then
return true
endif
return false
endfunction
function SaveLoad_Encode takes nothing returns string
if udg_SaveLoad_CaseSensitive == false then
set udg_SaveLoad_Alphabet = StringCase(udg_SaveLoad_Alphabet,true)
endif
return SaveLoad_Color(SaveLoad_EncodeValues())
endfunction
function SaveLoad_Decode takes string s returns boolean
if udg_SaveLoad_CaseSensitive == false then
set udg_SaveLoad_Alphabet = StringCase(udg_SaveLoad_Alphabet,true)
set s = StringCase(s,true)
endif
if SaveLoad_DecodeValues(s) then
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"Exito")
return true
endif
call DisplayTextToPlayer(GetTriggerPlayer(),0,0,"Codigo Fallido")
return false
endfunction
Name | Type | is_array | initial_value |
AlbaicinTrampa1 | group | No | |
AlbaicinTrampa2 | group | No | |
AlbaicinTrampa3 | group | No | |
ArbolesVivientesFelwood | integer | No | |
bDoors | boolean | Yes | |
BotondeDialogoEstatuas | button | Yes | |
BotonDialogoNo | button | No | |
BotonDialogoSi | button | No | |
ClimaRandom | integer | No | |
Code | string | No | |
conjurador | buffcode | No | |
CreepsRandom | integer | No | |
Creepypasta | integer | No | |
CV_Attacked | unit | No | |
CV_Objetivos | group | No | |
CV_Punto | location | No | |
Damage | integer | No | |
Damage1 | integer | Yes | |
DashCaster | unit | Yes | |
DashDamage | real | Yes | |
DashDistance | integer | Yes | |
DashGroup1 | group | No | |
DashGroup2 | group | No | |
DashGroup3 | group | No | |
DashInteger | integer | Yes | |
DashPoint1 | location | Yes | |
DashPoint2 | location | Yes | |
DashPoint3 | location | Yes | |
DashPoint4 | location | Yes | |
DashPoint5 | location | Yes | |
DashReal1 | real | Yes | |
DashReal2 | real | Yes | |
DashSpeed | real | Yes | |
DialogoEstatua | dialog | No | |
DM_Integers | integer | Yes | |
Ej1_Caster | unit | No | |
Ej1_CasterPoint | location | No | |
Ej1_casting_unit | unit | No | |
Ej1_Dummy | unit | No | |
Ej1_LevelOfAbility | integer | No | |
Entering_Unit | unit | No | |
Entering_Unit1 | unit | Yes | |
Evasion | integer | No | |
FloresEfecto | effect | No | |
FloresRandom | integer | No | |
Gameplyares | player | No | |
Horda | timerdialog | No | |
InventarioA | itemcode | Yes | |
InventarioActual | boolean | No | true |
InventarioB | itemcode | Yes | |
InventarioBoleanA | boolean | Yes | |
InventarioBoleanB | boolean | Yes | |
KB_Attacking | unit | No | |
KB_Chance | integer | No | |
KB_Damage | real | No | |
KB_LevelAbility | integer | No | |
KB_Restador | real | No | |
KB_Speed | real | No | |
KB_Target | unit | No | |
Loatheb_trampa | integer | No | |
MH_Angle | real | No | |
MH_Anglel2 | real | No | |
MH_Level | integer | No | |
MH_Link | unit | Yes | |
MH_Link2 | unit | Yes | |
MH_Links | integer | No | |
MH_Links2 | integer | No | |
MH_Unit | unit | Yes | |
MI | integer | No | |
MI_Angle | real | Yes | |
MI_Eff | string | Yes | |
MI_Friction | real | Yes | |
MI_Point | location | Yes | |
MI_Skip | integer | No | |
MI_Speed | real | Yes | |
MI_Target | unit | Yes | |
MI_Times | integer | No | |
Naga | timerdialog | No | |
Nombre | string | No | |
Player1 | unit | No | |
Player2 | unit | No | |
Player3 | unit | No | |
Player4 | unit | No | |
Player6 | unit | No | |
Player7 | unit | No | |
Player8 | unit | No | |
Player9 | unit | No | |
PortalMovedisoFelwood | integer | No | |
RelojNaga | timer | No | |
RelojOM1 | timer | No | |
Save | integer | Yes | |
SaveCount | integer | No | |
SaveLoad_Abilities | abilcode | Yes | |
SaveLoad_Abilities_LastIndex | integer | No | |
SaveLoad_Alphabet | string | No | |
SaveLoad_CaseSensitive | boolean | No | |
SaveLoad_Compress | integer | Yes | |
SaveLoad_Heroes | unitcode | Yes | |
SaveLoad_Heroes_LastIndex | integer | No | |
SaveLoad_Initialized | boolean | No | |
SaveLoad_Items | itemcode | Yes | |
SaveLoad_Items_LastIndex | integer | No | |
SaveLoad_Uncompress | integer | Yes | |
SaveLoad_UsePlayername | boolean | No | |
Sombra_Punto | location | No | |
Stoptime | group | No | |
Temp_Group | group | No | |
Temp_Group2 | group | No | |
TempInteger | integer | No | |
TempItem | item | No | |
TempItemType | itemcode | No | |
TempPlayer1 | unit | No | |
TempPlayer2 | unit | No | |
TempPlayer3 | unit | No | |
TempPlayer4 | unit | No | |
TempPlayer6 | unit | No | |
TempPlayer7 | unit | No | |
TempPlayer8 | unit | No | |
TempPlayer9 | unit | No | |
TempUnit | unit | No | |
TempUnitType | unitcode | No | |
Trampa10x1 | group | No | |
Trampa10x2 | group | No | |
Trampa10x3 | group | No | |
Trampa10x4 | group | No | |
Trampa10x5 | group | No | |
Trampa10x6 | group | No | |
Trampa10x7 | group | No | |
Trampa10xAll | group | No | |
Trampa11x1 | group | No | |
Trampa11x2 | group | No | |
Trampa11x3 | group | No | |
Trampa11x4 | group | No | |
Trampa11x5 | group | No | |
Trampa11x6 | group | No | |
Trampa11x7 | group | No | |
Trampa11xAll | group | No | |
Trampa12x1 | group | No | |
Trampa12x2 | group | No | |
Trampa12x3 | group | No | |
Trampa12x4 | group | No | |
Trampa12x5 | group | No | |
Trampa12x6 | group | No | |
Trampa12x7 | group | No | |
Trampa12xAll | group | No | |
Trampa13x1 | group | No | |
Trampa13x2 | group | No | |
Trampa13x3 | group | No | |
Trampa13x4 | group | No | |
Trampa13x5 | group | No | |
Trampa13x6 | group | No | |
Trampa13x7 | group | No | |
Trampa13xAll | group | No | |
Trampa1x1 | group | No | |
Trampa1x2 | group | No | |
Trampa1x3 | group | No | |
Trampa1x4 | group | No | |
Trampa1x5 | group | No | |
Trampa1x6 | group | No | |
Trampa1x7 | group | No | |
Trampa1xAll | group | No | |
Trampa2x1 | group | No | |
Trampa2x2 | group | No | |
Trampa2x3 | group | No | |
Trampa2x4 | group | No | |
Trampa2x5 | group | No | |
Trampa2x6 | group | No | |
Trampa2x7 | group | No | |
Trampa2xAll | group | No | |
Trampa3x1 | group | No | |
Trampa3x2 | group | No | |
Trampa3x3 | group | No | |
Trampa3x4 | group | No | |
Trampa3x5 | group | No | |
Trampa3x6 | group | No | |
Trampa3x7 | group | No | |
Trampa3xAll | group | No | |
Trampa4x1 | group | No | |
Trampa4x2 | group | No | |
Trampa4x3 | group | No | |
Trampa4x4 | group | No | |
Trampa4x5 | group | No | |
Trampa4x6 | group | No | |
Trampa4x7 | group | No | |
Trampa4xAll | group | No | |
Trampa5x1 | group | No | |
Trampa5x2 | group | No | |
Trampa5x3 | group | No | |
Trampa5x4 | group | No | |
Trampa5x5 | group | No | |
Trampa5x6 | group | No | |
Trampa5x7 | group | No | |
Trampa5xAll | group | No | |
Trampa6x1 | group | No | |
Trampa6x2 | group | No | |
Trampa6x3 | group | No | |
Trampa6x4 | group | No | |
Trampa6x5 | group | No | |
Trampa6x6 | group | No | |
Trampa6x7 | group | No | |
Trampa6xAll | group | No | |
Trampa7x1 | group | No | |
Trampa7x2 | group | No | |
Trampa7x3 | group | No | |
Trampa7x4 | group | No | |
Trampa7x5 | group | No | |
Trampa7x6 | group | No | |
Trampa7x7 | group | No | |
Trampa7xAll | group | No | |
Trampa8x1 | group | No | |
Trampa8x2 | group | No | |
Trampa8x3 | group | No | |
Trampa8x4 | group | No | |
Trampa8x5 | group | No | |
Trampa8x6 | group | No | |
Trampa8x7 | group | No | |
Trampa8xAll | group | No | |
Trampa9x1 | group | No | |
Trampa9x2 | group | No | |
Trampa9x3 | group | No | |
Trampa9x4 | group | No | |
Trampa9x5 | group | No | |
Trampa9x6 | group | No | |
Trampa9x7 | group | No | |
Trampa9xAll | group | No | |
TrampaRuinaSumergida | group | No | |
TrampaRuinaSumergida1 | group | No | |
tst | unit | No | |
u1 | unit | No | |
u1_Copiar | unit | No | |
UnitGroup | group | No | |
Validate | boolean | No | |
WereWolf | integer | No |
function Trig_Revivir_Arboles_Actions takes nothing returns nothing
local destructable BADTREE = GetDyingDestructable()
call TriggerSleepAction( 60.00 )
call DestructableRestoreLife( BADTREE, GetDestructableMaxLife(BADTREE), true )
endfunction
//===========================================================================
function InitTrig_Revivir_Arboles takes nothing returns nothing
set gg_trg_Revivir_Arboles = CreateTrigger( )
call TriggerAddAction( gg_trg_Revivir_Arboles, function Trig_Revivir_Arboles_Actions )
endfunction
function Trig_Revivir_Arboles_Setup_Func001A takes nothing returns nothing
call TriggerRegisterDeathEvent( gg_trg_Revivir_Arboles, GetEnumDestructable() )
endfunction
function Trig_Revivir_Arboles_Setup_Actions takes nothing returns nothing
call EnumDestructablesInRectAll( GetEntireMapRect(), function Trig_Revivir_Arboles_Setup_Func001A )
endfunction
//===========================================================================
function InitTrig_Revivir_Arboles_Setup takes nothing returns nothing
set gg_trg_Revivir_Arboles_Setup = CreateTrigger( )
call TriggerRegisterTimerEventSingle( gg_trg_Revivir_Arboles_Setup, 5 )
call TriggerAddAction( gg_trg_Revivir_Arboles_Setup, function Trig_Revivir_Arboles_Setup_Actions )
endfunction
function Combine_Items_Conditions takes nothing returns boolean
return GetItemCharges(GetManipulatedItem()) > 0
endfunction
function Combine_Items_Actions takes nothing returns nothing
local item NEWITEM = GetManipulatedItem()
local unit OURUNIT = GetManipulatingUnit()
local integer MAXIMUM = 100 //The max no. of charges allowed
local integer ITEMCOUNT = 0
local integer ITEMLOOP = 0
local integer CHARGES = 0
loop
exitwhen ITEMLOOP > 6
if GetItemTypeId(NEWITEM) == GetItemTypeId(UnitItemInSlot(OURUNIT, ITEMLOOP)) then
if GetItemCharges(UnitItemInSlot(OURUNIT, ITEMLOOP)) + GetItemCharges(NEWITEM) <= MAXIMUM then
if not (UnitItemInSlot(OURUNIT, ITEMLOOP) == NEWITEM) then
set CHARGES = GetItemCharges(UnitItemInSlot(OURUNIT, ITEMLOOP)) + GetItemCharges(NEWITEM)
call SetItemCharges(UnitItemInSlot(OURUNIT, ITEMLOOP), CHARGES)
call RemoveItem(NEWITEM)
set ITEMLOOP = 7
endif
endif
endif
if (ITEMLOOP < 7) then
set ITEMLOOP = ITEMLOOP + 1
endif
endloop
set NEWITEM = null
set OURUNIT = null
endfunction
function InitTrig_Combine_Items takes nothing returns nothing
set gg_trg_Combine_Items = CreateTrigger( )
call TriggerRegisterAnyUnitEventBJ( gg_trg_Combine_Items, EVENT_PLAYER_UNIT_PICKUP_ITEM )
call TriggerAddCondition( gg_trg_Combine_Items, Condition( function Combine_Items_Conditions ) )
call TriggerAddAction( gg_trg_Combine_Items, function Combine_Items_Actions )
endfunction