Community
Maps
Tutorials
Gallery
Support Us
Install the app
-
Listen to a special audio message from Bill Roper to the Hive Workshop community (Bill is a former Vice President of Blizzard Entertainment, Producer, Designer, Musician, Voice Actor) 🔗Click here to hear his message!
-
Read Evilhog's interview with Gregory Alper, the original composer of the music for WarCraft: Orcs & Humans 🔗Click here to read the full interview.
- Home
- Forums
- Warcraft III
- Maps & Resources
- Maps
- Tree Tag Winter Edition v3
- Tree Tag Winter Edition v3
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
Triggers
Tree Tag Winter Edition v3.w3x
Variables
triggers
init
// Map deprotected by X-deprotect (version 2006-10-02) by zibada
// http://dimon.xgm.ru/xdep/
// Visit our modmaking community at http://xgm.ru/
| Name | Type | is_array | initial_value |
| boolean01 | boolean | No | |
| boolean02 | boolean | No | |
| boolean03 | boolean | No | |
| booleans01 | boolean | Yes | |
| booleans02 | boolean | Yes | |
| boolexpr01 | boolexpr | No | |
| buttons01 | button | Yes | |
| buttons02 | button | Yes | |
| buttons03 | button | Yes | |
| dialog01 | dialog | No | |
| dialog02 | dialog | No | |
| dialog03 | dialog | No | |
| fogmodifiers01 | fogmodifier | Yes | |
| force01 | force | No | |
| force02 | force | No | |
| force03 | force | No | |
| force04 | force | No | |
| forces01 | force | Yes | |
| group01 | group | No | |
| group02 | group | No | |
| group03 | group | No | |
| group04 | group | No | |
| integer01 | integer | No | |
| integers01 | integer | Yes | |
| integers02 | integer | Yes | |
| integers03 | integer | Yes | |
| integers04 | integer | Yes | |
| integers05 | integer | Yes | |
| integers06 | integer | Yes | |
| location01 | location | No | |
| multiboard01 | multiboard | No | |
| real01 | real | No | .0 |
| real02 | real | No | .0 |
| reals01 | real | Yes | |
| reals02 | real | Yes | |
| reals03 | real | Yes | |
| rect01 | rect | No | |
| sound01 | sound | No | |
| sound02 | sound | No | |
| sound03 | sound | No | |
| strings01 | string | Yes | |
| timer01 | timer | No | |
| timer02 | 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 | |
| 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 | |
| units01 | unit | Yes | |
| units02 | unit | Yes | |
| units03 | unit | Yes |
//TESH.scrollpos=2138
//TESH.alwaysfold=0
// Map deprotected by X-deprotect (version 2006-10-02) by zibada
// http://dimon.xgm.ru/xdep/
// Visit our modmaking community at http://xgm.ru/
function xe takes location oe,real re,real ie returns location
return Location(GetLocationX(oe)+re*Cos(ie*bj_DEGTORAD),GetLocationY(oe)+re*Sin(ie*bj_DEGTORAD))
endfunction
function ae takes nothing returns boolean
local real dx=GetDestructableX(GetFilterDestructable())-udg_real01
local real dy=GetDestructableY(GetFilterDestructable())-udg_real02
return(dx*dx+dy*dy<=bj_enumDestructableRadius)
endfunction
function ne takes real Ve,location Ee,code Xe returns nothing
local rect r
if(Ve>=0)then
set udg_real01=GetLocationX(Ee)
set udg_real02=GetLocationY(Ee)
set bj_enumDestructableRadius=Ve*Ve
set r=Rect(udg_real01-Ve,udg_real02-Ve,udg_real01+Ve,udg_real02+Ve)
call EnumDestructablesInRect(r,filterEnumDestructablesInCircleBJ,Xe)
call RemoveRect(r)
set r=null
endif
endfunction
function Oe takes real Ve,location Re,boolexpr Ie returns group
set udg_group04=CreateGroup()
call GroupEnumUnitsInRangeOfLoc(udg_group04,Re,Ve,Ie)
return udg_group04
endfunction
function Ae takes player Ne returns group
set udg_group04=CreateGroup()
call GroupEnumUnitsOfPlayer(udg_group04,Ne,udg_boolexpr01)
return udg_group04
endfunction
function be takes player Ne returns force
set udg_force04=CreateForce()
call ForceAddPlayer(udg_force04,Ne)
return udg_force04
endfunction
function Be takes mapcontrol ce returns force
local integer Ce
local player de
set udg_force04=CreateForce()
set Ce=0
loop
set de=Player(Ce)
if GetPlayerController(de)==ce then
call ForceAddPlayer(udg_force04,de)
endif
set Ce=Ce+1
exitwhen Ce==16
endloop
return udg_force04
endfunction
function De takes player Ne returns force
set udg_force04=CreateForce()
call ForceEnumAllies(udg_force04,Ne,udg_boolexpr01)
return udg_force04
endfunction
function fe takes player Ne returns force
set udg_force04=CreateForce()
call ForceEnumEnemies(udg_force04,Ne,udg_boolexpr01)
return udg_force04
endfunction
function Fe takes boolexpr Ie returns force
set udg_force04=CreateForce()
call ForceEnumPlayers(udg_force04,Ie)
call DestroyBoolExpr(Ie)
return udg_force04
endfunction
function ge takes itemtype Ge,integer he returns nothing
local group g
set bj_stockPickedItemType=Ge
set bj_stockPickedItemLevel=he
set g=CreateGroup()
call GroupEnumUnitsOfType(g,"marketplace",udg_boolexpr01)
call ForGroup(g,function UpdateEachStockBuildingEnum)
call DestroyGroup(g)
set g=null
endfunction
function He takes nothing returns nothing
local integer pickedItemId
local itemtype je
local integer Je=0
local integer ke=0
local integer he
set he=1
loop
if(bj_stockAllowedPermanent[he])then
set ke=ke+1
if(GetRandomInt(1,ke)==1)then
set je=ITEM_TYPE_PERMANENT
set Je=he
endif
endif
if(bj_stockAllowedCharged[he])then
set ke=ke+1
if(GetRandomInt(1,ke)==1)then
set je=ITEM_TYPE_CHARGED
set Je=he
endif
endif
if(bj_stockAllowedArtifact[he])then
set ke=ke+1
if(GetRandomInt(1,ke)==1)then
set je=ITEM_TYPE_ARTIFACT
set Je=he
endif
endif
set he=he+1
exitwhen he>10
endloop
if(ke==0)then
set je=null
return
endif
call ge(je,Je)
set je=null
endfunction
function Ke takes nothing returns nothing
call He()
call TimerStart(bj_stockUpdateTimer,bj_STOCK_RESTOCK_INTERVAL,true,function He)
endfunction
function Le takes nothing returns boolean
return true
endfunction
function Se takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force03))
endfunction
function te takes nothing returns nothing
if(Se())then
call DisplayTextToForce(udg_force03,"TRIGSTR_1558")
endif
endfunction
function ue takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),11,-1)!="")
endfunction
function Ue takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force03))
endfunction
function We takes nothing returns nothing
if(Ue())then
if(ue())then
call StartTimerBJ(udg_timer02,false,S2R(SubStringBJ(GetEventPlayerChatString(),11,-1)))
call DisplayTextToForce(udg_force03,("|c00FF8000New game time set to - |r"+SubStringBJ(GetEventPlayerChatString(),11,-1)))
call DisplayTextToForce(udg_force01,(("|c00C0C0C0"+GetPlayerName(GetTriggerPlayer()))+("|c00FF8000 has set the game time to - |r"+SubStringBJ(GetEventPlayerChatString(),11,-1))))
call DisplayTextToForce(udg_force02,(("|c00C0C0C0"+GetPlayerName(GetTriggerPlayer()))+("|c00FF8000 has set the game time to - |r"+SubStringBJ(GetEventPlayerChatString(),11,-1))))
else
call DisplayTextToForce(udg_force03,"|c00FF0000Error - Enter a time to set to.|r")
endif
endif
endfunction
function Ye takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force03))
endfunction
function ze takes nothing returns nothing
if(Ye())then
call SetPlayerStateBJ(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD,(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD)+1000))
endif
endfunction
function vx takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force03))
endfunction
function ex takes nothing returns nothing
if(vx())then
call SetPlayerStateBJ(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER,(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)+1000))
endif
endfunction
function ox takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force03))
endfunction
function rx takes nothing returns nothing
if(ox())then
call DialogSetMessage(udg_dialog03,"Toggle Adminship for Player...")
call DialogAddButtonBJ(udg_dialog03,"Cancel (Don't change)")
set udg_buttons03[0]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"Player 1 (Red)")
set udg_buttons03[1]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"Player 2 (Blue)")
set udg_buttons03[2]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"Player 3 (Teal)")
set udg_buttons03[3]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"Player 4 (Purple)")
set udg_buttons03[4]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"Player 5 (Yellow)")
set udg_buttons03[5]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"Player 6 (Orange)")
set udg_buttons03[6]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"Player 7 (Green)")
set udg_buttons03[7]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"Player 8 (Pink)")
set udg_buttons03[8]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"Player 9 (Gray)")
set udg_buttons03[9]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"Player 10 (Light Blue)")
set udg_buttons03[10]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"Player 11 (Dark Green)")
set udg_buttons03[11]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"Player 12 (Brown)")
set udg_buttons03[12]=bj_lastCreatedButton
call DialogDisplayBJ(true,udg_dialog03,GetTriggerPlayer())
endif
endfunction
function ax takes nothing returns boolean
return(IsPlayerInForce(Player(11),udg_force03))
endfunction
function nx takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[12])
endfunction
function Vx takes nothing returns boolean
return(IsPlayerInForce(Player(10),udg_force03))
endfunction
function Ex takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[11])
endfunction
function Xx takes nothing returns boolean
return(IsPlayerInForce(Player(9),udg_force03))
endfunction
function Ox takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[10])
endfunction
function Rx takes nothing returns boolean
return(IsPlayerInForce(Player(8),udg_force03))
endfunction
function Ix takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[9])
endfunction
function Ax takes nothing returns boolean
return(IsPlayerInForce(Player(7),udg_force03))
endfunction
function Nx takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[8])
endfunction
function bx takes nothing returns boolean
return(IsPlayerInForce(Player(6),udg_force03))
endfunction
function Bx takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[7])
endfunction
function cx takes nothing returns boolean
return(IsPlayerInForce(Player(5),udg_force03))
endfunction
function Cx takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[6])
endfunction
function Dx takes nothing returns boolean
return(IsPlayerInForce(Player(4),udg_force03))
endfunction
function fx takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[5])
endfunction
function Fx takes nothing returns boolean
return(IsPlayerInForce(Player(3),udg_force03))
endfunction
function gx takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[4])
endfunction
function Gx takes nothing returns boolean
return(IsPlayerInForce(Player(2),udg_force03))
endfunction
function hx takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[3])
endfunction
function Hx takes nothing returns boolean
return(IsPlayerInForce(Player(1),udg_force03))
endfunction
function jx takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[2])
endfunction
function Jx takes nothing returns boolean
return(IsPlayerInForce(Player(0),udg_force03))
endfunction
function kx takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[1])
endfunction
function Kx takes nothing returns boolean
return(IsPlayerInForce(Player(11),Be(MAP_CONTROL_USER)))
endfunction
function lx takes nothing returns boolean
return(IsPlayerInForce(Player(10),Be(MAP_CONTROL_USER)))
endfunction
function Lx takes nothing returns boolean
return(IsPlayerInForce(Player(9),Be(MAP_CONTROL_USER)))
endfunction
function mx takes nothing returns boolean
return(IsPlayerInForce(Player(8),Be(MAP_CONTROL_USER)))
endfunction
function Mx takes nothing returns boolean
return(IsPlayerInForce(Player(8),Be(MAP_CONTROL_USER)))
endfunction
function px takes nothing returns boolean
return(IsPlayerInForce(Player(7),Be(MAP_CONTROL_USER)))
endfunction
function Px takes nothing returns boolean
return(IsPlayerInForce(Player(6),Be(MAP_CONTROL_USER)))
endfunction
function qx takes nothing returns boolean
return(IsPlayerInForce(Player(5),Be(MAP_CONTROL_USER)))
endfunction
function Qx takes nothing returns boolean
return(IsPlayerInForce(Player(4),Be(MAP_CONTROL_USER)))
endfunction
function sx takes nothing returns boolean
return(IsPlayerInForce(Player(3),Be(MAP_CONTROL_USER)))
endfunction
function Sx takes nothing returns boolean
return(IsPlayerInForce(Player(2),Be(MAP_CONTROL_USER)))
endfunction
function tx takes nothing returns boolean
return(IsPlayerInForce(Player(1),Be(MAP_CONTROL_USER)))
endfunction
function Tx takes nothing returns boolean
return(IsPlayerInForce(Player(0),Be(MAP_CONTROL_USER)))
endfunction
function ux takes nothing returns boolean
return(IsPlayerInForce(Player(0),udg_force03)==false)and(IsPlayerInForce(Player(1),udg_force03)==false)and(IsPlayerInForce(Player(2),udg_force03)==false)and(IsPlayerInForce(Player(3),udg_force03)==false)and(IsPlayerInForce(Player(4),udg_force03)==false)and(IsPlayerInForce(Player(5),udg_force03)==false)and(IsPlayerInForce(Player(6),udg_force03)==false)and(IsPlayerInForce(Player(7),udg_force03)==false)and(IsPlayerInForce(Player(8),udg_force03)==false)and(IsPlayerInForce(Player(9),udg_force03)==false)and(IsPlayerInForce(Player(10),udg_force03)==false)and(IsPlayerInForce(Player(11),udg_force03)==false)
endfunction
function Ux takes nothing returns nothing
if(kx())then
if(Jx())then
call ForceRemovePlayer(udg_force03,Player(0))
else
call ForceAddPlayer(udg_force03,Player(0))
endif
else
if(jx())then
if(Hx())then
call ForceRemovePlayer(udg_force03,Player(1))
else
call ForceAddPlayer(udg_force03,Player(1))
endif
else
if(hx())then
if(Gx())then
call ForceRemovePlayer(udg_force03,Player(2))
else
call ForceAddPlayer(udg_force03,Player(2))
endif
else
if(gx())then
if(Fx())then
call ForceRemovePlayer(udg_force03,Player(3))
else
call ForceAddPlayer(udg_force03,Player(3))
endif
else
if(fx())then
if(Dx())then
call ForceRemovePlayer(udg_force03,Player(4))
else
call ForceAddPlayer(udg_force03,Player(4))
endif
else
if(Cx())then
if(cx())then
call ForceRemovePlayer(udg_force03,Player(5))
else
call ForceAddPlayer(udg_force03,Player(5))
endif
else
if(Bx())then
if(bx())then
call ForceRemovePlayer(udg_force03,Player(6))
else
call ForceAddPlayer(udg_force03,Player(6))
endif
else
if(Nx())then
if(Ax())then
call ForceRemovePlayer(udg_force03,Player(7))
else
call ForceAddPlayer(udg_force03,Player(7))
endif
else
if(Ix())then
if(Rx())then
call ForceRemovePlayer(udg_force03,Player(8))
else
call ForceAddPlayer(udg_force03,Player(8))
endif
else
if(Ox())then
if(Xx())then
call ForceRemovePlayer(udg_force03,Player(9))
else
call ForceAddPlayer(udg_force03,Player(9))
endif
else
if(Ex())then
if(Vx())then
call ForceRemovePlayer(udg_force03,Player(10))
else
call ForceAddPlayer(udg_force03,Player(10))
endif
else
if(nx())then
if(ax())then
call ForceRemovePlayer(udg_force03,Player(11))
else
call ForceAddPlayer(udg_force03,Player(11))
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
call DialogClear(udg_dialog03)
if(ux())then
if(Tx())then
call ForceAddPlayer(udg_force03,Player(0))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(tx())then
call ForceAddPlayer(udg_force03,Player(1))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Sx())then
call ForceAddPlayer(udg_force03,Player(2))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(sx())then
call ForceAddPlayer(udg_force03,Player(3))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Qx())then
call ForceAddPlayer(udg_force03,Player(4))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(qx())then
call ForceAddPlayer(udg_force03,Player(5))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Px())then
call ForceAddPlayer(udg_force03,Player(6))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(px())then
call ForceAddPlayer(udg_force03,Player(7))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Mx())then
call ForceAddPlayer(udg_force03,Player(8))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(mx())then
call ForceAddPlayer(udg_force03,Player(8))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Lx())then
call ForceAddPlayer(udg_force03,Player(9))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(lx())then
call ForceAddPlayer(udg_force03,Player(10))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Kx())then
call ForceAddPlayer(udg_force03,Player(11))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endfunction
function Wx takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force03))
endfunction
function yx takes nothing returns nothing
if(Wx())then
call DialogSetMessage(udg_dialog02,"Kick a player below")
call DialogAddButtonBJ(udg_dialog02,"Cancel (Don't kick)")
set udg_buttons02[0]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"Player 1 (Red)")
set udg_buttons02[1]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"Player 2 (Blue)")
set udg_buttons02[2]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"Player 3 (Teal)")
set udg_buttons02[3]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"Player 4 (Purple)")
set udg_buttons02[4]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"Player 5 (Yellow)")
set udg_buttons02[5]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"Player 6 (Orange)")
set udg_buttons02[6]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"Player 7 (Green)")
set udg_buttons02[7]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"Player 8 (Pink)")
set udg_buttons02[8]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"Player 9 (Gray)")
set udg_buttons02[9]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"Player 10 (Light Blue)")
set udg_buttons02[10]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"Player 11 (Dark Green)")
set udg_buttons02[11]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"Player 12 (Brown)")
set udg_buttons02[12]=bj_lastCreatedButton
call DialogDisplayBJ(true,udg_dialog02,GetTriggerPlayer())
endif
endfunction
function zx takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[12])
endfunction
function Zx takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[11])
endfunction
function vo takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[10])
endfunction
function eo takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[9])
endfunction
function xo takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[8])
endfunction
function oo takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[7])
endfunction
function ro takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[6])
endfunction
function io takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[5])
endfunction
function ao takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[4])
endfunction
function no takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[3])
endfunction
function Vo takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[2])
endfunction
function Eo takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[1])
endfunction
function Xo takes nothing returns boolean
return(IsPlayerInForce(Player(11),Be(MAP_CONTROL_USER)))
endfunction
function Oo takes nothing returns boolean
return(IsPlayerInForce(Player(10),Be(MAP_CONTROL_USER)))
endfunction
function Ro takes nothing returns boolean
return(IsPlayerInForce(Player(9),Be(MAP_CONTROL_USER)))
endfunction
function Io takes nothing returns boolean
return(IsPlayerInForce(Player(8),Be(MAP_CONTROL_USER)))
endfunction
function Ao takes nothing returns boolean
return(IsPlayerInForce(Player(8),Be(MAP_CONTROL_USER)))
endfunction
function No takes nothing returns boolean
return(IsPlayerInForce(Player(7),Be(MAP_CONTROL_USER)))
endfunction
function bo takes nothing returns boolean
return(IsPlayerInForce(Player(6),Be(MAP_CONTROL_USER)))
endfunction
function Bo takes nothing returns boolean
return(IsPlayerInForce(Player(5),Be(MAP_CONTROL_USER)))
endfunction
function co takes nothing returns boolean
return(IsPlayerInForce(Player(4),Be(MAP_CONTROL_USER)))
endfunction
function Co takes nothing returns boolean
return(IsPlayerInForce(Player(3),Be(MAP_CONTROL_USER)))
endfunction
function do takes nothing returns boolean
return(IsPlayerInForce(Player(2),Be(MAP_CONTROL_USER)))
endfunction
function Do takes nothing returns boolean
return(IsPlayerInForce(Player(1),Be(MAP_CONTROL_USER)))
endfunction
function fo takes nothing returns boolean
return(IsPlayerInForce(Player(0),Be(MAP_CONTROL_USER)))
endfunction
function Fo takes nothing returns boolean
return(IsPlayerInForce(Player(0),udg_force03)==false)and(IsPlayerInForce(Player(1),udg_force03)==false)and(IsPlayerInForce(Player(2),udg_force03)==false)and(IsPlayerInForce(Player(3),udg_force03)==false)and(IsPlayerInForce(Player(4),udg_force03)==false)and(IsPlayerInForce(Player(5),udg_force03)==false)and(IsPlayerInForce(Player(6),udg_force03)==false)and(IsPlayerInForce(Player(7),udg_force03)==false)and(IsPlayerInForce(Player(8),udg_force03)==false)and(IsPlayerInForce(Player(9),udg_force03)==false)and(IsPlayerInForce(Player(10),udg_force03)==false)and(IsPlayerInForce(Player(11),udg_force03)==false)
endfunction
function go takes nothing returns nothing
if(Eo())then
call ForceRemovePlayer(udg_force01,Player(0))
call ForceRemovePlayer(udg_force02,Player(0))
call ForceRemovePlayer(udg_force03,Player(0))
call CustomDefeatBJ(Player(0),"You were kicked out of the game!")
call SetPlayerName(Player(0),("(Kicked) "+GetPlayerName(Player(0))))
call SetPlayerOnScoreScreen(Player(0),false)
else
if(Vo())then
call ForceRemovePlayer(udg_force01,Player(1))
call ForceRemovePlayer(udg_force02,Player(1))
call ForceRemovePlayer(udg_force03,Player(1))
call CustomDefeatBJ(Player(1),"You were kicked out of the game!")
call SetPlayerName(Player(1),("(Kicked) "+GetPlayerName(Player(1))))
call SetPlayerOnScoreScreen(Player(1),false)
else
if(no())then
call ForceRemovePlayer(udg_force01,Player(2))
call ForceRemovePlayer(udg_force02,Player(2))
call ForceRemovePlayer(udg_force03,Player(2))
call CustomDefeatBJ(Player(2),"You were kicked out of the game!")
call SetPlayerName(Player(2),("(Kicked) "+GetPlayerName(Player(2))))
call SetPlayerOnScoreScreen(Player(2),false)
else
if(ao())then
call ForceRemovePlayer(udg_force01,Player(3))
call ForceRemovePlayer(udg_force02,Player(3))
call ForceRemovePlayer(udg_force03,Player(3))
call CustomDefeatBJ(Player(3),"You were kicked out of the game!")
call SetPlayerName(Player(3),("(Kicked) "+GetPlayerName(Player(3))))
call SetPlayerOnScoreScreen(Player(3),false)
else
if(io())then
call ForceRemovePlayer(udg_force01,Player(4))
call ForceRemovePlayer(udg_force02,Player(4))
call ForceRemovePlayer(udg_force03,Player(4))
call CustomDefeatBJ(Player(4),"You were kicked out of the game!")
call SetPlayerName(Player(4),("(Kicked) "+GetPlayerName(Player(4))))
call SetPlayerOnScoreScreen(Player(4),false)
else
if(ro())then
call ForceRemovePlayer(udg_force01,Player(5))
call ForceRemovePlayer(udg_force02,Player(5))
call ForceRemovePlayer(udg_force03,Player(5))
call CustomDefeatBJ(Player(5),"You were kicked out of the game!")
call SetPlayerName(Player(5),("(Kicked) "+GetPlayerName(Player(5))))
call SetPlayerOnScoreScreen(Player(5),false)
else
if(oo())then
call ForceRemovePlayer(udg_force01,Player(6))
call ForceRemovePlayer(udg_force02,Player(6))
call ForceRemovePlayer(udg_force03,Player(6))
call CustomDefeatBJ(Player(6),"You were kicked out of the game!")
call SetPlayerName(Player(6),("(Kicked) "+GetPlayerName(Player(6))))
call SetPlayerOnScoreScreen(Player(6),false)
else
if(xo())then
call ForceRemovePlayer(udg_force01,Player(7))
call ForceRemovePlayer(udg_force02,Player(7))
call ForceRemovePlayer(udg_force03,Player(7))
call CustomDefeatBJ(Player(7),"You were kicked out of the game!")
call SetPlayerName(Player(7),("(Kicked) "+GetPlayerName(Player(7))))
call SetPlayerOnScoreScreen(Player(7),false)
else
if(eo())then
call ForceRemovePlayer(udg_force01,Player(8))
call ForceRemovePlayer(udg_force02,Player(8))
call ForceRemovePlayer(udg_force03,Player(8))
call CustomDefeatBJ(Player(8),"You were kicked out of the game!")
call SetPlayerName(Player(8),("(Kicked) "+GetPlayerName(Player(8))))
call SetPlayerOnScoreScreen(Player(8),false)
else
if(vo())then
call ForceRemovePlayer(udg_force01,Player(9))
call ForceRemovePlayer(udg_force02,Player(9))
call ForceRemovePlayer(udg_force03,Player(9))
call CustomDefeatBJ(Player(9),"You were kicked out of the game!")
call SetPlayerName(Player(9),("(Kicked) "+GetPlayerName(Player(9))))
call SetPlayerOnScoreScreen(Player(9),false)
else
if(Zx())then
call ForceRemovePlayer(udg_force01,Player(10))
call ForceRemovePlayer(udg_force02,Player(10))
call ForceRemovePlayer(udg_force03,Player(10))
call CustomDefeatBJ(Player(10),"You were kicked out of the game!")
call SetPlayerName(Player(10),("(Kicked) "+GetPlayerName(Player(10))))
call SetPlayerOnScoreScreen(Player(10),false)
else
if(zx())then
call ForceRemovePlayer(udg_force01,Player(11))
call ForceRemovePlayer(udg_force02,Player(11))
call ForceRemovePlayer(udg_force03,Player(11))
call CustomDefeatBJ(Player(11),"You were kicked out of the game!")
call SetPlayerName(Player(11),("(Kicked) "+GetPlayerName(Player(11))))
call SetPlayerOnScoreScreen(Player(11),false)
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
call DialogClear(udg_dialog02)
if(Fo())then
if(fo())then
call ForceAddPlayer(udg_force03,Player(0))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Do())then
call ForceAddPlayer(udg_force03,Player(1))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(do())then
call ForceAddPlayer(udg_force03,Player(2))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Co())then
call ForceAddPlayer(udg_force03,Player(3))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(co())then
call ForceAddPlayer(udg_force03,Player(4))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Bo())then
call ForceAddPlayer(udg_force03,Player(5))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(bo())then
call ForceAddPlayer(udg_force03,Player(6))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(No())then
call ForceAddPlayer(udg_force03,Player(7))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Ao())then
call ForceAddPlayer(udg_force03,Player(8))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Io())then
call ForceAddPlayer(udg_force03,Player(8))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Ro())then
call ForceAddPlayer(udg_force03,Player(9))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Oo())then
call ForceAddPlayer(udg_force03,Player(10))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
else
if(Xo())then
call ForceAddPlayer(udg_force03,Player(11))
call DisplayTextToForce(udg_force03,"|c00FF8000|You are an Admin of this game, for information type |c00FF0000-Help|r.")
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endfunction
function ho takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='uC12')
endfunction
function Ho takes nothing returns nothing
call UnitDamageTargetBJ(GetKillingUnit(),GetEnumUnit(),1000000000.,ATTACK_TYPE_CHAOS,DAMAGE_TYPE_NORMAL)
endfunction
function jo takes nothing returns boolean
return(IsPlayerEnemy(GetOwningPlayer(GetKillingUnit()),GetOwningPlayer(GetDyingUnit())))
endfunction
function Jo takes nothing returns nothing
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetOwningPlayer(GetDyingUnit()))+(" was killed by "+GetPlayerName(GetOwningPlayer(GetKillingUnit())))))
call GroupRemoveUnit(udg_group01,GetDyingUnit())
call ForGroupBJ(Ae(GetOwningPlayer(GetDyingUnit())),function Ho)
call CreateNUnitsAtLoc(1,'oC10',GetOwningPlayer(GetDyingUnit()),xe(GetRectCenter(udg_rect01),GetRandomReal(.0,150.),GetRandomReal(0,360)),GetRandomReal(0,360))
call GroupAddUnit(udg_group03,bj_lastCreatedUnit)
set udg_units01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=null
set udg_units02[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=bj_lastCreatedUnit
set udg_integers05[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=1
call PanCameraToTimedLocForPlayer(GetOwningPlayer(GetDyingUnit()),GetUnitLoc(bj_lastCreatedUnit),.5)
call ConditionalTriggerExecute(udg_trigger33)
if(jo())then
call SetHeroLevelBJ(udg_units03[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))],(GetHeroLevel(udg_units03[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))])+1),true)
set udg_integers03[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]=(udg_integers03[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]+1)
else
set udg_integers03[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]=(udg_integers03[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]-5)
endif
call TriggerExecute(udg_trigger42)
endfunction
function Ko takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='oC10')
endfunction
function lo takes nothing returns nothing
call DisplayTextToForce(De(GetOwningPlayer(GetDyingUnit())),(GetPlayerName(GetOwningPlayer(GetDyingUnit()))+(" has been rescued by "+GetPlayerName(GetOwningPlayer(GetKillingUnit())))))
call DisplayTextToForce(fe(GetOwningPlayer(GetDyingUnit())),"An ent has escaped!")
call GroupRemoveUnit(udg_group03,GetDyingUnit())
call CreateNUnitsAtLoc(1,'uC12',GetOwningPlayer(GetDyingUnit()),GetUnitLoc(GetDyingUnit()),GetUnitFacing(GetDyingUnit()))
call GroupAddUnit(udg_group01,bj_lastCreatedUnit)
call SelectUnitForPlayerSingle(bj_lastCreatedUnit,GetOwningPlayer(bj_lastCreatedUnit))
set udg_units01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=bj_lastCreatedUnit
set udg_units02[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=null
set udg_integers05[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=2
call PanCameraToTimedLocForPlayer(GetOwningPlayer(GetDyingUnit()),GetUnitLoc(bj_lastCreatedUnit),.5)
set udg_integers03[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]=(udg_integers03[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]+1)
call TriggerExecute(udg_trigger42)
endfunction
function mo takes nothing returns boolean
return(GetUnitTypeId(GetLeavingUnit())=='oC10')
endfunction
function Mo takes nothing returns nothing
call SetUnitPositionLoc(GetLeavingUnit(),GetRectCenter(udg_rect01))
endfunction
function Po takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='OC00')or(GetUnitTypeId(GetDyingUnit())=='OC05')or(GetUnitTypeId(GetDyingUnit())=='OC06')
endfunction
function qo takes nothing returns boolean
return(Po())
endfunction
function Qo takes nothing returns boolean
return(udg_integers04[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]<=56)and(IsPlayerEnemy(GetOwningPlayer(GetKillingUnit()),GetOwningPlayer(GetDyingUnit())))
endfunction
function so takes nothing returns nothing
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,10.,(GetPlayerName(GetOwningPlayer(GetDyingUnit()))+(" has died and will revive in "+(I2S((udg_integers04[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]+4))+" seconds."))))
call TriggerSleepAction(I2R((udg_integers04[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]+4)))
call ReviveHeroLoc(GetDyingUnit(),GetUnitLoc(GetDyingUnit()),true)
call SetUnitLifePercentBJ(GetDyingUnit(),'d')
call SetUnitManaPercentBJ(GetDyingUnit(),'d')
call PanCameraToTimedLocForPlayer(GetOwningPlayer(GetDyingUnit()),GetUnitLoc(GetDyingUnit()),.5)
if(Qo())then
set udg_integers04[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=(udg_integers04[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]+4)
endif
endfunction
function to takes nothing returns boolean
return(udg_integers04[(1+GetPlayerId(Player(9)))]>=8)
endfunction
function To takes nothing returns boolean
return(udg_integers04[(1+GetPlayerId(Player(10)))]>=8)
endfunction
function uo takes nothing returns boolean
return(udg_integers04[(1+GetPlayerId(Player(11)))]>=8)
endfunction
function Uo takes nothing returns nothing
if(to())then
set udg_integers04[(1+GetPlayerId(Player(9)))]=(udg_integers04[(1+GetPlayerId(Player(9)))]-8)
endif
if(To())then
set udg_integers04[(1+GetPlayerId(Player(10)))]=(udg_integers04[(1+GetPlayerId(Player(10)))]-8)
endif
if(uo())then
set udg_integers04[(1+GetPlayerId(Player(11)))]=(udg_integers04[(1+GetPlayerId(Player(11)))]-8)
endif
endfunction
function Wo takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetFilterUnit()),udg_force01))
endfunction
function yo takes nothing returns boolean
return(GetUnitTypeId(GetFilterUnit())=='e007')
endfunction
function Yo takes nothing returns boolean
return GetBooleanAnd(Wo(),yo())
endfunction
function zo takes nothing returns boolean
return(GetSpellAbilityId()=='A012')and(IsPlayerInForce(GetOwningPlayer(GetSpellAbilityUnit()),udg_force02))and(CountUnitsInGroup(Oe(900.,GetSpellTargetLoc(),Condition(function Yo)))>0)
endfunction
function Zo takes nothing returns boolean
return(GetOwningPlayer(GetFilterUnit())==GetFilterPlayer())
endfunction
function vr takes nothing returns boolean
return(GetUnitTypeId(GetFilterUnit())=='e007')
endfunction
function er takes nothing returns boolean
return GetBooleanAnd(Zo(),vr())
endfunction
function xr takes nothing returns boolean
return(CountUnitsInGroup(Oe(900.,GetSpellTargetLoc(),Condition(function er)))>0)
endfunction
function rr takes nothing returns nothing
call TransmissionFromUnitTypeWithNameBJ(be(GetEnumPlayer()),GetEnumPlayer(),'e007',"Crystal Ball Detector",GetRectCenter(bj_mapInitialPlayableArea),udg_sound03,"You have been detected!!!",1,5.,true)
call DisplayTimedTextToForce(udg_force01,10.,(("|c00ff0000"+GetPlayerName(GetEnumPlayer()))+" has been detected!!!|r"))
endfunction
function ir takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetFilterUnit()),udg_force01))
endfunction
function ar takes nothing returns boolean
return(GetUnitTypeId(GetFilterUnit())=='e007')
endfunction
function nr takes nothing returns boolean
return GetBooleanAnd(ir(),ar())
endfunction
function Vr takes nothing returns nothing
call PingMinimapLocForForceEx(udg_force01,GetUnitLoc(GetEnumUnit()),5.,0,'d',.0,.0)
endfunction
function Er takes nothing returns nothing
call ForForce(Fe(Condition(function xr)),function rr)
call ForGroupBJ(Oe(900.,GetSpellTargetLoc(),Condition(function nr)),function Vr)
endfunction
function Rr takes nothing returns boolean
return(udg_boolean03)
endfunction
function Ir takes nothing returns nothing
call KillDestructable(GetEnumDestructable())
endfunction
function Ar takes nothing returns nothing
call ne(500.,GetUnitLoc(GetEnumUnit()),function Ir)
endfunction
function Nr takes nothing returns nothing
call ForGroupBJ(udg_group02,function Ar)
endfunction
function Br takes nothing returns boolean
return(GetSpellAbilityId()=='A016')and(WaygateIsActive(GetSpellAbilityUnit()))
endfunction
function cr takes nothing returns nothing
call PingMinimapLocForForceEx(be(GetOwningPlayer(GetSpellAbilityUnit())),WaygateGetDestinationLocBJ(GetSpellAbilityUnit()),2.,0,'d','d','d')
endfunction
function dr takes nothing returns boolean
return(GetIssuedOrderId()==852069)and(GetUnitTypeId(GetOrderedUnit())=='n005')
endfunction
function Dr takes nothing returns boolean
return(WaygateIsActive(GetOrderTargetUnit())==false)
endfunction
function fr takes nothing returns boolean
return(GetUnitTypeId(GetOrderTargetUnit())=='n005')
endfunction
function Fr takes nothing returns nothing
if(fr())then
if(Dr())then
call UnitRemoveAbility(GetOrderedUnit(),'A010')
call UnitRemoveAbility(GetOrderTargetUnit(),'A010')
call UnitAddAbility(GetOrderedUnit(),'A016')
call UnitAddAbility(GetOrderTargetUnit(),'A016')
call WaygateSetDestinationLocBJ(GetOrderedUnit(),GetUnitLoc(GetOrderTargetUnit()))
call WaygateSetDestinationLocBJ(GetOrderTargetUnit(),GetUnitLoc(GetOrderedUnit()))
call WaygateActivate(GetOrderedUnit(),true)
call WaygateActivate(GetOrderTargetUnit(),true)
call AddSpecialEffectTargetUnitBJ("overhead",GetOrderedUnit(),"Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl")
call AddSpecialEffectTargetUnitBJ("overhead",GetOrderTargetUnit(),"Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDust.mdl")
call DisplayTimedTextToForce(be(GetOwningPlayer(GetOrderedUnit())),5.,"Tunnel Created.")
else
call DisplayTimedTextToForce(be(GetOwningPlayer(GetOrderedUnit())),5.,"That Tunnel Entrace is already Connected.")
endif
else
call DisplayTimedTextToForce(be(GetOwningPlayer(GetOrderedUnit())),5.,"Must Target a Tunnel Entrance.")
endif
endfunction
function Gr takes nothing returns boolean
return(GetSpellAbilityId()=='A015')
endfunction
function hr takes nothing returns nothing
local location Hr=GetUnitLoc(GetSpellAbilityUnit())
call KillUnit(GetSpellAbilityUnit())
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call TriggerSleepAction(.1)
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call TriggerSleepAction(.1)
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call TriggerSleepAction(.1)
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call TriggerSleepAction(.1)
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call TriggerSleepAction(.1)
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call TriggerSleepAction(.1)
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call TriggerSleepAction(.1)
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call TriggerSleepAction(.1)
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
call AddSpecialEffectLocBJ(OffsetLocation(Hr,GetRandomReal(-50.,50.),GetRandomReal(-50.,50.)),"Objects\\Spawnmodels\\Human\\FragmentationShards\\FragBoomSpawn.mdl")
endfunction
function Jr takes nothing returns boolean
return(GetSpellAbilityId()=='A00C')
endfunction
function kr takes nothing returns nothing
call DestructableRestoreLife(GetEnumDestructable(),GetDestructableMaxLife(GetEnumDestructable()),true)
endfunction
function Kr takes nothing returns nothing
call ne(90.,GetSpellTargetLoc(),function kr)
endfunction
function Lr takes nothing returns boolean
return(GetSpellAbilityId()=='A00Z')
endfunction
function mr takes nothing returns nothing
call DestructableRestoreLife(GetEnumDestructable(),GetDestructableMaxLife(GetEnumDestructable()),true)
endfunction
function Mr takes nothing returns nothing
call ne(400.,GetSpellTargetLoc(),function mr)
endfunction
function Pr takes nothing returns boolean
return(GetSpellAbilityId()=='A007')
endfunction
function qr takes nothing returns nothing
call AddSpecialEffectLocBJ(GetSpellTargetLoc(),"Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl")
call AddSpecialEffectLocBJ(xe(GetSpellTargetLoc(),256,0),"Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl")
call AddSpecialEffectLocBJ(xe(GetSpellTargetLoc(),256,45.),"Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl")
call AddSpecialEffectLocBJ(xe(GetSpellTargetLoc(),256,90.),"Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl")
call AddSpecialEffectLocBJ(xe(GetSpellTargetLoc(),256,135.),"Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl")
call AddSpecialEffectLocBJ(xe(GetSpellTargetLoc(),256,180.),"Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl")
call AddSpecialEffectLocBJ(xe(GetSpellTargetLoc(),256,225.),"Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl")
call AddSpecialEffectLocBJ(xe(GetSpellTargetLoc(),256,270.),"Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl")
call AddSpecialEffectLocBJ(xe(GetSpellTargetLoc(),256,315.),"Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl")
endfunction
function sr takes nothing returns boolean
return(GetSpellAbilityId()=='A00H')
endfunction
function Sr takes nothing returns nothing
set udg_location01=GetSpellTargetLoc()
endfunction
function Tr takes nothing returns boolean
return(GetSpellAbilityId()=='A00H')
endfunction
function ur takes nothing returns nothing
call KillDestructable(GetEnumDestructable())
endfunction
function Ur takes nothing returns nothing
call AddSpecialEffectLocBJ(udg_location01,"Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl")
call ne(300.,udg_location01,function ur)
endfunction
function Wr takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I00H')
endfunction
function yr takes nothing returns nothing
call UnitResetCooldown(GetTriggerUnit())
endfunction
function zr takes nothing returns nothing
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,GetEnumPlayer())
endfunction
function Zr takes nothing returns boolean
return(GetPlayerController(Player(-1+(bj_forLoopAIndex)))==MAP_CONTROL_COMPUTER)
endfunction
function vi takes nothing returns boolean
return(GetPlayerSlotState(Player(-1+(bj_forLoopAIndex)))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function ei takes nothing returns boolean
return(GetPlayerController(Player(-1+(bj_forLoopAIndex)))==MAP_CONTROL_COMPUTER)
endfunction
function xi takes nothing returns boolean
return(GetPlayerSlotState(Player(-1+(bj_forLoopAIndex)))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function oi takes nothing returns nothing
call DialogDisplayBJ(true,udg_dialog01,GetEnumPlayer())
endfunction
function ri takes nothing returns nothing
call MeleeStartingHeroLimit()
call ForForce(bj_FORCE_ALL_PLAYERS,function zr)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=9
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(vi())then
call ForceAddPlayer(udg_force01,Player(-1+(bj_forLoopAIndex)))
set udg_integers05[bj_forLoopAIndex]=2
call CreateNUnitsAtLoc(1,'uC12',Player(-1+(bj_forLoopAIndex)),GetPlayerStartLocationLoc(Player(-1+(bj_forLoopAIndex))),GetRandomReal(0,360))
set udg_units01[bj_forLoopAIndex]=bj_lastCreatedUnit
call GroupAddUnit(udg_group01,bj_lastCreatedUnit)
call SelectUnitForPlayerSingle(bj_lastCreatedUnit,Player(-1+(bj_forLoopAIndex)))
call PanCameraToTimedLocForPlayer(Player(-1+(bj_forLoopAIndex)),GetUnitLoc(bj_lastCreatedUnit),0)
call SetPlayerStateBJ(Player(-1+(bj_forLoopAIndex)),PLAYER_STATE_RESOURCE_GOLD,50)
call SetPlayerStateBJ(Player(-1+(bj_forLoopAIndex)),PLAYER_STATE_RESOURCE_LUMBER,'d')
set udg_integers02[bj_forLoopAIndex]=2
set udg_integers01[bj_forLoopAIndex]=1
if(Zr())then
call SetForceAllianceStateBJ(be(Player(-1+(bj_forLoopAIndex))),De(Player(-1+(bj_forLoopAIndex))),5)
endif
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=10
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(xi())then
call ForceAddPlayer(udg_force02,Player(-1+(bj_forLoopAIndex)))
set udg_integers05[bj_forLoopAIndex]=2
call PanCameraToTimedLocForPlayer(Player(-1+(bj_forLoopAIndex)),GetRectCenter(udg_rect01),0)
call SetPlayerStateBJ(Player(-1+(bj_forLoopAIndex)),PLAYER_STATE_RESOURCE_GOLD,'d')
call SetPlayerStateBJ(Player(-1+(bj_forLoopAIndex)),PLAYER_STATE_RESOURCE_LUMBER,50)
set udg_integers02[bj_forLoopAIndex]=2
set udg_integers01[bj_forLoopAIndex]=5
call CreateFogModifierRadiusLocBJ(true,Player(-1+(bj_forLoopAIndex)),FOG_OF_WAR_VISIBLE,GetRectCenter(udg_rect01),350.)
set udg_fogmodifiers01[bj_forLoopAIndex]=bj_lastCreatedFogModifier
if(ei())then
call SetForceAllianceStateBJ(be(Player(-1+(bj_forLoopAIndex))),De(Player(-1+(bj_forLoopAIndex))),5)
endif
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call DisplayTimedTextToForce(udg_force01,5.,"Infernals are comming to burn down the forrest! Run and hide!")
call DisplayTimedTextToForce(udg_force02,5.,"ATTN: You will land in 30 secconds, please stand by.")
call StartTimerBJ(udg_timer01,false,30.)
call StartTimerBJ(udg_timer02,false,(45.*60.))
call TriggerSleepAction(.5)
call CreateTimerDialogBJ(udg_timer02,"Time Left:")
call TimerDialogDisplay(bj_lastCreatedTimerDialog,true)
set udg_timerdialog01=bj_lastCreatedTimerDialog
call TriggerExecute(udg_trigger41)
call DialogSetMessage(udg_dialog01,"Select Your Infernal")
call DialogAddButtonBJ(udg_dialog01,"Blaze - Agility")
set udg_buttons01[1]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog01,"Pyra - Inteligence")
set udg_buttons01[2]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog01,"Burnin - Strength")
set udg_buttons01[3]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog01,"Random")
set udg_integers06[1]='OC00'
set udg_integers06[2]='OC05'
set udg_integers06[3]='OC06'
call ForForce(udg_force02,function oi)
endfunction
function ai takes nothing returns nothing
set udg_strings01[1]="Red"
set udg_strings01[2]="Blue"
set udg_strings01[3]="Teal"
set udg_strings01[4]="Purple"
set udg_strings01[5]="Yellow"
set udg_strings01[6]="Orange"
set udg_strings01[7]="Green"
set udg_strings01[8]="Pink"
set udg_strings01[9]="Gray"
endfunction
function Vi takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetOrderedUnit()),udg_force01))and(GetPlayerSlotState(GetOwningPlayer(GetOrderedUnit()))==PLAYER_SLOT_STATE_LEFT)
endfunction
function Ei takes nothing returns boolean
return(IsPlayerInForce(GetFilterPlayer(),udg_force01))
endfunction
function Xi takes nothing returns boolean
return(udg_booleans02[(1+GetPlayerId(GetFilterPlayer()))])
endfunction
function Oi takes nothing returns boolean
return GetBooleanAnd(Ei(),Xi())
endfunction
function Ri takes nothing returns nothing
call DisplayTimedTextToForce(be(GetEnumPlayer()),5.,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+(" was issued an order from "+udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetOrderedUnit())))])))
endfunction
function Ii takes nothing returns nothing
call ForForce(Fe(Condition(function Oi)),function Ri)
endfunction
function Ni takes nothing returns boolean
return(udg_booleans02[(1+GetPlayerId(GetTriggerPlayer()))]==false)
endfunction
function bi takes nothing returns nothing
if(Ni())then
call DisplayTimedTextToForce(be(GetTriggerPlayer()),5.,"Show Control is now on.")
set udg_booleans02[(1+GetPlayerId(GetTriggerPlayer()))]=true
else
call DisplayTimedTextToForce(be(GetTriggerPlayer()),5.,"Show Control is now off.")
set udg_booleans02[(1+GetPlayerId(GetTriggerPlayer()))]=false
endif
endfunction
function ci takes nothing returns boolean
return(GetClickedButton()==udg_buttons01[3])
endfunction
function Ci takes nothing returns boolean
return(GetClickedButton()==udg_buttons01[2])
endfunction
function di takes nothing returns boolean
return(GetClickedButton()==udg_buttons01[1])
endfunction
function Di takes nothing returns nothing
call DialogDisplayBJ(false,udg_dialog01,GetTriggerPlayer())
if(di())then
call CreateNUnitsAtLoc(1,udg_integers06[1],GetTriggerPlayer(),Location(-8000.,-8000.),bj_UNIT_FACING)
else
if(Ci())then
call CreateNUnitsAtLoc(1,udg_integers06[2],GetTriggerPlayer(),Location(-8000.,-8000.),bj_UNIT_FACING)
else
if(ci())then
call CreateNUnitsAtLoc(1,udg_integers06[3],GetTriggerPlayer(),Location(-8000.,-8000.),bj_UNIT_FACING)
else
call CreateNUnitsAtLoc(1,udg_integers06[GetRandomInt(1,3)],GetTriggerPlayer(),Location(-8000.,-8000.),bj_UNIT_FACING)
endif
endif
endif
call ShowUnitHide(bj_lastCreatedUnit)
call UnitAddItemByIdSwapped('I000',bj_lastCreatedUnit)
set udg_units03[(1+GetPlayerId(GetTriggerPlayer()))]=bj_lastCreatedUnit
call GroupAddUnit(udg_group02,bj_lastCreatedUnit)
set udg_booleans01[(1+GetPlayerId(GetTriggerPlayer()))]=true
endfunction
function Fi takes nothing returns boolean
return(udg_booleans01[(1+GetPlayerId(GetEnumPlayer()))]==false)
endfunction
function gi takes nothing returns nothing
if(Fi())then
call DialogDisplayBJ(false,udg_dialog01,GetEnumPlayer())
call CreateNUnitsAtLoc(1,udg_integers06[((1+GetPlayerId(GetEnumPlayer()))-9)],GetEnumPlayer(),Location(-8000.,-8000.),bj_UNIT_FACING)
call UnitAddItemByIdSwapped('I000',bj_lastCreatedUnit)
set udg_units03[(1+GetPlayerId(GetEnumPlayer()))]=bj_lastCreatedUnit
call GroupAddUnit(udg_group02,bj_lastCreatedUnit)
call ShowUnitHide(bj_lastCreatedUnit)
set udg_booleans01[(1+GetPlayerId(GetTriggerPlayer()))]=true
endif
endfunction
function Gi takes nothing returns nothing
call CameraSetEQNoiseForPlayer(GetEnumPlayer(),5.)
endfunction
function hi takes nothing returns nothing
call KillDestructable(GetEnumDestructable())
endfunction
function Hi takes nothing returns boolean
return(CountPlayersInForceBJ(udg_force02)==1)
endfunction
function ji takes nothing returns nothing
call SetUnitPositionLoc(GetEnumUnit(),GetRectCenter(udg_rect01))
call ShowUnitShow(GetEnumUnit())
call SelectUnitForPlayerSingle(GetEnumUnit(),GetOwningPlayer(GetEnumUnit()))
call SetUnitAnimation(GetEnumUnit(),"birth")
if(Hi())then
call SetUnitMoveSpeed(GetEnumUnit(),(GetUnitDefaultMoveSpeed(GetEnumUnit())+125.))
endif
endfunction
function Ji takes nothing returns nothing
call RemoveDestructable(GetEnumDestructable())
endfunction
function ki takes nothing returns nothing
call CameraClearNoiseForPlayer(GetEnumPlayer())
endfunction
function Ki takes nothing returns nothing
call ResetUnitAnimation(GetEnumUnit())
endfunction
function li takes nothing returns nothing
call ForForce(udg_force02,function gi)
call ForForce(bj_FORCE_ALL_PLAYERS,function Gi)
call AddSpecialEffectLocBJ(GetRectCenter(udg_rect01),"Units\\Demon\\Infernal\\InfernalBirth.mdl")
call TriggerSleepAction(.2)
call ne(600.,GetRectCenter(udg_rect01),function hi)
call TriggerSleepAction(.3)
call ForGroupBJ(udg_group02,function ji)
set bj_forLoopAIndex=10
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call DestroyFogModifier(udg_fogmodifiers01[bj_forLoopAIndex])
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call TriggerSleepAction(.2)
call ne(600.,GetRectCenter(udg_rect01),function Ji)
call TriggerSleepAction(1.8)
call ForForce(bj_FORCE_ALL_PLAYERS,function ki)
call ForGroupBJ(udg_group02,function Ki)
call EnableTrigger(udg_trigger34)
call EnableTrigger(udg_trigger33)
endfunction
function mi takes nothing returns boolean
return(udg_boolean01==false)and(udg_boolean02==false)
endfunction
function Mi takes nothing returns nothing
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(GetPlayerName(GetTriggerPlayer())+" has left the game."))
call SetForceAllianceStateBJ(be(GetTriggerPlayer()),De(GetTriggerPlayer()),5)
call SetPlayerName(GetTriggerPlayer(),("(Quit) "+GetPlayerName(GetTriggerPlayer())))
call TriggerExecute(udg_trigger42)
call ConditionalTriggerExecute(udg_trigger33)
call ConditionalTriggerExecute(udg_trigger34)
endfunction
function Pi takes nothing returns boolean
return(udg_boolean01==false)
endfunction
function qi takes nothing returns nothing
call TriggerExecute(udg_trigger34)
endfunction
function si takes nothing returns boolean
return(GetPlayerSlotState(GetFilterPlayer())==PLAYER_SLOT_STATE_PLAYING)
endfunction
function Si takes nothing returns boolean
return(IsPlayerInForce(GetFilterPlayer(),udg_force01))
endfunction
function ti takes nothing returns boolean
return GetBooleanAnd(si(),Si())
endfunction
function Ti takes nothing returns boolean
return(CountUnitsInGroup(udg_group01)==0)or(CountPlayersInForceBJ(Fe(Condition(function ti)))==0)
endfunction
function ui takes nothing returns boolean
return(udg_boolean02==false)and(Ti())
endfunction
function Ui takes nothing returns nothing
call AddSpecialEffectTargetUnitBJ("head",GetEnumUnit(),"Doodads\\Cinematic\\FirePillarMedium\\FirePillarMedium.mdl")
endfunction
function wi takes nothing returns nothing
call CreateFogModifierRectBJ(true,GetEnumPlayer(),FOG_OF_WAR_VISIBLE,bj_mapInitialPlayableArea)
endfunction
function Wi takes nothing returns nothing
call CustomVictoryBJ(GetEnumPlayer(),true,true)
endfunction
function yi takes nothing returns nothing
call CustomDefeatBJ(GetEnumPlayer(),"Defeat!")
endfunction
function Yi takes nothing returns nothing
call DisableTrigger(GetTriggeringTrigger())
set udg_boolean01=true
call PauseTimerBJ(true,udg_timer02)
call DestroyTimerDialog(udg_timerdialog01)
call TriggerSleepAction(1.)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,15.,"All the ents have been burned. INFERNALS WIN!")
call PlaySoundBJ(udg_sound01)
call ForGroupBJ(udg_group03,function Ui)
call ForForce(bj_FORCE_ALL_PLAYERS,function wi)
call TriggerSleepAction(15.)
call ForForce(udg_force02,function Wi)
call ForForce(udg_force01,function yi)
endfunction
function Zi takes nothing returns boolean
return(GetPlayerSlotState(GetFilterPlayer())==PLAYER_SLOT_STATE_PLAYING)
endfunction
function va takes nothing returns boolean
return(IsPlayerInForce(GetFilterPlayer(),udg_force02))
endfunction
function ea takes nothing returns boolean
return GetBooleanAnd(Zi(),va())
endfunction
function xa takes nothing returns boolean
return(udg_boolean01==false)and(CountPlayersInForceBJ(Fe(Condition(function ea)))==0)
endfunction
function oa takes nothing returns nothing
call ExplodeUnitBJ(GetEnumUnit())
endfunction
function ra takes nothing returns nothing
call CreateFogModifierRectBJ(true,GetEnumPlayer(),FOG_OF_WAR_VISIBLE,bj_mapInitialPlayableArea)
endfunction
function ia takes nothing returns nothing
call CustomVictoryBJ(GetEnumPlayer(),true,true)
endfunction
function aa takes nothing returns nothing
call CustomDefeatBJ(GetEnumPlayer(),"Defeat!")
endfunction
function na takes nothing returns nothing
call DisableTrigger(GetTriggeringTrigger())
set udg_boolean02=true
call PauseTimerBJ(true,udg_timer02)
call DestroyTimerDialog(udg_timerdialog01)
call TriggerSleepAction(1.)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,15.,"Time has run out and the infernals have died. ENTS WIN!")
call PlaySoundBJ(udg_sound02)
call DisableTrigger(udg_trigger12)
call ForGroupBJ(udg_group02,function oa)
call ForForce(bj_FORCE_ALL_PLAYERS,function ra)
call TriggerSleepAction(15.)
call ForForce(udg_force01,function ia)
call ForForce(udg_force02,function aa)
endfunction
function Ea takes nothing returns nothing
call AddSpecialEffectTargetUnitBJ("chest",GetEnumUnit(),"Abilities\\Spells\\Items\\AIre\\AIreTarget.mdl")
call ModifyHeroStat(0,GetEnumUnit(),0,200)
call ModifyHeroStat(1,GetEnumUnit(),0,200)
call ModifyHeroStat(2,GetEnumUnit(),0,200)
call AddHeroXPSwapped(5000,GetEnumUnit(),true)
call SetUnitMoveSpeed(GetEnumUnit(),(GetUnitPropWindowBJ(GetEnumUnit())+1250.))
call SetUnitLifePercentBJ(GetEnumUnit(),'d')
call SetUnitManaPercentBJ(GetEnumUnit(),'d')
call UnitResetCooldown(GetEnumUnit())
endfunction
function Xa takes nothing returns nothing
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,10.,"Three minutes remaining! The infernals have become stronger!")
call ForGroupBJ(udg_group02,function Ea)
endfunction
function Ra takes nothing returns nothing
call AddSpecialEffectTargetUnitBJ("chest",GetEnumUnit(),"Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl")
call ModifyHeroStat(0,GetEnumUnit(),0,500)
call ModifyHeroStat(1,GetEnumUnit(),0,500)
call ModifyHeroStat(2,GetEnumUnit(),0,500)
call AddHeroXPSwapped(5000,GetEnumUnit(),true)
call SetUnitMoveSpeed(GetEnumUnit(),(GetUnitPropWindowBJ(GetEnumUnit())+2000.))
call UnitAddAbility(GetEnumUnit(),'A00F')
call UnitResetCooldown(GetEnumUnit())
endfunction
function Ia takes nothing returns nothing
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,10.,"One and a half minutes remaining! The infernals have become even stronger!")
set udg_boolean03=true
call ForGroupBJ(udg_group02,function Ra)
endfunction
function Na takes nothing returns nothing
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,15.,"TRIGSTR_1309")
endfunction
function Ba takes nothing returns boolean
return(IsUnitType(GetDyingUnit(),UNIT_TYPE_STRUCTURE)!=null)
endfunction
function ca takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),udg_force02))
endfunction
function Ca takes nothing returns nothing
if(ca())then
call AddHeroXPSwapped(50,udg_units03[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))],false)
endif
endfunction
function Da takes nothing returns nothing
call CreateQuestBJ(0,"Ent Help","TRIGSTR_1425","ReplaceableTextures\\CommandButtons\\BTNEnt.blp")
call CreateQuestBJ(0,"Infernal Help","TRIGSTR_1427","ReplaceableTextures\\CommandButtons\\BTNInfernal.blp")
call CreateQuestBJ(2,"Notes on Tunneling...","TRIGSTR_1430","ReplaceableTextures\\CommandButtons\\BTNGoldMine.blp")
call CreateQuestBJ(2,"Links...","TRIGSTR_1439","ReplaceableTextures\\CommandButtons\\BTNScrollOfHealing.blp")
endfunction
function Fa takes nothing returns nothing
set udg_reals01[1]=100.
set udg_reals01[2]=.0
set udg_reals01[3]=11.
set udg_reals01[4]=33.
set udg_reals01[5]=100.
set udg_reals01[6]=100.
set udg_reals01[7]=12.5
set udg_reals01[8]=90.
set udg_reals01[9]=59.
set udg_reals01[10]=49.5
set udg_reals01[11]=6.
set udg_reals01[12]=30.5
set udg_reals01[12]=30.5
set udg_reals02[1]=.0
set udg_reals02[2]=25.
set udg_reals02[3]=81.
set udg_reals02[4]=.0
set udg_reals02[5]=99.
set udg_reals02[6]=54.
set udg_reals02[7]=75.
set udg_reals02[8]=35.5
set udg_reals02[9]=59.
set udg_reals02[10]=75.
set udg_reals02[11]=38.5
set udg_reals02[12]=16.5
set udg_reals03[1]=.0
set udg_reals03[2]=100.
set udg_reals03[3]=72.5
set udg_reals03[4]=50.5
set udg_reals03[5]=.0
set udg_reals03[6]=5.5
set udg_reals03[7]=.0
set udg_reals03[8]=69.
set udg_reals03[9]=59.
set udg_reals03[10]=94.5
set udg_reals03[11]=27.5
set udg_reals03[12]=.0
endfunction
function Ga takes nothing returns nothing
call CreateMultiboardBJ(2,(CountPlayersInForceBJ(udg_force01)+(CountPlayersInForceBJ(udg_force02)+3)),"Players")
set udg_multiboard01=bj_lastCreatedMultiboard
call MultiboardSetItemWidthBJ(udg_multiboard01,1,0,10.)
call MultiboardMinimize(udg_multiboard01,true)
call MultiboardMinimize(udg_multiboard01,false)
call TriggerExecute(udg_trigger42)
endfunction
function Ha takes nothing returns nothing
call MultiboardSetItemValueBJ(udg_multiboard01,1,udg_integer01,SubStringBJ(GetPlayerName(GetEnumPlayer()),1,12))
call MultiboardSetItemIconBJ(udg_multiboard01,1,udg_integer01,"ReplaceableTextures\\CommandButtons\\BTNInfernal.blp")
call MultiboardSetItemColorBJ(udg_multiboard01,1,udg_integer01,udg_reals01[(1+GetPlayerId(GetEnumPlayer()))],udg_reals02[(1+GetPlayerId(GetEnumPlayer()))],udg_reals03[(1+GetPlayerId(GetEnumPlayer()))],0)
call MultiboardSetItemValueBJ(udg_multiboard01,2,udg_integer01,I2S(udg_integers03[(1+GetPlayerId(GetEnumPlayer()))]))
set udg_integer01=(udg_integer01+1)
endfunction
function ja takes nothing returns boolean
return(IsPlayerInForce(GetFilterPlayer(),udg_force01))
endfunction
function Ja takes nothing returns boolean
return(udg_integers05[(1+GetPlayerId(GetFilterPlayer()))]==2)
endfunction
function ka takes nothing returns boolean
return GetBooleanAnd(ja(),Ja())
endfunction
function Ka takes nothing returns nothing
call MultiboardSetItemValueBJ(udg_multiboard01,1,udg_integer01,SubStringBJ(GetPlayerName(GetEnumPlayer()),1,12))
call MultiboardSetItemIconBJ(udg_multiboard01,1,udg_integer01,"ReplaceableTextures\\CommandButtons\\BTNEnt.blp")
call MultiboardSetItemColorBJ(udg_multiboard01,1,udg_integer01,udg_reals01[(1+GetPlayerId(GetEnumPlayer()))],udg_reals02[(1+GetPlayerId(GetEnumPlayer()))],udg_reals03[(1+GetPlayerId(GetEnumPlayer()))],0)
call MultiboardSetItemValueBJ(udg_multiboard01,2,udg_integer01,I2S(udg_integers03[(1+GetPlayerId(GetEnumPlayer()))]))
set udg_integer01=(udg_integer01+1)
endfunction
function la takes nothing returns boolean
return(IsPlayerInForce(GetFilterPlayer(),udg_force01))
endfunction
function La takes nothing returns boolean
return(udg_integers05[(1+GetPlayerId(GetFilterPlayer()))]==1)
endfunction
function ma takes nothing returns boolean
return GetBooleanAnd(la(),La())
endfunction
function Ma takes nothing returns nothing
call MultiboardSetItemValueBJ(udg_multiboard01,1,udg_integer01,SubStringBJ(GetPlayerName(GetEnumPlayer()),1,12))
call MultiboardSetItemIconBJ(udg_multiboard01,1,udg_integer01,"ReplaceableTextures\\CommandButtons\\BTNCancel.blp")
call MultiboardSetItemColorBJ(udg_multiboard01,1,udg_integer01,udg_reals01[(1+GetPlayerId(GetEnumPlayer()))],udg_reals02[(1+GetPlayerId(GetEnumPlayer()))],udg_reals03[(1+GetPlayerId(GetEnumPlayer()))],0)
call MultiboardSetItemValueBJ(udg_multiboard01,2,udg_integer01,I2S(udg_integers03[(1+GetPlayerId(GetEnumPlayer()))]))
set udg_integer01=(udg_integer01+1)
endfunction
function pa takes nothing returns nothing
set udg_integer01=1
call MultiboardDisplay(udg_multiboard01,true)
call MultiboardSetItemStyleBJ(udg_multiboard01,1,0,true,true)
call MultiboardSetItemStyleBJ(udg_multiboard01,2,0,true,false)
call MultiboardSetItemValueBJ(udg_multiboard01,1,udg_integer01,"TRIGSTR_027")
call MultiboardSetItemColorBJ(udg_multiboard01,1,udg_integer01,'d',100.,100.,0)
call MultiboardSetItemValueBJ(udg_multiboard01,2,udg_integer01,"Kills")
call MultiboardSetItemStyleBJ(udg_multiboard01,1,udg_integer01,true,false)
set udg_integer01=(udg_integer01+1)
call ForForce(udg_force02,function Ha)
call MultiboardSetItemValueBJ(udg_multiboard01,1,udg_integer01,"TRIGSTR_029")
call MultiboardSetItemColorBJ(udg_multiboard01,1,udg_integer01,'d',100.,100.,0)
call MultiboardSetItemValueBJ(udg_multiboard01,2,udg_integer01,"Saves")
call MultiboardSetItemStyleBJ(udg_multiboard01,1,udg_integer01,true,false)
set udg_integer01=(udg_integer01+1)
call ForForce(Fe(Condition(function ka)),function Ka)
call MultiboardSetItemValueBJ(udg_multiboard01,1,udg_integer01,"Dead Ents")
call MultiboardSetItemColorBJ(udg_multiboard01,1,udg_integer01,'d',100.,100.,0)
call MultiboardSetItemValueBJ(udg_multiboard01,2,udg_integer01,"Saves")
call MultiboardSetItemStyleBJ(udg_multiboard01,1,udg_integer01,true,false)
set udg_integer01=(udg_integer01+1)
call ForForce(Fe(Condition(function ma)),function Ma)
endfunction
function qa takes nothing returns boolean
return(udg_boolean01==false)and(udg_boolean02==false)
endfunction
function Qa takes nothing returns boolean
return(udg_integers01[bj_forLoopAIndex]<1)
endfunction
function sa takes nothing returns boolean
return(udg_integers02[bj_forLoopAIndex]<2)
endfunction
function Sa takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(Qa())then
set udg_integers01[bj_forLoopAIndex]=1
endif
if(sa())then
set udg_integers02[bj_forLoopAIndex]=2
endif
call AdjustPlayerStateBJ(udg_integers01[bj_forLoopAIndex],Player(-1+(bj_forLoopAIndex)),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(udg_integers02[bj_forLoopAIndex],Player(-1+(bj_forLoopAIndex)),PLAYER_STATE_RESOURCE_LUMBER)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function Ta takes nothing returns boolean
return(GetUnitTypeId(GetConstructedStructure())=='eC09')
endfunction
function ua takes nothing returns nothing
set udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetConstructedStructure())))]=(udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetConstructedStructure())))]+1)
set udg_integers02[(1+GetPlayerId(GetOwningPlayer(GetConstructedStructure())))]=(udg_integers02[(1+GetPlayerId(GetOwningPlayer(GetConstructedStructure())))]+2)
endfunction
function wa takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='e003')
endfunction
function Wa takes nothing returns nothing
set udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+3)
set udg_integers02[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers02[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+1)
endfunction
function Ya takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='e005')
endfunction
function za takes nothing returns nothing
set udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+1)
set udg_integers02[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers02[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+2)
endfunction
function vn takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='eC09')
endfunction
function en takes nothing returns nothing
set udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=(udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]-1)
set udg_integers02[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=(udg_integers02[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]-2)
endfunction
function on takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='e003')
endfunction
function rn takes nothing returns nothing
set udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=(udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]-4)
set udg_integers02[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=(udg_integers02[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]-3)
endfunction
function an takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='e005')
endfunction
function nn takes nothing returns nothing
set udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=(udg_integers01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]-5)
set udg_integers02[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=(udg_integers02[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]-5)
endfunction
function main2 takes nothing returns nothing
local weathereffect we
local integer i
local player p
local unit u
local integer unitID
local trigger t
local real life
local integer Me
local integer pe
local version v
local integer he
call SetCameraBounds(-6016.+GetCameraMargin(CAMERA_MARGIN_LEFT),-5888.+GetCameraMargin(CAMERA_MARGIN_BOTTOM),7808.-GetCameraMargin(CAMERA_MARGIN_RIGHT),7040.-GetCameraMargin(CAMERA_MARGIN_TOP),-6016.+GetCameraMargin(CAMERA_MARGIN_LEFT),7040.-GetCameraMargin(CAMERA_MARGIN_TOP),7808.-GetCameraMargin(CAMERA_MARGIN_RIGHT),-5888.+GetCameraMargin(CAMERA_MARGIN_BOTTOM))
call SetDayNightModels("Environment\\DNC\\DNCLordaeron\\DNCLordaeronTerrain\\DNCLordaeronTerrain.mdl","Environment\\DNC\\DNCLordaeron\\DNCLordaeronUnit\\DNCLordaeronUnit.mdl")
call NewSoundEnvironment("Default")
call SetAmbientDaySound("NorthrendDay")
call SetAmbientNightSound("NorthrendNight")
call SetMapMusic("Music",true,0)
set udg_sound01=CreateSound("Sound\\Dialogue\\OrcCampaign\\Orc04Interlude\\O04Mannoroth38.mp3",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound01,"O04Mannoroth38")
call SetSoundDuration(udg_sound01,12617)
set udg_sound02=CreateSound("Sound\\Music\\mp3Music\\Credits.mp3",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound02,"CreditsMusic")
call SetSoundDuration(udg_sound02,83017)
set udg_sound03=CreateSound("Sound\\Interface\\CreepAggroWhat1.wav",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound03,"CreepAggro")
call SetSoundDuration(udg_sound03,1236)
set udg_rect01=Rect(-352.,-352.,320.,352.)
set p=Player(15)
set u=CreateUnit(p,'nC15',.0,3328.,270.)
set u=CreateUnit(p,'nC15',-3328.,.0,270.)
set u=CreateUnit(p,'nC16',3328.,.0,270.)
set u=CreateUnit(p,'nC16',.0,-3328.,270.)
set u=CreateUnit(p,'n002',1536.,-1024.,270.)
set p=Player(15)
set u=CreateUnit(p,'n001',-1731.1,4519.8,269.778)
set u=CreateUnit(p,'n001',-4132.9,2070.6,337.917)
set u=CreateUnit(p,'n001',-5060.9,-117.5,109.856)
set u=CreateUnit(p,'n001',-415.,-5313.7,108.021)
set u=CreateUnit(p,'n001',37.5,-2758.1,227.028)
set u=CreateUnit(p,'n001',1991.,-1778.,260.516)
set u=CreateUnit(p,'n001',1594.8,-3030.9,85.795)
set u=CreateUnit(p,'n001',4681.9,-1384.,182.983)
set u=CreateUnit(p,'n001',4382.3,1355.,115.371)
set u=CreateUnit(p,'n001',2082.,236.9,257.418)
set u=CreateUnit(p,'n001',2617.6,1638.4,285.642)
set u=CreateUnit(p,'n001',1809.8,4455.6,244.893)
set u=CreateUnit(p,'n001',1644.9,2441.7,223.974)
set u=CreateUnit(p,'n001',73.,3095.1,307.044)
set u=CreateUnit(p,'n001',-2053.1,5151.3,147.716)
set u=CreateUnit(p,'n001',-2270.4,29.1,270.525)
set u=CreateUnit(p,'nC37',-1718.8,1787.7,69.886)
set u=CreateUnit(p,'nC37',-1708.6,-1893.9,158.098)
set u=CreateUnit(p,'nC37',1086.9,-2653.4,220.359)
set u=CreateUnit(p,'nC37',2225.4,-950.3,21.94)
set u=CreateUnit(p,'nC37',1504.3,2051.8,102.626)
set u=CreateUnit(p,'nC37',1118.6,4714.8,241.388)
set u=CreateUnit(p,'nC37',-5054.3,3902.2,27.005)
set u=CreateUnit(p,'nC37',-5664.4,-546.3,108.296)
set u=CreateUnit(p,'nC37',-5564.1,-2949.8,276.359)
set u=CreateUnit(p,'nC37',-5101.9,-4491.,133.763)
set u=CreateUnit(p,'nC37',-2953.3,-5063.2,32.685)
set u=CreateUnit(p,'nC37',2234.,-5486.8,352.694)
set u=CreateUnit(p,'nC37',2065.3,-2993.4,250.034)
call ConfigureNeutralVictim()
set udg_boolexpr01=Filter(function Le)
set filterIssueHauntOrderAtLocBJ=Filter(function IssueHauntOrderAtLocBJFilter)
set filterEnumDestructablesInCircleBJ=Filter(function ae)
set filterGetUnitsInRectOfPlayer=Filter(function GetUnitsInRectOfPlayerFilter)
set filterGetUnitsOfTypeIdAll=Filter(function GetUnitsOfTypeIdAllFilter)
set filterGetUnitsOfPlayerAndTypeId=Filter(function GetUnitsOfPlayerAndTypeIdFilter)
set filterMeleeTrainedUnitIsHeroBJ=Filter(function MeleeTrainedUnitIsHeroBJFilter)
set filterLivingPlayerUnitsOfTypeId=Filter(function LivingPlayerUnitsOfTypeIdFilter)
set Me=0
loop
exitwhen Me==16
set bj_FORCE_PLAYER[Me]=CreateForce()
call ForceAddPlayer(bj_FORCE_PLAYER[Me],Player(Me))
set Me=Me+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 Me=0
loop
exitwhen Me>=bj_MAX_QUEUED_TRIGGERS
set bj_queuedExecTriggers[Me]=null
set bj_queuedExecUseConds[Me]=false
set Me=Me+1
endloop
set bj_isSinglePlayer=false
set pe=0
set Me=0
loop
exitwhen Me>=12
if(GetPlayerController(Player(Me))==MAP_CONTROL_USER and GetPlayerSlotState(Player(Me))==PLAYER_SLOT_STATE_PLAYING)then
set pe=pe+1
endif
set Me=Me+1
endloop
set bj_isSinglePlayer=(pe==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)
call DelayedSuspendDecayCreate()
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 InitRescuableBehaviorBJ()
call InitDNCSounds()
call InitMapRects()
call InitSummonableCaps()
set he=0
loop
set bj_stockAllowedPermanent[he]=false
set bj_stockAllowedCharged[he]=false
set bj_stockAllowedArtifact[he]=false
set he=he+1
exitwhen he>10
endloop
call SetAllItemTypeSlots(11)
call SetAllUnitTypeSlots(11)
set bj_stockUpdateTimer=CreateTimer()
call TimerStart(bj_stockUpdateTimer,bj_STOCK_RESTOCK_INITIAL_DELAY,false,function Ke)
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 udg_force01=CreateForce()
set udg_force02=CreateForce()
set udg_group01=CreateGroup()
set udg_timer01=CreateTimer()
set udg_group02=CreateGroup()
set udg_timer02=CreateTimer()
set i=0
loop
exitwhen(i>1)
set udg_integers01[i]=0
set udg_integers02[i]=0
set udg_integers04[i]=0
set udg_reals01[i]=0
set udg_reals02[i]=0
set udg_reals03[i]=0
set i=i+1
endloop
set udg_integer01=1
set i=0
loop
exitwhen(i>3)
set udg_forces01[i]=CreateForce()
set udg_booleans01[i]=false
set i=i+1
endloop
set i=0
loop
exitwhen(i>12)
set udg_integers03[i]=0
set udg_integers05[i]=0
set udg_strings01[i]=""
set i=i+1
endloop
set udg_group03=CreateGroup()
set udg_dialog01=DialogCreate()
set i=0
loop
exitwhen(i>9)
set udg_booleans02[i]=false
set i=i+1
endloop
set udg_dialog02=DialogCreate()
set udg_force03=bj_FORCE_PLAYER[0]
set udg_dialog03=DialogCreate()
set udg_trigger01=CreateTrigger()
call TriggerRegisterPlayerChatEvent(udg_trigger01,Player(0),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger01,Player(1),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger01,Player(2),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger01,Player(3),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger01,Player(4),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger01,Player(5),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger01,Player(6),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger01,Player(7),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger01,Player(8),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger01,Player(9),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger01,Player(10),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger01,Player(11),"-help",true)
call TriggerAddAction(udg_trigger01,function te)
set udg_trigger02=CreateTrigger()
call TriggerRegisterPlayerChatEvent(udg_trigger02,Player(0),"-set time",false)
call TriggerRegisterPlayerChatEvent(udg_trigger02,Player(1),"-set time",false)
call TriggerRegisterPlayerChatEvent(udg_trigger02,Player(2),"-set time",false)
call TriggerRegisterPlayerChatEvent(udg_trigger02,Player(3),"-set time",false)
call TriggerRegisterPlayerChatEvent(udg_trigger02,Player(4),"-set time",false)
call TriggerRegisterPlayerChatEvent(udg_trigger02,Player(5),"-set time",false)
call TriggerRegisterPlayerChatEvent(udg_trigger02,Player(6),"-set time",false)
call TriggerRegisterPlayerChatEvent(udg_trigger02,Player(7),"-set time",false)
call TriggerRegisterPlayerChatEvent(udg_trigger02,Player(8),"-set time",false)
call TriggerRegisterPlayerChatEvent(udg_trigger02,Player(9),"-set time",false)
call TriggerRegisterPlayerChatEvent(udg_trigger02,Player(10),"-set time",false)
call TriggerRegisterPlayerChatEvent(udg_trigger02,Player(11),"-set time",false)
call TriggerAddAction(udg_trigger02,function We)
set udg_trigger03=CreateTrigger()
call TriggerRegisterPlayerChatEvent(udg_trigger03,Player(0),"-gold",true)
call TriggerRegisterPlayerChatEvent(udg_trigger03,Player(1),"-gold",true)
call TriggerRegisterPlayerChatEvent(udg_trigger03,Player(2),"-gold",true)
call TriggerRegisterPlayerChatEvent(udg_trigger03,Player(3),"-gold",true)
call TriggerRegisterPlayerChatEvent(udg_trigger03,Player(4),"-gold",true)
call TriggerRegisterPlayerChatEvent(udg_trigger03,Player(5),"-gold",true)
call TriggerRegisterPlayerChatEvent(udg_trigger03,Player(6),"-gold",true)
call TriggerRegisterPlayerChatEvent(udg_trigger03,Player(7),"-gold",true)
call TriggerRegisterPlayerChatEvent(udg_trigger03,Player(8),"-gold",true)
call TriggerRegisterPlayerChatEvent(udg_trigger03,Player(9),"-gold",true)
call TriggerRegisterPlayerChatEvent(udg_trigger03,Player(10),"-gold",true)
call TriggerRegisterPlayerChatEvent(udg_trigger03,Player(11),"-gold",true)
call TriggerAddAction(udg_trigger03,function ze)
set udg_trigger04=CreateTrigger()
call TriggerRegisterPlayerChatEvent(udg_trigger04,Player(0),"-lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger04,Player(1),"-lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger04,Player(2),"-lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger04,Player(3),"-lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger04,Player(4),"-lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger04,Player(5),"-lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger04,Player(6),"-lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger04,Player(7),"-lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger04,Player(8),"-lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger04,Player(9),"-lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger04,Player(10),"-lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger04,Player(11),"-lumber",true)
call TriggerAddAction(udg_trigger04,function ex)
set udg_trigger05=CreateTrigger()
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(0),"-admin",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(1),"-admin",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(2),"-admin",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(3),"-admin",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(4),"-admin",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(5),"-admin",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(6),"-admin",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(7),"-admin",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(8),"-admin",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(9),"-admin",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(10),"-admin",true)
call TriggerRegisterPlayerChatEvent(udg_trigger05,Player(11),"-admin",true)
call TriggerAddAction(udg_trigger05,function rx)
set udg_trigger06=CreateTrigger()
call TriggerRegisterDialogEvent(udg_trigger06,udg_dialog03)
call TriggerAddAction(udg_trigger06,function Ux)
set udg_trigger07=CreateTrigger()
call TriggerRegisterPlayerChatEvent(udg_trigger07,Player(0),"-kick",true)
call TriggerRegisterPlayerChatEvent(udg_trigger07,Player(1),"-kick",true)
call TriggerRegisterPlayerChatEvent(udg_trigger07,Player(2),"-kick",true)
call TriggerRegisterPlayerChatEvent(udg_trigger07,Player(3),"-kick",true)
call TriggerRegisterPlayerChatEvent(udg_trigger07,Player(4),"-kick",true)
call TriggerRegisterPlayerChatEvent(udg_trigger07,Player(5),"-kick",true)
call TriggerRegisterPlayerChatEvent(udg_trigger07,Player(6),"-kick",true)
call TriggerRegisterPlayerChatEvent(udg_trigger07,Player(7),"-kick",true)
call TriggerRegisterPlayerChatEvent(udg_trigger07,Player(8),"-kick",true)
call TriggerRegisterPlayerChatEvent(udg_trigger07,Player(9),"-kick",true)
call TriggerRegisterPlayerChatEvent(udg_trigger07,Player(10),"-kick",true)
call TriggerRegisterPlayerChatEvent(udg_trigger07,Player(11),"-kick",true)
call TriggerAddAction(udg_trigger07,function yx)
set udg_trigger08=CreateTrigger()
call TriggerRegisterDialogEvent(udg_trigger08,udg_dialog02)
call TriggerAddAction(udg_trigger08,function go)
set udg_trigger09=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger09,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger09,Condition(function ho))
call TriggerAddAction(udg_trigger09,function Jo)
set udg_trigger10=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger10,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger10,Condition(function Ko))
call TriggerAddAction(udg_trigger10,function lo)
set udg_trigger11=CreateTrigger()
call TriggerRegisterLeaveRectSimple(udg_trigger11,udg_rect01)
call TriggerAddCondition(udg_trigger11,Condition(function mo))
call TriggerAddAction(udg_trigger11,function Mo)
set udg_trigger12=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger12,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger12,Condition(function qo))
call TriggerAddAction(udg_trigger12,function so)
set udg_trigger13=CreateTrigger()
call TriggerRegisterTimerEventPeriodic(udg_trigger13,240.)
call TriggerAddAction(udg_trigger13,function Uo)
set udg_trigger14=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger14,EVENT_PLAYER_UNIT_SPELL_CAST)
call TriggerAddCondition(udg_trigger14,Condition(function zo))
call TriggerAddAction(udg_trigger14,function Er)
set udg_trigger15=CreateTrigger()
call TriggerRegisterTimerEventPeriodic(udg_trigger15,.1)
call TriggerAddCondition(udg_trigger15,Condition(function Rr))
call TriggerAddAction(udg_trigger15,function Nr)
set udg_trigger16=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger16,EVENT_PLAYER_UNIT_SPELL_CAST)
call TriggerAddCondition(udg_trigger16,Condition(function Br))
call TriggerAddAction(udg_trigger16,function cr)
set udg_trigger17=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger17,EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER)
call TriggerAddCondition(udg_trigger17,Condition(function dr))
call TriggerAddAction(udg_trigger17,function Fr)
set udg_trigger18=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger18,EVENT_PLAYER_UNIT_SPELL_CAST)
call TriggerAddCondition(udg_trigger18,Condition(function Gr))
call TriggerAddAction(udg_trigger18,function hr)
set udg_trigger19=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger19,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger19,Condition(function Jr))
call TriggerAddAction(udg_trigger19,function Kr)
set udg_trigger20=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger20,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger20,Condition(function Lr))
call TriggerAddAction(udg_trigger20,function Mr)
set udg_trigger21=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger21,EVENT_PLAYER_UNIT_SPELL_CAST)
call TriggerAddCondition(udg_trigger21,Condition(function Pr))
call TriggerAddAction(udg_trigger21,function qr)
set udg_trigger22=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger22,EVENT_PLAYER_UNIT_SPELL_CAST)
call TriggerAddCondition(udg_trigger22,Condition(function sr))
call TriggerAddAction(udg_trigger22,function Sr)
set udg_trigger23=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger23,EVENT_PLAYER_UNIT_SPELL_FINISH)
call TriggerAddCondition(udg_trigger23,Condition(function Tr))
call TriggerAddAction(udg_trigger23,function Ur)
set udg_trigger24=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger24,EVENT_PLAYER_UNIT_USE_ITEM)
call TriggerAddCondition(udg_trigger24,Condition(function Wr))
call TriggerAddAction(udg_trigger24,function yr)
set udg_trigger25=CreateTrigger()
call TriggerAddAction(udg_trigger25,function ri)
set udg_trigger26=CreateTrigger()
call TriggerAddAction(udg_trigger26,function ai)
set udg_trigger27=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger27,EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER)
call TriggerRegisterAnyUnitEventBJ(udg_trigger27,EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER)
call TriggerRegisterAnyUnitEventBJ(udg_trigger27,EVENT_PLAYER_UNIT_ISSUED_ORDER)
call TriggerAddCondition(udg_trigger27,Condition(function Vi))
call TriggerAddAction(udg_trigger27,function Ii)
set udg_trigger28=CreateTrigger()
call TriggerRegisterPlayerChatEvent(udg_trigger28,Player(0),"-showcontrol",true)
call TriggerRegisterPlayerChatEvent(udg_trigger28,Player(1),"-showcontrol",true)
call TriggerRegisterPlayerChatEvent(udg_trigger28,Player(2),"-showcontrol",true)
call TriggerRegisterPlayerChatEvent(udg_trigger28,Player(3),"-showcontrol",true)
call TriggerRegisterPlayerChatEvent(udg_trigger28,Player(4),"-showcontrol",true)
call TriggerRegisterPlayerChatEvent(udg_trigger28,Player(5),"-showcontrol",true)
call TriggerRegisterPlayerChatEvent(udg_trigger28,Player(6),"-showcontrol",true)
call TriggerRegisterPlayerChatEvent(udg_trigger28,Player(7),"-showcontrol",true)
call TriggerRegisterPlayerChatEvent(udg_trigger28,Player(8),"-showcontrol",true)
call TriggerAddAction(udg_trigger28,function bi)
set udg_trigger29=CreateTrigger()
call TriggerRegisterDialogEvent(udg_trigger29,udg_dialog01)
call TriggerAddAction(udg_trigger29,function Di)
set udg_trigger30=CreateTrigger()
call TriggerRegisterTimerExpireEvent(udg_trigger30,udg_timer01)
call TriggerAddAction(udg_trigger30,function li)
set udg_trigger31=CreateTrigger()
call TriggerRegisterPlayerEventLeave(udg_trigger31,Player(0))
call TriggerRegisterPlayerEventLeave(udg_trigger31,Player(1))
call TriggerRegisterPlayerEventLeave(udg_trigger31,Player(2))
call TriggerRegisterPlayerEventLeave(udg_trigger31,Player(3))
call TriggerRegisterPlayerEventLeave(udg_trigger31,Player(4))
call TriggerRegisterPlayerEventLeave(udg_trigger31,Player(5))
call TriggerRegisterPlayerEventLeave(udg_trigger31,Player(6))
call TriggerRegisterPlayerEventLeave(udg_trigger31,Player(7))
call TriggerRegisterPlayerEventLeave(udg_trigger31,Player(8))
call TriggerRegisterPlayerEventLeave(udg_trigger31,Player(9))
call TriggerRegisterPlayerEventLeave(udg_trigger31,Player(10))
call TriggerRegisterPlayerEventLeave(udg_trigger31,Player(11))
call TriggerAddCondition(udg_trigger31,Condition(function mi))
call TriggerAddAction(udg_trigger31,function Mi)
set udg_trigger32=CreateTrigger()
call TriggerRegisterTimerExpireEvent(udg_trigger32,udg_timer02)
call TriggerAddCondition(udg_trigger32,Condition(function Pi))
call TriggerAddAction(udg_trigger32,function qi)
set udg_trigger33=CreateTrigger()
call DisableTrigger(udg_trigger33)
call TriggerRegisterTimerEventPeriodic(udg_trigger33,2)
call TriggerAddCondition(udg_trigger33,Condition(function ui))
call TriggerAddAction(udg_trigger33,function Yi)
set udg_trigger34=CreateTrigger()
call DisableTrigger(udg_trigger34)
call TriggerRegisterTimerEventPeriodic(udg_trigger34,2)
call TriggerAddCondition(udg_trigger34,Condition(function xa))
call TriggerAddAction(udg_trigger34,function na)
set udg_trigger35=CreateTrigger()
call TriggerRegisterTimerEventSingle(udg_trigger35,(42.*60.))
call TriggerAddAction(udg_trigger35,function Xa)
set udg_trigger36=CreateTrigger()
call TriggerRegisterTimerEventSingle(udg_trigger36,(43.5*60.))
call TriggerAddAction(udg_trigger36,function Ia)
set udg_trigger37=CreateTrigger()
call TriggerRegisterTimerEventSingle(udg_trigger37,15.)
call TriggerAddAction(udg_trigger37,function Na)
set udg_trigger38=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger38,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger38,Condition(function Ba))
call TriggerAddAction(udg_trigger38,function Ca)
set udg_trigger39=CreateTrigger()
call TriggerAddAction(udg_trigger39,function Da)
set udg_trigger40=CreateTrigger()
call TriggerAddAction(udg_trigger40,function Fa)
set udg_trigger41=CreateTrigger()
call TriggerAddAction(udg_trigger41,function Ga)
set udg_trigger42=CreateTrigger()
call TriggerAddAction(udg_trigger42,function pa)
set udg_trigger43=CreateTrigger()
call TriggerRegisterTimerEventPeriodic(udg_trigger43,5.)
call TriggerAddCondition(udg_trigger43,Condition(function qa))
call TriggerAddAction(udg_trigger43,function Sa)
set udg_trigger44=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger44,EVENT_PLAYER_UNIT_CONSTRUCT_FINISH)
call TriggerAddCondition(udg_trigger44,Condition(function Ta))
call TriggerAddAction(udg_trigger44,function ua)
set udg_trigger45=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger45,EVENT_PLAYER_UNIT_UPGRADE_FINISH)
call TriggerAddCondition(udg_trigger45,Condition(function wa))
call TriggerAddAction(udg_trigger45,function Wa)
set udg_trigger46=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger46,EVENT_PLAYER_UNIT_UPGRADE_FINISH)
call TriggerAddCondition(udg_trigger46,Condition(function Ya))
call TriggerAddAction(udg_trigger46,function za)
set udg_trigger47=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger47,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger47,Condition(function vn))
call TriggerAddAction(udg_trigger47,function en)
set udg_trigger48=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger48,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger48,Condition(function on))
call TriggerAddAction(udg_trigger48,function rn)
set udg_trigger49=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(udg_trigger49,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger49,Condition(function an))
call TriggerAddAction(udg_trigger49,function nn)
call ConditionalTriggerExecute(udg_trigger25)
call ConditionalTriggerExecute(udg_trigger26)
call ConditionalTriggerExecute(udg_trigger39)
call ConditionalTriggerExecute(udg_trigger40)
endfunction
function InitTrig_init takes nothing returns nothing
call ExecuteFunc("main2")
endfunction