• 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

Just Another Harvesting Template v0.01.w3x
Variables
Initialization
Initialization
Worker Ordering
GoldGroup
Remove Return Resources
Clear Hashtable Unit Death
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
destructible destructable No
Dummy unit Yes
DummyCounter integer No
GoldGroup group No
GoldTable hashtable No
i integer No
point1 location No
point2 location No
point3 location No
r real No
region rect No
unit unit No
unitgroup group No
Initialization
Events
Map initialization
Conditions
Actions
Hashtable - Create a hashtable
Set Variable Set GoldTable = (Last created hashtable)
Set Variable Set point1 = (Center of (Playable map area))
For each (Integer A) from 1 to 75 , do (Actions)
Loop - Actions
Unit - Create 1 . Dummy for Neutral Passive at point1 facing Default building facing degrees
Set Variable Set Dummy[(Integer A)] = (Last created unit)
Custom script: call RemoveLocation (udg_point1)
Worker Ordering
Events
Unit - A unit Is issued an order targeting an object
Unit - A unit Is issued an order targeting a point
Unit - A unit Is issued an order with no target
Unit - A unit Starts the effect of an ability
Conditions
(Unit-type of (Triggering unit)) Equal to Crablet
Actions
Set Variable Set i = (Load 4 of (Key (Triggering unit).) from GoldTable.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(String((Issued order))) Equal to smart
(Destructible-type of (Target destructible of issued order)) Equal to B000 (Unexpected type: 'destructablecode')
(Level of Return Resources (Special) for (Triggering unit)) Equal to 0
Then - Actions
Unit - Remove Harvest (Special Gold) from (Triggering unit)
Unit - Add Return Resources (Special) to (Triggering unit)
Set Variable Set point1 = (Position of (Target destructible of issued order))
Set Variable Set point2 = (Position of (Triggering unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
DummyCounter Less than 75
Then - Actions
Set Variable Set DummyCounter = (DummyCounter + 1)
Else - Actions
Set Variable Set DummyCounter = "1"
Unit - Change ownership of Dummy[DummyCounter] to (Owner of (Triggering unit)) and Change color
Unit - Move Dummy[DummyCounter] instantly to point2 , facing Default building facing degrees
Unit - Order Dummy[DummyCounter] to Orc Shaman - Bloodlust . (Triggering unit)
Hashtable - Save 99.00 as 1 of (Key (Triggering unit).) in GoldTable .
Hashtable - Save (Y of point1) as 2 of (Key (Triggering unit).) in GoldTable .
Hashtable - Save (X of point1) as 3 of (Key (Triggering unit).) in GoldTable .
Unit Group - Add (Triggering unit) to GoldGroup
Custom script: call RemoveLocation (udg_point1)
Custom script: call RemoveLocation (udg_point2)
Custom script: call RemoveRect(udg_region)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(String((Issued order))) Equal to militia
i Less than 100
i Not equal to 0
Then - Actions
Unit Group - Remove (Triggering unit) from GoldGroup .
Hashtable - Save (100 + i) as 4 of (Key (Triggering unit).) in GoldTable .
Unit - Remove Bloodlust buff from (Triggering unit)
Animation - Reset (Triggering unit) 's animation
Else - Actions
Unit Group - Remove (Triggering unit) from GoldGroup .
Unit - Remove Bloodlust buff from (Triggering unit)
Animation - Reset (Triggering unit) 's animation
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
i Equal to 0
Then - Actions
Animation - Remove the gold animation tag to (Triggering unit)
Unit - Remove Return Resources (Special) from (Triggering unit)
Unit - Add Harvest (Special Gold) to (Triggering unit)
Else - Actions
GoldGroup
Events
Time - Every 0.03 seconds of game time
Conditions
Actions
Unit Group - Pick every unit in GoldGroup and do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Load 1 of (Key (Picked unit).) from GoldTable.) Equal to 99.00
Then - Actions
Set Variable Set r = "99.00"
Else - Actions
Set Variable Set r = ((Load 1 of (Key (Picked unit).) from GoldTable.) - 0.03)
Hashtable - Save r as 1 of (Key (Picked unit).) in GoldTable .
Set Variable Set point1 = (Point((Load 3 of (Key (Picked unit).) from GoldTable.), (Load 2 of (Key (Picked unit).) from GoldTable.)))
Set Variable Set point2 = (Position of (Picked unit))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
r Less than or equal to 0.00
And - All (Conditions) are true
Conditions
r Equal to 99.00
(Distance between point1 and point2) Less than or equal to 175.00
Then - Actions
Set Variable Set i = (Load 4 of (Key (Picked unit).) from GoldTable.)
Set Variable Set unit = (Picked unit)
Custom script: set udg_point3 = Location(LoadRealBJ(3, GetHandleIdBJ(udg_unit), udg_GoldTable), LoadRealBJ(2, GetHandleIdBJ(udg_unit), udg_GoldTable))
Set Variable Set region = (Region centered at point3 with size (65.00, 65.00))
Set Variable Set destructible = (Random destructible in region matching ((Destructible-type of (Matching destructible)) Equal to B000 (Unexpected type: 'destructablecode')))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) is alive) Equal to True
Then - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Picked unit) has buff Bloodlust) Equal to True
(destructible is alive) Equal to True
Then - Actions
Destructible - Set life of destructible to ((Current life of destructible) - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
i Equal to 1
Then - Actions
Animation - Add the gold animation tag to (Picked unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
i Equal to 10
Then - Actions
Unit - Remove Bloodlust buff from (Picked unit)
Animation - Play (Picked unit) 's stand gold animation
Unit - Order (Picked unit) to Human Peasant - Call To Arms .
Else - Actions
Hashtable - Save (1 + i) as 4 of (Key (Picked unit).) in GoldTable .
Animation - Play (Picked unit) 's stand work gold animation
Hashtable - Save 0.50 as 1 of (Key (Picked unit).) in GoldTable .
Else - Actions
Unit - Remove Bloodlust buff from (Picked unit)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
i Greater than 0
Then - Actions
Animation - Add the gold animation tag to (Picked unit)
Animation - Play (Picked unit) 's stand gold animation
Else - Actions
Animation - Remove the gold animation tag to (Picked unit)
Animation - Play (Picked unit) 's stand animation
Else - Actions
Custom script: call RemoveRect(udg_region)
Custom script: call RemoveLocation (udg_point3)
Else - Actions
Custom script: call RemoveLocation (udg_point1)
Custom script: call RemoveLocation (udg_point2)
Remove Return Resources
Events
Time - Every 0.30 seconds of game time
Conditions
Actions
Set Variable Set unitgroup = (Units in (Playable map area) matching ((Unit-type of (Matching unit)) Equal to Crablet))
Unit Group - Pick every unit in unitgroup and do (Actions)
Loop - Actions
Set Variable Set i = (Load 4 of (Key (Picked unit).) from GoldTable.)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
i Greater than 100
(Level of Return Resources (Special) for (Picked unit)) Equal to 0
Then - Actions
Player - Add (i - 100) to (Owner of (Picked unit)) . Current gold
Animation - Remove the gold animation tag to (Picked unit)
Set Variable Set point1 = (Point((Load 3 of (Key (Picked unit).) from GoldTable.), (Load 2 of (Key (Picked unit).) from GoldTable.)))
Set Variable Set point2 = (Position of (Picked unit))
Floating Text - Create floating text that reads (+ + (String((i - 100)))) at point2 with Z offset 40.00 , using font size 10 , color ( 100.00 %, 75.00 %, 0.00 %), and 0 % transparency
Floating Text - Set the velocity of (Last created floating text) to 35.00 towards 90.00 degrees
Floating Text - Change (Last created floating text) : Disable permanence
Floating Text - Change the fading age of (Last created floating text) to 1.50 seconds
Floating Text - Change the lifespan of (Last created floating text) to 2.00 seconds
Floating Text - Hide (Last created floating text) for (All players)
Floating Text - Show (Last created floating text) for (Player group((Owner of (Picked unit))))
Set Variable Set region = (Region centered at point1 with size (750.00, 750.00))
Unit - Order (Picked unit) to Right-Click . (Random destructible in region matching ((Destructible-type of (Matching destructible)) Equal to B000 (Unexpected type: 'destructablecode')))
Hashtable - Save 0 as 4 of (Key (Picked unit).) in GoldTable .
Custom script: call RemoveLocation (udg_point1)
Custom script: call RemoveLocation (udg_point2)
Custom script: call RemoveRect(udg_region)
Else - Actions
Custom script: call DestroyGroup(udg_unitgroup)
Clear Hashtable Unit Death
Events
Unit - A unit Dies
Conditions
(Unit-type of (Triggering unit)) Equal to Crablet
Actions
Hashtable - Clear all child hashtables of child (Key (Dying unit).) in GoldTable .
Top