Community
Maps
Tutorials
Gallery
Support Us
Install the app
-
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.
- Home
- Forums
- Warcraft III
- Maps & Resources
- Spells and Systems
- Simple Gravity Pull System v1.2
- Just another Warcraft III map
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
Triggers
Simple Gravity Pull System v1.2.w3x
Variables
Simple Gravity Pull System
GP Setup
GP Save
GP Loop
---------------------------
Bribe
Unit Indexer
---------------------------
Magtheridon96
GUI AutoFly
GP Example
APPLICATION
GP Target Unit
GP Target Self
GP Target Group
EVENT
GP Event Land
GP Event Max Height
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 |
| GP_CenterPickedUnitLoc | location | No | |
| GP_Event | real | No | |
| GP_FlySpeedPerInterval | real | Yes | |
| GP_FlySpeedPerSecond | real | No | |
| GP_Group | group | No | |
| GP_HasMax | boolean | Yes | |
| GP_IntervalPerMove | real | No | |
| GP_Key | integer | No | |
| GP_PullSpeedPerInterval | real | Yes | |
| GP_PullSpeedPerSecond | real | No | |
| GP_TempGroup | group | No | |
| GP_Unit | unit | No | |
| UDex | integer | No | |
| UDexGen | integer | No | |
| UDexNext | integer | Yes | |
| UDexPrev | integer | Yes | |
| UDexRecycle | integer | No | |
| UDexUnits | unit | Yes | |
| UDexWasted | integer | No | |
| UnitIndexerEnabled | boolean | No | |
| UnitIndexEvent | real | No |
Default melee game initialization for all players
GP Setup
Events
Map initialization
Conditions
Actions
-------- ---------- --------
-------- DATA CONFIGURABLES --------
-------- GP_FlySpeedPerSecond sets the speed in which the unit travels upward per second --------
-------- GP_PullSpeedPerSecond sets the pulling speed that affects the unit per second --------
-------- GP_Unit sets which unit is involved --------
-------- GP_CenterPickedUnitLoc sets the origin location of which where it starts to pick for multiple units --------
-------- GP_TempGroup sets the unit which is involved --------
-------- ---------- --------
-------- FORMULA --------
-------- The time taken for the unit to fall back to the ground is given by ((GP_FlySpeedPerSecond / GP_PullSpeedPerSecond) * 2) --------
-------- ---------- --------
Set Variable Set GP_IntervalPerMove = "0.03"
Trigger - Add to GP_Loop <gen> the event (Every GP_IntervalPerMove seconds of game time)
-------- ---------- --------
-------- This is to register the variable within this Trigger Folder - so you can easily import it to another map --------
-------- If this action is not done, the importing of GP_CenterPickedUnitLoc is failed --------
-------- ---------- --------
Set Variable Set GP_CenterPickedUnitLoc = (Center of (Playable map area))
Custom script: call RemoveLocation(udg_GP_CenterPickedUnitLoc)
GP Save
Events
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(GP_TempGroup is empty) Equal to False
Then - Actions
Unit Group - Pick every unit in GP_TempGroup and do (Actions)
Loop - Actions
Set Variable Set GP_Unit = (Picked unit)
Custom script: set udg_GP_Key = GetUnitUserData(udg_GP_Unit)
Set Variable Set GP_FlySpeedPerInterval[GP_Key] = (GP_FlySpeedPerSecond x GP_IntervalPerMove)
Set Variable Set GP_PullSpeedPerInterval[GP_Key] = ((GP_PullSpeedPerSecond x GP_IntervalPerMove) x GP_IntervalPerMove)
Set Variable Set GP_HasMax[GP_Key] = "false"
Unit Group - Add GP_Unit to GP_Group
Custom script: call RemoveLocation(udg_GP_CenterPickedUnitLoc)
Custom script: call DestroyGroup(udg_GP_TempGroup)
Else - Actions
Custom script: set udg_GP_Key = GetUnitUserData(udg_GP_Unit)
Set Variable Set GP_FlySpeedPerInterval[GP_Key] = (GP_FlySpeedPerSecond x GP_IntervalPerMove)
Set Variable Set GP_PullSpeedPerInterval[GP_Key] = ((GP_PullSpeedPerSecond x GP_IntervalPerMove) x GP_IntervalPerMove)
Set Variable Set GP_HasMax[GP_Key] = "false"
Unit Group - Add GP_Unit to GP_Group
Trigger - Turn on GP_Loop <gen>
GP Loop
Events
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(GP_Group is empty) Equal to True
Then - Actions
Trigger - Turn off (This trigger)
Else - Actions
Unit Group - Pick every unit in GP_Group and do (Actions)
Loop - Actions
Set Variable Set GP_Unit = (Picked unit)
Custom script: set udg_GP_Key = GetUnitUserData(udg_GP_Unit)
Animation - Change GP_Unit flying height to ((Current flying height of GP_Unit) + GP_FlySpeedPerInterval[GP_Key]) at 0.00
Set Variable Set GP_FlySpeedPerInterval[GP_Key] = (GP_FlySpeedPerInterval[GP_Key] - GP_PullSpeedPerInterval[GP_Key])
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Current flying height of GP_Unit) Less than or equal to 1.00
Then - Actions
Set Variable Set GP_Event = "1.00"
Set Variable Set GP_Event = "0.00"
Unit Group - Remove GP_Unit from GP_Group .
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
GP_FlySpeedPerInterval[GP_Key] Less than or equal to 0.00
GP_HasMax[GP_Key] Equal to False
Then - Actions
Set Variable Set GP_Event = "2.00"
Set Variable Set GP_Event = "0.00"
Set Variable Set GP_HasMax[GP_Key] = "true"
Else - Actions
This trigger works in two key phases:
1) During map initialization, enumerate all units of all players to give them an index.
2) Adds a second event to itself to index new units as they enter the map.
As a unit enters the map, check for any old units that may have been removed at some point in order to free their index.
1) During map initialization, enumerate all units of all players to give them an index.
2) Adds a second event to itself to index new units as they enter the map.
As a unit enters the map, check for any old units that may have been removed at some point in order to free their index.
Unit Indexer
Events
Map initialization
Conditions
Actions
Custom script: call ExecuteFunc("InitializeUnitIndexer")
Custom script: endfunction
-------- --------
-------- This is the most important function - it provides an index for units as they enter the map --------
-------- --------
Custom script: function IndexUnit takes nothing returns boolean
Custom script: local integer pdex = udg_UDex
-------- --------
-------- You can use the boolean UnitIndexerEnabled to protect some of your undesirable units from being indexed --------
-------- - Example: --------
-------- -- Set UnitIndexerEnabled = False --------
-------- -- Unit - Create 1 Dummy for (Triggering player) at TempLoc facing 0.00 degrees --------
-------- -- Set UnitIndexerEnabled = True --------
-------- --------
-------- You can also customize the following block - if conditions are false the (Matching unit) won't be indexed. --------
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UnitIndexerEnabled Equal to True
Then - Actions
-------- --------
-------- Generate a unique integer index for this unit --------
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UDexRecycle Equal to 0
Then - Actions
Set Variable Set UDex = (UDexGen + 1)
Set Variable Set UDexGen = UDex
Else - Actions
Set Variable Set UDex = UDexRecycle
Set Variable Set UDexRecycle = UDexNext[UDex]
-------- --------
-------- Link index to unit, unit to index --------
-------- --------
Set Variable Set UDexUnits[UDex] = (Matching unit)
Unit - Set the custom value of UDexUnits[UDex] to UDex
-------- --------
-------- Use a doubly-linked list to store all active indexes --------
-------- --------
Set Variable Set UDexPrev[UDexNext[0]] = UDex
Set Variable Set UDexNext[UDex] = UDexNext[0]
Set Variable Set UDexNext[0] = UDex
-------- --------
-------- Fire index event for UDex --------
-------- --------
Set Variable Set UnitIndexEvent = "0.00"
Set Variable Set UnitIndexEvent = "1.00"
Set Variable Set UnitIndexEvent = "0.00"
Custom script: set udg_UDex = pdex
Else - Actions
Custom script: return false
Custom script: endfunction
-------- --------
-------- The next function is called each time a unit enters the map --------
-------- --------
Custom script: function IndexNewUnit takes nothing returns boolean
Custom script: local integer pdex = udg_UDex
Custom script: local integer ndex
-------- --------
-------- Recycle indices of units no longer in-play every (15) units created --------
-------- --------
Set Variable Set UDexWasted = (UDexWasted + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
UDexWasted Equal to 15
Then - Actions
Set Variable Set UDexWasted = "0"
Set Variable Set UDex = UDexNext[0]
Custom script: loop
Custom script: exitwhen udg_UDex == 0
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Custom value of UDexUnits[UDex]) Equal to 0
Then - Actions
-------- --------
-------- Remove index from linked list --------
-------- --------
Custom script: set ndex = udg_UDexNext[udg_UDex]
Custom script: set udg_UDexNext[udg_UDexPrev[udg_UDex]] = ndex
Custom script: set udg_UDexPrev[ndex] = udg_UDexPrev[udg_UDex]
Set Variable Set UDexPrev[UDex] = "0"
-------- --------
-------- Fire deindex event for UDex --------
-------- --------
Set Variable Set UnitIndexEvent = "2.00"
Set Variable Set UnitIndexEvent = "0.00"
-------- --------
-------- Recycle the index for later use --------
-------- --------
Set Variable Set UDexUnits[UDex] = No unit
Set Variable Set UDexNext[UDex] = UDexRecycle
Set Variable Set UDexRecycle = UDex
Custom script: set udg_UDex = ndex
Else - Actions
Set Variable Set UDex = UDexNext[UDex]
Custom script: endloop
Custom script: set udg_UDex = pdex
Else - Actions
-------- --------
-------- Handle the entering unit (Matching unit) --------
-------- --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Custom value of (Matching unit)) Equal to 0
Then - Actions
Custom script: call IndexUnit()
Else - Actions
Custom script: return false
Custom script: endfunction
-------- --------
-------- The next function initializes the core of the system --------
-------- --------
Custom script: function InitializeUnitIndexer takes nothing returns nothing
Custom script: local integer i = 0
Custom script: local region re = CreateRegion()
Custom script: local rect r = GetWorldBounds()
Set Variable Set UnitIndexerEnabled = "true"
Custom script: call RegionAddRect(re, r)
Custom script: call TriggerRegisterEnterRegion(CreateTrigger(), re, Filter(function IndexNewUnit))
Custom script: call RemoveRect(r)
Custom script: set re = null
Custom script: set r = null
Custom script: loop
Custom script: call GroupEnumUnitsOfPlayer(bj_lastCreatedGroup, Player(i), Filter(function IndexUnit))
Custom script: set i = i + 1
Custom script: exitwhen i == 16
Custom script: endloop
-------- --------
-------- This is the "Unit Indexer Initialized" event, use it instead of "Map Initialization" for best results --------
-------- --------
Set Variable Set UnitIndexEvent = "3.00"
Set Variable Set UnitIndexEvent = "0.00"
GUI AutoFly
Events
Game - UnitIndexEvent becomes Equal to 1.00
Conditions
Actions
-------- ----------------- --------
-------- This trigger will run whenever a unit is indexed. --------
-------- This means that it runs whenever a new unit enters the map. --------
-------- ----------------- --------
-------- First, I'm adding the crow form ability to the indexed unit. --------
-------- The reason we're using it inside an if block is because the "UnitAddAbility" function returns a boolean. --------
-------- This boolean represents the successfulness of the ability adding. We need this here, because if a unit --------
-------- already had a crow form ability, it couldn't be added. The reason we're also using UnitRemoveAbility --------
-------- in the same line is because JASS has a short-circuiting feature. If one of the expressions in an 'and' --------
-------- expression returns false, then it stops. --------
-------- ----------------- --------
-------- We do not want to call UnitRemoveAbility for a unit that failed to have the ability added. --------
-------- Without this form of protection, units that already had the crow form ability would have it --------
-------- removed completely. --------
-------- ----------------- --------
Custom script: if UnitAddAbility(udg_UDexUnits[udg_UDex], 'Amrf') and UnitRemoveAbility(udg_UDexUnits[udg_UDex], 'Amrf') then
Custom script: endif
GP Target Unit
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Target Unit
Actions
-------- ---------- --------
-------- DATA CONFIGURABLES --------
-------- GP_FlySpeedPerSecond sets the speed in which the unit travels upward per second --------
-------- GP_PullSpeedPerSecond sets the pulling speed that affects the unit per second --------
-------- GP_Unit sets which unit is involved --------
-------- ---------- --------
-------- FORMULA --------
-------- The time taken for the unit to fall back to the ground is given by ((GP_FlySpeedPerSecond / GP_PullSpeedPerSecond) * 2) --------
-------- ---------- --------
Set Variable Set GP_FlySpeedPerSecond = "1000.00"
Set Variable Set GP_PullSpeedPerSecond = "1000.00"
Set Variable Set GP_Unit = (Target unit of ability being cast)
Trigger - Run GP_Save <gen> (ignoring conditions)
GP Target Self
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Target Self
Actions
-------- ---------- --------
-------- DATA CONFIGURABLES --------
-------- GP_FlySpeedPerSecond sets the speed in which the unit travels upward per second --------
-------- GP_PullSpeedPerSecond sets the pulling speed that affects the unit per second --------
-------- GP_Unit sets which unit is involved --------
-------- ---------- --------
-------- FORMULA --------
-------- The time taken for the unit to fall back to the ground is given by ((GP_FlySpeedPerSecond / GP_PullSpeedPerSecond) * 2) --------
-------- ---------- --------
Set Variable Set GP_FlySpeedPerSecond = "1000.00"
Set Variable Set GP_PullSpeedPerSecond = "2000.00"
Set Variable Set GP_Unit = (Triggering unit)
Trigger - Run GP_Save <gen> (ignoring conditions)
GP Target Group
Events
Unit - A unit Starts the effect of an ability
Conditions
(Ability being cast) Equal to Target Group
Actions
-------- ---------- --------
-------- DATA CONFIGURABLES --------
-------- GP_FlySpeedPerSecond sets the speed in which the unit travels upward per second --------
-------- GP_PullSpeedPerSecond sets the pulling speed that affects the unit per second --------
-------- GP_CenterPickedUnitLoc sets the origin location of which where it starts to pick for multiple units --------
-------- GP_TempGroup sets the unit which is involved --------
-------- ---------- --------
-------- FORMULA --------
-------- The time taken for the unit to fall back to the ground is given by ((GP_FlySpeedPerSecond / GP_PullSpeedPerSecond) * 2) --------
-------- ---------- --------
Set Variable Set GP_FlySpeedPerSecond = "1000.00"
Set Variable Set GP_PullSpeedPerSecond = "500.00"
Set Variable Set GP_CenterPickedUnitLoc = (Target point of ability being cast)
Set Variable Set GP_TempGroup = (Units within 600.00 of GP_CenterPickedUnitLoc matching ((((Matching unit) is A structure) Equal to False) and ((((Matching unit) is alive) Equal to True) and (((Matching unit) belongs to an enemy of (Triggering player).) Equal to True))).)
Trigger - Run GP_Save <gen> (ignoring conditions)
GP Event Land
Events
Game - GP_Event becomes Equal to 1.00
Conditions
Actions
-------- ---------- --------
-------- When GP_Event = 1.00, it detects a unit has landed --------
-------- Use GP_Unit to refer to the unit that just lands --------
-------- ---------- --------
Game - Display to (All players) the text: The unit has landed
GP Event Max Height
Events
Game - GP_Event becomes Equal to 2.00
Conditions
Actions
-------- ---------- --------
-------- When GP_Event = 2.00, this detects a unit has reached maximum height --------
-------- Use GP_Unit to refer to the unit that just reached maximum height --------
-------- ---------- --------
Game - Display to (All players) the text: The unit has reached its max height.