share/hedgewars/Data/Scripts/Multiplayer/Construction_Mode.lua
author Wuzzy <Wuzzy2@mail.ru>
Sat, 10 Feb 2018 06:36:07 +0100
changeset 12949 4fa79a6a1883
parent 12948 f85a040d0350
child 12950 a260d233cef3
permissions -rw-r--r--
Localize various Construction Mode vars
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
     1
--[[-----------------------------------------------------
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
     2
-- CONSTRUCTION MODE --
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
     3
---------------------------------------------------------
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
     4
A Hedgewars gameplay mode by mikade.
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
     5
Special thanks to all who helped test and offered suggestions.
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
     6
Additional thanks to sheepluva/nemo for adding some extra hooks.
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
     7
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
     8
---------------------
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
     9
-- STRUCTURES LIST --
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    10
---------------------
11720
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
    11
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    12
* Healing Station: Heals hogs to 150 health
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    13
* Teleportation Node: Allows teleporting to any other teleporter nodes
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    14
* Bio-filter: Explodes enemy hogs
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    15
* Respawner: If you have one of these, any slain hogs are resurrected here
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    16
* Generator: Generates power (used to buy stuff)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    17
* Support Station: Allows purchasing crates
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    18
* Construction Station: Allows purchasing girders, rubber, mines, sticky mines, barrels
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    19
* Reflector Shield: Reflect projectiles
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    20
* Weapon Filter: Removes all equipement of enemy hogs passing through this area
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    21
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    22
---------------------------------------------------------
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    23
-- SCRIPT PARAMETER
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    24
---------------------------------------------------------
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    25
The script parameter can be used to configure the energy
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    26
of the game. It is a comma-seperated list of key=value pairs, where each
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    27
key is a word and each value is an integer between 0 and 4294967295.
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    28
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    29
Possible keys:
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    30
* initialenergy:  Amount of energy that each team starts with (default: 550)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    31
                  Note: Must be smaller than or equal to maxenergy
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    32
* energyperround: Amount of energy that each team gets per round (default: 50)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    33
* maxenergy:      Maximum amount of energy each team can hold (default: 1000)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    34
* cratesperround: Maximum number of crates you can place per round (default: 5)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    35
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    36
For the previous 2 keys, you can use the value “inf” for an unlimited amount.
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    37
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    38
Example: “initialenergy=750, maxenergy=2000” starts thee game with 750 energy
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    39
         and sets the maximum energy to 2000.
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    40
Example: “craterperround=inf” disables the crate placement limit.
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    41
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    42
---------------------------------------------------------
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    43
-- Ideas list --
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    44
---------------------------------------------------------
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    45
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    46
* To make the weapon filter more attractive, make it vaporize flying saucers
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    47
  and also rope, and maybe incoming gears
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    48
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    49
* Make healing thing also cure poison?
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    50
* Maybe make poison more virulent and dangerous
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    51
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    52
]]
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    53
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    54
HedgewarsScriptLoad("/Scripts/Locale.lua")
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    55
HedgewarsScriptLoad("/Scripts/Tracker.lua")
11720
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
    56
HedgewarsScriptLoad("/Scripts/Params.lua")
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    57
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    58
----------------------------------------------
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
    59
-- STRUCTURES STUFF
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    60
----------------------------------------------
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    61
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    62
local strucID = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    63
local strucGear = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    64
local strucClan = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    65
local strucType = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    66
local strucCost = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    67
local strucHealth = {}
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    68
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    69
local strucCirc = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    70
local strucCircCol = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    71
local strucCircRadius = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    72
local strucCircType = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    73
local strucAltDisplay = {}
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    74
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    75
local fortMode = false
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    76
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    77
local placedExpense = 0
11733
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
    78
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    79
local globalTempID = nil
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    80
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    81
local sUID = 0
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    82
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    83
local cGear = nil
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    84
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    85
local colorRed = 0xff0000ff
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    86
local colorGreen = 0x00ff00ff
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    87
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    88
local clanBoundsSX = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    89
local clanBoundsSY = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    90
local clanBoundsEX = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    91
local clanBoundsEY = {}
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    92
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    93
local clanPower = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    94
local clanID = {}
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
    95
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
    96
-- for ease of use let's track previous selection
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    97
local teamLStructIndex = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    98
local teamLObjectMode = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
    99
local teamLCrateMode = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   100
local teamLMineIndex = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   101
local teamLWeapIndex = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   102
local teamLUtilIndex = {}
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
   103
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   104
local clanUsedExtraTime = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   105
local clanCratesSpawned = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   106
local clanFirstTurn = {}
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   107
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   108
local effectTimer = 0
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   109
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   110
local wallsVisible = false
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   111
local wX = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   112
local wY = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   113
local wWidth = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   114
local wHeight = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   115
local wCol = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   116
local margin = 20
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   117
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   118
local clanPowerTag = nil
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   119
local lastWep = nil
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   120
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   121
local checkForSpecialWeaponsIn = -1
11717
f35139700d22 Construction Mode: Disable setting drill strike timer in object placement mode
Wuzzy <almikes@aol.com>
parents: 11716
diff changeset
   122
12941
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   123
-- Fake ammo types, for the overwritten weapons in Construction Mode
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   124
local amCMStructurePlacer = amAirAttack
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   125
local amCMCratePlacer = amNapalm
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   126
local amCMObjectPlacer = amDrillStrike
12941
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   127
11720
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
   128
-- Config variables (script parameter)
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   129
local conf_initialEnergy = 550
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   130
local conf_energyPerRound = 50
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   131
local conf_maxEnergy = 1000
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   132
local conf_cratesPerRound = 5
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   133
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   134
-----------------------
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   135
-- CRATE DEFINITIONS --
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   136
-----------------------
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   137
-- format:
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   138
-- { ammoType, ammoTypeString, unused, cost }
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   139
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   140
-- Cost factor
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   141
local placeholder = 20
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   142
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   143
-- WEAPON CRATES 
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   144
-- Weapons which shouldn't be aded:
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   145
-- Air attack, napalm, drillstrike: Overwritten weapons for the Construction Mode tools
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   146
local atkArray = {
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   147
	{amBazooka, 		"amBazooka",		0, 2*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   148
	--{amBee, 		"amBee",		0, 4*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   149
	{amMortar, 		"amMortar",		0, 1*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   150
	{amDrill, 		"amDrill",		0, 3*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   151
	{amSnowball, 		"amSnowball",		0, 3*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   152
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   153
	{amGrenade,		"amGrenade",		0, 2*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   154
	{amClusterBomb,		"amClusterBomb",	0, 3*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   155
	{amWatermelon, 		"amWatermelon",		0, 25*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   156
	{amHellishBomb,		"amHellishBomb",	0, 25*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   157
	{amMolotov, 		"amMolotov",		0, 3*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   158
	{amGasBomb, 		"amGasBomb",		0, 3*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   159
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   160
	{amShotgun,		"amShotgun",		0, 2*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   161
	{amDEagle,		"amDEagle",		0, 2*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   162
	{amSniperRifle,		"amSniperRifle",	0, 3*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   163
	--{amSineGun, 		"amSineGun",		0, 6*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   164
	{amFlamethrower,	"amFlamethrower",	0, 4*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   165
	{amIceGun, 		"amIceGun",		0, 15*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   166
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   167
	{amFirePunch, 		"amFirePunch",		0, 3*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   168
	{amWhip,		"amWhip",		0, 1*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   169
	{amBaseballBat, 	"amBaseballBat",	0, 7*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   170
	--{amKamikaze, 		"amKamikaze",		0, 1*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   171
	{amSeduction, 		"amSeduction",		0, 1*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   172
	{amHammer,		"amHammer",		0, 1*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   173
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   174
	{amMine, 		"amMine",		0, 1*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   175
	{amDynamite, 		"amDynamite",		0, 9*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   176
	{amCake, 		"amCake",		0, 25*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   177
	{amBallgun, 		"amBallgun",		0, 40*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   178
	--{amRCPlane,		"amRCPlane",		0, 25*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   179
	{amSMine,		"amSMine",		0, 5*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   180
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   181
	--{amMineStrike,	"amMineStrike",		0, 15*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   182
	--{amPiano,		"amPiano",		0, 40*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   183
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   184
	{amPickHammer,		"amPickHammer",		0, 2*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   185
	{amBlowTorch, 		"amBlowTorch",		0, 4*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   186
	{amKnife,		"amKnife",		0, 2*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   187
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   188
	{amBirdy,		"amBirdy",		0, 7*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   189
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   190
	{amDuck,		"amDuck",		0, 2*placeholder}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   191
}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   192
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   193
-- UTILITY CRATES --
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   194
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   195
-- Utilities which shouldn't be added:
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   196
-- * Teleport: We have teleportation node
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   197
-- * Switch: Always infinite
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   198
-- * Girder, rubber: Requires construction station
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   199
-- * Resurrector: We have the resurrector structure for this
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   200
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   201
-- Utilities which might be weird for this mode:
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   202
-- * Tardis: Randomly teleports hog, maybe even into enemy clan's area
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   203
local utilArray = {
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   204
	{amLandGun,		"amLandGun",		0, 5*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   205
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   206
	{amRope, 		"amRope",		0, 7*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   207
	{amParachute, 		"amParachute",		0, 2*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   208
	{amJetpack,		"amJetpack",		0, 8*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   209
	{amPortalGun,		"amPortalGun",		0, 15*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   210
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   211
	{amInvulnerable,	"amInvulnerable",	0, 5*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   212
	{amLaserSight,		"amLaserSight",		0, 2*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   213
	{amVampiric,		"amVampiric",		0, 6*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   214
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   215
	{amLowGravity, 		"amLowGravity",		0, 4*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   216
	{amExtraDamage, 	"amExtraDamage",	0, 6*placeholder},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   217
	{amExtraTime,		"amExtraTime",		0, 8*placeholder}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   218
}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   219
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   220
----------------------------
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   221
-- Placement stuff
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   222
----------------------------
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   223
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   224
local cGear = nil -- detects placement of girders and objects (using airattack)
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   225
local curWep = amNothing
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   226
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   227
-- primary placement categories
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   228
local cIndex = 1 -- category index
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   229
local cat = {
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   230
	"Girder Placement Mode",
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   231
	"Rubber Placement Mode",
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   232
	"Mine Placement Mode",
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   233
	"Sticky Mine Placement Mode",
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   234
	"Barrel Placement Mode",
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   235
	"Weapon Crate Placement Mode",
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   236
	"Utility Crate Placement Mode",
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   237
	"Health Crate Placement Mode",
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   238
	"Structure Placement Mode"
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   239
}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   240
local catReverse = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   241
for c=1, #cat do
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   242
	catReverse[cat[c]] = c
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   243
end
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   244
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   245
local sProx = {
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   246
	{loc("Girder Placement Mode"),false},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   247
	{loc("Rubber Placement Mode"),false},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   248
	{loc("Mine Placement Mode"),false},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   249
	{loc("Sticky Mine Placement Mode"),false},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   250
	{loc("Barrel Placement Mode"),false},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   251
	{loc("Weapon Crate Placement Mode"),false},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   252
	{loc("Utility Crate Placement Mode"),false},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   253
	{loc("Health Crate Placement Mode"),false},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   254
	{loc("Structure Placement Mode"),false},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   255
	{loc("Teleportation Mode"),false},
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   256
}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   257
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   258
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   259
local pMode = {}	-- pMode contains custom subsets of the main categories
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   260
local pIndex = 1
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   261
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   262
local CGR = 1 -- current girder rotation, we actually need this as HW remembers what rotation you last used
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   263
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   264
local placedX = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   265
local placedY = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   266
local placedSpec = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   267
local placedSuperSpec = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   268
local placedType = {}
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   269
local placedCount = 0
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   270
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   271
local sCirc -- circle that appears around selected gears
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   272
local sGear = nil
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   273
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   274
local tCirc = {} -- array of circles that appear around tagged gears
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   275
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   276
11720
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
   277
12836
8610462e3d33 Remove 2 unused number tags in Construction Mode GUI
Wuzzy <Wuzzy2@mail.ru>
parents: 12682
diff changeset
   278
function DrawClanPowerTag()
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   279
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   280
	local zoomL = 1.1
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   281
	local xOffset = 45
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   282
	local yOffset = 70
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   283
	local tValue = clanPower[GetHogClan(CurrentHedgehog)]
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   284
	local tCol = 0x00ff00ff
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   285
12836
8610462e3d33 Remove 2 unused number tags in Construction Mode GUI
Wuzzy <Wuzzy2@mail.ru>
parents: 12682
diff changeset
   286
	DeleteVisualGear(clanPowerTag)
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   287
	clanPowerTag = AddVisualGear(-div(ScreenWidth, 2) + xOffset, ScreenHeight - yOffset, vgtHealthTag, tValue, false)
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   288
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   289
	SetVisualGearValues(
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   290
		clanPowerTag, 	-- id
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   291
		nil,		-- x offset (set above)
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   292
		nil,		-- y offset (set above)
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   293
		0, 		-- dx
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   294
		0, 		-- dy
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   295
		zoomL, 		-- zoom
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   296
		1, 		-- ~= 0 means align to screen
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   297
		nil, 		-- frameticks
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   298
		nil, 		-- value (set above)
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   299
		240000, 	-- timer
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   300
		tCol		-- color.   -- GetClanColor( GetHogClan(CurrentHedgehog) )
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   301
	)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   302
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   303
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   304
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   305
function XYisInRect(px, py, psx, psy, pex, pey)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   306
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   307
	if (px > psx) and (px < pex) and (py > psy) and (py < pey) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   308
		return(true)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   309
	else
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   310
		return(false)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   311
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   312
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   313
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   314
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   315
function AddWall(zXMin, zYMin, zWidth, zHeight, zCol)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   316
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   317
	table.insert(wX, zXMin)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   318
	table.insert(wY, zYMin)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   319
	table.insert(wWidth, zWidth)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   320
	table.insert(wHeight, zHeight)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   321
	table.insert(wCol, zCol)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   322
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   323
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   324
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   325
function BorderSpark(zXMin,zYMin, zWidth, zHeight, bCol)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   326
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   327
	local eX = zXMin + GetRandom(zWidth+10)
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   328
	local eY = zYMin + GetRandom(zHeight+10)
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   329
	local tempE = AddVisualGear(eX, eY, vgtDust, 0, false)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   330
	if tempE ~= 0 then
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   331
		SetVisualGearValues(tempE, eX, eY, nil, nil, nil, nil, nil, 1, nil, bCol)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   332
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   333
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   334
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   335
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   336
function HandleBorderEffects()
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   337
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   338
	effectTimer = effectTimer + 1
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   339
	if effectTimer > 15 then
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   340
		effectTimer = 1
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   341
		for i = 1, #wX do
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   342
			BorderSpark(wX[i],wY[i],wWidth[i],wHeight[i], wCol[i])
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   343
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   344
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   345
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   346
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   347
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   348
----
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   349
-- old reflecting stuff from like 3 years ago lol
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   350
---
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   351
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   352
function gearCanBeDeflected(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   353
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   354
	if 	(GetGearType(gear) == gtShell) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   355
		(GetGearType(gear) == gtGrenade) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   356
		(GetGearType(gear) == gtAirBomb) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   357
		(GetGearType(gear) == gtClusterBomb) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   358
		(GetGearType(gear) == gtCluster) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   359
		(GetGearType(gear) == gtGasBomb) or
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   360
		(GetGearType(gear) == gtMine) or
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   361
		(GetGearType(gear) == gtMortar) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   362
		(GetGearType(gear) == gtHellishBomb) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   363
		(GetGearType(gear) == gtWatermelon) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   364
		(GetGearType(gear) == gtMelonPiece)	or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   365
		(GetGearType(gear) == gtEgg) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   366
		(GetGearType(gear) == gtDrill) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   367
		(GetGearType(gear) == gtBall) or
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   368
		(GetGearType(gear) == gtExplosives) or
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   369
		(GetGearType(gear) == gtFlame) or
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   370
		(GetGearType(gear) == gtPortal) or
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   371
		(GetGearType(gear) == gtDynamite) or
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   372
		(GetGearType(gear) == gtSMine) or
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   373
		(GetGearType(gear) == gtKnife) or
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   374
		(GetGearType(gear) == gtJetpack) or
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   375
		(GetGearType(gear) == gtBirdy) or
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   376
		(GetGearType(gear) == gtSnowball) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   377
		(GetGearType(gear) == gtMolotov)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   378
	then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   379
		return(true)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   380
	else
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   381
		return(false)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   382
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   383
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   384
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   385
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   386
function getThreatDamage(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   387
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   388
	local dmg
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   389
	--- damage amounts for weapons
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   390
	if 	(GetGearType(gear) == gtGrenade) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   391
		(GetGearType(gear) == gtClusterBomb) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   392
		(GetGearType(gear) == gtGasBomb) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   393
		(GetGearType(gear) == gtKnife) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   394
		(GetGearType(gear) == gtEgg) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   395
		(GetGearType(gear) == gtMolotov) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   396
		(GetGearType(gear) == gtHellishBomb) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   397
		(GetGearType(gear) == gtWatermelon) or
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   398
		(GetGearType(gear) == gtSMine) then
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   399
		dmg = 30
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   400
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   401
	elseif (GetGearType(gear) == gtMelonPiece) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   402
		dmg = 40
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   403
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   404
	elseif (GetGearType(gear) == gtAirBomb) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   405
			(GetGearType(gear) == gtDrill) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   406
			(GetGearType(gear) == gtMine) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   407
			(GetGearType(gear) == gtCluster) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   408
		dmg = 20
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   409
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   410
	elseif (GetGearType(gear) == gtFlame) or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   411
			(GetGearType(gear) == gtPortal) or
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   412
			(GetGearType(gear) == gtDynamite) then
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   413
		dmg = 0
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   414
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   415
	elseif (GetGearType(gear) == gtBall) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   416
		dmg = 1
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   417
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   418
	else	-- normal shell, snowball etc
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   419
		dmg = 65
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   420
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   421
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   422
	return(dmg)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   423
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   424
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   425
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   426
function setGearReflectionValues(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   427
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   428
	local dmg = getThreatDamage(gear)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   429
	setGearValue(gear,"damage",dmg)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   430
	setGearValue(gear,"deflects",0)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   431
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   432
	if (CurrentHedgehog ~= nil) then
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   433
		setGearValue(gear,"owner",GetHogClan(CurrentHedgehog)) -- NEW NEEDS CHANGE?
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   434
	else
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   435
		setGearValue(gear,"owner",10)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   436
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   437
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   438
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   439
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   440
function isATrackedGear(gear)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   441
	if 	(GetGearType(gear) == gtHedgehog) or
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   442
		(GetGearType(gear) == gtTarget) or
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   443
		(GetGearType(gear) == gtCase)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   444
	then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   445
		return(true)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   446
	else
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   447
		return(false)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   448
	end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   449
end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   450
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   451
function AddStruc(pX,pY, pType, pClan)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   452
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   453
	sUID = sUID + 1
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   454
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   455
	local tempG = AddGear(0, 0, gtTarget, 0, 0, 0, 0)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   456
	SetGearPosition(tempG, pX, pY)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   457
	setGearValue(tempG, "sUID", sUID)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   458
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   459
	local tempCirc = AddVisualGear(0,0,vgtCircle,0,true)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   460
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   461
	SetVisualGearValues(tempCirc, 0, 0, 100, 255, 1, 100, 0, 500, 1, 0xFFFFFF00)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   462
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   463
	table.insert(strucID, sUID)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   464
	table.insert(strucType, pType)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   465
	table.insert(strucGear,tempG)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   466
	table.insert(strucClan,pClan)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   467
	table.insert(strucCost,2)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   468
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   469
	local frameID = 0
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   470
	local visualSprite = sprTarget
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   471
	local madness = AddVisualGear(GetX(tempG), GetY(tempG), vgtStraightShot, 1, true,1)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   472
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   473
	if pType == loc("Reflector Shield") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   474
		table.insert(strucHealth,255)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   475
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   476
	else
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   477
		table.insert(strucHealth,1)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   478
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   479
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   480
	table.insert(strucCirc,tempCirc)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   481
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   482
	table.insert(strucCircType, 1)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   483
	if pType == loc("Bio-Filter") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   484
		table.insert(strucCircCol,colorRed)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   485
		table.insert(strucCircRadius,1000)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   486
		frameID = 7
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   487
	elseif pType == loc("Healing Station") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   488
		table.insert(strucCircCol,0xFF00FF00)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   489
		table.insert(strucCircRadius,500)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   490
		frameID = 3
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   491
	elseif pType == loc("Respawner") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   492
		table.insert(strucCircCol,0xFF00FF00)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   493
		table.insert(strucCircRadius,75)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   494
		runOnHogs(EnableHogResurrectionForThisClan)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   495
		frameID = 1
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   496
	elseif pType == loc("Teleportation Node") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   497
		table.insert(strucCircCol,0x0000FFFF)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   498
		table.insert(strucCircRadius,350)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   499
		frameID = 6
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   500
	elseif pType == loc("Generator") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   501
		table.insert(strucCircCol,0xFFFF00FF)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   502
		table.insert(strucCircRadius,75)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   503
		setGearValue(tempG, "power", 0)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   504
		frameID = 2
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   505
	elseif pType == loc("Support Station") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   506
		table.insert(strucCircCol,0xFFFF00FF)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   507
		table.insert(strucCircRadius,500)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   508
		frameID = 4
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   509
	elseif pType == loc("Construction Station") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   510
		table.insert(strucCircCol,0xFFFFFFFF)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   511
		table.insert(strucCircRadius,500)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   512
		frameID = 8
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   513
	elseif pType == loc("Reflector Shield") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   514
		table.insert(strucCircCol,0xffae00ff)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   515
		table.insert(strucCircRadius,750)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   516
		frameID = 9
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   517
	elseif pType == loc("Weapon Filter") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   518
		table.insert(strucCircCol,0xa800ffff)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   519
		table.insert(strucCircRadius,750)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   520
		frameID = 5
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   521
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   522
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   523
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   524
	SetVisualGearValues(madness, nil, nil, 0, 0, nil, frameID, nil, visualSprite, nil, nil)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   525
	SetState(tempG, bor(GetState(tempG),gstInvisible) )
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   526
	table.insert(strucAltDisplay, madness)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   527
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   528
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   529
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   530
-- this is basically onStructureDelete
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   531
-- we may need to expand it for non-gear structures later
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   532
function CheckGearForStructureLink(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   533
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   534
	local respawnerDestroyed = false
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   535
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   536
	for i = 1, #strucID do
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   537
		if strucID[i] == getGearValue(gear,"sUID") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   538
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   539
			if strucType[i] == loc("Respawner") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   540
				respawnerDestroyed = true
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   541
			end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   542
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   543
			table.remove(strucID,i)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   544
			table.remove(strucGear,i)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   545
			table.remove(strucClan,i)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   546
			table.remove(strucType,i)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   547
			table.remove(strucCost,i)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   548
			table.remove(strucHealth,i)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   549
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   550
			DeleteVisualGear(strucCirc[i])
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   551
			table.remove(strucCirc,i)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   552
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   553
			table.remove(strucCircCol,i)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   554
			table.remove(strucCircRadius,i)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   555
			table.remove(strucCircType,i)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   556
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   557
			if strucAltDisplay[i] ~= 1 then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   558
				DeleteVisualGear(strucAltDisplay[i])
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   559
			end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   560
			table.remove(strucAltDisplay,i)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   561
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   562
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   563
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   564
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   565
	if respawnerDestroyed == true then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   566
		runOnHogs(RecalibrateRespawn)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   567
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   568
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   569
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   570
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   571
-- called when we add a new respawner
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   572
function EnableHogResurrectionForThisClan(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   573
	if GetHogClan(gear) == GetHogClan(CurrentHedgehog) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   574
		SetEffect(gear, heResurrectable, 1)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   575
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   576
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   577
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   578
-- this is called when a respawner blows up
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   579
function RecalibrateRespawn(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   580
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   581
	local respawnerList = {}
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   582
	for i = 1, #strucID do
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   583
		if (strucType[i] == loc("Respawner")) and (strucClan[i] == GetHogClan(gear)) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   584
			table.insert(respawnerList, i)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   585
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   586
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   587
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   588
	if #respawnerList >= 1 then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   589
		SetEffect(gear, heResurrectable, 1)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   590
	else
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   591
		SetEffect(gear, heResurrectable, 0)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   592
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   593
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   594
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   595
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   596
--resposition dead hogs at a respawner if they own one
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   597
function FindRespawner(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   598
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   599
	local respawnerList = {}
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   600
	for i = 1, #strucID do
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   601
		if (strucType[i] == loc("Respawner")) and (strucClan[i] == GetHogClan(gear)) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   602
			table.insert(respawnerList, i)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   603
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   604
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   605
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   606
	if #respawnerList >= 1 then
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   607
		local i = GetRandom(#respawnerList)+1
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   608
		SetGearPosition(gear,GetX(strucGear[respawnerList[i]]),GetY(strucGear[respawnerList[i]])-25)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   609
		AddVisualGear(GetX(gear), GetY(gear), vgtExplosion, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   610
	else	-- (this should never happen, but just in case)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   611
		SetEffect(gear, heResurrectable, 0)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   612
		DeleteGear(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   613
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   614
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   615
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   616
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   617
function CheckTeleport(gear, tX, tY)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   618
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   619
	local teleportOriginSuccessful = false
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   620
	local teleportDestinationSuccessful = false
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   621
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   622
	for i = 1, #strucID do
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   623
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   624
		if (strucType[i] == loc("Teleportation Node")) and (strucClan[i] == GetHogClan(CurrentHedgehog)) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   625
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   626
			local dist = GetDistFromGearToXY(CurrentHedgehog,GetX(strucGear[i]), GetY(strucGear[i]))
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   627
			local NR
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   628
			if strucCircType[i] == 0 then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   629
				NR = strucCircRadius[i]
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   630
			else
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   631
				NR = (48/100*strucCircRadius[i])/2
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   632
			end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   633
			if dist <= NR*NR then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   634
				teleportOriginSuccessful = true
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   635
			end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   636
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   637
			dist = GetDistFromXYtoXY(tX,tY,GetX(strucGear[i]), GetY(strucGear[i]))
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   638
			if strucCircType[i] == 0 then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   639
				NR = strucCircRadius[i]
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   640
			else
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   641
				NR = (48/100*strucCircRadius[i])/2
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   642
			end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   643
			if dist <= NR*NR then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   644
				teleportDestinationSuccessful = true
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   645
			end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   646
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   647
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   648
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   649
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   650
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   651
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   652
	if ((teleportDestinationSuccessful == false) or (teleportOriginSuccessful == false)) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   653
		AddCaption(loc("Teleport Unsuccessful. Please teleport within a clan teleporter's sphere of influence."))
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   654
		SetGearTarget(gear, GetX(CurrentHedgehog), GetY(CurrentHedgehog))
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   655
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   656
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   657
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   658
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   659
--Check for proximity of gears to structures, and make structures behave accordingly
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   660
function CheckProximity(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   661
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   662
	local dist = GetDistFromGearToXY(gear, GetX(strucGear[globalTempID]), GetY(strucGear[globalTempID]))
12682
b7fd7ab8ddf9 Construction Mode: Fix Lua error spam when using time box with filters on map
Wuzzy <almikes@aol.com>
parents: 12397
diff changeset
   663
	if not dist then
b7fd7ab8ddf9 Construction Mode: Fix Lua error spam when using time box with filters on map
Wuzzy <almikes@aol.com>
parents: 12397
diff changeset
   664
		return
b7fd7ab8ddf9 Construction Mode: Fix Lua error spam when using time box with filters on map
Wuzzy <almikes@aol.com>
parents: 12397
diff changeset
   665
	end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   666
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   667
	-- calculate my real radius if I am an aura
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   668
	local NR
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   669
	if strucCircType[globalTempID] == 0 then
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   670
		NR = strucCircRadius[globalTempID]
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   671
	else
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   672
		NR = (48/100*strucCircRadius[globalTempID])/2
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   673
	end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   674
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   675
	-- we're in business
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   676
	if dist <= NR*NR then
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   677
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   678
		-- heal clan hogs
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   679
		if strucType[globalTempID] == loc("Healing Station") then
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   680
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   681
			if GetGearType(gear) == gtHedgehog then
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   682
				if GetHogClan(gear) == strucClan[globalTempID] then
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   683
12940
39b7b3ed619e Add healing visual effect + heal msg in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 12836
diff changeset
   684
					local hogLife = GetHealth(gear)
39b7b3ed619e Add healing visual effect + heal msg in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 12836
diff changeset
   685
					-- Heal hog by 1 HP, up to 150 HP total
39b7b3ed619e Add healing visual effect + heal msg in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 12836
diff changeset
   686
					if hogLife < 150 then
39b7b3ed619e Add healing visual effect + heal msg in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 12836
diff changeset
   687
						if ((hogLife + 1) % 5) == 0 then
39b7b3ed619e Add healing visual effect + heal msg in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 12836
diff changeset
   688
							-- Health anim every 5 HP
39b7b3ed619e Add healing visual effect + heal msg in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 12836
diff changeset
   689
							HealHog(gear, 1, false)
39b7b3ed619e Add healing visual effect + heal msg in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 12836
diff changeset
   690
						else
39b7b3ed619e Add healing visual effect + heal msg in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 12836
diff changeset
   691
							SetHealth(gear, hogLife+1)
39b7b3ed619e Add healing visual effect + heal msg in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 12836
diff changeset
   692
						end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   693
					end
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   694
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   695
					-- change this to the med kit sprite health ++++s later
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   696
					local tempE = AddVisualGear(GetX(strucGear[globalTempID]), GetY(strucGear[globalTempID]), vgtSmoke, 0, true)
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   697
					SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, nil, colorGreen)
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   698
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   699
				end
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   700
			end
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   701
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   702
		-- explode enemy clan hogs
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   703
		elseif strucType[globalTempID] == loc("Bio-Filter") then
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   704
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   705
			if GetGearType(gear) == gtHedgehog then
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   706
				if (GetHogClan(gear) ~= strucClan[globalTempID]) and (GetHealth(gear) > 0) then
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   707
					AddGear(GetX(gear), GetY(gear), gtGrenade, 0, 0, 0, 1)
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   708
				end
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   709
			end
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   710
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   711
		-- were those weapons in your pocket, or were you just happy to see me?
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   712
		elseif strucType[globalTempID] == loc("Weapon Filter") then
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   713
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   714
			if GetGearType(gear) == gtHedgehog then
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   715
				if (GetHogClan(gear) ~= strucClan[globalTempID]) then
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   716
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   717
					for wpnIndex = 1, #atkArray do
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   718
						AddAmmo(gear, atkArray[wpnIndex][1], 0)
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   719
					end
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   720
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   721
					for wpnIndex = 1, #utilArray do
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   722
						AddAmmo(gear, utilArray[wpnIndex][1], 0)
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   723
					end
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   724
12941
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   725
					AddAmmo(gear, amCMStructurePlacer, 100)
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   726
					AddAmmo(gear, amSwitch, 100)
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   727
					AddAmmo(gear, amSkip, 100)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   728
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   729
				end
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   730
			end
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   731
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   732
		-- BOUNCE! POGO! POGO! POGO! POGO!
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   733
		elseif strucType[globalTempID] == loc("Reflector Shield") then
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   734
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   735
			-- add check for whose projectile it is
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   736
			if gearCanBeDeflected(gear) == true then
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   737
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   738
				local gOwner = getGearValue(gear,"owner")
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   739
				local gDeflects = getGearValue(gear,"deflects")
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   740
				local gDmg = getGearValue(gear,"damage")
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   741
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   742
				if gDeflects >= 3 then
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   743
					DeleteGear(gear)
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   744
					AddVisualGear(GetX(gear), GetY(gear), vgtSmoke, 0, false)
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   745
					PlaySound(sndVaporize)
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   746
				elseif gOwner ~= strucClan[globalTempID] then
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   747
					--whether to vaporize gears or bounce them
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   748
					if gDmg ~= 0 then
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   749
						local dx, dy = GetGearVelocity(gear)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   750
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   751
						if (dx == 0) and (dy == 0) then
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   752
							-- static mine, explosive, etc encountered
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   753
							-- do nothing
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   754
							else
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   755
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   756
							--let's bounce something!
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   757
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   758
							dx = dx*(-1)
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   759
							dy = dy*(-1)
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   760
							SetGearVelocity(gear,dx,dy)
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   761
							setGearValue(gear,"deflects",(gDeflects+1))
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   762
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   763
							AddVisualGear(GetX(gear), GetY(gear), vgtExplosion, 0, false)
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   764
							PlaySound(sndExplosion)
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   765
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   766
							strucHealth[globalTempID] = strucHealth[globalTempID] - gDmg
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   767
							strucCircCol[globalTempID] = strucCircCol[globalTempID] - gDmg
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   768
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   769
							if strucHealth[globalTempID] <= 0 then
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   770
								AddVisualGear(GetX(strucGear[globalTempID]), GetY(strucGear[globalTempID]), vgtExplosion, 0, false)
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   771
								DeleteGear(strucGear[globalTempID])
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   772
								PlaySound(sndExplosion)
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   773
							end
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   774
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   775
						end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   776
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   777
					else
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   778
						DeleteGear(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   779
						AddVisualGear(GetX(gear), GetY(gear), vgtSmoke, 0, false)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   780
						PlaySound(sndVaporize)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   781
					end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   782
				end
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   783
			end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   784
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   785
		--mark as within range of a teleporter node
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   786
		elseif strucType[globalTempID] == loc("Teleportation Node") then
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   787
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   788
			if GetGearType(gear) == gtHedgehog then
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   789
				if GetHogClan(gear) == strucClan[globalTempID] then
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   790
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   791
					for i = 1, #sProx do
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   792
						if sProx[i][1] == loc("Teleportation Mode") then
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   793
							sProx[i][2] = true
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   794
						end
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   795
					end
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   796
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   797
				end
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   798
			end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   799
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   800
		-- mark as within range of construction station
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   801
		-- and thus allow menu access to placement modes
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   802
		-- for girders, mines, sticky mines and barrels
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   803
		elseif strucType[globalTempID] == loc("Construction Station") then
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   804
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   805
			if GetGearType(gear) == gtHedgehog then
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   806
				if GetHogClan(gear) == strucClan[globalTempID] then
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   807
					AddVisualGear(GetX(strucGear[globalTempID]), GetY(strucGear[globalTempID]), vgtSmoke, 0, true)
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   808
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   809
					for i = 1, #sProx do
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   810
						if ((sProx[i][1] == loc("Girder Placement Mode"))
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   811
						or (sProx[i][1] == loc("Rubber Placement Mode"))
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   812
						or (sProx[i][1] == loc("Mine Placement Mode"))
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   813
						or (sProx[i][1] == loc("Sticky Mine Placement Mode"))
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   814
						or (sProx[i][1] == loc("Barrel Placement Mode")))
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   815
						then
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   816
							sProx[i][2] = true
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   817
						end
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   818
					end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   819
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   820
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   821
				end
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   822
			end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   823
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   824
		-- mark as within stupport station range
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   825
		-- and thus allow menu access to placement modes
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   826
		-- for weapon, utility, and med crates
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   827
		elseif strucType[globalTempID] == loc("Support Station") then
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   828
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   829
			if GetGearType(gear) == gtHedgehog then
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   830
				if GetHogClan(gear) == strucClan[globalTempID] then
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   831
					AddVisualGear(GetX(strucGear[globalTempID]), GetY(strucGear[globalTempID]), vgtSmoke, 0, true)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   832
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   833
					for i = 1, #sProx do
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   834
						if ((sProx[i][1] == loc("Health Crate Placement Mode"))
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   835
						or (sProx[i][1] == loc("Weapon Crate Placement Mode"))
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   836
						or (sProx[i][1] == loc("Utility Crate Placement Mode")))
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   837
						then
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   838
							sProx[i][2] = true
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   839
						end
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   840
					end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   841
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   842
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   843
				end
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   844
			end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   845
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   846
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
   847
	end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   848
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   849
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   850
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   851
-- used to check if we need to run through all hogs or just currenthedgehog
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   852
function isAStructureThatAppliesToMultipleGears(pID)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   853
	if 	strucType[pID] == loc("Healing Station") or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   854
		strucType[pID] == loc("Reflector Shield") or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   855
		strucType[pID] == loc("Weapon Filter") or
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   856
		strucType[pID] == loc("Bio-Filter")
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   857
	then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   858
		return(true)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   859
	else
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   860
		return(false)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   861
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   862
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   863
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   864
function HandleStructures()
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   865
11724
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   866
	if GameTime % 100 == 0 then
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   867
		for i = 1, #sProx do
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   868
			sProx[i][2] = false
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   869
11724
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   870
			if sProx[i][1] == loc("Structure Placement Mode") then
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   871
				sProx[i][2] = true
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   872
			end
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   873
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   874
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   875
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   876
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   877
	for i = 1, #strucID do
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   878
11723
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   879
		SetVisualGearValues(strucCirc[i], GetX(strucGear[i]), GetY(strucGear[i]), nil, nil, nil, nil, nil, strucCircRadius[i], nil, strucCircCol[i])
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   880
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   881
		globalTempID = i
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   882
11723
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   883
		SetVisualGearValues(strucAltDisplay[i], GetX(strucGear[i]), GetY(strucGear[i]), 0, 0, nil, nil, 800000, sprTarget)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   884
11723
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   885
		if GameTime % 100 == 0 then
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   886
			-- Check For proximity of stuff to our structures
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   887
			if isAStructureThatAppliesToMultipleGears(i) then
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   888
				runOnGears(CheckProximity)
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   889
			else -- only check prox on CurrentHedgehog
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   890
				if CurrentHedgehog ~= nil then
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   891
					CheckProximity(CurrentHedgehog)
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   892
				end
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   893
			end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   894
11723
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   895
			if strucType[i] == loc("Generator") then
11732
e28b534188d3 update construction mode in-file version info
sheepluva
parents: 11730
diff changeset
   896
11723
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   897
				for z = 0, ClansCount-1 do
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   898
					if z == strucClan[i] then
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   899
						increaseGearValue(strucGear[i],"power")
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   900
						if getGearValue(strucGear[i],"power") == 10 then
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   901
							setGearValue(strucGear[i],"power",0)
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   902
							clanPower[z] = clanPower[z] + 1
11728
373150be0356 Construction Mode: Sanity-check numbers from script parameter
Wuzzy <almikes@aol.com>
parents: 11727
diff changeset
   903
							if conf_maxEnergy ~= "inf" and clanPower[z] > conf_maxEnergy then
11723
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   904
								clanPower[z] = conf_maxEnergy
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
   905
							end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   906
						end
11732
e28b534188d3 update construction mode in-file version info
sheepluva
parents: 11730
diff changeset
   907
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   908
					end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   909
				end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   910
			end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   911
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   912
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   913
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   914
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   915
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   916
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   917
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   918
	-- this is kinda messy and gross (even more than usual), fix it up at some point
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   919
	-- it just assumes that if you have access to girders, it works for rubbers
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   920
	-- as that is what the struc implemenation means due to construction station
11727
1c09b8d050ce Construction Mode: Fix timer issues
Wuzzy <almikes@aol.com>
parents: 11726
diff changeset
   921
	if GameTime % 100 == 0 and CurrentHedgehog ~= nil then
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   922
		local anyUIProx = false
11724
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   923
		for i = 1, #sProx do
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   924
11724
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   925
			if sProx[i][1] == loc("Girder Placement Mode") then
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   926
				if sProx[i][2] == true then
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   927
					AddAmmo(CurrentHedgehog, amGirder, 100)
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   928
					AddAmmo(CurrentHedgehog, amRubber, 100)
12941
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   929
					AddAmmo(CurrentHedgehog, amCMObjectPlacer, 100)
11724
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   930
				else
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   931
					AddAmmo(CurrentHedgehog, amGirder, 0)
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   932
					AddAmmo(CurrentHedgehog, amRubber, 0)
12941
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   933
					AddAmmo(CurrentHedgehog, amCMObjectPlacer, 0) -- new
11724
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   934
				end
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   935
			elseif sProx[i][1] == loc("Teleportation Mode") then
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   936
				if sProx[i][2] == true then
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   937
					AddAmmo(CurrentHedgehog, amTeleport, 100)
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   938
				else
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   939
					AddAmmo(CurrentHedgehog, amTeleport, 0)
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   940
				end
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   941
			elseif sProx[i][1] == loc("Weapon Crate Placement Mode") then
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   942
				-- this is new stuff
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   943
				if sProx[i][2] == true then
12941
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   944
					AddAmmo(CurrentHedgehog, amCMCratePlacer, 100)
11724
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   945
				else
12941
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   946
					AddAmmo(CurrentHedgehog, amCMCratePlacer, 0)
11724
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   947
				end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   948
			end
11724
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   949
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   950
			if (sProx[i][2] == true) then
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   951
				anyUIProx = true
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   952
			end
11724
cf4d61123440 Construction Mode: Fix construction/support station
Wuzzy <almikes@aol.com>
parents: 11723
diff changeset
   953
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   954
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   955
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   956
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   957
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   958
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   959
function checkForSpecialWeapons()
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   960
12941
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
   961
	if (GetCurAmmoType() == amCMObjectPlacer) then
11942
abdb24f0c2d9 Change descriptions for special Construction Mode tools
Wuzzy <almikes@aol.com>
parents: 11881
diff changeset
   962
		AddCaption(loc("Object Placer"),GetClanColor(GetHogClan(CurrentHedgehog)),capgrpAmmoinfo)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   963
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   964
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   965
	lastWep = GetCurAmmoType()
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   966
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   967
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   968
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   969
------------------------
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   970
-- SOME GENERAL METHODS
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   971
------------------------
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   972
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   973
function GetDistFromGearToXY(gear, g2X, g2Y)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   974
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   975
	local g1X, g1Y = GetGearPosition(gear)
12682
b7fd7ab8ddf9 Construction Mode: Fix Lua error spam when using time box with filters on map
Wuzzy <almikes@aol.com>
parents: 12397
diff changeset
   976
	if not g1X then
b7fd7ab8ddf9 Construction Mode: Fix Lua error spam when using time box with filters on map
Wuzzy <almikes@aol.com>
parents: 12397
diff changeset
   977
		return nil
b7fd7ab8ddf9 Construction Mode: Fix Lua error spam when using time box with filters on map
Wuzzy <almikes@aol.com>
parents: 12397
diff changeset
   978
	end
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   979
	local q = g1X - g2X
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   980
	local w = g1Y - g2Y
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   981
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   982
	return ( (q*q) + (w*w) )
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   983
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   984
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   985
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   986
function GetDistFromXYtoXY(a, b, c, d)
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   987
	local q = a - c
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
   988
	local w = b - d
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   989
	return ( (q*q) + (w*w) )
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   990
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   991
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   992
-- essentially called when user clicks the mouse
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   993
-- with girders or an airattack
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   994
function PlaceObject(x,y)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   995
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   996
	placedX[placedCount] = x
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   997
	placedY[placedCount] = y
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   998
	placedType[placedCount] = cat[cIndex]
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
   999
	placedSpec[placedCount] = pMode[pIndex]
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1000
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1001
	if (clanUsedExtraTime[GetHogClan(CurrentHedgehog)] == true) and (cat[cIndex] == "Utility Crate Placement Mode") and (utilArray[pIndex][1] == amExtraTime) then
12092
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1002
		AddCaption(loc("You may only place 1 Extra Time crate per turn."),0xffba00ff,capgrpVolume)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1003
		PlaySound(sndDenied)
12092
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1004
	elseif (conf_cratesPerRound ~= "inf" and clanCratesSpawned[GetHogClan(CurrentHedgehog)] >= conf_cratesPerRound) and ( (cat[cIndex] == "Health Crate Placement Mode") or (cat[cIndex] == "Utility Crate Placement Mode") or (cat[cIndex] == "Weapon Crate Placement Mode")  )  then
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1005
		AddCaption(string.format(loc("You may only place %d crates per round."), conf_cratesPerRound),0xffba00ff,capgrpVolume)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1006
		PlaySound(sndDenied)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1007
	elseif (XYisInRect(x,y, clanBoundsSX[GetHogClan(CurrentHedgehog)],clanBoundsSY[GetHogClan(CurrentHedgehog)],clanBoundsEX[GetHogClan(CurrentHedgehog)],clanBoundsEY[GetHogClan(CurrentHedgehog)]) == true)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1008
	and (clanPower[GetHogClan(CurrentHedgehog)] >= placedExpense)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1009
	then
12091
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1010
		-- For checking if the actual placement succeeded
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1011
		local placed = false
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
  1012
		local gear
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1013
		if cat[cIndex] == "Girder Placement Mode" then
12091
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1014
			placed = PlaceGirder(x, y, CGR)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1015
			placedSpec[placedCount] = CGR
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1016
		elseif cat[cIndex] == "Rubber Placement Mode" then
12091
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1017
			placed = PlaceRubber(x, y, CGR)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1018
			placedSpec[placedCount] = CGR
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1019
		elseif cat[cIndex] == "Health Crate Placement Mode" then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1020
			gear = SpawnHealthCrate(x,y)
12091
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1021
			if gear ~= nil then
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1022
				placed = true
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1023
				SetHealth(gear, pMode[pIndex])
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1024
				setGearValue(gear,"caseType","med")
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1025
				clanCratesSpawned[GetHogClan(CurrentHedgehog)] = clanCratesSpawned[GetHogClan(CurrentHedgehog)] +1
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1026
			end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1027
		elseif cat[cIndex] == "Weapon Crate Placement Mode" then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1028
			gear = SpawnAmmoCrate(x, y, atkArray[pIndex][1])
12091
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1029
			if gear ~= nil then
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1030
				placed = true
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1031
				placedSpec[placedCount] = atkArray[pIndex][2]
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1032
				setGearValue(gear,"caseType","ammo")
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1033
				setGearValue(gear,"contents",atkArray[pIndex][2])
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1034
				clanCratesSpawned[GetHogClan(CurrentHedgehog)] = clanCratesSpawned[GetHogClan(CurrentHedgehog)] +1
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1035
			end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1036
		elseif cat[cIndex] == "Utility Crate Placement Mode" then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1037
			gear = SpawnUtilityCrate(x, y, utilArray[pIndex][1])
12091
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1038
			if gear ~= nil then
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1039
				placed = true
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1040
				placedSpec[placedCount] = utilArray[pIndex][2]
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1041
				setGearValue(gear,"caseType","util")
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1042
				setGearValue(gear,"contents",utilArray[pIndex][2])
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1043
				if utilArray[pIndex][1] == amExtraTime then
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1044
					clanUsedExtraTime[GetHogClan(CurrentHedgehog)] = true
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1045
				end
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1046
				clanCratesSpawned[GetHogClan(CurrentHedgehog)] = clanCratesSpawned[GetHogClan(CurrentHedgehog)] +1
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1047
			end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1048
		elseif cat[cIndex] == "Barrel Placement Mode" then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1049
			gear = AddGear(x, y, gtExplosives, 0, 0, 0, 0)
12091
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1050
			if gear ~= nil then
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1051
				placed = true
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1052
				SetHealth(gear, pMode[pIndex])
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1053
			end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1054
		elseif cat[cIndex] == "Mine Placement Mode" then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1055
			gear = AddGear(x, y, gtMine, 0, 0, 0, 0)
12091
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1056
			if gear ~= nil then
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1057
				placed = true
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1058
				SetTimer(gear, pMode[pIndex])
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1059
			end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1060
		elseif cat[cIndex] == "Sticky Mine Placement Mode" then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1061
			gear = AddGear(x, y, gtSMine, 0, 0, 0, 0)
12091
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1062
			placed = gear ~= nil
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1063
		elseif cat[cIndex] == "Structure Placement Mode" then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1064
			AddStruc(x,y, pMode[pIndex],GetHogClan(CurrentHedgehog))
12091
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1065
			placed = true
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1066
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1067
12091
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1068
		if placed then
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1069
			clanPower[GetHogClan(CurrentHedgehog)] = clanPower[GetHogClan(CurrentHedgehog)] - placedExpense
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1070
			placedCount = placedCount + 1
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1071
		else
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1072
			AddCaption(loc("Invalid Placement"),0xffba00ff,capgrpVolume)
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1073
			PlaySound(sndDenied)
db5e12d623cc Contruction Mode: Fix rubber being placable in land and invalid girder placement costing energy
Wuzzy <almikes@aol.com>
parents: 11982
diff changeset
  1074
		end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1075
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1076
	else
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1077
		if (clanPower[GetHogClan(CurrentHedgehog)] >= placedExpense) then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1078
			AddCaption(loc("Invalid Placement"),0xffba00ff,capgrpVolume)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1079
		else
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1080
			AddCaption(loc("Insufficient Power"),0xffba00ff,capgrpVolume)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1081
		end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1082
		PlaySound(sndDenied)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1083
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1084
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1085
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1086
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1087
-- called when user changes primary selection
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1088
-- either via up/down keys
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1089
-- or selecting girder/airattack
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1090
function RedefineSubset()
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1091
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1092
	pIndex = 1
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1093
	pMode = {}
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1094
	placedExpense = 1
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1095
12945
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1096
	if (CurrentHedgehog == nil or band(GetState(CurrentHedgehog), gstHHDriven) == 0) then
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1097
		return false
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1098
	end
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1099
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1100
	local team = GetHogTeamName(CurrentHedgehog)
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1101
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1102
	if cat[cIndex] == "Girder Placement Mode" then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1103
		pIndex = CGR
11712
0a33c3172e6d Mark some forgotten Construction Mode strings for translation
Wuzzy <almikes@aol.com>
parents: 11711
diff changeset
  1104
		pMode = {loc("Girder")}
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1105
	elseif cat[cIndex] == "Rubber Placement Mode" then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1106
		pIndex = CGR
11712
0a33c3172e6d Mark some forgotten Construction Mode strings for translation
Wuzzy <almikes@aol.com>
parents: 11711
diff changeset
  1107
		pMode = {loc("Rubber")}
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1108
		placedExpense = 3
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1109
	elseif cat[cIndex] == "Barrel Placement Mode" then
11713
106112bbacfa Tweak barrel and mine defaults in Construction Mode
Wuzzy <almikes@aol.com>
parents: 11712
diff changeset
  1110
		pMode = {60}
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1111
		placedExpense = 10
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1112
		teamLObjectMode[team] = cat[cIndex]
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1113
	elseif cat[cIndex] == "Health Crate Placement Mode" then
11726
4addfad422ab Construction Mode: Recognize health case amount from game scheme
Wuzzy <almikes@aol.com>
parents: 11725
diff changeset
  1114
		pMode = {HealthCaseAmount}
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1115
		placedExpense = 5
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1116
		teamLCrateMode[team] = cat[cIndex]
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1117
	elseif cat[cIndex] == "Weapon Crate Placement Mode" then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1118
		for i = 1, #atkArray do
11981
acae870a66b9 Use GetAmmoName in Construction Mode
Wuzzy <almikes@aol.com>
parents: 11942
diff changeset
  1119
			pMode[i] = GetAmmoName(atkArray[i][1])
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1120
		end
11981
acae870a66b9 Use GetAmmoName in Construction Mode
Wuzzy <almikes@aol.com>
parents: 11942
diff changeset
  1121
		placedExpense = atkArray[pIndex][4]
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1122
		teamLCrateMode[team] = cat[cIndex]
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1123
		pIndex = teamLWeapIndex[team]
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1124
	elseif cat[cIndex] == "Utility Crate Placement Mode" then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1125
		for i = 1, #utilArray do
11981
acae870a66b9 Use GetAmmoName in Construction Mode
Wuzzy <almikes@aol.com>
parents: 11942
diff changeset
  1126
			pMode[i] = GetAmmoName(utilArray[i][1])
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1127
		end
11981
acae870a66b9 Use GetAmmoName in Construction Mode
Wuzzy <almikes@aol.com>
parents: 11942
diff changeset
  1128
		placedExpense = utilArray[pIndex][4]
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1129
		teamLCrateMode[team] = cat[cIndex]
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1130
		pIndex = teamLUtilIndex[team]
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1131
	elseif cat[cIndex] == "Mine Placement Mode" then
11713
106112bbacfa Tweak barrel and mine defaults in Construction Mode
Wuzzy <almikes@aol.com>
parents: 11712
diff changeset
  1132
		pMode = {0,1000,2000,3000,4000,5000}
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1133
		placedExpense = 15
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1134
		teamLObjectMode[team] = cat[cIndex]
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1135
		pIndex = teamLMineIndex[team]
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1136
	elseif cat[cIndex] == "Sticky Mine Placement Mode" then
11712
0a33c3172e6d Mark some forgotten Construction Mode strings for translation
Wuzzy <almikes@aol.com>
parents: 11711
diff changeset
  1137
		pMode = {loc("Sticky Mine")}
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1138
		placedExpense = 20
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1139
		teamLObjectMode[team] = cat[cIndex]
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1140
	elseif cat[cIndex] == "Structure Placement Mode" then
12943
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1141
		pMode = {
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1142
			loc("Support Station"),
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1143
			loc("Construction Station"),
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1144
			loc("Healing Station"),
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1145
			loc("Teleportation Node"),
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1146
			loc("Weapon Filter"),
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1147
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1148
			loc("Bio-Filter"),
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1149
			loc("Reflector Shield"),
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1150
			loc("Respawner"),
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1151
			loc("Generator"),
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1152
		}
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1153
		pIndex = teamLStructIndex[team]
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1154
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1155
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1156
	return true
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1157
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1158
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1159
-- Updates the handling of the main construction mode tools:
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1160
-- Structure Placer, Crate Placer, Object Placer.
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1161
-- This handles the internal category state,
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1162
-- the HUD display and the clans outline.
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1163
function HandleConstructionModeTools()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1164
	-- Update display selection criteria
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1165
	if (CurrentHedgehog ~= nil and band(GetState(CurrentHedgehog), gstHHDriven) ~= 0) then
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1166
		curWep = GetCurAmmoType()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1167
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1168
		local updated = false
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1169
		local team = GetHogTeamName(CurrentHedgehog)
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1170
		if (curWep == amGirder) then
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1171
			cIndex = 1
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1172
			RedefineSubset()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1173
			updated = true
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1174
		elseif (curWep == amRubber) then
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1175
			cIndex = 2
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1176
			RedefineSubset()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1177
			updated = true
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1178
		elseif (curWep == amCMStructurePlacer) then
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1179
			cIndex = 9
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1180
			RedefineSubset()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1181
			updateCost()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1182
			updated = true
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1183
		elseif (curWep == amCMCratePlacer) then
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1184
			cIndex = catReverse[teamLCrateMode[team]]
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1185
			RedefineSubset()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1186
			updateCost()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1187
			updated = true
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1188
		elseif (curWep == amCMObjectPlacer) then
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1189
			cIndex = catReverse[teamLObjectMode[team]]
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1190
			RedefineSubset()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1191
			updateCost()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1192
			updated = true
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1193
		end
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1194
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1195
		if updated then
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1196
			AddCaption(loc(cat[cIndex]), 0xffba00ff, capgrpMessage)
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1197
			showModeMessage()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1198
			wallsVisible = true
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1199
		else
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1200
			wallsVisible = false
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1201
		end
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1202
	else
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1203
		curWep = amNothing
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1204
		wallsVisible = false
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1205
	end
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1206
end
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1207
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1208
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1209
-- called in onGameTick()
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1210
function HandleConstructionMode()
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1211
11723
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
  1212
	HandleStructures()
456f4e9f9dce Construction Mode: Update structure overlay each tick, thus falling smoothly
Wuzzy <almikes@aol.com>
parents: 11722
diff changeset
  1213
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1214
	if CurrentHedgehog ~= nil then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1215
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1216
		if wallsVisible == true then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1217
			HandleBorderEffects()
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1218
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1219
12945
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1220
		if (TurnTimeLeft ~= TurnTime) then
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1221
			if (lastWep ~= GetCurAmmoType()) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1222
				checkForSpecialWeapons()
11717
f35139700d22 Construction Mode: Disable setting drill strike timer in object placement mode
Wuzzy <almikes@aol.com>
parents: 11716
diff changeset
  1223
			elseif checkForSpecialWeaponsIn == 0 then
f35139700d22 Construction Mode: Disable setting drill strike timer in object placement mode
Wuzzy <almikes@aol.com>
parents: 11716
diff changeset
  1224
				checkForSpecialWeapons()
f35139700d22 Construction Mode: Disable setting drill strike timer in object placement mode
Wuzzy <almikes@aol.com>
parents: 11716
diff changeset
  1225
				checkForSpecialWeaponsIn = -1
f35139700d22 Construction Mode: Disable setting drill strike timer in object placement mode
Wuzzy <almikes@aol.com>
parents: 11716
diff changeset
  1226
			else
f35139700d22 Construction Mode: Disable setting drill strike timer in object placement mode
Wuzzy <almikes@aol.com>
parents: 11716
diff changeset
  1227
				checkForSpecialWeaponsIn = checkForSpecialWeaponsIn - 1
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1228
			end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1229
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1230
11727
1c09b8d050ce Construction Mode: Fix timer issues
Wuzzy <almikes@aol.com>
parents: 11726
diff changeset
  1231
		if GameTime % 100 == 0 then
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1232
12836
8610462e3d33 Remove 2 unused number tags in Construction Mode GUI
Wuzzy <Wuzzy2@mail.ru>
parents: 12682
diff changeset
  1233
			DrawClanPowerTag()
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1234
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1235
			-- Force-update the construction mode tools every 100ms.
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1236
			-- This makes sure the announcer messages don't disappear
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1237
			-- while the tool is selected.
12945
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1238
			if (band(GetState(CurrentHedgehog), gstHHDriven) ~= 0) then
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1239
				curWep = GetCurAmmoType()
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1240
				HandleConstructionModeTools()
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1241
			else
12945
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1242
				curWep = amNothing
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1243
			end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1244
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1245
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1246
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1247
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1248
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1249
	-- some kind of target detected, tell me your story
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1250
	if cGear ~= nil then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1251
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
  1252
		local x,y = GetGearTarget(cGear)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1253
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1254
		if GetGearType(cGear) == gtAirAttack then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1255
			DeleteGear(cGear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1256
			PlaceObject(x, y)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1257
		elseif GetGearType(cGear) == gtTeleport then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1258
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1259
				CheckTeleport(cGear, x, y)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1260
				cGear = nil
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1261
		elseif GetGearType(cGear) == gtGirder then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1262
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1263
			CGR = GetState(cGear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1264
11718
f699978eae19 Throw away old out-commented Construction Mode code
Wuzzy <almikes@aol.com>
parents: 11717
diff changeset
  1265
			PlaceObject(x, y)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1266
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1267
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1268
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1269
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1270
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1271
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1272
---------------------------------------------------------------
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1273
-- Cycle through selection subsets (by changing pIndex, pMode)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1274
-- i.e 	health of barrels, medikits,
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1275
--		timer of mines
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1276
--		contents of crates
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1277
--		gears to reposition etc.
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1278
---------------------------------------------------------------
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1279
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1280
function updateCost()
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1281
11760
001994046892 Construction Mode: Don't update ticker for cursor keys when hedgehog is not under control anymore
Wuzzy <almikes@aol.com>
parents: 11759
diff changeset
  1282
	if CurrentHedgehog == nil or band(GetState(CurrentHedgehog), gstHHDriven) == 0 then return end
001994046892 Construction Mode: Don't update ticker for cursor keys when hedgehog is not under control anymore
Wuzzy <almikes@aol.com>
parents: 11759
diff changeset
  1283
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1284
	if pMode[pIndex] == loc("Healing Station") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1285
		placedExpense = 50
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1286
	elseif pMode[pIndex] == loc("Weapon Filter") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1287
		placedExpense = 50
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1288
	elseif pMode[pIndex] == loc("Bio-Filter") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1289
		placedExpense = 100
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1290
	elseif pMode[pIndex] == loc("Respawner") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1291
		placedExpense = 300
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1292
	elseif pMode[pIndex] == loc("Teleportation Node") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1293
		placedExpense = 30
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1294
	elseif pMode[pIndex] == loc("Support Station") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1295
		placedExpense = 50
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1296
	elseif pMode[pIndex] == loc("Construction Station") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1297
		placedExpense = 50
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1298
	elseif pMode[pIndex] == loc("Generator") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1299
			placedExpense = 300
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1300
	elseif pMode[pIndex] == loc("Reflector Shield") then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1301
			placedExpense = 200
11708
d5d798172875 Fix crate costs in Construction Mode being all the same (fixes #15)
Wuzzy <almikes@aol.com>
parents: 11301
diff changeset
  1302
	elseif cat[cIndex] == "Weapon Crate Placement Mode" then
11981
acae870a66b9 Use GetAmmoName in Construction Mode
Wuzzy <almikes@aol.com>
parents: 11942
diff changeset
  1303
		placedExpense = atkArray[pIndex][4]
11708
d5d798172875 Fix crate costs in Construction Mode being all the same (fixes #15)
Wuzzy <almikes@aol.com>
parents: 11301
diff changeset
  1304
	elseif cat[cIndex] == "Utility Crate Placement Mode" then
11981
acae870a66b9 Use GetAmmoName in Construction Mode
Wuzzy <almikes@aol.com>
parents: 11942
diff changeset
  1305
		placedExpense = utilArray[pIndex][4]
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1306
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1307
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1308
	AddCaption(loc("Cost") .. ": " .. placedExpense,0xffba00ff,capgrpAmmostate)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1309
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1310
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1311
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1312
-- Should be called when the index of the mode was changed by the player.
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1313
-- E.g. new weapon crate contents or structure type
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1314
function updateIndex()
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1315
	if (curWep == amGirder) or (curWep == amRubber) or (curWep == amCMStructurePlacer) or (curWep == amCMCratePlacer) or (curWep == amCMObjectPlacer) then
11714
8575b8b76373 Construction Mode: Show mine timer in seconds
Wuzzy <almikes@aol.com>
parents: 11713
diff changeset
  1316
		showModeMessage()
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1317
		updateCost()
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1318
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1319
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1320
	-- Update team variables so the previous state can be restored later
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1321
	if CurrentHedgehog == nil or band(GetState(CurrentHedgehog), gstHHDriven) == 0 then return end
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1322
	local val = pMode[pIndex]
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1323
	local team = GetHogTeamName(CurrentHedgehog)
12945
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1324
	if cat[cIndex] == "Structure Placement Mode" then
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1325
		teamLStructIndex[team] = pIndex
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1326
	elseif cat[cIndex] == "Mine Placement Mode" then
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1327
		teamLMineIndex[team] = pIndex
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1328
	elseif cat[cIndex] == "Weapon Crate Placement Mode" then
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1329
		teamLWeapIndex[team] = pIndex
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1330
	elseif cat[cIndex] == "Utility Crate Placement Mode" then
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1331
		teamLUtilIndex[team] = pIndex
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1332
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1333
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1334
11730
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1335
function showModeMessage()
11760
001994046892 Construction Mode: Don't update ticker for cursor keys when hedgehog is not under control anymore
Wuzzy <almikes@aol.com>
parents: 11759
diff changeset
  1336
	if CurrentHedgehog == nil or band(GetState(CurrentHedgehog), gstHHDriven) == 0 then return end
11730
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1337
	local val = pMode[pIndex]
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1338
	local str
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1339
	if cat[cIndex] == "Mine Placement Mode" then
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1340
		-- timer in seconds
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1341
		str = string.format(loc("%d sec"), div(val, 1000))
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1342
	elseif cat[cIndex] == "Girder Placement Mode" then
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1343
		str = loc("Girder")
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1344
	elseif cat[cIndex] == "Rubber Placement Mode" then
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1345
		str = loc("Rubber")
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1346
	else
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1347
		str = tostring(val)
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1348
	end
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1349
	AddCaption(str,0xffba00ff,capgrpMessage2)
8cc9c8a43dcc Construction Mode: Fix Girder/Rubber mode sometimes show nil
Wuzzy <almikes@aol.com>
parents: 11729
diff changeset
  1350
end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1351
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1352
function rotateMode(pDir)
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1353
	curWep = GetCurAmmoType()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1354
	local foundMatch = false
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1355
	while(foundMatch == false) do
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1356
		cIndex = cIndex + pDir
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1357
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1358
		if (cIndex == 1) or (cIndex == 2) then -- we no longer hit girder by normal means
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1359
			cIndex = #cat
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1360
		elseif cIndex > #cat then
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1361
			cIndex = 3       -- we no longer hit girder by normal means
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1362
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1363
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1364
		if (GetCurAmmoType() == amCMCratePlacer) then
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1365
			if (sProx[cIndex][1] == loc("Health Crate Placement Mode")) or
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1366
				(sProx[cIndex][1] == loc("Weapon Crate Placement Mode")) or
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1367
				(sProx[cIndex][1] == loc("Utility Crate Placement Mode")) then
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1368
					foundMatch = true
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1369
			end
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1370
		elseif (GetCurAmmoType() == amCMObjectPlacer) then
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1371
			if (sProx[cIndex][1] == loc("Mine Placement Mode")) or
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1372
				(sProx[cIndex][1] == loc("Sticky Mine Placement Mode")) or
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1373
				(sProx[cIndex][1] == loc("Barrel Placement Mode")) then
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1374
				foundMatch = true
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1375
			end
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1376
		elseif (GetCurAmmoType() == amCMStructurePlacer) then
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1377
			if sProx[cIndex][1] == loc("Structure Placement Mode") then
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1378
				foundMatch = true
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1379
			end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1380
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1381
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1382
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1383
	if foundMatch == true then
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1384
		RedefineSubset()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1385
		--updateCost()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1386
		HandleConstructionModeTools()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1387
	end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1388
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1389
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1390
---------------------
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1391
-- PLAYER CONTROLS --
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1392
---------------------
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1393
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1394
-- [Timer X]: Used as shortcut key for faster selection of stuff
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1395
function onTimer(key)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1396
	curWep = GetCurAmmoType()
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1397
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1398
	if (curWep == amCMStructurePlacer) then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1399
		-- Select structure directly in structure placer
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1400
		-- [Timer X] selects structures 1-5
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1401
		-- [Precise]+[Timer X] selects structures 6-10
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1402
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1403
		local structureID = key
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1404
		local precise = band(GetGearMessage(CurrentHedgehog), gmPrecise) ~= 0
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1405
		if precise then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1406
			structureID = structureID + 5
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1407
		end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1408
		-- Check for valid pIndex
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1409
		if structureID <= #pMode then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1410
			pIndex = structureID
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1411
			updateIndex()
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1412
		end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1413
	elseif (curWep == amCMObjectPlacer) then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1414
		-- [Timer X]: Set mine time 1-5
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1415
		if cat[cIndex] == "Mine Placement Mode" then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1416
			local index = key + 1
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1417
			if key <= #pMode then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1418
				pIndex = index
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1419
				updateIndex()
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1420
			end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1421
		end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1422
	end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1423
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1424
	-- Hacky workaround for object placer: Since this is based on the drill strike, it
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1425
	-- allows the 5 timer keys to be pressed, causing the announcer to show up
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1426
	-- This triggers code in 1 tick to send other message to mask the earlier one.
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1427
	checkForSpecialWeaponsIn = 1
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1428
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1429
end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1430
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1431
-- [Switch]: Set mine time to 0 (only in mine placement mode)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1432
function onSwitch()
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1433
	curWep = GetCurAmmoType()
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1434
	if (curWep == amCMObjectPlacer) then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1435
		pIndex = 1
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1436
		updateIndex()
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1437
	end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1438
end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1439
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1440
-- [Left]/[Right]: Change submode (e.g. structure type) of any Construction Mode tool or rotate girder/rubber
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1441
function onLeft()
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1442
	curWep = GetCurAmmoType()
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1443
	if (curWep == amGirder) or (curWep == amRubber) or (curWep == amCMStructurePlacer) or (curWep == amCMCratePlacer) or (curWep == amCMObjectPlacer) then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1444
		pIndex = pIndex - 1
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1445
		if pIndex == 0 then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1446
			pIndex = #pMode
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1447
		end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1448
		updateIndex()
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1449
	end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1450
end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1451
function onRight()
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1452
	curWep = GetCurAmmoType()
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1453
	if (curWep == amGirder) or (curWep == amRubber) or (curWep == amCMStructurePlacer) or (curWep == amCMCratePlacer) or (curWep == amCMObjectPlacer) then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1454
		pIndex = pIndex + 1
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1455
		if pIndex > #pMode then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1456
			pIndex = 1
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1457
		end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1458
		updateIndex()
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1459
	end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1460
end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1461
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1462
-- [Up]/[Down]
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1463
-- Cycle through the primary categories
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1464
-- (by changing cIndex) i.e. mine, sticky mine,
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1465
-- barrels, health/weapon/utility crate.
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1466
function onUp()
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1467
	curWep = GetCurAmmoType()
12941
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
  1468
	if ( (curWep == amCMCratePlacer) or (curWep == amCMObjectPlacer) ) then
12945
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1469
		if CurrentHedgehog ~= nil and band(GetState(CurrentHedgehog), gstHHDriven) ~= 0 then
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1470
			rotateMode(-1)
11760
001994046892 Construction Mode: Don't update ticker for cursor keys when hedgehog is not under control anymore
Wuzzy <almikes@aol.com>
parents: 11759
diff changeset
  1471
		end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1472
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1473
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1474
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1475
function onDown()
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1476
	curWep = GetCurAmmoType()
12941
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
  1477
	if ( (curWep == amCMCratePlacer) or (curWep == amCMObjectPlacer) ) then
12945
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1478
		if CurrentHedgehog ~= nil and band(GetState(CurrentHedgehog), gstHHDriven) ~= 0 then
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1479
			rotateMode(1)
11760
001994046892 Construction Mode: Don't update ticker for cursor keys when hedgehog is not under control anymore
Wuzzy <almikes@aol.com>
parents: 11759
diff changeset
  1480
		end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1481
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1482
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1483
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1484
-- [Set weapon]/[Slot X]: Just update internal stuff
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1485
onSetWeapon = HandleConstructionModeTools()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1486
onSlot = onSetWeapon
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1487
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1488
----------------------------
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1489
-- standard event handlers
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1490
----------------------------
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1491
11720
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1492
-- Parses a positive integer
12092
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1493
function parseInt(str, default, infinityPermitted)
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1494
	if str == "inf" and infinityPermitted then
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1495
		return "inf"
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1496
	end
11720
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1497
	if str == nil then return default end
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1498
	local s = string.match(str, "(%d*)")
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1499
	if s ~= nil then
11728
373150be0356 Construction Mode: Sanity-check numbers from script parameter
Wuzzy <almikes@aol.com>
parents: 11727
diff changeset
  1500
		return math.min(4294967295, math.max(0, tonumber(s)))
11720
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1501
	else
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1502
		return nil
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1503
	end
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1504
end
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1505
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1506
-- Parse parameters
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1507
function onParameters()
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1508
	parseParams()
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1509
	conf_initialEnergy = parseInt(params["initialenergy"], conf_initialEnergy)
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1510
	conf_energyPerRound = parseInt(params["energyperround"], conf_energyPerRound)
12092
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1511
	conf_maxEnergy = parseInt(params["maxenergy"], conf_maxEnergy, true)
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1512
	conf_cratesPerRound = parseInt(params["cratesperround"], conf_cratesPerRound, true)
11720
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1513
end
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1514
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1515
function onGameInit()
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1516
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1517
	Explosives = 0
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1518
	MinesNum = 0
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1519
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1520
	EnableGameFlags(gfInfAttack)
12093
0d6e0ed36c9e Construction Mode: Fix free girder/rubber placement near hog
Wuzzy <almikes@aol.com>
parents: 12092
diff changeset
  1521
	-- This is a hack to make sure all girder/rubber placement is handled by Construction Mode to overwrite the default behaviour
0d6e0ed36c9e Construction Mode: Fix free girder/rubber placement near hog
Wuzzy <almikes@aol.com>
parents: 12092
diff changeset
  1522
	SetMaxBuildDistance(1)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1523
11881
34ede05e4d4f Remove old Fort Mode from frontend
Wuzzy <almikes@aol.com>
parents: 11762
diff changeset
  1524
	fortMode = MapGen == mgForts
11733
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1525
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1526
	-- if there are forts, let engine place the hogs on them
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1527
	if fortMode then
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1528
		EnableGameFlags(gfDivideTeams)
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1529
	end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1530
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1531
	RedefineSubset()
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1532
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1533
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1534
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1535
function initialSetup(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1536
11733
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1537
	-- engine already placed hogs in fort mode
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1538
	if not fortMode then
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1539
		FindPlace(gear, false, clanBoundsSX[GetHogClan(gear)], clanBoundsEX[GetHogClan(gear)],true)
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1540
	end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1541
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1542
	-- for now, everyone should have this stuff
12941
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
  1543
	AddAmmo(gear, amCMStructurePlacer, 100)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1544
	AddAmmo(gear, amSwitch, 100)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1545
	AddAmmo(gear, amSkip, 100)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1546
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1547
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1548
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1549
function onGameStart()
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1550
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1551
	trackTeams()
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1552
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1553
	ShowMission	(
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1554
				loc("CONSTRUCTION MODE"),
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1555
				loc("a Hedgewars mini-game"),
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1556
				loc("Build a fortress and destroy your enemy.") .. "|" ..
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1557
				loc("There are a variety of structures available to aid you.") .. "|" ..
11942
abdb24f0c2d9 Change descriptions for special Construction Mode tools
Wuzzy <almikes@aol.com>
parents: 11881
diff changeset
  1558
				loc("Use the structure placer to place structures.")
11725
3444792e8ebe Construction Mode: Remove 2 useless blank lines in mission panel
Wuzzy <almikes@aol.com>
parents: 11724
diff changeset
  1559
				, 4, 5000
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1560
				)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1561
12941
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
  1562
	SetAmmoTexts(amCMStructurePlacer, loc("Structure Placer"), loc("Construction Mode tool"), loc("Build one of multiple different structures|to aid you in victory, at the cost of energy.") .. "| |" ..
12943
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1563
	loc("Support Station: Allows placement of crates.") .. "|"..
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1564
	loc("Construction Station: Allows placement of|    girders, rubber, mines, sticky mines|    and barrels.")  .. "|" ..
11942
abdb24f0c2d9 Change descriptions for special Construction Mode tools
Wuzzy <almikes@aol.com>
parents: 11881
diff changeset
  1565
	loc("Healing Station: Heals nearby hogs.")  .. "|" ..
12943
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1566
	loc("Teleportation Node: Allows teleportation|    between other nodes.")  .. "|" ..
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1567
	loc("Weapon Filter: Dematerializes all ammo|    carried by enemies entering it.")  .. "|" ..
11942
abdb24f0c2d9 Change descriptions for special Construction Mode tools
Wuzzy <almikes@aol.com>
parents: 11881
diff changeset
  1568
	loc("Bio-Filter: Aggressively removes enemies.")  .. "|" ..
abdb24f0c2d9 Change descriptions for special Construction Mode tools
Wuzzy <almikes@aol.com>
parents: 11881
diff changeset
  1569
	loc("Reflector Shield: Reflects enemy projectiles.")  .. "|" ..
abdb24f0c2d9 Change descriptions for special Construction Mode tools
Wuzzy <almikes@aol.com>
parents: 11881
diff changeset
  1570
	loc("Respawner: Resurrects dead hogs.")  .. "|" ..
12942
ca23981ec219 Add a few key shortcuts in Costruction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 12941
diff changeset
  1571
	loc("Generator: Generates energy.")  .. "|" ..
12943
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1572
	" |" ..
11942
abdb24f0c2d9 Change descriptions for special Construction Mode tools
Wuzzy <almikes@aol.com>
parents: 11881
diff changeset
  1573
12942
ca23981ec219 Add a few key shortcuts in Costruction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 12941
diff changeset
  1574
	loc("Left/right: Choose structure type").."|"..
ca23981ec219 Add a few key shortcuts in Costruction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 12941
diff changeset
  1575
	loc("1-5, Precise + 1-4: Choose structure type").."|"..
ca23981ec219 Add a few key shortcuts in Costruction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 12941
diff changeset
  1576
	loc("Cursor: Build structure"))
11942
abdb24f0c2d9 Change descriptions for special Construction Mode tools
Wuzzy <almikes@aol.com>
parents: 11881
diff changeset
  1577
12092
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1578
	local txt_crateLimit = ""
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1579
	if conf_cratesPerRound ~= "inf" then
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1580
		txt_crateLimit = string.format(loc("You may only place %d crates per round."), conf_cratesPerRound) .. "|"
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1581
	end
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1582
12941
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12940
diff changeset
  1583
	SetAmmoTexts(amCMCratePlacer, loc("Crate Placer"), loc("Construction Mode tool"),
12092
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1584
		loc("This allows you to create a crate anywhere|within your clan's area of influence,|at the cost of energy.") .. "|" ..
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1585
		txt_crateLimit ..
12943
3feab46234dd Construction Mode: Sort structure types roughly by importance and convenience
Wuzzy <Wuzzy2@mail.ru>
parents: 12942
diff changeset
  1586
		loc("Up/down: Choose crate type") .. "|" ..
12092
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1587
		loc("Left/right: Choose crate contents") .. "|" ..
9fe7eb1f7df2 Construction Mode: Turn crate limit into a script parameter
Wuzzy <almikes@aol.com>
parents: 12091
diff changeset
  1588
		loc("|Cursor: Place crate"))
12942
ca23981ec219 Add a few key shortcuts in Costruction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 12941
diff changeset
  1589
	SetAmmoTexts(amCMObjectPlacer, loc("Object Placer"), loc("Construction Mode tool"),
ca23981ec219 Add a few key shortcuts in Costruction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 12941
diff changeset
  1590
		loc("This allows you to create and place mines,|sticky mines and barrels anywhere within your|clan's area of influence at the cost of energy.").."|"..
ca23981ec219 Add a few key shortcuts in Costruction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 12941
diff changeset
  1591
		loc("Up/down: Choose object type|1-5/Switch/Left/Right: Choose mine timer|Cursor: Place object")
ca23981ec219 Add a few key shortcuts in Costruction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 12941
diff changeset
  1592
	)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1593
12336
fbc268170015 Construction Mode: Mention teleportation restriction in tooltip
Wuzzy <almikes@aol.com>
parents: 12214
diff changeset
  1594
	SetAmmoDescriptionAppendix(amTeleport, loc("It only works in teleportation nodes of your own clan."))
fbc268170015 Construction Mode: Mention teleportation restriction in tooltip
Wuzzy <almikes@aol.com>
parents: 12214
diff changeset
  1595
	
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1596
	sCirc = AddVisualGear(0,0,vgtCircle,0,true)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1597
	SetVisualGearValues(sCirc, 0, 0, 100, 255, 1, 10, 0, 40, 3, 0x00000000)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1598
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1599
	for i = 0, ClansCount-1 do
11982
6f4b96669f9d Fix Construction Mode screwing up when initialenergy > maxenergy
Wuzzy <almikes@aol.com>
parents: 11981
diff changeset
  1600
		clanPower[i] = math.min(conf_initialEnergy, conf_maxEnergy)
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1601
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1602
		clanUsedExtraTime[i] = false
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1603
		clanCratesSpawned[i] = 0
11721
8c1a30d4cbc8 Construction Mode: Fix giving round energy boost at first round
Wuzzy <almikes@aol.com>
parents: 11720
diff changeset
  1604
		clanFirstTurn[i] = true
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1605
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1606
	end
12944
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1607
	for i = 0, TeamsCount-1 do
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1608
		local team = GetTeamName(i)
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1609
		teamLStructIndex[team] = 1
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1610
		teamLObjectMode[team] = "Mine Placement Mode"
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1611
		teamLCrateMode[team] = "Weapon Crate Placement Mode"
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1612
		teamLMineIndex[team] = 1
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1613
		teamLWeapIndex[team] = 1
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1614
		teamLUtilIndex[team] = 1
712ae7ff8c3d Construction Mode: Remember previous selection of pIndex
Wuzzy <Wuzzy2@mail.ru>
parents: 12943
diff changeset
  1615
	end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1616
12949
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
  1617
	local tMapWidth = RightX - LeftX
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
  1618
	local tMapHeight = WaterLine - TopY
4fa79a6a1883 Localize various Construction Mode vars
Wuzzy <Wuzzy2@mail.ru>
parents: 12948
diff changeset
  1619
	local clanInterval = div(tMapWidth,ClansCount)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1620
11733
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1621
	-- define construction areas for each clan
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1622
	-- if there are forts-based spawn locations, adjust areas around them
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1623
	for i = 0, ClansCount-1 do
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1624
		local slot
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1625
		if fortMode then
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1626
			slot = div(GetX(getFirstHogOfClan(i))-LeftX,clanInterval)
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1627
		else
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1628
			slot = i
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1629
		end
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1630
11733
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1631
		local color = GetClanColor(i)
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1632
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1633
		clanBoundsSX[i] = LeftX+(clanInterval*slot)+20
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1634
		clanBoundsSY[i] = TopY
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1635
		clanBoundsEX[i] = LeftX+(clanInterval*slot)+clanInterval-20
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1636
		clanBoundsEY[i] = WaterLine
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1637
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1638
		--top and bottom
11733
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1639
		AddWall(LeftX+(clanInterval*slot),TopY,clanInterval,margin,color)
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1640
		AddWall(LeftX+(clanInterval*slot),WaterLine-25,clanInterval,margin,color)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1641
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1642
		--add a wall to the left and right
11733
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1643
		AddWall(LeftX+(clanInterval*slot)+20,TopY,margin,WaterLine,color)
67049c8dedd1 make construction mode work with fort mode without mixing up clans and forts
sheepluva
parents: 11732
diff changeset
  1644
		AddWall(LeftX+(clanInterval*slot)+clanInterval-20,TopY,margin,WaterLine,color)
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1645
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1646
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1647
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1648
	runOnHogs(initialSetup)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1649
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1650
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1651
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1652
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1653
function onNewTurn()
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1654
12945
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1655
	curWep = GetCurAmmoType()
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1656
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1657
	HandleConstructionModeTools()
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1658
11720
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1659
	local clan = GetHogClan(CurrentHedgehog)
11721
8c1a30d4cbc8 Construction Mode: Fix giving round energy boost at first round
Wuzzy <almikes@aol.com>
parents: 11720
diff changeset
  1660
	if clanFirstTurn[clan] then
8c1a30d4cbc8 Construction Mode: Fix giving round energy boost at first round
Wuzzy <almikes@aol.com>
parents: 11720
diff changeset
  1661
		clanFirstTurn[clan] = false
8c1a30d4cbc8 Construction Mode: Fix giving round energy boost at first round
Wuzzy <almikes@aol.com>
parents: 11720
diff changeset
  1662
	else
8c1a30d4cbc8 Construction Mode: Fix giving round energy boost at first round
Wuzzy <almikes@aol.com>
parents: 11720
diff changeset
  1663
		clanPower[clan] = clanPower[clan] + conf_energyPerRound
11728
373150be0356 Construction Mode: Sanity-check numbers from script parameter
Wuzzy <almikes@aol.com>
parents: 11727
diff changeset
  1664
		if conf_maxEnergy ~= "inf" and clanPower[clan] > conf_maxEnergy then
11721
8c1a30d4cbc8 Construction Mode: Fix giving round energy boost at first round
Wuzzy <almikes@aol.com>
parents: 11720
diff changeset
  1665
			clanPower[clan] = conf_maxEnergy
8c1a30d4cbc8 Construction Mode: Fix giving round energy boost at first round
Wuzzy <almikes@aol.com>
parents: 11720
diff changeset
  1666
		end
11720
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1667
	end
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1668
	clanUsedExtraTime[clan] = false
5cb2f245ee2f Add script parameter support to Construction Mode
Wuzzy <almikes@aol.com>
parents: 11719
diff changeset
  1669
	clanCratesSpawned[clan] = 0
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1670
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1671
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1672
function onEndTurn()
12945
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1673
	curWep = amNothing
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1674
	HandleConstructionModeTools()
12945
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1675
end
0e698562d76d More Construction Mode refactoring
Wuzzy <Wuzzy2@mail.ru>
parents: 12944
diff changeset
  1676
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1677
function onGameTick()
12946
1a1a514aef2e Construction Mode: Each team remembers its selections now
Wuzzy <Wuzzy2@mail.ru>
parents: 12945
diff changeset
  1678
	HandleConstructionMode()
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1679
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1680
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1681
function onScreenResize()
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1682
	-- redraw Tags so that their screen locations are updated
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1683
	if (CurrentHedgehog ~= nil) then
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1684
		DrawClanPowerTag()
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1685
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1686
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1687
12948
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1688
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1689
function onGearResurrect(gear)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1690
	AddVisualGear(GetX(gear), GetY(gear), vgtExplosion, 0, false)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1691
	FindRespawner(gear)
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1692
end
f85a040d0350 Refactor Construction Mode code (delete old comments, move code around. NO functional changes)
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
  1693
11015
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1694
-- track hedgehogs and placement gears
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1695
function onGearAdd(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1696
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1697
	if GetGearType(gear) == gtHedgehog then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1698
	elseif (GetGearType(gear) == gtAirAttack) or (GetGearType(gear) == gtTeleport) or (GetGearType(gear) == gtGirder) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1699
		cGear = gear
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1700
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1701
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1702
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1703
	if isATrackedGear(gear) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1704
		trackGear(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1705
	elseif gearCanBeDeflected(gear) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1706
		trackGear(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1707
		setGearReflectionValues(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1708
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1709
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1710
end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1711
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1712
function onGearDelete(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1713
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1714
	if GetGearType(gear) == gtTarget then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1715
		CheckGearForStructureLink(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1716
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1717
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1718
	if (GetGearType(gear) == gtAirAttack) or (GetGearType(gear) == gtTeleport) or (GetGearType(gear) == gtGirder) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1719
		cGear = nil
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1720
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1721
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1722
	if (isATrackedGear(gear) or gearCanBeDeflected(gear)) then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1723
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1724
		if getGearValue(gear, "tCirc") ~= nil then
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1725
			DeleteVisualGear(getGearValue(gear, "tCirc"))
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1726
		end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1727
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1728
		trackDeletion(gear)
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1729
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1730
	end
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1731
7a905f0070ce CRLF purge
nemo
parents: 10897
diff changeset
  1732
end