• Listen to a special audio message from Bill Roper to the Hive Workshop community (Bill is a former Vice President of Blizzard Entertainment, Producer, Designer, Musician, Voice Actor) 🔗Click here to hear his message!
  • Read Evilhog's interview with Gregory Alper, the original composer of the music for WarCraft: Orcs & Humans 🔗Click here to read the full interview.

Triggers

Tele Frag v1.1.w3x
Variables
TeleFrag
Teleportation
Fragger
Misc
Init Triggers
init
Sound
Start
frag10
frag20
frag30
frag40
frag50
Multiboard
Revival
Death
Computer Manangement
Computer Movement
Kills
Kill counter
Victory
Win
Enter map-specific custom script code below. This text will be included in the map script after variables are declared and before any trigger code.
//Handlers script by kattana.

function Cache takes nothing returns gamecache
if (udg_cache==null) then
set udg_cache=InitGameCache("cach")
endif
return udg_cache
endfunction

function Handler takes handle h returns integer
return h
return 0
endfunction

function Change takes handle h,string s, integer i returns nothing
call StoreInteger(Cache(), I2S(Handler( h )), s, i)
endfunction

function Changes takes handle h, string s, unit i returns nothing
call StoreUnit(Cache(), I2S(Handler( h )), s, i)
endfunction

function StoreHandle takes handle h, handle j, string s returns nothing
call Change(h,s,Handler(j))
endfunction

function GetLinkedInteger takes handle h,string s returns integer
return GetStoredInteger(Cache(),I2S(Handler( h )),s)
endfunction

function GetLinkedUnit takes handle h,string s returns unit
return GetLinkedInteger(h,s)
return null
endfunction

function GetLinkedDoodad takes handle h,string s returns handle
return GetLinkedInteger(h,s)
return null
endfunction

function Flush takes handle h returns nothing
call FlushStoredMission(Cache(),I2S(Handler( h )))
endfunction




//dontask

function destroysfx takes effect e, effect f returns nothing
call TriggerSleepAction( 0.1 )
call DestroyEffect(e)
call DestroyEffect(f)
set e = null
set f = null
endfunction
Name Type is_array initial_value
cache gamecache No
colour string Yes
Dialog dialog No
dialogscore integer No
fraglimit integer No
frags integer No
kill10 button No
kill20 button No
kill30 button No
kill40 button No
kill50 button No
Kills integer Yes
unit unit No
win boolean No
winner player No
This whole map was created 100% by Edwardswolentoe. (No kidding!)
Main teleportation trigger
//*****************************************************************************
//*  Name: TeleFrag
//*  Author: Edwardswolentoe
//*  Description: Telefragness!
//*  Variables: None.
//*****************************************************************************


function cond takes nothing returns boolean
    if ( ( GetIssuedOrderIdBJ() == String2OrderIdBJ("smart") ) ) then
        return true
    endif
    if ( ( GetIssuedOrderIdBJ() == String2OrderIdBJ("patrol") ) ) then
        return true
    endif
    if ( ( GetIssuedOrderIdBJ() == String2OrderIdBJ("move") ) ) then
        return true
    endif
    return false
endfunction

function cond2 takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetOrderedUnit()) == 'E000' ) ) then
        return false
    endif
    if ( not cond() ) then
        return false
    endif
    return true
endfunction

function ohmy takes nothing returns boolean
    return ( IsUnitAlly(GetFilterUnit(), GetOwningPlayer(GetOrderedUnit())) == false)
endfunction

function damagere takes nothing returns nothing
    call UnitDamageTargetBJ( GetOrderedUnit(), GetEnumUnit(), 9999.00, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_NORMAL )
endfunction

function Move takes nothing returns nothing // This is the moving trigger.
    local unit u
    local location l
    local location o
    local effect e  
    local group g
    local effect r
    local location p

    call SetUnitVertexColorBJ( GetOrderedUnit(), 80.00, 100, 100, 20.00 )
    set p = GetUnitLoc(GetOrderTargetUnit())
    set o = GetOrderPointLoc()
    set u = GetOrderedUnit()
    call SetUnitPositionLocFacingLocBJ( GetOrderedUnit(), o, o )
    call SetUnitPositionLocFacingLocBJ( GetOrderedUnit(), p, p )
    call IssueImmediateOrderBJ(GetOrderedUnit(), "stop" )
    set l = GetUnitLoc(GetOrderedUnit())
    set g = GetUnitsInRangeOfLocMatching(150.00, l, Condition(function ohmy))
    call ForGroupBJ( g, function damagere )
    call AddSpecialEffectTargetUnitBJ( "origin", GetOrderedUnit(), "Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl" )
    call DestroyEffect(GetLastCreatedEffectBJ())
    call AddSpecialEffectTargetUnitBJ( "origin", GetOrderedUnit(), "Abilities\\Spells\\NightElf\\FaerieDragonInvis\\FaerieDragon_Invis.mdl" )
    set e = GetLastCreatedEffectBJ()
    call AddSpecialEffectTargetUnitBJ( "origin", GetOrderedUnit(), "Abilities\\Spells\\Other\\Drain\\ManaDrainTarget.mdl" )
    set r = GetLastCreatedEffectBJ()
    call IssueImmediateOrderBJ(GetOrderedUnit(), "stop" )
    call RemoveLocation(l)
    call RemoveLocation(o)
    call RemoveLocation(p)
    call DestroyGroup(g)
    set p = null
    set l = null
    set o = null
    set u = null
    set g = null
    call destroysfx(r, e)
    set r = null
    set e = null
    call SetUnitVertexColorBJ( GetOrderedUnit(), 100, 100, 100, 0 )
endfunction

//===========================================================================
function InitTrig_Fragger takes nothing returns nothing

    set gg_trg_Fragger = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Fragger, EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Fragger, EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER )
    call TriggerAddCondition( gg_trg_Fragger, Condition( function cond2 ) )
    call TriggerAddAction( gg_trg_Fragger, function Move )
endfunction
init
Events
Map initialization
Conditions
Actions
Player Group - Pick every player in (All players) and do (Actions)
Loop - Actions
Visibility - Create an initially Enabled visibility modifier for (Picked player) emitting Visibility across (Playable map area)
Set Variable Set colour[1] = "|c00FF0000"
Set Variable Set colour[2] = "|c000000FF"
Set Variable Set colour[3] = "|c001ce6b9"
Set Variable Set colour[4] = "|c00540081"
Set Variable Set colour[5] = "|c00fffc01"
Set Variable Set colour[6] = "|c00feba0e"
Set Variable Set colour[7] = "|c0020c000"
Set Variable Set colour[8] = "|c00e55bb0"
Set Variable Set colour[9] = "|c00959697"
Set Variable Set colour[10] = "|c007ebff1"
Set Variable Set colour[11] = "|c00106246"
Set Variable Set colour[12] = "|c004e2a04"
Custom script: call DestroyTrigger(GetTriggeringTrigger())
Sound
Events
Time - Elapsed game time is 0.50 seconds
Conditions
Actions
Sound - Stop music Immediately
Sound - Play War3XMainScreen <gen>
Custom script: call DestroyTrigger(GetTriggeringTrigger())
2 + 4 + 4 + 5
Start
Events
Time - Elapsed game time is 0.00 seconds
Conditions
Actions
Dialog - Change the title of Dialog to Frag limit:
Dialog - Create a dialog button for Dialog labelled 10 kills
Set Variable Set kill10 = (Last created dialog Button)
Dialog - Create a dialog button for Dialog labelled 20 kills
Set Variable Set kill20 = (Last created dialog Button)
Dialog - Create a dialog button for Dialog labelled 30 kills
Set Variable Set kill30 = (Last created dialog Button)
Dialog - Create a dialog button for Dialog labelled 40 kills
Set Variable Set kill40 = (Last created dialog Button)
Dialog - Create a dialog button for Dialog labelled 50 kills
Set Variable Set kill50 = (Last created dialog Button)
For each (Integer A) from 1 to (Number of players in (All players)) , do (Actions)
Loop - Actions
Game - Display to (Player group((Player((Integer A))))) for 20.00 seconds the text: ((Contestant + (colour[(Integer A)] + ((Name of (Player((Integer A)))) + |r))) + , welcome to Tele-Frag Tournament 2113!:)
Unit - Create 1 . Tele-Frager for (Player((Integer A))) at ((Player((Integer A))) start location) facing Default building facing degrees
Unit - Make (Last created unit) Invulnerable
Unit - Pause (Last created unit)
Dialog - Show Dialog for (Player((Integer A)))
Game - Display to (All players) for 20.00 seconds the text: All contestants are to wait for the elapsed period before game is to begin. Suit damagers are deactivated for 2 seconds after match begins.The player with the highest score wins!
Wait 5.00 seconds
Set Variable Set fraglimit = ((dialogscore / (Number of players in (All players))) x 10)
Multiboard - Maximize (Last created multiboard)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
fraglimit Less than or equal to 10
Then - Actions
Set Variable Set frags = "10"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
fraglimit Equal to 20
Then - Actions
Set Variable Set frags = "20"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
fraglimit Equal to 30
Then - Actions
Set Variable Set frags = "30"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
fraglimit Equal to 40
Then - Actions
Set Variable Set frags = "40"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
fraglimit Equal to 50
Then - Actions
Set Variable Set frags = "50"
Else - Actions
Do nothing
Multiboard - Set the text for (Last created multiboard) item in column 2 , row ((Number of players in (All players)) + 1) to (String(frags))
Game - Display to (All players) for 20.00 seconds the text: (Frag limit set to + ((String(frags)) + kills.))
Wait 0.50 seconds
Game - Display to (All players) for 1.00 seconds the text: |c00ff03035|r
Wait 0.50 seconds
Game - Display to (All players) for 1.00 seconds the text: |c00ff03034|r
Wait 0.50 seconds
Game - Display to (All players) for 1.00 seconds the text: |c00ff03033|r
Wait 0.50 seconds
Game - Display to (All players) for 1.00 seconds the text: |c00ff03032|r
Wait 0.50 seconds
Game - Display to (All players) for 1.00 seconds the text: |c00ff03031|r
Wait 0.50 seconds
Game - Display to (All players) for 1.00 seconds the text: |c00ff0303FIGHT!|r
Unit - Unpause all units
Wait 2.00 seconds
Unit Group - Pick every unit in (Units of type Tele-Frager) and do (Actions)
Loop - Actions
Unit - Make (Picked unit) Vulnerable
Trigger - Run Multiboard <gen> (ignoring conditions)
Custom script: call DestroyTrigger(GetTriggeringTrigger())
Not destroying these triggs shouldnt matter much.
frag10
Events
Dialog - A dialog button is clicked for Dialog
Conditions
(Clicked dialog button) Equal to kill10
Actions
Set Variable Set dialogscore = (dialogscore + 1)
frag20
Events
Dialog - A dialog button is clicked for Dialog
Conditions
(Clicked dialog button) Equal to kill20
Actions
Set Variable Set dialogscore = (dialogscore + 2)
frag30
Events
Dialog - A dialog button is clicked for Dialog
Conditions
(Clicked dialog button) Equal to kill30
Actions
Set Variable Set dialogscore = (dialogscore + 3)
frag40
Events
Dialog - A dialog button is clicked for Dialog
Conditions
(Clicked dialog button) Equal to kill40
Actions
Set Variable Set dialogscore = (dialogscore + 4)
5+2+2+1+3+4
frag50
Events
Dialog - A dialog button is clicked for Dialog
Conditions
(Clicked dialog button) Equal to kill50
Actions
Set Variable Set dialogscore = (dialogscore + 5)
Multiboard
Events
Conditions
Actions
Multiboard - Create a multiboard with 3 columns and ((Number of players in (All players)) + 1) rows, titled |c00ff8000Tele Frags:|r .
For each (Integer A) from 1 to (Number of players) , do (Actions)
Loop - Actions
Multiboard - Set the width for (Last created multiboard) item in column 1 , row (Integer A) to 8.00 % of the total screen width
Multiboard - Set the display style for (Last created multiboard) item in column 1 , row (Integer A) to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 2 , row (Integer A) to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 3 , row (Integer A) to Show text and Hide icons
Multiboard - Set the text for (Last created multiboard) item in column 1 , row (Integer A) to (colour[(Integer A)] + ((Name of (Player((Integer A)))) + |r))
Multiboard - Set the text for (Last created multiboard) item in column 1 , row ((Number of players in (All players)) + 1) to |c00008000Frags:|r
Multiboard - Set the text for (Last created multiboard) item in column 2 , row ((Number of players in (All players)) + 1) to 0
Multiboard - Set the display style for (Last created multiboard) item in column 2 , row ((Number of players in (All players)) + 1) to Show text and Hide icons
Multiboard - Maximize (Last created multiboard)
Custom script: call DestroyTrigger(GetTriggeringTrigger())
function Condia takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetDyingUnit()) == 'E000' ) ) then
        return false
    endif
    return true
endfunction

function Revive takes nothing returns nothing
    local effect e
    local location l = GetRectCenter(GetPlayableMapRect())
   
    call TriggerSleepAction( 2.5 )
    call ReviveHeroLoc( GetDyingUnit(), l, false )
    call SetUnitInvulnerable( GetDyingUnit(), true )
    call AddSpecialEffectTargetUnitBJ( "origin", GetDyingUnit(), "Abilities\\Spells\\Human\\DivineShield\\DivineShieldTarget.mdl" )
    set e = GetLastCreatedEffectBJ()
    call TriggerSleepAction( 2.5 )
    call SetUnitInvulnerable( GetDyingUnit(), false )
    call DestroyEffectBJ(e)
    call RemoveLocation(l)
    set e = null
endfunction

//===========================================================================
function InitTrig_Death takes nothing returns nothing
    set gg_trg_Death = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Death, EVENT_PLAYER_UNIT_DEATH )
    call TriggerAddCondition( gg_trg_Death, Condition( function Condia ) )
    call TriggerAddAction( gg_trg_Death, function Revive )
endfunction


function Trig_Computer_Copy_Func001C takes nothing returns boolean
    if ( ( GetPlayerController(Player(0)) == MAP_CONTROL_COMPUTER ) ) then
        return true
    endif
    if ( ( GetPlayerController(Player(1)) == MAP_CONTROL_COMPUTER ) ) then
        return true
    endif
    if ( ( GetPlayerController(Player(2)) == MAP_CONTROL_COMPUTER ) ) then
        return true
    endif
    if ( ( GetPlayerController(Player(3)) == MAP_CONTROL_COMPUTER ) ) then
        return true
    endif
    if ( ( GetPlayerController(Player(4)) == MAP_CONTROL_COMPUTER ) ) then
        return true
    endif
    if ( ( GetPlayerController(Player(5)) == MAP_CONTROL_COMPUTER ) ) then
        return true
    endif
    if ( ( GetPlayerController(Player(6)) == MAP_CONTROL_COMPUTER ) ) then
        return true
    endif
    if ( ( GetPlayerController(Player(7)) == MAP_CONTROL_COMPUTER ) ) then
        return true
    endif
    if ( ( GetPlayerController(Player(8)) == MAP_CONTROL_COMPUTER ) ) then
        return true
    endif
    if ( ( GetPlayerController(Player(9)) == MAP_CONTROL_COMPUTER ) ) then
        return true
    endif
    if ( ( GetPlayerController(Player(10)) == MAP_CONTROL_COMPUTER ) ) then
        return true
    endif
    if ( ( GetPlayerController(Player(11)) == MAP_CONTROL_COMPUTER ) ) then
        return true
    endif
    return false
endfunction

function Trig_Computer_Copy_Conditions takes nothing returns boolean
    if ( not Trig_Computer_Copy_Func001C() ) then
        return false
    endif
    return true
endfunction

function Trig_Computer_Copy_Func002Func001001002 takes nothing returns boolean
    return ( GetPlayerController(GetOwningPlayer(GetFilterUnit())) == MAP_CONTROL_COMPUTER )
endfunction

function Trig_Computer_Copy_Func002Func001A takes nothing returns nothing
    local location v 
    set v = GetRandomLocInRect(GetPlayableMapRect())
    call IssuePointOrderLocBJ( GetEnumUnit(), "smart", v )
    call RemoveLocation(v)
    set v = null
endfunction

function Trig_Computer_Copy_Func002Func002001002 takes nothing returns boolean
    return ( GetPlayerController(GetOwningPlayer(GetFilterUnit())) == MAP_CONTROL_COMPUTER )
endfunction

function Trig_Computer_Copy_Func002Func002Func002001002002 takes nothing returns boolean
    return (GetFilterUnit() != udg_unit)
endfunction

function Trig_Computer_Copy_Func002Func002Func002A takes nothing returns nothing
    local location l
    set l = GetUnitLoc(GetEnumUnit())
    call IssuePointOrderLocBJ( udg_unit, "smart", l )
    call RemoveLocation(l)
    set l = null
endfunction

function Trig_Computer_Copy_Func002Func002A takes nothing returns nothing
    local group h   
    set udg_unit = GetEnumUnit()
    
    set h = GetRandomSubGroup(1, GetUnitsInRectMatching(GetPlayableMapRect(), Condition(function Trig_Computer_Copy_Func002Func002Func002001002002)))
    call ForGroupBJ( h, function Trig_Computer_Copy_Func002Func002Func002A )
    call DestroyGroup(h)
    set h = null
endfunction

function Trig_Computer_Copy_Func002C takes nothing returns boolean
    if ( not ( GetRandomInt(1, 6) == 6 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Computer_Copy_Actions takes nothing returns nothing
    local group o
    local group p

    if ( Trig_Computer_Copy_Func002C() ) then
        set o = GetUnitsInRectMatching(GetPlayableMapRect(), Condition(function Trig_Computer_Copy_Func002Func002001002))
        call ForGroupBJ( o, function Trig_Computer_Copy_Func002Func002A )
    else
        set p = GetUnitsInRectMatching(GetPlayableMapRect(), Condition(function Trig_Computer_Copy_Func002Func001001002))
        call ForGroupBJ( p, function Trig_Computer_Copy_Func002Func001A )
    endif
    call DestroyGroup(o)
    call DestroyGroup(p)
    set o = null
    set p = null
endfunction

//===========================================================================
function InitTrig_Computer_Movement takes nothing returns nothing
    set gg_trg_Computer_Movement = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( gg_trg_Computer_Movement, 0.80 )
    call TriggerAddCondition( gg_trg_Computer_Movement, Condition( function Trig_Computer_Copy_Conditions ) )
    call TriggerAddAction( gg_trg_Computer_Movement, function Trig_Computer_Copy_Actions )
endfunction
Kill counter
Events
Unit - A unit Dies
Conditions
Actions
Set Variable Set Kills[(Player number of (Owner of (Killing unit)))] = (Kills[(Player number of (Owner of (Killing unit)))] + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Kills[(Player number of (Owner of (Killing unit)))] Equal to frags
Then - Actions
Set Variable Set win = "true"
Set Variable Set winner = (Owner of (Killing unit))
Unit - Make (Killing unit) Invulnerable
Unit - Cause (Killing unit) to damage circular area after 1.00 seconds of radius 99999.00 at (Center of (Playable map area)) , dealing 999999.00 damage of attack type Spells and damage type Normal
Else - Actions
Do nothing
Multiboard - Set the text for (Last created multiboard) item in column 3 , row (Player number of (Owner of (Killing unit))) to (|c00fa3301Kills:|r + (String(Kills[(Player number of (Owner of (Killing unit)))])))
Win
Events
Time - Every 0.50 seconds of game time
Conditions
win Equal to True
Actions
Trigger - Turn off (This trigger)
Trigger - Turn off Death <gen>
Unit - Pause all units
Game - Display to (All players) the text: ((Name of winner) + is the winner!)
Game - Display to (All players) the text: All losers are now terminated.
Wait 6.00 seconds
Game - Victory winner ( Show dialogs, Show scores)
Player Group - Pick every player in (All players matching ((Matching player) Not equal to winner).) and do (Actions)
Loop - Actions
Game - Defeat (Picked player) with the message: Defeat!
Top