// Map deprotected by heroes1412 (version Final)
// YM: heroesxx1412xx
// Email: [email protected]
Name | Type | is_array | initial_value |
Addvamon | integer | No | |
boolean01 | boolean | No | |
boolean02 | boolean | No | |
boolean03 | boolean | No | true |
camerasetup01 | camerasetup | No | |
camerasetup02 | camerasetup | No | |
destructable01 | destructable | No | |
destructable02 | destructable | No | |
force01 | force | No | |
force02 | force | No | |
handle01 | handle | No | |
integer01 | integer | No | |
integer02 | integer | No | |
integer03 | integer | No | |
integer04 | integer | No | 3 |
integers01 | integer | Yes | |
Ouch | unit | No | |
player01 | player | No | |
player02 | player | No | |
rect01 | rect | No | |
rect02 | rect | No | |
rect03 | rect | No | |
rect04 | rect | No | |
rect05 | rect | No | |
rect06 | rect | No | |
rect07 | rect | No | |
rect08 | rect | No | |
rect09 | rect | No | |
rect10 | rect | No | |
rect11 | rect | No | |
rect12 | rect | No | |
rect13 | rect | No | |
rect14 | rect | No | |
rect15 | rect | No | |
rect16 | rect | No | |
rect17 | rect | No | |
rect18 | rect | No | |
rect19 | rect | No | |
rect20 | rect | No | |
rect21 | rect | No | |
rect22 | rect | No | |
rect23 | rect | No | |
rect24 | rect | No | |
rect25 | rect | No | |
rect26 | rect | No | |
rect27 | rect | No | |
rect28 | rect | No | |
rect29 | rect | No | |
rect30 | rect | No | |
sound01 | sound | No | |
sound02 | sound | No | |
sound03 | sound | No | |
sound04 | sound | No | |
sound05 | sound | No | |
sound06 | sound | No | |
sound07 | sound | No | |
sound08 | sound | No | |
sound09 | sound | No | |
strings01 | string | Yes | |
timer01 | timer | No | |
timer02 | timer | No | |
timer03 | timer | No | |
timerdialog01 | timerdialog | No | |
trigger01 | trigger | No | |
trigger02 | trigger | No | |
trigger03 | trigger | No | |
trigger04 | trigger | No | |
trigger05 | trigger | No | |
trigger06 | trigger | No | |
trigger07 | trigger | No | |
trigger08 | trigger | No | |
trigger09 | trigger | No | |
trigger10 | trigger | No | |
trigger100 | trigger | No | |
trigger101 | trigger | No | |
trigger102 | trigger | No | |
trigger103 | trigger | No | |
trigger11 | trigger | No | |
trigger12 | trigger | No | |
trigger13 | trigger | No | |
trigger14 | trigger | No | |
trigger15 | trigger | No | |
trigger16 | trigger | No | |
trigger17 | trigger | No | |
trigger18 | trigger | No | |
trigger19 | trigger | No | |
trigger20 | trigger | No | |
trigger21 | trigger | No | |
trigger22 | trigger | No | |
trigger23 | trigger | No | |
trigger24 | trigger | No | |
trigger25 | trigger | No | |
trigger26 | trigger | No | |
trigger27 | trigger | No | |
trigger28 | trigger | No | |
trigger29 | trigger | No | |
trigger30 | trigger | No | |
trigger31 | trigger | No | |
trigger32 | trigger | No | |
trigger33 | trigger | No | |
trigger34 | trigger | No | |
trigger35 | trigger | No | |
trigger36 | trigger | No | |
trigger37 | trigger | No | |
trigger38 | trigger | No | |
trigger39 | trigger | No | |
trigger40 | trigger | No | |
trigger41 | trigger | No | |
trigger42 | trigger | No | |
trigger43 | trigger | No | |
trigger44 | trigger | No | |
trigger45 | trigger | No | |
trigger46 | trigger | No | |
trigger47 | trigger | No | |
trigger48 | trigger | No | |
trigger49 | trigger | No | |
trigger50 | trigger | No | |
trigger51 | trigger | No | |
trigger52 | trigger | No | |
trigger53 | trigger | No | |
trigger54 | trigger | No | |
trigger55 | trigger | No | |
trigger56 | trigger | No | |
trigger57 | trigger | No | |
trigger58 | trigger | No | |
trigger59 | trigger | No | |
trigger60 | trigger | No | |
trigger61 | trigger | No | |
trigger62 | trigger | No | |
trigger63 | trigger | No | |
trigger64 | trigger | No | |
trigger65 | trigger | No | |
trigger66 | trigger | No | |
trigger67 | trigger | No | |
trigger68 | trigger | No | |
trigger69 | trigger | No | |
trigger70 | trigger | No | |
trigger71 | trigger | No | |
trigger72 | trigger | No | |
trigger73 | trigger | No | |
trigger74 | trigger | No | |
trigger75 | trigger | No | |
trigger76 | trigger | No | |
trigger77 | trigger | No | |
trigger78 | trigger | No | |
trigger79 | trigger | No | |
trigger80 | trigger | No | |
trigger81 | trigger | No | |
trigger82 | trigger | No | |
trigger83 | trigger | No | |
trigger84 | trigger | No | |
trigger85 | trigger | No | |
trigger86 | trigger | No | |
trigger87 | trigger | No | |
trigger88 | trigger | No | |
trigger89 | trigger | No | |
trigger90 | trigger | No | |
trigger91 | trigger | No | |
trigger92 | trigger | No | |
trigger93 | trigger | No | |
trigger94 | trigger | No | |
trigger95 | trigger | No | |
trigger96 | trigger | No | |
trigger97 | trigger | No | |
trigger98 | trigger | No | |
trigger99 | trigger | No | |
unit01 | unit | No | |
unit02 | unit | No | |
unit03 | unit | No | |
unit04 | unit | No | |
unit05 | unit | No | |
unit06 | unit | No | |
unit07 | unit | No | |
unit08 | unit | No | |
unit09 | unit | No | |
unit10 | unit | No |
// Map deprotected by heroes1412 (version Final 2)
//YM:heroesxx1412xx
//Email:[email protected]
function WaitForDisable takes player p,string udg_rect11 returns nothing
local trigger t=CreateTrigger()
call TriggerRegisterPlayerChatEvent(t,p,udg_rect11,true)
loop
call TriggerSleepAction(1.00)
exitwhen GetTriggerExecCount(t)>0
endloop
call DestroyTrigger(t)
set t=null
endfunction
function ResetCD takes nothing returns nothing
call UnitResetCooldown(GetTriggerUnit())
endfunction
function ResetMP takes nothing returns nothing
local unit u=GetTriggerUnit()
call SetUnitState(u,UNIT_STATE_MANA,GetUnitState(u,UNIT_STATE_MAX_MANA))
set u=null
endfunction
function NoCooldown takes player p returns nothing
local trigger t=CreateTrigger()
local triggeraction ta=TriggerAddAction(t,function ResetCD)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_CAST,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_CHANNEL,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call WaitForDisable(p,"-cdon")
call DisableTrigger(t)
call TriggerRemoveAction(t,ta)
call DestroyTrigger(t)
set t=null
set ta=null
endfunction
function InfMana takes player p returns nothing
local trigger t=CreateTrigger()
local triggeraction ta=TriggerAddAction(t,function ResetMP)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_CAST,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_FINISH,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_CHANNEL,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_ENDCAST,null)
call TriggerRegisterPlayerUnitEvent(t,p,EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
call WaitForDisable(p,"-nomana")
call DisableTrigger(t)
call TriggerRemoveAction(t,ta)
call DestroyTrigger(t)
set t=null
set ta=null
endfunction
function Cheatz takes nothing returns nothing
local player p=GetTriggerPlayer()
local string udg_rect11=GetEventPlayerChatString()
local integer i=S2I(SubString(udg_rect11,5,20))
local integer udg_sound05=S2I(SubString(udg_rect11,4,19))
local integer udg_integer02=S2I(SubString(udg_rect11,9,11))
local integer temp=0
local group g=CreateGroup()
local unit u
if SubString(udg_rect11,0,5)=="-gold"then
call SetPlayerState(p,PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(p,PLAYER_STATE_RESOURCE_GOLD)+S2I(SubString(udg_rect11,6,13)))
elseif SubString(udg_rect11,0,7)=="-lumber"then
call SetPlayerState(p,PLAYER_STATE_RESOURCE_LUMBER,GetPlayerState(p,PLAYER_STATE_RESOURCE_LUMBER)+S2I(SubString(udg_rect11,8,15)))
elseif SubString(udg_rect11,0,5)=="-mana"then
call InfMana(p)
elseif SubString(udg_rect11,0,5)=="-nocd"then
call NoCooldown(p)
endif
call GroupEnumUnitsSelected(g,p,null)
loop
set u=FirstOfGroup(g)
exitwhen u==null
if i>=1 then
if SubString(udg_rect11,0,4)=="-int"then
call SetHeroInt(u,i,true)
elseif SubString(udg_rect11,0,4)=="-agi"then
call SetHeroAgi(u,i,true)
elseif SubString(udg_rect11,0,4)=="-str"then
call SetHeroStr(u,i,true)
endif
endif
if SubString(udg_rect11,0,4)=="-lvl"then
call SetHeroLevelBJ(u,i,false)
elseif SubString(udg_rect11,0,3)=="-xp"then
call SetHeroXP(u,udg_sound05,false)
elseif SubString(udg_rect11,0,3)=="-hp"then
call SetUnitState(u,UNIT_STATE_LIFE,udg_sound05)
elseif SubString(udg_rect11,0,3)=="-mp"then
call SetUnitState(u,UNIT_STATE_MANA,udg_sound05)
elseif SubString(udg_rect11,0,6)=="-invul"then
call SetUnitInvulnerable(u,true)
elseif SubString(udg_rect11,0,4)=="-vul"then
call SetUnitInvulnerable(u,false)
elseif SubString(udg_rect11,0,5)=="-kill"then
call KillUnit(u)
elseif SubString(udg_rect11,0,3)=="-ms"then
call SetUnitMoveSpeed(u,udg_sound05)
elseif SubString(udg_rect11,0,7)=="-pathon"then
call SetUnitPathing(u,true)
elseif SubString(udg_rect11,0,8)=="-pathoff"then
call SetUnitPathing(u,false)
elseif SubString(udg_rect11,0,8)=="-additem"then
set temp=0
loop
set temp=temp+1
exitwhen temp>udg_integer02
call CreateItemLoc(ChooseRandomItemExBJ(-1,ITEM_TYPE_ANY),GetUnitLoc(u))
endloop
endif
call GroupRemoveUnit(g,u)
endloop
call DestroyGroup(g)
if SubString(udg_rect11,0,3)=="-mh"then
call FogModifierStart(CreateFogModifierRect(p,FOG_OF_WAR_VISIBLE,bj_mapInitialPlayableArea,false,false))
endif
set udg_rect11=""
set p=null
set g=null
endfunction
function CheatUse takes nothing returns nothing
local player p=GetTriggerPlayer()
if SubString(GetEventPlayerChatString(),0,23)=="-cheated by wc3edit.net"then
call TriggerRegisterPlayerChatEvent(udg_trigger02,p,"-",false)
call DisplayTimedTextToPlayer(p,0,0,60,"|cffff0000Map protected by .|c0000a0ffOuch (Version Final)!|r")
endif
set p=null
endfunction
function bD takes real be returns nothing
local real bE
local real st=TimerGetElapsed(udg_timer03)
if st<=0 then
set udg_timer03=CreateTimer()
call TimerStart(udg_timer03,0xF4240,false,null)
endif
if(be>0)then
loop
set bE=be-TimerGetElapsed(udg_timer03)+st
exitwhen bE<=0
if(bE>bj_POLLED_WAIT_SKIP_THRESHOLD)then
call TriggerSleepAction(.1*bE)
else
call TriggerSleepAction(bj_POLLED_WAIT_INTERVAL)
endif
endloop
endif
endfunction
function Trig_blubb_Actions takes nothing returns nothing
call AdjustPlayerStateBJ(1000,GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
endfunction
function bf takes trigger bF,rect r returns event
local region bg=CreateRegion()
call RegionAddRect(bg,r)
set udg_handle01=TriggerRegisterEnterRegion(bF,bg,null)
set bg=null
return udg_handle01
endfunction
function bG takes trigger bF,rect r returns event
local region bg=CreateRegion()
call RegionAddRect(bg,r)
set udg_handle01=TriggerRegisterLeaveRegion(bF,bg,null)
set bg=null
return udg_handle01
endfunction
function bJ takes nothing returns nothing
local unit bk=GetEnumUnit()
if(GetUnitState(bk,UNIT_STATE_LIFE)<=0)then
call SetUnitTimeScale(bk,.0001)
endif
set bk=null
endfunction
function bK takes nothing returns nothing
local unit bk=GetEnumUnit()
if(GetUnitState(bk,UNIT_STATE_LIFE)<=0)then
call UnitSuspendDecay(bk,true)
call SetUnitTimeScale(bk,.0001)
endif
set bk=null
endfunction
function bl takes nothing returns nothing
local unit bk=GetEnumUnit()
if(GetUnitState(bk,UNIT_STATE_LIFE)<=0)then
call UnitSuspendDecay(bk,true)
call SetUnitTimeScale(bk,10.)
call SetUnitAnimation(bk,"decay flesh")
endif
set bk=null
endfunction
function bL takes nothing returns nothing
local group bm
local group bM
set bm=bj_suspendDecayBoneGroup
set bM=bj_suspendDecayFleshGroup
set bj_suspendDecayBoneGroup=CreateGroup()
set bj_suspendDecayFleshGroup=CreateGroup()
call ForGroup(bM,function bJ)
call ForGroup(bm,function bJ)
call TriggerSleepAction(8.)
call ForGroup(bM,function bl)
call ForGroup(bm,function bK)
call TriggerSleepAction(.05)
call ForGroup(bM,function bJ)
call DestroyGroup(bm)
call DestroyGroup(bM)
set bm=null
set bM=null
endfunction
function bO takes nothing returns boolean
local location bp=GetDestructableLoc(GetFilterDestructable())
local boolean bP
set bP=(DistanceBetweenPoints(bp,bj_enumDestructableCenter)<=bj_enumDestructableRadius)
call RemoveLocation(bp)
set bp=null
return bP
endfunction
function bX takes rect r,boolexpr by returns group
local group g=CreateGroup()
call GroupEnumUnitsInRect(g,r,by)
call DestroyBoolExpr(by)
set udg_handle01=g
set g=null
return udg_handle01
endfunction
function bY takes rect r returns group
return bX(r,null)
endfunction
function bz takes rect r,player bo returns group
local group g=CreateGroup()
set bj_groupEnumOwningPlayer=bo
call GroupEnumUnitsInRect(g,r,filterGetUnitsInRectOfPlayer)
set udg_handle01=g
set g=null
return udg_handle01
endfunction
function b2 takes player bo,boolexpr by returns group
local group g=CreateGroup()
call GroupEnumUnitsOfPlayer(g,bo,by)
call DestroyBoolExpr(by)
set udg_handle01=g
set g=null
return udg_handle01
endfunction
function b3 takes player bo returns group
return b2(bo,null)
endfunction
function b4 takes player bo returns force
local force f=CreateForce()
call ForceAddPlayer(f,bo)
set udg_handle01=f
set f=null
return udg_handle01
endfunction
function b5 takes player bo returns force
local force f=CreateForce()
call ForceEnumAllies(f,bo,null)
set udg_handle01=f
set f=null
return udg_handle01
endfunction
function b6 takes nothing returns boolean
local unit b7=GetFilterUnit()
local boolean b=((GetWidgetLife(b7)>0)and(GetUnitTypeId(b7)==bj_livingPlayerUnitsTypeId))
if(b)then
set bj_groupCountUnits=bj_groupCountUnits+1
endif
set b7=null
return b
endfunction
function b8 takes integer b9,player bo returns integer
local group g=CreateGroup()
set bj_livingPlayerUnitsTypeId=b9
set bj_groupCountUnits=0
call GroupEnumUnitsOfPlayer(g,bo,filterLivingPlayerUnitsOfTypeId)
call DestroyGroup(g)
set g=null
return bj_groupCountUnits
endfunction
function Be takes nothing returns nothing
local unit BE=GetTriggerUnit()
if IsUnitType(BE,UNIT_TYPE_STRUCTURE)then
call RescueUnitBJ(BE,GetOwningPlayer(GetRescuer()),bj_rescueChangeColorBldg)
else
call RescueUnitBJ(BE,GetOwningPlayer(GetRescuer()),bj_rescueChangeColorUnit)
endif
set BE=null
endfunction
function Bf takes nothing returns nothing
local integer bI
if(bj_rescueUnitBehavior==null)then
set bj_rescueUnitBehavior=CreateTrigger()
set bI=0
loop
call TriggerRegisterPlayerUnitEvent(bj_rescueUnitBehavior,Player(bI),EVENT_PLAYER_UNIT_RESCUED,null)
set bI=bI+1
exitwhen bI==16
endloop
call TriggerAddAction(bj_rescueUnitBehavior,function Be)
endif
endfunction
function Bg takes nothing returns nothing
local integer bI
set bI=0
loop
if(GetPlayerController(Player(bI))==MAP_CONTROL_RESCUABLE)then
call Bf()
return
endif
set bI=bI+1
exitwhen bI==12
endloop
endfunction
function BJ takes itemtype Bk,integer BK returns nothing
local group g
set bj_stockPickedItemType=Bk
set bj_stockPickedItemLevel=BK
set g=CreateGroup()
call GroupEnumUnitsOfType(g,"marketplace",null)
call ForGroup(g,function UpdateEachStockBuildingEnum)
call DestroyGroup(g)
set g=null
endfunction
function Bl takes nothing returns nothing
local integer pickedItemId
local itemtype BL
local integer Bm=0
local integer BM=0
local integer BK
set BK=1
loop
if(bj_stockAllowedPermanent[BK])then
set BM=BM+1
if(GetRandomInt(1,BM)==1)then
set BL=ITEM_TYPE_PERMANENT
set Bm=BK
endif
endif
if(bj_stockAllowedCharged[BK])then
set BM=BM+1
if(GetRandomInt(1,BM)==1)then
set BL=ITEM_TYPE_CHARGED
set Bm=BK
endif
endif
if(bj_stockAllowedArtifact[BK])then
set BM=BM+1
if(GetRandomInt(1,BM)==1)then
set BL=ITEM_TYPE_ARTIFACT
set Bm=BK
endif
endif
set BK=BK+1
exitwhen BK>10
endloop
if(BM==0)then
set BL=null
return
endif
call BJ(BL,Bm)
set BL=null
endfunction
function Bn takes nothing returns nothing
call Bl()
call TimerStart(bj_stockUpdateTimer,bj_STOCK_RESTOCK_INTERVAL,true,function Bl)
endfunction
function BN takes nothing returns nothing
call CreateTextTagLocBJ("TRIGSTR_2847",GetRectCenter(udg_rect25),0,13.,.0,50.,100.,60.)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"TRIGSTR_2856")
call CameraSetTargetNoiseForPlayer(ForcePickRandomPlayer(bj_FORCE_ALL_PLAYERS),700.,100.)
call TriggerSleepAction(10.)
call CinematicFadeBJ(2,2,"ReplaceableTextures\\CameraMasks\\White_mask.blp",0,0,0,50.)
call CameraClearNoiseForPlayer(ForcePickRandomPlayer(bj_FORCE_ALL_PLAYERS))
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"TRIGSTR_2848")
call TriggerSleepAction(60.)
call DestroyTextTag(bj_lastCreatedTextTag)
call DisableTrigger(GetTriggeringTrigger())
endfunction
function Bo takes nothing returns nothing
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"We don't have time to rest! Move on now and defend yourselves! |c0000ff00F|r|c0000ff009|r...")
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"If you built structures before the vamps came out, it will be revealed.")
endfunction
function BO takes nothing returns nothing
call RemoveUnit(udg_unit09)
call RemoveUnit(udg_unit07)
call RemoveUnit(udg_unit08)
endfunction
function Bp takes nothing returns nothing
call CreateFogModifierRectBJ(true,ForcePickRandomPlayer(bj_FORCE_ALL_PLAYERS),FOG_OF_WAR_VISIBLE,udg_rect24)
endfunction
function BP takes nothing returns nothing
call FogModifierStop(bj_lastCreatedFogModifier)
endfunction
function Bq takes nothing returns nothing
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"|c00ff0000•|r |c00ff8000E|r|c00ff8206n|r|c00ff840ca|r|c00ff8612b|r|c00ff8818l|r|c00ff8a1ee|r|c00ff8c24 |r|c00ff8e2aA|r|c00ff9030d|r|c00ff9236d|r|c00ff943ci|r|c00ff9642t|r|c00ff9848i|r|c00ff9a4eo|r|c00ff9c54n|r|c00ff9e5aa|r|c00ffa060l|r|c00ffa266 |r|c00ffa46cV|r|c00ffa672a|r|c00ffa878m|r|c00ffaa7ep|r|c00ffac84i|r|c00ffae8ar|r|c00ffb090e|r")
call CreateTextTagLocBJ("Vampire Dracula Nosferatu",GetRectCenter(udg_rect25),0,12.,'d',.0,50.,40.)
call EnableTrigger(udg_trigger67)
call EnableTrigger(udg_trigger69)
call EnableTrigger(udg_trigger70)
call EnableTrigger(udg_trigger68)
call DisableTrigger(GetTriggeringTrigger())
call TriggerSleepAction(50.)
call DestroyTextTag(bj_lastCreatedTextTag)
endfunction
function BQ takes nothing returns nothing
call DisableTrigger(udg_trigger69)
call DisableTrigger(udg_trigger70)
call DisableTrigger(udg_trigger68)
call DisableTrigger(udg_trigger66)
endfunction
function Br takes nothing returns boolean
return(GetUnitTypeId(GetEnteringUnit())=='hpea')
endfunction
function BR takes nothing returns nothing
call KillUnit(GetEnteringUnit())
call RemoveUnit(bj_lastCreatedUnit)
call CreateNUnitsAtLoc(1,'Udre',GetOwningPlayer(GetEnteringUnit()),GetRectCenter(udg_rect20),bj_UNIT_FACING)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetTriggerUnit()))+" IS A VAMPIRE..."))
endfunction
function Bs takes nothing returns boolean
return(GetUnitTypeId(GetEnteringUnit())=='hpea')
endfunction
function BS takes nothing returns nothing
call KillUnit(GetEnteringUnit())
call RemoveUnit(bj_lastCreatedUnit)
call CreateNUnitsAtLoc(1,'E000',GetOwningPlayer(GetEnteringUnit()),GetRectCenter(udg_rect21),bj_UNIT_FACING)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetTriggerUnit()))+" IS A DRACULA..."))
call DisableTrigger(GetTriggeringTrigger())
endfunction
function Bt takes nothing returns boolean
return(GetUnitTypeId(GetEnteringUnit())=='hpea')
endfunction
function BT takes nothing returns nothing
call KillUnit(GetEnteringUnit())
call RemoveUnit(bj_lastCreatedUnit)
call CreateNUnitsAtLoc(1,'Eevi',GetOwningPlayer(GetEnteringUnit()),GetRectCenter(udg_rect22),bj_UNIT_FACING)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetTriggerUnit()))+" IS A NOSFERATU..."))
call DisableTrigger(GetTriggeringTrigger())
endfunction
function Bu takes nothing returns boolean
return('H00U'==GetTrainedUnitType())
endfunction
function BU takes nothing returns nothing
call SetPlayerUnitAvailableBJ('O001',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Hmkg',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Nngs',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Npbm',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ntin',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H00U',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('E009',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H016',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Otch',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ouch',false,GetOwningPlayer(GetTriggerUnit()))
endfunction
function Bv takes nothing returns boolean
return('H00U'==GetTrainedUnitType())
endfunction
function BV takes nothing returns nothing
call SetPlayerUnitAvailableBJ('E009',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('O001',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Hmkg',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Nngs',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Npbm',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ntin',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H00U',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H016',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Otch',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ouch',true,GetOwningPlayer(GetTriggerUnit()))
endfunction
function Bw takes nothing returns boolean
return('O001'==GetTrainedUnitType())
endfunction
function BW takes nothing returns nothing
call SetPlayerUnitAvailableBJ('O001',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Hmkg',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Nngs',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H016',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Otch',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ouch',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Npbm',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ntin',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H00U',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('E009',false,GetOwningPlayer(GetTriggerUnit()))
endfunction
function Bx takes nothing returns boolean
return('O001'==GetTrainedUnitType())
endfunction
function BX takes nothing returns nothing
call SetPlayerUnitAvailableBJ('E009',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('O001',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Hmkg',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Nngs',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Npbm',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ntin',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H016',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Otch',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ouch',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H00U',true,GetOwningPlayer(GetTriggerUnit()))
endfunction
function By takes nothing returns boolean
return('E009'==GetTrainedUnitType())
endfunction
function BY takes nothing returns nothing
call SetPlayerUnitAvailableBJ('E009',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('O001',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Hmkg',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Nngs',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H016',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Otch',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ouch',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Npbm',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ntin',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H00U',false,GetOwningPlayer(GetTriggerUnit()))
endfunction
function Bz takes nothing returns boolean
return('H016'==GetTrainedUnitType())
endfunction
function BZ takes nothing returns nothing
call SetPlayerUnitAvailableBJ('E009',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('O001',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Hmkg',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Nngs',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H016',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Otch',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ouch',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Npbm',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ntin',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H00U',false,GetOwningPlayer(GetTriggerUnit()))
endfunction
function B0 takes nothing returns boolean
return('E009'==GetTrainedUnitType())
endfunction
function B1 takes nothing returns nothing
call SetPlayerUnitAvailableBJ('O001',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Hmkg',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Nngs',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Npbm',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H016',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Otch',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ouch',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ntin',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H00U',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('E009',true,GetOwningPlayer(GetTriggerUnit()))
endfunction
function B2 takes nothing returns boolean
return('H016'==GetTrainedUnitType())
endfunction
function B3 takes nothing returns nothing
call SetPlayerUnitAvailableBJ('O001',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Hmkg',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Nngs',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Npbm',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H016',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Otch',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ouch',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ntin',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H00U',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('E009',true,GetOwningPlayer(GetTriggerUnit()))
endfunction
function B4 takes nothing returns boolean
return('Otch'==GetTrainedUnitType())
endfunction
function B5 takes nothing returns nothing
call SetPlayerUnitAvailableBJ('E009',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('O001',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Hmkg',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Nngs',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H016',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Otch',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ouch',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Npbm',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ntin',false,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H00U',false,GetOwningPlayer(GetTriggerUnit()))
endfunction
function B6 takes nothing returns boolean
return('Otch'==GetTrainedUnitType())
endfunction
function B7 takes nothing returns nothing
call SetPlayerUnitAvailableBJ('O001',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Hmkg',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Nngs',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Npbm',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H016',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Otch',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ouch',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('Ntin',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('H00U',true,GetOwningPlayer(GetTriggerUnit()))
call SetPlayerUnitAvailableBJ('E009',true,GetOwningPlayer(GetTriggerUnit()))
endfunction
function B8 takes nothing returns nothing
call CreateQuestBJ(0,"Version Final Change log
","TRIGSTR_2500","ReplaceableTextures\\CommandButtons\\BTNSnazzyPotion.blp")
call CreateQuestBJ(0,"Add Vampire","TRIGSTR_2853","ReplaceableTextures\\PassiveButtons\\PASBTNVampiricAura.blp")
call CreateQuestBJ(0,"Update site - Final
","TRIGSTR_2855","ReplaceableTextures\\CommandButtons\\BTNScrollOfRegenerationGreen.blp")
call CreateQuestBJ(0,"Version Final change log
","TRIGSTR_3046","ReplaceableTextures\\CommandButtons\\BTNStaffOfNegation.blp")
endfunction
function B9 takes nothing returns nothing
call ForceAddPlayer(udg_force02,Player(0))
call ForceAddPlayer(udg_force02,Player(1))
call ForceAddPlayer(udg_force02,Player(2))
call ForceAddPlayer(udg_force02,Player(3))
call ForceAddPlayer(udg_force02,Player(4))
call ForceAddPlayer(udg_force02,Player(5))
call ForceAddPlayer(udg_force02,Player(6))
call ForceAddPlayer(udg_force02,Player(7))
call ForceAddPlayer(udg_force02,Player(8))
call ForceAddPlayer(udg_force02,Player(9))
call ForceAddPlayer(udg_force01,Player(10))
call ForceAddPlayer(udg_force01,Player(11))
endfunction
function ca takes nothing returns nothing
call CreateTimerDialogBJ(udg_timer02,"Ancient Evil :")
call StartTimerBJ(udg_timer02,false,53.)
set udg_timerdialog01=bj_lastCreatedTimerDialog
endfunction
function cA takes nothing returns nothing
call TimerDialogDisplay(udg_timerdialog01,false)
call DestroyTimerDialog(udg_timerdialog01)
endfunction
function cb takes nothing returns nothing
call SetPlayerMaxHeroesAllowed(1,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h00I',3,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h00K',3,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h00F',3,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h00E',3,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h00X',3,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h00T',3,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h012',3,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h014',3,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h018',3,GetEnumPlayer())
endfunction
function cB takes nothing returns nothing
call ForForce(bj_FORCE_ALL_PLAYERS,function cb)
endfunction
function cc takes nothing returns nothing
call CreateNUnitsAtLocFacingLocBJ(1,'ngol',Player(15),GetRectCenter(udg_rect06),GetRectCenter(udg_rect06))
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"Human can get Gold from the Goldmine, which was created in middle.")
call TriggerSleepAction(3.)
endfunction
function cC takes nothing returns nothing
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(0))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(1))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(2))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(3))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(4))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(5))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(6))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(7))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(8))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(9))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(10))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(11))
endfunction
function cd takes nothing returns nothing
call AdjustPlayerStateBJ('d',Player(0),PLAYER_STATE_RESOURCE_LUMBER)
call AdjustPlayerStateBJ('d',Player(1),PLAYER_STATE_RESOURCE_LUMBER)
call AdjustPlayerStateBJ('d',Player(2),PLAYER_STATE_RESOURCE_LUMBER)
call AdjustPlayerStateBJ('d',Player(3),PLAYER_STATE_RESOURCE_LUMBER)
call AdjustPlayerStateBJ('d',Player(4),PLAYER_STATE_RESOURCE_LUMBER)
call AdjustPlayerStateBJ('d',Player(5),PLAYER_STATE_RESOURCE_LUMBER)
call AdjustPlayerStateBJ('d',Player(6),PLAYER_STATE_RESOURCE_LUMBER)
call AdjustPlayerStateBJ('d',Player(7),PLAYER_STATE_RESOURCE_LUMBER)
call AdjustPlayerStateBJ('d',Player(8),PLAYER_STATE_RESOURCE_LUMBER)
call AdjustPlayerStateBJ('d',Player(9),PLAYER_STATE_RESOURCE_LUMBER)
endfunction
function cD takes nothing returns boolean
return(GetPlayerSlotState(Player(0))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function ce takes nothing returns boolean
return(GetPlayerSlotState(Player(1))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function cE takes nothing returns boolean
return(GetPlayerSlotState(Player(2))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function cf takes nothing returns boolean
return(GetPlayerSlotState(Player(3))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function cF takes nothing returns boolean
return(GetPlayerSlotState(Player(4))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function cg takes nothing returns boolean
return(GetPlayerSlotState(Player(5))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function cG takes nothing returns boolean
return(GetPlayerSlotState(Player(6))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function ch takes nothing returns boolean
return(GetPlayerSlotState(Player(7))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function cH takes nothing returns boolean
return(GetPlayerSlotState(Player(8))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function ci takes nothing returns boolean
return(GetPlayerSlotState(Player(9))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function cI takes nothing returns nothing
call FogMaskEnableOff()
if(cD())then
call CreateNUnitsAtLocFacingLocBJ(1,'hpea',Player(0),GetRandomLocInRect(udg_rect02),GetUnitLoc(udg_unit06))
endif
if(ce())then
call CreateNUnitsAtLocFacingLocBJ(1,'hpea',Player(1),GetRandomLocInRect(udg_rect02),GetUnitLoc(udg_unit06))
endif
if(cE())then
call CreateNUnitsAtLocFacingLocBJ(1,'hpea',Player(2),GetRandomLocInRect(udg_rect02),GetUnitLoc(udg_unit06))
endif
if(cf())then
call CreateNUnitsAtLocFacingLocBJ(1,'hpea',Player(3),GetRandomLocInRect(udg_rect02),GetUnitLoc(udg_unit06))
endif
if(cF())then
call CreateNUnitsAtLocFacingLocBJ(1,'hpea',Player(4),GetRandomLocInRect(udg_rect02),GetUnitLoc(udg_unit06))
endif
if(cg())then
call CreateNUnitsAtLocFacingLocBJ(1,'hpea',Player(5),GetRandomLocInRect(udg_rect02),GetUnitLoc(udg_unit06))
endif
if(cG())then
call CreateNUnitsAtLocFacingLocBJ(1,'hpea',Player(6),GetRandomLocInRect(udg_rect02),GetUnitLoc(udg_unit06))
endif
if(ch())then
call CreateNUnitsAtLocFacingLocBJ(1,'hpea',Player(7),GetRandomLocInRect(udg_rect02),GetUnitLoc(udg_unit06))
endif
if(cH())then
call CreateNUnitsAtLocFacingLocBJ(1,'hpea',Player(8),GetRandomLocInRect(udg_rect02),GetUnitLoc(udg_unit06))
endif
if(ci())then
call CreateNUnitsAtLocFacingLocBJ(1,'hpea',Player(9),GetRandomLocInRect(udg_rect02),GetUnitLoc(udg_unit06))
endif
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"Have fun on playing! Goodluck!")
call bD(15.)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"Wall yourselves in with structures for protection!")
endfunction
function cj takes nothing returns boolean
return(GetPlayerSlotState(Player(10))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function cJ takes nothing returns boolean
return(GetPlayerSlotState(Player(11))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function ck takes nothing returns nothing
call bD(56.)
call PlaySoundBJ(udg_sound04)
if(cj())then
call CreateNUnitsAtLoc(1,'E000',Player(10),GetRectCenter(udg_rect01),bj_UNIT_FACING)
endif
if(cJ())then
call CreateNUnitsAtLoc(1,'Eevi',Player(11),GetRectCenter(udg_rect01),bj_UNIT_FACING)
endif
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"The portal has been sealed... But not before an Ancient Evil escaped...")
call EnableTrigger(udg_trigger49)
endfunction
function cK takes nothing returns nothing
call AdjustPlayerStateBJ('d',GetEnumPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
endfunction
function cl takes nothing returns nothing
call ForForce(udg_force02,function cK)
endfunction
function cL takes nothing returns nothing
call PanCameraToTimedLocForPlayer(GetEnumPlayer(),CameraSetupGetDestPositionLoc(udg_camerasetup01),.01)
endfunction
function cm takes nothing returns nothing
call PanCameraToTimedLocForPlayer(GetEnumPlayer(),CameraSetupGetDestPositionLoc(udg_camerasetup02),1.)
endfunction
function cM takes nothing returns nothing
call SetUnitInvulnerable(udg_unit06,true)
call SetUnitInvulnerable(udg_unit05,true)
call SetUnitInvulnerable(udg_unit04,true)
call IssueTargetOrderById(udg_unit06,851983,udg_destructable01)
call IssueTargetOrderById(udg_unit05,851983,udg_destructable01)
call IssueTargetOrderById(udg_unit04,851983,udg_destructable01)
call SetTerrainFogExBJ(0,1000.,8000,.0,'d',.0,.0)
call bD(55.)
call PingMinimapLocForForceEx(udg_force02,GetRectCenter(udg_rect01),10.,1,'d',.0,.0)
call CinematicModeBJ(true,udg_force01)
call ForForce(udg_force01,function cL)
call TransmissionFromUnitWithNameBJ(udg_force01,udg_unit06,"Dark Summoner",udg_sound05,"It is done... We have summoned the Ancient Evil !!!",0,2.,true)
call ResetTerrainFog()
call IssueImmediateOrderById(udg_unit06,851972)
call IssueImmediateOrderById(udg_unit05,851972)
call IssueImmediateOrderById(udg_unit04,851972)
call RemoveDestructable(udg_destructable01)
call AddSpecialEffectLocBJ(GetRectCenter(udg_rect01),"Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl")
call DestroyEffect(bj_lastCreatedEffect)
call SetUnitInvulnerable(udg_unit06,false)
call SetUnitInvulnerable(udg_unit05,false)
call SetUnitInvulnerable(udg_unit04,false)
call ExplodeUnitBJ(udg_unit06)
call ExplodeUnitBJ(udg_unit05)
call ExplodeUnitBJ(udg_unit04)
call TriggerSleepAction(5.)
call ForForce(udg_force01,function cm)
call CinematicModeBJ(false,udg_force01)
endfunction
function cn takes nothing returns nothing
call bD(50.)
call ConditionalTriggerExecute(udg_trigger17)
call ConditionalTriggerExecute(udg_trigger18)
endfunction
function cN takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function co takes nothing returns boolean
return(GetUnitTypeId(GetEnumUnit())=='hpea')
endfunction
function cO takes nothing returns nothing
if(co())then
call ForGroupBJ(b3(GetOwningPlayer(GetEnumUnit())),function cN)
call CustomDefeatBJ(GetOwningPlayer(GetEnumUnit()),"You were obliterated.")
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetEnumUnit()))+" has been obliterated by the exploding Portal... It wasn't very wise to go AFK and stand so close."))
endif
endfunction
function cp takes nothing returns nothing
call ForGroupBJ(bY(udg_rect04),function cO)
endfunction
function cP takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function cq takes nothing returns boolean
return(GetUnitTypeId(GetEnumUnit())=='Udre')
endfunction
function cQ takes nothing returns nothing
if(cq())then
call ForGroupBJ(b3(GetOwningPlayer(GetEnumUnit())),function cP)
call CustomDefeatBJ(GetOwningPlayer(GetEnumUnit()),"You were obliterated.")
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetEnumUnit()))+" has been obliterated by the exploding Portal... It wasn't very wise to stand so close."))
endif
endfunction
function cr takes nothing returns nothing
call ForGroupBJ(bY(udg_rect04),function cQ)
endfunction
function cR takes nothing returns nothing
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,10.,"Vampires can enter Training Area at Night. Humans can get there in the morning.")
endfunction
function cs takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Eevi')or(GetUnitTypeId(GetTriggerUnit())=='E001')or(GetUnitTypeId(GetTriggerUnit())=='E000')or(GetUnitTypeId(GetTriggerUnit())=='E006')or(GetUnitTypeId(GetTriggerUnit())=='uske')or(GetUnitTypeId(GetTriggerUnit())=='n00E')or(GetUnitTypeId(GetTriggerUnit())=='uskm')or(GetUnitTypeId(GetTriggerUnit())=='ohwd')or(GetUnitTypeId(GetTriggerUnit())=='Udre')or(GetUnitTypeId(GetTriggerUnit())=='Utic')or(GetUnitTypeId(GetTriggerUnit())=='U002')or(GetUnitTypeId(GetTriggerUnit())=='ushd')or(GetUnitTypeId(GetTriggerUnit())=='ugho')or(GetUnitTypeId(GetTriggerUnit())=='uabo')or(GetUnitTypeId(GetTriggerUnit())=='h005')
endfunction
function cS takes nothing returns boolean
return(cs())
endfunction
function ct takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Ntin')or(GetUnitTypeId(GetTriggerUnit())=='Nrob')or(GetUnitTypeId(GetTriggerUnit())=='Hmkg')or(GetUnitTypeId(GetTriggerUnit())=='Otch')or(GetUnitTypeId(GetTriggerUnit())=='H016')or(GetUnitTypeId(GetTriggerUnit())=='ohwd')or(GetUnitTypeId(GetTriggerUnit())=='ncg2')or(GetUnitTypeId(GetTriggerUnit())=='ncg3')or(GetUnitTypeId(GetTriggerUnit())=='nfa2')or(GetUnitTypeId(GetTriggerUnit())=='nfa1')or(GetUnitTypeId(GetTriggerUnit())=='nfac')or(GetUnitTypeId(GetTriggerUnit())=='ncgb')or(GetUnitTypeId(GetTriggerUnit())=='ncg1')or(GetUnitTypeId(GetTriggerUnit())=='E009')or(GetUnitTypeId(GetTriggerUnit())=='osp3')or(GetUnitTypeId(GetTriggerUnit())=='osp2')or(GetUnitTypeId(GetTriggerUnit())=='osp1')or(GetUnitTypeId(GetTriggerUnit())=='n00A')or(GetUnitTypeId(GetTriggerUnit())=='n00C')or(GetUnitTypeId(GetTriggerUnit())=='n00B')or(GetUnitTypeId(GetTriggerUnit())=='O001')or(GetUnitTypeId(GetTriggerUnit())=='H00U')or(GetUnitTypeId(GetTriggerUnit())=='Npbm')or(GetUnitTypeId(GetTriggerUnit())=='npn2')or(GetUnitTypeId(GetTriggerUnit())=='npn5')or(GetUnitTypeId(GetTriggerUnit())=='npn1')or(GetUnitTypeId(GetTriggerUnit())=='npn4')or(GetUnitTypeId(GetTriggerUnit())=='npn3')or(GetUnitTypeId(GetTriggerUnit())=='npn6')or(GetUnitTypeId(GetTriggerUnit())=='Nngs')or(GetUnitTypeId(GetTriggerUnit())=='ntor')or(GetSpellAbilityId()=='Atsp')or(GetSpellAbilityId()=='Atwa')or(GetUnitTypeId(GetTriggerUnit())=='nmed')or(GetUnitTypeId(GetTriggerUnit())=='earc')or(GetUnitTypeId(GetTriggerUnit())=='hrif')or(GetUnitTypeId(GetTriggerUnit())=='hkni')or(GetUnitTypeId(GetTriggerUnit())=='Ouch')
endfunction
function cT takes nothing returns boolean
return(ct())
endfunction
function cu takes nothing returns boolean
return(GetTimeOfDay()>=6.)and(GetTimeOfDay()<18.)
endfunction
function cU takes nothing returns boolean
return(cu())
endfunction
function cv takes nothing returns boolean
return(GetUnitTypeId(GetEnumUnit())=='u001')or(GetUnitTypeId(GetEnumUnit())=='U00F')
endfunction
function cV takes nothing returns nothing
if(cv())then
else
if(cU())then
if(cT())then
else
call SetUnitPositionLoc(GetEnumUnit(),GetRectCenter(udg_rect08))
endif
else
if(cS())then
else
call SetUnitPositionLoc(GetEnumUnit(),GetRectCenter(udg_rect08))
endif
endif
endif
endfunction
function cw takes nothing returns nothing
call ForGroupBJ(bY(udg_rect05),function cV)
endfunction
function cW takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Eevi')or(GetUnitTypeId(GetTriggerUnit())=='E001')or(GetUnitTypeId(GetTriggerUnit())=='E000')or(GetUnitTypeId(GetTriggerUnit())=='E006')or(GetUnitTypeId(GetTriggerUnit())=='Udre')or(GetUnitTypeId(GetTriggerUnit())=='Utic')or(GetUnitTypeId(GetTriggerUnit())=='U002')or(GetUnitTypeId(GetTriggerUnit())=='ushd')or(GetUnitTypeId(GetTriggerUnit())=='ugho')or(GetUnitTypeId(GetTriggerUnit())=='uske')or(GetUnitTypeId(GetTriggerUnit())=='n00E')or(GetUnitTypeId(GetTriggerUnit())=='uskm')or(GetUnitTypeId(GetTriggerUnit())=='ohwd')or(GetUnitTypeId(GetTriggerUnit())=='uabo')or(GetUnitTypeId(GetTriggerUnit())=='h005')
endfunction
function cx takes nothing returns boolean
return(cW())
endfunction
function cX takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Ntin')or(GetUnitTypeId(GetTriggerUnit())=='Nrob')or(GetUnitTypeId(GetTriggerUnit())=='Hmkg')or(GetUnitTypeId(GetTriggerUnit())=='Otch')or(GetUnitTypeId(GetTriggerUnit())=='H016')or(GetUnitTypeId(GetTriggerUnit())=='ohwd')or(GetUnitTypeId(GetTriggerUnit())=='ncg2')or(GetUnitTypeId(GetTriggerUnit())=='ncg3')or(GetUnitTypeId(GetTriggerUnit())=='nfa2')or(GetUnitTypeId(GetTriggerUnit())=='nfa1')or(GetUnitTypeId(GetTriggerUnit())=='nfac')or(GetUnitTypeId(GetTriggerUnit())=='ncgb')or(GetUnitTypeId(GetTriggerUnit())=='ncg1')or(GetUnitTypeId(GetTriggerUnit())=='E009')or(GetUnitTypeId(GetTriggerUnit())=='osp3')or(GetUnitTypeId(GetTriggerUnit())=='osp2')or(GetUnitTypeId(GetTriggerUnit())=='osp1')or(GetUnitTypeId(GetTriggerUnit())=='n00A')or(GetUnitTypeId(GetTriggerUnit())=='n00C')or(GetUnitTypeId(GetTriggerUnit())=='n00B')or(GetUnitTypeId(GetTriggerUnit())=='O001')or(GetUnitTypeId(GetTriggerUnit())=='H00U')or(GetUnitTypeId(GetTriggerUnit())=='Npbm')or(GetUnitTypeId(GetTriggerUnit())=='npn2')or(GetUnitTypeId(GetTriggerUnit())=='npn5')or(GetUnitTypeId(GetTriggerUnit())=='npn1')or(GetUnitTypeId(GetTriggerUnit())=='npn4')or(GetUnitTypeId(GetTriggerUnit())=='npn3')or(GetUnitTypeId(GetTriggerUnit())=='npn6')or(GetUnitTypeId(GetTriggerUnit())=='Nngs')or(GetUnitTypeId(GetTriggerUnit())=='ntor')or(GetSpellAbilityId()=='Atsp')or(GetSpellAbilityId()=='Atwa')or(GetUnitTypeId(GetTriggerUnit())=='nmed')or(GetUnitTypeId(GetTriggerUnit())=='earc')or(GetUnitTypeId(GetTriggerUnit())=='hrif')or(GetUnitTypeId(GetTriggerUnit())=='hkni')
endfunction
function cy takes nothing returns boolean
return(cX())
endfunction
function cY takes nothing returns boolean
return(GetTimeOfDay()>=6.)and(GetTimeOfDay()<18.)
endfunction
function cz takes nothing returns boolean
return(cY())
endfunction
function cZ takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='u001')or(GetUnitTypeId(GetTriggerUnit())=='U00F')
endfunction
function c0 takes nothing returns nothing
if(cZ())then
call SetUnitPositionLoc(GetTriggerUnit(),GetRectCenter(udg_rect05))
else
if(cz())then
if(cy())then
else
call SetUnitPositionLoc(GetTriggerUnit(),GetRectCenter(udg_rect08))
endif
else
if(cx())then
else
call SetUnitPositionLoc(GetTriggerUnit(),GetRectCenter(udg_rect08))
endif
endif
endif
endfunction
function c1 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Eevi')or(GetUnitTypeId(GetTriggerUnit())=='E001')or(GetUnitTypeId(GetTriggerUnit())=='E000')or(GetUnitTypeId(GetTriggerUnit())=='E006')or(GetUnitTypeId(GetTriggerUnit())=='Udre')or(GetUnitTypeId(GetTriggerUnit())=='Utic')or(GetUnitTypeId(GetTriggerUnit())=='U002')or(GetUnitTypeId(GetTriggerUnit())=='ushd')or(GetUnitTypeId(GetTriggerUnit())=='ugho')or(GetUnitTypeId(GetTriggerUnit())=='uskm')or(GetUnitTypeId(GetTriggerUnit())=='ohwd')or(GetUnitTypeId(GetTriggerUnit())=='uske')or(GetUnitTypeId(GetTriggerUnit())=='n00E')or(GetUnitTypeId(GetTriggerUnit())=='uabo')or(GetUnitTypeId(GetTriggerUnit())=='h005')
endfunction
function c2 takes nothing returns boolean
return(c1())
endfunction
function c3 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Ntin')or(GetUnitTypeId(GetTriggerUnit())=='Nrob')or(GetUnitTypeId(GetTriggerUnit())=='Hmkg')or(GetUnitTypeId(GetTriggerUnit())=='Otch')or(GetUnitTypeId(GetTriggerUnit())=='H016')or(GetUnitTypeId(GetTriggerUnit())=='ohwd')or(GetUnitTypeId(GetTriggerUnit())=='ncg2')or(GetUnitTypeId(GetTriggerUnit())=='ncg3')or(GetUnitTypeId(GetTriggerUnit())=='nfa2')or(GetUnitTypeId(GetTriggerUnit())=='nfa1')or(GetUnitTypeId(GetTriggerUnit())=='nfac')or(GetUnitTypeId(GetTriggerUnit())=='ncgb')or(GetUnitTypeId(GetTriggerUnit())=='ncg1')or(GetUnitTypeId(GetTriggerUnit())=='E009')or(GetUnitTypeId(GetTriggerUnit())=='osp3')or(GetUnitTypeId(GetTriggerUnit())=='osp2')or(GetUnitTypeId(GetTriggerUnit())=='osp1')or(GetUnitTypeId(GetTriggerUnit())=='n00A')or(GetUnitTypeId(GetTriggerUnit())=='n00C')or(GetUnitTypeId(GetTriggerUnit())=='n00B')or(GetUnitTypeId(GetTriggerUnit())=='O001')or(GetUnitTypeId(GetTriggerUnit())=='H00U')or(GetUnitTypeId(GetTriggerUnit())=='Npbm')or(GetUnitTypeId(GetTriggerUnit())=='npn2')or(GetUnitTypeId(GetTriggerUnit())=='npn5')or(GetUnitTypeId(GetTriggerUnit())=='npn1')or(GetUnitTypeId(GetTriggerUnit())=='npn4')or(GetUnitTypeId(GetTriggerUnit())=='npn3')or(GetUnitTypeId(GetTriggerUnit())=='npn6')or(GetUnitTypeId(GetTriggerUnit())=='Nngs')or(GetUnitTypeId(GetTriggerUnit())=='ntor')or(GetSpellAbilityId()=='Atsp')or(GetSpellAbilityId()=='Atwa')or(GetUnitTypeId(GetTriggerUnit())=='nmed')or(GetUnitTypeId(GetTriggerUnit())=='earc')or(GetUnitTypeId(GetTriggerUnit())=='hrif')or(GetUnitTypeId(GetTriggerUnit())=='hkni')
endfunction
function c4 takes nothing returns boolean
return(c3())
endfunction
function c5 takes nothing returns boolean
return(GetTimeOfDay()>=6.)and(GetTimeOfDay()<18.)
endfunction
function c6 takes nothing returns boolean
return(c5())
endfunction
function c7 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='u001')or(GetUnitTypeId(GetTriggerUnit())=='U00F')
endfunction
function c8 takes nothing returns nothing
if(c7())then
call SetUnitPositionLoc(GetTriggerUnit(),GetRectCenter(udg_rect05))
else
if(c6())then
if(c4())then
else
call SetUnitPositionLoc(GetTriggerUnit(),GetRectCenter(udg_rect08))
endif
else
if(c2())then
else
call SetUnitPositionLoc(GetTriggerUnit(),GetRectCenter(udg_rect08))
endif
endif
endif
endfunction
function c9 takes nothing returns nothing
call bD(56.)
set udg_integer04=3
call CreateNUnitsAtLocFacingLocBJ(3,'u001',Player(12),GetRectCenter(udg_rect05),GetRectCenter(bj_mapInitialPlayableArea))
endfunction
function Ca takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Eevi')or(GetUnitTypeId(GetTriggerUnit())=='E001')or(GetUnitTypeId(GetTriggerUnit())=='E000')or(GetUnitTypeId(GetTriggerUnit())=='E006')or(GetUnitTypeId(GetTriggerUnit())=='Udre')or(GetUnitTypeId(GetTriggerUnit())=='Utic')or(GetUnitTypeId(GetTriggerUnit())=='U002')or(GetUnitTypeId(GetTriggerUnit())=='Ntin')or(GetUnitTypeId(GetTriggerUnit())=='Hmkg')or(GetUnitTypeId(GetTriggerUnit())=='Otch')or(GetUnitTypeId(GetTriggerUnit())=='H016')or(GetUnitTypeId(GetTriggerUnit())=='ohwd')or(GetUnitTypeId(GetTriggerUnit())=='ncg2')or(GetUnitTypeId(GetTriggerUnit())=='ncg3')or(GetUnitTypeId(GetTriggerUnit())=='nfa2')or(GetUnitTypeId(GetTriggerUnit())=='nfa1')or(GetUnitTypeId(GetTriggerUnit())=='nfac')or(GetUnitTypeId(GetTriggerUnit())=='ncgb')or(GetUnitTypeId(GetTriggerUnit())=='ncg1')or(GetUnitTypeId(GetTriggerUnit())=='E009')or(GetUnitTypeId(GetTriggerUnit())=='osp3')or(GetUnitTypeId(GetTriggerUnit())=='osp2')or(GetUnitTypeId(GetTriggerUnit())=='osp1')or(GetUnitTypeId(GetTriggerUnit())=='n00A')or(GetUnitTypeId(GetTriggerUnit())=='n00C')or(GetUnitTypeId(GetTriggerUnit())=='n00B')or(GetUnitTypeId(GetTriggerUnit())=='O001')or(GetUnitTypeId(GetTriggerUnit())=='H00U')or(GetUnitTypeId(GetTriggerUnit())=='Npbm')or(GetUnitTypeId(GetTriggerUnit())=='Nngs')
endfunction
function CA takes nothing returns boolean
return(Ca())and(GetUnitTypeId(GetDyingUnit())=='u001')
endfunction
function Cb takes nothing returns nothing
call AddHeroXPSwapped(25,GetKillingUnit(),true)
endfunction
function CB takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='u001')and(b8('u001',Player(12))==0)
endfunction
function Cc takes nothing returns boolean
return(b8('u001',Player(12))==0)
endfunction
function CC takes nothing returns nothing
call DisplayTextToForce(udg_force02,"New wave comes in 15 seconds.")
set udg_integer04=(udg_integer04+1)
call TriggerSleepAction(15.)
if(Cc())then
call CreateNUnitsAtLoc(udg_integer04,'u001',Player(12),GetRectCenter(udg_rect05),bj_UNIT_FACING)
endif
endfunction
function Cd takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='hpea')and(GetOwningPlayer(GetTriggerUnit())!=GetOwningPlayer(GetAttacker()))
endfunction
function CD takes nothing returns boolean
return(Cd())
endfunction
function Ce takes nothing returns nothing
call IssueImmediateOrderById(GetAttacker(),851972)
endfunction
function CE takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='hpea')and(GetUnitTypeId(GetAttacker())!='Eevi')and(GetUnitTypeId(GetAttacker())!='E001')and(GetUnitTypeId(GetAttacker())!='E000')and(GetUnitTypeId(GetAttacker())!='E006')and(GetUnitTypeId(GetAttacker())!='Udre')and(GetUnitTypeId(GetAttacker())!='Utic')and(GetUnitTypeId(GetAttacker())!='U002')and(GetUnitTypeId(GetAttacker())!='ugho')and(GetUnitTypeId(GetAttacker())!='uske')and(GetUnitTypeId(GetAttacker())!='uskm')and(GetUnitTypeId(GetAttacker())!='n00E')and(GetUnitTypeId(GetAttacker())!='o000')and(GetUnitTypeId(GetAttacker())!='o004')and(GetUnitTypeId(GetAttacker())!='uabo')and(GetUnitTypeId(GetAttacker())!='o007')and(GetUnitTypeId(GetAttacker())!='o002')and(GetUnitTypeId(GetAttacker())!='o003')and(GetUnitTypeId(GetAttacker())!='ninf')
endfunction
function Cf takes nothing returns nothing
call IssueImmediateOrderById(GetAttacker(),851972)
endfunction
function CF takes nothing returns boolean
return(GetOwningPlayer(GetAttacker())!=GetOwningPlayer(GetTriggerUnit()))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force02))and(IsPlayerInForce(GetOwningPlayer(GetAttacker()),udg_force02))
endfunction
function Cg takes nothing returns boolean
return(CF())
endfunction
function CG takes nothing returns nothing
call IssueImmediateOrderById(GetAttacker(),851972)
endfunction
function Ch takes nothing returns boolean
return(GetOwningPlayer(GetAttacker())!=GetOwningPlayer(GetTriggerUnit()))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))and(IsPlayerInForce(GetOwningPlayer(GetAttacker()),udg_force01))
endfunction
function CH takes nothing returns boolean
return(Ch())
endfunction
function Ci takes nothing returns nothing
call IssueImmediateOrderById(GetAttacker(),851972)
endfunction
function CI takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='Eevi')or(GetUnitTypeId(GetKillingUnit())=='E001')or(GetUnitTypeId(GetKillingUnit())=='E000')or(GetUnitTypeId(GetKillingUnit())=='E006')or(GetUnitTypeId(GetKillingUnit())=='Udre')or(GetUnitTypeId(GetKillingUnit())=='Utic')or(GetUnitTypeId(GetKillingUnit())=='U002')
endfunction
function Cj takes nothing returns boolean
return(CI())
endfunction
function CJ takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='o005')or(GetUnitTypeId(GetDyingUnit())=='h00D')
endfunction
function Ck takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='Ntin')and(GetUnitTypeId(GetDyingUnit())=='Hmkg')and(GetUnitTypeId(GetDyingUnit())=='Npbm')and(GetUnitTypeId(GetDyingUnit())=='Nngs')and(GetUnitTypeId(GetDyingUnit())=='h00H')and(GetUnitTypeId(GetDyingUnit())=='h00I')and(GetUnitTypeId(GetDyingUnit())=='h00L')and(GetUnitTypeId(GetDyingUnit())=='h00E')and(GetUnitTypeId(GetDyingUnit())=='h00G')and(GetUnitTypeId(GetDyingUnit())=='h00F')and(GetUnitTypeId(GetDyingUnit())=='h00J')and(GetUnitTypeId(GetDyingUnit())=='h00K')
endfunction
function CK takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='n008')or(GetUnitTypeId(GetDyingUnit())=='n007')or(GetUnitTypeId(GetDyingUnit())=='e002')or(GetUnitTypeId(GetDyingUnit())=='e003')or(GetUnitTypeId(GetDyingUnit())=='u004')or(GetUnitTypeId(GetDyingUnit())=='u003')or(GetUnitTypeId(GetDyingUnit())=='h00A')or(GetUnitTypeId(GetDyingUnit())=='h00B')or(GetUnitTypeId(GetDyingUnit())=='h003')or(GetUnitTypeId(GetDyingUnit())=='h00O')or(GetUnitTypeId(GetDyingUnit())=='h00N')or(GetUnitTypeId(GetDyingUnit())=='h00Q')or(GetUnitTypeId(GetDyingUnit())=='h00P')
endfunction
function Cl takes nothing returns boolean
return(CK())
endfunction
function CL takes nothing returns boolean
return(Cl())
endfunction
function Cm takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='e004')or(GetUnitTypeId(GetDyingUnit())=='h002')or(GetUnitTypeId(GetDyingUnit())=='o006')
endfunction
function CM takes nothing returns boolean
return(Cm())
endfunction
function Cn takes nothing returns boolean
return(CJ())
endfunction
function CN takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='hspt')or(GetUnitTypeId(GetDyingUnit())=='n006')or(GetUnitTypeId(GetDyingUnit())=='n005')or(GetUnitTypeId(GetDyingUnit())=='h008')or(GetUnitTypeId(GetDyingUnit())=='h009')or(GetUnitTypeId(GetDyingUnit())=='h001')or(GetUnitTypeId(GetDyingUnit())=='h000')
endfunction
function Co takes nothing returns boolean
return(CN())
endfunction
function CO takes nothing returns nothing
if(Co())then
call AddHeroXPSwapped(25,GetKillingUnit(),false)
else
if(Cn())then
call AddHeroXPSwapped(50,GetKillingUnit(),false)
else
if(CM())then
call AddHeroXPSwapped(75,GetKillingUnit(),false)
else
if(CL())then
call AddHeroXPSwapped(75,GetKillingUnit(),false)
else
if(Ck())then
call AddHeroXPSwapped(175,GetKillingUnit(),false)
endif
endif
endif
endif
endif
endfunction
function Cp takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Eevi')or(GetUnitTypeId(GetTriggerUnit())=='E001')or(GetUnitTypeId(GetTriggerUnit())=='E000')or(GetUnitTypeId(GetTriggerUnit())=='E006')or(GetUnitTypeId(GetTriggerUnit())=='Udre')or(GetUnitTypeId(GetTriggerUnit())=='Utic')
endfunction
function CP takes nothing returns boolean
return(Cp())and(GetItemTypeId(GetManipulatedItem())=='I000')
endfunction
function Cq takes nothing returns nothing
call RemoveItem(GetManipulatedItem())
call CreateItemLoc('I000',GetUnitLoc(GetTriggerUnit()))
endfunction
function CQ takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Eevi')or(GetUnitTypeId(GetTriggerUnit())=='E001')or(GetUnitTypeId(GetTriggerUnit())=='E000')or(GetUnitTypeId(GetTriggerUnit())=='E006')or(GetUnitTypeId(GetTriggerUnit())=='Udre')or(GetUnitTypeId(GetTriggerUnit())=='Utic')
endfunction
function Cr takes nothing returns boolean
return(CQ())and(GetItemTypeId(GetManipulatedItem())=='skul')
endfunction
function CR takes nothing returns nothing
call RemoveItem(GetManipulatedItem())
call CreateItemLoc('skul',GetUnitLoc(GetTriggerUnit()))
endfunction
function Cs takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='Eevi')or(GetUnitTypeId(GetDyingUnit())=='E001')
endfunction
function CS takes nothing returns boolean
return(Cs())
endfunction
function Ct takes nothing returns nothing
call PlaySoundBJ(udg_sound06)
call CreateItemLoc('I000',GetUnitLoc(GetDyingUnit()))
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetTriggerUnit()))+" (Nosferatu) has been defeated."))
endfunction
function CT takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='E000')or(GetUnitTypeId(GetDyingUnit())=='E006')
endfunction
function Cu takes nothing returns boolean
return(CT())
endfunction
function CU takes nothing returns nothing
call PlaySoundBJ(udg_sound06)
call CreateItemLoc('I000',GetUnitLoc(GetDyingUnit()))
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetTriggerUnit()))+" (Dracula) has been defeated."))
endfunction
function Cv takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='Udre')and(GetDyingUnit()!=udg_unit03)
endfunction
function CV takes nothing returns boolean
return(Cv())
endfunction
function Cw takes nothing returns nothing
call PlaySoundBJ(udg_sound06)
call CreateItemLoc('skul',GetUnitLoc(GetDyingUnit()))
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetTriggerUnit()))+" (Vampire) has been defeated."))
endfunction
function CW takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='Utic')
endfunction
function Cx takes nothing returns nothing
call PlaySoundBJ(udg_sound06)
call CreateItemLoc('skul',GetUnitLoc(GetDyingUnit()))
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetTriggerUnit()))+" (Vampire) has been defeated."))
endfunction
function CX takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='Eevi')or(GetUnitTypeId(GetKillingUnit())=='E001')or(GetUnitTypeId(GetKillingUnit())=='E000')or(GetUnitTypeId(GetKillingUnit())=='E006')or(GetUnitTypeId(GetKillingUnit())=='Udre')or(GetUnitTypeId(GetKillingUnit())=='Utic')or(GetUnitTypeId(GetKillingUnit())=='U002')
endfunction
function Cy takes nothing returns boolean
return(CX())
endfunction
function CY takes nothing returns boolean
return(udg_integer03>=1)
endfunction
function Cz takes nothing returns boolean
return(udg_integer03<=5)
endfunction
function CZ takes nothing returns boolean
return GetBooleanAnd(CY(),Cz())
endfunction
function C0 takes nothing returns boolean
return(udg_integer03>=6)
endfunction
function C1 takes nothing returns boolean
return(udg_integer03<=10)
endfunction
function C2 takes nothing returns boolean
return GetBooleanAnd(C0(),C1())
endfunction
function C3 takes nothing returns boolean
return(udg_integer03>=11)
endfunction
function C4 takes nothing returns boolean
return(udg_integer03<=15)
endfunction
function C5 takes nothing returns boolean
return GetBooleanAnd(C3(),C4())
endfunction
function C6 takes nothing returns boolean
return(udg_integer03>=16)
endfunction
function C7 takes nothing returns boolean
return(udg_integer03<=20)
endfunction
function C8 takes nothing returns boolean
return GetBooleanAnd(C6(),C7())
endfunction
function C9 takes nothing returns boolean
return(udg_integer03>=21)
endfunction
function da takes nothing returns boolean
return(udg_integer03<=25)
endfunction
function dA takes nothing returns boolean
return GetBooleanAnd(C9(),da())
endfunction
function db takes nothing returns boolean
return(udg_integer03>=26)
endfunction
function dB takes nothing returns boolean
return(udg_integer03<=30)
endfunction
function dc takes nothing returns boolean
return GetBooleanAnd(db(),dB())
endfunction
function dC takes nothing returns boolean
return(udg_integer03>=31)
endfunction
function dd takes nothing returns boolean
return(udg_integer03<=35)
endfunction
function dD takes nothing returns boolean
return GetBooleanAnd(dC(),dd())
endfunction
function de takes nothing returns boolean
return(udg_integer03>=36)
endfunction
function dE takes nothing returns boolean
return(udg_integer03<=40)
endfunction
function df takes nothing returns boolean
return GetBooleanAnd(de(),dE())
endfunction
function dF takes nothing returns boolean
return(udg_integer03>=41)
endfunction
function dg takes nothing returns boolean
return(udg_integer03<=42)
endfunction
function dG takes nothing returns boolean
return GetBooleanAnd(dF(),dg())
endfunction
function dh takes nothing returns boolean
return(udg_integer03>=43)
endfunction
function dH takes nothing returns boolean
return(udg_integer03<=44)
endfunction
function di takes nothing returns boolean
return GetBooleanAnd(dh(),dH())
endfunction
function dI takes nothing returns boolean
return(udg_integer03>=45)
endfunction
function dj takes nothing returns boolean
return(udg_integer03<=46)
endfunction
function dJ takes nothing returns boolean
return GetBooleanAnd(dI(),dj())
endfunction
function dk takes nothing returns boolean
return(udg_integer03>=47)
endfunction
function dK takes nothing returns boolean
return(udg_integer03<=48)
endfunction
function dl takes nothing returns boolean
return GetBooleanAnd(dk(),dK())
endfunction
function dL takes nothing returns nothing
set udg_integer03=GetRandomInt(1,1000)
if(CZ())then
call CreateItemLoc('I001',GetUnitLoc(GetDyingUnit()))
endif
if(C2())then
call CreateItemLoc('I001',GetUnitLoc(GetDyingUnit()))
endif
if(C5())then
call CreateItemLoc('I002',GetUnitLoc(GetDyingUnit()))
endif
if(C8())then
call CreateItemLoc('I002',GetUnitLoc(GetDyingUnit()))
endif
if(dA())then
call CreateItemLoc('I006',GetUnitLoc(GetDyingUnit()))
endif
if(dc())then
call CreateItemLoc('I006',GetUnitLoc(GetDyingUnit()))
endif
if(dD())then
call CreateItemLoc('I00T',GetUnitLoc(GetDyingUnit()))
endif
if(df())then
call CreateItemLoc('I00T',GetUnitLoc(GetDyingUnit()))
endif
if(dG())then
call CreateItemLoc('I00D',GetUnitLoc(GetDyingUnit()))
endif
if(di())then
call CreateItemLoc('I00O',GetUnitLoc(GetDyingUnit()))
endif
if(dJ())then
call CreateItemLoc('I00U',GetUnitLoc(GetDyingUnit()))
endif
if(dl())then
call CreateItemLoc('I00A',GetUnitLoc(GetDyingUnit()))
endif
endfunction
function dm takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='E000')or(GetUnitTypeId(GetKillingUnit())=='E006')or(GetUnitTypeId(GetKillingUnit())=='Eevi')or(GetUnitTypeId(GetKillingUnit())=='E001')or(GetUnitTypeId(GetKillingUnit())=='Udre')or(GetUnitTypeId(GetKillingUnit())=='Utic')or(GetUnitTypeId(GetKillingUnit())=='U002')
endfunction
function dM takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='hspt')and(dm())
endfunction
function dn takes nothing returns boolean
return(dM())
endfunction
function dN takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='Eevi')or(GetUnitTypeId(GetKillingUnit())=='E001')
endfunction
function do takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),bj_FORCE_PLAYER[11]))and(dN())
endfunction
function dO takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='E000')or(GetUnitTypeId(GetKillingUnit())=='E006')
endfunction
function dp takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),bj_FORCE_PLAYER[10]))and(dO())
endfunction
function dP takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='Udre')or(GetUnitTypeId(GetKillingUnit())=='Utic')or(GetUnitTypeId(GetKillingUnit())=='U002')
endfunction
function dq takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),bj_FORCE_PLAYER[9]))and(dP())
endfunction
function dQ takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='Udre')or(GetUnitTypeId(GetKillingUnit())=='Utic')or(GetUnitTypeId(GetKillingUnit())=='U002')
endfunction
function dr takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),bj_FORCE_PLAYER[8]))and(dQ())
endfunction
function dR takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='Udre')or(GetUnitTypeId(GetKillingUnit())=='Utic')or(GetUnitTypeId(GetKillingUnit())=='U002')
endfunction
function ds takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),bj_FORCE_PLAYER[7]))and(dR())
endfunction
function dS takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='Udre')or(GetUnitTypeId(GetKillingUnit())=='Utic')or(GetUnitTypeId(GetKillingUnit())=='U002')
endfunction
function dt takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),bj_FORCE_PLAYER[6]))and(dS())
endfunction
function dT takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='Udre')or(GetUnitTypeId(GetKillingUnit())=='Utic')or(GetUnitTypeId(GetKillingUnit())=='U002')
endfunction
function du takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),bj_FORCE_PLAYER[5]))and(dT())
endfunction
function dU takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='Udre')or(GetUnitTypeId(GetKillingUnit())=='Utic')or(GetUnitTypeId(GetKillingUnit())=='U002')
endfunction
function dv takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),bj_FORCE_PLAYER[4]))and(dU())
endfunction
function dV takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='Udre')or(GetUnitTypeId(GetKillingUnit())=='Utic')or(GetUnitTypeId(GetKillingUnit())=='U002')
endfunction
function dw takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),bj_FORCE_PLAYER[3]))and(dV())
endfunction
function dW takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='Udre')or(GetUnitTypeId(GetKillingUnit())=='Utic')or(GetUnitTypeId(GetKillingUnit())=='U002')
endfunction
function dx takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),bj_FORCE_PLAYER[2]))and(dW())
endfunction
function dX takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='Udre')or(GetUnitTypeId(GetKillingUnit())=='Utic')or(GetUnitTypeId(GetKillingUnit())=='U002')
endfunction
function dy takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),bj_FORCE_PLAYER[1]))and(dX())
endfunction
function dY takes nothing returns nothing
if(dy())then
call CreateNUnitsAtLocFacingLocBJ(1,'ugho',Player(1),GetUnitLoc(GetDyingUnit()),GetUnitLoc(GetKillingUnit()))
return
else
if(dx())then
call CreateNUnitsAtLocFacingLocBJ(1,'ugho',Player(2),GetUnitLoc(GetDyingUnit()),GetUnitLoc(GetKillingUnit()))
return
else
if(dw())then
call CreateNUnitsAtLocFacingLocBJ(1,'ugho',Player(3),GetUnitLoc(GetDyingUnit()),GetUnitLoc(GetKillingUnit()))
return
else
if(dv())then
call CreateNUnitsAtLocFacingLocBJ(1,'ugho',Player(4),GetUnitLoc(GetDyingUnit()),GetUnitLoc(GetKillingUnit()))
return
else
if(du())then
call CreateNUnitsAtLocFacingLocBJ(1,'ugho',Player(5),GetUnitLoc(GetDyingUnit()),GetUnitLoc(GetKillingUnit()))
return
else
if(dt())then
call CreateNUnitsAtLocFacingLocBJ(1,'ugho',Player(6),GetUnitLoc(GetDyingUnit()),GetUnitLoc(GetKillingUnit()))
return
else
if(ds())then
call CreateNUnitsAtLocFacingLocBJ(1,'ugho',Player(7),GetUnitLoc(GetDyingUnit()),GetUnitLoc(GetKillingUnit()))
return
else
if(dr())then
call CreateNUnitsAtLocFacingLocBJ(1,'ugho',Player(8),GetUnitLoc(GetDyingUnit()),GetUnitLoc(GetKillingUnit()))
return
else
if(dq())then
call CreateNUnitsAtLocFacingLocBJ(1,'ugho',Player(9),GetUnitLoc(GetDyingUnit()),GetUnitLoc(GetKillingUnit()))
return
else
if(dp())then
call CreateNUnitsAtLocFacingLocBJ(1,'ugho',Player(10),GetUnitLoc(GetDyingUnit()),GetUnitLoc(GetKillingUnit()))
return
else
if(do())then
call CreateNUnitsAtLocFacingLocBJ(1,'ugho',Player(11),GetUnitLoc(GetDyingUnit()),GetUnitLoc(GetKillingUnit()))
return
else
call CreateNUnitsAtLocFacingLocBJ(1,'ugho',Player(0),GetUnitLoc(GetDyingUnit()),GetUnitLoc(GetKillingUnit()))
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endfunction
function dz takes nothing returns boolean
return(GetSpellAbilityId()=='A01W')
endfunction
function dZ takes nothing returns nothing
call TriggerSleepAction(.01)
call KillUnit(GetTriggerUnit())
endfunction
function d0 takes nothing returns boolean
return(GetUnitTypeId(GetEnteringUnit())=='Eevi')or(GetUnitTypeId(GetEnteringUnit())=='Udre')or(GetUnitTypeId(GetEnteringUnit())=='U002')or(GetUnitTypeId(GetEnteringUnit())=='Ntin')or(GetUnitTypeId(GetEnteringUnit())=='Hmkg')or(GetUnitTypeId(GetEnteringUnit())=='Npbm')or(GetUnitTypeId(GetEnteringUnit())=='Nngs')
endfunction
function d1 takes nothing returns boolean
return(d0())
endfunction
function d2 takes nothing returns boolean
return(GetUnitTypeId(GetEnteringUnit())=='Nngs')
endfunction
function d3 takes nothing returns boolean
return(GetUnitTypeId(GetEnteringUnit())=='Npbm')
endfunction
function d4 takes nothing returns boolean
return(GetUnitTypeId(GetEnteringUnit())=='Hmkg')
endfunction
function d5 takes nothing returns boolean
return(GetUnitTypeId(GetEnteringUnit())=='Ntin')
endfunction
function d6 takes nothing returns boolean
return(GetUnitTypeId(GetEnteringUnit())=='U002')
endfunction
function d7 takes nothing returns boolean
return(GetUnitTypeId(GetEnteringUnit())=='Udre')
endfunction
function d8 takes nothing returns boolean
return(GetUnitTypeId(GetEnteringUnit())=='Eevi')
endfunction
function d9 takes nothing returns nothing
if(d8())then
call AddSpecialEffectTargetUnitBJ("right hand",GetTriggerUnit(),"BurningHands.mdx")
call AddSpecialEffectTargetUnitBJ("left hand",GetTriggerUnit(),"BurningHands.mdx")
else
if(d7())then
call AddSpecialEffectTargetUnitBJ("right hand",GetTriggerUnit(),"DarkHands.mdx")
call AddSpecialEffectTargetUnitBJ("left hand",GetTriggerUnit(),"DarkHands.mdx")
else
if(d6())then
call AddSpecialEffectTargetUnitBJ("origin",GetTriggerUnit(),"Enchant.MDX")
else
if(d5())then
call AddSpecialEffectTargetUnitBJ("right hand",GetTriggerUnit(),"RadianceHands.mdx")
call AddSpecialEffectTargetUnitBJ("left hand",GetTriggerUnit(),"RadianceHands.mdx")
else
if(d4())then
call AddSpecialEffectTargetUnitBJ("right hand",GetTriggerUnit(),"StarfireHands.mdx")
call AddSpecialEffectTargetUnitBJ("left hand",GetTriggerUnit(),"StarfireHands.mdx")
else
if(d3())then
call AddSpecialEffectTargetUnitBJ("right hand",GetTriggerUnit(),"EarthHands.mdx")
call AddSpecialEffectTargetUnitBJ("left hand",GetTriggerUnit(),"EarthHands.mdx")
else
if(d2())then
call AddSpecialEffectTargetUnitBJ("right hand",GetTriggerUnit(),"MoonfireHands.mdx")
call AddSpecialEffectTargetUnitBJ("left hand",GetTriggerUnit(),"MoonfireHands.mdx")
endif
endif
endif
endif
endif
endif
endif
endfunction
function Da takes nothing returns boolean
return(GetSpellAbilityId()=='A01F')
endfunction
function DA takes nothing returns nothing
call AddSpecialEffectTargetUnitBJ("origin",GetSpellAbilityUnit(),"Abilities\\Spells\\Undead\\DeathPact\\DeathPactTarget.mdl")
endfunction
function Db takes nothing returns boolean
return(GetSpellAbilityId()=='A01O')
endfunction
function DB takes nothing returns nothing
call AddSpecialEffectTargetUnitBJ("origin",GetSpellAbilityUnit(),"Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl")
endfunction
function Dc takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetDyingUnit()),udg_force02))and(GetUnitTypeId(GetDyingUnit())=='hpea')and((1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))>0)and((1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))<=12)
endfunction
function DC takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function Dd takes nothing returns nothing
call SetPlayerAllianceStateBJ(GetOwningPlayer(GetDyingUnit()),GetEnumPlayer(),0)
call SetPlayerAllianceStateBJ(GetEnumPlayer(),GetOwningPlayer(GetDyingUnit()),0)
endfunction
function DD takes nothing returns nothing
call SetPlayerAllianceStateBJ(GetOwningPlayer(GetDyingUnit()),GetEnumPlayer(),3)
call SetPlayerAllianceStateBJ(GetEnumPlayer(),GetOwningPlayer(GetDyingUnit()),3)
endfunction
function De takes nothing returns boolean
return(GetHeroLevel(GetKillingUnit())>=4)
endfunction
function DE takes nothing returns boolean
return(GetUnitTypeId(GetEnumUnit())=='Udre')
endfunction
function Df takes nothing returns nothing
if(DE())then
call SetUnitInvulnerable(GetTriggerUnit(),true)
if(De())then
call SetHeroLevelBJ(GetEnumUnit(),(GetHeroLevel(GetKillingUnit())-3),false)
endif
endif
endfunction
function DF takes nothing returns boolean
return(GetUnitTypeId(GetEnumUnit())=='Udre')
endfunction
function Dg takes nothing returns nothing
if(DF())then
call SetUnitInvulnerable(GetTriggerUnit(),false)
endif
endfunction
function DG takes nothing returns nothing
call SetPlayerStateBJ(GetOwningPlayer(GetDyingUnit()),PLAYER_STATE_RESOURCE_GOLD,0)
call SetPlayerStateBJ(GetOwningPlayer(GetDyingUnit()),PLAYER_STATE_RESOURCE_LUMBER,0)
call ForGroupBJ(b3(GetTriggerPlayer()),function DC)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetTriggerUnit()))+" has fallen and will now be reborn as a Vampire..."))
call PlaySoundBJ(udg_sound03)
call CreateNUnitsAtLocFacingLocBJ(1,'Udre',GetOwningPlayer(GetDyingUnit()),GetUnitLoc(GetDyingUnit()),GetUnitLoc(GetKillingUnit()))
call ForceRemovePlayer(udg_force02,GetTriggerPlayer())
call ForceAddPlayer(udg_force01,GetTriggerPlayer())
call ForForce(udg_force02,function Dd)
call ForForce(udg_force01,function DD)
call SetPlayerAllianceStateBJ(GetTriggerPlayer(),Player(10),5)
call SetPlayerAllianceStateBJ(GetTriggerPlayer(),Player(11),5)
call FogEnableOff()
call FogEnableOn()
call ForGroupBJ(b3(GetTriggerPlayer()),function Df)
call TriggerSleepAction(5.)
call ForGroupBJ(b3(GetTriggerPlayer()),function Dg)
endfunction
function Dh takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='u001')or(GetUnitTypeId(GetKillingUnit())=='ninf')or(GetUnitTypeId(GetKillingUnit())=='o000')or(GetUnitTypeId(GetKillingUnit())=='o004')or(GetUnitTypeId(GetKillingUnit())=='o002')or(GetUnitTypeId(GetKillingUnit())=='o003')or(GetUnitTypeId(GetKillingUnit())=='o007')
endfunction
function DH takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetDyingUnit()),udg_force02))and(GetUnitTypeId(GetDyingUnit())=='hpea')and(Dh())
endfunction
function Di takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function DI takes nothing returns nothing
call SetPlayerStateBJ(GetOwningPlayer(GetDyingUnit()),PLAYER_STATE_RESOURCE_GOLD,0)
call SetPlayerStateBJ(GetOwningPlayer(GetDyingUnit()),PLAYER_STATE_RESOURCE_LUMBER,0)
call ForGroupBJ(b3(GetTriggerPlayer()),function Di)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetTriggerUnit()))+" has been own by creep what a NOOB!!!"))
endfunction
function Dj takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='hpea')and((1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))>0)and((1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))<=12)
endfunction
function DJ takes nothing returns boolean
return(udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]==6)
endfunction
function Dk takes nothing returns boolean
return(udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]==5)
endfunction
function DK takes nothing returns boolean
return(udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]==4)
endfunction
function Dl takes nothing returns boolean
return(udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]==3)
endfunction
function DL takes nothing returns boolean
return(udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]==2)
endfunction
function Dm takes nothing returns nothing
set udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=0
set udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]=(udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]+1)
if(DL())then
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,8.,(GetPlayerName(GetOwningPlayer(GetKillingUnit()))+" is on a |cffffcc00KILLING SPREE!!!|r"))
set udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]=" |cffffcc00KILLING SPREE!!!|r"
else
if(Dl())then
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,8.,(GetPlayerName(GetOwningPlayer(GetKillingUnit()))+" is |cffffcc00DOMINATING!!!|r"))
set udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]=" |cffffcc00DOMINATING!!!|r"
else
if(DK())then
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,8.,(GetPlayerName(GetOwningPlayer(GetKillingUnit()))+" |cffffcc00UNSTOPABLE!!!|r"))
set udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]=" |cffffcc00UNSTOPABLE!!!|r"
else
if(Dk())then
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,8.,(GetPlayerName(GetOwningPlayer(GetKillingUnit()))+" |cffffcc00MONSTER KILL!!!|r"))
set udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]=" |cffffcc00MONSTER KILL!!!|r"
else
if(DJ())then
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,8.,(GetPlayerName(GetOwningPlayer(GetKillingUnit()))+" is |cffffcc00GOD LIKE!!!|r"))
set udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]=" |cffffcc00GOD LIKE!!!|r"
endif
endif
endif
endif
endif
endfunction
function DM takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='hpea')and((1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))>0)and((1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))<=12)
endfunction
function Dn takes nothing returns nothing
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,8.,(GetPlayerName(GetOwningPlayer(GetKillingUnit()))+" has a |cffffcc00NOOB KILL!!!|r"))
call DisableTrigger(udg_trigger46)
endfunction
function DN takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='hpea')and(b8('hpea',Player(0))==0)and(b8('hpea',Player(1))==0)and(b8('hpea',Player(2))==0)and(b8('hpea',Player(3))==0)and(b8('hpea',Player(4))==0)and(b8('hpea',Player(5))==0)and(b8('hpea',Player(6))==0)and(b8('hpea',Player(7))==0)and(b8('hpea',Player(8))==0)and(b8('hpea',Player(9))==0)
endfunction
function Do takes nothing returns nothing
call CustomDefeatBJ(GetEnumPlayer(),"Defeat!")
endfunction
function DO takes nothing returns nothing
call CustomVictoryBJ(GetEnumPlayer(),true,true)
endfunction
function Dp takes nothing returns nothing
call TriggerSleepAction(1.)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"The world is doomed...")
call PlaySoundBJ(udg_sound07)
call SetTerrainFogExBJ(0,1000.,8000,.0,'d',.0,.0)
call TriggerSleepAction(14.)
call ForForce(udg_force02,function Do)
call ForForce(udg_force01,function DO)
endfunction
function DP takes nothing returns nothing
call CustomVictoryBJ(GetEnumPlayer(),true,true)
endfunction
function Dq takes nothing returns nothing
call CustomDefeatBJ(GetEnumPlayer(),"Defeat!")
endfunction
function DQ takes nothing returns nothing
call DisableTrigger(udg_trigger49)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"The world is now safe...")
call PlaySoundBJ(udg_sound01)
call TriggerSleepAction(14.)
call ForForce(udg_force02,function DP)
call ForForce(udg_force01,function Dq)
endfunction
function Dr takes nothing returns boolean
return(GetUnitTypeId(GetEnumUnit())=='E000')or(GetUnitTypeId(GetEnumUnit())=='E006')or(GetUnitTypeId(GetEnumUnit())=='Eevi')or(GetUnitTypeId(GetEnumUnit())=='E001')or(GetUnitTypeId(GetEnumUnit())=='Udre')or(GetUnitTypeId(GetEnumUnit())=='Utic')
endfunction
function DR takes nothing returns boolean
return(Dr())
endfunction
function Ds takes nothing returns nothing
if(DR())then
set udg_integer01=(udg_integer01+1)
endif
endfunction
function DS takes nothing returns boolean
return(udg_integer01==0)
endfunction
function Dt takes nothing returns nothing
set udg_integer01=0
call ForGroupBJ(bY(udg_rect03),function Ds)
if(DS())then
call ConditionalTriggerExecute(udg_trigger48)
endif
endfunction
function DT takes nothing returns nothing
call SetPlayerAllianceStateBJ(GetTriggerPlayer(),GetEnumPlayer(),5)
endfunction
function Du takes nothing returns boolean
return(GetUnitTypeId(GetEnumUnit())=='E000')or(GetUnitTypeId(GetEnumUnit())=='E006')or(GetUnitTypeId(GetEnumUnit())=='Eevi')or(GetUnitTypeId(GetEnumUnit())=='E001')or(GetUnitTypeId(GetEnumUnit())=='Udre')or(GetUnitTypeId(GetEnumUnit())=='Utic')
endfunction
function DU takes nothing returns boolean
return(Du())
endfunction
function Dv takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function DV takes nothing returns boolean
return(GetUnitTypeId(GetEnumUnit())=='hpea')
endfunction
function Dw takes nothing returns nothing
if(DV())then
set udg_integer02=(udg_integer02+1)
endif
endfunction
function DW takes nothing returns boolean
return(udg_integer02==0)
endfunction
function Dx takes nothing returns boolean
return(GetUnitTypeId(GetEnumUnit())=='hpea')
endfunction
function DX takes nothing returns nothing
if(DU())then
call ForForce(b5(GetTriggerPlayer()),function DT)
endif
if(Dx())then
call ForGroupBJ(b3(GetTriggerPlayer()),function Dv)
set udg_integer02=0
call ForGroupBJ(bY(udg_rect03),function Dw)
if(DW())then
call ConditionalTriggerExecute(udg_trigger51)
endif
endif
endfunction
function Dy takes nothing returns nothing
call ForGroupBJ(b3(GetTriggerPlayer()),function DX)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetTriggerPlayer())+" has left the game."))
endfunction
function DY takes nothing returns nothing
call CustomDefeatBJ(GetEnumPlayer(),"Defeat!")
endfunction
function Dz takes nothing returns nothing
call CustomVictoryBJ(GetEnumPlayer(),true,true)
endfunction
function DZ takes nothing returns nothing
call DisableTrigger(udg_trigger50)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"The world is doomed...")
call PlaySoundBJ(udg_sound07)
call SetTerrainFogExBJ(0,1000.,8000,.0,'d',.0,.0)
call TriggerSleepAction(14.)
call ForForce(udg_force02,function DY)
call ForForce(udg_force01,function Dz)
endfunction
function D0 takes nothing returns nothing
call DisplayTextToForce(udg_force01,"2 Vampires can get fusioned if they stay in the circles in the middle. They can fusion just every 6 Minutes.")
endfunction
function D1 takes nothing returns nothing
call TimerDialogDisplayForPlayerBJ(false,bj_lastCreatedTimerDialog,GetEnumPlayer())
endfunction
function D2 takes nothing returns nothing
call TimerDialogDisplayForPlayerBJ(false,bj_lastCreatedTimerDialog,GetEnumPlayer())
endfunction
function D3 takes nothing returns nothing
set udg_boolean03=false
call StartTimerBJ(udg_timer01,false,360.)
call CreateTimerDialogBJ(udg_timer01,"Fusion ready in")
call ForForce(udg_force02,function D1)
call bD(360.)
call ForForce(bj_FORCE_ALL_PLAYERS,function D2)
call DestroyTimerDialog(bj_lastCreatedTimerDialog)
set udg_boolean03=true
endfunction
function D4 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Udre')
endfunction
function D5 takes nothing returns nothing
set udg_boolean01=true
call DisplayTextToForce(udg_force01,"Left Fusion Circle is ready")
call ConditionalTriggerExecute(udg_trigger58)
endfunction
function D6 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Udre')
endfunction
function D7 takes nothing returns nothing
set udg_boolean01=false
endfunction
function D8 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Udre')
endfunction
function D9 takes nothing returns nothing
set udg_boolean02=true
call DisplayTextToForce(udg_force01,"Right Fusion Circle is ready")
call ConditionalTriggerExecute(udg_trigger58)
endfunction
function ea takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Udre')
endfunction
function eA takes nothing returns nothing
set udg_boolean02=false
endfunction
function eb takes nothing returns boolean
return(udg_boolean01)
endfunction
function eB takes nothing returns boolean
return(udg_boolean02)
endfunction
function ec takes nothing returns boolean
return(GetBooleanAnd(eb(),eB()))
endfunction
function eC takes nothing returns boolean
return(GetUnitTypeId(GetEnumUnit())=='Udre')
endfunction
function ed takes nothing returns nothing
if(eC())then
set udg_unit01=GetEnumUnit()
endif
endfunction
function eD takes nothing returns boolean
return(GetUnitTypeId(GetEnumUnit())=='Udre')
endfunction
function ee takes nothing returns nothing
if(eD())then
set udg_unit02=GetEnumUnit()
endif
endfunction
function eE takes nothing returns boolean
return(udg_integer03==1)
endfunction
function ef takes nothing returns boolean
return(udg_boolean01)
endfunction
function eF takes nothing returns boolean
return(udg_boolean02)
endfunction
function eg takes nothing returns boolean
return(udg_boolean03)and(GetBooleanAnd(ef(),eF()))
endfunction
function eG takes nothing returns nothing
call bD(.1)
if(eg())then
call TriggerExecute(udg_trigger53)
call ForGroupBJ(bY(udg_rect09),function ed)
call ForGroupBJ(bY(udg_rect10),function ee)
set udg_player01=GetOwningPlayer(udg_unit01)
set udg_player02=GetOwningPlayer(udg_unit02)
call SetUnitOwner(udg_unit02,Player(15),false)
call SetUnitOwner(udg_unit01,Player(15),false)
call SetUnitInvulnerable(udg_unit01,true)
call SetUnitInvulnerable(udg_unit02,true)
set udg_integer03=GetRandomInt(1,2)
if(eE())then
call CreateNUnitsAtLoc(1,'U002',udg_player01,GetRectCenter(udg_rect11),bj_UNIT_FACING)
else
call CreateNUnitsAtLoc(1,'U002',udg_player02,GetRectCenter(udg_rect11),bj_UNIT_FACING)
endif
set udg_unit03=bj_lastCreatedUnit
call SetHeroXP(udg_unit03,(GetHeroXP(udg_unit01)+GetHeroXP(udg_unit02)),false)
call EnableTrigger(udg_trigger60)
call DisplayTextToForce(b4(udg_player01),"Fusion will be broken in 3 Minutes")
call DisplayTextToForce(b4(udg_player02),"Fusion will be broken in 3 Minutes")
call bD(60.)
call DisplayTextToForce(b4(udg_player01),"Fusion will be broken in 2 Minutes")
call DisplayTextToForce(b4(udg_player02),"Fusion will be broken in 2 Minutes")
call bD(60.)
call DisplayTextToForce(b4(udg_player01),"Fusion will be broken in 60 Seconds")
call DisplayTextToForce(b4(udg_player02),"Fusion will be broken in 60 Seconds")
call bD(30.)
call DisplayTextToForce(b4(udg_player01),"Fusion will be broken in 30 Seconds")
call DisplayTextToForce(b4(udg_player02),"Fusion broken in 30 Seconds")
call bD(30.)
call DisableTrigger(udg_trigger60)
call ConditionalTriggerExecute(udg_trigger59)
endif
endfunction
function eh takes nothing returns boolean
return(IsUnitAliveBJ(udg_unit03))
endfunction
function eH takes nothing returns nothing
set udg_integer03=GetHeroXP(udg_unit01)
call AddHeroXPSwapped(((GetHeroXP(udg_unit03)-(udg_integer03+GetHeroXP(udg_unit02)))/2),udg_unit01,false)
call AddHeroXPSwapped(((GetHeroXP(udg_unit03)-(udg_integer03+GetHeroXP(udg_unit02)))/2),udg_unit02,false)
call RemoveUnit(udg_unit03)
set udg_unit03=null
call SetUnitOwner(udg_unit01,udg_player01,true)
call SetUnitInvulnerable(udg_unit01,false)
set udg_unit01=null
call SetUnitOwner(udg_unit02,udg_player02,true)
call SetUnitInvulnerable(udg_unit02,false)
set udg_unit02=null
endfunction
function ei takes nothing returns boolean
return(GetTriggerUnit()==udg_unit03)
endfunction
function eI takes nothing returns nothing
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"Fusioned Vampire is killed. 2 Vampires die now !")
call SetUnitOwner(udg_unit01,udg_player01,true)
call SetUnitOwner(udg_unit02,udg_player02,true)
call SetUnitInvulnerable(udg_unit01,false)
call SetUnitInvulnerable(udg_unit02,false)
call ExplodeUnitBJ(udg_unit01)
set udg_unit01=null
call ExplodeUnitBJ(udg_unit02)
set udg_unit02=null
endfunction
function ej takes nothing returns nothing
local weathereffect we
local destructable d
local trigger t
local real life
local player p
local unit u
local integer unitID
local integer i
call SetCameraBounds(-8192.+GetCameraMargin(CAMERA_MARGIN_LEFT),-8192.+GetCameraMargin(CAMERA_MARGIN_BOTTOM),8192.-GetCameraMargin(CAMERA_MARGIN_RIGHT),8192.-GetCameraMargin(CAMERA_MARGIN_TOP),-8192.+GetCameraMargin(CAMERA_MARGIN_LEFT),8192.-GetCameraMargin(CAMERA_MARGIN_TOP),8192.-GetCameraMargin(CAMERA_MARGIN_RIGHT),-8192.+GetCameraMargin(CAMERA_MARGIN_BOTTOM))
call SetDayNightModels("Environment\\DNC\\DNCLordaeron\\DNCLordaeronTerrain\\DNCLordaeronTerrain.mdl","Environment\\DNC\\DNCLordaeron\\DNCLordaeronUnit\\DNCLordaeronUnit.mdl")
call SetTerrainFogEx(0,3000.,5000.,.5,.0,.0,.0)
set we=AddWeatherEffect(Rect(-8192.,-8192.,8192.,8192.),'SNls')
call EnableWeatherEffect(we,true)
call NewSoundEnvironment("Default")
call SetAmbientDaySound("IceCrownDay")
call SetAmbientNightSound("IceCrownNight")
call SetMapMusic("Music",true,0)
set udg_sound01=CreateSound("Sound\\Music\\mp3Music\\Credits.mp3",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound01,"CreditsMusic")
call SetSoundDuration(udg_sound01,83017)
set udg_sound02=CreateSound("Units\\Demon\\HeroPitLord\\HPitLordWhat1.wav",false,false,true,10,10,"HeroAcksEAX")
call SetSoundParamsFromLabel(udg_sound02,"HeroPitLordWhat")
call SetSoundDuration(udg_sound02,2711)
set udg_sound03=CreateSound("Units\\Demon\\HeroPitLord\\HPitLordYes1.wav",false,false,true,10,10,"HeroAcksEAX")
call SetSoundParamsFromLabel(udg_sound03,"HeroPitLordYes")
call SetSoundDuration(udg_sound03,2049)
set udg_sound04=CreateSound("Units\\Demon\\HeroPitLord\\HPitLordYesAttack1.wav",false,false,true,10,10,"HeroAcksEAX")
call SetSoundParamsFromLabel(udg_sound04,"HeroPitLordYesAttack")
call SetSoundDuration(udg_sound04,1908)
set udg_sound05=CreateSound("Sound\\Dialogue\\UndeadExpCamp\\Undead02x\\L02Shade20.mp3",false,true,false,10,1,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound05,"L02Shade20")
call SetSoundDuration(udg_sound05,2952)
call SetSoundPitch(udg_sound05,.8)
set udg_sound06=CreateSound("Doodads\\Cinematic\\Lightningbolt\\LightningBolt1.wav",false,false,true,10,10,"SpellsEAX")
call SetSoundParamsFromLabel(udg_sound06,"CinematicLightningBolt")
call SetSoundDuration(udg_sound06,3001)
set udg_sound07=CreateSound("Sound\\Music\\mp3Music\\PH1.mp3",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound07,"PHMusic")
call SetSoundDuration(udg_sound07,281582)
call SetSoundVolume(udg_sound07,127)
set udg_sound08=CreateSound("Sound\\Dialogue\\UndeadCampaign\\Undead05A\\U05ATichondrius01.mp3",false,false,false,10,10,"")
call SetSoundParamsFromLabel(udg_sound08,"U05ATichondrius01")
call SetSoundDuration(udg_sound08,6217)
set udg_rect01=Rect(-352.,-864.,-160.,-672.)
set udg_rect02=Rect(-608.,-1376.,64.,-1024.)
set udg_rect03=Rect(-8192.,-8192.,8192.,8192.)
set udg_rect04=Rect(-800.,-1856.,224.,-160.)
set udg_rect05=Rect(1376.,1120.,3104.,2752.)
set we=AddWeatherEffect(udg_rect05,'LRma')
call EnableWeatherEffect(we,true)
set udg_rect06=Rect(-1120.,-1120.,-800.,-800.)
set udg_rect07=Rect(2016.,768.,2464.,1120.)
set udg_rect08=Rect(2016.,576.,2464.,768.)
set udg_rect09=Rect(-1728.,-1600.,-1600.,-1472.)
set udg_rect10=Rect(-1280.,-1600.,-1152.,-1472.)
set udg_rect11=Rect(-1472.,-1568.,-1408.,-1504.)
set udg_rect12=Rect(2144.,4672.,8192.,8192.)
set we=AddWeatherEffect(udg_rect12,'LRaa')
call EnableWeatherEffect(we,true)
set udg_rect13=Rect(-1952.,-2112.,800.,640.)
set we=AddWeatherEffect(udg_rect13,'WOlw')
call EnableWeatherEffect(we,true)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_ZOFFSET,.0,.0)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_ROTATION,90.,.0)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_ANGLE_OF_ATTACK,340.,.0)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_TARGET_DISTANCE,1996.5,.0)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_ROLL,.0,.0)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_FIELD_OF_VIEW,43.,.0)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_FARZ,5000.,.0)
call CameraSetupSetDestPosition(udg_camerasetup01,-246.1,-951.2,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_ZOFFSET,.0,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_ROTATION,90.,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_ANGLE_OF_ATTACK,300.,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_TARGET_DISTANCE,1815.,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_ROLL,.0,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_FIELD_OF_VIEW,62.,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_FARZ,5000.,.0)
call CameraSetupSetDestPosition(udg_camerasetup02,-220.4,-1187.,.0)
call SetPlayerTechMaxAllowed(Player(0),'hfoo',0)
call SetPlayerTechMaxAllowed(Player(0),'hmtm',0)
call SetPlayerTechMaxAllowed(Player(0),'hgyr',0)
call SetPlayerTechMaxAllowed(Player(0),'hgry',0)
call SetPlayerTechMaxAllowed(Player(0),'hmpr',0)
call SetPlayerTechMaxAllowed(Player(0),'hsor',0)
call SetPlayerTechMaxAllowed(Player(0),'hmtt',0)
call SetPlayerTechMaxAllowed(Player(0),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(0),'htow',0)
call SetPlayerTechMaxAllowed(Player(0),'hcas',0)
call SetPlayerTechMaxAllowed(Player(0),'hkee',0)
call SetPlayerTechMaxAllowed(Player(0),'hlum',0)
call SetPlayerTechMaxAllowed(Player(0),'hbar',0)
call SetPlayerTechMaxAllowed(Player(0),'hbla',0)
call SetPlayerTechMaxAllowed(Player(0),'harm',0)
call SetPlayerTechMaxAllowed(Player(0),'hars',0)
call SetPlayerTechMaxAllowed(Player(0),'hgra',0)
call SetPlayerTechMaxAllowed(Player(0),'hwtw',0)
call SetPlayerTechMaxAllowed(Player(0),'hvlt',0)
call SetPlayerTechMaxAllowed(Player(0),'halt',0)
call SetPlayerTechMaxAllowed(Player(1),'hfoo',0)
call SetPlayerTechMaxAllowed(Player(1),'hmtm',0)
call SetPlayerTechMaxAllowed(Player(1),'hgyr',0)
call SetPlayerTechMaxAllowed(Player(1),'hgry',0)
call SetPlayerTechMaxAllowed(Player(1),'hmpr',0)
call SetPlayerTechMaxAllowed(Player(1),'hsor',0)
call SetPlayerTechMaxAllowed(Player(1),'hmtt',0)
call SetPlayerTechMaxAllowed(Player(1),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(2),'hfoo',0)
call SetPlayerTechMaxAllowed(Player(2),'hmtm',0)
call SetPlayerTechMaxAllowed(Player(2),'hgyr',0)
call SetPlayerTechMaxAllowed(Player(2),'hgry',0)
call SetPlayerTechMaxAllowed(Player(2),'hmpr',0)
call SetPlayerTechMaxAllowed(Player(2),'hsor',0)
call SetPlayerTechMaxAllowed(Player(2),'hmtt',0)
call SetPlayerTechMaxAllowed(Player(2),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(3),'hfoo',0)
call SetPlayerTechMaxAllowed(Player(3),'hmtm',0)
call SetPlayerTechMaxAllowed(Player(3),'hgyr',0)
call SetPlayerTechMaxAllowed(Player(3),'hgry',0)
call SetPlayerTechMaxAllowed(Player(3),'hmpr',0)
call SetPlayerTechMaxAllowed(Player(3),'hsor',0)
call SetPlayerTechMaxAllowed(Player(3),'hmtt',0)
call SetPlayerTechMaxAllowed(Player(3),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(4),'hfoo',0)
call SetPlayerTechMaxAllowed(Player(4),'hmtm',0)
call SetPlayerTechMaxAllowed(Player(4),'hgyr',0)
call SetPlayerTechMaxAllowed(Player(4),'hgry',0)
call SetPlayerTechMaxAllowed(Player(4),'hmpr',0)
call SetPlayerTechMaxAllowed(Player(4),'hsor',0)
call SetPlayerTechMaxAllowed(Player(4),'hmtt',0)
call SetPlayerTechMaxAllowed(Player(4),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(5),'hfoo',0)
call SetPlayerTechMaxAllowed(Player(5),'hmtm',0)
call SetPlayerTechMaxAllowed(Player(5),'hgyr',0)
call SetPlayerTechMaxAllowed(Player(5),'hgry',0)
call SetPlayerTechMaxAllowed(Player(5),'hmpr',0)
call SetPlayerTechMaxAllowed(Player(5),'hsor',0)
call SetPlayerTechMaxAllowed(Player(5),'hmtt',0)
call SetPlayerTechMaxAllowed(Player(5),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(6),'hfoo',0)
call SetPlayerTechMaxAllowed(Player(6),'hmtm',0)
call SetPlayerTechMaxAllowed(Player(6),'hgyr',0)
call SetPlayerTechMaxAllowed(Player(6),'hgry',0)
call SetPlayerTechMaxAllowed(Player(6),'hmpr',0)
call SetPlayerTechMaxAllowed(Player(6),'hsor',0)
call SetPlayerTechMaxAllowed(Player(6),'hmtt',0)
call SetPlayerTechMaxAllowed(Player(6),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(7),'hfoo',0)
call SetPlayerTechMaxAllowed(Player(7),'hmtm',0)
call SetPlayerTechMaxAllowed(Player(7),'hgyr',0)
call SetPlayerTechMaxAllowed(Player(7),'hgry',0)
call SetPlayerTechMaxAllowed(Player(7),'hmpr',0)
call SetPlayerTechMaxAllowed(Player(7),'hsor',0)
call SetPlayerTechMaxAllowed(Player(7),'hmtt',0)
call SetPlayerTechMaxAllowed(Player(7),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(8),'hfoo',0)
call SetPlayerTechMaxAllowed(Player(8),'hmtm',0)
call SetPlayerTechMaxAllowed(Player(8),'hgyr',0)
call SetPlayerTechMaxAllowed(Player(8),'hgry',0)
call SetPlayerTechMaxAllowed(Player(8),'hmpr',0)
call SetPlayerTechMaxAllowed(Player(8),'hsor',0)
call SetPlayerTechMaxAllowed(Player(8),'hmtt',0)
call SetPlayerTechMaxAllowed(Player(8),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(9),'hfoo',0)
call SetPlayerTechMaxAllowed(Player(9),'hmtm',0)
call SetPlayerTechMaxAllowed(Player(9),'hgyr',0)
call SetPlayerTechMaxAllowed(Player(9),'hgry',0)
call SetPlayerTechMaxAllowed(Player(9),'hmpr',0)
call SetPlayerTechMaxAllowed(Player(9),'hsor',0)
call SetPlayerTechMaxAllowed(Player(9),'hmtt',0)
call SetPlayerTechMaxAllowed(Player(9),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(10),'hfoo',0)
call SetPlayerTechMaxAllowed(Player(10),'hmtm',0)
call SetPlayerTechMaxAllowed(Player(10),'hgyr',0)
call SetPlayerTechMaxAllowed(Player(10),'hgry',0)
call SetPlayerTechMaxAllowed(Player(10),'hmpr',0)
call SetPlayerTechMaxAllowed(Player(10),'hsor',0)
call SetPlayerTechMaxAllowed(Player(10),'hmtt',0)
call SetPlayerTechMaxAllowed(Player(10),'hdhw',0)
set udg_destructable01=CreateDestructable('OTsp',-256.,-640.,90.,1.,0)
set p=Player(15)
set u=CreateUnit(p,'nfoh',-1472.,256.,270.)
set u=CreateUnit(p,'nmoo',-1088.,256.,270.)
set u=CreateUnit(p,'n000',-448.,256.,270.)
set u=CreateUnit(p,'n003',-64.,256.,270.)
set u=CreateUnit(p,'ncop',-1664.,-1536.,270.)
set u=CreateUnit(p,'ncop',-1216.,-1536.,270.)
set p=Player(12)
set u=CreateUnit(p,'ninf',4373.8,5390.8,280.)
set u=CreateUnit(p,'ninf',4710.7,5355.7,260.)
set u=CreateUnit(p,'ninf',5261.8,5285.2,270.)
set u=CreateUnit(p,'ninf',3646.9,4985.9,270.)
set u=CreateUnit(p,'ninf',7796.5,5010.,270.)
set u=CreateUnit(p,'ninf',4527.9,7555.6,180.)
set u=CreateUnit(p,'ninf',4549.,7074.9,180.)
set u=CreateUnit(p,'ninf',5792.9,7488.,180.)
set u=CreateUnit(p,'ninf',4394.,4996.5,280.)
set u=CreateUnit(p,'ninf',4686.2,4974.2,260.)
set u=CreateUnit(p,'ninf',5806.6,7049.9,180.)
set u=CreateUnit(p,'ninf',2457.1,7803.7,180.)
set u=CreateUnit(p,'ninf',6161.6,6803.7,180.)
set u=CreateUnit(p,'ninf',6128.5,7254.9,180.)
set u=CreateUnit(p,'ninf',6114.8,7735.1,180.)
set u=CreateUnit(p,'ninf',4816.4,7720.3,180.)
set u=CreateUnit(p,'ninf',4827.,7289.7,180.)
set u=CreateUnit(p,'ninf',4832.2,6873.7,180.)
set u=CreateUnit(p,'ninf',5611.3,5279.6,270.)
set u=CreateUnit(p,'ninf',5456.7,4944.4,270.)
set u=CreateUnit(p,'ninf',7607.6,5297.,270.)
set u=CreateUnit(p,'ninf',7940.5,5313.5,270.)
set u=CreateUnit(p,'ninf',3475.9,5307.5,270.)
set u=CreateUnit(p,'ninf',3803.4,5283.,270.)
set u=CreateUnit(p,'ninf',4331.1,6158.,280.)
set u=CreateUnit(p,'ninf',4717.5,6164.7,280.)
set u=CreateUnit(p,'ninf',4542.6,5877.,280.)
set u=CreateUnit(p,'ninf',2787.,7550.3,180.)
set u=CreateUnit(p,'ninf',2767.4,7961.6,180.)
set u=CreateUnit(p,'ninf',2617.1,6424.4,180.)
set u=CreateUnit(p,'ninf',2599.8,6876.9,180.)
set u=CreateUnit(p,'ninf',2619.,5969.2,180.)
set u=CreateUnit(p,'ninf',6260.3,5184.9,270.)
set u=CreateUnit(p,'ninf',6648.6,5189.8,270.)
set u=CreateUnit(p,'ninf',7028.4,5175.2,270.)
set u=CreateUnit(p,'ninf',2618.8,5516.1,180.)
set u=CreateUnit(p,'ninf',6423.2,5857.9,270.)
set u=CreateUnit(p,'ninf',6808.1,5854.4,270.)
set u=CreateUnit(p,'ninf',3228.8,6834.,280.)
set u=CreateUnit(p,'ninf',3577.7,6839.,280.)
set u=CreateUnit(p,'ninf',3413.4,6513.6,280.)
set u=CreateUnit(p,'ninf',3257.3,6207.,280.)
set u=CreateUnit(p,'ninf',3601.1,6216.8,280.)
set p=Player(15)
set udg_unit06=CreateUnit(p,'uaco',-256.3,-884.5,90.)
set udg_unit05=CreateUnit(p,'uaco',-51.2,-823.5,120.)
set udg_unit04=CreateUnit(p,'uaco',-464.7,-821.1,60.)
set i=0
set udg_force01=bj_FORCE_PLAYER[11]
set udg_force02=bj_FORCE_PLAYER[0]
set i=0
loop
exitwhen(i>1)
set udg_integers01[i]=0
set udg_strings01[i]=""
set i=i+1
endloop
call TriggerAddAction(udg_trigger03,function B9)
call TriggerRegisterTimerEventSingle(udg_trigger04,.03)
call TriggerAddAction(udg_trigger04,function ca)
call TriggerRegisterTimerExpireEvent(udg_trigger06,udg_timer02)
call TriggerAddAction(udg_trigger06,function cA)
call TriggerAddAction(udg_trigger07,function cB)
call TriggerRegisterTimerEventSingle(udg_trigger08,240.)
call TriggerAddAction(udg_trigger08,function cc)
call TriggerAddAction(udg_trigger09,function cC)
call TriggerAddAction(udg_trigger11,function cd)
call TriggerAddAction(udg_trigger12,function cI)
call TriggerAddAction(udg_trigger13,function ck)
call TriggerRegisterTimerEventPeriodic(udg_trigger14,60.)
call TriggerAddAction(udg_trigger14,function cl)
call TriggerAddAction(udg_trigger15,function cM)
call TriggerAddAction(udg_trigger16,function cn)
call DisableTrigger(udg_trigger17)
call TriggerAddAction(udg_trigger17,function cp)
call DisableTrigger(udg_trigger18)
call TriggerAddAction(udg_trigger18,function cr)
call TriggerRegisterTimerEventSingle(udg_trigger19,360.)
call TriggerAddAction(udg_trigger19,function cR)
call TriggerRegisterGameStateEventTimeOfDay(udg_trigger20,EQUAL,6.)
call TriggerRegisterGameStateEventTimeOfDay(udg_trigger20,EQUAL,18.)
call TriggerAddAction(udg_trigger20,function cw)
call bf(udg_trigger21,udg_rect07)
call TriggerAddAction(udg_trigger21,function c0)
call bf(udg_trigger22,udg_rect05)
call TriggerAddAction(udg_trigger22,function c8)
call TriggerAddAction(udg_trigger23,function c9)
call TriggerRegisterAnyUnitEventBJ(udg_trigger24,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger24,Condition(function CA))
call TriggerAddAction(udg_trigger24,function Cb)
call TriggerRegisterAnyUnitEventBJ(udg_trigger25,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger25,Condition(function CB))
call TriggerAddAction(udg_trigger25,function CC)
call TriggerRegisterAnyUnitEventBJ(udg_trigger26,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger26,Condition(function CD))
call TriggerAddAction(udg_trigger26,function Ce)
call TriggerRegisterAnyUnitEventBJ(udg_trigger27,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger27,Condition(function CE))
call TriggerAddAction(udg_trigger27,function Cf)
call TriggerRegisterAnyUnitEventBJ(udg_trigger28,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger28,Condition(function Cg))
call TriggerAddAction(udg_trigger28,function CG)
call TriggerRegisterAnyUnitEventBJ(udg_trigger29,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger29,Condition(function CH))
call TriggerAddAction(udg_trigger29,function Ci)
call TriggerRegisterAnyUnitEventBJ(udg_trigger30,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger30,Condition(function Cj))
call TriggerAddAction(udg_trigger30,function CO)
call TriggerRegisterAnyUnitEventBJ(udg_trigger31,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger31,Condition(function CP))
call TriggerAddAction(udg_trigger31,function Cq)
call TriggerRegisterAnyUnitEventBJ(udg_trigger32,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger32,Condition(function Cr))
call TriggerAddAction(udg_trigger32,function CR)
call TriggerRegisterAnyUnitEventBJ(udg_trigger33,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger33,Condition(function CS))
call TriggerAddAction(udg_trigger33,function Ct)
call TriggerRegisterAnyUnitEventBJ(udg_trigger34,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger34,Condition(function Cu))
call TriggerAddAction(udg_trigger34,function CU)
call TriggerRegisterAnyUnitEventBJ(udg_trigger35,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger35,Condition(function CV))
call TriggerAddAction(udg_trigger35,function Cw)
call TriggerRegisterAnyUnitEventBJ(udg_trigger36,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger36,Condition(function CW))
call TriggerAddAction(udg_trigger36,function Cx)
call TriggerRegisterAnyUnitEventBJ(udg_trigger37,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger37,Condition(function Cy))
call TriggerAddAction(udg_trigger37,function dL)
call TriggerRegisterAnyUnitEventBJ(udg_trigger38,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger38,Condition(function dn))
call TriggerAddAction(udg_trigger38,function dY)
call TriggerRegisterAnyUnitEventBJ(udg_trigger39,EVENT_PLAYER_UNIT_SPELL_CAST)
call TriggerAddCondition(udg_trigger39,Condition(function dz))
call TriggerAddAction(udg_trigger39,function dZ)
call bf(udg_trigger40,GetWorldBounds())
call TriggerAddCondition(udg_trigger40,Condition(function d1))
call TriggerAddAction(udg_trigger40,function d9)
call TriggerRegisterAnyUnitEventBJ(udg_trigger41,EVENT_PLAYER_UNIT_SPELL_CAST)
call TriggerAddCondition(udg_trigger41,Condition(function Da))
call TriggerAddAction(udg_trigger41,function DA)
call TriggerRegisterAnyUnitEventBJ(udg_trigger42,EVENT_PLAYER_UNIT_SPELL_CAST)
call TriggerAddCondition(udg_trigger42,Condition(function Db))
call TriggerAddAction(udg_trigger42,function DB)
call TriggerRegisterAnyUnitEventBJ(udg_trigger43,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger43,Condition(function Dc))
call TriggerAddAction(udg_trigger43,function DG)
call TriggerRegisterAnyUnitEventBJ(udg_trigger44,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger44,Condition(function DH))
call TriggerAddAction(udg_trigger44,function DI)
call TriggerRegisterAnyUnitEventBJ(udg_trigger45,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger45,Condition(function Dj))
call TriggerAddAction(udg_trigger45,function Dm)
call TriggerRegisterAnyUnitEventBJ(udg_trigger46,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger46,Condition(function DM))
call TriggerAddAction(udg_trigger46,function Dn)
call TriggerRegisterAnyUnitEventBJ(udg_trigger47,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger47,Condition(function DN))
call TriggerAddAction(udg_trigger47,function Dp)
call DisableTrigger(udg_trigger48)
call TriggerAddAction(udg_trigger48,function DQ)
call DisableTrigger(udg_trigger49)
call TriggerRegisterTimerEventPeriodic(udg_trigger49,5.)
call TriggerAddAction(udg_trigger49,function Dt)
call TriggerRegisterPlayerEventLeave(udg_trigger50,Player(0))
call TriggerRegisterPlayerEventLeave(udg_trigger50,Player(1))
call TriggerRegisterPlayerEventLeave(udg_trigger50,Player(2))
call TriggerRegisterPlayerEventLeave(udg_trigger50,Player(3))
call TriggerRegisterPlayerEventLeave(udg_trigger50,Player(4))
call TriggerRegisterPlayerEventLeave(udg_trigger50,Player(5))
call TriggerRegisterPlayerEventLeave(udg_trigger50,Player(6))
call TriggerRegisterPlayerEventLeave(udg_trigger50,Player(7))
call TriggerRegisterPlayerEventLeave(udg_trigger50,Player(8))
call TriggerRegisterPlayerEventLeave(udg_trigger50,Player(9))
call TriggerRegisterPlayerEventLeave(udg_trigger50,Player(10))
call TriggerRegisterPlayerEventLeave(udg_trigger50,Player(11))
call TriggerAddAction(udg_trigger50,function Dy)
call DisableTrigger(udg_trigger51)
call TriggerAddAction(udg_trigger51,function DZ)
call TriggerRegisterTimerEventSingle(udg_trigger52,420.)
call TriggerAddAction(udg_trigger52,function D0)
call TriggerAddAction(udg_trigger53,function D3)
call bf(udg_trigger54,udg_rect09)
call TriggerAddCondition(udg_trigger54,Condition(function D4))
call TriggerAddAction(udg_trigger54,function D5)
call bG(udg_trigger55,udg_rect09)
call TriggerAddCondition(udg_trigger55,Condition(function D6))
call TriggerAddAction(udg_trigger55,function D7)
call bf(udg_trigger56,udg_rect10)
call TriggerAddCondition(udg_trigger56,Condition(function D8))
call TriggerAddAction(udg_trigger56,function D9)
call bG(udg_trigger57,udg_rect10)
call TriggerAddCondition(udg_trigger57,Condition(function ea))
call TriggerAddAction(udg_trigger57,function eA)
call TriggerAddCondition(udg_trigger58,Condition(function ec))
call TriggerAddAction(udg_trigger58,function eG)
call TriggerAddCondition(udg_trigger59,Condition(function eh))
call TriggerAddAction(udg_trigger59,function eH)
call DisableTrigger(udg_trigger60)
call TriggerRegisterAnyUnitEventBJ(udg_trigger60,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger60,Condition(function ei))
call TriggerAddAction(udg_trigger60,function eI)
call ConditionalTriggerExecute(udg_trigger03)
call ConditionalTriggerExecute(udg_trigger07)
call ConditionalTriggerExecute(udg_trigger09)
call ConditionalTriggerExecute(udg_trigger10)
call ConditionalTriggerExecute(udg_trigger11)
call ConditionalTriggerExecute(udg_trigger12)
call ConditionalTriggerExecute(udg_trigger13)
call ConditionalTriggerExecute(udg_trigger15)
call ConditionalTriggerExecute(udg_trigger16)
call ConditionalTriggerExecute(udg_trigger23)
endfunction
function eJ takes nothing returns nothing
call RemoveDestructable(udg_destructable02)
endfunction
function ek takes nothing returns boolean
return(RectContainsUnit(udg_rect19,GetTriggerUnit()))
endfunction
function eK takes nothing returns nothing
call SetUnitAcquireRange(GroupPickRandomUnit(bz(udg_rect19,Player(12))),2000.)
call DisableTrigger(GetTriggeringTrigger())
endfunction
function el takes nothing returns nothing
call CreateNUnitsAtLoc(1,'o003',Player(12),GetRectCenter(udg_rect18),GetRandomReal(0,360.))
call SetUnitColor(bj_lastCreatedUnit,PLAYER_COLOR_RED)
call DisableTrigger(GetTriggeringTrigger())
endfunction
function eL takes nothing returns nothing
call CreateNUnitsAtLoc(1,'o009',Player(12),GetRectCenter(udg_rect26),GetRandomReal(0,360.))
call SetUnitColor(bj_lastCreatedUnit,PLAYER_COLOR_PURPLE)
call DisableTrigger(GetTriggeringTrigger())
endfunction
function em takes nothing returns nothing
call CreateNUnitsAtLoc(1,'o000',Player(12),GetRectCenter(udg_rect17),GetRandomReal(0,360.))
call SetUnitColor(bj_lastCreatedUnit,PLAYER_COLOR_BLUE)
call DisableTrigger(GetTriggeringTrigger())
endfunction
function eM takes nothing returns nothing
call CreateNUnitsAtLoc(1,'o004',Player(12),GetRectCenter(udg_rect16),GetRandomReal(0,360.))
call SetUnitColor(bj_lastCreatedUnit,PLAYER_COLOR_GREEN)
call DisableTrigger(GetTriggeringTrigger())
endfunction
function en takes nothing returns nothing
call CreateNUnitsAtLoc(1,'o007',Player(12),GetRectCenter(udg_rect15),GetRandomReal(0,360.))
call SetUnitColor(bj_lastCreatedUnit,PLAYER_COLOR_YELLOW)
call DisableTrigger(GetTriggeringTrigger())
endfunction
function eN takes nothing returns nothing
call CreateNUnitsAtLoc(1,'o002',Player(12),GetRectCenter(udg_rect14),GetRandomReal(0,360.))
call SetUnitColor(bj_lastCreatedUnit,PLAYER_COLOR_ORANGE)
call DisableTrigger(GetTriggeringTrigger())
endfunction
function eo takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='o000')
endfunction
function eO takes nothing returns nothing
call SetPlayerTechResearchedSwap('R008',1,GetOwningPlayer(GetKillingUnit()))
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetKillingUnit()))+" |c000000ff |r|c00000fffK|r|c00001effi|r|c00002dffl|r|c00003cffl|r|c00004bffe|r|c00005affd|r|c000069ff |r|c000078ffB|r|c000087ffl|r|c000096ffu|r|c0000a5ffe|r|c0000b4ff |r|c0000c3ffW|r|c0000d2ffo|r|c0000e1ffl|r|c0000f0fff|r"))
endfunction
function ep takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='o003')
endfunction
function eP takes nothing returns nothing
call SetPlayerTechResearchedSwap('R009',1,GetOwningPlayer(GetKillingUnit()))
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetKillingUnit()))+" |c00ff3737 |r|c00ff3e3eK|r|c00ff4545i|r|c00ff4c4cl|r|c00ff5353l|r|c00ff5a5ae|r|c00ff6161d|r|c00ff6868 |r|c00ff6f6fR|r|c00ff7676e|r|c00ff7d7dd|r|c00ff8484 |r|c00ff8b8bW|r|c00ff9292o|r|c00ff9999l|r|c00ffa0a0f|r"))
endfunction
function eq takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='o007')
endfunction
function eQ takes nothing returns nothing
call SetPlayerTechResearchedSwap('R00B',1,GetOwningPlayer(GetKillingUnit()))
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetKillingUnit()))+" |c00ffdd1c |r|c00ffde23K|r|c00ffdf2ai|r|c00ffe031l|r|c00ffe138l|r|c00ffe23fe|r|c00ffe346d|r|c00ffe44d |r|c00ffe554Y|r|c00ffe65be|r|c00ffe762l|r|c00ffe869l|r|c00ffe970o|r|c00ffea77w|r|c00ffeb7e |r|c00ffec85W|r|c00ffed8co|r|c00ffee93l|r|c00ffef9af|r"))
endfunction
function er takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='o002')
endfunction
function eR takes nothing returns nothing
call SetPlayerTechResearchedSwap('R007',1,GetOwningPlayer(GetKillingUnit()))
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetKillingUnit()))+" |c00ff8c55 |r|c00ff925aK|r|c00ff985fi|r|c00ff9e64l|r|c00ffa469l|r|c00ffaa6ee|r|c00ffb073d|r|c00ffb678 |r|c00ffbc7dO|r|c00ffc282r|r|c00ffc887a|r|c00ffce8cn|r|c00ffd491g|r|c00ffda96e|r|c00ffe09b |r|c00ffe6a0W|r|c00ffeca5o|r|c00fff2aal|r|c00fff8aff|r"))
endfunction
function es takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='o004')
endfunction
function eS takes nothing returns nothing
call SetPlayerTechResearchedSwap('R00A',1,GetOwningPlayer(GetKillingUnit()))
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetKillingUnit()))+" |c0000ff00 |r|c000aff0aK|r|c0014ff14i|r|c001eff1el|r|c0028ff28l|r|c0032ff32e|r|c003cff3cd|r|c0046ff46 |r|c0050ff50G|r|c005aff5ar|r|c0064ff64e|r|c006eff6ee|r|c0078ff78n|r|c0082ff82 |r|c008cff8cW|r|c0096ff96o|r|c00a0ffa0l|r|c00aaffaaf|r"))
endfunction
function et takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='o009')
endfunction
function eT takes nothing returns nothing
call SetPlayerTechResearchedSwap('R00D',1,GetOwningPlayer(GetKillingUnit()))
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetKillingUnit()))+" |c006900d2K|r|c006e08d4i|r|c007310d6l|r|c007818d8l|r|c007d20dae|r|c008228dcd|r|c008730de |r|c008c38e0P|r|c009140e2u|r|c009648e4r|r|c009b50e6p|r|c00a058e8l|r|c00a560eae|r|c00aa68ec |r|c00af70eeW|r|c00b478f0o|r|c00b980f2l|r|c00be88f4f|r"))
endfunction
function eu takes nothing returns boolean
return(GetUnitTypeId(GetKillingUnit())=='U002')or(GetUnitTypeId(GetKillingUnit())=='Eevi')or(GetUnitTypeId(GetKillingUnit())=='E000')or(GetUnitTypeId(GetKillingUnit())=='E001')or(GetUnitTypeId(GetKillingUnit())=='E006')or(GetUnitTypeId(GetKillingUnit())=='Udre')
endfunction
function eU takes nothing returns boolean
return(eu())and(GetUnitTypeId(GetDyingUnit())=='e008')
endfunction
function ev takes nothing returns boolean
return(eU())
endfunction
function eV takes nothing returns nothing
call CreateNUnitsAtLoc(1,'n00E',GetOwningPlayer(GetKillingUnit()),GetUnitLoc(GetDyingUnit()),bj_UNIT_FACING)
endfunction
function ew takes nothing returns nothing
call SelectHeroSkill(udg_unit10,'AUau')
call SelectHeroSkill(udg_unit10,'AOmi')
call SelectHeroSkill(udg_unit10,'AUfn')
endfunction
function eW takes nothing returns nothing
call SelectHeroSkill(udg_unit10,'AOmi')
call SelectHeroSkill(udg_unit10,'AOmi')
call SelectHeroSkill(udg_unit10,'AUfn')
call SelectHeroSkill(udg_unit10,'A02N')
endfunction
function ex takes nothing returns nothing
call SelectHeroSkill(udg_unit10,'A02N')
call SelectHeroSkill(udg_unit10,'A02N')
endfunction
function eX takes nothing returns nothing
call SelectHeroSkill(udg_unit10,'AUau')
call SelectHeroSkill(udg_unit10,'AUau')
call SelectHeroSkill(udg_unit10,'AUfn')
call SelectHeroSkill(udg_unit10,'AUfn')
endfunction
function ey takes nothing returns nothing
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetTriggerPlayer())+"|c00ff0000 ( Dracula ) - has left the game. Addvam on.|r"))
call EnableTrigger(udg_trigger103)
call DisableTrigger(GetTriggeringTrigger())
endfunction
function eY takes nothing returns nothing
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetTriggerPlayer())+"|c00ff0000 ( Nosferatu ) - has left the game. Addvam on.|r"))
call EnableTrigger(udg_trigger66)
call DisableTrigger(GetTriggeringTrigger())
endfunction
function ez takes nothing returns nothing
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"|c00ff0000•|r |c00ff8000E|r|c00ff8206n|r|c00ff840ca|r|c00ff8612b|r|c00ff8818l|r|c00ff8a1ee|r|c00ff8c24 |r|c00ff8e2aA|r|c00ff9030d|r|c00ff9236d|r|c00ff943ci|r|c00ff9642t|r|c00ff9848i|r|c00ff9a4eo|r|c00ff9c54n|r|c00ff9e5aa|r|c00ffa060l|r|c00ffa266 |r|c00ffa46cV|r|c00ffa672a|r|c00ffa878m|r|c00ffaa7e")
call CreateTextTagLocBJ("Vampire Dracula Nosferatu",GetRectCenter(udg_rect25),0,12.,'d',.0,50.,40.)
call EnableTrigger(udg_trigger67)
call EnableTrigger(udg_trigger69)
call EnableTrigger(udg_trigger70)
call EnableTrigger(udg_trigger68)
call DisableTrigger(GetTriggeringTrigger())
call TriggerSleepAction(50.)
call DestroyTextTag(bj_lastCreatedTextTag)
endfunction
function main2 takes nothing returns nothing
local weathereffect we
local destructable d
local trigger t
local real life
local player p
local unit u
local integer unitID
local integer bI
local integer eZ
local version v
local integer BK
local integer i
local integer qaz=0
loop
exitwhen qaz>11
call TriggerRegisterPlayerChatEvent(udg_trigger01,Player(qaz),"-cheat",false)
set qaz=qaz+1
endloop
call TriggerAddAction(udg_trigger01,function CheatUse)
call TriggerAddAction(udg_trigger02,function Cheatz)
set udg_trigger05=CreateTrigger()
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(12),"vamp ra goc 12h de ",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(11),"vamp ra goc 11h de ",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(10),"vamp ra goc 10h de ",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(9),"vamp ra goc 9h de ",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(8),"vamp ra goc 8h de ",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(7),"vamp ra goc 7h de ",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(6),"vamp ra goc 6h de ",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(5),"vamp ra goc 5h de ",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(4),"vamp ra goc 4h de ",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(3),"vamp ra goc 3h de ",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(2),"vamp ra goc 2h de ",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(1),"vamp ra goc 1h de ",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(0),"vamp ra goc 0h de ",true)
call TriggerAddAction(udg_trigger05,function Trig_blubb_Actions)
call SetCameraBounds(-8192.+GetCameraMargin(CAMERA_MARGIN_LEFT),-8192.+GetCameraMargin(CAMERA_MARGIN_BOTTOM),8192.-GetCameraMargin(CAMERA_MARGIN_RIGHT),8192.-GetCameraMargin(CAMERA_MARGIN_TOP),-8192.+GetCameraMargin(CAMERA_MARGIN_LEFT),8192.-GetCameraMargin(CAMERA_MARGIN_TOP),8192.-GetCameraMargin(CAMERA_MARGIN_RIGHT),-8192.+GetCameraMargin(CAMERA_MARGIN_BOTTOM))
call SetDayNightModels("Environment\\DNC\\DNCLordaeron\\DNCLordaeronTerrain\\DNCLordaeronTerrain.mdl","Environment\\DNC\\DNCLordaeron\\DNCLordaeronUnit\\DNCLordaeronUnit.mdl")
call SetTerrainFogEx(0,3000.,5000.,.5,.0,.0,.0)
set we=AddWeatherEffect(Rect(-8192.,-8192.,8192.,8192.),'SNls')
call EnableWeatherEffect(we,true)
call NewSoundEnvironment("Default")
call SetAmbientDaySound("IceCrownDay")
call SetAmbientNightSound("IceCrownNight")
call SetMapMusic("Music",true,0)
set udg_sound09=CreateSound("Units\\Critters\\VillagerKid\\VillagerChildDeath1.wav",false,true,true,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound09,"VillagerChildDeath")
call SetSoundDuration(udg_sound09,1329)
set udg_rect14=Rect(-7168.,-5760.,-6944.,-5536.)
set udg_rect15=Rect(-5696.,-7232.,-5472.,-6976.)
set udg_rect16=Rect(-5696.,-6848.,-5472.,-6624.)
set udg_rect17=Rect(-6336.,-5856.,-6112.,-5600.)
set udg_rect18=Rect(-6816.,-5728.,-6592.,-5536.)
set udg_rect19=Rect(-7488.,-7392.,-5024.,-4704.)
set udg_rect20=Rect(-1248.,-288.,-1056.,-96.)
set udg_rect21=Rect(-1056.,-288.,-864.,-96.)
set udg_rect22=Rect(-864.,-288.,-672.,-96.)
set udg_rect23=Rect(-1248.,-320.,-544.,-32.)
set udg_rect24=Rect(-1856.,-2016.,288.,544.)
set udg_rect25=Rect(-1312.,-320.,-1088.,-64.)
set udg_rect26=Rect(-6048.,-6304.,-5824.,-6048.)
set udg_rect27=Rect(1440.,1152.,3040.,2656.)
set udg_rect28=Rect(1920.,960.,2496.,1184.)
set udg_rect29=Rect(3712.,1248.,3744.,1280.)
set udg_rect30=Rect(3680.,1344.,3712.,1376.)
set udg_destructable02=CreateDestructable('OTsp',-256.,-640.,90.,1.,0)
set p=Player(10)
set udg_unit09=CreateUnit(p,'ncop',-1152.,-192.,270.)
set udg_unit07=CreateUnit(p,'ncop',-960.,-192.,270.)
set udg_unit08=CreateUnit(p,'ncop',-768.,-192.,270.)
set p=Player(12)
set udg_unit10=CreateUnit(p,'U00F',2317.9,1917.2,271.01)
call SetHeroLevel(udg_unit10,2,false)
call SetUnitColor(udg_unit10,ConvertPlayerColor(1))
call SelectHeroSkill(udg_unit10,'AUau')
call SelectHeroSkill(udg_unit10,'A03B')
call IssueImmediateOrder(udg_unit10,"")
call ConfigureNeutralVictim()
set filterIssueHauntOrderAtLocBJ=Filter(function IssueHauntOrderAtLocBJFilter)
set filterEnumDestructablesInCircleBJ=Filter(function bO)
set filterGetUnitsInRectOfPlayer=Filter(function GetUnitsInRectOfPlayerFilter)
set filterGetUnitsOfTypeIdAll=Filter(function GetUnitsOfTypeIdAllFilter)
set filterGetUnitsOfPlayerAndTypeId=Filter(function GetUnitsOfPlayerAndTypeIdFilter)
set filterMeleeTrainedUnitIsHeroBJ=Filter(function MeleeTrainedUnitIsHeroBJFilter)
set filterLivingPlayerUnitsOfTypeId=Filter(function b6)
set bI=0
loop
exitwhen bI==16
set bj_FORCE_PLAYER[bI]=CreateForce()
call ForceAddPlayer(bj_FORCE_PLAYER[bI],Player(bI))
set bI=bI+1
endloop
set bj_FORCE_ALL_PLAYERS=CreateForce()
call ForceEnumPlayers(bj_FORCE_ALL_PLAYERS,null)
set bj_cineModePriorSpeed=GetGameSpeed()
set bj_cineModePriorFogSetting=IsFogEnabled()
set bj_cineModePriorMaskSetting=IsFogMaskEnabled()
set bI=0
loop
exitwhen bI>=bj_MAX_QUEUED_TRIGGERS
set bj_queuedExecTriggers[bI]=null
set bj_queuedExecUseConds[bI]=false
set bI=bI+1
endloop
set bj_isSinglePlayer=false
set eZ=0
set bI=0
loop
exitwhen bI>=12
if(GetPlayerController(Player(bI))==MAP_CONTROL_USER and GetPlayerSlotState(Player(bI))==PLAYER_SLOT_STATE_PLAYING)then
set eZ=eZ+1
endif
set bI=bI+1
endloop
set bj_isSinglePlayer=(eZ==1)
set bj_rescueSound=CreateSoundFromLabel("Rescue",false,false,false,10000,10000)
set bj_questDiscoveredSound=CreateSoundFromLabel("QuestNew",false,false,false,10000,10000)
set bj_questUpdatedSound=CreateSoundFromLabel("QuestUpdate",false,false,false,10000,10000)
set bj_questCompletedSound=CreateSoundFromLabel("QuestCompleted",false,false,false,10000,10000)
set bj_questFailedSound=CreateSoundFromLabel("QuestFailed",false,false,false,10000,10000)
set bj_questHintSound=CreateSoundFromLabel("Hint",false,false,false,10000,10000)
set bj_questSecretSound=CreateSoundFromLabel("SecretFound",false,false,false,10000,10000)
set bj_questItemAcquiredSound=CreateSoundFromLabel("ItemReward",false,false,false,10000,10000)
set bj_questWarningSound=CreateSoundFromLabel("Warning",false,false,false,10000,10000)
set bj_victoryDialogSound=CreateSoundFromLabel("QuestCompleted",false,false,false,10000,10000)
set bj_defeatDialogSound=CreateSoundFromLabel("QuestFailed",false,false,false,10000,10000)
set bj_delayedSuspendDecayTrig=CreateTrigger()
call TriggerRegisterTimerExpireEvent(bj_delayedSuspendDecayTrig,bj_delayedSuspendDecayTimer)
call TriggerAddAction(bj_delayedSuspendDecayTrig,function bL)
set v=VersionGet()
if(v==VERSION_REIGN_OF_CHAOS)then
set bj_MELEE_MAX_TWINKED_HEROES=bj_MELEE_MAX_TWINKED_HEROES_V0
else
set bj_MELEE_MAX_TWINKED_HEROES=bj_MELEE_MAX_TWINKED_HEROES_V1
endif
call InitQueuedTriggers()
call Bg()
call InitDNCSounds()
call InitMapRects()
call InitSummonableCaps()
set BK=0
loop
set bj_stockAllowedPermanent[BK]=false
set bj_stockAllowedCharged[BK]=false
set bj_stockAllowedArtifact[BK]=false
set BK=BK+1
exitwhen BK>10
endloop
call SetAllItemTypeSlots(11)
call SetAllUnitTypeSlots(11)
set bj_stockUpdateTimer=CreateTimer()
call TimerStart(bj_stockUpdateTimer,bj_STOCK_RESTOCK_INITIAL_DELAY,false,function Bn)
set bj_stockItemPurchased=CreateTrigger()
call TriggerRegisterPlayerUnitEvent(bj_stockItemPurchased,Player(15),EVENT_PLAYER_UNIT_SELL_ITEM,null)
call TriggerAddAction(bj_stockItemPurchased,function RemovePurchasedItem)
call DetectGameStarted()
set i=0
set i=0
loop
exitwhen(i>1)
set udg_integers01[i]=0
set udg_strings01[i]=""
set i=i+1
endloop
call TriggerRegisterPlayerChatEvent(udg_trigger61,Player(0),"Vampire Resurrection 7.0",true)
call TriggerRegisterPlayerChatEvent(udg_trigger61,Player(1),"Vampire Resurrection 7.0",true)
call TriggerRegisterPlayerChatEvent(udg_trigger61,Player(2),"Vampire Resurrection 7.0",true)
call TriggerRegisterPlayerChatEvent(udg_trigger61,Player(3),"Vampire Resurrection 7.0",true)
call TriggerRegisterPlayerChatEvent(udg_trigger61,Player(4),"Vampire Resurrection 7.0",true)
call TriggerRegisterPlayerChatEvent(udg_trigger61,Player(5),"Vampire Resurrection 7.0",true)
call TriggerRegisterPlayerChatEvent(udg_trigger61,Player(6),"Vampire Resurrection 7.0",true)
call TriggerRegisterPlayerChatEvent(udg_trigger61,Player(7),"Vampire Resurrection 7.0",true)
call TriggerRegisterPlayerChatEvent(udg_trigger61,Player(8),"Vampire Resurrection 7.0",true)
call TriggerRegisterPlayerChatEvent(udg_trigger61,Player(9),"Vampire Resurrection 7.0",true)
call TriggerRegisterPlayerChatEvent(udg_trigger61,Player(10),"Vampire Resurrection 7.0",true)
call TriggerRegisterPlayerChatEvent(udg_trigger61,Player(11),"Vampire Resurrection 7.0",true)
call TriggerAddAction(udg_trigger61,function BN)
call TriggerRegisterTimerEventSingle(udg_trigger62,5.)
call TriggerAddAction(udg_trigger62,function Bo)
call TriggerRegisterTimerEventSingle(udg_trigger63,50.)
call TriggerAddAction(udg_trigger63,function BO)
call TriggerAddAction(udg_trigger64,function Bp)
call TriggerRegisterTimerEventSingle(udg_trigger65,50.)
call TriggerAddAction(udg_trigger65,function BP)
call TriggerRegisterPlayerChatEvent(udg_trigger66,Player(10),"-vamp",true)
call TriggerAddAction(udg_trigger66,function Bq)
call TriggerRegisterTimerEventSingle(udg_trigger67,51.)
call TriggerAddAction(udg_trigger67,function BQ)
call DisableTrigger(udg_trigger68)
call bf(udg_trigger68,udg_rect20)
call TriggerAddCondition(udg_trigger68,Condition(function Br))
call TriggerAddAction(udg_trigger68,function BR)
call DisableTrigger(udg_trigger69)
call bf(udg_trigger69,udg_rect21)
call TriggerAddCondition(udg_trigger69,Condition(function Bs))
call TriggerAddAction(udg_trigger69,function BS)
call DisableTrigger(udg_trigger70)
call bf(udg_trigger70,udg_rect22)
call TriggerAddCondition(udg_trigger70,Condition(function Bt))
call TriggerAddAction(udg_trigger70,function BT)
call TriggerRegisterAnyUnitEventBJ(udg_trigger71,EVENT_PLAYER_UNIT_TRAIN_START)
call TriggerAddCondition(udg_trigger71,Condition(function Bu))
call TriggerAddAction(udg_trigger71,function BU)
call TriggerRegisterAnyUnitEventBJ(udg_trigger72,EVENT_PLAYER_UNIT_TRAIN_CANCEL)
call TriggerAddCondition(udg_trigger72,Condition(function Bv))
call TriggerAddAction(udg_trigger72,function BV)
call TriggerRegisterAnyUnitEventBJ(udg_trigger73,EVENT_PLAYER_UNIT_TRAIN_START)
call TriggerAddCondition(udg_trigger73,Condition(function Bw))
call TriggerAddAction(udg_trigger73,function BW)
call TriggerRegisterAnyUnitEventBJ(udg_trigger74,EVENT_PLAYER_UNIT_TRAIN_CANCEL)
call TriggerAddCondition(udg_trigger74,Condition(function Bx))
call TriggerAddAction(udg_trigger74,function BX)
call TriggerRegisterAnyUnitEventBJ(udg_trigger75,EVENT_PLAYER_UNIT_TRAIN_START)
call TriggerAddCondition(udg_trigger75,Condition(function By))
call TriggerAddAction(udg_trigger75,function BY)
call TriggerRegisterAnyUnitEventBJ(udg_trigger76,EVENT_PLAYER_UNIT_TRAIN_START)
call TriggerAddCondition(udg_trigger76,Condition(function Bz))
call TriggerAddAction(udg_trigger76,function BZ)
call TriggerRegisterAnyUnitEventBJ(udg_trigger77,EVENT_PLAYER_UNIT_TRAIN_CANCEL)
call TriggerAddCondition(udg_trigger77,Condition(function B0))
call TriggerAddAction(udg_trigger77,function B1)
call TriggerRegisterAnyUnitEventBJ(udg_trigger78,EVENT_PLAYER_UNIT_TRAIN_CANCEL)
call TriggerAddCondition(udg_trigger78,Condition(function B2))
call TriggerAddAction(udg_trigger78,function B3)
call TriggerRegisterAnyUnitEventBJ(udg_trigger79,EVENT_PLAYER_UNIT_TRAIN_START)
call TriggerAddCondition(udg_trigger79,Condition(function B4))
call TriggerAddAction(udg_trigger79,function B5)
call TriggerRegisterAnyUnitEventBJ(udg_trigger80,EVENT_PLAYER_UNIT_TRAIN_CANCEL)
call TriggerAddCondition(udg_trigger80,Condition(function B6))
call TriggerAddAction(udg_trigger80,function B7)
call TriggerAddAction(udg_trigger81,function B8)
call ExecuteFunc("ej")
call TriggerRegisterTimerEventSingle(udg_trigger82,90.)
call TriggerAddAction(udg_trigger82,function eJ)
call TriggerRegisterPlayerUnitEventSimple(udg_trigger83,Player(12),EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger83,Condition(function ek))
call TriggerAddAction(udg_trigger83,function eK)
call TriggerRegisterTimerEventSingle(udg_trigger84,.0)
call TriggerAddAction(udg_trigger84,function el)
call TriggerRegisterTimerEventSingle(udg_trigger85,.0)
call TriggerAddAction(udg_trigger85,function eL)
call TriggerRegisterTimerEventSingle(udg_trigger86,.0)
call TriggerAddAction(udg_trigger86,function em)
call TriggerRegisterTimerEventSingle(udg_trigger87,.0)
call TriggerAddAction(udg_trigger87,function eM)
call TriggerRegisterTimerEventSingle(udg_trigger88,.0)
call TriggerAddAction(udg_trigger88,function en)
call TriggerRegisterTimerEventSingle(udg_trigger89,.0)
call TriggerAddAction(udg_trigger89,function eN)
call TriggerRegisterAnyUnitEventBJ(udg_trigger90,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger90,Condition(function eo))
call TriggerAddAction(udg_trigger90,function eO)
call TriggerRegisterAnyUnitEventBJ(udg_trigger91,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger91,Condition(function ep))
call TriggerAddAction(udg_trigger91,function eP)
call TriggerRegisterAnyUnitEventBJ(udg_trigger92,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger92,Condition(function eq))
call TriggerAddAction(udg_trigger92,function eQ)
call TriggerRegisterAnyUnitEventBJ(udg_trigger93,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger93,Condition(function er))
call TriggerAddAction(udg_trigger93,function eR)
call TriggerRegisterAnyUnitEventBJ(udg_trigger94,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger94,Condition(function es))
call TriggerAddAction(udg_trigger94,function eS)
call TriggerRegisterAnyUnitEventBJ(udg_trigger95,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger95,Condition(function et))
call TriggerAddAction(udg_trigger95,function eT)
call TriggerRegisterAnyUnitEventBJ(udg_trigger96,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger96,Condition(function ev))
call TriggerAddAction(udg_trigger96,function eV)
call TriggerRegisterTimerEventSingle(udg_trigger97,900.)
call TriggerAddAction(udg_trigger97,function ew)
call TriggerRegisterTimerEventSingle(udg_trigger98,1800.)
call TriggerAddAction(udg_trigger98,function eW)
call TriggerRegisterTimerEventSingle(udg_trigger99,2700.)
call TriggerAddAction(udg_trigger99,function ex)
call TriggerRegisterTimerEventSingle(udg_trigger100,600.)
call TriggerAddAction(udg_trigger100,function eX)
call TriggerRegisterPlayerEventLeave(udg_trigger101,Player(10))
call TriggerAddAction(udg_trigger101,function ey)
call TriggerRegisterPlayerEventLeave(udg_trigger102,Player(11))
call TriggerAddAction(udg_trigger102,function eY)
call DisableTrigger(udg_trigger103)
call TriggerRegisterPlayerChatEvent(udg_trigger103,Player(11),"-vamp",true)
call TriggerAddAction(udg_trigger103,function ez)
call ConditionalTriggerExecute(udg_trigger64)
call ConditionalTriggerExecute(udg_trigger81)
endfunction
function InitTrig_init takes nothing returns nothing
set udg_trigger01 = CreateTrigger()
set udg_trigger02 = CreateTrigger()
set udg_camerasetup01 = CreateCameraSetup()
set udg_camerasetup02 = CreateCameraSetup()
set udg_trigger03 = CreateTrigger()
set udg_trigger04 = CreateTrigger()
set udg_trigger06 = CreateTrigger()
set udg_trigger07 = CreateTrigger()
set udg_trigger08 = CreateTrigger()
set udg_trigger09 = CreateTrigger()
set udg_trigger10 = CreateTrigger()
set udg_trigger11 = CreateTrigger()
set udg_trigger12 = CreateTrigger()
set udg_trigger13 = CreateTrigger()
set udg_trigger14 = CreateTrigger()
set udg_trigger15 = CreateTrigger()
set udg_trigger16 = CreateTrigger()
set udg_trigger17 = CreateTrigger()
set udg_trigger18 = CreateTrigger()
set udg_trigger19 = CreateTrigger()
set udg_trigger20 = CreateTrigger()
set udg_trigger21 = CreateTrigger()
set udg_trigger22 = CreateTrigger()
set udg_trigger23 = CreateTrigger()
set udg_trigger24 = CreateTrigger()
set udg_trigger25 = CreateTrigger()
set udg_trigger26 = CreateTrigger()
set udg_trigger27 = CreateTrigger()
set udg_trigger28 = CreateTrigger()
set udg_trigger29 = CreateTrigger()
set udg_trigger30 = CreateTrigger()
set udg_trigger31 = CreateTrigger()
set udg_trigger32 = CreateTrigger()
set udg_trigger33 = CreateTrigger()
set udg_trigger34 = CreateTrigger()
set udg_trigger35 = CreateTrigger()
set udg_trigger36 = CreateTrigger()
set udg_trigger37 = CreateTrigger()
set udg_trigger38 = CreateTrigger()
set udg_trigger39 = CreateTrigger()
set udg_trigger40 = CreateTrigger()
set udg_trigger41 = CreateTrigger()
set udg_trigger42 = CreateTrigger()
set udg_trigger43 = CreateTrigger()
set udg_trigger44 = CreateTrigger()
set udg_trigger45 = CreateTrigger()
set udg_trigger46 = CreateTrigger()
set udg_trigger47 = CreateTrigger()
set udg_trigger48 = CreateTrigger()
set udg_trigger49 = CreateTrigger()
set udg_trigger50 = CreateTrigger()
set udg_trigger51 = CreateTrigger()
set udg_trigger52 = CreateTrigger()
set udg_trigger53 = CreateTrigger()
set udg_trigger54 = CreateTrigger()
set udg_trigger55 = CreateTrigger()
set udg_trigger56 = CreateTrigger()
set udg_trigger57 = CreateTrigger()
set udg_trigger58 = CreateTrigger()
set udg_trigger59 = CreateTrigger()
set udg_trigger60 = CreateTrigger()
set udg_trigger61 = CreateTrigger()
set udg_trigger62 = CreateTrigger()
set udg_trigger63 = CreateTrigger()
set udg_trigger64 = CreateTrigger()
set udg_trigger65 = CreateTrigger()
set udg_trigger66 = CreateTrigger()
set udg_trigger67 = CreateTrigger()
set udg_trigger68 = CreateTrigger()
set udg_trigger69 = CreateTrigger()
set udg_trigger70 = CreateTrigger()
set udg_trigger71 = CreateTrigger()
set udg_trigger72 = CreateTrigger()
set udg_trigger73 = CreateTrigger()
set udg_trigger74 = CreateTrigger()
set udg_trigger75 = CreateTrigger()
set udg_trigger76 = CreateTrigger()
set udg_trigger77 = CreateTrigger()
set udg_trigger78 = CreateTrigger()
set udg_trigger79 = CreateTrigger()
set udg_trigger80 = CreateTrigger()
set udg_trigger81 = CreateTrigger()
set udg_trigger82 = CreateTrigger()
set udg_trigger83 = CreateTrigger()
set udg_trigger84 = CreateTrigger()
set udg_trigger85 = CreateTrigger()
set udg_trigger86 = CreateTrigger()
set udg_trigger87 = CreateTrigger()
set udg_trigger88 = CreateTrigger()
set udg_trigger89 = CreateTrigger()
set udg_trigger90 = CreateTrigger()
set udg_trigger91 = CreateTrigger()
set udg_trigger92 = CreateTrigger()
set udg_trigger93 = CreateTrigger()
set udg_trigger94 = CreateTrigger()
set udg_trigger95 = CreateTrigger()
set udg_trigger96 = CreateTrigger()
set udg_trigger97 = CreateTrigger()
set udg_trigger98 = CreateTrigger()
set udg_trigger99 = CreateTrigger()
set udg_trigger100 = CreateTrigger()
set udg_trigger101 = CreateTrigger()
set udg_trigger102 = CreateTrigger()
set udg_trigger103 = CreateTrigger()
call ExecuteFunc("main2")
endfunction
function Trig_heroinit_Conditions takes nothing returns boolean
if ( not ( GetUnitTypeId(GetTriggerUnit()) == 'e004' ) ) then
return false
endif
return true
endfunction
function Trig_heroinit_Actions takes nothing returns nothing
call SetPlayerUnitAvailableBJ( 'Hblm', false, GetOwningPlayer(GetTriggerUnit()) )
endfunction
//===========================================================================
function InitTrig_heroinit takes nothing returns nothing
set gg_trg_heroinit = CreateTrigger( )
call TriggerRegisterAnyUnitEventBJ( gg_trg_heroinit, EVENT_PLAYER_UNIT_TRAIN_FINISH )
call TriggerAddCondition( gg_trg_heroinit, Condition( function Trig_heroinit_Conditions ) )
call TriggerAddAction( gg_trg_heroinit, function Trig_heroinit_Actions )
endfunction