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