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