// this script was compiled with wurst 1.5.0.0-jenkins-Wurst-125
globals
hashtable w=null
integer u=0
item r=null
boolean array s
timer t=null
real i=0.
integer array S
integer c=0
integer o=0
integer array O
integer l=0
integer b=0
code y=null
code p=null
code e=null
endglobals
native getMaNumber takes nothing returns integer
function j takes nothing returns integer
local integer k
if c==0 then
set o=o+1
set k=o
else
set c=c-1
set k=S[c]
endif
set O[k]=3
return k
endfunction
function E takes nothing returns nothing
local string W
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"bla")
set W=I2S(getMaNumber())
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,W)
endfunction
function Q takes nothing returns nothing
set i=i+0.03
endfunction
function m takes nothing returns nothing
local player x = GetTriggerPlayer()
local integer v = GetPlayerId(x)
if s[v] then
set s[v]=false
call DisplayTimedTextToPlayer(x,0.,0.,20.,"|cff9C9C9CDEBUG-View|r |cffB55208deactivated")
else
set s[v]=true
call DisplayTimedTextToPlayer(x,0.,0.,20.,"|cff9C9C9CDEBUG-View|r |cff3AAD42activated")
endif
set x=null
endfunction
function q takes nothing returns nothing
set c=0
set o=0
set l=0
set b=0
set y=function m
set p=function Q
set e=function E
endfunction
function main takes nothing returns nothing
local real a
local player n
local player d
local trigger f
local integer R
local integer T
local integer Y
local integer G
call q()
call SetCameraBounds((-3328.0)+GetCameraMargin(CAMERA_MARGIN_LEFT),(-3584.0)+GetCameraMargin(CAMERA_MARGIN_BOTTOM),3328.0-GetCameraMargin(CAMERA_MARGIN_RIGHT),3072.0-GetCameraMargin(CAMERA_MARGIN_TOP),(-3328.0)+GetCameraMargin(CAMERA_MARGIN_LEFT),3072.0-GetCameraMargin(CAMERA_MARGIN_TOP),3328.0-GetCameraMargin(CAMERA_MARGIN_RIGHT),(-3584.0)+GetCameraMargin(CAMERA_MARGIN_BOTTOM))
call SetDayNightModels("Environment\\DNC\\DNCLordaeron\\DNCLordaeronTerrain\\DNCLordaeronTerrain.mdl","Environment\\DNC\\DNCLordaeron\\DNCLordaeronUnit\\DNCLordaeronUnit.mdl")
call NewSoundEnvironment("Default")
if bj_dayAmbientSound!=null then
call StopSound(bj_dayAmbientSound,true,true)
endif
set bj_dayAmbientSound=CreateMIDISound("LordaeronSummerDay",20,20)
set a=GetFloatGameState(GAME_STATE_TIME_OF_DAY)
if a>=bj_TOD_DAWN and a<bj_TOD_DUSK then
call StartSound(bj_dayAmbientSound)
endif
if bj_nightAmbientSound!=null then
call StopSound(bj_nightAmbientSound,true,true)
endif
set bj_nightAmbientSound=CreateMIDISound("LordaeronSummerNight",20,20)
set a=GetFloatGameState(GAME_STATE_TIME_OF_DAY)
if a<bj_TOD_DAWN or a>=bj_TOD_DUSK then
call StartSound(bj_nightAmbientSound)
endif
call SetMapMusic("Music",true,0)
call CreateUnit(Player(0),1214409837,89.0,174.6,307.594)
set d=Player(bj_PLAYER_NEUTRAL_VICTIM)
set Y=0
loop
set n=Player(Y)
call SetPlayerAlliance(d,n,ALLIANCE_PASSIVE,true)
call SetPlayerAlliance(n,d,ALLIANCE_PASSIVE,false)
set Y=Y+1
exitwhen Y==bj_MAX_PLAYERS
endloop
set n=Player(PLAYER_NEUTRAL_AGGRESSIVE)
call SetPlayerAlliance(d,n,ALLIANCE_PASSIVE,true)
call SetPlayerAlliance(n,d,ALLIANCE_PASSIVE,true)
call SetPlayerState(d,PLAYER_STATE_GIVES_BOUNTY,0)
call Filter(function IssueHauntOrderAtLocBJFilter)
call Filter(function EnumDestructablesInCircleBJFilter)
call Filter(function GetUnitsInRectOfPlayerFilter)
call Filter(function GetUnitsOfTypeIdAllFilter)
call Filter(function GetUnitsOfPlayerAndTypeIdFilter)
call Filter(function MeleeTrainedUnitIsHeroBJFilter)
call Filter(function LivingPlayerUnitsOfTypeIdFilter)
set T=0
loop
exitwhen T==bj_MAX_PLAYER_SLOTS
set bj_FORCE_PLAYER[T]=CreateForce()
call ForceAddPlayer(bj_FORCE_PLAYER[T],Player(T))
set T=T+1
endloop
set bj_FORCE_ALL_PLAYERS=CreateForce()
call ForceEnumPlayers(bj_FORCE_ALL_PLAYERS,null)
call GetGameSpeed()
call IsFogEnabled()
call IsFogMaskEnabled()
set T=0
loop
exitwhen T>=bj_MAX_QUEUED_TRIGGERS
set bj_queuedExecTriggers[T]=null
set bj_queuedExecUseConds[T]=false
set T=T+1
endloop
set Y=0
set T=0
loop
exitwhen T>=bj_MAX_PLAYERS
if GetPlayerController(Player(T))==MAP_CONTROL_USER and GetPlayerSlotState(Player(T))==PLAYER_SLOT_STATE_PLAYING then
set Y=Y+1
endif
set T=T+1
endloop
set bj_rescueSound=CreateSoundFromLabel("Rescue",false,false,false,10000,10000)
call CreateSoundFromLabel("QuestNew",false,false,false,10000,10000)
call CreateSoundFromLabel("QuestUpdate",false,false,false,10000,10000)
call CreateSoundFromLabel("QuestCompleted",false,false,false,10000,10000)
call CreateSoundFromLabel("QuestFailed",false,false,false,10000,10000)
call CreateSoundFromLabel("Hint",false,false,false,10000,10000)
call CreateSoundFromLabel("SecretFound",false,false,false,10000,10000)
call CreateSoundFromLabel("ItemReward",false,false,false,10000,10000)
call CreateSoundFromLabel("Warning",false,false,false,10000,10000)
call CreateSoundFromLabel("QuestCompleted",false,false,false,10000,10000)
call CreateSoundFromLabel("QuestFailed",false,false,false,10000,10000)
set bj_delayedSuspendDecayTrig=CreateTrigger()
call TriggerRegisterTimerExpireEvent(bj_delayedSuspendDecayTrig,bj_delayedSuspendDecayTimer)
call TriggerAddAction(bj_delayedSuspendDecayTrig,function DelayedSuspendDecay)
call VersionGet()
set bj_queuedExecTimeout=CreateTrigger()
call TriggerRegisterTimerExpireEvent(bj_queuedExecTimeout,bj_queuedExecTimeoutTimer)
call TriggerAddAction(bj_queuedExecTimeout,function QueuedTriggerDoneBJ)
call InitRescuableBehaviorBJ()
set bj_dawnSound=CreateSoundFromLabel("RoosterSound",false,false,false,10000,10000)
set bj_duskSound=CreateSoundFromLabel("WolfSound",false,false,false,10000,10000)
set bj_dncSoundsDawn=CreateTrigger()
call TriggerRegisterGameStateEvent(bj_dncSoundsDawn,GAME_STATE_TIME_OF_DAY,EQUAL,bj_TOD_DAWN)
call TriggerAddAction(bj_dncSoundsDawn,function SetDNCSoundsDawn)
set bj_dncSoundsDusk=CreateTrigger()
call TriggerRegisterGameStateEvent(bj_dncSoundsDusk,GAME_STATE_TIME_OF_DAY,EQUAL,bj_TOD_DUSK)
call TriggerAddAction(bj_dncSoundsDusk,function SetDNCSoundsDusk)
set bj_dncSoundsDay=CreateTrigger()
call TriggerRegisterGameStateEvent(bj_dncSoundsDay,GAME_STATE_TIME_OF_DAY,GREATER_THAN_OR_EQUAL,bj_TOD_DAWN)
call TriggerRegisterGameStateEvent(bj_dncSoundsDay,GAME_STATE_TIME_OF_DAY,LESS_THAN,bj_TOD_DUSK)
call TriggerAddAction(bj_dncSoundsDay,function SetDNCSoundsDay)
set bj_dncSoundsNight=CreateTrigger()
call TriggerRegisterGameStateEvent(bj_dncSoundsNight,GAME_STATE_TIME_OF_DAY,LESS_THAN,bj_TOD_DAWN)
call TriggerRegisterGameStateEvent(bj_dncSoundsNight,GAME_STATE_TIME_OF_DAY,GREATER_THAN_OR_EQUAL,bj_TOD_DUSK)
call TriggerAddAction(bj_dncSoundsNight,function SetDNCSoundsNight)
call Rect(GetCameraBoundMinX()-GetCameraMargin(CAMERA_MARGIN_LEFT),GetCameraBoundMinY()-GetCameraMargin(CAMERA_MARGIN_BOTTOM),GetCameraBoundMaxX()+GetCameraMargin(CAMERA_MARGIN_RIGHT),GetCameraBoundMaxY()+GetCameraMargin(CAMERA_MARGIN_TOP))
call Rect(GetCameraBoundMinX(),GetCameraBoundMinY(),GetCameraBoundMaxX(),GetCameraBoundMaxY())
set Y=0
loop
if not GetPlayerTechResearched(Player(Y),1382576756,true) then
call SetPlayerTechMaxAllowed(Player(Y),1752331380,0)
endif
if not GetPlayerTechResearched(Player(Y),1383031403,true) then
call SetPlayerTechMaxAllowed(Player(Y),1869898347,0)
endif
call SetPlayerTechMaxAllowed(Player(Y),1970498405,bj_MAX_SKELETONS)
set Y=Y+1
exitwhen Y==bj_MAX_PLAYERS
endloop
set Y=0
loop
set bj_stockAllowedPermanent[Y]=false
set bj_stockAllowedCharged[Y]=false
set bj_stockAllowedArtifact[Y]=false
set Y=Y+1
exitwhen Y>bj_MAX_ITEM_LEVEL
endloop
call SetAllItemTypeSlots(bj_MAX_STOCK_ITEM_SLOTS)
call SetAllUnitTypeSlots(bj_MAX_STOCK_UNIT_SLOTS)
set bj_stockUpdateTimer=CreateTimer()
call TimerStart(bj_stockUpdateTimer,bj_STOCK_RESTOCK_INITIAL_DELAY,false,function StartStockUpdates)
set bj_stockItemPurchased=CreateTrigger()
call TriggerRegisterPlayerUnitEvent(bj_stockItemPurchased,Player(PLAYER_NEUTRAL_PASSIVE),EVENT_PLAYER_UNIT_SELL_ITEM,null)
call TriggerAddAction(bj_stockItemPurchased,function RemovePurchasedItem)
set bj_gameStartedTimer=CreateTimer()
call TimerStart(bj_gameStartedTimer,bj_GAME_STARTED_THRESHOLD,false,function MarkGameStarted)
call Player(15)
call Player(12)
call StringLength("0123456789")
call StringLength("0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")
set w=InitHashtable()
call j()
set T=0
set Y=bj_MAX_PLAYER_SLOTS-1
loop
exitwhen T>Y
call Player(T)
set T=T+1
endloop
set f=CreateTrigger()
call TriggerAddAction(f,y)
set Y=0
loop
exitwhen Y>11
set s[Y]=false
call TriggerRegisterPlayerChatEvent(f,Player(Y),"-d",true)
set Y=Y+1
endloop
set t=CreateTimer()
call TimerStart(t,100000.,false,null)
call TimerStart(CreateTimer(),0.03,true,p)
set Y=0
loop
exitwhen Y>9
call I2S(Y)
set Y=Y+1
endloop
set u=j()
set R=0
loop
exitwhen R>9
set T=u
set Y=StringHash(I2S(R))
if O[T]==0 then
if T==0 then
set G=StringHash("Nullpointer exception when calling Table.saveInt")
if HaveSavedInteger(w,-1,G) then
if LoadInteger(w,-1,G)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
call SaveInteger(w,-1,G,R2I(i))
call SaveBoolean(w,-1,G,false)
elseif HaveSavedBoolean(w,-1,G) then
if not LoadBoolean(w,-1,G) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,G,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,G,true)
endif
else
call SaveInteger(w,-1,G,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
endif
call I2S(1/0)
else
set G=StringHash("Called Table.saveInt on invalid object.")
if HaveSavedInteger(w,-1,G) then
if LoadInteger(w,-1,G)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
call SaveInteger(w,-1,G,R2I(i))
call SaveBoolean(w,-1,G,false)
elseif HaveSavedBoolean(w,-1,G) then
if not LoadBoolean(w,-1,G) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,G,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,G,true)
endif
else
call SaveInteger(w,-1,G,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
endif
call I2S(1/0)
endif
endif
call SaveInteger(w,T,Y,R)
set R=R+1
endloop
set Y=u
set T=StringHash("A")
if O[Y]==0 then
if Y==0 then
set R=StringHash("Nullpointer exception when calling Table.saveInt")
if HaveSavedInteger(w,-1,R) then
if LoadInteger(w,-1,R)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
call SaveInteger(w,-1,R,R2I(i))
call SaveBoolean(w,-1,R,false)
elseif HaveSavedBoolean(w,-1,R) then
if not LoadBoolean(w,-1,R) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call SaveInteger(w,-1,R,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
endif
call I2S(1/0)
else
set R=StringHash("Called Table.saveInt on invalid object.")
if HaveSavedInteger(w,-1,R) then
if LoadInteger(w,-1,R)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
call SaveInteger(w,-1,R,R2I(i))
call SaveBoolean(w,-1,R,false)
elseif HaveSavedBoolean(w,-1,R) then
if not LoadBoolean(w,-1,R) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call SaveInteger(w,-1,R,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
endif
call I2S(1/0)
endif
endif
call SaveInteger(w,Y,T,10)
set Y=u
set T=StringHash("B")
if O[Y]==0 then
if Y==0 then
set R=StringHash("Nullpointer exception when calling Table.saveInt")
if HaveSavedInteger(w,-1,R) then
if LoadInteger(w,-1,R)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
call SaveInteger(w,-1,R,R2I(i))
call SaveBoolean(w,-1,R,false)
elseif HaveSavedBoolean(w,-1,R) then
if not LoadBoolean(w,-1,R) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call SaveInteger(w,-1,R,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
endif
call I2S(1/0)
else
set R=StringHash("Called Table.saveInt on invalid object.")
if HaveSavedInteger(w,-1,R) then
if LoadInteger(w,-1,R)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
call SaveInteger(w,-1,R,R2I(i))
call SaveBoolean(w,-1,R,false)
elseif HaveSavedBoolean(w,-1,R) then
if not LoadBoolean(w,-1,R) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call SaveInteger(w,-1,R,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
endif
call I2S(1/0)
endif
endif
call SaveInteger(w,Y,T,11)
set Y=u
set T=StringHash("C")
if O[Y]==0 then
if Y==0 then
set R=StringHash("Nullpointer exception when calling Table.saveInt")
if HaveSavedInteger(w,-1,R) then
if LoadInteger(w,-1,R)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
call SaveInteger(w,-1,R,R2I(i))
call SaveBoolean(w,-1,R,false)
elseif HaveSavedBoolean(w,-1,R) then
if not LoadBoolean(w,-1,R) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call SaveInteger(w,-1,R,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
endif
call I2S(1/0)
else
set R=StringHash("Called Table.saveInt on invalid object.")
if HaveSavedInteger(w,-1,R) then
if LoadInteger(w,-1,R)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
call SaveInteger(w,-1,R,R2I(i))
call SaveBoolean(w,-1,R,false)
elseif HaveSavedBoolean(w,-1,R) then
if not LoadBoolean(w,-1,R) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call SaveInteger(w,-1,R,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
endif
call I2S(1/0)
endif
endif
call SaveInteger(w,Y,T,12)
set Y=u
set T=StringHash("D")
if O[Y]==0 then
if Y==0 then
set R=StringHash("Nullpointer exception when calling Table.saveInt")
if HaveSavedInteger(w,-1,R) then
if LoadInteger(w,-1,R)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
call SaveInteger(w,-1,R,R2I(i))
call SaveBoolean(w,-1,R,false)
elseif HaveSavedBoolean(w,-1,R) then
if not LoadBoolean(w,-1,R) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call SaveInteger(w,-1,R,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
endif
call I2S(1/0)
else
set R=StringHash("Called Table.saveInt on invalid object.")
if HaveSavedInteger(w,-1,R) then
if LoadInteger(w,-1,R)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
call SaveInteger(w,-1,R,R2I(i))
call SaveBoolean(w,-1,R,false)
elseif HaveSavedBoolean(w,-1,R) then
if not LoadBoolean(w,-1,R) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call SaveInteger(w,-1,R,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
endif
call I2S(1/0)
endif
endif
call SaveInteger(w,Y,T,13)
set T=u
set Y=StringHash("E")
if O[T]==0 then
if T==0 then
set R=StringHash("Nullpointer exception when calling Table.saveInt")
if HaveSavedInteger(w,-1,R) then
if LoadInteger(w,-1,R)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
call SaveInteger(w,-1,R,R2I(i))
call SaveBoolean(w,-1,R,false)
elseif HaveSavedBoolean(w,-1,R) then
if not LoadBoolean(w,-1,R) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call SaveInteger(w,-1,R,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
endif
call I2S(1/0)
else
set R=StringHash("Called Table.saveInt on invalid object.")
if HaveSavedInteger(w,-1,R) then
if LoadInteger(w,-1,R)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
call SaveInteger(w,-1,R,R2I(i))
call SaveBoolean(w,-1,R,false)
elseif HaveSavedBoolean(w,-1,R) then
if not LoadBoolean(w,-1,R) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call SaveInteger(w,-1,R,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
endif
call I2S(1/0)
endif
endif
call SaveInteger(w,T,Y,14)
set Y=u
set T=StringHash("F")
if O[Y]==0 then
if Y==0 then
set R=StringHash("Nullpointer exception when calling Table.saveInt")
if HaveSavedInteger(w,-1,R) then
if LoadInteger(w,-1,R)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
call SaveInteger(w,-1,R,R2I(i))
call SaveBoolean(w,-1,R,false)
elseif HaveSavedBoolean(w,-1,R) then
if not LoadBoolean(w,-1,R) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call SaveInteger(w,-1,R,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Nullpointer exception when calling Table.saveInt"+"")
endif
call I2S(1/0)
else
set R=StringHash("Called Table.saveInt on invalid object.")
if HaveSavedInteger(w,-1,R) then
if LoadInteger(w,-1,R)+60<i then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
call SaveInteger(w,-1,R,R2I(i))
call SaveBoolean(w,-1,R,false)
elseif HaveSavedBoolean(w,-1,R) then
if not LoadBoolean(w,-1,R) then
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Excessive repeating errors are being omitted")
call SaveBoolean(w,-1,R,true)
endif
else
call SaveInteger(w,-1,R,R2I(i))
call DisplayTimedTextToPlayer(GetLocalPlayer(),0.,0.,45.,"|cffFF3A29Error:|r "+"Called Table.saveInt on invalid object."+"")
endif
call I2S(1/0)
endif
endif
call SaveInteger(w,Y,T,15)
if l==0 then
set b=b+1
else
set l=l-1
endif
if l==0 then
set b=b+1
else
set l=l-1
endif
if l==0 then
set b=b+1
else
set l=l-1
endif
if l==0 then
set b=b+1
else
set l=l-1
endif
if l==0 then
set b=b+1
else
set l=l-1
endif
call j()
call CreateGroup()
call Location(0.,0.)
set r=null
call Rect(0.,0.,128.,128.)
set r=CreateItem(2003790951,0.,0.)
call SetItemVisible(r,false)
call j()
call j()
set f=CreateTrigger()
call TriggerRegisterTimerEvent(f,0.1,false)
call TriggerAddAction(f,e)
set n=null
set d=null
set f=null
endfunction
function config takes nothing returns nothing
local integer g
local integer h
local gametype F
call SetMapName("Just another Warcraft III map")
call SetMapDescription("Nondescript")
call SetPlayers(1)
call SetTeams(1)
call SetGamePlacement(MAP_PLACEMENT_USE_MAP_SETTINGS)
call DefineStartLocation(0,-2048.0,1856.0)
call SetPlayerStartLocation(Player(0),0)
call SetPlayerColor(Player(0),ConvertPlayerColor(0))
call SetPlayerRacePreference(Player(0),RACE_PREF_HUMAN)
call SetPlayerRaceSelectable(Player(0),true)
call SetPlayerController(Player(0),MAP_CONTROL_USER)
set g=GetPlayerId(Player(0))
if not bj_slotControlReady then
set h=0
loop
set bj_slotControlUsed[h]=false
set h=h+1
exitwhen h==bj_MAX_PLAYERS
endloop
set bj_slotControlReady=true
endif
set bj_slotControlUsed[g]=true
set F=GetGameTypeSelected()
if F==GAME_TYPE_MELEE then
call TeamInitPlayerSlots(bj_MAX_PLAYERS)
elseif F==GAME_TYPE_FFA then
call TeamInitPlayerSlots(bj_MAX_PLAYERS)
elseif F==GAME_TYPE_USE_MAP_SETTINGS then
elseif F==GAME_TYPE_ONE_ON_ONE then
call SetTeams(2)
call SetPlayers(2)
call TeamInitPlayerSlots(2)
elseif F==GAME_TYPE_TWO_TEAM_PLAY then
call TeamInitPlayerSlots(2)
elseif F==GAME_TYPE_THREE_TEAM_PLAY then
call TeamInitPlayerSlots(3)
elseif F==GAME_TYPE_FOUR_TEAM_PLAY then
call TeamInitPlayerSlots(4)
endif
set F=null
endfunction