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_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_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 = "|cffff9999" + c + "|r" + r
elseif c == "-" then
set r = "|cffdddddd-|r" + r
elseif c == "a" or c == "b" or c == "c" or c == "d" or c == "e" or c == "f" or c == "g" or c == "h" or c == "i" or c == "j" or c == "k" or c == "l" or c == "m" or c == "n" or c == "o" or c == "p" or c == "q" or c == "r" or c == "s" or c == "t" or c == "u" or c == "v" or c == "w" or c == "x" or c == "y" or c == "z" then
set r = "|cff99ff99" + c + "|r" + r
elseif c == "A" or c == "B" or c == "C" or c == "D" or c == "E" or c == "F" or c == "G" or c == "H" or c == "I" or c == "J" or c == "K" or c == "L" or c == "M" or c == "N" or c == "O" or c == "P" or c == "Q" or c == "R" or c == "S" or c == "T" or c == "U" or c == "V" or c == "W" or c == "X" or c == "Y" or c == "Z" then
set r = "|cff9999ff" + c + "|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_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
return true
endif
return false
endfunction
function WriteToFile takes nothing returns nothing
call PreloadGenClear()
call PreloadGenStart()
if udg_ImpossibleMode == true then
call Preload("\n\nCode:\n-imposs " + udg_ColorlessCode + "\n\n\n")
elseif udg_InsaneMode == true then
call Preload("\n\nCode:\n-insane " + udg_ColorlessCode + "\n\n\n")
elseif udg_HardMode == true then
call Preload("\n\nCode:\n-hard " + udg_ColorlessCode + "\n\n\n")
else
call Preload("\n\nCode:\n-normal " + udg_ColorlessCode + "\n\n\n")
endif
call PreloadGenEnd(udg_SaveLoad_FileName + ".txt")
endfunction
function SaveLoad_SaveAttributes takes nothing returns integer
return (udg_SaveLoad_BonusAttribute[1] * 10000) + (udg_SaveLoad_BonusAttribute[2] * 100) + udg_SaveLoad_BonusAttribute[3]
endfunction
function SaveLoad_SaveSpells takes unit u returns integer
local integer a
local integer b
local integer c
local integer d
local integer i
local integer j
set i = 0
loop
exitwhen i > 5
if GetUnitTypeId(u) == udg_SaveLoad_HeroType[i] then
set j = i
set i = 5
endif
set i = i + 1
endloop
set a = ( GetUnitAbilityLevelSwapped(udg_SaveLoad_Ability1[j], u) * 1000 )
set b = ( GetUnitAbilityLevelSwapped(udg_SaveLoad_Ability2[j], u) * 100 )
set c = ( GetUnitAbilityLevelSwapped(udg_SaveLoad_Ability3[j], u) * 10 )
set d = ( GetUnitAbilityLevelSwapped(udg_SaveLoad_Ability4[j], u))
return a + b + c + d
endfunction
function SaveLoad_GetItemChargeInSlot takes unit u, integer s returns integer
local integer n
if ( UnitItemInSlotBJ(u, s) == null ) then
return 0
else
set n = GetItemCharges(UnitItemInSlotBJ(u, s))
if ( n == 0 ) then
return 1
else
return n+1
endif
endif
endfunction
function SaveLoad_SaveCharges takes unit u returns integer
local integer a
local integer b
local integer c
local integer d
local integer e
local integer f
set a = SaveLoad_GetItemChargeInSlot(u, 1) * 100000
set b = SaveLoad_GetItemChargeInSlot(u, 2) * 10000
set c = SaveLoad_GetItemChargeInSlot(u, 3) * 1000
set d = SaveLoad_GetItemChargeInSlot(u, 4) * 100
set e = SaveLoad_GetItemChargeInSlot(u, 5) * 10
set f = SaveLoad_GetItemChargeInSlot(u, 6)
return a + b + c + d + e + f
endfunction
function SaveLoad_SaveItemsA takes unit u returns integer
local integer a
local integer b
local integer c
set a = SaveLoad_Item2Integer( UnitItemInSlotBJ(u, 1) ) * 1000000
set b = SaveLoad_Item2Integer( UnitItemInSlotBJ(u, 2) ) * 1000
set c = SaveLoad_Item2Integer( UnitItemInSlotBJ(u, 3) )
return a + b + c
endfunction
function SaveLoad_SaveItemsB takes unit u returns integer
local integer a
local integer b
local integer c
set a = SaveLoad_Item2Integer( UnitItemInSlotBJ(u, 4) ) * 1000000
set b = SaveLoad_Item2Integer( UnitItemInSlotBJ(u, 5) ) * 1000
set c = SaveLoad_Item2Integer( UnitItemInSlotBJ(u, 6) )
return a + b + c
endfunction
function SaveLoad_LearnSpell takes unit u, integer a, integer i returns nothing
local integer j
if (i >= 0) then
set j = 1
loop
exitwhen j > i
call SelectHeroSkill( u, a)
set j = j + 1
endloop
endif
endfunction
function SaveLoad_LoadSpells takes integer c, unit u returns nothing
local integer i
local integer j
set i = 0
loop
exitwhen i > 5
if GetUnitTypeId(u) == udg_SaveLoad_HeroType[i] then
set j = i
set i = 5
endif
set i = i + 1
endloop
call SaveLoad_LearnSpell(u, udg_SaveLoad_Ability1[j], ModuloInteger(( c / 1000 ), 10))
call SaveLoad_LearnSpell(u, udg_SaveLoad_Ability2[j], ModuloInteger(( c / 100 ), 10))
call SaveLoad_LearnSpell(u, udg_SaveLoad_Ability3[j], ModuloInteger(( c / 10 ), 10))
call SaveLoad_LearnSpell(u, udg_SaveLoad_Ability4[j], ModuloInteger(( c ), 10))
endfunction
function SaveLoad_AddItem takes integer x, unit u returns nothing
call UnitAddItemByIdSwapped( x, u )
if ( UnitHasItem(u, GetLastCreatedItem()) == false ) then
call SaveLoad_AddItem( x, u )
endif
endfunction
function SaveLoad_LoadItems takes integer c, unit u returns nothing
call SaveLoad_AddItem( SaveLoad_Integer2Item( ModuloInteger(( c / 1000000 ), 1000) ), u)
call SaveLoad_AddItem( SaveLoad_Integer2Item( ModuloInteger(( c / 1000 ), 1000) ), u)
call SaveLoad_AddItem( SaveLoad_Integer2Item( ModuloInteger(( c ), 1000) ), u)
endfunction
function SaveLoad_RemoveDummyItem takes integer s, unit u returns nothing
if ( GetItemTypeId(UnitItemInSlotBJ(u, s)) == udg_SaveLoad_Items[0] ) then
call RemoveItem( UnitItemInSlotBJ(u, s) )
endif
endfunction
function SaveLoad_LoadCharges takes integer c, unit u returns nothing
call SaveLoad_RemoveDummyItem(1, u)
call SaveLoad_RemoveDummyItem(2, u)
call SaveLoad_RemoveDummyItem(3, u)
call SaveLoad_RemoveDummyItem(4, u)
call SaveLoad_RemoveDummyItem(5, u)
call SaveLoad_RemoveDummyItem(6, u)
call SetItemCharges( UnitItemInSlotBJ(u, 1), ModuloInteger(( c / 100000 ), 10) - 1 )
call SetItemCharges( UnitItemInSlotBJ(u, 2), ModuloInteger(( c / 10000 ), 10) - 1 )
call SetItemCharges( UnitItemInSlotBJ(u, 3), ModuloInteger(( c / 1000 ), 10) - 1 )
call SetItemCharges( UnitItemInSlotBJ(u, 4), ModuloInteger(( c / 100 ), 10) - 1 )
call SetItemCharges( UnitItemInSlotBJ(u, 5), ModuloInteger(( c / 10 ), 10) - 1 )
call SetItemCharges( UnitItemInSlotBJ(u, 6), ModuloInteger(( c ), 10) - 1 )
endfunction
function SaveLoad_LoadAttributes takes integer c returns nothing
set udg_SaveLoad_BonusAttribute[1] = ModuloInteger(( c / 10000 ), 100)
set udg_SaveLoad_BonusAttribute[2] = ModuloInteger(( c / 100 ), 100)
set udg_SaveLoad_BonusAttribute[3] = ModuloInteger(( c ), 100)
endfunction
Name | Type | is_array | initial_value |
Ability1 | integer | No | |
Ability2 | integer | No | |
Ability3 | integer | No | |
AP1_Player | player | No | |
ArcherCin1 | unit | No | |
ArcherCin2 | unit | No | |
BlinkHintVM | fogmodifier | No | |
BlinkWaterDisabled | boolean | No | |
Bridge | destructable | No | |
BridgePlateBroken | boolean | No | |
BridgePlatesGlowing | boolean | No | |
BrokenStairsVM | fogmodifier | No | |
BrokenStairsVMExists | boolean | No | |
CameraReturnPoint | location | No | |
ChaosDistance | real | No | 1500.00 |
ChaosGroup_All | group | No | |
ChaosGroupA | group | No | |
ChaosGroupB | group | No | |
ChaosGroupC | group | No | |
ChaosGroupD | group | No | |
ChaosGroupE | group | No | |
ChaosGroupF | group | No | |
ChaosGroupG | group | No | |
ChaosGroupH | group | No | |
ChaosGroupI | group | No | |
ChaosGroupJ | group | No | |
ChaosGroupK | group | No | |
ChaosGroupL | group | No | |
ChaosSource_All | group | No | |
ChaosSourceA | group | No | |
ChaosSourceB | group | No | |
ChaosSourceC | group | No | |
ChaosSourceD | group | No | |
ChaosSourceE | group | No | |
ChaosSourceF | group | No | |
ChaosSourceG | group | No | |
ChaosSourceH | group | No | |
ChaosSourceI | group | No | |
ChaosSourceJ | group | No | |
ChaosSourceK | group | No | |
ChaosSourceL | group | No | |
Code | string | No | |
ColorlessCode | string | No | |
CombatCheckTimer | timer | No | |
DeathGuardEpic | unit | No | |
DoorBroken | boolean | No | |
DoorPlatesGlowing | boolean | No | |
EscapeRuneA | item | No | ItemNull |
EscapeRuneB | item | No | ItemNull |
EscapeRuneC | item | No | ItemNull |
EscapeRuneD | item | No | ItemNull |
EscapeRuneE | item | No | ItemNull |
EscapeRuneF | item | No | ItemNull |
EscapeRuneG | item | No | ItemNull |
EscapeTime | real | No | |
EscapeTimer | timer | No | |
EscapeTimerCreated | boolean | No | |
EscapeTimerWindow | timerdialog | No | |
Escaping | boolean | No | |
ExpDisabledForMaiev | boolean | No | false |
EyeRockEffectsIn | boolean | No | |
EyeSkipped | boolean | No | false |
FelhoundA | unit | No | |
FelhoundB | unit | No | |
FelhoundC | unit | No | |
FelhoundD | unit | No | |
FinalCinDestroyGroup | group | No | |
FloorPlate01A | destructable | No | |
FloorPlate01B | destructable | No | |
FloorPlate01C | destructable | No | |
FloorPlate01D | destructable | No | |
FloorPlate02A | destructable | No | |
FloorPlate02B | destructable | No | |
FloorPlate02C | destructable | No | |
FloorPlate02D | destructable | No | |
GameOver | boolean | No | false |
GateVisibilityRevealer | fogmodifier | No | |
GDD__Integers | integer | Yes | |
GDD__LeftMapGroup | group | No | |
GDD__TriggerArray | trigger | Yes | |
GDD__UnitArray | unit | Yes | |
GDD_Damage | real | No | |
GDD_DamagedUnit | unit | No | |
GDD_DamageSource | unit | No | |
GDD_Event | real | No | |
Glyph2Skipped | boolean | No | |
Glyph3Skipped | boolean | No | |
Guldan | unit | No | |
GuldansForces | group | No | |
GuldansWarlocks | group | No | |
HardMode | boolean | No | |
Hero1 | unit | No | |
Hero2 | unit | No | |
HiddenUnits | group | No | |
HydraPoolVM | fogmodifier | No | |
HydraPoolVMExists | boolean | No | |
IconQuestBarrier01 | minimapicon | No | |
IconQuestBarrier02 | minimapicon | No | |
IconQuestBarrier03 | minimapicon | No | |
IconQuestIllidian | minimapicon | No | |
IconQuestOrb01 | minimapicon | No | |
IconQuestOrb02 | minimapicon | No | |
IconQuestOrb03 | minimapicon | No | |
IconQuestOrb04 | minimapicon | No | |
IconQuestOrb05 | minimapicon | No | |
IconQuestOrb06 | minimapicon | No | |
IconQuestOrb07 | minimapicon | No | |
IconQuestOrb08 | minimapicon | No | |
IconQuestOrb09 | minimapicon | No | |
IconQuestOrb10 | minimapicon | No | |
Illidan | unit | No | |
ImpossibleMode | boolean | No | |
InCinematic | boolean | No | false |
InCombat | boolean | No | false |
InFlashback | boolean | No | |
InsaneMode | boolean | No | |
IntroArcherA | unit | No | |
IntroArcherB | unit | No | |
IntroArcherC | unit | No | |
IntroHuntressB | unit | No | |
IntroSkipped | boolean | No | false |
IntroStartingUnits | group | No | |
Key | item | No | |
Maiev | unit | No | UnitNull |
MaievReturnSpot | location | No | |
MiniMapMarkerSet | boolean | No | |
Naisha | unit | No | UnitNull |
NaishaCin | unit | No | |
NaishaDummy | unitcode | No | |
NaishaEquity | abilcode | No | |
NaishaShimmer | abilcode | No | |
NaishaShimmerGroup | group | No | |
NaishaShimmerTarget | location | No | |
NaishaSpirit | unit | No | |
NaishaUmbra | abilcode | No | |
NaishaUmbraBuff | buffcode | No | |
NaishaUmbraDummySpell | abilcode | No | |
NaishaUmbraEffectSpell | abilcode | No | |
NaishaUmbraGlaiveGroup | group | No | |
NaishaUmbraUpgrade | techcode | No | |
NaishaUType | unitcode | No | |
OrbFragmentsFound | integer | No | 0 |
OrbItem | item | No | ItemNull |
OrbItemTypes | itemcode | Yes | |
OrbLeaderboard | leaderboard | No | |
OrbLeaderboardExists | boolean | No | |
P1 | player | No | |
P2 | player | No | |
P4_Illidan | player | No | Player03 |
P5_Cinaga | player | No | Player04 |
P7_Guardians | player | No | Player06 |
PBlue_Reinforcements | player | No | Player01 |
PlatePressedSound | sound | No | |
PointChaosGroupB | location | No | |
PointChaosGroupE | location | No | |
PointChaosGroupI | location | No | |
PointChaosGroupK | location | No | |
PointEscapeRuneA | location | No | |
PointEscapeRuneB | location | No | |
PointEscapeRuneC | location | No | |
PointEscapeRuneD | location | No | |
PointEscapeRuneE | location | No | |
PointEscapeRuneF | location | No | |
PointEscapeRuneG | location | No | |
PointEscapeTripwire | location | No | |
PointEyeMaievFinish | location | No | |
PointEyeSFXRock01 | location | No | |
PointEyeSFXRock02 | location | No | |
PointEyeSFXRock03 | location | No | |
PointEyeSFXRock04 | location | No | |
PointEyeSFXRock05 | location | No | |
PointEyeSFXRock06 | location | No | |
PointEyeSFXRock07 | location | No | |
PointEyeSFXRock08 | location | No | |
PointEyeSFXRock09 | location | No | |
PointEyeSFXRock10 | location | No | |
PointEyeSFXRock11 | location | No | |
PointEyeSFXRock12 | location | No | |
PointMaiev | location | No | |
PointRushGroupC | location | No | |
PointRushGroupH | location | No | |
PointRushGroupJ | location | No | |
PointRushGroupL | location | No | |
QuakeTimer | timer | No | |
QuestBarriers | quest | No | |
QuestBarriersDestroy | questitem | No | |
QuestEscape | quest | No | |
QuestEscapeBring | questitem | No | |
QuestEscapeSurvive | questitem | No | |
QuestIllidan | quest | No | |
QuestIllidanFind | questitem | No | |
QuestIllidanSurvive | questitem | No | |
QuestOrb | quest | No | |
QuestOrbFind | questitem | No | |
R1 | group | No | |
R1Rescued | boolean | No | |
R1RocksAntiVM | fogmodifier | No | |
R2 | group | No | |
R2Rescued | boolean | No | |
R2RocksAntiVM | fogmodifier | No | |
R3 | group | No | |
R3Rescued | boolean | No | |
R3RocksAntiVM | fogmodifier | No | |
RampartLedge1VM | fogmodifier | No | |
RampartLedge1VMExists | boolean | No | |
RampartLedge2VM | fogmodifier | No | |
RampartLedge2VMExists | boolean | No | |
ResControlInt | integer | No | |
Resetting | boolean | No | |
RevivalAltar | unit | No | UnitNull |
RevivalHero | unit | No | UnitNull |
RevivalReturnSpot | location | No | |
RevivalSpot | location | No | |
RushDistance | real | No | 1300.00 |
Save | integer | Yes | |
SaveCount | integer | No | |
SaveLoad_Ability1 | abilcode | Yes | |
SaveLoad_Ability2 | abilcode | Yes | |
SaveLoad_Ability3 | abilcode | Yes | |
SaveLoad_Ability4 | abilcode | Yes | |
SaveLoad_Alphabet | string | No | |
SaveLoad_AttributeAbility | abilcode | Yes | |
SaveLoad_BonusAttribute | integer | Yes | |
SaveLoad_CaseSensitive | boolean | No | |
SaveLoad_Compress | integer | Yes | |
SaveLoad_CustomHeroType | unitcode | No | |
SaveLoad_FileName | string | No | |
SaveLoad_HeroType | unitcode | Yes | |
SaveLoad_Initialized | boolean | No | |
SaveLoad_Items | itemcode | Yes | |
SaveLoad_Items_LastIndex | integer | No | |
SaveLoad_MissionNo | integer | No | |
SaveLoad_Uncompress | integer | Yes | |
SaveLoad_UsePlayername | boolean | No | |
SelectedUnits | group | No | |
SerpentsSkipped | boolean | No | |
ShamanA | unit | No | |
ShamanB | unit | No | |
ShamanC | unit | No | |
ShamanD | unit | No | |
ShamanE | unit | No | |
ShamanF | unit | No | |
ShamanG | unit | No | |
ShamanH | unit | No | |
SkelArcherA | unit | No | |
SkelArcherB | unit | No | |
SkelArcherC | unit | No | |
SkelArchers | group | No | |
SlimeDoor | destructable | No | |
Speaker | unit | No | |
SpeakingDistance | real | No | 1500.00 |
SpeakingOverlord | unit | No | |
TempBool | boolean | No | |
TempDistance | real | No | |
TempInt | integer | No | |
TempPlayer | player | No | |
TempPoint | location | No | |
TempPoint2 | location | No | |
TempPoint2_Copy | location | No | |
TempPoint_Copy | location | No | |
TempReal | real | No | |
TempUGroup | group | No | |
TempUnit | unit | No | |
tempX | real | No | |
tempY | real | No | |
Text_CampaignName | string | No | |
Text_ChapterName | string | No | |
Text_ChapterNo | string | No | |
Text_IsStart | boolean | No | |
Validate | boolean | No | |
Vashj | unit | No | |
VictoryDemon | unit | No | |
VictoryHoundA | unit | No | |
VictoryHoundB | unit | No | |
VictoryHoundC | unit | No | |
VictoryHoundD | unit | No | |
VictorySkipped | boolean | No | false |
VSourceBrokenStairs | location | No | |
VSourcePlate01A | location | No | |
VSourcePlate01B | location | No | |
VSourcePlate02A | location | No | |
VSourcePlate02B | location | No | |
VSourcePlate02C | location | No | |
VSourcePlate02D | location | No | |
VSourceRampart1A | location | No | |
VSourceRampart1B | location | No | |
Weather01Fog | weathereffect | No | |
Weather01Rays | weathereffect | No | |
Weather02Fog | weathereffect | No | |
Weather02Rays | weathereffect | No | |
Weather03Fog | weathereffect | No | |
Weather03Rays | weathereffect | No | |
WhichGroup | group | No | |
WhichSource | group | No | |
x | real | No | |
y | real | No |
// GUI-Friendly Damage Detection -- v1.2.1 -- by Weep
// http:// www.thehelper.net/forums/showthread.php?t=137957
//
// Requires: only this trigger and its variables.
//
// -- What? --
// This snippet provides a leak-free, GUI-friendly implementation of an "any unit takes
// damage" event. It requires no JASS knowledge to use.
//
// It uses the Game - Value Of Real Variable event as its method of activating other
// triggers, and passes the event responses through a few globals.
//
// -- Why? --
// The traditional GUI method of setting up a trigger than runs when any unit is damaged
// leaks trigger events. This snippet is easy to implement and removes the need to do
// you own GUI damage detection setup.
//
// -- How To Implement --
// 0. Before you copy triggers that use GDD into a new map, you need to copy over GDD
// with its GDD Variable Creator trigger, or there will be a problem: the variables
// won't be automatically created correctly.
//
// 1. Be sure "Automatically create unknown variables while pasting trigger data" is
// enabled in the World Editor general preferences.
// 2. Copy this trigger category ("GDD") and paste it into your map.
// (Alternately: create the variables listed in the globals block below, create a
// trigger named "GUI Friendly Damage Detection", and paste in this entire text.)
// 3. Create your damage triggers using Game - Value Of Real Variable as the event,
// select GDD_Event as the variable, and leave the rest of the settings to the default
// "becomes Equal to 0.00".
// The event responses are the following variables:
// GDD_Damage is the amount of damage, replacing Event Response - Damage Taken.
// GDD_DamagedUnit is the damaged unit, replacing Event Response - Triggering Unit.
// Triggering Unit can still be used, if you need to use waits.
// Read the -- Notes -- section below for more info.
// GDD_DamageSource is the damaging unit, replacing Event Response - Damage Source.
//
// -- Notes --
// GDD's event response variables are not wait-safe; you can't use them after a wait in
// a trigger. If you need to use waits, Triggering Unit (a.k.a. GetTriggerUnit()) can
// be used in place of GDD_DamageSource. There is no usable wait-safe equivalent to
// Event Damage or Damage Source; you'll need to save the values yourself.
//
// Don't write any values to the variables used as the event responses, or it will mess
// up any other triggers using this snippet for their triggering. Only use their values.
//
// This uses arrays, so can detect damage for a maximum of 8190 units at a time, and
// cleans up data at a rate of 33.33 per second, by default. This should be enough for
// most maps, but if you want to change the rate, change the value returned in the
// GDD_RecycleRate function at the top of the code, below.
//
// By default, GDD will not register units that have Locust at the moment of their
// entering the game, and will not recognize when they take damage (which can only
// happen if the Locust ability is later removed from the unit.) To allow a unit to have
// Locust yet still cause GDD damage events if Locust is removed, you can either design
// the unit to not have Locust by default and add it via triggers after creation, or
// edit the GDD_Filter function at the top of the code, below.
//
// -- Credits --
// Captain Griffin on wc3c.net for the research and concept of GroupRefresh.
//
// Credit in your map not needed, but please include this README.
//
// -- Version History --
// 1.2.1: Minor code cleaning. Added configuration functions. Updated documentation.
// 1.2.0: Made this snippet work properly with recursive damage.
// 1.1.1: Added a check in order to not index units with the Locust ability (dummy units).
// If you wish to check for damage taken by a unit that is unselectable, do not
// give the unit-type Locust in the object editor; instead, add the Locust ability
// 'Aloc' via a trigger after its creation, then remove it.
// 1.1.0: Added a check in case a unit gets moved out of the map and back.
// 1.0.0: First release.
//===================================================================
// Configurables.
function GDD_RecycleRate takes nothing returns real //The rate at which the system checks units to see if they've been removed from the game
return 0.03
endfunction
function GDD_Filter takes unit u returns boolean //The condition a unit has to pass to have it registered for damage detection
return GetUnitAbilityLevel(u, 'Aloc') == 0 //By default, the system ignores Locust units, because they normally can't take damage anyway
endfunction
//===================================================================
// This is just for reference.
// If you use JassHelper, you could uncomment this section instead of creating the variables in the trigger editor.
// globals
// real udg_GDD_Event = 0.
// real udg_GDD_Damage = 0.
// unit udg_GDD_DamagedUnit
// unit udg_GDD_DamageSource
// trigger array udg_GDD__TriggerArray
// integer array udg_GDD__Integers
// unit array udg_GDD__UnitArray
// group udg_GDD__LeftMapGroup = CreateGroup()
// endglobals
//===================================================================
// System code follows. Don't touch!
function GDD_Event takes nothing returns boolean
local unit damagedcache = udg_GDD_DamagedUnit
local unit damagingcache = udg_GDD_DamageSource
local real damagecache = udg_GDD_Damage
set udg_GDD_DamagedUnit = GetTriggerUnit()
set udg_GDD_DamageSource = GetEventDamageSource()
set udg_GDD_Damage = GetEventDamage()
set udg_GDD_Event = 1.
set udg_GDD_Event = 0.
set udg_GDD_DamagedUnit = damagedcache
set udg_GDD_DamageSource = damagingcache
set udg_GDD_Damage = damagecache
set damagedcache = null
set damagingcache = null
return false
endfunction
function GDD_AddDetection takes nothing returns boolean
// if(udg_GDD__Integers[0] > 8190) then
// call BJDebugMsg("GDD: Too many damage events! Decrease number of units present in the map or increase recycle rate.")
// ***Recycle rate is specified in the GDD_RecycleRate function at the top of the code. Smaller is faster.***
// return
// endif
if(IsUnitInGroup(GetFilterUnit(), udg_GDD__LeftMapGroup)) then
call GroupRemoveUnit(udg_GDD__LeftMapGroup, GetFilterUnit())
elseif(GDD_Filter(GetFilterUnit())) then
set udg_GDD__Integers[0] = udg_GDD__Integers[0]+1
set udg_GDD__UnitArray[udg_GDD__Integers[0]] = GetFilterUnit()
set udg_GDD__TriggerArray[udg_GDD__Integers[0]] = CreateTrigger()
call TriggerRegisterUnitEvent(udg_GDD__TriggerArray[udg_GDD__Integers[0]], udg_GDD__UnitArray[udg_GDD__Integers[0]], EVENT_UNIT_DAMAGED)
call TriggerAddCondition(udg_GDD__TriggerArray[udg_GDD__Integers[0]], Condition(function GDD_Event))
endif
return false
endfunction
function GDD_PreplacedDetection takes nothing returns nothing
local group g = CreateGroup()
local integer i = 0
loop
call GroupEnumUnitsOfPlayer(g, Player(i), Condition(function GDD_AddDetection))
set i = i+1
exitwhen i == bj_MAX_PLAYER_SLOTS
endloop
call DestroyGroup(g)
set g = null
endfunction
function GDD_GroupRefresh takes nothing returns nothing
// Based on GroupRefresh by Captain Griffen on wc3c.net
if (bj_slotControlUsed[5063] == true) then
call GroupClear(udg_GDD__LeftMapGroup)
set bj_slotControlUsed[5063] = false
endif
call GroupAddUnit(udg_GDD__LeftMapGroup, GetEnumUnit())
endfunction
function GDD_Recycle takes nothing returns nothing
if(udg_GDD__Integers[0] <= 0) then
return
elseif(udg_GDD__Integers[1] <= 0) then
set udg_GDD__Integers[1] = udg_GDD__Integers[0]
endif
if(GetUnitTypeId(udg_GDD__UnitArray[udg_GDD__Integers[1]]) == 0) then
call DestroyTrigger(udg_GDD__TriggerArray[udg_GDD__Integers[1]])
set udg_GDD__TriggerArray[udg_GDD__Integers[1]] = null
set udg_GDD__TriggerArray[udg_GDD__Integers[1]] = udg_GDD__TriggerArray[udg_GDD__Integers[0]]
set udg_GDD__UnitArray[udg_GDD__Integers[1]] = udg_GDD__UnitArray[udg_GDD__Integers[0]]
set udg_GDD__UnitArray[udg_GDD__Integers[0]] = null
set udg_GDD__Integers[0] = udg_GDD__Integers[0]-1
endif
set udg_GDD__Integers[1] = udg_GDD__Integers[1]-1
endfunction
function GDD_LeaveMap takes nothing returns boolean
local boolean cached = bj_slotControlUsed[5063]
if(udg_GDD__Integers[2] < 64) then
set udg_GDD__Integers[2] = udg_GDD__Integers[2]+1
else
set bj_slotControlUsed[5063] = true
call ForGroup(udg_GDD__LeftMapGroup, function GDD_GroupRefresh)
set udg_GDD__Integers[2] = 0
endif
call GroupAddUnit(udg_GDD__LeftMapGroup, GetFilterUnit())
set bj_slotControlUsed[5063] = cached
return false
endfunction
// ===========================================================================
function InitTrig_GUI_Friendly_Damage_Detection takes nothing returns nothing
local region r = CreateRegion()
call RegionAddRect(r, GetWorldBounds())
call TriggerRegisterEnterRegion(CreateTrigger(), r, Condition(function GDD_AddDetection))
call TriggerRegisterLeaveRegion(CreateTrigger(), r, Condition(function GDD_LeaveMap))
call GDD_PreplacedDetection()
call TimerStart(CreateTimer(), GDD_RecycleRate(), true, function GDD_Recycle)
set r = null
endfunction