• 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

Settlers 1.1.w3x
Variables
Variables
Initialization
Map Initialization
Remove Summon Dummy
Quests
Host Menu
Host Menu Initializing
Host Menu Start
Host Menu Victory Points
Host Menu Board
Host Menu House Rules 1
Host Menu House Rules 2
Host Menu House Rules Info
Host Menu Turn Timer
Host Menu End
Host Menu Confirm
Default Land Creation
Premade Land Creation 1
Premade Land Creation 2
Balanced Land Creation
Balanced Land Terran Select
Random Land Creation
Create Field
Create Forest
Create Manawell
Create Mine
Create Plain
Create Barrens
Create Trading Post
Create Onyxia
Change Base Tilseset
Create Land Text
Custom Land Creation
Custom Land Spawn
Custom Land Change Grain
Custom Land Change Lumber
Custom Land Change ManaCrystal
Custom Land Change Meat
Custom Land Change Stone
Custom Land Change Barrens
Custom Land Change Trading Post
Custom Land Change Random
Custom Land Value Down
Custom Land Value Up
Custom Land Value Set
Custom Land Balance Values
Custom Land Change Onyxia
Custom Ports Spawn
Custom Ports Change Grain
Custom Ports Change Lumber
Custom Ports Change Mana Crystal
Custom Ports Change Meat
Custom Ports Change Stone
Custom Ports Change General
Custom Ports Disable
Custom Ports Rotate
Custom Ports Default
Custom Land End
Update Table Land
Update Table Value
Update Table Port
Ports
Spawn Ports
Claim Port
Game Setup
First Settlement Marker
First Settlement Claimed
First Roads
Pick Capitals 1
Pick Capitals 2
Game Start
Walls
Resource Roll
Turn Start 1
Turn Start 2
Resource Roll 1
Resource Roll 2
Resource Roll 3
Resource Payout
Trading Post Change
Trading
Trading Start
Inland Offer 1
Inland Offer 2
Inland Demand
Inland Accept
Inland Tradeblock
Inland Cancel
Offshore Abilities
Offshore Trade Grain
Offshore Trade Lumber
Offshore Trade Mana Crystals
Offshore Trade Meat
Offshore Trade Stone
Offshore Dialog
Offshore Button
Building Construction
Construction Start
Road Cast
Road Cast Free
Establish Village
Upgrade City
Night Elf UnRoot
Establish Settlement Safety net
test walls
Developments
Development Research
Use Expansion
Use Goblin Marketing 1
Use Goblin Marketing 2
Use Quest Giver
Use Road Work
Use Motherlode 1
Use Motherlode 2
Use Motherlode 3
Lock Items
Unlock Items
Game Mechanics
Stats Window
Stats Update
Gamestate Return
Game Over
VictoryDefeat Screen
Victory Fireworks
Road Quest Ability
Road Quest Confirm
Leave/Turn Timer
Setup Leave
Setup Leave Defeat
Player Leave
Player Remove
Player Timer Expire
Votekick
AFK Return
Onyxia
Lair
You spin my whelp right round right round
Onyxia Discard 1
Onyxia Discard 2
Onyxia Ability
Onyxia Move
Onyxia Dialog End
Onyxia Steal Resources
Onyxia FYIAH
Timer Discard P1
Timer Discard P2
Timer Discard P3
Timer Discard P4
-commands
Map View
Zoom View
Clear log
payday
text
Road Quest Auto DISABLED
AutoRoad Quest Initiate
AutoRoad Quest Origin
AutoRoad Quest Origin Junction
AutoRoad Quest Loop
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.
Name Type is_array initial_value
Ability_Temp1 abilcode No
Ability_Temp2 abilcode No
Boolean_Heroes boolean No
Boolean_Houserules boolean Yes
Boolean_ItemLocked boolean No
Boolean_RoadQuest boolean No
Boolean_Temp1 boolean No
Boolean_TurnTimer boolean No
booleantestonyxia boolean No
Dialog_DiscardHalf dialog Yes
Dialog_GoblinMarketing dialog No
Dialog_HostMenu dialog No
Dialog_InlandAccept dialog No
Dialog_InlandDemand dialog No
Dialog_InlandOffer dialog No
Dialog_Motherlode dialog Yes
Dialog_Offshore dialog No
Dialog_Onyxia dialog No
DialogButton_DiscardGrains button Yes
DialogButton_DiscardLumber button Yes
DialogButton_DiscardMana button Yes
DialogButton_DiscardMeat button Yes
DialogButton_DiscardStone button Yes
DialogButton_GoblinMarketing button Yes
DialogButton_HostMenu button Yes
DialogButton_InlandAccept button Yes
DialogButton_InlandDemand button Yes
DialogButton_InlandOffer button Yes
DialogButton_Motherlode button Yes
DialogButton_Offshore button Yes
DialogButton_Onyxia button Yes
FloatingText_ResourceMarkers texttag Yes
FloatingText_RoadQuest texttag No
Ftxt_HarborCustom texttag Yes
Ftxt_Roll1 texttag No
Ftxt_Roll2 texttag No
Group_ChangingTradingPosts group No
Group_Harbor group Yes
Group_HarborCustom group Yes
Group_Lair group No
Group_ResourceMarkers group Yes
Group_RestrictedMarkers group Yes
Group_RoadBuilders group Yes
Group_RoadBuildersRestricted group Yes
Group_RoadQuestIncluded group No
Group_Settlements group Yes
Group_SettlementsSafetyNet group No
Group_Temp1 group No
Group_TradeRoute group Yes
Group_TradeRouteTemporary group No
Hashtable_Tradingposts hashtable No
Integer_BalancedLand integer Yes
Integer_CustomLandCounter integer Yes
Integer_CustomPortCounter integer Yes
Integer_CustomPortDirection integer Yes
Integer_CustomValueCounter integer Yes
Integer_Discard integer Yes
Integer_Expansions integer Yes
Integer_FirstSettlements integer No
Integer_FreeRoads integer No
Integer_Gamestate integer No
Integer_HarborDirection integer No
Integer_Heroes integer Yes
Integer_HostMenu integer No
Integer_Improvements integer Yes
Integer_InlandDemand integer Yes
Integer_InlandOffer integer Yes
Integer_Motherlode integer No
Integer_Offshore integer No
Integer_OffshorePrice integer No
Integer_OnyxiaLandNumber integer No 0
Integer_ResourceGrain integer Yes
Integer_ResourceLumber integer Yes
Integer_ResourceManaCrystals integer Yes
Integer_ResourceMeat integer Yes
Integer_ResourceStone integer Yes
Integer_RoadQuestCount integer No
Integer_RoadQuestResult integer Yes
Integer_Roll1 integer No
Integer_Roll2 integer No
Integer_Roll3 integer No
Integer_RollResult integer No
Integer_TileValueRandomizer integer Yes
Integer_ValueResourceMarker integer Yes 7
Integer_VictoryPoints integer Yes
Integer_VictoryPointsMax integer No 10
IntegerA_Temp1 integer No
IntegerA_Temp2 integer No
IntegerA_Temp3 integer No
IntegerA_Temp4 integer No
ItemType_Development itemcode Yes
ItemType_DevelopmentLocked itemcode Yes
ItemType_Temp1 itemcode No
ItemType_Temp2 itemcode No
Lightning_Roadquest lightning Yes
Multiboard_CustomLand multiboard No
Multiboard_Resources multiboard Yes
Player_Active player No
Player_HeroQuestWinner player No
Player_Host player No
Player_Inland player No
Player_RoadQuestWinner player No
Player_Setup player Yes
Player_Temp1 player No
Player_Winner player No
PlayerGroup_AFK force No
PlayerGroup_Discard force No
PlayerGroup_Harbours force Yes
PlayerGroup_LeadWinner force No
PlayerGroup_Start force No
PlayerGroup_Temp1 force No
PlayerGroup_Tradeblock force No
PlayerGroup_User force No
PlayerGroup_Votekick force Yes
Point_Onyxia location No
Point_Roll location No
Point_Temp1 location No
Point_Temp2 location No
Point_Temp3 location No
Point_Whelp location No
Real_LairAngle real Yes
Real_LairDistance real Yes
Real_OnyxiaFire real No
Real_Temp1 real No
Real_Whelp real No
Region_Ports rect Yes
Region_Tiles rect Yes
Region_Tilesets rect Yes
Sound_Hero sound No
Sound_Roll sound No
String_Colors string Yes
String_CustomBoard string No Board - |c0000FF00Premade 1 (Default)|r
String_InlandDemand string Yes
String_InlandDemandTotal string No
String_InlandOffer string Yes
String_InlandOfferTotal string No
String_Offshore string No
String_Rules string No
String_Temp1 string No
Terrain_1 terraintype No
Timer_Discard timer Yes
Timer_Fireworks timer No
Timer_GameOver timer No
Timer_SettlementSafetyNet timer No
Timer_SetupLeave timer No
Timer_Turn timer No
TimerWindow_TurnTimer timerdialog No
Unit_Capitals unit Yes
Unit_CustomResource unit Yes
Unit_Lair unit Yes
Unit_OnyxiaAttack unit No
Unit_RoadQuestInventory unit No
Unit_Temp1 unit No
Unit_Temp2 unit No
Unit_Whelp unit No
Unit_Whelppoint unit No
UnitType_Temp1 unitcode No
UnitType_Temp2 unitcode No
XBoolean_RQcountcompare boolean Yes
XBoolean_RQroad boolean No
XGroup_RQunchecked group No
XInteger_RQcount integer Yes
XInteger_RQcountcompare integer Yes
XInteger_RQjunctions integer No
XInteger_RQnetworktotal integer No
XInteger_RQoriginjunction integer No
XInteger_RQorigintotal integer Yes
XInteger_RQrecord integer No
XUnit_RQjunction unit Yes
XUnit_RQorigin unit No
XUnit_RQoriginjunction unit Yes
|c00FFFF00Grain|r
|c0000FF00Lumber|r
|c006969FFMana Crystal|r
|c00FF9696Meat|r
|c007d7d7dStone|r

|c00FFFF00G|r
|c0000FF00L|r
|c006969FFMC|r
|c00FF9696M|r
|c007d7d7dS|r
Map Initialization
Events
Map initialization
Conditions
Actions
Player Group - Pick every player in (All players) and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked player) slot status) Equal to Is playing
(Picked player) Not equal to Player 11 (Dark Green)
Then - Actions
Player Group - Add (Picked player) to PlayerGroup_User
Visibility - Create an initially Enabled visibility modifier for (Picked player) emitting Visibility across (Playable map area)
Set Variable Set IntegerA_Temp1 = "1"
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Player((Integer A))) is in PlayerGroup_User.) Equal to True
Then - Actions
Set Variable Set Player_Setup[IntegerA_Temp1] = (Player((Integer A)))
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Else - Actions
Do nothing
Set Variable Set Player_Host = Player_Setup[1]
Else - Actions
Do nothing
Game - Set the time of day to 12
Game - Set time of day speed to 25.00 % of the default speed
Unit Group - Pick every unit in (Units of type Crossroad Marker) and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to Group_RestrictedMarkers[0]
Unit - Change ownership of (Picked unit) to Neutral Passive and Change color
Unit - Hide (Picked unit)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If ((Color of (Player((Integer A)))) Equal to Red) then do (Set VariableSet String_Colors[(Integer A)] = "|c00FF0303") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Blue) then do (Set VariableSet String_Colors[(Integer A)] = "|c000042FF") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Teal) then do (Set VariableSet String_Colors[(Integer A)] = "|c001CE6B9") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Purple) then do (Set VariableSet String_Colors[(Integer A)] = "|c00540081") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Yellow) then do (Set VariableSet String_Colors[(Integer A)] = "|c00FFFC01") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Orange) then do (Set VariableSet String_Colors[(Integer A)] = "|c00fEBA0E") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Green) then do (Set VariableSet String_Colors[(Integer A)] = "|c0020C000") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Pink) then do (Set VariableSet String_Colors[(Integer A)] = "|c00E55BB0") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Gray) then do (Set VariableSet String_Colors[(Integer A)] = "|c00959697") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Light Blue) then do (Set VariableSet String_Colors[(Integer A)] = "|c007EBFF1") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Dark Green) then do (Set VariableSet String_Colors[(Integer A)] = "|c00106246") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Brown) then do (Set VariableSet String_Colors[(Integer A)] = "|c004E2A04") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Maroon) then do (Set VariableSet String_Colors[(Integer A)] = "|c009B0000") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Navy) then do (Set VariableSet String_Colors[(Integer A)] = "|c000000C3") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Turquoise) then do (Set VariableSet String_Colors[(Integer A)] = "|c0000eaff") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Violet) then do (Set VariableSet String_Colors[(Integer A)] = "|c00be00fe") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Wheat) then do (Set VariableSet String_Colors[(Integer A)] = "|c00ebcd87") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Peach) then do (Set VariableSet String_Colors[(Integer A)] = "|c00f8a48b") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Mint) then do (Set VariableSet String_Colors[(Integer A)] = "|c00bfff80") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Lavender) then do (Set VariableSet String_Colors[(Integer A)] = "|c00dcb9eb") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Coal) then do (Set VariableSet String_Colors[(Integer A)] = "|c00282828") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Snow) then do (Set VariableSet String_Colors[(Integer A)] = "|c00ebf0ff") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Emerald) then do (Set VariableSet String_Colors[(Integer A)] = "|c0000781e") else do (Do nothing)
If ((Color of (Player((Integer A)))) Equal to Peanut) then do (Set VariableSet String_Colors[(Integer A)] = "|c00a46f33") else do (Do nothing)
Unit - Change color of Onyxia 0119 <gen> to Black
Animation - Change Onyxia 0119 <gen> 's animation speed to 80.00 % of its original speed
Set Variable Set Integer_Improvements[1] = "14"
Set Variable Set Integer_Improvements[2] = "5"
Set Variable Set Integer_Improvements[3] = "2"
Set Variable Set Integer_Improvements[4] = "2"
Set Variable Set Integer_Improvements[5] = "2"
Set Variable Set ItemType_Development[1] = "I000"
Set Variable Set ItemType_Development[2] = "I004"
Set Variable Set ItemType_Development[3] = "I003"
Set Variable Set ItemType_Development[4] = "I001"
Set Variable Set ItemType_Development[5] = "I002"
Set Variable Set ItemType_DevelopmentLocked[1] = "I005"
Set Variable Set ItemType_DevelopmentLocked[2] = "I006"
Set Variable Set ItemType_DevelopmentLocked[3] = "I007"
Set Variable Set ItemType_DevelopmentLocked[4] = "I008"
Set Variable Set ItemType_DevelopmentLocked[5] = "I009"
Set Variable Set Region_Tiles[0] = Land_00 <gen>
Set Variable Set Region_Tiles[1] = Land_01 <gen>
Set Variable Set Region_Tiles[2] = Land_02 <gen>
Set Variable Set Region_Tiles[3] = Land_03 <gen>
Set Variable Set Region_Tiles[4] = Land_04 <gen>
Set Variable Set Region_Tiles[5] = Land_05 <gen>
Set Variable Set Region_Tiles[6] = Land_06 <gen>
Set Variable Set Region_Tiles[7] = Land_07 <gen>
Set Variable Set Region_Tiles[8] = Land_08 <gen>
Set Variable Set Region_Tiles[9] = Land_09 <gen>
Set Variable Set Region_Tiles[10] = Land_10 <gen>
Set Variable Set Region_Tiles[11] = Land_11 <gen>
Set Variable Set Region_Tiles[12] = Land_12 <gen>
Set Variable Set Region_Tiles[13] = Land_13 <gen>
Set Variable Set Region_Tiles[14] = Land_14 <gen>
Set Variable Set Region_Tiles[15] = Land_15 <gen>
Set Variable Set Region_Tiles[16] = Land_16 <gen>
Set Variable Set Region_Tiles[17] = Land_17 <gen>
Set Variable Set Region_Tiles[18] = Land_18 <gen>
Set Variable Set Region_Ports[1] = Port_01 <gen>
Set Variable Set Region_Ports[2] = Port_02 <gen>
Set Variable Set Region_Ports[3] = Port_03 <gen>
Set Variable Set Region_Ports[4] = Port_04 <gen>
Set Variable Set Region_Ports[5] = Port_05 <gen>
Set Variable Set Region_Ports[6] = Port_06 <gen>
Set Variable Set Region_Ports[7] = Port_07 <gen>
Set Variable Set Region_Ports[8] = Port_08 <gen>
Set Variable Set Region_Ports[9] = Port_09 <gen>
Set Variable Set Region_Ports[10] = Port_10 <gen>
Set Variable Set Region_Ports[11] = Port_11 <gen>
Set Variable Set Region_Ports[12] = Port_12 <gen>
Set Variable Set Region_Ports[13] = Port_13 <gen>
Set Variable Set Region_Ports[14] = Port_14 <gen>
Set Variable Set Region_Ports[15] = Port_15 <gen>
Set Variable Set Region_Ports[16] = Port_16 <gen>
Set Variable Set Region_Ports[17] = Port_17 <gen>
Set Variable Set Region_Ports[18] = Port_18 <gen>
Hashtable - Create a hashtable
Set Variable Set Hashtable_Tradingposts = (Last created hashtable)
Remove Summon Dummy
Events
Unit - A unit enters (Playable map area)
Conditions
(Unit-type of (Triggering unit)) Equal to Dummy Summon Remove (Level 1)
Actions
Unit - Remove (Triggering unit) from the game
|c0000eaffBiggest Raid Group|r
|c00f8a48bLongest Trade Route|r
|c00bfff80Victory Points|r

|c007d7|c00FFFF00Grain|r
|c0000FF00Lumber|r
|c006969FFMana Crystal|r
|c00FF9696Meat|r
|c007d7d7dStone|r
Quests
Events
Map initialization
Conditions
Actions
Quest - Create a Required quest titled Introduction with the description Settlers of Kalimdor is a turn-based game with the goal of amassing |c00bfff80Victory Points|r. |c00bfff80Victory Points|r are earned primarily by establishing villages and upgrading them to cities. In order to do this, you need to gather resources; |c00FFFF00Grain|r, |c0000FF00Lumber|r, |c006969FFMana Crystal|r, |c00FF9696Meat|r and |c007d7d7dStone|r. , using icon path ReplaceableTextures\CommandButtons\BTNPeon.blp
Quest - Create a Required quest titled Gathering Resources with the description Resources are gained at the start of every player's turn when they Roll for Resources. The number they roll will correspond to land tiles with the same number, which will then give payout of that land tile's specific resource to any adjacent settlement. Because the rolled number is determined by the throw of 2 dice, some land tiles have a higher rate of payout than others, with 6 and 8 being the most valuable. , using icon path ReplaceableTextures\CommandButtons\BTNReturnGoods.blp
Quest - Create a Required quest titled Trading with the description After Rolling for Resources, players may trade the resources they have for other ones; Either directly with other players, or off-shore where you may trade 4 of any one kind of resource for 1 of any other. , using icon path ReplaceableTextures\CommandButtons\BTNGLExchange.blp
Quest - Create a Required quest titled Construction with the description After Trading, the player moves on to construction. This is when you're able to build roads to expand your territory, and establish new settlements or upgrade your current ones to earn |c00bfff80Victory Points|r and increase your income. You may construct as much as you'd like in a single turn, so long as you have the resources for it. , using icon path ReplaceableTextures\CommandButtons\BTNRepair.blp
Quest - Create a Required quest titled Onyxia with the description If a player rolls a 7, instead of paying out resources, Onyxia will attack. Any player with 8 or more resources must discard half of what they own, then the active player moves Onyxia to a different land tile. That tile will stop paying out resources until Onyxia is moved again, and additionally, the active player will steal 1 random resource from a player with a settlement adjacent to that land tile. , using icon path ReplaceableTextures\CommandButtons\BTNBlackDragon.blp
Quest - Create a Required quest titled Ports with the description Players may claim Ports by establishing a settlement at a crossroads connected to the Port via one of its bridges. Ports offer better off-shore deals, either by allowing the player to trade 2 of a port-specific resource for 1 of their choice, or lower the exchange rate from 4:1 to 3:1 of all resources by claiming a general port. , using icon path ReplaceableTextures\CommandButtons\BTNMerchant.blp
Quest - Create a Optional quest titled -Commands with the description "-zoom" to zoom out the camera"-map" to give an overhead view of the entire map"-clear" to clear messages"-kick [Player name]" to vote to kick an AFK player (Only possible if turn timers are turned on) , using icon path ReplaceableTextures\CommandButtons\BTNEngineeringUpgrade.blp
Quest - Create a Optional quest titled Developments with the description During construction, players may also Research a Development. This gives the player a single-use item that provide a small benefit. In total, there are 25 available Developments to research shared between all players; 14 Quest Givers, 5 Expansions, 2 Motherlodes, 2 Road Works and 2 Goblin Marketing. , using icon path ReplaceableTextures\CommandButtons\BTNPackBeast.blp
Quest - Create a Optional quest titled Longest Trade Route with the description During Construction, players can use the "Connect Trade Route" at any of their crossroads to initiate establishing a trade route. The player with the |c00f8a48bLongest Trade Route|r over 5 earns 2 |c00bfff80Victory Points|r. Other players can disrupt the trade routes by establishing settlements along their way. , using icon path ReplaceableTextures\CommandButtons\BTNFarSight.blp
Quest - Create a Optional quest titled Biggest Raid Group with the description By using the Quest Giver, gained from Researching Developments, players may employ heroes. These let the player move Onyxia and steal a resource, just as if the player had rolled a 7. Addionally, the player with the most amount of heroes over 2 will claim |c0000eaffBiggest Raid Group|r, which earns them 2 |c00bfff80Victory Points|r. , using icon path ReplaceableTextures\CommandButtons\BTNPebble.blp
Quest - Create a Optional quest titled Credits with the description Settlers of Kalimdor is made by DrunkenDirt/AVeryShinyCoin, based on the board game Settlers of Catan by Klaus Teuber. Custom trading icons, map thumbnail image and loading screen image made by TheAddy. , using icon path ReplaceableTextures\CommandButtons\BTNSnazzyScroll.blp
Host Menu Initializing
Events
Time - Elapsed game time is 0.50 seconds
Conditions
Actions
Trigger - Run Host_Menu_Start <gen> (ignoring conditions)
Sound - Play QuestNew <gen>
Game - Display to (All players) for 30.00 seconds the text: (Please wait while + (String_Colors[(Player number of Player_Host)] + ((Name of Player_Host) + |r chooses the game settings.)))
|c00FFFF00Grain|r
|c0000FF00Lumber|r
|c006969FFMana Crystal|r
|c00FF9696Meat|r
|c007d7d7dStone|r

Integer_HostMenu
0 = Start
1 = House Rules
2 = House Rules Info
3 = Confirm End
Host Menu Start
Events
Dialog - A dialog button is clicked for Dialog_HostMenu
Conditions
(Clicked dialog button) Equal to DialogButton_HostMenu[1]
Integer_HostMenu Equal to 3
Actions
Set Variable Set Integer_HostMenu = "0"
Dialog - Clear Dialog_HostMenu
If (Integer_VictoryPointsMax Equal to 10) then do (Create a dialog button for Dialog_HostMenu labelled Victory Points - |c0000FF0010 (Default)|r) else do (Create a dialog button for Dialog_HostMenu labelled (Victory Points - + (String(Integer_VictoryPointsMax))))
Set Variable Set DialogButton_HostMenu[1] = (Last created dialog Button)
Dialog - Create a dialog button for Dialog_HostMenu labelled String_CustomBoard
Set Variable Set DialogButton_HostMenu[2] = (Last created dialog Button)
Dialog - Create a dialog button for Dialog_HostMenu labelled House Rules
Set Variable Set DialogButton_HostMenu[3] = (Last created dialog Button)
If (Boolean_TurnTimer Equal to False) then do (Create a dialog button for Dialog_HostMenu labelled Turn Timer - |c00FF0303Off|r) else do (Create a dialog button for Dialog_HostMenu labelled Turn Timer - |c0000FF00On|r)
Set Variable Set DialogButton_HostMenu[4] = (Last created dialog Button)
Dialog - Create a dialog button for Dialog_HostMenu labelled |c00bfff80Start Game|r
Set Variable Set DialogButton_HostMenu[5] = (Last created dialog Button)
Dialog - Change the title of Dialog_HostMenu to Game Setup
Dialog - Show Dialog_HostMenu for Player_Host
Host Menu Victory Points
Events
Dialog - A dialog button is clicked for Dialog_HostMenu
Conditions
(Clicked dialog button) Equal to DialogButton_HostMenu[1]
Integer_HostMenu Equal to 0
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_VictoryPointsMax Equal to 8
Then - Actions
Set Variable Set Integer_VictoryPointsMax = "10"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_VictoryPointsMax Equal to 10
Then - Actions
Set Variable Set Integer_VictoryPointsMax = "12"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_VictoryPointsMax Equal to 12
Then - Actions
Set Variable Set Integer_VictoryPointsMax = "15"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_VictoryPointsMax Equal to 15
Then - Actions
Set Variable Set Integer_VictoryPointsMax = "20"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_VictoryPointsMax Equal to 20
Then - Actions
Set Variable Set Integer_VictoryPointsMax = "8"
Else - Actions
Do nothing
Trigger - Run Host_Menu_Start <gen> (ignoring conditions)
Board - |c0000FF00Premade 1 (Default)|r
Board - |c0000FF00Premade 2|r
Board - |c00bfff80Balanced|r
Board - Random
Board - |c00fEBA0ECustom (Takes time)|r
Host Menu Board
Events
Dialog - A dialog button is clicked for Dialog_HostMenu
Conditions
(Clicked dialog button) Equal to DialogButton_HostMenu[2]
Integer_HostMenu Equal to 0
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
String_CustomBoard Equal to Board - |c0000FF00Premade 1 (Default)|r
Then - Actions
Set Variable Set String_CustomBoard = "Board - |c0000FF00Premade 2|r"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
String_CustomBoard Equal to Board - |c0000FF00Premade 2|r
Then - Actions
Set Variable Set String_CustomBoard = "Board - |c00bfff80Balanced|r"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
String_CustomBoard Equal to Board - |c00bfff80Balanced|r
Then - Actions
Set Variable Set String_CustomBoard = "Board - |c00fEBA0ECustom (Takes time)|r"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
String_CustomBoard Equal to Board - |c00fEBA0ECustom (Takes time)|r
Then - Actions
Set Variable Set String_CustomBoard = "Board - Random"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
String_CustomBoard Equal to Board - Random
Then - Actions
Set Variable Set String_CustomBoard = "Board - |c0000FF00Premade 1 (Default)|r"
Else - Actions
Trigger - Run Host_Menu_Start <gen> (ignoring conditions)
|c0000FF00On|r
|c00FF0303Off|r

1 = lead winner
2 = 2/12
Host Menu House Rules 1
Events
Dialog - A dialog button is clicked for Dialog_HostMenu
Conditions
(Clicked dialog button) Equal to DialogButton_HostMenu[3]
Or - Any (Conditions) are true
Conditions
Integer_HostMenu Equal to 0
Integer_HostMenu Equal to 2
Actions
Set Variable Set Integer_HostMenu = "1"
Dialog - Clear Dialog_HostMenu
Dialog - Create a dialog button for Dialog_HostMenu labelled |c00bfff80Information|r
Set Variable Set DialogButton_HostMenu[5] = (Last created dialog Button)
If (Boolean_Houserules[1] Equal to True) then do (Create a dialog button for Dialog_HostMenu labelled 2+12 Payout - |c0000FF00On|r) else do (Create a dialog button for Dialog_HostMenu labelled 2+12 Payout - |c00FF0303Off|r)
Set Variable Set DialogButton_HostMenu[1] = (Last created dialog Button)
If (Boolean_Houserules[2] Equal to True) then do (Create a dialog button for Dialog_HostMenu labelled Lead Winner - |c0000FF00On|r) else do (Create a dialog button for Dialog_HostMenu labelled Lead Winner - |c00FF0303Off|r)
Set Variable Set DialogButton_HostMenu[2] = (Last created dialog Button)
Dialog - Create a dialog button for Dialog_HostMenu labelled Back
Set Variable Set DialogButton_HostMenu[6] = (Last created dialog Button)
Dialog - Change the title of Dialog_HostMenu to House Rules
Dialog - Show Dialog_HostMenu for Player_Host
|c0000FF00On|r
|c00FF0303Off|r
Host Menu House Rules 2
Events
Dialog - A dialog button is clicked for Dialog_HostMenu
Conditions
(Clicked dialog button) Not equal to DialogButton_HostMenu[5]
Integer_HostMenu Equal to 1
Actions
For each (Integer A) from 1 to 2 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_HostMenu[(Integer A)]
Then - Actions
If (Boolean_Houserules[(Integer A)] Equal to True) then do (Set VariableSet Boolean_Houserules[(Integer A)] = "false") else do (Set VariableSet Boolean_Houserules[(Integer A)] = "true")
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_HostMenu[6]
Then - Actions
Trigger - Run Host_Menu_Start <gen> (ignoring conditions)
Else - Actions
Trigger - Run Host_Menu_House_Rules_1 <gen> (ignoring conditions)
Host Menu House Rules Info
Events
Dialog - A dialog button is clicked for Dialog_HostMenu
Conditions
(Clicked dialog button) Equal to DialogButton_HostMenu[5]
Integer_HostMenu Equal to 1
Actions
Dialog - Clear Dialog_HostMenu
Set Variable Set Integer_HostMenu = "2"
Dialog - Create a dialog button for Dialog_HostMenu labelled Back
Set Variable Set DialogButton_HostMenu[3] = (Last created dialog Button)
Dialog - Change the title of Dialog_HostMenu to |c00bfff802+12 Payout:|r|nRolls of 2 will also give payout|non 12-tiles and vice versa.|n|n|c00bfff80Lead Winner:|r|nWinning players need to start|ntheir turn in the lead to win.
Dialog - Show Dialog_HostMenu for Player_Host
|c0000FF00On|r
|c00FF0303Off|r
Host Menu Turn Timer
Events
Dialog - A dialog button is clicked for Dialog_HostMenu
Conditions
(Clicked dialog button) Equal to DialogButton_HostMenu[4]
Integer_HostMenu Equal to 0
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_TurnTimer Equal to True
Then - Actions
Set Variable Set Boolean_TurnTimer = "false"
Else - Actions
Set Variable Set Boolean_TurnTimer = "true"
Trigger - Run Host_Menu_Start <gen> (ignoring conditions)
Host Menu End
Events
Dialog - A dialog button is clicked for Dialog_HostMenu
Conditions
(Clicked dialog button) Equal to DialogButton_HostMenu[5]
Integer_HostMenu Equal to 0
Actions
Dialog - Clear Dialog_HostMenu
Set Variable Set Integer_HostMenu = "3"
Set Variable Set String_Temp1 = (|c00bfff80Confirm Settings:|r|nVictory Points - + ((String(Integer_VictoryPointsMax)) + (|n + (String_CustomBoard + |n))))
If (Boolean_Houserules[1] Equal to True) then do (Set VariableSet String_Temp1 = (String_Temp1 + 2+12 Payout - |c0000FF00On|r|n)) else do (Do nothing)
If (Boolean_Houserules[2] Equal to True) then do (Set VariableSet String_Temp1 = (String_Temp1 + Lead Winner - |c0000FF00On|r|n)) else do (Do nothing)
If (Boolean_TurnTimer Equal to False) then do (Set VariableSet String_Temp1 = (String_Temp1 + Turn Timer - |c00FF0303Off|r)) else do (Set VariableSet String_Temp1 = (String_Temp1 + Turn Timer - |c0000FF00On|r))
Dialog - Create a dialog button for Dialog_HostMenu labelled Back
Set Variable Set DialogButton_HostMenu[1] = (Last created dialog Button)
Dialog - Create a dialog button for Dialog_HostMenu labelled |c0000FF00Start Game|r
Set Variable Set DialogButton_HostMenu[2] = (Last created dialog Button)
Dialog - Change the title of Dialog_HostMenu to String_Temp1
Dialog - Show Dialog_HostMenu for Player_Host
Board - |c0000FF00Premade 1 (Default)|r
Board - |c0000FF00Premade 2|r
Board - |c00bfff80Balanced|r
Board - Random
Board - |c00fEBA0ECustom (Takes time)|r
Host Menu Confirm
Events
Dialog - A dialog button is clicked for Dialog_HostMenu
Conditions
(Clicked dialog button) Equal to DialogButton_HostMenu[2]
Integer_HostMenu Equal to 3
Actions
Game - Display to (All players) for 20.00 seconds the text: (|cffffcc00Victory Points|r set to + (String(Integer_VictoryPointsMax)))
Game - Display to (All players) for 20.00 seconds the text: String_CustomBoard
If (Boolean_Houserules[1] Equal to True) then do (Display to (All players) for 20.00 seconds the text: |cffffcc002+12 Payout|r turned |c0000FF00On|r) else do (Do nothing)
If (Boolean_Houserules[2] Equal to True) then do (Display to (All players) for 20.00 seconds the text: |cffffcc00Lead Winner|r turned |c0000FF00On|r) else do (Do nothing)
If (Boolean_TurnTimer Equal to True) then do (Display to (All players) for 20.00 seconds the text: |cffffcc00Turn Timers|r turned |c0000FF00On|r) else do (Display to (All players) for 20.00 seconds the text: |cffffcc00Turn Timers|r turned |c00FF0303Off|r)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
String_CustomBoard Not equal to Board - |c00fEBA0ECustom (Takes time)|r
Then - Actions
Cinematic - Fade out and back in over 4.00 seconds using texture Black Mask and color ( 0 %, 0 %, 0 %) with 0 % transparency
Wait 1.90 seconds
If (String_CustomBoard Equal to Board - |c0000FF00Premade 1 (Default)|r) then do (Run Premade_Land_Creation_1 <gen> (checking conditions)) else do (Do nothing)
If (String_CustomBoard Equal to Board - |c0000FF00Premade 2|r) then do (Run Premade_Land_Creation_2 <gen> (checking conditions)) else do (Do nothing)
If (String_CustomBoard Equal to Board - |c00bfff80Balanced|r) then do (Run Balanced_Land_Creation <gen> (checking conditions)) else do (Do nothing)
If (String_CustomBoard Equal to Board - Random) then do (Run Random_Land_Creation <gen> (checking conditions)) else do (Do nothing)
Trigger - Run Stats_Window <gen> (ignoring conditions)
Trigger - Run First_Settlement_Marker <gen> (ignoring conditions)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Camera - . Apply . gg_cam_Camera_002 for (Player((Integer A))) over 0 seconds
Else - Actions
Cinematic - Fade out and back in over 4.00 seconds using texture Black Mask and color ( 0 %, 0 %, 0 %) with 0 % transparency
Wait 1.90 seconds
Trigger - Run Custom_Land_Spawn <gen> (checking conditions)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Camera - . Apply . gg_cam_Camera_002 for (Player((Integer A))) over 0 seconds
Required for land creation:

Define which tile (Land #)
Define land value (IntegerA_Temp1 = #2-6, 8-12)
Run "Create [land land type of choice]"

Barrens & Onyxia does not require define land value
Create Onyxia first
Premade Land Creation 1
Events
Conditions
Actions
Set Variable Set Point_Temp1 = (Center of Land_00 <gen>)
Trigger - Run Create_Onyxia <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_01 <gen>)
Set Variable Set IntegerA_Temp1 = "10"
Trigger - Run Create_Manawell <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_02 <gen>)
Set Variable Set IntegerA_Temp1 = "2"
Trigger - Run Create_Field <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_03 <gen>)
Set Variable Set IntegerA_Temp1 = "9"
Trigger - Run Create_Forest <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_04 <gen>)
Set Variable Set IntegerA_Temp1 = "12"
Trigger - Run Create_Plain <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_05 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Trigger - Run Create_Mine <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_06 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Trigger - Run Create_Field <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_07 <gen>)
Set Variable Set IntegerA_Temp1 = "10"
Trigger - Run Create_Mine <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_08 <gen>)
Set Variable Set IntegerA_Temp1 = "9"
Trigger - Run Create_Plain <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_09 <gen>)
Set Variable Set IntegerA_Temp1 = "11"
Trigger - Run Create_Forest <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_10 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Trigger - Run Create_Forest <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_11 <gen>)
Set Variable Set IntegerA_Temp1 = "8"
Trigger - Run Create_Manawell <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_12 <gen>)
Set Variable Set IntegerA_Temp1 = "8"
Trigger - Run Create_Forest <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_13 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Trigger - Run Create_Manawell <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_14 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Trigger - Run Create_Plain <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_15 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Trigger - Run Create_Field <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_16 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Trigger - Run Create_Mine <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_17 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Trigger - Run Create_Plain <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_18 <gen>)
Set Variable Set IntegerA_Temp1 = "11"
Trigger - Run Create_Field <gen> (checking conditions)
-------- Ports --------
Set Variable Set Point_Temp1 = (Center of Port_01 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "4"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_03 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Set Variable Set Integer_HarborDirection = "5"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_05 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Set Variable Set Integer_HarborDirection = "5"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_07 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "6"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_09 <gen>)
Set Variable Set IntegerA_Temp1 = "1"
Set Variable Set Integer_HarborDirection = "1"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_11 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "1"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_13 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "2"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_15 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Set Variable Set Integer_HarborDirection = "3"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_17 <gen>)
Set Variable Set IntegerA_Temp1 = "2"
Set Variable Set Integer_HarborDirection = "3"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Required for land creation:

Define which tile (Land #)
Define land value (IntegerA_Temp1 = #2-6, 8-12)
Run "Create [land land type of choice]"

Barrens & Onyxia does not require define land value
Create Onyxia first


1 |c00FFFF00Grain|r
2 |c0000FF00Lumber|r
3 |c006969FFMana Crystal|r
4 |c00FF9696Meat|r
5 |c007d7d7dStone|r
6 = General

1 = 11 o' Clock
2 = 1 o' Clock
3 = 3 o' Clock
4 = 5 o' Clock
5 = 7 o' Clock
6 = 9 o' Clock
Premade Land Creation 2
Events
Conditions
Actions
Set Variable Set Point_Temp1 = (Center of Land_08 <gen>)
Trigger - Run Create_Onyxia <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_01 <gen>)
Set Variable Set IntegerA_Temp1 = "11"
Trigger - Run Create_Forest <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_02 <gen>)
Set Variable Set IntegerA_Temp1 = "12"
Trigger - Run Create_Field <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_03 <gen>)
Set Variable Set IntegerA_Temp1 = "9"
Trigger - Run Create_Plain <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_04 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Trigger - Run Create_Mine <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_05 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Trigger - Run Create_Manawell <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_06 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Trigger - Run Create_Mine <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_07 <gen>)
Set Variable Set IntegerA_Temp1 = "10"
Trigger - Run Create_Field <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_09 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Trigger - Run Create_Forest <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_00 <gen>)
Set Variable Set IntegerA_Temp1 = "11"
Trigger - Run Create_Plain <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_10 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Trigger - Run Create_Forest <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_11 <gen>)
Set Variable Set IntegerA_Temp1 = "8"
Trigger - Run Create_Plain <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_12 <gen>)
Set Variable Set IntegerA_Temp1 = "8"
Trigger - Run Create_Mine <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_13 <gen>)
Set Variable Set IntegerA_Temp1 = "10"
Trigger - Run Create_Field <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_14 <gen>)
Set Variable Set IntegerA_Temp1 = "9"
Trigger - Run Create_Field <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_15 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Trigger - Run Create_Manawell <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_16 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Trigger - Run Create_Manawell <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_17 <gen>)
Set Variable Set IntegerA_Temp1 = "2"
Trigger - Run Create_Plain <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_18 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Trigger - Run Create_Forest <gen> (checking conditions)
-------- Ports --------
Set Variable Set Point_Temp1 = (Center of Port_07 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "6"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_05 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "5"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_03 <gen>)
Set Variable Set IntegerA_Temp1 = "1"
Set Variable Set Integer_HarborDirection = "5"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_01 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "4"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_17 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Set Variable Set Integer_HarborDirection = "3"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_15 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Set Variable Set Integer_HarborDirection = "3"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_13 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "2"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_11 <gen>)
Set Variable Set IntegerA_Temp1 = "2"
Set Variable Set Integer_HarborDirection = "1"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_09 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Set Variable Set Integer_HarborDirection = "1"
Trigger - Run Spawn_Ports <gen> (checking conditions)
1 |c00FFFF00Grain|r
2 |c0000FF00Lumber|r
3 |c006969FFMana Crystal|r
4 |c00FF9696Meat|r
5 |c007d7d7dStone|r
6 = General

1 = 11 o' Clock
2 = 1 o' Clock
3 = 3 o' Clock
4 = 5 o' Clock
5 = 7 o' Clock
6 = 9 o' Clock
Balanced Land Creation
Events
Conditions
Actions
Set Variable Set Integer_BalancedLand[1] = "4"
Set Variable Set Integer_BalancedLand[2] = "4"
Set Variable Set Integer_BalancedLand[3] = "3"
Set Variable Set Integer_BalancedLand[4] = "4"
Set Variable Set Integer_BalancedLand[5] = "3"
Set Variable Set IntegerA_Temp2 = "18"
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and 2)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Equal to 1
Then - Actions
Set Variable Set Point_Temp1 = (Center of Land_00 <gen>)
Trigger - Run Create_Onyxia <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_01 <gen>)
Set Variable Set IntegerA_Temp1 = "10"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_02 <gen>)
Set Variable Set IntegerA_Temp1 = "2"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_03 <gen>)
Set Variable Set IntegerA_Temp1 = "9"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_04 <gen>)
Set Variable Set IntegerA_Temp1 = "12"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_05 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_06 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_07 <gen>)
Set Variable Set IntegerA_Temp1 = "10"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_08 <gen>)
Set Variable Set IntegerA_Temp1 = "9"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_09 <gen>)
Set Variable Set IntegerA_Temp1 = "11"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_10 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_11 <gen>)
Set Variable Set IntegerA_Temp1 = "8"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_12 <gen>)
Set Variable Set IntegerA_Temp1 = "8"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_13 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_14 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_15 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_16 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_17 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_18 <gen>)
Set Variable Set IntegerA_Temp1 = "11"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
-------- Ports --------
Set Variable Set Point_Temp1 = (Center of Port_01 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "4"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_03 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Set Variable Set Integer_HarborDirection = "5"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_05 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Set Variable Set Integer_HarborDirection = "5"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_07 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "6"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_09 <gen>)
Set Variable Set IntegerA_Temp1 = "1"
Set Variable Set Integer_HarborDirection = "1"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_11 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "1"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_13 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "2"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_15 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Set Variable Set Integer_HarborDirection = "3"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_17 <gen>)
Set Variable Set IntegerA_Temp1 = "2"
Set Variable Set Integer_HarborDirection = "3"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Else - Actions
Set Variable Set Point_Temp1 = (Center of Land_08 <gen>)
Trigger - Run Create_Onyxia <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_01 <gen>)
Set Variable Set IntegerA_Temp1 = "11"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_02 <gen>)
Set Variable Set IntegerA_Temp1 = "12"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_03 <gen>)
Set Variable Set IntegerA_Temp1 = "9"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_04 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_05 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_06 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_07 <gen>)
Set Variable Set IntegerA_Temp1 = "10"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_09 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_00 <gen>)
Set Variable Set IntegerA_Temp1 = "11"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_10 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_11 <gen>)
Set Variable Set IntegerA_Temp1 = "8"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_12 <gen>)
Set Variable Set IntegerA_Temp1 = "8"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_13 <gen>)
Set Variable Set IntegerA_Temp1 = "10"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_14 <gen>)
Set Variable Set IntegerA_Temp1 = "9"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_15 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_16 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_17 <gen>)
Set Variable Set IntegerA_Temp1 = "2"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Land_18 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Trigger - Run Balanced_Land_Terran_Select <gen> (checking conditions)
-------- Ports --------
Set Variable Set Point_Temp1 = (Center of Port_07 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "6"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_05 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "5"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_03 <gen>)
Set Variable Set IntegerA_Temp1 = "1"
Set Variable Set Integer_HarborDirection = "5"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_01 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "4"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_17 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Set Variable Set Integer_HarborDirection = "3"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_15 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Set Variable Set Integer_HarborDirection = "3"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_13 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "2"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_11 <gen>)
Set Variable Set IntegerA_Temp1 = "2"
Set Variable Set Integer_HarborDirection = "1"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_09 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Set Variable Set Integer_HarborDirection = "1"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Balanced Land Terran Select
Events
Conditions
Actions
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and IntegerA_Temp2)
Set Variable Set IntegerA_Temp2 = (IntegerA_Temp2 - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to Integer_BalancedLand[1]
Then - Actions
Set Variable Set Integer_BalancedLand[1] = (Integer_BalancedLand[1] - 1)
Trigger - Run Create_Field <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_BalancedLand[1] + (Integer_BalancedLand[2] + 0))
Then - Actions
Set Variable Set Integer_BalancedLand[2] = (Integer_BalancedLand[2] - 1)
Trigger - Run Create_Forest <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_BalancedLand[1] + (Integer_BalancedLand[2] + (Integer_BalancedLand[3] + 0)))
Then - Actions
Set Variable Set Integer_BalancedLand[3] = (Integer_BalancedLand[3] - 1)
Trigger - Run Create_Manawell <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_BalancedLand[1] + (Integer_BalancedLand[2] + (Integer_BalancedLand[3] + (Integer_BalancedLand[4] + 0))))
Then - Actions
Set Variable Set Integer_BalancedLand[4] = (Integer_BalancedLand[4] - 1)
Trigger - Run Create_Plain <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_BalancedLand[1] + (Integer_BalancedLand[2] + (Integer_BalancedLand[3] + (Integer_BalancedLand[4] + Integer_BalancedLand[5]))))
Then - Actions
Set Variable Set Integer_BalancedLand[5] = (Integer_BalancedLand[5] - 1)
Trigger - Run Create_Mine <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
Random Land Creation
Events
Conditions
Actions
Set Variable Set IntegerA_Temp2 = (Random integer number between 0 and 18)
If (IntegerA_Temp2 Equal to 0) then do (Set VariableSet Point_Temp1 = (Center of Land_00 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet Point_Temp1 = (Center of Land_01 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet Point_Temp1 = (Center of Land_02 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet Point_Temp1 = (Center of Land_03 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet Point_Temp1 = (Center of Land_04 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 5) then do (Set VariableSet Point_Temp1 = (Center of Land_05 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 6) then do (Set VariableSet Point_Temp1 = (Center of Land_06 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 7) then do (Set VariableSet Point_Temp1 = (Center of Land_07 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 8) then do (Set VariableSet Point_Temp1 = (Center of Land_08 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 9) then do (Set VariableSet Point_Temp1 = (Center of Land_09 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 10) then do (Set VariableSet Point_Temp1 = (Center of Land_10 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 11) then do (Set VariableSet Point_Temp1 = (Center of Land_11 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 12) then do (Set VariableSet Point_Temp1 = (Center of Land_12 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 13) then do (Set VariableSet Point_Temp1 = (Center of Land_13 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 14) then do (Set VariableSet Point_Temp1 = (Center of Land_14 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 15) then do (Set VariableSet Point_Temp1 = (Center of Land_15 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 16) then do (Set VariableSet Point_Temp1 = (Center of Land_16 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 17) then do (Set VariableSet Point_Temp1 = (Center of Land_17 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 18) then do (Set VariableSet Point_Temp1 = (Center of Land_18 <gen>)) else do (Do nothing)
Set Variable Set Integer_OnyxiaLandNumber = IntegerA_Temp2
Trigger - Run Create_Onyxia <gen> (checking conditions)
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Integer A) Not equal to Integer_OnyxiaLandNumber
Then - Actions
Set Variable Set IntegerA_Temp2 = (Integer A)
If (IntegerA_Temp2 Equal to 0) then do (Set VariableSet Point_Temp1 = (Center of Land_00 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet Point_Temp1 = (Center of Land_01 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet Point_Temp1 = (Center of Land_02 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet Point_Temp1 = (Center of Land_03 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet Point_Temp1 = (Center of Land_04 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 5) then do (Set VariableSet Point_Temp1 = (Center of Land_05 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 6) then do (Set VariableSet Point_Temp1 = (Center of Land_06 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 7) then do (Set VariableSet Point_Temp1 = (Center of Land_07 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 8) then do (Set VariableSet Point_Temp1 = (Center of Land_08 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 9) then do (Set VariableSet Point_Temp1 = (Center of Land_09 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 10) then do (Set VariableSet Point_Temp1 = (Center of Land_10 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 11) then do (Set VariableSet Point_Temp1 = (Center of Land_11 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 12) then do (Set VariableSet Point_Temp1 = (Center of Land_12 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 13) then do (Set VariableSet Point_Temp1 = (Center of Land_13 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 14) then do (Set VariableSet Point_Temp1 = (Center of Land_14 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 15) then do (Set VariableSet Point_Temp1 = (Center of Land_15 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 16) then do (Set VariableSet Point_Temp1 = (Center of Land_16 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 17) then do (Set VariableSet Point_Temp1 = (Center of Land_17 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 18) then do (Set VariableSet Point_Temp1 = (Center of Land_18 <gen>)) else do (Do nothing)
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and 2)
If (IntegerA_Temp3 Equal to 1) then do (Set VariableSet IntegerA_Temp1 = (Random integer number between 2 and 6)) else do (Set VariableSet IntegerA_Temp1 = (Random integer number between 8 and 12))
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and 5)
If (IntegerA_Temp3 Equal to 1) then do (Run Create_Field <gen> (checking conditions)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 2) then do (Run Create_Forest <gen> (checking conditions)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 3) then do (Run Create_Manawell <gen> (checking conditions)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 4) then do (Run Create_Mine <gen> (checking conditions)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 5) then do (Run Create_Plain <gen> (checking conditions)) else do (Do nothing)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and 2)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Equal to 1
Then - Actions
Set Variable Set Point_Temp1 = (Center of Port_01 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "4"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_03 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Set Variable Set Integer_HarborDirection = "5"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_05 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Set Variable Set Integer_HarborDirection = "5"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_07 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "6"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_09 <gen>)
Set Variable Set IntegerA_Temp1 = "1"
Set Variable Set Integer_HarborDirection = "1"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_11 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "1"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_13 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "2"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_15 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Set Variable Set Integer_HarborDirection = "3"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_17 <gen>)
Set Variable Set IntegerA_Temp1 = "2"
Set Variable Set Integer_HarborDirection = "3"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Else - Actions
Set Variable Set Point_Temp1 = (Center of Port_07 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "6"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_05 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "5"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_03 <gen>)
Set Variable Set IntegerA_Temp1 = "1"
Set Variable Set Integer_HarborDirection = "5"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_01 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "4"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_17 <gen>)
Set Variable Set IntegerA_Temp1 = "3"
Set Variable Set Integer_HarborDirection = "3"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_15 <gen>)
Set Variable Set IntegerA_Temp1 = "4"
Set Variable Set Integer_HarborDirection = "3"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_13 <gen>)
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "2"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_11 <gen>)
Set Variable Set IntegerA_Temp1 = "2"
Set Variable Set Integer_HarborDirection = "1"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_09 <gen>)
Set Variable Set IntegerA_Temp1 = "5"
Set Variable Set Integer_HarborDirection = "1"
Trigger - Run Spawn_Ports <gen> (checking conditions)
Create Field
Events
Conditions
Actions
Unit - Create 1 . Land Marker Field for Player 11 (Dark Green) at Point_Temp1 facing Default building facing degrees
Unit Group - Add (Last created unit) to Group_ResourceMarkers[IntegerA_Temp1]
Trigger - Run Create_Land_Text <gen> (checking conditions)
Set Variable Set Terrain_1 = Village - Crops
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards 123.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 192.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 64.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 344.65 towards 68.20 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.75 towards 56.31 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.00 towards 26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.00 towards -26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 36.87 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards 14.04 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards -14.04 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 411.70 towards 166.91 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 353.35 towards 145.87 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 353.70 towards 123.56 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 434.08 towards 97.61 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 408.77 towards -160.79 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 272.72 towards -175.16 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 184.17 towards 158.42 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 373.36 towards -135.11 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.37 towards -131.70 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 65.03 towards -138.90 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 430.81 towards -109.03 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 300.17 towards -95.07 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 193.98 towards -67.34 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 457.74 towards -78.63 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 375.95 towards -57.41 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 383.75 towards -35.99 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 422.03 towards -145.47 degrees.)
Unit - Create 1 . Farm Wheat for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 326.73 towards -120.33 degrees.)
Unit - Create 1 . Farm Hay Cart for Neutral Passive at Point_Temp2 facing 85.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 240.56 towards 124.50 degrees.)
Unit - Create 1 . Farm Hay for Neutral Passive at Point_Temp2 facing 264.50 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 112.88 towards 128.16 degrees.)
Unit - Create 1 . Farm Hay Clump for Neutral Passive at Point_Temp2 facing 112.93 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 48.16 towards 54.08 degrees.)
Unit - Create 1 . Farm Weed for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 364.84 towards 84.26 degrees.)
Unit - Create 1 . Farm Weed for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 136.49 towards -13.89 degrees.)
Unit - Create 1 . Forest Flower for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 251.27 towards -2.68 degrees.)
Unit - Create 1 . Plain Fence Long for Neutral Passive at Point_Temp2 facing 92.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 246.32 towards -32.82 degrees.)
Unit - Create 1 . Farm Wheelbarrow for Neutral Passive at Point_Temp2 facing 165.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 339.12 towards 25.92 degrees.)
Unit - Create 1 . Farm Wheelbarrow for Neutral Passive at Point_Temp2 facing 90.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 186.20 towards 61.10 degrees.)
Unit - Create 1 . Farm Barn for Neutral Passive at Point_Temp2 facing 176.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp1)
Create Forest
Events
Conditions
Actions
Unit - Create 1 . Land Marker Forest for Player 11 (Dark Green) at Point_Temp1 facing Default building facing degrees
Unit Group - Add (Last created unit) to Group_ResourceMarkers[IntegerA_Temp1]
Trigger - Run Create_Land_Text <gen> (checking conditions)
Set Variable Set Terrain_1 = Village - Thick Grass
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Short Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 192.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Short Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 64.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Short Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 64.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Short Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 192.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Short Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.00 towards -153.44 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Short Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.00 towards 153.44 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Short Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards -123.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Short Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 344.65 towards 68.20 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Short Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.11 towards -26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Short Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.11 towards 26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 296.22 towards -153.44 degrees.)
Destructible - Create a VTlt (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale (Random real number between 0.80 and 1.10) and variation (Random integer number between 0 and 10)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 271.53 towards 135.00 degrees.)
Destructible - Create a VTlt (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale (Random real number between 0.80 and 1.10) and variation (Random integer number between 0 and 10)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 163.11 towards -153.44 degrees.)
Destructible - Create a VTlt (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale (Random real number between 0.80 and 1.10) and variation (Random integer number between 0 and 10)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 202.39 towards 108.44 degrees.)
Destructible - Create a VTlt (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale (Random real number between 0.80 and 1.10) and variation (Random integer number between 0 and 10)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 222.39 towards -108.44 degrees.)
Destructible - Create a VTlt (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale (Random real number between 0.80 and 1.10) and variation (Random integer number between 0 and 10)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 202.39 towards 71.57 degrees.)
Destructible - Create a VTlt (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale (Random real number between 0.80 and 1.10) and variation (Random integer number between 0 and 10)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards -75.97 degrees.)
Destructible - Create a VTlt (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale (Random real number between 0.80 and 1.10) and variation (Random integer number between 0 and 10)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 286.22 towards -26.57 degrees.)
Destructible - Create a VTlt (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale (Random real number between 0.80 and 1.10) and variation (Random integer number between 0 and 10)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 0.00 towards 0.00 degrees.)
Destructible - Create a VTlt (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale 1.15 and variation 6
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 325.12 towards -126.31 degrees.)
Unit - Create 1 . Forest Stump for Neutral Passive at Point_Temp2 facing 165.80 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 219.94 towards 12.47 degrees.)
Unit - Create 1 . Forest Log for Neutral Passive at Point_Temp2 facing 315.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 223.34 towards 161.87 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 302.84 towards 30.57 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 188.64 towards -17.91 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 327.27 towards -66.12 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 340.34 towards -117.83 degrees.)
Unit - Create 1 . Forest Flower B for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 146.10 towards 129.03 degrees.)
Unit - Create 1 . Forest Flower B for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 306.79 towards -40.44 degrees.)
Unit - Create 1 . Forest Flower B for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 93.40 towards -24.85 degrees.)
Unit - Create 1 . Forest Flower for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp1)
Create Manawell
Events
Conditions
Actions
Unit - Create 1 . Land Marker Manawell for Player 11 (Dark Green) at Point_Temp1 facing Default building facing degrees
Unit Group - Add (Last created unit) to Group_ResourceMarkers[IntegerA_Temp1]
Trigger - Run Create_Land_Text <gen> (checking conditions)
Set Variable Set Terrain_1 = Felwood - Leaves
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards -165.96 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rocks using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.11 towards -153.46 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rocks using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 64.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rocks using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.11 towards -26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rocks using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards -14.04 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rocks using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 192.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rocks using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards -56.31 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rocks using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.11 towards 26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rocks using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards 123.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rocks using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards 56.31 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rocks using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards -123.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 36.87 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 344.64 towards 68.20 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 330.00 towards -126.87 degrees.)
Destructible - Create a CTtr (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale (Random real number between 0.80 and 1.10) and variation (Random integer number between 0 and 4)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 364.65 towards 111.80 degrees.)
Destructible - Create a CTtr (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale (Random real number between 0.80 and 1.10) and variation (Random integer number between 0 and 4)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 286.22 towards 63.44 degrees.)
Destructible - Create a CTtr (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale (Random real number between 0.80 and 1.10) and variation (Random integer number between 0 and 4)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 326.00 towards 11.30 degrees.)
Destructible - Create a CTtr (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale (Random real number between 0.80 and 1.10) and variation (Random integer number between 0 and 4)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 324.65 towards -26.80 degrees.)
Destructible - Create a CTtr (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale (Random real number between 0.80 and 1.10) and variation (Random integer number between 0 and 4)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 61.95 towards 115.32 degrees.)
Unit - Create 1 . Manawell Fountain for Neutral Passive at Point_Temp2 facing 270.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 190.95 towards 36.75 degrees.)
Unit - Create 1 . Manawell Crystal 1 for Neutral Passive at Point_Temp2 facing 92.43 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 169.07 towards -147.13 degrees.)
Unit - Create 1 . Manawell Crystal 2 for Neutral Passive at Point_Temp2 facing 317.66 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 211.52 towards -48.74 degrees.)
Unit - Create 1 . Manawell Crystal 2 for Neutral Passive at Point_Temp2 facing 117.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 266.09 towards 135.95 degrees.)
Unit - Create 1 . Manawell Mushroom Big for Neutral Passive at Point_Temp2 facing 30.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 330.03 towards 90.78 degrees.)
Unit - Create 1 . Manawell Vines for Neutral Passive at Point_Temp2 facing 250.91 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 192.00 towards 2.91 degrees.)
Unit - Create 1 . Manawell Vines for Neutral Passive at Point_Temp2 facing 92.43 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 361.77 towards -144.90 degrees.)
Unit - Create 1 . Manawell Vines for Neutral Passive at Point_Temp2 facing 38.30 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 281.56 towards -98.79 degrees.)
Unit - Create 1 . Manawell Mushroom 1 for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 362.73 towards -115.74 degrees.)
Unit - Create 1 . Manawell Mushroom 1 for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 259.50 towards -167.14 degrees.)
Unit - Create 1 . Manawell Mushroom 1 for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 254.66 towards -17.78 degrees.)
Unit - Create 1 . Manawell Mushroom 2 for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 277.35 towards -84.36 degrees.)
Unit - Create 1 . Manawell Mushroom 2 for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 357.13 towards -81.83 degrees.)
Unit - Create 1 . Manawell Mushroom 2 for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 217.34 towards 179.01 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 166.86 towards -93.78 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 336.33 towards -38.15 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 344.00 towards 40.90 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp1)
Create Mine
Events
Conditions
Actions
Unit - Create 1 . Land Marker Mine for Player 11 (Dark Green) at Point_Temp1 facing Default building facing degrees
Unit Group - Add (Last created unit) to Group_ResourceMarkers[IntegerA_Temp1]
Trigger - Run Create_Land_Text <gen> (checking conditions)
Set Variable Set Terrain_1 = Village - Rocks
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 64.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.00 towards -153.44 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards -123.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards -56.31 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 153.70 towards 49.29 degrees.)
Unit - Create 1 . Mine Entrance for Neutral Passive at Point_Temp2 facing 270.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 271.56 towards 53.57 degrees.)
Unit - Create 1 . Mine Rocks Big for Neutral Passive at Point_Temp2 facing 181.14 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 96.86 towards -2.66 degrees.)
Unit - Create 1 . Mine Rocks Big for Neutral Passive at Point_Temp2 facing 30.87 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 248.69 towards -23.96 degrees.)
Unit - Create 1 . Mine Rocks Big for Neutral Passive at Point_Temp2 facing 110.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 289.26 towards -95.85 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 276.56 towards -47.46 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 349.71 towards 38.62 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 339.60 towards 81.36 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 294.64 towards -6.04 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 264.03 towards 179.13 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 98.10 towards 114.87 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 331.73 towards 161.46 degrees.)
Unit - Create 1 . Forest Flower for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 359.99 towards -87.01 degrees.)
Unit - Create 1 . Forest Flower for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 316.94 towards -59.31 degrees.)
Unit - Create 1 . Forest Flower for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 77.25 towards 179.44 degrees.)
Unit - Create 1 . Forest Flower B for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 127.45 towards 170.63 degrees.)
Unit - Create 1 . Mine Crate 2 for Neutral Passive at Point_Temp2 facing 2.56 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 308.09 towards -69.73 degrees.)
Unit - Create 1 . Mine Crate 2 for Neutral Passive at Point_Temp2 facing 317.86 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 245.49 towards -164.89 degrees.)
Unit - Create 1 . Mine Crate 1 for Neutral Passive at Point_Temp2 facing 274.70 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 274.14 towards 169.17 degrees.)
Unit - Create 1 . Mine Rocks Small for Neutral Passive at Point_Temp2 facing 300.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 217.22 towards -172.79 degrees.)
Unit - Create 1 . Mine Rocks Small for Neutral Passive at Point_Temp2 facing 20.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 277.14 towards -83.32 degrees.)
Unit - Create 1 . Mine Rocks Small for Neutral Passive at Point_Temp2 facing 210.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 285.28 towards 0.80 degrees.)
Unit - Create 1 . Mine Rocks Small for Neutral Passive at Point_Temp2 facing 39.07 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 174.57 towards -20.98 degrees.)
Unit - Create 1 . Mine Rocks Chunk 1 for Neutral Passive at Point_Temp2 facing 180.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 266.91 towards 25.70 degrees.)
Unit - Create 1 . Mine Rocks Chunk 1 for Neutral Passive at Point_Temp2 facing 323.99 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 220.82 towards 145.05 degrees.)
Unit - Create 1 . Mine Rocks Chunk 1 for Neutral Passive at Point_Temp2 facing 200.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 192.88 towards -75.82 degrees.)
Unit - Create 1 . Mine Rocks Chunk 2 for Neutral Passive at Point_Temp2 facing 29.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 244.71 towards 100.95 degrees.)
Unit - Create 1 . Mine Rocks Chunk 2 for Neutral Passive at Point_Temp2 facing 280.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 116.66 towards -125.05 degrees.)
Unit - Create 1 . Mine Cart for Neutral Passive at Point_Temp2 facing 350.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 316.76 towards -114.93 degrees.)
Unit - Create 1 . Mine Cart for Neutral Passive at Point_Temp2 facing 90.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp1)
Create Plain
Events
Conditions
Actions
Unit - Create 1 . Land Marker Plain for Player 11 (Dark Green) at Point_Temp1 facing Default building facing degrees
Unit Group - Add (Last created unit) to Group_ResourceMarkers[IntegerA_Temp1]
Trigger - Run Create_Land_Text <gen> (checking conditions)
Set Variable Set Terrain_1 = Village - Short Grass
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Thick Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards -165.96 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Thick Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards 165.96 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Thick Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 344.65 towards 111.80 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Thick Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 143.12 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Thick Grass using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 64.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 64.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.00 towards -26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 192.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.00 towards -153.44 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 322.44 towards 88.05 degrees.)
Unit - Create 1 . Plain Fence Short for Neutral Passive at Point_Temp2 facing 45.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 285.85 towards 175.59 degrees.)
Unit - Create 1 . Plain Fence Short for Neutral Passive at Point_Temp2 facing 135.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 277.52 towards 130.30 degrees.)
Unit - Create 1 . Plain Fence Long for Neutral Passive at Point_Temp2 facing 90.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 254.43 towards -133.93 degrees.)
Unit - Create 1 . Plain Fence Long for Neutral Passive at Point_Temp2 facing 0.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 298.23 towards -75.14 degrees.)
Unit - Create 1 . Plain Fence Long for Neutral Passive at Point_Temp2 facing 45.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 246.87 towards -28.36 degrees.)
Unit - Create 1 . Plain Fence Long for Neutral Passive at Point_Temp2 facing 135.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 242.07 towards 47.51 degrees.)
Unit - Create 1 . Plain Pig Farm for Neutral Passive at Point_Temp2 facing 210.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 191.52 towards -116.43 degrees.)
Unit - Create 1 . Plain Trough for Neutral Passive at Point_Temp2 facing 90.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 346.27 towards -133.36 degrees.)
Unit - Create 1 . Plain Well for Neutral Passive at Point_Temp2 facing 270.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 336.70 towards -82.41 degrees.)
Unit - Create 1 . Farm Wheelbarrow for Neutral Passive at Point_Temp2 facing 140.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 306.39 towards -23.72 degrees.)
Unit - Create 1 . Mine Crate 1 for Neutral Passive at Point_Temp2 facing 20.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 281.46 towards 9.92 degrees.)
Unit - Create 1 . Farm Hay Clump for Neutral Passive at Point_Temp2 facing 30.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 337.22 towards -46.41 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 335.62 towards -60.55 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 319.57 towards 154.22 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 345.28 towards 101.78 degrees.)
Unit - Create 1 . Forest Flower for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 45.15 towards 127.12 degrees.)
Unit - Create 1 . Plain Pig Big for Neutral Passive at Point_Temp2 facing 121.50 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 190.27 towards -176.99 degrees.)
Unit - Create 1 . Plain Pig Big for Neutral Passive at Point_Temp2 facing 345.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 157.83 towards -59.33 degrees.)
Unit - Create 1 . Plain Pig Smol for Neutral Passive at Point_Temp2 facing 260.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 177.62 towards 119.89 degrees.)
Unit - Create 1 . Plain Pig Smol for Neutral Passive at Point_Temp2 facing 29.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 315.52 towards -26.14 degrees.)
Unit - Create 1 . Plain Flower for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 285.22 towards 82.85 degrees.)
Unit - Create 1 . Plain Flower for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 303.16 towards -163.72 degrees.)
Unit - Create 1 . Plain Flower for Neutral Passive at Point_Temp2 facing (Random angle) degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp1)
Create Barrens
Events
Conditions
Actions
Unit - Create 1 . Land Marker Barrens for Player 11 (Dark Green) at Point_Temp1 facing Default building facing degrees
Unit Group - Add (Last created unit) to Group_ResourceMarkers[0]
Set Variable Set Terrain_1 = Barrens - Grassy Dirt
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards 165.96 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards -165.96 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards -143.13 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards 123.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.11 towards 153.43 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.11 towards -153.43 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards -123.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 344.65 towards -111.82 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 64.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 192.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 344.65 towards 68.20 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards 56.31 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards -56.31 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 344.65 towards -68.20 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 36.87 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards -14.04 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards -36.87 degrees.)
Environment - Change terrain type at Point_Temp2 to Barrens - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 228.54 towards 146.02 degrees.)
Unit - Create 1 . Barrens Skull for Neutral Passive at Point_Temp2 facing 16.11 degrees
Unit - Create 1 . Barrens Flies for Neutral Passive at Point_Temp2 facing 270.00 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 166.82 towards -142.86 degrees.)
Unit - Create 1 . Barrens Firepit for Neutral Passive at Point_Temp2 facing 116.50 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 273.43 towards -61.37 degrees.)
Unit - Create 1 . Barrens Bones for Neutral Passive at Point_Temp2 facing 253.80 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 179.61 towards -9.78 degrees.)
Unit - Create 1 . Barrens Totem for Neutral Passive at Point_Temp2 facing 271.16 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 226.42 towards 64.14 degrees.)
Unit - Create 1 . Barrens Flower for Neutral Passive at Point_Temp2 facing 13.69 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 210.76 towards 113.69 degrees.)
Destructible - Create a BTtw (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale 1 and variation 4
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 153.11 towards 26.57 degrees.)
Destructible - Create a BTtw (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale 1 and variation 5
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp1)
Cargo:
A: B: C: D:
78.59 125.83 225.46 237.96
-13.2 -87.95 -24.29 -54.4
89.92 109.82 262.80 285.07

Hashtable:
n= loop integer 1 to 4
n+0 = location
n+4 = facing angle
n+8 = unit
13 = resource type
14 = merc camp unit
15 = marketplace unit
Create Trading Post
Events
Conditions
Actions
Unit - Create 1 . Land Marker Tradingpost for Player 11 (Dark Green) at Point_Temp1 facing Default building facing degrees
Unit Group - Add (Last created unit) to Group_ResourceMarkers[IntegerA_Temp1]
Unit Group - Add (Last created unit) to Group_ChangingTradingPosts
Hashtable - Save Handle Of (Point_Temp1 offset by 78.59 towards -13.20 degrees.) as 1 of (Key (Last created unit).) in Hashtable_Tradingposts .
Hashtable - Save Handle Of (Point_Temp1 offset by 125.83 towards -87.95 degrees.) as 2 of (Key (Last created unit).) in Hashtable_Tradingposts .
Hashtable - Save Handle Of (Point_Temp1 offset by 225.46 towards -24.29 degrees.) as 3 of (Key (Last created unit).) in Hashtable_Tradingposts .
Hashtable - Save Handle Of (Point_Temp1 offset by 237.96 towards -54.40 degrees.) as 4 of (Key (Last created unit).) in Hashtable_Tradingposts .
Hashtable - Save 89.92 as 5 of (Key (Last created unit).) in Hashtable_Tradingposts .
Hashtable - Save 109.82 as 6 of (Key (Last created unit).) in Hashtable_Tradingposts .
Hashtable - Save 262.80 as 7 of (Key (Last created unit).) in Hashtable_Tradingposts .
Hashtable - Save 285.07 as 8 of (Key (Last created unit).) in Hashtable_Tradingposts .
Set Variable Set IntegerA_Temp4 = (Key (Last created unit).)
Trigger - Run Create_Land_Text <gen> (checking conditions)
Set Variable Set Terrain_1 = Sunken Ruins - Sand
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 64.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 2 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 192.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.75 towards -56.30 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards 14.03 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 36.87 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards -14.03 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 344.65 towards -111.80 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards 165.96 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 344.65 towards 111.80 degrees.)
Environment - Change terrain type at Point_Temp2 to Village - Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.75 towards -123.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Sunken Ruins - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards -143.13 degrees.)
Environment - Change terrain type at Point_Temp2 to Sunken Ruins - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 143.13 degrees.)
Environment - Change terrain type at Point_Temp2 to Sunken Ruins - Grassy Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards -36.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Sunken Ruins - Grassy Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 336.65 towards -68.19 degrees.)
Environment - Change terrain type at Point_Temp2 to Sunken Ruins - Grassy Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 289.25 towards 89.80 degrees.)
Unit - Create 1 . Trading Post Tent for Neutral Passive at Point_Temp2 facing 303.46 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 289.62 towards 136.18 degrees.)
Unit - Create 1 . Trading Post Tent for Neutral Passive at Point_Temp2 facing 9.09 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 82.47 towards 137.70 degrees.)
Unit - Create 1 . Trading Post Table for Neutral Passive at Point_Temp2 facing 335.04 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 300.48 towards 162.77 degrees.)
Unit - Create 1 . Trading Post Kodo for Neutral Passive at Point_Temp2 facing 343.46 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 257.11 towards 34.06 degrees.)
Unit - Create 1 . Trading Post Merc Camp for Neutral Passive at Point_Temp2 facing 287.09 degrees
Hashtable - Save Handle Of (Last created unit) as 14 of IntegerA_Temp4 in Hashtable_Tradingposts .
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 236.59 towards -136.37 degrees.)
Unit - Create 1 . Trading Post Market for Neutral Passive at Point_Temp2 facing 270.00 degrees
Hashtable - Save Handle Of (Last created unit) as 15 of IntegerA_Temp4 in Hashtable_Tradingposts .
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 267.26 towards -100.08 degrees.)
Unit - Create 1 . Trading Post Fence for Neutral Passive at Point_Temp2 facing 350.06 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 319.80 towards -107.90 degrees.)
Unit - Create 1 . Trading Post Fence for Neutral Passive at Point_Temp2 facing 350.06 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 328.25 towards -86.80 degrees.)
Unit - Create 1 . Trading Post Pack Horse for Neutral Passive at Point_Temp2 facing 134.09 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 383.05 towards -96.93 degrees.)
Unit - Create 1 . Trading Post Pack Horse for Neutral Passive at Point_Temp2 facing 127.33 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 303.17 towards 73.37 degrees.)
Unit - Create 1 . Forest Flower for Neutral Passive at Point_Temp2 facing 214.30 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 375.95 towards -72.98 degrees.)
Unit - Create 1 . Forest Flower for Neutral Passive at Point_Temp2 facing 214.30 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 237.59 towards 62.89 degrees.)
Unit - Create 1 . Cargo General for Neutral Passive at Point_Temp2 facing 158.73 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.70 towards -48.38 degrees.)
Unit - Create 1 . Plain Fence Long for Neutral Passive at Point_Temp2 facing 91.63 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 335.89 towards -44.39 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing 50.35 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 323.70 towards 109.96 degrees.)
Unit - Create 1 . Plain Shrub for Neutral Passive at Point_Temp2 facing 323.70 degrees
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp1)
Create Onyxia
Events
Player - Player 1 (Red) types a chat message containing dragon (Unexpected type: 'stringnoformat') as An exact match
Conditions
Actions
Destructible - Pick every destructible in (Playable map area) and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Destructible-type of (Picked destructible)) Equal to NTtw (Unexpected type: 'destructablecode')
Then - Actions
Destructible - Remove (Picked destructible)
Else - Actions
Do nothing
Region - Center Land_Lair <gen> on Point_Temp1
Set Variable Set Point_Onyxia = Point_Temp1
Set Variable Set Terrain_1 = Village - Dirt
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Set Variable Set Terrain_1 = Village - Dirt
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.00 towards -26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Dungeon - Grey Stones using variation -1 in an area of size 2 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 143.11 towards 153.44 degrees.)
Environment - Change terrain type at Point_Temp2 to Outland - Rough Dirt using variation -1 in an area of size 2 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 344.65 towards 111.80 degrees.)
Environment - Change terrain type at Point_Temp2 to Dungeon - Grey Stones using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dungeon - Grey Stones using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 344.65 towards 68.20 degrees.)
Environment - Change terrain type at Point_Temp2 to Dungeon - Grey Stones using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards 56.31 degrees.)
Environment - Change terrain type at Point_Temp2 to Dungeon - Grey Stones using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 64.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dungeon - Grey Stones using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 230.76 towards -123.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Dungeon - Grey Stones using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards -165.96 degrees.)
Environment - Change terrain type at Point_Temp2 to Dungeon - Grey Stones using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 64.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Outland - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards -143.13 degrees.)
Environment - Change terrain type at Point_Temp2 to Outland - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 374.55 towards -109.98 degrees.)
Environment - Change terrain type at Point_Temp2 to Outland - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 352.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Outland - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 374.55 towards -70.02 degrees.)
Environment - Change terrain type at Point_Temp2 to Outland - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 340.17 towards -41.19 degrees.)
Environment - Change terrain type at Point_Temp2 to Outland - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 36.87 degrees.)
Environment - Change terrain type at Point_Temp2 to Outland - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 362.04 towards -135.00 degrees.)
Destructible - Create a NTtw (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale 1 and variation (Random integer number between 0 and 9)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 404.77 towards -108.36 degrees.)
Destructible - Create a NTtw (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale 1 and variation (Random integer number between 0 and 9)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 373.19 towards 30.96 degrees.)
Destructible - Create a NTtw (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale 1 and variation (Random integer number between 0 and 9)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 384.00 towards 0.00 degrees.)
Destructible - Create a NTtw (Unexpected type: 'destructablecode') at Point_Temp2 facing (Random angle) with scale 1 and variation (Random integer number between 0 and 9)
Custom script: call RemoveLocation (udg_Point_Temp2)
For each (Integer A) from 1 to 58 , do (Actions)
Loop - Actions
Set Variable Set Point_Temp2 = (Point_Temp1 offset by Real_LairDistance[(Integer A)] towards Real_LairAngle[(Integer A)] degrees.)
Unit - Move Unit_Lair[(Integer A)] instantly to Point_Temp2
Custom script: call RemoveLocation (udg_Point_Temp2)
Change Base Tilseset
Events
Conditions
Actions
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 48.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Terrain_1 using variation -1 in an area of size 3 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 48.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Terrain_1 using variation -1 in an area of size 3 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Terrain_1 using variation -1 in an area of size 2 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Terrain_1 using variation -1 in an area of size 2 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards -165.96 degrees.)
Environment - Change terrain type at Point_Temp2 to Terrain_1 using variation -1 in an area of size 2 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 263.88 towards -14.04 degrees.)
Environment - Change terrain type at Point_Temp2 to Terrain_1 using variation -1 in an area of size 2 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 429.31 towards 153.44 degrees.)
Environment - Change terrain type at Point_Temp2 to Terrain_1 using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 429.31 towards 28.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Terrain_1 using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
7 = Random
Create Land Text
Events
Conditions
Actions
If (IntegerA_Temp1 Equal to 3) then do (Create floating text that reads (String(IntegerA_Temp1)) at (Point_Temp1 offset by (-50.00, -50.00)) with Z offset 0, using font size 17.00, color (100.00%, 100.00%, 100.00%), and 0.00% transparency) else do (Do nothing)
If (IntegerA_Temp1 Equal to 4) then do (Create floating text that reads (String(IntegerA_Temp1)) at (Point_Temp1 offset by (-50.00, -50.00)) with Z offset 0, using font size 20.00, color (100.00%, 100.00%, 100.00%), and 0.00% transparency) else do (Do nothing)
If (IntegerA_Temp1 Equal to 5) then do (Create floating text that reads (String(IntegerA_Temp1)) at (Point_Temp1 offset by (-50.00, -50.00)) with Z offset 0, using font size 23.00, color (100.00%, 50.00%, 50.00%), and 0.00% transparency) else do (Do nothing)
If (IntegerA_Temp1 Equal to 6) then do (Create floating text that reads (String(IntegerA_Temp1)) at (Point_Temp1 offset by (-50.00, -50.00)) with Z offset 0, using font size 26.00, color (100.00%, 0.00%, 0.00%), and 0.00% transparency) else do (Do nothing)
If (IntegerA_Temp1 Equal to 11) then do (Create floating text that reads (String(IntegerA_Temp1)) at (Point_Temp1 offset by (-50.00, -50.00)) with Z offset 0, using font size 17.00, color (100.00%, 100.00%, 100.00%), and 0.00% transparency) else do (Do nothing)
If (IntegerA_Temp1 Equal to 10) then do (Create floating text that reads (String(IntegerA_Temp1)) at (Point_Temp1 offset by (-50.00, -50.00)) with Z offset 0, using font size 20.00, color (100.00%, 100.00%, 100.00%), and 0.00% transparency) else do (Do nothing)
If (IntegerA_Temp1 Equal to 9) then do (Create floating text that reads (String(IntegerA_Temp1)) at (Point_Temp1 offset by (-50.00, -50.00)) with Z offset 0, using font size 23.00, color (100.00%, 50.00%, 50.00%), and 0.00% transparency) else do (Do nothing)
If (IntegerA_Temp1 Equal to 8) then do (Create floating text that reads (String(IntegerA_Temp1)) at (Point_Temp1 offset by (-50.00, -50.00)) with Z offset 0, using font size 26.00, color (100.00%, 0.00%, 0.00%), and 0.00% transparency) else do (Do nothing)
If (IntegerA_Temp1 Equal to 7) then do (Create floating text that reads Random|n value at (Point_Temp1 offset by (-50.00, -50.00)) with Z offset 0, using font size 9.00, color (100%, 100%, 100%), and 0% transparency) else do (Do nothing)
-------- Check if houserule 1 (2+12 payout) is active --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to 2
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_Houserules[1] Equal to True
Then - Actions
Floating Text - Create floating text that reads 2+12 at (Point_Temp1 offset by (-50.00, -50.00)) with Z offset 0 , using font size 14.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Else - Actions
Floating Text - Create floating text that reads (String(IntegerA_Temp1)) at (Point_Temp1 offset by (-50.00, -50.00)) with Z offset 0 , using font size 14.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to 12
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_Houserules[1] Equal to True
Then - Actions
Floating Text - Create floating text that reads 2+12 at (Point_Temp1 offset by (-50.00, -50.00)) with Z offset 0 , using font size 14.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Else - Actions
Floating Text - Create floating text that reads (String(IntegerA_Temp1)) at (Point_Temp1 offset by (-50.00, -50.00)) with Z offset 0 , using font size 14.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Else - Actions
Do nothing
For each (Integer B) from 1 to 18 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Region_Tiles[(Integer B)] contains Point_Temp1) Equal to True
Then - Actions
Set Variable Set FloatingText_ResourceMarkers[(Integer B)] = (Last created floating text)
Set Variable Set Integer_ValueResourceMarker[(Integer B)] = IntegerA_Temp1
Else - Actions
Do nothing
1 = 11 o' Clock
2 = 1 o' Clock
3 = 3 o' Clock
4 = 5 o' Clock
5 = 7 o' Clock
6 = 9 o' Clock
Custom Land Spawn
Events
Conditions
Actions
Set Variable Set Point_Temp1 = (Position of Crossroad Marker 0033 <gen>)
Unit - Create 1 . Big Red Shiny Button for Player_Host at Point_Temp1 facing Default building facing degrees
Custom script: call RemoveLocation (udg_Point_Temp1)
Set Variable Set IntegerA_Temp1 = "7"
Set Variable Set Point_Temp1 = (Center of Land_00 <gen>)
Trigger - Run Create_Onyxia <gen> (checking conditions)
For each (Integer A) from 1 to 18 , do (Actions)
Loop - Actions
Set Variable Set Point_Temp1 = (Center of Region_Tiles[(Integer A)])
Unit - Create 1 . Land: Random (Custom Land) for Player_Host at Point_Temp1 facing Default building facing degrees
Set Variable Set Unit_CustomResource[(Integer A)] = (Last created unit)
Trigger - Run Create_Land_Text <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
-------- Ports --------
Set Variable Set IntegerA_Temp1 = "0"
Set Variable Set Point_Temp1 = (Center of Port_01 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "4"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_02 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "4"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_03 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "4"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_04 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "5"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_05 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "5"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_06 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "5"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_07 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "6"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_08 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "1"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_09 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "1"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_10 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "1"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_11 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "1"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_12 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "1"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_13 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "2"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_14 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "2"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_15 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "2"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_16 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "3"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_17 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "3"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Set Variable Set Point_Temp1 = (Center of Port_18 <gen>)
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set Integer_HarborDirection = "3"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp1] = Integer_HarborDirection
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Multiboard - Create a multiboard with 11 columns and 9 rows, titled Custom Map .
Set Variable Set Multiboard_CustomLand = (Last created multiboard)
Multiboard - Set the width for (Last created multiboard) item in column 0 , row 0 to 1.50 % of the total screen width
Multiboard - Set the display style for (Last created multiboard) item in column 0 , row 1 to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 0 , row 2 to Hide text and Show icons
Multiboard - Set the display style for (Last created multiboard) item in column 0 , row 3 to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 0 , row 4 to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 0 , row 5 to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 0 , row 6 to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 0 , row 7 to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 0 , row 8 to Hide text and Show icons
Multiboard - Set the display style for (Last created multiboard) item in column 0 , row 9 to Show text and Hide icons
For each (Integer A) from 9 to 11 , do (Actions)
Loop - Actions
Multiboard - Set the display style for (Last created multiboard) item in column (Integer A) , row 2 to Hide text and Hide icons
For each (Integer A) from 7 to 11 , do (Actions)
Loop - Actions
Multiboard - Set the display style for (Last created multiboard) item in column (Integer A) , row 8 to Hide text and Hide icons
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
Multiboard - Set the display style for (Last created multiboard) item in column (Integer A) , row 9 to Show text and Hide icons
Multiboard - Set the text for (Last created multiboard) item in column 6 , row 1 to Lands
Multiboard - Set the width for (Last created multiboard) item in column 6 , row 1 to 3.00 % of the total screen width
Multiboard - Set the width for (Last created multiboard) item in column 7 , row 1 to 0.00 % of the total screen width
Multiboard - Set the text for (Last created multiboard) item in column 6 , row 4 to Values
Multiboard - Set the width for (Last created multiboard) item in column 6 , row 4 to 3.00 % of the total screen width
Multiboard - Set the width for (Last created multiboard) item in column 7 , row 4 to 0.00 % of the total screen width
Multiboard - Set the text for (Last created multiboard) item in column 6 , row 7 to Ports
Multiboard - Set the width for (Last created multiboard) item in column 6 , row 7 to 3.00 % of the total screen width
Multiboard - Set the width for (Last created multiboard) item in column 7 , row 7 to 0.00 % of the total screen width
Multiboard - Set the icon for (Last created multiboard) item in column 1 , row 2 to ReplaceableTextures\CommandButtons\BTN_Grain.blp
Multiboard - Set the icon for (Last created multiboard) item in column 2 , row 2 to ReplaceableTextures\CommandButtons\BTNOrcLumberUpgradeTwo.blp
Multiboard - Set the icon for (Last created multiboard) item in column 3 , row 2 to ReplaceableTextures\CommandButtons\BTNMoonStone.blp
Multiboard - Set the icon for (Last created multiboard) item in column 4 , row 2 to ReplaceableTextures\CommandButtons\BTN_Meat.blp
Multiboard - Set the icon for (Last created multiboard) item in column 5 , row 2 to ReplaceableTextures\CommandButtons\BTN_Stone.blp
Multiboard - Set the icon for (Last created multiboard) item in column 6 , row 2 to ReplaceableTextures\CommandButtons\BTNDisenchant.blp
Multiboard - Set the icon for (Last created multiboard) item in column 7 , row 2 to ReplaceableTextures\CommandButtons\BTNBlackMarket.blp
Multiboard - Set the icon for (Last created multiboard) item in column 8 , row 2 to ReplaceableTextures\CommandButtons\BTNSelectHeroOn.blp
Multiboard - Show (Last created multiboard)
Multiboard - Set the text for (Last created multiboard) item in column 1 , row 5 to 2
Multiboard - Set the text for (Last created multiboard) item in column 2 , row 5 to 3
Multiboard - Set the text for (Last created multiboard) item in column 3 , row 5 to 4
Multiboard - Set the text for (Last created multiboard) item in column 4 , row 5 to 5
Multiboard - Set the text for (Last created multiboard) item in column 5 , row 5 to 6
Multiboard - Set the text for (Last created multiboard) item in column 6 , row 5 to 8
Multiboard - Set the text for (Last created multiboard) item in column 7 , row 5 to 9
Multiboard - Set the text for (Last created multiboard) item in column 8 , row 5 to 10
Multiboard - Set the text for (Last created multiboard) item in column 9 , row 5 to 11
Multiboard - Set the text for (Last created multiboard) item in column 10 , row 5 to 12
Multiboard - Set the text for (Last created multiboard) item in column 11 , row 5 to ?
Multiboard - Set the color for (Last created multiboard) item in column 5 , row 5 to ( 100 %, 0.00 %, 0.00 %) with 0 % transparency
Multiboard - Set the color for (Last created multiboard) item in column 6 , row 5 to ( 100 %, 0.00 %, 0.00 %) with 0 % transparency
Multiboard - Set the color for (Last created multiboard) item in column 4 , row 5 to ( 100 %, 50.00 %, 50.00 %) with 0 % transparency
Multiboard - Set the color for (Last created multiboard) item in column 7 , row 5 to ( 100 %, 50.00 %, 50.00 %) with 0 % transparency
Multiboard - Set the icon for (Last created multiboard) item in column 1 , row 8 to ReplaceableTextures\CommandButtons\BTN_Grain.blp
Multiboard - Set the icon for (Last created multiboard) item in column 2 , row 8 to ReplaceableTextures\CommandButtons\BTNOrcLumberUpgradeTwo.blp
Multiboard - Set the icon for (Last created multiboard) item in column 3 , row 8 to ReplaceableTextures\CommandButtons\BTNMoonStone.blp
Multiboard - Set the icon for (Last created multiboard) item in column 4 , row 8 to ReplaceableTextures\CommandButtons\BTN_Meat.blp
Multiboard - Set the icon for (Last created multiboard) item in column 5 , row 8 to ReplaceableTextures\CommandButtons\BTN_Stone.blp
Multiboard - Set the icon for (Last created multiboard) item in column 6 , row 8 to ReplaceableTextures\CommandButtons\BTNBox.blp
Set Variable Set Integer_CustomLandCounter[8] = "18"
Trigger - Run Update_Table_Land <gen> (checking conditions)
Trigger - Run Update_Table_Value <gen> (checking conditions)
Trigger - Run Update_Table_Port <gen> (checking conditions)
Custom Land Change Grain
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Custom Land: Grain NEW
Actions
Unit - Remove Custom Land: Barrens NEW from (Triggering unit)
Unit - Remove Custom Land: Lair NEW from (Triggering unit)
Unit - Remove Custom Land: Lumber NEW from (Triggering unit)
Unit - Remove Custom Land: Mana Crystal NEW from (Triggering unit)
Unit - Remove Custom Land: Meat NEW from (Triggering unit)
Unit - Remove Custom Land: Random NEW from (Triggering unit)
Unit - Remove Custom Land: Stone NEW from (Triggering unit)
Unit - Remove Custom Land: Trading Post NEW from (Triggering unit)
Set Variable Set Integer_CustomLandCounter[1] = (Integer_CustomLandCounter[1] + 1)
If ((Unit-type of (Triggering unit)) Equal to Land: Forest (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[2] = (Integer_CustomLandCounter[2] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Manawell (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[3] = (Integer_CustomLandCounter[3] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Plains (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[4] = (Integer_CustomLandCounter[4] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Mine (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[5] = (Integer_CustomLandCounter[5] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Barrens (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[6] = (Integer_CustomLandCounter[6] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Trading Post (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[7] = (Integer_CustomLandCounter[7] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Random (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[8] = (Integer_CustomLandCounter[8] - 1)) else do (Do nothing)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If ((Triggering unit) Equal to Unit_CustomResource[(Integer A)]) then do (Set VariableSet IntegerA_Temp1 = (Integer A)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Unit - Remove (Triggering unit) from the game
Unit - Create 1 . Land: Field (Custom Land) for Player_Host at Point_Temp1 facing Default building facing degrees
Set Variable Set Terrain_1 = Village - Crops
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Last created unit) to selection for (Picked player))
Set Variable Set Unit_CustomResource[IntegerA_Temp1] = (Last created unit)
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Trigger - Run Update_Table_Land <gen> (checking conditions)
Custom Land Change Lumber
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Custom Land: Lumber NEW
Actions
Unit - Remove Custom Land: Barrens NEW from (Triggering unit)
Unit - Remove Custom Land: Grain NEW from (Triggering unit)
Unit - Remove Custom Land: Lair NEW from (Triggering unit)
Unit - Remove Custom Land: Lumber NEW from (Triggering unit)
Unit - Remove Custom Land: Mana Crystal NEW from (Triggering unit)
Unit - Remove Custom Land: Meat NEW from (Triggering unit)
Unit - Remove Custom Land: Random NEW from (Triggering unit)
Unit - Remove Custom Land: Stone NEW from (Triggering unit)
Unit - Remove Custom Land: Trading Post NEW from (Triggering unit)
Set Variable Set Integer_CustomLandCounter[2] = (Integer_CustomLandCounter[2] + 1)
If ((Unit-type of (Triggering unit)) Equal to Land: Field (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[1] = (Integer_CustomLandCounter[1] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Manawell (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[3] = (Integer_CustomLandCounter[3] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Plains (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[4] = (Integer_CustomLandCounter[4] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Mine (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[5] = (Integer_CustomLandCounter[5] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Barrens (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[6] = (Integer_CustomLandCounter[6] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Trading Post (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[7] = (Integer_CustomLandCounter[7] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Random (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[8] = (Integer_CustomLandCounter[8] - 1)) else do (Do nothing)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If ((Triggering unit) Equal to Unit_CustomResource[(Integer A)]) then do (Set VariableSet IntegerA_Temp1 = (Integer A)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Unit - Remove (Triggering unit) from the game
Unit - Create 1 . Land: Forest (Custom Land) for Player_Host at Point_Temp1 facing Default building facing degrees
Set Variable Set Terrain_1 = Village - Thick Grass
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Last created unit) to selection for (Picked player))
Set Variable Set Unit_CustomResource[IntegerA_Temp1] = (Last created unit)
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Trigger - Run Update_Table_Land <gen> (checking conditions)
Custom Land Change ManaCrystal
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Custom Land: Mana Crystal NEW
Actions
Unit - Remove Custom Land: Barrens NEW from (Triggering unit)
Unit - Remove Custom Land: Grain NEW from (Triggering unit)
Unit - Remove Custom Land: Lair NEW from (Triggering unit)
Unit - Remove Custom Land: Lumber NEW from (Triggering unit)
Unit - Remove Custom Land: Mana Crystal NEW from (Triggering unit)
Unit - Remove Custom Land: Meat NEW from (Triggering unit)
Unit - Remove Custom Land: Random NEW from (Triggering unit)
Unit - Remove Custom Land: Stone NEW from (Triggering unit)
Unit - Remove Custom Land: Trading Post NEW from (Triggering unit)
Set Variable Set Integer_CustomLandCounter[3] = (Integer_CustomLandCounter[3] + 1)
If ((Unit-type of (Triggering unit)) Equal to Land: Field (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[1] = (Integer_CustomLandCounter[1] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Forest (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[2] = (Integer_CustomLandCounter[2] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Plains (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[4] = (Integer_CustomLandCounter[4] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Mine (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[5] = (Integer_CustomLandCounter[5] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Barrens (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[6] = (Integer_CustomLandCounter[6] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Trading Post (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[7] = (Integer_CustomLandCounter[7] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Random (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[8] = (Integer_CustomLandCounter[8] - 1)) else do (Do nothing)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If ((Triggering unit) Equal to Unit_CustomResource[(Integer A)]) then do (Set VariableSet IntegerA_Temp1 = (Integer A)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Unit - Remove (Triggering unit) from the game
Unit - Create 1 . Land: Manawell (Custom Land) for Player_Host at Point_Temp1 facing Default building facing degrees
Set Variable Set Terrain_1 = Felwood - Leaves
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Last created unit) to selection for (Picked player))
Set Variable Set Unit_CustomResource[IntegerA_Temp1] = (Last created unit)
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Trigger - Run Update_Table_Land <gen> (checking conditions)
Custom Land Change Meat
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Custom Land: Meat NEW
Actions
Unit - Remove Custom Land: Barrens NEW from (Triggering unit)
Unit - Remove Custom Land: Grain NEW from (Triggering unit)
Unit - Remove Custom Land: Lair NEW from (Triggering unit)
Unit - Remove Custom Land: Lumber NEW from (Triggering unit)
Unit - Remove Custom Land: Mana Crystal NEW from (Triggering unit)
Unit - Remove Custom Land: Meat NEW from (Triggering unit)
Unit - Remove Custom Land: Random NEW from (Triggering unit)
Unit - Remove Custom Land: Stone NEW from (Triggering unit)
Unit - Remove Custom Land: Trading Post NEW from (Triggering unit)
Set Variable Set Integer_CustomLandCounter[4] = (Integer_CustomLandCounter[4] + 1)
If ((Unit-type of (Triggering unit)) Equal to Land: Field (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[1] = (Integer_CustomLandCounter[1] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Forest (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[2] = (Integer_CustomLandCounter[2] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Manawell (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[3] = (Integer_CustomLandCounter[3] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Mine (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[5] = (Integer_CustomLandCounter[5] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Barrens (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[6] = (Integer_CustomLandCounter[6] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Trading Post (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[7] = (Integer_CustomLandCounter[7] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Random (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[8] = (Integer_CustomLandCounter[8] - 1)) else do (Do nothing)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If ((Triggering unit) Equal to Unit_CustomResource[(Integer A)]) then do (Set VariableSet IntegerA_Temp1 = (Integer A)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Unit - Remove (Triggering unit) from the game
Unit - Create 1 . Land: Plains (Custom Land) for Player_Host at Point_Temp1 facing Default building facing degrees
Set Variable Set Terrain_1 = Village - Short Grass
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Last created unit) to selection for (Picked player))
Set Variable Set Unit_CustomResource[IntegerA_Temp1] = (Last created unit)
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Trigger - Run Update_Table_Land <gen> (checking conditions)
Custom Land Change Stone
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Custom Land: Stone NEW
Actions
Unit - Remove Custom Land: Barrens NEW from (Triggering unit)
Unit - Remove Custom Land: Grain NEW from (Triggering unit)
Unit - Remove Custom Land: Lair NEW from (Triggering unit)
Unit - Remove Custom Land: Lumber NEW from (Triggering unit)
Unit - Remove Custom Land: Mana Crystal NEW from (Triggering unit)
Unit - Remove Custom Land: Meat NEW from (Triggering unit)
Unit - Remove Custom Land: Random NEW from (Triggering unit)
Unit - Remove Custom Land: Stone NEW from (Triggering unit)
Unit - Remove Custom Land: Trading Post NEW from (Triggering unit)
Set Variable Set Integer_CustomLandCounter[5] = (Integer_CustomLandCounter[5] + 1)
If ((Unit-type of (Triggering unit)) Equal to Land: Field (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[1] = (Integer_CustomLandCounter[1] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Forest (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[2] = (Integer_CustomLandCounter[2] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Manawell (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[3] = (Integer_CustomLandCounter[3] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Plains (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[4] = (Integer_CustomLandCounter[4] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Barrens (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[6] = (Integer_CustomLandCounter[6] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Trading Post (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[7] = (Integer_CustomLandCounter[7] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Random (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[8] = (Integer_CustomLandCounter[8] - 1)) else do (Do nothing)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If ((Triggering unit) Equal to Unit_CustomResource[(Integer A)]) then do (Set VariableSet IntegerA_Temp1 = (Integer A)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Unit - Remove (Triggering unit) from the game
Unit - Create 1 . Land: Mine (Custom Land) for Player_Host at Point_Temp1 facing Default building facing degrees
Set Variable Set Terrain_1 = Village - Rocks
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Last created unit) to selection for (Picked player))
Set Variable Set Unit_CustomResource[IntegerA_Temp1] = (Last created unit)
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Trigger - Run Update_Table_Land <gen> (checking conditions)
Custom Land Change Barrens
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Custom Land: Barrens NEW
Actions
Unit - Remove Custom Land: Barrens NEW from (Triggering unit)
Unit - Remove Custom Land: Grain NEW from (Triggering unit)
Unit - Remove Custom Land: Lair NEW from (Triggering unit)
Unit - Remove Custom Land: Lumber NEW from (Triggering unit)
Unit - Remove Custom Land: Mana Crystal NEW from (Triggering unit)
Unit - Remove Custom Land: Meat NEW from (Triggering unit)
Unit - Remove Custom Land: Random NEW from (Triggering unit)
Unit - Remove Custom Land: Stone NEW from (Triggering unit)
Unit - Remove Custom Land: Trading Post NEW from (Triggering unit)
Set Variable Set Integer_CustomLandCounter[6] = (Integer_CustomLandCounter[6] + 1)
If ((Unit-type of (Triggering unit)) Equal to Land: Field (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[1] = (Integer_CustomLandCounter[1] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Forest (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[2] = (Integer_CustomLandCounter[2] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Manawell (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[3] = (Integer_CustomLandCounter[3] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Plains (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[4] = (Integer_CustomLandCounter[4] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Mine (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[5] = (Integer_CustomLandCounter[5] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Trading Post (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[7] = (Integer_CustomLandCounter[7] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Random (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[8] = (Integer_CustomLandCounter[8] - 1)) else do (Do nothing)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If ((Triggering unit) Equal to Unit_CustomResource[(Integer A)]) then do (Set VariableSet IntegerA_Temp1 = (Integer A)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Unit - Remove (Triggering unit) from the game
Unit - Create 1 . Land: Barrens (Custom Land) for Player_Host at Point_Temp1 facing Default building facing degrees
Set Variable Set Terrain_1 = Barrens - Grassy Dirt
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Last created unit) to selection for (Picked player))
Set Variable Set Unit_CustomResource[IntegerA_Temp1] = (Last created unit)
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Trigger - Run Update_Table_Land <gen> (checking conditions)
Custom Land Change Trading Post
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Custom Land: Trading Post NEW
Actions
Unit - Remove Custom Land: Barrens NEW from (Triggering unit)
Unit - Remove Custom Land: Grain NEW from (Triggering unit)
Unit - Remove Custom Land: Lair NEW from (Triggering unit)
Unit - Remove Custom Land: Lumber NEW from (Triggering unit)
Unit - Remove Custom Land: Mana Crystal NEW from (Triggering unit)
Unit - Remove Custom Land: Meat NEW from (Triggering unit)
Unit - Remove Custom Land: Random NEW from (Triggering unit)
Unit - Remove Custom Land: Stone NEW from (Triggering unit)
Unit - Remove Custom Land: Trading Post NEW from (Triggering unit)
Set Variable Set Integer_CustomLandCounter[7] = (Integer_CustomLandCounter[7] + 1)
If ((Unit-type of (Triggering unit)) Equal to Land: Field (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[1] = (Integer_CustomLandCounter[1] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Forest (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[2] = (Integer_CustomLandCounter[2] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Manawell (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[3] = (Integer_CustomLandCounter[3] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Plains (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[4] = (Integer_CustomLandCounter[4] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Mine (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[5] = (Integer_CustomLandCounter[5] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Barrens (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[6] = (Integer_CustomLandCounter[6] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Random (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[8] = (Integer_CustomLandCounter[8] - 1)) else do (Do nothing)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If ((Triggering unit) Equal to Unit_CustomResource[(Integer A)]) then do (Set VariableSet IntegerA_Temp1 = (Integer A)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Unit - Remove (Triggering unit) from the game
Unit - Create 1 . Land: Trading Post (Custom Land) for Player_Host at Point_Temp1 facing Default building facing degrees
Set Variable Set Terrain_1 = Sunken Ruins - Sand
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Last created unit) to selection for (Picked player))
Set Variable Set Unit_CustomResource[IntegerA_Temp1] = (Last created unit)
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Trigger - Run Update_Table_Land <gen> (checking conditions)
Custom Land Change Random
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Custom Land: Random NEW
Actions
Unit - Remove Custom Land: Barrens NEW from (Triggering unit)
Unit - Remove Custom Land: Grain NEW from (Triggering unit)
Unit - Remove Custom Land: Lair NEW from (Triggering unit)
Unit - Remove Custom Land: Lumber NEW from (Triggering unit)
Unit - Remove Custom Land: Mana Crystal NEW from (Triggering unit)
Unit - Remove Custom Land: Meat NEW from (Triggering unit)
Unit - Remove Custom Land: Random NEW from (Triggering unit)
Unit - Remove Custom Land: Stone NEW from (Triggering unit)
Unit - Remove Custom Land: Trading Post NEW from (Triggering unit)
Set Variable Set Integer_CustomLandCounter[8] = (Integer_CustomLandCounter[8] + 1)
If ((Unit-type of (Triggering unit)) Equal to Land: Field (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[1] = (Integer_CustomLandCounter[1] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Forest (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[2] = (Integer_CustomLandCounter[2] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Manawell (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[3] = (Integer_CustomLandCounter[3] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Plains (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[4] = (Integer_CustomLandCounter[4] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Mine (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[5] = (Integer_CustomLandCounter[5] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Barrens (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[6] = (Integer_CustomLandCounter[6] - 1)) else do (Do nothing)
If ((Unit-type of (Triggering unit)) Equal to Land: Trading Post (Custom Land)) then do (Set VariableSet Integer_CustomLandCounter[7] = (Integer_CustomLandCounter[7] - 1)) else do (Do nothing)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If ((Triggering unit) Equal to Unit_CustomResource[(Integer A)]) then do (Set VariableSet IntegerA_Temp1 = (Integer A)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Unit - Remove (Triggering unit) from the game
Unit - Create 1 . Land: Random (Custom Land) for Player_Host at Point_Temp1 facing Default building facing degrees
Set Variable Set Terrain_1 = Village - Dirt
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Last created unit) to selection for (Picked player))
Set Variable Set Unit_CustomResource[IntegerA_Temp1] = (Last created unit)
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Trigger - Run Update_Table_Land <gen> (checking conditions)
Custom Land Value Down
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Value Down NEW
Actions
Unit - Remove Value Down NEW from (Triggering unit)
Unit - Add Value Down NEW to (Triggering unit)
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If ((Triggering unit) Equal to Unit_CustomResource[(Integer A)]) then do (Set VariableSet IntegerA_Temp2 = (Integer A)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 0) then do (Set VariableSet Point_Temp1 = (Center of Land_00 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet Point_Temp1 = (Center of Land_01 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet Point_Temp1 = (Center of Land_02 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet Point_Temp1 = (Center of Land_03 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet Point_Temp1 = (Center of Land_04 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 5) then do (Set VariableSet Point_Temp1 = (Center of Land_05 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 6) then do (Set VariableSet Point_Temp1 = (Center of Land_06 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 7) then do (Set VariableSet Point_Temp1 = (Center of Land_07 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 8) then do (Set VariableSet Point_Temp1 = (Center of Land_08 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 9) then do (Set VariableSet Point_Temp1 = (Center of Land_09 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 10) then do (Set VariableSet Point_Temp1 = (Center of Land_10 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 11) then do (Set VariableSet Point_Temp1 = (Center of Land_11 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 12) then do (Set VariableSet Point_Temp1 = (Center of Land_12 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 13) then do (Set VariableSet Point_Temp1 = (Center of Land_13 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 14) then do (Set VariableSet Point_Temp1 = (Center of Land_14 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 15) then do (Set VariableSet Point_Temp1 = (Center of Land_15 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 16) then do (Set VariableSet Point_Temp1 = (Center of Land_16 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 17) then do (Set VariableSet Point_Temp1 = (Center of Land_17 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 18) then do (Set VariableSet Point_Temp1 = (Center of Land_18 <gen>)) else do (Do nothing)
Floating Text - Destroy FloatingText_ResourceMarkers[IntegerA_Temp2]
Set Variable Set IntegerA_Temp1 = (Integer_ValueResourceMarker[IntegerA_Temp2] - 1)
If (IntegerA_Temp1 Less than or equal to 1) then do (Set VariableSet IntegerA_Temp1 = "12") else do (Do nothing)
Trigger - Run Create_Land_Text <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Trigger - Run Update_Table_Value <gen> (checking conditions)
Custom Land Value Up
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Value Up NEW
Actions
Unit - Remove Value Up NEW from (Triggering unit)
Unit - Add Value Up NEW to (Triggering unit)
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If ((Triggering unit) Equal to Unit_CustomResource[(Integer A)]) then do (Set VariableSet IntegerA_Temp2 = (Integer A)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 0) then do (Set VariableSet Point_Temp1 = (Center of Land_00 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet Point_Temp1 = (Center of Land_01 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet Point_Temp1 = (Center of Land_02 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet Point_Temp1 = (Center of Land_03 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet Point_Temp1 = (Center of Land_04 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 5) then do (Set VariableSet Point_Temp1 = (Center of Land_05 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 6) then do (Set VariableSet Point_Temp1 = (Center of Land_06 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 7) then do (Set VariableSet Point_Temp1 = (Center of Land_07 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 8) then do (Set VariableSet Point_Temp1 = (Center of Land_08 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 9) then do (Set VariableSet Point_Temp1 = (Center of Land_09 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 10) then do (Set VariableSet Point_Temp1 = (Center of Land_10 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 11) then do (Set VariableSet Point_Temp1 = (Center of Land_11 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 12) then do (Set VariableSet Point_Temp1 = (Center of Land_12 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 13) then do (Set VariableSet Point_Temp1 = (Center of Land_13 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 14) then do (Set VariableSet Point_Temp1 = (Center of Land_14 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 15) then do (Set VariableSet Point_Temp1 = (Center of Land_15 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 16) then do (Set VariableSet Point_Temp1 = (Center of Land_16 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 17) then do (Set VariableSet Point_Temp1 = (Center of Land_17 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 18) then do (Set VariableSet Point_Temp1 = (Center of Land_18 <gen>)) else do (Do nothing)
Floating Text - Destroy FloatingText_ResourceMarkers[IntegerA_Temp2]
Set Variable Set IntegerA_Temp1 = (Integer_ValueResourceMarker[IntegerA_Temp2] + 1)
If (IntegerA_Temp1 Greater than or equal to 13) then do (Set VariableSet IntegerA_Temp1 = "2") else do (Do nothing)
Trigger - Run Create_Land_Text <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Trigger - Run Update_Table_Value <gen> (checking conditions)
Custom Land Value Set
Events
Player - Player 1 (Red) types a chat message containing -set (Unexpected type: 'stringnoformat') as A substring
Player - Player 2 (Blue) types a chat message containing -set (Unexpected type: 'stringnoformat') as A substring
Player - Player 3 (Teal) types a chat message containing -set (Unexpected type: 'stringnoformat') as A substring
Player - Player 4 (Purple) types a chat message containing -set (Unexpected type: 'stringnoformat') as A substring
Conditions
(Triggering player) Equal to Player_Host
Actions
Set Variable Set String_Temp1 = (Substring((Entered chat string), 6, 11))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
String_Temp1 Equal to 2
String_Temp1 Equal to 3
String_Temp1 Equal to 4
String_Temp1 Equal to 5
String_Temp1 Equal to 6
String_Temp1 Equal to 7
String_Temp1 Equal to 8
String_Temp1 Equal to 9
String_Temp1 Equal to 10
String_Temp1 Equal to 11
String_Temp1 Equal to 12
String_Temp1 Equal to random
Then - Actions
Set Variable Set Group_Temp1 = (Units currently selected by (Triggering player))
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
String_Temp1 Equal to random
Then - Actions
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If ((Picked unit) Equal to Unit_CustomResource[(Integer A)]) then do (Set VariableSet IntegerA_Temp2 = (Integer A)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 0) then do (Set VariableSet Point_Temp1 = (Center of Land_00 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet Point_Temp1 = (Center of Land_01 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet Point_Temp1 = (Center of Land_02 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet Point_Temp1 = (Center of Land_03 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet Point_Temp1 = (Center of Land_04 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 5) then do (Set VariableSet Point_Temp1 = (Center of Land_05 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 6) then do (Set VariableSet Point_Temp1 = (Center of Land_06 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 7) then do (Set VariableSet Point_Temp1 = (Center of Land_07 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 8) then do (Set VariableSet Point_Temp1 = (Center of Land_08 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 9) then do (Set VariableSet Point_Temp1 = (Center of Land_09 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 10) then do (Set VariableSet Point_Temp1 = (Center of Land_10 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 11) then do (Set VariableSet Point_Temp1 = (Center of Land_11 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 12) then do (Set VariableSet Point_Temp1 = (Center of Land_12 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 13) then do (Set VariableSet Point_Temp1 = (Center of Land_13 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 14) then do (Set VariableSet Point_Temp1 = (Center of Land_14 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 15) then do (Set VariableSet Point_Temp1 = (Center of Land_15 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 16) then do (Set VariableSet Point_Temp1 = (Center of Land_16 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 17) then do (Set VariableSet Point_Temp1 = (Center of Land_17 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 18) then do (Set VariableSet Point_Temp1 = (Center of Land_18 <gen>)) else do (Do nothing)
Floating Text - Destroy FloatingText_ResourceMarkers[IntegerA_Temp2]
Set Variable Set IntegerA_Temp1 = "7"
Trigger - Run Create_Land_Text <gen> (checking conditions)
Else - Actions
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If ((Picked unit) Equal to Unit_CustomResource[(Integer A)]) then do (Set VariableSet IntegerA_Temp2 = (Integer A)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 0) then do (Set VariableSet Point_Temp1 = (Center of Land_00 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet Point_Temp1 = (Center of Land_01 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet Point_Temp1 = (Center of Land_02 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet Point_Temp1 = (Center of Land_03 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet Point_Temp1 = (Center of Land_04 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 5) then do (Set VariableSet Point_Temp1 = (Center of Land_05 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 6) then do (Set VariableSet Point_Temp1 = (Center of Land_06 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 7) then do (Set VariableSet Point_Temp1 = (Center of Land_07 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 8) then do (Set VariableSet Point_Temp1 = (Center of Land_08 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 9) then do (Set VariableSet Point_Temp1 = (Center of Land_09 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 10) then do (Set VariableSet Point_Temp1 = (Center of Land_10 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 11) then do (Set VariableSet Point_Temp1 = (Center of Land_11 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 12) then do (Set VariableSet Point_Temp1 = (Center of Land_12 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 13) then do (Set VariableSet Point_Temp1 = (Center of Land_13 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 14) then do (Set VariableSet Point_Temp1 = (Center of Land_14 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 15) then do (Set VariableSet Point_Temp1 = (Center of Land_15 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 16) then do (Set VariableSet Point_Temp1 = (Center of Land_16 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 17) then do (Set VariableSet Point_Temp1 = (Center of Land_17 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 18) then do (Set VariableSet Point_Temp1 = (Center of Land_18 <gen>)) else do (Do nothing)
Floating Text - Destroy FloatingText_ResourceMarkers[IntegerA_Temp2]
Set Variable Set IntegerA_Temp1 = (Integer(String_Temp1))
Trigger - Run Create_Land_Text <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call DestroyGroup (udg_Group_Temp1)
Trigger - Run Update_Table_Value <gen> (checking conditions)
Else - Actions
Do nothing
Custom Land Balance Values
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Randomize Values
Actions
Unit - Remove Randomize Values from (Triggering unit)
Unit - Add Randomize Values to (Triggering unit)
Set Variable Set Integer_TileValueRandomizer[2] = "1"
Set Variable Set Integer_TileValueRandomizer[3] = "2"
Set Variable Set Integer_TileValueRandomizer[4] = "2"
Set Variable Set Integer_TileValueRandomizer[5] = "2"
Set Variable Set Integer_TileValueRandomizer[6] = "2"
Set Variable Set Integer_TileValueRandomizer[8] = "2"
Set Variable Set Integer_TileValueRandomizer[9] = "2"
Set Variable Set Integer_TileValueRandomizer[10] = "2"
Set Variable Set Integer_TileValueRandomizer[11] = "2"
Set Variable Set Integer_TileValueRandomizer[12] = "1"
Set Variable Set IntegerA_Temp4 = "18"
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp2 = (Integer A)
If (IntegerA_Temp2 Equal to 0) then do (Set VariableSet Point_Temp1 = (Center of Land_00 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet Point_Temp1 = (Center of Land_01 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet Point_Temp1 = (Center of Land_02 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet Point_Temp1 = (Center of Land_03 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet Point_Temp1 = (Center of Land_04 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 5) then do (Set VariableSet Point_Temp1 = (Center of Land_05 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 6) then do (Set VariableSet Point_Temp1 = (Center of Land_06 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 7) then do (Set VariableSet Point_Temp1 = (Center of Land_07 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 8) then do (Set VariableSet Point_Temp1 = (Center of Land_08 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 9) then do (Set VariableSet Point_Temp1 = (Center of Land_09 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 10) then do (Set VariableSet Point_Temp1 = (Center of Land_10 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 11) then do (Set VariableSet Point_Temp1 = (Center of Land_11 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 12) then do (Set VariableSet Point_Temp1 = (Center of Land_12 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 13) then do (Set VariableSet Point_Temp1 = (Center of Land_13 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 14) then do (Set VariableSet Point_Temp1 = (Center of Land_14 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 15) then do (Set VariableSet Point_Temp1 = (Center of Land_15 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 16) then do (Set VariableSet Point_Temp1 = (Center of Land_16 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 17) then do (Set VariableSet Point_Temp1 = (Center of Land_17 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 18) then do (Set VariableSet Point_Temp1 = (Center of Land_18 <gen>)) else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Land_Lair <gen> contains Point_Temp1) Equal to True
Then - Actions
Do nothing
Else - Actions
-------- Value distribution chain, unchain at your own peril --------
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and IntegerA_Temp4)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to Integer_TileValueRandomizer[2]
Then - Actions
Set Variable Set Integer_TileValueRandomizer[2] = (Integer_TileValueRandomizer[2] - 1)
Set Variable Set IntegerA_Temp1 = "2"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_TileValueRandomizer[2] + (Integer_TileValueRandomizer[3] + 0))
Then - Actions
Set Variable Set Integer_TileValueRandomizer[3] = (Integer_TileValueRandomizer[3] - 1)
Set Variable Set IntegerA_Temp1 = "3"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_TileValueRandomizer[2] + (Integer_TileValueRandomizer[3] + (Integer_TileValueRandomizer[4] + 0)))
Then - Actions
Set Variable Set Integer_TileValueRandomizer[4] = (Integer_TileValueRandomizer[4] - 1)
Set Variable Set IntegerA_Temp1 = "4"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_TileValueRandomizer[2] + (Integer_TileValueRandomizer[3] + (Integer_TileValueRandomizer[4] + (Integer_TileValueRandomizer[5] + 0))))
Then - Actions
Set Variable Set Integer_TileValueRandomizer[5] = (Integer_TileValueRandomizer[5] - 1)
Set Variable Set IntegerA_Temp1 = "5"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_TileValueRandomizer[2] + (Integer_TileValueRandomizer[3] + (Integer_TileValueRandomizer[4] + (Integer_TileValueRandomizer[5] + (Integer_TileValueRandomizer[6] + 0)))))
Then - Actions
Set Variable Set Integer_TileValueRandomizer[6] = (Integer_TileValueRandomizer[6] - 1)
Set Variable Set IntegerA_Temp1 = "6"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_TileValueRandomizer[2] + (Integer_TileValueRandomizer[3] + (Integer_TileValueRandomizer[4] + (Integer_TileValueRandomizer[5] + (Integer_TileValueRandomizer[6] + (Integer_TileValueRandomizer[8] + 0))))))
Then - Actions
Set Variable Set Integer_TileValueRandomizer[8] = (Integer_TileValueRandomizer[8] - 1)
Set Variable Set IntegerA_Temp1 = "8"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_TileValueRandomizer[2] + (Integer_TileValueRandomizer[3] + (Integer_TileValueRandomizer[4] + (Integer_TileValueRandomizer[5] + (Integer_TileValueRandomizer[6] + (Integer_TileValueRandomizer[8] + (Integer_TileValueRandomizer[9] + 0)))))))
Then - Actions
Set Variable Set Integer_TileValueRandomizer[9] = (Integer_TileValueRandomizer[9] - 1)
Set Variable Set IntegerA_Temp1 = "9"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_TileValueRandomizer[2] + (Integer_TileValueRandomizer[3] + (Integer_TileValueRandomizer[4] + (Integer_TileValueRandomizer[5] + (Integer_TileValueRandomizer[6] + (Integer_TileValueRandomizer[8] + (Integer_TileValueRandomizer[9] + (Integer_TileValueRandomizer[10] + 0))))))))
Then - Actions
Set Variable Set Integer_TileValueRandomizer[10] = (Integer_TileValueRandomizer[10] - 1)
Set Variable Set IntegerA_Temp1 = "10"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_TileValueRandomizer[2] + (Integer_TileValueRandomizer[3] + (Integer_TileValueRandomizer[4] + (Integer_TileValueRandomizer[5] + (Integer_TileValueRandomizer[6] + (Integer_TileValueRandomizer[8] + (Integer_TileValueRandomizer[9] + (Integer_TileValueRandomizer[10] + (Integer_TileValueRandomizer[11] + 0)))))))))
Then - Actions
Set Variable Set Integer_TileValueRandomizer[11] = (Integer_TileValueRandomizer[11] - 1)
Set Variable Set IntegerA_Temp1 = "11"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_TileValueRandomizer[2] + (Integer_TileValueRandomizer[3] + (Integer_TileValueRandomizer[4] + (Integer_TileValueRandomizer[5] + (Integer_TileValueRandomizer[6] + (Integer_TileValueRandomizer[8] + (Integer_TileValueRandomizer[9] + (Integer_TileValueRandomizer[10] + (Integer_TileValueRandomizer[11] + Integer_TileValueRandomizer[12])))))))))
Then - Actions
Set Variable Set Integer_TileValueRandomizer[12] = (Integer_TileValueRandomizer[12] - 1)
Set Variable Set IntegerA_Temp1 = "12"
Else - Actions
Unit - Create 1 . Footman for Player 1 (Red) at Point_Temp1 facing Default building facing degrees
-------- Value distribution chain, unchain at your own peril --------
Floating Text - Destroy FloatingText_ResourceMarkers[IntegerA_Temp2]
Trigger - Run Create_Land_Text <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Set Variable Set IntegerA_Temp4 = (IntegerA_Temp4 - 1)
Trigger - Run Update_Table_Value <gen> (checking conditions)
Custom Land Change Onyxia
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Custom Land: Lair NEW
Actions
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If ((Triggering unit) Equal to Unit_CustomResource[(Integer A)]) then do (Set VariableSet IntegerA_Temp2 = (Integer A)) else do (Do nothing)
Floating Text - Destroy FloatingText_ResourceMarkers[IntegerA_Temp2]
Set Variable Set Point_Temp3 = (Center of Land_Lair <gen>)
Set Variable Set Integer_ValueResourceMarker[Integer_OnyxiaLandNumber] = Integer_ValueResourceMarker[IntegerA_Temp2]
Set Variable Set IntegerA_Temp1 = Integer_ValueResourceMarker[IntegerA_Temp2]
Set Variable Set Point_Temp1 = Point_Temp3
Trigger - Run Create_Land_Text <gen> (checking conditions)
If (IntegerA_Temp2 Equal to 0) then do (Set VariableSet Point_Temp1 = (Center of Land_00 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet Point_Temp1 = (Center of Land_01 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet Point_Temp1 = (Center of Land_02 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet Point_Temp1 = (Center of Land_03 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet Point_Temp1 = (Center of Land_04 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 5) then do (Set VariableSet Point_Temp1 = (Center of Land_05 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 6) then do (Set VariableSet Point_Temp1 = (Center of Land_06 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 7) then do (Set VariableSet Point_Temp1 = (Center of Land_07 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 8) then do (Set VariableSet Point_Temp1 = (Center of Land_08 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 9) then do (Set VariableSet Point_Temp1 = (Center of Land_09 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 10) then do (Set VariableSet Point_Temp1 = (Center of Land_10 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 11) then do (Set VariableSet Point_Temp1 = (Center of Land_11 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 12) then do (Set VariableSet Point_Temp1 = (Center of Land_12 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 13) then do (Set VariableSet Point_Temp1 = (Center of Land_13 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 14) then do (Set VariableSet Point_Temp1 = (Center of Land_14 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 15) then do (Set VariableSet Point_Temp1 = (Center of Land_15 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 16) then do (Set VariableSet Point_Temp1 = (Center of Land_16 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 17) then do (Set VariableSet Point_Temp1 = (Center of Land_17 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 18) then do (Set VariableSet Point_Temp1 = (Center of Land_18 <gen>)) else do (Do nothing)
Set Variable Set UnitType_Temp1 = (Unit-type of (Triggering unit))
Unit - Remove (Triggering unit) from the game
Trigger - Run Create_Onyxia <gen> (checking conditions)
Unit - Create 1 . UnitType_Temp1 for Player_Host at Point_Temp3 facing Default building facing degrees
Set Variable Set Unit_CustomResource[Integer_OnyxiaLandNumber] = (Last created unit)
Set Variable Set Integer_OnyxiaLandNumber = IntegerA_Temp2
If (UnitType_Temp1 Equal to Land: Barrens (Custom Land)) then do (Set VariableSet Terrain_1 = Barrens - Grassy Dirt) else do (Do nothing)
If (UnitType_Temp1 Equal to Land: Field (Custom Land)) then do (Set VariableSet Terrain_1 = Village - Crops) else do (Do nothing)
If (UnitType_Temp1 Equal to Land: Forest (Custom Land)) then do (Set VariableSet Terrain_1 = Village - Thick Grass) else do (Do nothing)
If (UnitType_Temp1 Equal to Land: Manawell (Custom Land)) then do (Set VariableSet Terrain_1 = Felwood - Leaves) else do (Do nothing)
If (UnitType_Temp1 Equal to Land: Mine (Custom Land)) then do (Set VariableSet Terrain_1 = Village - Rocks) else do (Do nothing)
If (UnitType_Temp1 Equal to Land: Plains (Custom Land)) then do (Set VariableSet Terrain_1 = Village - Short Grass) else do (Do nothing)
If (UnitType_Temp1 Equal to Land: Random (Custom Land)) then do (Set VariableSet Terrain_1 = Village - Dirt) else do (Do nothing)
Set Variable Set Point_Temp1 = Point_Temp3
Trigger - Run Change_Base_Tilseset <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp3)
1 = 11 o' Clock
2 = 1 o' Clock
3 = 3 o' Clock
4 = 5 o' Clock
5 = 7 o' Clock
6 = 9 o' Clock

Custom Ports Spawn
Events
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_HarborDirection Equal to 1
Then - Actions
Unit - Create 1 . Port Location for Player_Host at (Point_Temp1 offset by 153.11 towards 116.57 degrees.) facing 270.00 degrees
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_HarborDirection Equal to 2
Then - Actions
Unit - Create 1 . Port Location for Player_Host at (Point_Temp1 offset by 153.11 towards 63.44 degrees.) facing 210.00 degrees
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_HarborDirection Equal to 3
Then - Actions
Unit - Create 1 . Port Location for Player_Host at (Point_Temp1 offset by 202.00 towards 0.00 degrees.) facing 150.00 degrees
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_HarborDirection Equal to 4
Then - Actions
Unit - Create 1 . Port Location for Player_Host at (Point_Temp1 offset by 153.11 towards -63.44 degrees.) facing 90.00 degrees
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_HarborDirection Equal to 5
Then - Actions
Unit - Create 1 . Port Location for Player_Host at (Point_Temp1 offset by 153.11 towards -116.57 degrees.) facing 30.00 degrees
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_HarborDirection Equal to 6
Then - Actions
Unit - Create 1 . Port Location for Player_Host at (Point_Temp1 offset by 202.00 towards 180.00 degrees.) facing 330.00 degrees
Else - Actions
Unit Group - Add (Last created unit) to Group_HarborCustom[IntegerA_Temp1]
Animation - Change (Last created unit) 's vertex coloring to ( 30.00 %, 30.00 %, 30.00 %) with 60.00 % transparency
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
IntegerA_Temp1 Equal to 2
IntegerA_Temp1 Equal to 3
IntegerA_Temp1 Equal to 5
IntegerA_Temp1 Equal to 6
IntegerA_Temp1 Equal to 8
IntegerA_Temp1 Equal to 9
IntegerA_Temp1 Equal to 11
IntegerA_Temp1 Equal to 12
IntegerA_Temp1 Equal to 14
IntegerA_Temp1 Equal to 15
IntegerA_Temp1 Equal to 17
IntegerA_Temp1 Equal to 18
Then - Actions
Unit - Add Rotate Port NEW to (Last created unit)
Else - Actions
Do nothing
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom Ports Change Grain
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Grain Port NEW
Actions
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 1 to 18 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_HarborCustom[(Integer A)].) Equal to True) then do (Set VariableSet IntegerA_Temp2 = (Integer A)) else do (Do nothing)
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_Harbor[(Integer A)].) Equal to True) then do (Set VariableSet Integer_CustomPortCounter[(Integer A)] = (Integer_CustomPortCounter[(Integer A)] - 1)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set Integer_HarborDirection = Integer_CustomPortDirection[IntegerA_Temp2]
Set Variable Set IntegerA_Temp1 = "1"
Set Variable Set Integer_CustomPortCounter[IntegerA_Temp1] = (Integer_CustomPortCounter[IntegerA_Temp1] + 1)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Picked unit)) Equal to Port
Then - Actions
Unit - Change ownership of (Picked unit) to Player_Host and Change color
Unit - Remove Grain Port NEW from (Picked unit)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Picked unit) to selection for (Picked player))
Else - Actions
Do nothing
Custom Ports Change Lumber
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Lumber Port NEW
Actions
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 1 to 18 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_HarborCustom[(Integer A)].) Equal to True) then do (Set VariableSet IntegerA_Temp2 = (Integer A)) else do (Do nothing)
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_Harbor[(Integer A)].) Equal to True) then do (Set VariableSet Integer_CustomPortCounter[(Integer A)] = (Integer_CustomPortCounter[(Integer A)] - 1)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set Integer_HarborDirection = Integer_CustomPortDirection[IntegerA_Temp2]
Set Variable Set IntegerA_Temp1 = "2"
Set Variable Set Integer_CustomPortCounter[IntegerA_Temp1] = (Integer_CustomPortCounter[IntegerA_Temp1] + 1)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Picked unit)) Equal to Port
Then - Actions
Unit - Change ownership of (Picked unit) to Player_Host and Change color
Unit - Remove Lumber Port NEW from (Picked unit)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Picked unit) to selection for (Picked player))
Else - Actions
Do nothing
Custom Ports Change Mana Crystal
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Mana Crystal Port NEW
Actions
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 1 to 18 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_HarborCustom[(Integer A)].) Equal to True) then do (Set VariableSet IntegerA_Temp2 = (Integer A)) else do (Do nothing)
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_Harbor[(Integer A)].) Equal to True) then do (Set VariableSet Integer_CustomPortCounter[(Integer A)] = (Integer_CustomPortCounter[(Integer A)] - 1)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set Integer_HarborDirection = Integer_CustomPortDirection[IntegerA_Temp2]
Set Variable Set IntegerA_Temp1 = "3"
Set Variable Set Integer_CustomPortCounter[IntegerA_Temp1] = (Integer_CustomPortCounter[IntegerA_Temp1] + 1)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Picked unit)) Equal to Port
Then - Actions
Unit - Change ownership of (Picked unit) to Player_Host and Change color
Unit - Remove Mana Crystal Port NEW from (Picked unit)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Picked unit) to selection for (Picked player))
Else - Actions
Do nothing
Custom Ports Change Meat
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Meat Port NEW
Actions
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 1 to 18 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_HarborCustom[(Integer A)].) Equal to True) then do (Set VariableSet IntegerA_Temp2 = (Integer A)) else do (Do nothing)
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_Harbor[(Integer A)].) Equal to True) then do (Set VariableSet Integer_CustomPortCounter[(Integer A)] = (Integer_CustomPortCounter[(Integer A)] - 1)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set Integer_HarborDirection = Integer_CustomPortDirection[IntegerA_Temp2]
Set Variable Set IntegerA_Temp1 = "4"
Set Variable Set Integer_CustomPortCounter[IntegerA_Temp1] = (Integer_CustomPortCounter[IntegerA_Temp1] + 1)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Picked unit)) Equal to Port
Then - Actions
Unit - Change ownership of (Picked unit) to Player_Host and Change color
Unit - Remove Meat Port NEW from (Picked unit)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Picked unit) to selection for (Picked player))
Else - Actions
Do nothing
Custom Ports Change Stone
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Stone Port NEW
Actions
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 1 to 18 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_HarborCustom[(Integer A)].) Equal to True) then do (Set VariableSet IntegerA_Temp2 = (Integer A)) else do (Do nothing)
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_Harbor[(Integer A)].) Equal to True) then do (Set VariableSet Integer_CustomPortCounter[(Integer A)] = (Integer_CustomPortCounter[(Integer A)] - 1)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set Integer_HarborDirection = Integer_CustomPortDirection[IntegerA_Temp2]
Set Variable Set IntegerA_Temp1 = "5"
Set Variable Set Integer_CustomPortCounter[IntegerA_Temp1] = (Integer_CustomPortCounter[IntegerA_Temp1] + 1)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Picked unit)) Equal to Port
Then - Actions
Unit - Change ownership of (Picked unit) to Player_Host and Change color
Unit - Remove Stone Port NEW from (Picked unit)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Picked unit) to selection for (Picked player))
Else - Actions
Do nothing
Custom Ports Change General
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to General Port NEW
Actions
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 1 to 18 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_HarborCustom[(Integer A)].) Equal to True) then do (Set VariableSet IntegerA_Temp2 = (Integer A)) else do (Do nothing)
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_Harbor[(Integer A)].) Equal to True) then do (Set VariableSet Integer_CustomPortCounter[(Integer A)] = (Integer_CustomPortCounter[(Integer A)] - 1)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set Integer_HarborDirection = Integer_CustomPortDirection[IntegerA_Temp2]
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_CustomPortCounter[IntegerA_Temp1] = (Integer_CustomPortCounter[IntegerA_Temp1] + 1)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Picked unit)) Equal to Port
Then - Actions
Unit - Change ownership of (Picked unit) to Player_Host and Change color
Unit - Remove General Port NEW from (Picked unit)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Picked unit) to selection for (Picked player))
Else - Actions
Do nothing
Custom Ports Disable
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Disable Port NEW
Actions
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
Set Variable Set Ability_Temp1 = (Ability being cast)
For each (Integer A) from 1 to 18 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_HarborCustom[(Integer A)].) Equal to True) then do (Set VariableSet IntegerA_Temp1 = (Integer A)) else do (Do nothing)
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_Harbor[(Integer A)].) Equal to True) then do (Set VariableSet Integer_CustomPortCounter[(Integer A)] = (Integer_CustomPortCounter[(Integer A)] - 1)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 1) then do (Set VariableSet Point_Temp1 = (Center of Port_01 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 2) then do (Set VariableSet Point_Temp1 = (Center of Port_02 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 3) then do (Set VariableSet Point_Temp1 = (Center of Port_03 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 4) then do (Set VariableSet Point_Temp1 = (Center of Port_04 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 5) then do (Set VariableSet Point_Temp1 = (Center of Port_05 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 6) then do (Set VariableSet Point_Temp1 = (Center of Port_06 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 7) then do (Set VariableSet Point_Temp1 = (Center of Port_07 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 8) then do (Set VariableSet Point_Temp1 = (Center of Port_08 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 9) then do (Set VariableSet Point_Temp1 = (Center of Port_09 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 10) then do (Set VariableSet Point_Temp1 = (Center of Port_10 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 11) then do (Set VariableSet Point_Temp1 = (Center of Port_11 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 12) then do (Set VariableSet Point_Temp1 = (Center of Port_12 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 13) then do (Set VariableSet Point_Temp1 = (Center of Port_13 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 14) then do (Set VariableSet Point_Temp1 = (Center of Port_14 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 15) then do (Set VariableSet Point_Temp1 = (Center of Port_15 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 16) then do (Set VariableSet Point_Temp1 = (Center of Port_16 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 17) then do (Set VariableSet Point_Temp1 = (Center of Port_17 <gen>)) else do (Do nothing)
If (IntegerA_Temp1 Equal to 18) then do (Set VariableSet Point_Temp1 = (Center of Port_18 <gen>)) else do (Do nothing)
Set Variable Set Integer_HarborDirection = Integer_CustomPortDirection[IntegerA_Temp1]
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp1] and do (Remove (Picked unit) from the game)
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp1]
Trigger - Run Update_Table_Port <gen> (checking conditions)
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Last created unit) to selection for (Picked player))
1 = 11 o' Clock
2 = 1 o' Clock
3 = 3 o' Clock
4 = 5 o' Clock
5 = 7 o' Clock
6 = 9 o' Clock
Custom Ports Rotate
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Rotate Port NEW
Actions
Set Variable Set UnitType_Temp1 = (Unit-type of (Triggering unit))
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Triggering unit) is in (Units currently selected by (Player((Integer A)))).) Equal to True) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
For each (Integer A) from 1 to 18 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_HarborCustom[(Integer A)].) Equal to True) then do (Set VariableSet IntegerA_Temp2 = (Integer A)) else do (Do nothing)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
IntegerA_Temp2 Equal to 2
IntegerA_Temp2 Equal to 3
Then - Actions
If (Integer_CustomPortDirection[IntegerA_Temp2] Equal to 4) then do (Set VariableSet Integer_CustomPortDirection[IntegerA_Temp2] = "5") else do (Set VariableSet Integer_CustomPortDirection[IntegerA_Temp2] = "4")
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
IntegerA_Temp2 Equal to 5
IntegerA_Temp2 Equal to 6
Then - Actions
If (Integer_CustomPortDirection[IntegerA_Temp2] Equal to 5) then do (Set VariableSet Integer_CustomPortDirection[IntegerA_Temp2] = "6") else do (Set VariableSet Integer_CustomPortDirection[IntegerA_Temp2] = "5")
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
IntegerA_Temp2 Equal to 8
IntegerA_Temp2 Equal to 9
Then - Actions
If (Integer_CustomPortDirection[IntegerA_Temp2] Equal to 6) then do (Set VariableSet Integer_CustomPortDirection[IntegerA_Temp2] = "1") else do (Set VariableSet Integer_CustomPortDirection[IntegerA_Temp2] = "6")
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
IntegerA_Temp2 Equal to 11
IntegerA_Temp2 Equal to 12
Then - Actions
If (Integer_CustomPortDirection[IntegerA_Temp2] Equal to 1) then do (Set VariableSet Integer_CustomPortDirection[IntegerA_Temp2] = "2") else do (Set VariableSet Integer_CustomPortDirection[IntegerA_Temp2] = "1")
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
IntegerA_Temp2 Equal to 14
IntegerA_Temp2 Equal to 15
Then - Actions
If (Integer_CustomPortDirection[IntegerA_Temp2] Equal to 2) then do (Set VariableSet Integer_CustomPortDirection[IntegerA_Temp2] = "3") else do (Set VariableSet Integer_CustomPortDirection[IntegerA_Temp2] = "2")
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
IntegerA_Temp2 Equal to 17
IntegerA_Temp2 Equal to 18
Then - Actions
If (Integer_CustomPortDirection[IntegerA_Temp2] Equal to 3) then do (Set VariableSet Integer_CustomPortDirection[IntegerA_Temp2] = "4") else do (Set VariableSet Integer_CustomPortDirection[IntegerA_Temp2] = "3")
Else - Actions
Do nothing
Set Variable Set Integer_HarborDirection = Integer_CustomPortDirection[IntegerA_Temp2]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UnitType_Temp1 Equal to Port Location
Then - Actions
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Set Variable Set IntegerA_Temp1 = IntegerA_Temp2
Trigger - Run Custom_Ports_Spawn <gen> (checking conditions)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Last created unit) to selection for (Picked player))
Else - Actions
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
If (((Triggering unit) is in Group_Harbor[(Integer A)].) Equal to True) then do (Set VariableSet IntegerA_Temp1 = (Integer A)) else do (Do nothing)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Picked unit)) Equal to Port
Then - Actions
Unit - Change ownership of (Picked unit) to Player_Host and Change color
If (((Picked unit) is in Group_Harbor[1].) Equal to True) then do (Remove Port Grain from (Picked unit)) else do (Do nothing)
If (((Picked unit) is in Group_Harbor[2].) Equal to True) then do (Remove Port Lumber from (Picked unit)) else do (Do nothing)
If (((Picked unit) is in Group_Harbor[3].) Equal to True) then do (Remove Port Mana Crystal from (Picked unit)) else do (Do nothing)
If (((Picked unit) is in Group_Harbor[4].) Equal to True) then do (Remove Port Meat from (Picked unit)) else do (Do nothing)
If (((Picked unit) is in Group_Harbor[5].) Equal to True) then do (Remove Port Stone from (Picked unit)) else do (Do nothing)
If (((Picked unit) is in Group_Harbor[6].) Equal to True) then do (Remove Port General from (Picked unit)) else do (Do nothing)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Add (Picked unit) to selection for (Picked player))
Else - Actions
Do nothing
Custom script: call DestroyGroup (udg_Group_Temp1)
Custom Ports Default
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Default Port Placement
Actions
Set Variable Set Group_Temp1 = (Units of type Port)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Unit - Order (Picked unit) to Neutral Pit Lord - Howl Of Terror .
Custom script: call DestroyGroup (udg_Group_Temp1)
Set Variable Set IntegerA_Temp2 = "1"
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "4"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp2] = Integer_HarborDirection
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set IntegerA_Temp2 = "3"
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set IntegerA_Temp1 = "4"
Set Variable Set Integer_HarborDirection = "5"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp2] = Integer_HarborDirection
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set IntegerA_Temp2 = "5"
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set IntegerA_Temp1 = "3"
Set Variable Set Integer_HarborDirection = "5"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp2] = Integer_HarborDirection
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set IntegerA_Temp2 = "7"
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "6"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp2] = Integer_HarborDirection
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set IntegerA_Temp2 = "9"
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set IntegerA_Temp1 = "1"
Set Variable Set Integer_HarborDirection = "1"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp2] = Integer_HarborDirection
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set IntegerA_Temp2 = "11"
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "1"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp2] = Integer_HarborDirection
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set IntegerA_Temp2 = "13"
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set IntegerA_Temp1 = "6"
Set Variable Set Integer_HarborDirection = "2"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp2] = Integer_HarborDirection
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set IntegerA_Temp2 = "15"
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set IntegerA_Temp1 = "5"
Set Variable Set Integer_HarborDirection = "3"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp2] = Integer_HarborDirection
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
Set Variable Set IntegerA_Temp2 = "17"
Unit Group - Pick every unit in Group_HarborCustom[IntegerA_Temp2] and do (Remove (Picked unit) from the game)
Set Variable Set Point_Temp1 = (Center of Region_Ports[IntegerA_Temp2])
Set Variable Set IntegerA_Temp1 = "2"
Set Variable Set Integer_HarborDirection = "3"
Set Variable Set Integer_CustomPortDirection[IntegerA_Temp2] = Integer_HarborDirection
Floating Text - Destroy Ftxt_HarborCustom[IntegerA_Temp2]
Trigger - Run Spawn_Ports <gen> (checking conditions)
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
Unit Group - Pick every unit in Group_Harbor[(Integer A)] and do (Actions)
Loop - Actions
Unit - Change ownership of (Picked unit) to Player_Host and Change color
If ((Integer A) Equal to 1) then do (Remove Grain Port NEW from (Picked unit)) else do (Do nothing)
If ((Integer A) Equal to 2) then do (Remove Lumber Port NEW from (Picked unit)) else do (Do nothing)
If ((Integer A) Equal to 3) then do (Remove Mana Crystal Port NEW from (Picked unit)) else do (Do nothing)
If ((Integer A) Equal to 4) then do (Remove Meat Port NEW from (Picked unit)) else do (Do nothing)
If ((Integer A) Equal to 5) then do (Remove Stone Port NEW from (Picked unit)) else do (Do nothing)
If ((Integer A) Equal to 6) then do (Remove General Port NEW from (Picked unit)) else do (Do nothing)
Wait 0.20 seconds
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
Set Variable Set Integer_CustomPortCounter[(Integer A)] = (Number of units in Group_Harbor[(Integer A)])
Trigger - Run Update_Table_Port <gen> (checking conditions)
Custom Land End
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Big Red Shiny Button
Actions
Set Variable Set Group_Temp1 = (Units owned by Player_Host.)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Unit - Change ownership of (Picked unit) to Player 11 (Dark Green) and Retain color
Unit - Remove Big Red Shiny Button from (Triggering unit)
Sound - Play GoblinZeppelinPissed3 <gen>
Wait 2.00 seconds
Sound - Play Lever <gen>
Unit - Change color of (Triggering unit) to Black
Animation - Change (Triggering unit) flying height to 0.00 at 0.10
Wait 0.50 seconds
Cinematic - Fade out and back in over 4.00 seconds using texture Black Mask and color ( 0 %, 0 %, 0 %) with 0 % transparency
Wait 1.90 seconds
Set Variable Set Group_Temp1 = (Units of type Port Location)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Unit - Remove (Picked unit) from the game
Set Variable Set Group_Temp1 = (Units in (Playable map area) owned by Player 11 (Dark Green))
Unit - Remove (Triggering unit) from the game
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Picked unit) Equal to Unit_CustomResource[(Integer A)]
Then - Actions
Set Variable Set IntegerA_Temp2 = (Integer A)
If (IntegerA_Temp2 Equal to 0) then do (Set VariableSet Point_Temp1 = (Center of Land_00 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet Point_Temp1 = (Center of Land_01 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet Point_Temp1 = (Center of Land_02 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet Point_Temp1 = (Center of Land_03 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet Point_Temp1 = (Center of Land_04 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 5) then do (Set VariableSet Point_Temp1 = (Center of Land_05 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 6) then do (Set VariableSet Point_Temp1 = (Center of Land_06 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 7) then do (Set VariableSet Point_Temp1 = (Center of Land_07 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 8) then do (Set VariableSet Point_Temp1 = (Center of Land_08 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 9) then do (Set VariableSet Point_Temp1 = (Center of Land_09 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 10) then do (Set VariableSet Point_Temp1 = (Center of Land_10 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 11) then do (Set VariableSet Point_Temp1 = (Center of Land_11 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 12) then do (Set VariableSet Point_Temp1 = (Center of Land_12 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 13) then do (Set VariableSet Point_Temp1 = (Center of Land_13 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 14) then do (Set VariableSet Point_Temp1 = (Center of Land_14 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 15) then do (Set VariableSet Point_Temp1 = (Center of Land_15 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 16) then do (Set VariableSet Point_Temp1 = (Center of Land_16 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 17) then do (Set VariableSet Point_Temp1 = (Center of Land_17 <gen>)) else do (Do nothing)
If (IntegerA_Temp2 Equal to 18) then do (Set VariableSet Point_Temp1 = (Center of Land_18 <gen>)) else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_ValueResourceMarker[IntegerA_Temp2] Equal to 7
Then - Actions
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and 2)
If (IntegerA_Temp3 Equal to 1) then do (Set VariableSet IntegerA_Temp1 = (Random integer number between 2 and 6)) else do (Set VariableSet IntegerA_Temp1 = (Random integer number between 8 and 12))
Else - Actions
Set Variable Set IntegerA_Temp1 = Integer_ValueResourceMarker[(Integer A)]
Floating Text - Destroy FloatingText_ResourceMarkers[IntegerA_Temp2]
Set Variable Set UnitType_Temp1 = (Unit-type of (Picked unit))
Unit - Remove (Picked unit) from the game
If (UnitType_Temp1 Equal to Land: Field (Custom Land)) then do (Run Create_Field <gen> (checking conditions)) else do (Do nothing)
If (UnitType_Temp1 Equal to Land: Forest (Custom Land)) then do (Run Create_Forest <gen> (checking conditions)) else do (Do nothing)
If (UnitType_Temp1 Equal to Land: Manawell (Custom Land)) then do (Run Create_Manawell <gen> (checking conditions)) else do (Do nothing)
If (UnitType_Temp1 Equal to Land: Mine (Custom Land)) then do (Run Create_Mine <gen> (checking conditions)) else do (Do nothing)
If (UnitType_Temp1 Equal to Land: Plains (Custom Land)) then do (Run Create_Plain <gen> (checking conditions)) else do (Do nothing)
If (UnitType_Temp1 Equal to Land: Barrens (Custom Land)) then do (Run Create_Barrens <gen> (checking conditions)) else do (Do nothing)
If (UnitType_Temp1 Equal to Land: Trading Post (Custom Land)) then do (Run Create_Trading_Post <gen> (checking conditions)) else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UnitType_Temp1 Equal to Land: Random (Custom Land)
Then - Actions
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and 5)
If (IntegerA_Temp3 Equal to 1) then do (Run Create_Field <gen> (checking conditions)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 2) then do (Run Create_Forest <gen> (checking conditions)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 3) then do (Run Create_Manawell <gen> (checking conditions)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 4) then do (Run Create_Mine <gen> (checking conditions)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 5) then do (Run Create_Plain <gen> (checking conditions)) else do (Do nothing)
Else - Actions
Do nothing
Else - Actions
Do nothing
Custom script: call DestroyGroup (udg_Group_Temp1)
Trigger - Run Trading_Post_Change <gen> (checking conditions)
Trigger - Run Stats_Window <gen> (ignoring conditions)
Trigger - Run First_Settlement_Marker <gen> (ignoring conditions)
Update Table Land
Events
Conditions
Actions
For each (Integer A) from 1 to 8 , do (Actions)
Loop - Actions
Multiboard - Set the text for Multiboard_CustomLand item in column (Integer A) , row 3 to (String(Integer_CustomLandCounter[(Integer A)]))
If (Integer_CustomLandCounter[1] Equal to 4) then do (Set the color for Multiboard_CustomLand item in column 1, row 3 to (30.00%, 100.00%, 40.00%) with 0% transparency) else do (Set the color for Multiboard_CustomLand item in column 1, row 3 to (100%, 100.00%, 100.00%) with 0% transparency)
If (Integer_CustomLandCounter[2] Equal to 4) then do (Set the color for Multiboard_CustomLand item in column 2, row 3 to (30.00%, 100.00%, 40.00%) with 0% transparency) else do (Set the color for Multiboard_CustomLand item in column 2, row 3 to (100%, 100.00%, 100.00%) with 0% transparency)
If (Integer_CustomLandCounter[3] Equal to 3) then do (Set the color for Multiboard_CustomLand item in column 3, row 3 to (30.00%, 100.00%, 40.00%) with 0% transparency) else do (Set the color for Multiboard_CustomLand item in column 3, row 3 to (100%, 100.00%, 100.00%) with 0% transparency)
If (Integer_CustomLandCounter[4] Equal to 3) then do (Set the color for Multiboard_CustomLand item in column 4, row 3 to (30.00%, 100.00%, 40.00%) with 0% transparency) else do (Set the color for Multiboard_CustomLand item in column 4, row 3 to (100%, 100.00%, 100.00%) with 0% transparency)
If (Integer_CustomLandCounter[5] Equal to 4) then do (Set the color for Multiboard_CustomLand item in column 5, row 3 to (30.00%, 100.00%, 40.00%) with 0% transparency) else do (Set the color for Multiboard_CustomLand item in column 5, row 3 to (100%, 100.00%, 100.00%) with 0% transparency)
Update Table Value
Events
Conditions
Actions
For each (Integer A) from 1 to 11 , do (Actions)
Loop - Actions
Set Variable Set Integer_CustomValueCounter[(Integer A)] = "0"
For each (Integer A) from 0 to 18 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Region_Tiles[(Integer A)] contains Point_Onyxia) Equal to True
Then - Actions
Do nothing
Else - Actions
If (Integer_ValueResourceMarker[(Integer A)] Equal to 2) then do (Set VariableSet Integer_CustomValueCounter[1] = (Integer_CustomValueCounter[1] + 1)) else do (Do nothing)
If (Integer_ValueResourceMarker[(Integer A)] Equal to 3) then do (Set VariableSet Integer_CustomValueCounter[2] = (Integer_CustomValueCounter[2] + 1)) else do (Do nothing)
If (Integer_ValueResourceMarker[(Integer A)] Equal to 4) then do (Set VariableSet Integer_CustomValueCounter[3] = (Integer_CustomValueCounter[3] + 1)) else do (Do nothing)
If (Integer_ValueResourceMarker[(Integer A)] Equal to 5) then do (Set VariableSet Integer_CustomValueCounter[4] = (Integer_CustomValueCounter[4] + 1)) else do (Do nothing)
If (Integer_ValueResourceMarker[(Integer A)] Equal to 6) then do (Set VariableSet Integer_CustomValueCounter[5] = (Integer_CustomValueCounter[5] + 1)) else do (Do nothing)
If (Integer_ValueResourceMarker[(Integer A)] Equal to 8) then do (Set VariableSet Integer_CustomValueCounter[6] = (Integer_CustomValueCounter[6] + 1)) else do (Do nothing)
If (Integer_ValueResourceMarker[(Integer A)] Equal to 9) then do (Set VariableSet Integer_CustomValueCounter[7] = (Integer_CustomValueCounter[7] + 1)) else do (Do nothing)
If (Integer_ValueResourceMarker[(Integer A)] Equal to 10) then do (Set VariableSet Integer_CustomValueCounter[8] = (Integer_CustomValueCounter[8] + 1)) else do (Do nothing)
If (Integer_ValueResourceMarker[(Integer A)] Equal to 11) then do (Set VariableSet Integer_CustomValueCounter[9] = (Integer_CustomValueCounter[9] + 1)) else do (Do nothing)
If (Integer_ValueResourceMarker[(Integer A)] Equal to 12) then do (Set VariableSet Integer_CustomValueCounter[10] = (Integer_CustomValueCounter[10] + 1)) else do (Do nothing)
If (Integer_ValueResourceMarker[(Integer A)] Equal to 7) then do (Set VariableSet Integer_CustomValueCounter[11] = (Integer_CustomValueCounter[11] + 1)) else do (Do nothing)
For each (Integer A) from 1 to 11 , do (Actions)
Loop - Actions
Multiboard - Set the text for Multiboard_CustomLand item in column (Integer A) , row 6 to (String(Integer_CustomValueCounter[(Integer A)]))
For each (Integer A) from 2 to 9 , do (Actions)
Loop - Actions
If (Integer_CustomValueCounter[(Integer A)] Equal to 2) then do (Set the color for Multiboard_CustomLand item in column (Integer A), row 6 to (30.00%, 100.00%, 40.00%) with 0% transparency) else do (Set the color for Multiboard_CustomLand item in column (Integer A), row 6 to (100%, 100.00%, 100.00%) with 0% transparency)
If (Integer_CustomValueCounter[1] Equal to 1) then do (Set the color for Multiboard_CustomLand item in column 1, row 6 to (30.00%, 100.00%, 40.00%) with 0% transparency) else do (Set the color for Multiboard_CustomLand item in column 1, row 6 to (100%, 100.00%, 100.00%) with 0% transparency)
If (Integer_CustomValueCounter[10] Equal to 1) then do (Set the color for Multiboard_CustomLand item in column 10, row 6 to (30.00%, 100.00%, 40.00%) with 0% transparency) else do (Set the color for Multiboard_CustomLand item in column 10, row 6 to (100%, 100.00%, 100.00%) with 0% transparency)
Update Table Port
Events
Conditions
Actions
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
Multiboard - Set the text for Multiboard_CustomLand item in column (Integer A) , row 9 to (String(Integer_CustomPortCounter[(Integer A)]))
For each (Integer A) from 1 to 5 , do (Actions)
Loop - Actions
If (Integer_CustomPortCounter[(Integer A)] Equal to 1) then do (Set the color for Multiboard_CustomLand item in column (Integer A), row 9 to (30.00%, 100.00%, 40.00%) with 0% transparency) else do (Set the color for Multiboard_CustomLand item in column (Integer A), row 9 to (100%, 100.00%, 100.00%) with 0% transparency)
If (Integer_CustomPortCounter[6] Equal to 4) then do (Set the color for Multiboard_CustomLand item in column 6, row 9 to (30.00%, 100.00%, 40.00%) with 0% transparency) else do (Set the color for Multiboard_CustomLand item in column 6, row 9 to (100%, 100.00%, 100.00%) with 0% transparency)
1 = 11 o' Clock
2 = 1 o' Clock
3 = 3 o' Clock
4 = 5 o' Clock
5 = 7 o' Clock
6 = 9 o' Clock

|c00FFFF00Grain|r
|c0000FF00Lumber|r
|c006969FFMana Crystal|r
|c00FF9696Meat|r
|c007d7d7dStone|r
Spawn Ports
Events
Conditions
Actions
Set Variable Set Real_Temp1 = (60.00 x (Real(Integer_HarborDirection)))
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 153.11 towards (176.57 - Real_Temp1) degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to 1
Then - Actions
Floating Text - Create floating text that reads |c00FFFF00Grain|r|n2 : 1 at Point_Temp2 with Z offset 0 , using font size 12.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Set Variable Set UnitType_Temp1 = "n02X"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to 2
Then - Actions
Floating Text - Create floating text that reads |c0000FF00Lumber|r|n2 : 1 at Point_Temp2 with Z offset 0 , using font size 12.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Set Variable Set UnitType_Temp1 = "n02Y"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to 3
Then - Actions
Floating Text - Create floating text that reads |c006969FFMana Crystal|r|r|n2 : 1 at Point_Temp2 with Z offset 0 , using font size 12.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Set Variable Set UnitType_Temp1 = "n02W"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to 4
Then - Actions
Floating Text - Create floating text that reads |c00FF9696Meat|r|r|n2 : 1 at Point_Temp2 with Z offset 0 , using font size 12.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Set Variable Set UnitType_Temp1 = "n02R"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to 5
Then - Actions
Floating Text - Create floating text that reads |c007d7d7dStone|r|r|n2 : 1 at Point_Temp2 with Z offset 0 , using font size 12.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Set Variable Set UnitType_Temp1 = "n02V"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to 6
Then - Actions
Floating Text - Create floating text that reads 3 : 1 at Point_Temp2 with Z offset 0 , using font size 12.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Set Variable Set UnitType_Temp1 = "n02Z"
Else - Actions
Do nothing
Set Variable Set Ftxt_HarborCustom[IntegerA_Temp2] = (Last created floating text)
Unit - Create 1 . Port for Player 11 (Dark Green) at Point_Temp2 facing (330.00 - Real_Temp1) degrees
Unit Group - Add (Last created unit) to Group_Harbor[IntegerA_Temp1]
Unit Group - Add (Last created unit) to Group_HarborCustom[IntegerA_Temp2]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
IntegerA_Temp2 Equal to 2
IntegerA_Temp2 Equal to 3
IntegerA_Temp2 Equal to 5
IntegerA_Temp2 Equal to 6
IntegerA_Temp2 Equal to 8
IntegerA_Temp2 Equal to 9
IntegerA_Temp2 Equal to 11
IntegerA_Temp2 Equal to 12
IntegerA_Temp2 Equal to 14
IntegerA_Temp2 Equal to 15
IntegerA_Temp2 Equal to 17
IntegerA_Temp2 Equal to 18
Then - Actions
Unit - Add Rotate Port NEW to (Last created unit)
Else - Actions
Do nothing
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards (150.00 - Real_Temp1) degrees.)
Unit - Create 1 . Pier for Player 11 (Dark Green) at Point_Temp2 facing (150.00 - Real_Temp1) degrees
Unit Group - Add (Last created unit) to Group_HarborCustom[IntegerA_Temp2]
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 320.00 towards (203.13 - Real_Temp1) degrees.)
Unit - Create 1 . Pier for Player 11 (Dark Green) at Point_Temp2 facing (215.00 - Real_Temp1) degrees
Unit Group - Add (Last created unit) to Group_HarborCustom[IntegerA_Temp2]
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 370.00 towards (165.00 - Real_Temp1) degrees.)
Unit - Create 1 . UnitType_Temp1 for Player 11 (Dark Green) at Point_Temp2 facing (65.00 - Real_Temp1) degrees
Unit Group - Add (Last created unit) to Group_HarborCustom[IntegerA_Temp2]
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 370.00 towards (190.00 - Real_Temp1) degrees.)
Unit - Create 1 . UnitType_Temp1 for Player 11 (Dark Green) at Point_Temp2 facing (115.00 - Real_Temp1) degrees
Unit Group - Add (Last created unit) to Group_HarborCustom[IntegerA_Temp2]
Trigger - Run Update_Table_Port <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp1)
1 = Grain
2 = Lumber
3 = Mana Crystals
4 = Meat
5 = Stone
6 = General
Claim Port
Events
Conditions
Actions
Unit Group - Pick every unit in (Units within 500.00 of Point_Temp1 matching ((Unit-type of (Matching unit)) Equal to Port).) and do (Actions)
Loop - Actions
Set Variable Set Unit_Temp2 = (Picked unit)
Set Variable Set Point_Temp2 = (Position of (Picked unit))
Set Variable Set Real_Temp1 = (Facing of (Picked unit))
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
If (((Picked unit) is in Group_Harbor[(Integer A)].) Equal to True) then do (Add Player_Temp1 to PlayerGroup_Harbours[(Integer A)]) else do (Do nothing)
If (((Picked unit) is in Group_Harbor[(Integer A)].) Equal to True) then do (Set VariableSet IntegerA_Temp1 = (Integer A)) else do (Do nothing)
Unit - Hide (Picked unit)
If ((Race of Player_Temp1) Equal to Human) then do (Create 1.Harbor (Human) for Player_Temp1 at Point_Temp2 facing (Real_Temp1 + 75.00) degrees) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Orc) then do (Create 1.Harbor (Orc) for Player_Temp1 at Point_Temp2 facing (Real_Temp1 + 75.00) degrees) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Undead) then do (Create 1.Harbor (Undead) for Player_Temp1 at Point_Temp2 facing (Real_Temp1 + 75.00) degrees) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Night Elf) then do (Create 1.Harbor (Night Elf) for Player_Temp1 at Point_Temp2 facing (Real_Temp1 + 75.00) degrees) else do (Do nothing)
Unit Group - Add (Last created unit) to Group_Harbor[IntegerA_Temp1]
Unit - Remove (Picked unit) from the game
Custom script: call RemoveLocation (udg_Point_Temp2)
First Settlement Marker
Events
Conditions
Actions
Set Variable Set Point_Onyxia = (Center of Land_Lair <gen>)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Unit - Create Integer_VictoryPointsMax . Food for Thought for (Player((Integer A))) at (Center of (Playable map area)) facing Default building facing degrees
Set Variable Set Player_Temp1 = (Triggering player)
Set Variable Set Player_Active = (Triggering player)
Game - Display to (Player group(Player_Temp1)) the text: |c00bfff80Hint:|r Claim a location to build your first settlement by clicking on a marker!
Unit Group - Pick every unit in Group_RestrictedMarkers[0] and do (Actions)
Loop - Actions
Unit - Change ownership of (Picked unit) to (Triggering player) and Change color
Unit - Unhide (Picked unit)
Wait 6.00 seconds
Game - Display to (All players) for 20.00 seconds the text: |c00bfff80Hint:|r New to Settlers of Kalimdor? Check out the Quest[F9] menu for instructions!
Sound - Play Hint <gen>
Group_RestrictedMarkers:
0 = Unconnected
1 = Connected to settlement
First Settlement Claimed
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Establish Settlement
Actions
-------- Settlement --------
Set Variable Set Integer_VictoryPoints[(Player number of Player_Active)] = (Integer_VictoryPoints[(Player number of Player_Active)] + 1)
Trigger - Run Stats_Update <gen> (checking conditions)
Unit Group - Pick every unit in Group_RestrictedMarkers[0] and do (Actions)
Loop - Actions
Unit - Remove Establish Settlement from (Picked unit)
Custom script: call DestroyGroup (udg_Group_Temp1)
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Set Variable Set IntegerA_Temp1 = (Player number of (Owner of (Triggering unit)))
Set Variable Set Player_Temp1 = Player_Active
Unit - Hide (Triggering unit)
If ((Race of Player_Temp1) Equal to Human) then do (Create 1.Village (Human) for Player_Temp1 at Point_Temp1 facing Default building facing degrees) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Orc) then do (Create 1.Village (Orc) for Player_Temp1 at Point_Temp1 facing Default building facing degrees) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Undead) then do (Create 1.Village (Undead) for Player_Temp1 at Point_Temp1 facing Default building facing degrees) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Night Elf) then do (Create 1.Village (Night Elf) for Player_Temp1 at Point_Temp1 facing Default building facing degrees) else do (Do nothing)
Selection - Add (Last created unit) to selection for Player_Active
Set Variable Set Unit_Temp1 = (Last created unit)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Integer A) Not equal to (Player number of Player_Active)
Then - Actions
If (((Triggering unit) is in Group_RoadBuilders[(Integer A)].) Equal to True) then do (Add (Last created unit) to Group_RoadBuildersRestricted[(Integer A)]) else do (Do nothing)
Else - Actions
Do nothing
Unit - Remove (Triggering unit) from the game
Unit Group - Add (Last created unit) to Group_Settlements[IntegerA_Temp1]
Unit Group - Add (Last created unit) to Group_RoadBuilders[IntegerA_Temp1]
Set Variable Set Integer_FirstSettlements = (Integer_FirstSettlements + 1)
-------- Restricting Nearby Markers --------
Set Variable Set Group_Temp1 = (Units within 641.00 of Point_Temp1.)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_RestrictedMarkers[0].) Equal to True
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_RestrictedMarkers[1].) Equal to True
Then - Actions
Do nothing
Else - Actions
Unit Group - Add (Picked unit) to Group_RestrictedMarkers[1]
Unit - Add Restricted Zone to (Picked unit)
Else - Actions
Do nothing
-------- Road --------
Set Variable Set Group_Temp1 = (Units owned by Player_Active.)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_RoadBuilders[IntegerA_Temp1].) Equal to True
Then - Actions
Unit - Add Construct Road (free) to (Picked unit)
Else - Actions
Do nothing
Trigger - Run Claim_Port <gen> (checking conditions)
Set Variable Set Integer_FreeRoads = "1"
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call DestroyGroup (udg_Group_Temp1)
Triggers from "Road Cast Free"
First Roads
Events
Conditions
Integer_FirstSettlements Less than ((Number of players in PlayerGroup_User) x 2)
Actions
If (Integer_FirstSettlements Less than (Number of players in PlayerGroup_User)) then do (Set VariableSet IntegerA_Temp1 = (Integer_FirstSettlements + 1)) else do (Set VariableSet IntegerA_Temp1 = (((Number of players in PlayerGroup_User) x 2) - Integer_FirstSettlements))
Set Variable Set Player_Active = Player_Setup[IntegerA_Temp1]
If (Integer_FirstSettlements Less than (Number of players in PlayerGroup_User)) then do (Display to (Player group(Player_Active)) the text: |c00bfff80Hint:|r Claim a location to build your first settlement by clicking on a marker!) else do (Display to (Player group(Player_Active)) the text: |c00bfff80Hint:|r Claim your second settlement!)
Sound - Play Rescue <gen>
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + |r's turn...))
Unit Group - Pick every unit in Group_RestrictedMarkers[0] and do (Actions)
Loop - Actions
Unit - Change ownership of (Picked unit) to Player_Active and Change color
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_RestrictedMarkers[1].) Equal to True
Then - Actions
Do nothing
Else - Actions
Unit - Add Establish Settlement to (Picked unit)
Triggers from "Road Cast Free"
Pick Capitals 1
Events
Conditions
Integer_FirstSettlements Equal to ((Number of players in PlayerGroup_User) x 2)
((This trigger) is on) Equal to True
Actions
Set Variable Set Group_Temp1 = (Units of type Village (Human))
Unit Group - Pick every unit in Group_Temp1 and do (Add Pick Capital to (Picked unit))
Custom script: call DestroyGroup (udg_Group_Temp1)
Set Variable Set Group_Temp1 = (Units of type Village (Night Elf))
Unit Group - Pick every unit in Group_Temp1 and do (Add Pick Capital to (Picked unit))
Custom script: call DestroyGroup (udg_Group_Temp1)
Set Variable Set Group_Temp1 = (Units of type Village (Orc))
Unit Group - Pick every unit in Group_Temp1 and do (Add Pick Capital to (Picked unit))
Custom script: call DestroyGroup (udg_Group_Temp1)
Set Variable Set Group_Temp1 = (Units of type Village (Undead))
Unit Group - Pick every unit in Group_Temp1 and do (Add Pick Capital to (Picked unit))
Custom script: call DestroyGroup (udg_Group_Temp1)
Game - Display to (All players) the text: |c00bfff80Hint:|r Pick which settlement you wish to be your capital!
Sound - Play Hint <gen>
Trigger - Turn off (This trigger)
Pick Capitals 2
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Pick Capital
Actions
Set Variable Set IntegerA_Temp1 = (Player number of (Owner of (Triggering unit)))
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Set Variable Set Unit_Capitals[IntegerA_Temp1] = (Triggering unit)
Unit - Add Capital Settlement to (Triggering unit)
Unit - Add Construction Costs to (Triggering unit)
Unit - Add Inventory (Hero) to (Triggering unit)
Set Variable Set Group_Temp1 = (Units owned by (Owner of (Triggering unit)).)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Unit - Remove Pick Capital from (Picked unit)
-------- Special Effects Capital --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Owner of (Triggering unit))) Equal to Human
Then - Actions
Sound - Play PeasantReady1 <gen>
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Owner of (Triggering unit))) Equal to Night Elf
Then - Actions
Sound - Play ArcherReady1 <gen>
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Owner of (Triggering unit))) Equal to Orc
Then - Actions
Sound - Play PeonReady1 <gen>
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Owner of (Triggering unit))) Equal to Undead
Then - Actions
Sound - Play AcolyteReady1 <gen>
Else - Actions
Do nothing
Special Effect - Create a special effect attached to the origin (Unexpected type: 'attachpoint') of (Triggering unit) using Abilities\Spells\Other\Levelup\LevelupCaster.mdl
Special Effect - Destroy (Last created special effect)
-------- Adding resources --------
Set Variable Set Group_Temp1 = (Units of type Land Marker Field)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Set Variable Set Point_Temp2 = (Position of (Picked unit))
If ((Distance between Point_Temp1 and Point_Temp2) Less than or equal to 605.00) then do (Set VariableSet Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] + 1)) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Group_Temp1 = (Units of type Land Marker Forest)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Set Variable Set Point_Temp2 = (Position of (Picked unit))
If ((Distance between Point_Temp1 and Point_Temp2) Less than or equal to 605.00) then do (Set VariableSet Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] + 1)) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Group_Temp1 = (Units of type Land Marker Manawell)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Set Variable Set Point_Temp2 = (Position of (Picked unit))
If ((Distance between Point_Temp1 and Point_Temp2) Less than or equal to 605.00) then do (Set VariableSet Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] + 1)) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Group_Temp1 = (Units of type Land Marker Mine)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Set Variable Set Point_Temp2 = (Position of (Picked unit))
If ((Distance between Point_Temp1 and Point_Temp2) Less than or equal to 605.00) then do (Set VariableSet Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] + 1)) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Group_Temp1 = (Units of type Land Marker Plain)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Set Variable Set Point_Temp2 = (Position of (Picked unit))
If ((Distance between Point_Temp1 and Point_Temp2) Less than or equal to 605.00) then do (Set VariableSet Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] + 1)) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Group_Temp1 = (Units of type Land Marker Tradingpost)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Set Variable Set Point_Temp2 = (Position of (Picked unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between Point_Temp1 and Point_Temp2) Less than or equal to 605.00
Then - Actions
Set Variable Set IntegerA_Temp3 = (Load 13 of (Key (Picked unit).) from Hashtable_Tradingposts.)
If (IntegerA_Temp3 Equal to 1) then do (Set VariableSet Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] + 1)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 2) then do (Set VariableSet Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] + 1)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 3) then do (Set VariableSet Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] + 1)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 4) then do (Set VariableSet Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] + 1)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 5) then do (Set VariableSet Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] + 1)) else do (Do nothing)
Else - Actions
Do nothing
Trigger - Run Stats_Update <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call DestroyGroup (udg_Group_Temp1)
Player Group - Add (Owner of (Triggering unit)) to PlayerGroup_Start
If ((Number of players in PlayerGroup_Start) Equal to (Number of players in PlayerGroup_User)) then do (Run Game_Start <gen> (checking conditions)) else do (Do nothing)
Game Start
Events
Conditions
Actions
Sound - Play ArrangedTeamInvitation <gen>
Set Variable Set Player_Active = (Random player from PlayerGroup_User)
Unit Group - Pick every unit in Group_RestrictedMarkers[0] and do (Actions)
Loop - Actions
Unit - Change ownership of (Picked unit) to Neutral Passive and Change color
Set Variable Set Point_Temp1 = (Position of Unit_Capitals[(Player number of Player_Active)])
Player Group - Pick every player in PlayerGroup_User and do (Actions)
Loop - Actions
Camera - Pan camera for (Picked player) to Point_Temp1 over 2.00 seconds
Wait 2 seconds
Trigger - Turn off Setup_Leave <gen>
Trigger - Turn on Player_Leave <gen>
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Selection - Clear selection for Player_Active .
Selection - Add Unit_Capitals[IntegerA_Temp1] to selection for Player_Active
Unit Group - Pick every unit in Group_RoadBuilders[IntegerA_Temp1] and do (Actions)
Loop - Actions
If ((Unit-type of (Picked unit)) Equal to Crossroad Marker) then do (Change ownership of (Picked unit) to Player_Active and Change color) else do (Do nothing)
Set Variable Set Point_Temp1 = (Position of Unit_Capitals[IntegerA_Temp1])
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + |r's turn...))
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of Unit_Capitals[IntegerA_Temp1] using Abilities\Spells\Human\Resurrect\ResurrectCaster.mdl
Special Effect - Destroy (Last created special effect)
Unit - Create 1 . Active Marker for Player_Active at Point_Temp1 facing Default building facing degrees
Unit - Add Roll for Resources to Unit_Capitals[IntegerA_Temp1]
Game - Display to (Player group(Player_Active)) the text: |c00bfff80Hint:|r Roll for resources at your capital.
Set Variable Set Integer_Gamestate = "1"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_TurnTimer Equal to True
Then - Actions
Countdown Timer - Start Timer_Turn as a One-shot timer that will expire in 150.00 seconds
Countdown Timer - Create a timer window for (Last started timer) with title Turn Timer
Set Variable Set TimerWindow_TurnTimer = (Last created timer window)
Countdown Timer - Show (Last created timer window)
Else - Actions
Do nothing
Custom script: call RemoveLocation (udg_Point_Temp1)
Walls
Events
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Owner of (Triggering unit))) Equal to Human
Then - Actions
Set Variable Set UnitType_Temp1 = "n01U"
Set Variable Set UnitType_Temp2 = "n01V"
Sound - Play PeasantReady1 <gen> at 75.00 % volume, attached to (Triggering unit)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Owner of (Triggering unit))) Equal to Night Elf
Then - Actions
Set Variable Set UnitType_Temp1 = "n01X"
Set Variable Set UnitType_Temp2 = "n021"
Sound - Play ArcherReady1 <gen> at 75.00 % volume, attached to (Triggering unit)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Owner of (Triggering unit))) Equal to Orc
Then - Actions
Set Variable Set UnitType_Temp1 = "n01W"
Set Variable Set UnitType_Temp2 = "n01Z"
Sound - Play PeonReady1 <gen> at 75.00 % volume, attached to (Triggering unit)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Owner of (Triggering unit))) Equal to Undead
Then - Actions
Set Variable Set UnitType_Temp1 = "n01Y"
Set Variable Set UnitType_Temp2 = "n020"
Sound - Play AcolyteReady1 <gen> at 75.00 % volume, attached to (Triggering unit)
Else - Actions
Do nothing
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 140.00 towards (90.00 x (Real((Integer A)))) degrees.)
Unit - Create 1 . UnitType_Temp1 for Player 1 (Red) at Point_Temp2 facing (90.00 x (Real((Integer A)))) degrees
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 148.00 towards (45.00 + (90.00 x (Real((Integer A))))) degrees.)
Unit - Create 1 . UnitType_Temp2 for Player 1 (Red) at Point_Temp2 facing (45.00 + (90.00 x (Real((Integer A))))) degrees
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Turn Start 1
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to End Turn
Actions
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Set Variable Set Group_Temp1 = (Units owned by Player_Active.)
Unit - Remove Research Development from Unit_Capitals[IntegerA_Temp1]
Unit - Remove End Turn from Unit_Capitals[IntegerA_Temp1]
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Unit - Remove Construct Road from (Picked unit)
Unit - Remove Upgrade to City (Human) from (Picked unit)
Unit - Remove Upgrade to City (Night Elf) from (Picked unit)
Unit - Remove Upgrade to City (Orc) from (Picked unit)
Unit - Remove Upgrade to City (Undead) from (Picked unit)
Unit - Remove Establish Village (Human) from (Picked unit)
Unit - Remove Establish Village (Night Elf) from (Picked unit)
Unit - Remove Establish Village (Orc) from (Picked unit)
Unit - Remove Establish Village (Undead) from (Picked unit)
Unit - Remove Road Quest from (Picked unit)
Set Variable Set Group_Temp1 = (Units of type Active Marker)
Unit Group - Pick every unit in Group_Temp1 and do (Remove (Picked unit) from the game)
Unit Group - Pick every unit in Group_RestrictedMarkers[0] and do (Change ownership of (Picked unit) to Neutral Passive and Change color)
Custom script: call DestroyGroup (udg_Group_Temp1)
Trigger - Run Turn_Start_2 <gen> (checking conditions)
Trigger - Run Trading_Post_Change <gen> (checking conditions)
Turn Start 2
Events
Conditions
Actions
Set Variable Set Integer_Gamestate = "1"
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
If (IntegerA_Temp1 Greater than or equal to 5) then do (Set VariableSet IntegerA_Temp1 = "1") else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Player(IntegerA_Temp1)) is in PlayerGroup_User.) Equal to True
((Player(IntegerA_Temp1)) is in PlayerGroup_AFK.) Equal to False
Then - Actions
Set Variable Set Player_Active = (Player(IntegerA_Temp1))
Else - Actions
Trigger - Run (This trigger) (checking conditions)
Skip remaining actions
Set Variable Set Point_Temp1 = (Position of Unit_Capitals[IntegerA_Temp1])
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + |r's turn...))
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of Unit_Capitals[IntegerA_Temp1] using Abilities\Spells\Human\Resurrect\ResurrectCaster.mdl
Special Effect - Destroy (Last created special effect)
Unit - Create 1 . Active Marker for Player_Active at Point_Temp1 facing Default building facing degrees
Unit Group - Pick every unit in Group_RoadBuilders[IntegerA_Temp1] and do (Actions)
Loop - Actions
If ((Unit-type of (Picked unit)) Equal to Crossroad Marker) then do (Change ownership of (Picked unit) to Player_Active and Change color) else do (Do nothing)
Selection - Clear selection for Player_Active .
Selection - Select Unit_Capitals[IntegerA_Temp1] for Player_Active
Sound - Play Rescue <gen>
Camera - Pan camera for Player_Active to Point_Temp1 over 1.25 seconds
Set Variable Set Boolean_ItemLocked = "false"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_Houserules[2] Equal to True
(Player_Active is in PlayerGroup_LeadWinner.) Equal to True
(Number of players in PlayerGroup_LeadWinner) Equal to 1
Then - Actions
Set Variable Set Player_Winner = Player_Active
Trigger - Run Game_Over <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_TurnTimer Equal to True
Then - Actions
Countdown Timer - Destroy TimerWindow_TurnTimer
Countdown Timer - Start Timer_Turn as a One-shot timer that will expire in 150.00 seconds
Countdown Timer - Create a timer window for (Last started timer) with title Turn Timer
Set Variable Set TimerWindow_TurnTimer = (Last created timer window)
Countdown Timer - Show (Last created timer window)
Else - Actions
Do nothing
Unit - Add Roll for Resources to Unit_Capitals[IntegerA_Temp1]
Trigger - Run Unlock_Items <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Resource Roll 1
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Roll for Resources
Actions
If (Boolean_TurnTimer Equal to True) then do (Pause Timer_Turn) else do (Do nothing)
Game - Display to (All players) the text: (String_Colors[(Player number of (Owner of (Triggering unit)))] + ((Name of (Owner of (Triggering unit))) + |r rolls the dice...))
Unit - Remove Roll for Resources from (Triggering unit)
Custom script: call RemoveLocation (udg_Point_Roll)
Set Variable Set Point_Roll = (Position of (Triggering unit))
Set Variable Set Integer_Roll3 = "0"
Set Variable Set Integer_Roll1 = (Random integer number between 1 and 6)
Set Variable Set Integer_Roll2 = (Random integer number between 1 and 6)
Floating Text - Create floating text that reads ((String(Integer_Roll1)) + ( + + (String(Integer_Roll2)))) at (Point_Roll offset by (-55.00, 100.00)) with Z offset 0.00 , using font size 14.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Set Variable Set Ftxt_Roll1 = (Last created floating text)
Sound - Play PickUpItem <gen>
Trigger - Turn on Resource_Roll_2 <gen>
Resource Roll 2
Events
Time - Every 0.10 seconds of game time
Conditions
Actions
Floating Text - Destroy Ftxt_Roll1
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Roll3 Greater than or equal to 20
Then - Actions
Trigger - Turn off (This trigger)
Trigger - Run Resource_Roll_3 <gen> (checking conditions)
Else - Actions
Sound - Stop (Last played sound) Immediately
Sound - Play PickUpItem <gen>
Set Variable Set Sound_Roll = (Last played sound)
If (Integer_Roll1 Equal to 6) then do (Set VariableSet Integer_Roll1 = "1") else do (Set VariableSet Integer_Roll1 = (Integer_Roll1 + 1))
If (Integer_Roll2 Equal to 1) then do (Set VariableSet Integer_Roll2 = "6") else do (Set VariableSet Integer_Roll2 = (Integer_Roll2 - 1))
Floating Text - Create floating text that reads ((String(Integer_Roll1)) + ( + + (String(Integer_Roll2)))) at (Point_Roll offset by (-55.00, 100.00)) with Z offset 0.00 , using font size 14.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Set Variable Set Ftxt_Roll1 = (Last created floating text)
Set Variable Set Integer_Roll3 = (Integer_Roll3 + 1)
Resource Roll 3
Events
Conditions
Actions
Floating Text - Create floating text that reads ((String(Integer_Roll1)) + ( + + (String(Integer_Roll2)))) at (Point_Roll offset by (-55.00, 100.00)) with Z offset 0.00 , using font size 14.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
Set Variable Set Ftxt_Roll1 = (Last created floating text)
Wait 1.00 seconds
Sound - Play ItemReceived <gen>
Set Variable Set Integer_RollResult = (Integer_Roll1 + Integer_Roll2)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
booleantestonyxia Equal to True
Then - Actions
Set Variable Set Integer_RollResult = (Integer_Roll1 + Integer_Roll2)
Else - Actions
Do nothing
Floating Text - Create floating text that reads (String(Integer_RollResult)) at (Point_Roll offset by (-20.00, 20.00)) with Z offset 0 , using font size 16.00 , color ( 80.00 %, 100 %, 80.00 %), and 0 % transparency
Game - Display to (All players) the text: (String_Colors[(Player number of Player_Active)] + ((Name of Player_Active) + (|r has rolled + ((String(Integer_RollResult)) + !))))
Set Variable Set Ftxt_Roll2 = (Last created floating text)
Wait 2.50 seconds
Floating Text - Destroy Ftxt_Roll1
Floating Text - Destroy Ftxt_Roll2
Set Variable Set Integer_Gamestate = "2"
Set Variable Set Boolean_Temp1 = "false"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_RollResult Equal to 7
Then - Actions
Trigger - Run Lock_Items <gen> (checking conditions)
Trigger - Run Onyxia_Discard_1 <gen> (checking conditions)
Else - Actions
If (Boolean_TurnTimer Equal to True) then do (Start Timer_Turn as a One-shot timer that will expire in (Remaining time for Timer_Turn) seconds) else do (Do nothing)
Trigger - Run Resource_Payout <gen> (checking conditions)
Trigger - Run Trading_Start <gen> (checking conditions)
Resource Payout
Events
Conditions
Actions
Unit Group - Pick every unit in Group_ResourceMarkers[Integer_RollResult] and do (Actions)
Loop - Actions
Set Variable Set Point_Temp1 = (Position of (Picked unit))
Set Variable Set Unit_Temp1 = (Picked unit)
If ((Unit-type of Unit_Temp1) Equal to Land Marker Tradingpost) then do (Set VariableSet IntegerA_Temp3 = (Load 13 of (Key (Picked unit).) from Hashtable_Tradingposts.)) else do (Do nothing)
Unit Group - Pick every unit in (Units within 605.00 of Point_Temp1 matching (((Unit-type of (Matching unit)) Equal to Village (Human)) or (((Unit-type of (Matching unit)) Equal to Village (Night Elf)) or (((Unit-type of (Matching unit)) Equal to Village (Orc)) or ((Unit-type of (Matching unit)) Equal to Village (Undead))))).) and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between Point_Temp1 and Point_Onyxia) Less than or equal to 300.00
Then - Actions
Do nothing
Else - Actions
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of (Picked unit) using Abilities\Spells\Items\ResourceItems\ResourceEffectTarget.mdl
Special Effect - Destroy (Last created special effect)
Set Variable Set IntegerA_Temp1 = (Player number of (Owner of (Picked unit)))
If ((Unit-type of Unit_Temp1) Equal to Land Marker Field) then do (Set VariableSet Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] + 1)) else do (Do nothing)
If ((Unit-type of Unit_Temp1) Equal to Land Marker Forest) then do (Set VariableSet Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] + 1)) else do (Do nothing)
If ((Unit-type of Unit_Temp1) Equal to Land Marker Manawell) then do (Set VariableSet Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] + 1)) else do (Do nothing)
If ((Unit-type of Unit_Temp1) Equal to Land Marker Mine) then do (Set VariableSet Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] + 1)) else do (Do nothing)
If ((Unit-type of Unit_Temp1) Equal to Land Marker Plain) then do (Set VariableSet Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] + 1)) else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of Unit_Temp1) Equal to Land Marker Tradingpost
Then - Actions
If (IntegerA_Temp3 Equal to 1) then do (Set VariableSet Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] + 1)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 2) then do (Set VariableSet Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] + 1)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 3) then do (Set VariableSet Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] + 1)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 4) then do (Set VariableSet Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] + 1)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 5) then do (Set VariableSet Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] + 1)) else do (Do nothing)
Unit Group - Add Unit_Temp1 to Group_ChangingTradingPosts
Else - Actions
Do nothing
Sound - Play BundleOfLumber <gen> at 75.00 % volume, attached to (Picked unit)
Unit Group - Pick every unit in (Units within 605.00 of Point_Temp1 matching (((Unit-type of (Matching unit)) Equal to City (Human)) or (((Unit-type of (Matching unit)) Equal to City (Night Elf)) or (((Unit-type of (Matching unit)) Equal to City (Orc)) or ((Unit-type of (Matching unit)) Equal to City (Undead))))).) and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between Point_Temp1 and Point_Onyxia) Less than or equal to 300.00
Then - Actions
Do nothing
Else - Actions
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of (Picked unit) using Abilities\Spells\Items\ResourceItems\ResourceEffectTarget.mdl
Special Effect - Destroy (Last created special effect)
Set Variable Set IntegerA_Temp1 = (Player number of (Owner of (Picked unit)))
If ((Unit-type of Unit_Temp1) Equal to Land Marker Field) then do (Set VariableSet Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] + 2)) else do (Do nothing)
If ((Unit-type of Unit_Temp1) Equal to Land Marker Forest) then do (Set VariableSet Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] + 2)) else do (Do nothing)
If ((Unit-type of Unit_Temp1) Equal to Land Marker Manawell) then do (Set VariableSet Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] + 2)) else do (Do nothing)
If ((Unit-type of Unit_Temp1) Equal to Land Marker Mine) then do (Set VariableSet Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] + 2)) else do (Do nothing)
If ((Unit-type of Unit_Temp1) Equal to Land Marker Plain) then do (Set VariableSet Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] + 2)) else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of Unit_Temp1) Equal to Land Marker Tradingpost
Then - Actions
If (IntegerA_Temp3 Equal to 1) then do (Set VariableSet Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] + 2)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 2) then do (Set VariableSet Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] + 2)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 3) then do (Set VariableSet Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] + 2)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 4) then do (Set VariableSet Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] + 2)) else do (Do nothing)
If (IntegerA_Temp3 Equal to 5) then do (Set VariableSet Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] + 2)) else do (Do nothing)
Unit Group - Add Unit_Temp1 to Group_ChangingTradingPosts
Else - Actions
Do nothing
Sound - Play BundleOfLumber <gen> at 75.00 % volume, attached to (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_Houserules[1] Equal to True
Or - Any (Conditions) are true
Conditions
Integer_RollResult Equal to 2
Integer_RollResult Equal to 12
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_Temp1 Equal to False
Then - Actions
Set Variable Set Boolean_Temp1 = "true"
If (Integer_RollResult Equal to 2) then do (Set VariableSet Integer_RollResult = "12") else do (Set VariableSet Integer_RollResult = "2")
Trigger - Run (This trigger) (checking conditions)
Skip remaining actions
Else - Actions
Set Variable Set Boolean_Temp1 = "false"
Else - Actions
Do nothing
Trigger - Run Stats_Update <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Hashtable:
n= loop integer 1 to 4
n+0 = location
n+4 = facing angle
n+8 = unit
13 = resource type
14 = merc camp unit
15 = marketplace unit
Trading Post Change
Events
Conditions
(Number of units in Group_ChangingTradingPosts) Greater than 0
Actions
Unit Group - Pick every unit in Group_ChangingTradingPosts and do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp2 = (Key (Picked unit).)
Set Variable Set IntegerA_Temp1 = (Random integer number between 1 and 5)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to (Load 13 of IntegerA_Temp2 from Hashtable_Tradingposts.)
Then - Actions
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 - (Random integer number between 1 and 4))
If (IntegerA_Temp1 Less than or equal to 0) then do (Set VariableSet IntegerA_Temp1 = (5 + IntegerA_Temp1)) else do (Do nothing)
Else - Actions
Do nothing
Hashtable - Save IntegerA_Temp1 as 13 of IntegerA_Temp2 in Hashtable_Tradingposts .
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to 1
Then - Actions
Unit - Change color of (Load 14 of IntegerA_Temp2 in Hashtable_Tradingposts.) to Yellow
Unit - Change color of (Load 15 of IntegerA_Temp2 in Hashtable_Tradingposts.) to Yellow
Set Variable Set UnitType_Temp1 = "n02X"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to 2
Then - Actions
Unit - Change color of (Load 14 of IntegerA_Temp2 in Hashtable_Tradingposts.) to Green
Unit - Change color of (Load 15 of IntegerA_Temp2 in Hashtable_Tradingposts.) to Green
Set Variable Set UnitType_Temp1 = "n02Y"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to 3
Then - Actions
Unit - Change color of (Load 14 of IntegerA_Temp2 in Hashtable_Tradingposts.) to Purple
Unit - Change color of (Load 15 of IntegerA_Temp2 in Hashtable_Tradingposts.) to Purple
Set Variable Set UnitType_Temp1 = "n02W"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to 4
Then - Actions
Unit - Change color of (Load 14 of IntegerA_Temp2 in Hashtable_Tradingposts.) to Red
Unit - Change color of (Load 15 of IntegerA_Temp2 in Hashtable_Tradingposts.) to Red
Set Variable Set UnitType_Temp1 = "n02R"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to 5
Then - Actions
Unit - Change color of (Load 14 of IntegerA_Temp2 in Hashtable_Tradingposts.) to Gray
Unit - Change color of (Load 15 of IntegerA_Temp2 in Hashtable_Tradingposts.) to Gray
Set Variable Set UnitType_Temp1 = "n02V"
Else - Actions
Do nothing
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Unit - Remove (Load ((Integer A) + 8) of (Key (Picked unit).) in Hashtable_Tradingposts.) from the game
Unit - Create 1 . UnitType_Temp1 for Neutral Passive at (Load (Integer A) of IntegerA_Temp2 in Hashtable_Tradingposts.) facing (Load (4 + (Integer A)) of IntegerA_Temp2 from Hashtable_Tradingposts.) degrees
Hashtable - Save Handle Of (Last created unit) as (8 + (Integer A)) of IntegerA_Temp2 in Hashtable_Tradingposts .
Set Variable Set Point_Temp1 = (Position of (Picked unit))
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 256 towards 270.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 256 towards 45.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 56.00 towards 160.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp1)
Unit Group - Remove (Picked unit) from Group_ChangingTradingPosts .
Trading Start
Events
Conditions
Actions
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Unit - Add Inland Trading to Unit_Capitals[IntegerA_Temp1]
Unit Group - Pick every unit in Group_RoadBuilders[IntegerA_Temp1] and do (Add End Trading to (Picked unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[1].) Equal to True
Then - Actions
Unit - Add Offshore Grain Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Grain Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Grain Trade (1) to Unit_Capitals[IntegerA_Temp1])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[2].) Equal to True
Then - Actions
Unit - Add Offshore Lumber Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Lumber Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Lumber Trade (1) to Unit_Capitals[IntegerA_Temp1])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[3].) Equal to True
Then - Actions
Unit - Add Offshore Mana Crystal Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Mana Crystal Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Mana Crystal Trade (1 Roar) to Unit_Capitals[IntegerA_Temp1])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[4].) Equal to True
Then - Actions
Unit - Add Offshore Meat Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Meat Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Meat Trade (1) to Unit_Capitals[IntegerA_Temp1])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[5].) Equal to True
Then - Actions
Unit - Add Offshore Stone Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Stone Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Stone Trade (1) to Unit_Capitals[IntegerA_Temp1])
-------- Sorting out trading posts --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[6].) Equal to True
Then - Actions
Do nothing
Else - Actions
Set Variable Set Group_Temp1 = (Units of type Land Marker Tradingpost)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Set Variable Set Point_Temp1 = (Position of (Picked unit))
Set Variable Set IntegerA_Temp2 = (Key (Picked unit).)
Unit Group - Pick every unit in Group_Settlements[IntegerA_Temp1] and do (Actions)
Loop - Actions
Set Variable Set Point_Temp2 = (Position of (Picked unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between Point_Temp1 and Point_Temp2) Less than or equal to 605.00
Then - Actions
Set Variable Set IntegerA_Temp3 = (Load 13 of IntegerA_Temp2 from Hashtable_Tradingposts.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Equal to 1
(Player_Active is in PlayerGroup_Harbours[1].) Equal to False
Then - Actions
Unit - Remove Offshore Grain Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Add Offshore Grain Trade (2) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Equal to 2
(Player_Active is in PlayerGroup_Harbours[2].) Equal to False
Then - Actions
Unit - Remove Offshore Lumber Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Add Offshore Lumber Trade (2) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Equal to 3
(Player_Active is in PlayerGroup_Harbours[3].) Equal to False
Then - Actions
Unit - Remove Offshore Mana Crystal Trade (1 Roar) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Add Offshore Mana Crystal Trade (2) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Equal to 4
(Player_Active is in PlayerGroup_Harbours[4].) Equal to False
Then - Actions
Unit - Remove Offshore Meat Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Add Offshore Meat Trade (2) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Equal to 5
(Player_Active is in PlayerGroup_Harbours[5].) Equal to False
Then - Actions
Unit - Remove Offshore Stone Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Add Offshore Stone Trade (2) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
Do nothing
Else - Actions
Do nothing
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call DestroyGroup (udg_Group_Temp1)
Inland Offer 1
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Inland Trading
((Owner of (Target unit of ability being cast)) is in PlayerGroup_AFK.) Equal to False
Or - Any (Conditions) are true
Conditions
(Unit-type of (Target unit of ability being cast)) Equal to City (Human)
(Unit-type of (Target unit of ability being cast)) Equal to City (Night Elf)
(Unit-type of (Target unit of ability being cast)) Equal to City (Orc)
(Unit-type of (Target unit of ability being cast)) Equal to City (Undead)
(Unit-type of (Target unit of ability being cast)) Equal to Village (Human)
(Unit-type of (Target unit of ability being cast)) Equal to Village (Night Elf)
(Unit-type of (Target unit of ability being cast)) Equal to Village (Orc)
(Unit-type of (Target unit of ability being cast)) Equal to Village (Undead)
Actions
Unit - Remove Unholy Frenzy buff from (Target unit of ability being cast)
Trigger - Run Lock_Items <gen> (checking conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Triggering unit)) Not equal to (Owner of (Target unit of ability being cast))
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Owner of (Target unit of ability being cast)) is in PlayerGroup_Tradeblock.) Equal to False
Then - Actions
Set Variable Set Player_Inland = (Owner of (Target unit of ability being cast))
Set Variable Set IntegerA_Temp1 = (Player number of (Owner of (Triggering unit)))
Set Variable Set IntegerA_Temp3 = (Player number of Player_Inland)
For each (Integer A) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set Integer_InlandOffer[(Integer A)] = "0"
Set Variable Set Integer_InlandDemand[(Integer A)] = "0"
Set Variable Set String_InlandOffer[(Integer A)] = ""
Set Variable Set String_InlandDemand[(Integer A)] = ""
Set Variable Set String_InlandOfferTotal = ""
Dialog - Clear Dialog_InlandOffer
Dialog - Change the title of Dialog_InlandOffer to (You offer + (String_Colors[IntegerA_Temp3] + ((Name of (Player(IntegerA_Temp3))) + |r...)))
Dialog - Create a dialog button for Dialog_InlandOffer labelled Cancel
Set Variable Set DialogButton_InlandOffer[7] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceGrain[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_InlandOffer labelled (|c00FFFF00Grain|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandOffer[1] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = Integer_ResourceLumber[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_InlandOffer labelled (|c0000FF00Lumber|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandOffer[2] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = Integer_ResourceManaCrystals[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_InlandOffer labelled (|c006969FFMana Crystal|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandOffer[3] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = Integer_ResourceMeat[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_InlandOffer labelled (|c00FF9696Meat|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandOffer[4] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = Integer_ResourceStone[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_InlandOffer labelled (|c007d7d7dStone|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandOffer[5] = (Last created dialog Button)
Else - Actions
Do nothing
Dialog - Create a dialog button for Dialog_InlandOffer labelled Continue
Set Variable Set DialogButton_InlandOffer[6] = (Last created dialog Button)
Dialog - Show Dialog_InlandOffer for Player_Active
Else - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0303That player is tradeblocking you.|r
Else - Actions
Do nothing
|c007d7|c00FFFF00Grain|r
|c0000FF00Lumber|r
|c006969FFMana Crystal|r
|c00FF9696Meat|r
|c007d7d7dStone|r
Inland Offer 2
Events
Dialog - A dialog button is clicked for Dialog_InlandOffer
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Not equal to DialogButton_InlandOffer[7]
Then - Actions
Set Variable Set IntegerA_Temp3 = (Player number of Player_Inland)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Not equal to DialogButton_InlandOffer[6]
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_InlandOffer[1]
Then - Actions
Set Variable Set IntegerA_Temp2 = "1"
Set Variable Set Integer_InlandOffer[IntegerA_Temp2] = (Integer_InlandOffer[IntegerA_Temp2] + 1)
Set Variable Set String_InlandOffer[IntegerA_Temp2] = ((String(Integer_InlandOffer[IntegerA_Temp2])) + |c00FFFF00Grain|r )
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_InlandOffer[2]
Then - Actions
Set Variable Set IntegerA_Temp2 = "2"
Set Variable Set Integer_InlandOffer[IntegerA_Temp2] = (Integer_InlandOffer[IntegerA_Temp2] + 1)
Set Variable Set String_InlandOffer[IntegerA_Temp2] = ((String(Integer_InlandOffer[IntegerA_Temp2])) + |c0000FF00Lumber|r )
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_InlandOffer[3]
Then - Actions
Set Variable Set IntegerA_Temp2 = "3"
Set Variable Set Integer_InlandOffer[IntegerA_Temp2] = (Integer_InlandOffer[IntegerA_Temp2] + 1)
Set Variable Set String_InlandOffer[IntegerA_Temp2] = ((String(Integer_InlandOffer[IntegerA_Temp2])) + |c006969FFMana Crystal|r )
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_InlandOffer[4]
Then - Actions
Set Variable Set IntegerA_Temp2 = "4"
Set Variable Set Integer_InlandOffer[IntegerA_Temp2] = (Integer_InlandOffer[IntegerA_Temp2] + 1)
Set Variable Set String_InlandOffer[IntegerA_Temp2] = ((String(Integer_InlandOffer[IntegerA_Temp2])) + |c00FF9696Meat|r )
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_InlandOffer[5]
Then - Actions
Set Variable Set IntegerA_Temp2 = "5"
Set Variable Set Integer_InlandOffer[IntegerA_Temp2] = (Integer_InlandOffer[IntegerA_Temp2] + 1)
Set Variable Set String_InlandOffer[IntegerA_Temp2] = ((String(Integer_InlandOffer[IntegerA_Temp2])) + |c007d7d7dStone|r )
Else - Actions
Do nothing
Set Variable Set String_InlandOfferTotal = (String_InlandOffer[1] + (String_InlandOffer[2] + (String_InlandOffer[3] + (String_InlandOffer[4] + String_InlandOffer[5]))))
Dialog - Clear Dialog_InlandOffer
Dialog - Change the title of Dialog_InlandOffer to (You offer + (String_Colors[IntegerA_Temp3] + ((Name of (Player(IntegerA_Temp3))) + (|r|n + String_InlandOfferTotal))))
Dialog - Create a dialog button for Dialog_InlandOffer labelled Cancel
Set Variable Set DialogButton_InlandOffer[7] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = (Integer_ResourceGrain[IntegerA_Temp1] - Integer_InlandOffer[1])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_InlandOffer labelled (|c00FFFF00Grain|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandOffer[1] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = (Integer_ResourceLumber[IntegerA_Temp1] - Integer_InlandOffer[2])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_InlandOffer labelled (|c0000FF00Lumber|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandOffer[2] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = (Integer_ResourceManaCrystals[IntegerA_Temp1] - Integer_InlandOffer[3])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_InlandOffer labelled (|c006969FFMana Crystal|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandOffer[3] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = (Integer_ResourceMeat[IntegerA_Temp1] - Integer_InlandOffer[4])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_InlandOffer labelled (|c00FF9696Meat|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandOffer[4] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = (Integer_ResourceStone[IntegerA_Temp1] - Integer_InlandOffer[5])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_InlandOffer labelled (|c007d7d7dStone|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandOffer[5] = (Last created dialog Button)
Else - Actions
Do nothing
Dialog - Create a dialog button for Dialog_InlandOffer labelled Continue
Set Variable Set DialogButton_InlandOffer[6] = (Last created dialog Button)
Dialog - Show Dialog_InlandOffer for Player_Active
Else - Actions
Set Variable Set IntegerA_Temp2 = "0"
For each (Integer A) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp2 = (IntegerA_Temp2 + Integer_InlandOffer[(Integer A)])
If (IntegerA_Temp2 Equal to 0) then do (Set VariableSet String_InlandOfferTotal = "nothing") else do (Do nothing)
Dialog - Clear Dialog_InlandDemand
Dialog - Change the title of Dialog_InlandDemand to (You offer + (String_Colors[IntegerA_Temp3] + ((Name of (Player(IntegerA_Temp3))) + (|r|n + (String_InlandOfferTotal + |nIn return for...)))))
Dialog - Create a dialog button for Dialog_InlandDemand labelled Cancel
Set Variable Set DialogButton_InlandDemand[7] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = (Integer_ResourceGrain[IntegerA_Temp1] - Integer_InlandOffer[1])
Dialog - Create a dialog button for Dialog_InlandDemand labelled (|c00FFFF00Grain|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandDemand[1] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = (Integer_ResourceLumber[IntegerA_Temp1] - Integer_InlandOffer[2])
Dialog - Create a dialog button for Dialog_InlandDemand labelled (|c0000FF00Lumber|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandDemand[2] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = (Integer_ResourceManaCrystals[IntegerA_Temp1] - Integer_InlandOffer[3])
Dialog - Create a dialog button for Dialog_InlandDemand labelled (|c006969FFMana Crystal|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandDemand[3] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = (Integer_ResourceMeat[IntegerA_Temp1] - Integer_InlandOffer[4])
Dialog - Create a dialog button for Dialog_InlandDemand labelled (|c00FF9696Meat|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandDemand[4] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = (Integer_ResourceStone[IntegerA_Temp1] - Integer_InlandOffer[5])
Dialog - Create a dialog button for Dialog_InlandDemand labelled (|c007d7d7dStone|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandDemand[5] = (Last created dialog Button)
Dialog - Create a dialog button for Dialog_InlandDemand labelled Make Offer
Set Variable Set DialogButton_InlandDemand[6] = (Last created dialog Button)
Dialog - Show Dialog_InlandDemand for Player_Active
Else - Actions
Trigger - Run Unlock_Items <gen> (checking conditions)
|c007d7|c00FFFF00Grain|r
|c0000FF00Lumber|r
|c006969FFMana Crystal|r
|c00FF9696Meat|r
|c007d7d7dStone|r
Inland Demand
Events
Dialog - A dialog button is clicked for Dialog_InlandDemand
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Not equal to DialogButton_InlandDemand[7]
Then - Actions
Set Variable Set IntegerA_Temp3 = (Player number of Player_Inland)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Not equal to DialogButton_InlandDemand[6]
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_InlandDemand[1]
Then - Actions
Set Variable Set IntegerA_Temp2 = "1"
Set Variable Set Integer_InlandDemand[IntegerA_Temp2] = (Integer_InlandDemand[IntegerA_Temp2] + 1)
Set Variable Set String_InlandDemand[IntegerA_Temp2] = ((String(Integer_InlandDemand[IntegerA_Temp2])) + |c00FFFF00Grain|r )
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_InlandDemand[2]
Then - Actions
Set Variable Set IntegerA_Temp2 = "2"
Set Variable Set Integer_InlandDemand[IntegerA_Temp2] = (Integer_InlandDemand[IntegerA_Temp2] + 1)
Set Variable Set String_InlandDemand[IntegerA_Temp2] = ((String(Integer_InlandDemand[IntegerA_Temp2])) + |c0000FF00Lumber|r )
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_InlandDemand[3]
Then - Actions
Set Variable Set IntegerA_Temp2 = "3"
Set Variable Set Integer_InlandDemand[IntegerA_Temp2] = (Integer_InlandDemand[IntegerA_Temp2] + 1)
Set Variable Set String_InlandDemand[IntegerA_Temp2] = ((String(Integer_InlandDemand[IntegerA_Temp2])) + |c006969FFMana Crystal|r )
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_InlandDemand[4]
Then - Actions
Set Variable Set IntegerA_Temp2 = "4"
Set Variable Set Integer_InlandDemand[IntegerA_Temp2] = (Integer_InlandDemand[IntegerA_Temp2] + 1)
Set Variable Set String_InlandDemand[IntegerA_Temp2] = ((String(Integer_InlandDemand[IntegerA_Temp2])) + |c00FF9696Meat|r )
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_InlandDemand[5]
Then - Actions
Set Variable Set IntegerA_Temp2 = "5"
Set Variable Set Integer_InlandDemand[IntegerA_Temp2] = (Integer_InlandDemand[IntegerA_Temp2] + 1)
Set Variable Set String_InlandDemand[IntegerA_Temp2] = ((String(Integer_InlandDemand[IntegerA_Temp2])) + |c007d7d7dStone|r )
Else - Actions
Do nothing
Set Variable Set String_InlandDemandTotal = (String_InlandDemand[1] + (String_InlandDemand[2] + (String_InlandDemand[3] + (String_InlandDemand[4] + String_InlandDemand[5]))))
Dialog - Clear Dialog_InlandDemand
Dialog - Change the title of Dialog_InlandDemand to (You offer + (String_Colors[IntegerA_Temp3] + ((Name of (Player(IntegerA_Temp3))) + (|r|n + (String_InlandOfferTotal + (|nIn return for|n + String_InlandDemandTotal))))))
Dialog - Create a dialog button for Dialog_InlandDemand labelled Cancel
Set Variable Set DialogButton_InlandDemand[7] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = (Integer_ResourceGrain[IntegerA_Temp1] - Integer_InlandOffer[1])
Dialog - Create a dialog button for Dialog_InlandDemand labelled (|c00FFFF00Grain|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandDemand[1] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = (Integer_ResourceLumber[IntegerA_Temp1] - Integer_InlandOffer[2])
Dialog - Create a dialog button for Dialog_InlandDemand labelled (|c0000FF00Lumber|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandDemand[2] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = (Integer_ResourceManaCrystals[IntegerA_Temp1] - Integer_InlandOffer[3])
Dialog - Create a dialog button for Dialog_InlandDemand labelled (|c006969FFMana Crystal|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandDemand[3] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = (Integer_ResourceMeat[IntegerA_Temp1] - Integer_InlandOffer[4])
Dialog - Create a dialog button for Dialog_InlandDemand labelled (|c00FF9696Meat|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandDemand[4] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = (Integer_ResourceStone[IntegerA_Temp1] - Integer_InlandOffer[5])
Dialog - Create a dialog button for Dialog_InlandDemand labelled (|c007d7d7dStone|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_InlandDemand[5] = (Last created dialog Button)
Dialog - Create a dialog button for Dialog_InlandDemand labelled Make Offer
Set Variable Set DialogButton_InlandDemand[6] = (Last created dialog Button)
Dialog - Show Dialog_InlandDemand for Player_Active
Else - Actions
Set Variable Set IntegerA_Temp2 = "0"
For each (Integer A) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp2 = (IntegerA_Temp2 + Integer_InlandDemand[(Integer A)])
If (IntegerA_Temp2 Equal to 0) then do (Set VariableSet String_InlandDemandTotal = "nothing") else do (Do nothing)
Set Variable Set IntegerA_Temp2 = "0"
For each (Integer A) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp2 = (IntegerA_Temp2 + Integer_InlandDemand[(Integer A)])
Set Variable Set IntegerA_Temp2 = (IntegerA_Temp2 + Integer_InlandOffer[(Integer A)])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Equal to 0
Then - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + |r attempts to trade nothing for nothing, thus wasting everyone's time.))
Custom script: if ( GetLocalPlayer() == udg_Player_Active ) then
Sound - Play HeroMountainKingPissed4 <gen>
Custom script: endif
Skip remaining actions
Else - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r offers + (String_InlandOfferTotal + (to + (String_Colors[IntegerA_Temp3] + ((Name of Player_Inland) + (|r in return for + String_InlandDemandTotal))))))))
Dialog - Clear Dialog_InlandAccept
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_ResourceGrain[IntegerA_Temp3] Greater than or equal to Integer_InlandDemand[1]
Integer_ResourceLumber[IntegerA_Temp3] Greater than or equal to Integer_InlandDemand[2]
Integer_ResourceManaCrystals[IntegerA_Temp3] Greater than or equal to Integer_InlandDemand[3]
Integer_ResourceMeat[IntegerA_Temp3] Greater than or equal to Integer_InlandDemand[4]
Integer_ResourceStone[IntegerA_Temp3] Greater than or equal to Integer_InlandDemand[5]
Then - Actions
Dialog - Change the title of Dialog_InlandAccept to ((String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + |r offers you|n)) + ( + ( + ( + (String_InlandOfferTotal + (|nIn return for|n + String_InlandDemandTotal))))))
Dialog - Create a dialog button for Dialog_InlandAccept labelled |c00FF0000Decline|r
Set Variable Set DialogButton_InlandAccept[1] = (Last created dialog Button)
Dialog - Create a dialog button for Dialog_InlandAccept labelled |c00FF0000Decline and Tradeblock|r
Set Variable Set DialogButton_InlandAccept[2] = (Last created dialog Button)
Dialog - Create a dialog button for Dialog_InlandAccept labelled |c0000FF00Accept|r
Set Variable Set DialogButton_InlandAccept[3] = (Last created dialog Button)
Else - Actions
Dialog - Change the title of Dialog_InlandAccept to ((String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + |r offers you|n)) + ( + ( + ( + (String_InlandOfferTotal + (|nIn return for|n + (String_InlandDemandTotal + |n |c00FF7F00(Not enough resources to accept)|r)))))))
Dialog - Create a dialog button for Dialog_InlandAccept labelled OK
Set Variable Set DialogButton_InlandAccept[1] = (Last created dialog Button)
Dialog - Create a dialog button for Dialog_InlandAccept labelled |c00FF0000Tradeblock|r
Set Variable Set DialogButton_InlandAccept[2] = (Last created dialog Button)
Dialog - Show Dialog_InlandAccept for Player_Inland
-------- Change this ^ to "Show to Player_Inland" --------
Unit - Remove Inland Trading from Unit_Capitals[IntegerA_Temp1]
Unit Group - Pick every unit in Group_RoadBuilders[IntegerA_Temp1] and do (Remove End Trading from (Picked unit))
Unit - Add Cancel Offer to Unit_Capitals[IntegerA_Temp1]
If (Boolean_TurnTimer Equal to True) then do (Pause Timer_Turn) else do (Do nothing)
Unit - Remove Offshore Grain Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (1 Roar) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (3) from Unit_Capitals[IntegerA_Temp1]
Else - Actions
Trigger - Run Unlock_Items <gen> (checking conditions)
Inland Accept
Events
Dialog - A dialog button is clicked for Dialog_InlandAccept
Conditions
Actions
If (Boolean_TurnTimer Equal to True) then do (Start Timer_Turn as a One-shot timer that will expire in (Remaining time for Timer_Turn) seconds) else do (Do nothing)
Trigger - Run Unlock_Items <gen> (checking conditions)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Set Variable Set IntegerA_Temp3 = (Player number of Player_Inland)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_InlandAccept[3]
Then - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp3] + ((Name of Player_Inland) + |r accepts the trade offer.))
Set Variable Set Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] - Integer_InlandOffer[1])
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] - Integer_InlandOffer[2])
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] - Integer_InlandOffer[3])
Set Variable Set Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] - Integer_InlandOffer[4])
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] - Integer_InlandOffer[5])
Set Variable Set Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] + Integer_InlandDemand[1])
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] + Integer_InlandDemand[2])
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] + Integer_InlandDemand[3])
Set Variable Set Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] + Integer_InlandDemand[4])
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] + Integer_InlandDemand[5])
Set Variable Set Integer_ResourceGrain[IntegerA_Temp3] = (Integer_ResourceGrain[IntegerA_Temp3] + Integer_InlandOffer[1])
Set Variable Set Integer_ResourceLumber[IntegerA_Temp3] = (Integer_ResourceLumber[IntegerA_Temp3] + Integer_InlandOffer[2])
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp3] = (Integer_ResourceManaCrystals[IntegerA_Temp3] + Integer_InlandOffer[3])
Set Variable Set Integer_ResourceMeat[IntegerA_Temp3] = (Integer_ResourceMeat[IntegerA_Temp3] + Integer_InlandOffer[4])
Set Variable Set Integer_ResourceStone[IntegerA_Temp3] = (Integer_ResourceStone[IntegerA_Temp3] + Integer_InlandOffer[5])
Set Variable Set Integer_ResourceGrain[IntegerA_Temp3] = (Integer_ResourceGrain[IntegerA_Temp3] - Integer_InlandDemand[1])
Set Variable Set Integer_ResourceLumber[IntegerA_Temp3] = (Integer_ResourceLumber[IntegerA_Temp3] - Integer_InlandDemand[2])
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp3] = (Integer_ResourceManaCrystals[IntegerA_Temp3] - Integer_InlandDemand[3])
Set Variable Set Integer_ResourceMeat[IntegerA_Temp3] = (Integer_ResourceMeat[IntegerA_Temp3] - Integer_InlandDemand[4])
Set Variable Set Integer_ResourceStone[IntegerA_Temp3] = (Integer_ResourceStone[IntegerA_Temp3] - Integer_InlandDemand[5])
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of Unit_Capitals[IntegerA_Temp1] using UI\Feedback\GoldCredit\GoldCredit.mdl
Special Effect - Destroy (Last created special effect)
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of Unit_Capitals[IntegerA_Temp3] using UI\Feedback\GoldCredit\GoldCredit.mdl
Special Effect - Destroy (Last created special effect)
Sound - Play ReceiveGold <gen>
Trigger - Run Stats_Update <gen> (checking conditions)
Else - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp3] + ((Name of Player_Inland) + |r declines the trade offer.))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_InlandAccept[2]
Then - Actions
Player Group - Add Player_Inland to PlayerGroup_Tradeblock
Unit - Add Tradeblock to Unit_Capitals[IntegerA_Temp3]
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Unit - Remove Cancel Offer from Unit_Capitals[IntegerA_Temp1]
Unit - Add Inland Trading to Unit_Capitals[IntegerA_Temp1]
Unit Group - Pick every unit in Group_RoadBuilders[IntegerA_Temp1] and do (Add End Trading to (Picked unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[1].) Equal to True
Then - Actions
Unit - Add Offshore Grain Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Grain Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Grain Trade (1) to Unit_Capitals[IntegerA_Temp1])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[2].) Equal to True
Then - Actions
Unit - Add Offshore Lumber Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Lumber Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Lumber Trade (1) to Unit_Capitals[IntegerA_Temp1])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[3].) Equal to True
Then - Actions
Unit - Add Offshore Mana Crystal Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Mana Crystal Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Mana Crystal Trade (1 Roar) to Unit_Capitals[IntegerA_Temp1])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[4].) Equal to True
Then - Actions
Unit - Add Offshore Meat Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Meat Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Meat Trade (1) to Unit_Capitals[IntegerA_Temp1])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[5].) Equal to True
Then - Actions
Unit - Add Offshore Stone Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Stone Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Stone Trade (1) to Unit_Capitals[IntegerA_Temp1])
Inland Tradeblock
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Tradeblock
Actions
Unit - Remove Tradeblock from (Triggering unit)
Player Group - Remove (Owner of (Triggering unit)) from PlayerGroup_Tradeblock .
Inland Cancel
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Cancel Offer
Actions
If (Boolean_TurnTimer Equal to True) then do (Start Timer_Turn as a One-shot timer that will expire in (Remaining time for Timer_Turn) seconds) else do (Do nothing)
Dialog - Hide Dialog_InlandAccept for Player_Inland
Dialog - Clear Dialog_InlandAccept
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Unit - Remove Cancel Offer from Unit_Capitals[IntegerA_Temp1]
Unit - Add Inland Trading to Unit_Capitals[IntegerA_Temp1]
Unit Group - Pick every unit in Group_RoadBuilders[IntegerA_Temp1] and do (Add End Trading to (Picked unit))
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + |r cancels the trade offer.))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[1].) Equal to True
Then - Actions
Unit - Add Offshore Grain Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Grain Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Grain Trade (1) to Unit_Capitals[IntegerA_Temp1])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[2].) Equal to True
Then - Actions
Unit - Add Offshore Lumber Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Lumber Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Lumber Trade (1) to Unit_Capitals[IntegerA_Temp1])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[3].) Equal to True
Then - Actions
Unit - Add Offshore Mana Crystal Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Mana Crystal Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Mana Crystal Trade (1 Roar) to Unit_Capitals[IntegerA_Temp1])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[4].) Equal to True
Then - Actions
Unit - Add Offshore Meat Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Meat Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Meat Trade (1) to Unit_Capitals[IntegerA_Temp1])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Active is in PlayerGroup_Harbours[5].) Equal to True
Then - Actions
Unit - Add Offshore Stone Trade (3) to Unit_Capitals[IntegerA_Temp1]
Else - Actions
If ((Player_Active is in PlayerGroup_Harbours[6].) Equal to True) then do (Add Offshore Stone Trade (2) to Unit_Capitals[IntegerA_Temp1]) else do (Add Offshore Stone Trade (1) to Unit_Capitals[IntegerA_Temp1])
Offshore Abilities
Events
Player - Player 1 (Red) types a chat message containing offshore (Unexpected type: 'stringnoformat') as An exact match
Conditions
Actions
Set Variable Set Unit_Temp1 = Unit_Capitals[(Player number of Player_Active)]
Unit - Remove Offshore Grain Trade (1) from Unit_Temp1
Unit - Remove Offshore Grain Trade (2) from Unit_Temp1
Unit - Remove Offshore Grain Trade (3) from Unit_Temp1
Unit - Remove Offshore Lumber Trade (1) from Unit_Temp1
Unit - Remove Offshore Lumber Trade (2) from Unit_Temp1
Unit - Remove Offshore Lumber Trade (3) from Unit_Temp1
Unit - Remove Offshore Mana Crystal Trade (1 Roar) from Unit_Temp1
Unit - Remove Offshore Mana Crystal Trade (2) from Unit_Temp1
Unit - Remove Offshore Mana Crystal Trade (3) from Unit_Temp1
Unit - Remove Offshore Meat Trade (1) from Unit_Temp1
Unit - Remove Offshore Meat Trade (2) from Unit_Temp1
Unit - Remove Offshore Meat Trade (3) from Unit_Temp1
Unit - Remove Offshore Stone Trade (1) from Unit_Temp1
Unit - Remove Offshore Stone Trade (2) from Unit_Temp1
Unit - Remove Offshore Stone Trade (3) from Unit_Temp1
Unit - Add Offshore Grain Trade (1) to Unit_Temp1
Unit - Add Offshore Lumber Trade (1) to Unit_Temp1
Unit - Add Offshore Mana Crystal Trade (1 Roar) to Unit_Temp1
Unit - Add Offshore Meat Trade (1) to Unit_Temp1
Unit - Add Offshore Stone Trade (1) to Unit_Temp1
If ((Race of Player_Active) Equal to Human) then do (Set VariableSet UnitType_Temp1 = "n032") else do (Do nothing)
If ((Race of Player_Active) Equal to Orc) then do (Set VariableSet UnitType_Temp1 = "n030") else do (Do nothing)
If ((Race of Player_Active) Equal to Undead) then do (Set VariableSet UnitType_Temp1 = "n034") else do (Do nothing)
If ((Race of Player_Active) Equal to Night Elf) then do (Set VariableSet UnitType_Temp1 = "n031") else do (Do nothing)
Unit Group - Pick every unit in Group_Temp1 and do (Remove (Picked unit) from Group_Temp1.)
Set Variable Set Group_Temp1 = (Units owned by Player_Active of type UnitType_Temp1)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_Harbor[6].) Equal to True
Then - Actions
Unit - Remove Offshore Grain Trade (1) from Unit_Temp1
Unit - Remove Offshore Grain Trade (2) from Unit_Temp1
Unit - Remove Offshore Lumber Trade (1) from Unit_Temp1
Unit - Remove Offshore Lumber Trade (2) from Unit_Temp1
Unit - Remove Offshore Mana Crystal Trade (1 Roar) from Unit_Temp1
Unit - Remove Offshore Mana Crystal Trade (2) from Unit_Temp1
Unit - Remove Offshore Meat Trade (1) from Unit_Temp1
Unit - Remove Offshore Meat Trade (2) from Unit_Temp1
Unit - Remove Offshore Stone Trade (1) from Unit_Temp1
Unit - Remove Offshore Stone Trade (2) from Unit_Temp1
Unit - Add Offshore Grain Trade (2) to Unit_Temp1
Unit - Add Offshore Lumber Trade (2) to Unit_Temp1
Unit - Add Offshore Mana Crystal Trade (2) to Unit_Temp1
Unit - Add Offshore Meat Trade (2) to Unit_Temp1
Unit - Add Offshore Stone Trade (2) to Unit_Temp1
Else - Actions
Do nothing
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_Harbor[1].) Equal to True
Then - Actions
Unit - Remove Offshore Grain Trade (1) from Unit_Temp1
Unit - Remove Offshore Grain Trade (2) from Unit_Temp1
Unit - Remove Offshore Grain Trade (3) from Unit_Temp1
Unit - Add Offshore Grain Trade (3) to Unit_Temp1
Else - Actions
Do nothing
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_Harbor[2].) Equal to True
Then - Actions
Unit - Remove Offshore Lumber Trade (1) from Unit_Temp1
Unit - Remove Offshore Lumber Trade (2) from Unit_Temp1
Unit - Remove Offshore Lumber Trade (3) from Unit_Temp1
Unit - Add Offshore Lumber Trade (3) to Unit_Temp1
Else - Actions
Do nothing
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_Harbor[3].) Equal to True
Then - Actions
Unit - Remove Offshore Mana Crystal Trade (1 Roar) from Unit_Temp1
Unit - Remove Offshore Mana Crystal Trade (2) from Unit_Temp1
Unit - Remove Offshore Mana Crystal Trade (3) from Unit_Temp1
Unit - Add Offshore Mana Crystal Trade (3) to Unit_Temp1
Else - Actions
Do nothing
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_Harbor[4].) Equal to True
Then - Actions
Unit - Remove Offshore Meat Trade (1) from Unit_Temp1
Unit - Remove Offshore Meat Trade (2) from Unit_Temp1
Unit - Remove Offshore Meat Trade (3) from Unit_Temp1
Unit - Add Offshore Meat Trade (3) to Unit_Temp1
Else - Actions
Do nothing
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_Harbor[5].) Equal to True
Then - Actions
Unit - Remove Offshore Stone Trade (1) from Unit_Temp1
Unit - Remove Offshore Stone Trade (2) from Unit_Temp1
Unit - Remove Offshore Stone Trade (3) from Unit_Temp1
Unit - Add Offshore Stone Trade (3) to Unit_Temp1
Else - Actions
Do nothing
Offshore Trade Grain
Events
Unit - A unit Starts the effect of an ability
Conditions
Or - Any (Conditions) are true
Conditions
(Ability being cast) Equal to Offshore Grain Trade (1)
(Ability being cast) Equal to Offshore Grain Trade (2)
(Ability being cast) Equal to Offshore Grain Trade (3)
Actions
Unit - Remove Unholy Frenzy buff from (Triggering unit)
Set Variable Set Player_Temp1 = (Owner of (Triggering unit))
Set Variable Set IntegerA_Temp1 = (Player number of Player_Temp1)
Set Variable Set Integer_Offshore = "1"
Set Variable Set String_Offshore = "|c00FFFF00Grain|r"
If ((Ability being cast) Equal to Offshore Grain Trade (1)) then do (Set VariableSet Integer_OffshorePrice = "4") else do (Do nothing)
If ((Ability being cast) Equal to Offshore Grain Trade (2)) then do (Set VariableSet Integer_OffshorePrice = "3") else do (Do nothing)
If ((Ability being cast) Equal to Offshore Grain Trade (3)) then do (Set VariableSet Integer_OffshorePrice = "2") else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_ResourceGrain[IntegerA_Temp1] Greater than or equal to Integer_OffshorePrice
Then - Actions
Trigger - Run Offshore_Dialog <gen> (checking conditions)
Else - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000You do not have enough Grain to trade.|r
Offshore Trade Lumber
Events
Unit - A unit Starts the effect of an ability
Conditions
Or - Any (Conditions) are true
Conditions
(Ability being cast) Equal to Offshore Lumber Trade (1)
(Ability being cast) Equal to Offshore Lumber Trade (2)
(Ability being cast) Equal to Offshore Lumber Trade (3)
Actions
Set Variable Set Player_Temp1 = (Owner of (Triggering unit))
Set Variable Set IntegerA_Temp1 = (Player number of Player_Temp1)
Set Variable Set Integer_Offshore = "2"
Set Variable Set String_Offshore = "|c0000FF00Lumber|r"
If ((Ability being cast) Equal to Offshore Lumber Trade (1)) then do (Set VariableSet Integer_OffshorePrice = "4") else do (Do nothing)
If ((Ability being cast) Equal to Offshore Lumber Trade (2)) then do (Set VariableSet Integer_OffshorePrice = "3") else do (Do nothing)
If ((Ability being cast) Equal to Offshore Lumber Trade (3)) then do (Set VariableSet Integer_OffshorePrice = "2") else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_ResourceLumber[IntegerA_Temp1] Greater than or equal to Integer_OffshorePrice
Then - Actions
Trigger - Run Offshore_Dialog <gen> (checking conditions)
Else - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000You do not have enough Lumber to trade.|r
Offshore Trade Mana Crystals
Events
Unit - A unit Starts the effect of an ability
Conditions
Or - Any (Conditions) are true
Conditions
(Ability being cast) Equal to Offshore Mana Crystal Trade (1 Roar)
(Ability being cast) Equal to Offshore Mana Crystal Trade (2)
(Ability being cast) Equal to Offshore Mana Crystal Trade (3)
Actions
Unit - Remove Roar buff from (Triggering unit)
Set Variable Set Player_Temp1 = (Owner of (Triggering unit))
Set Variable Set IntegerA_Temp1 = (Player number of Player_Temp1)
Set Variable Set Integer_Offshore = "3"
Set Variable Set String_Offshore = "|c006969FFMana Crystal|r"
If ((Ability being cast) Equal to Offshore Mana Crystal Trade (1 Roar)) then do (Set VariableSet Integer_OffshorePrice = "4") else do (Do nothing)
If ((Ability being cast) Equal to Offshore Mana Crystal Trade (2)) then do (Set VariableSet Integer_OffshorePrice = "3") else do (Do nothing)
If ((Ability being cast) Equal to Offshore Mana Crystal Trade (3)) then do (Set VariableSet Integer_OffshorePrice = "2") else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_ResourceManaCrystals[IntegerA_Temp1] Greater than or equal to Integer_OffshorePrice
Then - Actions
Trigger - Run Offshore_Dialog <gen> (checking conditions)
Else - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000You do not have enough Mana Crystal to trade.|r
Offshore Trade Meat
Events
Unit - A unit Starts the effect of an ability
Conditions
Or - Any (Conditions) are true
Conditions
(Ability being cast) Equal to Offshore Meat Trade (1)
(Ability being cast) Equal to Offshore Meat Trade (2)
(Ability being cast) Equal to Offshore Meat Trade (3)
Actions
Set Variable Set Player_Temp1 = (Owner of (Triggering unit))
Set Variable Set IntegerA_Temp1 = (Player number of Player_Temp1)
Set Variable Set Integer_Offshore = "4"
Set Variable Set String_Offshore = "|c00FF9696Meat|r"
If ((Ability being cast) Equal to Offshore Meat Trade (1)) then do (Set VariableSet Integer_OffshorePrice = "4") else do (Do nothing)
If ((Ability being cast) Equal to Offshore Meat Trade (2)) then do (Set VariableSet Integer_OffshorePrice = "3") else do (Do nothing)
If ((Ability being cast) Equal to Offshore Meat Trade (3)) then do (Set VariableSet Integer_OffshorePrice = "2") else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_ResourceMeat[IntegerA_Temp1] Greater than or equal to Integer_OffshorePrice
Then - Actions
Trigger - Run Offshore_Dialog <gen> (checking conditions)
Else - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000You do not have enough Meat to trade.|r
Offshore Trade Stone
Events
Unit - A unit Starts the effect of an ability
Conditions
Or - Any (Conditions) are true
Conditions
(Ability being cast) Equal to Offshore Stone Trade (1)
(Ability being cast) Equal to Offshore Stone Trade (2)
(Ability being cast) Equal to Offshore Stone Trade (3)
Actions
Set Variable Set Player_Temp1 = (Owner of (Triggering unit))
Set Variable Set IntegerA_Temp1 = (Player number of Player_Temp1)
Set Variable Set Integer_Offshore = "5"
Set Variable Set String_Offshore = "|c007d7d7dStone|r"
If ((Ability being cast) Equal to Offshore Stone Trade (1)) then do (Set VariableSet Integer_OffshorePrice = "4") else do (Do nothing)
If ((Ability being cast) Equal to Offshore Stone Trade (2)) then do (Set VariableSet Integer_OffshorePrice = "3") else do (Do nothing)
If ((Ability being cast) Equal to Offshore Stone Trade (3)) then do (Set VariableSet Integer_OffshorePrice = "2") else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_ResourceStone[IntegerA_Temp1] Greater than or equal to Integer_OffshorePrice
Then - Actions
Trigger - Run Offshore_Dialog <gen> (checking conditions)
Else - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000You do not have enough Stone to trade.|r
1- Grain
2- Lumber
3- Mana Crystal
4- Meat
5- Stone
6- Done
Offshore Dialog
Events
Conditions
Actions
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
If (Integer_Offshore Equal to 1) then do (Set VariableSet IntegerA_Temp2 = Integer_ResourceGrain[IntegerA_Temp1]) else do (Do nothing)
If (Integer_Offshore Equal to 2) then do (Set VariableSet IntegerA_Temp2 = Integer_ResourceLumber[IntegerA_Temp1]) else do (Do nothing)
If (Integer_Offshore Equal to 3) then do (Set VariableSet IntegerA_Temp2 = Integer_ResourceManaCrystals[IntegerA_Temp1]) else do (Do nothing)
If (Integer_Offshore Equal to 4) then do (Set VariableSet IntegerA_Temp2 = Integer_ResourceMeat[IntegerA_Temp1]) else do (Do nothing)
If (Integer_Offshore Equal to 5) then do (Set VariableSet IntegerA_Temp2 = Integer_ResourceStone[IntegerA_Temp1]) else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than or equal to Integer_OffshorePrice
Then - Actions
Dialog - Clear Dialog_Offshore
Dialog - Change the title of Dialog_Offshore to (You are trading + ((String(Integer_OffshorePrice)) + ( + (String_Offshore + ( ( + ((String(IntegerA_Temp2)) + )))))))
Dialog - Create a dialog button for Dialog_Offshore labelled Done
Set Variable Set DialogButton_Offshore[6] = (Last created dialog Button)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Offshore Not equal to 1
Then - Actions
Set Variable Set IntegerA_Temp2 = Integer_ResourceGrain[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_Offshore labelled (Trade for |c00FFFF00Grain|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Offshore[1] = (Last created dialog Button)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Offshore Not equal to 2
Then - Actions
Set Variable Set IntegerA_Temp2 = Integer_ResourceLumber[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_Offshore labelled (Trade for |c0000FF00Lumber|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Offshore[2] = (Last created dialog Button)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Offshore Not equal to 3
Then - Actions
Set Variable Set IntegerA_Temp2 = Integer_ResourceManaCrystals[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_Offshore labelled (Trade for |c006969FFMana Crystal|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Offshore[3] = (Last created dialog Button)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Offshore Not equal to 4
Then - Actions
Set Variable Set IntegerA_Temp2 = Integer_ResourceMeat[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_Offshore labelled (Trade for |c00FF9696Meat|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Offshore[4] = (Last created dialog Button)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Offshore Not equal to 5
Then - Actions
Set Variable Set IntegerA_Temp2 = Integer_ResourceStone[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_Offshore labelled (Trade for |c007d7d7dStone|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Offshore[5] = (Last created dialog Button)
Else - Actions
Do nothing
Dialog - Show Dialog_Offshore for Player_Active
Else - Actions
Do nothing
1- Grain
2- Lumber
3- Mana Crystal
4- Meat
5- Stone
6- Done
Offshore Button
Events
Dialog - A dialog button is clicked for Dialog_Offshore
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Offshore[6]
Then - Actions
Do nothing
Else - Actions
Set Variable Set Player_Temp1 = Player_Active
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
-------- Pay resource --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Offshore Equal to 1
Then - Actions
Set Variable Set Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] - Integer_OffshorePrice)
Set Variable Set String_Temp1 = "|c00FFFF00Grain|r"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Offshore Equal to 2
Then - Actions
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] - Integer_OffshorePrice)
Set Variable Set String_Temp1 = "|c0000FF00Lumber|r"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Offshore Equal to 3
Then - Actions
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] - Integer_OffshorePrice)
Set Variable Set String_Temp1 = "|c006969FFMana Crystal|r"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Offshore Equal to 4
Then - Actions
Set Variable Set Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] - Integer_OffshorePrice)
Set Variable Set String_Temp1 = "|c00FF9696Meat|r"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Offshore Equal to 5
Then - Actions
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] - Integer_OffshorePrice)
Set Variable Set String_Temp1 = "|c007d7d7dStone|r"
Else - Actions
Do nothing
-------- Give resource + message --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Offshore[1]
Then - Actions
Set Variable Set Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] + 1)
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r trades + ((String(Integer_OffshorePrice)) + ( + (String_Temp1 + for 1 |c00FFFF00Grain|r.))))))
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Offshore[2]
Then - Actions
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] + 1)
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r trades + ((String(Integer_OffshorePrice)) + ( + (String_Temp1 + for 1 |c0000FF00Lumber|r.))))))
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Offshore[3]
Then - Actions
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] + 1)
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r trades + ((String(Integer_OffshorePrice)) + ( + (String_Temp1 + for 1 |c006969FFMana Crystal|r.))))))
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Offshore[4]
Then - Actions
Set Variable Set Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] + 1)
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r trades + ((String(Integer_OffshorePrice)) + ( + (String_Temp1 + for 1 |c00FF9696Meat|r.))))))
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Offshore[5]
Then - Actions
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] + 1)
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r trades + ((String(Integer_OffshorePrice)) + ( + (String_Temp1 + for 1 |c007d7d7dStone|r.))))))
Else - Actions
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of Unit_Capitals[IntegerA_Temp1] using UI\Feedback\GoldCredit\GoldCredit.mdl
Special Effect - Destroy (Last created special effect)
Sound - Play ReceiveGold <gen>
Trigger - Run Stats_Update <gen> (checking conditions)
Trigger - Run Offshore_Dialog <gen> (checking conditions)
Construction Start
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to End Trading
Actions
Set Variable Set Integer_Gamestate = "3"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player_Active) Equal to Human
Then - Actions
Set Variable Set Ability_Temp1 = "A007"
Set Variable Set Ability_Temp2 = "A003"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player_Active) Equal to Orc
Then - Actions
Set Variable Set Ability_Temp1 = "A00A"
Set Variable Set Ability_Temp2 = "A004"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player_Active) Equal to Undead
Then - Actions
Set Variable Set Ability_Temp1 = "A008"
Set Variable Set Ability_Temp2 = "A005"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player_Active) Equal to Night Elf
Then - Actions
Set Variable Set Ability_Temp1 = "A009"
Set Variable Set Ability_Temp2 = "A006"
Else - Actions
Set Variable Set Group_Temp1 = (Units in (Playable map area) owned by Player_Active)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Unit - Remove Tradeblock from Unit_Capitals[(Integer A)]
Player Group - Remove (Player((Integer A))) from PlayerGroup_Tradeblock .
Unit Group - Pick every unit in Group_RoadBuilders[IntegerA_Temp1] and do (Remove End Trading from (Picked unit))
Unit - Remove Offshore Grain Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (1 Roar) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Inland Trading from Unit_Capitals[IntegerA_Temp1]
Unit - Add Research Development to Unit_Capitals[IntegerA_Temp1]
Unit - Add End Turn to Unit_Capitals[IntegerA_Temp1]
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_RoadBuilders[IntegerA_Temp1].) Equal to True
Then - Actions
Unit - Add Construct Road to (Picked unit)
Unit - Add Road Quest to (Picked unit)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Picked unit)) Equal to Village (Human)
(Unit-type of (Picked unit)) Equal to Village (Night Elf)
(Unit-type of (Picked unit)) Equal to Village (Orc)
(Unit-type of (Picked unit)) Equal to Village (Undead)
Then - Actions
Unit - Add Ability_Temp2 to (Picked unit)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Picked unit)) Equal to Crossroad Marker
((Picked unit) is in Group_RestrictedMarkers[1].) Equal to False
Then - Actions
Unit - Add Ability_Temp1 to (Picked unit)
Else - Actions
Do nothing
Oh god this trigger is a fucking mess, please for the love of God don't touch anything I will find you and hurt you
Road Cast
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Construct Road
(Triggering unit) Not equal to (Target unit of ability being cast)
Actions
Set Variable Set Unit_Temp1 = (Triggering unit)
Set Variable Set Unit_Temp2 = (Target unit of ability being cast)
Set Variable Set IntegerA_Temp1 = (Player number of (Owner of (Triggering unit)))
Unit - Remove Unholy Frenzy buff from Unit_Temp2
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of Unit_Temp2) Equal to Crossroad Marker
(Unit-type of Unit_Temp2) Equal to City (Human)
(Unit-type of Unit_Temp2) Equal to City (Night Elf)
(Unit-type of Unit_Temp2) Equal to City (Orc)
(Unit-type of Unit_Temp2) Equal to City (Undead)
(Unit-type of Unit_Temp2) Equal to Village (Human)
(Unit-type of Unit_Temp2) Equal to Village (Night Elf)
(Unit-type of Unit_Temp2) Equal to Village (Orc)
(Unit-type of Unit_Temp2) Equal to Village (Undead)
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_ResourceLumber[IntegerA_Temp1] Greater than or equal to 1
Integer_ResourceStone[IntegerA_Temp1] Greater than or equal to 1
Then - Actions
Set Variable Set Point_Temp1 = (Position of Unit_Temp1)
Set Variable Set Point_Temp2 = (Position of Unit_Temp2)
-------- Check for already existing road --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Greater than 85.00) and ((Angle from Point_Temp1 to Point_Temp2) Less than 95.00)
Then - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 384.00 towards 90.00 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000Cannot build road ontop of existing road.|r
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 256.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp3 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -85.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -95.00)
Then - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 384.00 towards -90.00 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000Cannot build road ontop of existing road.|r
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 256.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp3 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -24.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -28.00)
Then - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 286.22 towards -26.57 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000Cannot build road ontop of existing road.|r
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Environment - Change terrain type at Point_Temp3 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -151.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -155.00)
Then - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 286.22 towards -153.44 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000Cannot build road ontop of existing road.|r
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Environment - Change terrain type at Point_Temp3 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than 28.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than 24.00)
Then - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 286.22 towards 26.57 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000Cannot build road ontop of existing road.|r
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Environment - Change terrain type at Point_Temp3 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than 155.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than 151.00)
Then - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 286.22 towards 153.44 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000Cannot build road ontop of existing road.|r
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Environment - Change terrain type at Point_Temp3 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Else - Actions
Do nothing
Custom script: call RemoveLocation (udg_Point_Temp3)
-------- Add crossroads marker to player's group --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of Unit_Temp2) Equal to Crossroad Marker
Then - Actions
Unit - Add Construct Road to Unit_Temp2
Unit - Add Road Quest to Unit_Temp2
Unit Group - Add Unit_Temp2 to Group_RoadBuilders[IntegerA_Temp1]
If ((Race of Player_Active) Equal to Human) then do (Set VariableSet Ability_Temp1 = "A007") else do (Do nothing)
If ((Race of Player_Active) Equal to Orc) then do (Set VariableSet Ability_Temp1 = "A00A") else do (Do nothing)
If ((Race of Player_Active) Equal to Undead) then do (Set VariableSet Ability_Temp1 = "A008") else do (Do nothing)
If ((Race of Player_Active) Equal to Night Elf) then do (Set VariableSet Ability_Temp1 = "A009") else do (Do nothing)
If ((Unit_Temp2 is in Group_RestrictedMarkers[1].) Equal to False) then do (Add Ability_Temp1 to Unit_Temp2) else do (Do nothing)
Unit - Change ownership of Unit_Temp2 to Player_Active and Change color
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of Unit_Temp2) Not equal to Player_Active
Then - Actions
Unit Group - Add Unit_Temp2 to Group_RoadBuildersRestricted[IntegerA_Temp1]
Else - Actions
Do nothing
-------- Payment --------
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] - 1)
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] - 1)
Trigger - Run Stats_Update <gen> (checking conditions)
Game - Display to (All players) the text: (String_Colors[(Player number of (Owner of (Triggering unit)))] + ((Name of (Owner of (Triggering unit))) + |r builds a road.))
-------- Visual construction --------
Unit Group - Add (Triggering unit) to Group_SettlementsSafetyNet
Countdown Timer - Start Timer_SettlementSafetyNet as a One-shot timer that will expire in 3.00 seconds
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Greater than 85.00) and ((Angle from Point_Temp1 to Point_Temp2) Less than 95.00)
Then - Actions
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 256.00 towards 90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 256.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 128.00 towards 180.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 384.00 towards 90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 384.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 128.00 towards 180.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 384.00 towards 90.00 degrees.)
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 143.00 towards -26.57 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Tower (Human 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Tower (Orc 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Tower (Undead 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Tower (Night Elf 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 512.00 towards 90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 512.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -85.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -95.00)
Then - Actions
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards -90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 256.00 towards -90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 256.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 128.00 towards 180.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 384.00 towards -90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 384.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 128.00 towards 180.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 384.00 towards -90.00 degrees.)
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 143.00 towards 26.57 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Tower (Human 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Tower (Orc 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Tower (Undead 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Tower (Night Elf 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 512.00 towards -90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 512.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -24.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -28.00)
Then - Actions
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 0.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 0.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards 45.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards -26.57 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards -26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards -135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Tower (Human 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Tower (Orc 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Tower (Undead 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Tower (Night Elf 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards -33.69 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards -33.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards -135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards -36.87 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards -36.87 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -151.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -155.00)
Then - Actions
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 180.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 180.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards 135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards -153.44 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards -153.44 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards 135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Tower (Human 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Tower (Orc 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Tower (Undead 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Tower (Night Elf 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards -146.31 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards -146.31 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards -45.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards -143.13 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards -143.13 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than 28.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than 24.00)
Then - Actions
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards -90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 0.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 0.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards -45.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards 26.57 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards 26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards 135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Tower (Human 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Tower (Orc 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Tower (Undead 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Tower (Night Elf 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards 33.69 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards 33.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards 135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards 36.87 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards 36.87 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than 155.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than 151.00)
Then - Actions
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards -90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 180.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 180.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards -135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards 153.44 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards 153.44 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards -135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Tower (Human 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Tower (Orc 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Tower (Undead 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Tower (Night Elf 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards 146.31 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards 146.31 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards 45.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards 143.13 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards 143.13 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Do nothing
Else - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000You are missing the resources to build a road!|r
Else - Actions
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp3)
Oh god this trigger is a fucking mess, please for the love of god don't touch anything I will find you and hurt you
Road Cast Free
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Construct Road (free)
(Triggering unit) Not equal to (Target unit of ability being cast)
Actions
Set Variable Set Unit_Temp1 = (Triggering unit)
Set Variable Set Unit_Temp2 = (Target unit of ability being cast)
Set Variable Set IntegerA_Temp1 = (Player number of (Owner of (Triggering unit)))
Unit - Remove Unholy Frenzy buff from Unit_Temp2
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of Unit_Temp2) Equal to Crossroad Marker
(Unit-type of Unit_Temp2) Equal to City (Human)
(Unit-type of Unit_Temp2) Equal to City (Night Elf)
(Unit-type of Unit_Temp2) Equal to City (Orc)
(Unit-type of Unit_Temp2) Equal to City (Undead)
(Unit-type of Unit_Temp2) Equal to Village (Human)
(Unit-type of Unit_Temp2) Equal to Village (Night Elf)
(Unit-type of Unit_Temp2) Equal to Village (Orc)
(Unit-type of Unit_Temp2) Equal to Village (Undead)
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Then - Actions
Set Variable Set Point_Temp1 = (Position of Unit_Temp1)
Set Variable Set Point_Temp2 = (Position of Unit_Temp2)
-------- Check for already existing road --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Greater than 85.00) and ((Angle from Point_Temp1 to Point_Temp2) Less than 95.00)
Then - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 384.00 towards 90.00 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000Cannot build road ontop of existing road.|r
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 256.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp3 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -85.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -95.00)
Then - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 384.00 towards -90.00 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000Cannot build road ontop of existing road.|r
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 256.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp3 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -24.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -28.00)
Then - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 286.22 towards -26.57 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000Cannot build road ontop of existing road.|r
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Environment - Change terrain type at Point_Temp3 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -151.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -155.00)
Then - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 286.22 towards -153.44 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000Cannot build road ontop of existing road.|r
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Environment - Change terrain type at Point_Temp3 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than 28.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than 24.00)
Then - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 286.22 towards 26.57 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000Cannot build road ontop of existing road.|r
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Environment - Change terrain type at Point_Temp3 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than 155.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than 151.00)
Then - Actions
Set Variable Set Point_Temp3 = ((Position of (Triggering unit)) offset by 286.22 towards 153.44 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000Cannot build road ontop of existing road.|r
Custom script: call RemoveLocation (udg_Point_Temp3)
Skip remaining actions
Else - Actions
Environment - Change terrain type at Point_Temp3 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Else - Actions
Do nothing
Game - Display to (All players) the text: (String_Colors[(Player number of (Owner of (Triggering unit)))] + ((Name of (Owner of (Triggering unit))) + |r builds a road.))
Custom script: call RemoveLocation (udg_Point_Temp3)
-------- Add crossroads marker to player's group --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of Unit_Temp2) Equal to Crossroad Marker
Then - Actions
Unit - Change ownership of Unit_Temp2 to Player_Active and Change color
Unit - Add Construct Road (free) to Unit_Temp2
Unit Group - Add Unit_Temp2 to Group_RoadBuilders[IntegerA_Temp1]
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of Unit_Temp2) Not equal to Player_Active
Then - Actions
Unit Group - Add Unit_Temp2 to Group_RoadBuildersRestricted[IntegerA_Temp1]
Else - Actions
Do nothing
-------- Free Roads --------
Set Variable Set Integer_FreeRoads = (Integer_FreeRoads - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_FreeRoads Less than or equal to 0
Then - Actions
Unit Group - Pick every unit in (Units owned by Player_Active.) and do (Actions)
Loop - Actions
Unit - Remove Construct Road (free) from (Picked unit)
Trigger - Run Gamestate_Return <gen> (checking conditions)
Else - Actions
Do nothing
-------- Visual construction --------
Unit Group - Add (Triggering unit) to Group_SettlementsSafetyNet
Countdown Timer - Start Timer_SettlementSafetyNet as a One-shot timer that will expire in 3.00 seconds
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Greater than 85.00) and ((Angle from Point_Temp1 to Point_Temp2) Less than 95.00)
Then - Actions
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 256.00 towards 90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 256.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 128.00 towards 180.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 384.00 towards 90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 384.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 128.00 towards 180.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 384.00 towards 90.00 degrees.)
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 143.00 towards -26.57 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Tower (Human 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Tower (Orc 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Tower (Undead 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Tower (Night Elf 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 512.00 towards 90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 512.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -85.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -95.00)
Then - Actions
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards -90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 256.00 towards -90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 256.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 128.00 towards 180.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 384.00 towards -90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 384.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 128.00 towards 180.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 384.00 towards -90.00 degrees.)
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 143.00 towards 26.57 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Tower (Human 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Tower (Orc 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Tower (Undead 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Tower (Night Elf 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 512.00 towards -90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 512.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -24.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -28.00)
Then - Actions
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 0.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 0.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards 45.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards -26.57 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards -26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards -135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Tower (Human 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Tower (Orc 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Tower (Undead 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Tower (Night Elf 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards -33.69 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards -33.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards -135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards -36.87 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards -36.87 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -151.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -155.00)
Then - Actions
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 180.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 180.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards 135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards -153.44 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards -153.44 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards 135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Tower (Human 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Tower (Orc 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Tower (Undead 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Tower (Night Elf 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards -146.31 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards -146.31 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards -45.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards -143.13 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards -143.13 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than 28.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than 24.00)
Then - Actions
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards -90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 0.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 0.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards -45.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards 26.57 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards 26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards 135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Tower (Human 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Tower (Orc 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Tower (Undead 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Tower (Night Elf 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards 33.69 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards 33.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards 135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards 36.87 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards 36.87 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than 155.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than 151.00)
Then - Actions
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards -90.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 180.00 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 128.00 towards 180.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards -135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards 153.44 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 286.22 towards 153.44 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards -135.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Tower (Human 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Tower (Orc 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Tower (Undead 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Tower (Night Elf 2) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards 146.31 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 461.52 towards 146.31 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Set Variable Set Point_Temp2 = (Point_Temp2 offset by 90.51 towards 45.00 degrees.)
If ((Race of (Owner of (Triggering unit))) Equal to Human) then do (Create 1.Road Decoration (Human 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Orc) then do (Create 1.Road Decoration (Orc 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Night Elf) then do (Create 1.Road Decoration (Night Elf 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
If ((Race of (Owner of (Triggering unit))) Equal to Undead) then do (Create 1.Road Decoration (Undead 1) for (Owner of (Triggering unit)) at Point_Temp2 facing Default building facing degrees) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards 143.13 degrees.)
Special Effect - Create a special effect at Point_Temp2 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Custom script: call RemoveLocation (udg_Point_Temp2)
Wait 0.50 seconds
Set Variable Set Point_Temp2 = ((Position of (Triggering unit)) offset by 640.01 towards 143.13 degrees.)
Environment - Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Else - Actions
Do nothing
-------- Free Roads During Game Setup --------
Trigger - Run First_Roads <gen> (checking conditions)
Trigger - Run Pick_Capitals_1 <gen> (checking conditions)
Else - Actions
Else - Actions
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp3)
Establish Village
Events
Unit - A unit Starts the effect of an ability
Conditions
((Triggering unit) is in Group_SettlementsSafetyNet.) Equal to False
Or - Any (Conditions) are true
Conditions
(Ability being cast) Equal to Establish Village (Human)
(Ability being cast) Equal to Establish Village (Orc)
(Ability being cast) Equal to Establish Village (Night Elf)
(Ability being cast) Equal to Establish Village (Undead)
Actions
Set Variable Set Player_Temp1 = (Owner of (Triggering unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_ResourceGrain[(Player number of Player_Temp1)] Greater than or equal to 1
Integer_ResourceLumber[(Player number of Player_Temp1)] Greater than or equal to 1
Integer_ResourceMeat[(Player number of Player_Temp1)] Greater than or equal to 1
Integer_ResourceStone[(Player number of Player_Temp1)] Greater than or equal to 1
Then - Actions
Game - Display to (All players) the text: (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r establishes a new village!))
Set Variable Set Integer_VictoryPoints[(Player number of Player_Active)] = (Integer_VictoryPoints[(Player number of Player_Active)] + 1)
Set Variable Set Integer_ResourceGrain[(Player number of Player_Temp1)] = (Integer_ResourceGrain[(Player number of Player_Temp1)] - 1)
Set Variable Set Integer_ResourceLumber[(Player number of Player_Temp1)] = (Integer_ResourceLumber[(Player number of Player_Temp1)] - 1)
Set Variable Set Integer_ResourceMeat[(Player number of Player_Temp1)] = (Integer_ResourceMeat[(Player number of Player_Temp1)] - 1)
Set Variable Set Integer_ResourceStone[(Player number of Player_Temp1)] = (Integer_ResourceStone[(Player number of Player_Temp1)] - 1)
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Special Effect - Create a special effect at Point_Temp1 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Set Variable Set Boolean_Temp1 = "false"
-------- Interrupting Trade Routes --------
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Triggering unit) is in Group_TradeRoute[(Integer A)].) Equal to True
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Integer A) Equal to (Player number of Player_Temp1)
Then - Actions
Set Variable Set Boolean_Temp1 = "true"
Else - Actions
Set Variable Set Integer_RoadQuestResult[(Integer A)] = "0"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player((Integer A))) Equal to Player_RoadQuestWinner
Then - Actions
Set Variable Set IntegerA_Temp1 = "-1"
For each (Integer B) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_RoadQuestResult[(Integer B)] Greater than IntegerA_Temp1
Integer_RoadQuestResult[(Integer B)] Greater than or equal to 5
Then - Actions
Set Variable Set IntegerA_Temp1 = Integer_RoadQuestResult[(Integer B)]
Else - Actions
Do nothing
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer B) from 1 to 4 , do (Actions)
Loop - Actions
If (Integer_RoadQuestResult[(Integer B)] Equal to IntegerA_Temp1) then do (Add (Player((Integer B))) to PlayerGroup_Temp1) else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_Temp1) Greater than 0
Then - Actions
Set Variable Set Player_RoadQuestWinner = (Random player from PlayerGroup_Temp1)
Game - Display to (All players) the text: (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + (|r has interrupted + (String_Colors[(Integer A)] + ((Name of (Player((Integer A)))) + ('s|r trade route, giving the |c00f8a48bLongest Trade Route|r to + (String_Colors[(Player number of Player_RoadQuestWinner)] + ((Name of Player_RoadQuestWinner) + |r!))))))))
Unit - Change ownership of Road Quest Points 0115 <gen> to Player_RoadQuestWinner and Retain color
Set Variable Set Integer_VictoryPoints[(Player number of Player_RoadQuestWinner)] = (Integer_VictoryPoints[(Player number of Player_RoadQuestWinner)] + 2)
Set Variable Set Integer_VictoryPoints[(Integer A)] = (Integer_VictoryPoints[(Integer A)] - 2)
Trigger - Run Stats_Update <gen> (checking conditions)
Else - Actions
Game - Display to (All players) the text: (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + (|r has interrupted + (String_Colors[(Integer A)] + ((Name of (Player((Integer A)))) + 's|r trade route, breaking the |c00f8a48bLongest Trade Route|r.)))))
Unit - Change ownership of Road Quest Points 0115 <gen> to Player 11 (Dark Green) and Retain color
Set Variable Set Integer_VictoryPoints[(Integer A)] = (Integer_VictoryPoints[(Integer A)] - 2)
Trigger - Run Stats_Update <gen> (checking conditions)
Else - Actions
Game - Display to (All players) the text: (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + (|r has interrupted + (String_Colors[(Integer A)] + ((Name of (Player((Integer A)))) + 's|r trade route!)))))
Else - Actions
Do nothing
Unit - Hide (Triggering unit)
If ((Race of Player_Temp1) Equal to Human) then do (Create 1.Village (Human) for Player_Temp1 at Point_Temp1 facing Default building facing degrees) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Orc) then do (Create 1.Village (Orc) for Player_Temp1 at Point_Temp1 facing Default building facing degrees) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Undead) then do (Create 1.Village (Undead) for Player_Temp1 at Point_Temp1 facing Default building facing degrees) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Night Elf) then do (Create 1.Village (Night Elf) for Player_Temp1 at Point_Temp1 facing Default building facing degrees) else do (Do nothing)
Unit - Add Construct Road to (Last created unit)
Unit - Add Road Quest to (Last created unit)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Integer A) Not equal to (Player number of Player_Active)
Then - Actions
If (((Triggering unit) is in Group_RoadBuilders[(Integer A)].) Equal to True) then do (Add (Last created unit) to Group_RoadBuildersRestricted[(Integer A)]) else do (Do nothing)
Else - Actions
Do nothing
Unit - Remove (Triggering unit) from the game
Unit Group - Add (Last created unit) to Group_Settlements[(Player number of Player_Temp1)]
Unit Group - Add (Last created unit) to Group_RoadBuilders[(Player number of Player_Temp1)]
If (Boolean_Temp1 Equal to True) then do (Add (Last created unit) to Group_TradeRoute[(Player number of Player_Temp1)]) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Human) then do (Add Upgrade to City (Human) to (Last created unit)) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Orc) then do (Add Upgrade to City (Orc) to (Last created unit)) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Undead) then do (Add Upgrade to City (Undead) to (Last created unit)) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Night Elf) then do (Add Upgrade to City (Night Elf) to (Last created unit)) else do (Do nothing)
Selection - Add (Last created unit) to selection for Player_Temp1
Set Variable Set Group_Temp1 = (Units within 641.00 of Point_Temp1.)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_RestrictedMarkers[0].) Equal to True
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_RestrictedMarkers[1].) Equal to True
Then - Actions
Do nothing
Else - Actions
Unit Group - Add (Picked unit) to Group_RestrictedMarkers[1]
Unit - Add Restricted Zone to (Picked unit)
Unit - Remove Establish Village (Human) from (Picked unit)
Unit - Remove Establish Village (Night Elf) from (Picked unit)
Unit - Remove Establish Village (Orc) from (Picked unit)
Unit - Remove Establish Village (Undead) from (Picked unit)
Else - Actions
Do nothing
Trigger - Run Claim_Port <gen> (checking conditions)
Custom script: call DestroyGroup (udg_Group_Temp1)
Trigger - Run Stats_Update <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Else - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000You are missing the resources to establish a settlement!|r
Upgrade City
Events
Unit - A unit Starts the effect of an ability
Conditions
((Triggering unit) is in Group_SettlementsSafetyNet.) Equal to False
Or - Any (Conditions) are true
Conditions
(Ability being cast) Equal to Upgrade to City (Human)
(Ability being cast) Equal to Upgrade to City (Night Elf)
(Ability being cast) Equal to Upgrade to City (Orc)
(Ability being cast) Equal to Upgrade to City (Undead)
Actions
Set Variable Set Player_Temp1 = (Owner of (Triggering unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_ResourceMeat[(Player number of Player_Temp1)] Greater than or equal to 2
Integer_ResourceManaCrystals[(Player number of Player_Temp1)] Greater than or equal to 3
Then - Actions
Set Variable Set Integer_VictoryPoints[(Player number of Player_Active)] = (Integer_VictoryPoints[(Player number of Player_Active)] + 1)
Set Variable Set Integer_ResourceMeat[(Player number of Player_Temp1)] = (Integer_ResourceMeat[(Player number of Player_Temp1)] - 2)
Set Variable Set Integer_ResourceManaCrystals[(Player number of Player_Temp1)] = (Integer_ResourceManaCrystals[(Player number of Player_Temp1)] - 3)
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Special Effect - Create a special effect at Point_Temp1 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Triggering unit) Equal to Unit_Capitals[(Player number of Player_Active)]
Then - Actions
Unit - Create 1 . Dummy Inventory for Player_Active at (Center of (Playable map area)) facing Default building facing degrees
Set Variable Set Unit_Temp1 = (Last created unit)
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
Hero - Give (Item carried by (Triggering unit) in slot (Integer A)) to (Last created unit)
Else - Actions
Do nothing
Unit - Hide (Triggering unit)
If ((Race of Player_Temp1) Equal to Human) then do (Create 1.City (Human) for Player_Temp1 at Point_Temp1 facing Default building facing degrees) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Orc) then do (Create 1.City (Orc) for Player_Temp1 at Point_Temp1 facing Default building facing degrees) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Undead) then do (Create 1.City (Undead) for Player_Temp1 at Point_Temp1 facing Default building facing degrees) else do (Do nothing)
If ((Race of Player_Temp1) Equal to Night Elf) then do (Create 1.City (Night Elf) for Player_Temp1 at Point_Temp1 facing Default building facing degrees) else do (Do nothing)
Unit - Add Construct Road to (Last created unit)
Unit - Add Road Quest to (Last created unit)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Integer A) Not equal to (Player number of Player_Active)
Then - Actions
If (((Triggering unit) is in Group_RoadBuildersRestricted[(Integer A)].) Equal to True) then do (Add (Last created unit) to Group_RoadBuildersRestricted[(Integer A)]) else do (Do nothing)
Else - Actions
Do nothing
Unit - Remove (Triggering unit) from the game
Unit Group - Add (Last created unit) to Group_Settlements[(Player number of Player_Temp1)]
Unit Group - Add (Last created unit) to Group_RoadBuilders[(Player number of Player_Temp1)]
Selection - Add (Last created unit) to selection for Player_Temp1
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Triggering unit) Equal to Unit_Capitals[(Player number of Player_Active)]
Then - Actions
Unit - Add Capital Settlement to (Last created unit)
Unit - Add Inventory (Hero) to (Last created unit)
Unit - Add End Turn to (Last created unit)
Unit - Add Construction Costs to (Last created unit)
Unit - Add Research Development to (Last created unit)
Set Variable Set Unit_Capitals[(Player number of Player_Active)] = (Last created unit)
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
Hero - Give (Item carried by Unit_Temp1 in slot (Integer A)) to (Last created unit)
Unit - Remove Unit_Temp1 from the game
Else - Actions
Do nothing
Game - Display to (All players) the text: (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r upgrades a village to a city!))
Trigger - Run Stats_Update <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Else - Actions
Game - Display to (Player group(Player_Temp1)) the text: |c00FF0000You are missing the resources to upgrade to a city!|r
Night Elf UnRoot
Events
Unit - A unit Finishes an upgrade
Unit - A unit enters (Entire map)
Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Triggering unit)) Equal to City (Night Elf)
(Unit-type of (Triggering unit)) Equal to Village (Night Elf)
(Unit-type of (Triggering unit)) Equal to Tower (Night Elf 2)
Actions
Unit - Remove Root (Ancients) from (Triggering unit)
Unit - Remove Root (Ancient Protector) from (Triggering unit)
Establish Settlement Safety net
Events
Time - Timer_SettlementSafetyNet expires
Conditions
Actions
Unit Group - Remove all units of Group_SettlementsSafetyNet from Group_SettlementsSafetyNet .
test walls
Events
Player - Player 1 (Red) types a chat message containing trump (Unexpected type: 'stringnoformat') as An exact match
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Random unit from (Units currently selected by Player 1 (Red)))) Equal to City (Human)
(Unit-type of (Random unit from (Units currently selected by Player 1 (Red)))) Equal to Village (Human)
Then - Actions
Set Variable Set UnitType_Temp1 = "n01U"
Set Variable Set UnitType_Temp2 = "n01V"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Random unit from (Units currently selected by Player 1 (Red)))) Equal to City (Night Elf)
(Unit-type of (Random unit from (Units currently selected by Player 1 (Red)))) Equal to Village (Night Elf)
Then - Actions
Set Variable Set UnitType_Temp1 = "n01X"
Set Variable Set UnitType_Temp2 = "n021"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Random unit from (Units currently selected by Player 1 (Red)))) Equal to City (Orc)
(Unit-type of (Random unit from (Units currently selected by Player 1 (Red)))) Equal to Village (Orc)
Then - Actions
Set Variable Set UnitType_Temp1 = "n01W"
Set Variable Set UnitType_Temp2 = "n01Z"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Random unit from (Units currently selected by Player 1 (Red)))) Equal to City (Undead)
(Unit-type of (Random unit from (Units currently selected by Player 1 (Red)))) Equal to Village (Undead)
Then - Actions
Set Variable Set UnitType_Temp1 = "n01Y"
Set Variable Set UnitType_Temp2 = "n020"
Else - Actions
Do nothing
Set Variable Set Point_Temp1 = (Position of (Random unit from (Units currently selected by Player 1 (Red))))
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 140.00 towards (90.00 x (Real((Integer A)))) degrees.)
Unit - Create 1 . UnitType_Temp1 for Player 1 (Red) at Point_Temp2 facing (90.00 x (Real((Integer A)))) degrees
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 148.00 towards (45.00 + (90.00 x (Real((Integer A))))) degrees.)
Unit - Create 1 . UnitType_Temp2 for Player 1 (Red) at Point_Temp2 facing (45.00 + (90.00 x (Real((Integer A))))) degrees
1 = Quest Giver
2 = Expansion
3 = Goblin Marketing
4 = Road Work
5 = Motherlode
Development Research
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Research Development
Actions
Set Variable Set Player_Temp1 = (Owner of (Triggering unit))
Set Variable Set IntegerA_Temp2 = (Integer_Improvements[1] + (Integer_Improvements[2] + (Integer_Improvements[3] + (Integer_Improvements[4] + Integer_Improvements[5]))))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Equal to 0
Then - Actions
Game - Display to (Player group(Player_Temp1)) the text: |c00FF0000There are no more developments remaining.|r
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_ResourceMeat[(Player number of Player_Temp1)] Greater than or equal to 1
Integer_ResourceManaCrystals[(Player number of Player_Temp1)] Greater than or equal to 1
Integer_ResourceGrain[(Player number of Player_Temp1)] Greater than or equal to 1
Then - Actions
Set Variable Set Integer_ResourceGrain[(Player number of Player_Temp1)] = (Integer_ResourceGrain[(Player number of Player_Temp1)] - 1)
Set Variable Set Integer_ResourceMeat[(Player number of Player_Temp1)] = (Integer_ResourceMeat[(Player number of Player_Temp1)] - 1)
Set Variable Set Integer_ResourceManaCrystals[(Player number of Player_Temp1)] = (Integer_ResourceManaCrystals[(Player number of Player_Temp1)] - 1)
Game - Display to (All players) the text: (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r researches a development!))
Trigger - Run Stats_Update <gen> (checking conditions)
Set Variable Set IntegerA_Temp2 = (Integer_Improvements[1] + (Integer_Improvements[2] + (Integer_Improvements[3] + (Integer_Improvements[4] + Integer_Improvements[5]))))
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and IntegerA_Temp2)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to Integer_Improvements[1]
Then - Actions
Set Variable Set Integer_Improvements[1] = (Integer_Improvements[1] - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
((Triggering unit) has an item of type Quest Giver) Equal to True
((Triggering unit) has an item of type Quest Giver - |c00FF0303[LOCKED]|r) Equal to True
Then - Actions
If (((Triggering unit) has an item of type Quest Giver) Equal to True) then do (Set charges remaining in (Item carried by (Triggering unit) of type Quest Giver) to ((Charges remaining in (Item carried by (Triggering unit) of type Quest Giver)) + 1)) else do (Do nothing)
If (((Triggering unit) has an item of type Quest Giver - |c00FF0303[LOCKED]|r) Equal to True) then do (Set charges remaining in (Item carried by (Triggering unit) of type Quest Giver - |c00FF0303[LOCKED]|r) to ((Charges remaining in (Item carried by (Triggering unit) of type Quest Giver - |c00FF0303[LOCKED]|r)) + 1)) else do (Do nothing)
Else - Actions
Hero - Create Quest Giver - |c00FF0303[LOCKED]|r and give it to (Triggering unit)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_Improvements[1] + (Integer_Improvements[2] + 0))
Then - Actions
Set Variable Set Integer_Improvements[2] = (Integer_Improvements[2] - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
((Triggering unit) has an item of type Expansion) Equal to True
((Triggering unit) has an item of type Expansion - |c00FF0303[LOCKED]|r) Equal to True
Then - Actions
If (((Triggering unit) has an item of type Expansion) Equal to True) then do (Set charges remaining in (Item carried by (Triggering unit) of type Expansion) to ((Charges remaining in (Item carried by (Triggering unit) of type Expansion)) + 1)) else do (Do nothing)
If (((Triggering unit) has an item of type Expansion - |c00FF0303[LOCKED]|r) Equal to True) then do (Set charges remaining in (Item carried by (Triggering unit) of type Expansion - |c00FF0303[LOCKED]|r) to ((Charges remaining in (Item carried by (Triggering unit) of type Expansion - |c00FF0303[LOCKED]|r)) + 1)) else do (Do nothing)
Else - Actions
Hero - Create Expansion - |c00FF0303[LOCKED]|r and give it to (Triggering unit)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_Improvements[1] + (Integer_Improvements[2] + (Integer_Improvements[3] + 0)))
Then - Actions
Set Variable Set Integer_Improvements[3] = (Integer_Improvements[3] - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
((Triggering unit) has an item of type Goblin Marketing) Equal to True
((Triggering unit) has an item of type Goblin Marketing - |c00FF0303[LOCKED]|r) Equal to True
Then - Actions
If (((Triggering unit) has an item of type Goblin Marketing) Equal to True) then do (Set charges remaining in (Item carried by (Triggering unit) of type Goblin Marketing) to ((Charges remaining in (Item carried by (Triggering unit) of type Goblin Marketing)) + 1)) else do (Do nothing)
If (((Triggering unit) has an item of type Goblin Marketing - |c00FF0303[LOCKED]|r) Equal to True) then do (Set charges remaining in (Item carried by (Triggering unit) of type Goblin Marketing - |c00FF0303[LOCKED]|r) to ((Charges remaining in (Item carried by (Triggering unit) of type Goblin Marketing - |c00FF0303[LOCKED]|r)) + 1)) else do (Do nothing)
Else - Actions
Hero - Create Goblin Marketing - |c00FF0303[LOCKED]|r and give it to (Triggering unit)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_Improvements[1] + (Integer_Improvements[2] + (Integer_Improvements[3] + (Integer_Improvements[4] + 0))))
Then - Actions
Set Variable Set Integer_Improvements[4] = (Integer_Improvements[4] - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
((Triggering unit) has an item of type Road Work) Equal to True
((Triggering unit) has an item of type Road Work - |c00FF0303[LOCKED]|r) Equal to True
Then - Actions
If (((Triggering unit) has an item of type Road Work) Equal to True) then do (Set charges remaining in (Item carried by (Triggering unit) of type Road Work) to ((Charges remaining in (Item carried by (Triggering unit) of type Road Work)) + 1)) else do (Do nothing)
If (((Triggering unit) has an item of type Road Work - |c00FF0303[LOCKED]|r) Equal to True) then do (Set charges remaining in (Item carried by (Triggering unit) of type Road Work - |c00FF0303[LOCKED]|r) to ((Charges remaining in (Item carried by (Triggering unit) of type Road Work - |c00FF0303[LOCKED]|r)) + 1)) else do (Do nothing)
Else - Actions
Hero - Create Road Work - |c00FF0303[LOCKED]|r and give it to (Triggering unit)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_Improvements[1] + (Integer_Improvements[2] + (Integer_Improvements[3] + (Integer_Improvements[4] + Integer_Improvements[5]))))
Then - Actions
Set Variable Set Integer_Improvements[5] = (Integer_Improvements[5] - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
((Triggering unit) has an item of type Motherlode) Equal to True
((Triggering unit) has an item of type Motherlode - |c00FF0303[LOCKED]|r) Equal to True
Then - Actions
If (((Triggering unit) has an item of type Motherlode) Equal to True) then do (Set charges remaining in (Item carried by (Triggering unit) of type Motherlode) to ((Charges remaining in (Item carried by (Triggering unit) of type Motherlode)) + 1)) else do (Do nothing)
If (((Triggering unit) has an item of type Motherlode - |c00FF0303[LOCKED]|r) Equal to True) then do (Set charges remaining in (Item carried by (Triggering unit) of type Motherlode - |c00FF0303[LOCKED]|r) to ((Charges remaining in (Item carried by (Triggering unit) of type Motherlode - |c00FF0303[LOCKED]|r)) + 1)) else do (Do nothing)
Else - Actions
Hero - Create Motherlode - |c00FF0303[LOCKED]|r and give it to (Triggering unit)
Skip remaining actions
Else - Actions
Do nothing
Else - Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: |c00FF0000You are missing the resources to research a development!|r
Use Expansion
Events
Unit - A unit Uses an item
Conditions
(Item-type of (Item being manipulated)) Equal to Expansion
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_RoadQuest Equal to True
Then - Actions
Set Variable Set ItemType_Temp1 = (Item-type of (Item being manipulated))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit_Capitals[(Player number of Player_Active)] has an item of type ItemType_Temp1) Equal to True
Then - Actions
Item - Set charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type ItemType_Temp1) to ((Charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type ItemType_Temp1)) + 1)
Else - Actions
Hero - Create ItemType_Temp1 and give it to Unit_Capitals[(Player number of Player_Active)]
Else - Actions
Set Variable Set Integer_VictoryPoints[(Player number of Player_Active)] = (Integer_VictoryPoints[(Player number of Player_Active)] + 1)
Trigger - Run Stats_Update <gen> (checking conditions)
Set Variable Set IntegerA_Temp1 = (Player number of (Owner of (Triggering unit)))
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + |r constructs an expansion, awarding them 1 Victory Point!))
Set Variable Set IntegerA_Temp2 = (Random integer number between 1 and 3)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Owner of (Triggering unit))) Equal to Human
Then - Actions
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet UnitType_Temp1 = "n037") else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet UnitType_Temp1 = "n038") else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet UnitType_Temp1 = "n039") else do (Do nothing)
Custom script: if ( GetLocalPlayer() == udg_Player_Active ) then
Sound - Play KnightUpgradeComplete1 <gen>
Custom script: endif
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Owner of (Triggering unit))) Equal to Orc
Then - Actions
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet UnitType_Temp1 = "n03A") else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet UnitType_Temp1 = "n03C") else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet UnitType_Temp1 = "n03B") else do (Do nothing)
Custom script: if ( GetLocalPlayer() == udg_Player_Active ) then
Sound - Play GruntUpgradeComplete1 <gen>
Custom script: endif
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Owner of (Triggering unit))) Equal to Undead
Then - Actions
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet UnitType_Temp1 = "n033") else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet UnitType_Temp1 = "n035") else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet UnitType_Temp1 = "n036") else do (Do nothing)
Custom script: if ( GetLocalPlayer() == udg_Player_Active ) then
Sound - Play NecromancerUpgradeComplete1 <gen>
Custom script: endif
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of (Owner of (Triggering unit))) Equal to Night Elf
Then - Actions
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet UnitType_Temp1 = "n03F") else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet UnitType_Temp1 = "n03E") else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet UnitType_Temp1 = "n03D") else do (Do nothing)
Custom script: if ( GetLocalPlayer() == udg_Player_Active ) then
Sound - Play SentinelUpgradeComplete1 <gen>
Custom script: endif
Else - Actions
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Unit - Create 1 . UnitType_Temp1 for (Owner of (Triggering unit)) at (Point_Temp1 offset by 160.00 towards (45.00 x (Real(Integer_Expansions[IntegerA_Temp1]))) degrees.) facing Default building facing degrees
Set Variable Set Integer_Expansions[IntegerA_Temp1] = (Integer_Expansions[IntegerA_Temp1] + 1)
Set Variable Set Point_Temp1 = (Position of (Last created unit))
Special Effect - Create a special effect at Point_Temp1 using Objects\Spawnmodels\Undead\ImpaleTargetDust\ImpaleTargetDust.mdl
Special Effect - Destroy (Last created special effect)
Set Variable Set Boolean_ItemLocked = "true"
Trigger - Run Lock_Items <gen> (ignoring conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Use Goblin Marketing 1
Events
Unit - A unit Uses an item
Conditions
(Item-type of (Item being manipulated)) Equal to Goblin Marketing
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_RoadQuest Equal to True
Then - Actions
Set Variable Set ItemType_Temp1 = (Item-type of (Item being manipulated))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit_Capitals[(Player number of Player_Active)] has an item of type ItemType_Temp1) Equal to True
Then - Actions
Item - Set charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type ItemType_Temp1) to ((Charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type ItemType_Temp1)) + 1)
Else - Actions
Hero - Create ItemType_Temp1 and give it to Unit_Capitals[(Player number of Player_Active)]
Else - Actions
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Dialog - Clear Dialog_GoblinMarketing
Dialog - Change the title of Dialog_GoblinMarketing to Choose Resource
Dialog - Create a dialog button for Dialog_GoblinMarketing labelled Cancel
Set Variable Set DialogButton_GoblinMarketing[6] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceGrain[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_GoblinMarketing labelled (Trade for |c00FFFF00Grain|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_GoblinMarketing[1] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceLumber[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_GoblinMarketing labelled (Trade for |c0000FF00Lumber|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_GoblinMarketing[2] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceManaCrystals[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_GoblinMarketing labelled (Trade for |c006969FFMana Crystal|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_GoblinMarketing[3] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceMeat[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_GoblinMarketing labelled (Trade for |c00FF9696Meat|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_GoblinMarketing[4] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceStone[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_GoblinMarketing labelled (Trade for |c007d7d7dStone|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_GoblinMarketing[5] = (Last created dialog Button)
Dialog - Show Dialog_GoblinMarketing for Player_Active
1- Grain
2- Lumber
3- Mana Crystal
4- Meat
5- Stone
6- Done

|c00FFFF00Grain|r
|c0000FF00Lumber|r
|c006969FFMana Crystal|r
|c00FF9696Meat|r
|c007d7d7dStone|r
Use Goblin Marketing 2
Events
Dialog - A dialog button is clicked for Dialog_GoblinMarketing
Conditions
Actions
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Not equal to DialogButton_GoblinMarketing[6]
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_GoblinMarketing[1]
Then - Actions
Set Variable Set IntegerA_Temp2 = "0"
Set Variable Set IntegerA_Temp3 = Integer_ResourceGrain[IntegerA_Temp1]
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp2 = (IntegerA_Temp2 + Integer_ResourceGrain[(Integer A)])
Set Variable Set Integer_ResourceGrain[(Integer A)] = "0"
Set Variable Set Integer_ResourceGrain[IntegerA_Temp1] = IntegerA_Temp2
Set Variable Set String_Temp1 = ((String((IntegerA_Temp2 - IntegerA_Temp3))) + ( + |c00FFFF00Grain|r))
Player Group - Pick every player in PlayerGroup_User and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Picked player) Equal to Player_Active
Then - Actions
Game - Display to (Player group((Picked player))) the text: (You took + (String_Temp1 + from the other players.))
Else - Actions
Game - Display to (Player group((Picked player))) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Goblin Marketing, taking all other players' + |c00FFFF00Grain|r.)))
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_GoblinMarketing[2]
Then - Actions
Set Variable Set IntegerA_Temp2 = "0"
Set Variable Set IntegerA_Temp3 = Integer_ResourceLumber[IntegerA_Temp1]
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp2 = (IntegerA_Temp2 + Integer_ResourceLumber[(Integer A)])
Set Variable Set Integer_ResourceLumber[(Integer A)] = "0"
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = IntegerA_Temp2
Set Variable Set String_Temp1 = ((String((IntegerA_Temp2 - IntegerA_Temp3))) + ( + |c0000FF00Lumber|r))
Player Group - Pick every player in PlayerGroup_User and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Picked player) Equal to Player_Active
Then - Actions
Game - Display to (Player group((Picked player))) the text: (You took + (String_Temp1 + from the other players.))
Else - Actions
Game - Display to (Player group((Picked player))) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Goblin Marketing, taking all other players' + |c0000FF00Lumber|r.)))
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_GoblinMarketing[3]
Then - Actions
Set Variable Set IntegerA_Temp2 = "0"
Set Variable Set IntegerA_Temp3 = Integer_ResourceManaCrystals[IntegerA_Temp1]
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp2 = (IntegerA_Temp2 + Integer_ResourceManaCrystals[(Integer A)])
Set Variable Set Integer_ResourceManaCrystals[(Integer A)] = "0"
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp1] = IntegerA_Temp2
Set Variable Set String_Temp1 = ((String((IntegerA_Temp2 - IntegerA_Temp3))) + ( + |c006969FFMana Crystal|r))
Player Group - Pick every player in PlayerGroup_User and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Picked player) Equal to Player_Active
Then - Actions
Game - Display to (Player group((Picked player))) the text: (You took + (String_Temp1 + from the other players.))
Else - Actions
Game - Display to (Player group((Picked player))) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Goblin Marketing, taking all other players' + |c006969FFMana Crystal|r.)))
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_GoblinMarketing[4]
Then - Actions
Set Variable Set IntegerA_Temp2 = "0"
Set Variable Set IntegerA_Temp3 = Integer_ResourceMeat[IntegerA_Temp1]
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp2 = (IntegerA_Temp2 + Integer_ResourceMeat[(Integer A)])
Set Variable Set Integer_ResourceMeat[(Integer A)] = "0"
Set Variable Set Integer_ResourceMeat[IntegerA_Temp1] = IntegerA_Temp2
Set Variable Set String_Temp1 = ((String((IntegerA_Temp2 - IntegerA_Temp3))) + ( + |c00FF9696Meat|r))
Player Group - Pick every player in PlayerGroup_User and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Picked player) Equal to Player_Active
Then - Actions
Game - Display to (Player group((Picked player))) the text: (You took + (String_Temp1 + from the other players.))
Else - Actions
Game - Display to (Player group((Picked player))) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Goblin Marketing, taking all other players' + |c00FF9696Meat|r.)))
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_GoblinMarketing[5]
Then - Actions
Set Variable Set IntegerA_Temp2 = "0"
Set Variable Set IntegerA_Temp3 = Integer_ResourceStone[IntegerA_Temp1]
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp2 = (IntegerA_Temp2 + Integer_ResourceStone[(Integer A)])
Set Variable Set Integer_ResourceStone[(Integer A)] = "0"
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = IntegerA_Temp2
Set Variable Set String_Temp1 = ((String((IntegerA_Temp2 - IntegerA_Temp3))) + ( + |c007d7d7dStone|r))
Player Group - Pick every player in PlayerGroup_User and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Picked player) Equal to Player_Active
Then - Actions
Game - Display to (Player group((Picked player))) the text: (You took + (String_Temp1 + from the other players.))
Else - Actions
Game - Display to (Player group((Picked player))) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Goblin Marketing, taking all other players' + |c007d7d7dStone|r.)))
Else - Actions
Do nothing
Sound - Play HeroAlchemistWarcry1 <gen>
Set Variable Set Boolean_ItemLocked = "true"
Trigger - Run Lock_Items <gen> (ignoring conditions)
Trigger - Run Stats_Update <gen> (checking conditions)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit_Capitals[(Player number of Player_Active)] has an item of type Goblin Marketing) Equal to True
Then - Actions
Item - Set charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type Goblin Marketing) to ((Charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type Goblin Marketing)) + 1)
Else - Actions
Hero - Create Goblin Marketing and give it to Unit_Capitals[(Player number of Player_Active)]
Use Quest Giver
Events
Unit - A unit Uses an item
Conditions
(Item-type of (Item being manipulated)) Equal to Quest Giver
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_RoadQuest Equal to True
Then - Actions
Set Variable Set ItemType_Temp1 = (Item-type of (Item being manipulated))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit_Capitals[(Player number of Player_Active)] has an item of type ItemType_Temp1) Equal to True
Then - Actions
Item - Set charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type ItemType_Temp1) to ((Charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type ItemType_Temp1)) + 1)
Else - Actions
Hero - Create ItemType_Temp1 and give it to Unit_Capitals[(Player number of Player_Active)]
Else - Actions
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + |r uses Quest Giver, hiring a hero which lets them move Onyxia.))
Set Variable Set Integer_Heroes[IntegerA_Temp1] = (Integer_Heroes[IntegerA_Temp1] + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Heroes[IntegerA_Temp1] Greater than or equal to 3
Integer_Heroes[IntegerA_Temp1] Greater than Integer_Heroes[(Player number of Player_HeroQuestWinner)]
Player_RoadQuestWinner Not equal to Player_Active
Then - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + |r has the most amount of heroes, creating the |c0000eaffBiggest Raid Group|r!))
Set Variable Set Integer_VictoryPoints[(Player number of Player_HeroQuestWinner)] = (Integer_VictoryPoints[(Player number of Player_HeroQuestWinner)] - 2)
Set Variable Set Player_HeroQuestWinner = Player_Active
Set Variable Set Integer_VictoryPoints[(Player number of Player_HeroQuestWinner)] = (Integer_VictoryPoints[(Player number of Player_HeroQuestWinner)] + 2)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = (Random integer number between 1 and 4)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player_Active) Equal to Human
Then - Actions
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet UnitType_Temp1 = "n03G") else do (Do nothing)
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet Sound_Hero = HeroHuman1 <gen>) else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet UnitType_Temp1 = "n03H") else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet Sound_Hero = HeroHuman2 <gen>) else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet UnitType_Temp1 = "n03I") else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet Sound_Hero = HeroHuman3 <gen>) else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet UnitType_Temp1 = "n03J") else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet Sound_Hero = HeroHuman4 <gen>) else do (Do nothing)
Sound - Play Sound_Hero at 100 % volume, attached to Unit_Capitals[IntegerA_Temp1]
Sound - Play ReviveHuman <gen> at 20.00 % volume, attached to Unit_Capitals[IntegerA_Temp1]
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player_Active) Equal to Orc
Then - Actions
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet UnitType_Temp1 = "n03T") else do (Do nothing)
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet Sound_Hero = HeroOrc1 <gen>) else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet UnitType_Temp1 = "n03S") else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet Sound_Hero = HeroOrc2 <gen>) else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet UnitType_Temp1 = "n03R") else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet Sound_Hero = HeroOrc3 <gen>) else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet UnitType_Temp1 = "n03V") else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet Sound_Hero = HeroOrc4 <gen>) else do (Do nothing)
Sound - Play Sound_Hero at 100 % volume, attached to Unit_Capitals[IntegerA_Temp1]
Sound - Play ReviveOrc <gen> at 20.00 % volume, attached to Unit_Capitals[IntegerA_Temp1]
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player_Active) Equal to Undead
Then - Actions
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet UnitType_Temp1 = "n03O") else do (Do nothing)
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet Sound_Hero = HeroUndead1 <gen>) else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet UnitType_Temp1 = "n03P") else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet Sound_Hero = HeroUndead2 <gen>) else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet UnitType_Temp1 = "n03Q") else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet Sound_Hero = HeroUndead3 <gen>) else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet UnitType_Temp1 = "n03U") else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet Sound_Hero = HeroUndead4 <gen>) else do (Do nothing)
Sound - Play Sound_Hero at 100 % volume, attached to Unit_Capitals[IntegerA_Temp1]
Sound - Play ReviveUndead <gen> at 20.00 % volume, attached to Unit_Capitals[IntegerA_Temp1]
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Race of Player_Active) Equal to Night Elf
Then - Actions
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet UnitType_Temp1 = "n03K") else do (Do nothing)
If (IntegerA_Temp2 Equal to 1) then do (Set VariableSet Sound_Hero = HeroNightElf1 <gen>) else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet UnitType_Temp1 = "n03L") else do (Do nothing)
If (IntegerA_Temp2 Equal to 2) then do (Set VariableSet Sound_Hero = HeroNightElf2 <gen>) else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet UnitType_Temp1 = "n03M") else do (Do nothing)
If (IntegerA_Temp2 Equal to 3) then do (Set VariableSet Sound_Hero = HeroNightElf3 <gen>) else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet UnitType_Temp1 = "n03N") else do (Do nothing)
If (IntegerA_Temp2 Equal to 4) then do (Set VariableSet Sound_Hero = HeroNightElf4 <gen>) else do (Do nothing)
Sound - Play Sound_Hero at 100 % volume, attached to Unit_Capitals[IntegerA_Temp1]
Sound - Play ReviveNightElf <gen> at 20.00 % volume, attached to Unit_Capitals[IntegerA_Temp1]
Else - Actions
Do nothing
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Set Variable Set IntegerA_Temp2 = (Integer_Heroes[IntegerA_Temp1] mod 2)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Equal to 0
Then - Actions
Set Variable Set Real_Temp1 = (-90.00 + (((Real(Integer_Heroes[IntegerA_Temp1])) / 2.00) x 20.00))
Unit - Create 1 . UnitType_Temp1 for Player_Active at (Point_Temp1 offset by 160.00 towards Real_Temp1 degrees.) facing (Angle from Point_Temp1 to (Point_Temp1 offset by 160.00 towards Real_Temp1 degrees.)) degrees
Else - Actions
Set Variable Set Real_Temp1 = (-90.00 + (((Real(Integer_Heroes[IntegerA_Temp1])) / 2.00) x -20.00))
Unit - Create 1 . UnitType_Temp1 for Player_Active at (Point_Temp1 offset by 160.00 towards Real_Temp1 degrees.) facing (Angle from Point_Temp1 to (Point_Temp1 offset by 160.00 towards Real_Temp1 degrees.)) degrees
Set Variable Set Boolean_Heroes = "true"
Unit - Remove Offshore Grain Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (1 Roar) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Inland Trading from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Move Onyxia from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Roll for Resources from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Research Development from Unit_Capitals[IntegerA_Temp1]
Unit - Remove End Trading from Unit_Capitals[IntegerA_Temp1]
Unit - Remove End Turn from Unit_Capitals[IntegerA_Temp1]
Unit Group - Pick every unit in Group_Temp1 and do (Remove (Picked unit) from Group_Temp1.)
Set Variable Set Group_Temp1 = (Units owned by Player_Active.)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Picked unit)) Equal to City (Human)
(Unit-type of (Picked unit)) Equal to City (Night Elf)
(Unit-type of (Picked unit)) Equal to City (Orc)
(Unit-type of (Picked unit)) Equal to City (Undead)
(Unit-type of (Picked unit)) Equal to Village (Human)
(Unit-type of (Picked unit)) Equal to Village (Night Elf)
(Unit-type of (Picked unit)) Equal to Village (Orc)
(Unit-type of (Picked unit)) Equal to Village (Undead)
(Unit-type of (Picked unit)) Equal to Crossroad Marker
Then - Actions
Unit - Remove Construct Road from (Picked unit)
Unit - Remove Establish Village (Human) from (Picked unit)
Unit - Remove Establish Village (Night Elf) from (Picked unit)
Unit - Remove Establish Village (Orc) from (Picked unit)
Unit - Remove Establish Village (Undead) from (Picked unit)
Unit - Remove Upgrade to City (Human) from (Picked unit)
Unit - Remove Upgrade to City (Night Elf) from (Picked unit)
Unit - Remove Upgrade to City (Orc) from (Picked unit)
Unit - Remove Upgrade to City (Undead) from (Picked unit)
Unit - Remove Road Quest from (Picked unit)
Else - Actions
Do nothing
Custom script: call RemoveLocation (udg_Point_Temp1)
Trigger - Run Stats_Update <gen> (checking conditions)
Trigger - Run Onyxia_Ability <gen> (checking conditions)
Set Variable Set Boolean_ItemLocked = "true"
Trigger - Run Lock_Items <gen> (ignoring conditions)
Use Road Work
Events
Unit - A unit Uses an item
Conditions
(Item-type of (Item being manipulated)) Equal to Road Work
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_RoadQuest Equal to True
Then - Actions
Set Variable Set ItemType_Temp1 = (Item-type of (Item being manipulated))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit_Capitals[(Player number of Player_Active)] has an item of type ItemType_Temp1) Equal to True
Then - Actions
Item - Set charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type ItemType_Temp1) to ((Charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type ItemType_Temp1)) + 1)
Else - Actions
Hero - Create ItemType_Temp1 and give it to Unit_Capitals[(Player number of Player_Active)]
Else - Actions
Set Variable Set Boolean_ItemLocked = "true"
Trigger - Run Lock_Items <gen> (ignoring conditions)
Trigger - Run Lock_Items <gen> (ignoring conditions)
Game - Display to (All players) the text: (String_Colors[(Player number of (Owner of (Triggering unit)))] + ((Name of (Owner of (Triggering unit))) + |r uses Road Work to build two free roads.))
Sound - Play PeonYes3 <gen>
Set Variable Set Integer_FreeRoads = "2"
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Set Variable Set Group_Temp1 = (Units owned by Player_Active.)
Unit - Remove Offshore Grain Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (1 Roar) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Inland Trading from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Move Onyxia from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Roll for Resources from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Research Development from Unit_Capitals[IntegerA_Temp1]
Unit - Remove End Trading from Unit_Capitals[IntegerA_Temp1]
Unit - Remove End Turn from Unit_Capitals[IntegerA_Temp1]
Unit Group - Pick every unit in Group_Temp1 and do (Remove (Picked unit) from Group_Temp1.)
Set Variable Set Group_Temp1 = (Units owned by Player_Active.)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Picked unit)) Equal to City (Human)
(Unit-type of (Picked unit)) Equal to City (Night Elf)
(Unit-type of (Picked unit)) Equal to City (Orc)
(Unit-type of (Picked unit)) Equal to City (Undead)
(Unit-type of (Picked unit)) Equal to Village (Human)
(Unit-type of (Picked unit)) Equal to Village (Night Elf)
(Unit-type of (Picked unit)) Equal to Village (Orc)
(Unit-type of (Picked unit)) Equal to Village (Undead)
(Unit-type of (Picked unit)) Equal to Crossroad Marker
Then - Actions
Unit - Remove Construct Road from (Picked unit)
Unit - Remove Establish Village (Human) from (Picked unit)
Unit - Remove Establish Village (Night Elf) from (Picked unit)
Unit - Remove Establish Village (Orc) from (Picked unit)
Unit - Remove Establish Village (Undead) from (Picked unit)
Unit - Remove Upgrade to City (Human) from (Picked unit)
Unit - Remove Upgrade to City (Night Elf) from (Picked unit)
Unit - Remove Upgrade to City (Orc) from (Picked unit)
Unit - Remove Upgrade to City (Undead) from (Picked unit)
Unit - Remove Road Quest from (Picked unit)
Else - Actions
Do nothing
Unit Group - Pick every unit in Group_RoadBuilders[IntegerA_Temp1] and do (Actions)
Loop - Actions
Unit - Add Construct Road (free) to (Picked unit)
Custom script: call DestroyGroup (udg_Group_Temp1)
Use Motherlode 1
Events
Unit - A unit Uses an item
Conditions
(Item-type of (Item being manipulated)) Equal to Motherlode
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_RoadQuest Equal to True
Then - Actions
Set Variable Set ItemType_Temp1 = (Item-type of (Item being manipulated))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit_Capitals[(Player number of Player_Active)] has an item of type ItemType_Temp1) Equal to True
Then - Actions
Item - Set charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type ItemType_Temp1) to ((Charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type ItemType_Temp1)) + 1)
Else - Actions
Hero - Create ItemType_Temp1 and give it to Unit_Capitals[(Player number of Player_Active)]
Else - Actions
Trigger - Run Lock_Items <gen> (ignoring conditions)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Set Variable Set Integer_Motherlode = "0"
Dialog - Clear Dialog_Motherlode[1]
Dialog - Change the title of Dialog_Motherlode[1] to Choose First Resource
Dialog - Create a dialog button for Dialog_Motherlode[1] labelled Cancel
Set Variable Set DialogButton_Motherlode[6] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceGrain[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_Motherlode[1] labelled (Trade for |c00FFFF00Grain|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Motherlode[1] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceLumber[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_Motherlode[1] labelled (Trade for |c0000FF00Lumber|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Motherlode[2] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceManaCrystals[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_Motherlode[1] labelled (Trade for |c006969FFMana Crystal|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Motherlode[3] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceMeat[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_Motherlode[1] labelled (Trade for |c00FF9696Meat|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Motherlode[4] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceStone[IntegerA_Temp1]
Dialog - Create a dialog button for Dialog_Motherlode[1] labelled (Trade for |c007d7d7dStone|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Motherlode[5] = (Last created dialog Button)
Dialog - Show Dialog_Motherlode[1] for Player_Active
Use Motherlode 2
Events
Dialog - A dialog button is clicked for Dialog_Motherlode[1]
Conditions
Actions
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Not equal to DialogButton_Motherlode[6]
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Motherlode[1]
Then - Actions
Set Variable Set Integer_Motherlode = "1"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Motherlode[2]
Then - Actions
Set Variable Set Integer_Motherlode = "2"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Motherlode[3]
Then - Actions
Set Variable Set Integer_Motherlode = "3"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Motherlode[4]
Then - Actions
Set Variable Set Integer_Motherlode = "4"
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Motherlode[5]
Then - Actions
Set Variable Set Integer_Motherlode = "5"
Else - Actions
Do nothing
Dialog - Clear Dialog_Motherlode[2]
Dialog - Change the title of Dialog_Motherlode[2] to Choose Second Resource
Dialog - Create a dialog button for Dialog_Motherlode[2] labelled Cancel
Set Variable Set DialogButton_Motherlode[6] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceGrain[IntegerA_Temp1]
If (Integer_Motherlode Equal to 1) then do (Set VariableSet IntegerA_Temp2 = (IntegerA_Temp2 + 1)) else do (Do nothing)
Dialog - Create a dialog button for Dialog_Motherlode[2] labelled (Trade for |c00FFFF00Grain|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Motherlode[1] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceLumber[IntegerA_Temp1]
If (Integer_Motherlode Equal to 2) then do (Set VariableSet IntegerA_Temp2 = (IntegerA_Temp2 + 1)) else do (Do nothing)
Dialog - Create a dialog button for Dialog_Motherlode[2] labelled (Trade for |c0000FF00Lumber|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Motherlode[2] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceManaCrystals[IntegerA_Temp1]
If (Integer_Motherlode Equal to 3) then do (Set VariableSet IntegerA_Temp2 = (IntegerA_Temp2 + 1)) else do (Do nothing)
Dialog - Create a dialog button for Dialog_Motherlode[2] labelled (Trade for |c006969FFMana Crystal|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Motherlode[3] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceMeat[IntegerA_Temp1]
If (Integer_Motherlode Equal to 4) then do (Set VariableSet IntegerA_Temp2 = (IntegerA_Temp2 + 1)) else do (Do nothing)
Dialog - Create a dialog button for Dialog_Motherlode[2] labelled (Trade for |c00FF9696Meat|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Motherlode[4] = (Last created dialog Button)
Set Variable Set IntegerA_Temp2 = Integer_ResourceStone[IntegerA_Temp1]
If (Integer_Motherlode Equal to 5) then do (Set VariableSet IntegerA_Temp2 = (IntegerA_Temp2 + 1)) else do (Do nothing)
Dialog - Create a dialog button for Dialog_Motherlode[2] labelled (Trade for |c007d7d7dStone|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_Motherlode[5] = (Last created dialog Button)
Dialog - Show Dialog_Motherlode[2] for Player_Active
Else - Actions
Trigger - Run Unlock_Items <gen> (checking conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit_Capitals[(Player number of Player_Active)] has an item of type Motherlode) Equal to True
Then - Actions
Item - Set charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type Motherlode) to ((Charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type Motherlode)) + 1)
Else - Actions
Hero - Create Motherlode and give it to Unit_Capitals[(Player number of Player_Active)]
|c00FFFF00Grain|r
|c0000FF00Lumber|r
|c006969FFMana Crystal|r
|c00FF9696Meat|r
|c007d7d7dStone|r
Use Motherlode 3
Events
Dialog - A dialog button is clicked for Dialog_Motherlode[2]
Conditions
Actions
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Not equal to DialogButton_Motherlode[6]
Then - Actions
If (Integer_Motherlode Equal to 1) then do (Set VariableSet Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] + 1)) else do (Do nothing)
If (Integer_Motherlode Equal to 1) then do (Set VariableSet String_Temp1 = "|c00FFFF00Grain|r") else do (Do nothing)
If (Integer_Motherlode Equal to 2) then do (Set VariableSet Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] + 1)) else do (Do nothing)
If (Integer_Motherlode Equal to 2) then do (Set VariableSet String_Temp1 = "|c0000FF00Lumber|r") else do (Do nothing)
If (Integer_Motherlode Equal to 3) then do (Set VariableSet Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] + 1)) else do (Do nothing)
If (Integer_Motherlode Equal to 3) then do (Set VariableSet String_Temp1 = "|c006969FFMana Crystal|r") else do (Do nothing)
If (Integer_Motherlode Equal to 4) then do (Set VariableSet Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] + 1)) else do (Do nothing)
If (Integer_Motherlode Equal to 4) then do (Set VariableSet String_Temp1 = "|c00FF9696Meat|r") else do (Do nothing)
If (Integer_Motherlode Equal to 5) then do (Set VariableSet Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] + 1)) else do (Do nothing)
If (Integer_Motherlode Equal to 5) then do (Set VariableSet String_Temp1 = "|c007d7d7dStone|r") else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Motherlode[1]
Then - Actions
Set Variable Set Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Motherlode Equal to 1
Then - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Motherlode to gain 2 + (String_Temp1 + .))))
Else - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Motherlode to gain 1 + (String_Temp1 + and 1 |c00FFFF00Grain|r.))))
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Motherlode[2]
Then - Actions
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Motherlode Equal to 2
Then - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Motherlode to gain 2 + (String_Temp1 + .))))
Else - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Motherlode to gain 1 + (String_Temp1 + and 1 |c0000FF00Lumber|r.))))
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Motherlode[3]
Then - Actions
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Motherlode Equal to 3
Then - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Motherlode to gain 2 + (String_Temp1 + .))))
Else - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Motherlode to gain 1 + (String_Temp1 + and 1 |c006969FFMana Crystal|r.))))
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Motherlode[4]
Then - Actions
Set Variable Set Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Motherlode Equal to 4
Then - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Motherlode to gain 2 + (String_Temp1 + .))))
Else - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Motherlode to gain 1 + (String_Temp1 + and 1 |c00FF9696Meat|r.))))
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Motherlode[5]
Then - Actions
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Motherlode Equal to 5
Then - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Motherlode to gain 2 + (String_Temp1 + .))))
Else - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r uses Motherlode to gain 1 + (String_Temp1 + and 1 |c007d7d7dStone|r.))))
Else - Actions
Do nothing
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of Unit_Capitals[IntegerA_Temp1] using Abilities\Spells\Other\Transmute\PileofGold.mdl
Special Effect - Destroy (Last created special effect)
Trigger - Run Stats_Update <gen> (ignoring conditions)
Set Variable Set Boolean_ItemLocked = "true"
Trigger - Run Lock_Items <gen> (ignoring conditions)
Else - Actions
Trigger - Run Unlock_Items <gen> (checking conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit_Capitals[(Player number of Player_Active)] has an item of type Motherlode) Equal to True
Then - Actions
Item - Set charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type Motherlode) to ((Charges remaining in (Item carried by Unit_Capitals[(Player number of Player_Active)] of type Motherlode)) + 1)
Else - Actions
Hero - Create Motherlode and give it to Unit_Capitals[(Player number of Player_Active)]
Lock Items
Events
Conditions
Actions
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
For each (Integer A) from 1 to 5 , do (Actions)
Loop - Actions
For each (Integer B) from 1 to 6 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Item carried by Unit_Capitals[IntegerA_Temp1] in slot (Integer B))) Equal to ItemType_Development[(Integer A)]
Then - Actions
Set Variable Set IntegerA_Temp2 = (Charges remaining in (Item carried by Unit_Capitals[IntegerA_Temp1] in slot (Integer B)))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Item - Remove (Item carried by Unit_Capitals[IntegerA_Temp1] in slot (Integer B))
Hero - Create ItemType_DevelopmentLocked[(Integer A)] and give it to Unit_Capitals[IntegerA_Temp1]
Item - Set charges remaining in (Last created item) to IntegerA_Temp2
Unit - Order Unit_Capitals[IntegerA_Temp1] to move (Last created item) to inventory slot (Integer B) .
Else - Actions
Do nothing
Else - Actions
Do nothing
Unlock Items
Events
Conditions
Boolean_ItemLocked Equal to False
Actions
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
For each (Integer A) from 1 to 5 , do (Actions)
Loop - Actions
For each (Integer B) from 1 to 6 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Item carried by Unit_Capitals[IntegerA_Temp1] in slot (Integer B))) Equal to ItemType_DevelopmentLocked[(Integer A)]
Then - Actions
Set Variable Set IntegerA_Temp2 = (Charges remaining in (Item carried by Unit_Capitals[IntegerA_Temp1] in slot (Integer B)))
Item - Remove (Item carried by Unit_Capitals[IntegerA_Temp1] in slot (Integer B))
Hero - Create ItemType_Development[(Integer A)] and give it to Unit_Capitals[IntegerA_Temp1]
Item - Set charges remaining in (Last created item) to IntegerA_Temp2
Unit - Order Unit_Capitals[IntegerA_Temp1] to move (Last created item) to inventory slot (Integer B) .
Else - Actions
Do nothing
Stats Window
Events
Conditions
Actions
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp1 = "1"
Multiboard - Create a multiboard with 6 columns and (7 + (Number of players in PlayerGroup_User)) rows, titled Stats .
Set Variable Set Multiboard_Resources[(Integer A)] = (Last created multiboard)
Multiboard - Hide (Last created multiboard)
Multiboard - Set the width for (Last created multiboard) item in column 1 , row 0 to 1.50 % of the total screen width
Multiboard - Set the width for (Last created multiboard) item in column 2 , row 0 to 9.00 % of the total screen width
Multiboard - Set the width for (Last created multiboard) item in column 3 , row 0 to 2.50 % of the total screen width
Multiboard - Set the width for (Last created multiboard) item in column 4 , row 0 to 1.50 % of the total screen width
Multiboard - Set the width for (Last created multiboard) item in column 5 , row 0 to 1.50 % of the total screen width
Multiboard - Set the width for (Last created multiboard) item in column 6 , row 0 to 2.00 % of the total screen width
Multiboard - Set the display style for (Last created multiboard) item in column 1 , row 0 to Hide text and Show icons
Multiboard - Set the display style for (Last created multiboard) item in column 2 , row 0 to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 3 , row 0 to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 4 , row 0 to Hide text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 5 , row 0 to Hide text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 6 , row 0 to Hide text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 1 , row 1 to Hide text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 3 , row 8 to Hide text and Show icons
Multiboard - Set the display style for (Last created multiboard) item in column 4 , row 8 to Hide text and Show icons
Multiboard - Set the display style for (Last created multiboard) item in column 5 , row 8 to Hide text and Show icons
Multiboard - Set the display style for (Last created multiboard) item in column 6 , row 8 to Hide text and Show icons
Multiboard - Set the display style for (Last created multiboard) item in column 1 , row 8 to Hide text and Hide icons
Multiboard - Set the text for (Last created multiboard) item in column 2 , row 1 to - Your Resources -
Multiboard - Set the text for (Last created multiboard) item in column 2 , row 2 to Grain
Multiboard - Set the text for (Last created multiboard) item in column 2 , row 3 to Lumber
Multiboard - Set the text for (Last created multiboard) item in column 2 , row 4 to Mana Crystal
Multiboard - Set the text for (Last created multiboard) item in column 2 , row 5 to Meat
Multiboard - Set the text for (Last created multiboard) item in column 2 , row 6 to Stone
Multiboard - Set the icon for (Last created multiboard) item in column 1 , row 2 to ReplaceableTextures\CommandButtons\BTN_Grain.blp
Multiboard - Set the icon for (Last created multiboard) item in column 1 , row 3 to ReplaceableTextures\CommandButtons\BTNOrcLumberUpgradeTwo.blp
Multiboard - Set the icon for (Last created multiboard) item in column 1 , row 4 to ReplaceableTextures\CommandButtons\BTNMoonStone.blp
Multiboard - Set the icon for (Last created multiboard) item in column 1 , row 5 to ReplaceableTextures\CommandButtons\BTN_Meat.blp
Multiboard - Set the icon for (Last created multiboard) item in column 1 , row 6 to ReplaceableTextures\CommandButtons\BTN_Stone.blp
Multiboard - Set the icon for (Last created multiboard) item in column 1 , row 7 to ReplaceableTextures\WorldEditUI\Editor-MultipleDoodads.blp
Multiboard - Set the icon for (Last created multiboard) item in column 3 , row 8 to ReplaceableTextures\WorldEditUI\Editor-MultipleDoodads.blp
Multiboard - Set the icon for (Last created multiboard) item in column 4 , row 8 to ReplaceableTextures\CommandButtons\BTNPebble.blp
Multiboard - Set the icon for (Last created multiboard) item in column 5 , row 8 to ReplaceableTextures\CommandButtons\BTNFarSight.blp
Multiboard - Set the icon for (Last created multiboard) item in column 6 , row 8 to ReplaceableTextures\CommandButtons\BTNInnerFire.blp
Multiboard - Set the text for (Last created multiboard) item in column 3 , row 7 to (String((Integer_ResourceGrain[(Integer A)] + (Integer_ResourceLumber[(Integer A)] + (Integer_ResourceManaCrystals[(Integer A)] + (Integer_ResourceMeat[(Integer A)] + Integer_ResourceStone[(Integer A)]))))))
Multiboard - Set the text for (Last created multiboard) item in column 3 , row 2 to (String(Integer_ResourceGrain[(Integer A)]))
Multiboard - Set the text for (Last created multiboard) item in column 3 , row 3 to (String(Integer_ResourceLumber[(Integer A)]))
Multiboard - Set the text for (Last created multiboard) item in column 3 , row 4 to (String(Integer_ResourceManaCrystals[(Integer A)]))
Multiboard - Set the text for (Last created multiboard) item in column 3 , row 5 to (String(Integer_ResourceMeat[(Integer A)]))
Multiboard - Set the text for (Last created multiboard) item in column 3 , row 6 to (String(Integer_ResourceStone[(Integer A)]))
Multiboard - Set the text for (Last created multiboard) item in column 2 , row 7 to Total
Multiboard - Set the text for (Last created multiboard) item in column 2 , row 8 to - Opponents -
Multiboard - Set the display style for (Last created multiboard) item in column 2 , row 8 to Show text and Hide icons
Multiboard - Set the color for (Last created multiboard) item in column 2 , row 1 to ( 100.00 %, 80.00 %, 20 %) with 0 % transparency
Multiboard - Set the color for (Last created multiboard) item in column 2 , row 8 to ( 100.00 %, 80.00 %, 20 %) with 0 % transparency
Multiboard - Set the color for (Last created multiboard) item in column 2 , row 7 to ( 100.00 %, 60.00 %, 60.00 %) with 0 % transparency
Multiboard - Set the color for (Last created multiboard) item in column 3 , row 7 to ( 100.00 %, 60.00 %, 60.00 %) with 0 % transparency
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player 1 (Red) is in PlayerGroup_User.) Equal to True
(Integer A) Not equal to 1
Then - Actions
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set IntegerA_Temp2 = "1"
If ((Race of (Player(IntegerA_Temp2))) Equal to Human) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNKnight.blp) else do (Do nothing)
If ((Race of (Player(IntegerA_Temp2))) Equal to Orc) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNGrunt.blp) else do (Do nothing)
If ((Race of (Player(IntegerA_Temp2))) Equal to Undead) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNAcolyte.blp) else do (Do nothing)
If ((Race of (Player(IntegerA_Temp2))) Equal to Night Elf) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNHuntress.blp) else do (Do nothing)
Multiboard - Set the text for (Last created multiboard) item in column 2 , row (7 + IntegerA_Temp1) to (String_Colors[IntegerA_Temp2] + ((Name of (Player(IntegerA_Temp2))) + |r))
Multiboard - Set the text for (Last created multiboard) item in column 3 , row (7 + IntegerA_Temp1) to (String((Integer_ResourceGrain[IntegerA_Temp2] + (Integer_ResourceLumber[IntegerA_Temp2] + (Integer_ResourceManaCrystals[IntegerA_Temp2] + (Integer_ResourceMeat[IntegerA_Temp2] + Integer_ResourceStone[IntegerA_Temp2]))))))
Multiboard - Set the display style for (Last created multiboard) item in column 4 , row (7 + IntegerA_Temp1) to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 5 , row (7 + IntegerA_Temp1) to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 6 , row (7 + IntegerA_Temp1) to Show text and Hide icons
Multiboard - Set the text for (Last created multiboard) item in column 4 , row (7 + IntegerA_Temp1) to (String(Integer_Heroes[IntegerA_Temp2]))
Multiboard - Set the text for (Last created multiboard) item in column 5 , row (7 + IntegerA_Temp1) to (String(Integer_RoadQuestResult[IntegerA_Temp2]))
Multiboard - Set the text for (Last created multiboard) item in column 6 , row (7 + IntegerA_Temp1) to ((String(Integer_VictoryPoints[IntegerA_Temp2])) + (/ + (String(Integer_VictoryPointsMax))))
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player 2 (Blue) is in PlayerGroup_User.) Equal to True
(Integer A) Not equal to 2
Then - Actions
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set IntegerA_Temp2 = "2"
If ((Race of (Player(IntegerA_Temp2))) Equal to Human) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNKnight.blp) else do (Do nothing)
If ((Race of (Player(IntegerA_Temp2))) Equal to Orc) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNGrunt.blp) else do (Do nothing)
If ((Race of (Player(IntegerA_Temp2))) Equal to Undead) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNAcolyte.blp) else do (Do nothing)
If ((Race of (Player(IntegerA_Temp2))) Equal to Night Elf) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNHuntress.blp) else do (Do nothing)
Multiboard - Set the text for (Last created multiboard) item in column 2 , row (7 + IntegerA_Temp1) to (String_Colors[IntegerA_Temp2] + ((Name of (Player(IntegerA_Temp2))) + |r))
Multiboard - Set the text for (Last created multiboard) item in column 3 , row (7 + IntegerA_Temp1) to (String((Integer_ResourceGrain[IntegerA_Temp2] + (Integer_ResourceLumber[IntegerA_Temp2] + (Integer_ResourceManaCrystals[IntegerA_Temp2] + (Integer_ResourceMeat[IntegerA_Temp2] + Integer_ResourceStone[IntegerA_Temp2]))))))
Multiboard - Set the display style for (Last created multiboard) item in column 4 , row (7 + IntegerA_Temp1) to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 5 , row (7 + IntegerA_Temp1) to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 6 , row (7 + IntegerA_Temp1) to Show text and Hide icons
Multiboard - Set the text for (Last created multiboard) item in column 4 , row (7 + IntegerA_Temp1) to (String(Integer_Heroes[IntegerA_Temp2]))
Multiboard - Set the text for (Last created multiboard) item in column 5 , row (7 + IntegerA_Temp1) to (String(Integer_RoadQuestResult[IntegerA_Temp2]))
Multiboard - Set the text for (Last created multiboard) item in column 6 , row (7 + IntegerA_Temp1) to ((String(Integer_VictoryPoints[IntegerA_Temp2])) + (/ + (String(Integer_VictoryPointsMax))))
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player 3 (Teal) is in PlayerGroup_User.) Equal to True
(Integer A) Not equal to 3
Then - Actions
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set IntegerA_Temp2 = "3"
If ((Race of (Player(IntegerA_Temp2))) Equal to Human) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNKnight.blp) else do (Do nothing)
If ((Race of (Player(IntegerA_Temp2))) Equal to Orc) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNGrunt.blp) else do (Do nothing)
If ((Race of (Player(IntegerA_Temp2))) Equal to Undead) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNAcolyte.blp) else do (Do nothing)
If ((Race of (Player(IntegerA_Temp2))) Equal to Night Elf) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNHuntress.blp) else do (Do nothing)
Multiboard - Set the text for (Last created multiboard) item in column 2 , row (7 + IntegerA_Temp1) to (String_Colors[IntegerA_Temp2] + ((Name of (Player(IntegerA_Temp2))) + |r))
Multiboard - Set the text for (Last created multiboard) item in column 3 , row (7 + IntegerA_Temp1) to (String((Integer_ResourceGrain[IntegerA_Temp2] + (Integer_ResourceLumber[IntegerA_Temp2] + (Integer_ResourceManaCrystals[IntegerA_Temp2] + (Integer_ResourceMeat[IntegerA_Temp2] + Integer_ResourceStone[IntegerA_Temp2]))))))
Multiboard - Set the display style for (Last created multiboard) item in column 4 , row (7 + IntegerA_Temp1) to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 5 , row (7 + IntegerA_Temp1) to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 6 , row (7 + IntegerA_Temp1) to Show text and Hide icons
Multiboard - Set the text for (Last created multiboard) item in column 4 , row (7 + IntegerA_Temp1) to (String(Integer_Heroes[IntegerA_Temp2]))
Multiboard - Set the text for (Last created multiboard) item in column 5 , row (7 + IntegerA_Temp1) to (String(Integer_RoadQuestResult[IntegerA_Temp2]))
Multiboard - Set the text for (Last created multiboard) item in column 6 , row (7 + IntegerA_Temp1) to ((String(Integer_VictoryPoints[IntegerA_Temp2])) + (/ + (String(Integer_VictoryPointsMax))))
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player 4 (Purple) is in PlayerGroup_User.) Equal to True
(Integer A) Not equal to 4
Then - Actions
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set IntegerA_Temp2 = "4"
If ((Race of (Player(IntegerA_Temp2))) Equal to Human) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNKnight.blp) else do (Do nothing)
If ((Race of (Player(IntegerA_Temp2))) Equal to Orc) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNGrunt.blp) else do (Do nothing)
If ((Race of (Player(IntegerA_Temp2))) Equal to Undead) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNAcolyte.blp) else do (Do nothing)
If ((Race of (Player(IntegerA_Temp2))) Equal to Night Elf) then do (Set the icon for (Last created multiboard) item in column 1, row (7 + IntegerA_Temp1) to ReplaceableTextures\CommandButtons\BTNHuntress.blp) else do (Do nothing)
Multiboard - Set the text for (Last created multiboard) item in column 2 , row (7 + IntegerA_Temp1) to (String_Colors[IntegerA_Temp2] + ((Name of (Player(IntegerA_Temp2))) + |r))
Multiboard - Set the text for (Last created multiboard) item in column 3 , row (7 + IntegerA_Temp1) to (String((Integer_ResourceGrain[IntegerA_Temp2] + (Integer_ResourceLumber[IntegerA_Temp2] + (Integer_ResourceManaCrystals[IntegerA_Temp2] + (Integer_ResourceMeat[IntegerA_Temp2] + Integer_ResourceStone[IntegerA_Temp2]))))))
Multiboard - Set the display style for (Last created multiboard) item in column 4 , row (7 + IntegerA_Temp1) to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 5 , row (7 + IntegerA_Temp1) to Show text and Hide icons
Multiboard - Set the display style for (Last created multiboard) item in column 6 , row (7 + IntegerA_Temp1) to Show text and Hide icons
Multiboard - Set the text for (Last created multiboard) item in column 4 , row (7 + IntegerA_Temp1) to (String(Integer_Heroes[IntegerA_Temp2]))
Multiboard - Set the text for (Last created multiboard) item in column 5 , row (7 + IntegerA_Temp1) to (String(Integer_RoadQuestResult[IntegerA_Temp2]))
Multiboard - Set the text for (Last created multiboard) item in column 6 , row (7 + IntegerA_Temp1) to ((String(Integer_VictoryPoints[IntegerA_Temp2])) + (/ + (String(Integer_VictoryPointsMax))))
Else - Actions
Do nothing
Custom script: if ( GetLocalPlayer() == Player(0) ) then
Multiboard - Show Multiboard_Resources[1]
Custom script: endif
Custom script: if ( GetLocalPlayer() == Player(1) ) then
Multiboard - Show Multiboard_Resources[2]
Custom script: endif
Custom script: if ( GetLocalPlayer() == Player(2) ) then
Multiboard - Show Multiboard_Resources[3]
Custom script: endif
Custom script: if ( GetLocalPlayer() == Player(3) ) then
Multiboard - Show Multiboard_Resources[4]
Custom script: endif
Stats Update
Events
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_Houserules[2] Equal to False
Then - Actions
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_VictoryPoints[(Integer A)] Greater than or equal to Integer_VictoryPointsMax
Then - Actions
Set Variable Set Player_Winner = (Player((Integer A)))
Trigger - Run Game_Over <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
Else - Actions
Set Variable Set IntegerA_Temp2 = Integer_VictoryPointsMax
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (Integer_VictoryPoints[(Integer A)] Greater than or equal to IntegerA_Temp2) then do (Set VariableSet IntegerA_Temp2 = Integer_VictoryPoints[(Integer A)]) else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_LeadWinner) Equal to 1
Then - Actions
Set Variable Set Player_Temp1 = (Random player from PlayerGroup_LeadWinner)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (Integer_VictoryPoints[(Integer A)] Equal to IntegerA_Temp2) then do (Add (Player((Integer A))) to PlayerGroup_LeadWinner) else do (Remove (Player((Integer A))) from PlayerGroup_LeadWinner.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_LeadWinner) Equal to 1
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Temp1 is in PlayerGroup_LeadWinner.) Equal to True
Then - Actions
Do nothing
Else - Actions
Set Variable Set Player_Temp1 = (Random player from PlayerGroup_LeadWinner)
Game - Display to (All players) for 6.00 seconds the text: (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + (|r takes a winning lead with |c00bfff80 + ((String(IntegerA_Temp2)) + Victory Points|r!))))
Do nothing
Else - Actions
Do nothing
Else - Actions
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (Integer_VictoryPoints[(Integer A)] Equal to IntegerA_Temp2) then do (Add (Player((Integer A))) to PlayerGroup_LeadWinner) else do (Remove (Player((Integer A))) from PlayerGroup_LeadWinner.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_LeadWinner) Equal to 1
Then - Actions
Set Variable Set Player_Temp1 = (Random player from PlayerGroup_LeadWinner)
Game - Display to (All players) for 6.00 seconds the text: (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + (|r takes a winning lead with |c00bfff80 + ((String(IntegerA_Temp2)) + Victory Points|r!))))
Else - Actions
Do nothing
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp1 = "1"
Player - Set (Player((Integer A))) . Current lumber to Integer_RoadQuestResult[(Integer A)]
Player - Set (Player((Integer A))) . Current gold to Integer_Heroes[(Integer A)]
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 3 , row 7 to (String((Integer_ResourceGrain[(Integer A)] + (Integer_ResourceLumber[(Integer A)] + (Integer_ResourceManaCrystals[(Integer A)] + (Integer_ResourceMeat[(Integer A)] + Integer_ResourceStone[(Integer A)]))))))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 3 , row 2 to (String(Integer_ResourceGrain[(Integer A)]))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 3 , row 3 to (String(Integer_ResourceLumber[(Integer A)]))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 3 , row 4 to (String(Integer_ResourceManaCrystals[(Integer A)]))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 3 , row 5 to (String(Integer_ResourceMeat[(Integer A)]))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 3 , row 6 to (String(Integer_ResourceStone[(Integer A)]))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player 1 (Red) is in PlayerGroup_User.) Equal to True
(Integer A) Not equal to 1
Then - Actions
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set IntegerA_Temp2 = "1"
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 3 , row (7 + IntegerA_Temp1) to (String((Integer_ResourceGrain[IntegerA_Temp2] + (Integer_ResourceLumber[IntegerA_Temp2] + (Integer_ResourceManaCrystals[IntegerA_Temp2] + (Integer_ResourceMeat[IntegerA_Temp2] + Integer_ResourceStone[IntegerA_Temp2]))))))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 4 , row (7 + IntegerA_Temp1) to (String(Integer_Heroes[IntegerA_Temp2]))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 5 , row (7 + IntegerA_Temp1) to (String(Integer_RoadQuestResult[IntegerA_Temp2]))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 6 , row (7 + IntegerA_Temp1) to ((String(Integer_VictoryPoints[IntegerA_Temp2])) + (/ + (String(Integer_VictoryPointsMax))))
If ((Player(IntegerA_Temp2)) Equal to Player_HeroQuestWinner) then do (Set the color for Multiboard_Resources[(Integer A)] item in column 4, row (7 + IntegerA_Temp1) to (20.00%, 100.00%, 20%) with 0% transparency) else do (Set the color for Multiboard_Resources[(Integer A)] item in column 4, row (7 + IntegerA_Temp1) to (100%, 100.00%, 100.00%) with 0% transparency)
If ((Player(IntegerA_Temp2)) Equal to Player_RoadQuestWinner) then do (Set the color for Multiboard_Resources[(Integer A)] item in column 5, row (7 + IntegerA_Temp1) to (20.00%, 100.00%, 20%) with 0% transparency) else do (Set the color for Multiboard_Resources[(Integer A)] item in column 5, row (7 + IntegerA_Temp1) to (100%, 100.00%, 100.00%) with 0% transparency)
If (((Player(IntegerA_Temp2)) is in PlayerGroup_LeadWinner.) Equal to True) then do (Set the color for Multiboard_Resources[(Integer A)] item in column 6, row (7 + IntegerA_Temp1) to (20.00%, 100.00%, 20%) with 0% transparency) else do (Set the color for Multiboard_Resources[(Integer A)] item in column 6, row (7 + IntegerA_Temp1) to (100%, 100.00%, 100.00%) with 0% transparency)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player 2 (Blue) is in PlayerGroup_User.) Equal to True
(Integer A) Not equal to 2
Then - Actions
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set IntegerA_Temp2 = "2"
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 3 , row (7 + IntegerA_Temp1) to (String((Integer_ResourceGrain[IntegerA_Temp2] + (Integer_ResourceLumber[IntegerA_Temp2] + (Integer_ResourceManaCrystals[IntegerA_Temp2] + (Integer_ResourceMeat[IntegerA_Temp2] + Integer_ResourceStone[IntegerA_Temp2]))))))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 4 , row (7 + IntegerA_Temp1) to (String(Integer_Heroes[IntegerA_Temp2]))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 5 , row (7 + IntegerA_Temp1) to (String(Integer_RoadQuestResult[IntegerA_Temp2]))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 6 , row (7 + IntegerA_Temp1) to ((String(Integer_VictoryPoints[IntegerA_Temp2])) + (/ + (String(Integer_VictoryPointsMax))))
If ((Player(IntegerA_Temp2)) Equal to Player_HeroQuestWinner) then do (Set the color for Multiboard_Resources[(Integer A)] item in column 4, row (7 + IntegerA_Temp1) to (20.00%, 100.00%, 20%) with 0% transparency) else do (Set the color for Multiboard_Resources[(Integer A)] item in column 4, row (7 + IntegerA_Temp1) to (100%, 100.00%, 100.00%) with 0% transparency)
If ((Player(IntegerA_Temp2)) Equal to Player_RoadQuestWinner) then do (Set the color for Multiboard_Resources[(Integer A)] item in column 5, row (7 + IntegerA_Temp1) to (20.00%, 100.00%, 20%) with 0% transparency) else do (Set the color for Multiboard_Resources[(Integer A)] item in column 5, row (7 + IntegerA_Temp1) to (100%, 100.00%, 100.00%) with 0% transparency)
If (((Player(IntegerA_Temp2)) is in PlayerGroup_LeadWinner.) Equal to True) then do (Set the color for Multiboard_Resources[(Integer A)] item in column 6, row (7 + IntegerA_Temp1) to (20.00%, 100.00%, 20%) with 0% transparency) else do (Set the color for Multiboard_Resources[(Integer A)] item in column 6, row (7 + IntegerA_Temp1) to (100%, 100.00%, 100.00%) with 0% transparency)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player 3 (Teal) is in PlayerGroup_User.) Equal to True
(Integer A) Not equal to 3
Then - Actions
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set IntegerA_Temp2 = "3"
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 3 , row (7 + IntegerA_Temp1) to (String((Integer_ResourceGrain[IntegerA_Temp2] + (Integer_ResourceLumber[IntegerA_Temp2] + (Integer_ResourceManaCrystals[IntegerA_Temp2] + (Integer_ResourceMeat[IntegerA_Temp2] + Integer_ResourceStone[IntegerA_Temp2]))))))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 4 , row (7 + IntegerA_Temp1) to (String(Integer_Heroes[IntegerA_Temp2]))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 5 , row (7 + IntegerA_Temp1) to (String(Integer_RoadQuestResult[IntegerA_Temp2]))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 6 , row (7 + IntegerA_Temp1) to ((String(Integer_VictoryPoints[IntegerA_Temp2])) + (/ + (String(Integer_VictoryPointsMax))))
If ((Player(IntegerA_Temp2)) Equal to Player_HeroQuestWinner) then do (Set the color for Multiboard_Resources[(Integer A)] item in column 4, row (7 + IntegerA_Temp1) to (20.00%, 100.00%, 20%) with 0% transparency) else do (Set the color for Multiboard_Resources[(Integer A)] item in column 4, row (7 + IntegerA_Temp1) to (100%, 100.00%, 100.00%) with 0% transparency)
If ((Player(IntegerA_Temp2)) Equal to Player_RoadQuestWinner) then do (Set the color for Multiboard_Resources[(Integer A)] item in column 5, row (7 + IntegerA_Temp1) to (20.00%, 100.00%, 20%) with 0% transparency) else do (Set the color for Multiboard_Resources[(Integer A)] item in column 5, row (7 + IntegerA_Temp1) to (100%, 100.00%, 100.00%) with 0% transparency)
If (((Player(IntegerA_Temp2)) is in PlayerGroup_LeadWinner.) Equal to True) then do (Set the color for Multiboard_Resources[(Integer A)] item in column 6, row (7 + IntegerA_Temp1) to (20.00%, 100.00%, 20%) with 0% transparency) else do (Set the color for Multiboard_Resources[(Integer A)] item in column 6, row (7 + IntegerA_Temp1) to (100%, 100.00%, 100.00%) with 0% transparency)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player 4 (Purple) is in PlayerGroup_User.) Equal to True
(Integer A) Not equal to 4
Then - Actions
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + 1)
Set Variable Set IntegerA_Temp2 = "4"
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 3 , row (7 + IntegerA_Temp1) to (String((Integer_ResourceGrain[IntegerA_Temp2] + (Integer_ResourceLumber[IntegerA_Temp2] + (Integer_ResourceManaCrystals[IntegerA_Temp2] + (Integer_ResourceMeat[IntegerA_Temp2] + Integer_ResourceStone[IntegerA_Temp2]))))))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 4 , row (7 + IntegerA_Temp1) to (String(Integer_Heroes[IntegerA_Temp2]))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 5 , row (7 + IntegerA_Temp1) to (String(Integer_RoadQuestResult[IntegerA_Temp2]))
Multiboard - Set the text for Multiboard_Resources[(Integer A)] item in column 6 , row (7 + IntegerA_Temp1) to ((String(Integer_VictoryPoints[IntegerA_Temp2])) + (/ + (String(Integer_VictoryPointsMax))))
If ((Player(IntegerA_Temp2)) Equal to Player_HeroQuestWinner) then do (Set the color for Multiboard_Resources[(Integer A)] item in column 4, row (7 + IntegerA_Temp1) to (20.00%, 100.00%, 20%) with 0% transparency) else do (Set the color for Multiboard_Resources[(Integer A)] item in column 4, row (7 + IntegerA_Temp1) to (100%, 100.00%, 100.00%) with 0% transparency)
If ((Player(IntegerA_Temp2)) Equal to Player_RoadQuestWinner) then do (Set the color for Multiboard_Resources[(Integer A)] item in column 5, row (7 + IntegerA_Temp1) to (20.00%, 100.00%, 20%) with 0% transparency) else do (Set the color for Multiboard_Resources[(Integer A)] item in column 5, row (7 + IntegerA_Temp1) to (100%, 100.00%, 100.00%) with 0% transparency)
If (((Player(IntegerA_Temp2)) is in PlayerGroup_LeadWinner.) Equal to True) then do (Set the color for Multiboard_Resources[(Integer A)] item in column 6, row (7 + IntegerA_Temp1) to (20.00%, 100.00%, 20%) with 0% transparency) else do (Set the color for Multiboard_Resources[(Integer A)] item in column 6, row (7 + IntegerA_Temp1) to (100%, 100.00%, 100.00%) with 0% transparency)
Else - Actions
Do nothing
1 = Roll
2 = Trading
3 = Construction

Gamestate Return
Events
Conditions
Actions
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Gamestate Equal to 1
Then - Actions
Unit - Add Roll for Resources to Unit_Capitals[IntegerA_Temp1]
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Gamestate Equal to 2
Then - Actions
Trigger - Run Trading_Start <gen> (ignoring conditions)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Gamestate Equal to 3
Then - Actions
Trigger - Run Construction_Start <gen> (ignoring conditions)
Else - Actions
Do nothing
Game Over
Events
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_TurnTimer Equal to True
Then - Actions
Countdown Timer - Pause Timer_Turn
Countdown Timer - Destroy TimerWindow_TurnTimer
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Trigger - Run Lock_Items <gen> (ignoring conditions)
Trigger - Turn off Player_Leave <gen>
Unit - Remove Offshore Grain Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (1 Roar) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Inland Trading from Unit_Capitals[IntegerA_Temp1]
Unit - Remove End Turn from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Roll for Resources from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Research Development from Unit_Capitals[IntegerA_Temp1]
Unit Group - Pick every unit in Group_RoadBuilders[IntegerA_Temp1] and do (Actions)
Loop - Actions
Unit - Remove Construct Road from (Picked unit)
Unit - Remove Upgrade to City (Human) from (Picked unit)
Unit - Remove Upgrade to City (Night Elf) from (Picked unit)
Unit - Remove Upgrade to City (Orc) from (Picked unit)
Unit - Remove Upgrade to City (Undead) from (Picked unit)
Unit - Remove Establish Village (Human) from (Picked unit)
Unit - Remove Establish Village (Night Elf) from (Picked unit)
Unit - Remove Establish Village (Orc) from (Picked unit)
Unit - Remove Establish Village (Undead) from (Picked unit)
Unit - Remove Road Quest from (Picked unit)
Unit - Remove End Trading from (Picked unit)
Wait 2 seconds
Set Variable Set IntegerA_Temp1 = (Player number of Player_Winner)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_Houserules[2] Equal to True
Then - Actions
Game - Display to (All players) for 20.00 seconds the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Winner) + (|r starts their turn in the lead with |c00bfff80 + ((String(Integer_VictoryPoints[IntegerA_Temp1])) + Victory Points|r and has won the game!))))
Else - Actions
Game - Display to (All players) for 20.00 seconds the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Winner) + (|r has reached |c00bfff80 + ((String(Integer_VictoryPointsMax)) + Victory Points|r and has won the game!))))
Sound - Play QuestCompleted <gen>
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to (Player number of Player_Active)
Then - Actions
Multiboard - Change the title of Multiboard_Resources[(Integer A)] to |c0020C000Victory!|r
Else - Actions
Multiboard - Change the title of Multiboard_Resources[(Integer A)] to |c00FF0303Defeat!|r
Countdown Timer - Start Timer_GameOver as a One-shot timer that will expire in 180.00 seconds
Countdown Timer - Create a timer window for (Last started timer) with title Game Over!
Countdown Timer - Show (Last created timer window)
Trigger - Run Victory_Fireworks <gen> (ignoring conditions)
VictoryDefeat Screen
Events
Time - Timer_GameOver expires
Conditions
Actions
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp1 Equal to (Player number of Player_Active)
Then - Actions
Game - Victory (Player((Integer A))) ( Show dialogs, Show scores)
Else - Actions
Game - Defeat (Player((Integer A))) with the message: Defeat!
Victory Fireworks
Events
Time - Timer_Fireworks expires
Conditions
Actions
Set Variable Set Unit_Temp1 = (Random unit from (Units owned by Player_Winner matching ((((Matching unit) is in Group_RoadBuilders[(Player number of Player_Winner)].) Equal to True) and ((Unit-type of (Matching unit)) Not equal to Crossroad Marker)).))
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of Unit_Temp1 using Abilities\Spells\Human\Flare\FlareCaster.mdl
Wait 1.40 seconds
Special Effect - Create a special effect attached to the overhead (Unexpected type: 'attachpoint') of Unit_Temp1 using Abilities\Spells\Human\Flare\FlareTarget.mdl
Special Effect - Destroy (Last created special effect)
Countdown Timer - Start Timer_Fireworks as a One-shot timer that will expire in (Random real number between 0.50 and 2.00) seconds
Road Quest Ability
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Road Quest
Actions
Set Variable Set Unit_Temp1 = (Triggering unit)
Set Variable Set Unit_Temp2 = (Target unit of ability being cast)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Unit_Temp1 Not equal to Unit_Temp2
(Unit_Temp2 is in Group_RoadBuilders[IntegerA_Temp1].) Equal to True
Then - Actions
Set Variable Set Point_Temp1 = (Position of Unit_Temp1)
Set Variable Set Point_Temp2 = (Position of Unit_Temp2)
Set Variable Set Real_Temp1 = (Angle from Point_Temp1 to Point_Temp2)
If ((Race of Player_Active) Equal to Human) then do (Set VariableSet UnitType_Temp1 = "n01H") else do (Do nothing)
If ((Race of Player_Active) Equal to Night Elf) then do (Set VariableSet UnitType_Temp1 = "n01M") else do (Do nothing)
If ((Race of Player_Active) Equal to Orc) then do (Set VariableSet UnitType_Temp1 = "n01J") else do (Do nothing)
If ((Race of Player_Active) Equal to Undead) then do (Set VariableSet UnitType_Temp1 = "n01K") else do (Do nothing)
Set Variable Set Group_Temp1 = (Units within 350.00 of Point_Temp1 matching (((Owner of (Matching unit)) Equal to Player_Active) and ((Unit-type of (Matching unit)) Equal to UnitType_Temp1)).)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Set Variable Set Point_Temp3 = (Position of (Picked unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Angle from Point_Temp1 to Point_Temp3) Less than (Real_Temp1 + 30.00)
(Angle from Point_Temp1 to Point_Temp3) Greater than (Real_Temp1 - 30.00)
((Picked unit) is in Group_RoadQuestIncluded.) Equal to False
Then - Actions
Unit Group - Add (Picked unit) to Group_RoadQuestIncluded
Unit Group - Add Unit_Temp2 to Group_TradeRouteTemporary
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_RoadQuest Not equal to True
Then - Actions
Unit Group - Pick every unit in Group_RoadBuilders[IntegerA_Temp1] and do (Actions)
Loop - Actions
Set Variable Set Boolean_RoadQuest = "true"
Unit Group - Add Unit_Temp1 to Group_TradeRouteTemporary
Unit - Remove Construct Road from (Picked unit)
Unit - Remove Establish Village (Human) from (Picked unit)
Unit - Remove Establish Village (Night Elf) from (Picked unit)
Unit - Remove Establish Village (Orc) from (Picked unit)
Unit - Remove Establish Village (Undead) from (Picked unit)
Unit - Remove Upgrade to City (Human) from (Picked unit)
Unit - Remove Upgrade to City (Night Elf) from (Picked unit)
Unit - Remove Upgrade to City (Orc) from (Picked unit)
Unit - Remove Upgrade to City (Undead) from (Picked unit)
Unit - Remove Research Development from Unit_Capitals[IntegerA_Temp1]
Unit - Remove End Turn from Unit_Capitals[IntegerA_Temp1]
Set Variable Set Integer_RoadQuestCount = "0"
Else - Actions
Do nothing
Set Variable Set Integer_RoadQuestCount = (Integer_RoadQuestCount + 1)
Lightning - Create a Magic Leash lightning effect from source Point_Temp1 to target Point_Temp2
Set Variable Set Lightning_Roadquest[Integer_RoadQuestCount] = (Last created lightning effect)
Floating Text - Destroy FloatingText_RoadQuest
Floating Text - Create floating text that reads (String(Integer_RoadQuestCount)) above Unit_Temp2 with Z offset 0 , using font size 14.00 , color ( 70.00 %, 100 %, 100 %), and 0 % transparency
Set Variable Set FloatingText_RoadQuest = (Last created floating text)
Unit - Remove Road Quest from Unit_Temp1
Unit - Remove Confirm Trade Route from Unit_Temp1
Unit - Add Road Quest to Unit_Temp2
Unit - Add Confirm Trade Route to Unit_Temp2
Selection - Remove Unit_Temp1 from selection for Player_Active
Selection - Add Unit_Temp2 to selection for Player_Active
Else - Actions
Do nothing
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp3)
Custom script: call DestroyGroup (udg_Group_Temp1)
Else - Actions
Do nothing
Road Quest Confirm
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Confirm Trade Route
Actions
Set Variable Set Unit_Temp1 = (Triggering unit)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Set Variable Set Boolean_RoadQuest = "false"
Floating Text - Destroy FloatingText_RoadQuest
Unit - Remove Road Quest from Unit_Temp1
Unit - Remove Confirm Trade Route from Unit_Temp1
For each (Integer A) from 1 to Integer_RoadQuestCount , do (Actions)
Loop - Actions
Lightning - Destroy Lightning_Roadquest[(Integer A)]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_RoadQuestCount Greater than or equal to 5
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Player_Active Not equal to Player_RoadQuestWinner
Integer_RoadQuestCount Greater than Integer_RoadQuestResult[(Player number of Player_RoadQuestWinner)]
Then - Actions
Set Variable Set Integer_VictoryPoints[IntegerA_Temp1] = (Integer_VictoryPoints[IntegerA_Temp1] + 2)
If ((Owner of Road Quest Points 0115 <gen>) Equal to Player 11 (Dark Green)) then do (Do nothing) else do (Set VariableSet Integer_VictoryPoints[(Player number of Player_RoadQuestWinner)] = (Integer_VictoryPoints[(Player number of Player_RoadQuestWinner)] - 2))
Set Variable Set Player_RoadQuestWinner = Player_Active
Unit - Change ownership of Road Quest Points 0115 <gen> to Player_Active and Retain color
Set Variable Set Integer_RoadQuestResult[IntegerA_Temp1] = Integer_RoadQuestCount
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r establishes the |c00f8a48bLongest Trade Route|r with a + ((String(Integer_RoadQuestCount)) + long route.))))
Unit Group - Remove all units of Group_TradeRoute[IntegerA_Temp1] from Group_TradeRoute[IntegerA_Temp1] .
Unit Group - Add all units of Group_TradeRouteTemporary to Group_TradeRoute[IntegerA_Temp1]
Trigger - Run Stats_Update <gen> (checking conditions)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_RoadQuestCount Greater than Integer_RoadQuestResult[IntegerA_Temp1]
Then - Actions
Set Variable Set Integer_RoadQuestResult[IntegerA_Temp1] = Integer_RoadQuestCount
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r establishes a + ((String(Integer_RoadQuestCount)) + long trade route.))))
Unit Group - Remove all units of Group_TradeRoute[IntegerA_Temp1] from Group_TradeRoute[IntegerA_Temp1] .
Unit Group - Add all units of Group_TradeRouteTemporary to Group_TradeRoute[IntegerA_Temp1]
Trigger - Run Stats_Update <gen> (checking conditions)
Else - Actions
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + |r failed to establish a longer trade route than their previous best.))
Else - Actions
Player Group - Pick every player in PlayerGroup_User and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Picked player) Equal to Player_Active
Then - Actions
Game - Display to (Player group((Picked player))) the text: You need to connect at least 5 points to establish a trade route.
Else - Actions
Game - Display to (Player group((Picked player))) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + |r failed to establish a trade route.))
Set Variable Set Integer_RoadQuestCount = "0"
Unit Group - Pick every unit in Group_RoadQuestIncluded and do (Remove (Picked unit) from Group_RoadQuestIncluded.)
Unit Group - Remove all units of Group_TradeRouteTemporary from Group_TradeRouteTemporary .
Selection - Remove (Triggering unit) from selection for Player_Active
Selection - Select Unit_Capitals[IntegerA_Temp1] for Player_Active
Trigger - Run Gamestate_Return <gen> (checking conditions)
Setup Leave
Events
Player - Player 1 (Red) leaves the game
Player - Player 2 (Blue) leaves the game
Player - Player 3 (Teal) leaves the game
Player - Player 4 (Purple) leaves the game
Conditions
Actions
Sound - Play Warning <gen>
Game - Display to (All players) the text: |c00FF0303A player has left during setup, canceling game...|r
Countdown Timer - Start Timer_SetupLeave as a One-shot timer that will expire in 5.00 seconds
Setup Leave Defeat
Events
Time - Timer_SetupLeave expires
Conditions
Actions
Player Group - Pick every player in (All players) and do (Actions)
Loop - Actions
Game - Defeat (Picked player) with the message: A player left during setup.
Player Leave
Events
Player - Player 1 (Red) leaves the game
Player - Player 2 (Blue) leaves the game
Player - Player 3 (Teal) leaves the game
Player - Player 4 (Purple) leaves the game
Conditions
((Triggering player) is in PlayerGroup_User.) Equal to True
Actions
Game - Display to (All players) the text: (String_Colors[(Integer A)] + ((Name of (Player((Integer A)))) + |r has left the game!))
Set Variable Set Player_Temp1 = (Triggering player)
Trigger - Run Player_Remove <gen> (checking conditions)
Player Remove
Events
Conditions
Actions
Set Variable Set IntegerA_Temp1 = (Player number of Player_Temp1)
Sound - Play Warning <gen>
-------- Remove Roads --------
If ((Race of Player_Temp1) Equal to Human) then do (Set VariableSet UnitType_Temp1 = "n01H") else do (Do nothing)
If ((Race of Player_Temp1) Equal to Orc) then do (Set VariableSet UnitType_Temp1 = "n01J") else do (Do nothing)
If ((Race of Player_Temp1) Equal to Undead) then do (Set VariableSet UnitType_Temp1 = "n01K") else do (Do nothing)
If ((Race of Player_Temp1) Equal to Night Elf) then do (Set VariableSet UnitType_Temp1 = "n01M") else do (Do nothing)
Unit Group - Pick every unit in Group_RoadBuilders[IntegerA_Temp1] and do (Actions)
Loop - Actions
Unit - Create 1 . UnitType_Temp1 for Player_Temp1 at (Center of (Playable map area)) facing Default building facing degrees
Set Variable Set Point_Temp1 = (Position of (Picked unit))
Set Variable Set Point_Temp3 = (Point_Temp1 offset by 640.00 towards -90.00 degrees.)
Set Variable Set Group_Temp1 = (Units within 350.00 of Point_Temp1 matching (((Owner of (Matching unit)) Equal to Player_Temp1) and ((Unit-type of (Matching unit)) Equal to UnitType_Temp1)).)
Set Variable Set Real_Temp1 = "90.00"
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Angle from Point_Temp1 to (Position of (Picked unit))) Less than (Real_Temp1 + 30.00)
(Angle from Point_Temp1 to (Position of (Picked unit))) Greater than (Real_Temp1 - 30.00)
Then - Actions
Unit - Remove (Picked unit) from the game
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 128.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 256.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 384.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 512.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Else - Actions
Do nothing
Set Variable Set Real_Temp1 = "-90.00"
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Angle from Point_Temp1 to (Position of (Picked unit))) Less than (Real_Temp1 + 30.00)
(Angle from Point_Temp1 to (Position of (Picked unit))) Greater than (Real_Temp1 - 30.00)
Then - Actions
Unit - Remove (Picked unit) from the game
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 128.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 256.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 384.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 512.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Else - Actions
Do nothing
Set Variable Set Real_Temp1 = "-26.00"
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Angle from Point_Temp1 to (Position of (Picked unit))) Less than (Real_Temp1 + 30.00)
(Angle from Point_Temp1 to (Position of (Picked unit))) Greater than (Real_Temp1 - 30.00)
Then - Actions
Unit - Remove (Picked unit) from the game
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 128.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 128.00 towards 0.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 286.22 towards -26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 461.52 towards -33.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 640.01 towards -36.87 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Else - Actions
Do nothing
Set Variable Set Real_Temp1 = "26.00"
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Angle from Point_Temp1 to (Position of (Picked unit))) Less than (Real_Temp1 + 30.00)
(Angle from Point_Temp1 to (Position of (Picked unit))) Greater than (Real_Temp1 - 30.00)
Then - Actions
Unit - Remove (Picked unit) from the game
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 128.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 128.00 towards 0.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 286.22 towards 26.57 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 461.52 towards 33.69 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 640.01 towards 36.87 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Else - Actions
Do nothing
Set Variable Set Real_Temp1 = "-153.00"
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Angle from Point_Temp1 to (Position of (Picked unit))) Less than (Real_Temp1 + 30.00)
(Angle from Point_Temp1 to (Position of (Picked unit))) Greater than (Real_Temp1 - 30.00)
Then - Actions
Unit - Remove (Picked unit) from the game
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 128.00 towards 90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 128.00 towards 180.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 286.22 towards -153.44 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 461.52 towards -146.31 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 640.01 towards -143.13 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Else - Actions
Do nothing
Set Variable Set Real_Temp1 = "153.00"
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Angle from Point_Temp1 to (Position of (Picked unit))) Less than (Real_Temp1 + 30.00)
(Angle from Point_Temp1 to (Position of (Picked unit))) Greater than (Real_Temp1 - 30.00)
Then - Actions
Unit - Remove (Picked unit) from the game
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 128.00 towards -90.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 128.00 towards -180.00 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 286.22 towards 153.44 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 461.52 towards 146.31 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 640.01 towards 143.13 degrees.)
Environment - Change terrain type at Point_Temp2 to Village Fall - Rough Dirt using variation -1 in an area of size 1 and shape Square
Custom script: call RemoveLocation (udg_Point_Temp2)
Else - Actions
Do nothing
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp3)
-------- Reset Harbours --------
If ((Race of Player_Temp1) Equal to Human) then do (Set VariableSet UnitType_Temp1 = "n032") else do (Do nothing)
If ((Race of Player_Temp1) Equal to Orc) then do (Set VariableSet UnitType_Temp1 = "n030") else do (Do nothing)
If ((Race of Player_Temp1) Equal to Undead) then do (Set VariableSet UnitType_Temp1 = "n034") else do (Do nothing)
If ((Race of Player_Temp1) Equal to Night Elf) then do (Set VariableSet UnitType_Temp1 = "n031") else do (Do nothing)
Set Variable Set Group_Temp1 = (Units owned by Player_Temp1 of type UnitType_Temp1)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Set Variable Set Point_Temp1 = (Position of (Picked unit))
Set Variable Set Real_Temp1 = (Facing of (Picked unit))
For each (Integer A) from 1 to 6 , do (Actions)
Loop - Actions
If (((Picked unit) is in Group_Harbor[(Integer A)].) Equal to True) then do (Remove Player_Temp1 from PlayerGroup_Harbours[(Integer A)].) else do (Do nothing)
If (((Picked unit) is in Group_Harbor[(Integer A)].) Equal to True) then do (Set VariableSet IntegerA_Temp2 = (Integer A)) else do (Do nothing)
Unit - Remove (Picked unit) from the game
Unit - Create 1 . Port for Player 11 (Dark Green) at Point_Temp1 facing (Real_Temp1 - 75.00) degrees
Unit Group - Add (Last created unit) to Group_Harbor[IntegerA_Temp2]
Custom script: call RemoveLocation (udg_Point_Temp1)
-------- Remove Buildings --------
Unit Group - Pick every unit in (Units owned by Player_Temp1.) and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Picked unit)) Equal to Crossroad Marker
Then - Actions
Unit - Change ownership of (Picked unit) to Neutral Passive and Change color
Unit - Remove Construct Road from (Picked unit)
Unit - Remove Establish Village (Human) from (Picked unit)
Unit - Remove Establish Village (Night Elf) from (Picked unit)
Unit - Remove Establish Village (Orc) from (Picked unit)
Unit - Remove Establish Village (Undead) from (Picked unit)
Unit - Remove Road Quest from (Picked unit)
Unit - Remove End Trading from (Picked unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is in Group_RoadBuilders[IntegerA_Temp1].) Equal to True
Then - Actions
Set Variable Set Point_Temp1 = (Position of (Picked unit))
Unit - Hide (Picked unit)
Unit - Create 1 . Crossroad Marker for Neutral Passive at Point_Temp1 facing Default building facing degrees
Unit - Remove Establish Settlement from (Last created unit)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (((Picked unit) is in Group_RoadBuildersRestricted[(Integer A)].) Equal to True) then do (Add (Last created unit) to Group_RoadBuilders[(Integer A)]) else do (Do nothing)
Else - Actions
Unit - Remove (Picked unit) from the game
-------- Remove Player Variables --------
Player Group - Remove Player_Temp1 from PlayerGroup_User .
Player Group - Remove Player_Temp1 from PlayerGroup_Tradeblock .
Player Group - Remove Player_Temp1 from PlayerGroup_LeadWinner .
Player Group - Remove Player_Temp1 from PlayerGroup_Discard .
Player Group - Remove Player_Temp1 from PlayerGroup_LeadWinner .
Player Group - Remove Player_Temp1 from PlayerGroup_AFK .
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Player Group - Remove Player_Temp1 from PlayerGroup_Votekick[(Integer A)] .
Countdown Timer - Pause Timer_Discard[IntegerA_Temp1]
Set Variable Set Integer_ResourceGrain[IntegerA_Temp1] = "0"
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = "0"
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp1] = "0"
Set Variable Set Integer_ResourceMeat[IntegerA_Temp1] = "0"
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = "0"
Set Variable Set Integer_VictoryPoints[IntegerA_Temp1] = "0"
Set Variable Set Integer_Heroes[IntegerA_Temp1] = "0"
Set Variable Set Integer_RoadQuestResult[IntegerA_Temp1] = "0"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_RoadQuest Equal to True
Then - Actions
Set Variable Set Boolean_RoadQuest = "false"
Floating Text - Destroy FloatingText_RoadQuest
For each (Integer A) from 1 to Integer_RoadQuestCount , do (Actions)
Loop - Actions
Lightning - Destroy Lightning_Roadquest[(Integer A)]
Else - Actions
Do nothing
Unit Group - Remove all units of Group_TradeRoute[IntegerA_Temp1] from Group_TradeRoute[IntegerA_Temp1] .
Unit Group - Remove all units of Group_RoadBuilders[IntegerA_Temp1] from Group_RoadBuilders[IntegerA_Temp1] .
-------- Reset Crossroads Markers --------
Unit Group - Pick every unit in (Units of type Crossroad Marker) and do (Actions)
Loop - Actions
Set Variable Set Unit_Temp1 = (Picked unit)
Unit Group - Add (Picked unit) to Group_RestrictedMarkers[0]
Unit Group - Remove (Picked unit) from Group_RestrictedMarkers[1] .
Unit - Remove Restricted Zone from (Picked unit)
Set Variable Set Point_Temp1 = (Position of (Picked unit))
Set Variable Set Group_Temp1 = (Units within 641.00 of Point_Temp1.)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Picked unit)) Equal to Village (Human)
(Unit-type of (Picked unit)) Equal to Village (Night Elf)
(Unit-type of (Picked unit)) Equal to Village (Orc)
(Unit-type of (Picked unit)) Equal to Village (Undead)
(Unit-type of (Picked unit)) Equal to City (Human)
(Unit-type of (Picked unit)) Equal to City (Night Elf)
(Unit-type of (Picked unit)) Equal to City (Orc)
(Unit-type of (Picked unit)) Equal to City (Undead)
Then - Actions
Unit Group - Add Unit_Temp1 to Group_RestrictedMarkers[1]
Else - Actions
Do nothing
If ((Unit_Temp1 is in Group_RestrictedMarkers[1].) Equal to True) then do (Add Restricted Zone to Unit_Temp1) else do (Do nothing)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit_Temp1 is in Group_RoadBuilders[(Integer A)].) Equal to True
Then - Actions
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 128.00 towards 90.00 degrees.)
If ((Terrain type at Point_Temp2) Equal to Village Fall - Rough Dirt) then do (Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Circle) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Set Variable Set Point_Temp2 = (Point_Temp1 offset by 128.00 towards -90.00 degrees.)
If ((Terrain type at Point_Temp2) Equal to Village Fall - Rough Dirt) then do (Change terrain type at Point_Temp2 to Dalaran Ruins - Brick Tiles using variation -1 in an area of size 1 and shape Circle) else do (Do nothing)
Custom script: call RemoveLocation (udg_Point_Temp2)
Else - Actions
Do nothing
Custom script: call RemoveLocation (udg_Point_Temp1)
-------- Solve if player is quest winner --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Player_Temp1 Equal to Player_RoadQuestWinner
Then - Actions
Set Variable Set IntegerA_Temp2 = "5"
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (Integer_RoadQuestResult[(Integer A)] Greater than or equal to IntegerA_Temp2) then do (Set VariableSet IntegerA_Temp2 = Integer_RoadQuestResult[(Integer A)]) else do (Do nothing)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (Integer_RoadQuestResult[(Integer A)] Equal to IntegerA_Temp2) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in Group_Temp1) Equal to 0
Then - Actions
Unit - Change ownership of Road Quest Points 0115 <gen> to Player 11 (Dark Green) and Change color
Set Variable Set Player_RoadQuestWinner = Player 11 (Dark Green)
Else - Actions
Set Variable Set IntegerA_Temp3 = (Player number of (Random player from PlayerGroup_Temp1))
Set Variable Set Player_RoadQuestWinner = (Player(IntegerA_Temp3))
Unit - Change ownership of Road Quest Points 0115 <gen> to Player_RoadQuestWinner and Retain color
Set Variable Set Integer_VictoryPoints[(Player number of Player_RoadQuestWinner)] = (Integer_VictoryPoints[(Player number of Player_RoadQuestWinner)] + 2)
Game - Display to (All players) the text: (The |c00f8a48bLongest Trade Route|r passes to + (String_Colors[IntegerA_Temp3] + (Name of Player_RoadQuestWinner)))
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Player_Temp1 Equal to Player_HeroQuestWinner
Then - Actions
Set Variable Set IntegerA_Temp2 = "3"
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (Integer_Heroes[(Integer A)] Greater than or equal to IntegerA_Temp2) then do (Set VariableSet IntegerA_Temp2 = Integer_Heroes[(Integer A)]) else do (Do nothing)
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (Integer_Heroes[(Integer A)] Equal to IntegerA_Temp2) then do (Add (Player((Integer A))) to PlayerGroup_Temp1) else do (Do nothing)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in Group_Temp1) Equal to 0
Then - Actions
Unit - Change ownership of Hero Quest Points 0118 <gen> to Player 11 (Dark Green) and Change color
Set Variable Set Player_HeroQuestWinner = Player 11 (Dark Green)
Else - Actions
Set Variable Set IntegerA_Temp3 = (Player number of (Random player from PlayerGroup_Temp1))
Set Variable Set Player_HeroQuestWinner = (Player(IntegerA_Temp3))
Unit - Change ownership of Hero Quest Points 0118 <gen> to Player_HeroQuestWinner and Retain color
Set Variable Set Integer_VictoryPoints[(Player number of Player_HeroQuestWinner)] = (Integer_VictoryPoints[(Player number of Player_HeroQuestWinner)] + 2)
Game - Display to (All players) the text: (The |c0000eaffBiggest Raid Group|r passes to + (String_Colors[IntegerA_Temp3] + (Name of Player_HeroQuestWinner)))
Else - Actions
Do nothing
-------- Solve if player is traded with --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Player_Temp1 Equal to Player_Inland
Then - Actions
For each (Integer A) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set Integer_InlandOffer[(Integer A)] = "0"
Set Variable Set Integer_InlandDemand[(Integer A)] = "0"
Set Variable Set String_InlandOffer[(Integer A)] = ""
Set Variable Set String_InlandDemand[(Integer A)] = ""
Set Variable Set String_InlandOfferTotal = ""
Dialog - Clear Dialog_InlandOffer
Dialog - Hide Dialog_InlandOffer for Player_Active
Dialog - Clear Dialog_InlandDemand
Dialog - Hide Dialog_InlandDemand for Player_Active
Trigger - Run Inland_Cancel <gen> (ignoring conditions)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Temp1)
Else - Actions
Do nothing
-------- Solve if player is discarding resources --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player_Temp1 is in PlayerGroup_Discard.) Equal to True
Then - Actions
Player Group - Remove Player_Temp1 from PlayerGroup_Discard .
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_Discard) Equal to 0
Then - Actions
Trigger - Run Onyxia_Ability <gen> (checking conditions)
Else - Actions
Do nothing
Else - Actions
Do nothing
-------- Recreate Multiboard --------
If (Boolean_TurnTimer Equal to True) then do (Destroy TimerWindow_TurnTimer) else do (Do nothing)
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Multiboard - Destroy Multiboard_Resources[(Integer A)]
Trigger - Run Stats_Window <gen> (checking conditions)
Trigger - Run Stats_Update <gen> (checking conditions)
-------- Solve if player is Player_Active --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Player_Temp1 Equal to Player_Active
Then - Actions
Unit Group - Pick every unit in (Units of type Onyxia Move Location) and do (Actions)
Loop - Actions
Unit - Remove (Picked unit) from the game
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_User) Equal to (Number of players in PlayerGroup_AFK)
Then - Actions
Player Group - Pick every player in PlayerGroup_User and do (Defeat (Picked player) with the message: All players went AFK.)
Else - Actions
Trigger - Run Turn_Start_2 <gen> (checking conditions)
Else - Actions
Do nothing
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call DestroyGroup (udg_Group_Temp1)
Player Timer Expire
Events
Time - Timer_Turn expires
Conditions
Actions
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
Player Group - Pick every player in PlayerGroup_Votekick[(Integer A)] and do (Remove (Picked player) from PlayerGroup_Votekick[(Integer A)].)
Trigger - Run Lock_Items <gen> (checking conditions)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + (|r has gone AFK and will pass all turns until they're back. Type "-kick + (String_Colors[IntegerA_Temp1] + ((Name of Player_Active) + |r to vote to kick them.)))))
Countdown Timer - Destroy TimerWindow_TurnTimer
Player Group - Add Player_Active to PlayerGroup_AFK
Unit - Add End AFK to Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Grain Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Lumber Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (1 Roar) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Mana Crystal Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Meat Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (1) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (2) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Offshore Stone Trade (3) from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Inland Trading from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Move Onyxia from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Roll for Resources from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Research Development from Unit_Capitals[IntegerA_Temp1]
Unit - Remove End Turn from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Cancel Offer from Unit_Capitals[IntegerA_Temp1]
Unit - Remove Move Onyxia from Unit_Capitals[IntegerA_Temp1]
Unit Group - Pick every unit in Group_Temp1 and do (Remove (Picked unit) from Group_Temp1.)
Set Variable Set Group_Temp1 = (Units owned by Player_Active.)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(Unit-type of (Picked unit)) Equal to City (Human)
(Unit-type of (Picked unit)) Equal to City (Night Elf)
(Unit-type of (Picked unit)) Equal to City (Orc)
(Unit-type of (Picked unit)) Equal to City (Undead)
(Unit-type of (Picked unit)) Equal to Village (Human)
(Unit-type of (Picked unit)) Equal to Village (Night Elf)
(Unit-type of (Picked unit)) Equal to Village (Orc)
(Unit-type of (Picked unit)) Equal to Village (Undead)
(Unit-type of (Picked unit)) Equal to Crossroad Marker
Then - Actions
Unit - Change color of (Picked unit) to Black
Unit - Remove Construct Road from (Picked unit)
Unit - Remove Construct Road (free) from (Picked unit)
Unit - Remove Establish Village (Human) from (Picked unit)
Unit - Remove Establish Village (Night Elf) from (Picked unit)
Unit - Remove Establish Village (Orc) from (Picked unit)
Unit - Remove Establish Village (Undead) from (Picked unit)
Unit - Remove Upgrade to City (Human) from (Picked unit)
Unit - Remove Upgrade to City (Night Elf) from (Picked unit)
Unit - Remove Upgrade to City (Orc) from (Picked unit)
Unit - Remove Upgrade to City (Undead) from (Picked unit)
Unit - Remove Road Quest from (Picked unit)
Unit - Remove Confirm Trade Route from (Picked unit)
Unit - Remove End Trading from (Picked unit)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Boolean_RoadQuest Equal to True
Then - Actions
Set Variable Set Boolean_RoadQuest = "false"
Floating Text - Destroy FloatingText_RoadQuest
For each (Integer A) from 1 to Integer_RoadQuestCount , do (Actions)
Loop - Actions
Lightning - Destroy Lightning_Roadquest[(Integer A)]
Else - Actions
Do nothing
Unit Group - Pick every unit in (Units of type Onyxia Move Location) and do (Actions)
Loop - Actions
Unit - Remove (Picked unit) from the game
For each (Integer A) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set Integer_InlandOffer[(Integer A)] = "0"
Set Variable Set Integer_InlandDemand[(Integer A)] = "0"
Set Variable Set String_InlandOffer[(Integer A)] = ""
Set Variable Set String_InlandDemand[(Integer A)] = ""
Set Variable Set String_InlandOfferTotal = ""
Dialog - Clear Dialog_InlandOffer
Dialog - Hide Dialog_InlandOffer for Player_Active
Dialog - Clear Dialog_InlandDemand
Dialog - Hide Dialog_InlandDemand for Player_Active
Dialog - Clear Dialog_InlandAccept
Dialog - Hide Dialog_InlandAccept for Player_Inland
Dialog - Clear Dialog_GoblinMarketing
Dialog - Hide Dialog_GoblinMarketing for Player_Active
Dialog - Clear Dialog_Motherlode[1]
Dialog - Hide Dialog_Motherlode[1] for Player_Active
Dialog - Clear Dialog_Motherlode[2]
Dialog - Hide Dialog_Motherlode[2] for Player_Active
Dialog - Clear Dialog_Offshore
Dialog - Hide Dialog_Offshore for Player_Active
Dialog - Clear Dialog_Onyxia
Dialog - Hide Dialog_Onyxia for Player_Active
Dialog - Clear Dialog_Onyxia
Dialog - Hide Dialog_Onyxia for Player_Active
Set Variable Set Integer_FreeRoads = "0"
Set Variable Set Group_Temp1 = (Units of type Active Marker)
Unit Group - Pick every unit in Group_Temp1 and do (Remove (Picked unit) from the game)
Custom script: call DestroyGroup (udg_Group_Temp1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_User) Equal to (Number of players in PlayerGroup_AFK)
Then - Actions
Player Group - Pick every player in PlayerGroup_User and do (Defeat (Picked player) with the message: All players|nwent AFK.)
Else - Actions
Trigger - Run Turn_Start_2 <gen> (checking conditions)
Votekick
Events
Player - Player 1 (Red) types a chat message containing -kick (Unexpected type: 'stringnoformat') as A substring
Player - Player 2 (Blue) types a chat message containing -kick (Unexpected type: 'stringnoformat') as A substring
Player - Player 3 (Teal) types a chat message containing -kick (Unexpected type: 'stringnoformat') as A substring
Player - Player 4 (Purple) types a chat message containing -kick (Unexpected type: 'stringnoformat') as A substring
Conditions
Actions
Set Variable Set String_Temp1 = (Substring((Entered chat string), 7, 39))
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
String_Temp1 Equal to (Name of (Player((Integer A))))
((Player((Integer A))) is in PlayerGroup_AFK.) Equal to True
(Triggering player) Not equal to (Player((Integer A)))
Then - Actions
Set Variable Set Player_Temp1 = (Triggering player)
Player Group - Add Player_Temp1 to PlayerGroup_Votekick[(Integer A)]
Set Variable Set IntegerA_Temp1 = ((Number of players in PlayerGroup_User) - (Number of players in PlayerGroup_AFK))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_Votekick[(Integer A)]) Equal to IntegerA_Temp1
Then - Actions
Game - Display to (All players) the text: (String_Colors[(Integer A)] + ((Name of (Player((Integer A)))) + |r has been votekicked out by the other players.))
Set Variable Set Player_Temp1 = (Player((Integer A)))
Game - Defeat (Player((Integer A))) with the message: You were votekicked out for being AFK.
Trigger - Run Player_Remove <gen> (checking conditions)
Else - Actions
Game - Display to (All players) the text: (String_Colors[(Player number of (Triggering player))] + ((Name of Player_Temp1) + (|r has voted to kick + (String_Colors[(Integer A)] + ((Name of (Player((Integer A)))) + (|r; remaining votes needed: + (String((IntegerA_Temp1 - (Number of players in PlayerGroup_Votekick[(Integer A)]))))))))))
Custom script: call DestroyGroup (udg_Group_Temp1)
Else - Actions
Do nothing
AFK Return
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to End AFK
Actions
Set Variable Set Player_Temp1 = (Owner of (Triggering unit))
Unit - Remove End AFK from (Triggering unit)
Player Group - Pick every player in PlayerGroup_Votekick[(Player number of Player_Temp1)] and do (Remove (Picked player) from PlayerGroup_Votekick[(Player number of Player_Temp1)].)
Player Group - Remove Player_Temp1 from PlayerGroup_AFK .
Set Variable Set Group_Temp1 = (Units owned by Player_Temp1.)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Unit-type of (Picked unit)) Equal to Crossroad Marker
Then - Actions
Do nothing
Else - Actions
Unit - Change color of (Picked unit) to (Color of Player_Temp1)
Game - Display to (All players) the text: (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r has returned to the game!))
Custom script: call DestroyGroup (udg_Group_Temp1)
Lair
Events
Map initialization
Conditions
Actions
Unit Group - Pick every unit in (Units of type Lair Fire 1) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Remains 1) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Remains 2) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Skull Wyrm) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Spikes 1) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Spikes 2) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Stairs 1) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Stairs 2) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Stone Inside) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Stone Roof 1) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Stone Roof 2) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Stone Roof 3) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Stone Roof 4) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Stone Wall 1) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Stone Wall 2) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Stone Wall 3) and do (Add (Picked unit) to Group_Lair)
Unit Group - Pick every unit in (Units of type Lair Guards) and do (Add (Picked unit) to Group_Lair)
Unit Group - Add Onyxia 0119 <gen> to Group_Lair
Unit Group - Add all units of Group_Lair to Group_Temp1
For each (Integer A) from 1 to 58 , do (Actions)
Loop - Actions
Set Variable Set Unit_Lair[(Integer A)] = (Random unit from Group_Temp1)
Set Variable Set Real_LairAngle[(Integer A)] = (Angle from (Center of Land_Lair <gen>) to (Position of Unit_Lair[(Integer A)]))
Set Variable Set Real_LairDistance[(Integer A)] = (Distance between (Position of Unit_Lair[(Integer A)]) and (Center of Land_Lair <gen>))
Unit Group - Remove Unit_Lair[(Integer A)] from Group_Temp1 .
Animation - Change Lair Skull Wyrm 0103 <gen> 's animation speed to 0.00 % of its original speed
You spin my whelp right round right round
Events
Time - Every 0.01 seconds of game time
Conditions
Actions
Set Variable Set Real_Whelp = (Real_Whelp + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Real_Whelp Greater than or equal to 720.00
Then - Actions
Set Variable Set Real_Whelp = "0.00"
Else - Actions
Do nothing
Set Variable Set Point_Whelp = ((Position of Lair Skull Wyrm 0103 <gen>) offset by 230.00 towards (Real_Whelp x 0.50) degrees.)
Unit - Move Lair Whelp 0109 <gen> instantly to Point_Whelp , facing (90.00 + (Real_Whelp x 0.50)) degrees
Custom script: call RemoveLocation (udg_Point_Whelp)
|c00FFFF00Grain|r
|c0000FF00Lumber|r
|c006969FFMana Crystal|r
|c00FF9696Meat|r
|c007d7d7dStone|r
Onyxia Discard 1
Events
Conditions
Actions
Player Group - Pick every player in PlayerGroup_Discard and do (Remove (Picked player) from PlayerGroup_Discard.)
Player Group - Pick every player in PlayerGroup_User and do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp1 = (Player number of (Picked player))
Set Variable Set IntegerA_Temp2 = (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + Integer_ResourceStone[IntegerA_Temp1]))))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 7
Then - Actions
Player Group - Add (Picked player) to PlayerGroup_Discard
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_Discard) Greater than 0
Then - Actions
Game - Display to (All players) the text: Onyxia attacks, burning stockpiles across the land!
Sound - Play FrostwyrmWarcry1 <gen>
Player Group - Pick every player in PlayerGroup_Discard and do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp1 = (Player number of (Picked player))
If (Boolean_TurnTimer Equal to True) then do (Start Timer_Discard[IntegerA_Temp1] as a One-shot timer that will expire in 20.00 seconds) else do (Do nothing)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + Integer_ResourceStone[IntegerA_Temp1]))))
If ((Integer_Discard[IntegerA_Temp1] mod 2) Equal to 1) then do (Set VariableSet Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)) else do (Do nothing)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] / 2)
Dialog - Clear Dialog_DiscardHalf[IntegerA_Temp1]
Dialog - Change the title of Dialog_DiscardHalf[IntegerA_Temp1] to ( Onyxia attacks!|n You have more than 7 resources|n and must discard half ( + ((String(Integer_Discard[IntegerA_Temp1])) + )))
Set Variable Set IntegerA_Temp2 = Integer_ResourceGrain[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_DiscardHalf[IntegerA_Temp1] labelled (Discard |c00FFFF00Grain|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_DiscardGrains[IntegerA_Temp1] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = Integer_ResourceLumber[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_DiscardHalf[IntegerA_Temp1] labelled (Discard |c0000FF00Lumber|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_DiscardLumber[IntegerA_Temp1] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = Integer_ResourceManaCrystals[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_DiscardHalf[IntegerA_Temp1] labelled (Discard |c006969FFMana Crystal|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_DiscardMana[IntegerA_Temp1] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = Integer_ResourceMeat[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_DiscardHalf[IntegerA_Temp1] labelled (Discard |c00FF9696Meat|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_DiscardMeat[IntegerA_Temp1] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = Integer_ResourceStone[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_DiscardHalf[IntegerA_Temp1] labelled (Discard |c007d7d7dStone|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_DiscardStone[IntegerA_Temp1] = (Last created dialog Button)
Else - Actions
Do nothing
Dialog - Show Dialog_DiscardHalf[IntegerA_Temp1] for (Picked player)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked player) is in PlayerGroup_AFK.) Equal to True
Then - Actions
If ((Player number of (Picked player)) Equal to 1) then do (Run Timer_Discard_P1 <gen> (ignoring conditions)) else do (Do nothing)
If ((Player number of (Picked player)) Equal to 2) then do (Run Timer_Discard_P2 <gen> (ignoring conditions)) else do (Do nothing)
If ((Player number of (Picked player)) Equal to 3) then do (Run Timer_Discard_P3 <gen> (ignoring conditions)) else do (Do nothing)
If ((Player number of (Picked player)) Equal to 4) then do (Run Timer_Discard_P4 <gen> (ignoring conditions)) else do (Do nothing)
Else - Actions
Do nothing
Else - Actions
Trigger - Run Onyxia_Ability <gen> (checking conditions)
|c00FFFF00Grain|r
|c0000FF00Lumber|r
|c006969FFMana Crystal|r
|c00FF9696Meat|r
|c007d7d7dStone|r
Onyxia Discard 2
Events
Dialog - A dialog button is clicked for Dialog_DiscardHalf[1]
Dialog - A dialog button is clicked for Dialog_DiscardHalf[2]
Dialog - A dialog button is clicked for Dialog_DiscardHalf[3]
Dialog - A dialog button is clicked for Dialog_DiscardHalf[4]
Conditions
Actions
Set Variable Set Player_Temp1 = (Triggering player)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Temp1)
If ((Clicked dialog button) Equal to DialogButton_DiscardGrains[IntegerA_Temp1]) then do (Set VariableSet Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] - 1)) else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButton_DiscardLumber[IntegerA_Temp1]) then do (Set VariableSet Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] - 1)) else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButton_DiscardMana[IntegerA_Temp1]) then do (Set VariableSet Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] - 1)) else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButton_DiscardMeat[IntegerA_Temp1]) then do (Set VariableSet Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] - 1)) else do (Do nothing)
If ((Clicked dialog button) Equal to DialogButton_DiscardStone[IntegerA_Temp1]) then do (Set VariableSet Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] - 1)) else do (Do nothing)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Discard[IntegerA_Temp1] Greater than 0
Then - Actions
If (Boolean_TurnTimer Equal to True) then do (Start Timer_Discard[IntegerA_Temp1] as a One-shot timer that will expire in 20.00 seconds) else do (Do nothing)
Dialog - Clear Dialog_DiscardHalf[IntegerA_Temp1]
Dialog - Change the title of Dialog_DiscardHalf[IntegerA_Temp1] to (Discard ( + ((String(Integer_Discard[IntegerA_Temp1])) + ) more resources))
Set Variable Set IntegerA_Temp2 = Integer_ResourceGrain[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_DiscardHalf[IntegerA_Temp1] labelled (Discard |c00FFFF00Grain|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_DiscardGrains[IntegerA_Temp1] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = Integer_ResourceLumber[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_DiscardHalf[IntegerA_Temp1] labelled (Discard |c0000FF00Lumber|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_DiscardLumber[IntegerA_Temp1] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = Integer_ResourceManaCrystals[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_DiscardHalf[IntegerA_Temp1] labelled (Discard |c006969FFMana Crystal|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_DiscardMana[IntegerA_Temp1] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = Integer_ResourceMeat[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_DiscardHalf[IntegerA_Temp1] labelled (Discard |c00FF9696Meat|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_DiscardMeat[IntegerA_Temp1] = (Last created dialog Button)
Else - Actions
Do nothing
Set Variable Set IntegerA_Temp2 = Integer_ResourceStone[IntegerA_Temp1]
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Dialog - Create a dialog button for Dialog_DiscardHalf[IntegerA_Temp1] labelled (Discard |c007d7d7dStone|r ( + ((String(IntegerA_Temp2)) + )))
Set Variable Set DialogButton_DiscardStone[IntegerA_Temp1] = (Last created dialog Button)
Else - Actions
Do nothing
Dialog - Show Dialog_DiscardHalf[IntegerA_Temp1] for Player_Temp1
Else - Actions
If (Boolean_TurnTimer Equal to True) then do (Pause Timer_Discard[IntegerA_Temp1]) else do (Do nothing)
Player Group - Remove Player_Temp1 from PlayerGroup_Discard .
Game - Display to (All players) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Temp1) + |r lost half of their resources to Onyxia's attack!))
Trigger - Run Stats_Update <gen> (checking conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_Discard) Equal to 0
Then - Actions
Trigger - Run Onyxia_Ability <gen> (checking conditions)
Else - Actions
Do nothing
Onyxia Ability
Events
Conditions
Actions
If (Boolean_TurnTimer Equal to True) then do (Start Timer_Turn as a One-shot timer that will expire in (Remaining time for Timer_Turn) seconds) else do (Do nothing)
Unit - Add Move Onyxia to Unit_Capitals[(Player number of Player_Active)]
Selection - Select Unit_Capitals[(Player number of Player_Active)] for Player_Active
Game - Display to (Player group(Player_Active)) the text: |c00bfff80Hint:|r Choose where you wish Onyxia to go.
For each (Integer A) from 0 to 12 , do (Actions)
Loop - Actions
Unit Group - Pick every unit in Group_ResourceMarkers[(Integer A)] and do (Actions)
Loop - Actions
Set Variable Set Point_Temp1 = (Position of (Picked unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Distance between Point_Temp1 and Point_Onyxia) Less than or equal to 300.00
Then - Actions
Do nothing
Else - Actions
Unit - Create 1 . Onyxia Move Location for Player_Active at Point_Temp1 facing Default building facing degrees
Unit - Change color of (Last created unit) to Black
Animation - Change (Last created unit) 's animation speed to 0.00 % of its original speed
Animation - Change (Last created unit) 's vertex coloring to ( 100 %, 100 %, 100 %) with 30.00 % transparency
Custom script: call RemoveLocation (udg_Point_Temp1)
Onyxia Move
Events
Unit - A unit Starts the effect of an ability
Conditions
Or - Any (Conditions) are true
Conditions
(Ability being cast) Equal to Move Onyxia (Marker)
And - All (Conditions) are true
Conditions
(Ability being cast) Equal to Move Onyxia
(Unit-type of (Target unit of ability being cast)) Equal to Onyxia Move Location
Actions
If ((Onyxia_FYIAH <gen> is on) Not equal to True) then do (Turn on Onyxia_FYIAH <gen>) else do (Do nothing)
Sound - Play FrostwyrmReady1 <gen>
Game - Display to (All players) the text: Onyxia moves across the land, leaving destruction in her wake!
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Ability being cast) Equal to Move Onyxia
Then - Actions
Set Variable Set Point_Temp1 = (Position of (Target unit of ability being cast))
Set Variable Set Point_Onyxia = (Position of (Target unit of ability being cast))
Else - Actions
Set Variable Set Point_Temp1 = (Position of (Triggering unit))
Set Variable Set Point_Onyxia = (Position of (Triggering unit))
Unit Group - Pick every unit in (Units of type Onyxia Move Location) and do (Remove (Picked unit) from the game)
Unit Group - Pick every unit in (Units of type Onyxia Fire) and do (Add a (Random real number between 2.00 and 5.00) second Generic expiration timer to (Picked unit))
Unit - Remove Move Onyxia from Unit_Capitals[(Player number of Player_Active)]
Unit - Order Onyxia 0119 <gen> to Move To . Point_Temp1
Player Group - Pick every player in PlayerGroup_Temp1 and do (Remove (Picked player) from PlayerGroup_Temp1.)
Unit Group - Pick every unit in (Units within 605.00 of Point_Temp1.) and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Owner of (Picked unit)) Not equal to Player_Active
Or - Any (Conditions) are true
Conditions
(Unit-type of (Picked unit)) Equal to Village (Human)
(Unit-type of (Picked unit)) Equal to Village (Night Elf)
(Unit-type of (Picked unit)) Equal to Village (Orc)
(Unit-type of (Picked unit)) Equal to Village (Undead)
(Unit-type of (Picked unit)) Equal to City (Human)
(Unit-type of (Picked unit)) Equal to City (Night Elf)
(Unit-type of (Picked unit)) Equal to City (Orc)
(Unit-type of (Picked unit)) Equal to City (Undead)
Then - Actions
Player Group - Add (Owner of (Picked unit)) to PlayerGroup_Temp1
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_Temp1) Equal to 1
Then - Actions
Player Group - Pick every player in PlayerGroup_Temp1 and do (Set VariableSet Player_Temp1 = (Picked player))
Trigger - Run Onyxia_Steal_Resources <gen> (checking conditions)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_Temp1) Greater than 1
Then - Actions
Dialog - Clear Dialog_Onyxia
Dialog - Change the title of Dialog_Onyxia to Choose player to steal from
For each (Integer A) from 1 to (Number of players in PlayerGroup_Temp1) , do (Actions)
Loop - Actions
Set Variable Set Player_Temp1 = (Random player from PlayerGroup_Temp1)
Player Group - Remove Player_Temp1 from PlayerGroup_Temp1 .
Set Variable Set IntegerA_Temp1 = (Player number of Player_Temp1)
Set Variable Set IntegerA_Temp2 = (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + Integer_ResourceStone[IntegerA_Temp1]))))
Dialog - Create a dialog button for Dialog_Onyxia labelled (String_Colors[IntegerA_Temp1] + ((Name of Player_Temp1) + (|r ( + ((String(IntegerA_Temp2)) + )))))
Set Variable Set DialogButton_Onyxia[IntegerA_Temp1] = (Last created dialog Button)
Dialog - Show Dialog_Onyxia for Player_Active
Else - Actions
Trigger - Run Unlock_Items <gen> (checking conditions)
Trigger - Run Gamestate_Return <gen> (checking conditions)
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call DestroyGroup (udg_Group_Temp1)
Onyxia Dialog End
Events
Dialog - A dialog button is clicked for Dialog_Onyxia
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Onyxia[1]
Then - Actions
Set Variable Set Player_Temp1 = Player 1 (Red)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Onyxia[2]
Then - Actions
Set Variable Set Player_Temp1 = Player 2 (Blue)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Onyxia[3]
Then - Actions
Set Variable Set Player_Temp1 = Player 3 (Teal)
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Clicked dialog button) Equal to DialogButton_Onyxia[4]
Then - Actions
Set Variable Set Player_Temp1 = Player 4 (Purple)
Else - Actions
Do nothing
Trigger - Run Onyxia_Steal_Resources <gen> (checking conditions)
|c00FFFF00Grain|r
|c0000FF00Lumber|r
|c006969FFMana Crystal|r
|c00FF9696Meat|r
|c007d7d7dStone|r
Onyxia Steal Resources
Events
Conditions
Actions
Trigger - Run Gamestate_Return <gen> (checking conditions)
Trigger - Run Unlock_Items <gen> (checking conditions)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Temp1)
Set Variable Set IntegerA_Temp2 = (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + Integer_ResourceStone[IntegerA_Temp1]))))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp2 Greater than 0
Then - Actions
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and IntegerA_Temp2)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to Integer_ResourceGrain[IntegerA_Temp1]
Then - Actions
Set Variable Set Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] - 1)
Set Variable Set String_Temp1 = "|c00FFFF00Grain|r"
Player Group - Pick every player in PlayerGroup_User and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Picked player) Not equal to Player_Active
(Picked player) Not equal to Player_Temp1
Then - Actions
Game - Display to (Player group((Picked player))) the text: (String_Colors[(Player number of Player_Active)] + ((Name of Player_Active) + (|r steals a resource from + (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r during the chaos!)))))
Else - Actions
Game - Display to (Player group(Player_Active)) the text: (You stole 1 + (String_Temp1 + ( from + (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r during the chaos!)))))
Game - Display to (Player group(Player_Temp1)) the text: (String_Colors[(Player number of Player_Active)] + ((Name of Player_Active) + (|r stole + (String_Temp1 + from you during the chaos!))))
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Set Variable Set Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] + 1)
Trigger - Run Stats_Update <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + 0))
Then - Actions
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] - 1)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] + 1)
Set Variable Set String_Temp1 = "|c0000FF00Lumber|r"
Player Group - Pick every player in PlayerGroup_User and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Picked player) Not equal to Player_Active
(Picked player) Not equal to Player_Temp1
Then - Actions
Game - Display to (Player group((Picked player))) the text: (String_Colors[(Player number of Player_Active)] + ((Name of Player_Active) + (|r steals a resource from + (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r during the chaos!)))))
Else - Actions
Game - Display to (Player group(Player_Active)) the text: (You stole 1 + (String_Temp1 + ( from + (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r during the chaos!)))))
Game - Display to (Player group(Player_Temp1)) the text: (String_Colors[(Player number of Player_Active)] + ((Name of Player_Active) + (|r stole + (String_Temp1 + from you during the chaos!))))
Trigger - Run Stats_Update <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + 0)))
Then - Actions
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] - 1)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] + 1)
Set Variable Set String_Temp1 = "|c006969FFMana Crystal|r"
Player Group - Pick every player in PlayerGroup_User and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Picked player) Not equal to Player_Active
(Picked player) Not equal to Player_Temp1
Then - Actions
Game - Display to (Player group((Picked player))) the text: (String_Colors[(Player number of Player_Active)] + ((Name of Player_Active) + (|r steals a resource from + (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r during the chaos!)))))
Else - Actions
Game - Display to (Player group(Player_Active)) the text: (You stole 1 + (String_Temp1 + ( from + (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r during the chaos!)))))
Game - Display to (Player group(Player_Temp1)) the text: (String_Colors[(Player number of Player_Active)] + ((Name of Player_Active) + (|r stole + (String_Temp1 + from you during the chaos!))))
Trigger - Run Stats_Update <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + 0))))
Then - Actions
Set Variable Set Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] - 1)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Set Variable Set Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] + 1)
Set Variable Set String_Temp1 = "|c00FF9696Meat|r"
Player Group - Pick every player in PlayerGroup_User and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Picked player) Not equal to Player_Active
(Picked player) Not equal to Player_Temp1
Then - Actions
Game - Display to (Player group((Picked player))) the text: (String_Colors[(Player number of Player_Active)] + ((Name of Player_Active) + (|r steals a resource from + (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r during the chaos!)))))
Else - Actions
Game - Display to (Player group(Player_Active)) the text: (You stole 1 + (String_Temp1 + ( from + (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r during the chaos!)))))
Game - Display to (Player group(Player_Temp1)) the text: (String_Colors[(Player number of Player_Active)] + ((Name of Player_Active) + (|r stole + (String_Temp1 + from you during the chaos!))))
Trigger - Run Stats_Update <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + Integer_ResourceStone[IntegerA_Temp1]))))
Then - Actions
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] - 1)
Set Variable Set IntegerA_Temp1 = (Player number of Player_Active)
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] + 1)
Set Variable Set String_Temp1 = "|c007d7d7dStone|r"
Player Group - Pick every player in PlayerGroup_User and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Picked player) Not equal to Player_Active
(Picked player) Not equal to Player_Temp1
Then - Actions
Game - Display to (Player group((Picked player))) the text: (String_Colors[(Player number of Player_Active)] + ((Name of Player_Active) + (|r steals a resource from + (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r during the chaos!)))))
Else - Actions
Game - Display to (Player group(Player_Active)) the text: (You stole 1 + (String_Temp1 + ( from + (String_Colors[(Player number of Player_Temp1)] + ((Name of Player_Temp1) + |r during the chaos!)))))
Game - Display to (Player group(Player_Temp1)) the text: (String_Colors[(Player number of Player_Active)] + ((Name of Player_Active) + (|r stole + (String_Temp1 + from you during the chaos!))))
Trigger - Run Stats_Update <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
Else - Actions
Game - Display to (Player group(Player_Active)) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Temp1) + |r has no resources to take!))
Onyxia FYIAH
Events
Time - Every 3.50 seconds of game time
Conditions
Actions
If (Real_OnyxiaFire Greater than or equal to 1080.00) then do (Set VariableSet Real_OnyxiaFire = "135.00") else do (Set VariableSet Real_OnyxiaFire = (Real_OnyxiaFire + 135.00))
Set Variable Set Point_Temp1 = ((Position of Onyxia 0119 <gen>) offset by (Random real number between 50.00 and 450.00) towards Real_OnyxiaFire degrees.)
Unit - Create 1 . Onyxia Fire for Player 11 (Dark Green) at Point_Temp1 facing Default building facing degrees
Unit - Add a 17.50 second Generic expiration timer to (Last created unit)
Custom script: call RemoveLocation (udg_Point_Temp1)
Timer Discard P1
Events
Time - Timer_Discard[1] expires
Conditions
Actions
Set Variable Set IntegerA_Temp1 = "1"
Set Variable Set Player_Temp1 = (Player(IntegerA_Temp1))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Discard[IntegerA_Temp1] Greater than 0
Then - Actions
Set Variable Set IntegerA_Temp2 = (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + Integer_ResourceStone[IntegerA_Temp1]))))
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and IntegerA_Temp2)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to Integer_ResourceGrain[IntegerA_Temp1]
Then - Actions
Set Variable Set Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + 0))
Then - Actions
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + 0)))
Then - Actions
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + 0))))
Then - Actions
Set Variable Set Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + Integer_ResourceStone[IntegerA_Temp1]))))
Then - Actions
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
Else - Actions
Custom script: if ( GetLocalPlayer() == udg_Player_Temp1 ) then
Sound - Play Warning <gen>
Custom script: endif
Dialog - Hide Dialog_DiscardHalf[IntegerA_Temp1] for Player_Temp1
Dialog - Clear Dialog_DiscardHalf[IntegerA_Temp1]
Player Group - Remove Player_Temp1 from PlayerGroup_Discard .
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Integer A) Equal to IntegerA_Temp1
Then - Actions
Game - Display to (Player group((Player((Integer A))))) the text: Your time to discard ran out and your remaining losses were discarded randomly.
Else - Actions
Game - Display to (Player group((Player((Integer A))))) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Temp1) + |r lost half of their resources to Onyxia's attack!))
Trigger - Run Stats_Update <gen> (checking conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_Discard) Equal to 0
Then - Actions
Trigger - Run Onyxia_Ability <gen> (checking conditions)
Else - Actions
Do nothing
Timer Discard P2
Events
Time - Timer_Discard[2] expires
Conditions
Actions
Set Variable Set IntegerA_Temp1 = "2"
Set Variable Set Player_Temp1 = (Player(IntegerA_Temp1))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Discard[IntegerA_Temp1] Greater than 0
Then - Actions
Set Variable Set IntegerA_Temp2 = (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + Integer_ResourceStone[IntegerA_Temp1]))))
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and IntegerA_Temp2)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to Integer_ResourceGrain[IntegerA_Temp1]
Then - Actions
Set Variable Set Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + 0))
Then - Actions
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + 0)))
Then - Actions
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + 0))))
Then - Actions
Set Variable Set Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + Integer_ResourceStone[IntegerA_Temp1]))))
Then - Actions
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
Else - Actions
Custom script: if ( GetLocalPlayer() == udg_Player_Temp1 ) then
Sound - Play Warning <gen>
Custom script: endif
Dialog - Hide Dialog_DiscardHalf[IntegerA_Temp1] for Player_Temp1
Dialog - Clear Dialog_DiscardHalf[IntegerA_Temp1]
Player Group - Remove Player_Temp1 from PlayerGroup_Discard .
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Integer A) Equal to IntegerA_Temp1
Then - Actions
Game - Display to (Player group((Player((Integer A))))) the text: Your time to discard ran out and your remaining losses were discarded randomly.
Else - Actions
Game - Display to (Player group((Player((Integer A))))) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Temp1) + |r lost half of their resources to Onyxia's attack!))
Trigger - Run Stats_Update <gen> (checking conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_Discard) Equal to 0
Then - Actions
Trigger - Run Onyxia_Ability <gen> (checking conditions)
Else - Actions
Do nothing
Timer Discard P3
Events
Time - Timer_Discard[3] expires
Conditions
Actions
Set Variable Set IntegerA_Temp1 = "3"
Set Variable Set Player_Temp1 = (Player(IntegerA_Temp1))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Discard[IntegerA_Temp1] Greater than 0
Then - Actions
Set Variable Set IntegerA_Temp2 = (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + Integer_ResourceStone[IntegerA_Temp1]))))
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and IntegerA_Temp2)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to Integer_ResourceGrain[IntegerA_Temp1]
Then - Actions
Set Variable Set Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + 0))
Then - Actions
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + 0)))
Then - Actions
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + 0))))
Then - Actions
Set Variable Set Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + Integer_ResourceStone[IntegerA_Temp1]))))
Then - Actions
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
Else - Actions
Custom script: if ( GetLocalPlayer() == udg_Player_Temp1 ) then
Sound - Play Warning <gen>
Custom script: endif
Dialog - Hide Dialog_DiscardHalf[IntegerA_Temp1] for Player_Temp1
Dialog - Clear Dialog_DiscardHalf[IntegerA_Temp1]
Player Group - Remove Player_Temp1 from PlayerGroup_Discard .
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Integer A) Equal to IntegerA_Temp1
Then - Actions
Game - Display to (Player group((Player((Integer A))))) the text: Your time to discard ran out and your remaining losses were discarded randomly.
Else - Actions
Game - Display to (Player group((Player((Integer A))))) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Temp1) + |r lost half of their resources to Onyxia's attack!))
Trigger - Run Stats_Update <gen> (checking conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_Discard) Equal to 0
Then - Actions
Trigger - Run Onyxia_Ability <gen> (checking conditions)
Else - Actions
Do nothing
Timer Discard P4
Events
Time - Timer_Discard[4] expires
Conditions
Actions
Set Variable Set IntegerA_Temp1 = "4"
Set Variable Set Player_Temp1 = (Player(IntegerA_Temp1))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Integer_Discard[IntegerA_Temp1] Greater than 0
Then - Actions
Set Variable Set IntegerA_Temp2 = (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + Integer_ResourceStone[IntegerA_Temp1]))))
Set Variable Set IntegerA_Temp3 = (Random integer number between 1 and IntegerA_Temp2)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to Integer_ResourceGrain[IntegerA_Temp1]
Then - Actions
Set Variable Set Integer_ResourceGrain[IntegerA_Temp1] = (Integer_ResourceGrain[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + 0))
Then - Actions
Set Variable Set Integer_ResourceLumber[IntegerA_Temp1] = (Integer_ResourceLumber[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + 0)))
Then - Actions
Set Variable Set Integer_ResourceManaCrystals[IntegerA_Temp1] = (Integer_ResourceManaCrystals[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + 0))))
Then - Actions
Set Variable Set Integer_ResourceMeat[IntegerA_Temp1] = (Integer_ResourceMeat[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
IntegerA_Temp3 Less than or equal to (Integer_ResourceGrain[IntegerA_Temp1] + (Integer_ResourceLumber[IntegerA_Temp1] + (Integer_ResourceManaCrystals[IntegerA_Temp1] + (Integer_ResourceMeat[IntegerA_Temp1] + Integer_ResourceStone[IntegerA_Temp1]))))
Then - Actions
Set Variable Set Integer_ResourceStone[IntegerA_Temp1] = (Integer_ResourceStone[IntegerA_Temp1] - 1)
Set Variable Set Integer_Discard[IntegerA_Temp1] = (Integer_Discard[IntegerA_Temp1] - 1)
Trigger - Run (This trigger) (ignoring conditions)
Skip remaining actions
Else - Actions
Do nothing
Else - Actions
Custom script: if ( GetLocalPlayer() == udg_Player_Temp1 ) then
Sound - Play Warning <gen>
Custom script: endif
Dialog - Hide Dialog_DiscardHalf[IntegerA_Temp1] for Player_Temp1
Dialog - Clear Dialog_DiscardHalf[IntegerA_Temp1]
Player Group - Remove Player_Temp1 from PlayerGroup_Discard .
For each (Integer A) from 1 to 4 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Integer A) Equal to IntegerA_Temp1
Then - Actions
Game - Display to (Player group((Player((Integer A))))) the text: Your time to discard ran out and your remaining losses were discarded randomly.
Else - Actions
Game - Display to (Player group((Player((Integer A))))) the text: (String_Colors[IntegerA_Temp1] + ((Name of Player_Temp1) + |r lost half of their resources to Onyxia's attack!))
Trigger - Run Stats_Update <gen> (checking conditions)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of players in PlayerGroup_Discard) Equal to 0
Then - Actions
Trigger - Run Onyxia_Ability <gen> (checking conditions)
Else - Actions
Do nothing
Map View
Events
Player - Player 1 (Red) types a chat message containing -map (Unexpected type: 'stringnoformat') as An exact match
Player - Player 2 (Blue) types a chat message containing -map (Unexpected type: 'stringnoformat') as An exact match
Player - Player 3 (Teal) types a chat message containing -map (Unexpected type: 'stringnoformat') as An exact match
Player - Player 4 (Purple) types a chat message containing -map (Unexpected type: 'stringnoformat') as An exact match
Conditions
Actions
Camera - . Apply . gg_cam_Camera_001 for (Triggering player) over 0 seconds
Zoom View
Events
Player - Player 1 (Red) types a chat message containing -zoom (Unexpected type: 'stringnoformat') as An exact match
Player - Player 2 (Blue) types a chat message containing -zoom (Unexpected type: 'stringnoformat') as An exact match
Player - Player 3 (Teal) types a chat message containing -zoom (Unexpected type: 'stringnoformat') as An exact match
Player - Player 4 (Purple) types a chat message containing -zoom (Unexpected type: 'stringnoformat') as An exact match
Conditions
Actions
Camera - . Apply . gg_cam_Camera_002 for (Triggering player) over 0 seconds
Clear log
Events
Player - Player 1 (Red) types a chat message containing -clear (Unexpected type: 'stringnoformat') as An exact match
Player - Player 2 (Blue) types a chat message containing -clear (Unexpected type: 'stringnoformat') as An exact match
Player - Player 3 (Teal) types a chat message containing -clear (Unexpected type: 'stringnoformat') as An exact match
Player - Player 4 (Purple) types a chat message containing -clear (Unexpected type: 'stringnoformat') as An exact match
Conditions
Actions
Cinematic - Clear the screen of text messages for (Player group((Triggering player))) .
payday
Events
Player - Player 1 (Red) types a chat message containing payday (Unexpected type: 'stringnoformat') as An exact match
Conditions
Actions
Set Variable Set Integer_ResourceGrain[1] = "10"
Set Variable Set Integer_ResourceLumber[1] = "10"
Set Variable Set Integer_ResourceManaCrystals[1] = "10"
Set Variable Set Integer_ResourceMeat[1] = "10"
Set Variable Set Integer_ResourceStone[1] = "10"
Trigger - Run Stats_Update <gen> (checking conditions)
text
Events
Player - Player 1 (Red) types a chat message containing text (Unexpected type: 'stringnoformat') as An exact match
Conditions
Actions
Set Variable Set Region_Tilesets[1] = Tileset_1 <gen>
Set Variable Set Region_Tilesets[2] = Tileset_2 <gen>
Set Variable Set Region_Tilesets[3] = Tileset_3 <gen>
Set Variable Set Region_Tilesets[4] = Tileset_4 <gen>
Set Variable Set Region_Tilesets[5] = Tileset_5 <gen>
Set Variable Set Region_Tilesets[6] = Tileset_6 <gen>
Set Variable Set Region_Tilesets[7] = Tileset_7 <gen>
Set Variable Set Region_Tilesets[8] = Tileset_8 <gen>
Set Variable Set Region_Tilesets[9] = Tileset_9 <gen>
Set Variable Set Region_Tilesets[10] = Tileset_10 <gen>
Set Variable Set Region_Tilesets[11] = Tileset_11 <gen>
Set Variable Set Region_Tilesets[12] = Tileset_12 <gen>
Set Variable Set Region_Tilesets[13] = Tileset_13 <gen>
Set Variable Set Region_Tilesets[14] = Tileset_14 <gen>
Set Variable Set Point_Temp1 = (Center of Land_14 <gen>)
Unit Group - Pick every unit in (Units within 600.00 of Point_Temp1.) and do (Actions)
Loop - Actions
Set Variable Set Point_Temp2 = (Position of (Picked unit))
Floating Text - Create floating text that reads ((Name of (Picked unit)) + (|n + ((String((Distance between Point_Temp1 and Point_Temp2))) + (|n + ((String((Angle from Point_Temp1 to Point_Temp2))) + (|n + (String((Facing of (Picked unit)))))))))) at Point_Temp2 with Z offset 0 , using font size 6.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
For each (Integer A) from 1 to 14 , do (Actions)
Loop - Actions
Set Variable Set Point_Temp2 = (Center of Region_Tilesets[(Integer A)])
Floating Text - Create floating text that reads ((String((Distance between Point_Temp1 and Point_Temp2))) + (|n + (String((Angle from Point_Temp1 to Point_Temp2))))) at Point_Temp2 with Z offset 0 , using font size 6.00 , color ( 100 %, 100 %, 100 %), and 0 % transparency
AutoRoad Quest Initiate
Events
Player - Player 1 (Red) types a chat message containing quest (Unexpected type: 'stringnoformat') as An exact match
Conditions
Actions
Set Variable Set Player_Active = Player 1 (Red)
Set Variable Set XInteger_RQrecord = "0"
Unit Group - Pick every unit in Group_RoadBuilders[(Player number of Player_Active)] and do (Actions)
Loop - Actions
Unit Group - Add (Picked unit) to XGroup_RQunchecked
Trigger - Run AutoRoad_Quest_Origin <gen> (checking conditions)
AutoRoad Quest Origin
Events
Conditions
Actions
Custom script: call RemoveLocation (udg_Point_Temp1)
Custom script: call RemoveLocation (udg_Point_Temp2)
Custom script: call RemoveLocation (udg_Point_Temp3)
Set Variable Set IntegerA_Temp1 = XInteger_RQnetworktotal
For each (Integer A) from 1 to IntegerA_Temp1 , do (Actions)
Loop - Actions
Set Variable Set XInteger_RQnetworktotal = (XInteger_RQnetworktotal + XInteger_RQorigintotal[(Integer A)])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
XInteger_RQnetworktotal Greater than XInteger_RQrecord
Then - Actions
Set Variable Set XInteger_RQrecord = XInteger_RQnetworktotal
Else - Actions
Do nothing
Set Variable Set XInteger_RQnetworktotal = "0"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in XGroup_RQunchecked) Greater than 0
Then - Actions
Set Variable Set XUnit_RQorigin = (Random unit from XGroup_RQunchecked)
Unit Group - Remove XUnit_RQorigin from XGroup_RQunchecked .
Set Variable Set Unit_Temp1 = XUnit_RQorigin
Set Variable Set Point_Temp1 = (Position of Unit_Temp1)
Set Variable Set XInteger_RQoriginjunction = "0"
Unit Group - Pick every unit in (Units within 641.00 of Point_Temp1 matching (((Matching unit) is in XGroup_RQunchecked.) Equal to True).) and do (Actions)
Loop - Actions
Set Variable Set Unit_Temp2 = (Picked unit)
Set Variable Set Point_Temp2 = (Position of Unit_Temp2)
Set Variable Set XBoolean_RQroad = "false"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Greater than 85.00) and ((Angle from Point_Temp1 to Point_Temp2) Less than 95.00)
Then - Actions
Set Variable Set Point_Temp3 = (Point_Temp1 offset by 384.00 towards 90.00 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Set Variable Set XBoolean_RQroad = "true"
Else - Actions
Do nothing
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -85.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -95.00)
Then - Actions
Set Variable Set Point_Temp3 = (Point_Temp1 offset by 384.00 towards -90.00 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Set Variable Set XBoolean_RQroad = "true"
Else - Actions
Do nothing
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -24.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -28.00)
Then - Actions
Set Variable Set Point_Temp3 = (Point_Temp1 offset by 286.22 towards -26.57 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Set Variable Set XBoolean_RQroad = "true"
Else - Actions
Do nothing
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -151.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -155.00)
Then - Actions
Set Variable Set Point_Temp3 = (Point_Temp1 offset by 286.22 towards -153.44 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Set Variable Set XBoolean_RQroad = "true"
Else - Actions
Do nothing
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than 28.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than 24.00)
Then - Actions
Set Variable Set Point_Temp3 = (Point_Temp1 offset by 286.22 towards 26.57 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Set Variable Set XBoolean_RQroad = "true"
Else - Actions
Do nothing
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than 155.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than 151.00)
Then - Actions
Set Variable Set Point_Temp3 = (Point_Temp1 offset by 286.22 towards 153.44 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Set Variable Set XBoolean_RQroad = "true"
Else - Actions
Do nothing
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
XBoolean_RQroad Equal to True
Then - Actions
Set Variable Set XInteger_RQoriginjunction = (XInteger_RQoriginjunction + 1)
Set Variable Set XInteger_RQnetworktotal = (XInteger_RQnetworktotal + 1)
Set Variable Set XUnit_RQoriginjunction[XInteger_RQoriginjunction] = (Picked unit)
Unit Group - Remove XUnit_RQoriginjunction[XInteger_RQoriginjunction] from XGroup_RQunchecked .
Else - Actions
Do nothing
Trigger - Run AutoRoad_Quest_Origin_Junction <gen> (checking conditions)
Else - Actions
Game - Display to (All players) the text: (String(XInteger_RQrecord))
AutoRoad Quest Origin Junction
Events
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
XInteger_RQoriginjunction Greater than 0
Then - Actions
Set Variable Set Unit_Temp1 = XUnit_RQoriginjunction[XInteger_RQoriginjunction]
Trigger - Run AutoRoad_Quest_Loop <gen> (checking conditions)
Else - Actions
Trigger - Run AutoRoad_Quest_Origin <gen> (checking conditions)
AutoRoad Quest Loop
Events
Conditions
Actions
Set Variable Set Point_Temp1 = (Position of Unit_Temp1)
Custom script: call DestroyGroup (udg_Group_Temp1)
Unit Group - Pick every unit in (Units within 641.00 of (Position of XUnit_RQorigin) matching (((Matching unit) is in XGroup_RQunchecked.) Equal to True).) and do (Actions)
Loop - Actions
Set Variable Set XBoolean_RQroad = "false"
Set Variable Set Point_Temp2 = (Position of (Picked unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Greater than 85.00) and ((Angle from Point_Temp1 to Point_Temp2) Less than 95.00)
Then - Actions
Set Variable Set Point_Temp3 = (Point_Temp1 offset by 384.00 towards 90.00 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Set Variable Set XBoolean_RQroad = "true"
Else - Actions
Do nothing
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -85.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -95.00)
Then - Actions
Set Variable Set Point_Temp3 = (Point_Temp1 offset by 384.00 towards -90.00 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Set Variable Set XBoolean_RQroad = "true"
Else - Actions
Do nothing
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -24.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -28.00)
Then - Actions
Set Variable Set Point_Temp3 = (Point_Temp1 offset by 286.22 towards -26.57 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Set Variable Set XBoolean_RQroad = "true"
Else - Actions
Do nothing
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than -151.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than -155.00)
Then - Actions
Set Variable Set Point_Temp3 = (Point_Temp1 offset by 286.22 towards -153.44 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Set Variable Set XBoolean_RQroad = "true"
Else - Actions
Do nothing
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than 28.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than 24.00)
Then - Actions
Set Variable Set Point_Temp3 = (Point_Temp1 offset by 286.22 towards 26.57 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Set Variable Set XBoolean_RQroad = "true"
Else - Actions
Do nothing
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Angle from Point_Temp1 to Point_Temp2) Less than 155.00) and ((Angle from Point_Temp1 to Point_Temp2) Greater than 151.00)
Then - Actions
Set Variable Set Point_Temp3 = (Point_Temp1 offset by 286.22 towards 153.44 degrees.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Terrain type at Point_Temp3) Equal to Dalaran Ruins - Brick Tiles
Then - Actions
Set Variable Set XBoolean_RQroad = "true"
Else - Actions
Do nothing
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
XBoolean_RQroad Equal to True
Then - Actions
Unit Group - Add (Picked unit) to Group_Temp1
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in Group_Temp1) Equal to 1
Then - Actions
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Set Variable Set Unit_Temp1 = (Picked unit)
Unit Group - Remove Unit_Temp1 from XGroup_RQunchecked .
Set Variable Set XInteger_RQcount[XInteger_RQjunctions] = (XInteger_RQcount[XInteger_RQjunctions] + 1)
Trigger - Run AutoRoad_Quest_Loop <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in Group_Temp1) Equal to 2
Then - Actions
Set Variable Set Unit_Temp1 = (Random unit from Group_Temp1)
Unit Group - Remove Unit_Temp1 from Group_Temp1 .
Set Variable Set XInteger_RQjunctions = (XInteger_RQjunctions + 1)
Unit Group - Pick every unit in Group_Temp1 and do (Actions)
Loop - Actions
Set Variable Set XUnit_RQjunction[XInteger_RQjunctions] = (Picked unit)
Unit Group - Remove Unit_Temp1 from XGroup_RQunchecked .
Set Variable Set XInteger_RQcount[XInteger_RQjunctions] = "1"
Trigger - Run AutoRoad_Quest_Loop <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Number of units in Group_Temp1) Equal to 0
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
XBoolean_RQcountcompare[XInteger_RQjunctions] Equal to False
Then - Actions
For each (Integer A) from 1 to XInteger_RQjunctions , do (Actions)
Loop - Actions
Set Variable Set XInteger_RQcountcompare[XInteger_RQjunctions] = XInteger_RQcount[(Integer A)]
Set Variable Set XInteger_RQcount[XInteger_RQjunctions] = "1"
Set Variable Set Unit_Temp1 = XUnit_RQjunction[XInteger_RQjunctions]
Unit Group - Remove Unit_Temp1 from XGroup_RQunchecked .
Set Variable Set XBoolean_RQcountcompare[XInteger_RQjunctions] = "true"
Trigger - Run AutoRoad_Quest_Loop <gen> (checking conditions)
Skip remaining actions
Else - Actions
Set Variable Set XBoolean_RQcountcompare[XInteger_RQjunctions] = "false"
Set Variable Set IntegerA_Temp1 = "0"
For each (Integer A) from 1 to XInteger_RQjunctions , do (Actions)
Loop - Actions
Set Variable Set IntegerA_Temp1 = (IntegerA_Temp1 + XInteger_RQcount[(Integer A)])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
XInteger_RQcountcompare[XInteger_RQjunctions] Greater than IntegerA_Temp1
Then - Actions
Set Variable Set XInteger_RQcount[XInteger_RQjunctions] = XInteger_RQcountcompare[XInteger_RQjunctions]
Else - Actions
Set Variable Set XInteger_RQcount[XInteger_RQjunctions] = IntegerA_Temp1
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
XInteger_RQcount[XInteger_RQjunctions] Greater than XInteger_RQorigintotal[XInteger_RQoriginjunction]
Then - Actions
Set Variable Set XInteger_RQorigintotal[XInteger_RQoriginjunction] = XInteger_RQcount[XInteger_RQjunctions]
Else - Actions
Do nothing
Set Variable Set XInteger_RQcount[XInteger_RQjunctions] = "0"
Set Variable Set XInteger_RQcountcompare[XInteger_RQjunctions] = "0"
Set Variable Set XInteger_RQoriginjunction = (XInteger_RQjunctions - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
XInteger_RQjunctions Equal to 0
Then - Actions
Set Variable Set XInteger_RQoriginjunction = (XInteger_RQoriginjunction - 1)
Trigger - Run AutoRoad_Quest_Origin_Junction <gen> (checking conditions)
Else - Actions
Set Variable Set Unit_Temp1 = XUnit_RQjunction[XInteger_RQjunctions]
Set Variable Set XInteger_RQcount[XInteger_RQjunctions] = "1"
Unit Group - Remove Unit_Temp1 from XGroup_RQunchecked .
Trigger - Run AutoRoad_Quest_Loop <gen> (checking conditions)
Skip remaining actions
Else - Actions
Do nothing
Top