• 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

PaintBall in the Forest 1.4.w3x
Variables
Bigbrotherfoot
Bigbrotherfoot come in
Cannons
Anti Camping Cannon
Anti Camping Cannon Kopieren
Ping
Red Ping On
Red Ping Off
Red Ping All
Players
Player Loop
Camera Lock
Player Leaves Event
Leaving Player
Unit Death Event
Initialization
Sub Main
Resume Sub Main
Initial Spawn
Misc Setup
Select Configurer
Do Dialog
Catch Dialog Button
Set Constants
Leaderboard
Spawn
Spawn
Camera Fly In
Unit Orders
Randomizer
Request Spawn
Region Test
UnOccupied
Computer
Run Computer Loop
For Each Computer
Flip Action
Replace Nearest Unit
Rotate Skill Mults
End Game
End Game
Name Type is_array initial_value
AvailableSpawns integer Yes
CameraLock real Yes
Cameras camerasetup Yes
ComputerAction boolean Yes
ComputerActionTime real Yes
ComputerCurrentPlayer player No
ComputerCurrentUnit unit No
ComputerNearestDistance real No
ComputerNearestUnit unit No
ComputerSkillDistance real No
ComputerSkillMult real Yes
ComputerSkillTimeBias real No
Configurer player No
CurrentSpawn integer No
DialogButtonAdvanced button No
DialogButtonExpert button No
DialogButtonNightmare button No
DialogButtonNoob button No
DialogCompSkill dialog No
Entries rect Yes
Leaderboard leaderboard No
Messages string Yes
Occupied boolean No
PlayerIsPlaying boolean Yes
PlayerNames string Yes
PlayerType unitcode Yes
Playerunit unitcode Yes hC05
RedPingChx boolean No false
Regions rect Yes
Scores integer Yes
SpawningPlayer player No
Spawns rect Yes
TempBool boolean No
Timer timer No
TotalMessages integer No
TotalPlayerTypes integer No
TotalSpawns integer No
Units unit Yes
UseableSpawnCount integer No
WinningScore integer No
Bigbrotherfoot come in
Events
Unit - Bigfoot 0008 <gen> Dies
Conditions
Actions
Sound - Set volume of WendigoYes2 <gen> to 100 %
Player - Set name of Neutral Hostile to Bigbrotherfoot
Game - Display to (All players) for 5.00 seconds the text: BIGFOOT GOT KILLED,NOW HIS BROTHER BIGBROTHERFOOT IS VENGEFUL!!!
Wait 1.00 seconds
Cinematic - Send transmission to (All players) from a Player 1 (Red) . Bigbrotherfoot named Bigbrotherfoot at (Center of (Playable map area)) : Play WendigoYes2 <gen> and display . Modify duration: Add 0 seconds and Wait
Unit - Create 1 . Bigbrotherfoot for Neutral Hostile at (Center of Bigbrotherfoot <gen>) facing 270.00 degrees
Anti Camping Cannon
Events
Unit - A unit owned by Player 1 (Red) . Is issued an order with no target
Unit - A unit owned by Player 2 (Blue) . Is issued an order with no target
Unit - A unit owned by Player 3 (Teal) . Is issued an order with no target
Unit - A unit owned by Player 4 (Purple) . Is issued an order with no target
Unit - A unit owned by Player 5 (Yellow) . Is issued an order with no target
Unit - A unit owned by Player 6 (Orange) . Is issued an order with no target
Unit - A unit owned by Player 7 (Green) . Is issued an order with no target
Unit - A unit owned by Player 8 (Pink) . Is issued an order with no target
Conditions
(Issued order) Equal to (Order(stop))
Actions
Wait 14.00 seconds
If ((Issued order) Equal to (Order(stop))) then do (Order Anti Camping Cannon 0006 <gen> to Attack.(Triggering unit)) else do (Do nothing)
If ((Issued order) Equal to (Order(move))) then do (Do nothing) else do (Do nothing)
Anti Camping Cannon Kopieren
Events
Unit - A unit owned by Player 1 (Red) . Is issued an order with no target
Unit - A unit owned by Player 2 (Blue) . Is issued an order with no target
Unit - A unit owned by Player 3 (Teal) . Is issued an order with no target
Unit - A unit owned by Player 4 (Purple) . Is issued an order with no target
Unit - A unit owned by Player 5 (Yellow) . Is issued an order with no target
Unit - A unit owned by Player 6 (Orange) . Is issued an order with no target
Unit - A unit owned by Player 7 (Green) . Is issued an order with no target
Unit - A unit owned by Player 8 (Pink) . Is issued an order with no target
Conditions
(Issued order) Equal to (Order(holdposition))
Actions
Wait 14.00 seconds
If ((Issued order) Equal to (Order(holdposition))) then do (Order Anti Camping Cannon 0006 <gen> to Attack.(Triggering unit)) else do (Do nothing)
If ((Issued order) Equal to (Order(move))) then do (Do nothing) else do (Do nothing)
Red Ping On
Events
Player - Player 1 (Red) types a chat message containing -ping (Unexpected type: 'stringnoformat') as An exact match
Conditions
RedPingChx Equal to False
Actions
Set Variable Set RedPingChx = "true"
Red Ping Off
Events
Player - Player 1 (Red) types a chat message containing -ping (Unexpected type: 'stringnoformat') as An exact match
Conditions
RedPingChx Equal to True
Actions
Set Variable Set RedPingChx = "false"
Red Ping All
Events
Time - Every 2 seconds of game time
Conditions
RedPingChx Equal to True
Actions
Cinematic - Ping minimap for Player Group - Player 1 (Red) at (Position of (Random unit from (Units owned by Player 2 (Blue).))) for 3.00 seconds
Cinematic - Ping minimap for Player Group - Player 1 (Red) at (Position of (Random unit from (Units owned by Player 3 (Teal).))) for 3.00 seconds
Cinematic - Ping minimap for Player Group - Player 1 (Red) at (Position of (Random unit from (Units owned by Player 4 (Purple).))) for 3.00 seconds
Cinematic - Ping minimap for Player Group - Player 1 (Red) at (Position of (Random unit from (Units owned by Player 5 (Yellow).))) for 3.00 seconds
Cinematic - Ping minimap for Player Group - Player 1 (Red) at (Position of (Random unit from (Units owned by Player 6 (Orange).))) for 3.00 seconds
Cinematic - Ping minimap for Player Group - Player 1 (Red) at (Position of (Random unit from (Units owned by Player 7 (Green).))) for 3.00 seconds
Cinematic - Ping minimap for Player Group - Player 1 (Red) at (Position of (Random unit from (Units owned by Player 8 (Pink).))) for 3.00 seconds
Player Loop
Events
Time - Every 0.10 seconds of game time
Conditions
Actions
Player Group - Pick every player in (All players matching (((Matching player) slot status) Equal to Is playing).) and do (Run ____Camera_Lock <gen> (ignoring conditions))
Camera Lock
Events
Conditions
Actions
Set Variable Set CameraLock[(Player number of (Picked player))] = (CameraLock[(Player number of (Picked player))] - 0.10)
If (CameraLock[(Player number of (Picked player))] Greater than or equal to 0.00) then do (Skip remaining actions) else do (Do nothing)
Camera - Change camera smoothing factor to 10.00
Camera - Set (Picked player) 's camera Rotation to (Facing of Units[(Player number of (Picked player))]) over 1.00 seconds
Camera - Set (Picked player) 's camera Angle of attack to (Angle of attack of gg_cam_Camera_Game) over 0.00 seconds
Camera - Set (Picked player) 's camera Distance to target to (Distance to target of gg_cam_Camera_Game) over 0.00 seconds
Camera - Set (Picked player) 's camera Field of view to (Field of view of gg_cam_Camera_Game) over 0.00 seconds
This trigger is my own 'custom' event for when a player leaves the game; the 'Player - Defeat' doesn't seem to work when a player just takes off. If there's an easier way to accomplish this, let me know :)
Player Leaves Event
Events
Time - Every 1.00 seconds of game time
Conditions
Actions
Player Group - Pick every player in (All players matching (((Matching player) slot status) Not equal to Is playing).) and do (If (PlayerIsPlaying[(Player number of (Picked player))] Equal to True) then do (Run ____Leaving_Player <gen> (ignoring conditions)) else do (Do nothing))
Leaving Player
Events
Conditions
Actions
Set Variable Set PlayerIsPlaying[(Player number of (Picked player))] = "false"
Leaderboard - Remove (Picked player) from (Last created leaderboard) .
Unit Group - Pick every unit in (Units in (Playable map area) matching ((Owner of (Matching unit)) Equal to (Picked player))) and do (Remove (Picked unit) from the game)
Game - Display to (All players) the text: (PlayerNames[(Player number of (Picked player))] + ( has left the game with a score of + ((|c00FFFF00 + (String(Scores[(Player number of (Picked player))]))) + |r!)))
Unit Death Event
Events
Unit - A unit owned by Player 1 (Red) . Dies
Unit - A unit owned by Player 2 (Blue) . Dies
Unit - A unit owned by Player 3 (Teal) . Dies
Unit - A unit owned by Player 4 (Purple) . Dies
Unit - A unit owned by Player 5 (Yellow) . Dies
Unit - A unit owned by Player 6 (Orange) . Dies
Unit - A unit owned by Player 7 (Green) . Dies
Unit - A unit owned by Player 8 (Pink) . Dies
Unit - A unit owned by Player 9 (Gray) . Dies
Unit - A unit owned by Player 10 (Light Blue) . Dies
Unit - A unit owned by Player 11 (Dark Green) . Dies
Conditions
Actions
Set Variable Set Scores[(Player number of (Owner of (Killing unit)))] = (Scores[(Player number of (Owner of (Killing unit)))] + 1)
Leaderboard - Change the value for (Owner of (Killing unit)) in Leaderboard to Scores[(Player number of (Owner of (Killing unit)))]
Leaderboard - Sort Leaderboard by Value in Descending order
Game - Display to (All players) for 3.00 seconds the text: ((PlayerNames[(Player number of (Owner of (Dying unit)))] + Messages[(Random integer number between 1 and TotalMessages)]) + (PlayerNames[(Player number of (Owner of (Killing unit)))] + !))
Cinematic - Ping minimap for (All players) at (Position of (Dying unit)) for 2.00 seconds
Wait 3.00 seconds
Set Variable Set SpawningPlayer = (Owner of (Dying unit))
Trigger - Run Spawn <gen> (checking conditions)
Wait 7.00 seconds
Unit - Remove (Dying unit) from the game
This is the main initialization trigger. It runs all other initialization triggers and performs the camera fly-in for each player.
Sub Main
Events
Map initialization
Conditions
Actions
Player - Set name of Neutral Hostile to Bigfoot
Player - Make Player 1 (Red) treat Player 12 (Brown) as an Neutral
Player - Make Player 2 (Blue) treat Player 12 (Brown) as an Neutral
Player - Make Player 3 (Teal) treat Player 12 (Brown) as an Neutral
Player - Make Player 4 (Purple) treat Player 12 (Brown) as an Neutral
Player - Make Player 5 (Yellow) treat Player 12 (Brown) as an Neutral
Player - Make Player 6 (Orange) treat Player 12 (Brown) as an Neutral
Player - Make Player 7 (Green) treat Player 12 (Brown) as an Neutral
Player - Make Player 8 (Pink) treat Player 12 (Brown) as an Neutral
Trigger - Run Set_Constants <gen> (ignoring conditions)
Trigger - Run Misc_Setup <gen> (ignoring conditions)
Resume Sub Main
Events
Conditions
Actions
Visibility - Disable black mask
Visibility - Enable fog of war
Cinematic - Disable boundary tinting for (All players)
Trigger - Run Leaderboard <gen> (ignoring conditions)
Player Group - Pick every player in (All players matching (((Matching player) slot status) Equal to Is playing).) and do (Run ____Initial_Spawn <gen> (ignoring conditions))
This is the initial spawn routine.
Initial Spawn
Events
Conditions
Actions
Set Variable Set SpawningPlayer = (Picked player)
Trigger - Run Spawn <gen> (ignoring conditions)
This sets up miscellaneous game settings.
Misc Setup
Events
Conditions
Actions
Player - Hide Player 12 (Brown) in the post-game score screen
Game - Defeat Player 12 (Brown) with the message: Defeat!
Game - Display to (All players) the text:
Player Group - Pick every player in (All players matching (((Matching player) slot status) Equal to Is playing).) and do (Set VariableSet PlayerIsPlaying[(Player number of (Picked player))] = "true")
Player Group - Pick every player in (All players) and do (For each (Integer A) from 1 to 12, do (For (Picked player), turn Alliance (non-aggression) On toward (Player((Integer A)))))
Game - Display to (All players) the text: Welcome to Free-For-All Forest Paintball (v1.2)|c0000FF00IMPORTANT|r: You have to click attack (hotkey '|c00FFFF00a|r') and left click the opponent to shoot! Your player will NOT fire automatically or with attack-move, and right-clicking will NOT work either.|c0000FF00CAMPING WILL BE PUNISHED!!!|rGood Luck! -Vuen ([email protected])
Set Variable Set TempBool = "false"
Player Group - Pick every player in (All players matching (((Matching player) controller) Equal to User).) and do (Run ____Select_Configurer <gen> (ignoring conditions))
Set Variable Set TempBool = "false"
Player Group - Pick every player in (All players matching ((((Matching player) controller) Equal to Computer) and (((Matching player) slot status) Equal to Is playing)).) and do (Set VariableSet TempBool = "true")
If (TempBool Equal to True) then do (Run ____Do_Dialog <gen> (ignoring conditions)) else do (Run Resume_Sub_Main <gen> (ignoring conditions))
Select Configurer
Events
Conditions
Actions
If (TempBool Equal to True) then do (Skip remaining actions) else do (Do nothing)
Set Variable Set TempBool = "true"
Set Variable Set Configurer = (Picked player)
Do Dialog
Events
Conditions
Actions
Wait 0.10 seconds
Dialog - Change the title of DialogCompSkill to Select Computer Skill Level:
Dialog - Create a dialog button for DialogCompSkill labelled |c00FFFF00Newbie|r
Set Variable Set DialogButtonNoob = (Last created dialog Button)
Dialog - Create a dialog button for DialogCompSkill labelled |c00FFFF00Advanced|r
Set Variable Set DialogButtonAdvanced = (Last created dialog Button)
Dialog - Create a dialog button for DialogCompSkill labelled |c00FFFF00Expert|r
Set Variable Set DialogButtonExpert = (Last created dialog Button)
Dialog - Create a dialog button for DialogCompSkill labelled |c00FF0000Nightmare|r
Set Variable Set DialogButtonNightmare = (Last created dialog Button)
Dialog - Show DialogCompSkill for Configurer
Catch Dialog Button
Events
Dialog - A dialog button is clicked for DialogCompSkill
Conditions
Actions
If ((Clicked dialog button) Equal to DialogButtonNoob) then do (Set VariableSet ComputerSkillDistance = "180.00") else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButtonNoob) then do (Set VariableSet ComputerSkillTimeBias = "2.00") else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButtonNoob) then do (Display to (All players) the text: Computer Skill Level set to |c00FFFF00Newbie|r! ) else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButtonAdvanced) then do (Set VariableSet ComputerSkillDistance = "300.00") else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButtonAdvanced) then do (Set VariableSet ComputerSkillTimeBias = "1.00") else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButtonAdvanced) then do (Display to (All players) the text: Computer Skill Level set to |c00FFFF00Advanced|r! ) else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButtonExpert) then do (Set VariableSet ComputerSkillDistance = "360.00") else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButtonExpert) then do (Set VariableSet ComputerSkillTimeBias = "0.67") else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButtonExpert) then do (Display to (All players) the text: Computer Skill Level set to |c00FFFF00Expert|r! ) else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButtonNightmare) then do (Set VariableSet ComputerSkillDistance = "1000000.00") else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButtonNightmare) then do (Set VariableSet ComputerSkillTimeBias = "0.01") else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButtonNightmare) then do (Display to (All players) the text: Computer Skill Level set to |c00FF0000Nightmare|r! |c00FF0000WARNING|r: This skill level isn't even remotely fair! ) else do (Do nothing)
Trigger - Run Resume_Sub_Main <gen> (ignoring conditions)
This is the only sub besides the Players triggers that references the cameras and locations manually. It associates all the variables with the appropriate objects so that the other subs can do everything automatically.
Set Constants
Events
Conditions
Actions
Set Variable Set PlayerType[1] = "h001"
Set Variable Set PlayerType[2] = "h002"
Set Variable Set PlayerType[3] = "h003"
Set Variable Set PlayerType[4] = "h006"
Set Variable Set TotalPlayerTypes = "4"
Set Variable Set Cameras[1] = gg_cam_Camera_1
Set Variable Set Spawns[1] = Spawn_1 <gen>
Set Variable Set Regions[1] = Region_1 <gen>
Set Variable Set Entries[1] = Entry_1 <gen>
Set Variable Set Cameras[2] = gg_cam_Camera_2
Set Variable Set Spawns[2] = Spawn_2 <gen>
Set Variable Set Regions[2] = Region_2 <gen>
Set Variable Set Entries[2] = Entry_2 <gen>
Set Variable Set Cameras[3] = gg_cam_Camera_3
Set Variable Set Spawns[3] = Spawn_3 <gen>
Set Variable Set Regions[3] = Region_3 <gen>
Set Variable Set Entries[3] = Entry_3 <gen>
Set Variable Set Cameras[4] = gg_cam_Camera_4
Set Variable Set Spawns[4] = Spawn_4 <gen>
Set Variable Set Regions[4] = Region_4 <gen>
Set Variable Set Entries[4] = Entry_4 <gen>
Set Variable Set Cameras[5] = gg_cam_Camera_5
Set Variable Set Spawns[5] = Spawn_5 <gen>
Set Variable Set Regions[5] = Region_5 <gen>
Set Variable Set Entries[5] = Entry_5 <gen>
Set Variable Set Cameras[6] = gg_cam_Camera_6
Set Variable Set Spawns[6] = Spawn_6 <gen>
Set Variable Set Regions[6] = Region_6 <gen>
Set Variable Set Entries[6] = Entry_6 <gen>
Set Variable Set Cameras[7] = gg_cam_Camera_7
Set Variable Set Spawns[7] = Spawn_7 <gen>
Set Variable Set Regions[7] = Region_7 <gen>
Set Variable Set Entries[7] = Entry_7 <gen>
Set Variable Set Cameras[8] = gg_cam_Camera_8
Set Variable Set Spawns[8] = Spawn_8 <gen>
Set Variable Set Regions[8] = Region_8 <gen>
Set Variable Set Entries[8] = Entry_8 <gen>
Set Variable Set Messages[1] = " was killed by "
Set Variable Set Messages[2] = " was shot by "
Set Variable Set Messages[3] = " was painted by "
Set Variable Set Messages[4] = " got nailed by "
Set Variable Set Messages[5] = " lost his head to "
Set Variable Set Messages[6] = " got his face shot off by "
Set Variable Set Messages[7] = " died at the hands of "
Set Variable Set Messages[8] = " invaded the territory of "
Set Variable Set Messages[9] = " learned a valuable lesson from "
Set Variable Set Messages[10] = " rests in pieces near "
Set Variable Set Messages[11] = " almost dodged the paint from "
Set Variable Set Messages[12] = " ate a paintball from "
Set Variable Set Messages[13] = " got owned by "
Set Variable Set Messages[14] = " was humiliated by "
Set Variable Set Messages[15] = " kicked the bucket near "
Set Variable Set Messages[16] = " fell out of the tree near "
Set Variable Set Messages[17] = " was embarrased by "
Set Variable Set Messages[18] = " was ridiculed by "
Set Variable Set Messages[19] = " got railed by "
Set Variable Set Messages[20] = " got hammered by "
Set Variable Set Messages[21] = " got slaughtered by "
Set Variable Set Messages[22] = " got toasted by "
Set Variable Set Messages[23] = " got blasted by "
Set Variable Set Messages[24] = " got wrecked by "
Set Variable Set Messages[25] = " got roasted by "
Set Variable Set Messages[26] = " was shot out of the tree by "
Set Variable Set Messages[27] = " got mutilated by "
Set Variable Set Messages[28] = " was destroyed by "
Set Variable Set Messages[29] = " is showing his insides to "
Set Variable Set TotalMessages = "29"
Set Variable Set PlayerNames[1] = (|c00FF0000 + ((Name of Player 1 (Red)) + |r))
Set Variable Set PlayerNames[2] = (|c000000FF + ((Name of Player 2 (Blue)) + |r))
Set Variable Set PlayerNames[3] = (|c0000FFBF + ((Name of Player 3 (Teal)) + |r))
Set Variable Set PlayerNames[4] = (|c003F007F + ((Name of Player 4 (Purple)) + |r))
Set Variable Set PlayerNames[5] = (|c00FFFF00 + ((Name of Player 5 (Yellow)) + |r))
Set Variable Set PlayerNames[6] = (|c00FF7F00 + ((Name of Player 6 (Orange)) + |r))
Set Variable Set PlayerNames[7] = (|c0000FF00 + ((Name of Player 7 (Green)) + |r))
Set Variable Set PlayerNames[8] = (|c00FF3FFF + ((Name of Player 8 (Pink)) + |r))
Set Variable Set PlayerNames[12] = ( + ((Name of Player 12 (Brown)) + ))
Set Variable Set PlayerNames[13] = ( + ((Name of Neutral Hostile) + ))
Set Variable Set TotalSpawns = "8"
Set Variable Set RedPingChx = "false"
This creates the Leaderboard and the countdown timer.
Leaderboard
Events
Conditions
Actions
Wait 0.10 seconds
Leaderboard - Create a leaderboard for (All players) titled Kill Count
Set Variable Set Leaderboard = (Last created leaderboard)
Player Group - Pick every player in (All players matching (((Matching player) slot status) Equal to Is playing).) and do (Add (Picked player) to Leaderboard with label (Name of (Picked player)) and value 0)
Leaderboard - Show Leaderboard
Countdown Timer - Create a timer window for Timer with title Time Left
Countdown Timer - Start Timer as a One-shot timer that will expire in 600.00 seconds
Spawn
Events
Conditions
Actions
If ((SpawningPlayer slot status) Not equal to Is playing) then do (Skip remaining actions) else do (Do nothing)
Trigger - Run Request_Spawn <gen> (ignoring conditions)
If (CurrentSpawn Equal to 0) then do (Skip remaining actions) else do (Do nothing)
Unit - Create 1 . PlayerType[(Random integer number between 1 and TotalPlayerTypes)] for SpawningPlayer at (Center of Spawns[CurrentSpawn]) facing 0.00 degrees
Trigger - Run ____Camera_Fly_In <gen> (checking conditions)
Camera Fly In
Events
Conditions
Actions
Set Variable Set CameraLock[(Player number of SpawningPlayer)] = "1.80"
Camera - . Apply . Cameras[CurrentSpawn] for SpawningPlayer over 0 seconds
Unit Group - Pick every unit in (Units in Regions[CurrentSpawn] matching (((Matching unit) is alive) Equal to True)) and do (Run ________Unit_Orders <gen> (ignoring conditions))
Camera - Reset camera for SpawningPlayer to standard game-view over 1.80 seconds
Camera - Set SpawningPlayer 's camera Rotation to (Facing of Units[(Player number of SpawningPlayer)]) over 1.80 seconds
Camera - Set SpawningPlayer 's camera Angle of attack to (Angle of attack of gg_cam_Camera_Game) over 1.80 seconds
Camera - Set SpawningPlayer 's camera Distance to target to (Distance to target of gg_cam_Camera_Game) over 1.80 seconds
Camera - Set SpawningPlayer 's camera Field of view to (Field of view of gg_cam_Camera_Game) over 1.80 seconds
Camera - Lock camera target for SpawningPlayer to Units[(Player number of SpawningPlayer)] , offset by ( 0 , 0 ) using Default rotation
This trigger is now useless; it could be removed and the contents could be moved to Camera Fly In, but I'm too lazy.
Unit Orders
Events
Conditions
Actions
Unit - Make (Picked unit) face (Center of Entries[CurrentSpawn]) over 0.00 seconds
Unit - Order (Picked unit) to Move To . (Center of Entries[CurrentSpawn])
Set Variable Set Units[(Player number of SpawningPlayer)] = (Picked unit)
Request Spawn
Events
Conditions
Actions
Set Variable Set UseableSpawnCount = "0"
For each (Integer A) from 1 to TotalSpawns , do (Run ____Region_Test <gen> (ignoring conditions))
If (UseableSpawnCount Greater than 0) then do (Set VariableSet CurrentSpawn = AvailableSpawns[(Random integer number between 1 and UseableSpawnCount)]) else do (Set VariableSet CurrentSpawn = "0")
If (CurrentSpawn Greater than 0) then do (Skip remaining actions) else do (Do nothing)
Unit - Create 1 . Player (var4) for SpawningPlayer at (Center of (Playable map area)) facing 0.00 degrees
Camera - Lock camera target for SpawningPlayer to (Last created unit) , offset by ( 0 , 0 ) using Default rotation
Game - Display to (All players) the text: ( (Internal Error; No free spawn locations for + (PlayerNames[(Player number of SpawningPlayer)] + !)))
Region Test
Events
Conditions
Actions
Set Variable Set Occupied = "false"
Unit Group - Pick every unit in (Units in Regions[(Integer A)] matching (((Matching unit) is alive) Equal to True)) and do (Set VariableSet Occupied = "true")
If (Occupied Equal to False) then do (Run ________UnOccupied <gen> (checking conditions)) else do (Do nothing)
UnOccupied
Events
Conditions
Actions
Set Variable Set UseableSpawnCount = (UseableSpawnCount + 1)
Set Variable Set AvailableSpawns[UseableSpawnCount] = (Integer A)
This function is the AI script for computers to play the map. If you would like to play with computers, simply change the slot to Computer in the game screen (multiplayer only). The rest is automatic! Be warned however; computer players can be extremely skilled!
Run Computer Loop
Events
Time - Every 0.25 seconds of game time
Conditions
Actions
Player Group - Pick every player in (All players matching ((((Matching player) slot status) Equal to Is playing) and (((Matching player) controller) Equal to Computer)).) and do (Run ____For_Each_Computer <gen> (ignoring conditions))
This finds the picked player's unit, then find the nearest unit to that unit, then orders the player to either move to or attack that unit or stay put based on it's distance and the computer's skill level and multiplier and current action.

The ComputerCurrentPlayer variable is used because there seems to be a bug in Warcraft III with using another trigger's 'Picked Player' in a Matching Unit loop containing the AND condition. Try it if you don't believe me; replace the use of 'ComputerCurrentPlayer' with 'Picked Player' and watch it crash (save the file under a different name if you do this!).
For Each Computer
Events
Conditions
Actions
Set Variable Set ComputerNearestDistance = "100000.00"
Set Variable Set ComputerCurrentUnit = No unit
Set Variable Set ComputerNearestUnit = No unit
Set Variable Set ComputerCurrentPlayer = (Picked player)
Set Variable Set ComputerActionTime[(Player number of ComputerCurrentPlayer)] = (ComputerActionTime[(Player number of ComputerCurrentPlayer)] - 0.25)
If (ComputerActionTime[(Player number of ComputerCurrentPlayer)] Less than or equal to 0.00) then do (Run ________Flip_Action <gen> (ignoring conditions)) else do (Do nothing)
Unit Group - Pick every unit in (Units in (Playable map area) matching (((Owner of (Matching unit)) Equal to ComputerCurrentPlayer) and (((Matching unit) is alive) Equal to True))) and do (Set VariableSet ComputerCurrentUnit = (Picked unit))
If (ComputerCurrentUnit Equal to No unit) then do (Skip remaining actions) else do (Do nothing)
Unit Group - Pick every unit in (Units in (Playable map area) matching ((((Matching unit) is alive) Equal to True) and ((Matching unit) Not equal to ComputerCurrentUnit))) and do (If ((Distance between (Position of (Picked unit)) and (Position of ComputerCurrentUnit)) Less than ComputerNearestDistance) then do (Run ________Replace_Nearest_Unit <gen> (ignoring conditions)) else do (Do nothing))
If ((ComputerNearestDistance Greater than or equal to 600.00) and (ComputerAction[(Player number of ComputerCurrentPlayer)] Equal to True)) then do (Order ComputerCurrentUnit to Stop.) else do (If (ComputerNearestDistance Less than (ComputerSkillDistance x ComputerSkillMult[(Player number of ComputerCurrentPlayer)])) then do (Order ComputerCurrentUnit to Attack.ComputerNearestUnit) else do (Order ComputerCurrentUnit to Move To.(Position of ComputerNearestUnit)))
Changes the computer's current movement mode.

For ComputerAction:
True - Defensive Mode (stopped unless enemy is within 600 units)
False - Aggressive Mode (on the move!)
Flip Action
Events
Conditions
Actions
If (ComputerAction[(Player number of ComputerCurrentPlayer)] Equal to True) then do (Set VariableSet ComputerAction[(Player number of ComputerCurrentPlayer)] = "false") else do (Set VariableSet ComputerAction[(Player number of ComputerCurrentPlayer)] = "true")
If (ComputerAction[(Player number of ComputerCurrentPlayer)] Equal to True) then do (Set VariableSet ComputerActionTime[(Player number of ComputerCurrentPlayer)] = ((6.00 x (Random real number between 0.75 and 1.25)) x ComputerSkillTimeBias)) else do (Set VariableSet ComputerActionTime[(Player number of ComputerCurrentPlayer)] = ((6.00 x (Random real number between 0.75 and 1.25)) x (1.00 / ComputerSkillTimeBias)))
Replace Nearest Unit
Events
Conditions
Actions
Set Variable Set ComputerNearestUnit = (Picked unit)
Set Variable Set ComputerNearestDistance = (Distance between (Position of ComputerCurrentUnit) and (Position of (Picked unit)))
This varies the skill level of the opponents every 10 seconds to balance them out; otherwise the first computer player out of the two always wins a shootout on Newbie and Expert skill levels.
Rotate Skill Mults
Events
Time - Elapsed game time is 0.00 seconds
Time - Every 15.00 seconds of game time
Conditions
Actions
Player Group - Pick every player in (All players matching (((Matching player) controller) Equal to Computer).) and do (Set VariableSet ComputerSkillMult[(Player number of (Picked player))] = (Random real number between 0.90 and 1.10))
End Game
Events
Time - Timer expires
Conditions
Actions
Player Group - Pick every player in (All players matching (((Matching player) slot status) Equal to Is playing).) and do (If (Scores[(Player number of (Picked player))] Greater than WinningScore) then do (Set VariableSet WinningScore = Scores[(Player number of (Picked player))]) else do (Do nothing))
Player Group - Pick every player in (All players matching (((Matching player) slot status) Equal to Is playing).) and do (If (Scores[(Player number of (Picked player))] Greater than or equal to WinningScore) then do (Victory (Picked player) (Show dialogs, Skip scores)) else do (Defeat (Picked player) with the message: You have lost!))
Trigger - Turn off Player_Leaves_Event <gen>
Game - Display to (All players) the text:
Top