Last step of bid folder restructure

Core/Zone/ZON-500 - Polygon Zone/ZON-500 - Polygon Zone.lua

@@ -0,0 +1,33 @@
+---
+-- Name: ZON-500 - Polygon Zone
+-- Author: FlightControl
+-- Date Created: 18 Feb 2017
+--
+-- # Situation:
+-- 
+-- A ZONE_POLYGON has been defined, which boundaries are smoking.
+-- A vehicle is driving through the zone perimeters.
+-- When the vehicle is driving in the zone, a red smoke is fired from the vehicle location.
+-- 
+-- # Test cases:
+-- 
+-- 1. Observe the polygon perimeter smoke.
+-- 2. Observe the vehicle smoking a red smoke when driving through the zone.
+ 
+GroupInside = GROUP:FindByName( "Test Inside Polygon" )
+GroupOutside = GROUP:FindByName( "Test Outside Polygon" )
+
+GroupPolygon = GROUP:FindByName( "Polygon A" )
+
+PolygonZone = ZONE_POLYGON:New( "Polygon A", GroupPolygon )
+PolygonZone:SmokeZone( SMOKECOLOR.White, 20 )
+
+Messager = SCHEDULER:New( nil,
+  function()
+    GroupInside:MessageToAll( ( GroupInside:IsCompletelyInZone( PolygonZone ) ) and "Inside Polygon A" or "Outside Polygon A", 1 )
+    if GroupInside:IsCompletelyInZone( PolygonZone ) then
+      GroupInside:GetUnit(1):SmokeRed()
+    end
+  end, 
+  {}, 0, 1 )
+