//TESH.scrollpos=88
//TESH.alwaysfold=0
// ==== Local Handle Vars By: Kattana ====
function H2I takes handle h returns integer
return h
return 0
endfunction
// ===========================
function LocalVars takes nothing returns gamecache
if udg_Cache == null then
call FlushGameCache(InitGameCache("TiO16"))
set udg_Cache = InitGameCache("TiO16")
endif
return udg_Cache
endfunction
function SetHandleHandle takes handle subject, string name, handle value returns nothing
if value==null then
call FlushStoredInteger(LocalVars(),I2S(H2I(subject)),name)
else
call StoreInteger(LocalVars(), I2S(H2I(subject)), name, H2I(value))
endif
endfunction
function SetHandleInt takes handle subject, string name, integer value returns nothing
if value==0 then
call FlushStoredInteger(LocalVars(),I2S(H2I(subject)),name)
else
call StoreInteger(LocalVars(), I2S(H2I(subject)), name, value)
endif
endfunction
function SetHandleBoolean takes handle subject, string name, boolean value returns nothing
if value==false then
call FlushStoredBoolean(LocalVars(),I2S(H2I(subject)),name)
else
call StoreBoolean(LocalVars(), I2S(H2I(subject)), name, value)
endif
endfunction
function SetHandleReal takes handle subject, string name, real value returns nothing
if value==0 then
call FlushStoredReal(LocalVars(), I2S(H2I(subject)), name)
else
call StoreReal(LocalVars(), I2S(H2I(subject)), name, value)
endif
endfunction
function SetHandleString takes handle subject, string name, string value returns nothing
if value==null then
call FlushStoredString(LocalVars(), I2S(H2I(subject)), name)
else
call StoreString(LocalVars(), I2S(H2I(subject)), name, value)
endif
endfunction
function GetHandleHandle takes handle subject, string name returns handle
return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
return null
endfunction
function GetHandleInt takes handle subject, string name returns integer
return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
endfunction
function GetHandleBoolean takes handle subject, string name returns boolean
return GetStoredBoolean(LocalVars(), I2S(H2I(subject)), name)
endfunction
function GetHandleReal takes handle subject, string name returns real
return GetStoredReal(LocalVars(), I2S(H2I(subject)), name)
endfunction
function GetHandleString takes handle subject, string name returns string
return GetStoredString(LocalVars(), I2S(H2I(subject)), name)
endfunction
function GetHandleUnit takes handle subject, string name returns unit
return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
return null
endfunction
function GetHandleLocation takes handle subject, string name returns location
return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
return null
endfunction
function GetHandleTimer takes handle subject, string name returns timer
return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
return null
endfunction
function GetHandleTrigger takes handle subject, string name returns trigger
return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
return null
endfunction
function GetHandleEffect takes handle subject, string name returns effect
return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
return null
endfunction
function GetHandleGroup takes handle subject, string name returns group
return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
return null
endfunction
function GetHandleLightning takes handle subject, string name returns lightning
return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
return null
endfunction
function GetHandleWidget takes handle subject, string name returns widget
return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
return null
endfunction
function GetHandleAction takes handle subject, string name returns triggeraction
return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
return null
endfunction
function GetHandleCondition takes handle subject, string name returns triggercondition
return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
return null
endfunction
function GetHandleRegion takes handle subject, string name returns region
return GetStoredInteger(LocalVars(), I2S(H2I(subject)), name)
return null
endfunction
function FlushHandleLocals takes handle subject returns nothing
call FlushStoredMission(LocalVars(), I2S(H2I(subject)) )
endfunction
// ===========================
function ReturnTrue takes nothing returns boolean
return true
endfunction
function ReturnFalse takes nothing returns boolean
return false
endfunction
function SimError takes player ForPlayer, string msg returns nothing
if udg_SimError==null then
set udg_SimError=CreateSoundFromLabel( "InterfaceError",false,false,false,10,10)
endif
if (GetLocalPlayer() == ForPlayer) then
call ClearTextMessages()
call DisplayTimedTextToPlayer( ForPlayer, 0.52, -1.00, 2.00, "|cffffcc00"+msg+"|r" )
call StartSound( udg_SimError )
endif
endfunction
Name | Type | is_array | initial_value |
Alive | boolean | Yes | |
Bestenliste | leaderboard | No | |
Cache | gamecache | No | |
ColorText | string | Yes | |
Discos | force | No | Force00 |
DOG | group | No | |
DOGinteger | integer | No | |
GameOver | boolean | No | false |
JAoderNEIN | dialog | No | |
Leaderboard | leaderboard | No | |
Losers | force | No | |
NO | button | No | |
Player_Zoom | player | No | |
PlayerInteger | integer | No | |
Players | force | No | |
Points | location | Yes | |
Points_Kopieren | location | Yes | |
rmkNO | integer | No | |
rmkYES | integer | No | |
Round | integer | No | 1 |
Score | integer | Yes | |
SimError | sound | No | |
TimeRestart | integer | No | 15 |
tot | boolean | No | |
YES | button | No |
function Trig_Unbezeichneter_Ausl__ser_001_Conditions takes nothing returns boolean
if ( not ( GetUnitTypeId(GetEnteringUnit()) == 'E000' ) ) then
return false
endif
return true
endfunction
function Trig_Unbezeichneter_Ausl__ser_001_Actions takes nothing returns nothing
call AddSpecialEffectLocBJ( GetRectCenter(gg_rct_Gebiet_031), "Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl" )
call SetUnitPositionLoc( GetEnteringUnit(), GetRectCenter(gg_rct_Gebiet_031) )
call DestroyEffectBJ( GetLastCreatedEffectBJ() )
endfunction
//===========================================================================
function InitTrig_Kill_Ice takes nothing returns nothing
set gg_trg_Kill_Ice = CreateTrigger( )
call TriggerRegisterEnterRectSimple( gg_trg_Kill_Ice, gg_rct_Gebiet_039 )
call TriggerRegisterEnterRectSimple( gg_trg_Kill_Ice, gg_rct_Gebiet_039_Kopieren )
call TriggerRegisterEnterRectSimple( gg_trg_Kill_Ice, gg_rct_Gebiet_039_Kopieren_2 )
call TriggerRegisterEnterRectSimple( gg_trg_Kill_Ice, gg_rct_Gebiet_039_Kopieren_3 )
call TriggerRegisterEnterRectSimple( gg_trg_Kill_Ice, gg_rct_Gebiet_039_Kopieren_4 )
call TriggerRegisterEnterRectSimple( gg_trg_Kill_Ice, gg_rct_Gebiet_039_Kopieren_5 )
call TriggerRegisterEnterRectSimple( gg_trg_Kill_Ice, gg_rct_Gebiet_039_Kopieren_6 )
call TriggerRegisterEnterRectSimple( gg_trg_Kill_Ice, gg_rct_Gebiet_039_Kopieren_7 )
call TriggerRegisterEnterRectSimple( gg_trg_Kill_Ice, gg_rct_Gebiet_039_Kopieren_8 )
call TriggerRegisterEnterRectSimple( gg_trg_Kill_Ice, gg_rct_Gebiet_039_Kopieren_9 )
call TriggerRegisterEnterRectSimple( gg_trg_Kill_Ice, gg_rct_Gebiet_039_Kopieren_10 )
call TriggerRegisterEnterRectSimple( gg_trg_Kill_Ice, gg_rct_Gebiet_039_Kopieren_11 )
call TriggerAddCondition( gg_trg_Kill_Ice, Condition( function Trig_Unbezeichneter_Ausl__ser_001_Conditions ) )
call TriggerAddAction( gg_trg_Kill_Ice, function Trig_Unbezeichneter_Ausl__ser_001_Actions )
endfunction
function Trig_Slow_Actions takes nothing returns nothing
call IssueTargetOrderBJ( gg_unit_n00D_0062, "slow", GroupPickRandomUnit(GetUnitsInRectAll(gg_rct_Wofl_Area_Five)) )
call IssueTargetOrderBJ( gg_unit_n00D_0063, "slow", GroupPickRandomUnit(GetUnitsInRectAll(gg_rct_Wofl_Area_Five)) )
endfunction
//===========================================================================
function InitTrig_Slow takes nothing returns nothing
set gg_trg_Slow = CreateTrigger( )
call TriggerAddAction( gg_trg_Slow, function Trig_Slow_Actions )
endfunction
function Trig_Light_Actions takes nothing returns nothing
call IssuePointOrderLocBJ( gg_unit_n00E_0075, "patrol", GetRectCenter(gg_rct_Gebiet_068) )
call IssuePointOrderLocBJ( gg_unit_n00E_0076, "patrol", GetRectCenter(gg_rct_Gebiet_068_Kopieren) )
call IssuePointOrderLocBJ( gg_unit_n00E_0078, "patrol", GetRectCenter(gg_rct_Gebiet_068_Kopieren_2) )
call IssuePointOrderLocBJ( gg_unit_n00E_0077, "patrol", GetRectCenter(gg_rct_Gebiet_068_Kopieren_2_Kopieren) )
endfunction
//===========================================================================
function InitTrig_Light takes nothing returns nothing
set gg_trg_Light = CreateTrigger( )
call TriggerAddAction( gg_trg_Light, function Trig_Light_Actions )
endfunction
function Trig_Variables_Actions takes nothing returns nothing
set udg_SimError = null
set udg_Cache = udg_Cache
endfunction
//===========================================================================
function InitTrig_Variables takes nothing returns nothing
set gg_trg_Variables = CreateTrigger( )
call TriggerAddAction( gg_trg_Variables, function Trig_Variables_Actions )
endfunction
//TESH.scrollpos=46
//TESH.alwaysfold=0
//***************************************************************************\\
// Spell Name: Ice Field \\
// Spell Author: XieLong \\
// Conforms to the JESP Standard \\
//***************************************************************************\\
//= Needed Object and their ids (Make sure to copy all objects into your map and adjust the rawcodes)
//== Abilities
//=== Ice Field
constant function Ice_Field_SpellId takes nothing returns integer
return 'A003' // The spell's rawcode.
endfunction
//== Units
//=== Effect Dummy
constant function Ice_Field_EffectDummy takes nothing returns integer
return 'h000' // The unit's rawcode.
endfunction
//= End of ObjectIds
//===========================================================================
//= Spell datas and settings
constant function Ice_Field_ChangedTerrainType takes nothing returns integer
return 'Iice'
endfunction
function Ice_Field_AreaOfEffect takes integer lvl returns real
return 500.
endfunction
// Hier sind alle UnitTypes deklariert, die sliden/nicht sliden sollen
function Ice_Field_SlidingUnitTypes takes unit u returns boolean
if IsUnitType(u, UNIT_TYPE_HERO) == false then
return false
elseif IsUnitType(u, UNIT_TYPE_FLYING) == true then
return false
endif
return true
endfunction
constant function Ice_Field_SlideSpeed takes nothing returns real
return 350.
endfunction
constant function Ice_Field_SlideControllable takes nothing returns boolean
return false // true = Die rutschende Einheit kann gegen das Rutschen 'gegenlaufen',
// also auch auf dem Eis stehen bleiben oder den Kurs ändern
endfunction
function Ice_Field_Duration takes integer lvl returns real
return 10.
endfunction
function Ice_Field_MaxDamage takes integer lvl returns real
return 0.
endfunction
function Ice_Field_SlideAnimation takes nothing returns string
return "Abilities\\Weapons\\LichMissile\\LichMissile.mdl"
endfunction
//== Any other data/setting have to be changed within the object-editor
//= End of datas/settings
//===========================================================================
// *** Spell Script ***
function Ice_Field_Condtions takes nothing returns boolean
return GetSpellAbilityId() == Ice_Field_SpellId()
endfunction
function DestroyDestrucables takes nothing returns nothing
call KillDestructable(GetEnumDestructable())
endfunction
function Ice_Field_Slide takes nothing returns nothing
local timer t = GetExpiredTimer()
local unit u = GetHandleUnit(t, "u")
local unit c = GetHandleUnit(t, "c")
local integer lvl = GetUnitAbilityLevel(c, Ice_Field_SpellId())
local real a = GetHandleReal(t, "a")
local real x = GetUnitX(u)
local real y = GetUnitY(u)
local rect r
if GetTerrainType(x, y) == Ice_Field_ChangedTerrainType() or IsUnitInRegion(GetHandleRegion(t, "reg"), u) then
if IsUnitEnemy(u, GetOwningPlayer(c)) then
call UnitDamageTarget(c, u, (Ice_Field_MaxDamage(lvl)/Ice_Field_AreaOfEffect(lvl)) * 14, false, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_COLD, WEAPON_TYPE_WHOKNOWS)
endif
set r = Rect(x - (Ice_Field_SlideSpeed()/4.), y - (Ice_Field_SlideSpeed()/4.), x + (Ice_Field_SlideSpeed()/4.), y + (Ice_Field_SlideSpeed()/4.))
call EnumDestructablesInRect(r, Condition(function ReturnTrue), function DestroyDestrucables)
call DestroyEffect(AddSpecialEffectTarget(Ice_Field_SlideAnimation(), u, "origin"))
if Ice_Field_SlideControllable() then
call SetUnitX(u, x + (Ice_Field_SlideSpeed()/25.) * Cos(a))
call SetUnitY(u, y + (Ice_Field_SlideSpeed()/25.) * Sin(a))
else
call SetUnitPosition(u, x + (Ice_Field_SlideSpeed()/25.) * Cos(a), y + (Ice_Field_SlideSpeed()/25.) * Sin(a))
endif
call RemoveRect(r)
else
call PauseTimer(t)
call FlushHandleLocals(t)
call DestroyTimer(t)
endif
set r = null
set t = null
set u = null
endfunction
function Ice_Field_Slide_Actions takes nothing returns nothing
local unit u = GetTriggerUnit()
local trigger trig = GetTriggeringTrigger()
local timer t
if Ice_Field_SlidingUnitTypes(u) then
set t = CreateTimer()
call SetHandleReal(t, "a", bj_DEGTORAD * GetUnitFacing(u))
call SetHandleHandle(t, "u", u)
call SetHandleHandle(t, "c", GetHandleUnit(trig, "c"))
call SetHandleHandle(t, "reg", GetHandleRegion(trig, "reg"))
call TimerStart(t, 0.04, true, function Ice_Field_Slide)
endif
set trig = null
set u = null
set t = null
endfunction
function Ice_Field_Actions takes nothing returns nothing
local trigger t = CreateTrigger()
local triggeraction act
local region reg = CreateRegion()
local integer array tt
local location l = GetSpellTargetLoc()
local unit c = GetTriggerUnit()
local integer lvl = GetUnitAbilityLevel(c, Ice_Field_SpellId())
local real x = GetLocationX(l)
local real y = GetLocationY(l)
local integer cells = R2I((Ice_Field_AreaOfEffect(lvl) / 128.) + .5)
local integer a = 0
local integer b = 0
local integer i = 0
local integer temp
local unit u
local real r = ModuloReal(x, 128)
set x = x - r
if r > 64 then
set x = x + 128
endif
set r = ModuloReal(y, 128)
set y = y - r
if r > 64 then
set y = y + 128
endif
set u = CreateUnit(GetOwningPlayer(c), Ice_Field_EffectDummy(), x, y, 0)
set r = Ice_Field_AreaOfEffect(lvl) / 260.
call SetUnitScale(u, r, r, r)
call KillUnit( u )
loop
set temp = ((cells - a - 1) * 128)
set b = 0
loop
if b > 0 then
if temp > 0 then
call RegionAddRect(reg, Rect(x - temp -70, y - (128 * b) -70, x - temp +70, y - (128 * b) +64 ))
set tt[i] = GetTerrainType(x - temp, y - (128 * b))
set i = i + 1
call SetTerrainType(x - temp, y - (128 * b), Ice_Field_ChangedTerrainType(), -1, 1, 0)
endif
call RegionAddRect(reg, Rect(x + temp -70, y - (128 * b) -70, x + temp +70, y - (128 * b) +64 ))
set tt[i] = GetTerrainType(x + temp, y - (128 * b))
set i = i + 1
call SetTerrainType(x + temp, y - (128 * b), Ice_Field_ChangedTerrainType(), -1, 1, 0)
endif
if temp > 0 then
call RegionAddRect(reg, Rect(x - temp -70, y + (128 * b) -70, x - temp +70, y + (128 * b) +64 ))
set tt[i] = GetTerrainType(x - temp, y + (128 * b))
set i = i + 1
call SetTerrainType(x - temp, y + (128 * b), Ice_Field_ChangedTerrainType(), -1, 1, 0)
endif
call RegionAddRect(reg, Rect(x + temp -70, y + (128 * b) -70, x + temp +70, y + (128 * b) +64 ))
set tt[i] = GetTerrainType(x + temp, y + (128 * b))
set i = i + 1
call SetTerrainType(x + temp, y + (128 * b), Ice_Field_ChangedTerrainType(), -1, 1, 0)
exitwhen b == a
set b = b + 1
endloop
set a = a + 1
exitwhen a == cells
endloop
call SetHandleHandle(t, "c", c)
call SetHandleHandle(t, "reg", reg)
call TriggerRegisterEnterRegion(t, reg, Condition(function ReturnTrue))
set act = TriggerAddAction(t, function Ice_Field_Slide_Actions)
call TriggerSleepAction(Ice_Field_Duration(lvl))
set i = 0
set a = 0
loop
set temp = ((cells - a - 1) * 128)
set b = 0
loop
if b > 0 then
if temp > 0 then
call SetTerrainType(x - temp, y - (128 * b), tt[i], -1, 1, 0)
set i = i + 1
endif
call SetTerrainType(x + temp, y - (128 * b), tt[i], -1, 1, 0)
set i = i + 1
endif
if temp > 0 then
call SetTerrainType(x - temp, y + (128 * b), tt[i], -1, 1, 0)
set i = i + 1
endif
call SetTerrainType(x + temp, y + (128 * b), tt[i], -1, 1, 0)
set i = i + 1
exitwhen b == a
set b = b + 1
endloop
set a = a + 1
exitwhen a == cells
endloop
call TriggerRemoveAction(t, act)
call DestroyTrigger(t)
set t = null
call RemoveRegion(reg)
set reg = null
call RemoveLocation(l)
set l = null
set u = null
endfunction
function InitTrig_Ice_Field takes nothing returns nothing
local integer i = 0
set gg_trg_Ice_Field = CreateTrigger()
loop
call TriggerRegisterPlayerUnitEvent(gg_trg_Ice_Field, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, Condition(function ReturnTrue))
set i = i + 1
exitwhen i == 16
endloop
call TriggerAddCondition(gg_trg_Ice_Field, Condition(function Ice_Field_Condtions))
call TriggerAddAction(gg_trg_Ice_Field, function Ice_Field_Actions)
endfunction
function Trig_Zoom_Func002C takes nothing returns boolean
if ( not ( S2I(SubStringBJ(GetEventPlayerChatString(), 7, 9)) >= 20 ) ) then
return false
endif
if ( not ( S2I(SubStringBJ(GetEventPlayerChatString(), 7, 9)) <= 120 ) ) then
return false
endif
return true
endfunction
function Trig_Zoom_Func003C takes nothing returns boolean
if ( not ( SubStringBJ(GetEventPlayerChatString(), 7, 12) == "normal" ) ) then
return false
endif
return true
endfunction
function Trig_Zoom_Actions takes nothing returns nothing
set udg_Player_Zoom = GetTriggerPlayer()
if ( Trig_Zoom_Func002C() ) then
call DisplayTextToForce( GetForceOfPlayer(udg_Player_Zoom), ( "Camera set to " + ( SubStringBJ(GetEventPlayerChatString(), 7, 9) + "." ) ) )
call SetCameraFieldForPlayer( GetTriggerPlayer(), CAMERA_FIELD_FIELD_OF_VIEW, S2R(SubStringBJ(GetEventPlayerChatString(), 7, 9)), 1.00 )
else
endif
if ( Trig_Zoom_Func003C() ) then
call DisplayTextToForce( GetForceOfPlayer(udg_Player_Zoom), "TRIGSTR_094" )
call SetCameraFieldForPlayer( GetTriggerPlayer(), CAMERA_FIELD_FIELD_OF_VIEW, 70.00, 1.00 )
else
endif
endfunction
//===========================================================================
function InitTrig_Zoom takes nothing returns nothing
set gg_trg_Zoom = CreateTrigger( )
call TriggerRegisterPlayerChatEvent( gg_trg_Zoom, Player(0), "-zoom", false )
call TriggerRegisterPlayerChatEvent( gg_trg_Zoom, Player(1), "-zoom", false )
call TriggerRegisterPlayerChatEvent( gg_trg_Zoom, Player(2), "-zoom", false )
call TriggerRegisterPlayerChatEvent( gg_trg_Zoom, Player(3), "-zoom", false )
call TriggerRegisterPlayerChatEvent( gg_trg_Zoom, Player(4), "-zoom", false )
call TriggerRegisterPlayerChatEvent( gg_trg_Zoom, Player(5), "-zoom", false )
call TriggerRegisterPlayerChatEvent( gg_trg_Zoom, Player(6), "-zoom", false )
call TriggerRegisterPlayerChatEvent( gg_trg_Zoom, Player(7), "-zoom", false )
call TriggerRegisterPlayerChatEvent( gg_trg_Zoom, Player(8), "-zoom", false )
call TriggerRegisterPlayerChatEvent( gg_trg_Zoom, Player(9), "-zoom", false )
call TriggerRegisterPlayerChatEvent( gg_trg_Zoom, Player(10), "-zoom", false )
call TriggerAddAction( gg_trg_Zoom, function Trig_Zoom_Actions )
endfunction
function Trig_Lock_Func003A takes nothing returns nothing
call SetCameraTargetControllerNoZForPlayer( GetTriggerPlayer(), GetEnumUnit(), 0, 0, true )
endfunction
function Trig_Lock_Actions takes nothing returns nothing
set udg_Player_Zoom = GetTriggerPlayer()
call DisplayTextToForce( GetForceOfPlayer(udg_Player_Zoom), "TRIGSTR_095" )
call ForGroupBJ( GetUnitsOfPlayerAndTypeId(GetTriggerPlayer(), 'E000'), function Trig_Lock_Func003A )
endfunction
//===========================================================================
function InitTrig_Lock takes nothing returns nothing
set gg_trg_Lock = CreateTrigger( )
call TriggerRegisterPlayerChatEvent( gg_trg_Lock, Player(0), "-lock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_Lock, Player(1), "-lock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_Lock, Player(2), "-lock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_Lock, Player(3), "-lock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_Lock, Player(4), "-lock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_Lock, Player(5), "-lock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_Lock, Player(6), "-lock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_Lock, Player(7), "-lock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_Lock, Player(8), "-lock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_Lock, Player(9), "-lock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_Lock, Player(10), "-lock", true )
call TriggerAddAction( gg_trg_Lock, function Trig_Lock_Actions )
endfunction
function Trig_UnLock_Func003A takes nothing returns nothing
call PanCameraToTimedLocForPlayer( GetTriggerPlayer(), GetUnitLoc(GetEnumUnit()), 0 )
endfunction
function Trig_UnLock_Actions takes nothing returns nothing
set udg_Player_Zoom = GetTriggerPlayer()
call DisplayTextToForce( GetForceOfPlayer(udg_Player_Zoom), "TRIGSTR_141" )
call ForGroupBJ( GetUnitsOfPlayerAndTypeId(GetTriggerPlayer(), 'E000'), function Trig_UnLock_Func003A )
endfunction
//===========================================================================
function InitTrig_UnLock takes nothing returns nothing
set gg_trg_UnLock = CreateTrigger( )
call TriggerRegisterPlayerChatEvent( gg_trg_UnLock, Player(0), "-unlock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_UnLock, Player(1), "-unlock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_UnLock, Player(2), "-unlock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_UnLock, Player(3), "-unlock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_UnLock, Player(4), "-unlock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_UnLock, Player(5), "-unlock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_UnLock, Player(6), "-unlock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_UnLock, Player(7), "-unlock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_UnLock, Player(8), "-unlock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_UnLock, Player(9), "-unlock", true )
call TriggerRegisterPlayerChatEvent( gg_trg_UnLock, Player(10), "-unlock", true )
call TriggerAddAction( gg_trg_UnLock, function Trig_UnLock_Actions )
endfunction
function Trig_Rain_Actions takes nothing returns nothing
call IssuePointOrderLocBJ( gg_unit_n00C_0019, "blizzard", GetRandomLocInRect(gg_rct_Wolf_Area_Two) )
endfunction
//===========================================================================
function InitTrig_Rain takes nothing returns nothing
set gg_trg_Rain = CreateTrigger( )
call TriggerRegisterTimerEventPeriodic( gg_trg_Rain, 5.25 )
call TriggerAddAction( gg_trg_Rain, function Trig_Rain_Actions )
endfunction
function Trig_Rain_Kopieren_Actions takes nothing returns nothing
call IssuePointOrderLocBJ( gg_unit_n00C_0016, "blizzard", GetRandomLocInRect(gg_rct_Wolf_Area_Two) )
endfunction
//===========================================================================
function InitTrig_Rain_Kopieren takes nothing returns nothing
set gg_trg_Rain_Kopieren = CreateTrigger( )
call TriggerRegisterTimerEventPeriodic( gg_trg_Rain_Kopieren, 5.00 )
call TriggerAddAction( gg_trg_Rain_Kopieren, function Trig_Rain_Kopieren_Actions )
endfunction
function Trig_Gate_Conditions takes nothing returns boolean
if ( not ( GetUnitTypeId(GetEnteringUnit()) == 'E000' ) ) then
return false
endif
return true
endfunction
function Trig_Gate_Actions takes nothing returns nothing
call PlaySoundBJ( gg_snd_BattleNetDoorsStereo2 )
call ModifyGateBJ( bj_GATEOPERATION_OPEN, gg_dest_ITx1_0115 )
call KillDestructable( gg_dest_DTfx_0116 )
call CreateTextTagLocBJ( "TRIGSTR_305", GetUnitLoc(GetEnteringUnit()), 0, 10, 100, 100, 100, 0 )
call TriggerSleepAction( 2 )
call DestroyTextTagBJ( GetLastCreatedTextTag() )
call DisableTrigger( GetTriggeringTrigger() )
endfunction
//===========================================================================
function InitTrig_Gate takes nothing returns nothing
set gg_trg_Gate = CreateTrigger( )
call DisableTrigger( gg_trg_Gate )
call TriggerRegisterEnterRectSimple( gg_trg_Gate, gg_rct_Gebiet_065 )
call TriggerAddCondition( gg_trg_Gate, Condition( function Trig_Gate_Conditions ) )
call TriggerAddAction( gg_trg_Gate, function Trig_Gate_Actions )
endfunction
function Trig_Gate_Trigger_1_Conditions takes nothing returns boolean
if ( not ( GetUnitTypeId(GetEnteringUnit()) == 'E000' ) ) then
return false
endif
return true
endfunction
function Trig_Gate_Trigger_1_Actions takes nothing returns nothing
call PlaySoundBJ( gg_snd_BattleNetTick )
call KillDestructable( gg_dest_DTfx_0118 )
call CreateTextTagLocBJ( "TRIGSTR_304", GetUnitLoc(GetEnteringUnit()), 0, 10, 100, 100, 100, 0 )
call EnableTrigger( gg_trg_Gate )
call TriggerSleepAction( 2 )
call DestroyTextTagBJ( GetLastCreatedTextTag() )
call DisableTrigger( GetTriggeringTrigger() )
endfunction
//===========================================================================
function InitTrig_Gate_Trigger_1 takes nothing returns nothing
set gg_trg_Gate_Trigger_1 = CreateTrigger( )
call DisableTrigger( gg_trg_Gate_Trigger_1 )
call TriggerRegisterEnterRectSimple( gg_trg_Gate_Trigger_1, gg_rct_Gebiet_065_Kopieren )
call TriggerAddCondition( gg_trg_Gate_Trigger_1, Condition( function Trig_Gate_Trigger_1_Conditions ) )
call TriggerAddAction( gg_trg_Gate_Trigger_1, function Trig_Gate_Trigger_1_Actions )
endfunction
function Trig_Gate_Trigger_2_Conditions takes nothing returns boolean
if ( not ( GetUnitTypeId(GetEnteringUnit()) == 'E000' ) ) then
return false
endif
return true
endfunction
function Trig_Gate_Trigger_2_Actions takes nothing returns nothing
call PlaySoundBJ( gg_snd_BattleNetTick )
call KillDestructable( gg_dest_DTfx_0117 )
call CreateTextTagLocBJ( "TRIGSTR_303", GetUnitLoc(GetEnteringUnit()), 0, 10, 100, 100, 100, 0 )
call EnableTrigger( gg_trg_Gate_Trigger_1 )
call TriggerSleepAction( 2 )
call DestroyTextTagBJ( GetLastCreatedTextTag() )
call DisableTrigger( GetTriggeringTrigger() )
endfunction
//===========================================================================
function InitTrig_Gate_Trigger_2 takes nothing returns nothing
set gg_trg_Gate_Trigger_2 = CreateTrigger( )
call TriggerRegisterEnterRectSimple( gg_trg_Gate_Trigger_2, gg_rct_Gebiet_065_Kopieren_2 )
call TriggerAddCondition( gg_trg_Gate_Trigger_2, Condition( function Trig_Gate_Trigger_2_Conditions ) )
call TriggerAddAction( gg_trg_Gate_Trigger_2, function Trig_Gate_Trigger_2_Actions )
endfunction