// 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 |
booleans01 | boolean | Yes | |
booleans02 | boolean | Yes | |
booleans03 | boolean | Yes | |
booleans04 | boolean | Yes | |
booleans05 | boolean | Yes | |
booleans06 | boolean | Yes | |
booleans07 | boolean | Yes | |
buttons01 | button | Yes | |
buttons02 | button | Yes | |
buttons03 | button | Yes | |
buttons04 | button | Yes | |
buttons05 | button | Yes | |
buttons06 | button | Yes | |
buttons07 | button | Yes | |
buttons08 | button | Yes | |
buttons09 | button | Yes | |
camerasetup01 | camerasetup | No | |
camerasetup02 | camerasetup | No | |
dialog01 | dialog | No | |
dialog02 | dialog | No | |
dialog03 | dialog | No | |
dialog04 | dialog | No | |
dialog05 | dialog | No | |
dialog06 | dialog | No | |
dialogs01 | dialog | Yes | |
dialogs02 | dialog | Yes | |
dialogs03 | dialog | Yes | |
effect01 | effect | No | |
effects01 | effect | Yes | |
force01 | force | No | |
force02 | force | No | |
force03 | force | No | |
group01 | group | No | |
group02 | group | No | |
group03 | group | No | |
group04 | group | No | |
groups01 | group | Yes | |
groups02 | group | Yes | |
groups03 | group | Yes | |
handle01 | handle | No | |
integer01 | integer | No | |
integer02 | integer | No | |
integer03 | integer | No | |
integer04 | integer | No | |
integers01 | integer | Yes | |
integers02 | integer | Yes | |
integers03 | integer | Yes | |
integers04 | integer | Yes | |
integers05 | integer | Yes | |
integers06 | integer | Yes | |
integers07 | integer | Yes | |
integers08 | integer | Yes | |
integers09 | integer | Yes | |
items01 | item | Yes | |
location01 | location | No | |
location02 | location | No | |
locations01 | location | Yes | |
locations02 | location | Yes | |
multiboard01 | multiboard | No | |
multiboard02 | multiboard | No | |
multiboard03 | multiboard | No | |
player01 | player | No | |
player02 | player | No | |
player03 | player | No | |
player04 | player | No | |
players01 | player | Yes | |
reals01 | real | Yes | |
rect01 | rect | No | |
rect02 | rect | No | |
rect03 | rect | No | |
rect04 | rect | No | |
rect05 | rect | No | |
rect06 | rect | No | |
rect07 | rect | No | |
rect08 | rect | No | |
rect09 | rect | No | |
rect10 | rect | No | |
rect11 | rect | No | |
rect12 | rect | No | |
rect13 | rect | No | |
rect14 | rect | No | |
rect15 | rect | No | |
rect16 | rect | No | |
rect17 | rect | No | |
rect18 | rect | No | |
rect19 | rect | No | |
rect20 | rect | No | |
sound01 | sound | No | |
sound02 | sound | No | |
sound03 | sound | No | |
sound04 | sound | No | |
sound05 | sound | No | |
sound06 | sound | No | |
sound07 | sound | No | |
sound08 | sound | No | |
sound09 | sound | No | |
sound10 | sound | No | |
sound11 | sound | No | |
sound12 | sound | No | |
sound13 | sound | No | |
sound14 | sound | No | |
sound15 | sound | No | |
sound16 | sound | No | |
sound17 | sound | No | |
sound18 | sound | No | |
sound19 | sound | No | |
sound20 | sound | No | |
strings01 | string | Yes | |
strings02 | string | Yes | |
strings03 | string | Yes | |
strings04 | string | Yes | |
timer01 | timer | No | |
timer02 | timer | No | |
timer03 | timer | No | |
timer04 | timer | No | |
timer05 | timer | No | |
timerdialog01 | timerdialog | No | |
timerdialog02 | timerdialog | No | |
timerdialog03 | timerdialog | No | |
trigger01 | trigger | No | |
trigger02 | trigger | No | |
trigger03 | trigger | No | |
trigger04 | trigger | No | |
trigger05 | trigger | No | |
trigger06 | trigger | No | |
trigger07 | trigger | No | |
trigger08 | trigger | No | |
trigger09 | trigger | No | |
trigger10 | trigger | No | |
trigger100 | trigger | No | |
trigger101 | trigger | No | |
trigger102 | trigger | No | |
trigger103 | trigger | No | |
trigger104 | trigger | No | |
trigger105 | trigger | No | |
trigger106 | trigger | No | |
trigger107 | trigger | No | |
trigger108 | trigger | No | |
trigger109 | trigger | No | |
trigger11 | trigger | No | |
trigger110 | trigger | No | |
trigger111 | trigger | No | |
trigger112 | trigger | No | |
trigger113 | trigger | No | |
trigger114 | trigger | No | |
trigger115 | trigger | No | |
trigger116 | trigger | No | |
trigger117 | trigger | No | |
trigger118 | trigger | No | |
trigger119 | trigger | No | |
trigger12 | trigger | No | |
trigger120 | trigger | No | |
trigger121 | trigger | No | |
trigger122 | trigger | No | |
trigger123 | trigger | No | |
trigger124 | trigger | No | |
trigger125 | trigger | No | |
trigger126 | trigger | No | |
trigger127 | trigger | No | |
trigger128 | trigger | No | |
trigger129 | trigger | No | |
trigger13 | trigger | No | |
trigger130 | trigger | No | |
trigger131 | trigger | No | |
trigger132 | trigger | No | |
trigger133 | trigger | No | |
trigger134 | trigger | No | |
trigger135 | trigger | No | |
trigger136 | trigger | No | |
trigger137 | trigger | No | |
trigger138 | trigger | No | |
trigger139 | trigger | No | |
trigger14 | trigger | No | |
trigger140 | trigger | No | |
trigger141 | trigger | No | |
trigger142 | trigger | No | |
trigger143 | trigger | No | |
trigger144 | trigger | No | |
trigger145 | trigger | No | |
trigger146 | trigger | No | |
trigger147 | trigger | No | |
trigger148 | trigger | No | |
trigger149 | trigger | No | |
trigger15 | trigger | No | |
trigger150 | trigger | No | |
trigger151 | trigger | No | |
trigger152 | trigger | No | |
trigger153 | trigger | No | |
trigger154 | trigger | No | |
trigger155 | trigger | No | |
trigger156 | trigger | No | |
trigger157 | trigger | No | |
trigger158 | trigger | No | |
trigger159 | trigger | No | |
trigger16 | trigger | No | |
trigger160 | trigger | No | |
trigger161 | trigger | No | |
trigger162 | trigger | No | |
trigger163 | trigger | No | |
trigger164 | trigger | No | |
trigger165 | trigger | No | |
trigger166 | trigger | No | |
trigger167 | trigger | No | |
trigger168 | trigger | No | |
trigger169 | trigger | No | |
trigger17 | trigger | No | |
trigger170 | trigger | No | |
trigger171 | trigger | No | |
trigger172 | trigger | No | |
trigger173 | trigger | No | |
trigger174 | trigger | No | |
trigger175 | trigger | No | |
trigger176 | trigger | No | |
trigger177 | trigger | No | |
trigger178 | trigger | No | |
trigger179 | trigger | No | |
trigger18 | trigger | No | |
trigger180 | trigger | No | |
trigger181 | trigger | No | |
trigger182 | trigger | No | |
trigger183 | trigger | No | |
trigger184 | trigger | No | |
trigger185 | trigger | No | |
trigger186 | trigger | No | |
trigger187 | trigger | No | |
trigger188 | trigger | No | |
trigger189 | trigger | No | |
trigger19 | trigger | No | |
trigger190 | trigger | No | |
trigger191 | trigger | No | |
trigger192 | trigger | No | |
trigger193 | trigger | No | |
trigger194 | trigger | No | |
trigger195 | trigger | No | |
trigger196 | trigger | No | |
trigger197 | trigger | No | |
trigger198 | trigger | No | |
trigger199 | trigger | No | |
trigger20 | trigger | No | |
trigger200 | trigger | No | |
trigger201 | trigger | No | |
trigger202 | trigger | No | |
trigger203 | trigger | No | |
trigger204 | trigger | No | |
trigger205 | trigger | No | |
trigger206 | trigger | No | |
trigger207 | trigger | No | |
trigger208 | trigger | No | |
trigger209 | trigger | No | |
trigger21 | trigger | No | |
trigger210 | trigger | No | |
trigger211 | trigger | No | |
trigger212 | trigger | No | |
trigger213 | trigger | No | |
trigger214 | trigger | No | |
trigger215 | trigger | No | |
trigger216 | trigger | No | |
trigger217 | trigger | No | |
trigger218 | trigger | No | |
trigger219 | trigger | No | |
trigger22 | trigger | No | |
trigger220 | trigger | No | |
trigger221 | trigger | No | |
trigger222 | trigger | No | |
trigger223 | trigger | No | |
trigger224 | trigger | No | |
trigger225 | trigger | No | |
trigger226 | trigger | No | |
trigger227 | trigger | No | |
trigger228 | trigger | No | |
trigger229 | trigger | No | |
trigger23 | trigger | No | |
trigger230 | trigger | No | |
trigger231 | trigger | No | |
trigger232 | trigger | No | |
trigger233 | trigger | No | |
trigger234 | trigger | No | |
trigger235 | trigger | No | |
trigger236 | trigger | No | |
trigger237 | trigger | No | |
trigger238 | trigger | No | |
trigger239 | trigger | No | |
trigger24 | trigger | No | |
trigger240 | trigger | No | |
trigger241 | trigger | No | |
trigger242 | trigger | No | |
trigger243 | trigger | No | |
trigger244 | trigger | No | |
trigger245 | trigger | No | |
trigger246 | trigger | No | |
trigger247 | trigger | No | |
trigger248 | trigger | No | |
trigger249 | trigger | No | |
trigger25 | trigger | No | |
trigger250 | trigger | No | |
trigger251 | trigger | No | |
trigger252 | trigger | No | |
trigger253 | trigger | No | |
trigger254 | trigger | No | |
trigger255 | trigger | No | |
trigger256 | trigger | No | |
trigger257 | trigger | No | |
trigger258 | trigger | No | |
trigger259 | trigger | No | |
trigger26 | trigger | No | |
trigger260 | trigger | No | |
trigger261 | trigger | No | |
trigger262 | trigger | No | |
trigger263 | trigger | No | |
trigger264 | trigger | No | |
trigger265 | trigger | No | |
trigger266 | trigger | No | |
trigger267 | trigger | No | |
trigger268 | trigger | No | |
trigger269 | trigger | No | |
trigger27 | trigger | No | |
trigger270 | trigger | No | |
trigger271 | trigger | No | |
trigger272 | trigger | No | |
trigger273 | trigger | No | |
trigger274 | trigger | No | |
trigger275 | trigger | No | |
trigger276 | trigger | No | |
trigger277 | trigger | No | |
trigger278 | trigger | No | |
trigger279 | trigger | No | |
trigger28 | trigger | No | |
trigger29 | trigger | No | |
trigger30 | trigger | No | |
trigger31 | trigger | No | |
trigger32 | trigger | No | |
trigger33 | trigger | No | |
trigger34 | trigger | No | |
trigger35 | trigger | No | |
trigger36 | trigger | No | |
trigger37 | trigger | No | |
trigger38 | trigger | No | |
trigger39 | trigger | No | |
trigger40 | trigger | No | |
trigger41 | trigger | No | |
trigger42 | trigger | No | |
trigger43 | trigger | No | |
trigger44 | trigger | No | |
trigger45 | trigger | No | |
trigger46 | trigger | No | |
trigger47 | trigger | No | |
trigger48 | trigger | No | |
trigger49 | trigger | No | |
trigger50 | trigger | No | |
trigger51 | trigger | No | |
trigger52 | trigger | No | |
trigger53 | trigger | No | |
trigger54 | trigger | No | |
trigger55 | trigger | No | |
trigger56 | trigger | No | |
trigger57 | trigger | No | |
trigger58 | trigger | No | |
trigger59 | trigger | No | |
trigger60 | trigger | No | |
trigger61 | trigger | No | |
trigger62 | trigger | No | |
trigger63 | trigger | No | |
trigger64 | trigger | No | |
trigger65 | trigger | No | |
trigger66 | trigger | No | |
trigger67 | trigger | No | |
trigger68 | trigger | No | |
trigger69 | trigger | No | |
trigger70 | trigger | No | |
trigger71 | trigger | No | |
trigger72 | trigger | No | |
trigger73 | trigger | No | |
trigger74 | trigger | No | |
trigger75 | trigger | No | |
trigger76 | trigger | No | |
trigger77 | trigger | No | |
trigger78 | trigger | No | |
trigger79 | trigger | No | |
trigger80 | trigger | No | |
trigger81 | trigger | No | |
trigger82 | trigger | No | |
trigger83 | trigger | No | |
trigger84 | trigger | No | |
trigger85 | trigger | No | |
trigger86 | trigger | No | |
trigger87 | trigger | No | |
trigger88 | trigger | No | |
trigger89 | trigger | No | |
trigger90 | trigger | No | |
trigger91 | trigger | No | |
trigger92 | trigger | No | |
trigger93 | trigger | No | |
trigger94 | trigger | No | |
trigger95 | trigger | No | |
trigger96 | trigger | No | |
trigger97 | trigger | No | |
trigger98 | trigger | No | |
trigger99 | trigger | No | |
unit01 | unit | No | |
unit02 | unit | No | |
unit03 | unit | No | |
unit04 | unit | No | |
units01 | unit | Yes | |
units02 | unit | Yes | |
units03 | unit | Yes | |
units04 | unit | Yes | |
units05 | unit | Yes | |
vamprez | integer | No | 3 |
function C5 takes real C6 returns nothing
local real C7
local real st=TimerGetElapsed(udg_timer05)
if st<=0 then
set udg_timer05=CreateTimer()
call TimerStart(udg_timer05,0xF4240,false,null)
endif
if(C6>0)then
loop
set C7=C6-TimerGetElapsed(udg_timer05)+st
exitwhen C7<=0
if(C7>bj_POLLED_WAIT_SKIP_THRESHOLD)then
call TriggerSleepAction(.1*C7)
else
call TriggerSleepAction(bj_POLLED_WAIT_INTERVAL)
endif
endloop
endif
endfunction
function C8 takes trigger C9,rect r returns event
local region da=CreateRegion()
call RegionAddRect(da,r)
set udg_handle01=TriggerRegisterEnterRegion(C9,da,null)
set da=null
return udg_handle01
endfunction
function dA takes unit db,integer dB returns integer
local integer dc
local item dC
set dc=0
loop
set dC=UnitItemInSlot(db,dc)
if(dC!=null)and(GetItemTypeId(dC)==dB)then
set dC=null
return dc+1
endif
set dc=dc+1
exitwhen dc>=6
endloop
set dC=null
return 0
endfunction
function dd takes unit db,integer dB returns item
local integer dc=dA(db,dB)
if(dc==0)then
return null
else
return UnitItemInSlot(db,dc-1)
endif
endfunction
function dD takes unit db,integer dB returns boolean
return dA(db,dB)>0
endfunction
function de takes location dE,real df,real dF returns location
local real x=dF*bj_DEGTORAD
return Location(GetLocationX(dE)+df*Cos(x),GetLocationY(dE)+df*Sin(x))
endfunction
function dg takes nothing returns nothing
local unit dG=GetEnumUnit()
if(GetUnitState(dG,UNIT_STATE_LIFE)<=0)then
call SetUnitTimeScale(dG,.0001)
endif
set dG=null
endfunction
function dh takes nothing returns nothing
local unit dG=GetEnumUnit()
if(GetUnitState(dG,UNIT_STATE_LIFE)<=0)then
call UnitSuspendDecay(dG,true)
call SetUnitTimeScale(dG,.0001)
endif
set dG=null
endfunction
function dH takes nothing returns nothing
local unit dG=GetEnumUnit()
if(GetUnitState(dG,UNIT_STATE_LIFE)<=0)then
call UnitSuspendDecay(dG,true)
call SetUnitTimeScale(dG,10.)
call SetUnitAnimation(dG,"decay flesh")
endif
set dG=null
endfunction
function di takes nothing returns nothing
local group dI
local group dj
set dI=bj_suspendDecayBoneGroup
set dj=bj_suspendDecayFleshGroup
set bj_suspendDecayBoneGroup=CreateGroup()
set bj_suspendDecayFleshGroup=CreateGroup()
call ForGroup(dj,function dg)
call ForGroup(dI,function dg)
call TriggerSleepAction(8.)
call ForGroup(dj,function dH)
call ForGroup(dI,function dh)
call TriggerSleepAction(.05)
call ForGroup(dj,function dg)
call DestroyGroup(dI)
call DestroyGroup(dj)
set dI=null
set dj=null
endfunction
function dl takes nothing returns boolean
local location dL=GetDestructableLoc(GetFilterDestructable())
local boolean dm
set dm=(DistanceBetweenPoints(dL,bj_enumDestructableCenter)<=bj_enumDestructableRadius)
call RemoveLocation(dL)
set dL=null
return dm
endfunction
function du takes rect r,boolexpr dU returns group
local group g=CreateGroup()
call GroupEnumUnitsInRect(g,r,dU)
call DestroyBoolExpr(dU)
set udg_handle01=g
set g=null
return udg_handle01
endfunction
function dv takes rect r returns group
return du(r,null)
endfunction
function dV takes real dw,location dW,boolexpr dU returns group
local group g=CreateGroup()
call GroupEnumUnitsInRangeOfLoc(g,dW,dw,dU)
call DestroyBoolExpr(dU)
set udg_handle01=g
set g=null
return udg_handle01
endfunction
function dx takes real dw,location dW returns group
return dV(dw,dW,null)
endfunction
function dX takes integer dy returns group
local group g=CreateGroup()
call GroupEnumUnitsOfType(g,UnitId2String(dy),null)
set udg_handle01=g
set g=null
return udg_handle01
endfunction
function dY takes player dK,boolexpr dU returns group
local group g=CreateGroup()
call GroupEnumUnitsOfPlayer(g,dK,dU)
call DestroyBoolExpr(dU)
set udg_handle01=g
set g=null
return udg_handle01
endfunction
function dz takes player dK returns group
return dY(dK,null)
endfunction
function dZ takes player dK,integer dy returns group
local group g=CreateGroup()
set bj_groupEnumTypeId=dy
call GroupEnumUnitsOfPlayer(g,dK,filterGetUnitsOfPlayerAndTypeId)
set udg_handle01=g
set g=null
return udg_handle01
endfunction
function d0 takes player dK returns force
local force f=CreateForce()
call ForceAddPlayer(f,dK)
set udg_handle01=f
set f=null
return udg_handle01
endfunction
function d1 takes integer d2,group d3 returns group
set bj_randomSubGroupGroup=CreateGroup()
set bj_randomSubGroupWant=d2
set bj_randomSubGroupTotal=CountUnitsInGroup(d3)
if(bj_randomSubGroupWant<=0 or bj_randomSubGroupTotal<=0)then
return bj_randomSubGroupGroup
endif
set bj_randomSubGroupChance=I2R(bj_randomSubGroupWant)/I2R(bj_randomSubGroupTotal)
call ForGroup(d3,function GetRandomSubGroupEnum)
return bj_randomSubGroupGroup
endfunction
function d4 takes nothing returns boolean
local unit d5=GetFilterUnit()
local boolean b=((GetWidgetLife(d5)>0)and(GetUnitTypeId(d5)==bj_livingPlayerUnitsTypeId))
if(b)then
set bj_groupCountUnits=bj_groupCountUnits+1
endif
set d5=null
return b
endfunction
function d6 takes integer d7,player dK returns integer
local group g=CreateGroup()
set bj_livingPlayerUnitsTypeId=d7
set bj_groupCountUnits=0
call GroupEnumUnitsOfPlayer(g,dK,filterLivingPlayerUnitsOfTypeId)
call DestroyGroup(g)
set g=null
return bj_groupCountUnits
endfunction
function Dd takes multiboard mb,integer DD,integer De,boolean DE,boolean Df returns nothing
local integer DF=0
local integer Dg=0
local integer DG=MultiboardGetRowCount(mb)
local integer Dh=MultiboardGetColumnCount(mb)
local multiboarditem DH=null
loop
set DF=DF+1
exitwhen DF>DG
if(De==0 or De==DF)then
set Dg=0
loop
set Dg=Dg+1
exitwhen Dg>Dh
if(DD==0 or DD==Dg)then
set DH=MultiboardGetItem(mb,DF-1,Dg-1)
call MultiboardSetItemStyle(DH,DE,Df)
call MultiboardReleaseItem(DH)
endif
endloop
endif
endloop
set DH=null
endfunction
function Di takes multiboard mb,integer DD,integer De,string DI returns nothing
local integer DF=0
local integer Dg=0
local integer DG=MultiboardGetRowCount(mb)
local integer Dh=MultiboardGetColumnCount(mb)
local multiboarditem DH=null
loop
set DF=DF+1
exitwhen DF>DG
if(De==0 or De==DF)then
set Dg=0
loop
set Dg=Dg+1
exitwhen Dg>Dh
if(DD==0 or DD==Dg)then
set DH=MultiboardGetItem(mb,DF-1,Dg-1)
call MultiboardSetItemValue(DH,DI)
call MultiboardReleaseItem(DH)
endif
endloop
endif
endloop
set DH=null
endfunction
function Dj takes multiboard mb,integer DD,integer De,real DJ returns nothing
local integer DF=0
local integer Dg=0
local integer DG=MultiboardGetRowCount(mb)
local integer Dh=MultiboardGetColumnCount(mb)
local multiboarditem DH=null
loop
set DF=DF+1
exitwhen DF>DG
if(De==0 or De==DF)then
set Dg=0
loop
set Dg=Dg+1
exitwhen Dg>Dh
if(DD==0 or DD==Dg)then
set DH=MultiboardGetItem(mb,DF-1,Dg-1)
call MultiboardSetItemWidth(DH,DJ/100.)
call MultiboardReleaseItem(DH)
endif
endloop
endif
endloop
set DH=null
endfunction
function Dk takes multiboard mb,integer DD,integer De,string DK returns nothing
local integer DF=0
local integer Dg=0
local integer DG=MultiboardGetRowCount(mb)
local integer Dh=MultiboardGetColumnCount(mb)
local multiboarditem DH=null
loop
set DF=DF+1
exitwhen DF>DG
if(De==0 or De==DF)then
set Dg=0
loop
set Dg=Dg+1
exitwhen Dg>Dh
if(DD==0 or DD==Dg)then
set DH=MultiboardGetItem(mb,DF-1,Dg-1)
call MultiboardSetItemIcon(DH,DK)
call MultiboardReleaseItem(DH)
endif
endloop
endif
endloop
set DH=null
endfunction
function Dl takes nothing returns nothing
local unit DL=GetTriggerUnit()
if IsUnitType(DL,UNIT_TYPE_STRUCTURE)then
call RescueUnitBJ(DL,GetOwningPlayer(GetRescuer()),bj_rescueChangeColorBldg)
else
call RescueUnitBJ(DL,GetOwningPlayer(GetRescuer()),bj_rescueChangeColorUnit)
endif
set DL=null
endfunction
function Dm takes nothing returns nothing
local integer dc
if(bj_rescueUnitBehavior==null)then
set bj_rescueUnitBehavior=CreateTrigger()
set dc=0
loop
call TriggerRegisterPlayerUnitEvent(bj_rescueUnitBehavior,Player(dc),EVENT_PLAYER_UNIT_RESCUED,null)
set dc=dc+1
exitwhen dc==16
endloop
call TriggerAddAction(bj_rescueUnitBehavior,function Dl)
endif
endfunction
function Dn takes nothing returns nothing
local integer dc
set dc=0
loop
if(GetPlayerController(Player(dc))==MAP_CONTROL_RESCUABLE)then
call Dm()
return
endif
set dc=dc+1
exitwhen dc==12
endloop
endfunction
function DQ takes itemtype Dr,integer DR returns nothing
local group g
set bj_stockPickedItemType=Dr
set bj_stockPickedItemLevel=DR
set g=CreateGroup()
call GroupEnumUnitsOfType(g,"marketplace",null)
call ForGroup(g,function UpdateEachStockBuildingEnum)
call DestroyGroup(g)
set g=null
endfunction
function Ds takes nothing returns nothing
local integer pickedItemId
local itemtype DS
local integer Dt=0
local integer DT=0
local integer DR
set DR=1
loop
if(bj_stockAllowedPermanent[DR])then
set DT=DT+1
if(GetRandomInt(1,DT)==1)then
set DS=ITEM_TYPE_PERMANENT
set Dt=DR
endif
endif
if(bj_stockAllowedCharged[DR])then
set DT=DT+1
if(GetRandomInt(1,DT)==1)then
set DS=ITEM_TYPE_CHARGED
set Dt=DR
endif
endif
if(bj_stockAllowedArtifact[DR])then
set DT=DT+1
if(GetRandomInt(1,DT)==1)then
set DS=ITEM_TYPE_ARTIFACT
set Dt=DR
endif
endif
set DR=DR+1
exitwhen DR>10
endloop
if(DT==0)then
set DS=null
return
endif
call DQ(DS,Dt)
set DS=null
endfunction
function Du takes nothing returns nothing
call Ds()
call TimerStart(bj_stockUpdateTimer,bj_STOCK_RESTOCK_INTERVAL,true,function Ds)
endfunction
function DU takes unit Dv,integer DV returns item
local item Dw
if(DV==-1)then
return null
endif
set Dw=CreateItem(DV,GetUnitX(Dv)+GetRandomReal(-32,32),GetUnitY(Dv)+GetRandomReal(-32,32))
call SetItemDropID(Dw,GetUnitTypeId(Dv))
call UpdateStockAvailability(Dw)
set udg_handle01=Dw
set Dw=null
return udg_handle01
endfunction
function ItemTable000000_DropItems takes nothing returns nothing
local widget DW=null
local unit Dx=null
local integer DX=0
local boolean Dy=true
set DW=bj_lastDyingWidget
if(DW==null)then
set Dx=GetTriggerUnit()
endif
if(Dx!=null)then
set Dy=not IsUnitHidden(Dx)
if(Dy and GetChangingUnit()!=null)then
set Dy=(GetChangingUnitPrevOwner()==Player(12))
endif
endif
if(Dy)then
call RandomDistReset()
call RandomDistAddItem('pghe',34)
call RandomDistAddItem('pgma',33)
call RandomDistAddItem('whwd',33)
set DX=RandomDistChoose()
if(Dx!=null)then
call DU(Dx,DX)
else
call WidgetDropItem(DW,DX)
endif
endif
set bj_lastDyingWidget=null
call DestroyTrigger(GetTriggeringTrigger())
endfunction
function ItemTable000001_DropItems takes nothing returns nothing
local widget DW=null
local unit Dx=null
local integer DX=0
local boolean Dy=true
set DW=bj_lastDyingWidget
if(DW==null)then
set Dx=GetTriggerUnit()
endif
if(Dx!=null)then
set Dy=not IsUnitHidden(Dx)
if(Dy and GetChangingUnit()!=null)then
set Dy=(GetChangingUnitPrevOwner()==Player(12))
endif
endif
if(Dy)then
call RandomDistReset()
call RandomDistAddItem('ches','d')
set DX=RandomDistChoose()
if(Dx!=null)then
call DU(Dx,DX)
else
call WidgetDropItem(DW,DX)
endif
call RandomDistReset()
call RandomDistAddItem('rde4','d')
set DX=RandomDistChoose()
if(Dx!=null)then
call DU(Dx,DX)
else
call WidgetDropItem(DW,DX)
endif
endif
set bj_lastDyingWidget=null
call DestroyTrigger(GetTriggeringTrigger())
endfunction
function DY takes nothing returns nothing
set udg_strings01[1]=("|c00ff0303"+(GetPlayerName(Player(0))+"|r"))
set udg_strings01[2]=("|c000042ff"+(GetPlayerName(Player(1))+"|r"))
set udg_strings01[3]=("|c001ce6b9"+(GetPlayerName(Player(2))+"|r"))
set udg_strings01[4]=("|c00500081"+(GetPlayerName(Player(3))+"|r"))
set udg_strings01[5]=("|c00fffc01"+(GetPlayerName(Player(4))+"|r"))
set udg_strings01[6]=("|c00feba0e"+(GetPlayerName(Player(5))+"|r"))
set udg_strings01[7]=("|c0020c000"+(GetPlayerName(Player(6))+"|r"))
set udg_strings01[8]=("|c00e55bb0"+(GetPlayerName(Player(7))+"|r"))
set udg_strings01[9]=("|c00959697"+(GetPlayerName(Player(8))+"|r"))
set udg_strings01[10]=("|c007ebff1"+(GetPlayerName(Player(9))+"|r"))
set udg_strings01[11]=("|c00106246"+(GetPlayerName(Player(10))+"|r"))
set udg_strings01[12]=("|c004a2a04"+(GetPlayerName(Player(11))+"|r"))
set udg_players01[1]=Player(0)
set udg_players01[2]=Player(1)
set udg_players01[3]=Player(2)
set udg_players01[4]=Player(3)
set udg_players01[5]=Player(4)
set udg_players01[6]=Player(5)
set udg_players01[7]=Player(6)
set udg_players01[8]=Player(7)
set udg_players01[9]=Player(8)
set udg_players01[10]=Player(9)
set udg_players01[11]=Player(10)
set udg_players01[12]=Player(11)
set udg_reals01[1]=100.
set udg_reals01[2]=1.
set udg_reals01[3]=1.
set udg_reals01[4]=50.
set udg_reals01[5]=100.
set udg_reals01[6]=94.
set udg_reals01[7]=1.
set udg_reals01[8]=100.
set udg_reals01[9]=50.
set udg_reals01[10]=1.
set udg_reals01[11]=1.
set udg_reals01[12]=59.
set udg_reals01[13]=1.
set udg_reals01[14]=1.
set udg_reals01[15]=100.
set udg_reals01[16]=1.
set udg_reals01[17]=100.
set udg_reals01[18]=39.
set udg_reals01[19]=100.
set udg_reals01[20]=39.
set udg_reals01[21]=50.
set udg_reals01[22]=50.
set udg_reals01[23]=50.
set udg_reals01[24]=39.
set udg_reals01[25]=1.
set udg_reals01[26]=100.
set udg_reals01[27]=78.
set udg_reals01[28]=82.
set udg_reals01[29]=1.
set udg_reals01[30]=1.
set udg_reals01[31]=1.
set udg_reals01[32]=100.
set udg_reals01[33]=50.
set udg_reals01[34]=100.
set udg_reals01[35]=1.
set udg_reals01[36]=20.
endfunction
function Dz takes nothing returns nothing
set udg_integer04=(udg_integer04+1)
endfunction
function DZ takes nothing returns nothing
call EnableTrigger(udg_trigger06)
call StartTimerBJ(udg_timer02,false,899.)
call CreateTimerDialogBJ(bj_lastStartedTimer,"15 minute timer")
set udg_timerdialog02=bj_lastCreatedTimerDialog
call TimerDialogSetTitleColorBJ(bj_lastCreatedTimerDialog,68.,68.,68.,35.)
call TimerDialogSetTimeColorBJ(bj_lastCreatedTimerDialog,56.,66.,74.,35.)
endfunction
function D0 takes nothing returns nothing
call DestroyTimerDialog(udg_timerdialog02)
call SetCineModeVolumeGroupsBJ()
call PlaySoundBJ(udg_sound06)
call TriggerSleepAction(6.3)
call VolumeGroupResetBJ()
endfunction
function D1 takes nothing returns nothing
call RemoveWeatherEffect(bj_lastCreatedWeatherEffect)
call StopMusic(true)
call EnableDawnDusk(false)
call CinematicFilterGenericBJ(60.,BLEND_MODE_BLEND,"ReplaceableTextures\\CameraMasks\\White_mask.blp",'d','d','d','d',30.,30.,45.,80.)
endfunction
function D2 takes nothing returns nothing
call EndThematicMusicBJ()
call PlaySoundBJ(udg_sound05)
endfunction
function D3 takes nothing returns nothing
call SetPlayerTechResearchedSwap('R00B',1,Player(0))
call SetPlayerTechResearchedSwap('R00B',2,Player(1))
call SetPlayerTechResearchedSwap('R00B',3,Player(2))
call SetPlayerTechResearchedSwap('R00B',4,Player(3))
call SetPlayerTechResearchedSwap('R00B',5,Player(4))
call SetPlayerTechResearchedSwap('R00B',6,Player(5))
call SetPlayerTechResearchedSwap('R00B',7,Player(6))
call SetPlayerTechResearchedSwap('R00B',8,Player(7))
call SetPlayerTechResearchedSwap('R00B',9,Player(8))
call SetPlayerTechResearchedSwap('R00B',10,Player(9))
call SetPlayerTechResearchedSwap('R00B',11,Player(10))
call SetPlayerTechResearchedSwap('R00B',12,Player(11))
endfunction
function D4 takes nothing returns nothing
call SetTimeOfDay(1.)
call UseTimeOfDayBJ(false)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call CreateFogModifierRectBJ(true,udg_players01[bj_forLoopAIndex],FOG_OF_WAR_VISIBLE,bj_mapInitialPlayableArea)
call DestroyFogModifier(bj_lastCreatedFogModifier)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call TriggerSleepAction(75.)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30.,"TRIGSTR_1141")
call TriggerSleepAction(1200.)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30.,"TRIGSTR_820")
call TriggerSleepAction(1200.)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30.,"TRIGSTR_821")
call TriggerSleepAction(1200.)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30.,"TRIGSTR_822")
call TriggerSleepAction(1200.)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30.,"TRIGSTR_824")
call TriggerSleepAction(1200.)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30.,"TRIGSTR_825")
call TriggerSleepAction(1200.)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30.,"TRIGSTR_827")
call TriggerSleepAction(1200.)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30.,"TRIGSTR_828")
endfunction
function D5 takes nothing returns nothing
call DisableTrigger(udg_trigger10)
endfunction
function D6 takes nothing returns boolean
return(GetPlayerController(GetEnumPlayer())==MAP_CONTROL_USER)
endfunction
function D7 takes nothing returns nothing
if(D6())then
set udg_integers04[14]=(udg_integers04[14]+1)
endif
endfunction
function D8 takes nothing returns nothing
call CustomDefeatBJ(GetEnumPlayer(),"|c00abcfd2You must play in multiplayer mode|r")
endfunction
function D9 takes nothing returns boolean
return(udg_integers04[14]==1)
endfunction
function ea takes nothing returns nothing
call TriggerSleepAction(GetRandomReal(0,10.))
set udg_integers04[14]=0
call ForForce(bj_FORCE_ALL_PLAYERS,function D7)
if(D9())then
call ForForce(bj_FORCE_ALL_PLAYERS,function D8)
endif
endfunction
function eA takes nothing returns nothing
call SetDestructableMaxLifeBJ(GetEnumDestructable(),1000000000.)
endfunction
function eb takes nothing returns nothing
call EnumDestructablesInRectAll(bj_mapInitialPlayableArea,function eA)
endfunction
function eB takes nothing returns nothing
call SetDestructableLifePercentBJ(GetEnumDestructable(),'d')
endfunction
function ec takes nothing returns nothing
call EnumDestructablesInRectAll(bj_mapInitialPlayableArea,function eB)
endfunction
function eC takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force02))
endfunction
function ed takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(eC())then
call AdjustPlayerStateBJ(2,udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
else
call AdjustPlayerStateBJ(1000,udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_LUMBER)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"|c00abcfd2The|r |c000000ffHumans|r |c00abcfd2have survived for|r |c0000ff2a15|r |c00abcfd2minutes! All humans have now gained|r |c00ffff002|r |c00abcfd2gold! All|r |c00ff0000Vampires|r |c00abcfd2have been given|r |c000080001,000|r |c00abcfd2Lumber as well|r")
endfunction
function eD takes nothing returns nothing
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(0))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(1))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(2))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(3))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(4))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(5))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(6))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(7))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(8))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(9))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(10))
call SetPlayerFlagBJ(PLAYER_STATE_GIVES_BOUNTY,true,Player(11))
endfunction
function ee takes nothing returns nothing
set udg_strings02[1]="|c008fa9bcHuman Subclasses|r"
set udg_strings02[2]="Empty!"
set udg_strings02[3]="|c008fa9bcItem Combinations|r"
set udg_strings02[4]="Empty!"
set udg_strings02[5]="|c008fa9bcChanges in V 3.08|r"
call CreateQuestBJ(0,"|c008fa9bcHumans|r","TRIGSTR_457","ReplaceableTextures\\CommandButtons\\BTNBloodElfPeasant.blp")
call CreateQuestBJ(0,"|c008fa9bcSlayers|r","TRIGSTR_1218","ReplaceableTextures\\CommandButtons\\BTNHeroBloodElfPrince.blp")
call CreateQuestBJ(0,"|c008fa9bcVampires|r","TRIGSTR_459","ReplaceableTextures\\CommandButtons\\BTNHeroDreadLord.blp")
call CreateQuestBJ(0,udg_strings02[1],"TRIGSTR_2658","ReplaceableTextures\\CommandButtons\\BTNRobeOfTheMagi.blp")
call CreateQuestBJ(0,"|c008fa9bcTechTrees|r","TRIGSTR_3220","ReplaceableTextures\\CommandButtons\\BTNArcaneObservatory.blp")
call CreateQuestBJ(0,"|c008fa9bcBonus Modes|r","TRIGSTR_7354","ReplaceableTextures\\CommandButtons\\BTNResStone.blp")
call CreateQuestBJ(0,udg_strings02[3],"TRIGSTR_1211","ReplaceableTextures\\CommandButtons\\BTN3M1.blp")
call CreateQuestBJ(0,"|c008fa9bcSuicide Mode|r","TRIGSTR_1348","war3mapImported\\Blooddrops3 copy.tga")
call CreateQuestBJ(2,"|c008fa9bcCommands|r","TRIGSTR_7217","ReplaceableTextures\\CommandButtons\\BTNMoonKey.blp")
call CreateQuestBJ(2,udg_strings02[5],"TRIGSTR_455","ReplaceableTextures\\CommandButtons\\BTNSelectHeroOn.blp")
call CreateQuestBJ(2,"|c008fa9bcCredits|r","TRIGSTR_452","ReplaceableTextures\\CommandButtons\\BTNSpy.blp")
endfunction
function eE takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function ef takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(eE())then
call AdjustPlayerStateBJ(400,udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_LUMBER)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function eF takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function eg takes nothing returns boolean
return(GetPlayerSlotState(Player(10))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function eG takes nothing returns boolean
return(GetPlayerSlotState(Player(11))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function eh takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(eF())then
call ForceAddPlayer(udg_force02,udg_players01[bj_forLoopAIndex])
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
if(eg())then
call ForceAddPlayer(udg_force01,Player(10))
endif
if(eG())then
call ForceAddPlayer(udg_force01,Player(11))
endif
endfunction
function eH takes nothing returns boolean
return(GetUnitTypeId(GetFilterUnit())=='Hblm')
endfunction
function ei takes nothing returns nothing
call SetHeroLevelBJ(GetEnumUnit(),(GetHeroLevel(GetEnumUnit())+1),false)
endfunction
function eI takes nothing returns boolean
return(GetUnitTypeId(GetFilterUnit())=='Edem')
endfunction
function ej takes nothing returns nothing
call SetHeroLevelBJ(GetEnumUnit(),(GetHeroLevel(GetEnumUnit())+1),false)
endfunction
function eJ takes nothing returns nothing
set udg_group02=du(udg_rect04,Condition(function eH))
call ForGroupBJ(udg_group02,function ei)
call DestroyGroup(udg_group02)
set udg_group02=du(udg_rect04,Condition(function eI))
call ForGroupBJ(udg_group02,function ej)
call DestroyGroup(udg_group02)
endfunction
function ek takes nothing returns boolean
return(GetUnitTypeId(GetFilterUnit())=='Hblm')
endfunction
function eK takes nothing returns nothing
call SetHeroLevelBJ(GetEnumUnit(),(GetHeroLevel(GetEnumUnit())+1),false)
endfunction
function el takes nothing returns boolean
return(GetUnitTypeId(GetFilterUnit())=='Edem')
endfunction
function eL takes nothing returns nothing
call SetHeroLevelBJ(GetEnumUnit(),(GetHeroLevel(GetEnumUnit())+1),false)
endfunction
function em takes nothing returns nothing
set udg_group02=du(udg_rect04,Condition(function ek))
call ForGroupBJ(udg_group02,function eK)
call DestroyGroup(udg_group02)
set udg_group02=du(udg_rect04,Condition(function el))
call ForGroupBJ(udg_group02,function eL)
call DestroyGroup(udg_group02)
endfunction
function eM takes nothing returns nothing
call C5(60.)
call ConditionalTriggerExecute(udg_trigger21)
endfunction
function en takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function eN takes nothing returns boolean
return(IsUnitInGroup(GetEnumUnit(),udg_groups03[1]))
endfunction
function eo takes nothing returns boolean
return(GetUnitTypeId(GetEnumUnit())=='hpea')
endfunction
function eO takes nothing returns nothing
if(eo())then
set udg_group04=dz(GetOwningPlayer(GetEnumUnit()))
call ForGroupBJ(udg_group04,function en)
call DestroyGroup(udg_group04)
if(eN())then
set udg_integers04[5]=(udg_integers04[5]+1)
endif
call CustomDefeatBJ(GetOwningPlayer(GetEnumUnit()),"You were Vaporized")
call ForceRemovePlayer(udg_force02,GetOwningPlayer(GetEnumUnit()))
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetEnumUnit())))]+" has been Vaporized. Perhaps next time they won't stand so close."))
call Di(udg_multiboard01,1,((1+GetPlayerId(GetOwningPlayer(GetEnumUnit())))+1),"|c00cecdceLeft/Defeated|r")
call Di(udg_multiboard03,1,((1+GetPlayerId(GetOwningPlayer(GetEnumUnit())))+1),"|c00cecdceLeft/Defeated|r")
endif
endfunction
function ep takes nothing returns nothing
set udg_group02=dv(udg_rect03)
call ForGroupBJ(udg_group02,function eO)
call DestroyGroup(udg_group02)
endfunction
function eP takes nothing returns boolean
return(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function eq takes nothing returns boolean
return(eP())
endfunction
function eQ takes nothing returns nothing
set udg_units05[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=GetTriggerUnit()
endfunction
function er takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function eR takes nothing returns nothing
call CreateMultiboardBJ(4,11,"Human Board")
set udg_multiboard01=bj_lastCreatedMultiboard
call Di(udg_multiboard01,1,1,"|c000000ffHumans|r")
call Di(udg_multiboard01,2,1,"|c000000ffGold|r")
call Dk(udg_multiboard01,2,1,"ReplaceableTextures\\CommandButtons\\BTNChestOfGold.blp")
call Di(udg_multiboard01,3,1,"|c00008000Lumber|r")
call Dk(udg_multiboard01,3,1,"ReplaceableTextures\\CommandButtons\\BTNBundleOfLumber.blp")
call Di(udg_multiboard01,4,1,"|c000000ffIncome|r")
call Dk(udg_multiboard01,4,1,"ReplaceableTextures\\CommandButtons\\BTNGoldMine.blp")
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=1
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call Dd(udg_multiboard01,1,bj_forLoopAIndex,true,false)
call Dd(udg_multiboard01,2,bj_forLoopAIndex,true,true)
call Dd(udg_multiboard01,3,bj_forLoopAIndex,true,true)
call Dd(udg_multiboard01,4,bj_forLoopAIndex,true,true)
call Dj(udg_multiboard01,1,bj_forLoopAIndex,9.)
call Dj(udg_multiboard01,2,bj_forLoopAIndex,5.)
call Dj(udg_multiboard01,3,bj_forLoopAIndex,6.)
call Dj(udg_multiboard01,4,bj_forLoopAIndex,5.)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=2
set bj_forLoopAIndexEnd=11
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call Dd(udg_multiboard01,1,bj_forLoopAIndex,true,false)
call Dd(udg_multiboard01,2,bj_forLoopAIndex,true,false)
call Dd(udg_multiboard01,3,bj_forLoopAIndex,true,false)
call Dd(udg_multiboard01,4,bj_forLoopAIndex,true,false)
call Dj(udg_multiboard01,1,bj_forLoopAIndex,9.)
call Dj(udg_multiboard01,2,bj_forLoopAIndex,5.)
call Dj(udg_multiboard01,3,bj_forLoopAIndex,6.)
call Dj(udg_multiboard01,4,bj_forLoopAIndex,5.)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(er())then
call Di(udg_multiboard01,1,(bj_forLoopAIndex+1),udg_strings01[bj_forLoopAIndex])
else
call Di(udg_multiboard01,1,(bj_forLoopAIndex+1),"|c00cecdceNot Playing|r")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call Di(udg_multiboard01,2,(bj_forLoopAIndex+1),I2S(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)))
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call Di(udg_multiboard01,3,(bj_forLoopAIndex+1),(I2S(((udg_integers07[bj_forLoopAIndex]*'d')+(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_LUMBER)/1000)))+"|c00cb0000K|r"))
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call Di(udg_multiboard01,4,(bj_forLoopAIndex+1),(I2S(((d6('h00K',udg_players01[bj_forLoopAIndex])*2)+(((d6('h01E',udg_players01[bj_forLoopAIndex])*10)+(d6('h01F',udg_players01[bj_forLoopAIndex])*20))+0)))+""))
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call MultiboardDisplay(udg_multiboard01,false)
call EnableTrigger(udg_trigger25)
call ConditionalTriggerExecute(udg_trigger27)
endfunction
function es takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function eS takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function et takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force01))
endfunction
function eT takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force01))
endfunction
function eu takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force01))
endfunction
function eU takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force01))
endfunction
function ev takes nothing returns nothing
call CreateMultiboardBJ(5,13,"Vampire Board")
set udg_multiboard03=bj_lastCreatedMultiboard
call Di(udg_multiboard03,1,1,"|c00ab1100Vampires|r")
call Di(udg_multiboard03,2,1,"|c000000ffGold|r")
call Di(udg_multiboard03,3,1,"|c00008000Lumber|r")
call Di(udg_multiboard03,4,1,"|c00ff8600Level|r")
call Di(udg_multiboard03,5,1,"|c0020ff00Income|r")
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=13
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call Dd(udg_multiboard03,1,bj_forLoopAIndex,true,false)
call Dd(udg_multiboard03,2,bj_forLoopAIndex,true,false)
call Dd(udg_multiboard03,3,bj_forLoopAIndex,true,false)
call Dd(udg_multiboard03,4,bj_forLoopAIndex,true,false)
call Dd(udg_multiboard03,5,bj_forLoopAIndex,true,false)
call Dj(udg_multiboard03,1,bj_forLoopAIndex,9.)
call Dj(udg_multiboard03,2,bj_forLoopAIndex,5.)
call Dj(udg_multiboard03,3,bj_forLoopAIndex,4.5)
call Dj(udg_multiboard03,4,bj_forLoopAIndex,3.)
call Dj(udg_multiboard03,5,bj_forLoopAIndex,4.5)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(es())then
call Di(udg_multiboard03,1,(bj_forLoopAIndex+1),"|c000000ffTasty Human|r")
else
call Di(udg_multiboard03,1,(bj_forLoopAIndex+1),"|c00cecdceNot Playing|r")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=11
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(eS())then
call Di(udg_multiboard03,1,(bj_forLoopAIndex+1),udg_strings01[bj_forLoopAIndex])
else
call Di(udg_multiboard03,1,(bj_forLoopAIndex+1),"|c00cecdceNot Playing|r")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(et())then
call Di(udg_multiboard03,2,(bj_forLoopAIndex+1),I2S(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)))
else
call Di(udg_multiboard03,2,(bj_forLoopAIndex+1),"|c00ffff00?|r")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(eT())then
call Di(udg_multiboard03,3,(bj_forLoopAIndex+1),(I2S(((udg_integers07[bj_forLoopAIndex]*0)+(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_LUMBER)/1)))+"|c00cb0000|r"))
else
call Di(udg_multiboard03,3,(bj_forLoopAIndex+1),"|c00008000?|r")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(eu())then
call Di(udg_multiboard03,4,(bj_forLoopAIndex+1),I2S(GetHeroLevel(udg_units05[bj_forLoopAIndex])))
else
call Di(udg_multiboard03,4,(bj_forLoopAIndex+1),"|c00ff8600?|r")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(eU())then
call Di(udg_multiboard03,5,(bj_forLoopAIndex+1),I2S(udg_integers03[bj_forLoopAIndex]))
else
call Di(udg_multiboard03,5,(bj_forLoopAIndex+1),"|c0020ff00?|r")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call MultiboardDisplay(udg_multiboard03,false)
call EnableTrigger(udg_trigger26)
endfunction
function eV takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)and(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force02))
endfunction
function ew takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force02))and(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function eW takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force02))and(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function ex takes nothing returns nothing
call TriggerSleepAction(1.)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(eV())then
call Di(udg_multiboard01,2,(bj_forLoopAIndex+1),I2S(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(ew())then
call Di(udg_multiboard01,3,(bj_forLoopAIndex+1),(I2S(((udg_integers07[bj_forLoopAIndex]*'d')+(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_LUMBER)/1000)))+"|c00cb0000K|r"))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(eW())then
call Di(udg_multiboard01,4,(bj_forLoopAIndex+1),(I2S((((d6('h00K',udg_players01[bj_forLoopAIndex])*2)+((d6('h01E',udg_players01[bj_forLoopAIndex])*10)+(d6('h01F',udg_players01[bj_forLoopAIndex])*20)))*udg_integers04[35]))+""))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function eX takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force01))and(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function ey takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force01))and(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function eY takes nothing returns boolean
return(IsUnitAliveBJ(udg_units05[bj_forLoopAIndex]))and(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force01))and(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function ez takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force01))and(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function eZ takes nothing returns nothing
call TriggerSleepAction(2.)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(eX())then
call Di(udg_multiboard03,2,(bj_forLoopAIndex+1),I2S(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(ey())then
call Di(udg_multiboard03,3,(bj_forLoopAIndex+1),(I2S(((udg_integers07[bj_forLoopAIndex]*0)+(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_LUMBER)/1)))+"|c00cb0000|r"))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(eY())then
call Di(udg_multiboard03,4,(bj_forLoopAIndex+1),I2S(GetHeroLevel(udg_units05[bj_forLoopAIndex])))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(ez())then
call Di(udg_multiboard03,5,(bj_forLoopAIndex+1),I2S((udg_integers03[bj_forLoopAIndex]*udg_integers04[39])))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function e0 takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force02))
endfunction
function e1 takes nothing returns boolean
return(udg_player04==udg_players01[bj_forLoopAIndex])
endfunction
function e2 takes nothing returns nothing
call TriggerSleepAction(2)
call MultiboardDisplay(udg_multiboard01,false)
call MultiboardDisplay(udg_multiboard03,false)
set udg_player04=GetLocalPlayer()
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(e1())then
if(e0())then
call MultiboardDisplay(udg_multiboard01,true)
else
call MultiboardDisplay(udg_multiboard03,true)
endif
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function e3 takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_LEFT)
endfunction
function e4 takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(e3())then
call Di(udg_multiboard01,1,(bj_forLoopAIndex+1),"|c00cecdceLeft/Defeated|r")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function e5 takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_LEFT)
endfunction
function e6 takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(e5())then
call Di(udg_multiboard03,1,(bj_forLoopAIndex+1),"|c00cecdceLeft/Defeated|r")
call Di(udg_multiboard03,2,(bj_forLoopAIndex+1),"0")
call Di(udg_multiboard03,3,(bj_forLoopAIndex+1),"0")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function e7 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='hpea')
endfunction
function e8 takes nothing returns nothing
if(e7())then
call Di(udg_multiboard03,1,((1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))+1),udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))])
call Di(udg_multiboard01,1,(GetPlayerTechCountSimple('R00B',GetOwningPlayer(GetTriggerUnit()))+1),"|c00ab1100Vampire|r")
call Di(udg_multiboard01,2,(GetPlayerTechCountSimple('R00B',GetOwningPlayer(GetTriggerUnit()))+1),"|c00ffff00?|r")
call Di(udg_multiboard01,3,(GetPlayerTechCountSimple('R00B',GetOwningPlayer(GetTriggerUnit()))+1),"|c00008000?|r")
call Di(udg_multiboard01,4,(GetPlayerTechCountSimple('R00B',GetOwningPlayer(GetTriggerUnit()))+1),"|c00008000?|r")
call ConditionalTriggerExecute(udg_trigger27)
endif
endfunction
function e9 takes nothing returns boolean
return(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function Ea takes nothing returns nothing
if(e9())then
call Di(udg_multiboard03,1,((1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))+1),"|c00dd42cbDead|r")
call Di(udg_multiboard03,4,(bj_forLoopAIndex+1),"0")
endif
endfunction
function EA takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function Eb takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(EA())then
set udg_location01=GetRandomLocInRect(udg_rect02)
set udg_locations02[1]=GetRectCenter(udg_rect01)
call CreateNUnitsAtLocFacingLocBJ(1,'hpea',udg_players01[bj_forLoopAIndex],udg_location01,udg_locations02[1])
call GroupAddUnit(udg_groups03[1],bj_lastCreatedUnit)
call RemoveLocation(udg_locations02[1])
call RemoveLocation(udg_location01)
set udg_units03[bj_forLoopAIndex]=bj_lastCreatedUnit
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,25.,"|c00abcfd2A Gateway to|r |c00e20200Hell|r |c00abcfd2has been opened. A demon will soon enter this world.... run or meet your end|r")
endfunction
function EB takes nothing returns nothing
call C5(113.)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"|c00abcfd2When a|r |c00ff0000Vampire|r |c00abcfd2destroys something there is a|r |c0000ff2a10|r|c00abcfd2% chance that an item will be dropped|r")
call C5(25.)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"|c00abcfd2When a|r |c00ff0000Vampire|r |c00abcfd2is killed the person who vanquished the|r |c00ff0000Vampire|r |c00abcfd2will receive several gold depending upon the kind of|r |c00ff0000Vampire|r")
call TriggerSleepAction(25.)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"TRIGSTR_3218")
endfunction
function Ec takes nothing returns boolean
return(udg_integers04[45]<=-500)
endfunction
function EC takes nothing returns nothing
set udg_integers04[45]=(udg_integers04[45]-4)
set udg_integers04[46]=(udg_integers04[46]+10)
set udg_locations02[3]=de(GetRectCenter(udg_rect01),I2R(udg_integers04[45]),I2R(udg_integers04[46]))
call AddSpecialEffectLocBJ(udg_locations02[3],"Abilities\\Spells\\Undead\\ReplenishMana\\SpiritTouchTarget.mdl")
call DestroyEffect(bj_lastCreatedEffect)
call RemoveLocation(udg_locations02[3])
set udg_locations02[3]=de(GetRectCenter(udg_rect01),I2R(udg_integers04[45]),I2R((udg_integers04[46]+180)))
call AddSpecialEffectLocBJ(udg_locations02[3],"Abilities\\Weapons\\VengeanceMissile\\VengeanceMissile.mdl")
call DestroyEffect(bj_lastCreatedEffect)
call RemoveLocation(udg_locations02[3])
if(Ec())then
call DisableTrigger(GetTriggeringTrigger())
endif
endfunction
function Ed takes nothing returns nothing
call PanCameraToTimedLocForPlayer(GetEnumPlayer(),CameraSetupGetDestPositionLoc(udg_camerasetup01),1.)
endfunction
function ED takes nothing returns boolean
return(GetPlayerSlotState(Player(10))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function Ee takes nothing returns boolean
return(GetPlayerSlotState(Player(11))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function EE takes nothing returns nothing
set udg_location01=GetUnitLoc(udg_units03[(1+GetPlayerId(GetEnumPlayer()))])
call PanCameraToTimedLocForPlayer(GetEnumPlayer(),udg_location01,3.)
call RemoveLocation(udg_location01)
endfunction
function Ef takes nothing returns nothing
set udg_integers04[45]=500
set udg_integers04[46]=0
call TriggerSleepAction(4.)
call SetTimeOfDay(7.)
call UseTimeOfDayBJ(true)
call C5(66.)
call CinematicModeBJ(true,bj_FORCE_ALL_PLAYERS)
call SetCineModeVolumeGroupsBJ()
call ForForce(bj_FORCE_ALL_PLAYERS,function Ed)
call SetTimeOfDay(24.)
call UseTimeOfDayBJ(false)
call TriggerSleepAction(1.)
set udg_location01=GetRectCenter(udg_rect01)
call TransmissionFromUnitTypeWithNameBJ(bj_FORCE_ALL_PLAYERS,Player(12),'uaco',"Leader of the Demonic Cult",udg_location01,udg_sound07,"We have completed our task. The Sun has been blocked from the sky and we have opened the Portal.",0,0,true)
if(ED())then
call CreateNUnitsAtLoc(1,'Eevi',Player(10),udg_location01,bj_UNIT_FACING)
call GroupAddUnit(udg_groups03[4],bj_lastCreatedUnit)
call GroupAddUnit(udg_groups03[5],bj_lastCreatedUnit)
set udg_units01[1]=bj_lastCreatedUnit
set udg_booleans01[1]=true
endif
if(Ee())then
call CreateNUnitsAtLoc(1,'Eevi',Player(11),udg_location01,bj_UNIT_FACING)
call GroupAddUnit(udg_groups03[4],bj_lastCreatedUnit)
call GroupAddUnit(udg_groups03[5],bj_lastCreatedUnit)
set udg_units01[2]=bj_lastCreatedUnit
set udg_booleans01[2]=true
endif
call RemoveLocation(udg_location01)
call PlaySoundBJ(udg_sound11)
call SetUnitVertexColorBJ(udg_units01[1],'d','d','d',100.)
call SetUnitVertexColorBJ(udg_units01[2],'d','d','d',100.)
call C5(.1)
set udg_location01=GetRectCenter(udg_rect19)
call RemoveLocation(udg_location01)
call CreateDestructableLoc('OTsp',GetRectCenter(udg_rect19),90.,1,0)
call SetDestructableAnimation(bj_lastCreatedDestructable,"birth")
call TriggerSleepAction(2.)
call EnableTrigger(udg_trigger34)
call TriggerSleepAction(5.)
set udg_location01=GetRectCenter(udg_rect01)
call TerrainDeformationCraterBJ(2.,true,udg_location01,480.,128.)
call AddSpecialEffectLocBJ(udg_location01,"Objects\\Spawnmodels\\Undead\\UDeathMedium\\UDeath.mdl")
call DestroyEffect(bj_lastCreatedEffect)
call RemoveLocation(udg_location01)
call TriggerSleepAction(1.75)
call SetUnitVertexColorBJ(udg_units01[1],12.,14.,13.,10.)
call SetUnitVertexColorBJ(udg_units01[2],12.,14.,13.,10.)
call TriggerSleepAction(2.)
call PlaySoundBJ(udg_sound09)
call SetDestructableInvulnerable(bj_lastCreatedDestructable,false)
call KillDestructable(bj_lastCreatedDestructable)
call TriggerSleepAction(2.)
call TriggerSleepAction(1.)
call CinematicModeBJ(false,bj_FORCE_ALL_PLAYERS)
call ForForce(udg_force02,function EE)
call VolumeGroupResetBJ()
call TriggerSleepAction(1.)
call TriggerExecute(udg_trigger89)
endfunction
function EF takes nothing returns nothing
call RemoveDestructable(bj_lastCreatedDestructable)
endfunction
function Eg takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force02))
endfunction
function EG takes nothing returns nothing
if(Eg())then
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),20.,"TRIGSTR_2006")
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),20.,"TRIGSTR_2005")
endif
endfunction
function Eh takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force02))
endfunction
function EH takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force02))
endfunction
function Ei takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(EH())then
set udg_integers04[17]=(GetPlayerTechCountSimple('Rowd',udg_players01[bj_forLoopAIndex])*(GetPlayerTechCountSimple('Rowd',udg_players01[bj_forLoopAIndex])*'d'))
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),20.,((udg_strings01[bj_forLoopAIndex]+"'|c00abcfd2s Lumber Shipment is currently|r |c00008000")+(I2S(udg_integers04[17])+"|r")))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function EI takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force02))
endfunction
function Ej takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetTriggerPlayer())==0)
endfunction
function EJ takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetTriggerPlayer())==1)
endfunction
function Ek takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetTriggerPlayer())==2)
endfunction
function EK takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetTriggerPlayer())==3)
endfunction
function El takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetTriggerPlayer())==4)
endfunction
function EL takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetTriggerPlayer())==5)
endfunction
function Em takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetTriggerPlayer())==6)
endfunction
function EM takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetTriggerPlayer())==7)
endfunction
function En takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetTriggerPlayer())==8)
endfunction
function EN takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetTriggerPlayer())==9)
endfunction
function Eo takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetTriggerPlayer())==10)
endfunction
function EO takes nothing returns nothing
if(Ej())then
set udg_integers04[17]=0
endif
if(EJ())then
set udg_integers04[17]=1
endif
if(Ek())then
set udg_integers04[17]=3
endif
if(EK())then
set udg_integers04[17]=5
endif
if(El())then
set udg_integers04[17]=9
endif
if(EL())then
set udg_integers04[17]=13
endif
if(Em())then
set udg_integers04[17]=18
endif
if(EM())then
set udg_integers04[17]=23
endif
if(En())then
set udg_integers04[17]=29
endif
if(EN())then
set udg_integers04[17]=35
endif
if(Eo())then
set udg_integers04[17]=42
endif
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),20.,("|c00abcfd2Your gold shipment is|r |c00ffff00"+(I2S(udg_integers04[17])+"|r")))
endfunction
function Ep takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force02))
endfunction
function EP takes nothing returns nothing
set udg_integers04[21]=(udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]*'d')
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),20.,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+", |c00abcfd2you currently have|r |c00008000")+(I2S(udg_integers04[21])+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
endfunction
function Eq takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force02))
endfunction
function EQ takes nothing returns boolean
return(udg_booleans03[(1+GetPlayerId(GetTriggerPlayer()))])
endfunction
function Er takes nothing returns nothing
if(EQ())then
set udg_booleans03[(1+GetPlayerId(GetTriggerPlayer()))]=false
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),20.,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+", |c00abcfd2you have changed the display feature. You will no longer be notified when you store lumber|r")+""))
else
set udg_booleans03[(1+GetPlayerId(GetTriggerPlayer()))]=true
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),20.,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+", |c00abcfd2you have changed the display feature. You will be notified when you store lumber|r")+""))
endif
endfunction
function ER takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force01))
endfunction
function Es takes nothing returns nothing
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),10.,"|c00abcfd2The Item upgrader shop is located at the ping|r")
set udg_locations02[1]=GetRectCenter(udg_rect05)
call PingMinimapLocForForce(d0(GetTriggerPlayer()),udg_locations02[1],10.)
call RemoveLocation(udg_locations02[1])
endfunction
function ES takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force01))
endfunction
function Et takes nothing returns boolean
return(udg_booleans05[(1+GetPlayerId(GetTriggerPlayer()))])
endfunction
function ET takes nothing returns nothing
if(Et())then
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),15.,"|c00abcfd2You have changed the auto collect feature. You will no longer automatically stack all dropped items you aquire|r")
set udg_booleans05[(1+GetPlayerId(GetTriggerPlayer()))]=false
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),15.,"|c00abcfd2You have changed the auto collect feature. You will now automatically stack all dropped items you aquire|r")
set udg_booleans05[(1+GetPlayerId(GetTriggerPlayer()))]=true
endif
endfunction
function Eu takes nothing returns boolean
return(GetPlayerSlotState(Player(10))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function EU takes nothing returns nothing
call CreateNUnitsAtLoc(1,'nfrm',Player(10),GetRectCenter(udg_rect06),bj_UNIT_FACING)
endfunction
function Ev takes nothing returns boolean
return(GetPlayerSlotState(Player(11))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function EV takes nothing returns nothing
call CreateNUnitsAtLoc(1,'nfrm',Player(11),GetRectCenter(udg_rect07),bj_UNIT_FACING)
endfunction
function Ew takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit()))>15000)
endfunction
function EW takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='hhes')and(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function Ex takes nothing returns nothing
if(EW())then
if(Ew())then
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-15000.))
else
call UnitDamageTargetBJ(GetAttacker(),GetTriggerUnit(),15000.,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL)
endif
endif
endfunction
function EX takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit()))>15000)
endfunction
function Ey takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='e002')and(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function EY takes nothing returns nothing
if(Ey())then
if(EX())then
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())/20.)))
else
call UnitDamageTargetBJ(GetAttacker(),GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())/20.),ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL)
endif
endif
endfunction
function Ez takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit()))>15000)
endfunction
function EZ takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='e002')and(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function E0 takes nothing returns nothing
if(EZ())then
if(Ez())then
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())/30.)))
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-7500.))
else
call UnitDamageTargetBJ(GetAttacker(),GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())/30.),ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL)
call UnitDamageTargetBJ(GetAttacker(),GetTriggerUnit(),7500.,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL)
endif
endif
endfunction
function E1 takes nothing returns boolean
return(IsUnitType(GetAttacker(),UNIT_TYPE_HERO)==false)or(IsPlayerInForce(GetOwningPlayer(GetAttacker()),udg_force01)==false)
endfunction
function E2 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='hpea')and(E1())
endfunction
function E3 takes nothing returns boolean
return(E2())
endfunction
function E4 takes nothing returns nothing
call IssueImmediateOrderById(GetAttacker(),851972)
endfunction
function E5 takes nothing returns boolean
return(GetUnitPointValue(GetAttacker())==777)and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force02))
endfunction
function E6 takes nothing returns boolean
return(E5())
endfunction
function E7 takes nothing returns nothing
call IssueImmediateOrderById(GetAttacker(),851972)
endfunction
function E8 takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))and(IsPlayerInForce(GetOwningPlayer(GetAttacker()),udg_force01))
endfunction
function E9 takes nothing returns boolean
return(E8())
endfunction
function fa takes nothing returns nothing
call IssueImmediateOrderById(GetAttacker(),851972)
endfunction
function fA takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='hpea')and(GetOwningPlayer(GetAttacker())!=GetOwningPlayer(GetTriggerUnit()))
endfunction
function fb takes nothing returns boolean
return(fA())
endfunction
function fB takes nothing returns nothing
call IssueImmediateOrderById(GetAttacker(),851972)
endfunction
function fc takes nothing returns boolean
return(IsUnitType(GetAttacker(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force02))and(IsPlayerInForce(GetOwningPlayer(GetAttacker()),udg_force02))
endfunction
function fC takes nothing returns boolean
return(fc())
endfunction
function fd takes nothing returns nothing
call IssueImmediateOrderById(GetAttacker(),851972)
endfunction
function fD takes nothing returns nothing
call ForceAddPlayer(udg_force03,Player(1))
call ForceAddPlayer(udg_force03,Player(2))
call ForceAddPlayer(udg_force03,Player(3))
call ForceAddPlayer(udg_force03,Player(4))
call ForceAddPlayer(udg_force03,Player(5))
call ForceAddPlayer(udg_force03,Player(6))
call ForceAddPlayer(udg_force03,Player(7))
call ForceAddPlayer(udg_force03,Player(8))
call ForceAddPlayer(udg_force03,Player(9))
call ForceAddPlayer(udg_force03,Player(10))
call ForceAddPlayer(udg_force03,Player(11))
endfunction
function fe takes nothing returns boolean
return(StringCase(GetPlayerName(GetEnumPlayer()),false)==StringCase((udg_strings03[(1+(1+1))]+"razy_monkeys"),false))
endfunction
function fE takes nothing returns nothing
if(fe())then
set udg_booleans04[1]=true
endif
endfunction
function ff takes nothing returns boolean
return(udg_booleans04[1]==false)
endfunction
function fF takes nothing returns nothing
call ForForce(udg_force03,function fE)
call TriggerSleepAction(.27)
if(ff())then
call EnableTrigger(udg_trigger56)
call EnableTrigger(udg_trigger58)
call EnableTrigger(udg_trigger57)
call DisableTrigger(GetTriggeringTrigger())
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has activated the kick feature|r"))
endif
endfunction
function fg takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),7,7)=="0")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="1")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="2")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="3")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="4")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="5")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="6")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="7")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="8")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="9")
endfunction
function fG takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[9])
endfunction
function fh takes nothing returns boolean
return(StringLength(GetEventPlayerChatString())==8)and(SubStringBJ(GetEventPlayerChatString(),6,6)==" ")and(fg())and(fG())
endfunction
function fH takes nothing returns boolean
return(fh())
endfunction
function fi takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function fI takes nothing returns nothing
call AdjustPlayerStateBJ(((GetPlayerState(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))],PLAYER_STATE_RESOURCE_GOLD)/udg_integers05[2])+0),GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(((GetPlayerState(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))],PLAYER_STATE_RESOURCE_LUMBER)/udg_integers05[2])+0),GetEnumPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
endfunction
function fj takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function fJ takes nothing returns boolean
return(IsPlayerInForce(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))],udg_force02))
endfunction
function fk takes nothing returns boolean
return(S2I(SubStringBJ(GetEventPlayerChatString(),7,8))>=2)and(S2I(SubStringBJ(GetEventPlayerChatString(),7,8))<=10)
endfunction
function fK takes nothing returns nothing
if(fk())then
call ConditionalTriggerExecute(udg_trigger160)
call TriggerSleepAction(.1)
if(fJ())then
call CustomDefeatBJ(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))],"|c00abcfd2Kicked|r|c0000ff2a!|r")
set udg_group03=dz(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))])
call GroupRemoveGroup(udg_group03,udg_groups03[1])
call GroupRemoveGroup(udg_group03,udg_groups03[2])
call ForGroupBJ(udg_group03,function fj)
call DestroyGroup(udg_group03)
else
call CustomDefeatBJ(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))],"|c00abcfd2Kicked|r|c0000ff2a!|r")
set udg_group03=dz(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))])
call GroupRemoveGroup(udg_group03,udg_groups03[3])
call GroupRemoveGroup(udg_group03,udg_groups03[4])
call GroupRemoveGroup(udg_group03,udg_groups03[5])
call ForGroupBJ(udg_group03,function fi)
call DestroyGroup(udg_group03)
call ForForce(udg_force01,function fI)
endif
endif
endfunction
function fl takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)==StringCase("crazy_monkeys",false))
endfunction
function fL takes nothing returns boolean
return(IsUnitType(GetFilterUnit(),UNIT_TYPE_HERO)!=null)
endfunction
function fm takes nothing returns boolean
return(IsUnitType(GetFilterUnit(),UNIT_TYPE_HERO)!=null)
endfunction
function fM takes nothing returns nothing
call AddHeroXPSwapped(GetHeroXP(GetEnumUnit()),GroupPickRandomUnit(dY(Player(11),Condition(function fm))),false)
endfunction
function fn takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function fN takes nothing returns boolean
return(StringCase(GetEventPlayerChatString(),false)=="-kick 11")
endfunction
function fo takes nothing returns nothing
if(fN())then
call CustomDefeatBJ(Player(10),"|c00abcfd2Kicked|r|c0000ff2a!|r")
call DisableTrigger(udg_trigger140)
call DisableTrigger(udg_trigger141)
call DisableTrigger(udg_trigger58)
call DisableTrigger(udg_trigger57)
call AdjustPlayerStateBJ((udg_integer04*15),Player(11),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(GetPlayerState(Player(10),PLAYER_STATE_RESOURCE_GOLD),Player(11),PLAYER_STATE_RESOURCE_GOLD)
set udg_group03=dY(Player(10),Condition(function fL))
call ForGroupBJ(udg_group03,function fM)
call DestroyGroup(udg_group03)
set udg_integers04[1]=((((CountPlayersInForceBJ(udg_force02)*0)+0)+(udg_integer04*15))+0)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(((udg_strings01[1]+" |c00abcfd2has kicked|r ")+udg_strings01[11])+((((", "+udg_strings01[12])+" |c00abcfd2will now recieve|r |c00ffff00")+I2S(udg_integers04[1]))+("|r |c00abcfd2gold along with all of |r"+(udg_strings01[11]+"'|c00abcfd2s gold and experience points|r")))))
set udg_group03=dz(Player(10))
call GroupRemoveGroup(udg_group03,udg_groups03[3])
call GroupRemoveGroup(udg_group03,udg_groups03[4])
call GroupRemoveGroup(udg_group03,udg_groups03[5])
call ForGroupBJ(udg_group03,function fn)
call DestroyGroup(udg_group03)
endif
endfunction
function fO takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)==StringCase("crazy_monkeys",false))
endfunction
function fp takes nothing returns boolean
return(IsUnitType(GetFilterUnit(),UNIT_TYPE_HERO)!=null)
endfunction
function fP takes nothing returns boolean
return(IsUnitType(GetFilterUnit(),UNIT_TYPE_HERO)!=null)
endfunction
function fq takes nothing returns nothing
call AddHeroXPSwapped(GetHeroXP(GetEnumUnit()),GroupPickRandomUnit(dY(Player(10),Condition(function fP))),false)
endfunction
function fQ takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function fr takes nothing returns boolean
return(StringCase(GetEventPlayerChatString(),false)=="-kick 12")
endfunction
function fR takes nothing returns nothing
if(fr())then
call CustomDefeatBJ(Player(11),"|c00abcfd2Kicked|r|c0000ff2a!|r")
call DisableTrigger(udg_trigger140)
call DisableTrigger(udg_trigger141)
call DisableTrigger(udg_trigger58)
call DisableTrigger(udg_trigger57)
call AdjustPlayerStateBJ((udg_integer04*15),Player(10),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(GetPlayerState(Player(11),PLAYER_STATE_RESOURCE_GOLD),Player(10),PLAYER_STATE_RESOURCE_GOLD)
set udg_group03=dY(Player(11),Condition(function fp))
call ForGroupBJ(udg_group03,function fq)
call DestroyGroup(udg_group03)
set udg_integers04[1]=((((CountPlayersInForceBJ(udg_force02)*0)+0)+(udg_integer04*15))+0)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(((udg_strings01[1]+" |c00abcfd2has kicked|r ")+udg_strings01[12])+((((", "+udg_strings01[11])+" |c00abcfd2will now recieve|r |c00ffff00")+I2S(udg_integers04[1]))+("|r |c00abcfd2gold along with all of|r "+(udg_strings01[12]+"'|c00abcfd2s gold and experience points|r")))))
set udg_group03=dz(Player(11))
call GroupRemoveGroup(udg_group03,udg_groups03[3])
call GroupRemoveGroup(udg_group03,udg_groups03[4])
call GroupRemoveGroup(udg_group03,udg_groups03[5])
call ForGroupBJ(udg_group03,function fQ)
call DestroyGroup(udg_group03)
endif
endfunction
function fs takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)==StringCase((udg_strings03[((1+1)+1)]+"razy_monkeys"),false))
endfunction
function fS takes nothing returns boolean
return(fs())
endfunction
function ft takes nothing returns nothing
call EnableTrigger(udg_trigger60)
call EnableTrigger(udg_trigger61)
call DisableTrigger(GetTriggeringTrigger())
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(udg_strings01[11]+" |c00abcfd2has activated the kick feature|r"))
endfunction
function fT takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),7,7)=="0")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="1")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="2")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="3")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="4")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="5")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="6")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="7")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="8")or(SubStringBJ(GetEventPlayerChatString(),7,7)=="9")
endfunction
function fu takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[9])
endfunction
function fU takes nothing returns boolean
return(StringLength(GetEventPlayerChatString())==8)and(SubStringBJ(GetEventPlayerChatString(),6,6)==" ")and(fT())and(fu())
endfunction
function fv takes nothing returns boolean
return(fU())
endfunction
function fV takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function fw takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function fW takes nothing returns nothing
call AdjustPlayerStateBJ(((GetPlayerState(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))],PLAYER_STATE_RESOURCE_GOLD)/udg_integers05[1])+0),GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(((GetPlayerState(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))],PLAYER_STATE_RESOURCE_LUMBER)/udg_integers05[1])+0),GetEnumPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
endfunction
function fx takes nothing returns boolean
return(IsPlayerInForce(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))],udg_force02))
endfunction
function fX takes nothing returns boolean
return(S2I(SubStringBJ(GetEventPlayerChatString(),7,8))>=1)and(S2I(SubStringBJ(GetEventPlayerChatString(),7,8))<=10)
endfunction
function fy takes nothing returns nothing
if(fX())then
if(fx())then
call ConditionalTriggerExecute(udg_trigger160)
call CustomDefeatBJ(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))],"|c00abcfd2Kicked|r|c0000ff2a!|r")
set udg_group03=dz(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))])
call GroupRemoveGroup(udg_group03,udg_groups03[1])
call GroupRemoveGroup(udg_group03,udg_groups03[2])
call ForGroupBJ(udg_group03,function fw)
call DestroyGroup(udg_group03)
call ForForce(udg_force02,function fW)
else
call CustomDefeatBJ(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))],"|c00abcfd2Kicked|r|c0000ff2a!|r")
set udg_group03=dz(udg_players01[S2I(SubStringBJ(GetEventPlayerChatString(),7,8))])
call GroupRemoveGroup(udg_group03,udg_groups03[3])
call GroupRemoveGroup(udg_group03,udg_groups03[4])
call GroupRemoveGroup(udg_group03,udg_groups03[5])
call ForGroupBJ(udg_group03,function fV)
call DestroyGroup(udg_group03)
endif
endif
endfunction
function fY takes nothing returns boolean
return(IsUnitType(GetFilterUnit(),UNIT_TYPE_HERO)!=null)
endfunction
function fz takes nothing returns boolean
return(IsUnitType(GetFilterUnit(),UNIT_TYPE_HERO)!=null)
endfunction
function fZ takes nothing returns nothing
call AddHeroXPSwapped(GetHeroXP(GetEnumUnit()),GroupPickRandomUnit(dY(Player(10),Condition(function fz))),false)
endfunction
function f0 takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function f1 takes nothing returns boolean
return(StringCase(GetEventPlayerChatString(),false)=="-kick 12")
endfunction
function f2 takes nothing returns nothing
if(f1())then
call CustomDefeatBJ(Player(11),"|c00abcfd2Kicked|r|c0000ff2a!|r")
call DisableTrigger(udg_trigger140)
call DisableTrigger(udg_trigger141)
call DisableTrigger(udg_trigger58)
call DisableTrigger(udg_trigger57)
call AdjustPlayerStateBJ((udg_integer04*15),Player(10),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(GetPlayerState(Player(11),PLAYER_STATE_RESOURCE_GOLD),Player(10),PLAYER_STATE_RESOURCE_GOLD)
set udg_group03=dY(Player(11),Condition(function fY))
call ForGroupBJ(udg_group03,function fZ)
call DestroyGroup(udg_group03)
set udg_integers04[1]=((((CountPlayersInForceBJ(udg_force02)*0)+0)+(udg_integer04*15))+0)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(((udg_strings01[11]+" |c00abcfd2has kicked|r ")+udg_strings01[12])+((((", "+udg_strings01[11])+" |c00abcfd2will now recieve|r |c00ffff00")+I2S(udg_integers04[1]))+("|r |c00abcfd2gold along with all of|r "+(udg_strings01[12]+"'|c00abcfd2s gold and experience points|r")))))
set udg_group03=dz(Player(11))
call GroupRemoveGroup(udg_group03,udg_groups03[3])
call GroupRemoveGroup(udg_group03,udg_groups03[4])
call GroupRemoveGroup(udg_group03,udg_groups03[5])
call ForGroupBJ(udg_group03,function f0)
call DestroyGroup(udg_group03)
endif
endfunction
function f3 takes nothing returns nothing
set udg_integers04[39]=1
set udg_integers04[35]=1
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call SetPlayerTechMaxAllowedSwap('Rosp',1,udg_players01[bj_forLoopAIndex])
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function f4 takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force02))
endfunction
function f5 takes nothing returns nothing
set udg_integers04[34]=(udg_integers04[34]+1)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,("|c00122dffThe Humans have all received|r |c00ffff00"+((I2S((udg_integers04[34]*1))+"|r Gold |c00122dffand|r |c00008000")+(I2S((udg_integers04[34]*12500))+" |rLumber."))))
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,("|c00f2170eThe Vampires have all received|r |c00ffff00"+((I2S((udg_integers04[34]*50))+"|r Gold |c00f2170eand|r |c00008000")+(I2S((udg_integers04[34]*10))+" |rLumber."))))
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(f4())then
call AdjustPlayerStateBJ((udg_integers04[34]*1),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ((udg_integers04[34]*12500),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_LUMBER)
else
call AdjustPlayerStateBJ((udg_integers04[34]*50),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ((udg_integers04[34]*10),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_LUMBER)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function f6 takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetEnumUnit()),udg_force01))
endfunction
function f7 takes nothing returns nothing
if(f6())then
call SetHeroLevelBJ(GetEnumUnit(),(GetUnitLevel(GetEnumUnit())+1),false)
endif
endfunction
function f8 takes nothing returns nothing
call ForGroupBJ(udg_groups03[5],function f7)
endfunction
function f9 takes nothing returns boolean
return(GetPlayerTechCountSimple('Rhfc',udg_players01[bj_forLoopAIndex])>=1)
endfunction
function Fa takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(f9())then
call AdjustPlayerStateBJ(2,udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(35000,udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(udg_players01[bj_forLoopAIndex]),15.,"|c00abcfd2Since you have researched Gold mine theory already you have recieved|r |c00ffee002|r |c00abcfd2gold and|r |c0000800035,000|r |c00abcfd2lumber|r")
else
call SetPlayerTechResearchedSwap('Rhfc',1,udg_players01[bj_forLoopAIndex])
call DisplayTimedTextToForce(d0(udg_players01[bj_forLoopAIndex]),15.,"|c00abcfd2Gold mine theory has been researched for you compliments of suicide mode|r")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function FA takes nothing returns nothing
call TriggerExecute(udg_trigger82)
call TriggerExecute(udg_trigger67)
call TriggerExecute(udg_trigger77)
endfunction
function Fb takes nothing returns nothing
call DialogSetMessage(udg_dialog05,"Choose the Game Mode")
call DialogAddButtonBJ(udg_dialog05,"|c00ff3100Suicide Mode Enabled|r")
set udg_buttons05[1]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog05,"Standard Mode (Like |c0064d4e5Vamp Ice|r)")
set udg_buttons05[2]=bj_lastCreatedButton
endfunction
function FB takes nothing returns boolean
return(GetPlayerSlotState(Player(0))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function Fc takes nothing returns nothing
if(FB())then
call DialogDisplayBJ(true,udg_dialog05,Player(0))
endif
endfunction
function FC takes nothing returns boolean
return(GetPlayerSlotState(Player(0))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function Fd takes nothing returns boolean
return(GetClickedButton()==udg_buttons05[1])
endfunction
function FD takes nothing returns nothing
if(Fd())then
if(FC())then
set udg_booleans02[3]=true
call DialogDisplayBJ(true,udg_dialog06,Player(0))
call EnableTrigger(udg_trigger65)
call SetPlayerTechMaxAllowedSwap('hcas',0,GetEnumPlayer())
call SetPlayerTechResearchedSwap('R00Q',1,GetEnumPlayer())
endif
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(("|c00ff0000"+GetPlayerName(Player(0)))+"|r |c00abcfd2has chosen to have Suicide Mode enabled|r"))
call TriggerSleepAction(75.)
call MultiboardSetTitleText(udg_multiboard01,"Human Board-Suicide Mode")
call MultiboardSetTitleText(udg_multiboard03,"Vampire Board-Suicide Mode")
endif
endfunction
function Fe takes nothing returns nothing
call SetPlayerTechResearchedSwap('Rhcd',1,GetEnumPlayer())
call SetPlayerTechResearchedSwap('R00E',1,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h01A',0,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('n005',4,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('n00K',4,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('n00G',4,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('n009',4,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('Rhgb',2,GetEnumPlayer())
endfunction
function FE takes nothing returns boolean
return(GetPlayerSlotState(Player(0))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function Ff takes nothing returns boolean
return(GetClickedButton()==udg_buttons05[2])
endfunction
function FF takes nothing returns nothing
if(Ff())then
call ForForce(bj_FORCE_ALL_PLAYERS,function Fe)
if(FE())then
call DialogDisplayBJ(true,udg_dialog06,Player(0))
endif
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(udg_strings01[1]+" |c00abcfd2has chosen to enable standard gameplay|r"))
call TriggerSleepAction(75.)
call MultiboardSetTitleText(udg_multiboard01,"Human Board-Standard Mode")
call MultiboardSetTitleText(udg_multiboard03,"Vampire Board-Standard Mode")
endif
endfunction
function Fg takes nothing returns nothing
call DialogSetMessage(udg_dialog06,"Select Bonus Modes")
call DialogAddButtonBJ(udg_dialog06,"|c000024ffSkip/Continue|r")
set udg_buttons07[1]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog06,"|c00f29722A|r|c00e68f1ec|r|c00d98619c|r|c00cd7e15e|r|c00c86a18l|r|c00c3571be|r|c00be441er|r|c00ba3121a|r|c00c9371at|r|c00d83d14e|r|c00e7430ed|r|c00f64908 |r|c00f64908M|r|c00f64908o|r|c00f64908d|r|c00f64908e|r")
set udg_buttons07[2]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog06,"|c00f98b01D|r|c00f36602o|r|c00ed4103u|r|c00e71c04b|r|c00e71c04l|r|c00e71c04e|r|c00e71c04 |r|c00e71c04X|r|c00e71c04p|r")
set udg_buttons07[3]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog06,"|c00f78001N|r|c00f57601o|r|c00f46c01o|r|c00f26202b|r|c00f05802 |r|c00ef4e02H|r|c00ed4402u|r|c00eb3a03m|r|c00ea3003a|r|c00e82603n|r|c00e71b03s|r")
set udg_buttons07[4]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog06,"|c00f88c1aF|r|c00f99933a|r|c00faa64ds|r|c00fab266t|r|c00fbbf80 |r|c00fccc99S|r|c00fcd8b2t|r|c00fde5cca|r|c00fef2e5r|r|c00fefefft|r")
set udg_buttons07[4]=bj_lastCreatedButton
endfunction
function FG takes nothing returns boolean
return(udg_booleans04[2])
endfunction
function Fh takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function FH takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function Fi takes nothing returns boolean
return(udg_booleans04[3])
endfunction
function FI takes nothing returns nothing
call DialogDisplayBJ(true,udg_dialogs02[2],GetEnumPlayer())
if(FG())then
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call SetPlayerTechResearchedSwap('Rowd',7,udg_players01[bj_forLoopAIndex])
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endif
if(Fi())then
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(Fh())then
call AdjustPlayerStateBJ(5,GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(65000,GetEnumPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=11
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(FH())then
call AdjustPlayerStateBJ(1500,GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(1000,GetEnumPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endif
endfunction
function Fj takes nothing returns boolean
return(GetPlayerSlotState(Player(0))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function FJ takes nothing returns boolean
return(GetClickedButton()==udg_buttons07[1])
endfunction
function Fk takes nothing returns nothing
if(FJ())then
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(udg_strings01[1]+" |c00abcfd2has finished selecting bonus modes|r"))
if(Fj())then
call ForForce(udg_force02,function FI)
endif
endif
endfunction
function FK takes nothing returns boolean
return(udg_integers04[35]==1)
endfunction
function Fl takes nothing returns boolean
return(GetClickedButton()==udg_buttons07[2])
endfunction
function FL takes nothing returns nothing
if(Fl())then
if(FK())then
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(("|c00ff0000"+GetPlayerName(Player(0)))+"|r |c00abcfd2has activated Accelerated Mode|r"))
set udg_integers04[35]=2
call EnableTrigger(udg_trigger63)
call EnableTrigger(udg_trigger64)
call DisableTrigger(udg_trigger18)
call EnableTrigger(udg_trigger19)
call EnableTrigger(udg_trigger240)
set udg_integers04[39]=2
else
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(("|c00ff0000"+GetPlayerName(Player(0)))+"|r |c00abcfd2has de-activated Accelerated Mode|r"))
set udg_integers04[35]=1
call DisableTrigger(udg_trigger63)
call DisableTrigger(udg_trigger64)
call EnableTrigger(udg_trigger18)
call DisableTrigger(udg_trigger19)
call DisableTrigger(udg_trigger240)
set udg_integers04[39]=1
endif
call DialogDisplayBJ(true,udg_dialog06,Player(0))
endif
endfunction
function Fm takes nothing returns boolean
return(udg_integers04[43]==25)
endfunction
function FM takes nothing returns boolean
return(GetClickedButton()==udg_buttons07[3])
endfunction
function Fn takes nothing returns nothing
if(FM())then
if(Fm())then
call DialogDisplayBJ(true,udg_dialog06,Player(0))
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(("|c00ff0000"+GetPlayerName(Player(0)))+"|r |c00abcfd2has activated Double Xp|r"))
set udg_integers04[43]=50
set udg_integers04[44]='d'
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call SetPlayerHandicapXPBJ(udg_players01[bj_forLoopAIndex],150.)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
else
call DialogDisplayBJ(true,udg_dialog06,Player(0))
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(("|c00ff0000"+GetPlayerName(Player(0)))+"|r |c00abcfd2has de-activated Double Xp|r"))
set udg_integers04[43]=25
set udg_integers04[44]=50
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call SetPlayerHandicapXPBJ(udg_players01[bj_forLoopAIndex],100.)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endif
endif
endfunction
function FN takes nothing returns boolean
return(udg_booleans04[2]==false)
endfunction
function Fo takes nothing returns boolean
return(GetClickedButton()==udg_buttons07[4])
endfunction
function FO takes nothing returns nothing
if(Fo())then
if(FN())then
call DialogDisplayBJ(true,udg_dialog06,Player(0))
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(("|c00ff0000"+GetPlayerName(Player(0)))+"|r |c00abcfd2has activated Noob Humans|r"))
set udg_booleans04[2]=true
else
call DialogDisplayBJ(true,udg_dialog06,Player(0))
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(("|c00ff0000"+GetPlayerName(Player(0)))+"|r |c00abcfd2has de-activated Noob Humans|r"))
set udg_booleans04[2]=false
endif
endif
endfunction
function Fp takes nothing returns boolean
return(udg_booleans04[3]==false)
endfunction
function FP takes nothing returns boolean
return(GetClickedButton()==udg_buttons07[5])
endfunction
function Fq takes nothing returns nothing
if(FP())then
if(Fp())then
call DialogDisplayBJ(true,udg_dialog06,Player(0))
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(("|c00ff0000"+GetPlayerName(Player(0)))+"|r |c00abcfd2has activated Fast Start|r"))
set udg_booleans04[3]=true
else
call DialogDisplayBJ(true,udg_dialog06,Player(0))
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,(("|c00ff0000"+GetPlayerName(Player(0)))+"|r |c00abcfd2has de-activated Fast Start|r"))
set udg_booleans04[3]=false
endif
endif
endfunction
function FQ takes nothing returns nothing
call DialogSetMessage(udg_dialogs02[2],"Choose Your TechTree")
call DialogAddButtonBJ(udg_dialogs02[2],"|c0093c9f4Standard|r |cffffcc00TechTree|r")
set udg_buttons03[1]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs02[2],"|c0000ff7aOrganic|r TechTree")
set udg_buttons03[2]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs02[2],"|c0047b7ffOceanic|r Tech Tree")
set udg_buttons03[3]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs02[2],"|c007f007fHellion|r Tech Tree")
set udg_buttons03[4]=bj_lastCreatedButton
endfunction
function Fr takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[1])
endfunction
function FR takes nothing returns nothing
if(Fr())then
call SetPlayerTechResearchedSwap('R00G',1,GetTriggerPlayer())
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00abcfd2You have choosen the|r |c0093c9f4Standard|r |c00abcfd2Tech Tree|r")
call DialogDisplayBJ(true,udg_dialogs01[1],GetTriggerPlayer())
endif
endfunction
function Fs takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[2])
endfunction
function FS takes nothing returns nothing
if(Fs())then
call SetPlayerTechResearchedSwap('R00F',1,GetTriggerPlayer())
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00abcfd2You have choosen the|r |c0000ff7aOrganic|r |c00abcfd2Tech Tree|r")
call DialogDisplayBJ(true,udg_dialogs01[1],GetTriggerPlayer())
endif
endfunction
function Ft takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[3])
endfunction
function FT takes nothing returns nothing
if(Ft())then
call SetPlayerTechResearchedSwap('R00L',1,GetTriggerPlayer())
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00abcfd2You have choosen the|r |c0047b7ffOceanic|r |c00abcfd2Tech Tree|r")
call DialogDisplayBJ(true,udg_dialogs01[1],GetTriggerPlayer())
endif
endfunction
function Fu takes nothing returns boolean
return(GetClickedButton()==udg_buttons03[4])
endfunction
function FU takes nothing returns nothing
if(Fu())then
call SetPlayerTechResearchedSwap('R00R',1,GetTriggerPlayer())
call SetPlayerTechResearchedSwap('Rura',15,GetTriggerPlayer())
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00abcfd2You have choosen the|r |c007f007fHellion|r |c00abcfd2Tech Tree|r")
call DialogDisplayBJ(true,udg_dialogs01[1],GetTriggerPlayer())
endif
endfunction
function Fv takes nothing returns nothing
call DialogSetMessage(udg_dialogs01[1],"|c00430af4C|r|c004514eah|r|c00461ee0o|r|c004828d6o|r|c004933ccs|r|c004b3dc1e|r|c004c47b7 |r|c004e51adS|r|c00505ba3u|r|c00516699b|r|c0053708ec|r|c00547a84l|r|c0056847aa|r|c00578e70s|r|c00599966s|r|c005aa35b |r|c005cad51F|r|c005eb747o|r|c005fc13dr|r|c0061cb33 |r|c0062d628H|r|c0064e01eu|r|c0065ea14m|r|c0067f40aa|r|c0069fe00n|r |c00ff1000(1/2)|r")
call DialogAddButtonBJ(udg_dialogs01[1],"|c0000e50bBody Builder|r")
set udg_buttons02[0]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[1],"|c00ff5c07Runner|r")
set udg_buttons02[1]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[1],"|c003159ffWizard|r")
set udg_buttons02[2]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[1],"|c00fff713Gold|r |c00af7d3fDigger|r")
set udg_buttons02[3]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[1],"|c00bba8e9Divinity|r")
set udg_buttons02[4]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[1],"|c00ff3806Canadian|r |c00009605Lumberjack|r")
set udg_buttons02[5]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[1],"|c0072a1cdBuisnessMan|r")
set udg_buttons02[6]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[1],"|c00c5230bBeast|r")
set udg_buttons02[7]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[1],"|c00cdcdcdNext Page--->|r")
set udg_buttons02[8]=bj_lastCreatedButton
call DialogSetMessage(udg_dialogs01[2],"|c00430af4C|r|c004514eah|r|c00461ee0o|r|c004828d6o|r|c004933ccs|r|c004b3dc1e|r|c004c47b7 |r|c004e51adS|r|c00505ba3u|r|c00516699b|r|c0053708ec|r|c00547a84l|r|c0056847aa|r|c00578e70s|r|c00599966s|r|c005aa35b |r|c005cad51F|r|c005eb747o|r|c005fc13dr|r|c0061cb33 |r|c0062d628H|r|c0064e01eu|r|c0065ea14m|r")
call DialogAddButtonBJ(udg_dialogs01[2],"|c001a1caeStalker|r")
set udg_buttons02[9]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[2],"|c005b87ffMagician|r")
set udg_buttons02[10]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[2],"|c00ff8c00Thief|r")
set udg_buttons02[11]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[2],"|c00c3ad50Tracker|r")
set udg_buttons02[12]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[2],"|c0070d799HandyMan|r")
set udg_buttons02[13]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[2],"|c0099f6ffHealer|r")
set udg_buttons02[14]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialogs01[2],"|c00cdcdcd<---Previous Page|r")
set udg_buttons02[16]=bj_lastCreatedButton
endfunction
function FV takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function Fw takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(FV())then
call DialogDisplayBJ(true,udg_dialogs01[1],udg_players01[bj_forLoopAIndex])
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function FW takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function Fx takes nothing returns nothing
if(FW())then
call UnitAddAbility(GetEnumUnit(),'A03K')
call SetPlayerTechResearchedSwap('R008',1,GetTriggerPlayer())
call SetUnitUserData(GetEnumUnit(),1)
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c0000e50bBody Builder|r |c00abcfd2Subclass|r"))
endif
endfunction
function FX takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[0])
endfunction
function Fy takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function FY takes nothing returns nothing
if(Fy())then
call SetPlayerTechResearchedSwap('R009',1,GetTriggerPlayer())
call SetUnitUserData(GetEnumUnit(),2)
call UnitAddAbility(GetEnumUnit(),'A03G')
call UnitAddAbility(GetEnumUnit(),'A03L')
call UnitAddAbility(GetEnumUnit(),'A01P')
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c00ff5c07Runner|r |c00abcfd2Subclass|r"))
endif
endfunction
function Fz takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[1])
endfunction
function FZ takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function F0 takes nothing returns nothing
if(FZ())then
call SetPlayerTechResearchedSwap('R007',1,GetTriggerPlayer())
call UnitAddAbility(GetEnumUnit(),'ACf3')
call SetUnitUserData(GetEnumUnit(),3)
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c003159ffWizard|r |c00abcfd2Subclass|r"))
endif
endfunction
function F1 takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[2])
endfunction
function F2 takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function F3 takes nothing returns nothing
if(F2())then
call SetPlayerTechMaxAllowedSwap('Edem',0,GetTriggerPlayer())
call UnitAddAbility(GetEnumUnit(),'A03H')
call SetUnitUserData(GetEnumUnit(),4)
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c00fff713Gold|r |c00af7d3fDigger|r |c00abcfd2Subclass|r"))
endif
endfunction
function F4 takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[3])
endfunction
function F5 takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function F6 takes nothing returns nothing
if(F5())then
call UnitAddAbility(GetEnumUnit(),'A007')
call SetUnitUserData(GetEnumUnit(),5)
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c00bba8e9Divinity|r |c00abcfd2Subclass|r"))
endif
endfunction
function F7 takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[4])
endfunction
function F8 takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function F9 takes nothing returns nothing
if(F8())then
call UnitAddAbility(GetEnumUnit(),'A00S')
call SetUnitUserData(GetEnumUnit(),5)
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c00ff3806Canadian|r |c00009605Lumberjack|r |c00abcfd2Subclass|r"))
endif
endfunction
function ga takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[5])
endfunction
function gA takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function gb takes nothing returns nothing
if(gA())then
call SetPlayerTechMaxAllowedSwap('Rosp',2,GetTriggerPlayer())
call SetPlayerTechResearchedSwap('Rosp',2,GetTriggerPlayer())
call SetUnitUserData(GetEnumUnit(),6)
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c0072a1cdBuisnessMan|r |c00abcfd2Subclass|r"))
endif
endfunction
function gB takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[6])
endfunction
function gc takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function gC takes nothing returns nothing
if(gc())then
call UnitAddAbility(GetEnumUnit(),'A05N')
call SetUnitUserData(GetEnumUnit(),7)
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c00c5230bBeast|r |c00abcfd2Subclass|r"))
endif
endfunction
function gd takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[7])
endfunction
function gD takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[8])
endfunction
function ge takes nothing returns nothing
if(FX())then
call ForGroupBJ(udg_groups03[1],function Fx)
endif
if(Fz())then
call ForGroupBJ(udg_groups03[1],function FY)
endif
if(F1())then
call ForGroupBJ(udg_groups03[1],function F0)
endif
if(F4())then
call ForGroupBJ(udg_groups03[1],function F3)
endif
if(F7())then
call ForGroupBJ(udg_groups03[1],function F6)
endif
if(ga())then
call ForGroupBJ(udg_groups03[1],function F9)
endif
if(gB())then
call ForGroupBJ(udg_groups03[1],function gb)
endif
if(gd())then
call ForGroupBJ(udg_groups03[1],function gC)
endif
if(gD())then
call DialogSetMessage(udg_dialogs01[2],"|c00430af4C|r|c004514eah|r|c00461ee0o|r|c004828d6o|r|c004933ccs|r|c004b3dc1e|r|c004c47b7 |r|c004e51adS|r|c00505ba3u|r|c00516699b|r|c0053708ec|r|c00547a84l|r|c0056847aa|r|c00578e70s|r|c00599966s|r|c005aa35b |r|c005cad51F|r|c005eb747o|r|c005fc13dr|r|c0061cb33 |r|c0062d628H|r|c0064e01eu|r|c0065ea14m|r|c0067f40aa|r|c0069fe00n|r |c00ff1000(2/2)|r")
call DialogDisplayBJ(true,udg_dialogs01[2],GetTriggerPlayer())
endif
endfunction
function gE takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function gf takes nothing returns nothing
if(gE())then
call UnitAddAbility(GetEnumUnit(),'A008')
call SetUnitUserData(GetEnumUnit(),10)
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c001a1caeStalker|r |c00abcfd2Subclass|r"))
endif
endfunction
function gF takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[9])
endfunction
function gg takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function gG takes nothing returns nothing
if(gg())then
call UnitAddAbility(GetEnumUnit(),'A00X')
call SetUnitUserData(GetEnumUnit(),11)
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c005b87ffMagician|r |c00abcfd2Subclass|r"))
endif
endfunction
function gh takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[10])
endfunction
function gH takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function gi takes nothing returns nothing
if(gH())then
call UnitAddAbility(GetEnumUnit(),'A00Y')
call SetUnitUserData(GetEnumUnit(),12)
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c00ff8c00Thief|r |c00abcfd2Subclass|r"))
endif
endfunction
function gI takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[11])
endfunction
function gj takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function gJ takes nothing returns nothing
if(gj())then
call UnitAddAbility(GetEnumUnit(),'A045')
call UnitAddAbility(GetEnumUnit(),'A044')
call SetUnitUserData(GetEnumUnit(),13)
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c00c3ad50Tracker|r |c00abcfd2Subclass|r"))
endif
endfunction
function gk takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[12])
endfunction
function gK takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function gl takes nothing returns nothing
if(gK())then
call UnitRemoveAbility(GetEnumUnit(),'Ahrp')
call UnitAddAbility(GetEnumUnit(),'A05T')
call SetUnitUserData(GetEnumUnit(),14)
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c0070d799HandyMan|r |c00abcfd2Subclass|r"))
endif
endfunction
function gL takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[13])
endfunction
function gm takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function gM takes nothing returns nothing
if(gm())then
call UnitAddAbility(GetEnumUnit(),'A05X')
call UnitAddAbility(GetEnumUnit(),'A05W')
call SetUnitUserData(GetEnumUnit(),15)
call DisplayTextToForce(udg_force02,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected the|r |c0099f6ffHealer|r |c00abcfd2Subclass|r"))
endif
endfunction
function gn takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[14])
endfunction
function gN takes nothing returns boolean
return(GetClickedButton()==udg_buttons02[16])
endfunction
function go takes nothing returns nothing
if(gF())then
call ForGroupBJ(udg_groups03[1],function gf)
endif
if(gh())then
call ForGroupBJ(udg_groups03[1],function gG)
endif
if(gI())then
call ForGroupBJ(udg_groups03[1],function gi)
endif
if(gk())then
call ForGroupBJ(udg_groups03[1],function gJ)
endif
if(gL())then
call ForGroupBJ(udg_groups03[1],function gl)
endif
if(gn())then
call ForGroupBJ(udg_groups03[1],function gM)
endif
if(gN())then
call DialogSetMessage(udg_dialogs01[1],"|c00430af4C|r|c004514eah|r|c00461ee0o|r|c004828d6o|r|c004933ccs|r|c004b3dc1e|r|c004c47b7 |r|c004e51adS|r|c00505ba3u|r|c00516699b|r|c0053708ec|r|c00547a84l|r|c0056847aa|r|c00578e70s|r|c00599966s|r|c005aa35b |r|c005cad51F|r|c005eb747o|r|c005fc13dr|r|c0061cb33 |r|c0062d628H|r|c0064e01eu|r|c0065ea14m|r|c0067f40aa|r|c0069fe00n|r |c00ff1000(1/2)|r")
call DialogDisplayBJ(true,udg_dialogs01[1],GetTriggerPlayer())
endif
endfunction
function gO takes nothing returns nothing
call SetPlayerAbilityAvailableBJ(false,'A02O',GetEnumPlayer())
call SetPlayerAbilityAvailableBJ(false,'A02N',GetEnumPlayer())
call SetPlayerAbilityAvailableBJ(false,'A02L',GetEnumPlayer())
call SetPlayerAbilityAvailableBJ(false,'A02M',GetEnumPlayer())
endfunction
function gp takes nothing returns nothing
call ForForce(bj_FORCE_ALL_PLAYERS,function gO)
call TriggerExecute(udg_trigger88)
endfunction
function gP takes nothing returns nothing
set udg_integers01[0]='A02K'
set udg_integers01[1]='A02J'
set udg_integers01[2]='A03A'
set udg_integers01[10]='A02Y'
set udg_integers01[11]='A03N'
set udg_integers01[12]='A02X'
set udg_integers01[20]='A034'
set udg_integers01[21]='A032'
set udg_integers01[22]='A038'
set udg_integers01[23]='A037'
set udg_integers01[24]='A036'
set udg_integers01[25]='A03U'
set udg_integers01[26]='A02E'
set udg_integers01[40]='A05H'
set udg_integers01[41]='A05A'
set udg_integers01[42]='A03S'
set udg_integers01[43]='A03R'
set udg_integers01[44]='A05M'
set udg_integers01[45]='A02V'
endfunction
function gq takes nothing returns nothing
set udg_integers02[0]='A02R'
set udg_integers02[1]='A02P'
set udg_integers02[2]='A02S'
set udg_integers02[3]='A02Q'
call TriggerExecute(udg_trigger87)
endfunction
function gQ takes nothing returns nothing
call DialogSetMessage(udg_dialog01,"|c003a44a7C|r|c003f4cabh|r|c004553afo|r|c004a5bb3o|r|c005063b7s|r|c00556abce|r|c005a72c0 |r|c00607ac4L|r|c006581c8i|r|c006b89ccg|r|c007091d1h|r|c007598d5t|r|c007ba0d9n|r|c0080a7ddi|r|c0086afe1n|r|c008bb7e5g|r|c0090beea |r|c0096c6eeS|r|c009bcef2p|r|c00a1d5f6e|r|c00a6ddfal|r|c00abe4ffl|r")
call DialogAddButtonBJ(udg_dialog01,"|c003c48a9C|r|c004453afh|r|c004c5eb5a|r|c005469bbi|r|c005c75c1n|r|c006480c7 |r|c006c8bcdL|r|c007496d4i|r|c007ca1dag|r|c0084ace0h|r|c008cb8e6t|r|c0094c3ecn|r|c009ccef2i|r|c00a4d9f8n|r|c00ace4feg|r")
set udg_buttons08[1]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog01,"|c003c47a8F|r|c004352aeo|r|c004b5cb4r|r|c005267bak|r|c005a71bfe|r|c00617cc5d|r|c006986cb |r|c007091d1L|r|c00779bd6i|r|c007fa6dcg|r|c0086b0e2h|r|c008ebbe8t|r|c0095c5edn|r|c009dd0f3i|r|c00a4daf9n|r|c00ace5ffg|r")
set udg_buttons08[2]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog01,"|c004655b0M|r|c00576dbdo|r|c006885can|r|c00799dd7s|r|c008ab5e4o|r|c009bcdf1o|r|c00ace5fen|r")
set udg_buttons08[3]=bj_lastCreatedButton
call DialogDisplayBJ(true,udg_dialog01,Player(10))
call DialogDisplayBJ(true,udg_dialog01,Player(11))
call DialogSetMessage(udg_dialog02,"|c00a3e6f2C|r|c009ae7e6h|r|c0092e8dao|r|c0089eaceo|r|c0081ebc2s|r|c0078ecb6e|r|c006feea9 |r|c0067ef9dH|r|c005ef091e|r|c0056f285a|r|c004df379l|r|c0044f46di|r|c003cf561n|r|c0033f754g|r|c002bf848 |r|c0022f93cS|r|c0019fb30p|r|c0011fc24e|r|c0008fd18l|r|c0000ff0bl|r")
call DialogAddButtonBJ(udg_dialog02,"|c009fe6edH|r|c0093e8dce|r|c0087eacaa|r|c007aecb9l|r|c006eeea8i|r|c0062f096n|r|c0056f285g|r|c0049f374 |r|c003df562B|r|c0031f751r|r|c0024f940e|r|c0018fb2ea|r|c000cfd1dt|r|c0000ff0ch|r")
set udg_buttons09[1]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"|c009ee7ecH|r|c0091e9d9e|r|c0084ebc6a|r|c0077edb4l|r|c0069efa1i|r|c005cf18en|r|c004ff37cg|r|c0042f569 |r|c0034f756S|r|c0027f944p|r|c001afb31e|r|c000dfd1el|r|c0000ff0cl|r")
set udg_buttons09[2]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog02,"|c009de7eaH|r|c008fe9d6e|r|c0080ebc2a|r|c0072edael|r|c0064ef99i|r|c0055f185n|r|c0047f471g|r|c0039f65d |r|c002af848W|r|c001cfa34a|r|c000efc20v|r|c0000ff0ce|r")
set udg_buttons09[3]=bj_lastCreatedButton
call DialogSetMessage(udg_dialog03,"|c0000f515C|r|c0000ec1eh|r|c0000e328o|r|c0000d931o|r|c0000d03as|r|c0000c744e|r|c0000be4d |r|c0000b456M|r|c0000ab60i|r|c0000a269s|r|c00009972c|r|c00008f7ce|r|c00008685l|r|c00007d8el|r|c00007398a|r|c00006aa1n|r|c000061aae|r|c000058b4o|r|c00004ebdu|r|c000045c6s|r|c00003cd0 |r|c000033d9S|r|c000029e2p|r|c000020ece|r|c000017f5l|r|c00000dfel|r")
call DialogAddButtonBJ(udg_dialog03,"|c0000e922S|r|c0000d338h|r|c0000bd4ea|r|c0000a764d|r|c0000917ao|r|c00007b90w|r|c000065a6 |r|c00004fbcA|r|c000039d2r|r|c000023e8t|r|c00000effs|r")
set udg_buttons01[0]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"|c0000e922F|r|c0000d338r|r|c0000bd4eo|r|c0000a764s|r|c0000917at|r|c00007b90 |r|c000065a6A|r|c00004fbcr|r|c000039d2m|r|c000023e8o|r|c00000effr|r")
set udg_buttons01[1]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"|c0000ec1eH|r|c0000d931a|r|c0000c744r|r|c0000b456d|r|c0000a269e|r|c00008f7cn|r|c00007d8ee|r|c00006aa1d|r|c000058b4 |r|c000045c6S|r|c000033d9k|r|c000020eci|r|c00000dfen|r")
set udg_buttons01[2]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"|c0000e624B|r|c0000ce3ca|r|c0000b654t|r|c00009e6d |r|c00008685A|r|c00006e9dt|r|c000056b6t|r|c00003ecea|r|c000026e6c|r|c00000effk|r")
set udg_buttons01[3]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"|c0000e427W|r|c0000c942i|r|c0000ae5dn|r|c00009378d|r|c00007993 |r|c00005eaeW|r|c000043c9a|r|c000028e4l|r|c00000effk|r")
set udg_buttons01[4]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"|c0000f01aS|r|c0000e228u|r|c0000d436m|r|c0000c645m|r|c0000b853o|r|c0000a961n|r|c00009b70 |r|c00008d7eH|r|c00007f8ce|r|c0000719al|r|c000063a9l|r|c000054b7 |r|c000046c5H|r|c000038d4o|r|c00002ae2u|r|c00001cf0n|r|c00000dfed|r")
set udg_buttons01[5]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog03,"|c0000e922B|r|c0000d338a|r|c0000bd4et|r|c0000a764t|r|c0000917al|r|c00007b90e|r|c000065a6 |r|c00004fbcR|r|c000039d2u|r|c000023e8s|r|c00000effh|r")
set udg_buttons01[6]=bj_lastCreatedButton
call DialogSetMessage(udg_dialog04,"|c000b0ef3C|r|c00160ee8h|r|c00210fddo|r|c002c0fd2o|r|c003710c7s|r|c004210bce|r|c004d11b1 |r|c005811a6U|r|c0063119bl|r|c006e1290t|r|c00791285i|r|c00851379m|r|c0090136ea|r|c009b1463t|r|c00a61458e|r|c00b1144d |r|c00bc1542A|r|c00c71537b|r|c00d2162ci|r|c00dd1621l|r|c00e81716i|r|c00f3170bt|r|c00fe1800y|r")
call DialogAddButtonBJ(udg_dialog04,"|c00120eecD|r|c00240fdae|r|c003610c8m|r|c004810b6o|r|c005b11a3n|r|c006d1291i|r|c007f137fc|r|c0091136d |r|c00a3145bS|r|c00b61548t|r|c00c81536r|r|c00da1624i|r|c00ec1712k|r|c00ff1800e|r")
set udg_buttons04[0]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog04,"|c00130eebD|r|c00270fd7e|r|c003a10c4m|r|c004e11b0o|r|c0062119cn|r|c00751289i|r|c00891375c|r|c009c1462 |r|c00b0144eB|r|c00c4153al|r|c00d71627a|r|c00eb1713s|r|c00ff1800t|r")
set udg_buttons04[1]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog04,"|c00240fdaI|r|c004810b6n|r|c006d1291f|r|c0091136de|r|c00b61548r|r|c00da1624n|r|c00ff1800o|r")
set udg_buttons04[2]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog04,"|c000c0ef2S|r|c00190fe5t|r|c00260fd8r|r|c003310ccu|r|c003f10bfc|r|c004c11b2t|r|c005911a5u|r|c00661299r|r|c0072128ce|r|c007f137f |r|c008c1372I|r|c00991466m|r|c00a51459m|r|c00b2154co|r|c00bf153fl|r|c00cc1633a|r|c00d81626t|r|c00e51719i|r|c00f2170co|r|c00ff1800n|r")
set udg_buttons04[3]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog04,"|c00150ee9D|r|c002a0fd4e|r|c003f10bfa|r|c005511aat|r|c006a1294h|r|c007f127f |r|c0094136aS|r|c00aa1455h|r|c00bf153fo|r|c00d4162aw|r|c00e91715e|r|c00ff1700r|r")
set udg_buttons04[4]=bj_lastCreatedButton
call DialogAddButtonBJ(udg_dialog04,"|c00120eecB|r|c00240fdal|r|c003610c8o|r|c004810b6o|r|c005b11a3d|r|c006d1291 |r|c007f137fT|r|c0091136dr|r|c00a3145ba|r|c00b61548c|r|c00c81536k|r|c00da1624i|r|c00ec1712n|r|c00ff1800g|r")
set udg_buttons04[5]=bj_lastCreatedButton
endfunction
function gr takes nothing returns nothing
call SetHeroLevelBJ(GetEnumUnit(),2,false)
call UnitAddAbility(GetEnumUnit(),udg_integers02[0])
call UnitAddAbility(GetEnumUnit(),udg_integers01[0])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[0])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[0])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Chain Lightning as their Lighting Ability|r"))
call DialogDisplayBJ(true,udg_dialog02,GetTriggerPlayer())
endfunction
function gR takes nothing returns boolean
return(GetClickedButton()==udg_buttons08[1])
endfunction
function gs takes nothing returns nothing
call SetHeroLevelBJ(GetEnumUnit(),2,false)
call UnitAddAbility(GetEnumUnit(),udg_integers02[0])
call UnitAddAbility(GetEnumUnit(),udg_integers01[1])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[1])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[0])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Forked Lightning as their Lighting Ability|r"))
call DialogDisplayBJ(true,udg_dialog02,GetTriggerPlayer())
endfunction
function gS takes nothing returns boolean
return(GetClickedButton()==udg_buttons08[2])
endfunction
function gt takes nothing returns nothing
call SetHeroLevelBJ(GetEnumUnit(),2,false)
call UnitAddAbility(GetEnumUnit(),udg_integers02[0])
call UnitAddAbility(GetEnumUnit(),udg_integers01[2])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[2])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[0])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Monsoon as their Lighting Ability|r"))
call DialogDisplayBJ(true,udg_dialog02,GetTriggerPlayer())
endfunction
function gT takes nothing returns boolean
return(GetClickedButton()==udg_buttons08[3])
endfunction
function gu takes nothing returns nothing
if(gR())then
set udg_group02=dZ(GetTriggerPlayer(),'Eevi')
call ForGroupBJ(udg_group02,function gr)
call DestroyGroup(udg_group02)
endif
if(gS())then
set udg_group02=dZ(GetTriggerPlayer(),'Eevi')
call ForGroupBJ(udg_group02,function gs)
call DestroyGroup(udg_group02)
endif
if(gT())then
set udg_group02=dZ(GetTriggerPlayer(),'Eevi')
call ForGroupBJ(udg_group02,function gt)
call DestroyGroup(udg_group02)
endif
endfunction
function gU takes nothing returns nothing
call UnitAddAbility(GetEnumUnit(),udg_integers02[1])
call UnitAddAbility(GetEnumUnit(),udg_integers01[10])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[10])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[1])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Healing Breath as their Healing Ability|r"))
call DialogDisplayBJ(true,udg_dialog03,GetTriggerPlayer())
endfunction
function gv takes nothing returns boolean
return(GetClickedButton()==udg_buttons09[1])
endfunction
function gV takes nothing returns nothing
call UnitAddAbility(GetEnumUnit(),udg_integers02[1])
call UnitAddAbility(GetEnumUnit(),udg_integers01[11])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[11])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[1])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Vampiric Healing Spell As their Healing ability|r"))
call DialogDisplayBJ(true,udg_dialog03,GetTriggerPlayer())
endfunction
function gw takes nothing returns boolean
return(GetClickedButton()==udg_buttons09[2])
endfunction
function gW takes nothing returns nothing
call UnitAddAbility(GetEnumUnit(),udg_integers02[1])
call UnitAddAbility(GetEnumUnit(),udg_integers01[12])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[12])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[1])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Healing Wave as their Healing Ability|r"))
call DialogDisplayBJ(true,udg_dialog03,GetTriggerPlayer())
endfunction
function gx takes nothing returns boolean
return(GetClickedButton()==udg_buttons09[3])
endfunction
function gX takes nothing returns nothing
if(gv())then
set udg_group02=dZ(GetTriggerPlayer(),'Eevi')
call ForGroupBJ(udg_group02,function gU)
call DestroyGroup(udg_group02)
endif
if(gw())then
set udg_group02=dZ(GetTriggerPlayer(),'Eevi')
call ForGroupBJ(udg_group02,function gV)
call DestroyGroup(udg_group02)
endif
if(gx())then
set udg_group02=dZ(GetTriggerPlayer(),'Eevi')
call ForGroupBJ(udg_group02,function gW)
call DestroyGroup(udg_group02)
endif
endfunction
function gy takes nothing returns nothing
call UnitAddAbility(GetEnumUnit(),udg_integers02[2])
call UnitAddAbility(GetEnumUnit(),udg_integers01[20])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[20])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[2])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Shadow Arts as their Miscellaneous Ability|r"))
call DialogDisplayBJ(true,udg_dialog04,GetTriggerPlayer())
endfunction
function gY takes nothing returns boolean
return(GetClickedButton()==udg_buttons01[0])
endfunction
function gz takes nothing returns nothing
if(gY())then
set udg_group02=dZ(GetTriggerPlayer(),'Eevi')
call ForGroupBJ(udg_group02,function gy)
call DestroyGroup(udg_group02)
endif
endfunction
function gZ takes nothing returns nothing
call UnitAddAbility(GetEnumUnit(),udg_integers02[2])
call UnitAddAbility(GetEnumUnit(),udg_integers01[21])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[21])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[2])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Frost Armor as their Miscellaneous Ability|r"))
call DialogDisplayBJ(true,udg_dialog04,GetTriggerPlayer())
endfunction
function g0 takes nothing returns boolean
return(GetClickedButton()==udg_buttons01[1])
endfunction
function g1 takes nothing returns nothing
if(g0())then
set udg_group02=dZ(GetTriggerPlayer(),'Eevi')
call ForGroupBJ(udg_group02,function gZ)
call DestroyGroup(udg_group02)
endif
endfunction
function g2 takes nothing returns nothing
call UnitAddAbility(GetEnumUnit(),udg_integers02[2])
call UnitAddAbility(GetEnumUnit(),udg_integers01[22])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[22])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[2])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Hardened Skin as their Miscellaneous Ability|r"))
call DialogDisplayBJ(true,udg_dialog04,GetTriggerPlayer())
endfunction
function g3 takes nothing returns boolean
return(GetClickedButton()==udg_buttons01[2])
endfunction
function g4 takes nothing returns nothing
if(g3())then
set udg_group02=dZ(GetTriggerPlayer(),'Eevi')
call ForGroupBJ(udg_group02,function g2)
call DestroyGroup(udg_group02)
endif
endfunction
function g5 takes nothing returns nothing
call UnitAddAbility(GetEnumUnit(),udg_integers02[2])
call UnitAddAbility(GetEnumUnit(),udg_integers01[23])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[23])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[2])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Bat Attack as their Miscellaneous Ability|r"))
call DialogDisplayBJ(true,udg_dialog04,GetTriggerPlayer())
endfunction
function g6 takes nothing returns boolean
return(GetClickedButton()==udg_buttons01[3])
endfunction
function g7 takes nothing returns nothing
if(g6())then
set udg_group02=dZ(GetTriggerPlayer(),'Eevi')
call ForGroupBJ(udg_group02,function g5)
call DestroyGroup(udg_group02)
endif
endfunction
function g8 takes nothing returns nothing
call UnitAddAbility(GetEnumUnit(),udg_integers02[2])
call UnitAddAbility(GetEnumUnit(),udg_integers01[24])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[24])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[2])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Wind Walk as their Miscellaneous Ability|r"))
call DialogDisplayBJ(true,udg_dialog04,GetTriggerPlayer())
endfunction
function g9 takes nothing returns boolean
return(GetClickedButton()==udg_buttons01[4])
endfunction
function Ga takes nothing returns nothing
if(g9())then
set udg_group02=dZ(GetTriggerPlayer(),'Eevi')
call ForGroupBJ(udg_group02,function g8)
call DestroyGroup(udg_group02)
endif
endfunction
function GA takes nothing returns nothing
call UnitAddAbility(GetEnumUnit(),udg_integers02[2])
call UnitAddAbility(GetEnumUnit(),udg_integers01[25])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[25])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[2])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Summon Hell Hounds as their Miscellaneous Ability|r"))
call DialogDisplayBJ(true,udg_dialog04,GetTriggerPlayer())
endfunction
function Gb takes nothing returns boolean
return(GetClickedButton()==udg_buttons01[5])
endfunction
function GB takes nothing returns nothing
if(Gb())then
set udg_group02=dZ(GetTriggerPlayer(),'Eevi')
call ForGroupBJ(udg_group02,function GA)
call DestroyGroup(udg_group02)
endif
endfunction
function Gc takes nothing returns nothing
call UnitAddAbility(GetEnumUnit(),udg_integers02[2])
call UnitAddAbility(GetEnumUnit(),udg_integers01[26])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[26])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[2])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Battle Rush as their Miscellaneous Ability|r"))
call DialogDisplayBJ(true,udg_dialog04,GetTriggerPlayer())
endfunction
function GC takes nothing returns boolean
return(GetClickedButton()==udg_buttons01[6])
endfunction
function Gd takes nothing returns nothing
if(GC())then
set udg_group02=dZ(GetTriggerPlayer(),'Eevi')
call ForGroupBJ(udg_group02,function Gc)
call DestroyGroup(udg_group02)
endif
endfunction
function GD takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function Ge takes nothing returns nothing
if(GD())then
call UnitAddAbility(GetEnumUnit(),udg_integers02[3])
call UnitAddAbility(GetEnumUnit(),udg_integers01[40])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[40])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[3])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Demonic Strike as their Ultimate Ability|r"))
endif
endfunction
function GE takes nothing returns boolean
return(GetClickedButton()==udg_buttons04[0])
endfunction
function Gf takes nothing returns nothing
if(GE())then
call ForGroupBJ(udg_groups03[5],function Ge)
endif
endfunction
function GF takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function Gg takes nothing returns nothing
if(GF())then
call UnitAddAbility(GetEnumUnit(),udg_integers02[3])
call UnitAddAbility(GetEnumUnit(),udg_integers01[41])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[41])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[3])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Demonic Blast as their Ultimate Ability|r"))
endif
endfunction
function GG takes nothing returns boolean
return(GetClickedButton()==udg_buttons04[1])
endfunction
function Gh takes nothing returns nothing
if(GG())then
call ForGroupBJ(udg_groups03[5],function Gg)
endif
endfunction
function GH takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function Gi takes nothing returns nothing
if(GH())then
call UnitAddAbility(GetEnumUnit(),udg_integers02[3])
call UnitAddAbility(GetEnumUnit(),udg_integers01[42])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[42])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[3])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Inferno as their Ultimate Ability|r"))
endif
endfunction
function GI takes nothing returns boolean
return(GetClickedButton()==udg_buttons04[2])
endfunction
function Gj takes nothing returns nothing
if(GI())then
call ForGroupBJ(udg_groups03[5],function Gi)
endif
endfunction
function GJ takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function Gk takes nothing returns nothing
if(GJ())then
call UnitAddAbility(GetEnumUnit(),udg_integers02[3])
call UnitAddAbility(GetEnumUnit(),udg_integers01[43])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[43])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[3])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Structure Immolation as their Ultimate Ability|r"))
endif
endfunction
function GK takes nothing returns boolean
return(GetClickedButton()==udg_buttons04[3])
endfunction
function Gl takes nothing returns nothing
if(GK())then
call ForGroupBJ(udg_groups03[5],function Gk)
endif
endfunction
function GL takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function Gm takes nothing returns nothing
if(GL())then
call UnitAddAbility(GetEnumUnit(),udg_integers02[3])
call UnitAddAbility(GetEnumUnit(),udg_integers01[44])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[44])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[3])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Demonic Shower as their Ultimate Ability|r"))
endif
endfunction
function GM takes nothing returns boolean
return(GetClickedButton()==udg_buttons04[4])
endfunction
function Gn takes nothing returns nothing
if(GM())then
call ForGroupBJ(udg_groups03[5],function Gm)
endif
endfunction
function GN takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())==GetTriggerPlayer())
endfunction
function Go takes nothing returns nothing
if(GN())then
call UnitAddAbility(GetEnumUnit(),udg_integers02[3])
call UnitAddAbility(GetEnumUnit(),udg_integers01[45])
call UnitRemoveAbility(GetEnumUnit(),udg_integers01[45])
call UnitRemoveAbility(GetEnumUnit(),udg_integers02[3])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has selected Blood Tracking as their Ultimate Ability|r"))
endif
endfunction
function GO takes nothing returns boolean
return(GetClickedButton()==udg_buttons04[5])
endfunction
function Gp takes nothing returns nothing
if(GO())then
call ForGroupBJ(udg_groups03[5],function Go)
endif
endfunction
function GP takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='e002')
endfunction
function Gq takes nothing returns nothing
call SetUnitVertexColorBJ(GetTriggerUnit(),98.5,100.,39.,40.)
endfunction
function GQ takes nothing returns nothing
call SetUnitVertexColorBJ(GetEnumUnit(),100.,.0,.0,50.)
endfunction
function Gr takes nothing returns boolean
return(udg_integers04[22]==1)
endfunction
function GR takes nothing returns nothing
call SetUnitVertexColorBJ(GetEnumUnit(),.0,.0,100.,50.)
endfunction
function Gs takes nothing returns boolean
return(udg_integers04[22]==2)
endfunction
function GS takes nothing returns nothing
call SetUnitVertexColorBJ(GetEnumUnit(),.0,100.,.0,50.)
endfunction
function Gt takes nothing returns boolean
return(udg_integers04[22]==3)
endfunction
function GT takes nothing returns nothing
call SetUnitVertexColorBJ(GetEnumUnit(),.0,50.,100.,50.)
endfunction
function Gu takes nothing returns boolean
return(udg_integers04[22]==4)
endfunction
function GU takes nothing returns nothing
call SetUnitVertexColorBJ(GetEnumUnit(),100.,50.,100.,50.)
endfunction
function Gv takes nothing returns boolean
return(udg_integers04[22]==5)
endfunction
function GV takes nothing returns nothing
call SetUnitVertexColorBJ(GetEnumUnit(),50.,.0,100.,50.)
endfunction
function Gw takes nothing returns boolean
return(udg_integers04[22]==6)
endfunction
function GW takes nothing returns nothing
set udg_integers04[22]=GetRandomInt(1,6)
if(Gr())then
set udg_group02=dX('h01D')
call ForGroupBJ(udg_group02,function GQ)
call DestroyGroup(udg_group02)
endif
if(Gs())then
set udg_group02=dX('h01D')
call ForGroupBJ(udg_group02,function GR)
call DestroyGroup(udg_group02)
endif
if(Gt())then
set udg_group02=dX('h01D')
call ForGroupBJ(udg_group02,function GS)
call DestroyGroup(udg_group02)
endif
if(Gu())then
set udg_group02=dX('h01D')
call ForGroupBJ(udg_group02,function GT)
call DestroyGroup(udg_group02)
endif
if(Gv())then
set udg_group02=dX('h01D')
call ForGroupBJ(udg_group02,function GU)
call DestroyGroup(udg_group02)
endif
if(Gw())then
set udg_group02=dX('h01D')
call ForGroupBJ(udg_group02,function GV)
call DestroyGroup(udg_group02)
endif
endfunction
function Gx takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),udg_force01))and(IsUnitIdType(GetUnitTypeId(GetKillingUnit()),UNIT_TYPE_HERO))
endfunction
function GX takes nothing returns nothing
if(Gx())then
call AddHeroXPSwapped(1000,GetKillingUnit(),false)
call AdjustPlayerStateBJ(50,GetOwningPlayer(GetKillingUnit()),PLAYER_STATE_RESOURCE_GOLD)
else
call KillUnit(GetKillingUnit())
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]+", |c00abcfd2Why did you kill The nice French Man?|r"))
call TriggerSleepAction(.5)
call SetPlayerStateBJ(GetOwningPlayer(GetKillingUnit()),PLAYER_STATE_RESOURCE_GOLD,0)
call SetPlayerStateBJ(GetOwningPlayer(GetKillingUnit()),PLAYER_STATE_RESOURCE_LUMBER,(GetPlayerState(GetOwningPlayer(GetKillingUnit()),PLAYER_STATE_RESOURCE_LUMBER)/2))
endif
endfunction
function Gy takes nothing returns boolean
return(GetUnitTypeId(GetEnteringUnit())=='Hblm')or(GetUnitTypeId(GetEnteringUnit())=='Edem')
endfunction
function GY takes nothing returns boolean
return(Gy())
endfunction
function Gz takes nothing returns nothing
call SetHeroLevelBJ(GetTriggerUnit(),(GetHeroLevel(GetTriggerUnit())+1),false)
endfunction
function GZ takes nothing returns nothing
set udg_integers04[43]=25
set udg_integers04[44]=50
endfunction
function G0 takes nothing returns boolean
return(IsUnitType(GetKillingUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),udg_force01))and(IsPlayerInForce(GetOwningPlayer(GetDyingUnit()),udg_force02))and(IsUnitType(GetDyingUnit(),UNIT_TYPE_STRUCTURE))
endfunction
function G1 takes nothing returns boolean
return(G0())
endfunction
function G2 takes nothing returns nothing
call AddHeroXPSwapped(GetRandomInt((GetUnitPointValue(GetDyingUnit())*udg_integers04[43]),(GetUnitPointValue(GetDyingUnit())*udg_integers04[44])),GetKillingUnit(),false)
endfunction
function G3 takes nothing returns boolean
return(IsUnitType(GetKillingUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),udg_force01))and(IsPlayerInForce(GetOwningPlayer(GetDyingUnit()),udg_force02))and(IsUnitType(GetDyingUnit(),UNIT_TYPE_STRUCTURE))
endfunction
function G4 takes nothing returns boolean
return(G3())
endfunction
function G5 takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='n001')
endfunction
function G6 takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='n003')
endfunction
function G7 takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='n00X')
endfunction
function G8 takes nothing returns nothing
if(G5())then
call AddHeroXPSwapped(200,GetKillingUnit(),false)
endif
if(G6())then
call AddHeroXPSwapped(10000,GetKillingUnit(),false)
endif
if(G7())then
call AddHeroXPSwapped(5000,GetKillingUnit(),false)
call ModifyHeroStat(0,GetKillingUnit(),0,500)
endif
endfunction
function G9 takes nothing returns boolean
return(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(GetOwningPlayer(GetTriggerUnit())!=Player(10))and(GetOwningPlayer(GetTriggerUnit())!=Player(11))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function ha takes nothing returns boolean
return(G9())
endfunction
function hA takes nothing returns nothing
call SetHeroLevelBJ(GetTriggerUnit(),(GetHeroLevel(GetTriggerUnit())+1),false)
endfunction
function hb takes nothing returns boolean
return(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(GetOwningPlayer(GetTriggerUnit())!=Player(10))and(GetOwningPlayer(GetTriggerUnit())!=Player(11))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function hB takes nothing returns boolean
return(hb())
endfunction
function hc takes nothing returns nothing
call ModifyHeroStat(0,GetTriggerUnit(),0,50)
call ModifyHeroStat(1,GetTriggerUnit(),0,50)
call ModifyHeroStat(2,GetTriggerUnit(),0,50)
endfunction
function hC takes nothing returns boolean
return(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(GetOwningPlayer(GetTriggerUnit())!=Player(10))and(GetOwningPlayer(GetTriggerUnit())!=Player(11))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function hd takes nothing returns boolean
return(hC())
endfunction
function hD takes nothing returns nothing
call SetHeroLevelBJ(GetTriggerUnit(),(GetHeroLevel(GetTriggerUnit())+4),false)
call ModifyHeroStat(0,GetTriggerUnit(),0,(udg_integer04*5))
call ModifyHeroStat(1,GetTriggerUnit(),0,(udg_integer04*5))
call ModifyHeroStat(2,GetTriggerUnit(),0,(udg_integer04*5))
endfunction
function he takes nothing returns boolean
return(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(GetOwningPlayer(GetTriggerUnit())!=Player(10))and(GetOwningPlayer(GetTriggerUnit())!=Player(11))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function hE takes nothing returns boolean
return(he())
endfunction
function hf takes nothing returns boolean
return(udg_booleans02[3])
endfunction
function hF takes nothing returns nothing
call SetHeroLevelBJ(GetTriggerUnit(),(GetHeroLevel(GetTriggerUnit())+10),false)
call ModifyHeroStat(0,GetTriggerUnit(),0,(udg_integer04*12))
call ModifyHeroStat(1,GetTriggerUnit(),0,(udg_integer04*12))
call ModifyHeroStat(2,GetTriggerUnit(),0,(udg_integer04*12))
if(hf())then
call UnitAddItemByIdSwapped('I01S',GetTriggerUnit())
call SetItemDroppable(dd(GetTriggerUnit(),'I01S'),false)
endif
endfunction
function hg takes nothing returns nothing
call EnableTrigger(udg_trigger113)
call TriggerSleepAction(420.)
call DisableTrigger(udg_trigger112)
call EnableTrigger(udg_trigger114)
call PlayThematicMusic("Sound\\Music\\mp3Music\\LichKingTheme.mp3")
call SetCineModeVolumeGroupsBJ()
call PlaySoundBJ(udg_sound17)
call TriggerSleepAction(4.)
call VolumeGroupResetBJ()
call TriggerSleepAction(1196.)
call DisableTrigger(udg_trigger114)
call EnableTrigger(udg_trigger115)
call PlayThematicMusic("Sound\\Music\\mp3Music\\LichKingTheme.mp3")
call SetCineModeVolumeGroupsBJ()
call PlaySoundBJ(udg_sound17)
call TriggerSleepAction(3.8)
call VolumeGroupResetBJ()
endfunction
function hG takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I041')and(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force02))
endfunction
function hh takes nothing returns boolean
return(hG())
endfunction
function hH takes nothing returns nothing
call SetHeroLevelBJ(GetManipulatingUnit(),(GetHeroLevel(GetManipulatingUnit())+2),true)
endfunction
function hi takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I042')and(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force02))
endfunction
function hI takes nothing returns boolean
return(hi())
endfunction
function hj takes nothing returns nothing
call SetHeroLevelBJ(GetManipulatingUnit(),(GetHeroLevel(GetManipulatingUnit())+3),true)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,20.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+"'|c00abcfd2s slayer has picked up an evil vampire heart. I wonder if anything will happen?"))
endfunction
function hJ takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I042')and(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force02))
endfunction
function hk takes nothing returns boolean
return(hJ())
endfunction
function hK takes nothing returns boolean
return(udg_integer02==1)
endfunction
function hl takes nothing returns nothing
set udg_integer02=GetRandomInt(1,3)
if(hK())then
call DisableTrigger(GetTriggeringTrigger())
call TriggerSleepAction(30.)
call SetHeroLevelBJ(GetTriggerUnit(),(GetHeroLevel(GetTriggerUnit())+5),false)
call SetUnitColor(GetTriggerUnit(),ConvertPlayerColor(12))
call UnitShareVisionBJ(true,GetTriggerUnit(),Player(10))
call UnitShareVisionBJ(true,GetTriggerUnit(),Player(11))
call ModifyHeroStat(0,GetTriggerUnit(),0,550)
call ModifyHeroStat(1,GetTriggerUnit(),0,750)
call ModifyHeroStat(2,GetTriggerUnit(),0,500)
set udg_unit01=GetTriggerUnit()
call TriggerSleepAction(5.)
endif
endfunction
function hL takes nothing returns nothing
call ExplodeUnitBJ(udg_unit01)
call DisplayTextToForce(d0(GetOwningPlayer(udg_unit01)),"|c00abcfd2The Darkness Within Has killed Your Slayer. I knew picking up that Evil Heart was a bad idea|r")
endfunction
function hm takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I043')and(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force02))
endfunction
function hM takes nothing returns boolean
return(hm())
endfunction
function hn takes nothing returns nothing
call SetHeroLevelBJ(GetManipulatingUnit(),(GetHeroLevel(GetManipulatingUnit())+5),true)
endfunction
function hN takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetManipulatingUnit()),udg_force01))and(GetItemTypeId(GetManipulatedItem())=='I043')
endfunction
function ho takes nothing returns boolean
return(hN())
endfunction
function hO takes nothing returns nothing
set udg_integers04[23]=GetItemUserData(GetManipulatedItem())
call RemoveItem(GetManipulatedItem())
call CreateItemLoc('I043',udg_locations01[udg_integers04[23]])
call SetItemInvulnerable(bj_lastCreatedItem,true)
set udg_items01[udg_integers04[23]]=bj_lastCreatedItem
call SetItemUserData(udg_items01[udg_integers04[23]],udg_integers04[23])
endfunction
function hp takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetManipulatingUnit()),udg_force01))and(GetItemTypeId(GetManipulatedItem())=='I041')
endfunction
function hP takes nothing returns boolean
return(hp())
endfunction
function hq takes nothing returns nothing
set udg_integers04[23]=GetItemUserData(GetManipulatedItem())
call RemoveItem(GetManipulatedItem())
call CreateItemLoc('I041',udg_locations01[udg_integers04[23]])
call SetItemInvulnerable(bj_lastCreatedItem,true)
set udg_items01[udg_integers04[23]]=bj_lastCreatedItem
call SetItemUserData(udg_items01[udg_integers04[23]],udg_integers04[23])
endfunction
function hQ takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetManipulatingUnit()),udg_force01))and(GetItemTypeId(GetManipulatedItem())=='I042')
endfunction
function hr takes nothing returns boolean
return(hQ())
endfunction
function hR takes nothing returns nothing
set udg_integers04[23]=GetItemUserData(GetManipulatedItem())
call RemoveItem(GetManipulatedItem())
call CreateItemLoc('I042',udg_locations01[udg_integers04[23]])
call SetItemInvulnerable(bj_lastCreatedItem,true)
set udg_items01[udg_integers04[23]]=bj_lastCreatedItem
call SetItemUserData(udg_items01[udg_integers04[23]],udg_integers04[23])
endfunction
function hs takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='Eevi')
endfunction
function hS takes nothing returns nothing
call GroupRemoveUnit(udg_groups03[4],GetTriggerUnit())
call GroupRemoveUnit(udg_groups03[5],GetTriggerUnit())
call PlaySoundBJ(udg_sound05)
set udg_locations01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=GetUnitLoc(GetDyingUnit())
call CreateItemLoc('I043',udg_locations01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))])
call SetItemInvulnerable(bj_lastCreatedItem,true)
set udg_items01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=bj_lastCreatedItem
call SetItemUserData(udg_items01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))],(1+GetPlayerId(GetOwningPlayer(GetDyingUnit()))))
call TerrainDeformationRippleBJ(2.,false,udg_locations01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))],10.,1024,5000.,1,75.)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]+" (Nosferatu) has been defeated."))
endfunction
function ht takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())!='Utic')and(IsPlayerInForce(GetOwningPlayer(GetDyingUnit()),udg_force01))and(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(GetUnitTypeId(GetDyingUnit())!='Eevi')
endfunction
function hT takes nothing returns boolean
return(ht())
endfunction
function hu takes nothing returns boolean
return(udg_integer01==1)
endfunction
function hU takes nothing returns nothing
call GroupRemoveUnit(udg_groups03[3],GetTriggerUnit())
call GroupRemoveUnit(udg_groups03[5],GetTriggerUnit())
set udg_integer01=GetRandomInt(1,4)
if(hu())then
call PlaySoundBJ(udg_sound05)
set udg_locations01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=GetUnitLoc(GetDyingUnit())
call CreateItemLoc('I042',udg_locations01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))])
set udg_items01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=bj_lastCreatedItem
call SetItemUserData(udg_items01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))],(1+GetPlayerId(GetOwningPlayer(GetDyingUnit()))))
call SetItemInvulnerable(udg_items01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))],true)
call TerrainDeformationRippleBJ(2.,false,udg_locations01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))],10.,1024,5000.,1,75.)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]+" (Vampire) has been defeated."))
else
call PlaySoundBJ(udg_sound05)
set udg_locations01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=GetUnitLoc(GetDyingUnit())
call CreateItemLoc('I041',udg_locations01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))])
set udg_items01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]=bj_lastCreatedItem
call SetItemUserData(udg_items01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))],(1+GetPlayerId(GetOwningPlayer(GetDyingUnit()))))
call SetItemInvulnerable(udg_items01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))],true)
call TerrainDeformationRippleBJ(2.,false,udg_locations01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))],10.,1024,5000.,1,75.)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]+" (Vampire) has been defeated."))
endif
endfunction
function hv takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),udg_force01))and(IsPlayerInForce(GetOwningPlayer(GetDyingUnit()),udg_force02))and(GetRandomInt(1,10)<=1)
endfunction
function hV takes nothing returns boolean
return(hv())
endfunction
function hw takes nothing returns nothing
set udg_locations01[13]=GetUnitLoc(GetDyingUnit())
call CreateItemLoc(udg_integers09[GetRandomInt(1,10)],udg_locations01[13])
call RemoveLocation(udg_locations01[13])
endfunction
function hW takes nothing returns boolean
return(udg_integer01==1)
endfunction
function hx takes nothing returns boolean
return(udg_integer01==2)
endfunction
function hX takes nothing returns boolean
return(udg_integer01==3)
endfunction
function hy takes nothing returns boolean
return(udg_integer01==4)
endfunction
function hY takes nothing returns boolean
return(udg_integer01==5)
endfunction
function hz takes nothing returns boolean
return(udg_integer01==6)
endfunction
function hZ takes nothing returns boolean
return(udg_integer01==7)
endfunction
function h0 takes nothing returns boolean
return(udg_integer01==8)
endfunction
function h1 takes nothing returns boolean
return(udg_integer01==9)
endfunction
function h2 takes nothing returns boolean
return(udg_integer01==10)
endfunction
function h3 takes nothing returns boolean
return(udg_integer01==11)
endfunction
function h4 takes nothing returns boolean
return(udg_integer01==12)
endfunction
function h5 takes nothing returns boolean
return(udg_integer01==13)
endfunction
function h6 takes nothing returns boolean
return(udg_integer01==14)
endfunction
function h7 takes nothing returns nothing
set udg_integer01=GetRandomInt(1,14)
if(hW())then
call DisplayTimedTextToForce(udg_force02,15.,"|c00abcfd2Building a Slayer vault should only be done when you have enough lumber to build a decent wall|r")
endif
if(hx())then
call DisplayTimedTextToForce(udg_force02,15.,"|c00abcfd2Always grab any items that the vampires leave behind|r")
endif
if(hX())then
call DisplayTimedTextToForce(udg_force02,15.,"|c00abcfd2Slayer's must be leveled if they are to be effective|r")
endif
if(hy())then
call DisplayTimedTextToForce(udg_force02,15.,"|c00abcfd2Upgrade walls, don't mass them|r")
endif
if(hY())then
call DisplayTimedTextToForce(udg_force02,15.,"|c00abcfd2Always have the most advanced workers that you can afford|r")
endif
if(hz())then
call DisplayTimedTextToForce(udg_force01,15.,"|c00abcfd2Increase your income as soon as possible|r")
endif
if(hZ())then
call DisplayTimedTextToForce(udg_force01,15.,"|c00abcfd2Don't kill noob humans they feed you|r")
endif
if(h0())then
call DisplayTimedTextToForce(udg_force01,15.,"|c00abcfd2Never let a human repair a wall, use your lightining skill to distract him|r")
endif
if(h1())then
call DisplayTimedTextToForce(udg_force01,15.,"|c00abcfd2If you find yourself at a low level you should buy tomes of power|r")
endif
if(h2())then
call DisplayTimedTextToForce(udg_force01,15.,"|c00abcfd2Tomes are nice but are not the way to victory|r")
endif
if(h3())then
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,45.,"TRIGSTR_672")
endif
if(h4())then
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,15.,"|c00abcfd2Randomness does not create order|r")
endif
if(h5())then
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,15.,"|c00abcfd2Relativism is a strange idea..... How can something be both true and untrue?|r")
endif
if(h6())then
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"|c00abcfd2Slayers train here|r")
set udg_locations01[14]=GetRectCenter(udg_rect04)
call PingMinimapLocForForce(udg_force01,udg_locations01[14],30.)
call RemoveLocation(udg_locations01[14])
endif
endfunction
function h8 takes nothing returns nothing
set udg_integers09[1]='I001'
set udg_integers09[2]='I002'
set udg_integers09[3]='I004'
set udg_integers09[4]='I005'
set udg_integers09[5]='I007'
set udg_integers09[6]='I006'
set udg_integers09[7]='I009'
set udg_integers09[8]='I00A'
set udg_integers09[9]='I003'
set udg_integers09[10]='I008'
endfunction
function h9 takes nothing returns nothing
call SetPlayerTechMaxAllowedSwap('Hblm',1,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('Edem',1,GetEnumPlayer())
endfunction
function Ha takes nothing returns nothing
call ForForce(bj_FORCE_ALL_PLAYERS,function h9)
endfunction
function HA takes nothing returns boolean
return(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force02))
endfunction
function Hb takes nothing returns boolean
return(HA())
endfunction
function HB takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Hblm')
endfunction
function Hc takes nothing returns nothing
if(HB())then
call SetPlayerTechMaxAllowedSwap('Edem',0,GetOwningPlayer(GetTriggerUnit()))
else
call SetPlayerTechMaxAllowedSwap('Hblm',0,GetOwningPlayer(GetTriggerUnit()))
endif
endfunction
function HC takes nothing returns boolean
return(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force02))
endfunction
function Hd takes nothing returns boolean
return(HC())
endfunction
function HD takes nothing returns nothing
set udg_units04[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=GetEnteringUnit()
endfunction
function He takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Hblm')and(GetHeroLevel(GetTriggerUnit())>=31)
endfunction
function HE takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Edem')and(GetHeroLevel(GetTriggerUnit())>=51)
endfunction
function Hf takes nothing returns nothing
if(He())then
set udg_integers06[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=GetHeroSkillPoints(GetTriggerUnit())
call SetHeroLevelBJ(GetTriggerUnit(),30,false)
call DisplayTimedTextToForce(udg_force02,30,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2the max slayer level is|r |c0000ff2a30|r"))
call ModifyHeroSkillPoints(GetTriggerUnit(),0,udg_integers06[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))])
endif
if(HE())then
set udg_integers06[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=GetHeroSkillPoints(GetTriggerUnit())
call SetHeroLevelBJ(GetTriggerUnit(),50,false)
call DisplayTimedTextToForce(udg_force02,30,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2the max super slayer level is|r |c0000ff2a50|r"))
call ModifyHeroSkillPoints(GetTriggerUnit(),0,udg_integers06[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))])
endif
endfunction
function HF takes nothing returns boolean
return(GetSpellAbilityId()=='AHav')
endfunction
function Hg takes nothing returns nothing
call UnitAddAbility(GetTriggerUnit(),'Aspo')
call TriggerSleepAction(25.)
call UnitRemoveAbility(GetTriggerUnit(),'Aspo')
endfunction
function HG takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Hblm')
endfunction
function Hh takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='Edem')
endfunction
function HH takes nothing returns nothing
if(HG())then
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+" |c00abcfd2has created a slayer|r"))
endif
if(Hh())then
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+" |c00abcfd2has created a super slayer|r"))
endif
endfunction
function Hi takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='Hblm')
endfunction
function HI takes nothing returns boolean
return(GetUnitTypeId(GetDyingUnit())=='Edem')
endfunction
function Hj takes nothing returns nothing
if(Hi())then
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]+(" |c00abcfd2has killed|r "+(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]+"'|c00abcfd2s slayer|r"))))
call SetCineModeVolumeGroupsBJ()
call AddHeroXPSwapped((25*GetHeroLevel(GetDyingUnit())),GetKillingUnit(),true)
call PlaySoundBJ(udg_sound10)
call TriggerSleepAction(2.5)
call VolumeGroupResetBJ()
endif
if(HI())then
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]+(" |c00abcfd2has killed|r "+(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]+"'|c00abcfd2s super slayer|r"))))
call SetCineModeVolumeGroupsBJ()
call AddHeroXPSwapped((25*GetHeroLevel(GetDyingUnit())),GetKillingUnit(),true)
call PlaySoundBJ(udg_sound10)
call TriggerSleepAction(2.5)
call VolumeGroupResetBJ()
endif
endfunction
function HJ takes nothing returns boolean
return(GetSpellAbilityId()=='A01A')
endfunction
function Hk takes nothing returns nothing
call ModifyHeroStat(0,GetSpellAbilityUnit(),0,50)
call ModifyHeroStat(1,GetSpellAbilityUnit(),0,50)
call ModifyHeroStat(2,GetSpellAbilityUnit(),0,50)
endfunction
function HK takes nothing returns boolean
return(GetSpellAbilityId()=='A03V')
endfunction
function Hl takes nothing returns nothing
call ModifyHeroStat(0,GetSpellAbilityUnit(),0,150)
call ModifyHeroStat(1,GetSpellAbilityUnit(),0,150)
call ModifyHeroStat(2,GetSpellAbilityUnit(),0,150)
endfunction
function HL takes nothing returns boolean
return(GetOwningPlayer(GetDyingUnit())==Player(10))and(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))
endfunction
function Hm takes nothing returns boolean
return(GetOwningPlayer(GetDyingUnit())==Player(11))and(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))
endfunction
function HM takes nothing returns nothing
if(HL())then
set udg_booleans01[1]=false
endif
if(Hm())then
set udg_booleans01[2]=false
endif
endfunction
function Hn takes nothing returns boolean
return(udg_booleans01[1])and(udg_booleans01[2])
endfunction
function HN takes nothing returns boolean
return(Hn())
endfunction
function Ho takes nothing returns nothing
call AddHeroXPSwapped(GetHeroXP(GetEnumUnit()),udg_units01[2],false)
endfunction
function HO takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function Hp takes nothing returns nothing
call AdjustPlayerStateBJ(150,Player(11),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ((udg_integer04*15),Player(11),PLAYER_STATE_RESOURCE_GOLD)
set udg_group02=dZ(Player(10),'Eevi')
call ForGroupBJ(udg_group02,function Ho)
call DestroyGroup(udg_group02)
set udg_group02=dz(Player(10))
call ForGroupBJ(udg_group02,function HO)
call DestroyGroup(udg_group02)
set udg_integers04[1]=((((CountPlayersInForceBJ(udg_force02)*0)+150)+(udg_integer04*15))+0)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,((udg_strings01[11]+" |c00abcfd2has left the game and|r ")+((udg_strings01[12]+" |c00abcfd2has been given|r |c00ffff00")+(I2S(udg_integers04[1])+("|r |c00abcfd2gold and all of|r "+(udg_strings01[11]+"'|c00abcfd2s experience points|r"))))))
call DisableTrigger(udg_trigger140)
call DisableTrigger(udg_trigger141)
endfunction
function HP takes nothing returns boolean
return(udg_booleans01[1])and(udg_booleans01[2])
endfunction
function Hq takes nothing returns boolean
return(HP())
endfunction
function HQ takes nothing returns nothing
call AddHeroXPSwapped(GetHeroXP(GetEnumUnit()),udg_units01[1],false)
endfunction
function Hr takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function HR takes nothing returns nothing
call AdjustPlayerStateBJ(150,Player(10),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ((udg_integer04*15),Player(10),PLAYER_STATE_RESOURCE_GOLD)
set udg_group02=dZ(Player(11),'Eevi')
call ForGroupBJ(udg_group02,function HQ)
call DestroyGroup(udg_group02)
set udg_group02=dz(Player(11))
call ForGroupBJ(udg_group02,function Hr)
call DestroyGroup(udg_group02)
set udg_integers04[1]=((((CountPlayersInForceBJ(udg_force02)*0)+150)+(udg_integer04*15))+0)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,((udg_strings01[12]+" |c00abcfd2has left the game and|r ")+((udg_strings01[11]+" |c00abcfd2has been given|r |c00ffff00")+(I2S(udg_integers04[1])+("|r |c00abcfd2gold and all of|r "+(udg_strings01[12]+"'|c00abcfd2s experience points|r"))))))
call DisableTrigger(udg_trigger141)
call DisableTrigger(udg_trigger140)
endfunction
function Hs takes nothing returns boolean
return(IsUnitInGroup(GetDyingUnit(),udg_groups03[1]))
endfunction
function HS takes nothing returns boolean
return(Hs())
endfunction
function Ht takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function HT takes nothing returns boolean
return(dD(GetKillingUnit(),'I019'))
endfunction
function Hu takes nothing returns nothing
call SetPlayerAllianceStateBJ(udg_player01,GetEnumPlayer(),3)
call SetPlayerAllianceStateBJ(GetEnumPlayer(),udg_player01,3)
endfunction
function HU takes nothing returns nothing
call SetPlayerAllianceStateBJ(udg_player01,GetEnumPlayer(),0)
call SetPlayerAllianceStateBJ(GetEnumPlayer(),udg_player01,0)
endfunction
function Hv takes nothing returns nothing
call GroupRemoveUnit(udg_groups03[1],GetDyingUnit())
set udg_player01=GetOwningPlayer(GetDyingUnit())
set udg_integers07[(1+GetPlayerId(udg_player01))]=0
set udg_group03=dz(GetOwningPlayer(GetDyingUnit()))
call ForGroupBJ(udg_group03,function Ht)
call DestroyGroup(udg_group03)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetKillingUnit())))]+(" |c00abcfd2has bitten and successfuly turned|r "+(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetDyingUnit())))]+" |c00abcfd2into a blood sucking vampire|r"))))
set udg_locations02[1]=GetUnitLoc(GetDyingUnit())
set udg_locations02[2]=GetUnitLoc(GetKillingUnit())
call CreateNUnitsAtLocFacingLocBJ(1,'Udre',udg_player01,udg_locations02[1],udg_locations02[2])
call GroupAddUnit(udg_groups03[3],bj_lastCreatedUnit)
call GroupAddUnit(udg_groups03[5],bj_lastCreatedUnit)
if(HT())then
call AddHeroXPSwapped(((GetHeroXP(GetKillingUnit())/10)*3),bj_lastCreatedUnit,false)
call ModifyHeroStat(0,bj_lastCreatedUnit,0,(GetHeroStatBJ(0,GetKillingUnit(),false)/3))
endif
call RemoveLocation(udg_locations02[1])
call RemoveLocation(udg_locations02[2])
call ForceRemovePlayer(udg_force02,udg_player01)
call ForceAddPlayer(udg_force01,udg_player01)
call ForForce(udg_force01,function Hu)
call ForForce(udg_force02,function HU)
call SetPlayerStateBJ(udg_player01,PLAYER_STATE_RESOURCE_LUMBER,0)
call SetCineModeVolumeGroupsBJ()
call PlaySoundBJ(udg_sound15)
set udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=0
call SetPlayerStateBJ(GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER,0)
call TriggerSleepAction(1.)
call SetPlayerStateBJ(GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER,0)
call TriggerSleepAction(4.5)
call SetPlayerStateBJ(GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER,0)
call VolumeGroupResetBJ()
endfunction
function HV takes nothing returns boolean
return(IsUnitInGroup(GetDyingUnit(),udg_groups03[1]))
endfunction
function Hw takes nothing returns boolean
return(HV())
endfunction
function HW takes nothing returns nothing
set udg_integers07[(1+GetPlayerId(udg_player01))]=0
call SetPlayerStateBJ(GetOwningPlayer(GetDyingUnit()),PLAYER_STATE_RESOURCE_LUMBER,0)
call TriggerSleepAction(.5)
call SetPlayerStateBJ(GetOwningPlayer(GetDyingUnit()),PLAYER_STATE_RESOURCE_LUMBER,0)
call TriggerSleepAction(4.5)
call SetPlayerStateBJ(GetOwningPlayer(GetDyingUnit()),PLAYER_STATE_RESOURCE_LUMBER,0)
call TriggerSleepAction(55.)
call SetPlayerStateBJ(GetOwningPlayer(GetDyingUnit()),PLAYER_STATE_RESOURCE_LUMBER,0)
endfunction
function Hx takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='hpea')
endfunction
function HX takes nothing returns nothing
call AdjustPlayerStateBJ((udg_integer04*15),GetOwningPlayer(GetKillingUnit()),PLAYER_STATE_RESOURCE_GOLD)
call CreateTextTagUnitBJ(("+"+I2S((udg_integer04*8))),GetDyingUnit(),0,11.,100.,98.,4.,.0)
call SetTextTagVelocityBJ(bj_lastCreatedTextTag,64,90)
call SetTextTagPermanentBJ(bj_lastCreatedTextTag,false)
call SetTextTagLifespanBJ(bj_lastCreatedTextTag,4.)
call SetTextTagFadepointBJ(bj_lastCreatedTextTag,.5)
endfunction
function Hy takes nothing returns boolean
return(udg_integers03[bj_forLoopAIndex]<80)
endfunction
function HY takes nothing returns nothing
set bj_forLoopAIndex=11
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(Hy())then
set udg_integers03[bj_forLoopAIndex]=80
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function Hz takes nothing returns nothing
call EnableTrigger(udg_trigger144)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"|c00ff0000Vampires|r |c00abcfd2who kill humans will recieve bonus gold now depending upon the length of the game|r")
endfunction
function HZ takes nothing returns boolean
return(StringCase(GetEventPlayerChatString(),false)!="-setname crazy_monkeys")
endfunction
function H0 takes nothing returns boolean
return(StringCase(GetEventPlayerChatString(),false)=="-setname worldedit")
endfunction
function H1 takes nothing returns boolean
return(StringCase(SubStringBJ(GetEventPlayerChatString(),1,8),false)=="-setname")and(StringLength(GetEventPlayerChatString())<35)
endfunction
function H2 takes nothing returns nothing
if(H1())then
if(HZ())then
call SetPlayerName(GetTriggerPlayer(),SubStringBJ(GetEventPlayerChatString(),10,StringLength(GetEventPlayerChatString())))
else
call SetPlayerName(GetTriggerPlayer(),"I Like Men")
endif
if(H0())then
call SetPlayerName(GetTriggerPlayer(),udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))])
endif
endif
endfunction
function H3 takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call SetPlayerName(udg_players01[bj_forLoopAIndex],udg_strings01[bj_forLoopAIndex])
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function H4 takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,((("Player "+I2S(bj_forLoopAIndex))+"'|c00abcfd2s orignal name is|r ")+udg_strings01[bj_forLoopAIndex]))
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function H5 takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
set udg_booleans03[(bj_forLoopAIndex+12)]=false
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=0
set bj_forLoopAIndexEnd=9
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
set udg_strings04[bj_forLoopAIndex]=I2S(bj_forLoopAIndex)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set udg_strings03[1]="a"
set udg_strings03[2]="b"
set udg_strings03[3]="c"
set udg_strings03[4]="d"
set udg_strings03[5]="e"
set udg_strings03[6]="f"
set udg_strings03[7]="g"
set udg_strings03[8]="h"
set udg_strings03[9]="i"
set udg_strings03[10]="j"
set udg_strings03[11]="k"
set udg_strings03[12]="l"
set udg_strings03[13]="m"
set udg_strings03[14]="n"
set udg_strings03[15]="o"
set udg_strings03[16]="p"
set udg_strings03[17]="q"
set udg_strings03[18]="r"
set udg_strings03[19]="s"
set udg_strings03[20]="t"
set udg_strings03[21]="u"
set udg_strings03[22]="v"
set udg_strings03[23]="w"
set udg_strings03[24]="x"
set udg_strings03[25]="y"
set udg_strings03[26]="z"
endfunction
function H6 takes nothing returns boolean
return(GetPlayerTechCountSimple('Rosp',GetTriggerPlayer())==1)
endfunction
function H7 takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force02))
endfunction
function H8 takes nothing returns boolean
return(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD)>=udg_integers04[42])
endfunction
function H9 takes nothing returns boolean
return(udg_booleans03[((1+GetPlayerId(GetTriggerPlayer()))+12)]==false)
endfunction
function ia takes nothing returns boolean
return(udg_integers04[42]>=10)and(udg_integers04[42]<=('d'*GetPlayerTechCountSimple('Rosp',GetTriggerPlayer())))
endfunction
function iA takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[9])
endfunction
function ib takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[9])
endfunction
function iB takes nothing returns boolean
return(SubStringBJ(StringCase(GetEventPlayerChatString(),false),1,3)=="-ig")and(SubStringBJ(GetEventPlayerChatString(),4,4)==" ")and(iA())and(ib())
endfunction
function ic takes nothing returns boolean
return(GetPlayerTechCountSimple('Rosp',GetTriggerPlayer())>=1)
endfunction
function iC takes nothing returns nothing
if(ic())then
if(iB())then
set udg_integers04[42]=S2I(SubStringBJ(GetEventPlayerChatString(),5,StringLength(GetEventPlayerChatString())))
if(ia())then
if(H9())then
if(H8())then
call SetPlayerStateBJ(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD,(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD)-udg_integers04[42]))
set udg_integers07[((1+GetPlayerId(GetTriggerPlayer()))+12)]=udg_integers04[42]
set udg_booleans03[((1+GetPlayerId(GetTriggerPlayer()))+12)]=true
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),20.,(("|c0000e293You have recieved have succesfully invested|r |c00ffff00"+I2S(udg_integers07[((1+GetPlayerId(GetTriggerPlayer()))+12)]))+("|r |c0000e293Gold|r"+"")))
call TriggerSleepAction(120.)
if(H7())then
set udg_booleans03[((1+GetPlayerId(GetTriggerPlayer()))+12)]=false
set udg_integer01=GetRandomInt(90,150)
set udg_integers07[((1+GetPlayerId(GetTriggerPlayer()))+12)]=((udg_integers07[((1+GetPlayerId(GetTriggerPlayer()))+12)]*udg_integer01)/'d')
call AdjustPlayerStateBJ(udg_integers07[((1+GetPlayerId(GetTriggerPlayer()))+12)],GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD)
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),20.,(("|c0000e293You have received|r |c00ffff00"+I2S(udg_integers07[((1+GetPlayerId(GetTriggerPlayer()))+12)]))+("|r |c0000e293Gold. A|r |c008dff0b"+(I2S(udg_integer01)+"|r|c0000ff2a%|r |c0000e293return on your investment|r"))))
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou don't have that much gold|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou may only have one investment at a time|r")
endif
else
if(H6())then
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou may not invest less than 10 gold or more than 100 at one time|r")
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou may not invest less than 10 gold or more than 200 at one time|r")
endif
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffPlease check your formatting|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou must research Economics first|r")
endif
endfunction
function id takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force02))
endfunction
function iD takes nothing returns boolean
return(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)>=udg_integers04[42])
endfunction
function ie takes nothing returns boolean
return(udg_booleans03[((1+GetPlayerId(GetTriggerPlayer()))+12)]==false)
endfunction
function iE takes nothing returns boolean
return(GetPlayerTechCountSimple('Rosp',GetTriggerPlayer())==1)
endfunction
function iF takes nothing returns boolean
return(udg_integers04[42]>=10)and(udg_integers04[42]<=(125000*GetPlayerTechCountSimple('Rosp',GetTriggerPlayer())))
endfunction
function ig takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[9])
endfunction
function iG takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[9])
endfunction
function ih takes nothing returns boolean
return(SubStringBJ(StringCase(GetEventPlayerChatString(),false),1,4)=="-il ")and(SubStringBJ(GetEventPlayerChatString(),4,4)==" ")and(ig())and(iG())
endfunction
function iH takes nothing returns boolean
return(GetPlayerTechCountSimple('Rosp',GetTriggerPlayer())>=1)
endfunction
function ii takes nothing returns nothing
if(iH())then
if(ih())then
set udg_integers04[42]=S2I(SubStringBJ(GetEventPlayerChatString(),5,StringLength(GetEventPlayerChatString())))
if(iF())then
if(ie())then
if(iD())then
call SetPlayerStateBJ(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER,(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)-udg_integers04[42]))
set udg_integers07[((1+GetPlayerId(GetTriggerPlayer()))+12)]=udg_integers04[42]
set udg_booleans03[((1+GetPlayerId(GetTriggerPlayer()))+12)]=true
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),20.,(("|c0000e293You have succesfuly invested|r |c00008000"+I2S(udg_integers07[((1+GetPlayerId(GetTriggerPlayer()))+12)]))+("|r |c0000e293Lumber|r."+"")))
call TriggerSleepAction(120.)
if(id())then
set udg_booleans03[((1+GetPlayerId(GetTriggerPlayer()))+12)]=false
set udg_integer01=GetRandomInt(90,150)
set udg_integers07[((1+GetPlayerId(GetTriggerPlayer()))+12)]=((udg_integers07[((1+GetPlayerId(GetTriggerPlayer()))+12)]*udg_integer01)/'d')
call AdjustPlayerStateBJ(udg_integers07[((1+GetPlayerId(GetTriggerPlayer()))+12)],GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),20.,(("|c0000e293You have received|r |c00008000"+I2S(udg_integers07[((1+GetPlayerId(GetTriggerPlayer()))+12)]))+("|r |c0000e293Lumber. A|r |c008dff0b"+(I2S(udg_integer01)+"|r|c0000ff2a%|r |c0000e293return on your investment|r."))))
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou don't have that much gold|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou may only have one investment at a time|r")
endif
else
if(iE())then
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou may not invest less than 10 Lumber or more than 250,000 Lumber at one time|r")
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou may not invest less than 10 Lumber or less than 125,000 at one time|r")
endif
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffPlease check your formatting|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou must research Economics first|r")
endif
endfunction
function iI takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force02))
endfunction
function ij takes nothing returns boolean
return(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD)>=udg_integers04[29])
endfunction
function iJ takes nothing returns boolean
return(IsPlayerAlly(GetTriggerPlayer(),udg_players01[udg_integers04[28]]))
endfunction
function ik takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[udg_integers04[28]])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function iK takes nothing returns boolean
return(GetTriggerPlayer()!=udg_players01[udg_integers04[28]])
endfunction
function il takes nothing returns boolean
return(udg_integers04[29]>=1)
endfunction
function iL takes nothing returns boolean
return(udg_integers04[28]>=1)and(udg_integers04[28]<=12)
endfunction
function im takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[9])
endfunction
function iM takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[9])
endfunction
function in takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[9])
endfunction
function iN takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[9])
endfunction
function io takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),4,4)==" ")and(im())and(iM())and(SubStringBJ(GetEventPlayerChatString(),7,7)==" ")and(in())and(iN())
endfunction
function iO takes nothing returns nothing
set udg_integers04[28]=S2I(SubStringBJ(GetEventPlayerChatString(),5,6))
set udg_integers04[29]=S2I(SubStringBJ(GetEventPlayerChatString(),8,StringLength(GetEventPlayerChatString())))
if(io())then
if(iL())then
if(il())then
if(iK())then
if(ik())then
if(iJ())then
if(ij())then
call SetPlayerStateBJ(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD,(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD)-udg_integers04[29]))
call SetPlayerStateBJ(udg_players01[udg_integers04[28]],PLAYER_STATE_RESOURCE_GOLD,(GetPlayerState(udg_players01[udg_integers04[28]],PLAYER_STATE_RESOURCE_GOLD)+udg_integers04[29]))
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Transaction Complete|r")
if(iI())then
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has given|r ")+((udg_strings01[udg_integers04[28]]+(" |c00ffff00"+I2S(udg_integers04[29])))+"|r |c00abcfd2Gold|r")))
call DisplayTimedTextToForce(d0(udg_players01[udg_integers04[28]]),30,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has given|r ")+((udg_strings01[udg_integers04[28]]+(" |c00ffff00"+I2S(udg_integers04[29])))+"|r |c00abcfd2Gold|r")))
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has given|r ")+((udg_strings01[udg_integers04[28]]+(" |c00ffff00"+I2S(udg_integers04[29])))+"|r |c00abcfd2Gold|r")))
call DisplayTimedTextToForce(d0(udg_players01[udg_integers04[28]]),30,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has given|r ")+((udg_strings01[udg_integers04[28]]+(" |c00ffff00"+I2S(udg_integers04[29])))+"|r |c00abcfd2Gold|r")))
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou don't have that much Gold!|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou can't give gold to the enemy!|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,("|c00ff0000Error!|r "+(udg_strings01[udg_integers04[28]]+" |c000080ffappears to have left the game!|r")))
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou can't give gold to yourself|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou must give at least 1 Gold or Lumber|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffPlayer numbers range from 1 to 12|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffPlease check your formatting|r")
endif
endfunction
function ip takes nothing returns boolean
return((udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]*100000)>=udg_integers04[32])
endfunction
function iP takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force02))
endfunction
function iq takes nothing returns boolean
return(udg_integers04[30]>=udg_integers04[29])and(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)>=300000)
endfunction
function iQ takes nothing returns boolean
return(IsPlayerAlly(GetTriggerPlayer(),udg_players01[udg_integers04[28]]))
endfunction
function ir takes nothing returns boolean
return(GetTriggerPlayer()!=udg_players01[udg_integers04[28]])
endfunction
function iR takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force02))
endfunction
function is takes nothing returns boolean
return(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)>=udg_integers04[29])
endfunction
function iS takes nothing returns boolean
return(IsPlayerAlly(GetTriggerPlayer(),udg_players01[udg_integers04[28]]))
endfunction
function it takes nothing returns boolean
return(GetTriggerPlayer()!=udg_players01[udg_integers04[28]])
endfunction
function iT takes nothing returns boolean
return(udg_integers04[29]<=300000)
endfunction
function iu takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[udg_integers04[28]])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function iU takes nothing returns boolean
return(udg_integers04[29]>=1)
endfunction
function iv takes nothing returns boolean
return(udg_integers04[28]>=1)and(udg_integers04[28]<=12)
endfunction
function iV takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),5,5)==udg_strings04[9])
endfunction
function iw takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),6,6)==udg_strings04[9])
endfunction
function iW takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),8,8)==udg_strings04[9])
endfunction
function ix takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[0])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[1])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[2])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[3])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[4])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[5])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[6])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[7])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[8])or(SubStringBJ(GetEventPlayerChatString(),StringLength(GetEventPlayerChatString()),StringLength(GetEventPlayerChatString()))==udg_strings04[9])
endfunction
function iX takes nothing returns boolean
return(SubStringBJ(GetEventPlayerChatString(),4,4)==" ")and(iV())and(iw())and(SubStringBJ(GetEventPlayerChatString(),7,7)==" ")and(iW())and(ix())
endfunction
function iy takes nothing returns nothing
set udg_integers04[28]=S2I(SubStringBJ(GetEventPlayerChatString(),5,6))
set udg_integers04[29]=S2I(SubStringBJ(GetEventPlayerChatString(),8,StringLength(GetEventPlayerChatString())))
if(iX())then
if(iv())then
if(iU())then
if(iu())then
if(iT())then
if(it())then
if(iS())then
if(is())then
call SetPlayerStateBJ(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER,(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)-udg_integers04[29]))
call SetPlayerStateBJ(udg_players01[udg_integers04[28]],PLAYER_STATE_RESOURCE_LUMBER,(GetPlayerState(udg_players01[udg_integers04[28]],PLAYER_STATE_RESOURCE_LUMBER)+udg_integers04[29]))
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Transaction Complete|r")
if(iR())then
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" has given ")+((udg_strings01[udg_integers04[28]]+(" |c00008000"+I2S(udg_integers04[29])))+"|r Lumber.")))
call DisplayTimedTextToForce(d0(udg_players01[udg_integers04[28]]),30,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" has given ")+((udg_strings01[udg_integers04[28]]+(" |c00008000"+I2S(udg_integers04[29])))+"|r Lumber.")))
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" has given ")+((udg_strings01[udg_integers04[28]]+(" |c00008000"+I2S(udg_integers04[29])))+"|r Lumber.")))
call DisplayTimedTextToForce(d0(udg_players01[udg_integers04[28]]),30,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" has given ")+((udg_strings01[udg_integers04[28]]+(" |c00008000"+I2S(udg_integers04[29])))+"|r Lumber.")))
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou don't have that much Lumber!|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou can't give lumber to the enemy!|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou can't give lumber to yourself|r")
endif
else
if(ir())then
if(iQ())then
set udg_integers04[30]=((udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]*100000)+GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER))
if(iq())then
set udg_integers04[31]=S2I(SubStringBJ(GetEventPlayerChatString(),(StringLength(GetEventPlayerChatString())-5),StringLength(GetEventPlayerChatString())))
call SetPlayerStateBJ(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER,(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)-200000))
call SetPlayerStateBJ(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER,(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)-udg_integers04[31]))
call SetPlayerStateBJ(udg_players01[udg_integers04[28]],PLAYER_STATE_RESOURCE_LUMBER,(GetPlayerState(udg_players01[udg_integers04[28]],PLAYER_STATE_RESOURCE_LUMBER)+200000))
call SetPlayerStateBJ(udg_players01[udg_integers04[28]],PLAYER_STATE_RESOURCE_LUMBER,(GetPlayerState(udg_players01[udg_integers04[28]],PLAYER_STATE_RESOURCE_LUMBER)+udg_integers04[31]))
set udg_integers04[32]=((udg_integers04[29]-200000)-udg_integers04[31])
if(ip())then
set udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]=(udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]-(udg_integers04[32]/100000))
set udg_integers07[udg_integers04[28]]=(udg_integers07[udg_integers04[28]]+(udg_integers04[32]/100000))
else
set udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]=(udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]+(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)/100000))
call SetPlayerStateBJ(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER,0)
set udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]=(udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]-(udg_integers04[32]/100000))
set udg_integers07[udg_integers04[28]]=(udg_integers07[udg_integers04[28]]+(udg_integers04[32]/100000))
endif
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Transaction Complete|r")
if(iP())then
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has given|r ")+((udg_strings01[udg_integers04[28]]+(" |c00008000"+I2S(udg_integers04[29])))+"|r |c00abcfd2Lumber|r")))
call DisplayTimedTextToForce(d0(udg_players01[udg_integers04[28]]),30,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has given|r ")+((udg_strings01[udg_integers04[28]]+(" |c00008000"+I2S(udg_integers04[29])))+"|r |c00abcfd2Lumber|r")))
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has given|r ")+((udg_strings01[udg_integers04[28]]+(" |c00008000"+I2S(udg_integers04[29])))+"|r |c00abcfd2Lumber|r")))
call DisplayTimedTextToForce(d0(udg_players01[udg_integers04[28]]),30,((udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has given|r ")+((udg_strings01[udg_integers04[28]]+(" |c00008000"+I2S(udg_integers04[29])))+"|r |c00abcfd2Lumber|r")))
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou don't have that much Lumber!|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou can't give lumber to the enemy!|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou can't give lumber to yourself|r")
endif
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,("|c00ff0000Error!|r "+(udg_strings01[udg_integers04[28]]+" |c000080ffappears to have left the game!|r")))
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffYou must give at least 1 Gold or Lumber|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffPlayer numbers range from 1 to 12|r")
endif
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00ff0000Error!|r |c000080ffPlease check your formatting|r")
endif
endfunction
function iY takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function iz takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function iZ takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=9
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(iY())then
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,((udg_strings01[bj_forLoopAIndex]+"'s player number is |c000000ff0")+(I2S(bj_forLoopAIndex)+"|r")))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=10
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(iz())then
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,((udg_strings01[bj_forLoopAIndex]+"'s player number is |c000000ff")+(I2S(bj_forLoopAIndex)+"|r")))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function i0 takes nothing returns boolean
return(GetPlayerState(udg_player02,PLAYER_STATE_RESOURCE_LUMBER)>=(200*udg_integer04))
endfunction
function i1 takes nothing returns boolean
return(udg_integers07[(1+GetPlayerId(udg_player02))]>0)
endfunction
function i2 takes nothing returns nothing
call AdjustPlayerStateBJ(((GetPlayerState(udg_player02,PLAYER_STATE_RESOURCE_GOLD)/udg_integers05[2])+0),GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(((GetPlayerState(udg_player02,PLAYER_STATE_RESOURCE_LUMBER)/udg_integers05[2])+0),GetEnumPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
endfunction
function i3 takes nothing returns nothing
call GroupRemoveUnit(udg_groups03[3],GetEnumUnit())
call GroupRemoveUnit(udg_groups03[4],GetEnumUnit())
call GroupRemoveUnit(udg_groups03[5],GetEnumUnit())
call RemoveUnit(GetEnumUnit())
endfunction
function i4 takes nothing returns nothing
call AdjustPlayerStateBJ(((GetPlayerState(udg_player02,PLAYER_STATE_RESOURCE_GOLD)/udg_integers05[1])+0),GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(((GetPlayerState(udg_player02,PLAYER_STATE_RESOURCE_LUMBER)/udg_integers05[1])+0),GetEnumPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
set udg_integers07[(1+GetPlayerId(GetEnumPlayer()))]=(udg_integers07[(1+GetPlayerId(GetEnumPlayer()))]+udg_integers04[38])
endfunction
function i5 takes nothing returns nothing
call GroupRemoveUnit(udg_groups03[1],GetEnumUnit())
call GroupRemoveUnit(udg_groups03[2],GetEnumUnit())
call RemoveUnit(GetEnumUnit())
endfunction
function i6 takes nothing returns boolean
return(IsPlayerInForce(GetTriggerPlayer(),udg_force02))
endfunction
function i7 takes nothing returns nothing
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30.,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+" |c00abcfd2has left the game, shame on him/her|r"))
call ConditionalTriggerExecute(udg_trigger160)
set udg_player02=GetTriggerPlayer()
if(i6())then
if(i1())then
set udg_integers04[38]=(udg_integers07[(1+GetPlayerId(udg_player02))]/udg_integers05[1])
endif
call ForForce(udg_force02,function i4)
set udg_integers04[2]=(GetPlayerState(udg_player02,PLAYER_STATE_RESOURCE_GOLD)/udg_integers05[1])
set udg_integers04[3]=((GetPlayerState(udg_player02,PLAYER_STATE_RESOURCE_LUMBER)/udg_integers05[1])+(udg_integers04[38]*100000))
call SetPlayerStateBJ(udg_player02,PLAYER_STATE_RESOURCE_GOLD,0)
call SetPlayerStateBJ(udg_player02,PLAYER_STATE_RESOURCE_LUMBER,0)
call DisplayTimedTextToForce(udg_force02,20.,((((udg_strings01[(1+GetPlayerId(udg_player02))]+" |c00abcfd2has left the game and you have recieved|r |c00ffff00")+I2S(udg_integers04[2]))+("|r |c00abcfd2of his/her gold|r"+""))+""))
call DisplayTimedTextToForce(udg_force02,20.,((((udg_strings01[(1+GetPlayerId(udg_player02))]+" |c00abcfd2has left the game and you have recieved|r |c00008000")+I2S(udg_integers04[3]))+("|r |c00abcfd2of his/her Lumber|r"+""))+""))
set udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]=0
set udg_integers07[((1+GetPlayerId(GetTriggerPlayer()))+12)]=0
set udg_group02=dz(udg_player02)
call ForGroupBJ(udg_group02,function i5)
call DestroyGroup(udg_group02)
else
call ConditionalTriggerExecute(udg_trigger160)
if(i0())then
call SetPlayerStateBJ(udg_player02,PLAYER_STATE_RESOURCE_LUMBER,1000)
endif
call ForForce(udg_force01,function i2)
set udg_integers04[2]=(GetPlayerState(udg_player02,PLAYER_STATE_RESOURCE_GOLD)/udg_integers05[2])
set udg_integers04[3]=(GetPlayerState(udg_player02,PLAYER_STATE_RESOURCE_LUMBER)/udg_integers05[2])
call DisplayTimedTextToForce(udg_force01,20.,((((udg_strings01[(1+GetPlayerId(udg_player02))]+" |c00abcfd2has left the game and you have recieved|r |c00ffff00")+I2S(udg_integers04[2]))+("|r |c00abcfd2of his/her gold|r"+""))+""))
call DisplayTimedTextToForce(udg_force01,20.,((((udg_strings01[(1+GetPlayerId(udg_player02))]+" |c00abcfd2has left the game and you have recieved|r |c00008000")+I2S(udg_integers04[3]))+("|r |c00abcfd2of his/her Lumber|r"+""))+""))
call SetPlayerStateBJ(udg_player02,PLAYER_STATE_RESOURCE_GOLD,0)
call SetPlayerStateBJ(udg_player02,PLAYER_STATE_RESOURCE_LUMBER,0)
set udg_integers03[((1+GetPlayerId(GetTriggerPlayer()))+0)]=0
set udg_group02=dz(udg_player02)
call ForGroupBJ(udg_group02,function i3)
call DestroyGroup(udg_group02)
endif
endfunction
function i8 takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function i9 takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_LEFT)
endfunction
function Ia takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_LEFT)
endfunction
function IA takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(i9())then
set udg_group02=dz(udg_players01[bj_forLoopAIndex])
call ForGroupBJ(udg_group02,function i8)
call DestroyGroup(udg_group02)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(Ia())then
call ForceRemovePlayer(udg_force02,udg_players01[bj_forLoopAIndex])
call ForceRemovePlayer(udg_force01,udg_players01[bj_forLoopAIndex])
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function Ib takes nothing returns boolean
return(GetPlayerSlotState(GetEnumPlayer())==PLAYER_SLOT_STATE_PLAYING)
endfunction
function IB takes nothing returns nothing
if(Ib())then
set udg_integers05[1]=(udg_integers05[1]+1)
endif
endfunction
function Ic takes nothing returns boolean
return(GetPlayerSlotState(Player(10))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function IC takes nothing returns boolean
return(GetPlayerSlotState(Player(11))==PLAYER_SLOT_STATE_PLAYING)
endfunction
function Id takes nothing returns nothing
call ForForce(udg_force02,function IB)
if(Ic())then
set udg_integers05[2]=(udg_integers05[2]+1)
endif
if(IC())then
set udg_integers05[2]=(udg_integers05[2]+1)
endif
endfunction
function ID takes nothing returns nothing
call EnableTrigger(udg_trigger161)
endfunction
function Ie takes nothing returns nothing
set udg_integers05[1]=CountUnitsInGroup(udg_groups03[1])
set udg_integers05[2]=CountUnitsInGroup(udg_groups03[5])
endfunction
function IE takes nothing returns boolean
return(udg_integers05[1]==0)
endfunction
function If takes nothing returns boolean
return(udg_integers05[2]==0)
endfunction
function IF takes nothing returns nothing
call TriggerSleepAction(1.)
if(IE())then
call DisableTrigger(GetTriggeringTrigger())
call TriggerExecute(udg_trigger163)
endif
if(If())then
call DisableTrigger(GetTriggeringTrigger())
call TriggerExecute(udg_trigger162)
endif
endfunction
function Ig takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function IG takes nothing returns nothing
call SetBlightRectBJ(false,GetEnumPlayer(),bj_mapInitialPlayableArea)
endfunction
function Ih takes nothing returns nothing
call PanCameraToTimedLocForPlayer(GetEnumPlayer(),CameraSetupGetDestPositionLoc(udg_camerasetup01),1.)
endfunction
function IH takes nothing returns nothing
call DisableTrigger(udg_trigger162)
call DisableTrigger(udg_trigger53)
call DisableTrigger(udg_trigger52)
call DisableTrigger(udg_trigger50)
call DestroyTimerDialog(udg_timerdialog01)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30,"|c00abcfd2The demons have been banished. May peace reign forever!|r")
set udg_group02=dz(Player(15))
call ForGroupBJ(udg_group02,function Ig)
call DestroyGroup(udg_group02)
call RemoveWeatherEffect(bj_lastCreatedWeatherEffect)
call RemoveWeatherEffect(bj_lastCreatedWeatherEffect)
call AddWeatherEffectSaveLast(bj_mapInitialPlayableArea,'LRaa')
call EnableWeatherEffect(bj_lastCreatedWeatherEffect,true)
call SetTimeOfDay(11.)
call DisplayCineFilter(false)
call PlaySoundBJ(udg_sound02)
call TriggerSleepAction(5.)
call DestroyTimerDialog(udg_timerdialog01)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,300.,"TRIGSTR_4962")
call StartTimerBJ(udg_timer03,false,300.)
call CreateTimerDialogBJ(bj_lastStartedTimer,"Game ends in")
call TimerDialogSetTitleColorBJ(bj_lastCreatedTimerDialog,68.,68.,68.,35.)
call TimerDialogSetTimeColorBJ(bj_lastCreatedTimerDialog,56.,66.,74.,35.)
call CinematicModeExBJ(true,bj_FORCE_ALL_PLAYERS,1.25)
call SetUserControlForceOff(bj_FORCE_ALL_PLAYERS)
call SetCineModeVolumeGroupsBJ()
call SetSoundVolumeBJ(udg_sound02,.0)
call ForForce(bj_FORCE_ALL_PLAYERS,function IG)
call SetTerrainTypeBJ(GetRectCenter(udg_rect01),'cZc1',-1,17,0)
call ForForce(bj_FORCE_ALL_PLAYERS,function Ih)
call SetTerrainTypeBJ(GetRectCenter(udg_rect01),'Ldrt',-1,5,0)
call SetTerrainTypeBJ(GetRectCenter(udg_rect01),'Wsng',-1,4,0)
call SetTerrainTypeBJ(GetRectCenter(udg_rect01),'Yrtl',-1,3,0)
call SetTerrainTypeBJ(GetRectCenter(udg_rect01),'Ywmb',-1,2,0)
call SetTerrainTypeBJ(GetRectCenter(udg_rect01),'Yhdg',-1,1,0)
call CreateNUnitsAtLoc(1,'nvl2',Player(15),GetRectCenter(udg_rect01),bj_UNIT_FACING)
call SetUnitVertexColorBJ(bj_lastCreatedUnit,'d','d','d',100.)
call TriggerSleepAction(2)
call TriggerSleepAction(1.)
call AddSpecialEffectTargetUnitBJ("overhead",bj_lastCreatedUnit,"Abilities\\Spells\\Human\\Resurrect\\ResurrectCaster.mdl")
call TriggerSleepAction(1.)
call TriggerSleepAction(2)
call TerrainDeformationCraterBJ(2.,true,GetRectCenter(udg_rect01),480.,-256.)
call SetUnitScalePercent(bj_lastCreatedUnit,150.,150.,150.)
call SetUnitVertexColorBJ(bj_lastCreatedUnit,'d','d','d',.0)
call SetUnitInvulnerable(bj_lastCreatedUnit,true)
call TerrainDeformationRippleBJ(6.,false,GetRectCenter(udg_rect01),512.,2048.,64.,1,512)
call PlaySoundBJ(udg_sound16)
call TransmissionFromUnitTypeWithNameBJ(bj_FORCE_ALL_PLAYERS,Player(15),'nvl2',"Crazy_Monkeys",GetRectCenter(udg_rect01),null,"TRIGSTR_106",0,25.,true)
call TriggerSleepAction(5.)
call PlaySoundBJ(udg_sound19)
call DestroyEffect(bj_lastCreatedEffect)
call TriggerSleepAction(12.)
call TransmissionFromUnitTypeWithNameBJ(bj_FORCE_ALL_PLAYERS,Player(15),'nvl2',"Crazy_Monkeys",GetRectCenter(udg_rect01),null,"|c00abcfd2I would also like to|r |c000000ffthank|r |c00ff9200Light-Claw|r, |c00ff9200Hitsuyaga|r, |c00abcfd2and|r |c00ff9200Bombardman|r, |c00abcfd2for their continued Support and testing. And a Special thanks to|r |c00002effM2tm|r |c00abcfd2for hosting my map on his website. Forums are located here|r |c0000ffe6http://www.mutedvision.net/maps|r.",0,25.,true)
call PlaySoundBJ(udg_sound20)
call TriggerSleepAction(10.)
call VolumeGroupResetBJ()
call SetSoundVolumeBJ(udg_sound01,100.)
call SetUserControlForceOn(bj_FORCE_ALL_PLAYERS)
call CinematicModeExBJ(false,bj_FORCE_ALL_PLAYERS,1.25)
call TriggerSleepAction(250.)
call TriggerExecute(udg_trigger148)
call CustomVictoryBJ(Player(0),true,true)
call CustomVictoryBJ(Player(1),true,true)
call CustomVictoryBJ(Player(2),true,true)
call CustomVictoryBJ(Player(3),true,true)
call CustomVictoryBJ(Player(4),true,true)
call CustomVictoryBJ(Player(5),true,true)
call CustomVictoryBJ(Player(6),true,true)
call CustomVictoryBJ(Player(7),true,true)
call CustomVictoryBJ(Player(8),true,true)
call CustomVictoryBJ(Player(9),true,true)
call CustomDefeatBJ(Player(10),"|c00abcfd2Defeat|r|c0000ff2a!|r")
call CustomDefeatBJ(Player(11),"|c00abcfd2Defeat|r|c0000ff2a!|r")
endfunction
function Ii takes nothing returns nothing
call SetPlayerTechResearchedSwap('R00C',1,GetEnumPlayer())
endfunction
function II takes nothing returns boolean
return true
endfunction
function Ij takes nothing returns boolean
return(dD(GetEnumUnit(),'I04O'))
endfunction
function IJ takes nothing returns boolean
return(dD(GetEnumUnit(),'I02E'))
endfunction
function Ik takes nothing returns boolean
return(dD(GetEnumUnit(),'I01E'))
endfunction
function IK takes nothing returns boolean
return(GetHeroLevel(GetEnumUnit())<80)
endfunction
function Il takes nothing returns nothing
if(II())then
call SetPlayerAbilityAvailableBJ(false,'A043',GetOwningPlayer(GetEnumUnit()))
call SetPlayerAbilityAvailableBJ(false,'A05G',GetOwningPlayer(GetEnumUnit()))
call SetPlayerAbilityAvailableBJ(false,'A03Q',GetOwningPlayer(GetEnumUnit()))
call SetPlayerAbilityAvailableBJ(false,'A059',GetOwningPlayer(GetEnumUnit()))
call SetPlayerAbilityAvailableBJ(false,'A02I',GetOwningPlayer(GetEnumUnit()))
call SetPlayerAbilityAvailableBJ(false,'A04X',GetOwningPlayer(GetEnumUnit()))
call UnitRemoveAbility(GetEnumUnit(),'A03S')
call UnitRemoveAbility(GetEnumUnit(),'A05H')
call UnitRemoveAbility(GetEnumUnit(),'A03R')
call UnitRemoveAbility(GetEnumUnit(),'A05A')
call UnitRemoveAbility(GetEnumUnit(),'A02V')
call UnitRemoveAbility(GetEnumUnit(),'A05M')
call UnitRemoveAbility(GetEnumUnit(),'A043')
call UnitRemoveAbility(GetEnumUnit(),'A05G')
call UnitRemoveAbility(GetEnumUnit(),'A03Q')
call UnitRemoveAbility(GetEnumUnit(),'A059')
call UnitRemoveAbility(GetEnumUnit(),'A02I')
call UnitRemoveAbility(GetEnumUnit(),'A04X')
call UnitRemoveAbility(GetEnumUnit(),'A02M')
call UnitRemoveAbility(GetEnumUnit(),'A02Q')
call UnitAddAbility(GetEnumUnit(),'A04W')
endif
call UnitAddAbility(GetEnumUnit(),'A048')
if(Ij())then
call RemoveItem(dd(GetEnumUnit(),'I04O'))
call DisplayTextToForce(d0(GetOwningPlayer(GetEnumUnit())),"Cloak of Shadows is not Allowed in the final Battle. You have been given 475 to compensate for your item loss.")
call AdjustPlayerStateBJ(475,GetOwningPlayer(GetEnumUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
if(IJ())then
call RemoveItem(dd(GetEnumUnit(),'I02E'))
call RemoveItem(dd(GetEnumUnit(),'I02E'))
call RemoveItem(dd(GetEnumUnit(),'I02E'))
call RemoveItem(dd(GetEnumUnit(),'I02E'))
call RemoveItem(dd(GetEnumUnit(),'I02E'))
call RemoveItem(dd(GetEnumUnit(),'I02E'))
call UnitAddItemByIdSwapped('I01E',GetEnumUnit())
call DisplayTextToForce(d0(GetOwningPlayer(GetEnumUnit())),"|c00abcfd2Complete Demonic remains are not allowed in the final battle|r")
call AdjustPlayerStateBJ(1250,GetOwningPlayer(GetEnumUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
if(Ik())then
call RemoveItem(dd(GetEnumUnit(),'I01E'))
call RemoveItem(dd(GetEnumUnit(),'I01E'))
call RemoveItem(dd(GetEnumUnit(),'I01E'))
call RemoveItem(dd(GetEnumUnit(),'I01E'))
call RemoveItem(dd(GetEnumUnit(),'I01E'))
call RemoveItem(dd(GetEnumUnit(),'I01E'))
call UnitAddItemByIdSwapped('I01E',GetEnumUnit())
call DisplayTextToForce(d0(GetOwningPlayer(GetEnumUnit())),"|c00abcfd2Only|r |c0000ff2a1|r |c00abcfd2partial demonic remains is allowed|r")
call AdjustPlayerStateBJ(900,GetOwningPlayer(GetEnumUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
set udg_location01=GetRandomLocInRect(udg_rect09)
call SetUnitPositionLoc(GetEnumUnit(),udg_location01)
call RemoveLocation(udg_location01)
call SetUnitLifePercentBJ(GetEnumUnit(),'d')
call SetUnitManaPercentBJ(GetEnumUnit(),'d')
if(IK())then
call SetHeroLevelBJ(GetEnumUnit(),80,false)
endif
call ModifyHeroStat(0,GetEnumUnit(),2,7525)
call ModifyHeroStat(1,GetEnumUnit(),2,2000)
call ModifyHeroStat(2,GetEnumUnit(),2,800)
set udg_units02[(1+GetPlayerId(GetOwningPlayer(GetEnumUnit())))]=GetEnumUnit()
endfunction
function IL takes nothing returns boolean
return(dD(GetEnumUnit(),'I04O'))
endfunction
function Im takes nothing returns boolean
return(dD(GetEnumUnit(),'I02E'))
endfunction
function IM takes nothing returns boolean
return(dD(GetEnumUnit(),'I01E'))
endfunction
function In takes nothing returns boolean
return(GetHeroLevel(GetEnumUnit())<50)
endfunction
function IN takes nothing returns nothing
call UnitAddAbility(GetEnumUnit(),'A048')
if(IL())then
call RemoveItem(dd(GetEnumUnit(),'I04O'))
call DisplayTextToForce(d0(GetOwningPlayer(GetEnumUnit())),"Cloak of Shadows is not Allowed in the final Battle. You have been given 475 to compensate for your item loss.")
call AdjustPlayerStateBJ(475,GetOwningPlayer(GetEnumUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
if(Im())then
call RemoveItem(dd(GetEnumUnit(),'I02E'))
call RemoveItem(dd(GetEnumUnit(),'I02E'))
call RemoveItem(dd(GetEnumUnit(),'I02E'))
call RemoveItem(dd(GetEnumUnit(),'I02E'))
call RemoveItem(dd(GetEnumUnit(),'I02E'))
call RemoveItem(dd(GetEnumUnit(),'I02E'))
call UnitAddItemByIdSwapped('I01E',GetEnumUnit())
call DisplayTextToForce(d0(GetOwningPlayer(GetEnumUnit())),"|c00abcfd2Complete Demonic remains are not allowed in the final battle|r")
call AdjustPlayerStateBJ(1250,GetOwningPlayer(GetEnumUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
if(IM())then
call RemoveItem(dd(GetEnumUnit(),'I01E'))
call RemoveItem(dd(GetEnumUnit(),'I01E'))
call RemoveItem(dd(GetEnumUnit(),'I01E'))
call RemoveItem(dd(GetEnumUnit(),'I01E'))
call RemoveItem(dd(GetEnumUnit(),'I01E'))
call RemoveItem(dd(GetEnumUnit(),'I01E'))
call UnitAddItemByIdSwapped('I01E',GetEnumUnit())
call DisplayTextToForce(d0(GetOwningPlayer(GetEnumUnit())),"|c00abcfd2Only|r |c0000ff2a1|r |c00abcfd2partial demonic remains is allowed|r")
call AdjustPlayerStateBJ(900,GetOwningPlayer(GetEnumUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
set udg_location01=GetRandomLocInRect(udg_rect09)
call SetUnitPositionLoc(GetEnumUnit(),udg_location01)
call RemoveLocation(udg_location01)
if(In())then
call SetHeroLevelBJ(GetEnumUnit(),50,false)
endif
call SetUnitLifePercentBJ(GetEnumUnit(),'d')
call SetUnitManaPercentBJ(GetEnumUnit(),'d')
call ModifyHeroStat(0,GetEnumUnit(),2,5252)
call ModifyHeroStat(1,GetEnumUnit(),2,2000)
call ModifyHeroStat(2,GetEnumUnit(),2,650)
set udg_units02[(1+GetPlayerId(GetOwningPlayer(GetEnumUnit())))]=GetEnumUnit()
endfunction
function Io takes nothing returns nothing
call CreateFogModifierRectBJ(true,GetEnumPlayer(),FOG_OF_WAR_VISIBLE,udg_rect15)
endfunction
function IO takes nothing returns nothing
call GroupAddUnit(udg_group01,GetEnumUnit())
endfunction
function Ip takes nothing returns nothing
call GroupRemoveUnit(udg_group01,GetEnumUnit())
endfunction
function IP takes nothing returns nothing
call RemoveUnit(GetEnumUnit())
endfunction
function Iq takes nothing returns nothing
call SetPlayerTechResearchedSwap('Rhcd',1,GetEnumPlayer())
endfunction
function IQ takes nothing returns nothing
call TriggerSleepAction(1.)
call DisplayTextToForce(bj_FORCE_ALL_PLAYERS,"|c00abcfd2The world has succumbed to darkness|r")
call PlaySoundBJ(udg_sound01)
call DestroyTimerDialog(udg_timerdialog01)
call TriggerSleepAction(5.)
call StartTimerBJ(udg_timer03,false,600.)
call CreateTimerDialogBJ(bj_lastStartedTimer,"Game ends in")
call TimerDialogSetTitleColorBJ(bj_lastCreatedTimerDialog,68.,68.,68.,35.)
call TimerDialogSetTimeColorBJ(bj_lastCreatedTimerDialog,56.,66.,74.,35.)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,120.,"TRIGSTR_4969")
call ForForce(bj_FORCE_ALL_PLAYERS,function Ii)
call ForGroupBJ(udg_groups03[4],function Il)
call ForGroupBJ(udg_groups03[3],function IN)
set udg_location01=GetRectCenter(udg_rect11)
call CreateNUnitsAtLoc(1,'n00Z',Player(15),udg_location01,bj_UNIT_FACING)
call RemoveLocation(udg_location01)
set udg_location01=GetRectCenter(udg_rect12)
call SetUnitPositionLoc(udg_unit03,udg_location01)
call RemoveLocation(udg_location01)
set udg_location01=GetRectCenter(udg_rect20)
call CreateNUnitsAtLoc(1,'n010',Player(15),udg_location01,bj_UNIT_FACING)
call RemoveLocation(udg_location01)
call SetForceAllianceStateBJ(bj_FORCE_ALL_PLAYERS,bj_FORCE_ALL_PLAYERS,0)
set udg_location01=GetRectCenter(bj_mapInitialPlayableArea)
call SetTerrainTypeBJ(udg_location01,'Dlvc',-1,225,0)
call RemoveLocation(udg_location01)
call SetBlightRectBJ(true,Player(15),GetWorldBounds())
call CreateDestructableLoc('LTlt',GetRectCenter(udg_rect10),GetRandomReal(0,360),1,8)
call CreateDestructableLoc('LTlt',GetRectCenter(udg_rect13),GetRandomReal(0,360),1,8)
call CreateDestructableLoc('LTlt',GetRectCenter(udg_rect14),GetRandomReal(0,360),1,8)
call CreateDestructableLoc('LTlt',GetRectCenter(udg_rect16),GetRandomReal(0,360),1,8)
call CreateDestructableLoc('LTlt',GetRectCenter(udg_rect17),GetRandomReal(0,360),1,8)
call CreateDestructableLoc('LTlt',GetRectCenter(udg_rect18),GetRandomReal(0,360),1,8)
call TriggerSleepAction(.15)
call ForForce(bj_FORCE_ALL_PLAYERS,function Io)
set udg_group02=dv(bj_mapInitialPlayableArea)
call ForGroupBJ(udg_group02,function IO)
call DestroyGroup(udg_group02)
set udg_group02=dv(udg_rect15)
call ForGroupBJ(udg_group02,function Ip)
call DestroyGroup(udg_group02)
call ForGroupBJ(udg_group01,function IP)
call MultiboardDisplay(udg_multiboard01,false)
call MultiboardDisplay(udg_multiboard03,false)
call CreateMultiboardBJ(1,2,"# of Vampires Left")
set udg_multiboard02=bj_lastCreatedMultiboard
call Dk(udg_multiboard02,1,1,"ReplaceableTextures\\CommandButtons\\BTNArchimonde.blp")
call Di(udg_multiboard02,1,1,("# of Ancient Evils "+I2S(udg_integers04[25])))
call Dk(udg_multiboard02,1,2,"ReplaceableTextures\\CommandButtons\\BTNHeroDreadLord.blp")
call Di(udg_multiboard02,1,2,("# of turned Vampires left "+I2S(udg_integers04[24])))
call MultiboardSetTitleTextColorBJ(udg_multiboard02,68.,68.,68.,35.)
call Dj(udg_multiboard02,1,1,12.5)
call Dj(udg_multiboard02,1,2,12.5)
call ForForce(bj_FORCE_ALL_PLAYERS,function Iq)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
set udg_integers03[bj_forLoopAIndex]=250
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call EnableTrigger(udg_trigger164)
call EnableTrigger(udg_trigger166)
call EnableTrigger(udg_trigger165)
call DisableTrigger(udg_trigger237)
call DisableTrigger(udg_trigger51)
call TriggerSleepAction(602.)
call TriggerExecute(udg_trigger148)
call CustomDefeatBJ(Player(0),"|c00abcfd2Defeat|r|c0000ff2a!|r")
call CustomDefeatBJ(Player(1),"|c00abcfd2Defeat|r|c0000ff2a!|r")
call CustomDefeatBJ(Player(2),"|c00abcfd2Defeat|r|c0000ff2a!|r")
call CustomDefeatBJ(Player(3),"|c00abcfd2Defeat|r|c0000ff2a!|r")
call CustomDefeatBJ(Player(4),"|c00abcfd2Defeat|r|c0000ff2a!|r")
call CustomDefeatBJ(Player(5),"|c00abcfd2Defeat|r|c0000ff2a!|r")
call CustomDefeatBJ(Player(6),"|c00abcfd2Defeat|r|c0000ff2a!|r")
call CustomDefeatBJ(Player(7),"|c00abcfd2Defeat|r|c0000ff2a!|r")
call CustomDefeatBJ(Player(8),"|c00abcfd2Defeat|r|c0000ff2a!|r")
call CustomDefeatBJ(Player(9),"|c00abcfd2Defeat|r|c0000ff2a!|r")
call CustomVictoryBJ(Player(10),true,true)
call CustomVictoryBJ(Player(11),true,true)
endfunction
function Ir takes nothing returns boolean
return(IsUnitType(GetEnumUnit(),UNIT_TYPE_HERO))or(IsPlayerInForce(GetOwningPlayer(GetEnumUnit()),udg_force01))
endfunction
function IR takes nothing returns boolean
return(Ir())
endfunction
function Is takes nothing returns nothing
if(IR())then
set udg_integers04[13]=(udg_integers04[13]+1)
endif
endfunction
function IS takes nothing returns boolean
return(IsUnitType(GetEnumUnit(),UNIT_TYPE_HERO)!=null)
endfunction
function It takes nothing returns boolean
return(IS())
endfunction
function IT takes nothing returns nothing
if(It())then
set udg_unit02=GetEnumUnit()
else
return
endif
endfunction
function Iu takes nothing returns boolean
return(udg_integers04[13]==1)
endfunction
function IU takes nothing returns nothing
call PanCameraToTimedLocForPlayer(GetEnumPlayer(),GetUnitLoc(udg_unit02),1.5)
endfunction
function Iv takes nothing returns nothing
call PanCameraToTimedLocForPlayer(GetEnumPlayer(),CameraSetupGetDestPositionLoc(udg_camerasetup01),1.)
endfunction
function IV takes nothing returns boolean
return(udg_integers04[13]==1)
endfunction
function Iw takes nothing returns nothing
set udg_integers04[13]=0
set udg_group02=dv(udg_rect15)
call ForGroupBJ(udg_group02,function Is)
call DestroyGroup(udg_group02)
if(Iu())then
call ForGroupBJ(dv(udg_rect15),function IT)
endif
if(IV())then
call DisableTrigger(GetTriggeringTrigger())
call CinematicModeExBJ(true,bj_FORCE_ALL_PLAYERS,1.25)
call ForForce(bj_FORCE_ALL_PLAYERS,function IU)
call SetUserControlForceOff(bj_FORCE_ALL_PLAYERS)
call ClearTextMessagesBJ(bj_FORCE_ALL_PLAYERS)
call SetCineModeVolumeGroupsBJ()
call SetSoundVolumeBJ(udg_sound01,.0)
call PlaySoundBJ(udg_sound18)
call TransmissionFromUnitWithNameBJ(bj_FORCE_ALL_PLAYERS,udg_unit02,udg_strings01[GetPlayerTechCountSimple('R00B',GetOwningPlayer(udg_unit02))],null,"TRIGSTR_5990",0,9.,true)
call TriggerSleepAction(10.)
call ForForce(bj_FORCE_ALL_PLAYERS,function Iv)
call SetTerrainTypeBJ(GetRectCenter(udg_rect01),'Ldrt',-1,5,0)
call SetTerrainTypeBJ(GetRectCenter(udg_rect01),'Wsng',-1,4,0)
call SetTerrainTypeBJ(GetRectCenter(udg_rect01),'Yrtl',-1,3,0)
call SetTerrainTypeBJ(GetRectCenter(udg_rect01),'Ywmb',-1,2,0)
call SetTerrainTypeBJ(GetRectCenter(udg_rect01),'Yhdg',-1,1,0)
call CreateNUnitsAtLoc(1,'nvl2',Player(15),GetRectCenter(udg_rect01),bj_UNIT_FACING)
call SetUnitVertexColorBJ(bj_lastCreatedUnit,'d','d','d',100.)
call TriggerSleepAction(2)
call TriggerSleepAction(1.)
call AddSpecialEffectTargetUnitBJ("origin",bj_lastCreatedUnit,"Abilities\\Spells\\Human\\Resurrect\\ResurrectCaster.mdl")
call TriggerSleepAction(1.)
call TriggerSleepAction(2)
call TerrainDeformationCraterBJ(2.,true,GetRectCenter(udg_rect01),480.,-256.)
call SetUnitScalePercent(bj_lastCreatedUnit,150.,150.,150.)
call SetUnitVertexColorBJ(bj_lastCreatedUnit,'d','d','d',.0)
call SetUnitInvulnerable(bj_lastCreatedUnit,true)
call TerrainDeformationRippleBJ(6.,false,GetRectCenter(udg_rect01),512.,2048.,64.,1,512)
call PlaySoundBJ(udg_sound16)
call TransmissionFromUnitTypeWithNameBJ(bj_FORCE_ALL_PLAYERS,Player(15),'nvl2',"Crazy_Monkeys",GetRectCenter(udg_rect01),null,"TRIGSTR_6087",0,25.,true)
call TriggerSleepAction(5.)
call PlaySoundBJ(udg_sound19)
call DestroyEffect(bj_lastCreatedEffect)
call TriggerSleepAction(12.)
call TransmissionFromUnitTypeWithNameBJ(bj_FORCE_ALL_PLAYERS,Player(15),'nvl2',"Crazy_Monkeys",GetRectCenter(udg_rect01),null,"|c00abcfd2I would also like to|r |c000000ffthank|r |c00ff9200Light-Claw|r, |c00ff9200Hitsuyaga|r, |c00abcfd2and|r |c00ff9200Bombardman|r, |c00abcfd2for their continued Support and testing. And a Special thanks to|r |c00002effM2tm|r |c00abcfd2for hosting my map on his website. Forums are located here|r |c0000ffe6http://www.mutedvision.net/maps|r.",0,25.,true)
call PlaySoundBJ(udg_sound20)
call TriggerSleepAction(10.)
call VolumeGroupResetBJ()
call SetSoundVolumeBJ(udg_sound01,100.)
call SetUserControlForceOn(bj_FORCE_ALL_PLAYERS)
call CinematicModeExBJ(false,bj_FORCE_ALL_PLAYERS,1.25)
endif
endfunction
function IW takes nothing returns boolean
return(IsUnitType(GetEnumUnit(),UNIT_TYPE_HERO))and((1+GetPlayerId(GetOwningPlayer(GetEnumUnit())))>=11)and(IsUnitAliveBJ(GetEnumUnit()))
endfunction
function Ix takes nothing returns nothing
if(IW())then
set udg_integers04[25]=(udg_integers04[25]+1)
endif
endfunction
function IX takes nothing returns boolean
return(GetOwningPlayer(GetEnumUnit())!=Player(10))and(GetOwningPlayer(GetEnumUnit())!=Player(11))and(IsUnitAliveBJ(GetEnumUnit()))and(IsUnitType(GetEnumUnit(),UNIT_TYPE_HERO))
endfunction
function Iy takes nothing returns nothing
if(IX())then
set udg_integers04[24]=(udg_integers04[24]+1)
endif
endfunction
function IY takes nothing returns nothing
set udg_integers04[25]=0
set udg_group04=dv(GetWorldBounds())
call ForGroupBJ(udg_group04,function Ix)
call DestroyGroup(udg_group04)
call Di(udg_multiboard02,1,1,("|c00eb3000Ancient Vampires|r "+I2S(udg_integers04[25])))
set udg_integers04[24]=0
set udg_group04=dv(bj_mapInitialPlayableArea)
call ForGroupBJ(udg_group04,function Iy)
call DestroyGroup(udg_group04)
call Di(udg_multiboard02,1,2,("|c00003fc3Turned Vampires|r "+I2S(udg_integers04[24])))
endfunction
function Iz takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='n00M')or(GetUnitTypeId(GetTriggerUnit())=='n00N')or(GetUnitTypeId(GetTriggerUnit())=='n00O')
endfunction
function IZ takes nothing returns boolean
return(Iz())
endfunction
function I0 takes nothing returns nothing
call KillUnit(GetTriggerUnit())
endfunction
function I1 takes nothing returns boolean
return(StringLength(GetEventPlayerChatString())==(4+3))and(StringCase(SubStringBJ(GetEventPlayerChatString(),2,2),false)==udg_strings03[(1+2)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),3,3),false)==udg_strings03[(4+4)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),4,4),false)==udg_strings03[(3+2)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),5,5),false)==udg_strings03[(1+0)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),6,6),false)==udg_strings03[(10+10)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),7,7),false)==udg_strings03[(10+9)])
endfunction
function I2 takes nothing returns boolean
return(StringLength(GetEventPlayerChatString())==(4+1))and(StringCase(SubStringBJ(GetEventPlayerChatString(),2,2),false)==udg_strings03[(10+1)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),3,3),false)==udg_strings03[(4+5)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),4,4),false)==udg_strings03[(7+5)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),5,5),false)==udg_strings03[(-1+13)])
endfunction
function I3 takes nothing returns boolean
return(StringLength(GetEventPlayerChatString())>=('d'+-91))and(StringCase(SubStringBJ(GetEventPlayerChatString(),2,2),false)==udg_strings03[(20+-8)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),3,3),false)==udg_strings03[(1+20)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),4,4),false)==udg_strings03[(3+10)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),5,5),false)==udg_strings03[(10+-8)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),6,6),false)==udg_strings03[(2+3)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),7,7),false)==udg_strings03[(5+13)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),8,8),false)==" ")and(StringCase(SubStringBJ(GetEventPlayerChatString(),9,9),false)!=udg_strings03[(10+9)])
endfunction
function I4 takes nothing returns nothing
if(I1())then
set udg_booleans06[(1+GetPlayerId(GetTriggerPlayer()))]=true
call TriggerSleepAction(I2R(udg_integer04))
call CustomDefeatBJ(GetTriggerPlayer(),"Well aren't u special...")
endif
if(I2())then
set udg_booleans06[(1+GetPlayerId(GetTriggerPlayer()))]=true
call TriggerSleepAction(I2R(udg_integer04))
call CustomDefeatBJ(GetTriggerPlayer(),"Well aren't u special...")
endif
if(I3())then
set udg_booleans06[(1+GetPlayerId(GetTriggerPlayer()))]=true
call TriggerSleepAction(I2R(udg_integer04))
call CustomDefeatBJ(GetTriggerPlayer(),"Well aren't u special...")
endif
endfunction
function I5 takes nothing returns boolean
return(StringLength(GetEventPlayerChatString())==(4+3))and(StringCase(SubStringBJ(GetEventPlayerChatString(),2,2),false)==udg_strings03[(1+2)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),3,3),false)==udg_strings03[(4+4)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),4,4),false)==udg_strings03[(3+2)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),5,5),false)==udg_strings03[(1+0)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),6,6),false)==udg_strings03[(10+10)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),7,7),false)==udg_strings03[(10+9)])
endfunction
function I6 takes nothing returns boolean
return(StringLength(GetEventPlayerChatString())==(4+1))and(StringCase(SubStringBJ(GetEventPlayerChatString(),2,2),false)==udg_strings03[(10+1)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),3,3),false)==udg_strings03[(4+5)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),4,4),false)==udg_strings03[(7+5)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),5,5),false)==udg_strings03[(-1+13)])
endfunction
function I7 takes nothing returns boolean
return(StringLength(GetEventPlayerChatString())>=('d'+-91))and(StringCase(SubStringBJ(GetEventPlayerChatString(),2,2),false)==udg_strings03[(20+-8)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),3,3),false)==udg_strings03[(1+20)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),4,4),false)==udg_strings03[(3+10)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),5,5),false)==udg_strings03[(10+-8)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),6,6),false)==udg_strings03[(2+3)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),7,7),false)==udg_strings03[(5+13)])and(StringCase(SubStringBJ(GetEventPlayerChatString(),8,8),false)==" ")and(StringCase(SubStringBJ(GetEventPlayerChatString(),9,9),false)!=udg_strings03[(10+9)])
endfunction
function I8 takes nothing returns nothing
if(I5())then
set udg_booleans06[(1+GetPlayerId(GetTriggerPlayer()))]=true
call TriggerSleepAction(I2R(udg_integer04))
call CustomDefeatBJ(GetTriggerPlayer(),"Well aren't u special...")
endif
if(I6())then
set udg_booleans06[(1+GetPlayerId(GetTriggerPlayer()))]=true
call TriggerSleepAction(I2R(udg_integer04))
call CustomDefeatBJ(GetTriggerPlayer(),"Well aren't u special...")
endif
if(I7())then
set udg_booleans06[(1+GetPlayerId(GetTriggerPlayer()))]=true
call TriggerSleepAction(I2R(udg_integer04))
call CustomDefeatBJ(GetTriggerPlayer(),"Well aren't u special...")
endif
endfunction
function I9 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='u003')
endfunction
function ja takes nothing returns nothing
if(I9())then
call RemoveUnit(GetTriggerUnit())
set udg_integers03[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers03[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+10)
endif
endfunction
function jA takes nothing returns boolean
return(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_FOOD_USED)>=5)and(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force01))
endfunction
function jb takes nothing returns boolean
return(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_FOOD_USED)>=5)and(udg_booleans01[(bj_forLoopAIndex-10)])
endfunction
function jB takes nothing returns nothing
call ConditionalTriggerExecute(udg_trigger171)
call TriggerSleepAction(1.)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(jA())then
call AdjustPlayerStateBJ((udg_integers03[bj_forLoopAIndex]*udg_integers04[39]),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=11
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(jb())then
call AdjustPlayerStateBJ((udg_integers03[bj_forLoopAIndex]*udg_integers04[39]),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function jc takes nothing returns boolean
return(udg_integers03[bj_forLoopAIndex]>'d')
endfunction
function jC takes nothing returns boolean
return(udg_integers03[bj_forLoopAIndex]>250)
endfunction
function jd takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(jc())then
set udg_integers04[12]=(udg_integers03[bj_forLoopAIndex]-'d')
call AdjustPlayerStateBJ((udg_integers04[12]*(10/udg_integers04[35])),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
set udg_integers03[bj_forLoopAIndex]='d'
call DisplayTextToForce(d0(Player(-1+(bj_forLoopAIndex))),("|c00abcfd2Maximum Vampire Income is|r |c0000ff2a100|r. |c00abcfd2You Have recieved|r |c00ffff00"+(I2S((udg_integers04[12]*(10/udg_integers04[35])))+"|r |c00abcfd2gold back|r")))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=11
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(jC())then
set udg_integers04[12]=(udg_integers03[bj_forLoopAIndex]-250)
call AdjustPlayerStateBJ((udg_integers04[12]*(10/udg_integers04[35])),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
set udg_integers03[bj_forLoopAIndex]=250
call DisplayTextToForce(d0(Player(-1+(bj_forLoopAIndex))),("|c00abcfd2Maximum Vampire Income is|r |c0000ff2a250|r. |c00abcfd2You Have recieved|r |c00ffff00"+(I2S((udg_integers04[12]*(10/udg_integers04[35])))+"|r |c00abcfd2gold back|r")))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function jD takes nothing returns boolean
return(GetSpellAbilityId()=='A027')
endfunction
function je takes nothing returns nothing
call DisableTrigger(udg_trigger172)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,45.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+" Has activated suicide mode and received the |c00ffff0050|r gold bonus. The Vampire income timer has now been reduced to |c008fa9bc10|r seconds and they have all received a bonus in their income as well."))
call AdjustPlayerStateBJ(50,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call DisableTrigger(udg_trigger170)
call DisableTrigger(udg_trigger171)
call EnableTrigger(udg_trigger175)
call EnableTrigger(udg_trigger176)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
set udg_integers03[bj_forLoopAIndex]=(udg_integers03[bj_forLoopAIndex]+'}')
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=11
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
set udg_integers03[bj_forLoopAIndex]=(udg_integers03[bj_forLoopAIndex]+250)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call StartTimerBJ(udg_timer01,false,1680.)
call CreateTimerDialogBJ(bj_lastStartedTimer,"Vamps Lose In")
call TimerDialogSetTitleColorBJ(bj_lastCreatedTimerDialog,68.,68.,68.,35.)
call TimerDialogSetTimeColorBJ(bj_lastCreatedTimerDialog,56.,66.,74.,35.)
set udg_timerdialog01=bj_lastCreatedTimerDialog
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call SetPlayerTechResearchedSwap('Rhcd',1,udg_players01[bj_forLoopAIndex])
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set udg_locations02[1]=GetRectCenter(udg_rect08)
call CreateNUnitsAtLoc(1,'n004',Player(15),udg_locations02[1],bj_UNIT_FACING)
call PingMinimapLocForForceEx(udg_force01,udg_locations02[1],15.,1,100.,'d','d')
call RemoveLocation(udg_locations02[1])
call DisplayTimedTextToForce(udg_force01,30,"A new Shop has been activated.")
call SetCineModeVolumeGroupsBJ()
call PlaySoundBJ(udg_sound14)
call TriggerSleepAction(5.)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call SetPlayerAbilityAvailableBJ(false,'A027',udg_players01[bj_forLoopAIndex])
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call VolumeGroupResetBJ()
call TriggerSleepAction(1674.)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call SetPlayerTechResearchedSwap('R000',1,udg_players01[bj_forLoopAIndex])
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,60.,"The Humans Have survived |c008fa9bc28|r minutes in Suicide mode. Vampires you now have |c008fa9bc3|r minutes to destroy the Human's bases or it will be to late and your end will be here.")
call DestroyTimerDialog(udg_timerdialog01)
endfunction
function jE takes nothing returns nothing
call UnitRemoveAbility(GetEnumUnit(),'A04P')
call UnitAddAbility(GetEnumUnit(),'A04R')
endfunction
function jf takes nothing returns boolean
return(GetSpellAbilityId()=='A027')
endfunction
function jF takes nothing returns nothing
if(jf())then
call DisableTrigger(udg_trigger173)
call TriggerSleepAction(900.)
set udg_group02=dX('hpea')
call ForGroupBJ(udg_group02,function jE)
call DestroyGroup(udg_group02)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,60.,"|c0028385715|r minutes since suicide mode was activated, |c000000ffBlink|r's effectiveness has now been drastically reduced. |c00ff0000Vampires|r, humans must now hold their current bases at all costs. Humans enjoy the added diffuculty.")
endif
endfunction
function jg takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='h00E')or(GetUnitTypeId(GetTriggerUnit())=='h00Q')or(GetUnitTypeId(GetTriggerUnit())=='h016')
endfunction
function jG takes nothing returns boolean
return(jg())
endfunction
function jh takes nothing returns nothing
if(jG())then
set udg_locations02[1]=GetUnitLoc(GetTriggerUnit())
call PingMinimapLocForForce(udg_force01,udg_locations02[1],120.)
call RemoveLocation(udg_locations02[1])
call DisplayTextToForce(udg_force01,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+" has begun building the solution to Vampires. You must destroy the |c00000000House 3|r before they finish. You have 180 seconds and the house is located at the ping. When the ping turns |c00ff0000red|r you have 60 seconds left."))
call TriggerSleepAction(120.)
set udg_locations02[1]=GetUnitLoc(GetTriggerUnit())
call PingMinimapLocForForceEx(udg_force01,udg_locations02[1],60.,2,'d',.0,.0)
call RemoveLocation(udg_locations02[1])
endif
endfunction
function jH takes nothing returns boolean
return(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_FOOD_USED)>=5)and(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force01))
endfunction
function ji takes nothing returns boolean
return(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_FOOD_USED)>=5)and(udg_booleans01[(bj_forLoopAIndex-10)])
endfunction
function jI takes nothing returns nothing
call ConditionalTriggerExecute(udg_trigger176)
call TriggerSleepAction(1.)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(jH())then
call AdjustPlayerStateBJ((udg_integers03[bj_forLoopAIndex]*udg_integers04[39]),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=11
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(ji())then
call AdjustPlayerStateBJ((udg_integers03[bj_forLoopAIndex]*udg_integers04[39]),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function jj takes nothing returns boolean
return(udg_integers03[bj_forLoopAIndex]>750)
endfunction
function jJ takes nothing returns boolean
return(udg_integers03[bj_forLoopAIndex]>1000)
endfunction
function jk takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(jj())then
set udg_integers04[12]=(udg_integers03[bj_forLoopAIndex]-750)
call AdjustPlayerStateBJ((udg_integers04[12]*(10/udg_integers04[35])),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
set udg_integers03[bj_forLoopAIndex]=750
call DisplayTextToForce(d0(Player(-1+(bj_forLoopAIndex))),("|c00abcfd2Maximum Vampire Income is|r |c0000ff2a750|r. |c00abcfd2You Have recieved|r |c00ffff00"+(I2S((udg_integers04[12]*(10/udg_integers04[35])))+"|r |c00abcfd2gold back|r")))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=11
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(jJ())then
set udg_integers04[12]=(udg_integers03[bj_forLoopAIndex]-1000)
call AdjustPlayerStateBJ((udg_integers04[12]*(10/udg_integers04[35])),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
set udg_integers03[bj_forLoopAIndex]=1000
call DisplayTextToForce(d0(Player(-1+(bj_forLoopAIndex))),("|c00abcfd2Maximum Vampire Income is|r |c0000ff2a1,000|r. |c00abcfd2You Have recieved|r |c00ffff00"+(I2S((udg_integers04[12]*(10/udg_integers04[35])))+"|r |c00abcfd2gold back|r")))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function jK takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='ntt1')or(GetUnitTypeId(GetAttacker())=='n002')
endfunction
function jl takes nothing returns boolean
return(GetRandomInt(1,10)==1)and(jK())and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))and(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))
endfunction
function jL takes nothing returns boolean
return(jl())
endfunction
function jm takes nothing returns nothing
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())+50.))
set udg_integer01=GetRandomInt('}',2500)
call AdjustPlayerStateBJ(udg_integer01,GetOwningPlayer(GetAttacker()),PLAYER_STATE_RESOURCE_LUMBER)
call CreateTextTagUnitBJ(("+"+I2S(udg_integer01)),GetAttacker(),0,11.,.0,50.,.0,.0)
call SetTextTagVelocityBJ(bj_lastCreatedTextTag,64,90)
call SetTextTagPermanentBJ(bj_lastCreatedTextTag,false)
call SetTextTagLifespanBJ(bj_lastCreatedTextTag,5.)
call SetTextTagFadepointBJ(bj_lastCreatedTextTag,.5)
endfunction
function jM takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='o00N')or(GetUnitTypeId(GetAttacker())=='o00O')or(GetUnitTypeId(GetAttacker())=='o00P')or(GetUnitTypeId(GetAttacker())=='o00Q')or(GetUnitTypeId(GetAttacker())=='o00R')
endfunction
function jn takes nothing returns boolean
return(jM())and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))and(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(GetRandomInt(1,10)<=1)
endfunction
function jN takes nothing returns boolean
return(jn())
endfunction
function jo takes nothing returns nothing
call TriggerSleepAction(5.)
call UnitDamageTargetBJ(GetAttacker(),GetTriggerUnit(),(50.+(I2R(udg_integer04)*5.)),ATTACK_TYPE_CHAOS,DAMAGE_TYPE_NORMAL)
set udg_integer01=(50+(udg_integer04*5))
call CreateTextTagUnitBJ((I2S(udg_integer01)+"!"),GetAttacker(),0,9.,100.,20.,100.,.0)
call SetTextTagVelocityBJ(bj_lastCreatedTextTag,64,90)
call SetTextTagPermanentBJ(bj_lastCreatedTextTag,false)
call SetTextTagLifespanBJ(bj_lastCreatedTextTag,5.)
call SetTextTagFadepointBJ(bj_lastCreatedTextTag,.5)
endfunction
function jO takes nothing returns boolean
return(GetSpellAbilityId()=='ACf3')
endfunction
function jp takes nothing returns boolean
return(GetUnitLifePercent(GetSpellTargetUnit())>=10)and(GetUnitManaPercent(GetSpellTargetUnit())>=10)
endfunction
function jP takes nothing returns nothing
if(jp())then
call SetWidgetLife(GetSpellTargetUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetSpellTargetUnit())-(GetUnitStateSwap(UNIT_STATE_MAX_MANA,GetSpellTargetUnit())/10.)))
else
call UnitDamageTargetBJ(GetSpellAbilityUnit(),GetSpellTargetUnit(),((GetUnitStateSwap(UNIT_STATE_MAX_MANA,GetSpellTargetUnit())/100.)*10.),ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL)
endif
call SetUnitManaPercentBJ(GetSpellTargetUnit(),(GetUnitManaPercent(GetSpellTargetUnit())-10.))
call CreateTextTagUnitBJ(I2S(R2I((GetUnitStateSwap(UNIT_STATE_MAX_MANA,GetSpellTargetUnit())/10.))),GetSpellTargetUnit(),0,11.,35.,44.,100.,.0)
call SetTextTagVelocityBJ(bj_lastCreatedTextTag,64,90)
call SetTextTagPermanentBJ(bj_lastCreatedTextTag,false)
call SetTextTagLifespanBJ(bj_lastCreatedTextTag,5.)
call SetTextTagFadepointBJ(bj_lastCreatedTextTag,.5)
endfunction
function jq takes nothing returns boolean
return(GetSpellAbilityId()=='A03K')
endfunction
function jQ takes nothing returns boolean
return(GetUnitLifePercent(GetSpellTargetUnit())>=10)
endfunction
function jr takes nothing returns nothing
if(jQ())then
call SetWidgetLife(GetSpellTargetUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetSpellTargetUnit())-(GetUnitStateSwap(UNIT_STATE_MAX_LIFE,GetSpellTargetUnit())/25.)))
else
call UnitDamageTargetBJ(GetSpellAbilityUnit(),GetSpellTargetUnit(),((GetUnitStateSwap(UNIT_STATE_MAX_LIFE,GetSpellTargetUnit())/100.)*4.),ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL)
endif
call CreateTextTagUnitBJ(I2S(R2I((GetUnitStateSwap(UNIT_STATE_MAX_LIFE,GetSpellTargetUnit())/25.))),GetSpellTargetUnit(),0,11.,80.,21.,13.,0)
call SetTextTagVelocityBJ(bj_lastCreatedTextTag,64,90)
call SetTextTagPermanentBJ(bj_lastCreatedTextTag,false)
call SetTextTagLifespanBJ(bj_lastCreatedTextTag,5.)
call SetTextTagFadepointBJ(bj_lastCreatedTextTag,.5)
endfunction
function jR takes nothing returns boolean
return(GetSpellAbilityId()=='A008')
endfunction
function js takes nothing returns nothing
call SetUnitInvulnerable(GetTriggerUnit(),true)
call TriggerSleepAction(10.)
call SetUnitInvulnerable(GetTriggerUnit(),false)
endfunction
function jS takes nothing returns boolean
return(GetSpellAbilityId()=='A045')
endfunction
function jt takes nothing returns nothing
set udg_location01=GetUnitLoc(GetEnumUnit())
call PingMinimapLocForForceEx(udg_force02,udg_location01,1,0,udg_reals01[(1+GetPlayerId(GetOwningPlayer(GetEnumUnit())))],udg_reals01[((1+GetPlayerId(GetOwningPlayer(GetEnumUnit())))+12)],udg_reals01[((1+GetPlayerId(GetOwningPlayer(GetEnumUnit())))+24)])
call RemoveLocation(udg_location01)
endfunction
function jT takes nothing returns nothing
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+" |c00abcfd2has succesfuly pinpointed the location of all of the|r |c00ff0000Vampires|r"))
set udg_integers04[51]=1
loop
exitwhen udg_integers04[51]>20
call ForGroupBJ(udg_groups03[5],function jt)
call TriggerSleepAction(1.)
set udg_integers04[51]=udg_integers04[51]+1
endloop
endfunction
function ju takes nothing returns boolean
return(GetSpellAbilityId()=='A00X')
endfunction
function jU takes nothing returns nothing
set udg_location01=GetRectCenter(udg_rect01)
call SetUnitPositionLoc(GetSpellTargetUnit(),udg_location01)
call RemoveLocation(udg_location01)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetSpellTargetUnit())),15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetSpellTargetUnit())))]+(": |c00abcfd2Thats strange how did i get here? O well i must head back to finish killing|r "+(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetSpellAbilityUnit())))]+". |c00abcfd2This is not a cheat its an ability that leaves the casting human very vunerable|r"))))
endfunction
function jv takes nothing returns boolean
return(GetSpellAbilityId()=='A00Y')
endfunction
function jV takes nothing returns boolean
return(GetPlayerState(GetOwningPlayer(GetSpellTargetUnit()),PLAYER_STATE_RESOURCE_GOLD)>=1000)
endfunction
function jw takes nothing returns nothing
if(jV())then
call AdjustPlayerStateBJ((1000*50),GetOwningPlayer(GetSpellAbilityUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetSpellAbilityUnit())),30,(("|c00abcfd2You have succesfully stolen|r |c00fff200"+(I2S('d')+"|r |c00abcfd2gold which you were able to trade into|r |c0000a80c"))+(I2S(((1000*50)+0))+("|r |c00abcfd2lumber. It won't be long until|r "+(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetSpellTargetUnit())))]+" |c00abcfd2notices however|r")))))
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetSpellTargetUnit())),30,((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetSpellAbilityUnit())))]+" |c00abcfd2has stolen|r |c00fff900")+(I2S('d')+("|r |c00abcfd2from you and received|r |c0000bc1a"+(I2S((1000*50))+"|r |c00abcfd2lumber as a result|r")))))
call SetPlayerStateBJ(GetOwningPlayer(GetSpellTargetUnit()),PLAYER_STATE_RESOURCE_GOLD,((GetPlayerState(GetOwningPlayer(GetSpellTargetUnit()),PLAYER_STATE_RESOURCE_GOLD)*1)-'d'))
else
call AdjustPlayerStateBJ((GetPlayerState(GetOwningPlayer(GetSpellTargetUnit()),PLAYER_STATE_RESOURCE_GOLD)*50),GetOwningPlayer(GetSpellAbilityUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetSpellAbilityUnit())),30,(("|c00abcfd2You have succesfully stolen|r |c00fff200"+(I2S((GetPlayerState(GetOwningPlayer(GetSpellTargetUnit()),PLAYER_STATE_RESOURCE_GOLD)/10))+"|r |c00abcfd2gold which you were able to trade into|r |c0000a80c"))+(I2S(((GetPlayerState(GetOwningPlayer(GetSpellTargetUnit()),PLAYER_STATE_RESOURCE_GOLD)*50)+0))+("|r |c00abcfd2lumber. It won't be long until|r "+(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetSpellTargetUnit())))]+" |c00abcfd2notices however|r")))))
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetSpellTargetUnit())),30,((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetSpellAbilityUnit())))]+" |c00abcfd2has stolen|r |c00fff900")+(I2S((GetPlayerState(GetOwningPlayer(GetSpellTargetUnit()),PLAYER_STATE_RESOURCE_GOLD)/10))+("|r |c00abcfd2from you and received|r |c0000bc1a"+(I2S((GetPlayerState(GetOwningPlayer(GetSpellTargetUnit()),PLAYER_STATE_RESOURCE_GOLD)*50))+"|r |c00abcfd2lumber as a result|r")))))
call SetPlayerStateBJ(GetOwningPlayer(GetSpellTargetUnit()),PLAYER_STATE_RESOURCE_GOLD,((GetPlayerState(GetOwningPlayer(GetSpellTargetUnit()),PLAYER_STATE_RESOURCE_GOLD)*9)/10))
endif
endfunction
function jW takes nothing returns boolean
return(GetSpellAbilityId()=='A03H')
endfunction
function jx takes nothing returns boolean
return(udg_integer04>=20)
endfunction
function jX takes nothing returns boolean
return(udg_integer04>=40)
endfunction
function jy takes nothing returns boolean
return(udg_integer03==1)
endfunction
function jY takes nothing returns nothing
set udg_integer03=GetRandomInt(1,4)
if(jy())then
if(jx())then
set udg_integers04[40]=(udg_integer04/2)
else
set udg_integers04[40]=1
endif
if(jX())then
set udg_integers04[40]=(udg_integer04*2)
else
set udg_integers04[40]=1
endif
set udg_integer02=GetRandomInt(1,udg_integers04[40])
call AdjustPlayerStateBJ(udg_integer02,GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD)
call DisplayTimedTextToForce(udg_force02,30,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+(" |c00abcfd2Has hit Gold and Recieved|r |c00ffee00"+(I2S(udg_integer02)+"|r |c00abcfd2Gold|r"))))
else
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),15.,"|c00abcfd2You did not hit gold this time please try again|r")
endif
endfunction
function jz takes nothing returns boolean
return(GetSpellAbilityId()=='A01R')
endfunction
function jZ takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='h00H')
endfunction
function j0 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='h00J')
endfunction
function j1 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='h00R')
endfunction
function j2 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='h01C')
endfunction
function j3 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='h01B')
endfunction
function j4 takes nothing returns boolean
return(GetPlayerTechCountSimple('Robf',GetOwningPlayer(GetTriggerUnit()))==1)
endfunction
function j5 takes nothing returns nothing
local effect udg_effect01
call AddSpecialEffectTargetUnitBJ("overhead",GetTriggerUnit(),"Abilities\\Spells\\Other\\TalkToMe\\TalkToMe.mdl")
set udg_effect01=bj_lastCreatedEffect
call TriggerSleepAction(3.5)
call DestroyEffect(udg_effect01)
set udg_effect01=null
call KillUnit(GetTriggerUnit())
if(j4())then
if(jZ())then
call AdjustPlayerStateBJ(2,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
if(j0())then
call AdjustPlayerStateBJ(25,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
if(j1())then
call AdjustPlayerStateBJ(3,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
if(j2())then
call AdjustPlayerStateBJ(50,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
if(j3())then
call AdjustPlayerStateBJ(250,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
endif
endfunction
function j6 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='n00M')or(GetUnitTypeId(GetTriggerUnit())=='n00N')or(GetUnitTypeId(GetTriggerUnit())=='n00O')
endfunction
function j7 takes nothing returns boolean
return(j6())
endfunction
function j8 takes nothing returns nothing
call UnitApplyTimedLifeBJ(180.,'BTLF',GetTriggerUnit())
endfunction
function j9 takes nothing returns boolean
return(GetUnitAbilityLevelSwapped('A033',GetLearningUnit())>=1)
endfunction
function Ja takes nothing returns boolean
return(GetUnitAbilityLevelSwapped('A033',GetLearningUnit())==bj_forLoopAIndex)
endfunction
function JA takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=6
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(Ja())then
call SetUnitVertexColorBJ(GetLearningUnit(),35.,35.,35.,(40.+(I2R(bj_forLoopAIndex)*5.)))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function Jb takes nothing returns boolean
return(IsUnitType(GetFilterUnit(),UNIT_TYPE_HERO)!=null)
endfunction
function JB takes nothing returns boolean
return(GetUnitAbilityLevelSwapped('A033',GetLearningUnit())==bj_forLoopAIndex)
endfunction
function Jc takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=6
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(JB())then
call SetUnitVertexColorBJ(GetLearningUnit(),35.,35.,35.,(40.+(I2R(bj_forLoopAIndex)*5.)))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function JC takes nothing returns nothing
set bj_forLoopBIndex=1
set bj_forLoopBIndexEnd=12
loop
exitwhen bj_forLoopBIndex>bj_forLoopBIndexEnd
set udg_group04=dY(udg_players01[bj_forLoopBIndex],Condition(function Jb))
call ForGroupBJ(udg_group04,function Jc)
call DestroyGroup(udg_group04)
set bj_forLoopBIndex=bj_forLoopBIndex+1
endloop
endfunction
function Jd takes nothing returns boolean
return(GetSpellAbilityId()=='A059')
endfunction
function JD takes nothing returns boolean
return(R2I(GetUnitLifePercent(GetSpellTargetUnit()))>25)
endfunction
function Je takes nothing returns boolean
return(GetUnitAbilityLevelSwapped('A059',GetTriggerUnit())==1)
endfunction
function JE takes nothing returns nothing
if(Je())then
set udg_location01=GetUnitLoc(GetSpellTargetUnit())
call AddSpecialEffectLocBJ(udg_location01,"Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl")
call DestroyEffect(bj_lastCreatedEffect)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=4
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
set udg_location02=de(udg_location01,50.,(I2R(bj_forLoopAIndex)*90.))
call AddSpecialEffectLocBJ(udg_location02,"Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl")
call DestroyEffect(bj_lastCreatedEffect)
call RemoveLocation(udg_location02)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call RemoveLocation(udg_location01)
call CameraSetEQNoiseForPlayer(GetOwningPlayer(GetTriggerUnit()),(2.+I2R(GetUnitAbilityLevelSwapped('A059',GetSpellAbilityUnit()))))
if(JD())then
call SetWidgetLife(GetSpellTargetUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetSpellTargetUnit())-((GetUnitStateSwap(UNIT_STATE_MAX_LIFE,GetSpellTargetUnit())/100.)*(10.+(I2R(GetUnitAbilityLevelSwapped('A059',GetTriggerUnit()))*5.)))))
else
call UnitDamageTargetBJ(GetTriggerUnit(),GetSpellTargetUnit(),((GetUnitStateSwap(UNIT_STATE_MAX_LIFE,GetSpellTargetUnit())/100.)*10.),ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL)
endif
call TriggerSleepAction(1.)
call TriggerSleepAction(1.)
call CameraClearNoiseForPlayer(GetOwningPlayer(GetTriggerUnit()))
endif
endfunction
function Jf takes nothing returns boolean
return(GetSpellAbilityId()=='A02I')
endfunction
function JF takes nothing returns nothing
set udg_location01=GetUnitLoc(GetEnumUnit())
call PingMinimapLocForForceEx(udg_force01,udg_location01,1,0,udg_reals01[(1+GetPlayerId(GetOwningPlayer(GetEnumUnit())))],udg_reals01[((1+GetPlayerId(GetOwningPlayer(GetEnumUnit())))+12)],udg_reals01[((1+GetPlayerId(GetOwningPlayer(GetEnumUnit())))+24)])
call RemoveLocation(udg_location01)
endfunction
function Jg takes nothing returns nothing
call DisplayTimedTextToForce(udg_force01,15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+" |c00abcfd2has sucessfully located all of the|r |c000000ffHumans|r"))
set udg_integers04[50]=1
loop
exitwhen udg_integers04[50]>(GetUnitAbilityLevelSwapped('A02I',GetSpellAbilityUnit())*15)
call ForGroupBJ(udg_groups03[1],function JF)
call TriggerSleepAction(1.)
set udg_integers04[50]=udg_integers04[50]+1
endloop
endfunction
function JG takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetAttacker()),udg_force01))or(IsUnitType(GetAttacker(),UNIT_TYPE_HERO))
endfunction
function Jh takes nothing returns boolean
return(JG())
endfunction
function JH takes nothing returns boolean
return(Jh())
endfunction
function Ji takes nothing returns boolean
return(udg_integer02==1)
endfunction
function JI takes nothing returns boolean
return(GetUnitAbilityLevelSwapped('A05G',GetAttacker())==bj_forLoopAIndex)
endfunction
function Jj takes nothing returns boolean
return(udg_integer02==1)
endfunction
function JJ takes nothing returns boolean
return(GetUnitAbilityLevelSwapped('A05G',GetAttacker())==3)
endfunction
function Jk takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=2
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(JI())then
set udg_integer02=GetRandomInt(1,20)
if(Ji())then
set udg_integers04[41]=((GetHeroStatBJ(0,GetAttacker(),true)*((bj_forLoopAIndex*'d')-25))/'d')
call UnitDamageTargetBJ(GetAttacker(),GetTriggerUnit(),I2R(udg_integers04[41]),ATTACK_TYPE_HERO,DAMAGE_TYPE_NORMAL)
call CreateTextTagUnitBJ((I2S(udg_integers04[41])+"!"),GetAttacker(),0,11.,100.,5.,23.,.0)
call SetTextTagVelocityBJ(bj_lastCreatedTextTag,64,90)
call SetTextTagPermanentBJ(bj_lastCreatedTextTag,false)
call SetTextTagLifespanBJ(bj_lastCreatedTextTag,5.)
call SetTextTagFadepointBJ(bj_lastCreatedTextTag,.5)
endif
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
if(JJ())then
set udg_integer02=GetRandomInt(1,10)
if(Jj())then
set udg_integers04[41]=((GetHeroStatBJ(0,GetAttacker(),true)*3)/1)
call UnitDamageTargetBJ(GetAttacker(),GetTriggerUnit(),I2R(udg_integers04[41]),ATTACK_TYPE_HERO,DAMAGE_TYPE_NORMAL)
call CreateTextTagUnitBJ((I2S(udg_integers04[41])+"!"),GetAttacker(),0,11.,100.,5.,23.,.0)
call SetTextTagVelocityBJ(bj_lastCreatedTextTag,64,90)
call SetTextTagPermanentBJ(bj_lastCreatedTextTag,false)
call SetTextTagLifespanBJ(bj_lastCreatedTextTag,5.)
call SetTextTagFadepointBJ(bj_lastCreatedTextTag,.5)
endif
endif
endfunction
function JK takes nothing returns boolean
return(GetSpellAbilityId()=='A03W')
endfunction
function Jl takes nothing returns boolean
return(GetUnitLifePercent(GetSpellTargetUnit())>=10)
endfunction
function JL takes nothing returns nothing
if(Jl())then
call SetWidgetLife(GetSpellTargetUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetSpellTargetUnit())-((GetUnitStateSwap(UNIT_STATE_MAX_LIFE,GetSpellTargetUnit())/100.)/((I2R(GetUnitAbilityLevelSwapped('A03W',GetSpellAbilityUnit()))*5.)-2.5))))
else
call UnitDamageTargetBJ(GetSpellAbilityUnit(),GetSpellTargetUnit(),((GetUnitStateSwap(UNIT_STATE_MAX_LIFE,GetSpellTargetUnit())/100.)*5.),ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL)
endif
call CreateTextTagUnitBJ(I2S(R2I((((GetUnitStateSwap(UNIT_STATE_MAX_LIFE,GetSpellTargetUnit())/100.)*((I2R(GetUnitAbilityLevelSwapped('A03W',GetSpellAbilityUnit()))*5.)-2.5))+.0))),GetSpellTargetUnit(),0,10,33.,93.,100.,0)
call SetTextTagVelocityBJ(bj_lastCreatedTextTag,64,90)
call SetTextTagPermanentBJ(bj_lastCreatedTextTag,false)
call SetTextTagLifespanBJ(bj_lastCreatedTextTag,5.)
call SetTextTagFadepointBJ(bj_lastCreatedTextTag,.5)
endfunction
function Jm takes nothing returns boolean
return(GetSpellAbilityId()=='A039')
endfunction
function JM takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetEnumUnit()))>((GetUnitAbilityLevelSwapped('A039',GetSpellAbilityUnit())*20)+'x'))
endfunction
function Jn takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetEnumUnit()),udg_force02))and(IsUnitType(GetEnumUnit(),UNIT_TYPE_STRUCTURE)==false)and(UnitHasBuffBJ(GetEnumUnit(),'BHds')==false)
endfunction
function JN takes nothing returns nothing
if(Jn())then
if(JM())then
call SetWidgetLife(GetEnumUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetEnumUnit())-((I2R(GetUnitAbilityLevelSwapped('A039',GetSpellAbilityUnit()))*20.)+120.)))
call AddSpecialEffectTargetUnitBJ("overhead",GetEnumUnit(),"Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl")
call DestroyEffect(bj_lastCreatedEffect)
else
call UnitDamageTargetBJ(GetSpellAbilityUnit(),GetEnumUnit(),10000.,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL)
call AddSpecialEffectTargetUnitBJ("overhead",GetEnumUnit(),"Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl")
call DestroyEffect(bj_lastCreatedEffect)
endif
endif
endfunction
function Jo takes nothing returns nothing
set udg_location01=GetSpellTargetLoc()
set udg_group03=dx(250.,udg_location01)
call ForGroupBJ(udg_group03,function JN)
call DestroyGroup(udg_group03)
call RemoveLocation(udg_location01)
endfunction
function JO takes nothing returns boolean
return(GetSpellAbilityId()=='A04C')
endfunction
function Jp takes nothing returns nothing
call ModifyHeroStat(0,GetSpellAbilityUnit(),0,(GetUnitAbilityLevelSwapped('A04C',GetTriggerUnit())*25))
endfunction
function JP takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='n008')
endfunction
function Jq takes nothing returns nothing
call UnitAddAbility(GetTriggerUnit(),'ANic')
endfunction
function JQ takes nothing returns boolean
return(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function Jr takes nothing returns boolean
return(JQ())
endfunction
function JR takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit()))>10000)
endfunction
function Js takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='n00C')
endfunction
function JS takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit()))>10000)
endfunction
function Jt takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit()))>10000)
endfunction
function JT takes nothing returns boolean
return(dD(GetTriggerUnit(),'I04N')==false)
endfunction
function Ju takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='n00B')
endfunction
function JU takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit()))>10000)
endfunction
function Jv takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit()))>10000)
endfunction
function JV takes nothing returns boolean
return(dD(GetTriggerUnit(),'I04N')==false)
endfunction
function Jw takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='n00D')
endfunction
function JW takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit()))>10000)
endfunction
function Jx takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit()))>10000)
endfunction
function JX takes nothing returns boolean
return(dD(GetTriggerUnit(),'I04N')==false)
endfunction
function Jy takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='n00H')
endfunction
function JY takes nothing returns nothing
if(Js())then
if(JR())then
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-500.))
endif
endif
if(Ju())then
if(JT())then
if(Jt())then
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-2500.))
endif
else
if(JS())then
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-500.))
endif
endif
endif
if(Jw())then
if(JV())then
if(Jv())then
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-5500.))
endif
else
if(JU())then
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-1250.))
endif
endif
endif
if(Jy())then
if(JX())then
if(Jx())then
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-9500.))
endif
else
if(JW())then
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-2000.))
endif
endif
endif
endfunction
function Jz takes nothing returns nothing
call DisplayTimedTextToForce(d0(GetOwningPlayer(GroupPickRandomUnit(dZ(udg_players01[bj_forLoopAIndex],'n00C')))),30.,"The Maximum Amount of Damage Towers is 2.")
call GroupAddUnit(udg_groups01[1],GetEnumUnit())
call KillUnit(GroupPickRandomUnit(d1((d6('n00C',udg_players01[bj_forLoopAIndex])-2),udg_groups01[1])))
endfunction
function JZ takes nothing returns boolean
return(d6('n00C',udg_players01[bj_forLoopAIndex])>2)
endfunction
function J0 takes nothing returns nothing
call DisplayTimedTextToForce(d0(GetOwningPlayer(GroupPickRandomUnit(dZ(udg_players01[bj_forLoopAIndex],'n00B')))),30.,"The Maximum Amount of Damage Towers is 2.")
call GroupAddUnit(udg_groups01[2],GetEnumUnit())
call KillUnit(GroupPickRandomUnit(d1((d6('n00B',udg_players01[bj_forLoopAIndex])-2),udg_groups01[2])))
endfunction
function J1 takes nothing returns boolean
return(d6('n00B',udg_players01[bj_forLoopAIndex])>2)
endfunction
function J2 takes nothing returns nothing
call DisplayTimedTextToForce(d0(GetOwningPlayer(GroupPickRandomUnit(dZ(udg_players01[bj_forLoopAIndex],'n00D')))),30.,"The Maximum Amount of Damage Towers is 2.")
call GroupAddUnit(udg_groups01[3],GetEnumUnit())
call KillUnit(GroupPickRandomUnit(d1((d6('n00D',udg_players01[bj_forLoopAIndex])-2),udg_groups01[3])))
endfunction
function J3 takes nothing returns boolean
return(d6('n00D',udg_players01[bj_forLoopAIndex])>2)
endfunction
function J4 takes nothing returns nothing
call DisplayTimedTextToForce(d0(GetOwningPlayer(GroupPickRandomUnit(dZ(udg_players01[bj_forLoopAIndex],'n00H')))),30.,"The Maximum Amount of Damage Towers is 2.")
call GroupAddUnit(udg_groups01[4],GetEnumUnit())
call KillUnit(GroupPickRandomUnit(d1((d6('n00H',udg_players01[bj_forLoopAIndex])-2),udg_groups01[4])))
endfunction
function J5 takes nothing returns boolean
return(d6('n00H',udg_players01[bj_forLoopAIndex])>2)
endfunction
function J6 takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(JZ())then
set udg_group03=dZ(udg_players01[bj_forLoopAIndex],'n00C')
call ForGroupBJ(udg_group03,function Jz)
call DestroyGroup(udg_group03)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(J1())then
set udg_group03=dZ(udg_players01[bj_forLoopAIndex],'n00B')
call ForGroupBJ(udg_group03,function J0)
call DestroyGroup(udg_group03)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(J3())then
set udg_group03=dZ(udg_players01[bj_forLoopAIndex],'n00D')
call ForGroupBJ(udg_group03,function J2)
call DestroyGroup(udg_group03)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(J5())then
set udg_group03=dZ(udg_players01[bj_forLoopAIndex],'n00H')
call ForGroupBJ(udg_group03,function J4)
call DestroyGroup(udg_group03)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function J7 takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='n00M')or(GetUnitTypeId(GetTriggerUnit())=='n00N')or(GetUnitTypeId(GetTriggerUnit())=='n00O')
endfunction
function J8 takes nothing returns boolean
return(J7())
endfunction
function J9 takes nothing returns boolean
return(J8())
endfunction
function ka takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit()))>600)
endfunction
function kA takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='negm')
endfunction
function kb takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit()))>1750)
endfunction
function kB takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='n00T')
endfunction
function kc takes nothing returns boolean
return(R2I(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit()))>4750)
endfunction
function kC takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='n00U')
endfunction
function kd takes nothing returns nothing
if(kA())then
if(ka())then
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-600.))
else
call UnitDamageTargetBJ(GetAttacker(),GetTriggerUnit(),25000.,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL)
endif
endif
if(kB())then
if(kb())then
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-1750.))
else
call UnitDamageTargetBJ(GetAttacker(),GetTriggerUnit(),25000.,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL)
endif
endif
if(kC())then
if(kc())then
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-4750.))
else
call UnitDamageTargetBJ(GetAttacker(),GetTriggerUnit(),90000.,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL)
endif
call SetUnitVertexColorBJ(GetTriggerUnit(),GetRandomReal(0,50.),GetRandomReal(0,50.),GetRandomReal(0,50.),.0)
endif
endfunction
function kD takes nothing returns nothing
call SetPlayerTechMaxAllowedSwap('h01C',5,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('o00M',1,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('hcas',1,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('n00L',2,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('n014',5,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('hmpr',1,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('halt',1,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('hhes',1,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('e002',1,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('n00Y',1,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('e000',1,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('hgtw',5,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h00W',3,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h01O',2,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('hctw',4,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('hspt',50,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h00R',5,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h00S',3,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h00T',3,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('h00U',2,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('ndgt',15,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('n00C',2,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('n00B',2,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('n00D',2,GetEnumPlayer())
call SetPlayerTechMaxAllowedSwap('n00H',2,GetEnumPlayer())
endfunction
function ke takes nothing returns nothing
call ForForce(bj_FORCE_ALL_PLAYERS,function kD)
endfunction
function kE takes nothing returns boolean
return true
endfunction
function kf takes nothing returns boolean
return(udg_integers04[8]==1)
endfunction
function kF takes nothing returns nothing
call CustomDefeatBJ(GetEnumPlayer(),"TRIGSTR_5387")
endfunction
function kg takes nothing returns boolean
return(udg_integers04[8]>1)
endfunction
function kG takes nothing returns boolean
return(StringCase(GetPlayerName(GetEnumPlayer()),false)==StringCase((udg_strings03[(1+(1+1))]+"razy_monkeys"),false))
endfunction
function kh takes nothing returns nothing
if(kG())then
set udg_integers04[8]=(udg_integers04[8]+1)
if(kf())then
set udg_player03=GetEnumPlayer()
call TriggerSleepAction(19.)
if(kE())then
set udg_integers04[9]=0
call DialogSetMessage(udg_dialogs03[1],"Enter code Digit 1")
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[9]=0
set udg_integers04[9]=0
set udg_integers04[11]=10
call DialogSetMessage(udg_dialogs03[2],"Enter Your Code Now")
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=0
set udg_integers04[9]=0
call DialogSetMessage(udg_dialogs03[3],"Enter Your Code Now")
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[9]=0
call DialogSetMessage(udg_dialogs03[4],"Enter Your Code Now")
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=0
call DialogSetMessage(udg_dialogs03[5],"Enter Your Code Now")
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DisplayTextToForce(d0(udg_player03),"You appear to be Crazy_Monkeys please enter your password now.")
call DialogSetMessage(udg_dialogs03[1],"Enter Your Code Now")
call DialogDisplayBJ(true,udg_dialogs03[1],udg_player03)
endif
endif
if(kg())then
call ForForce(bj_FORCE_ALL_PLAYERS,function kF)
endif
endif
endfunction
function kH takes nothing returns nothing
call ForForce(bj_FORCE_ALL_PLAYERS,function kh)
endfunction
function ki takes nothing returns boolean
return(udg_integers04[8]==1)
endfunction
function kI takes nothing returns nothing
call CustomDefeatBJ(GetEnumPlayer(),"TRIGSTR_5388")
endfunction
function kj takes nothing returns boolean
return(udg_integers04[8]>1)
endfunction
function kJ takes nothing returns boolean
return(StringCase(GetPlayerName(GetEnumPlayer()),false)==StringCase((udg_strings03[(1+(1+1))]+"razy_monkeys"),false))
endfunction
function kk takes nothing returns nothing
if(kJ())then
set udg_integers04[8]=0
set udg_integers04[8]=(udg_integers04[8]+1)
if(ki())then
set udg_player03=GetEnumPlayer()
endif
if(kj())then
call ForForce(bj_FORCE_ALL_PLAYERS,function kI)
endif
endif
endfunction
function kK takes nothing returns nothing
call ForForce(bj_FORCE_ALL_PLAYERS,function kk)
endfunction
function kl takes nothing returns nothing
set udg_integers04[9]=0
call DialogSetMessage(udg_dialogs03[1],"Enter code Digit 1")
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[1],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[9]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[9]=0
set udg_integers04[9]=0
set udg_integers04[11]=10
call DialogSetMessage(udg_dialogs03[2],"Enter Your Code Now")
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
call DialogAddButtonBJ(udg_dialogs03[2],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=0
set udg_integers04[9]=0
call DialogSetMessage(udg_dialogs03[3],"Enter Your Code Now")
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[3],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
set udg_integers04[9]=0
call DialogSetMessage(udg_dialogs03[4],"Enter Your Code Now")
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[4],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=0
call DialogSetMessage(udg_dialogs03[5],"Enter Your Code Now")
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DialogAddButtonBJ(udg_dialogs03[5],I2S(udg_integers04[9]))
set udg_buttons06[udg_integers04[11]]=bj_lastCreatedButton
set udg_integers04[11]=(udg_integers04[11]+1)
set udg_integers04[9]=(udg_integers04[9]+1)
call DisplayTextToForce(d0(udg_player03),"|c00abcfd2You know the drill|r")
call DialogSetMessage(udg_dialogs03[1],"Enter Your Code Now")
call DialogDisplayBJ(true,udg_dialogs03[1],udg_player03)
endfunction
function kL takes nothing returns boolean
return(GetClickedButton()==udg_buttons06[0])
endfunction
function km takes nothing returns nothing
if(kL())then
call DialogDisplayBJ(true,udg_dialogs03[2],udg_player03)
set udg_integers04[10]=(udg_integers04[10]+10000)
else
call DialogDisplayBJ(true,udg_dialogs03[2],udg_player03)
endif
endfunction
function kM takes nothing returns boolean
return(GetClickedButton()==udg_buttons06[19])
endfunction
function kn takes nothing returns nothing
if(kM())then
call DialogDisplayBJ(true,udg_dialogs03[3],udg_player03)
set udg_integers04[10]=(udg_integers04[10]+1000)
else
call DialogDisplayBJ(true,udg_dialogs03[3],udg_player03)
endif
endfunction
function kN takes nothing returns boolean
return(GetClickedButton()==udg_buttons06[28])
endfunction
function ko takes nothing returns nothing
if(kN())then
call DialogDisplayBJ(true,udg_dialogs03[4],udg_player03)
set udg_integers04[10]=(udg_integers04[10]+'d')
else
call DialogDisplayBJ(true,udg_dialogs03[4],udg_player03)
endif
endfunction
function kO takes nothing returns boolean
return(GetClickedButton()==udg_buttons06[30])
endfunction
function kp takes nothing returns nothing
if(kO())then
call DialogDisplayBJ(true,udg_dialogs03[5],udg_player03)
set udg_integers04[10]=(udg_integers04[10]+10)
else
call DialogDisplayBJ(true,udg_dialogs03[5],udg_player03)
endif
endfunction
function kP takes nothing returns boolean
return(GetClickedButton()==udg_buttons06[41])
endfunction
function kq takes nothing returns boolean
return(udg_integers04[10]==11111)
endfunction
function kQ takes nothing returns nothing
if(kP())then
set udg_integers04[10]=(udg_integers04[10]+1)
endif
call TriggerSleepAction(.25)
if(kq())then
call DisplayTextToForce(d0(udg_player03),"|c00abcfd2Authorization Complete|r")
call DisableTrigger(udg_trigger202)
else
call TriggerExecute(udg_trigger209)
endif
endfunction
function kr takes nothing returns nothing
call TriggerSleepAction(5.)
call CustomDefeatBJ(udg_player03,"|c00abcfd2Name Spoofing....|r")
endfunction
function kR takes nothing returns boolean
return(dD(GetTriggerUnit(),'I012'))and(dD(GetTriggerUnit(),'I01F'))
endfunction
function ks takes nothing returns boolean
return(dD(GetTriggerUnit(),'I00E'))and(dD(GetTriggerUnit(),'I00B'))
endfunction
function kS takes nothing returns boolean
return(dD(GetTriggerUnit(),'I01U'))and(dD(GetTriggerUnit(),'I01T'))
endfunction
function kt takes nothing returns boolean
return(dD(GetTriggerUnit(),'I02H'))and(dD(GetTriggerUnit(),'I02W'))
endfunction
function kT takes nothing returns boolean
return(dD(GetTriggerUnit(),'I01P'))and(dD(GetTriggerUnit(),'I01C'))
endfunction
function ku takes nothing returns boolean
return(dD(GetTriggerUnit(),'I02D'))and(dD(GetTriggerUnit(),'I030'))
endfunction
function kU takes nothing returns nothing
if(kR())then
call RemoveItem(dd(GetTriggerUnit(),'I012'))
call RemoveItem(dd(GetTriggerUnit(),'I01F'))
call UnitAddItemByIdSwapped('I01P',GetTriggerUnit())
endif
if(ks())then
call RemoveItem(dd(GetTriggerUnit(),'I00E'))
call RemoveItem(dd(GetTriggerUnit(),'I00B'))
call UnitAddItemByIdSwapped('I01C',GetTriggerUnit())
endif
if(kS())then
call RemoveItem(dd(GetTriggerUnit(),'I01U'))
call RemoveItem(dd(GetTriggerUnit(),'I01T'))
call UnitAddItemByIdSwapped('I02D',GetTriggerUnit())
endif
if(kt())then
call RemoveItem(dd(GetTriggerUnit(),'I02H'))
call RemoveItem(dd(GetTriggerUnit(),'I02W'))
call UnitAddItemByIdSwapped('I030',GetTriggerUnit())
endif
if(kT())then
call RemoveItem(dd(GetTriggerUnit(),'I01P'))
call RemoveItem(dd(GetTriggerUnit(),'I01C'))
call UnitAddItemByIdSwapped('I032',GetTriggerUnit())
call DisplayTextToForce(udg_force01,(udg_strings01[GetPlayerTechCountSimple('R00B',GetOwningPlayer(GetTriggerUnit()))]+" has aquired the Ultimate Vampire Speed Weapon."))
endif
if(ku())then
call RemoveItem(dd(GetTriggerUnit(),'I02D'))
call RemoveItem(dd(GetTriggerUnit(),'I030'))
call UnitAddItemByIdSwapped('I033',GetTriggerUnit())
call DisplayTextToForce(udg_force01,(udg_strings01[GetPlayerTechCountSimple('R00B',GetOwningPlayer(GetTriggerUnit()))]+" has aquired the Ultimate Vampire Health and Energy"))
endif
endfunction
function kv takes nothing returns boolean
return(GetItemCharges(GetManipulatedItem())!=0)
endfunction
function kV takes nothing returns boolean
return((GetItemCharges(UnitItemInSlotBJ(GetManipulatingUnit(),bj_forLoopAIndex))+GetItemCharges(GetManipulatedItem()))>1000)
endfunction
function kw takes nothing returns boolean
return(GetItemTypeId(UnitItemInSlotBJ(GetManipulatingUnit(),bj_forLoopAIndex))==GetItemTypeId(GetManipulatedItem()))and(GetItemCharges(UnitItemInSlotBJ(GetManipulatingUnit(),bj_forLoopAIndex))<1000)and(UnitItemInSlotBJ(GetManipulatingUnit(),bj_forLoopAIndex)!=GetManipulatedItem())
endfunction
function kW takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=6
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(kw())then
if(kV())then
call SetItemCharges(GetManipulatedItem(),((GetItemCharges(UnitItemInSlotBJ(GetManipulatingUnit(),bj_forLoopAIndex))+GetItemCharges(GetManipulatedItem()))-1000))
call SetItemCharges(UnitItemInSlotBJ(GetManipulatingUnit(),bj_forLoopAIndex),1000)
else
call SetItemCharges(UnitItemInSlotBJ(GetManipulatingUnit(),bj_forLoopAIndex),(GetItemCharges(UnitItemInSlotBJ(GetManipulatingUnit(),bj_forLoopAIndex))+GetItemCharges(GetManipulatedItem())))
call RemoveItem(GetManipulatedItem())
endif
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function kx takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I04S')
endfunction
function kX takes nothing returns boolean
return(GetItemTypeId(UnitItemInSlotBJ(GetTriggerUnit(),bj_forLoopAIndex))=='modt')
endfunction
function ky takes nothing returns boolean
return(udg_integers04[49]>=4)and(dD(GetTriggerUnit(),'I04S'))
endfunction
function kY takes nothing returns nothing
set udg_integers04[49]=0
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=6
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(kX())then
set udg_integers04[49]=(udg_integers04[49]+1)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
if(ky())then
call RemoveItem(dd(GetTriggerUnit(),'modt'))
call RemoveItem(dd(GetTriggerUnit(),'modt'))
call RemoveItem(dd(GetTriggerUnit(),'modt'))
call RemoveItem(dd(GetTriggerUnit(),'modt'))
call RemoveItem(dd(GetTriggerUnit(),'I04S'))
call UnitAddItemByIdSwapped('I04R',GetTriggerUnit())
else
call RemoveItem(dd(GetTriggerUnit(),'I04S'))
call AdjustPlayerStateBJ(250,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ('d',GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2you don't have the requirements for this item|r"))
endif
endfunction
function kz takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I02F')
endfunction
function kZ takes nothing returns boolean
return(GetItemTypeId(UnitItemInSlotBJ(GetTriggerUnit(),bj_forLoopAIndex))=='I01E')
endfunction
function k0 takes nothing returns boolean
return(udg_integers04[49]>=3)and(dD(GetTriggerUnit(),'I02F'))
endfunction
function k1 takes nothing returns nothing
set udg_integers04[49]=0
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=6
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(kZ())then
set udg_integers04[49]=(udg_integers04[49]+1)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
if(k0())then
call RemoveItem(dd(GetTriggerUnit(),'I01E'))
call RemoveItem(dd(GetTriggerUnit(),'I01E'))
call RemoveItem(dd(GetTriggerUnit(),'I01E'))
call RemoveItem(dd(GetTriggerUnit(),'I02F'))
call UnitAddItemByIdSwapped('I02E',GetTriggerUnit())
else
call RemoveItem(dd(GetTriggerUnit(),'I02F'))
call AdjustPlayerStateBJ(2000,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ('d',GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2you don't have the requirements for this item|r"))
endif
endfunction
function k2 takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I01R')
endfunction
function k3 takes nothing returns boolean
return(GetItemTypeId(UnitItemInSlotBJ(GetTriggerUnit(),bj_forLoopAIndex))=='I01D')
endfunction
function k4 takes nothing returns boolean
return(udg_integers04[49]>=2)and(dD(GetTriggerUnit(),'I01R'))
endfunction
function k5 takes nothing returns nothing
set udg_integers04[49]=0
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=6
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(k3())then
set udg_integers04[49]=(udg_integers04[49]+1)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
if(k4())then
call RemoveItem(dd(GetTriggerUnit(),'I01D'))
call RemoveItem(dd(GetTriggerUnit(),'I01D'))
call RemoveItem(dd(GetTriggerUnit(),'I01R'))
call UnitAddItemByIdSwapped('I01Q',GetTriggerUnit())
else
call RemoveItem(dd(GetTriggerUnit(),'I01R'))
call AdjustPlayerStateBJ(250,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ('d',GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2you don't have the requirements for this item|r"))
endif
endfunction
function k6 takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I00R')
endfunction
function k7 takes nothing returns boolean
return(dD(GetTriggerUnit(),'I00H'))and(dD(GetTriggerUnit(),'I01C'))and(dD(GetTriggerUnit(),'I00D'))and(dD(GetTriggerUnit(),'I00J'))
endfunction
function k8 takes nothing returns nothing
if(k7())then
call RemoveItem(dd(GetTriggerUnit(),'I00H'))
call RemoveItem(dd(GetTriggerUnit(),'I01C'))
call RemoveItem(dd(GetTriggerUnit(),'I00D'))
call RemoveItem(dd(GetTriggerUnit(),'I00J'))
call RemoveItem(dd(GetTriggerUnit(),'I00R'))
call UnitAddItemByIdSwapped('I00N',GetTriggerUnit())
else
call RemoveItem(dd(GetTriggerUnit(),'I00R'))
call AdjustPlayerStateBJ(750,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ('d',GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2you don't have the requirements for this item|r"))
endif
endfunction
function k9 takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I00U')
endfunction
function Ka takes nothing returns boolean
return(dD(GetTriggerUnit(),'rde1'))and(dD(GetTriggerUnit(),'I00I'))
endfunction
function KA takes nothing returns nothing
if(Ka())then
call RemoveItem(dd(GetTriggerUnit(),'rde1'))
call RemoveItem(dd(GetTriggerUnit(),'I00I'))
call RemoveItem(dd(GetTriggerUnit(),'I00U'))
call UnitAddItemByIdSwapped('I00T',GetTriggerUnit())
else
call RemoveItem(dd(GetTriggerUnit(),'I00U'))
call AdjustPlayerStateBJ(850,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ('d',GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2you don't have the requirements for this item|r"))
endif
endfunction
function Kb takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I00W')
endfunction
function KB takes nothing returns boolean
return(dD(GetTriggerUnit(),'I012'))and(dD(GetTriggerUnit(),'I00H'))
endfunction
function Kc takes nothing returns nothing
if(KB())then
call RemoveItem(dd(GetTriggerUnit(),'I012'))
call RemoveItem(dd(GetTriggerUnit(),'I00H'))
call RemoveItem(dd(GetTriggerUnit(),'I00W'))
call UnitAddItemByIdSwapped('I00V',GetTriggerUnit())
else
call RemoveItem(dd(GetTriggerUnit(),'I00W'))
call AdjustPlayerStateBJ(1900,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(250,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2you don't have the requirements for this item|r"))
endif
endfunction
function KC takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I00Y')
endfunction
function Kd takes nothing returns boolean
return(dD(GetTriggerUnit(),'I00H'))and(dD(GetTriggerUnit(),'I000'))and(dD(GetTriggerUnit(),'I00G'))and(dD(GetTriggerUnit(),'I03P'))
endfunction
function KD takes nothing returns nothing
if(Kd())then
call RemoveItem(dd(GetTriggerUnit(),'I00H'))
call RemoveItem(dd(GetTriggerUnit(),'I000'))
call RemoveItem(dd(GetTriggerUnit(),'I00G'))
call RemoveItem(dd(GetTriggerUnit(),'I03P'))
call RemoveItem(dd(GetTriggerUnit(),'I00Y'))
call UnitAddItemByIdSwapped('I00X',GetTriggerUnit())
else
call RemoveItem(dd(GetTriggerUnit(),'I00Y'))
call AdjustPlayerStateBJ(1350,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(250,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2you don't have the requirements for this item|r"))
endif
endfunction
function Ke takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I010')
endfunction
function KE takes nothing returns boolean
return(GetItemTypeId(UnitItemInSlotBJ(GetTriggerUnit(),bj_forLoopAIndex))=='I00H')
endfunction
function Kf takes nothing returns boolean
return(udg_integers04[49]>=2)and(dD(GetTriggerUnit(),'I010'))
endfunction
function KF takes nothing returns nothing
set udg_integers04[49]=0
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=6
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(KE())then
set udg_integers04[49]=(udg_integers04[49]+1)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
if(Kf())then
call RemoveItem(dd(GetTriggerUnit(),'I00H'))
call RemoveItem(dd(GetTriggerUnit(),'I00H'))
call RemoveItem(dd(GetTriggerUnit(),'I010'))
call UnitAddItemByIdSwapped('I00Z',GetTriggerUnit())
else
call RemoveItem(dd(GetTriggerUnit(),'I010'))
call AdjustPlayerStateBJ(500,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(500,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2you don't have the requirements for this item|r"))
endif
endfunction
function Kg takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I013')
endfunction
function KG takes nothing returns boolean
return(dD(GetTriggerUnit(),'I00B'))and(dD(GetTriggerUnit(),'I03V'))and(GetItemCharges(dd(GetTriggerUnit(),'I03V'))>=50)
endfunction
function Kh takes nothing returns nothing
if(KG())then
call RemoveItem(dd(GetTriggerUnit(),'I00B'))
call RemoveItem(dd(GetTriggerUnit(),'I03V'))
call RemoveItem(dd(GetTriggerUnit(),'I013'))
call UnitAddItemByIdSwapped('I011',GetTriggerUnit())
else
call RemoveItem(dd(GetTriggerUnit(),'I013'))
call AdjustPlayerStateBJ(1875,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(250,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2you don't have the requirements for this item|r"))
endif
endfunction
function KH takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I014')
endfunction
function Ki takes nothing returns boolean
return(dD(GetTriggerUnit(),'I00H'))and(dD(GetTriggerUnit(),'I00Z'))
endfunction
function KI takes nothing returns nothing
if(Ki())then
call RemoveItem(dd(GetTriggerUnit(),'I00H'))
call RemoveItem(dd(GetTriggerUnit(),'I00Z'))
call RemoveItem(dd(GetTriggerUnit(),'I014'))
call UnitAddItemByIdSwapped('I015',GetTriggerUnit())
else
call RemoveItem(dd(GetTriggerUnit(),'I014'))
call AdjustPlayerStateBJ(500,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(500,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2you don't have the requirements for this item|r"))
endif
endfunction
function Kj takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I016')
endfunction
function KJ takes nothing returns boolean
return(GetItemTypeId(UnitItemInSlotBJ(GetTriggerUnit(),bj_forLoopAIndex))=='I012')
endfunction
function Kk takes nothing returns boolean
return(udg_integers04[49]>=2)
endfunction
function KK takes nothing returns nothing
set udg_integers04[49]=0
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=6
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(KJ())then
set udg_integers04[49]=(udg_integers04[49]+1)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
if(Kk())then
call RemoveItem(dd(GetTriggerUnit(),'I012'))
call RemoveItem(dd(GetTriggerUnit(),'I012'))
call RemoveItem(dd(GetTriggerUnit(),'I016'))
call UnitAddItemByIdSwapped('I01A',GetTriggerUnit())
else
call RemoveItem(dd(GetTriggerUnit(),'I016'))
call AdjustPlayerStateBJ(750,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(500,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2you don't have the requirements for this item|r"))
endif
endfunction
function Kl takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I001')or(GetItemTypeId(GetManipulatedItem())=='I002')or(GetItemTypeId(GetManipulatedItem())=='I004')or(GetItemTypeId(GetManipulatedItem())=='I007')or(GetItemTypeId(GetManipulatedItem())=='I006')or(GetItemTypeId(GetManipulatedItem())=='I005')or(GetItemTypeId(GetManipulatedItem())=='I00A')or(GetItemTypeId(GetManipulatedItem())=='I009')
endfunction
function KL takes nothing returns boolean
return(udg_booleans05[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))])and(Kl())
endfunction
function Km takes nothing returns boolean
return(KL())
endfunction
function KM takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I001')or(GetItemTypeId(GetManipulatedItem())=='I002')or(GetItemTypeId(GetManipulatedItem())=='I004')or(GetItemTypeId(GetManipulatedItem())=='I007')or(GetItemTypeId(GetManipulatedItem())=='I006')or(GetItemTypeId(GetManipulatedItem())=='I005')
endfunction
function Kn takes nothing returns boolean
return(KM())
endfunction
function KN takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I00A')or(GetItemTypeId(GetManipulatedItem())=='I009')
endfunction
function Ko takes nothing returns boolean
return(KN())
endfunction
function KO takes nothing returns nothing
if(Kn())then
set udg_location01=GetUnitLoc(GetTriggerUnit())
call CreateItemLoc('I00M',udg_location01)
call RemoveLocation(udg_location01)
call SetItemCharges(bj_lastCreatedItem,GetItemCharges(GetManipulatedItem()))
call RemoveItem(GetManipulatedItem())
call UnitAddItem(GetTriggerUnit(),bj_lastCreatedItem)
endif
if(Ko())then
set udg_location01=GetUnitLoc(GetTriggerUnit())
call CreateItemLoc('I00M',udg_location01)
call RemoveLocation(udg_location01)
call SetItemCharges(bj_lastCreatedItem,1)
call RemoveItem(GetManipulatedItem())
call UnitAddItem(GetTriggerUnit(),bj_lastCreatedItem)
endif
endfunction
function Kp takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetManipulatingUnit()),udg_force02))and(GetItemTypeId(GetManipulatedItem())!='I00F')and(GetItemTypeId(GetManipulatedItem())!='I00Q')and(GetItemTypeId(GetManipulatedItem())!='I03W')and(GetItemTypeId(GetManipulatedItem())!='I04Q')and(GetItemTypeId(GetManipulatedItem())!='lmbr')and(GetItemTypeId(GetManipulatedItem())!='gold')and(GetItemTypeId(GetManipulatedItem())!='I00O')and(GetItemTypeId(GetManipulatedItem())!='I04P')and(GetItemTypeId(GetManipulatedItem())!='I04E')and(GetItemTypeId(GetManipulatedItem())!='I04F')and(GetItemTypeId(GetManipulatedItem())!='I001')and(GetItemTypeId(GetManipulatedItem())!='I002')and(GetItemTypeId(GetManipulatedItem())!='I004')and(GetItemTypeId(GetManipulatedItem())!='I007')and(GetItemTypeId(GetManipulatedItem())!='I006')and(GetItemTypeId(GetManipulatedItem())!='I008')and(GetItemTypeId(GetManipulatedItem())!='I003')and(GetItemTypeId(GetManipulatedItem())!='I005')and(GetItemTypeId(GetManipulatedItem())!='I00A')and(GetItemTypeId(GetManipulatedItem())!='I009')and(GetItemTypeId(GetManipulatedItem())!='tst2')and(GetItemTypeId(GetManipulatedItem())!='tdx2')and(GetItemTypeId(GetManipulatedItem())!='tin2')and(GetItemTypeId(GetManipulatedItem())!='tpow')and(GetItemTypeId(GetManipulatedItem())!='I043')and(GetItemTypeId(GetManipulatedItem())!='I042')and(GetItemTypeId(GetManipulatedItem())!='I041')and(GetItemTypeId(GetManipulatedItem())!='I04Z')
endfunction
function KP takes nothing returns boolean
return(Kp())
endfunction
function Kq takes nothing returns nothing
call RemoveItem(GetManipulatedItem())
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),30,"|c00ff3431Slayer's aren't capable of using such an Item!|r")
endfunction
function KQ takes nothing returns boolean
return(dD(GetKillingUnit(),'modt'))or(dD(GetKillingUnit(),'I04R'))
endfunction
function Kr takes nothing returns boolean
return(KQ())
endfunction
function KR takes nothing returns boolean
return(GetItemTypeId(UnitItemInSlotBJ(GetKillingUnit(),bj_forLoopAIndex))=='modt')
endfunction
function Ks takes nothing returns boolean
return(GetItemTypeId(UnitItemInSlotBJ(GetKillingUnit(),bj_forLoopAIndex))=='I04R')
endfunction
function KS takes nothing returns boolean
return(dD(GetKillingUnit(),'modt'))or(dD(GetKillingUnit(),'I04R'))
endfunction
function Kt takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetKillingUnit()),udg_force01))and(IsPlayerInForce(GetOwningPlayer(GetDyingUnit()),udg_force02))and(KS())
endfunction
function KT takes nothing returns nothing
if(Kt())then
set udg_integers04[48]=0
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=6
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(KR())then
set udg_integers04[48]=(udg_integers04[48]+1)
endif
if(Ks())then
set udg_integers04[48]=(udg_integers04[48]+5)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call AdjustPlayerStateBJ(udg_integers04[48],GetOwningPlayer(GetKillingUnit()),PLAYER_STATE_RESOURCE_GOLD)
call CreateTextTagUnitBJ(("+"+I2S(udg_integers04[48])),GetKillingUnit(),0,10,98.,96.,23.,0)
call SetTextTagVelocityBJ(bj_lastCreatedTextTag,64,90)
call ShowTextTagForceBJ(false,bj_lastCreatedTextTag,bj_FORCE_ALL_PLAYERS)
call ShowTextTagForceBJ(true,bj_lastCreatedTextTag,d0(GetOwningPlayer(GetKillingUnit())))
call SetTextTagPermanentBJ(bj_lastCreatedTextTag,false)
call SetTextTagLifespanBJ(bj_lastCreatedTextTag,4.)
call SetTextTagFadepointBJ(bj_lastCreatedTextTag,.5)
endif
endfunction
function Ku takes nothing returns boolean
return(dD(GetAttacker(),'I00V'))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force02))
endfunction
function KU takes nothing returns boolean
return(Ku())
endfunction
function Kv takes nothing returns boolean
return(GetUnitStateSwap(UNIT_STATE_MANA,GetAttacker())>=50.)
endfunction
function KV takes nothing returns nothing
if(Kv())then
call ModifyHeroStat(0,GetAttacker(),0,3)
call SetUnitManaBJ(GetAttacker(),(GetUnitStateSwap(UNIT_STATE_MANA,GetAttacker())-50.))
endif
endfunction
function Kw takes nothing returns boolean
return(dD(GetAttacker(),'I011'))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force02))and(IsUnitType(GetTriggerUnit(),UNIT_TYPE_STRUCTURE))
endfunction
function KW takes nothing returns boolean
return(Kw())
endfunction
function Kx takes nothing returns boolean
return(GetRandomInt(1,20)<=1)
endfunction
function KX takes nothing returns boolean
return(GetUnitStateSwap(UNIT_STATE_MANA,GetAttacker())>=40.)
endfunction
function Ky takes nothing returns nothing
if(KX())then
call SetUnitManaBJ(GetAttacker(),(GetUnitStateSwap(UNIT_STATE_MANA,GetAttacker())-40.))
if(Kx())then
call SetPlayerStateBJ(GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER,((GetPlayerState(GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)/'d')*99))
call AdjustPlayerStateBJ(10,GetOwningPlayer(GetAttacker()),PLAYER_STATE_RESOURCE_GOLD)
call AddSpecialEffectTargetUnitBJ("overhead",GetTriggerUnit(),"Abilities\\Spells\\Human\\DispelMagic\\DispelMagicTarget.mdl")
call DestroyEffect(bj_lastCreatedEffect)
endif
endif
endfunction
function KY takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I015')
endfunction
function Kz takes nothing returns boolean
return(IsUnitAliveBJ(GetTriggerUnit()))
endfunction
function KZ takes nothing returns nothing
call TriggerSleepAction(120.)
if(Kz())then
call UnitAddItemByIdSwapped('I015',GetTriggerUnit())
call ModifyHeroStat(0,GetManipulatingUnit(),0,150)
call ModifyHeroStat(1,GetManipulatingUnit(),0,150)
call ModifyHeroStat(2,GetManipulatingUnit(),0,150)
endif
endfunction
function K0 takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I017')
endfunction
function K1 takes nothing returns boolean
return(udg_booleans07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]==false)and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))and(GetOwningPlayer(GetTriggerUnit())!=Player(10))and(GetOwningPlayer(GetTriggerUnit())!=Player(11))
endfunction
function K2 takes nothing returns nothing
call RemoveItem(dd(GetTriggerUnit(),'I017'))
if(K1())then
set udg_booleans07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=true
call DialogDisplayBJ(true,udg_dialog04,GetTriggerPlayer())
else
call AdjustPlayerStateBJ(2000,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(500,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call DisplayTimedTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),15.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2You may only have|r |c0000ff2a1|r |c00abcfd2Ultimate ability|r"))
endif
endfunction
function K3 takes nothing returns boolean
return(dD(GetAttacker(),'I01A'))
endfunction
function K4 takes nothing returns boolean
return(K3())
endfunction
function K5 takes nothing returns boolean
return(GetRandomInt(1,20)<=1)
endfunction
function K6 takes nothing returns nothing
if(K5())then
call UnitDamageTargetBJ(GetAttacker(),GetTriggerUnit(),(I2R(GetHeroStatBJ(0,GetAttacker(),false))*5.),ATTACK_TYPE_CHAOS,DAMAGE_TYPE_NORMAL)
call CreateTextTagUnitBJ(((I2S((GetHeroStatBJ(0,GetAttacker(),false)*5))+"!")+"!"),GetAttacker(),0,11.,100.,5.,23.,.0)
call SetTextTagVelocityBJ(bj_lastCreatedTextTag,64,90)
call SetTextTagPermanentBJ(bj_lastCreatedTextTag,false)
call SetTextTagLifespanBJ(bj_lastCreatedTextTag,5.)
call SetTextTagFadepointBJ(bj_lastCreatedTextTag,.5)
endif
endfunction
function K7 takes nothing returns boolean
return(GetSpellAbilityId()=='A05P')and(IsUnitType(GetSpellTargetUnit(),UNIT_TYPE_HERO))
endfunction
function K8 takes nothing returns boolean
return(K7())
endfunction
function K9 takes nothing returns boolean
return(IsUnitAliveBJ(GetSpellTargetUnit()))
endfunction
function la takes nothing returns nothing
if(K9())then
call UnitDamageTargetBJ(GetTriggerUnit(),GetSpellTargetUnit(),(GetUnitStateSwap(UNIT_STATE_MAX_LIFE,GetSpellTargetUnit())/4.),ATTACK_TYPE_CHAOS,DAMAGE_TYPE_UNIVERSAL)
endif
endfunction
function lA takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I050')
endfunction
function lB takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function lc takes nothing returns nothing
if(lB())then
call DisableTrigger(GetTriggeringTrigger())
call SetTerrainFogExBJ(0,1000,2000.,1.5,30.,50.,80.)
call TriggerSleepAction(20.)
call ResetTerrainFog()
endif
endfunction
function lC takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I050')
endfunction
function ld takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function lD takes nothing returns nothing
if(ld())then
call AddSpecialEffectTargetUnitBJ("right hand",GetManipulatingUnit(),"Abilities\\Weapons\\VengeanceMissile\\VengeanceMissile.mdl")
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30.,(("|c00af493c"+GetPlayerName(GetOwningPlayer(GetTriggerUnit())))+("|r"+"|c008b212b has aquired the Origin of Evil.|r |c0073ff31Humanity is lost.|r")))
call EnableTrigger(udg_trigger234)
else
call RemoveItem(GetManipulatedItem())
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),"This item isn't for you.")
endif
endfunction
function le takes nothing returns boolean
return(IsUnitType(GetFilterUnit(),UNIT_TYPE_HERO)!=null)
endfunction
function lE takes nothing returns boolean
return(GetHeroStatBJ(1,GetEnumUnit(),false)<=39950)
endfunction
function lf takes nothing returns boolean
return(GetHeroStatBJ(1,GetEnumUnit(),false)>=39990)and(GetHeroStatBJ(1,GetEnumUnit(),false)<40000)
endfunction
function lF takes nothing returns boolean
return(GetHeroStatBJ(1,GetEnumUnit(),false)>40000)
endfunction
function lg takes nothing returns boolean
return(GetPlayerTechCountSimple('R00C',GetOwningPlayer(GetEnumUnit()))==0)
endfunction
function lG takes nothing returns boolean
return(GetPlayerTechCountSimple('R00C',GetOwningPlayer(GetEnumUnit()))==0)
endfunction
function lh takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetEnumUnit()),udg_force01))and(dD(GetEnumUnit(),'I050'))
endfunction
function lH takes nothing returns nothing
if(lh())then
call ModifyHeroStat(0,GetEnumUnit(),0,50)
if(lg())then
if(lE())then
call ModifyHeroStat(1,GetEnumUnit(),0,50)
endif
if(lf())then
call ModifyHeroStat(1,GetEnumUnit(),2,40000)
endif
if(lF())then
call ModifyHeroStat(1,GetEnumUnit(),2,40000)
endif
endif
if(lG())then
call ModifyHeroStat(2,GetEnumUnit(),0,50)
endif
endif
endfunction
function li takes nothing returns nothing
set udg_group02=du(GetWorldBounds(),Condition(function le))
call ForGroupBJ(udg_group02,function lH)
call DestroyGroup(udg_group02)
endfunction
function lI takes nothing returns boolean
return(IsUnitType(GetTriggerUnit(),UNIT_TYPE_STRUCTURE))and(IsPlayerInForce(GetOwningPlayer(GetAttacker()),udg_force01))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force02))and(dD(GetAttacker(),'I050'))
endfunction
function lj takes nothing returns boolean
return(lI())
endfunction
function lJ takes nothing returns boolean
return(udg_integers04[26]==1)
endfunction
function lk takes nothing returns nothing
set udg_integers04[26]=GetRandomInt(1,33)
if(lJ())then
call AddSpecialEffectTargetUnitBJ("origin",GetTriggerUnit(),"Abilities\\Spells\\Undead\\DeathPact\\DeathPactTarget.mdl")
call DestroyEffect(bj_lastCreatedEffect)
call SetWidgetLife(GetTriggerUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())-(GetUnitStateSwap(UNIT_STATE_LIFE,GetTriggerUnit())/4.)))
endif
endfunction
function lK takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I04M')
endfunction
function ll takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function lL takes nothing returns nothing
if(ll())then
call AddSpecialEffectTargetUnitBJ("left hand",GetManipulatingUnit(),"Abilities\\Weapons\\IllidanMissile\\IllidanMissile.mdl")
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,30.,(("|c00af493c"+GetPlayerName(GetOwningPlayer(GetTriggerUnit())))+("|r"+"|c008b212b has aquired the Sphere of Doom. Humans Prepare yourselfs.|r")))
call EnableTrigger(udg_trigger238)
else
call RemoveItem(GetManipulatedItem())
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),"This item isn't for you.")
endif
endfunction
function lm takes nothing returns boolean
return(GetItemTypeId(GetManipulatedItem())=='I04M')
endfunction
function lM takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function ln takes nothing returns nothing
if(lM())then
call DisableTrigger(GetTriggeringTrigger())
call SetTerrainFogExBJ(0,1000,2000.,1.5,60.,15.,10.)
call TriggerSleepAction(20.)
call ResetTerrainFog()
endif
endfunction
function lN takes nothing returns boolean
return(IsUnitType(GetFilterUnit(),UNIT_TYPE_HERO)!=null)
endfunction
function lo takes nothing returns boolean
return(GetHeroStatBJ(1,GetEnumUnit(),false)<=39990)
endfunction
function lO takes nothing returns boolean
return(GetHeroStatBJ(1,GetEnumUnit(),false)>=39990)and(GetHeroStatBJ(1,GetEnumUnit(),false)<40000)
endfunction
function lp takes nothing returns boolean
return(GetHeroStatBJ(1,GetEnumUnit(),false)>40000)
endfunction
function lP takes nothing returns boolean
return(GetPlayerTechCountSimple('R00C',GetOwningPlayer(GetEnumUnit()))==0)
endfunction
function lq takes nothing returns boolean
return(GetPlayerTechCountSimple('R00C',GetOwningPlayer(GetEnumUnit()))==0)
endfunction
function lQ takes nothing returns boolean
return(dD(GetEnumUnit(),'I04M'))and(IsPlayerInForce(GetOwningPlayer(GetEnumUnit()),udg_force01))
endfunction
function lr takes nothing returns nothing
if(lQ())then
call ModifyHeroStat(0,GetEnumUnit(),0,10)
if(lP())then
if(lo())then
call ModifyHeroStat(1,GetEnumUnit(),0,10)
endif
if(lO())then
call ModifyHeroStat(1,GetEnumUnit(),2,40000)
endif
if(lp())then
call ModifyHeroStat(1,GetEnumUnit(),2,40000)
endif
endif
if(lq())then
call ModifyHeroStat(2,GetEnumUnit(),0,10)
endif
endif
endfunction
function lR takes nothing returns nothing
set udg_group02=du(GetWorldBounds(),Condition(function lN))
call ForGroupBJ(udg_group02,function lr)
call DestroyGroup(udg_group02)
endfunction
function ls takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call AdjustPlayerStateBJ((d6('h00K',udg_players01[bj_forLoopAIndex])*2),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ((d6('h01E',udg_players01[bj_forLoopAIndex])*10),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ((d6('h01F',udg_players01[bj_forLoopAIndex])*20),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function lS takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call AdjustPlayerStateBJ((d6('h00K',udg_players01[bj_forLoopAIndex])*2),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ((d6('h01E',udg_players01[bj_forLoopAIndex])*10),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ((d6('h01F',udg_players01[bj_forLoopAIndex])*20),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function lt takes nothing returns boolean
return(d6('h018',udg_players01[bj_forLoopAIndex])>=1)
endfunction
function lT takes nothing returns boolean
return(d6('h00B',udg_players01[bj_forLoopAIndex])>=1)
endfunction
function lu takes nothing returns boolean
return(d6('h00G',udg_players01[bj_forLoopAIndex])>=1)
endfunction
function lU takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(lt())then
call AdjustPlayerStateBJ(1,udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
endif
if(lT())then
call AdjustPlayerStateBJ(5,udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
endif
if(lu())then
call AdjustPlayerStateBJ(20,udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function lv takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='hcas')
endfunction
function lV takes nothing returns nothing
call AddSpecialEffectTargetUnitBJ("origin",GetTriggerUnit(),"Abilities\\Spells\\Undead\\FreezingBreath\\FreezingBreathTargetArt.mdl")
set udg_effects01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=bj_lastCreatedEffect
endfunction
function lw takes nothing returns boolean
return(GetUnitTypeId(GetConstructingStructure())=='hcas')
endfunction
function lW takes nothing returns boolean
return(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]>='d')
endfunction
function lx takes nothing returns nothing
if(lW())then
set udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]-'d')
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2congratulations You have succesfully paid for the|r |c0000ff2aIcy Fotress|r. |c00abcfd2You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
else
call RemoveUnit(GetConstructingStructure())
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2Im sorry you don't have the|r |c0000800010,000,000|r |c00abcfd2Lumber required for this purchase. You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
call AdjustPlayerStateBJ(750,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(50000,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
endif
endfunction
function lX takes nothing returns boolean
return(GetUnitTypeId(GetConstructingStructure())=='nnsa')
endfunction
function ly takes nothing returns boolean
return(udg_booleans03[bj_forLoopAIndex])
endfunction
function lY takes nothing returns boolean
return(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]>=4)
endfunction
function lz takes nothing returns nothing
if(lY())then
set udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]-4)
if(ly())then
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2congratulations You have succesfully paid for the|r |c0000ff2aElemental Oracle|r. |c00abcfd2You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
endif
else
call RemoveUnit(GetConstructingStructure())
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2Im sorry you don't have the|r |c00008000400,000|r |c00abcfd2Lumber required for this purchase. You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
call AdjustPlayerStateBJ(545,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(100000,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
endif
endfunction
function lZ takes nothing returns boolean
return(GetUnitTypeId(GetConstructingStructure())=='o00M')
endfunction
function l0 takes nothing returns boolean
return(udg_booleans03[bj_forLoopAIndex])
endfunction
function l1 takes nothing returns boolean
return(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]>=14)
endfunction
function l2 takes nothing returns nothing
if(l1())then
set udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]-14)
if(l0())then
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2congratulations You have succesfully paid for the|r |c0000ff2aEarth Elemental Tower|r. |c00abcfd2You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
endif
else
call RemoveUnit(GetConstructingStructure())
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2Im sorry you don't have the|r |c000080001,400,000|r |c00abcfd2Lumber required for this purchase. You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
call AdjustPlayerStateBJ(550,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(100000,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
endif
endfunction
function l3 takes nothing returns boolean
return(GetUnitTypeId(GetConstructingStructure())=='h01D')
endfunction
function l4 takes nothing returns boolean
return(udg_booleans03[bj_forLoopAIndex])
endfunction
function l5 takes nothing returns boolean
return(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]>=49)
endfunction
function l6 takes nothing returns nothing
if(l5())then
set udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]-49)
if(l4())then
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2congratulations You have succesfully paid for the|r |c0000ff2aElemental Wall|r. |c00abcfd2You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
endif
else
call RemoveUnit(GetConstructingStructure())
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2Im sorry you don't have the|r |c000080004,900,000|r |c00abcfd2Lumber required for this purchase. You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
call AdjustPlayerStateBJ(1250,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(100000,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
endif
endfunction
function l7 takes nothing returns boolean
return(GetUnitTypeId(GetConstructingStructure())=='n015')
endfunction
function l8 takes nothing returns boolean
return(udg_booleans03[bj_forLoopAIndex])
endfunction
function l9 takes nothing returns boolean
return(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]>=149)
endfunction
function La takes nothing returns nothing
if(l9())then
set udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]-149)
if(l8())then
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2congratulations You have succesfully paid for the|r |c0000ff2aHoly Power Tower|r. |c00abcfd2You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
endif
else
call RemoveUnit(GetConstructingStructure())
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2Im sorry you don't have the|r |c0000800014,900,000|r |c00abcfd2Lumber required for this purchase. You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
call AdjustPlayerStateBJ(1250,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
call AdjustPlayerStateBJ(100000,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
endif
endfunction
function LA takes nothing returns boolean
return(GetUnitTypeId(GetConstructingStructure())=='h01E')
endfunction
function Lb takes nothing returns boolean
return(udg_booleans03[bj_forLoopAIndex])
endfunction
function LB takes nothing returns boolean
return(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]>=2)
endfunction
function Lc takes nothing returns nothing
if(LB())then
set udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]-2)
if(Lb())then
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2congratulations You have succesfully paid for an|r |c0000ff2aImproved Gold Mine|r. |c00abcfd2You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
endif
else
call RemoveUnit(GetConstructingStructure())
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2Im sorry you don't have the|r |c00008000200,000|r |c00abcfd2Lumber required for this purchase. You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
call AdjustPlayerStateBJ(50000,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
endif
endfunction
function LC takes nothing returns boolean
return(GetUnitTypeId(GetConstructingStructure())=='h01F')
endfunction
function Ld takes nothing returns boolean
return(udg_booleans03[bj_forLoopAIndex])
endfunction
function LD takes nothing returns boolean
return(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]>=4)
endfunction
function Le takes nothing returns nothing
if(LD())then
set udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]-4)
if(Ld())then
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2congratulations You have succesfully paid for a|r |c0000ff2aPerfect Gold Mine|r. |c00abcfd2You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
endif
else
call RemoveUnit(GetConstructingStructure())
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2Im sorry you don't have the|r |c00008000400,000|r |c00abcfd2Lumber required for this purchase. You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
call AdjustPlayerStateBJ(100000,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
endif
endfunction
function LE takes nothing returns boolean
return(GetUnitTypeId(GetConstructingStructure())=='n008')
endfunction
function Lf takes nothing returns boolean
return(udg_booleans03[bj_forLoopAIndex])
endfunction
function LF takes nothing returns boolean
return(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]>=24)
endfunction
function Lg takes nothing returns nothing
if(LF())then
set udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]-24)
if(Lf())then
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2congratulations You have succesfully paid for the|r |c0000ff2aBlack Hole Tower|r. |c00abcfd2You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
endif
else
call RemoveUnit(GetConstructingStructure())
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2Im sorry you don't have the|r |c000080002,400,000|r |c00abcfd2Lumber required for this purchase. You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
call AdjustPlayerStateBJ(100000,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call AdjustPlayerStateBJ(250,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
endfunction
function LG takes nothing returns boolean
return(GetUnitTypeId(GetConstructingStructure())=='n00L')
endfunction
function Lh takes nothing returns boolean
return(udg_booleans03[bj_forLoopAIndex])
endfunction
function LH takes nothing returns boolean
return(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]>=34)
endfunction
function Li takes nothing returns nothing
if(LH())then
set udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]-34)
if(Lh())then
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2congratulations You have succesfully paid for the|r |c0000ff2aHoly Magic Tower|r. |c00abcfd2You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
endif
else
call RemoveUnit(GetConstructingStructure())
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2Im sorry you don't have the|r |c000080003,400,000|r |c00abcfd2Lumber required for this purchase. You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
call AdjustPlayerStateBJ(100000,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call AdjustPlayerStateBJ(400,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
endfunction
function LI takes nothing returns boolean
return(GetUnitTypeId(GetConstructingStructure())=='n014')
endfunction
function Lj takes nothing returns boolean
return(udg_booleans03[bj_forLoopAIndex])
endfunction
function LJ takes nothing returns boolean
return(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]>=24)
endfunction
function Lk takes nothing returns nothing
if(LJ())then
set udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]=(udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]-24)
if(Lj())then
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2congratulations You have succesfully paid for the|r |c0000ff2aGrowing Power Tower|r. |c00abcfd2You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
endif
else
call RemoveUnit(GetConstructingStructure())
call DisplayTextToForce(d0(GetOwningPlayer(GetTriggerUnit())),((udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+", |c00abcfd2Im sorry you don't have the|r |c000080002,400,000|r |c00abcfd2Lumber required for this purchase. You now have|r |c00008000")+(I2S((udg_integers07[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r")))
call AdjustPlayerStateBJ(100000,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_LUMBER)
call AdjustPlayerStateBJ(150,GetOwningPlayer(GetTriggerUnit()),PLAYER_STATE_RESOURCE_GOLD)
endif
endfunction
function LK takes nothing returns boolean
return(GetUnitTypeId(GetConstructedStructure())=='n014')
endfunction
function Ll takes nothing returns boolean
return(IsUnitAliveBJ(GetTriggerUnit()))
endfunction
function LL takes nothing returns nothing
call TriggerSleepAction(25.)
if(Ll())then
call UnitAddAbility(GetTriggerUnit(),'A04Q')
call UnitAddItemByIdSwapped('I04Z',GetTriggerUnit())
call UnitRemoveAbility(GetTriggerUnit(),'A04Q')
endif
endfunction
function Lm takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='n014')and(GetItemTypeId(GetManipulatedItem())=='I04Z')
endfunction
function LM takes nothing returns boolean
return(Lm())
endfunction
function Ln takes nothing returns boolean
return(IsUnitAliveBJ(GetTriggerUnit()))
endfunction
function LN takes nothing returns nothing
call TriggerSleepAction(30.)
if(Ln())then
call UnitAddAbility(GetTriggerUnit(),'A04Q')
call UnitAddItemByIdSwapped('I04Z',GetTriggerUnit())
call UnitRemoveAbility(GetTriggerUnit(),'A04Q')
endif
endfunction
function Lo takes nothing returns nothing
call SetPlayerTechMaxAllowedSwap('hmpr',0,GetEnumPlayer())
call SetPlayerTechResearchedSwap('Rhrt',1,GetEnumPlayer())
endfunction
function LO takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='hmpr')
endfunction
function Lp takes nothing returns nothing
if(LO())then
call DisableTrigger(GetTriggeringTrigger())
call RemoveUnit(GetTriggerUnit())
call ForForce(bj_FORCE_ALL_PLAYERS,function Lo)
call StartTimerBJ(udg_timer04,false,75.)
set udg_timer04=bj_lastStartedTimer
call CreateTimerDialogBJ(udg_timer04,"The Sun comes out in")
set udg_timerdialog03=bj_lastCreatedTimerDialog
call TimerDialogDisplay(udg_timerdialog03,true)
call TimerDialogSetTitleColorBJ(udg_timerdialog03,68.,68.,68.,35.)
call TimerDialogSetTimeColorBJ(udg_timerdialog03,56.,66.,74.,35.)
call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,75.,(udg_strings01[(1+GetPlayerId(GetOwningPlayer(GetTriggerUnit())))]+" |c00abcfd2has researched Holy Magic. As a result the evil spell that the Dark summoners cast at the beggining of the game will soon fail and the Sun will once again fail upon the earth. Killing all vampires without the sun proof cloak|r"))
call DisableTrigger(GetTriggeringTrigger())
call SetTerrainFogExBJ(0,1000,2000.,1.5,94.,90.,17.)
call TriggerSleepAction(20.)
call ResetTerrainFog()
call TriggerSleepAction(55.)
call DestroyTimerDialog(udg_timerdialog03)
call SetTimeOfDay(12)
call RemoveWeatherEffect(bj_lastCreatedWeatherEffect)
call TriggerSleepAction(.25)
call RemoveWeatherEffect(bj_lastCreatedWeatherEffect)
call TriggerSleepAction(.25)
call AddWeatherEffectSaveLast(bj_mapInitialPlayableArea,'LRaa')
call EnableWeatherEffect(bj_lastCreatedWeatherEffect,true)
call EnableTrigger(udg_trigger257)
endif
endfunction
function LP takes nothing returns boolean
return(GetUnitTypeId(GetTriggerUnit())=='hmpr')
endfunction
function Lq takes nothing returns nothing
if(LP())then
call RemoveUnit(GetTriggerUnit())
endif
endfunction
function LQ takes nothing returns boolean
return(IsUnitType(GetFilterUnit(),UNIT_TYPE_HERO)!=null)
endfunction
function Lr takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetEnumUnit()),udg_force01))and(dD(GetEnumUnit(),'I03Z')==false)
endfunction
function LR takes nothing returns nothing
if(Lr())then
call SetWidgetLife(GetEnumUnit(),(GetUnitStateSwap(UNIT_STATE_LIFE,GetEnumUnit())-((GetUnitStateSwap(UNIT_STATE_MAX_LIFE,GetEnumUnit())/10.)+7500.)))
call AddSpecialEffectTargetUnitBJ("origin",GetEnumUnit(),"Abilities\\Spells\\Human\\HolyBolt\\HolyBoltSpecialArt.mdl")
call DestroyEffect(bj_lastCreatedEffect)
endif
endfunction
function Ls takes nothing returns nothing
set udg_group04=du(GetWorldBounds(),Condition(function LQ))
call ForGroupBJ(udg_group04,function LR)
call DestroyGroup(udg_group04)
endfunction
function LS takes nothing returns boolean
return(udg_booleans03[(1+GetPlayerId(GetTriggerPlayer()))])
endfunction
function Lt takes nothing returns boolean
return(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)>=800000)
endfunction
function LT takes nothing returns nothing
if(Lt())then
call AdjustPlayerStateBJ(-300000,GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
set udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]=(udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]+3)
if(LS())then
call DisplayTimedTextToForce(d0(udg_players01[(1+GetPlayerId(GetTriggerPlayer()))]),30,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+(", |c00abcfd2you stored|r |c00008000300,000|r |c00abcfd2Lumber. You have|r |c00008000"+(I2S((udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r"))))
endif
endif
endfunction
function Lu takes nothing returns boolean
return(udg_booleans03[(1+GetPlayerId(GetTriggerPlayer()))])
endfunction
function LU takes nothing returns boolean
return(GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)<=299999)and(IsPlayerInForce(GetTriggerPlayer(),udg_force02))and(udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]>=1)
endfunction
function Lv takes nothing returns nothing
if(LU())then
call AdjustPlayerStateBJ(100000,GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
set udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]=(udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]-1)
if(Lu())then
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,(udg_strings01[(1+GetPlayerId(GetTriggerPlayer()))]+(", |c00abcfd2you withdrew|r |c00008000100,000|r |c00abcfd2Lumber. You have|r |c00008000"+(I2S((udg_integers07[(1+GetPlayerId(GetTriggerPlayer()))]*'d'))+"|r|c00cb0000K|r |c00abcfd2Lumber stored|r"))))
endif
endif
endfunction
function LV takes nothing returns boolean
return(IsUnitType(GetTriggerUnit(),UNIT_TYPE_STRUCTURE)!=null)
endfunction
function Lw takes nothing returns boolean
return(GetPlayerName(GetTriggerPlayer())=="WorldEdit")
endfunction
function LW takes nothing returns boolean
return(GetBooleanOr(LV(),Lw()))
endfunction
function Lx takes nothing returns nothing
set udg_integers07[1]=250
endfunction
function LX takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force02))and(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force01)==false)and(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function Ly takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(LX())then
call AdjustPlayerStateBJ((GetPlayerTechCountSimple('Rowd',udg_players01[bj_forLoopAIndex])*(GetPlayerTechCountSimple('Rowd',udg_players01[bj_forLoopAIndex])*'d')),udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_LUMBER)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function LY takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetEnumPlayer())==1)
endfunction
function Lz takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetEnumPlayer())==2)
endfunction
function LZ takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetEnumPlayer())==3)
endfunction
function L0 takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetEnumPlayer())==4)
endfunction
function L1 takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetEnumPlayer())==5)
endfunction
function L2 takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetEnumPlayer())==6)
endfunction
function L3 takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetEnumPlayer())==7)
endfunction
function L4 takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetEnumPlayer())==8)
endfunction
function L5 takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetEnumPlayer())==9)
endfunction
function L6 takes nothing returns boolean
return(GetPlayerTechCountSimple('Rolf',GetEnumPlayer())==10)
endfunction
function L7 takes nothing returns boolean
return(IsPlayerInForce(GetEnumPlayer(),udg_force02))and(GetPlayerSlotState(GetEnumPlayer())==PLAYER_SLOT_STATE_PLAYING)
endfunction
function L8 takes nothing returns nothing
if(L7())then
if(LY())then
call AdjustPlayerStateBJ(1,GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
endif
if(Lz())then
call AdjustPlayerStateBJ(3,GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
endif
if(LZ())then
call AdjustPlayerStateBJ(5,GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
endif
if(L0())then
call AdjustPlayerStateBJ(9,GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
endif
if(L1())then
call AdjustPlayerStateBJ(13,GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
endif
if(L2())then
call AdjustPlayerStateBJ(18,GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
endif
if(L3())then
call AdjustPlayerStateBJ(23,GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
endif
if(L4())then
call AdjustPlayerStateBJ(29,GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
endif
if(L5())then
call AdjustPlayerStateBJ(35,GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
endif
if(L6())then
call AdjustPlayerStateBJ(42,GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
endif
endif
endfunction
function L9 takes nothing returns nothing
call ForForce(bj_FORCE_ALL_PLAYERS,function L8)
endfunction
function ma takes nothing returns boolean
return(GetPlayerTechCountSimple('Rhfc',GetEnumPlayer())==1)
endfunction
function mA takes nothing returns boolean
return(IsPlayerInForce(GetEnumPlayer(),udg_force02))and(GetPlayerSlotState(GetEnumPlayer())==PLAYER_SLOT_STATE_PLAYING)
endfunction
function mB takes nothing returns nothing
if(mA())then
if(ma())then
call AdjustPlayerStateBJ(1,GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD)
endif
endif
endfunction
function mc takes nothing returns nothing
call ForForce(bj_FORCE_ALL_PLAYERS,function mB)
endfunction
function mC takes nothing returns nothing
call SetPlayerTechResearchedSwap('R00D',(GetPlayerTechCountSimple('R00D',GetEnumPlayer())+1),GetEnumPlayer())
endfunction
function md takes nothing returns nothing
call ForForce(bj_FORCE_ALL_PLAYERS,function mC)
endfunction
function mD takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='n00L')
endfunction
function me takes nothing returns boolean
return(udg_integers08[bj_forLoopAIndex]>=20)and(GetPlayerTechCountSimple('R00P',udg_players01[bj_forLoopAIndex])<'d')
endfunction
function mE takes nothing returns boolean
return(GetUnitTypeId(GetAttacker())=='n00L')and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function mf takes nothing returns nothing
if(mE())then
set udg_integers08[(1+GetPlayerId(GetOwningPlayer(GetAttacker())))]=(udg_integers08[(1+GetPlayerId(GetOwningPlayer(GetAttacker())))]+1)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(me())then
call SetPlayerTechResearchedSwap('R00P',(GetPlayerTechCountSimple('R00P',udg_players01[bj_forLoopAIndex])+1),udg_players01[bj_forLoopAIndex])
set udg_integers08[bj_forLoopAIndex]=(udg_integers08[bj_forLoopAIndex]-20)
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endif
endfunction
function mF takes nothing returns boolean
return(GetPlayerTechCountSimple('Rhss',GetOwningPlayer(GetAttacker()))==10)
endfunction
function mg takes nothing returns boolean
return(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO))and(IsUnitType(GetAttacker(),UNIT_TYPE_HERO))and(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))and(IsPlayerInForce(GetOwningPlayer(GetAttacker()),udg_force02))and(GetPlayerTechCountSimple('Rhss',GetOwningPlayer(GetAttacker()))==10)
endfunction
function mG takes nothing returns nothing
if(mg())then
call ModifyHeroStat(0,GetAttacker(),0,(udg_integer04*2))
call ModifyHeroStat(1,GetAttacker(),0,(udg_integer04*2))
call ModifyHeroStat(0,GetAttacker(),0,(GetHeroStatBJ(0,GetAttacker(),false)/'d'))
call ModifyHeroStat(1,GetAttacker(),0,(GetHeroStatBJ(1,GetAttacker(),false)/'d'))
endif
endfunction
function mh takes nothing returns boolean
return(GetResearched()=='Rume')or(GetResearched()=='Ruar')or(GetResearched()=='Rusf')or(GetResearched()=='Rune')
endfunction
function mH takes nothing returns boolean
return(mh())
endfunction
function mi takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call SetPlayerTechResearchedSwap(GetResearched(),GetPlayerTechCountSimple(GetResearched(),GetOwningPlayer(GetTriggerUnit())),udg_players01[bj_forLoopAIndex])
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function mI takes nothing returns boolean
return(IsPlayerInForce(GetOwningPlayer(GetTriggerUnit()),udg_force01))
endfunction
function mj takes nothing returns boolean
return(GetHeroStatBJ(1,GetTriggerUnit(),false)>50000)
endfunction
function mJ takes nothing returns nothing
if(mj())then
call ModifyHeroStat(1,GetTriggerUnit(),2,50000)
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,"|c00abcfd2The Maximum amount of agility is|r |c002a2a2a5|r|c005555550|r|c00808080,|r|c00aaaaaa0|r|c008080800|r|c005555550|r|c002a2a2a0|r.")
endif
endfunction
function mk takes nothing returns boolean
return(GetPlayerName(GetTriggerPlayer())=="crazy_monkeys")
endfunction
function mK takes nothing returns boolean
return(GetPlayerName(GetTriggerPlayer())=="WorldEdit")
endfunction
function ml takes nothing returns boolean
return(GetBooleanOr(mk(),mK()))
endfunction
function mL takes nothing returns nothing
call SetUnitPositionLoc(GetEnumUnit(),udg_location01)
endfunction
function mm takes nothing returns nothing
set udg_group02=dv(udg_rect03)
set udg_location01=GetRectCenter(udg_rect09)
call ForGroupBJ(udg_group02,function mL)
call RemoveLocation(udg_location01)
call DestroyGroup(udg_group02)
endfunction
function mM takes nothing returns boolean
return(GetPlayerName(GetTriggerPlayer())=="crazy_monkeys")
endfunction
function mn takes nothing returns boolean
return(GetPlayerName(GetTriggerPlayer())=="WorldEdit")
endfunction
function mN takes nothing returns boolean
return(GetBooleanOr(mM(),mn()))
endfunction
function mo takes nothing returns nothing
set udg_location01=GetRandomLocInRect(bj_mapInitialPlayableArea)
call SetUnitPositionLoc(GetEnumUnit(),udg_location01)
call RemoveLocation(udg_location01)
endfunction
function mO takes nothing returns nothing
set udg_group02=dv(udg_rect03)
call ForGroupBJ(udg_group02,function mo)
call DestroyGroup(udg_group02)
endfunction
function mp takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)==StringCase("crazy_monkeys",false))
endfunction
function mP takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)=="worldedit")
endfunction
function mq takes nothing returns boolean
return(GetBooleanOr(mp(),mP()))
endfunction
function mQ takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),25.,(("Player "+I2S(bj_forLoopAIndex))+(" |c00abcfd2income variable is|r "+I2S(udg_integers03[bj_forLoopAIndex]))))
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function mr takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)==StringCase("crazy_monkeys",false))
endfunction
function mR takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)=="worldedit")
endfunction
function ms takes nothing returns boolean
return(GetBooleanOr(mr(),mR()))
endfunction
function mS takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),25.,((I2S(GetPlayerTechCountSimple('R00G',udg_players01[bj_forLoopAIndex]))+I2S(GetPlayerTechCountSimple('R00F',udg_players01[bj_forLoopAIndex])))+(I2S(GetPlayerTechCountSimple('R00L',udg_players01[bj_forLoopAIndex]))+(I2S(GetPlayerTechCountSimple('R00R',udg_players01[bj_forLoopAIndex]))+(", techtrees player "+I2S(bj_forLoopAIndex))))))
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function mt takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)==StringCase("crazy_monkeys",false))
endfunction
function mT takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)=="worldedit")
endfunction
function mu takes nothing returns boolean
return(GetBooleanOr(mt(),mT()))
endfunction
function mU takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force02))
endfunction
function mv takes nothing returns boolean
return(IsPlayerInForce(udg_players01[bj_forLoopAIndex],udg_force01))
endfunction
function mV takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(mU())then
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,(("Player "+I2S(bj_forLoopAIndex))+" is in human group"))
endif
if(mv())then
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,(("Player "+I2S(bj_forLoopAIndex))+" is in vamp group"))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function mw takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)==StringCase("crazy_monkeys",false))
endfunction
function mW takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)=="worldedit")
endfunction
function mx takes nothing returns boolean
return(GetBooleanOr(mw(),mW()))
endfunction
function mX takes nothing returns nothing
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,(("Human Count ="+I2S(udg_integers05[1]))+(" Vamp Count ="+I2S(udg_integers05[2]))))
endfunction
function my takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)==StringCase("crazy_monkeys",false))
endfunction
function mY takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)=="worldedit")
endfunction
function mz takes nothing returns boolean
return(GetBooleanOr(my(),mY()))
endfunction
function mZ takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=10
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call DisplayTimedTextToForce(d0(GetTriggerPlayer()),30,(I2S(udg_integers07[bj_forLoopAIndex])+(", "+I2S(bj_forLoopAIndex))))
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function m0 takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)==StringCase("crazy_monkeys",false))
endfunction
function m1 takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)=="worldedit")
endfunction
function m2 takes nothing returns boolean
return(GetBooleanOr(m0(),m1()))
endfunction
function m3 takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function m4 takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(m3())then
call DisplayTextToForce(d0(GetTriggerPlayer()),("Player "+(I2S(bj_forLoopAIndex)+" |c00abcfd2slot Status is equal to \"is playing\"|r")))
else
call DisplayTextToForce(d0(GetTriggerPlayer()),("Player "+(I2S(bj_forLoopAIndex)+" |c00abcfd2slot Status is NOT equal to \"is playing\"|r")))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function m5 takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)==StringCase("crazy_monkeys",false))
endfunction
function m6 takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)=="worldedit")
endfunction
function m7 takes nothing returns boolean
return(GetBooleanOr(m5(),m6()))
endfunction
function m8 takes nothing returns boolean
return(GetPlayerSlotState(udg_players01[bj_forLoopAIndex])==PLAYER_SLOT_STATE_PLAYING)
endfunction
function m9 takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(m8())then
call DisplayTextToForce(d0(GetTriggerPlayer()),("Player "+(I2S(bj_forLoopAIndex)+(("gold is = "+I2S(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_GOLD)))+(" and lumber is = "+I2S(GetPlayerState(udg_players01[bj_forLoopAIndex],PLAYER_STATE_RESOURCE_LUMBER)))))))
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function Ma takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)==StringCase("crazy_monkeys",false))
endfunction
function MA takes nothing returns boolean
return(StringCase(GetPlayerName(GetTriggerPlayer()),false)=="worldedit")
endfunction
function Mb takes nothing returns boolean
return(GetBooleanOr(Ma(),MA()))
endfunction
function MB takes nothing returns boolean
return(udg_booleans06[bj_forLoopAIndex])
endfunction
function Mc takes nothing returns nothing
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=12
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
if(MB())then
call DisplayTextToForce(d0(GetTriggerPlayer()),"|c00abcfd2detected Yes|r")
else
call DisplayTextToForce(d0(GetTriggerPlayer()),"|c00abcfd2detected No|r")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
endfunction
function MC takes nothing returns boolean
return(IsUnitType(GetTriggerUnit(),UNIT_TYPE_HERO)==false)
endfunction
function Md takes nothing returns boolean
return(MC())
endfunction
function MD takes nothing returns nothing
call TriggerSleepAction(2.)
call RemoveUnit(GetTriggerUnit())
endfunction
function main2 takes nothing returns nothing
local weathereffect we
local player p
local unit u
local integer unitID
local trigger t
local real life
local integer dc
local integer Me
local version v
local integer DR
local integer i
call SetCameraBounds(-8192.+GetCameraMargin(CAMERA_MARGIN_LEFT),-8192.+GetCameraMargin(CAMERA_MARGIN_BOTTOM),8192.-GetCameraMargin(CAMERA_MARGIN_RIGHT),8192.-GetCameraMargin(CAMERA_MARGIN_TOP),-8192.+GetCameraMargin(CAMERA_MARGIN_LEFT),8192.-GetCameraMargin(CAMERA_MARGIN_TOP),8192.-GetCameraMargin(CAMERA_MARGIN_RIGHT),-8192.+GetCameraMargin(CAMERA_MARGIN_BOTTOM))
call SetDayNightModels("Environment\\DNC\\DNCLordaeron\\DNCLordaeronTerrain\\DNCLordaeronTerrain.mdl","Environment\\DNC\\DNCLordaeron\\DNCLordaeronUnit\\DNCLordaeronUnit.mdl")
call NewSoundEnvironment("Default")
call SetAmbientDaySound("IceCrownDay")
call SetAmbientNightSound("IceCrownNight")
call SetMapMusic("Music",true,0)
set udg_sound01=CreateSound("Sound\\Music\\mp3Music\\PH1.mp3",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound01,"PHMusic")
call SetSoundDuration(udg_sound01,281581)
call SetSoundVolume(udg_sound01,127)
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("Units\\Demon\\HeroPitLord\\HPitLordWhat1.wav",false,false,true,10,10,"HeroAcksEAX")
call SetSoundParamsFromLabel(udg_sound03,"HeroPitLordWhat")
call SetSoundDuration(udg_sound03,2711)
set udg_sound04=CreateSound("Units\\Demon\\HeroPitLord\\HPitLordYes1.wav",false,false,true,10,10,"HeroAcksEAX")
call SetSoundParamsFromLabel(udg_sound04,"HeroPitLordYes")
call SetSoundDuration(udg_sound04,2049)
set udg_sound05=CreateSound("Doodads\\Cinematic\\Lightningbolt\\LightningBolt1.wav",false,false,true,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound05,"CinematicLightningBolt")
call SetSoundDuration(udg_sound05,3000)
call SetSoundChannel(udg_sound05,0)
call SetSoundPitch(udg_sound05,.8)
set udg_sound06=CreateSound("Sound\\Dialogue\\UndeadCampaign\\Undead05A\\U05ATichondrius01.mp3",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound06,"U05ATichondrius01")
call SetSoundDuration(udg_sound06,6217)
set udg_sound07=CreateSound("Sound\\Dialogue\\UndeadExpCamp\\Undead02x\\L02Shade20.mp3",false,true,false,10,1,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound07,"L02Shade20")
call SetSoundDuration(udg_sound07,2951)
call SetSoundPitch(udg_sound07,.8)
set udg_sound08=CreateSound("Units\\Undead\\Tichondrius\\TichondriusPissed4.wav",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound08,"TichondriusPissed")
call SetSoundDuration(udg_sound08,5793)
call SetSoundChannel(udg_sound08,0)
set udg_sound09=CreateSound("Units\\Undead\\Tichondrius\\TichondriusYesAttack3.wav",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound09,"TichondriusYesAttack")
call SetSoundDuration(udg_sound09,2054)
call SetSoundChannel(udg_sound09,0)
set udg_sound10=CreateSound("Units\\Undead\\Tichondrius\\TichondriusPissed3.wav",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound10,"TichondriusPissed")
call SetSoundDuration(udg_sound10,2484)
call SetSoundChannel(udg_sound10,0)
set udg_sound11=CreateSound("Units\\Undead\\Varimathras\\VarimathrasPissed7.wav",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound11,"VarimathrasPissed")
call SetSoundDuration(udg_sound11,6391)
call SetSoundChannel(udg_sound11,0)
set udg_sound12=CreateSound("Units\\Undead\\Varimathras\\VarimathrasPissed6.wav",false,false,true,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound12,"VarimathrasPissed")
call SetSoundDuration(udg_sound12,2885)
call SetSoundChannel(udg_sound12,0)
set udg_sound13=CreateSound("Units\\Human\\HeroBloodElf\\BloodElfMagePissed5.wav",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound13,"BloodElfSorcerorPissed")
call SetSoundDuration(udg_sound13,5688)
call SetSoundChannel(udg_sound13,0)
set udg_sound14=CreateSound("Units\\Creeps\\HeroTinker\\HeroTinkerPissed5.wav",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound14,"HeroTinkerPissed")
call SetSoundDuration(udg_sound14,4337)
call SetSoundChannel(udg_sound14,0)
set udg_sound15=CreateSound("Units\\Human\\Rifleman\\RiflemanPissed5.wav",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound15,"RiflemanPissed")
call SetSoundDuration(udg_sound15,4167)
call SetSoundChannel(udg_sound15,0)
set udg_sound16=CreateSound("Units\\Human\\Muradin\\MuradinPissed4.wav",false,true,true,10,10,"HeroAcksEAX")
call SetSoundParamsFromLabel(udg_sound16,"MuradinPissed")
call SetSoundDuration(udg_sound16,2606)
set udg_sound17=CreateSound("Sound\\Dialogue\\HumanCampaign\\Human02Interlude\\H02Medivh28.mp3",false,false,false,10,10,"DefaultEAXON")
call SetSoundParamsFromLabel(udg_sound17,"H02Medivh28")
call SetSoundDuration(udg_sound17,3735)
set udg_sound18=CreateSound("Units\\Undead\\Varimathras\\VarimathrasPissed5.wav",false,true,true,10,10,"HeroAcksEAX")
call SetSoundParamsFromLabel(udg_sound18,"VarimathrasPissed")
call SetSoundDuration(udg_sound18,2671)
set udg_sound19=CreateSound("Units\\Human\\Arthas\\ArthasPissed6.wav",false,true,true,10,10,"HeroAcksEAX")
call SetSoundParamsFromLabel(udg_sound19,"ArthasPissed")
call SetSoundDuration(udg_sound19,1410)
set udg_sound20=CreateSound("Units\\Human\\Arthas\\ArthasPissed7.wav",false,true,true,10,10,"HeroAcksEAX")
call SetSoundParamsFromLabel(udg_sound20,"ArthasPissed")
call SetSoundDuration(udg_sound20,1364)
set udg_rect01=Rect(-352.,-864.,-160.,-672.)
set udg_rect02=Rect(-576.,-1632.,64.,-1024.)
set udg_rect03=Rect(-896.,-1952.,224.,-96.)
set udg_rect04=Rect(1472.,7680.,2112.,8192.)
set udg_rect05=Rect(480.,-416.,736.,-160.)
set udg_rect06=Rect(-1248.,320.,-1024.,544.)
set udg_rect07=Rect(-928.,320.,-704.,544.)
set udg_rect08=Rect(.0,-256.,352.,64.)
set udg_rect09=Rect(2912.,4000.,3936.,5120.)
set udg_rect10=Rect(3968.,4224.,4128.,4384.)
set udg_rect11=Rect(2912.,5120.,3264.,5472.)
set udg_rect12=Rect(3616.,5120.,3936.,5472.)
set udg_rect13=Rect(3968.,4096.,4128.,4256.)
set udg_rect14=Rect(3968.,3968.,4128.,4128.)
set udg_rect15=Rect(2720.,3872.,4160.,5632.)
set udg_rect16=Rect(4096.,4224.,4256.,4384.)
set udg_rect17=Rect(4096.,4096.,4256.,4256.)
set udg_rect18=Rect(4096.,3968.,4256.,4128.)
set udg_rect19=Rect(-384.,-640.,-128.,-544.)
set udg_rect20=Rect(3264.,5120.,3584.,5472.)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_ZOFFSET,.0,.0)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_ROTATION,90.,.0)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_ANGLE_OF_ATTACK,340.,.0)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_TARGET_DISTANCE,1996.5,.0)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_ROLL,.0,.0)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_FIELD_OF_VIEW,43.,.0)
call CameraSetupSetField(udg_camerasetup01,CAMERA_FIELD_FARZ,5000.,.0)
call CameraSetupSetDestPosition(udg_camerasetup01,-246.1,-951.2,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_ZOFFSET,.0,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_ROTATION,90.,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_ANGLE_OF_ATTACK,300.,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_TARGET_DISTANCE,1815.,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_ROLL,.0,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_FIELD_OF_VIEW,62.,.0)
call CameraSetupSetField(udg_camerasetup02,CAMERA_FIELD_FARZ,5000.,.0)
call CameraSetupSetDestPosition(udg_camerasetup02,-220.4,-1187.,.0)
call SetPlayerTechResearched(Player(0),'R00B',1)
call SetPlayerTechResearched(Player(0),'R00K',1)
call SetPlayerTechResearched(Player(1),'R00B',2)
call SetPlayerTechResearched(Player(2),'R00B',3)
call SetPlayerTechResearched(Player(3),'R00B',4)
call SetPlayerTechResearched(Player(4),'R00B',5)
call SetPlayerTechResearched(Player(5),'R00B',6)
call SetPlayerTechResearched(Player(6),'R00B',7)
call SetPlayerTechResearched(Player(6),'R00H',1)
call SetPlayerTechResearched(Player(7),'R00B',8)
call SetPlayerTechResearched(Player(7),'R00I',1)
call SetPlayerTechResearched(Player(8),'R00B',9)
call SetPlayerTechResearched(Player(8),'R00J',1)
call SetPlayerTechResearched(Player(9),'R00B',10)
call SetPlayerTechResearched(Player(9),'R00K',1)
call SetPlayerTechResearched(Player(10),'Rost',2)
call SetPlayerTechResearched(Player(10),'Rowd',2)
call SetPlayerTechResearched(Player(10),'Rosp',3)
call SetPlayerTechResearched(Player(10),'Rowt',2)
call SetPlayerTechResearched(Player(10),'R00B',11)
call SetPlayerTechResearched(Player(10),'R00L',1)
call SetPlayerTechResearched(Player(11),'Rost',2)
call SetPlayerTechResearched(Player(11),'Rowd',2)
call SetPlayerTechResearched(Player(11),'Rosp',3)
call SetPlayerTechResearched(Player(11),'Rowt',2)
call SetPlayerTechResearched(Player(11),'Rolf',1)
call SetPlayerTechResearched(Player(11),'R00B',12)
call SetPlayerTechResearched(Player(11),'R00A',1)
call SetPlayerTechMaxAllowed(Player(0),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(1),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(2),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(3),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(4),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(5),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(6),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(7),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(8),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(9),'hdhw',0)
call SetPlayerTechMaxAllowed(Player(10),'hdhw',0)
set p=Player(15)
set u=CreateUnit(p,'nfoh',-1088.,-512.,270.)
set u=CreateUnit(p,'nmoo',-1024.,-64.,270.)
set u=CreateUnit(p,'n000',-1536.,-512.,270.)
set udg_unit03=CreateUnit(p,'n006',-1472.,-64.,270.)
set u=CreateUnit(p,'n00V',-960.,-1536.,270.)
set u=CreateUnit(p,'n00W',512.,-1472.,270.)
set p=Player(15)
set udg_unit04=CreateUnit(p,'nvl2',-167.3,-61.2,255.)
set u=CreateUnit(p,'nfa2',611.5,-266.8,22.35)
call ConfigureNeutralVictim()
set filterIssueHauntOrderAtLocBJ=Filter(function IssueHauntOrderAtLocBJFilter)
set filterEnumDestructablesInCircleBJ=Filter(function dl)
set filterGetUnitsInRectOfPlayer=Filter(function GetUnitsInRectOfPlayerFilter)
set filterGetUnitsOfTypeIdAll=Filter(function GetUnitsOfTypeIdAllFilter)
set filterGetUnitsOfPlayerAndTypeId=Filter(function GetUnitsOfPlayerAndTypeIdFilter)
set filterMeleeTrainedUnitIsHeroBJ=Filter(function MeleeTrainedUnitIsHeroBJFilter)
set filterLivingPlayerUnitsOfTypeId=Filter(function d4)
set dc=0
loop
exitwhen dc==16
set bj_FORCE_PLAYER[dc]=CreateForce()
call ForceAddPlayer(bj_FORCE_PLAYER[dc],Player(dc))
set dc=dc+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 dc=0
loop
exitwhen dc>=bj_MAX_QUEUED_TRIGGERS
set bj_queuedExecTriggers[dc]=null
set bj_queuedExecUseConds[dc]=false
set dc=dc+1
endloop
set bj_isSinglePlayer=false
set Me=0
set dc=0
loop
exitwhen dc>=12
if(GetPlayerController(Player(dc))==MAP_CONTROL_USER and GetPlayerSlotState(Player(dc))==PLAYER_SLOT_STATE_PLAYING)then
set Me=Me+1
endif
set dc=dc+1
endloop
set bj_isSinglePlayer=(Me==1)
set bj_rescueSound=CreateSoundFromLabel("Rescue",false,false,false,10000,10000)
set bj_questDiscoveredSound=CreateSoundFromLabel("QuestNew",false,false,false,10000,10000)
set bj_questUpdatedSound=CreateSoundFromLabel("QuestUpdate",false,false,false,10000,10000)
set bj_questCompletedSound=CreateSoundFromLabel("QuestCompleted",false,false,false,10000,10000)
set bj_questFailedSound=CreateSoundFromLabel("QuestFailed",false,false,false,10000,10000)
set bj_questHintSound=CreateSoundFromLabel("Hint",false,false,false,10000,10000)
set bj_questSecretSound=CreateSoundFromLabel("SecretFound",false,false,false,10000,10000)
set bj_questItemAcquiredSound=CreateSoundFromLabel("ItemReward",false,false,false,10000,10000)
set bj_questWarningSound=CreateSoundFromLabel("Warning",false,false,false,10000,10000)
set bj_victoryDialogSound=CreateSoundFromLabel("QuestCompleted",false,false,false,10000,10000)
set bj_defeatDialogSound=CreateSoundFromLabel("QuestFailed",false,false,false,10000,10000)
set bj_delayedSuspendDecayTrig=CreateTrigger()
call TriggerRegisterTimerExpireEvent(bj_delayedSuspendDecayTrig,bj_delayedSuspendDecayTimer)
call TriggerAddAction(bj_delayedSuspendDecayTrig,function di)
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 Dn()
call InitDNCSounds()
call InitMapRects()
call InitSummonableCaps()
set DR=0
loop
set bj_stockAllowedPermanent[DR]=false
set bj_stockAllowedCharged[DR]=false
set bj_stockAllowedArtifact[DR]=false
set DR=DR+1
exitwhen DR>10
endloop
call SetAllItemTypeSlots(11)
call SetAllUnitTypeSlots(11)
set bj_stockUpdateTimer=CreateTimer()
call TimerStart(bj_stockUpdateTimer,bj_STOCK_RESTOCK_INITIAL_DELAY,false,function Du)
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=bj_FORCE_PLAYER[11]
set udg_force02=bj_FORCE_PLAYER[0]
set udg_dialog01=DialogCreate()
set udg_dialog02=DialogCreate()
set udg_dialog03=DialogCreate()
set i=0
loop
exitwhen(i>2)
set udg_dialogs01[i]=DialogCreate()
set udg_dialogs02[i]=DialogCreate()
set udg_booleans01[i]=false
set udg_integers05[i]=0
set i=i+1
endloop
set i=0
loop
exitwhen(i>12)
set udg_integers03[i]=0
set udg_strings01[i]=""
set udg_booleans05[i]=false
set udg_booleans06[i]=false
set udg_booleans07[i]=false
set i=i+1
endloop
set udg_dialog04=DialogCreate()
set i=0
loop
exitwhen(i>60)
set udg_integers04[i]=0
set i=i+1
endloop
set udg_dialog05=DialogCreate()
set i=0
loop
exitwhen(i>4)
set udg_groups01[i]=CreateGroup()
set i=i+1
endloop
set i=0
loop
exitwhen(i>5)
set udg_dialogs03[i]=DialogCreate()
set udg_groups03[i]=CreateGroup()
set i=i+1
endloop
set i=0
loop
exitwhen(i>3)
set udg_booleans02[i]=false
set i=i+1
endloop
set i=0
loop
exitwhen(i>10)
set udg_integers06[i]=0
set udg_strings02[i]=""
set udg_strings04[i]=""
set udg_booleans04[i]=false
set i=i+1
endloop
set i=0
loop
exitwhen(i>22)
set udg_integers07[i]=0
set udg_booleans03[i]=true
set i=i+1
endloop
set i=0
loop
exitwhen(i>20)
set udg_integers08[i]=0
set i=i+1
endloop
set i=0
loop
exitwhen(i>15)
set udg_groups02[i]=CreateGroup()
set i=i+1
endloop
set i=0
loop
exitwhen(i>26)
set udg_strings03[i]=""
set i=i+1
endloop
set udg_dialog06=DialogCreate()
set i=0
loop
exitwhen(i>36)
set udg_reals01[i]=0
set i=i+1
endloop
call TriggerAddAction(udg_trigger01,function DY)
call TriggerRegisterTimerEventPeriodic(udg_trigger02,60.)
call TriggerAddAction(udg_trigger02,function Dz)
call TriggerRegisterTimerEventSingle(udg_trigger03,1.)
call TriggerAddAction(udg_trigger03,function DZ)
call TriggerRegisterTimerEventSingle(udg_trigger04,901.)
call TriggerAddAction(udg_trigger04,function D0)
call TriggerRegisterTimerEventSingle(udg_trigger05,1.)
call TriggerAddAction(udg_trigger05,function D1)
call DisableTrigger(udg_trigger06)
call TriggerRegisterTimerEventPeriodic(udg_trigger06,45.)
call TriggerAddAction(udg_trigger06,function D2)
call TriggerAddAction(udg_trigger07,function D3)
call TriggerRegisterTimerEventSingle(udg_trigger08,2.5)
call TriggerAddAction(udg_trigger08,function D4)
call TriggerRegisterPlayerChatEvent(udg_trigger09,Player(0),"-stop reveal2",true)
call TriggerRegisterPlayerChatEvent(udg_trigger09,Player(10),"-stop reveal2",true)
call TriggerAddAction(udg_trigger09,function D5)
call TriggerRegisterTimerEventSingle(udg_trigger10,16.)
call TriggerAddAction(udg_trigger10,function ea)
call TriggerRegisterTimerEventSingle(udg_trigger11,5)
call TriggerAddAction(udg_trigger11,function eb)
call TriggerRegisterTimerEventPeriodic(udg_trigger12,600.)
call TriggerAddAction(udg_trigger12,function ec)
call TriggerRegisterTimerEventPeriodic(udg_trigger13,900.)
call TriggerAddAction(udg_trigger13,function ed)
call TriggerAddAction(udg_trigger14,function eD)
call TriggerAddAction(udg_trigger15,function ee)
call TriggerAddAction(udg_trigger16,function ef)
call TriggerAddAction(udg_trigger17,function eh)
call TriggerRegisterTimerEventPeriodic(udg_trigger18,55.)
call TriggerAddAction(udg_trigger18,function eJ)
call DisableTrigger(udg_trigger19)
call TriggerRegisterTimerEventPeriodic(udg_trigger19,30.)
call TriggerAddAction(udg_trigger19,function em)
call TriggerAddAction(udg_trigger20,function eM)
call DisableTrigger(udg_trigger21)
call TriggerAddAction(udg_trigger21,function ep)
call C8(udg_trigger22,GetWorldBounds())
call TriggerAddCondition(udg_trigger22,Condition(function eq))
call TriggerAddAction(udg_trigger22,function eQ)
call TriggerRegisterTimerEventSingle(udg_trigger23,75.)
call TriggerAddAction(udg_trigger23,function eR)
call TriggerRegisterTimerEventSingle(udg_trigger24,75.)
call TriggerAddAction(udg_trigger24,function ev)
call DisableTrigger(udg_trigger25)
call TriggerRegisterTimerEventPeriodic(udg_trigger25,5.)
call TriggerAddAction(udg_trigger25,function ex)
call DisableTrigger(udg_trigger26)
call TriggerRegisterTimerEventPeriodic(udg_trigger26,5.)
call TriggerAddAction(udg_trigger26,function eZ)
call TriggerAddAction(udg_trigger27,function e2)
call TriggerRegisterTimerEventPeriodic(udg_trigger28,60.)
call TriggerAddAction(udg_trigger28,function e4)
call TriggerRegisterTimerEventPeriodic(udg_trigger29,60.)
call TriggerAddAction(udg_trigger29,function e6)
call TriggerRegisterAnyUnitEventBJ(udg_trigger30,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddAction(udg_trigger30,function e8)
call TriggerRegisterAnyUnitEventBJ(udg_trigger31,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddAction(udg_trigger31,function Ea)
call TriggerAddAction(udg_trigger32,function Eb)
call TriggerAddAction(udg_trigger33,function EB)
call DisableTrigger(udg_trigger34)
call TriggerRegisterTimerEventPeriodic(udg_trigger34,.04)
call TriggerAddAction(udg_trigger34,function EC)
call TriggerAddAction(udg_trigger35,function Ef)
call TriggerRegisterTimerEventPeriodic(udg_trigger36,120.)
call TriggerAddAction(udg_trigger36,function EF)
call TriggerRegisterPlayerChatEvent(udg_trigger37,Player(0),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger37,Player(1),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger37,Player(2),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger37,Player(3),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger37,Player(4),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger37,Player(5),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger37,Player(6),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger37,Player(7),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger37,Player(8),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger37,Player(9),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger37,Player(10),"-help",true)
call TriggerRegisterPlayerChatEvent(udg_trigger37,Player(11),"-help",true)
call TriggerAddAction(udg_trigger37,function EG)
call TriggerRegisterPlayerChatEvent(udg_trigger38,Player(0),"-lumber shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger38,Player(1),"-lumber shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger38,Player(2),"-lumber shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger38,Player(3),"-lumber shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger38,Player(4),"-lumber shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger38,Player(5),"-lumber shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger38,Player(6),"-lumber shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger38,Player(7),"-lumber shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger38,Player(8),"-lumber shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger38,Player(9),"-lumber shipment",true)
call TriggerAddCondition(udg_trigger38,Condition(function Eh))
call TriggerAddAction(udg_trigger38,function Ei)
call TriggerRegisterPlayerChatEvent(udg_trigger39,Player(0),"-gold shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger39,Player(1),"-gold shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger39,Player(2),"-gold shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger39,Player(3),"-gold shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger39,Player(4),"-gold shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger39,Player(5),"-gold shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger39,Player(6),"-gold shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger39,Player(7),"-gold shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger39,Player(8),"-gold shipment",true)
call TriggerRegisterPlayerChatEvent(udg_trigger39,Player(9),"-gold shipment",true)
call TriggerAddCondition(udg_trigger39,Condition(function EI))
call TriggerAddAction(udg_trigger39,function EO)
call TriggerRegisterPlayerChatEvent(udg_trigger40,Player(0),"-stored lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger40,Player(1),"-stored lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger40,Player(2),"-stored lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger40,Player(3),"-stored lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger40,Player(4),"-stored lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger40,Player(5),"-stored lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger40,Player(6),"-stored lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger40,Player(7),"-stored lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger40,Player(8),"-stored lumber",true)
call TriggerRegisterPlayerChatEvent(udg_trigger40,Player(9),"-stored lumber",true)
call TriggerAddCondition(udg_trigger40,Condition(function Ep))
call TriggerAddAction(udg_trigger40,function EP)
call TriggerRegisterPlayerChatEvent(udg_trigger41,Player(0),"-store display",true)
call TriggerRegisterPlayerChatEvent(udg_trigger41,Player(1),"-store display",true)
call TriggerRegisterPlayerChatEvent(udg_trigger41,Player(2),"-store display",true)
call TriggerRegisterPlayerChatEvent(udg_trigger41,Player(3),"-store display",true)
call TriggerRegisterPlayerChatEvent(udg_trigger41,Player(4),"-store display",true)
call TriggerRegisterPlayerChatEvent(udg_trigger41,Player(5),"-store display",true)
call TriggerRegisterPlayerChatEvent(udg_trigger41,Player(6),"-store display",true)
call TriggerRegisterPlayerChatEvent(udg_trigger41,Player(7),"-store display",true)
call TriggerRegisterPlayerChatEvent(udg_trigger41,Player(8),"-store display",true)
call TriggerRegisterPlayerChatEvent(udg_trigger41,Player(9),"-store display",true)
call TriggerAddCondition(udg_trigger41,Condition(function Eq))
call TriggerAddAction(udg_trigger41,function Er)
call TriggerRegisterPlayerChatEvent(udg_trigger42,Player(0),"-upgrade",true)
call TriggerRegisterPlayerChatEvent(udg_trigger42,Player(1),"-upgrade",true)
call TriggerRegisterPlayerChatEvent(udg_trigger42,Player(2),"-upgrade",true)
call TriggerRegisterPlayerChatEvent(udg_trigger42,Player(3),"-upgrade",true)
call TriggerRegisterPlayerChatEvent(udg_trigger42,Player(4),"-upgrade",true)
call TriggerRegisterPlayerChatEvent(udg_trigger42,Player(5),"-upgrade",true)
call TriggerRegisterPlayerChatEvent(udg_trigger42,Player(6),"-upgrade",true)
call TriggerRegisterPlayerChatEvent(udg_trigger42,Player(7),"-upgrade",true)
call TriggerRegisterPlayerChatEvent(udg_trigger42,Player(8),"-upgrade",true)
call TriggerRegisterPlayerChatEvent(udg_trigger42,Player(9),"-upgrade",true)
call TriggerRegisterPlayerChatEvent(udg_trigger42,Player(10),"-upgrade",true)
call TriggerRegisterPlayerChatEvent(udg_trigger42,Player(11),"-upgrade",true)
call TriggerAddCondition(udg_trigger42,Condition(function ER))
call TriggerAddAction(udg_trigger42,function Es)
call TriggerRegisterPlayerChatEvent(udg_trigger43,Player(0),"-auto collect",true)
call TriggerRegisterPlayerChatEvent(udg_trigger43,Player(1),"-auto collect",true)
call TriggerRegisterPlayerChatEvent(udg_trigger43,Player(2),"-auto collect",true)
call TriggerRegisterPlayerChatEvent(udg_trigger43,Player(3),"-auto collect",true)
call TriggerRegisterPlayerChatEvent(udg_trigger43,Player(4),"-auto collect",true)
call TriggerRegisterPlayerChatEvent(udg_trigger43,Player(5),"-auto collect",true)
call TriggerRegisterPlayerChatEvent(udg_trigger43,Player(6),"-auto collect",true)
call TriggerRegisterPlayerChatEvent(udg_trigger43,Player(7),"-auto collect",true)
call TriggerRegisterPlayerChatEvent(udg_trigger43,Player(8),"-auto collect",true)
call TriggerRegisterPlayerChatEvent(udg_trigger43,Player(9),"-auto collect",true)
call TriggerRegisterPlayerChatEvent(udg_trigger43,Player(10),"-auto collect",true)
call TriggerRegisterPlayerChatEvent(udg_trigger43,Player(11),"-auto collect",true)
call TriggerAddCondition(udg_trigger43,Condition(function ES))
call TriggerAddAction(udg_trigger43,function ET)
call TriggerRegisterTimerEventSingle(udg_trigger44,120.)
call TriggerAddCondition(udg_trigger44,Condition(function Eu))
call TriggerAddAction(udg_trigger44,function EU)
call TriggerRegisterTimerEventSingle(udg_trigger45,120.)
call TriggerAddCondition(udg_trigger45,Condition(function Ev))
call TriggerAddAction(udg_trigger45,function EV)
call TriggerRegisterAnyUnitEventBJ(udg_trigger46,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddAction(udg_trigger46,function Ex)
call TriggerRegisterAnyUnitEventBJ(udg_trigger47,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddAction(udg_trigger47,function EY)
call TriggerRegisterAnyUnitEventBJ(udg_trigger48,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddAction(udg_trigger48,function E0)
call TriggerRegisterAnyUnitEventBJ(udg_trigger49,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger49,Condition(function E3))
call TriggerAddAction(udg_trigger49,function E4)
call TriggerRegisterAnyUnitEventBJ(udg_trigger50,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger50,Condition(function E6))
call TriggerAddAction(udg_trigger50,function E7)
call TriggerRegisterAnyUnitEventBJ(udg_trigger51,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger51,Condition(function E9))
call TriggerAddAction(udg_trigger51,function fa)
call TriggerRegisterAnyUnitEventBJ(udg_trigger52,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger52,Condition(function fb))
call TriggerAddAction(udg_trigger52,function fB)
call TriggerRegisterAnyUnitEventBJ(udg_trigger53,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger53,Condition(function fC))
call TriggerAddAction(udg_trigger53,function fd)
call TriggerAddAction(udg_trigger54,function fD)
call TriggerRegisterPlayerChatEvent(udg_trigger55,Player(0),"-activate kick",true)
call TriggerAddAction(udg_trigger55,function fF)
call DisableTrigger(udg_trigger56)
call TriggerRegisterPlayerChatEvent(udg_trigger56,Player(0),"-kick",false)
call TriggerAddCondition(udg_trigger56,Condition(function fH))
call TriggerAddAction(udg_trigger56,function fK)
call DisableTrigger(udg_trigger57)
call TriggerRegisterPlayerChatEvent(udg_trigger57,Player(0),"-kick",false)
call TriggerAddCondition(udg_trigger57,Condition(function fl))
call TriggerAddAction(udg_trigger57,function fo)
call DisableTrigger(udg_trigger58)
call TriggerRegisterPlayerChatEvent(udg_trigger58,Player(0),"-kick",false)
call TriggerAddCondition(udg_trigger58,Condition(function fO))
call TriggerAddAction(udg_trigger58,function fR)
call TriggerRegisterPlayerChatEvent(udg_trigger59,Player(10),"-activate kick",true)
call TriggerAddCondition(udg_trigger59,Condition(function fS))
call TriggerAddAction(udg_trigger59,function ft)
call DisableTrigger(udg_trigger60)
call TriggerRegisterPlayerChatEvent(udg_trigger60,Player(10),"-kick",false)
call TriggerAddCondition(udg_trigger60,Condition(function fv))
call TriggerAddAction(udg_trigger60,function fy)
call DisableTrigger(udg_trigger61)
call TriggerRegisterPlayerChatEvent(udg_trigger61,Player(10),"-kick",false)
call TriggerAddAction(udg_trigger61,function f2)
call TriggerAddAction(udg_trigger62,function f3)
call DisableTrigger(udg_trigger63)
call TriggerRegisterTimerEventPeriodic(udg_trigger63,300.)
call TriggerAddAction(udg_trigger63,function f5)
call DisableTrigger(udg_trigger64)
call TriggerRegisterTimerEventPeriodic(udg_trigger64,90.)
call TriggerAddAction(udg_trigger64,function f8)
call DisableTrigger(udg_trigger65)
call TriggerRegisterTimerEventSingle(udg_trigger65,960.)
call TriggerAddAction(udg_trigger65,function Fa)
call TriggerRegisterTimerEventSingle(udg_trigger66,.25)
call TriggerAddAction(udg_trigger66,function FA)
call TriggerAddAction(udg_trigger67,function Fb)
call TriggerRegisterTimerEventSingle(udg_trigger68,1.1)
call TriggerAddAction(udg_trigger68,function Fc)
call TriggerRegisterDialogEvent(udg_trigger69,udg_dialog05)
call TriggerAddAction(udg_trigger69,function FD)
call TriggerRegisterDialogEvent(udg_trigger70,udg_dialog05)
call TriggerAddAction(udg_trigger70,function FF)
call TriggerRegisterTimerEventSingle(udg_trigger71,.1)
call TriggerAddAction(udg_trigger71,function Fg)
call TriggerRegisterDialogEvent(udg_trigger72,udg_dialog06)
call TriggerAddAction(udg_trigger72,function Fk)
call TriggerRegisterDialogEvent(udg_trigger73,udg_dialog06)
call TriggerAddAction(udg_trigger73,function FL)
call TriggerRegisterDialogEvent(udg_trigger74,udg_dialog06)
call TriggerAddAction(udg_trigger74,function Fn)
call TriggerRegisterDialogEvent(udg_trigger75,udg_dialog06)
call TriggerAddAction(udg_trigger75,function FO)
call TriggerRegisterDialogEvent(udg_trigger76,udg_dialog06)
call TriggerAddAction(udg_trigger76,function Fq)
call TriggerAddAction(udg_trigger77,function FQ)
call TriggerRegisterDialogEvent(udg_trigger78,udg_dialogs02[2])
call TriggerAddAction(udg_trigger78,function FR)
call TriggerRegisterDialogEvent(udg_trigger79,udg_dialogs02[2])
call TriggerAddAction(udg_trigger79,function FS)
call TriggerRegisterDialogEvent(udg_trigger80,udg_dialogs02[2])
call TriggerAddAction(udg_trigger80,function FT)
call TriggerRegisterDialogEvent(udg_trigger81,udg_dialogs02[2])
call TriggerAddAction(udg_trigger81,function FU)
call TriggerAddAction(udg_trigger82,function Fv)
call TriggerAddAction(udg_trigger83,function Fw)
call TriggerRegisterDialogEvent(udg_trigger84,udg_dialogs01[1])
call TriggerAddAction(udg_trigger84,function ge)
call TriggerRegisterDialogEvent(udg_trigger85,udg_dialogs01[2])
call TriggerAddAction(udg_trigger85,function go)
call TriggerAddAction(udg_trigger86,function gp)
call TriggerAddAction(udg_trigger87,function gP)
call TriggerAddAction(udg_trigger88,function gq)
call TriggerAddAction(udg_trigger89,function gQ)
call TriggerRegisterDialogEvent(udg_trigger90,udg_dialog01)
call TriggerAddAction(udg_trigger90,function gu)
call TriggerRegisterDialogEvent(udg_trigger91,udg_dialog02)
call TriggerAddAction(udg_trigger91,function gX)
call TriggerRegisterDialogEvent(udg_trigger92,udg_dialog03)
call TriggerAddAction(udg_trigger92,function gz)
call TriggerRegisterDialogEvent(udg_trigger93,udg_dialog03)
call TriggerAddAction(udg_trigger93,function g1)
call TriggerRegisterDialogEvent(udg_trigger94,udg_dialog03)
call TriggerAddAction(udg_trigger94,function g4)
call TriggerRegisterDialogEvent(udg_trigger95,udg_dialog03)
call TriggerAddAction(udg_trigger95,function g7)
call TriggerRegisterDialogEvent(udg_trigger96,udg_dialog03)
call TriggerAddAction(udg_trigger96,function Ga)
call TriggerRegisterDialogEvent(udg_trigger97,udg_dialog03)
call TriggerAddAction(udg_trigger97,function GB)
call TriggerRegisterDialogEvent(udg_trigger98,udg_dialog03)
call TriggerAddAction(udg_trigger98,function Gd)
call TriggerRegisterDialogEvent(udg_trigger99,udg_dialog04)
call TriggerAddAction(udg_trigger99,function Gf)
call TriggerRegisterDialogEvent(udg_trigger100,udg_dialog04)
call TriggerAddAction(udg_trigger100,function Gh)
call TriggerRegisterDialogEvent(udg_trigger101,udg_dialog04)
call TriggerAddAction(udg_trigger101,function Gj)
call TriggerRegisterDialogEvent(udg_trigger102,udg_dialog04)
call TriggerAddAction(udg_trigger102,function Gl)
call TriggerRegisterDialogEvent(udg_trigger103,udg_dialog04)
call TriggerAddAction(udg_trigger103,function Gn)
call TriggerRegisterDialogEvent(udg_trigger104,udg_dialog04)
call TriggerAddAction(udg_trigger104,function Gp)
call C8(udg_trigger105,GetWorldBounds())
call TriggerAddCondition(udg_trigger105,Condition(function GP))
call TriggerAddAction(udg_trigger105,function Gq)
call TriggerRegisterTimerEventPeriodic(udg_trigger106,50.)
call TriggerAddAction(udg_trigger106,function GW)
call TriggerRegisterUnitEvent(udg_trigger107,udg_unit04,EVENT_UNIT_DEATH)
call TriggerAddAction(udg_trigger107,function GX)
call C8(udg_trigger108,GetWorldBounds())
call TriggerAddCondition(udg_trigger108,Condition(function GY))
call TriggerAddAction(udg_trigger108,function Gz)
call TriggerAddAction(udg_trigger109,function GZ)
call TriggerRegisterAnyUnitEventBJ(udg_trigger110,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger110,Condition(function G1))
call TriggerAddAction(udg_trigger110,function G2)
call TriggerRegisterAnyUnitEventBJ(udg_trigger111,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger111,Condition(function G4))
call TriggerAddAction(udg_trigger111,function G8)
call C8(udg_trigger112,GetWorldBounds())
call TriggerAddCondition(udg_trigger112,Condition(function ha))
call TriggerAddAction(udg_trigger112,function hA)
call DisableTrigger(udg_trigger113)
call C8(udg_trigger113,GetWorldBounds())
call TriggerAddCondition(udg_trigger113,Condition(function hB))
call TriggerAddAction(udg_trigger113,function hc)
call DisableTrigger(udg_trigger114)
call C8(udg_trigger114,GetWorldBounds())
call TriggerAddCondition(udg_trigger114,Condition(function hd))
call TriggerAddAction(udg_trigger114,function hD)
call DisableTrigger(udg_trigger115)
call C8(udg_trigger115,GetWorldBounds())
call TriggerAddCondition(udg_trigger115,Condition(function hE))
call TriggerAddAction(udg_trigger115,function hF)
call TriggerRegisterTimerEventSingle(udg_trigger116,480.)
call TriggerAddAction(udg_trigger116,function hg)
call TriggerRegisterAnyUnitEventBJ(udg_trigger117,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger117,Condition(function hh))
call TriggerAddAction(udg_trigger117,function hH)
call TriggerRegisterAnyUnitEventBJ(udg_trigger118,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger118,Condition(function hI))
call TriggerAddAction(udg_trigger118,function hj)
call TriggerRegisterAnyUnitEventBJ(udg_trigger119,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger119,Condition(function hk))
call TriggerAddAction(udg_trigger119,function hl)
call TriggerRegisterTimerEventPeriodic(udg_trigger120,240.)
call TriggerAddAction(udg_trigger120,function hL)
call TriggerRegisterAnyUnitEventBJ(udg_trigger121,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger121,Condition(function hM))
call TriggerAddAction(udg_trigger121,function hn)
call TriggerRegisterAnyUnitEventBJ(udg_trigger122,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger122,Condition(function ho))
call TriggerAddAction(udg_trigger122,function hO)
call TriggerRegisterAnyUnitEventBJ(udg_trigger123,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger123,Condition(function hP))
call TriggerAddAction(udg_trigger123,function hq)
call TriggerRegisterAnyUnitEventBJ(udg_trigger124,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger124,Condition(function hr))
call TriggerAddAction(udg_trigger124,function hR)
call TriggerRegisterAnyUnitEventBJ(udg_trigger125,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger125,Condition(function hs))
call TriggerAddAction(udg_trigger125,function hS)
call TriggerRegisterAnyUnitEventBJ(udg_trigger126,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger126,Condition(function hT))
call TriggerAddAction(udg_trigger126,function hU)
call TriggerRegisterAnyUnitEventBJ(udg_trigger127,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger127,Condition(function hV))
call TriggerAddAction(udg_trigger127,function hw)
call TriggerRegisterTimerEventPeriodic(udg_trigger128,90.)
call TriggerAddAction(udg_trigger128,function h7)
call TriggerAddAction(udg_trigger129,function h8)
call TriggerAddAction(udg_trigger130,function Ha)
call C8(udg_trigger131,GetWorldBounds())
call TriggerAddCondition(udg_trigger131,Condition(function Hb))
call TriggerAddAction(udg_trigger131,function Hc)
call C8(udg_trigger132,GetWorldBounds())
call TriggerAddCondition(udg_trigger132,Condition(function Hd))
call TriggerAddAction(udg_trigger132,function HD)
call TriggerRegisterAnyUnitEventBJ(udg_trigger133,EVENT_PLAYER_HERO_LEVEL)
call TriggerAddAction(udg_trigger133,function Hf)
call TriggerRegisterAnyUnitEventBJ(udg_trigger134,EVENT_PLAYER_UNIT_SPELL_CAST)
call TriggerAddCondition(udg_trigger134,Condition(function HF))
call TriggerAddAction(udg_trigger134,function Hg)
call C8(udg_trigger135,GetWorldBounds())
call TriggerAddAction(udg_trigger135,function HH)
call TriggerRegisterAnyUnitEventBJ(udg_trigger136,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddAction(udg_trigger136,function Hj)
call TriggerRegisterAnyUnitEventBJ(udg_trigger137,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger137,Condition(function HJ))
call TriggerAddAction(udg_trigger137,function Hk)
call TriggerRegisterAnyUnitEventBJ(udg_trigger138,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger138,Condition(function HK))
call TriggerAddAction(udg_trigger138,function Hl)
call TriggerRegisterAnyUnitEventBJ(udg_trigger139,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddAction(udg_trigger139,function HM)
call TriggerRegisterPlayerEventLeave(udg_trigger140,Player(10))
call TriggerRegisterPlayerEventDefeat(udg_trigger140,Player(10))
call TriggerAddCondition(udg_trigger140,Condition(function HN))
call TriggerAddAction(udg_trigger140,function Hp)
call TriggerRegisterPlayerEventLeave(udg_trigger141,Player(11))
call TriggerRegisterPlayerEventDefeat(udg_trigger141,Player(11))
call TriggerAddCondition(udg_trigger141,Condition(function Hq))
call TriggerAddAction(udg_trigger141,function HR)
call TriggerRegisterAnyUnitEventBJ(udg_trigger142,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger142,Condition(function HS))
call TriggerAddAction(udg_trigger142,function Hv)
call TriggerRegisterAnyUnitEventBJ(udg_trigger143,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger143,Condition(function Hw))
call TriggerAddAction(udg_trigger143,function HW)
call DisableTrigger(udg_trigger144)
call TriggerRegisterAnyUnitEventBJ(udg_trigger144,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger144,Condition(function Hx))
call TriggerAddAction(udg_trigger144,function HX)
call TriggerRegisterTimerEventSingle(udg_trigger145,901.)
call TriggerAddAction(udg_trigger145,function HY)
call TriggerRegisterTimerEventSingle(udg_trigger146,1320.)
call TriggerAddAction(udg_trigger146,function Hz)
call TriggerRegisterPlayerChatEvent(udg_trigger147,Player(0),"-setname",false)
call TriggerRegisterPlayerChatEvent(udg_trigger147,Player(1),"-setname",false)
call TriggerRegisterPlayerChatEvent(udg_trigger147,Player(2),"-setname",false)
call TriggerRegisterPlayerChatEvent(udg_trigger147,Player(3),"-setname",false)
call TriggerRegisterPlayerChatEvent(udg_trigger147,Player(4),"-setname",false)
call TriggerRegisterPlayerChatEvent(udg_trigger147,Player(5),"-setname",false)
call TriggerRegisterPlayerChatEvent(udg_trigger147,Player(6),"-setname",false)
call TriggerRegisterPlayerChatEvent(udg_trigger147,Player(7),"-setname",false)
call TriggerRegisterPlayerChatEvent(udg_trigger147,Player(8),"-setname",false)
call TriggerRegisterPlayerChatEvent(udg_trigger147,Player(9),"-setname",false)
call TriggerRegisterPlayerChatEvent(udg_trigger147,Player(10),"-setname",false)
call TriggerRegisterPlayerChatEvent(udg_trigger147,Player(11),"-setname",false)
call TriggerAddAction(udg_trigger147,function H2)
call TriggerRegisterPlayerChatEvent(udg_trigger148,Player(0),"-resetnames",false)
call TriggerAddAction(udg_trigger148,function H3)
call TriggerRegisterPlayerChatEvent(udg_trigger149,Player(0),"-names",false)
call TriggerRegisterPlayerChatEvent(udg_trigger149,Player(1),"-names",false)
call TriggerRegisterPlayerChatEvent(udg_trigger149,Player(2),"-names",false)
call TriggerRegisterPlayerChatEvent(udg_trigger149,Player(3),"-names",false)
call TriggerRegisterPlayerChatEvent(udg_trigger149,Player(4),"-names",false)
call TriggerRegisterPlayerChatEvent(udg_trigger149,Player(5),"-names",false)
call TriggerRegisterPlayerChatEvent(udg_trigger149,Player(6),"-names",false)
call TriggerRegisterPlayerChatEvent(udg_trigger149,Player(7),"-names",false)
call TriggerRegisterPlayerChatEvent(udg_trigger149,Player(8),"-names",false)
call TriggerRegisterPlayerChatEvent(udg_trigger149,Player(9),"-names",false)
call TriggerRegisterPlayerChatEvent(udg_trigger149,Player(10),"-names",false)
call TriggerRegisterPlayerChatEvent(udg_trigger149,Player(11),"-names",false)
call TriggerAddAction(udg_trigger149,function H4)
call TriggerAddAction(udg_trigger150,function H5)
call TriggerRegisterPlayerChatEvent(udg_trigger151,Player(0),"-ig",false)
call TriggerRegisterPlayerChatEvent(udg_trigger151,Player(1),"-ig",false)
call TriggerRegisterPlayerChatEvent(udg_trigger151,Player(2),"-ig",false)
call TriggerRegisterPlayerChatEvent(udg_trigger151,Player(3),"-ig",false)
call TriggerRegisterPlayerChatEvent(udg_trigger151,Player(4),"-ig",false)
call TriggerRegisterPlayerChatEvent(udg_trigger151,Player(5),"-ig",false)
call TriggerRegisterPlayerChatEvent(udg_trigger151,Player(6),"-ig",false)
call TriggerRegisterPlayerChatEvent(udg_trigger151,Player(7),"-ig",false)
call TriggerRegisterPlayerChatEvent(udg_trigger151,Player(8),"-ig",false)
call TriggerRegisterPlayerChatEvent(udg_trigger151,Player(9),"-ig",false)
call TriggerAddAction(udg_trigger151,function iC)
call TriggerRegisterPlayerChatEvent(udg_trigger152,Player(0),"-il",false)
call TriggerRegisterPlayerChatEvent(udg_trigger152,Player(1),"-il",false)
call TriggerRegisterPlayerChatEvent(udg_trigger152,Player(2),"-il",false)
call TriggerRegisterPlayerChatEvent(udg_trigger152,Player(3),"-il",false)
call TriggerRegisterPlayerChatEvent(udg_trigger152,Player(4),"-il",false)
call TriggerRegisterPlayerChatEvent(udg_trigger152,Player(5),"-il",false)
call TriggerRegisterPlayerChatEvent(udg_trigger152,Player(6),"-il",false)
call TriggerRegisterPlayerChatEvent(udg_trigger152,Player(7),"-il",false)
call TriggerRegisterPlayerChatEvent(udg_trigger152,Player(8),"-il",false)
call TriggerRegisterPlayerChatEvent(udg_trigger152,Player(9),"-il",false)
call TriggerAddAction(udg_trigger152,function ii)
call TriggerRegisterPlayerChatEvent(udg_trigger153,Player(0),"-gg",false)
call TriggerRegisterPlayerChatEvent(udg_trigger153,Player(1),"-gg",false)
call TriggerRegisterPlayerChatEvent(udg_trigger153,Player(2),"-gg",false)
call TriggerRegisterPlayerChatEvent(udg_trigger153,Player(3),"-gg",false)
call TriggerRegisterPlayerChatEvent(udg_trigger153,Player(4),"-gg",false)
call TriggerRegisterPlayerChatEvent(udg_trigger153,Player(5),"-gg",false)
call TriggerRegisterPlayerChatEvent(udg_trigger153,Player(6),"-gg",false)
call TriggerRegisterPlayerChatEvent(udg_trigger153,Player(7),"-gg",false)
call TriggerRegisterPlayerChatEvent(udg_trigger153,Player(8),"-gg",false)
call TriggerRegisterPlayerChatEvent(udg_trigger153,Player(9),"-gg",false)
call TriggerRegisterPlayerChatEvent(udg_trigger153,Player(10),"-gg",false)
call TriggerRegisterPlayerChatEvent(udg_trigger153,Player(11),"-gg",false)
call TriggerAddAction(udg_trigger153,function iO)
call TriggerRegisterPlayerChatEvent(udg_trigger154,Player(0),"-gl",false)
call TriggerRegisterPlayerChatEvent(udg_trigger154,Player(1),"-gl",false)
call TriggerRegisterPlayerChatEvent(udg_trigger154,Player(2),"-gl",false)
call TriggerRegisterPlayerChatEvent(udg_trigger154,Player(3),"-gl",false)
call TriggerRegisterPlayerChatEvent(udg_trigger154,Player(4),"-gl",false)
call TriggerRegisterPlayerChatEvent(udg_trigger154,Player(5),"-gl",false)
call TriggerRegisterPlayerChatEvent(udg_trigger154,Player(6),"-gl",false)
call TriggerRegisterPlayerChatEvent(udg_trigger154,Player(7),"-gl",false)
call TriggerRegisterPlayerChatEvent(udg_trigger154,Player(8),"-gl",false)
call TriggerRegisterPlayerChatEvent(udg_trigger154,Player(9),"-gl",false)
call TriggerRegisterPlayerChatEvent(udg_trigger154,Player(10),"-gl",false)
call TriggerRegisterPlayerChatEvent(udg_trigger154,Player(11),"-gl",false)
call TriggerAddAction(udg_trigger154,function iy)
call TriggerRegisterPlayerChatEvent(udg_trigger155,Player(0),"-playernumbers",false)
call TriggerRegisterPlayerChatEvent(udg_trigger155,Player(1),"-playernumbers",false)
call TriggerRegisterPlayerChatEvent(udg_trigger155,Player(2),"-playernumbers",false)
call TriggerRegisterPlayerChatEvent(udg_trigger155,Player(3),"-playernumbers",false)
call TriggerRegisterPlayerChatEvent(udg_trigger155,Player(4),"-playernumbers",false)
call TriggerRegisterPlayerChatEvent(udg_trigger155,Player(5),"-playernumbers",false)
call TriggerRegisterPlayerChatEvent(udg_trigger155,Player(6),"-playernumbers",false)
call TriggerRegisterPlayerChatEvent(udg_trigger155,Player(7),"-playernumbers",false)
call TriggerRegisterPlayerChatEvent(udg_trigger155,Player(8),"-playernumbers",false)
call TriggerRegisterPlayerChatEvent(udg_trigger155,Player(9),"-playernumbers",false)
call TriggerRegisterPlayerChatEvent(udg_trigger155,Player(10),"-playernumbers",false)
call TriggerRegisterPlayerChatEvent(udg_trigger155,Player(11),"-playernumbers",false)
call TriggerAddAction(udg_trigger155,function iZ)
call TriggerRegisterPlayerEventLeave(udg_trigger156,Player(0))
call TriggerRegisterPlayerEventLeave(udg_trigger156,Player(1))
call TriggerRegisterPlayerEventLeave(udg_trigger156,Player(2))
call TriggerRegisterPlayerEventLeave(udg_trigger156,Player(3))
call TriggerRegisterPlayerEventLeave(udg_trigger156,Player(4))
call TriggerRegisterPlayerEventLeave(udg_trigger156,Player(5))
call TriggerRegisterPlayerEventLeave(udg_trigger156,Player(6))
call TriggerRegisterPlayerEventLeave(udg_trigger156,Player(7))
call TriggerRegisterPlayerEventLeave(udg_trigger156,Player(8))
call TriggerRegisterPlayerEventLeave(udg_trigger156,Player(9))
call TriggerAddAction(udg_trigger156,function i7)
call TriggerRegisterTimerEventPeriodic(udg_trigger157,60.)
call TriggerAddAction(udg_trigger157,function IA)
call TriggerAddAction(udg_trigger158,function Id)
call TriggerRegisterTimerEventSingle(udg_trigger159,85.)
call TriggerAddAction(udg_trigger159,function ID)
call TriggerRegisterTimerEventPeriodic(udg_trigger160,10.)
call TriggerAddAction(udg_trigger160,function Ie)
call DisableTrigger(udg_trigger161)
call TriggerRegisterTimerEventPeriodic(udg_trigger161,10.)
call TriggerAddAction(udg_trigger161,function IF)
call TriggerAddAction(udg_trigger162,function IH)
call TriggerAddAction(udg_trigger163,function IQ)
call DisableTrigger(udg_trigger164)
call TriggerRegisterTimerEventPeriodic(udg_trigger164,5.)
call TriggerAddAction(udg_trigger164,function Iw)
call DisableTrigger(udg_trigger165)
call TriggerRegisterTimerEventPeriodic(udg_trigger165,3.)
call TriggerAddAction(udg_trigger165,function IY)
call DisableTrigger(udg_trigger166)
call C8(udg_trigger166,GetWorldBounds())
call TriggerAddCondition(udg_trigger166,Condition(function IZ))
call TriggerAddAction(udg_trigger166,function I0)
call TriggerRegisterPlayerChatEvent(udg_trigger167,Player(10),"-",false)
call TriggerRegisterPlayerChatEvent(udg_trigger167,Player(11),"-",false)
call TriggerAddAction(udg_trigger167,function I4)
call TriggerRegisterPlayerChatEvent(udg_trigger168,Player(0),"-",false)
call TriggerRegisterPlayerChatEvent(udg_trigger168,Player(1),"-",false)
call TriggerRegisterPlayerChatEvent(udg_trigger168,Player(2),"-",false)
call TriggerRegisterPlayerChatEvent(udg_trigger168,Player(3),"-",false)
call TriggerRegisterPlayerChatEvent(udg_trigger168,Player(4),"-",false)
call TriggerRegisterPlayerChatEvent(udg_trigger168,Player(5),"-",false)
call TriggerRegisterPlayerChatEvent(udg_trigger168,Player(6),"-",false)
call TriggerRegisterPlayerChatEvent(udg_trigger168,Player(7),"-",false)
call TriggerRegisterPlayerChatEvent(udg_trigger168,Player(8),"-",false)
call TriggerRegisterPlayerChatEvent(udg_trigger168,Player(9),"-",false)
call TriggerAddAction(udg_trigger168,function I8)
call C8(udg_trigger169,GetWorldBounds())
call TriggerAddAction(udg_trigger169,function ja)
call TriggerRegisterTimerEventPeriodic(udg_trigger170,60.)
call TriggerAddAction(udg_trigger170,function jB)
call TriggerAddAction(udg_trigger171,function jd)
call TriggerRegisterAnyUnitEventBJ(udg_trigger172,EVENT_PLAYER_UNIT_SPELL_CAST)
call TriggerAddCondition(udg_trigger172,Condition(function jD))
call TriggerAddAction(udg_trigger172,function je)
call TriggerRegisterAnyUnitEventBJ(udg_trigger173,EVENT_PLAYER_UNIT_SPELL_CAST)
call TriggerAddAction(udg_trigger173,function jF)
call TriggerRegisterAnyUnitEventBJ(udg_trigger174,EVENT_PLAYER_UNIT_TRAIN_START)
call TriggerAddAction(udg_trigger174,function jh)
call DisableTrigger(udg_trigger175)
call TriggerRegisterTimerEventPeriodic(udg_trigger175,15.)
call TriggerAddAction(udg_trigger175,function jI)
call DisableTrigger(udg_trigger176)
call TriggerAddAction(udg_trigger176,function jk)
call TriggerRegisterAnyUnitEventBJ(udg_trigger177,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger177,Condition(function jL))
call TriggerAddAction(udg_trigger177,function jm)
call TriggerRegisterAnyUnitEventBJ(udg_trigger178,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger178,Condition(function jN))
call TriggerAddAction(udg_trigger178,function jo)
call TriggerRegisterAnyUnitEventBJ(udg_trigger179,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger179,Condition(function jO))
call TriggerAddAction(udg_trigger179,function jP)
call TriggerRegisterAnyUnitEventBJ(udg_trigger180,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger180,Condition(function jq))
call TriggerAddAction(udg_trigger180,function jr)
call TriggerRegisterAnyUnitEventBJ(udg_trigger181,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger181,Condition(function jR))
call TriggerAddAction(udg_trigger181,function js)
call TriggerRegisterAnyUnitEventBJ(udg_trigger182,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger182,Condition(function jS))
call TriggerAddAction(udg_trigger182,function jT)
call TriggerRegisterAnyUnitEventBJ(udg_trigger183,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger183,Condition(function ju))
call TriggerAddAction(udg_trigger183,function jU)
call TriggerRegisterAnyUnitEventBJ(udg_trigger184,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger184,Condition(function jv))
call TriggerAddAction(udg_trigger184,function jw)
call TriggerRegisterAnyUnitEventBJ(udg_trigger185,EVENT_PLAYER_UNIT_SPELL_CAST)
call TriggerAddCondition(udg_trigger185,Condition(function jW))
call TriggerAddAction(udg_trigger185,function jY)
call TriggerRegisterAnyUnitEventBJ(udg_trigger186,EVENT_PLAYER_UNIT_SPELL_CAST)
call TriggerAddCondition(udg_trigger186,Condition(function jz))
call TriggerAddAction(udg_trigger186,function j5)
call C8(udg_trigger187,GetWorldBounds())
call TriggerAddCondition(udg_trigger187,Condition(function j7))
call TriggerAddAction(udg_trigger187,function j8)
call TriggerRegisterAnyUnitEventBJ(udg_trigger188,EVENT_PLAYER_HERO_SKILL)
call TriggerAddCondition(udg_trigger188,Condition(function j9))
call TriggerAddAction(udg_trigger188,function JA)
call TriggerRegisterTimerEventPeriodic(udg_trigger189,60.)
call TriggerAddAction(udg_trigger189,function JC)
call TriggerRegisterAnyUnitEventBJ(udg_trigger190,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger190,Condition(function Jd))
call TriggerAddAction(udg_trigger190,function JE)
call TriggerRegisterAnyUnitEventBJ(udg_trigger191,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger191,Condition(function Jf))
call TriggerAddAction(udg_trigger191,function Jg)
call TriggerRegisterAnyUnitEventBJ(udg_trigger192,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger192,Condition(function JH))
call TriggerAddAction(udg_trigger192,function Jk)
call TriggerRegisterAnyUnitEventBJ(udg_trigger193,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger193,Condition(function JK))
call TriggerAddAction(udg_trigger193,function JL)
call TriggerRegisterAnyUnitEventBJ(udg_trigger194,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger194,Condition(function Jm))
call TriggerAddAction(udg_trigger194,function Jo)
call TriggerRegisterAnyUnitEventBJ(udg_trigger195,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger195,Condition(function JO))
call TriggerAddAction(udg_trigger195,function Jp)
call C8(udg_trigger196,GetWorldBounds())
call TriggerAddCondition(udg_trigger196,Condition(function JP))
call TriggerAddAction(udg_trigger196,function Jq)
call TriggerRegisterAnyUnitEventBJ(udg_trigger197,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger197,Condition(function Jr))
call TriggerAddAction(udg_trigger197,function JY)
call TriggerRegisterTimerEventPeriodic(udg_trigger198,15.)
call TriggerAddAction(udg_trigger198,function J6)
call TriggerRegisterAnyUnitEventBJ(udg_trigger199,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger199,Condition(function J9))
call TriggerAddAction(udg_trigger199,function kd)
call TriggerAddAction(udg_trigger200,function ke)
call TriggerRegisterTimerEventSingle(udg_trigger201,1.)
call TriggerAddAction(udg_trigger201,function kH)
call TriggerRegisterTimerEventPeriodic(udg_trigger202,30.)
call TriggerAddAction(udg_trigger202,function kK)
call TriggerRegisterTimerEventSingle(udg_trigger203,40.)
call TriggerAddAction(udg_trigger203,function kl)
call TriggerRegisterDialogEvent(udg_trigger204,udg_dialogs03[1])
call TriggerAddAction(udg_trigger204,function km)
call TriggerRegisterDialogEvent(udg_trigger205,udg_dialogs03[2])
call TriggerAddAction(udg_trigger205,function kn)
call TriggerRegisterDialogEvent(udg_trigger206,udg_dialogs03[3])
call TriggerAddAction(udg_trigger206,function ko)
call TriggerRegisterDialogEvent(udg_trigger207,udg_dialogs03[4])
call TriggerAddAction(udg_trigger207,function kp)
call TriggerRegisterDialogEvent(udg_trigger208,udg_dialogs03[5])
call TriggerAddAction(udg_trigger208,function kQ)
call TriggerAddAction(udg_trigger209,function kr)
call TriggerRegisterAnyUnitEventBJ(udg_trigger210,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddAction(udg_trigger210,function kU)
call TriggerRegisterAnyUnitEventBJ(udg_trigger211,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger211,Condition(function kv))
call TriggerAddAction(udg_trigger211,function kW)
call TriggerRegisterAnyUnitEventBJ(udg_trigger212,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger212,Condition(function kx))
call TriggerAddAction(udg_trigger212,function kY)
call TriggerRegisterAnyUnitEventBJ(udg_trigger213,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger213,Condition(function kz))
call TriggerAddAction(udg_trigger213,function k1)
call TriggerRegisterAnyUnitEventBJ(udg_trigger214,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger214,Condition(function k2))
call TriggerAddAction(udg_trigger214,function k5)
call TriggerRegisterAnyUnitEventBJ(udg_trigger215,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger215,Condition(function k6))
call TriggerAddAction(udg_trigger215,function k8)
call TriggerRegisterAnyUnitEventBJ(udg_trigger216,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger216,Condition(function k9))
call TriggerAddAction(udg_trigger216,function KA)
call TriggerRegisterAnyUnitEventBJ(udg_trigger217,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger217,Condition(function Kb))
call TriggerAddAction(udg_trigger217,function Kc)
call TriggerRegisterAnyUnitEventBJ(udg_trigger218,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger218,Condition(function KC))
call TriggerAddAction(udg_trigger218,function KD)
call TriggerRegisterAnyUnitEventBJ(udg_trigger219,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger219,Condition(function Ke))
call TriggerAddAction(udg_trigger219,function KF)
call TriggerRegisterAnyUnitEventBJ(udg_trigger220,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger220,Condition(function Kg))
call TriggerAddAction(udg_trigger220,function Kh)
call TriggerRegisterAnyUnitEventBJ(udg_trigger221,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger221,Condition(function KH))
call TriggerAddAction(udg_trigger221,function KI)
call TriggerRegisterAnyUnitEventBJ(udg_trigger222,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger222,Condition(function Kj))
call TriggerAddAction(udg_trigger222,function KK)
call TriggerRegisterAnyUnitEventBJ(udg_trigger223,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger223,Condition(function Km))
call TriggerAddAction(udg_trigger223,function KO)
call TriggerRegisterAnyUnitEventBJ(udg_trigger224,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger224,Condition(function KP))
call TriggerAddAction(udg_trigger224,function Kq)
call TriggerRegisterAnyUnitEventBJ(udg_trigger225,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger225,Condition(function Kr))
call TriggerAddAction(udg_trigger225,function KT)
call TriggerRegisterAnyUnitEventBJ(udg_trigger226,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger226,Condition(function KU))
call TriggerAddAction(udg_trigger226,function KV)
call TriggerRegisterAnyUnitEventBJ(udg_trigger227,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger227,Condition(function KW))
call TriggerAddAction(udg_trigger227,function Ky)
call TriggerRegisterAnyUnitEventBJ(udg_trigger228,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger228,Condition(function KY))
call TriggerAddAction(udg_trigger228,function KZ)
call TriggerRegisterAnyUnitEventBJ(udg_trigger229,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger229,Condition(function K0))
call TriggerAddAction(udg_trigger229,function K2)
call TriggerRegisterAnyUnitEventBJ(udg_trigger230,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger230,Condition(function K4))
call TriggerAddAction(udg_trigger230,function K6)
call TriggerRegisterAnyUnitEventBJ(udg_trigger231,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(udg_trigger231,Condition(function K8))
call TriggerAddAction(udg_trigger231,function la)
call TriggerRegisterAnyUnitEventBJ(udg_trigger232,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger232,Condition(function lA))
call TriggerAddAction(udg_trigger232,function lc)
call TriggerRegisterAnyUnitEventBJ(udg_trigger233,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger233,Condition(function lC))
call TriggerAddAction(udg_trigger233,function lD)
call DisableTrigger(udg_trigger234)
call TriggerRegisterTimerEventPeriodic(udg_trigger234,10.)
call TriggerAddAction(udg_trigger234,function li)
call TriggerRegisterAnyUnitEventBJ(udg_trigger235,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger235,Condition(function lj))
call TriggerAddAction(udg_trigger235,function lk)
call TriggerRegisterAnyUnitEventBJ(udg_trigger236,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger236,Condition(function lK))
call TriggerAddAction(udg_trigger236,function lL)
call TriggerRegisterAnyUnitEventBJ(udg_trigger237,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger237,Condition(function lm))
call TriggerAddAction(udg_trigger237,function ln)
call DisableTrigger(udg_trigger238)
call TriggerRegisterTimerEventPeriodic(udg_trigger238,10.)
call TriggerAddAction(udg_trigger238,function lR)
call TriggerRegisterTimerEventPeriodic(udg_trigger239,45.)
call TriggerAddAction(udg_trigger239,function ls)
call DisableTrigger(udg_trigger240)
call TriggerRegisterTimerEventPeriodic(udg_trigger240,45.)
call TriggerAddAction(udg_trigger240,function lS)
call TriggerRegisterTimerEventPeriodic(udg_trigger241,60.)
call TriggerAddAction(udg_trigger241,function lU)
call C8(udg_trigger242,GetWorldBounds())
call TriggerAddCondition(udg_trigger242,Condition(function lv))
call TriggerAddAction(udg_trigger242,function lV)
call TriggerRegisterAnyUnitEventBJ(udg_trigger243,EVENT_PLAYER_UNIT_CONSTRUCT_START)
call TriggerAddCondition(udg_trigger243,Condition(function lw))
call TriggerAddAction(udg_trigger243,function lx)
call TriggerRegisterAnyUnitEventBJ(udg_trigger244,EVENT_PLAYER_UNIT_CONSTRUCT_START)
call TriggerAddCondition(udg_trigger244,Condition(function lX))
call TriggerAddAction(udg_trigger244,function lz)
call TriggerRegisterAnyUnitEventBJ(udg_trigger245,EVENT_PLAYER_UNIT_CONSTRUCT_START)
call TriggerAddCondition(udg_trigger245,Condition(function lZ))
call TriggerAddAction(udg_trigger245,function l2)
call TriggerRegisterAnyUnitEventBJ(udg_trigger246,EVENT_PLAYER_UNIT_CONSTRUCT_START)
call TriggerAddCondition(udg_trigger246,Condition(function l3))
call TriggerAddAction(udg_trigger246,function l6)
call TriggerRegisterAnyUnitEventBJ(udg_trigger247,EVENT_PLAYER_UNIT_CONSTRUCT_START)
call TriggerAddCondition(udg_trigger247,Condition(function l7))
call TriggerAddAction(udg_trigger247,function La)
call TriggerRegisterAnyUnitEventBJ(udg_trigger248,EVENT_PLAYER_UNIT_CONSTRUCT_START)
call TriggerAddCondition(udg_trigger248,Condition(function LA))
call TriggerAddAction(udg_trigger248,function Lc)
call TriggerRegisterAnyUnitEventBJ(udg_trigger249,EVENT_PLAYER_UNIT_CONSTRUCT_START)
call TriggerAddCondition(udg_trigger249,Condition(function LC))
call TriggerAddAction(udg_trigger249,function Le)
call TriggerRegisterAnyUnitEventBJ(udg_trigger250,EVENT_PLAYER_UNIT_CONSTRUCT_START)
call TriggerAddCondition(udg_trigger250,Condition(function LE))
call TriggerAddAction(udg_trigger250,function Lg)
call TriggerRegisterAnyUnitEventBJ(udg_trigger251,EVENT_PLAYER_UNIT_CONSTRUCT_START)
call TriggerAddCondition(udg_trigger251,Condition(function LG))
call TriggerAddAction(udg_trigger251,function Li)
call TriggerRegisterAnyUnitEventBJ(udg_trigger252,EVENT_PLAYER_UNIT_CONSTRUCT_START)
call TriggerAddCondition(udg_trigger252,Condition(function LI))
call TriggerAddAction(udg_trigger252,function Lk)
call TriggerRegisterAnyUnitEventBJ(udg_trigger253,EVENT_PLAYER_UNIT_CONSTRUCT_FINISH)
call TriggerAddCondition(udg_trigger253,Condition(function LK))
call TriggerAddAction(udg_trigger253,function LL)
call TriggerRegisterAnyUnitEventBJ(udg_trigger254,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger254,Condition(function LM))
call TriggerAddAction(udg_trigger254,function LN)
call C8(udg_trigger255,GetWorldBounds())
call TriggerAddAction(udg_trigger255,function Lp)
call C8(udg_trigger256,GetWorldBounds())
call TriggerAddAction(udg_trigger256,function Lq)
call DisableTrigger(udg_trigger257)
call TriggerRegisterTimerEventPeriodic(udg_trigger257,3.)
call TriggerAddAction(udg_trigger257,function Ls)
call TriggerRegisterPlayerStateEvent(udg_trigger258,Player(0),PLAYER_STATE_RESOURCE_LUMBER,GREATER_THAN_OR_EQUAL,800000.)
call TriggerRegisterPlayerStateEvent(udg_trigger258,Player(1),PLAYER_STATE_RESOURCE_LUMBER,GREATER_THAN_OR_EQUAL,800000.)
call TriggerRegisterPlayerStateEvent(udg_trigger258,Player(2),PLAYER_STATE_RESOURCE_LUMBER,GREATER_THAN_OR_EQUAL,800000.)
call TriggerRegisterPlayerStateEvent(udg_trigger258,Player(3),PLAYER_STATE_RESOURCE_LUMBER,GREATER_THAN_OR_EQUAL,800000.)
call TriggerRegisterPlayerStateEvent(udg_trigger258,Player(4),PLAYER_STATE_RESOURCE_LUMBER,GREATER_THAN_OR_EQUAL,800000.)
call TriggerRegisterPlayerStateEvent(udg_trigger258,Player(5),PLAYER_STATE_RESOURCE_LUMBER,GREATER_THAN_OR_EQUAL,800000.)
call TriggerRegisterPlayerStateEvent(udg_trigger258,Player(6),PLAYER_STATE_RESOURCE_LUMBER,GREATER_THAN_OR_EQUAL,800000.)
call TriggerRegisterPlayerStateEvent(udg_trigger258,Player(7),PLAYER_STATE_RESOURCE_LUMBER,GREATER_THAN_OR_EQUAL,800000.)
call TriggerRegisterPlayerStateEvent(udg_trigger258,Player(8),PLAYER_STATE_RESOURCE_LUMBER,GREATER_THAN_OR_EQUAL,800000.)
call TriggerRegisterPlayerStateEvent(udg_trigger258,Player(9),PLAYER_STATE_RESOURCE_LUMBER,GREATER_THAN_OR_EQUAL,800000.)
call TriggerAddAction(udg_trigger258,function LT)
call TriggerRegisterPlayerStateEvent(udg_trigger259,Player(0),PLAYER_STATE_RESOURCE_LUMBER,LESS_THAN,300000.)
call TriggerRegisterPlayerStateEvent(udg_trigger259,Player(1),PLAYER_STATE_RESOURCE_LUMBER,LESS_THAN,300000.)
call TriggerRegisterPlayerStateEvent(udg_trigger259,Player(2),PLAYER_STATE_RESOURCE_LUMBER,LESS_THAN,300000.)
call TriggerRegisterPlayerStateEvent(udg_trigger259,Player(3),PLAYER_STATE_RESOURCE_LUMBER,LESS_THAN,300000.)
call TriggerRegisterPlayerStateEvent(udg_trigger259,Player(4),PLAYER_STATE_RESOURCE_LUMBER,LESS_THAN,300000.)
call TriggerRegisterPlayerStateEvent(udg_trigger259,Player(5),PLAYER_STATE_RESOURCE_LUMBER,LESS_THAN,300000.)
call TriggerRegisterPlayerStateEvent(udg_trigger259,Player(6),PLAYER_STATE_RESOURCE_LUMBER,LESS_THAN,300000.)
call TriggerRegisterPlayerStateEvent(udg_trigger259,Player(7),PLAYER_STATE_RESOURCE_LUMBER,LESS_THAN,300000.)
call TriggerRegisterPlayerStateEvent(udg_trigger259,Player(8),PLAYER_STATE_RESOURCE_LUMBER,LESS_THAN,300000.)
call TriggerRegisterPlayerStateEvent(udg_trigger259,Player(9),PLAYER_STATE_RESOURCE_LUMBER,LESS_THAN,300000.)
call TriggerAddAction(udg_trigger259,function Lv)
call TriggerRegisterPlayerChatEvent(udg_trigger260,Player(0),"supertest",true)
call TriggerAddCondition(udg_trigger260,Condition(function LW))
call TriggerAddAction(udg_trigger260,function Lx)
call TriggerRegisterTimerEventPeriodic(udg_trigger261,60.)
call TriggerAddAction(udg_trigger261,function Ly)
call TriggerRegisterTimerEventPeriodic(udg_trigger262,60.)
call TriggerAddAction(udg_trigger262,function L9)
call TriggerRegisterTimerEventPeriodic(udg_trigger263,60.)
call TriggerAddAction(udg_trigger263,function mc)
call TriggerRegisterTimerEventPeriodic(udg_trigger264,1500.)
call TriggerAddAction(udg_trigger264,function md)
call TriggerRegisterAnyUnitEventBJ(udg_trigger265,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger265,Condition(function mD))
call TriggerAddAction(udg_trigger265,function mf)
call TriggerRegisterAnyUnitEventBJ(udg_trigger266,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerAddCondition(udg_trigger266,Condition(function mF))
call TriggerAddAction(udg_trigger266,function mG)
call TriggerRegisterAnyUnitEventBJ(udg_trigger267,EVENT_PLAYER_UNIT_RESEARCH_FINISH)
call TriggerAddCondition(udg_trigger267,Condition(function mH))
call TriggerAddAction(udg_trigger267,function mi)
call TriggerRegisterAnyUnitEventBJ(udg_trigger268,EVENT_PLAYER_HERO_LEVEL)
call TriggerRegisterAnyUnitEventBJ(udg_trigger268,EVENT_PLAYER_UNIT_PICKUP_ITEM)
call TriggerAddCondition(udg_trigger268,Condition(function mI))
call TriggerAddAction(udg_trigger268,function mJ)
call TriggerRegisterPlayerChatEvent(udg_trigger269,Player(0),"-move",true)
call TriggerRegisterPlayerChatEvent(udg_trigger269,Player(10),"-move",true)
call TriggerAddCondition(udg_trigger269,Condition(function ml))
call TriggerAddAction(udg_trigger269,function mm)
call TriggerRegisterPlayerChatEvent(udg_trigger270,Player(0),"-rmove",true)
call TriggerRegisterPlayerChatEvent(udg_trigger270,Player(10),"-rmove",true)
call TriggerAddCondition(udg_trigger270,Condition(function mN))
call TriggerAddAction(udg_trigger270,function mO)
call TriggerRegisterPlayerChatEvent(udg_trigger271,Player(0),"-test",true)
call TriggerRegisterPlayerChatEvent(udg_trigger271,Player(10),"-test",true)
call TriggerAddCondition(udg_trigger271,Condition(function mq))
call TriggerAddAction(udg_trigger271,function mQ)
call TriggerRegisterPlayerChatEvent(udg_trigger272,Player(0),"-test1",true)
call TriggerRegisterPlayerChatEvent(udg_trigger272,Player(10),"-test1",true)
call TriggerAddCondition(udg_trigger272,Condition(function ms))
call TriggerAddAction(udg_trigger272,function mS)
call TriggerRegisterPlayerChatEvent(udg_trigger273,Player(0),"-test2",true)
call TriggerRegisterPlayerChatEvent(udg_trigger273,Player(10),"-test2",true)
call TriggerAddCondition(udg_trigger273,Condition(function mu))
call TriggerAddAction(udg_trigger273,function mV)
call TriggerRegisterPlayerChatEvent(udg_trigger274,Player(0),"-test3",true)
call TriggerRegisterPlayerChatEvent(udg_trigger274,Player(10),"-test3",true)
call TriggerAddCondition(udg_trigger274,Condition(function mx))
call TriggerAddAction(udg_trigger274,function mX)
call TriggerRegisterPlayerChatEvent(udg_trigger275,Player(0),"-test4",true)
call TriggerRegisterPlayerChatEvent(udg_trigger275,Player(10),"-test4",true)
call TriggerAddCondition(udg_trigger275,Condition(function mz))
call TriggerAddAction(udg_trigger275,function mZ)
call TriggerRegisterPlayerChatEvent(udg_trigger276,Player(0),"-test5",true)
call TriggerRegisterPlayerChatEvent(udg_trigger276,Player(10),"-test5",true)
call TriggerAddCondition(udg_trigger276,Condition(function m2))
call TriggerAddAction(udg_trigger276,function m4)
call TriggerRegisterPlayerChatEvent(udg_trigger277,Player(0),"-test6",true)
call TriggerRegisterPlayerChatEvent(udg_trigger277,Player(10),"-test6",true)
call TriggerAddCondition(udg_trigger277,Condition(function m7))
call TriggerAddAction(udg_trigger277,function m9)
call TriggerRegisterPlayerChatEvent(udg_trigger278,Player(0),"-test7",true)
call TriggerRegisterPlayerChatEvent(udg_trigger278,Player(10),"-test7",true)
call TriggerAddCondition(udg_trigger278,Condition(function Mb))
call TriggerAddAction(udg_trigger278,function Mc)
call TriggerRegisterAnyUnitEventBJ(udg_trigger279,EVENT_PLAYER_UNIT_DEATH)
call TriggerAddCondition(udg_trigger279,Condition(function Md))
call TriggerAddAction(udg_trigger279,function MD)
call ConditionalTriggerExecute(udg_trigger01)
call ConditionalTriggerExecute(udg_trigger07)
call ConditionalTriggerExecute(udg_trigger14)
call ConditionalTriggerExecute(udg_trigger15)
call ConditionalTriggerExecute(udg_trigger16)
call ConditionalTriggerExecute(udg_trigger17)
call ConditionalTriggerExecute(udg_trigger20)
call ConditionalTriggerExecute(udg_trigger32)
call ConditionalTriggerExecute(udg_trigger33)
call ConditionalTriggerExecute(udg_trigger35)
call ConditionalTriggerExecute(udg_trigger54)
call ConditionalTriggerExecute(udg_trigger62)
call ConditionalTriggerExecute(udg_trigger86)
call ConditionalTriggerExecute(udg_trigger109)
call ConditionalTriggerExecute(udg_trigger129)
call ConditionalTriggerExecute(udg_trigger130)
call ConditionalTriggerExecute(udg_trigger150)
call ConditionalTriggerExecute(udg_trigger158)
call ConditionalTriggerExecute(udg_trigger200)
endfunction
function InitTrig_init takes nothing returns nothing
set udg_camerasetup01 = CreateCameraSetup()
set udg_camerasetup02 = CreateCameraSetup()
set udg_trigger01 = CreateTrigger()
set udg_trigger02 = CreateTrigger()
set udg_trigger03 = CreateTrigger()
set udg_trigger04 = CreateTrigger()
set udg_trigger05 = CreateTrigger()
set udg_trigger06 = CreateTrigger()
set udg_trigger07 = CreateTrigger()
set udg_trigger08 = CreateTrigger()
set udg_trigger09 = CreateTrigger()
set udg_trigger10 = CreateTrigger()
set udg_trigger11 = CreateTrigger()
set udg_trigger12 = CreateTrigger()
set udg_trigger13 = CreateTrigger()
set udg_trigger14 = CreateTrigger()
set udg_trigger15 = CreateTrigger()
set udg_trigger16 = CreateTrigger()
set udg_trigger17 = CreateTrigger()
set udg_trigger18 = CreateTrigger()
set udg_trigger19 = CreateTrigger()
set udg_trigger20 = CreateTrigger()
set udg_trigger21 = CreateTrigger()
set udg_trigger22 = CreateTrigger()
set udg_trigger23 = CreateTrigger()
set udg_trigger24 = CreateTrigger()
set udg_trigger25 = CreateTrigger()
set udg_trigger26 = CreateTrigger()
set udg_trigger27 = CreateTrigger()
set udg_trigger28 = CreateTrigger()
set udg_trigger29 = CreateTrigger()
set udg_trigger30 = CreateTrigger()
set udg_trigger31 = CreateTrigger()
set udg_trigger32 = CreateTrigger()
set udg_trigger33 = CreateTrigger()
set udg_trigger34 = CreateTrigger()
set udg_trigger35 = CreateTrigger()
set udg_trigger36 = CreateTrigger()
set udg_trigger37 = CreateTrigger()
set udg_trigger38 = CreateTrigger()
set udg_trigger39 = CreateTrigger()
set udg_trigger40 = CreateTrigger()
set udg_trigger41 = CreateTrigger()
set udg_trigger42 = CreateTrigger()
set udg_trigger43 = CreateTrigger()
set udg_trigger44 = CreateTrigger()
set udg_trigger45 = CreateTrigger()
set udg_trigger46 = CreateTrigger()
set udg_trigger47 = CreateTrigger()
set udg_trigger48 = CreateTrigger()
set udg_trigger49 = CreateTrigger()
set udg_trigger50 = CreateTrigger()
set udg_trigger51 = CreateTrigger()
set udg_trigger52 = CreateTrigger()
set udg_trigger53 = CreateTrigger()
set udg_trigger54 = CreateTrigger()
set udg_trigger55 = CreateTrigger()
set udg_trigger56 = CreateTrigger()
set udg_trigger57 = CreateTrigger()
set udg_trigger58 = CreateTrigger()
set udg_trigger59 = CreateTrigger()
set udg_trigger60 = CreateTrigger()
set udg_trigger61 = CreateTrigger()
set udg_trigger62 = CreateTrigger()
set udg_trigger63 = CreateTrigger()
set udg_trigger64 = CreateTrigger()
set udg_trigger65 = CreateTrigger()
set udg_trigger66 = CreateTrigger()
set udg_trigger67 = CreateTrigger()
set udg_trigger68 = CreateTrigger()
set udg_trigger69 = CreateTrigger()
set udg_trigger70 = CreateTrigger()
set udg_trigger71 = CreateTrigger()
set udg_trigger72 = CreateTrigger()
set udg_trigger73 = CreateTrigger()
set udg_trigger74 = CreateTrigger()
set udg_trigger75 = CreateTrigger()
set udg_trigger76 = CreateTrigger()
set udg_trigger77 = CreateTrigger()
set udg_trigger78 = CreateTrigger()
set udg_trigger79 = CreateTrigger()
set udg_trigger80 = CreateTrigger()
set udg_trigger81 = CreateTrigger()
set udg_trigger82 = CreateTrigger()
set udg_trigger83 = CreateTrigger()
set udg_trigger84 = CreateTrigger()
set udg_trigger85 = CreateTrigger()
set udg_trigger86 = CreateTrigger()
set udg_trigger87 = CreateTrigger()
set udg_trigger88 = CreateTrigger()
set udg_trigger89 = CreateTrigger()
set udg_trigger90 = CreateTrigger()
set udg_trigger91 = CreateTrigger()
set udg_trigger92 = CreateTrigger()
set udg_trigger93 = CreateTrigger()
set udg_trigger94 = CreateTrigger()
set udg_trigger95 = CreateTrigger()
set udg_trigger96 = CreateTrigger()
set udg_trigger97 = CreateTrigger()
set udg_trigger98 = CreateTrigger()
set udg_trigger99 = CreateTrigger()
set udg_trigger100 = CreateTrigger()
set udg_trigger101 = CreateTrigger()
set udg_trigger102 = CreateTrigger()
set udg_trigger103 = CreateTrigger()
set udg_trigger104 = CreateTrigger()
set udg_trigger105 = CreateTrigger()
set udg_trigger106 = CreateTrigger()
set udg_trigger107 = CreateTrigger()
set udg_trigger108 = CreateTrigger()
set udg_trigger109 = CreateTrigger()
set udg_trigger110 = CreateTrigger()
set udg_trigger111 = CreateTrigger()
set udg_trigger112 = CreateTrigger()
set udg_trigger113 = CreateTrigger()
set udg_trigger114 = CreateTrigger()
set udg_trigger115 = CreateTrigger()
set udg_trigger116 = CreateTrigger()
set udg_trigger117 = CreateTrigger()
set udg_trigger118 = CreateTrigger()
set udg_trigger119 = CreateTrigger()
set udg_trigger120 = CreateTrigger()
set udg_trigger121 = CreateTrigger()
set udg_trigger122 = CreateTrigger()
set udg_trigger123 = CreateTrigger()
set udg_trigger124 = CreateTrigger()
set udg_trigger125 = CreateTrigger()
set udg_trigger126 = CreateTrigger()
set udg_trigger127 = CreateTrigger()
set udg_trigger128 = CreateTrigger()
set udg_trigger129 = CreateTrigger()
set udg_trigger130 = CreateTrigger()
set udg_trigger131 = CreateTrigger()
set udg_trigger132 = CreateTrigger()
set udg_trigger133 = CreateTrigger()
set udg_trigger134 = CreateTrigger()
set udg_trigger135 = CreateTrigger()
set udg_trigger136 = CreateTrigger()
set udg_trigger137 = CreateTrigger()
set udg_trigger138 = CreateTrigger()
set udg_trigger139 = CreateTrigger()
set udg_trigger140 = CreateTrigger()
set udg_trigger141 = CreateTrigger()
set udg_trigger142 = CreateTrigger()
set udg_trigger143 = CreateTrigger()
set udg_trigger144 = CreateTrigger()
set udg_trigger145 = CreateTrigger()
set udg_trigger146 = CreateTrigger()
set udg_trigger147 = CreateTrigger()
set udg_trigger148 = CreateTrigger()
set udg_trigger149 = CreateTrigger()
set udg_trigger150 = CreateTrigger()
set udg_trigger151 = CreateTrigger()
set udg_trigger152 = CreateTrigger()
set udg_trigger153 = CreateTrigger()
set udg_trigger154 = CreateTrigger()
set udg_trigger155 = CreateTrigger()
set udg_trigger156 = CreateTrigger()
set udg_trigger157 = CreateTrigger()
set udg_trigger158 = CreateTrigger()
set udg_trigger159 = CreateTrigger()
set udg_trigger160 = CreateTrigger()
set udg_trigger161 = CreateTrigger()
set udg_trigger162 = CreateTrigger()
set udg_trigger163 = CreateTrigger()
set udg_trigger164 = CreateTrigger()
set udg_trigger165 = CreateTrigger()
set udg_trigger166 = CreateTrigger()
set udg_trigger167 = CreateTrigger()
set udg_trigger168 = CreateTrigger()
set udg_trigger169 = CreateTrigger()
set udg_trigger170 = CreateTrigger()
set udg_trigger171 = CreateTrigger()
set udg_trigger172 = CreateTrigger()
set udg_trigger173 = CreateTrigger()
set udg_trigger174 = CreateTrigger()
set udg_trigger175 = CreateTrigger()
set udg_trigger176 = CreateTrigger()
set udg_trigger177 = CreateTrigger()
set udg_trigger178 = CreateTrigger()
set udg_trigger179 = CreateTrigger()
set udg_trigger180 = CreateTrigger()
set udg_trigger181 = CreateTrigger()
set udg_trigger182 = CreateTrigger()
set udg_trigger183 = CreateTrigger()
set udg_trigger184 = CreateTrigger()
set udg_trigger185 = CreateTrigger()
set udg_trigger186 = CreateTrigger()
set udg_trigger187 = CreateTrigger()
set udg_trigger188 = CreateTrigger()
set udg_trigger189 = CreateTrigger()
set udg_trigger190 = CreateTrigger()
set udg_trigger191 = CreateTrigger()
set udg_trigger192 = CreateTrigger()
set udg_trigger193 = CreateTrigger()
set udg_trigger194 = CreateTrigger()
set udg_trigger195 = CreateTrigger()
set udg_trigger196 = CreateTrigger()
set udg_trigger197 = CreateTrigger()
set udg_trigger198 = CreateTrigger()
set udg_trigger199 = CreateTrigger()
set udg_trigger200 = CreateTrigger()
set udg_trigger201 = CreateTrigger()
set udg_trigger202 = CreateTrigger()
set udg_trigger203 = CreateTrigger()
set udg_trigger204 = CreateTrigger()
set udg_trigger205 = CreateTrigger()
set udg_trigger206 = CreateTrigger()
set udg_trigger207 = CreateTrigger()
set udg_trigger208 = CreateTrigger()
set udg_trigger209 = CreateTrigger()
set udg_trigger210 = CreateTrigger()
set udg_trigger211 = CreateTrigger()
set udg_trigger212 = CreateTrigger()
set udg_trigger213 = CreateTrigger()
set udg_trigger214 = CreateTrigger()
set udg_trigger215 = CreateTrigger()
set udg_trigger216 = CreateTrigger()
set udg_trigger217 = CreateTrigger()
set udg_trigger218 = CreateTrigger()
set udg_trigger219 = CreateTrigger()
set udg_trigger220 = CreateTrigger()
set udg_trigger221 = CreateTrigger()
set udg_trigger222 = CreateTrigger()
set udg_trigger223 = CreateTrigger()
set udg_trigger224 = CreateTrigger()
set udg_trigger225 = CreateTrigger()
set udg_trigger226 = CreateTrigger()
set udg_trigger227 = CreateTrigger()
set udg_trigger228 = CreateTrigger()
set udg_trigger229 = CreateTrigger()
set udg_trigger230 = CreateTrigger()
set udg_trigger231 = CreateTrigger()
set udg_trigger232 = CreateTrigger()
set udg_trigger233 = CreateTrigger()
set udg_trigger234 = CreateTrigger()
set udg_trigger235 = CreateTrigger()
set udg_trigger236 = CreateTrigger()
set udg_trigger237 = CreateTrigger()
set udg_trigger238 = CreateTrigger()
set udg_trigger239 = CreateTrigger()
set udg_trigger240 = CreateTrigger()
set udg_trigger241 = CreateTrigger()
set udg_trigger242 = CreateTrigger()
set udg_trigger243 = CreateTrigger()
set udg_trigger244 = CreateTrigger()
set udg_trigger245 = CreateTrigger()
set udg_trigger246 = CreateTrigger()
set udg_trigger247 = CreateTrigger()
set udg_trigger248 = CreateTrigger()
set udg_trigger249 = CreateTrigger()
set udg_trigger250 = CreateTrigger()
set udg_trigger251 = CreateTrigger()
set udg_trigger252 = CreateTrigger()
set udg_trigger253 = CreateTrigger()
set udg_trigger254 = CreateTrigger()
set udg_trigger255 = CreateTrigger()
set udg_trigger256 = CreateTrigger()
set udg_trigger257 = CreateTrigger()
set udg_trigger258 = CreateTrigger()
set udg_trigger259 = CreateTrigger()
set udg_trigger260 = CreateTrigger()
set udg_trigger261 = CreateTrigger()
set udg_trigger262 = CreateTrigger()
set udg_trigger263 = CreateTrigger()
set udg_trigger264 = CreateTrigger()
set udg_trigger265 = CreateTrigger()
set udg_trigger266 = CreateTrigger()
set udg_trigger267 = CreateTrigger()
set udg_trigger268 = CreateTrigger()
set udg_trigger269 = CreateTrigger()
set udg_trigger270 = CreateTrigger()
set udg_trigger271 = CreateTrigger()
set udg_trigger272 = CreateTrigger()
set udg_trigger273 = CreateTrigger()
set udg_trigger274 = CreateTrigger()
set udg_trigger275 = CreateTrigger()
set udg_trigger276 = CreateTrigger()
set udg_trigger277 = CreateTrigger()
set udg_trigger278 = CreateTrigger()
set udg_trigger279 = CreateTrigger()
call ExecuteFunc("main2")
endfunction