share/hedgewars/Data/Maps/CTF_Blizzard/map.lua
author nemo
Tue, 28 Dec 2010 19:20:30 -0500
changeset 4764 674cdcf8b661
parent 4698 6f14ef3e40ae
child 4786 71fb9189d91c
permissions -rw-r--r--
fix similar problem to last checkin with this lua, also fix line endings
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
     1
--------------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
     2
-- CTF_BLIZZARD 0.4
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
     3
--------------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
     4
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
     5
---------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
     6
-- 0.2
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
     7
---------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
     8
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
     9
-- disabled super weapons
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    10
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    11
-- theme modifications
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    12
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    13
-- improved hog placement system: teams can now be put
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    14
-- in any order and be of any size
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    15
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    16
---------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    17
-- 0.3
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    18
---------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    19
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    20
-- In this version:
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    21
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    22
-- changed starting weapons
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    23
-- changed crate drop contents and rate of drops
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    24
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    25
-- completely removed super weapons and super weapon scripts
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    26
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    27
-- removed custom respawning
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    28
-- removed set respawn points
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    29
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    30
-- added AIRespawn-esque respawning
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    31
-- added simple left vs right respawn points
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    32
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    33
-- added non-lethal poison to flag carriers as an indicator
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    34
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    35
-- improved flag mechanics and player-flag feedback
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    36
-- flag now instantly respawns if you kill enemy hog and return it,
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    37
-- or if the flag falls in water, _BUT_ not if it is blown up
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    38
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    39
---------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    40
-- 0.4
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    41
---------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    42
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    43
-- tweaked crate drop rates and crate contents
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    44
-- improved the teleporters, they should now be able to handle rope... hopefully
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    45
-- updated SetEffect calls to be in line with 0.9.15 definitions
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    46
-- added visual gears when hogs respawn
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    47
-- added visual gears when hogs teleport
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    48
-- added visual gear to track flag and flag carriers
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    49
-- removed poisoning of flag carriers
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    50
-- removed health adjustments for flag carriers due to aforementioned poisons
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    51
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
    52
---------
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
    53
-- 0.5
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
    54
---------
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    55
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
    56
-- added translation support, hopefully
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
    57
-- added ctf rules
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
    58
-- added effects to the teleporters
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
    59
-- added aura round spawning area
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
    60
-- changed the aura around the flag carrier / flag to an aura and added some support for this
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
    61
-- changed things so the seed is no longer always the same...
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    62
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
    63
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
    64
loadfile(GetDataPath() .. "Scripts/Locale.lua")()
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    65
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    66
---------------------------------------------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    67
----------lots of bad variables and things
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    68
----------because someone is too lazy
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    69
----------to read about tables properly
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    70
------------------ "Oh well, they probably have the memory"
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    71
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    72
local actionReset = 0 -- used in CheckTeleporters()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    73
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    74
local roundsCounter = 0	-- used to determine when to spawn more crates
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    75
						-- currently every 6 TURNS, should this work
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    76
						-- on ROUNDS instead?
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
    77
local effectTimer = 0
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    78
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    79
--------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    80
-- hog and team tracking variales
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    81
--------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    82
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    83
local numhhs = 0 -- store number of hedgehogs
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    84
local hhs = {} -- store hedgehog gears
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    85
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    86
local numTeams --  store the number of teams in the game
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    87
local teamNameArr = {}	-- store the list of teams
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    88
local teamSize = {}	-- store how many hogs per team
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    89
local teamIndex = {} -- at what point in the hhs{} does each team begin
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    90
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    91
-------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    92
-- flag variables
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    93
-------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    94
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    95
local fGear = {}	-- pointer to the case gears that represent the flag
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    96
local fThief = {}	-- pointer to the hogs who stole the flags
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    97
local fIsMissing = {}	-- have the flags been destroyed or captured
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    98
local fNeedsRespawn = {}	-- do the flags need to be respawned
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
    99
local fCaptures = {}	-- the team "scores" how many captures
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   100
local fSpawnX = {}		-- spawn X for flags
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   101
local fSpawnY = {}		-- spawn Y for flags
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   102
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   103
local fThiefX = {}
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   104
local fThiefY = {}
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   105
local FTTC = 0 -- flag thief tracker counter
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   106
--local fThiefsHealed = false
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   107
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   108
local fSpawnC = {}
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   109
local fCirc = {} -- flag/carrier marker circles
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   110
local fCol = {} -- colour of the clans
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   111
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   112
local vCircX = {}
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   113
local vCircY = {}
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   114
local vCircMinA = {}
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   115
local vCircMaxA = {}
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   116
local vCircType = {}
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   117
local vCircPulse = {}
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   118
local vCircFuckAll = {}
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   119
local vCircRadius = {}
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   120
local vCircWidth = {}
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   121
local vCircCol = {}
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   122
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   123
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   124
--------------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   125
--zone and teleporter variables
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   126
--------------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   127
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   128
local redTel
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   129
local orangeTel
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   130
--local areaArr = {} -- no longer used
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   131
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   132
local zXMin = {}
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   133
local zWidth = {}
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   134
local zYMin = {}
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   135
local zHeight = {}
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   136
local zOccupied = {}
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   137
local zCount = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   138
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   139
------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   140
-- zone methods
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   141
------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   142
-- see on gameTick also
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   143
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   144
function ManageTeleporterEffects()
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   145
	effectTimer = effectTimer + 1
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   146
	if effectTimer > 50 then -- 100
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   147
		effectTimer = 0
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   148
		
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   149
		for i = 0,1 do		
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   150
			eX = 10 + zXMin[i] + GetRandom(zWidth[i]-10)
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   151
			eY = 50 + zYMin[i] + GetRandom(zHeight[i]-110)
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   152
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   153
	-- steam and smoke and DUST look good, smokering looks trippy 
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   154
	-- smoketrace and eviltrace are not effected by wind?
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   155
	-- chunk is a LR falling gear
4764
674cdcf8b661 fix similar problem to last checkin with this lua, also fix line endings
nemo
parents: 4698
diff changeset
   156
			tempE = AddVisualGear(eX, eY, vgtDust, 0, false)
674cdcf8b661 fix similar problem to last checkin with this lua, also fix line endings
nemo
parents: 4698
diff changeset
   157
			if tempE ~= 0 then
674cdcf8b661 fix similar problem to last checkin with this lua, also fix line endings
nemo
parents: 4698
diff changeset
   158
				g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
674cdcf8b661 fix similar problem to last checkin with this lua, also fix line endings
nemo
parents: 4698
diff changeset
   159
				SetVisualGearValues(tempE, eX, eY, g3, g4, g5, g6, g7, g8, g9, fCol[i])
674cdcf8b661 fix similar problem to last checkin with this lua, also fix line endings
nemo
parents: 4698
diff changeset
   160
			end
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   161
		end
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   162
	end 
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   163
end
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   164
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   165
function CreateZone(xMin, yMin, width, height)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   166
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   167
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   168
	zXMin[zCount] = xMin
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   169
	zYMin[zCount] = yMin
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   170
	zWidth[zCount] = width
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   171
	zHeight[zCount] = height
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   172
	zOccupied[zCount] = false
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   173
	zCount = zCount + 1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   174
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   175
	return (zCount-1)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   176
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   177
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   178
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   179
function GearIsInZone(gear, zI)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   180
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   181
	if (GetX(gear) > zXMin[zI]) and (GetX(gear) < (zXMin[zI]+zWidth[zI])) and (GetY(gear) > zYMin[zI]) and (GetY(gear) < (zYMin[zI]+zHeight[zI])) then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   182
		zOccupied[zI] = true
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   183
	else
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   184
		zOccupied[zI] = false
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   185
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   186
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   187
	return zOccupied[zI]
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   188
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   189
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   190
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   191
------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   192
--flag methods
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   193
------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   194
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   195
function CheckScore(teamID)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   196
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   197
	if teamID == 0 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   198
		alt = 1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   199
		winner = "Red"
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   200
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   201
	elseif teamID == 1 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   202
		alt = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   203
		winner = "Blue"
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   204
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   205
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   206
	if fCaptures[teamID] == 2 then
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   207
		for i = 0, (numhhs-1) do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   208
			if GetHogClan(hhs[i]) == alt then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   209
				SetEffect(hhs[i], heResurrectable, false)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   210
				SetHealth(hhs[i],0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   211
			end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   212
		end
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   213
		--ShowMission("GAME OVER!", "Victory for the " .. winner .. " Team!", "Hooray!", 0, 0)
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   214
		ShowMission(loc("GAME OVER!"), loc("Victory for the ") .. GetHogTeamName(CurrentHedgehog), loc("Hooray!"), 0, 0)
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   215
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   216
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   217
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   218
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   219
function HandleRespawns()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   220
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   221
	for i = 0, 1 do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   222
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   223
		if fNeedsRespawn[i] == true then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   224
			fGear[i] = SpawnAmmoCrate(fSpawnX[i],fSpawnY[i],amSkip)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   225
			--fGear[i] = SpawnHealthCrate(fSpawnX[i],fSpawnY[i])
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   226
			fNeedsRespawn[i] = false
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   227
			fIsMissing[i] = false -- new, this should solve problems of a respawned flag being "returned" when a player tries to score
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   228
			AddCaption(loc("Flag respawned!"))
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   229
		end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   230
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   231
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   232
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   233
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   234
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   235
function FlagDeleted(gear)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   236
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   237
	if (gear == fGear[0]) then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   238
		wtf = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   239
		bbq = 1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   240
	elseif (gear == fGear[1]) then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   241
		wtf = 1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   242
		bbq = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   243
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   244
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   245
	--ShowMission("OH HAI!", "FlagDeleted was called", "Oh noes!", -amBazooka, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   246
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   247
	if CurrentHedgehog ~= nil then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   248
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   249
		--ShowMission("GUESS WAT?", "I'm not nil", "Oh noes!", -amBazooka, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   250
		--if the player picks up the flag
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   251
		if CheckDistance(CurrentHedgehog, fGear[wtf]) < 1600 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   252
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   253
			fGear[wtf] = nil -- the flag has now disappeared and we shouldnt be pointing to it
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   254
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   255
			-- player has successfully captured the enemy flag
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   256
			if (GetHogClan(CurrentHedgehog) == wtf) and (CurrentHedgehog == fThief[bbq]) and (fIsMissing[wtf] == false) then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   257
				fIsMissing[wtf] = false
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   258
				fNeedsRespawn[wtf] = true
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   259
				fIsMissing[bbq] = false
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   260
				fNeedsRespawn[bbq] = true
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   261
				fCaptures[wtf] = fCaptures[wtf] +1					--fCaptures[wtf]
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   262
				
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   263
				--ShowMission(loc("You have SCORED!!"), "Red Team: " .. fCaptures[0], "Blue Team: " .. fCaptures[1], -amBazooka, 0)
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   264
				ShowMission(loc("You have SCORED!!"), GetHogTeamName(CurrentHedgehog) .. ": " .. fCaptures[wtf], loc("Opposing Team: ") .. fCaptures[bbq], 0, 0)
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   265
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   266
				PlaySound(sndVictory)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   267
				--SetEffect(fThief[bbq], hePoisoned, false)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   268
				fThief[bbq] = nil -- player no longer has the enemy flag
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   269
				CheckScore(wtf)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   270
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   271
			--if the player is returning the flag
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   272
			elseif GetHogClan(CurrentHedgehog) == wtf then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   273
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   274
				fNeedsRespawn[wtf] = true
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   275
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   276
				-- NEW ADDIITON, does this work? Should make it possible to return your flag and then score in the same turn
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   277
				if fIsMissing[wtf] == true then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   278
					HandleRespawns() -- this will set fIsMissing[wtf] to false :)
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   279
					AddCaption(loc("Flag returned!"))
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   280
				elseif fIsMissing[wtf] == false then
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   281
					AddCaption(loc("That was pointless.") .. loc("The flag will respawn next round."))
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   282
				end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   283
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   284
				--fIsMissing[wtf] = false
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   285
				--ShowMission("Flag returned!", "Hooray", "", -amBazooka, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   286
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   287
			--if the player is taking the enemy flag
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   288
			elseif GetHogClan(CurrentHedgehog) == bbq then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   289
				fIsMissing[wtf] = true
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   290
				for i = 0,numhhs-1 do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   291
					if CurrentHedgehog == hhs[i] then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   292
						fThief[wtf] = hhs[i]
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   293
						--SetEffect(fThief[wtf], hePoisoned, true)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   294
					end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   295
				end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   296
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   297
				AddCaption(loc("Flag captured!"))
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   298
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   299
			else --below line doesnt usually get called
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   300
				AddCaption("Hmm... that wasn't supposed to happen...")
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   301
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   302
			end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   303
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   304
		-- if flag has been destroyed, probably
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   305
		else
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   306
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   307
			if GetY(fGear[wtf]) > 2025 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   308
				fGear[wtf] = nil
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   309
				fIsMissing[wtf] = true
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   310
				fNeedsRespawn[wtf] = true
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   311
				HandleRespawns()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   312
			else
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   313
				fGear[wtf] = nil
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   314
				fIsMissing[wtf] = true
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   315
				fNeedsRespawn[wtf] = true
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   316
				AddCaption(loc("Boom!") .. " " .. loc("The flag will respawn next round."))
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   317
			end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   318
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   319
		end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   320
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   321
	-- if flag has been destroyed deep underwater and player is now nil
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   322
	-- probably only gets called if the flag thief drowns himself
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   323
	-- otherwise the above one will work fine
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   324
	else
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   325
		--ShowMission("NIL PLAYER!", "Oh snap", "Oh noes!", -amBazooka, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   326
		fGear[wtf] = nil
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   327
		fIsMissing[wtf] = true
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   328
		fNeedsRespawn[wtf] = true
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   329
		AddCaption(loc("The flag will respawn next round."))
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   330
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   331
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   332
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   333
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   334
function FlagThiefDead(gear)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   335
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   336
	if (gear == fThief[0]) then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   337
		wtf = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   338
		bbq = 1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   339
	elseif (gear == fThief[1]) then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   340
		wtf = 1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   341
		bbq = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   342
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   343
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   344
	if fThief[wtf] ~= nil then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   345
		--SetEffect(fThief[wtf], hePoisoned, false)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   346
		fGear[wtf] = SpawnAmmoCrate(fThiefX[wtf],fThiefY[wtf]-50,amSkip)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   347
		AddVisualGear(fThiefX[wtf], fThiefY[wtf], vgtBigExplosion, 0, false)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   348
		fThief[wtf] = nil
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   349
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   350
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   351
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   352
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   353
function HandleCircles()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   354
	
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   355
	for i = 0, 1 do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   356
		if fIsMissing[i] == false then -- draw a circle at the flag's spawning place
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   357
			--SetVisualGearValues(fCirc[i], fSpawnX[i],fSpawnY[i], 20, 200, 0, 0, 100, 33, 2, fCol[i])
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   358
			SetVisualGearValues(fCirc[i], fSpawnX[i],fSpawnY[i], vCircMinA[i], vCircMaxA[i], vCircType[i], vCircPulse[i], vCircFuckAll[i], vCircRadius[i], vCircWidth[i], vCircCol[i])
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   359
		elseif (fIsMissing[i] == true) and (fNeedsRespawn[i] == false) then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   360
			if fThief[i] ~= nil then -- draw circle round flag carrier
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   361
				--SetVisualGearValues(fCirc[i], fThiefX[i], fThiefY[i], 20, 200, 0, 0, 100, 33, 2, fCol[i])
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   362
				SetVisualGearValues(fCirc[i], fThiefX[i], fThiefY[i], vCircMinA[i], vCircMaxA[i], vCircType[i], vCircPulse[i], vCircFuckAll[i], vCircRadius[i], vCircWidth[i], vCircCol[i])
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   363
			elseif fThief[i] == nil then -- draw cirle round dropped flag
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   364
				--SetVisualGearValues(fCirc[i], GetX(fGear[i]), GetY(fGear[i]), 20, 200, 0, 0, 100, 33, 2, fCol[i])
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   365
				SetVisualGearValues(fCirc[i], GetX(fGear[i]),GetY(fGear[i]), vCircMinA[i], vCircMaxA[i], vCircType[i], vCircPulse[i], vCircFuckAll[i], vCircRadius[i], vCircWidth[i], vCircCol[i])
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   366
			end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   367
		end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   368
		
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   369
		if fNeedsRespawn[i] == true then -- if the flag has been destroyed, no need for a circle
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   370
			SetVisualGearValues(fCirc[i], fSpawnX[i],fSpawnY[i], 20, 200, 0, 0, 100, 0, 0, fCol[i])
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   371
		end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   372
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   373
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   374
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   375
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   376
------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   377
-- general methods
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   378
------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   379
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   380
function CheckDistance(gear1, gear2)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   381
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   382
	g1X, g1Y = GetGearPosition(gear1)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   383
	g2X, g2Y = GetGearPosition(gear2)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   384
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   385
	g1X = g1X - g2X
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   386
	g1Y = g1Y - g2Y
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   387
	z = (g1X*g1X) + (g1Y*g1Y)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   388
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   389
	--dist = math.sqrt(z)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   390
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   391
	dist = z
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   392
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   393
	return dist
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   394
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   395
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   396
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   397
function CheckTeleporters()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   398
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   399
	teleportActive = false
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   400
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   401
	if (GearIsInZone(CurrentHedgehog, redTel) == true) and (GetHogClan(CurrentHedgehog) == 0) then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   402
		teleportActive = true
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   403
		destinationX = 1402
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   404
		destinationY = 321
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   405
	elseif (GearIsInZone(CurrentHedgehog, orangeTel) == true) and (GetHogClan(CurrentHedgehog) == 1) then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   406
		teleportActive = true
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   407
		destinationX = 2692
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   408
		destinationY = 321
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   409
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   410
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   411
	if teleportActive == true then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   412
		if actionReset == 0 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   413
			SetGearMessage(CurrentHedgehog, gmAttack)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   414
			--AddCaption(actionReset .. ";" .. "attack")
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   415
		elseif actionReset == 10 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   416
			SetGearMessage(CurrentHedgehog, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   417
			--AddCaption(actionReset .. ";" .. "reset")
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   418
		elseif actionReset == 20 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   419
			AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), vgtBigExplosion, 0, false)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   420
			SetGearPosition(CurrentHedgehog,destinationX,destinationY)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   421
			AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), vgtBigExplosion, 0, false)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   422
			--AddCaption(actionReset .. ";" .. "teleport")
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   423
		end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   424
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   425
		actionReset = actionReset + 1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   426
		if actionReset >= 30 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   427
			actionReset = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   428
		end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   429
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   430
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   431
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   432
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   433
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   434
function RebuildTeamInfo()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   435
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   436
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   437
	-- make a list of individual team names
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   438
	for i = 0, 5 do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   439
		teamNameArr[i] = i
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   440
		teamSize[i] = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   441
		teamIndex[i] = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   442
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   443
	numTeams = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   444
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   445
	for i = 0, (numhhs-1) do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   446
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   447
		z = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   448
		unfinished = true
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   449
		while(unfinished == true) do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   450
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   451
			newTeam = true
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   452
			tempHogTeamName = GetHogTeamName(hhs[i]) -- this is the new name
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   453
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   454
			if tempHogTeamName == teamNameArr[z] then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   455
				newTeam = false
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   456
				unfinished = false
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   457
			end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   458
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   459
			z = z + 1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   460
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   461
			if z == TeamsCount then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   462
				unfinished = false
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   463
				if newTeam == true then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   464
					teamNameArr[numTeams] = tempHogTeamName
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   465
					numTeams = numTeams + 1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   466
				end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   467
			end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   468
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   469
		end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   470
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   471
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   472
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   473
	-- find out how many hogs per team, and the index of the first hog in hhs
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   474
	for i = 0, numTeams-1 do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   475
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   476
		for z = 0, numhhs-1 do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   477
			if GetHogTeamName(hhs[z]) == teamNameArr[i] then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   478
				if teamSize[i] == 0 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   479
					teamIndex[i] = z -- should give starting index
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   480
				end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   481
				teamSize[i] = teamSize[i] + 1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   482
				--add a pointer so this hog appears at i in hhs
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   483
			end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   484
		end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   485
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   486
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   487
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   488
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   489
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   490
function HandleCrateDrops()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   491
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   492
	roundsCounter = roundsCounter +1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   493
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   494
	if roundsCounter == 5 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   495
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   496
		roundsCounter = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   497
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   498
		r = GetRandom(8)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   499
		if r == 0 then
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   500
			SpawnUtilityCrate(0,0,amSwitch)
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   501
		elseif r == 1 then
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   502
			SpawnUtilityCrate(0,0,amTeleport)
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   503
		elseif r == 2 then
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   504
			SpawnUtilityCrate(0,0,amJetpack)
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   505
		elseif r == 3 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   506
			SpawnUtilityCrate(0,0,amExtraTime)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   507
		elseif r == 4 then
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   508
			SpawnUtilityCrate(0,0,amGirder)
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   509
		elseif r == 5 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   510
			SpawnAmmoCrate(0,0,amDynamite)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   511
		elseif r == 6 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   512
			SpawnAmmoCrate(0,0,amFlamethrower)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   513
		elseif r == 7 then
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   514
			SpawnUtilityCrate(0,0,amPortalGun)
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   515
		end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   516
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   517
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   518
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   519
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   520
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   521
------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   522
-- game methods
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   523
------------------------
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   524
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   525
function onGameInit()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   526
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   527
	-- Things we don't modify here will use their default values.
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   528
	GameFlags = gfDivideTeams -- Game settings and rules
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   529
	TurnTime = 30000 -- (was 30) The time the player has to move each round (in ms)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   530
	CaseFreq = 0 -- The frequency of crate drops
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   531
	MinesNum = 0 -- The number of mines being placed
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   532
	MinesTime  = 2000
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   533
	Explosives = 0 -- The number of explosives being placed
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   534
	Delay = 10 -- The delay between each round
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   535
	SuddenDeathTurns = 99 -- suddendeath is off, effectively
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   536
	Map = "Blizzard" -- The map to be played
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   537
	Theme = "Snow" -- The theme to be used "Nature"
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   538
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   539
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   540
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   541
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   542
function onGameStart()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   543
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   544
	--ShowMission(loc(caption), loc(subcaption), loc(goal), 0, 0)
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   545
	ShowMission(loc("CTF_BLIZZARD") .. " 0.5", loc("by mikade"), loc(" - Return the enemy flag to your base to score | - First team to 3 captures wins | - You may only score when your flag is in your base | - Hogs will drop the flag if killed, or drowned | - Dropped flags may be returned or recaptured | - Hogs respawn when killed"), 0, 0)
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   546
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   547
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   548
	-- initialize teleporters
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   549
	redTel = CreateZone(342,1316,42,449)	-- red teleporter
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   550
	orangeTel = CreateZone(3719,1330,45,449)	-- orange teleporter
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   551
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   552
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   553
	--new improved placement schematics aw yeah
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   554
	RebuildTeamInfo()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   555
	--ShowMission("Team Info Rebuilt", "Here you go:", "TeamCount: " .. TeamsCount .. "|" .. teamNameArr[0] .. ": " .. teamSize[0] .. " Hogs|" .. teamNameArr[1] .. ": " .. teamSize[1] .. " Hogs|" .. teamNameArr[2] .. ": " .. teamSize[2] .. " Hogs|", 0, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   556
	team1Placed = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   557
	team2Placed = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   558
	for i = 0, (TeamsCount-1) do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   559
		for g = teamIndex[i], (teamIndex[i]+teamSize[i]-1) do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   560
			if GetHogClan(hhs[g]) == 0 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   561
				SetGearPosition(hhs[g],1403+ ((team1Placed+1)*50),1570)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   562
				team1Placed = team1Placed +1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   563
				if team1Placed > 6 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   564
					team1Placed = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   565
				end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   566
			elseif GetHogClan(hhs[g]) == 1 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   567
				SetGearPosition(hhs[g],2230+ ((team2Placed+1)*50),1570)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   568
				team2Placed = team2Placed +1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   569
				if team2Placed > 6 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   570
					team2Placed = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   571
				end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   572
			end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   573
		end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   574
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   575
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   576
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   577
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   578
	--spawn starting ufos and or super weapons
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   579
	SpawnAmmoCrate(2048,1858,amJetpack)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   580
	--SpawnUtilityCrate(2048,1858,amExtraTime)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   581
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   582
	--set flag spawn points and spawn the flags
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   583
	fSpawnX[0] = 957
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   584
	fSpawnY[0] = 1747
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   585
	fSpawnX[1] = 3123
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   586
	fSpawnY[1] = 1747
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   587
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   588
	for i = 0, 1 do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   589
		fGear[i] = SpawnAmmoCrate(fSpawnX[i],fSpawnY[i],amSkip)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   590
		fCirc[i] = AddVisualGear(fSpawnX[i],fSpawnY[i],vgtCircle,0,true)
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   591
		fCol[i] = GetClanColor(i)	
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   592
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   593
		fSpawnC[i] = AddVisualGear(fSpawnX[i],fSpawnY[i],vgtCircle,0,true)
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   594
		SetVisualGearValues(fSpawnC[i], fSpawnX[i],fSpawnY[i], 10, 200, 1, 10, 0, 300, 5, fCol[i])		
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   595
		
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   596
	
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   597
		fIsMissing[i] = false
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   598
		fNeedsRespawn[i] = false
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   599
		fCaptures[i] = 0
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   600
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   601
		vCircMinA[i] = 20
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   602
		vCircMaxA[i] = 255
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   603
		vCircType[i] = 1
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   604
		vCircPulse[i] = 10
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   605
		vCircFuckAll[i] = 0
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   606
		vCircRadius[i] = 150
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   607
		vCircWidth[i] = 5
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   608
		vCircCol[i] = fCol[i]
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   609
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   610
		SetVisualGearValues(fCirc[i], fSpawnX[i],fSpawnY[i], vCircMinA[i], vCircMaxA[i], vCircType[i], vCircPulse[i], vCircFuckAll[i], vCircRadius[i], vCircWidth[i], vCircCol[i])
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   611
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   612
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   613
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   614
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   615
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   616
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   617
function onNewTurn()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   618
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   619
	if lastTeam ~= GetHogTeamName(CurrentHedgehog) then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   620
		lastTeam = GetHogTeamName(CurrentHedgehog)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   621
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   622
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   623
	for i = 0, 1 do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   624
		if fThief[i] ~= nil then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   625
			--adjust = 5 + GetHealth(fThief[i])
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   626
			--SetHealth(fThief[i], adjust)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   627
			--AddCaption('Helped out the flag poisoned flag thiefs')
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   628
		end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   629
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   630
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   631
	--AddCaption("Handling respawns")
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   632
	HandleRespawns()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   633
	HandleCrateDrops()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   634
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   635
	--myC = AddVisualGear(GetX(CurrentHedgehog),GetY(CurrentHedgehog),vgtCircle,0,true)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   636
	--SetVisualGearValues(myC, GetX(CurrentHedgehog),GetY(CurrentHedgehog), 20, 200, 0, 0, 100, 50, 3, GetClanColor(GetHogClan(CurrentHedgehog)))	
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   637
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   638
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   639
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   640
function onGameTick()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   641
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   642
	-- onRessurect calls AFTER you have resurrected,
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   643
	-- so keeping track of x,y a few milliseconds before
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   644
	-- is useful
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   645
	--FTTC = FTTC + 1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   646
	--if FTTC == 100 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   647
	--	FTTC = 0
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   648
		for i = 0,1 do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   649
			if fThief[i] ~= nil then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   650
				fThiefX[i] = GetX(fThief[i])
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   651
				fThiefY[i] = GetY(fThief[i])
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   652
			end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   653
		end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   654
	--end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   655
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   656
	-- things we wanna check often
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   657
	if (CurrentHedgehog ~= nil) then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   658
		--AddCaption(GetX(CurrentHedgehog) .. "; " .. GetY(CurrentHedgehog))
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   659
		--AddCaption("Checking Teleporters")
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   660
		CheckTeleporters()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   661
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   662
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   663
	HandleCircles()
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   664
	ManageTeleporterEffects()
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   665
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   666
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   667
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   668
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   669
function onAmmoStoreInit()
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   670
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   671
	SetAmmo(amDrill,9,0,0,0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   672
	SetAmmo(amMortar,9,0,0,0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   673
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   674
	SetAmmo(amGrenade,9,0,0,0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   675
	SetAmmo(amClusterBomb,4,0,0,0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   676
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   677
	--SetAmmo(amDEagle, 4, 0, 0, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   678
	SetAmmo(amShotgun, 9, 0, 0, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   679
	SetAmmo(amFlamethrower, 1, 0, 0, 1)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   680
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   681
	SetAmmo(amFirePunch, 9, 0, 0, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   682
	SetAmmo(amBaseballBat, 2, 0, 0, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   683
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   684
	SetAmmo(amDynamite,2,0,0,1)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   685
	SetAmmo(amSMine,4,0,0,0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   686
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   687
	SetAmmo(amBlowTorch, 9, 0, 0, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   688
	SetAmmo(amPickHammer, 9, 0, 0, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   689
	SetAmmo(amGirder, 2, 0, 0, 2)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   690
	SetAmmo(amPortalGun, 2, 0, 0, 2)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   691
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   692
	SetAmmo(amParachute, 9, 0, 0, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   693
	SetAmmo(amRope, 9, 0, 0, 0)
4698
6f14ef3e40ae Updated maps CTF, Control and new unscripted map Blizzard
mikade
parents: 4678
diff changeset
   694
	SetAmmo(amTeleport, 1, 0, 0, 1)
4678
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   695
	SetAmmo(amJetpack, 1, 0, 0, 1)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   696
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   697
	SetAmmo(amSwitch, 2, 0, 0, 1)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   698
	SetAmmo(amExtraTime,1,0,0,1)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   699
	SetAmmo(amLowGravity,1,0,0,0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   700
	SetAmmo(amSkip, 9, 0, 0, 0)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   701
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   702
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   703
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   704
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   705
function onGearResurrect(gear)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   706
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   707
	--AddCaption("A gear has been resurrected!")
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   708
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   709
	-- mark the flag thief as dead if he needed a respawn
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   710
	for i = 0,1 do
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   711
		if gear == fThief[i] then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   712
			FlagThiefDead(gear)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   713
		end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   714
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   715
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   716
	-- place hogs belonging to each clan either left or right side of map
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   717
	if GetHogClan(gear) == 0 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   718
		FindPlace(gear, false, 0, 2048)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   719
	elseif GetHogClan(gear) == 1 then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   720
		FindPlace(gear, false, 2048, LAND_WIDTH)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   721
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   722
	
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   723
	AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   724
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   725
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   726
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   727
function onGearDamage(gear, damage)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   728
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   729
	-- >_< damn, occurs too fast, before the hog has finished moving / updated his health	
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   730
	--if GetGearType(gear) == gtHedgehog then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   731
	--	if damage > GetHealth(gear) then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   732
	--		AddVisualGear(GetX(gear), GetY(gear), vgtExplosion, 0, false)		
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   733
	--	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   734
	--end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   735
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   736
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   737
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   738
function onGearAdd(gear)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   739
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   740
	if GetGearType(gear) == gtHedgehog then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   741
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   742
		hhs[numhhs] = gear
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   743
		numhhs = numhhs + 1
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   744
		SetEffect(gear, heResurrectable, true)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   745
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   746
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   747
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   748
end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   749
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   750
function onGearDelete(gear)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   751
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   752
	if (gear == fGear[0]) or (gear == fGear[1]) then
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   753
		FlagDeleted(gear)
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   754
	end
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   755
50716b795a4e Capture the flag (Blizzard) Map
Palewolf
parents:
diff changeset
   756
end