share/hedgewars/Data/Scripts/Multiplayer/HedgeEditor.lua
author Wuzzy <Wuzzy2@mail.ru>
Fri, 07 Jun 2019 15:09:42 +0200
changeset 15135 13e7d4eccb67
parent 15093 9aa1ab824ec7
child 15247 0986513cd6e1
permissions -rw-r--r--
CTF/Control: Fix incomplete hedgehog loop bounds
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
12651
28183c98a3a9 Clean up internal HedgeEditor TODO list
Wuzzy <almikes@aol.com>
parents: 12632
diff changeset
     1
-----------------------------------------------------------
28183c98a3a9 Clean up internal HedgeEditor TODO list
Wuzzy <almikes@aol.com>
parents: 12632
diff changeset
     2
--- HEDGE EDITOR (for use with Hedgewars 0.9.22 and up) ---
28183c98a3a9 Clean up internal HedgeEditor TODO list
Wuzzy <almikes@aol.com>
parents: 12632
diff changeset
     3
-----------------------------------------------------------
28183c98a3a9 Clean up internal HedgeEditor TODO list
Wuzzy <almikes@aol.com>
parents: 12632
diff changeset
     4
-- A not-so-horrible mission editor.
28183c98a3a9 Clean up internal HedgeEditor TODO list
Wuzzy <almikes@aol.com>
parents: 12632
diff changeset
     5
-- Place gears like a boss!
28183c98a3a9 Clean up internal HedgeEditor TODO list
Wuzzy <almikes@aol.com>
parents: 12632
diff changeset
     6
28183c98a3a9 Clean up internal HedgeEditor TODO list
Wuzzy <almikes@aol.com>
parents: 12632
diff changeset
     7
-- Original author: mikade
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
     8
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
     9
-- feel free to shower me with your adoration and/or hate mail
13511
36f3f77e9b1b Switch from http:// to https:// URLs where possible
Wuzzy <Wuzzy2@mail.ru>
parents: 13467
diff changeset
    10
-- more info can be found at https://hedgewars.org/HedgeEditor
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    11
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    12
-- special thanks to nemo, unC0Rr, sheepluva and koda for their assistance
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    13
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    14
---------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    15
-- GETTING STARTED (for best results!)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    16
---------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    17
-- create a weaponset that has NO DELAYS on any weapons, and that gives you 1 ammo per crate
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    18
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    19
-- (optional) copy GameLogExtractor.html, jquery-1.js
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    20
-- into your Documents/Hedgewars/Logs folder
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    21
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    22
-- (optional) copy hwpmapconverter somewhere easily accessible
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    23
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    24
-- (optional) profit??
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    25
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    26
---------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    27
-- CORE FEATURES as of latest version
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    28
---------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    29
-- togglable help (press PRECISE + 1, while you have a tool (e.g. airstrike) selected)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    30
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    31
-- place girders, rubberbands and custom sprites anywhere on the map.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    32
-- the above objects may be destructible, indestructible, icy, or bouncy.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    33
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    34
-- place mines, sticky mines, air mines, barrels, weapon crates, utility crates,
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    35
-- health crates, targets, and cleavers anywhere on the map.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    36
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    37
-- select, reposition, modify, or delete placed objects.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    38
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    39
-- read in data from a previously generated map and allow the map to be edited/saved again
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    40
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    41
-- contextual cursor and menu graphics
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    42
-- placement sounds that are slightly more soothing
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    43
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    44
-- upon saving, all level data will be output to logs/game0.log.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    45
-- game0.log also includes a lot of other data so if you only want to see the relevant lines of code
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    46
-- you can use GameLogExtractor.html to extract and prune the log into a cleaner form of data,
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    47
-- specifically: either as an automagically generated template mission, just core data, or hwmap points.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    48
-- from there, please copy and paste any lines relevant to your interest into an existing
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    49
-- (or totally empty!) script and edit them according to taste.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    50
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    51
--------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    52
-- MODE SPECIFIC SUPPORT
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    53
--------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    54
-- FOR CUSTOM MISSIONS/CAMPAIGN LEVELS:
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    55
-- the names/hats/flags/voices/graves of any teams/hogs that you use to play this script can be saved,
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    56
-- as can (most of) the settings from your scheme and weapons selection.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    57
-- HOWEVER, you can also use the 'hog identity' tool to give hogs preset names/hats/weapons/health
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    58
-- or use the 'team identity' tool to give an entire team themed names/hats.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    59
-- give hogs differing health by using the health modification tool
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    60
-- create goals by tagging gears with victory/defeat/collection markers (somewhat implemented)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    61
-- flavor text, as well as victory/defeat conditions will be generated based on these tags.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    62
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    63
-- SHOPPA BALANCE / CONSTRUCTION MODE (partial and/or possibly decremented):
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    64
-- Press 1-5 while repositioning hogs with the reposition tool to assign them (their position) a rank.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    65
-- This value will be expressed as a colour that is intended to represent how "good" or "bad"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    66
-- a position on the map is. These ranks/points will be output along with other game data to game0.log
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    67
-- This data could be pasted into the ShoppaBalance script to create balances for additional maps.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    68
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    69
-- TECH RACER / HEDGE EDITOR / POINT INTERPRETER:
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    70
-- place/remove waypoints/special points
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    71
-- use the ScriptParameter in the frontend scheme editor to set additional options, e.g.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    72
-- ufoFuel=1000 (Flying Saucer will start with half the normal fuel. A value of 2000 is infinite fuel)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    73
-- portalDistance=15 (This is the distance portals can travel before fizzling)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    74
-- m=3 (load a particular map from the map library of Data/Scripts/TechMaps
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    75
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    76
-- when saving data, points for conversion to HWMAP are also generated and placed inside block comments.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    77
-- copy paste/these points at the START of a converted HWMAP and then convert the map back to HWMAP format.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    78
-- following the above procedure it is then possible to load the map in frontend and play it using a
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    79
-- script like TechRacer (or HedgeEditor itself) that can interpret the points using InterpretPoints()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    80
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    81
---------------------------------------
12651
28183c98a3a9 Clean up internal HedgeEditor TODO list
Wuzzy <almikes@aol.com>
parents: 12632
diff changeset
    82
-- MIKADE'S DISCLAIMER
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    83
---------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    84
-- well, I really just made this for myself, so it's usage might be a little complicated for others.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    85
-- it also probably has a million errors, and has grown rather bloated over time due to the addition of
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    86
-- more and more features that my initial design didn't take into account.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    87
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    88
-- anyway, I've tried to make it more user-friendly by including more comments and gradually adding
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    89
-- some basic guidelines such as those listed above, and also the in-game Help displays for each tool.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    90
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    91
-----------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    92
-- GIANT "TO DO" LIST / OTHER NOTES
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    93
-----------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    94
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    95
-- try to prune waypoint list and portal/ufo fuel in the mission template
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    96
-- for gamelog extractor
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    97
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    98
-- I should probably check if there are tagged gears on save
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
    99
-- and if there are enable gfOneClanMode so that user can't
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   100
-- just destroy all hogs to win map.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   101
-- (what happens if we lose all our hogs?)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   102
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   103
-- I might be able to make the flavor text even better (assassinate hogName) by
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   104
-- checking if there is only 1 hog, etc.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   105
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   106
-- possibly try show landflag addcaption constantly like we do for superdelete when
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   107
-- using girders / rubbers.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   108
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   109
-- How about a weapons profile tool that is used with team ammo
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   110
-- and then hog identity tool would only be available if gfPerHogAmmo is set
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   111
12651
28183c98a3a9 Clean up internal HedgeEditor TODO list
Wuzzy <almikes@aol.com>
parents: 12632
diff changeset
   112
-- [high]       check if we lose a mission when the enemy collects our crate (we should)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   113
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   114
-- [high] 	waypoints don't reload yet
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   115
12651
28183c98a3a9 Clean up internal HedgeEditor TODO list
Wuzzy <almikes@aol.com>
parents: 12632
diff changeset
   116
-- [high] 	add missing ammo types as they appear
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   117
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   118
-- [med] 	add a limited form of save/load within level before mass-output
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   119
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   120
-- [med]	maybe incorporate portal effects / ufo tracking into the template generated script if
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   121
-- 			you want the missions to use it
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   122
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   123
-- [med]	improve ammo handling (if possible, take more scheme settings into account)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   124
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   125
-- [low] 	break up the division of labor of the tools into airstrike, minestrike, napalm, etc.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   126
			--[[
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   127
			girder =		"Girder Placement Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   128
			rubber =		"Rubber Placement Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   129
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   130
			airstrike =		(target sprite) (gear placement)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   131
							"Mine Placement Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   132
							"Sticky Mine Placement Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   133
							"Air Mine Placement Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   134
							"Barrel Placement Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   135
							"Target Placement Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   136
							"Cleaver Placement Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   137
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   138
			drillstrike =	crate sprite (crate placement mode)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   139
							"Health Crate Placement Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   140
							"Weapon Crate Placement Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   141
							"Utility Crate Placement Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   142
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   143
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   144
			napalm =		arrow sprite (selection/modification/deletion mode)
12002
6a67e76d0f1d HedgeEditor: Better naming and explanation of tagging mode and advanced repositioning mode
Wuzzy <almikes@aol.com>
parents: 12001
diff changeset
   145
							"Repositioning Mode",  -- also include a delete
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
   146
							"Goal Editing Mode",
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   147
							"Hog Identity Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   148
							"Team Identity Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   149
							"Health Modification Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   150
							"Sprite Testing Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   151
							"Sprite Modification Mode",
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   152
							"Sprite Placement Mode",
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
   153
							"Waypoint Editing Mode"
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   154
							}]]
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   155
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   156
-- [low]	improve support for ShoppaBalance and ConstructionMode, see ranking)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   157
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   158
-- [low]	eventually incorporate scripted structures into the editor / mission mode
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   159
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   160
-- [low] 	some kind of support for single team training missions
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   161
-- 			we could possibly add gfOneClanMode and kill the other team we're playing with?
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   162
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   163
-- [never?] more detailed goal tagging and multi-stage triggers
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   164
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   165
-- [never?]	add a pulsing glow thing for sprites you have selected,
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   166
--			kind of like the invaders in SpaceInvader (currently they are just displayed as purple)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   167
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   168
-- [never?]	add GUIs for editing ammo, init settings, additional gear attributes
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   169
-- 			perhaps using precise with timer to enable/disable certain features
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   170
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   171
--[[ gui menu ideas that have long since been abandoned
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   172
INITIALISATION MENU
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   173
	--gameFlags, etc
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   174
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   175
	Map
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   176
	Theme
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   177
	TurnTime
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   178
	Explosives
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   179
	MinesNum
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   180
	CaseFreq
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   181
	Delay
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   182
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   183
	HealthCaseProb
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   184
	HealthCaseAmount
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   185
	DamagePercent
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   186
	MinesTime
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   187
	MineDudPercent
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   188
	SuddenDeathTurns
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   189
	WaterRise
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   190
	HealthDecrease
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   191
HOG MENU
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   192
	health
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   193
	name (can be randomly generated from the list of hog names already in localisation)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   194
	poisoned (true/false)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   195
	hat
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   196
	hog level?
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   197
TEAM MENU
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   198
	name (can be randomly generated as above?) should there be an array of teams with an array of names
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   199
	colour
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   200
	grave
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   201
	fort
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   202
	voicepack
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   203
	flag
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   204
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   205
-- this below stuff is less important
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   206
STICKY MINE MENU
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   207
	timer?
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   208
MINE MENU
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   209
	timer / dud
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   210
MEDKIT MENU / EXPLOSIVE MENU
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   211
	health amount
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   212
WEP AND UTIL CRATE MENU
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   213
	contents
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   214
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   215
----------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   216
-- MAP IDEAS
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   217
----------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   218
-- try to create a portal race (limit portal distance)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   219
-- for portal race, include barriers that you need to drill shoot through to get lazer site crates
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   220
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   221
-- try make a map that uses sinegun to jump between bouncy boxes (not easy until we get better control over landflags)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   222
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   223
-- how about a mission where you have to trap / freeze all the enemy hogs
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   224
-- and aren't allowed to kill them?
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   225
-- can set it on the islands map.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   226
-- landgun
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   227
-- girder
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   228
-- mudball
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   229
-- hammer
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   230
-- seduction? (call a hog who has firepunch into a ditch
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   231
-- icegun (do this so you can freeze guys in an area and then blowtorch/explode an obstacle)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   232
-- jump across a bridge that has been mined and then bat the enemy to the other side.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   233
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   234
-- possibly the same as part of the above, possibly different, what about a heist mission
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   235
-- the objective is to steal 3 enemy crates
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   236
-- the first one you have to fall through an invul tunnel of sticky mines and then parachute.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   237
-- the second one you have to drill rocket / portal.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   238
-- the third one you have to underwater ufo into, but only after opening it up with an underwater bee.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   239
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   240
]]
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   241
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   242
---------------------------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   243
-- HEDGE EDITOR, SCRIPT BEGINS (Hey yo, it's about time)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   244
---------------------------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   245
11642
45316b6eb4a0 Fix broken HedgeEditor map preview
Wuzzy <almikes@aol.com>
parents: 11037
diff changeset
   246
-- Tell other scripts that we exist
45316b6eb4a0 Fix broken HedgeEditor map preview
Wuzzy <almikes@aol.com>
parents: 11037
diff changeset
   247
HedgeEditor = true
45316b6eb4a0 Fix broken HedgeEditor map preview
Wuzzy <almikes@aol.com>
parents: 11037
diff changeset
   248
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   249
HedgewarsScriptLoad("/Scripts/Locale.lua")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   250
HedgewarsScriptLoad("/Scripts/Tracker.lua")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   251
HedgewarsScriptLoad("/Scripts/Params.lua")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   252
HedgewarsScriptLoad("/Scripts/TechMaps.lua")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   253
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
   254
-- Fake ammo type for the gear placement tool
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
   255
local amCMGearPlacementTool = amAirAttack
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
   256
12334
f88eebcf22c5 HedgeEditor: Fix incorrect preview of air attack icon in sprAMAmmos/sprAMAmmosBW
Wuzzy <almikes@aol.com>
parents: 12333
diff changeset
   257
-- Special frames in Ammos.png/Ammos_bw.png
f88eebcf22c5 HedgeEditor: Fix incorrect preview of air attack icon in sprAMAmmos/sprAMAmmosBW
Wuzzy <almikes@aol.com>
parents: 12333
diff changeset
   258
local ammoFrameAirAttack = 63
f88eebcf22c5 HedgeEditor: Fix incorrect preview of air attack icon in sprAMAmmos/sprAMAmmosBW
Wuzzy <almikes@aol.com>
parents: 12333
diff changeset
   259
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
   260
-- Caption colors
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
   261
local colorErrorMessage = 0xFFFFFFFF
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
   262
local colorInfoMessage = 0xFFFFFFFF
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
   263
local colorPlaceMode1 = 0xFFBA00FF -- Main placement mode
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
   264
local colorPlaceMode2 = 0xFFDE85FF -- Secondary mode
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
   265
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   266
-----------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   267
-- tracking vars for save/load purposes
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   268
-----------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   269
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   270
local teamCounter = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   271
local lastRecordedTeam = ""
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   272
local hhs = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   273
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   274
local waypointList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   275
local girderList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   276
local rubberList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   277
local spriteList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   278
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   279
local mineList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   280
local sMineList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   281
local airMineList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   282
local targetList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   283
local knifeList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   284
local explosivesList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   285
local healthCrateList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   286
local wepCrateList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   287
local utilCrateList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   288
local hogDataList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   289
local AIHogDataList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   290
local hFlagList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   291
local previewDataList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   292
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   293
local shoppaPointList = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   294
local shoppaPX = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   295
local shoppaPY = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   296
local shoppaPR = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   297
12028
ba71454538d0 HedgeEditor: Show tags for gear timers and health
Wuzzy <almikes@aol.com>
parents: 12027
diff changeset
   298
-- Misc. state variables
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
   299
local hedgeEditorMissionPanelShown = false
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
   300
13038
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
   301
local tagCursorX, tagCursorY
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
   302
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   303
---------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   304
-- crates are made of this stuff
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   305
---------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   306
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   307
local atkArray =
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   308
				{
12033
cfc2f087dccf HedgeEditor: Make landgun spawn in utility crates and sort list of ammo types to reflect the ammo menu ordering
Wuzzy <almikes@aol.com>
parents: 12032
diff changeset
   309
12332
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   310
				{amBazooka, 	"amBazooka"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   311
				{amBee, 	"amBee"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   312
				{amMortar, 	"amMortar"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   313
				{amDrill, 	"amDrill"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   314
				{amSnowball, 	"amSnowball"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   315
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   316
				{amGrenade,	"amGrenade"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   317
				{amClusterBomb,	"amClusterBomb"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   318
				{amWatermelon, 	"amWatermelon"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   319
				{amHellishBomb,	"amHellishBomb"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   320
				{amMolotov, 	"amMolotov"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   321
				{amGasBomb, 	"amGasBomb"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   322
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   323
				{amShotgun,	"amShotgun"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   324
				{amDEagle,	"amDEagle"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   325
				{amSniperRifle,	"amSniperRifle"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   326
				{amSineGun, 	"amSineGun"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   327
				{amFlamethrower,"amFlamethrower"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   328
				{amIceGun, 	"amIceGun"},
12961
89930daecaab Add minigun to scripts. Also add a few missing ammos to BRW and RW
Wuzzy <Wuzzy2@mail.ru>
parents: 12946
diff changeset
   329
				{amMinigun, 	"amMinigun"},
12332
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   330
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   331
				{amFirePunch, 	"amFirePunch"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   332
				{amWhip,	"amWhip"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   333
				{amBaseballBat, "amBaseballBat"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   334
				{amKamikaze, 	"amKamikaze"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   335
				{amSeduction, 	"amSeduction"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   336
				{amHammer,	"amHammer"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   337
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   338
				{amMine, 	"amMine"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   339
				{amDynamite, 	"amDynamite"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   340
				{amCake, 	"amCake"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   341
				{amBallgun, 	"amBallgun"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   342
				{amRCPlane,	"amRCPlane"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   343
				{amSMine,	"amSMine"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   344
12334
f88eebcf22c5 HedgeEditor: Fix incorrect preview of air attack icon in sprAMAmmos/sprAMAmmosBW
Wuzzy <almikes@aol.com>
parents: 12333
diff changeset
   345
				{amAirAttack,	"amAirAttack", ammoFrameAirAttack}, -- overwritten icon in Ammos.png
12332
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   346
				{amMineStrike,	"amMineStrike"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   347
				{amNapalm, 	"amNapalm"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   348
				{amPiano,	"amPiano"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   349
				{amDrillStrike,	"amDrillStrike"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   350
				{amAirMine,	"amAirMine"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   351
12362
ae6503e17764 HedgeEditor: Fix blow torch / pick hammer in wrong crate type
Wuzzy <almikes@aol.com>
parents: 12361
diff changeset
   352
				{amPickHammer,	"amPickHammer"},
ae6503e17764 HedgeEditor: Fix blow torch / pick hammer in wrong crate type
Wuzzy <almikes@aol.com>
parents: 12361
diff changeset
   353
				{amBlowTorch, 	"amBlowTorch"},
12332
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   354
				{amKnife,	"amKnife"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   355
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   356
				{amBirdy,	"amBirdy"},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   357
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   358
				}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   359
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   360
local utilArray =
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   361
				{
12332
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   362
				{amGirder, 	"amGirder"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   363
				{amLandGun,	"amLandGun"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   364
				{amRubber, 	"amRubber"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   365
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   366
				{amRope, 	"amRope"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   367
				{amParachute, 	"amParachute"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   368
				{amTeleport,	"amTeleport"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   369
				{amJetpack,	"amJetpack"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   370
				{amPortalGun,	"amPortalGun"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   371
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   372
				{amInvulnerable,"amInvulnerable"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   373
				{amLaserSight,	"amLaserSight"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   374
				{amVampiric,	"amVampiric"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   375
				{amResurrector, "amResurrector"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   376
				{amTardis, 	"amTardis"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   377
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   378
				{amSwitch,	"amSwitch"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   379
				{amLowGravity, 	"amLowGravity"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   380
				{amExtraDamage, "amExtraDamage"},
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
   381
				{amExtraTime,	"amExtraTime"},
12033
cfc2f087dccf HedgeEditor: Make landgun spawn in utility crates and sort list of ammo types to reflect the ammo menu ordering
Wuzzy <almikes@aol.com>
parents: 12032
diff changeset
   382
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   383
				}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   384
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   385
				--skiphog is 6
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   386
14350
ef7501d9935c HedgeEditor: No info tag for frozen sticky/air mines
Wuzzy <Wuzzy2@mail.ru>
parents: 14306
diff changeset
   387
local effectArray = { heInvulnerable, hePoisoned, heResurrectable, heResurrected, heFrozen, heArtillery }
ef7501d9935c HedgeEditor: No info tag for frozen sticky/air mines
Wuzzy <Wuzzy2@mail.ru>
parents: 14306
diff changeset
   388
local effectStr = { "heInvulnerable", "hePoisoned", "heResurrectable", "heResurrected", "heFrozen", "heArtillery" }
12652
f190ed9df875 HedgeEditor: Also save hog effects (e.g. poison) and looking direction
Wuzzy <almikes@aol.com>
parents: 12651
diff changeset
   389
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   390
----------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   391
-- hog and map editing junk
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   392
----------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   393
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   394
local preMadeTeam = 	{
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   395
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   396
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   397
				loc_noop("Clowns"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   398
				{"WhySoSerious","clown-copper","clown-crossed","clown","Joker"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   399
				{loc_noop("Baggy"),loc_noop("Bingo"),loc_noop("Bobo"),loc_noop("Bozo"),loc_noop("Buster"),loc_noop("Chester"),loc_noop("Copper"),loc_noop("Heckles"),loc_noop("Giggles"),loc_noop("Jingo"),loc_noop("Molly"),loc_noop("Loopy"),loc_noop("Patches"),loc_noop("Tatters")},
12054
030464f34d47 Tweak flags used in all missions to fit more to the theme
Wuzzy <almikes@aol.com>
parents: 12052
diff changeset
   400
				"R","cm_balls","Mobster","Rubberduck","Castle"
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   401
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   402
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   403
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   404
				loc_noop("Street Fighters"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   405
				{"sf_balrog","sf_blanka","sf_chunli","sf_guile","sf_honda","sf_ken","sf_ryu","sf_vega"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   406
				{loc_noop("Balrog"),loc_noop("Blanka"),loc_noop("Chunli"),loc_noop("Guile"),loc_noop("Honda"),loc_noop("Ken"),loc_noop("Ryu"),loc_noop("Vega")},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   407
				"F","cm_balrog","Surfer","dragonball","Castle"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   408
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   409
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   410
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   411
				loc_noop("Cybernetic Empire"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   412
				{"cyborg1","cyborg2"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   413
				{loc_noop("Unit 189"),loc_noop("Unit 234"),loc_noop("Unit 333"),loc_noop("Unit 485"),loc_noop("Unit 527"),loc_noop("Unit 638"),loc_noop("Unit 709"),loc_noop("Unit 883")},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   414
				"R","cm_binary","Robot","Grave","Castle"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   415
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   416
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   417
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   418
				loc_noop("Color Squad"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   419
				{"hair_blue","hair_green","hair_red","hair_yellow","hair_purple","hair_grey","hair_orange","hair_pink"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   420
				{loc_noop("Blue"),loc_noop("Green"),loc_noop("Red"),loc_noop("Yellow"),loc_noop("Purple"),loc_noop("Grey"),loc_noop("Orange"),loc_noop("Pink")},
12054
030464f34d47 Tweak flags used in all missions to fit more to the theme
Wuzzy <almikes@aol.com>
parents: 12052
diff changeset
   421
				"F","mauritius","Singer","Grave","Castle"
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   422
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   423
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   424
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   425
				loc_noop("Fruit"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   426
				{"fr_apple","fr_banana","fr_lemon","fr_orange","fr_pumpkin","fr_tomato"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   427
				{loc_noop("Juicy"),loc_noop("Squishy"),loc_noop("Sweet"),loc_noop("Sour"),loc_noop("Bitter"),loc_noop("Ripe"),loc_noop("Rotten"),loc_noop("Fruity")},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   428
				"R","cm_mog","Default","Cherry","Castle"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   429
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   430
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   431
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   432
				loc_noop("The Police"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   433
				{"bobby","bobby2v","policecap","policegirl","royalguard"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   434
				{loc_noop("Hightower"),loc_noop("Lassard"),loc_noop("Callahan"),loc_noop("Jones"),loc_noop("Harris"),loc_noop("Thompson"),loc_noop("Mahoney"),loc_noop("Hooks"),loc_noop("Tackleberry")},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   435
				"R","cm_star","British","Statue","Castle"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   436
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   437
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   438
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   439
				loc_noop("The Ninja-Samurai Alliance"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   440
				{"NinjaFull","NinjaStraight","NinjaTriangle","Samurai","StrawHat","StrawHatEyes","StrawHatFacial","naruto"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   441
				{loc_noop("Bushi"),loc_noop("Tatsujin"),loc_noop("Itami"),loc_noop("Arashi"),loc_noop("Shinobi"),loc_noop("Ukemi"),loc_noop("Godai"),loc_noop("Kenshi"),loc_noop("Ninpo")},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   442
				"R","japan","Default","octopus","Castle"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   443
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   444
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   445
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   446
				loc_noop("Pokémon"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   447
				{"poke_ash","poke_charmander","poke_chikorita","poke_jigglypuff","poke_lugia","poke_mudkip","poke_pikachu","poke_slowpoke","poke_squirtle","poke_voltorb"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   448
				{loc_noop("Ash"),loc_noop("Charmander"),loc_noop("Chikorita"),loc_noop("Jigglypuff"),loc_noop("Lugia"),loc_noop("Mudkip"),loc_noop("Pikachu"),loc_noop("Slowpoke"),loc_noop("Squirtle"),loc_noop("Voltorb")},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   449
				"FR","cm_pokemon","Default","pokeball","Castle"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   450
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   451
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   452
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   453
				loc_noop("The Zoo"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   454
				{"zoo_Bat","zoo_Beaver","zoo_Bunny","zoo_Deer","zoo_Hedgehog","zoo_Moose","zoo_Pig","zoo_Porkey","zoo_Sheep","zoo_chicken","zoo_elephant","zoo_fish","zoo_frog","zoo_snail","zoo_turtle"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   455
				{loc_noop("Batty"),loc_noop("Tails"),loc_noop("Bunny"),loc_noop("Deer"),loc_noop("Spikes"),loc_noop("Horns"),loc_noop("Bacon"),loc_noop("Porkey"),loc_noop("Sheepy"),loc_noop("Chicken"),loc_noop("Trunks"),loc_noop("Fishy"),loc_noop("Legs"),loc_noop("Slimer"),loc_noop("Roshi")},
12054
030464f34d47 Tweak flags used in all missions to fit more to the theme
Wuzzy <almikes@aol.com>
parents: 12052
diff changeset
   456
				"FR","cm_birdy","Default","Bone","Castle"
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   457
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   458
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   459
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   460
				loc_noop("The Devs"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   461
				{"ushanka","zoo_Sheep","bb_bob","Skull","poke_mudkip","lambda","WizardHat","sf_ryu","android","fr_lemon","mp3"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   462
				{loc_noop("unC0Rr"), loc_noop("sheepluva"), loc_noop("nemo"), loc_noop("mikade"), loc_noop("koda"), loc_noop("burp"),loc_noop("HeneK"),loc_noop("Tiyuri"),loc_noop("Xeli"),loc_noop("Displacer"),loc_noop("szczur")},
12054
030464f34d47 Tweak flags used in all missions to fit more to the theme
Wuzzy <almikes@aol.com>
parents: 12052
diff changeset
   463
				"FR","cm_hw","Classic","Statue","Castle"
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   464
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   465
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   466
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   467
				loc_noop("Mushroom Kingdom"),
12434
90e43d1bcd5b HedgeEditor: Add 2 names to Mushroom Kingdom team identidy to get a full set of 8 hogs
Wuzzy <almikes@aol.com>
parents: 12362
diff changeset
   468
				{"sm_daisy","sm_luigi","sm_mario","sm_peach","sm_toad","sm_wario","NoHat","NoHat"},
90e43d1bcd5b HedgeEditor: Add 2 names to Mushroom Kingdom team identidy to get a full set of 8 hogs
Wuzzy <almikes@aol.com>
parents: 12362
diff changeset
   469
				{loc_noop("Daisy"),loc_noop("Luigi"),loc_noop("Mario"),loc_noop("Princess Peach"),loc_noop("Toad"),loc_noop("Wario"),loc_noop("Yoshi"),loc_noop("Waluigi")},
12054
030464f34d47 Tweak flags used in all missions to fit more to the theme
Wuzzy <almikes@aol.com>
parents: 12052
diff changeset
   470
				"FR","comoros","Default","Badger","Castle"
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   471
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   472
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   473
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   474
				loc_noop("Pirates"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   475
				{"pirate_jack","pirate_jack_bandana"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   476
				{loc_noop("Rusted Diego"),loc_noop("Fuzzy Beard"),loc_noop("Al.Kaholic"),loc_noop("Morris"),loc_noop("Yumme Gunpowder"),loc_noop("Cutlass Cain"),loc_noop("Jim Morgan"),loc_noop("Silver"),loc_noop("Dubloon Devil"),loc_noop("Ugly Mug"),loc_noop("Fair Wind"),loc_noop("Scallywag"),loc_noop("Salty Dog"),loc_noop("Bearded Beast"),loc_noop("Timbers"),loc_noop("Both Barrels"),loc_noop("Jolly Roger")},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   477
				"R","cm_pirate","Pirate","chest","Castle"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   478
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   479
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   480
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   481
				loc_noop("Gangsters"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   482
				{"Moustache","Cowboy","anzac","Bandit","thug","Jason","NinjaFull","chef"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   483
				{loc_noop("The Boss"),loc_noop("Jimmy"),loc_noop("Frankie"),loc_noop("Morris"),loc_noop("Mooney"),loc_noop("Knives"),loc_noop("Tony"),loc_noop("Meals")},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   484
				"F","cm_anarchy","Mobster","deadhog","Castle"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   485
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   486
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   487
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   488
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   489
				loc_noop("Twenty-Twenty"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   490
				{"Glasses","lambda","SunGlasses","Sniper","Terminator_Glasses","Moustache_glasses","doctor","punkman","rasta"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   491
				{loc_noop("Specs"),loc_noop("Speckles"),loc_noop("Spectator"),loc_noop("Glasses"),loc_noop("Glassy"),loc_noop("Harry Potter"),loc_noop("Goggles"),loc_noop("Clark Kent"),loc_noop("Goggs"),loc_noop("Lightbender"),loc_noop("Specs Appeal"),loc_noop("Four Eyes")},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   492
				"R","cm_face","Default","eyecross","Castle"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   493
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   494
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   495
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   496
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   497
				loc_noop("Monsters"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   498
				{"Skull","Jason","ShaggyYeti","Zombi","cyclops","Mummy","hogpharoah","vampirichog"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   499
				{loc_noop("Bones"),loc_noop("Jason"),loc_noop("Yeti"),loc_noop("Zombie"),loc_noop("Old One Eye"),loc_noop("Ramesses"),loc_noop("Xerxes"),loc_noop("Count Hogula")},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   500
				"FR","cm_vampire","Default","octopus","Castle"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   501
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   502
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   503
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   504
				loc_noop("The Iron Curtain"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   505
				{"ushanka","war_sovietcomrade1","war_sovietcomrade1","ushanka"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   506
				{loc_noop("Alex"),loc_noop("Sergey"),loc_noop("Vladimir"),loc_noop("Andrey"),loc_noop("Dimitry"),loc_noop("Ivan"),loc_noop("Oleg"),loc_noop("Kostya"),loc_noop("Anton"),loc_noop("Eugene")},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   507
				"R","cm_soviet","Russian","skull","Castle"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   508
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   509
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   510
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   511
				loc_noop("Desert Storm"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   512
				{"war_desertofficer","war_desertgrenadier1","war_desertmedic","war_desertsapper1","war_desertgrenadier2","war_desertgrenadier4","war_desertsapper2","war_desertgrenadier5"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   513
				{loc_noop("Brigadier Briggs"),loc_noop("Lt. Luke"),loc_noop("Sgt. Smith"),loc_noop("Corporal Calvin"),loc_noop("Frank"),loc_noop("Joe"),loc_noop("Sam"),loc_noop("Donald")},
12054
030464f34d47 Tweak flags used in all missions to fit more to the theme
Wuzzy <almikes@aol.com>
parents: 12052
diff changeset
   514
				"F","bhutan","Default","Grave","Castle"
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   515
				},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   516
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   517
				{
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   518
				loc_noop("The Hospital"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   519
				{"doctor","nurse","war_britmedic","war_desertmedic","war_germanww2medic"},
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   520
				{loc_noop("Dr. Blackwell"),loc_noop("Dr. Drew"),loc_noop("Dr. Harvey"),loc_noop("Dr. Crushing"),loc_noop("Dr. Jenner"),loc_noop("Dr. Barnard"),loc_noop("Dr. Parkinson"),loc_noop("Dr. Banting"),loc_noop("Dr. Horace"),loc_noop("Dr. Hollows"),loc_noop("Dr. Jung")},
12054
030464f34d47 Tweak flags used in all missions to fit more to the theme
Wuzzy <almikes@aol.com>
parents: 12052
diff changeset
   521
				"R","cm_firstaid","Default","heart","Castle"
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   522
				}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   523
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   524
				}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   525
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   526
local preMadeTeamNamesTranslated = {}
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   527
local preMadeTeamNamesOriginal = {}
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   528
for i=1, #preMadeTeam do
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   529
	table.insert(preMadeTeamNamesOriginal, preMadeTeam[i][1])
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   530
	table.insert(preMadeTeamNamesTranslated, loc(preMadeTeam[i][1]))
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
   531
end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   532
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   533
local gameFlagList =	{
13667
841ad2ad341d Update list of supported GameFlags in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 13666
diff changeset
   534
			{"gfOneClanMode", false, gfOneClanMode},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   535
			{"gfMultiWeapon", false, gfMultiWeapon},
13667
841ad2ad341d Update list of supported GameFlags in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 13666
diff changeset
   536
			{"gfSolidLand", false, gfSolidLand},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   537
			{"gfBorder", false, gfBorder},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   538
			{"gfDivideTeams", false, gfDivideTeams},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   539
			{"gfLowGravity", false, gfLowGravity},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   540
			{"gfLaserSight", true, gfLaserSight},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   541
			{"gfInvulnerable", false, gfInvulnerable},
13667
841ad2ad341d Update list of supported GameFlags in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 13666
diff changeset
   542
			{"gfResetHealth", false, gfResetHealth},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   543
			{"gfVampiric", false, gfVampiric},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   544
			{"gfKarma", false, gfKarma},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   545
			{"gfArtillery", false, gfArtillery},
13667
841ad2ad341d Update list of supported GameFlags in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 13666
diff changeset
   546
			{"gfSwitchHog", false, gfSwitchHog},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   547
			{"gfRandomOrder", false, gfRandomOrder},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   548
			{"gfKing", false, gfKing},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   549
			{"gfPlaceHog", false, gfPlaceHog},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   550
			{"gfSharedAmmo", false, gfSharedAmmo},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   551
			{"gfDisableGirders", false, gfDisableGirders},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   552
			{"gfDisableLandObjects", false, gfDisableLandObjects},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   553
			{"gfAISurvival", false, gfAISurvival},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   554
			{"gfInfAttack", true, gfInfAttack},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   555
			{"gfResetWeps", false, gfResetWeps},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   556
			{"gfPerHogAmmo", false, gfPerHogAmmo},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   557
			{"gfDisableWind", false, gfDisableWind},
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   558
			{"gfMoreWind", false, gfMoreWind},
13667
841ad2ad341d Update list of supported GameFlags in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 13666
diff changeset
   559
			{"gfTagTeam", false, gfTagTeam},
841ad2ad341d Update list of supported GameFlags in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 13666
diff changeset
   560
			{"gfShoppaBorder", false, gfShoppaBorder},
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   561
			}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   562
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   563
 local reducedSpriteIDArray = {
12343
43eb886f479b HedgeEditor: Make sprTargetBee the first selected sprite
Wuzzy <almikes@aol.com>
parents: 12334
diff changeset
   564
  sprTargetBee, sprAmGirder, sprAmRubber, sprIceTexture, sprHHTelepMask,
12016
6540fcfad01c HedgeEditor: Resort sprite array, add sprTargetBee
Wuzzy <almikes@aol.com>
parents: 12015
diff changeset
   565
  sprAMAmmos, sprAMAmmosBW, sprAMSlot, sprAMCorners, sprTurnsLeft, sprBotlevels,
6540fcfad01c HedgeEditor: Resort sprite array, add sprTargetBee
Wuzzy <almikes@aol.com>
parents: 12015
diff changeset
   566
  sprSpeechCorner, sprSpeechEdge, sprSpeechTail, sprThoughtCorner, sprThoughtEdge, sprThoughtTail,
13130
c8c8f856e236 HedgeEditor: Clean up messy HWP overwrites
Wuzzy <Wuzzy2@mail.ru>
parents: 13038
diff changeset
   567
  sprShoutCorner, sprShoutEdge, sprShoutTail, }
11646
9edd7d5e32ac HedgeEditor: Fix list of available sprites
Wuzzy <almikes@aol.com>
parents: 11645
diff changeset
   568
12315
a2049a645e29 HedgeEditor: Fix maximum ammos sprite ID being 1 too low
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   569
 -- Set in onGameInit
a2049a645e29 HedgeEditor: Fix maximum ammos sprite ID being 1 too low
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   570
 local reducedSpriteIDArrayFrames
12015
e020e1ce4739 HedgeEditor: Implement frame selection for sprites
Wuzzy <almikes@aol.com>
parents: 12014
diff changeset
   571
11646
9edd7d5e32ac HedgeEditor: Fix list of available sprites
Wuzzy <almikes@aol.com>
parents: 11645
diff changeset
   572
 local reducedSpriteTextArray = {
12343
43eb886f479b HedgeEditor: Make sprTargetBee the first selected sprite
Wuzzy <almikes@aol.com>
parents: 12334
diff changeset
   573
  "sprTargetBee", "sprAmGirder", "sprAmRubber", "sprIceTexture", "sprHHTelepMask",
12016
6540fcfad01c HedgeEditor: Resort sprite array, add sprTargetBee
Wuzzy <almikes@aol.com>
parents: 12015
diff changeset
   574
  "sprAMAmmos", "sprAMAmmosBW", "sprAMSlot",  "sprAMCorners", "sprTurnsLeft", "sprBotlevels",
6540fcfad01c HedgeEditor: Resort sprite array, add sprTargetBee
Wuzzy <almikes@aol.com>
parents: 12015
diff changeset
   575
  "sprSpeechCorner", "sprSpeechEdge", "sprSpeechTail", "sprThoughtCorner", "sprThoughtEdge", "sprThoughtTail",
13130
c8c8f856e236 HedgeEditor: Clean up messy HWP overwrites
Wuzzy <Wuzzy2@mail.ru>
parents: 13038
diff changeset
   576
  "sprShoutCorner", "sprShoutEdge", "sprShoutTail", }
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   577
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   578
----------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   579
-- placement shite
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   580
----------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   581
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   582
local landType = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   583
local superDelete = false
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   584
local ufoGear = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   585
ufoFuel = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   586
mapID = 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   587
local portalDistance = 5000/5
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   588
local helpDisabled = false  --determines whether help popups pop up
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   589
local CG = nil -- this is the visual gear displayed at CursorX, CursorY
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   590
local crateSprite = nil-- this is a visual gear aid for crate placement
13130
c8c8f856e236 HedgeEditor: Clean up messy HWP overwrites
Wuzzy <Wuzzy2@mail.ru>
parents: 13038
diff changeset
   591
local crateSpriteBorer = nil
13132
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
   592
local waypointPreviewSprite = nil
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   593
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   594
local cGear = nil -- detects placement of girders and objects (using airattack)
14747
2e8213c0951f Fix air attack placement in HedgeEditor/Construction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 14664
diff changeset
   595
local cGearPlacementDone = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   596
local curWep = amNothing
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   597
local leftHeld = false
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   598
local rightHeld = false
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   599
local preciseOn = false
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   600
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   601
-- primary placement categories
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   602
local cIndex = 1 -- category index
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   603
local cat = 	{
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   604
				loc("Girder Placement Mode"),
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   605
				loc("Rubber Placement Mode"),
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   606
				loc("Mine Placement Mode"),
11996
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
   607
				loc("Dud Mine Placement Mode"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   608
				loc("Sticky Mine Placement Mode"),
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   609
				loc("Air Mine Placement Mode"),
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   610
				loc("Barrel Placement Mode"),
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   611
				loc("Health Crate Placement Mode"),
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   612
				loc("Weapon Crate Placement Mode"),
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   613
				loc("Utility Crate Placement Mode"),
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   614
				loc("Target Placement Mode"),
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   615
				loc("Cleaver Placement Mode"),
12002
6a67e76d0f1d HedgeEditor: Better naming and explanation of tagging mode and advanced repositioning mode
Wuzzy <almikes@aol.com>
parents: 12001
diff changeset
   616
				loc("Repositioning Mode"),
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
   617
				loc("Goal Definition Mode"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   618
				loc("Hog Identity Mode"),
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   619
				loc("Team Identity Mode"),
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   620
				loc("Health Modification Mode"),
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   621
				loc("Sprite Placement Mode"),
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   622
				loc("Sprite Modification Mode"),
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
   623
				loc("Waypoint Editing Mode")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   624
				}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   625
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   626
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   627
local pMode = {}	-- pMode contains custom subsets of the main categories
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   628
local pIndex = 1
12015
e020e1ce4739 HedgeEditor: Implement frame selection for sprites
Wuzzy <almikes@aol.com>
parents: 12014
diff changeset
   629
local sFrame = 0	-- frame in sprite placement mode
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   630
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   631
local genTimer = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   632
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   633
local CGR = 1 -- current girder rotation, we actually need this as HW remembers what rotation you last used
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   634
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   635
local placedX = {} -- x coord of placed object
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   636
local placedY = {} -- y coord of placed object
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   637
local placedSpec = {} -- this is different depending on what was placed, for mines it is their time, for crates it is their content, (for girders/rubbers it used to be their rotation, and for sprites, their name, but this has been moved to different variables to allow more complex / smooth editing)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   638
local placedType = {} -- what kind of object was placed: mine, crate, girder, rubber, barrel, etc.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   639
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   640
local placedTint = {} -- only girders/rubbers/sprites use this, it is their tint / colouration
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   641
local placedSprite = {} -- what sprite was placed
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   642
local placedFrame = {} -- what frame of sprite was placed (rotation for girders / rubber)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   643
local placedLandFlags = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   644
local placedHWMapFlag = {} -- this is what HWMapConverter uses
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   645
local placedCount = 0 -- do we really need this?
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   646
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   647
local sSprite -- sprite overlay that glows to show selected sprites
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   648
local sCirc -- circle that appears around selected gears
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   649
local sGear = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   650
local closestDist
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   651
local closestGear = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   652
local closestSpriteID = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   653
13132
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
   654
local wpRadius = 450
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
   655
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   656
------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   657
-- SOME GENERAL METHODS
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   658
------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   659
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   660
function BoolToString(boo)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   661
	if boo == true then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   662
		return("true")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   663
	else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   664
		return("false")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   665
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   666
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   667
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   668
function GetDistFromGearToXY(gear, g2X, g2Y)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   669
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   670
	g1X, g1Y = GetGearPosition(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   671
	q = g1X - g2X
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   672
	w = g1Y - g2Y
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   673
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   674
	return ( (q*q) + (w*w) )
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   675
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   676
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   677
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   678
------------------------------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   679
-- STUFF FOR LOADING SPECIAL POINTS / HWMAP CONVERSION
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   680
------------------------------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   681
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   682
local specialPointsX = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   683
local specialPointsY = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   684
local specialPointsFlag = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   685
local specialPointsCount = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   686
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   687
function onSpecialPoint(x,y,flag)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   688
    specialPointsX[specialPointsCount] = x
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   689
    specialPointsY[specialPointsCount] = y
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   690
	specialPointsFlag[specialPointsCount] = flag
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   691
    specialPointsCount = specialPointsCount + 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   692
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   693
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   694
-- you know you could probably add multiple layers to this to get more points
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   695
-- after the first set is expended have the last 1 be 127
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   696
-- and then increment some other counter so like
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   697
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   698
-- this function interprets special points that have been embedded into an HWPMAP
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   699
function InterpretPoints()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   700
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   701
	-- flags run from 0 to 127
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   702
	for i = 0, (specialPointsCount-1) do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   703
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   704
		-- Mines
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   705
		if specialPointsFlag[i] == 1 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   706
			SetTimer(AddGear(specialPointsX[i], specialPointsY[i], gtMine, 0, 0, 0, 0), 1)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   707
		elseif specialPointsFlag[i] == 2 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   708
			SetTimer(AddGear(specialPointsX[i], specialPointsY[i], gtMine, 0, 0, 0, 0), 1000)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   709
		elseif specialPointsFlag[i] == 3 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   710
			SetTimer(AddGear(specialPointsX[i], specialPointsY[i], gtMine, 0, 0, 0, 0), 2000)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   711
		elseif specialPointsFlag[i] == 4 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   712
			SetTimer(AddGear(specialPointsX[i], specialPointsY[i], gtMine, 0, 0, 0, 0), 3000)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   713
		elseif specialPointsFlag[i] == 5 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   714
			SetTimer(AddGear(specialPointsX[i], specialPointsY[i], gtMine, 0, 0, 0, 0), 4000)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   715
		elseif specialPointsFlag[i] == 6 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   716
			SetTimer(AddGear(specialPointsX[i], specialPointsY[i], gtMine, 0, 0, 0, 0), 5000)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   717
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   718
		-- Sticky Mines
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   719
		elseif specialPointsFlag[i] == 7 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   720
			AddGear(specialPointsX[i], specialPointsY[i], gtSMine, 0, 0, 0, 0)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   721
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   722
		-- Air Mines
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   723
		elseif specialPointsFlag[i] == 8 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   724
			AddGear(specialPointsX[i], specialPointsY[i], gtAirMine, 0, 0, 0, 0)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   725
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   726
		-- Health Crates
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   727
		elseif specialPointsFlag[i] == 9 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   728
			SetHealth(SpawnHealthCrate(specialPointsX[i],specialPointsY[i]),25)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   729
		elseif specialPointsFlag[i] == 10 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   730
			SetHealth(SpawnHealthCrate(specialPointsX[i],specialPointsY[i]),50)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   731
		elseif specialPointsFlag[i] == 11 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   732
			SetHealth(SpawnHealthCrate(specialPointsX[i],specialPointsY[i]),75)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   733
		elseif specialPointsFlag[i] == 12 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   734
			SetHealth(SpawnHealthCrate(specialPointsX[i],specialPointsY[i]),100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   735
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   736
		-- Cleaver
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   737
		elseif specialPointsFlag[i] == 13 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   738
			AddGear(specialPointsX[i], specialPointsY[i], gtKnife, 0, 0, 0, 0)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   739
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   740
		-- Target
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   741
		elseif specialPointsFlag[i] == 14 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   742
			AddGear(specialPointsX[i], specialPointsY[i], gtTarget, 0, 0, 0, 0)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   743
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   744
		--Barrels
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   745
		elseif specialPointsFlag[i] == 15 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   746
			SetHealth(AddGear(specialPointsX[i], specialPointsY[i], gtExplosives, 0, 0, 0, 0),1)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   747
		elseif specialPointsFlag[i] == 16 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   748
			SetHealth(AddGear(specialPointsX[i], specialPointsY[i], gtExplosives, 0, 0, 0, 0),25)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   749
		elseif specialPointsFlag[i] == 17 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   750
			SetHealth(AddGear(specialPointsX[i], specialPointsY[i], gtExplosives, 0, 0, 0, 0),50)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   751
		elseif specialPointsFlag[i] == 18 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   752
			SetHealth(AddGear(specialPointsX[i], specialPointsY[i], gtExplosives, 0, 0, 0, 0),75)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   753
		elseif specialPointsFlag[i] == 19 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   754
			SetHealth(AddGear(specialPointsX[i], specialPointsY[i], gtExplosives, 0, 0, 0, 0),100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   755
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   756
		-- There are about 58+- weps / utils
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   757
		-- Weapon Crates
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   758
		elseif (specialPointsFlag[i] >= 20) and (specialPointsFlag[i] < (#atkArray+20)) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   759
			tempG = SpawnAmmoCrate(specialPointsX[i],specialPointsY[i],atkArray[specialPointsFlag[i]-19][1])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   760
			setGearValue(tempG,"contents",atkArray[specialPointsFlag[i]-19][2])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   761
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   762
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   763
		-- Utility Crates
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   764
		elseif (specialPointsFlag[i] >= (#atkArray+20)) and (specialPointsFlag[i] < (#atkArray+20+#utilArray)) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   765
			tempG = SpawnUtilityCrate(specialPointsX[i],specialPointsY[i],utilArray[specialPointsFlag[i]-19-#atkArray][1])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   766
			setGearValue(tempG,"contents",utilArray[specialPointsFlag[i]-19-#atkArray][2])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   767
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   768
		--79-82 (reserved for future wep crates)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   769
		--89,88,87,86 and 85,84,83,82 (reserved for the 2 custom sprites and their landflags)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   770
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   771
		--90-99 reserved for scripted structures
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   772
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   773
		elseif specialPointsFlag[i] == 98 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   774
			portalDistance = div(specialPointsX[i],5)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   775
			ufoFuel = specialPointsY[i]
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   776
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   777
		-- Normal Girders
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   778
		elseif specialPointsFlag[i] == 100 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   779
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 0, U_LAND_TINT_NORMAL, nil, nil, nil, lfNormal)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   780
		elseif specialPointsFlag[i] == 101 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   781
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 1, U_LAND_TINT_NORMAL, nil, nil, nil, lfNormal)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   782
		elseif specialPointsFlag[i] == 102 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   783
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 2, U_LAND_TINT_NORMAL, nil, nil, nil, lfNormal)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   784
		elseif specialPointsFlag[i] == 103 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   785
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 3, U_LAND_TINT_NORMAL, nil, nil, nil, lfNormal)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   786
		elseif specialPointsFlag[i] == 104 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   787
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 4, U_LAND_TINT_NORMAL, nil, nil, nil, lfNormal)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   788
		elseif specialPointsFlag[i] == 105 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   789
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 5, U_LAND_TINT_NORMAL, nil, nil, nil, lfNormal)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   790
		elseif specialPointsFlag[i] == 106 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   791
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 6, U_LAND_TINT_NORMAL, nil, nil, nil, lfNormal)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   792
		elseif specialPointsFlag[i] == 107 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   793
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 7, U_LAND_TINT_NORMAL, nil, nil, nil, lfNormal)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   794
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   795
		-- Invulnerable Girders
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   796
		elseif specialPointsFlag[i] == 108 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   797
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 0, U_LAND_TINT_INDESTRUCTIBLE, nil, nil, nil, lfIndestructible)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   798
		elseif specialPointsFlag[i] == 109 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   799
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 1, U_LAND_TINT_INDESTRUCTIBLE, nil, nil, nil, lfIndestructible)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   800
		elseif specialPointsFlag[i] == 110 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   801
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 2, U_LAND_TINT_INDESTRUCTIBLE, nil, nil, nil, lfIndestructible)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   802
		elseif specialPointsFlag[i] == 111 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   803
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 3, U_LAND_TINT_INDESTRUCTIBLE, nil, nil, nil, lfIndestructible)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   804
		elseif specialPointsFlag[i] == 112 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   805
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 4, U_LAND_TINT_INDESTRUCTIBLE, nil, nil, nil, lfIndestructible)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   806
		elseif specialPointsFlag[i] == 113 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   807
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 5, U_LAND_TINT_INDESTRUCTIBLE, nil, nil, nil, lfIndestructible)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   808
		elseif specialPointsFlag[i] == 114 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   809
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 6, U_LAND_TINT_INDESTRUCTIBLE, nil, nil, nil, lfIndestructible)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   810
		elseif specialPointsFlag[i] == 115 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   811
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 7, U_LAND_TINT_INDESTRUCTIBLE, nil, nil, nil, lfIndestructible)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   812
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   813
		-- Icy Girders
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   814
		elseif specialPointsFlag[i] == 116 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   815
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 0, U_LAND_TINT_ICE, nil, nil, nil, lfIce)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   816
		elseif specialPointsFlag[i] == 117 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   817
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 1, U_LAND_TINT_ICE, nil, nil, nil, lfIce)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   818
		elseif specialPointsFlag[i] == 118 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   819
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 2, U_LAND_TINT_ICE, nil, nil, nil, lfIce)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   820
		elseif specialPointsFlag[i] == 119 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   821
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 3, U_LAND_TINT_ICE, nil, nil, nil, lfIce)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   822
		elseif specialPointsFlag[i] == 120 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   823
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 4, U_LAND_TINT_ICE, nil, nil, nil, lfIce)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   824
		elseif specialPointsFlag[i] == 121 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   825
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 5, U_LAND_TINT_ICE, nil, nil, nil, lfIce)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   826
		elseif specialPointsFlag[i] == 121 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   827
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 6, U_LAND_TINT_ICE, nil, nil, nil, lfIce)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   828
		elseif specialPointsFlag[i] == 123 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   829
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 7, U_LAND_TINT_ICE, nil, nil, nil, lfIce)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   830
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   831
		-- Rubber Bands
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   832
		elseif specialPointsFlag[i] == 124 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   833
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmRubber, 0, U_LAND_TINT_NORMAL, nil, nil, nil, lfBouncy)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   834
		elseif specialPointsFlag[i] == 125 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   835
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmRubber, 1, U_LAND_TINT_NORMAL, nil, nil, nil, lfBouncy)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   836
		elseif specialPointsFlag[i] == 126 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   837
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmRubber, 2, U_LAND_TINT_NORMAL, nil, nil, nil, lfBouncy)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   838
		elseif specialPointsFlag[i] == 127 then
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   839
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmRubber, 3, U_LAND_TINT_NORMAL, nil, nil, nil, lfBouncy)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   840
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   841
		-- Waypoints
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   842
		else -- 0 / no value
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   843
			PlaceWaypoint(specialPointsX[i],specialPointsY[i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   844
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   845
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   846
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   847
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   848
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   849
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   850
--shoppabalance crap
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   851
function AddShoppaPoint(x,y,c)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   852
	table.insert(shoppaPX, x)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   853
	table.insert(shoppaPY, y)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   854
	table.insert(shoppaPR, c)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   855
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   856
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   857
function GetRankedColour(r)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   858
	if r == 1 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   859
		return(0xFF0000FF)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   860
	elseif r == 2 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   861
		return(0xFFFF00FF)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   862
	elseif r == 3 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   863
		return(0x00FF00FF)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   864
	elseif r == 4 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   865
		return(0x0000FFFF)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   866
	elseif r == 5 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   867
		return(0xFF00FFFF)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   868
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   869
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   870
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   871
-----------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   872
-- PRIMARY HEDGE EDITOR PLACEMENT STUFF
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   873
-----------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   874
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   875
function GetClosestGear()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   876
	closestDist = 999999999
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   877
	closestGear = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   878
	runOnGears(SelectGear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   879
	return(closestGear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   880
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   881
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   882
function SelectGear(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   883
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   884
	d = GetDistFromGearToXY(gear, placedX[placedCount], placedY[placedCount])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   885
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   886
	if d < closestDist then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   887
		closestDist = d
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   888
		closestGear = gear
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   889
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   890
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   891
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   892
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   893
function PlaceWaypoint(x,y)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   894
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   895
	placedX[placedCount] = x
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   896
	placedY[placedCount] = y
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
   897
	placedType[placedCount] = loc("Waypoint Editing Mode")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   898
	placedLandFlags[placedCount] = nil -- use this to specify waypoint type maybe
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   899
	placedHWMapFlag[placedCount] = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   900
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   901
	placedSprite[placedCount] = vgtCircle
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   902
	placedSpec[placedCount] = AddVisualGear(x,y,vgtCircle,0,true)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   903
	placedTint[placedCount] = 0xFF0000FF
13132
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
   904
	placedFrame[placedCount] = 1
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
   905
	SetVisualGearValues(placedSpec[placedCount], x, y, 164, 224, 1, 10, 0, wpRadius, 5, placedTint[placedCount])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   906
	placedCount = placedCount +1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   907
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   908
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   909
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   910
function LoadSprite(pX, pY, pSprite, pFrame, pTint, p1, p2, p3, pLandFlags)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   911
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   912
	placedX[placedCount] = pX
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   913
	placedY[placedCount] = pY
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   914
	placedSpec[placedCount] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   915
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   916
	if pSprite == sprAmGirder then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   917
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   918
		placedType[placedCount] = loc("Girder Placement Mode")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   919
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   920
		--newHWMapStuff
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   921
		if pLandFlags == lfIndestructible then	specialMod = 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   922
		elseif pLandFlags == lfIce then	specialMod = 2
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   923
		else specialMod = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   924
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   925
		placedHWMapFlag[placedCount] = pFrame+100+(8*specialMod)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   926
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   927
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   928
	elseif pSprite == sprAmRubber then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   929
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   930
		placedType[placedCount] = loc("Rubber Placement Mode")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   931
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   932
		--newHWMapStuff
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   933
		if pFrame == 0 then placedHWMapFlag[placedCount] = 124
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   934
		elseif pFrame == 1 then placedHWMapFlag[placedCount] = 125
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   935
		elseif pFrame == 2 then placedHWMapFlag[placedCount] = 126
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   936
		elseif pFrame == 3 then placedHWMapFlag[placedCount] = 127
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   937
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   938
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   939
	else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   940
		placedType[placedCount] = loc("Sprite Placement Mode")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   941
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   942
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   943
	if pLandFlags == lfIce then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   944
		placedLandFlags[placedCount] = "lfIce"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   945
	elseif pLandFlags == lfIndestructible then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   946
		placedLandFlags[placedCount] = "lfIndestructible"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   947
	elseif pLandFlags == lfBouncy then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   948
		placedLandFlags[placedCount] = "lfBouncy"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   949
	else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   950
		placedLandFlags[placedCount] = "lfNormal"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   951
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   952
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   953
	placedTint[placedCount] = pTint
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   954
	placedFrame[placedCount] = pFrame
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   955
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   956
	placedSprite[placedCount] = pSprite
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   957
12009
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
   958
	local success = PlaceSprite(pX, pY, pSprite, pFrame, pTint, nil, nil, nil, pLandFlags)
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
   959
	if succcess then
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
   960
		placedCount = placedCount + 1
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
   961
	end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   962
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   963
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   964
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
   965
function CallPlaceSprite(pID, silent)
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
   966
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
   967
	if silent == nil then
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
   968
		silent = false
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
   969
	end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   970
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   971
	if landType == lfIce then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   972
		placedLandFlags[pID] = "lfIce"
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   973
		placedTint[pID] = U_LAND_TINT_ICE
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   974
	elseif landType == lfIndestructible then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   975
		placedLandFlags[pID] = "lfIndestructible"
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   976
		placedTint[pID] = U_LAND_TINT_INDESTRUCTIBLE
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   977
	elseif landType == lfBouncy then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   978
		placedLandFlags[pID] = "lfBouncy"
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   979
		placedTint[pID] = U_LAND_TINT_BOUNCY
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   980
	else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   981
		placedLandFlags[pID] = "lfNormal"
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
   982
		placedTint[pID] = U_LAND_TINT_NORMAL
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   983
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   984
12334
f88eebcf22c5 HedgeEditor: Fix incorrect preview of air attack icon in sprAMAmmos/sprAMAmmosBW
Wuzzy <almikes@aol.com>
parents: 12333
diff changeset
   985
	-- Special case: Placing amAirAttack of the ammos sprite (since this one is overwritten)
f88eebcf22c5 HedgeEditor: Fix incorrect preview of air attack icon in sprAMAmmos/sprAMAmmosBW
Wuzzy <almikes@aol.com>
parents: 12333
diff changeset
   986
	local actualDisplayedImage = placedFrame[pID]
f88eebcf22c5 HedgeEditor: Fix incorrect preview of air attack icon in sprAMAmmos/sprAMAmmosBW
Wuzzy <almikes@aol.com>
parents: 12333
diff changeset
   987
	if (placedSprite[pID] == sprAMAmmos or placedSprite[pID] == sprAMAmmosBW) and (actualDisplayedImage == (amAirAttack - 1)) then
f88eebcf22c5 HedgeEditor: Fix incorrect preview of air attack icon in sprAMAmmos/sprAMAmmosBW
Wuzzy <almikes@aol.com>
parents: 12333
diff changeset
   988
		actualDisplayedImage = ammoFrameAirAttack
f88eebcf22c5 HedgeEditor: Fix incorrect preview of air attack icon in sprAMAmmos/sprAMAmmosBW
Wuzzy <almikes@aol.com>
parents: 12333
diff changeset
   989
	end
f88eebcf22c5 HedgeEditor: Fix incorrect preview of air attack icon in sprAMAmmos/sprAMAmmosBW
Wuzzy <almikes@aol.com>
parents: 12333
diff changeset
   990
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
   991
	local success = PlaceSprite(placedX[pID], placedY[pID], placedSprite[pID], actualDisplayedImage,
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   992
		placedTint[pID],
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   993
		nil, -- overrite existing land
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   994
		nil, nil, -- this stuff specifies flipping
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   995
		landType)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
   996
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
   997
	if not silent then
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
   998
		if success then
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
   999
			PlaySound(sndPlaced)
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1000
		else
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1001
			PlaySound(sndDenied)
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1002
		end
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1003
	end
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1004
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1005
	return success
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1006
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1007
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1008
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1009
function SelectClosestSprite()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1010
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1011
	closestDist = 999999999
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1012
	closestSpriteID = nil -- just in case
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1013
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1014
	for i = 0, (placedCount-1) do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1015
		if (placedType[i] == loc("Girder Placement Mode"))
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1016
			or (placedType[i] == loc("Rubber Placement Mode"))
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1017
			or (placedType[i] == loc("Sprite Placement Mode"))
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1018
		then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1019
				q = placedX[i] - placedX[placedCount]
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1020
				w = placedY[i] - placedY[placedCount]
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1021
				d = ( (q*q) + (w*w) )
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1022
				if d < closestDist then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1023
					closestDist = d
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1024
					closestSpriteID = i
11999
6fd96a5d4e6f HedgeEditor: Refactor legacy GetVisualGearValues code
Wuzzy <almikes@aol.com>
parents: 11998
diff changeset
  1025
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1026
					newTint = 0xFF00FFFF
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1027
11999
6fd96a5d4e6f HedgeEditor: Refactor legacy GetVisualGearValues code
Wuzzy <almikes@aol.com>
parents: 11998
diff changeset
  1028
					SetVisualGearValues(sSprite, placedX[i], placedY[i], 0, 0, nil, placedFrame[i], 10000, placedSprite[i], 10000, newTint )
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1029
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1030
				end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1031
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1032
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1033
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1034
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1035
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1036
function EraseClosestSprite()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1037
	if closestSpriteID ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1038
		EraseSprite(placedX[closestSpriteID], placedY[closestSpriteID], placedSprite[closestSpriteID], placedFrame[closestSpriteID],
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1039
                    nil, -- erase land only where the pixels match the land flag provided
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1040
                    nil, -- only erase the provided land flags. don't touch other land flags or LandPixels
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1041
                    nil, -- flip sprite horizontally
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1042
                    nil, -- flip sprite vertically
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1043
                    placedLandFlags[closestSpriteID])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1044
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1045
                PlaySound(sndBump)
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1046
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1047
		placedX[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1048
		placedY[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1049
		placedSpec[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1050
		placedType[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1051
		placedTint[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1052
		placedSprite[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1053
		placedFrame[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1054
		placedLandFlags[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1055
		closestSpriteID = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1056
		SetVisualGearValues(sSprite, 0, 0, 0, 0, 0, 1, 10000, sprAmGirder, 10000, 0x00000000 )
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1057
	else
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1058
		PlaySound(sndDenied)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1059
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1060
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1061
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1062
-- work this into the above two functions and edit them, later
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1063
function EraseClosestWaypoint()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1064
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1065
	closestDist = 999999999
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1066
	closestSpriteID = nil -- just in case
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1067
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1068
	for i = 0, (placedCount-1) do
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  1069
		if (placedType[i] == loc("Waypoint Editing Mode")) then
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1070
			local q = placedX[i] - placedX[placedCount]
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1071
			local w = placedY[i] - placedY[placedCount]
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1072
			local d = ( (q*q) + (w*w) )
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1073
			if d < closestDist then
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1074
				closestDist = d
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1075
				closestSpriteID = i
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1076
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1077
				SetVisualGearValues(sSprite, placedX[i], placedY[i], 0, 0, nil, placedFrame[i], 10000, placedSprite[i], 10000, newTint )
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1078
			end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1079
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1080
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1081
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1082
	if closestSpriteID ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1083
		DeleteVisualGear(placedSpec[closestSpriteID])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1084
		placedX[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1085
		placedY[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1086
		placedSpec[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1087
		placedType[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1088
		placedTint[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1089
		placedSprite[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1090
		placedFrame[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1091
		placedLandFlags[closestSpriteID] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1092
		closestSpriteID = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1093
		SetVisualGearValues(sSprite, 0, 0, 0, 0, 0, 1, 10000, sprAmGirder, 10000, 0x00000000 )
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1094
		PlaySound(sndBump)
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1095
	else
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1096
		PlaySound(sndDenied)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1097
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1098
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1099
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1100
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1101
-- essentially called when user clicks the mouse
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1102
-- with girders or an airattack
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1103
function PlaceObject(x,y)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1104
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1105
	placedX[placedCount] = x
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1106
	placedY[placedCount] = y
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1107
	placedType[placedCount] = cat[cIndex]
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1108
	placedSpec[placedCount] = pMode[pIndex]
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1109
	placedTint[placedCount] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1110
	placedFrame[placedCount] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1111
	placedLandFlags[placedCount] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1112
	placedSprite[placedCount] = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1113
	placedHWMapFlag[placedCount] = nil
12009
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1114
	placementSucceeded = true		-- We assume success unless the placement logic said otherwise
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1115
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1116
	if cat[cIndex] == loc("Girder Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1117
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1118
		if superDelete == false then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1119
			--lfObject and lfBasic
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1120
			placedFrame[placedCount] = CGR
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1121
			placedSprite[placedCount] = sprAmGirder
12009
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1122
			placementSucceeded = CallPlaceSprite(placedCount)
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1123
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1124
			if placementSucceeded then
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1125
				if landType == lfIndestructible then	specialMod = 1
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1126
				elseif landType == lfIce then	specialMod = 2
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1127
				else specialMod = 0
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1128
				end
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1129
				placedHWMapFlag[placedCount] = CGR+100+(8*specialMod)
12011
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1130
			else
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1131
				placedType[placedCount] = "bogus"
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1132
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1133
		else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1134
			placedType[placedCount] = "bogus" -- we need this so we don't think we've placed a new girder and are trying to erase the things we just placed??
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1135
			SelectClosestSprite()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1136
			EraseClosestSprite()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1137
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1138
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1139
	elseif cat[cIndex] == loc("Rubber Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1140
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1141
		if superDelete == false then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1142
			placedFrame[placedCount] = CGR
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1143
			placedSprite[placedCount] = sprAmRubber
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1144
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1145
			--new ermagerd
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1146
			placedLandFlags[placedCount] = "lfBouncy"
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
  1147
			placedTint[placedCount] = U_LAND_TINT_NORMAL
12009
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1148
			placementSucceeded = PlaceSprite(placedX[placedCount], placedY[placedCount], placedSprite[placedCount], placedFrame[placedCount],
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1149
				placedTint[placedCount],
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1150
				nil,
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1151
				nil, nil,
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1152
				landType)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1153
12009
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1154
			if placementSucceeded then
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1155
				if CGR == 0 then placedHWMapFlag[placedCount] = 124
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1156
				elseif CGR == 1 then placedHWMapFlag[placedCount] = 125
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1157
				elseif CGR == 2 then placedHWMapFlag[placedCount] = 126
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1158
				elseif CGR == 3 then placedHWMapFlag[placedCount] = 127
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1159
				end
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1160
				PlaySound(sndPlaced)
12011
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1161
			else
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1162
				placedType[placedCount] = "bogus"
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1163
				PlaySound(sndDenied)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1164
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1165
		else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1166
			placedType[placedCount] = "bogus"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1167
			SelectClosestSprite()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1168
			EraseClosestSprite()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1169
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1170
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1171
	elseif cat[cIndex] == loc("Target Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1172
		gear = AddGear(x, y, gtTarget, 0, 0, 0, 0)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1173
	elseif cat[cIndex] == loc("Cleaver Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1174
		gear = AddGear(x, y, gtKnife, 0, 0, 0, 0)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1175
	elseif cat[cIndex] == loc("Health Crate Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1176
		gear = SpawnHealthCrate(x,y)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1177
		SetHealth(gear, pMode[pIndex])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1178
	elseif cat[cIndex] == loc("Weapon Crate Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1179
		gear = SpawnAmmoCrate(x, y, atkArray[pIndex][1])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1180
		placedSpec[placedCount] = atkArray[pIndex][2]
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1181
		setGearValue(gear,"contents",atkArray[pIndex][2])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1182
	elseif cat[cIndex] == loc("Utility Crate Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1183
		gear = SpawnUtilityCrate(x, y, utilArray[pIndex][1])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1184
		placedSpec[placedCount] = utilArray[pIndex][2]
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1185
		setGearValue(gear,"contents",utilArray[pIndex][2])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1186
	elseif cat[cIndex] == loc("Barrel Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1187
		gear = AddGear(x, y, gtExplosives, 0, 0, 0, 0)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1188
		SetHealth(gear, pMode[pIndex])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1189
	elseif cat[cIndex] == loc("Mine Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1190
		gear = AddGear(x, y, gtMine, 0, 0, 0, 0)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1191
		SetTimer(gear, pMode[pIndex])
11996
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  1192
	elseif cat[cIndex] == loc("Dud Mine Placement Mode") then
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  1193
		gear = AddGear(x, y, gtMine, 0, 0, 0, 0)
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  1194
		SetHealth(gear, 0)
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  1195
		SetGearValues(gear, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 36 - pMode[pIndex])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1196
	elseif cat[cIndex] == loc("Sticky Mine Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1197
		gear = AddGear(x, y, gtSMine, 0, 0, 0, 0)
11994
a6f4e4265d2e HedgeEditor: Allow to set sticky mine timer
Wuzzy <almikes@aol.com>
parents: 11993
diff changeset
  1198
		SetTimer(gear, pMode[pIndex])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1199
	elseif cat[cIndex] == loc("Air Mine Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1200
		gear = AddGear(x, y, gtAirMine, 0, 0, 0, 0)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1201
		SetTimer(gear, pMode[pIndex])
12049
75f56c1198c3 HedgeEditor: Fix air mines timer being falsely exported and displayed
Wuzzy <almikes@aol.com>
parents: 12048
diff changeset
  1202
		SetGearValues(gear, nil, nil, pMode[pIndex])
12002
6a67e76d0f1d HedgeEditor: Better naming and explanation of tagging mode and advanced repositioning mode
Wuzzy <almikes@aol.com>
parents: 12001
diff changeset
  1203
	elseif cat[cIndex] == loc("Repositioning Mode") then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1204
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1205
		if pMode[pIndex] == loc("Selection Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1206
			sGear = GetClosestGear()
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1207
			if sGear ~= nil then
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1208
				PlaySound(sndPortalSwitch)
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1209
			end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1210
		elseif pMode[pIndex] == loc("Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1211
			if sGear ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1212
				SetGearPosition(sGear, x, y)
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1213
				PlaySound(sndWarp)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1214
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1215
		elseif pMode[pIndex] == loc("Deletion Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1216
			sGear = GetClosestGear()
12026
c7c0be04ee36 HedgeEditor: Proper error handling when attempting to delete hedgehogs
Wuzzy <almikes@aol.com>
parents: 12025
diff changeset
  1217
			if (sGear == nil) then
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  1218
				AddCaption(loc("Please click on a gear."), colorErrorMessage, capgrpVolume)
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1219
				PlaySound(sndDenied)
12026
c7c0be04ee36 HedgeEditor: Proper error handling when attempting to delete hedgehogs
Wuzzy <almikes@aol.com>
parents: 12025
diff changeset
  1220
			elseif (GetGearType(sGear) == gtHedgehog) then
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  1221
				AddCaption(loc("Hedgehogs can not be deleted."), colorErrorMessage, capgrpVolume)
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1222
				PlaySound(sndDenied)
12026
c7c0be04ee36 HedgeEditor: Proper error handling when attempting to delete hedgehogs
Wuzzy <almikes@aol.com>
parents: 12025
diff changeset
  1223
			else
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1224
				DeleteGear(sGear)
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1225
				PlaySound(sndBump)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1226
			end
12026
c7c0be04ee36 HedgeEditor: Proper error handling when attempting to delete hedgehogs
Wuzzy <almikes@aol.com>
parents: 12025
diff changeset
  1227
			sGear = nil
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1228
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1229
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1230
	elseif (cat[cIndex] == loc("Hog Identity Mode")) or (cat[cIndex] == loc("Team Identity Mode")) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1231
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1232
		sGear = GetClosestGear()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1233
		if (sGear ~= nil) and (GetGearType(sGear) == gtHedgehog) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1234
			if (cat[cIndex] == loc("Hog Identity Mode")) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1235
				SetHogProfile(sGear, pMode[pIndex])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1236
			else -- set for the whole team
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1237
				SetTeamIdentity(sGear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1238
			end
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1239
			PlaySound(sndHello, sGear)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1240
		else
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  1241
			AddCaption(loc("Please click on a hedgehog."), colorErrorMessage, capgrpVolume)
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1242
			PlaySound(sndDenied)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1243
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1244
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1245
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1246
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1247
	elseif cat[cIndex] == loc("Health Modification Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1248
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1249
		sGear = GetClosestGear()
11645
4865e715fb49 Hedge Editor: Also allow to set health of barrels and health crates in Health Modification Mode
Wuzzy <almikes@aol.com>
parents: 11644
diff changeset
  1250
		local gt = GetGearType(sGear)
4865e715fb49 Hedge Editor: Also allow to set health of barrels and health crates in Health Modification Mode
Wuzzy <almikes@aol.com>
parents: 11644
diff changeset
  1251
		if gt == gtHedgehog or gt == gtExplosives or (gt == gtCase and GetGearPos(sGear) == 0x2) then
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1252
			local oldHealth, hDiff = GetHealth(sGear)
11643
df8fbbbcd775 Hedge Editor: Allow to add/subtract health in Health Modification Mode
Wuzzy <almikes@aol.com>
parents: 11642
diff changeset
  1253
			if pMode[pIndex][2] == "set" then
df8fbbbcd775 Hedge Editor: Allow to add/subtract health in Health Modification Mode
Wuzzy <almikes@aol.com>
parents: 11642
diff changeset
  1254
				SetHealth(sGear, pMode[pIndex][1])
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1255
				hDiff = pMode[pIndex][1] - oldHealth
11643
df8fbbbcd775 Hedge Editor: Allow to add/subtract health in Health Modification Mode
Wuzzy <almikes@aol.com>
parents: 11642
diff changeset
  1256
			elseif pMode[pIndex][2] == "mod" then
12030
325b39ee6bc8 HedgeEditor: Allow health crates with 0 health
Wuzzy <almikes@aol.com>
parents: 12029
diff changeset
  1257
				local min
325b39ee6bc8 HedgeEditor: Allow health crates with 0 health
Wuzzy <almikes@aol.com>
parents: 12029
diff changeset
  1258
				if gt == gtCase then min = 0 else min = 1 end
325b39ee6bc8 HedgeEditor: Allow health crates with 0 health
Wuzzy <almikes@aol.com>
parents: 12029
diff changeset
  1259
				local newHealth = math.max(min, GetHealth(sGear) + tonumber(pMode[pIndex][1]))
11643
df8fbbbcd775 Hedge Editor: Allow to add/subtract health in Health Modification Mode
Wuzzy <almikes@aol.com>
parents: 11642
diff changeset
  1260
				SetHealth(sGear, newHealth)
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1261
				hDiff = newHealth - oldHealth
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1262
			end
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1263
			PlaySound(sndPortalSwitch)
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1264
			if gt == gtHedgehog and hDiff < 0 then
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1265
				local snd = { sndOw1, sndOw2, sndOw3 }
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1266
				PlaySound(snd[math.random(1, #snd)], sGear)
11643
df8fbbbcd775 Hedge Editor: Allow to add/subtract health in Health Modification Mode
Wuzzy <almikes@aol.com>
parents: 11642
diff changeset
  1267
			end
12007
a2f0c0d0e534 HedgeEditor: Allow to modify dud mine health
Wuzzy <almikes@aol.com>
parents: 12006
diff changeset
  1268
		elseif gt == gtMine and GetHealth(sGear) == 0 then
a2f0c0d0e534 HedgeEditor: Allow to modify dud mine health
Wuzzy <almikes@aol.com>
parents: 12006
diff changeset
  1269
			local newHealth 
a2f0c0d0e534 HedgeEditor: Allow to modify dud mine health
Wuzzy <almikes@aol.com>
parents: 12006
diff changeset
  1270
			if pMode[pIndex][2] == "set" then
a2f0c0d0e534 HedgeEditor: Allow to modify dud mine health
Wuzzy <almikes@aol.com>
parents: 12006
diff changeset
  1271
				newHealth =  pMode[pIndex][1]
a2f0c0d0e534 HedgeEditor: Allow to modify dud mine health
Wuzzy <almikes@aol.com>
parents: 12006
diff changeset
  1272
			elseif pMode[pIndex][2] == "mod" then
a2f0c0d0e534 HedgeEditor: Allow to modify dud mine health
Wuzzy <almikes@aol.com>
parents: 12006
diff changeset
  1273
				local _, oldHealth
a2f0c0d0e534 HedgeEditor: Allow to modify dud mine health
Wuzzy <almikes@aol.com>
parents: 12006
diff changeset
  1274
				_,_,_,_,_,_,_,_,_,_,_, oldHealth = GetGearValues(sGear)
12034
6191d8828254 HedgeEditor: Fix health add/subtract not working for dud mines
Wuzzy <almikes@aol.com>
parents: 12033
diff changeset
  1275
				oldHealth = 36 - oldHealth
6191d8828254 HedgeEditor: Fix health add/subtract not working for dud mines
Wuzzy <almikes@aol.com>
parents: 12033
diff changeset
  1276
				newHealth = math.max(1, oldHealth + tonumber(pMode[pIndex][1]))
12007
a2f0c0d0e534 HedgeEditor: Allow to modify dud mine health
Wuzzy <almikes@aol.com>
parents: 12006
diff changeset
  1277
			end
a2f0c0d0e534 HedgeEditor: Allow to modify dud mine health
Wuzzy <almikes@aol.com>
parents: 12006
diff changeset
  1278
			if newHealth ~= nil then
a2f0c0d0e534 HedgeEditor: Allow to modify dud mine health
Wuzzy <almikes@aol.com>
parents: 12006
diff changeset
  1279
				SetGearValues(sGear, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 36 - newHealth)
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1280
				PlaySound(sndPortalSwitch)
12007
a2f0c0d0e534 HedgeEditor: Allow to modify dud mine health
Wuzzy <almikes@aol.com>
parents: 12006
diff changeset
  1281
			end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1282
		else
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  1283
			AddCaption(loc("Please click on a hedgehog, barrel, health crate or dud mine."), colorErrorMessage, capgrpVolume)
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1284
			PlaySound(sndDenied)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1285
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1286
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1287
	elseif cat[cIndex] == loc("Sprite Modification Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1288
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1289
		SelectClosestSprite()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1290
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1291
		if closestSpriteID ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1292
			if pMode[pIndex] == loc("LandFlag Modification Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1293
				EraseSprite(placedX[closestSpriteID], placedY[closestSpriteID], placedSprite[closestSpriteID], placedFrame[closestSpriteID], nil, nil, nil, nil, placedLandFlags[closestSpriteID])
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1294
				placementSucceeded = CallPlaceSprite(closestSpriteID, true)
12009
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1295
				if placementSucceeded then
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1296
					closestSpriteID = nil
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1297
					SetVisualGearValues(sSprite, 0, 0, 0, 0, 0, 1, 10000, sprAmGirder, 10000, 0x00000000 )
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1298
					PlaySound(sndPortalSwitch)
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1299
				else
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1300
					PlaySound(sndDenied)
12009
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1301
				end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1302
			elseif pMode[pIndex] == loc("Sprite Erasure Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1303
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1304
				EraseClosestSprite()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1305
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1306
			end
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1307
		else
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1308
			PlaySound(sndDenied)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1309
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1310
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1311
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  1312
	elseif cat[cIndex] == loc("Goal Definition Mode") then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1313
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1314
		sGear = GetClosestGear()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1315
		if sGear ~= nil then  -- used to be closestGear
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1316
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1317
			if getGearValue(sGear,"tag") == nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1318
12002
6a67e76d0f1d HedgeEditor: Better naming and explanation of tagging mode and advanced repositioning mode
Wuzzy <almikes@aol.com>
parents: 12001
diff changeset
  1319
				if pMode[pIndex] == loc("Victory Condition: Collect") then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1320
					if GetGearType(sGear) == gtCase then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1321
						setGearValue(sGear, "tag","collection")
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1322
						PlaySound(sndPortalSwitch)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1323
					else
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  1324
						AddCaption(loc("Please click on a crate."), colorErrorMessage, capgrpVolume)
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1325
						PlaySound(sndDenied)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1326
					end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1327
				else
12002
6a67e76d0f1d HedgeEditor: Better naming and explanation of tagging mode and advanced repositioning mode
Wuzzy <almikes@aol.com>
parents: 12001
diff changeset
  1328
					if pMode[pIndex] == loc("Victory Condition: Destroy") then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1329
						setGearValue(sGear, "tag","victory")
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1330
						PlaySound(sndPortalSwitch)
12002
6a67e76d0f1d HedgeEditor: Better naming and explanation of tagging mode and advanced repositioning mode
Wuzzy <almikes@aol.com>
parents: 12001
diff changeset
  1331
					elseif pMode[pIndex] == loc("Losing Condition: Destroy") then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1332
						setGearValue(sGear, "tag","failure")
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1333
						PlaySound(sndPortalSwitch)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1334
					end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1335
				end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1336
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1337
			else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1338
				-- remove tag and delete circ
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1339
				setGearValue(sGear, "tag", nil)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1340
				DeleteVisualGear(getGearValue(sGear,"tCirc"))
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1341
				setGearValue(sGear, "tCirc", nil)
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  1342
				PlaySound(sndBump)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1343
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1344
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1345
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1346
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1347
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1348
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1349
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1350
	elseif cat[cIndex] == loc("Sprite Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1351
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1352
		if superDelete == false then
12015
e020e1ce4739 HedgeEditor: Implement frame selection for sprites
Wuzzy <almikes@aol.com>
parents: 12014
diff changeset
  1353
			placedFrame[placedCount] = sFrame
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1354
			placedSprite[placedCount] = reducedSpriteIDArray[pIndex]
12009
a3e2f9408799 HedgeEditor: Don't count sprites failed to place
Wuzzy <almikes@aol.com>
parents: 12008
diff changeset
  1355
			placementSucceeded = CallPlaceSprite(placedCount)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1356
		else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1357
			placedType[placedCount] = "bogus"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1358
			SelectClosestSprite()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1359
			EraseClosestSprite()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1360
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1361
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  1362
	elseif cat[cIndex] == loc("Waypoint Editing Mode") then
12003
7d8dcac2eae1 HedgeEditor: Generally improve menu help texts
Wuzzy <almikes@aol.com>
parents: 12002
diff changeset
  1363
7d8dcac2eae1 HedgeEditor: Generally improve menu help texts
Wuzzy <almikes@aol.com>
parents: 12002
diff changeset
  1364
7d8dcac2eae1 HedgeEditor: Generally improve menu help texts
Wuzzy <almikes@aol.com>
parents: 12002
diff changeset
  1365
		if pMode[pIndex] == loc("Delete Waypoint") then
12011
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1366
			placedType[placedCount] = "bogus"
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1367
			EraseClosestWaypoint()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1368
		else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1369
			PlaceWaypoint(x,y)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1370
			placedCount = placedCount - 1
12027
34fdc3d70aca HedgeEditor: Play placement sound more often
Wuzzy <almikes@aol.com>
parents: 12026
diff changeset
  1371
			PlaySound(sndPlaced)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1372
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1373
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1374
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1375
12011
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1376
	placedCount = placedCount + 1
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1377
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1378
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1379
-- called when user changes primary selection
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1380
-- either via up/down keys
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1381
-- or selecting girder/airattack
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1382
function RedefineSubset()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1383
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1384
	superDelete = false -- fairly new addition
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1385
	landType = 0 --- fairly new addition
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1386
	pIndex = 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1387
	pMode = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1388
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1389
	if cat[cIndex] == loc("Girder Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1390
		pIndex = CGR
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1391
		pMode = {loc("Girder")}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1392
	elseif cat[cIndex] == loc("Rubber Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1393
		pIndex = CGR
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1394
		pMode = {loc("Rubber")}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1395
		landType = lfBouncy -- for now, let's not allow anything else (-- fairly new addition)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1396
	elseif cat[cIndex] == loc("Target Placement Mode") then
12046
4cdea287bbf9 HedgeEditor: Rename “Standard” target and cleaver to just target and cleaver
Wuzzy <almikes@aol.com>
parents: 12045
diff changeset
  1397
		pMode = {loc("Target")}
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1398
	elseif cat[cIndex] == loc("Cleaver Placement Mode") then
12046
4cdea287bbf9 HedgeEditor: Rename “Standard” target and cleaver to just target and cleaver
Wuzzy <almikes@aol.com>
parents: 12045
diff changeset
  1399
		pMode = {loc("Cleaver")}
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1400
	elseif cat[cIndex] == loc("Barrel Placement Mode") then
11995
c3866ee03b82 HedgeEditor: Tweak and reorder health/timer selection numbers
Wuzzy <almikes@aol.com>
parents: 11994
diff changeset
  1401
		pMode = {60,80,100,120,160,200,240,1,10,20,30,40,50}
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1402
	elseif cat[cIndex] == loc("Health Crate Placement Mode") then
12030
325b39ee6bc8 HedgeEditor: Allow health crates with 0 health
Wuzzy <almikes@aol.com>
parents: 12029
diff changeset
  1403
		pMode = {25,30,40,50,75,100,150,200,0,5,10,15,20}
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1404
	elseif cat[cIndex] == loc("Weapon Crate Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1405
		for i = 1, #atkArray do
12040
44adf110f73b Use SetAmmoTexts in HedgeEditor to describe overwritten air attack (gear placement tool)
Wuzzy <almikes@aol.com>
parents: 12039
diff changeset
  1406
			pMode[i] = GetAmmoName(atkArray[i][1], true)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1407
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1408
	elseif cat[cIndex] == loc("Utility Crate Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1409
		for i = 1, #utilArray do
12040
44adf110f73b Use SetAmmoTexts in HedgeEditor to describe overwritten air attack (gear placement tool)
Wuzzy <almikes@aol.com>
parents: 12039
diff changeset
  1410
			pMode[i] = GetAmmoName(utilArray[i][1], true)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1411
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1412
	elseif cat[cIndex] == loc("Mine Placement Mode") then
11995
c3866ee03b82 HedgeEditor: Tweak and reorder health/timer selection numbers
Wuzzy <almikes@aol.com>
parents: 11994
diff changeset
  1413
		pMode = {3000,4000,5000,0,1000,2000}
11996
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  1414
	elseif cat[cIndex] == loc("Dud Mine Placement Mode") then
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  1415
		pMode = {36,48,60,72,96,1,6,12,18,24}
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  1416
	elseif cat[cIndex] == loc("Mine Placement Mode") then
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  1417
		pMode = {3000,4000,5000,0,1000,2000}
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1418
	elseif cat[cIndex] == loc("Sticky Mine Placement Mode") then
11995
c3866ee03b82 HedgeEditor: Tweak and reorder health/timer selection numbers
Wuzzy <almikes@aol.com>
parents: 11994
diff changeset
  1419
		pMode = {500,1000,1500,2000,2500,0}
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1420
	elseif cat[cIndex] == loc("Air Mine Placement Mode") then
11995
c3866ee03b82 HedgeEditor: Tweak and reorder health/timer selection numbers
Wuzzy <almikes@aol.com>
parents: 11994
diff changeset
  1421
		pMode = {750,1000,1250,0,250,500}
12002
6a67e76d0f1d HedgeEditor: Better naming and explanation of tagging mode and advanced repositioning mode
Wuzzy <almikes@aol.com>
parents: 12001
diff changeset
  1422
	elseif cat[cIndex] == loc("Repositioning Mode") then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1423
		pMode = {loc("Selection Mode"),loc("Placement Mode"), loc("Deletion Mode")}
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  1424
	elseif cat[cIndex] == loc("Goal Definition Mode") then
12002
6a67e76d0f1d HedgeEditor: Better naming and explanation of tagging mode and advanced repositioning mode
Wuzzy <almikes@aol.com>
parents: 12001
diff changeset
  1425
		pMode = {loc("Victory Condition: Destroy"),loc("Losing Condition: Destroy"),loc("Victory Condition: Collect")}
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1426
	elseif cat[cIndex] == loc("Hog Identity Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1427
		pMode = {loc("Soldier"),loc("Grenadier"),loc("Sniper"),loc("Pyro"),loc("Ninja"),loc("Commander"),loc("Chef"),loc("Engineer"),loc("Physicist"),loc("Trapper"),loc("Saint"),loc("Clown")}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1428
	elseif cat[cIndex] == loc("Team Identity Mode") then
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  1429
		pMode = preMadeTeamNamesTranslated
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1430
	elseif cat[cIndex] == loc("Health Modification Mode") then
11995
c3866ee03b82 HedgeEditor: Tweak and reorder health/timer selection numbers
Wuzzy <almikes@aol.com>
parents: 11994
diff changeset
  1431
		pMode = { {100, "set"}, {125, "set"}, {150, "set"}, {200, "set"}, {300, "set"}, {1000, "set"},
c3866ee03b82 HedgeEditor: Tweak and reorder health/timer selection numbers
Wuzzy <almikes@aol.com>
parents: 11994
diff changeset
  1432
			{"-100", "mod"}, {"-10", "mod"}, {"-1", "mod"}, {"+1", "mod"}, {"+10", "mod"}, {"+100", "mod"},
c3866ee03b82 HedgeEditor: Tweak and reorder health/timer selection numbers
Wuzzy <almikes@aol.com>
parents: 11994
diff changeset
  1433
			{1, "set"}, {10, "set"}, {15, "set"}, {20, "set"}, {25, "set"}, {30, "set"}, {40, "set"}, {50, "set"}, {75, "set"}, 
c3866ee03b82 HedgeEditor: Tweak and reorder health/timer selection numbers
Wuzzy <almikes@aol.com>
parents: 11994
diff changeset
  1434
} 
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1435
	elseif cat[cIndex] == loc("Sprite Modification Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1436
		pMode = {loc("LandFlag Modification Mode"),loc("Sprite Erasure Mode")}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1437
	elseif cat[cIndex] == loc("Sprite Testing Mode") or cat[cIndex] == loc("Sprite Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1438
		for i = 1, #reducedSpriteTextArray do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1439
			pMode[i] = reducedSpriteTextArray[i]
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1440
		end
12021
e93ee0bedad8 HedgeEditor: Fix nil bugs related to sprite placement mode
Wuzzy <almikes@aol.com>
parents: 12020
diff changeset
  1441
		sFrame = 0
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  1442
	elseif cat[cIndex] == loc("Waypoint Editing Mode") then
12003
7d8dcac2eae1 HedgeEditor: Generally improve menu help texts
Wuzzy <almikes@aol.com>
parents: 12002
diff changeset
  1443
		pMode = {loc("Place Waypoint"), loc("Delete Waypoint")}
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1444
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1445
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1446
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1447
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1448
------------------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1449
-- LOADING AND SAVING DATA STUFF
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1450
------------------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1451
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1452
-- paste data you have saved previously here
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1453
function LoadLevelData()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1454
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1455
	if (mapID == nil) or (mapID == 0) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1456
		LoadMap(1)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1457
	else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1458
		LoadMap(mapID)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1459
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1460
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1461
	for i = 1, techCount-1 do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1462
		PlaceWaypoint(techX[i],techY[i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1463
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1464
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1465
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1466
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1467
-- When you save your level, this function
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1468
-- generates the AddTeam and AddHog function calls for onGameInit()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1469
function GetDataForSavingHogs(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1470
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1471
	--this is a quick hack so that the human team(s) will always be
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1472
	--given the first move ahead of the AI
11997
c3c7c036c521 HedgeEditor: Fix teams being exported multiple times when saving multiple times in same session
Wuzzy <almikes@aol.com>
parents: 11996
diff changeset
  1473
	local tempDataList = {}
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1474
	if GetHogLevel(gear) == 0 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1475
		tempDataList = hogDataList
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1476
	else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1477
		tempDataList = AIHogDataList
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1478
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1479
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1480
	if GetHogTeamName(gear) ~= lastRecordedTeam then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1481
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1482
		teamCounter = teamCounter + 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1483
		if teamCounter == 9 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1484
			teamCounter = 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1485
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1486
13590
72515cd20984 HedgeEditor: Use default clan color in AddTeam in mission export
Wuzzy <Wuzzy2@mail.ru>
parents: 13511
diff changeset
  1487
		-- Color argument for AddTeam; using the
72515cd20984 HedgeEditor: Use default clan color in AddTeam in mission export
Wuzzy <Wuzzy2@mail.ru>
parents: 13511
diff changeset
  1488
		-- default clan color format.
72515cd20984 HedgeEditor: Use default clan color in AddTeam in mission export
Wuzzy <Wuzzy2@mail.ru>
parents: 13511
diff changeset
  1489
		local tColor = -(GetHogClan(gear)+1)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1490
12797
8fa21750470f HedgeEditor: Define fallback flag/voice/fort/grave when saving level data
Wuzzy <Wuzzy2@mail.ru>
parents: 12796
diff changeset
  1491
		local tFort, tGrave, tFlag, tVoice
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1492
		if getGearValue(gear,"grave") == nil then
12052
7163626748e0 Use GetHogFort in HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12050
diff changeset
  1493
			tFort = GetHogFort(gear)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1494
			tGrave = GetHogGrave(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1495
			tFlag = GetHogFlag(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1496
			tVoice = GetHogVoicepack(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1497
		else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1498
			tGrave = getGearValue(gear,"grave")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1499
			tFort = getGearValue(gear,"fort")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1500
			tFlag = getGearValue(gear,"flag")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1501
			tVoice = getGearValue(gear,"voice")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1502
		end
12797
8fa21750470f HedgeEditor: Define fallback flag/voice/fort/grave when saving level data
Wuzzy <Wuzzy2@mail.ru>
parents: 12796
diff changeset
  1503
		if not tFort then tFort = "Castle" end
8fa21750470f HedgeEditor: Define fallback flag/voice/fort/grave when saving level data
Wuzzy <Wuzzy2@mail.ru>
parents: 12796
diff changeset
  1504
		if not tGrave then tGrave = "Statue" end
8fa21750470f HedgeEditor: Define fallback flag/voice/fort/grave when saving level data
Wuzzy <Wuzzy2@mail.ru>
parents: 12796
diff changeset
  1505
		if not tFlag then tFlag= "hedgewars" end
8fa21750470f HedgeEditor: Define fallback flag/voice/fort/grave when saving level data
Wuzzy <Wuzzy2@mail.ru>
parents: 12796
diff changeset
  1506
		if not tVoice then tVoice = "Default" end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1507
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1508
		lastRecordedTeam = GetHogTeamName(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1509
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1510
		table.insert(tempDataList, "")
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  1511
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  1512
		local oTeamName = getGearValue(gear, "originalTeamName")
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  1513
		if oTeamName == nil or oTeamName == "" then
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  1514
			oTeamName = GetHogTeamName(gear)
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  1515
		end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1516
		table.insert	(tempDataList,
12014
c69b36964374 Tweak HedgeEditor output: loc() hog/team names and tweak mission text
Wuzzy <almikes@aol.com>
parents: 12013
diff changeset
  1517
						"	AddTeam(loc(\"" ..
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  1518
						oTeamName  .. "\")" ..
12013
9b4abde68e3b HedgeEditor: Fix broken export of team colors
Wuzzy <almikes@aol.com>
parents: 12012
diff changeset
  1519
						", " .. tColor ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1520
						", " .. "\"" .. tGrave .. "\"" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1521
						", " .. "\"" .. tFort .. "\"" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1522
						", " .. "\"" .. tVoice .. "\"" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1523
						", " .. "\"" .. tFlag .. "\"" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1524
						")"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1525
						)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1526
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1527
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1528
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1529
	table.insert(hhs, gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1530
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  1531
	local oName = getGearValue(gear, "originalName")
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  1532
	if oName == nil or oName == "" then
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  1533
		oName = GetHogName(gear)
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  1534
	end
12014
c69b36964374 Tweak HedgeEditor output: loc() hog/team names and tweak mission text
Wuzzy <almikes@aol.com>
parents: 12013
diff changeset
  1535
	table.insert	(tempDataList,	"	hhs[" .. #hhs .."] = AddHog(loc(\"" ..
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  1536
					oName .. "\"), " ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1537
					GetHogLevel(gear) .. ", " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1538
					GetHealth(gear) .. ", \"" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1539
					GetHogHat(gear) .. "\"" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1540
					")"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1541
			)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1542
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1543
	table.insert	(tempDataList,"	SetGearPosition(hhs[" .. #hhs .. "], " .. GetX(gear) .. ", " .. GetY(gear) .. ")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1544
12652
f190ed9df875 HedgeEditor: Also save hog effects (e.g. poison) and looking direction
Wuzzy <almikes@aol.com>
parents: 12651
diff changeset
  1545
	for e=1, #effectArray do
f190ed9df875 HedgeEditor: Also save hog effects (e.g. poison) and looking direction
Wuzzy <almikes@aol.com>
parents: 12651
diff changeset
  1546
		if GetEffect(gear, effectArray[e]) ~= 0 then
f190ed9df875 HedgeEditor: Also save hog effects (e.g. poison) and looking direction
Wuzzy <almikes@aol.com>
parents: 12651
diff changeset
  1547
			table.insert	(tempDataList,"	SetEffect(hhs[" .. #hhs .. "], " .. effectStr[e] .. ", " .. GetEffect(gear, effectArray[e]) .. ")")
f190ed9df875 HedgeEditor: Also save hog effects (e.g. poison) and looking direction
Wuzzy <almikes@aol.com>
parents: 12651
diff changeset
  1548
		end
f190ed9df875 HedgeEditor: Also save hog effects (e.g. poison) and looking direction
Wuzzy <almikes@aol.com>
parents: 12651
diff changeset
  1549
	end
f190ed9df875 HedgeEditor: Also save hog effects (e.g. poison) and looking direction
Wuzzy <almikes@aol.com>
parents: 12651
diff changeset
  1550
	local dX, _ = GetGearVelocity(gear)
f190ed9df875 HedgeEditor: Also save hog effects (e.g. poison) and looking direction
Wuzzy <almikes@aol.com>
parents: 12651
diff changeset
  1551
	if dX < 0 then
f190ed9df875 HedgeEditor: Also save hog effects (e.g. poison) and looking direction
Wuzzy <almikes@aol.com>
parents: 12651
diff changeset
  1552
		table.insert	(tempDataList,"	HogTurnLeft(hhs[" .. #hhs .. "], true)")
f190ed9df875 HedgeEditor: Also save hog effects (e.g. poison) and looking direction
Wuzzy <almikes@aol.com>
parents: 12651
diff changeset
  1553
	end
f190ed9df875 HedgeEditor: Also save hog effects (e.g. poison) and looking direction
Wuzzy <almikes@aol.com>
parents: 12651
diff changeset
  1554
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1555
	if getGearValue(gear,"tag") ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1556
		table.insert	(tempDataList,"	setGearValue(hhs[" .. #hhs .. "], \"tag\", \"" .. getGearValue(gear,"tag") .. "\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1557
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1558
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1559
	-- save the ammo values for each gear, we will call this later
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1560
	-- when we want to output it to console
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1561
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1562
	if getGearValue(gear,"ranking") ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1563
		table.insert(shoppaPointList, "AddShoppaPoint(" .. GetX(gear) .. ", " .. GetY(gear) .. ", " .. getGearValue(gear,"ranking") .. ")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1564
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1565
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1566
	for i = 1, #atkArray do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1567
		setGearValue(gear, atkArray[i][1], GetAmmoCount(gear, atkArray[i][1]))
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1568
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1569
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1570
	for i = 1, #utilArray do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1571
		setGearValue(gear, utilArray[i][1], GetAmmoCount(gear, utilArray[i][1]))
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1572
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1573
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1574
	if GetHogLevel(gear) == 0 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1575
		hogDataList = tempDataList
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1576
	else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1577
		AIHogDataList = tempDataList
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1578
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1579
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1580
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1581
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1582
-- output hog and team data to the console
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1583
function SaveHogData()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1584
11997
c3c7c036c521 HedgeEditor: Fix teams being exported multiple times when saving multiple times in same session
Wuzzy <almikes@aol.com>
parents: 11996
diff changeset
  1585
	teamCounter = 0
c3c7c036c521 HedgeEditor: Fix teams being exported multiple times when saving multiple times in same session
Wuzzy <almikes@aol.com>
parents: 11996
diff changeset
  1586
	lastRecordedTeam = ""
c3c7c036c521 HedgeEditor: Fix teams being exported multiple times when saving multiple times in same session
Wuzzy <almikes@aol.com>
parents: 11996
diff changeset
  1587
	hhs = {}
c3c7c036c521 HedgeEditor: Fix teams being exported multiple times when saving multiple times in same session
Wuzzy <almikes@aol.com>
parents: 11996
diff changeset
  1588
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1589
	runOnHogs(GetDataForSavingHogs)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1590
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1591
	WriteLnToConsole("	------ TEAM LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1592
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1593
	for i = 1, #hogDataList do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1594
		WriteLnToConsole(hogDataList[i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1595
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1596
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1597
	for i = 1, #AIHogDataList do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1598
		WriteLnToConsole(AIHogDataList[i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1599
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1600
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1601
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1602
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1603
	if #shoppaPointList > 0 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1604
		WriteLnToConsole("	------ SHOPPA POINT LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1605
		for i = 1, #shoppaPointList do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1606
			WriteLnToConsole(shoppaPointList[i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1607
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1608
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1609
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1610
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1611
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1612
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1613
-- generates an onGameInit() template with scheme data, team adds, and hogs
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1614
function SaveConfigData()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1615
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1616
	WriteLnToConsole("function onGameInit()")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1617
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1618
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1619
	temp = "	EnableGameFlags(gfDisableWind"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1620
	for i = 1, #gameFlagList do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1621
		if gameFlagList[i][2] == true then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1622
			temp = temp .. ", ".. gameFlagList[i][1]
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1623
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1624
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1625
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1626
	WriteLnToConsole("	ClearGameFlags()")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1627
	WriteLnToConsole(temp .. ")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1628
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1629
	WriteLnToConsole("	Map = \"" .. Map .. "\"")
11993
46bd207d1b17 Update outdated onGameInit variables in HedgeEditor map export, fixes various bugs
Wuzzy <almikes@aol.com>
parents: 11886
diff changeset
  1630
	WriteLnToConsole("	Seed = \"" .. Seed .. "\"")
12048
76285ad6fa7f HedgeEditor: Export WorldEdge, fix export of Theme
Wuzzy <almikes@aol.com>
parents: 12047
diff changeset
  1631
	WriteLnToConsole("	Theme = \"" .. Theme .. "\"")
11993
46bd207d1b17 Update outdated onGameInit variables in HedgeEditor map export, fixes various bugs
Wuzzy <almikes@aol.com>
parents: 11886
diff changeset
  1632
	WriteLnToConsole("	MapGen = " .. MapGen)
46bd207d1b17 Update outdated onGameInit variables in HedgeEditor map export, fixes various bugs
Wuzzy <almikes@aol.com>
parents: 11886
diff changeset
  1633
	WriteLnToConsole("	MapFeatureSize = " .. MapFeatureSize)
46bd207d1b17 Update outdated onGameInit variables in HedgeEditor map export, fixes various bugs
Wuzzy <almikes@aol.com>
parents: 11886
diff changeset
  1634
	WriteLnToConsole("	TemplateFilter = " .. TemplateFilter)
46bd207d1b17 Update outdated onGameInit variables in HedgeEditor map export, fixes various bugs
Wuzzy <almikes@aol.com>
parents: 11886
diff changeset
  1635
	WriteLnToConsole("	TemplateNumber = " .. TemplateNumber)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1636
	WriteLnToConsole("	TurnTime = " .. TurnTime)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1637
	WriteLnToConsole("	Explosives = " .. Explosives)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1638
	WriteLnToConsole("	MinesNum = " .. MinesNum)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1639
	WriteLnToConsole("	CaseFreq = " .. CaseFreq)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1640
	WriteLnToConsole("	Delay = " .. Delay)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1641
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1642
	WriteLnToConsole("	HealthCaseProb = " .. HealthCaseProb)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1643
	WriteLnToConsole("	HealthCaseAmount = " .. HealthCaseAmount)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1644
	WriteLnToConsole("	DamagePercent = " .. DamagePercent)
11993
46bd207d1b17 Update outdated onGameInit variables in HedgeEditor map export, fixes various bugs
Wuzzy <almikes@aol.com>
parents: 11886
diff changeset
  1645
	WriteLnToConsole("	RopePercent = " .. RopePercent)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1646
	WriteLnToConsole("	MinesTime = " .. MinesTime)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1647
	WriteLnToConsole("	MineDudPercent  = " .. MineDudPercent)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1648
	WriteLnToConsole("	SuddenDeathTurns = " .. SuddenDeathTurns)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1649
	WriteLnToConsole("	WaterRise = " .. WaterRise)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1650
	WriteLnToConsole("	HealthDecrease = " .. HealthDecrease)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1651
11993
46bd207d1b17 Update outdated onGameInit variables in HedgeEditor map export, fixes various bugs
Wuzzy <almikes@aol.com>
parents: 11886
diff changeset
  1652
	WriteLnToConsole("	Ready = " .. Ready)
46bd207d1b17 Update outdated onGameInit variables in HedgeEditor map export, fixes various bugs
Wuzzy <almikes@aol.com>
parents: 11886
diff changeset
  1653
	WriteLnToConsole("	AirMinesNum = " .. AirMinesNum)
46bd207d1b17 Update outdated onGameInit variables in HedgeEditor map export, fixes various bugs
Wuzzy <almikes@aol.com>
parents: 11886
diff changeset
  1654
	WriteLnToConsole("	GetAwayTime = " .. GetAwayTime)
12048
76285ad6fa7f HedgeEditor: Export WorldEdge, fix export of Theme
Wuzzy <almikes@aol.com>
parents: 12047
diff changeset
  1655
	WriteLnToConsole("	WorldEdge = " .. WorldEdge)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1656
12653
c755afd8fb6b Remove ScriptParam from HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12652
diff changeset
  1657
	-- ScriptParam intentionally left out, it doesn't make sense for missions.
c755afd8fb6b Remove ScriptParam from HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12652
diff changeset
  1658
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1659
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1660
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1661
	SaveHogData()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1662
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1663
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1664
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1665
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1666
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1667
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1668
-- output gear data as special points to be placed in a converted HWMAP, readable by InterpretPoints()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1669
function ConvertGearDataToHWPText()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1670
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1671
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1672
	WriteLnToConsole("--BEGIN HWMAP CONVERTER POINTS--")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1673
	WriteLnToConsole("-- You can paste this data into the HWMAP converter if needed.")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1674
	WriteLnToConsole("--[[")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1675
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1676
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1677
	for i = 1, #hFlagList do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1678
		WriteLnToConsole(hFlagList[i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1679
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1680
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1681
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1682
	WriteLnToConsole("]]")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1683
	WriteLnToConsole("--END HWMAP CONVERTER POINTS--")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1684
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1685
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1686
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1687
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1688
-- sigh
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1689
-- gradually got more bloated with the addition of hwpoint tracking and
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1690
-- distinction betweeen the need to track victory/win conditions or not
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1691
function GetDataForGearSaving(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1692
11997
c3c7c036c521 HedgeEditor: Fix teams being exported multiple times when saving multiple times in same session
Wuzzy <almikes@aol.com>
parents: 11996
diff changeset
  1693
	local temp = nil
c3c7c036c521 HedgeEditor: Fix teams being exported multiple times when saving multiple times in same session
Wuzzy <almikes@aol.com>
parents: 11996
diff changeset
  1694
	local specialFlag = nil
c3c7c036c521 HedgeEditor: Fix teams being exported multiple times when saving multiple times in same session
Wuzzy <almikes@aol.com>
parents: 11996
diff changeset
  1695
	local arrayList = nil
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1696
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1697
	if GetGearType(gear) == gtMine then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1698
12050
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1699
		temp = 	"	tempG = AddGear(" ..
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1700
			GetX(gear) .. ", " ..
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1701
			GetY(gear) .. ", gtMine, 0, 0, 0, 0)"
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1702
		table.insert(mineList, temp)
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1703
		table.insert(mineList, "	SetTimer(tempG, " .. GetTimer(gear) .. ")")
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1704
		if (GetHealth(gear) == 0) then
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1705
			table.insert(mineList, "	SetHealth(tempG, 0)")
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1706
			local _, damage
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1707
			_,_,_,_,_,_,_,_,_,_,_,damage = GetGearValues(gear)
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1708
			if damage ~= 0 then
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1709
				table.insert(mineList, "	SetGearValues(tempG, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, "..damage..")")
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1710
			end
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1711
		end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1712
		if (getGearValue(gear, "tag") ~= nil) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1713
			table.insert(mineList, "	setGearValue(tempG, \"tag\", \"" .. getGearValue(gear,"tag") .. "\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1714
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1715
11996
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  1716
		if 		GetTimer(gear) == 0 then specialFlag = 1
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1717
		elseif	GetTimer(gear) == 1000 then specialFlag = 2
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1718
		elseif	GetTimer(gear) == 2000 then specialFlag = 3
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1719
		elseif	GetTimer(gear) == 3000 then specialFlag = 4
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1720
		elseif	GetTimer(gear) == 4000 then specialFlag = 5
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1721
		elseif	GetTimer(gear) == 5000 then specialFlag = 6
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1722
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1723
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1724
	elseif GetGearType(gear) == gtSMine then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1725
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1726
		arrayList = sMineList
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1727
		temp = 	"	tempG = AddGear(" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1728
				GetX(gear) .. ", " ..
12050
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1729
				GetY(gear) .. ", gtSMine, 0, 0, 0, 0)"
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1730
		table.insert(sMineList, temp)
12050
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1731
		table.insert(sMineList, "	SetTimer(tempG, " .. GetTimer(gear) .. ")")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1732
		specialFlag = 7
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1733
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1734
	elseif GetGearType(gear) == gtAirMine then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1735
12050
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1736
		temp = 	"	tempG = AddGear(" ..
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1737
			GetX(gear) .. ", " ..
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1738
			GetY(gear) .. ", gtAirMine, 0, 0, 0, 0)"
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1739
		table.insert(airMineList, temp)
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1740
		table.insert(airMineList, "	SetTimer(tempG, " .. GetTimer(gear) .. ")")
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1741
		table.insert(airMineList, "	SetGearValues(tempG, nil, nil, " .. GetTimer(gear) .. ")")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1742
		if (getGearValue(gear, "tag") ~= nil) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1743
			table.insert(airMineList, "	setGearValue(tempG, \"tag\", \"" .. getGearValue(gear,"tag") .. "\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1744
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1745
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1746
		table.insert(previewDataList, "	PreviewPlacedGear(" .. GetX(gear) ..", " ..	GetY(gear) .. ")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1747
		specialFlag = 8
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1748
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1749
	elseif GetGearType(gear) == gtExplosives then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1750
12050
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1751
		temp = 	"	tempG = AddGear(" ..
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1752
			GetX(gear) .. ", " ..
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1753
			GetY(gear) .. ", gtExplosives, 0, 0, 0, 0)"
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1754
		table.insert(explosivesList, temp)
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1755
		table.insert(explosivesList, "	SetHealth(tempG, " .. GetHealth(gear) .. ")")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1756
		if (getGearValue(gear, "tag") ~= nil) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1757
			table.insert(explosivesList, "	setGearValue(tempG, \"tag\", \"" .. getGearValue(gear,"tag") .. "\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1758
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1759
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1760
		table.insert(previewDataList, "	PreviewPlacedGear(" .. GetX(gear) ..", " ..	GetY(gear) .. ")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1761
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1762
		if 		GetHealth(gear) == 1 then specialFlag = 15
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1763
		elseif	GetHealth(gear) == 25 then specialFlag = 16
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1764
		elseif	GetHealth(gear) == 50 then specialFlag = 17
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1765
		elseif	GetHealth(gear) == 75 then specialFlag = 18
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1766
		elseif	GetHealth(gear) == 100 then specialFlag = 19
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1767
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1768
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1769
	elseif GetGearType(gear) == gtTarget then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1770
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1771
		arrayList = targetList
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1772
		temp = 	"	tempG = AddGear(" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1773
				GetX(gear) .. ", " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1774
				GetY(gear) .. ", gtTarget, 0, 0, 0, 0)"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1775
		table.insert(targetList, temp)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1776
		specialFlag = 14
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1777
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1778
	elseif GetGearType(gear) == gtKnife then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1779
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1780
		arrayList = knifeList
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1781
		temp = 	"	tempG = AddGear(" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1782
				GetX(gear) .. ", " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1783
				GetY(gear) .. ", gtKnife, 0, 0, 0, 0)"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1784
		table.insert(knifeList, temp)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1785
		specialFlag = 13
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1786
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1787
	elseif GetGearType(gear) == gtCase then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1788
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1789
		table.insert(previewDataList, "	PreviewPlacedGear(" .. GetX(gear) ..", " ..	GetY(gear) .. ")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1790
12361
d1448cc0b8c2 Fix broken HedgeEditor export of utility and ammo crates
Wuzzy <almikes@aol.com>
parents: 12360
diff changeset
  1791
		-- Health crate
d1448cc0b8c2 Fix broken HedgeEditor export of utility and ammo crates
Wuzzy <almikes@aol.com>
parents: 12360
diff changeset
  1792
		if band(GetGearPos(gear), 0x2) ~= 0 then
12050
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1793
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1794
			temp = 	"	tempG = SpawnHealthCrate(" ..
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1795
				GetX(gear) ..", " ..
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1796
				GetY(gear) ..", " ..
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1797
				GetHealth(gear) .. ")"
f71e34babe8c HedgeEditor: Fix mine, sticky mine, health crate, air mine sometimes being incorrectly exported
Wuzzy <almikes@aol.com>
parents: 12049
diff changeset
  1798
			table.insert(healthCrateList, temp)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1799
			if (getGearValue(gear, "tag") ~= nil) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1800
				table.insert(healthCrateList, "	setGearValue(tempG, \"tag\", \"" .. getGearValue(gear,"tag") .. "\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1801
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1802
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1803
			if 		GetHealth(gear) == 25 then specialFlag = 9
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1804
			elseif	GetHealth(gear) == 50 then specialFlag = 10
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1805
			elseif	GetHealth(gear) == 75 then specialFlag = 11
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1806
			elseif	GetHealth(gear) == 100 then specialFlag = 12
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1807
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1808
12361
d1448cc0b8c2 Fix broken HedgeEditor export of utility and ammo crates
Wuzzy <almikes@aol.com>
parents: 12360
diff changeset
  1809
		-- Ammo crate
d1448cc0b8c2 Fix broken HedgeEditor export of utility and ammo crates
Wuzzy <almikes@aol.com>
parents: 12360
diff changeset
  1810
		elseif band(GetGearPos(gear), 0x1) ~= 0 then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1811
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1812
			arrayList = wepCrateList
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1813
			temp = 	"	tempG = SpawnAmmoCrate(" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1814
					GetX(gear) ..", " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1815
					GetY(gear) ..", " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1816
					getGearValue(gear,"contents") ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1817
					")"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1818
			table.insert(wepCrateList, temp)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1819
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1820
			tempV = getGearValue(gear,"contents")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1821
			for i = 1, #atkArray do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1822
				if tempV == atkArray[i][2] then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1823
					specialFlag = i + 19
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1824
				end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1825
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1826
12361
d1448cc0b8c2 Fix broken HedgeEditor export of utility and ammo crates
Wuzzy <almikes@aol.com>
parents: 12360
diff changeset
  1827
			--dammit, we probably need more entries if we want to allow editing of existing maps
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1828
			table.insert(wepCrateList, "	setGearValue(tempG, \"contents\", \"" .. getGearValue(gear,"contents") .. "\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1829
12361
d1448cc0b8c2 Fix broken HedgeEditor export of utility and ammo crates
Wuzzy <almikes@aol.com>
parents: 12360
diff changeset
  1830
		-- Utility crate
d1448cc0b8c2 Fix broken HedgeEditor export of utility and ammo crates
Wuzzy <almikes@aol.com>
parents: 12360
diff changeset
  1831
		elseif band(GetGearPos(gear), 0x4) ~= 0 then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1832
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1833
			arrayList = utilCrateList
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1834
			temp = 	"	tempG = SpawnUtilityCrate(" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1835
					GetX(gear) ..", " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1836
					GetY(gear) ..", " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1837
					getGearValue(gear,"contents") ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1838
					")"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1839
			table.insert(utilCrateList, temp)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1840
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1841
			tempV = getGearValue(gear,"contents")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1842
			for i = 1, #utilArray do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1843
				if tempV == utilArray[i][2] then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1844
					specialFlag = i + 19 + #atkArray
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1845
				end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1846
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1847
12361
d1448cc0b8c2 Fix broken HedgeEditor export of utility and ammo crates
Wuzzy <almikes@aol.com>
parents: 12360
diff changeset
  1848
			--dammit, we probably need more entries if we want to allow editing of existing maps
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1849
			table.insert(utilCrateList, "	setGearValue(tempG, \"contents\", \"" .. getGearValue(gear,"contents") .. "\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1850
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1851
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1852
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1853
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1854
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1855
	-- add tracking of simple win/lose for simpler gears that have a tempG = listed above
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1856
	if (getGearValue(gear, "tag") ~= nil) and (arrayList ~= nil) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1857
		table.insert(arrayList, "	setGearValue(tempG, \"tag\", \"" .. getGearValue(gear,"tag") .. "\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1858
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1859
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1860
	-- this creates a big, messy list of special flags for use in hwmaps
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1861
	if specialFlag ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1862
		table.insert(hFlagList, "	" .. GetX(gear) .. " " .. GetY(gear) .. " " .. specialFlag)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1863
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1864
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1865
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1866
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1867
-- generate a title and list all the gears if there is at least 1 of them in the list
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1868
function AppendGearList(gearList, consoleLine)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1869
	if #gearList > 0 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1870
		WriteLnToConsole(consoleLine)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1871
		for i = 1, #gearList do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1872
			WriteLnToConsole(gearList[i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1873
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1874
		WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1875
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1876
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1877
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1878
-- new attempt at doing shit a bit cleaner:
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1879
-- it may be a bit verbose, but this should generate a comprehensive, human-readable
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1880
-- list of gears, broken up into sections and output it to the console
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1881
function SaveGearData()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1882
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1883
	runOnGears(GetDataForGearSaving)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1884
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1885
	AppendGearList(healthCrateList, "	------ HEALTH CRATE LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1886
	AppendGearList(wepCrateList, "	------ AMMO CRATE LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1887
	AppendGearList(utilCrateList, "	------ UTILITY CRATE LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1888
	AppendGearList(explosivesList, "	------ BARREL LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1889
	AppendGearList(mineList, "	------ MINE LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1890
	AppendGearList(sMineList, "	------ STICKY MINE LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1891
	AppendGearList(airMineList, "	------ AIR MINE LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1892
	AppendGearList(targetList, "	------ TARGET LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1893
	AppendGearList(knifeList, "	------ CLEAVER LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1894
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1895
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1896
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1897
function DoAmmoLoop(i)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1898
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1899
	for x = 1, #atkArray do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1900
		if getGearValue(hhs[i],atkArray[x][1]) ~= 0 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1901
			WriteLnToConsole("	AddAmmo(hhs[" .. i .. "], " .. atkArray[x][2] .. ", " .. getGearValue(hhs[i],atkArray[x][1]) .. ")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1902
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1903
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1904
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1905
	for x = 1, #utilArray do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1906
		if getGearValue(hhs[i],utilArray[x][1]) ~= 0 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1907
			WriteLnToConsole("	AddAmmo(hhs[" .. i .. "], " .. utilArray[x][2] .. ", " .. getGearValue(hhs[i],utilArray[x][1]) .. ")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1908
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1909
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1910
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1911
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1912
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1913
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1914
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1915
-- this is called when a tagged gear is deleted during a mission
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1916
-- it determines if the game is ready to conclude in victory/defeat
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1917
function CheckForConclusion(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1918
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1919
	-- failure gears must always all be protected, so if any of them are destroyed the player loses
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1920
	if getGearValue(gear,"tag") == "failure" then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1921
		EndGameIn("failure")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1922
	else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1923
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1924
		-- the presence of other tagged gears means that the goal of this mission is not
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1925
		-- simply to kill every hedgehog. Thus, we need to count the remaining tagged objects
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1926
		-- to see how close we are to completing the mission successfully.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1927
		victoryObj = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1928
		failObj = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1929
		collectObj = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1930
		runOnGears(CheckForConditions)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1931
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1932
		if GetGearType(gear) ~= gtCase then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1933
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1934
			-- non-crates can only be tagged as victory or failure, and as this wasn't tagged
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1935
			-- "failure" in our earlier check, this must be a victory tagged gear. Let's adust
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1936
			-- the number of objects accordingly as it's in the process of being destroyed.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1937
			victoryObj = victoryObj - 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1938
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1939
			-- if there are no objectives left to complete, end the game in victory
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1940
			if (victoryObj == 0) and (collectObj == 0) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1941
				EndGameIn("victory")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1942
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1943
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1944
		else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1945
			-- this crate was deleted, but was it collected or destroyed, and how does that match
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1946
			-- the goals of our mission?
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1947
			if (GetGearMessage(gear) == 256) and (getGearValue(gear,"tag") == "collection") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1948
				if GetHogLevel(CurrentHedgehog) == 0 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1949
					-- the enemy stole our crate
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1950
					EndGameIn("failure")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1951
				else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1952
					collectObj = collectObj - 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1953
					if (victoryObj == 0) and (collectObj == 0) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1954
						EndGameIn("victory")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1955
					end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1956
				end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1957
			elseif (GetGearMessage(gear) == 0) and (getGearValue(gear,"tag") == "victory") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1958
				victoryObj = victoryObj - 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1959
				if (victoryObj == 0) and (collectObj == 0) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1960
					EndGameIn("victory")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1961
				end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1962
			else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1963
				-- unfortunately, we messed up our mission.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1964
				EndGameIn("failure")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1965
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1966
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1967
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1968
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1969
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1970
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1971
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1972
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1973
---------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1974
-- THE BIG ONE
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1975
---------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1976
-- saving process starts here
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1977
-- saves all level data to logs/game0.log and generates a simple script template
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1978
function SaveLevelData()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1979
12011
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1980
	waypointList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1981
	girderList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1982
	rubberList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1983
	spriteList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1984
	mineList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1985
	sMineList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1986
	airMineList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1987
	targetList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1988
	knifeList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1989
	explosivesList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1990
	healthCrateList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1991
	wepCrateList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1992
	utilCrateList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1993
	hFlagList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1994
	previewDataList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1995
	shoppaPointList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1996
	hogDataList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1997
	AIHogDataList = {}
86cd92f64979 HedgeEditor: Fix stuff being exported multiple times on multiple saves
Wuzzy <almikes@aol.com>
parents: 12010
diff changeset
  1998
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  1999
	WriteLnToConsole("------ BEGIN SCRIPT ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2000
	WriteLnToConsole("-- Copy and Paste this text into an empty text file, and save it as")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2001
	WriteLnToConsole("-- YOURTITLEHERE.lua, in your Data/Missions/Training/ folder.")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2002
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2003
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2004
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2005
	WriteLnToConsole("HedgewarsScriptLoad(\"/Scripts/Locale.lua\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2006
	WriteLnToConsole("HedgewarsScriptLoad(\"/Scripts/Tracker.lua\")")
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
  2007
	WriteLnToConsole("HedgewarsScriptLoad(\"/Scripts/Utils.lua\")")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2008
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2009
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2010
	WriteLnToConsole("local hhs = {}")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2011
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2012
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2013
	SaveConfigData()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2014
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2015
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2016
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2017
	WriteLnToConsole("function LoadHogWeapons()")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2018
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2019
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2020
	if band(GameFlags, gfPerHogAmmo) ~= 0 then -- per hog ammo
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2021
		for i = 1, #hhs do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2022
			DoAmmoLoop(i)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2023
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2024
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2025
	else	-- team-based ammo
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2026
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2027
		teamCounter = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2028
		lastRecordedTeam = ""
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2029
		for i = 1, #hhs do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2030
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2031
			if GetHogTeamName(hhs[i]) ~= lastRecordedTeam then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2032
				lastRecordedTeam = GetHogTeamName(hhs[i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2033
				teamCounter = teamCounter + 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2034
				if teamCounter == 9 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2035
					teamCounter = 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2036
				end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2037
				DoAmmoLoop(i)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2038
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2039
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2040
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2041
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2042
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2043
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2044
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2045
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2046
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2047
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2048
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2049
	WriteLnToConsole("function LoadSprite(pX, pY, pSprite, pFrame, pTint, p1, p2, p3, pLandFlags)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2050
	WriteLnToConsole("	PlaceSprite(pX, pY, pSprite, pFrame, pTint, p1, p2, p3, pLandFlags)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2051
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2052
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2053
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2054
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2055
	WriteLnToConsole("function LoadGearData()")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2056
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2057
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2058
	WriteLnToConsole("	--BEGIN CORE DATA--")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2059
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2060
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2061
	WriteLnToConsole("	------ PORTAL DISTANCE and UFO FUEL ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2062
	WriteLnToConsole("	ufoFuel = " .. ufoFuel)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2063
	WriteLnToConsole("	portalDistance = " .. portalDistance*5)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2064
	table.insert(hFlagList, "	" .. portalDistance*5 .. " " .. ufoFuel .. " " .. 98)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2065
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2066
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2067
	for i = 0, (placedCount-1) do
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  2068
		if placedType[i] == loc("Waypoint Editing Mode") then
12344
ae699a0b054b HedgeEditor: Disable waypoint export because output scripts break when waypoints have been added
Wuzzy <almikes@aol.com>
parents: 12343
diff changeset
  2069
			--[[ TODO/FIXME: Somehow incorporate the waypoints in an actual useful manner.
ae699a0b054b HedgeEditor: Disable waypoint export because output scripts break when waypoints have been added
Wuzzy <almikes@aol.com>
parents: 12343
diff changeset
  2070
			The functions AddWayPoint and PreviewWayPoint do not exist and will thus be commented-out
ae699a0b054b HedgeEditor: Disable waypoint export because output scripts break when waypoints have been added
Wuzzy <almikes@aol.com>
parents: 12343
diff changeset
  2071
			in the output code. They are added anyway so the user sees the coordinates
ae699a0b054b HedgeEditor: Disable waypoint export because output scripts break when waypoints have been added
Wuzzy <almikes@aol.com>
parents: 12343
diff changeset
  2072
			]]
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2073
			table.insert(waypointList,
12344
ae699a0b054b HedgeEditor: Disable waypoint export because output scripts break when waypoints have been added
Wuzzy <almikes@aol.com>
parents: 12343
diff changeset
  2074
			"--	AddWayPoint(" ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2075
				placedX[i] ..", " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2076
				placedY[i] ..")"
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2077
				)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2078
			table.insert(hFlagList, "	" .. placedX[i] .. " " .. placedY[i] .. " " .. "0")
12344
ae699a0b054b HedgeEditor: Disable waypoint export because output scripts break when waypoints have been added
Wuzzy <almikes@aol.com>
parents: 12343
diff changeset
  2079
			table.insert(previewDataList, "--	PreviewWayPoint(" .. placedX[i] ..", " ..	placedY[i] .. ")")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2080
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2081
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2082
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
  2083
	-- Helper table to convert tint color value to printable string
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
  2084
	local tint2String = {
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
  2085
		[U_LAND_TINT_INDESTRUCTIBLE] = "U_LAND_TINT_INDESTRUCTIBLE",
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
  2086
		[U_LAND_TINT_ICE] = "U_LAND_TINT_ICE",
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
  2087
		[U_LAND_TINT_BOUNCY] = "U_LAND_TINT_BOUNCY",
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
  2088
		[U_LAND_TINT_NORMAL] = "U_LAND_TINT_NORMAL",
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
  2089
	}
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2090
	for i = 0, (placedCount-1) do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2091
		if placedType[i] == loc("Girder Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2092
			table.insert(girderList,
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2093
			"	LoadSprite(" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2094
				placedX[i] ..", " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2095
				placedY[i] ..", sprAmGirder, " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2096
				placedFrame[i] ..			-- the rotation/frame
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2097
				", " ..
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
  2098
				tint2String[placedTint[i]] ..", " .. -- color
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2099
				"nil, nil, nil, " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2100
				placedLandFlags[i] .. ")" --the landType
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2101
				)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2102
			table.insert(hFlagList, "	" .. placedX[i] .. " " .. placedY[i] .. " " .. placedHWMapFlag[i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2103
			table.insert(previewDataList, "	PreviewGirder(" .. placedX[i] ..", " ..	placedY[i] .. ", " .. placedFrame[i] .. ")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2104
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2105
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2106
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2107
	for i = 0, (placedCount-1) do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2108
		if placedType[i] == loc("Rubber Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2109
			table.insert(rubberList,
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2110
				"	LoadSprite(" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2111
				placedX[i] ..", " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2112
				placedY[i] ..", sprAmRubber, " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2113
				placedFrame[i] ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2114
				", " ..
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
  2115
				tint2String[placedTint[i]] ..", " .. -- color
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2116
				"nil, nil, nil, " ..
12000
ec3fe3068932 HedgeEditor: Throw away code in comments and unused variables
Wuzzy <almikes@aol.com>
parents: 11999
diff changeset
  2117
				"lfBouncy)" --the landType
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2118
				)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2119
			table.insert(hFlagList, "	" .. placedX[i] .. " " .. placedY[i] .. " " .. placedHWMapFlag[i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2120
			table.insert(previewDataList, "	PreviewRubber(" .. placedX[i] ..", " ..	placedY[i] .. ", " .. placedFrame[i] .. ")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2121
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2122
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2123
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2124
	for i = 0, (placedCount-1) do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2125
		if placedType[i] == loc("Sprite Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2126
				table.insert(spriteList,
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2127
				"	LoadSprite(" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2128
				placedX[i] ..", " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2129
				placedY[i] ..", " .. placedSprite[i] .. ", " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2130
				placedFrame[i] .. -- I think this is the frame, can't remember
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2131
				", " ..
13670
5664650befcd Move common sprite tint values into Utils Lua library
Wuzzy <Wuzzy2@mail.ru>
parents: 13669
diff changeset
  2132
				tint2String[placedTint[i]] ..", " .. -- color
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2133
				"nil, nil, nil, " ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2134
				placedLandFlags[i] .. ")" --the landType
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2135
				)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2136
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2137
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2138
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2139
	AppendGearList(waypointList, "	------ WAYPOINT LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2140
	AppendGearList(girderList, "	------ GIRDER LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2141
	AppendGearList(rubberList, "	------ RUBBER LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2142
	AppendGearList(spriteList, "	------ SPRITE LIST ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2143
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2144
	SaveGearData()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2145
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2146
	WriteLnToConsole("	--END CORE DATA--")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2147
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2148
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2149
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2150
	WriteLnToConsole("	LoadHogWeapons()")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2151
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2152
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2153
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2154
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2155
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2156
	WriteLnToConsole("function onGameStart()")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2157
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2158
	WriteLnToConsole("	LoadGearData()")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2159
	WriteLnToConsole("	DetermineMissionGoal()")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2160
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2161
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2162
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2163
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2164
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2165
	WriteLnToConsole("function onNewTurn()")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2166
	WriteLnToConsole("	--insert code according to taste")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2167
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2168
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2169
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2170
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2171
	WriteLnToConsole("function onGameTick()")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2172
	WriteLnToConsole("	runOnGears(UpdateTagCircles)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2173
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2174
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2175
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2176
	WriteLnToConsole("function UpdateTagCircles(gear)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2177
	WriteLnToConsole("	if getGearValue(gear,\"tag\") ~= nil then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2178
	WriteLnToConsole("		if getGearValue(gear,\"tCirc\") == nil then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2179
	WriteLnToConsole("			setGearValue(gear, \"tCirc\",AddVisualGear(0,0,vgtCircle,0,true))")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2180
	WriteLnToConsole("		end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2181
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2182
	WriteLnToConsole("		if getGearValue(gear,\"tag\") == \"victory\" then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2183
	WriteLnToConsole("			SetVisualGearValues(getGearValue(gear,\"tCirc\"), GetX(gear), GetY(gear), 100, 255, 1, 10, 0, 150, 3, 0xff0000ff)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2184
	WriteLnToConsole("		elseif getGearValue(gear,\"tag\") == \"failure\" then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2185
	WriteLnToConsole("			SetVisualGearValues(getGearValue(gear,\"tCirc\"), GetX(gear), GetY(gear), 100, 255, 1, 10, 0, 150, 3, 0x00ff00ff)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2186
	WriteLnToConsole("		elseif getGearValue(gear,\"tag\") == \"collection\" then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2187
	WriteLnToConsole("			SetVisualGearValues(getGearValue(gear,\"tCirc\"), GetX(gear), GetY(gear), 100, 255, 1, 10, 0, 150, 3, 0x0000ffff)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2188
	WriteLnToConsole("		end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2189
	WriteLnToConsole("	end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2190
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2191
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2192
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2193
	WriteLnToConsole("function CheckForConditions(gear)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2194
	WriteLnToConsole("	if getGearValue(gear,\"tag\") == \"victory\" then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2195
	WriteLnToConsole("		victoryObj = victoryObj +1")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2196
	WriteLnToConsole("	elseif getGearValue(gear,\"tag\") == \"failure\" then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2197
	WriteLnToConsole("		failObj = failObj +1")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2198
	WriteLnToConsole("	elseif getGearValue(gear,\"tag\") == \"collection\" then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2199
	WriteLnToConsole("		collectObj = collectObj +1")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2200
	WriteLnToConsole("	end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2201
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2202
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2203
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2204
	WriteLnToConsole("function CheckForConclusion(gear)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2205
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2206
	WriteLnToConsole("	if getGearValue(gear,\"tag\") == \"failure\" then ")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2207
	WriteLnToConsole("		EndGameIn(\"failure\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2208
	WriteLnToConsole("	else ")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2209
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2210
	WriteLnToConsole("		victoryObj = 0")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2211
	WriteLnToConsole("		failObj = 0")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2212
	WriteLnToConsole("		collectObj = 0")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2213
	WriteLnToConsole("		runOnGears(CheckForConditions)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2214
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2215
	WriteLnToConsole("		if GetGearType(gear) ~= gtCase then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2216
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2217
	WriteLnToConsole("			victoryObj = victoryObj - 1 ")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2218
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2219
	WriteLnToConsole("			if (victoryObj == 0) and (collectObj == 0) then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2220
	WriteLnToConsole("				EndGameIn(\"victory\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2221
	WriteLnToConsole("			end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2222
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2223
	WriteLnToConsole("		else")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2224
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2225
	WriteLnToConsole("			if (GetGearMessage(gear) == 256) and (getGearValue(gear,\"tag\") == \"collection\") then ")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2226
	WriteLnToConsole("				if GetHogLevel(CurrentHedgehog) ~= 0 then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2227
	WriteLnToConsole("					EndGameIn(\"failure\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2228
	WriteLnToConsole("				else")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2229
	WriteLnToConsole("					collectObj = collectObj - 1")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2230
	WriteLnToConsole("					if (victoryObj == 0) and (collectObj == 0) then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2231
	WriteLnToConsole("						EndGameIn(\"victory\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2232
	WriteLnToConsole("					end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2233
	WriteLnToConsole("				end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2234
	WriteLnToConsole("			elseif (GetGearMessage(gear) == 0) and (getGearValue(gear,\"tag\") == \"victory\") then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2235
	WriteLnToConsole("				victoryObj = victoryObj - 1")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2236
	WriteLnToConsole("				if (victoryObj == 0) and (collectObj == 0) then ")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2237
	WriteLnToConsole("					EndGameIn(\"victory\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2238
	WriteLnToConsole("				end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2239
	WriteLnToConsole("			else")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2240
	WriteLnToConsole("				EndGameIn(\"failure\")")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2241
	WriteLnToConsole("			end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2242
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2243
	WriteLnToConsole("		end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2244
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2245
	WriteLnToConsole("	end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2246
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2247
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2248
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2249
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2250
	WriteLnToConsole("function DetermineMissionGoal()")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2251
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2252
	WriteLnToConsole("	victoryObj = 0")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2253
	WriteLnToConsole("	failObj = 0")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2254
	WriteLnToConsole("	collectObj = 0")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2255
	WriteLnToConsole("	vComment = \"\"")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2256
	WriteLnToConsole("	fComment = \"\"")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2257
	WriteLnToConsole("	collectComment = \"\"")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2258
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2259
	WriteLnToConsole("	runOnGears(CheckForConditions)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2260
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2261
	WriteLnToConsole("	if victoryObj > 0 then ")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2262
	WriteLnToConsole("		if victoryObj == 1 then ")
15093
9aa1ab824ec7 Make the HedgeEditor mission output strings collectable by translation scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 14756
diff changeset
  2263
	WriteLnToConsole([[			vComment = loc("- Destroy the red target") .. "|"]])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2264
	WriteLnToConsole("		else ")
15093
9aa1ab824ec7 Make the HedgeEditor mission output strings collectable by translation scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 14756
diff changeset
  2265
	WriteLnToConsole([[			vComment = loc("- Destroy the red targets") .. "|"]])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2266
	WriteLnToConsole("		end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2267
	WriteLnToConsole("	end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2268
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2269
	WriteLnToConsole("	if collectObj > 0 then ")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2270
	WriteLnToConsole("		if collectObj == 1 then ")
15093
9aa1ab824ec7 Make the HedgeEditor mission output strings collectable by translation scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 14756
diff changeset
  2271
	WriteLnToConsole([[			collectComment = loc("- Collect the blue crate") .. "|"]])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2272
	WriteLnToConsole("		else ")
15093
9aa1ab824ec7 Make the HedgeEditor mission output strings collectable by translation scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 14756
diff changeset
  2273
	WriteLnToConsole([[			collectComment = loc("- Collect all the blue crates") .. "|"]])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2274
	WriteLnToConsole("		end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2275
	WriteLnToConsole("	end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2276
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2277
	WriteLnToConsole("	if (collectObj == 0) and (victoryObj == 0) then")
15093
9aa1ab824ec7 Make the HedgeEditor mission output strings collectable by translation scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 14756
diff changeset
  2278
	WriteLnToConsole([[		vComment = loc("- Destroy the enemy") .. "|"]])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2279
	WriteLnToConsole("	end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2280
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2281
	WriteLnToConsole("	if failObj > 0 then ")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2282
	WriteLnToConsole("		if failObj == 1 then ")
15093
9aa1ab824ec7 Make the HedgeEditor mission output strings collectable by translation scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 14756
diff changeset
  2283
	WriteLnToConsole([[			fComment = loc("- The green target must survive") .. "|"]])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2284
	WriteLnToConsole("		else ")
15093
9aa1ab824ec7 Make the HedgeEditor mission output strings collectable by translation scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 14756
diff changeset
  2285
	WriteLnToConsole([[			fComment = loc("- The green targets must survive") .. "|"]])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2286
	WriteLnToConsole("		end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2287
	WriteLnToConsole("	end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2288
	WriteLnToConsole("")
15093
9aa1ab824ec7 Make the HedgeEditor mission output strings collectable by translation scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 14756
diff changeset
  2289
	WriteLnToConsole([[	ShowMission(loc("User Mission"), loc("Mission"), collectComment .. vComment .. fComment, 1, 0)]])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2290
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2291
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2292
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2293
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2294
	WriteLnToConsole("function isATrackedGear(gear)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2295
	WriteLnToConsole("	if 	(GetGearType(gear) == gtHedgehog) or")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2296
	WriteLnToConsole("		(GetGearType(gear) == gtExplosives) or")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2297
	WriteLnToConsole("		(GetGearType(gear) == gtMine) or")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2298
	WriteLnToConsole("		(GetGearType(gear) == gtSMine) or")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2299
	WriteLnToConsole("		(GetGearType(gear) == gtAirMine) or")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2300
	WriteLnToConsole("		(GetGearType(gear) == gtTarget) or")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2301
	WriteLnToConsole("		(GetGearType(gear) == gtKnife) or")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2302
	WriteLnToConsole("		(GetGearType(gear) == gtPortal) or")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2303
	WriteLnToConsole("		(GetGearType(gear) == gtCase)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2304
	WriteLnToConsole("	then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2305
	WriteLnToConsole("		return(true)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2306
	WriteLnToConsole("	else")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2307
	WriteLnToConsole("		return(false)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2308
	WriteLnToConsole("	end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2309
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2310
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2311
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2312
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2313
	WriteLnToConsole("function onGearAdd(gear)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2314
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2315
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2316
	WriteLnToConsole("	if isATrackedGear(gear) then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2317
	WriteLnToConsole("		trackGear(gear)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2318
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2319
	WriteLnToConsole("	end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2320
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2321
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2322
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2323
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2324
	WriteLnToConsole("function EndGameIn(c)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2325
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2326
	WriteLnToConsole("	teamCounter = 0")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2327
	WriteLnToConsole("	lastRecordedTeam = \"\" ")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2328
	WriteLnToConsole("	for i = 1, #hhs do")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2329
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2330
	WriteLnToConsole("		if GetHogTeamName(hhs[i]) ~= lastRecordedTeam then --er, is this okay without nill checks?")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2331
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2332
	WriteLnToConsole("			lastRecordedTeam = GetHogTeamName(hhs[i])")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2333
	WriteLnToConsole("			teamCounter = teamCounter + 1")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2334
	WriteLnToConsole("			if teamCounter == 9 then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2335
	WriteLnToConsole("				teamCounter = 1")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2336
	WriteLnToConsole("			end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2337
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2338
	WriteLnToConsole("			if (c ==  \"victory\") and (GetHogLevel(hhs[i]) ~= 0) then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2339
	WriteLnToConsole("				DismissTeam(GetHogTeamName(hhs[i]))")
15093
9aa1ab824ec7 Make the HedgeEditor mission output strings collectable by translation scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 14756
diff changeset
  2340
	WriteLnToConsole([[				AddCaption(loc("Victory!"), capcolDefault, capgrpGameState)]])
9aa1ab824ec7 Make the HedgeEditor mission output strings collectable by translation scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 14756
diff changeset
  2341
	WriteLnToConsole([[				ShowMission(loc("User Mission"), loc("Mission"), loc("Mission succeeded!"), 0, 0)]])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2342
	WriteLnToConsole("			elseif (c ==  \"failure\") and (GetHogLevel(hhs[i]) == 0) then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2343
	WriteLnToConsole("				DismissTeam(GetHogTeamName(hhs[i]))")
15093
9aa1ab824ec7 Make the HedgeEditor mission output strings collectable by translation scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 14756
diff changeset
  2344
	WriteLnToConsole([[				AddCaption(loc("Defeat!"), capcolDefault, capgrpGameState)]])
9aa1ab824ec7 Make the HedgeEditor mission output strings collectable by translation scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 14756
diff changeset
  2345
	WriteLnToConsole([[				ShowMission(loc("User Mission"), loc("Mission"), loc("Mission failed!"), -amSkip, 0)]])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2346
	WriteLnToConsole("			elseif (c ==  \"victory\") and (GetHogLevel(hhs[i]) == 0) then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2347
	WriteLnToConsole("				PlaySound(sndVictory,hhs[i]) -- check if we actually need this")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2348
	WriteLnToConsole("			end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2349
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2350
	WriteLnToConsole("		end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2351
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2352
	WriteLnToConsole("	end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2353
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2354
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2355
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2356
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2357
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2358
	WriteLnToConsole("function onGearDelete(gear)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2359
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2360
	WriteLnToConsole("	--insert code according to taste")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2361
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2362
	WriteLnToConsole("	if isATrackedGear(gear) then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2363
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2364
	WriteLnToConsole("		if getGearValue(gear,\"tag\") ~= nil then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2365
	WriteLnToConsole("			CheckForConclusion(gear)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2366
	WriteLnToConsole("		end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2367
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2368
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2369
	WriteLnToConsole("		if getGearValue(gear, \"tCirc\") ~= nil then")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2370
	WriteLnToConsole("			DeleteVisualGear(getGearValue(gear, \"tCirc\"))")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2371
	WriteLnToConsole("		end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2372
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2373
	WriteLnToConsole("		trackDeletion(gear)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2374
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2375
	WriteLnToConsole("	end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2376
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2377
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2378
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2379
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2380
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2381
	WriteLnToConsole("--enable and/or alter code according to taste")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2382
	WriteLnToConsole("function onAmmoStoreInit()")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2383
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2384
12360
37ed9df448fa Refactor HedgeEditor output, get rid of wepArray in favor of simpler ammo iteration
Wuzzy <almikes@aol.com>
parents: 12344
diff changeset
  2385
	WriteLnToConsole("	for i = 0, AmmoTypeMax do")
37ed9df448fa Refactor HedgeEditor output, get rid of wepArray in favor of simpler ammo iteration
Wuzzy <almikes@aol.com>
parents: 12344
diff changeset
  2386
	WriteLnToConsole("		if i ~= amNothing then")
37ed9df448fa Refactor HedgeEditor output, get rid of wepArray in favor of simpler ammo iteration
Wuzzy <almikes@aol.com>
parents: 12344
diff changeset
  2387
	WriteLnToConsole("			SetAmmo(i, 0, 0, 0, 1)")
37ed9df448fa Refactor HedgeEditor output, get rid of wepArray in favor of simpler ammo iteration
Wuzzy <almikes@aol.com>
parents: 12344
diff changeset
  2388
	WriteLnToConsole("		end")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2389
	WriteLnToConsole("	end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2390
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2391
	WriteLnToConsole("	SetAmmo(amSkip, 9, 0, 0, 0)")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2392
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2393
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2394
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2395
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2396
	WriteLnToConsole("------ END GENERATED MISSION ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2397
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2398
	-- at this point, generation for the missions/training output is intended to stop
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2399
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2400
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2401
	WriteLnToConsole("function GeneratePreviewData()")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2402
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2403
	for i = 1, #previewDataList do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2404
		WriteLnToConsole(previewDataList[i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2405
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2406
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2407
	WriteLnToConsole("end")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2408
	WriteLnToConsole("")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2409
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2410
	ConvertGearDataToHWPText()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2411
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2412
	WriteLnToConsole("------ END GENERATED SCRIPT ------")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2413
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  2414
	AddCaption(loc("Level Data Saved!"), colorInfoMessage, capgrpGameState)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2415
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2416
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2417
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2418
----------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2419
-- some special effects handling
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2420
----------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2421
function SmokePuff(x,y,c)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2422
	tempE = AddVisualGear(x, y, vgtSmoke, 0, false)
11999
6fd96a5d4e6f HedgeEditor: Refactor legacy GetVisualGearValues code
Wuzzy <almikes@aol.com>
parents: 11998
diff changeset
  2423
	SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, 1, nil, c )
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2424
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2425
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2426
function HandleGearBasedRankingEffects(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2427
	if getGearValue(gear, "ranking") ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2428
		SmokePuff(GetX(gear), GetY(gear),GetRankedColour(getGearValue(gear, "ranking")))
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2429
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2430
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2431
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2432
function HandleRankingEffects()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2433
	for i = 1, #shoppaPX do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2434
		SmokePuff(shoppaPX[i], shoppaPY[i], GetRankedColour(shoppaPR[i]))
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2435
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2436
	runOnHogs(HandleGearBasedRankingEffects)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2437
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2438
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2439
function UpdateTagCircles(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2440
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2441
	if getGearValue(gear,"tag") ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2442
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  2443
		if cat[cIndex] == loc("Goal Definition Mode") then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2444
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2445
			-- generate circs for tagged gears that don't have a circ yet (new)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2446
			if getGearValue(gear,"tCirc") == nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2447
				setGearValue(gear, "tCirc",AddVisualGear(0,0,vgtCircle,0,true))
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2448
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2449
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2450
			if getGearValue(gear,"tag") == "victory" then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2451
				SetVisualGearValues(getGearValue(gear,"tCirc"), GetX(gear), GetY(gear), 100, 255, 1, 10, 0, 150, 3, 0xff0000ff)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2452
			elseif getGearValue(gear,"tag") == "failure" then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2453
				SetVisualGearValues(getGearValue(gear,"tCirc"), GetX(gear), GetY(gear), 100, 255, 1, 10, 0, 150, 3, 0x00ff00ff)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2454
			elseif getGearValue(gear,"tag") == "collection" then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2455
				SetVisualGearValues(getGearValue(gear,"tCirc"), GetX(gear), GetY(gear), 100, 255, 1, 10, 0, 150, 3, 0x0000ffff)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2456
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2457
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2458
		else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2459
			SetVisualGearValues(getGearValue(gear,"tCirc"), GetX(gear), GetY(gear), 0, 1, 1, 10, 0, 1, 1, 0x00000000)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2460
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2461
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2462
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2463
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2464
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2465
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2466
-- handle short range portal gun
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2467
function PortalEffects(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2468
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2469
	if GetGearType(gear) == gtPortal then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2470
13287
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13282
diff changeset
  2471
		local tag = GetTag(gear)
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13282
diff changeset
  2472
		local col
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2473
		if tag == 0 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2474
			col = 0xfab02aFF -- orange ball
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2475
		elseif tag == 1 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2476
			col = 0x00FF00FF -- orange portal
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2477
		elseif tag == 2 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2478
			col = 0x364df7FF  -- blue ball
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2479
		elseif tag == 3 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2480
			col = 0xFFFF00FF  -- blue portal
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2481
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2482
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2483
		if (tag == 0) or (tag == 2) then -- i.e ball form
13287
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13282
diff changeset
  2484
			local remLife = getGearValue(gear,"life")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2485
			remLife = remLife - 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2486
			setGearValue(gear, "life", remLife)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2487
13287
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13282
diff changeset
  2488
			-- Destroy portal ball when max. distance reached
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2489
			if remLife == 0 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2490
13692
a8b2a5e7e9db Clean up more visual gears stuff in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13670
diff changeset
  2491
				local tempE = AddVisualGear(GetX(gear)+15, GetY(gear), vgtSmoke, 0, false)
13287
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13282
diff changeset
  2492
				SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, nil, col)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2493
13692
a8b2a5e7e9db Clean up more visual gears stuff in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13670
diff changeset
  2494
				tempE = AddVisualGear(GetX(gear)-15, GetY(gear), vgtSmoke, 0, false)
13287
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13282
diff changeset
  2495
				SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, nil, col)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2496
13692
a8b2a5e7e9db Clean up more visual gears stuff in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13670
diff changeset
  2497
				tempE = AddVisualGear(GetX(gear), GetY(gear)+15, vgtSmoke, 0, false)
13287
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13282
diff changeset
  2498
				SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, nil, col)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2499
13692
a8b2a5e7e9db Clean up more visual gears stuff in scripts
Wuzzy <Wuzzy2@mail.ru>
parents: 13670
diff changeset
  2500
				tempE = AddVisualGear(GetX(gear), GetY(gear)-15, vgtSmoke, 0, false)
13287
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13282
diff changeset
  2501
				SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, nil, col)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2502
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2503
				PlaySound(sndVaporize)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2504
				DeleteGear(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2505
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2506
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2507
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2508
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2509
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2510
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2511
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2512
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2513
12012
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2514
function updateHelp(curAmmoType)
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2515
	if curAmmoType == nil then
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2516
		curAmmoType = GetCurAmmoType()
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2517
	end
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2518
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  2519
	if (curAmmoType ~= amGirder) and (curAmmoType ~= amRubber) and (curAmmoType ~= amCMGearPlacementTool) then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2520
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2521
		if not hedgeEditorMissionPanelShown then
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2522
			showHedgeEditorMissionPanel()
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2523
		end
12005
132ffe52d943 Write better “greeting” message for HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12004
diff changeset
  2524
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2525
	elseif cat[cIndex] == loc("Girder Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2526
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2527
		ShowMission	(
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2528
				loc("GIRDER PLACEMENT MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2529
				loc("Place girders"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2530
				loc("Place Girder: [Left Click]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2531
				loc("Change Rotation: [Left], [Right]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2532
				" " .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2533
				loc("Normal Girder: [1]") .. "|" ..
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2534
				loc("Indestructible Girder: [2]") .. "|" ..
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2535
				loc("Icy Girder: [3]") .. "|" ..
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2536
				loc("Bouncy Girder: [4]") .. "|" ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2537
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2538
				loc("Deletion Mode: [5]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2539
				" " .. "|" ..
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2540
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2541
				"", -amGirder, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2542
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2543
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2544
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2545
	elseif cat[cIndex] == loc("Rubber Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2546
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2547
		ShowMission	(
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2548
				loc("RUBBER PLACEMENT MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2549
				loc("Place rubber"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2550
				loc("Place Object: [Left Click]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2551
				loc("Change Rotation: [Left], [Right]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2552
				" " .. "|" ..
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2553
				loc("Normal Rubber: [1]") .. "|" ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2554
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2555
				loc("Deletion Mode: [5]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2556
				" " .. "|" ..
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2557
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2558
				"", -amRubber, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2559
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2560
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2561
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2562
	elseif cat[cIndex] == loc("Barrel Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2563
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2564
		ShowMission	(
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2565
				loc("BARREL PLACEMENT MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2566
				loc("Place barrels"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2567
				loc("Place Object: [Left Click]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2568
				loc("Change Health: [Left], [Right]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2569
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2570
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2571
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2572
				"", 8, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2573
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2574
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2575
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2576
	elseif cat[cIndex] == loc("Cleaver Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2577
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2578
		ShowMission	(
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  2579
				loc("CLEAVER PLACEMENT MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2580
				loc("Place cleavers"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2581
				loc("Place Object: [Left Click]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2582
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2583
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2584
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2585
				"", -amKnife, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2586
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2587
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2588
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2589
	elseif cat[cIndex] == loc("Target Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2590
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2591
		ShowMission	(
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  2592
				loc("TARGET PLACEMENT MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2593
				loc("Place targets"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2594
				loc("Place Object: [Left Click]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2595
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2596
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2597
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2598
				"", 1, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2599
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2600
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2601
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  2602
	elseif cat[cIndex] == loc("Waypoint Editing Mode") then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2603
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2604
		ShowMission	(
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  2605
				loc("WAYPOINT EDITING MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2606
				loc("Place or delete waypoints"),
12003
7d8dcac2eae1 HedgeEditor: Generally improve menu help texts
Wuzzy <almikes@aol.com>
parents: 12002
diff changeset
  2607
				loc("Place/Delete Waypoint: [Left Click]") .. "|" ..
7d8dcac2eae1 HedgeEditor: Generally improve menu help texts
Wuzzy <almikes@aol.com>
parents: 12002
diff changeset
  2608
				loc("Toggle Placement/Deletion: [Left], [Right]") .. "|" ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2609
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2610
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2611
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2612
				"", -amCMGearPlacementTool, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2613
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2614
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2615
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2616
	elseif cat[cIndex] == loc("Mine Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2617
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2618
		ShowMission	(
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2619
				loc("MINE PLACEMENT MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2620
				loc("Place mines"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2621
				loc("Place Object: [Left Click]") .. "|" ..
12031
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  2622
				loc("Change Timer: [Left], [Right]") .. "|" ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2623
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2624
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2625
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2626
				"", -amMine, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2627
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2628
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2629
11996
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  2630
	elseif cat[cIndex] == loc("Dud Mine Placement Mode") then
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  2631
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  2632
		ShowMission	(
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  2633
				loc("DUD MINE PLACEMENT MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2634
				loc("Place dud mines"),
11996
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  2635
				loc("Place Object: [Left Click]") .. "|" ..
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  2636
				loc("Change Health: [Left], [Right]") .. "|" ..
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  2637
				" " .. "|" ..
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  2638
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2639
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2640
				"", 9, 60000, not helpDisabled
11996
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  2641
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2642
		hedgeEditorMissionPanelShown = false
11996
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  2643
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2644
	elseif cat[cIndex] == loc("Sticky Mine Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2645
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2646
		ShowMission	(
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  2647
				loc("STICKY MINE PLACEMENT MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2648
				loc("Place sticky mines"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2649
				loc("Place Object: [Left Click]") .. "|" ..
12031
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  2650
				loc("Change Timer: [Left], [Right]") .. "|" ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2651
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2652
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2653
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2654
				"", -amSMine, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2655
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2656
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2657
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2658
	elseif cat[cIndex] == loc("Air Mine Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2659
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2660
		ShowMission	(
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2661
				loc("AIR MINE PLACEMENT MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2662
				loc("Place air mines"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2663
				loc("Place Object: [Left Click]") .. "|" ..
12031
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  2664
				loc("Change Timer: [Left], [Right]") .. "|" ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2665
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2666
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2667
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2668
				"", -amAirMine, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2669
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2670
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2671
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2672
	elseif cat[cIndex] == loc("Weapon Crate Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2673
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2674
		ShowMission	(
12004
2193619b6b13 HedgeEditor: Add loc() to some forgotten strings, minor cleanup
Wuzzy <almikes@aol.com>
parents: 12003
diff changeset
  2675
				loc("WEAPON CRATE PLACEMENT MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2676
				loc("Place weapon crates"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2677
				loc("Place Object: [Left Click]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2678
				loc("Change Content: [Left], [Right]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2679
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2680
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2681
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2682
				"", 7, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2683
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2684
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2685
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2686
	elseif cat[cIndex] == loc("Utility Crate Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2687
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2688
		ShowMission	(
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2689
				loc("UTILITY CRATE PLACEMENT MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2690
				loc("Place utility crates"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2691
				loc("Place Object: [Left Click]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2692
				loc("Change Content: [Left], [Right]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2693
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2694
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2695
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2696
				"", 5, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2697
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2698
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2699
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2700
	elseif cat[cIndex] == loc("Health Crate Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2701
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2702
		ShowMission	(
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2703
				loc("HEALTH CRATE PLACEMENT MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2704
				loc("Place health crates"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2705
				loc("Place Object: [Left Click]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2706
				loc("Change Health Boost: [Left], [Right]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2707
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2708
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2709
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2710
				"", 6, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2711
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2712
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2713
12002
6a67e76d0f1d HedgeEditor: Better naming and explanation of tagging mode and advanced repositioning mode
Wuzzy <almikes@aol.com>
parents: 12001
diff changeset
  2714
	elseif cat[cIndex] == loc("Repositioning Mode") then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2715
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2716
		ShowMission	(
12002
6a67e76d0f1d HedgeEditor: Better naming and explanation of tagging mode and advanced repositioning mode
Wuzzy <almikes@aol.com>
parents: 12001
diff changeset
  2717
				loc("REPOSITIONING MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2718
				loc("Select, reposition and delete gears"),
12003
7d8dcac2eae1 HedgeEditor: Generally improve menu help texts
Wuzzy <almikes@aol.com>
parents: 12002
diff changeset
  2719
				loc("Select/Place/Delete Gear: [Left Click]") .. "|" ..
7d8dcac2eae1 HedgeEditor: Generally improve menu help texts
Wuzzy <almikes@aol.com>
parents: 12002
diff changeset
  2720
				loc("Choose Selection/Placement/Deletion: [Left], [Right]") .. "|" ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2721
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2722
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2723
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2724
				"", -amCMGearPlacementTool, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2725
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2726
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2727
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2728
	elseif cat[cIndex] == loc("Sprite Modification Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2729
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2730
		ShowMission	(
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2731
				loc("SPRITE MODIFICATION MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2732
				loc("Select, modify, or delete girders, rubbers and sprites"),
12039
6ef8e01bd01c HedgeEditor: Add missing Left click help texts
Wuzzy <almikes@aol.com>
parents: 12038
diff changeset
  2733
				loc("Modify Sprite under Cursor: [Left Click]") .. "|" ..
12004
2193619b6b13 HedgeEditor: Add loc() to some forgotten strings, minor cleanup
Wuzzy <almikes@aol.com>
parents: 12003
diff changeset
  2734
				loc("Change modification mode: [Left], [Right]") .."|"..
2193619b6b13 HedgeEditor: Add loc() to some forgotten strings, minor cleanup
Wuzzy <almikes@aol.com>
parents: 12003
diff changeset
  2735
				loc("While in modification mode, you can change|the LandFlag by clicking on an object.") .. "|" ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2736
				" " .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2737
				loc("Normal Land: [1]") .. "|" ..
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2738
				loc("Indestructible Land: [2]") .. "|" ..
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2739
				loc("Icy Land: [3]") .. "|" ..
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2740
				loc("Bouncy Land: [4]") .. "|" ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2741
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2742
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2743
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2744
				"", 2, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2745
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2746
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2747
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2748
	elseif cat[cIndex] == loc("Sprite Placement Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2749
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2750
		ShowMission	(
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2751
				loc("SPRITE PLACEMENT MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2752
				loc("Place sprites to build land"),
12039
6ef8e01bd01c HedgeEditor: Add missing Left click help texts
Wuzzy <almikes@aol.com>
parents: 12038
diff changeset
  2753
				loc("Place Sprite: [Left Click]") .. "|" ..
6ef8e01bd01c HedgeEditor: Add missing Left click help texts
Wuzzy <almikes@aol.com>
parents: 12038
diff changeset
  2754
				loc("Change Sprite: [Left], [Right]") .. "|" ..
6ef8e01bd01c HedgeEditor: Add missing Left click help texts
Wuzzy <almikes@aol.com>
parents: 12038
diff changeset
  2755
				loc("Change Sprite Frame: [Precise]+[Left], [Precise]+[Right]") .. "|" ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2756
				" " .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2757
				loc("Normal Land: [1]") .. "|" ..
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2758
				loc("Indestructible Land: [2]") .. "|" ..
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2759
				loc("Icy Land: [3]") .. "|" ..
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2760
				loc("Bouncy Land: [4]") .. "|" ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2761
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2762
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2763
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2764
				"", -amCMGearPlacementTool, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2765
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2766
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2767
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  2768
	elseif cat[cIndex] == loc("Goal Definition Mode") then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2769
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2770
		ShowMission	(
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  2771
				loc("GOAL DEFINITION MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2772
				loc("Mark gears for win/lose conditions"),
12002
6a67e76d0f1d HedgeEditor: Better naming and explanation of tagging mode and advanced repositioning mode
Wuzzy <almikes@aol.com>
parents: 12001
diff changeset
  2773
				loc("Mark/unmark gear: [Left Click]") .. "|" ..
12003
7d8dcac2eae1 HedgeEditor: Generally improve menu help texts
Wuzzy <almikes@aol.com>
parents: 12002
diff changeset
  2774
				loc("Select win/lose condition: [Left], [Right]") .. "|" ..
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2775
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2776
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2777
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2778
				"", 0, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2779
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2780
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2781
	elseif cat[cIndex] == loc("Hog Identity Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2782
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2783
		ShowMission	(
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2784
				loc("HOG IDENTITY MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2785
				loc("Give a hog a preset identity and weapons"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2786
				loc("Set Identity: [Left Click]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2787
				loc("[Left], [Right]: Change between identities.") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2788
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2789
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2790
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2791
				"", 3, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2792
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2793
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2794
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2795
	elseif cat[cIndex] == loc("Team Identity Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2796
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2797
		ShowMission	(
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2798
				loc("TEAM IDENTITY MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2799
				loc("Give an entire team themed hats and names"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2800
				loc("Set Identity: [Left Click]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2801
				loc("[Left], [Right]: Change between identities.") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2802
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2803
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2804
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2805
				"", 3, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2806
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2807
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2808
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2809
	elseif cat[cIndex] == loc("Health Modification Mode") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2810
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2811
		ShowMission	(
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2812
				loc("HEALTH MODIFICATION MODE"),
12045
8c8dd8eb775e HedgeEditor: Simplify placement mode description
Wuzzy <almikes@aol.com>
parents: 12040
diff changeset
  2813
				loc("Set the health of hogs, health crates, barrels and duds"),
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2814
				loc("Set Health: [Left Click]") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2815
				loc("[Left], [Right]: Change health value.") .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2816
				" " .. "|" ..
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2817
				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  2818
				loc("Toggle Help: [Precise]+[1]") .. "|" ..
13467
4c47a480009b Prevent manual hiding of some special mission panels
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
  2819
				"", 2, 60000, not helpDisabled
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2820
				)
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  2821
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2822
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2823
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2824
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2825
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2826
	if helpDisabled == true then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2827
		HideMission()
12037
7339122bad35 HedgeEditor: Make toggle help and toggle gear info work everywhere
Wuzzy <almikes@aol.com>
parents: 12036
diff changeset
  2828
		hedgeEditorMissionPanelShown = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2829
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2830
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2831
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2832
12012
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2833
function onSetWeapon(ammoType)
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2834
	curWep = ammoType
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2835
	updateHelp(ammoType)
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2836
end
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2837
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2838
function onSlot()
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2839
	curWep = GetCurAmmoType()
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2840
	updateHelp(ammoType)
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2841
end
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  2842
13038
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2843
function onScreenResize()
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2844
	updateCursorCoords()
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2845
end
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2846
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2847
-- Display the X and Y coordinates of the cursor while the cursor is active
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2848
function updateCursorCoords()
13755
110d6c1e817f Lua: Rename globals: NoPointX→NO_CURSOR, cMaxTurnTime→MAX_TURN_TIME, cMaxHogHealth→MAX_HOG_HEALTH
Wuzzy <Wuzzy2@mail.ru>
parents: 13745
diff changeset
  2849
	if band(GetState(CurrentHedgehog), gstChooseTarget) ~= 0 and CursorX ~= NO_CURSOR then
14306
8fc6ac47f00a Tweak Construction Mode, HedgeEditor, Space Invasion and Tumbler to support touch interface
Wuzzy <Wuzzy2@mail.ru>
parents: 13854
diff changeset
  2850
		local x1, y
8fc6ac47f00a Tweak Construction Mode, HedgeEditor, Space Invasion and Tumbler to support touch interface
Wuzzy <Wuzzy2@mail.ru>
parents: 13854
diff changeset
  2851
		if INTERFACE == "touch" then
8fc6ac47f00a Tweak Construction Mode, HedgeEditor, Space Invasion and Tumbler to support touch interface
Wuzzy <Wuzzy2@mail.ru>
parents: 13854
diff changeset
  2852
			x1, y = 126, 32
8fc6ac47f00a Tweak Construction Mode, HedgeEditor, Space Invasion and Tumbler to support touch interface
Wuzzy <Wuzzy2@mail.ru>
parents: 13854
diff changeset
  2853
		else
8fc6ac47f00a Tweak Construction Mode, HedgeEditor, Space Invasion and Tumbler to support touch interface
Wuzzy <Wuzzy2@mail.ru>
parents: 13854
diff changeset
  2854
			x1, y = 12, 24
8fc6ac47f00a Tweak Construction Mode, HedgeEditor, Space Invasion and Tumbler to support touch interface
Wuzzy <Wuzzy2@mail.ru>
parents: 13854
diff changeset
  2855
		end
13038
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2856
		if tagCursorX then
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2857
			DeleteVisualGear(tagCursorX)
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2858
		end
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2859
		tagCursorX = AddVisualGear(-div(ScreenWidth, 2)+x1, y, vgtHealthTag, CursorX, true)
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2860
		SetVisualGearValues(tagCursorX, nil, nil, 0, 0, nil, 1, nil, nil, 240000, 0xFFFFFFFF)
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2861
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2862
		local x2
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2863
		if string.len(tostring(CursorX)) > 6 then
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2864
			x2 = x1 + 100
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2865
		else
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2866
			x2 = x1 + 60
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2867
		end
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2868
		if tagCursorY then
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2869
			DeleteVisualGear(tagCursorY)
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2870
		end
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2871
		tagCursorY = AddVisualGear(-div(ScreenWidth, 2)+x2, y, vgtHealthTag, CursorY, true)
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2872
		SetVisualGearValues(tagCursorY, nil, nil, 0, 0, nil, 1, nil, nil, 240000, 0xFFFFFFFF)
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2873
	else
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2874
		if tagCursorX then
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2875
			DeleteVisualGear(tagCursorX)
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2876
		end
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2877
		if tagCursorY then
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2878
			DeleteVisualGear(tagCursorY)
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2879
		end
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2880
	end
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2881
end
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  2882
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2883
-- called in onGameTick()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2884
function HandleHedgeEditor()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2885
	if CurrentHedgehog ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2886
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2887
		genTimer = genTimer + 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2888
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2889
		tSprCol = 0x00000000
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2890
		tempFrame = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2891
		xDisplacement = 42
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2892
		yDisplacement = 42
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2893
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  2894
		if (curWep == amCMGearPlacementTool) then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2895
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  2896
			SetSoundMask(sndIncoming, true)
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  2897
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2898
			--wowaweewa, holyeeeee shite this is badly hacked (please rewrite when less lazy/morefeatures)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2899
			dCol = 0xFFFFFFFF
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2900
			dFrame = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2901
			dAngle = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2902
			if (cat[cIndex] == loc("Mine Placement Mode")) then
13130
c8c8f856e236 HedgeEditor: Clean up messy HWP overwrites
Wuzzy <Wuzzy2@mail.ru>
parents: 13038
diff changeset
  2903
				dSprite = sprCustom2
11996
5a51bca7eeaa Add dud mine placement mode to HedgeEditor
Wuzzy <almikes@aol.com>
parents: 11995
diff changeset
  2904
			elseif (cat[cIndex] == loc("Dud Mine Placement Mode")) then
13130
c8c8f856e236 HedgeEditor: Clean up messy HWP overwrites
Wuzzy <Wuzzy2@mail.ru>
parents: 13038
diff changeset
  2905
				dSprite = sprCustom4
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2906
			elseif (cat[cIndex] == loc("Sticky Mine Placement Mode")) then
13130
c8c8f856e236 HedgeEditor: Clean up messy HWP overwrites
Wuzzy <Wuzzy2@mail.ru>
parents: 13038
diff changeset
  2907
				dSprite = sprCustom3
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2908
			elseif (cat[cIndex] == loc("Air Mine Placement Mode")) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2909
				dSprite = sprAirMine
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2910
			elseif (cat[cIndex] == loc("Barrel Placement Mode")) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2911
				dSprite = sprExplosives
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2912
			elseif (cat[cIndex] == loc("Health Crate Placement Mode")) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2913
				dSprite = sprFAid
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2914
			elseif (cat[cIndex] == loc("Weapon Crate Placement Mode")) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2915
				dSprite = sprCase
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2916
			elseif (cat[cIndex] == loc("Utility Crate Placement Mode")) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2917
				dSprite = sprUtility
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2918
			elseif (cat[cIndex] == loc("Target Placement Mode")) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2919
				dSprite = sprTarget
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2920
			elseif (cat[cIndex] == loc("Cleaver Placement Mode")) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2921
				dAngle = 270
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2922
				dSprite = sprKnife
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2923
			elseif (cat[cIndex] == loc("Sprite Placement Mode")) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2924
				dSprite = reducedSpriteIDArray[pIndex]
12015
e020e1ce4739 HedgeEditor: Implement frame selection for sprites
Wuzzy <almikes@aol.com>
parents: 12014
diff changeset
  2925
				dFrame = sFrame
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  2926
				if ((dSprite == sprAMAmmos) or (dSprite == sprAMAmmosBW)) and (dFrame == (amCMGearPlacementTool - 1)) then
12334
f88eebcf22c5 HedgeEditor: Fix incorrect preview of air attack icon in sprAMAmmos/sprAMAmmosBW
Wuzzy <almikes@aol.com>
parents: 12333
diff changeset
  2927
					-- Special case: Air attack icon of ammos sprite needs to be fixed (since this icon is overwritten)
f88eebcf22c5 HedgeEditor: Fix incorrect preview of air attack icon in sprAMAmmos/sprAMAmmosBW
Wuzzy <almikes@aol.com>
parents: 12333
diff changeset
  2928
					dFrame = ammoFrameAirAttack
f88eebcf22c5 HedgeEditor: Fix incorrect preview of air attack icon in sprAMAmmos/sprAMAmmosBW
Wuzzy <almikes@aol.com>
parents: 12333
diff changeset
  2929
				end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2930
			else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2931
				dCol = 0xFFFFFF00
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2932
				dSprite = sprArrow
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2933
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2934
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2935
			if CG == nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2936
				CG = AddVisualGear(CursorX, CursorY, vgtStraightShot,0,true,3)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2937
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2938
			SetVisualGearValues(CG, CursorX, CursorY, 0, 0, dAngle, dFrame, 1000, dSprite, 1000, dCol)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2939
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2940
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2941
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2942
			if crateSprite == nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2943
				crateSprite = AddVisualGear(CursorX, CursorY-35, vgtStraightShot,0,true,3)
13130
c8c8f856e236 HedgeEditor: Clean up messy HWP overwrites
Wuzzy <Wuzzy2@mail.ru>
parents: 13038
diff changeset
  2944
				crateSpriteBorder = AddVisualGear(CursorX, CursorY-35, vgtStraightShot,0,true,3)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2945
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2946
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2947
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2948
			if (cat[cIndex] == loc("Weapon Crate Placement Mode")) or (cat[cIndex] == loc("Utility Crate Placement Mode")) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2949
				if (cat[cIndex] == loc("Weapon Crate Placement Mode")) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2950
					tArr = atkArray
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2951
				else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2952
					tArr = utilArray
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2953
				end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2954
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2955
				tSprCol = 0xFFFFFFFF
12332
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
  2956
				-- Get ammo icon
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
  2957
				if tArr[pIndex][3] then
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
  2958
					-- Overwritten ammo icon
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
  2959
					tempFrame = tArr[pIndex][3]
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
  2960
				else
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
  2961
					-- Use default ammo icon
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
  2962
					tempFrame = tArr[pIndex][1] - 1
8ab7572e074b Clean up HedgeEditor HWP mess, fix broken/outdated graphics
Wuzzy <almikes@aol.com>
parents: 12315
diff changeset
  2963
				end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2964
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2965
13132
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
  2966
			-- Waypoint outline
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
  2967
			if (cat[cIndex] == loc("Waypoint Editing Mode")) and (pMode[pIndex] == loc("Place Waypoint")) then
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
  2968
				if not waypointPreviewSprite then
13134
9a328734e469 Racer: Draw waypoint outline around cursor while in placement phase
Wuzzy <Wuzzy2@mail.ru>
parents: 13132
diff changeset
  2969
					waypointPreviewSprite = AddVisualGear(CursorX, CursorY, vgtCircle, 0, true)
9a328734e469 Racer: Draw waypoint outline around cursor while in placement phase
Wuzzy <Wuzzy2@mail.ru>
parents: 13132
diff changeset
  2970
					SetVisualGearValues(waypointPreviewSprite, CursorX, CursorY, 244, 224, 0, 0, 0, div(wpRadius, 5), 5, 0xFF0000FF)
13132
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
  2971
				end
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
  2972
			elseif waypointPreviewSprite then
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
  2973
				DeleteVisualGear(waypointPreviewSprite)
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
  2974
				waypointPreviewSprite = nil
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
  2975
			end
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
  2976
			if waypointPreviewSprite then
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
  2977
				SetVisualGearValues(waypointPreviewSprite, CursorX, CursorY)
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
  2978
			end
a7b67247784d HedgeEditor: Show waypoint preview
Wuzzy <Wuzzy2@mail.ru>
parents: 13131
diff changeset
  2979
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2980
		else
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  2981
			SetSoundMask(sndIncoming, false)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2982
			if CG ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2983
				SetVisualGearValues(CG, 0, 0, 0, 0, 0, 0, 1000, sprArrow, 1000, 0xFFFFFF00)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2984
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2985
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2986
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2987
		SetVisualGearValues(crateSprite, CursorX+xDisplacement, CursorY+yDisplacement, 0, 0, dAngle, tempFrame, 1000, sprAMAmmos, 1000, tSprCol)
13130
c8c8f856e236 HedgeEditor: Clean up messy HWP overwrites
Wuzzy <Wuzzy2@mail.ru>
parents: 13038
diff changeset
  2988
		SetVisualGearValues(crateSpriteBorder, CursorX+xDisplacement, CursorY+yDisplacement, 0, 0, 0, 0, 1000, sprCustom1, 1000, tSprCol)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2989
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2990
		if genTimer >= 100 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2991
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2992
			genTimer = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2993
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2994
			curWep = GetCurAmmoType()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2995
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2996
			HandleRankingEffects()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2997
			runOnGears(PortalEffects)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2998
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  2999
			-- change to girder mode on weapon swap
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3000
			if (cIndex ~= 1) and (curWep == amGirder) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3001
				cIndex = 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3002
				RedefineSubset()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3003
				updateHelp()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3004
			elseif (cIndex ~=2) and (curWep == amRubber) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3005
				cIndex = 2
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3006
				RedefineSubset()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3007
				updateHelp()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3008
			-- change to generic mode if girder no longer selected
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3009
			elseif (cIndex == 1) and (curWep ~= amGirder) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3010
				cIndex = 3 -- was 2
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3011
				RedefineSubset()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3012
			elseif (cIndex == 2) and (curWep ~= amRubber) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3013
				cIndex = 3 --new
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3014
				RedefineSubset()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3015
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3016
13131
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  3017
			if curWep == amGirder or curWep == amRubber then
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  3018
				SetSoundMask(sndDenied, true)
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  3019
			else
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  3020
				SetSoundMask(sndDenied, false)
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  3021
			end
b1de2f84e130 HedgeEditor: Fix sndIncoming playing for placing stuff, add many sound effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13130
diff changeset
  3022
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3023
			-- update display selection criteria
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  3024
			if (curWep == amGirder) or (curWep == amRubber) or (curWep == amCMGearPlacementTool) then
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  3025
				AddCaption(cat[cIndex], colorPlaceMode1, capgrpMessage)
12025
da843fffe020 HedgeEditor: Fix girder/rubber mods sometimes show nil in 2nd message
Wuzzy <almikes@aol.com>
parents: 12024
diff changeset
  3026
				showSecondaryMessage()
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3027
				if superDelete == true then
13359
f9a15dcd857c Fix a couple of English typos
Wuzzy <Wuzzy2@mail.ru>
parents: 13287
diff changeset
  3028
					AddCaption(loc("Deletion Mode"), colorPlaceMode1, capgrpAmmoinfo)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3029
				end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3030
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3031
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3032
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3033
			if sSprite ~= nil then
11999
6fd96a5d4e6f HedgeEditor: Refactor legacy GetVisualGearValues code
Wuzzy <almikes@aol.com>
parents: 11998
diff changeset
  3034
				SetVisualGearValues(sSprite, nil, nil, 0, 0, nil, nil, 10000, nil, 10000 )
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3035
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3036
12012
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  3037
			updateHelp()
ad7205e66578 HedgeEditor: Reliably change mission text on weapon switch
Wuzzy <almikes@aol.com>
parents: 12011
diff changeset
  3038
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3039
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3040
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3041
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3042
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3043
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3044
	if (ufoFuel ~= 0) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3045
		if ufoFuel == 2000 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3046
			SetHealth(ufoGear, 2000)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3047
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3048
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3049
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3050
	-- kinda lazy, but at least we don't have to do elaborate tacking elsewhere
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3051
	SetVisualGearValues(sCirc, 0, 0, 0, 1, 1, 10, 0, 1, 1, 0x00000000)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3052
	--update selected gear display
12002
6a67e76d0f1d HedgeEditor: Better naming and explanation of tagging mode and advanced repositioning mode
Wuzzy <almikes@aol.com>
parents: 12001
diff changeset
  3053
	if (cat[cIndex] == loc("Repositioning Mode")) and (sGear ~= nil) then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3054
		SetVisualGearValues(sCirc, GetX(sGear), GetY(sGear), 100, 255, 1, 10, 0, 300, 3, 0xff00ffff)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3055
	elseif (cat[cIndex] == loc("Sprite Modification Mode")) and (sSprite ~= nil) then
11999
6fd96a5d4e6f HedgeEditor: Refactor legacy GetVisualGearValues code
Wuzzy <almikes@aol.com>
parents: 11998
diff changeset
  3056
		SetVisualGearValues(sSprite, nil, nil, 0, 0, nil, nil, 10000, nil, 10000)
12020
37787ab00853 HedgeEditor: Clean up some incorrect menu texts
Wuzzy <almikes@aol.com>
parents: 12019
diff changeset
  3057
	elseif (cat[cIndex] == loc("Goal Definition Mode")) then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3058
		if (sGear ~= nil) or (closestGear ~= nil) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3059
			closestGear = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3060
			sGear = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3061
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3062
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3063
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3064
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3065
	runOnGears(UpdateTagCircles)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3066
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3067
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3068
	-- some kind of target detected, tell me your story
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3069
	if cGear ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3070
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3071
		x,y = GetGearTarget(cGear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3072
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  3073
		if GetGearType(cGear) == gtAirAttack and GetCurAmmoType() == amCMGearPlacementTool then
14747
2e8213c0951f Fix air attack placement in HedgeEditor/Construction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 14664
diff changeset
  3074
			SetGearMessage(cGear, bor(GetGearMessage(cGear), gmDestroy))
2e8213c0951f Fix air attack placement in HedgeEditor/Construction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 14664
diff changeset
  3075
			if not cGearPlacementDone then
2e8213c0951f Fix air attack placement in HedgeEditor/Construction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 14664
diff changeset
  3076
				PlaceObject(x, y)
2e8213c0951f Fix air attack placement in HedgeEditor/Construction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 14664
diff changeset
  3077
				cGearPlacementDone = true
2e8213c0951f Fix air attack placement in HedgeEditor/Construction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 14664
diff changeset
  3078
			end
2e8213c0951f Fix air attack placement in HedgeEditor/Construction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 14664
diff changeset
  3079
		elseif GetGearType(cGear) == gtGirder and not cGearPlacementDone then
2e8213c0951f Fix air attack placement in HedgeEditor/Construction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 14664
diff changeset
  3080
			CGR = GetState(cGear)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3081
			PlaceObject(x, y)
14747
2e8213c0951f Fix air attack placement in HedgeEditor/Construction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 14664
diff changeset
  3082
			cGearPlacementDone = true
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3083
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3084
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3085
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3086
13038
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  3087
	-- Show cursor coords
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  3088
	updateCursorCoords()
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  3089
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3090
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3091
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3092
--------------------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3093
-- EVENT HANDLERS
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3094
--------------------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3095
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3096
function commandMode()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3097
	if (preciseOn == true) and ((GetCurAmmoType() == amNothing) or (GetCurAmmoType() == amSkip)) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3098
		return(true)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3099
	else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3100
		return(false)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3101
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3102
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3103
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3104
function onTimer(s)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3105
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3106
	superDelete = false
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3107
	if (commandMode() == true) and (s == 4) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3108
		SaveLevelData() -- positions of crates, etc
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3109
	elseif (commandMode() == true) and (s == 2) then
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  3110
		if GetAmmoCount(CurrentHedgehog, amCMGearPlacementTool) == 100 then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3111
			SetEditingWeps(0)
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  3112
			AddCaption(loc("The editor weapons and tools have been removed!"), colorInfoMessage, capgrpGameState)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3113
		else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3114
			SetEditingWeps(100)
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  3115
			AddCaption(loc("The editor weapons and tools have been added!"), colorInfoMessage, capgrpGameState)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3116
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3117
	elseif (preciseOn == true) and (s == 1) then
12037
7339122bad35 HedgeEditor: Make toggle help and toggle gear info work everywhere
Wuzzy <almikes@aol.com>
parents: 12036
diff changeset
  3118
		helpDisabled = not(helpDisabled)
7339122bad35 HedgeEditor: Make toggle help and toggle gear info work everywhere
Wuzzy <almikes@aol.com>
parents: 12036
diff changeset
  3119
		if helpDisabled then
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  3120
			AddCaption(loc("Help Disabled"), colorInfoMessage, capgrpVolume)
12037
7339122bad35 HedgeEditor: Make toggle help and toggle gear info work everywhere
Wuzzy <almikes@aol.com>
parents: 12036
diff changeset
  3121
		else
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  3122
			AddCaption(loc("Help Enabled"), colorInfoMessage, capgrpVolume)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3123
		end
12037
7339122bad35 HedgeEditor: Make toggle help and toggle gear info work everywhere
Wuzzy <almikes@aol.com>
parents: 12036
diff changeset
  3124
		updateHelp()
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3125
	elseif (cat[cIndex] == loc("Sprite Placement Mode")) or (cat[cIndex] == loc("Girder Placement Mode")) or (cat[cIndex] == loc("Rubber Placement Mode")) or (cat[cIndex] == loc("Sprite Modification Mode")) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3126
12036
0b0578c25470 HedgeEditor: Disable timer keys 2-4 in rubber placement mode
Wuzzy <almikes@aol.com>
parents: 12035
diff changeset
  3127
		if (cat[cIndex] == loc("Rubber Placement Mode")) then
0b0578c25470 HedgeEditor: Disable timer keys 2-4 in rubber placement mode
Wuzzy <almikes@aol.com>
parents: 12035
diff changeset
  3128
			if s == 1 then
0b0578c25470 HedgeEditor: Disable timer keys 2-4 in rubber placement mode
Wuzzy <almikes@aol.com>
parents: 12035
diff changeset
  3129
				landType = lfBouncy
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  3130
				AddCaption(loc("Bouncy Land"), colorPlaceMode1, capgrpAmmoinfo)
12036
0b0578c25470 HedgeEditor: Disable timer keys 2-4 in rubber placement mode
Wuzzy <almikes@aol.com>
parents: 12035
diff changeset
  3131
			elseif s == 5 then
0b0578c25470 HedgeEditor: Disable timer keys 2-4 in rubber placement mode
Wuzzy <almikes@aol.com>
parents: 12035
diff changeset
  3132
				superDelete = true
0b0578c25470 HedgeEditor: Disable timer keys 2-4 in rubber placement mode
Wuzzy <almikes@aol.com>
parents: 12035
diff changeset
  3133
			end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3134
		elseif s == 1 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3135
			landType = 0
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  3136
			AddCaption(loc("Normal Land"), colorPlaceMode1, capgrpAmmoinfo)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3137
		elseif s == 2 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3138
			landType = lfIndestructible
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  3139
			AddCaption(loc("Indestructible Land"), colorPlaceMode1, capgrpAmmoinfo)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3140
		elseif s == 3 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3141
			landType = lfIce
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  3142
			AddCaption(loc("Icy Land"), colorPlaceMode1, capgrpAmmoinfo)
12000
ec3fe3068932 HedgeEditor: Throw away code in comments and unused variables
Wuzzy <almikes@aol.com>
parents: 11999
diff changeset
  3143
		elseif (s == 4) then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3144
			landType = lfBouncy
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  3145
			AddCaption(loc("Bouncy Land"), colorPlaceMode1, capgrpAmmoinfo)
12008
9790a4c72d7b HedgeEditor: Disable delete mode for sprite placement mode
Wuzzy <almikes@aol.com>
parents: 12007
diff changeset
  3146
		elseif (s == 5) and (cat[cIndex] ~= loc("Sprite Modification Mode")) and (cat[cIndex] ~= loc("Sprite Placement Mode")) then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3147
			superDelete = true
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3148
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3149
	elseif pMode[pIndex] == loc("Selection Mode") then
12023
7fdf381303b1 HedgeEditor: Fix Lua error when trying to set ShoppaBalance rank without anything being selected
Wuzzy <almikes@aol.com>
parents: 12022
diff changeset
  3150
		if sGear ~= nil and GetGearType(sGear) == gtHedgehog then
7fdf381303b1 HedgeEditor: Fix Lua error when trying to set ShoppaBalance rank without anything being selected
Wuzzy <almikes@aol.com>
parents: 12022
diff changeset
  3151
			setGearValue(sGear, "ranking", s)
7fdf381303b1 HedgeEditor: Fix Lua error when trying to set ShoppaBalance rank without anything being selected
Wuzzy <almikes@aol.com>
parents: 12022
diff changeset
  3152
		end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3153
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3154
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3155
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3156
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3157
function onPrecise()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3158
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3159
	preciseOn = true
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3160
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3161
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3162
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3163
function onPreciseUp()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3164
	preciseOn = false
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3165
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3166
12025
da843fffe020 HedgeEditor: Fix girder/rubber mods sometimes show nil in 2nd message
Wuzzy <almikes@aol.com>
parents: 12024
diff changeset
  3167
function showSecondaryMessage()
da843fffe020 HedgeEditor: Fix girder/rubber mods sometimes show nil in 2nd message
Wuzzy <almikes@aol.com>
parents: 12024
diff changeset
  3168
	local caption2
12031
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3169
	if curWep == amGirder then
12025
da843fffe020 HedgeEditor: Fix girder/rubber mods sometimes show nil in 2nd message
Wuzzy <almikes@aol.com>
parents: 12024
diff changeset
  3170
		caption2 = loc("Girder")
da843fffe020 HedgeEditor: Fix girder/rubber mods sometimes show nil in 2nd message
Wuzzy <almikes@aol.com>
parents: 12024
diff changeset
  3171
	elseif curWep == amRubber then
da843fffe020 HedgeEditor: Fix girder/rubber mods sometimes show nil in 2nd message
Wuzzy <almikes@aol.com>
parents: 12024
diff changeset
  3172
		caption2 = loc("Rubber")
12031
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3173
	elseif cat[cIndex] == loc("Mine Placement Mode") or cat[cIndex] == loc("Sticky Mine Placement Mode") or cat[cIndex] == loc("Air Mine Placement Mode") then
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3174
		caption2 = string.format(loc("%d ms"), pMode[pIndex])
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3175
	elseif cat[cIndex] == loc("Dud Mine Placement Mode") or cat[cIndex] == loc("Barrel Placement Mode") or cat[cIndex] == loc("Health Crate Placement Mode") then
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3176
		caption2 = string.format(loc("Health: %d"), pMode[pIndex])
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3177
	elseif cat[cIndex] == loc("Health Modification Mode") then
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3178
		local health = tonumber(pMode[pIndex][1])
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3179
		local mode = pMode[pIndex][2]
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3180
		if mode == "set" then
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3181
			caption2 = string.format(loc("Set to %d"), health)
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3182
		elseif mode == "mod" then
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3183
			if health < 0 then
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3184
				caption2 = string.format(loc("Subtract %d"), math.abs(health))
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3185
			else
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3186
				caption2 = string.format(loc("Add %d"), health)
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3187
			end
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3188
		else
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3189
			caption2 = "ERROR"
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3190
		end
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3191
	elseif type(pMode[pIndex]) == "table" then
6bc9a499c60b HedgeEditor: Improve secondary message
Wuzzy <almikes@aol.com>
parents: 12030
diff changeset
  3192
		caption2 = tostring(pMode[pIndex][1])
12025
da843fffe020 HedgeEditor: Fix girder/rubber mods sometimes show nil in 2nd message
Wuzzy <almikes@aol.com>
parents: 12024
diff changeset
  3193
	else
da843fffe020 HedgeEditor: Fix girder/rubber mods sometimes show nil in 2nd message
Wuzzy <almikes@aol.com>
parents: 12024
diff changeset
  3194
		caption2 = tostring(pMode[pIndex])
da843fffe020 HedgeEditor: Fix girder/rubber mods sometimes show nil in 2nd message
Wuzzy <almikes@aol.com>
parents: 12024
diff changeset
  3195
	end
12981
4772eb3c9929 HedgeEditor: Tweak caption colors
Wuzzy <Wuzzy2@mail.ru>
parents: 12967
diff changeset
  3196
	AddCaption(caption2, colorPlaceMode2, capgrpMessage2)
12025
da843fffe020 HedgeEditor: Fix girder/rubber mods sometimes show nil in 2nd message
Wuzzy <almikes@aol.com>
parents: 12024
diff changeset
  3197
end
da843fffe020 HedgeEditor: Fix girder/rubber mods sometimes show nil in 2nd message
Wuzzy <almikes@aol.com>
parents: 12024
diff changeset
  3198
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3199
---------------------------------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3200
-- Cycle through selection subsets (by changing pIndex, pMode)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3201
-- i.e 	health of barrels, medikits,
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3202
--		timer of mines
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3203
--		contents of crates etc.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3204
---------------------------------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3205
function onLeft()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3206
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  3207
	if (curWep == amCMGearPlacementTool) then
12796
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3208
		leftHeld = true
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3209
		rightHeld = false
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3210
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3211
		if preciseOn then
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3212
			if cat[cIndex] == loc("Sprite Placement Mode") then
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3213
				sFrame = sFrame - 1
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3214
				if sFrame < 0 then
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3215
					sFrame = reducedSpriteIDArrayFrames[pIndex] - 1
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3216
				end
12015
e020e1ce4739 HedgeEditor: Implement frame selection for sprites
Wuzzy <almikes@aol.com>
parents: 12014
diff changeset
  3217
			end
12796
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3218
		else
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3219
			pIndex = pIndex - 1
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3220
			if pIndex == 0 then
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3221
				pIndex = #pMode
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3222
			end
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3223
			if cat[cIndex] == loc("Sprite Placement Mode") then
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3224
				sFrame = math.min(sFrame, reducedSpriteIDArrayFrames[pIndex] - 1)
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3225
			end
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3226
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  3227
			if (curWep == amGirder) or (curWep == amRubber) or (curWep == amCMGearPlacementTool) then
12796
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3228
				showSecondaryMessage()
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3229
			end
12015
e020e1ce4739 HedgeEditor: Implement frame selection for sprites
Wuzzy <almikes@aol.com>
parents: 12014
diff changeset
  3230
		end
12000
ec3fe3068932 HedgeEditor: Throw away code in comments and unused variables
Wuzzy <almikes@aol.com>
parents: 11999
diff changeset
  3231
	end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3232
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3233
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3234
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3235
function onRight()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3236
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  3237
	if (curWep == amCMGearPlacementTool) then
12796
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3238
		leftHeld = false
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3239
		rightHeld = true
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3240
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3241
		if preciseOn then
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3242
			if cat[cIndex] == loc("Sprite Placement Mode") then
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3243
				sFrame = sFrame + 1
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3244
				if sFrame >= reducedSpriteIDArrayFrames[pIndex] then
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3245
					sFrame = 0
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3246
				end
12015
e020e1ce4739 HedgeEditor: Implement frame selection for sprites
Wuzzy <almikes@aol.com>
parents: 12014
diff changeset
  3247
			end
12796
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3248
		else
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3249
			pIndex = pIndex + 1
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3250
			if pIndex > #pMode then
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3251
				pIndex = 1
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3252
			end
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3253
			if cat[cIndex] == loc("Sprite Placement Mode") then
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3254
				sFrame = math.min(sFrame, reducedSpriteIDArrayFrames[pIndex] - 1)
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3255
			end
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3256
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  3257
			if (curWep == amGirder) or (curWep == amRubber) or (curWep == amCMGearPlacementTool) then
12796
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3258
				showSecondaryMessage()
a19ae0db7ab5 HedgeEditor: Don't change mode in background when pressing left/right w/o amAirAttack selected
Wuzzy <Wuzzy2@mail.ru>
parents: 12745
diff changeset
  3259
			end
12015
e020e1ce4739 HedgeEditor: Implement frame selection for sprites
Wuzzy <almikes@aol.com>
parents: 12014
diff changeset
  3260
		end
12000
ec3fe3068932 HedgeEditor: Throw away code in comments and unused variables
Wuzzy <almikes@aol.com>
parents: 11999
diff changeset
  3261
	end
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3262
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3263
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3264
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3265
---------------------------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3266
-- Cycle through primary categories (by changing cIndex)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3267
-- i.e 	mine, sticky mine, barrels
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3268
--		health/weapon/utility crate, placement of gears
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3269
---------------------------------------------------------
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3270
function onUp()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3271
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  3272
	if (curWep == amCMGearPlacementTool) then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3273
		cIndex = cIndex - 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3274
		if (cIndex == 1) or (cIndex == 2) then --1	--we no longer hit girder by normal means
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3275
			cIndex = #cat
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3276
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3277
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3278
		RedefineSubset()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3279
		updateHelp()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3280
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3281
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3282
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3283
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3284
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3285
function onDown()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3286
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  3287
	if (curWep == amCMGearPlacementTool) then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3288
		cIndex = cIndex + 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3289
		if cIndex > #cat then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3290
			cIndex = 3	 -- 2 ----we no longer hit girder by normal means
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3291
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3292
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3293
		RedefineSubset()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3294
		updateHelp()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3295
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3296
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3297
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3298
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3299
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3300
function onParameters()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3301
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3302
    parseParams()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3303
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3304
	ufoFuel = tonumber(params["ufoFuel"])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3305
	if ufoFuel == nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3306
		ufoFuel = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3307
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3308
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3309
	mapID = tonumber(params["m"])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3310
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3311
	--15 is a good short range portal, for what it's worth
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3312
	if tonumber(params["portalDistance"]) ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3313
		portalDistance = div(tonumber(params["portalDistance"]),5)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3314
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3315
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3316
	if portalDistance == nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3317
		portalDistance = 5000
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3318
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3319
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3320
	if mapID == nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3321
		mapID = 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3322
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3323
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3324
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3325
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3326
function onGameInit()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3327
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3328
	-- perhaps we can get some of this better info in parsecommandoverride
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3329
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3330
	if mapID == nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3331
		mapID = 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3332
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3333
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3334
	-- read gameflags and assign their values to the gameflaglist array
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3335
	for i = 1, #gameFlagList do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3336
		if band(GameFlags, gameFlagList[i][3]) ~= 0 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3337
			gameFlagList[i][2] = true
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3338
		else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3339
			gameFlagList[i][2] = false
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3340
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3341
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3342
12315
a2049a645e29 HedgeEditor: Fix maximum ammos sprite ID being 1 too low
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
  3343
	reducedSpriteIDArrayFrames = {
12343
43eb886f479b HedgeEditor: Make sprTargetBee the first selected sprite
Wuzzy <almikes@aol.com>
parents: 12334
diff changeset
  3344
		1, 8, 4, 1, 1,
12315
a2049a645e29 HedgeEditor: Fix maximum ammos sprite ID being 1 too low
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
  3345
		AmmoTypeMax, AmmoTypeMax, 3, 4, 8, 1,
a2049a645e29 HedgeEditor: Fix maximum ammos sprite ID being 1 too low
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
  3346
		1, 1, 1, 1, 1, 1,
a2049a645e29 HedgeEditor: Fix maximum ammos sprite ID being 1 too low
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
  3347
		1, 1, 1, 1, 1,
a2049a645e29 HedgeEditor: Fix maximum ammos sprite ID being 1 too low
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
  3348
	}
a2049a645e29 HedgeEditor: Fix maximum ammos sprite ID being 1 too low
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
  3349
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3350
	Explosives = 0
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3351
	MinesNum = 0
14664
46ac6fbde6f6 HedgeEditor: Force-set AirMinesNum to 0
Wuzzy <Wuzzy2@mail.ru>
parents: 14663
diff changeset
  3352
	AirMinesNum = 0
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3353
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3354
	EnableGameFlags(gfInfAttack, gfDisableWind)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3355
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3356
	RedefineSubset()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3357
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3358
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3359
12005
132ffe52d943 Write better “greeting” message for HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12004
diff changeset
  3360
function showHedgeEditorMissionPanel()
132ffe52d943 Write better “greeting” message for HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12004
diff changeset
  3361
	ShowMission	(
132ffe52d943 Write better “greeting” message for HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12004
diff changeset
  3362
		loc("HEDGEEDITOR"),
13666
21a05ef25328 HedgeEditor should be fairly stable by now
Wuzzy <Wuzzy2@mail.ru>
parents: 13648
diff changeset
  3363
		loc("An experimental editing tool for missions and more"),
12005
132ffe52d943 Write better “greeting” message for HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12004
diff changeset
  3364
		loc("Manual: https://hedgewars.org/hedgeeditor") .. "|" ..
132ffe52d943 Write better “greeting” message for HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12004
diff changeset
  3365
		" " .. "|" ..
132ffe52d943 Write better “greeting” message for HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12004
diff changeset
  3366
		loc("Place Girder: Girder") .. "|" ..
132ffe52d943 Write better “greeting” message for HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12004
diff changeset
  3367
		loc("Place Rubber: Rubber") .. "|" ..
12040
44adf110f73b Use SetAmmoTexts in HedgeEditor to describe overwritten air attack (gear placement tool)
Wuzzy <almikes@aol.com>
parents: 12039
diff changeset
  3368
		loc("Place Gears (and more): Gear Placement Tool") .. "|" ..
12037
7339122bad35 HedgeEditor: Make toggle help and toggle gear info work everywhere
Wuzzy <almikes@aol.com>
parents: 12036
diff changeset
  3369
		loc("Toggle Help: [Precise]+[1]") .. "|" ..
12005
132ffe52d943 Write better “greeting” message for HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12004
diff changeset
  3370
		" " .. "|" ..
12037
7339122bad35 HedgeEditor: Make toggle help and toggle gear info work everywhere
Wuzzy <almikes@aol.com>
parents: 12036
diff changeset
  3371
		loc("Editing Commands: (Use while no weapon is selected)") .. "|" ..
12035
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  3372
		loc("Save Level: [Precise]+[4]") .. "|" ..
0d8c4e4ead8a HedgeEditor: Unify key combination help
Wuzzy <almikes@aol.com>
parents: 12034
diff changeset
  3373
		loc("Toggle Editing Weapons and Tools: [Precise]+[2]")
12014
c69b36964374 Tweak HedgeEditor output: loc() hog/team names and tweak mission text
Wuzzy <almikes@aol.com>
parents: 12013
diff changeset
  3374
		, 4, 5000
12005
132ffe52d943 Write better “greeting” message for HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12004
diff changeset
  3375
		)
12040
44adf110f73b Use SetAmmoTexts in HedgeEditor to describe overwritten air attack (gear placement tool)
Wuzzy <almikes@aol.com>
parents: 12039
diff changeset
  3376
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  3377
	SetAmmoTexts(amCMGearPlacementTool,
12040
44adf110f73b Use SetAmmoTexts in HedgeEditor to describe overwritten air attack (gear placement tool)
Wuzzy <almikes@aol.com>
parents: 12039
diff changeset
  3378
		loc("Gear Placement Tool"),
44adf110f73b Use SetAmmoTexts in HedgeEditor to describe overwritten air attack (gear placement tool)
Wuzzy <almikes@aol.com>
parents: 12039
diff changeset
  3379
		loc("HedgeEditor tool"),
44adf110f73b Use SetAmmoTexts in HedgeEditor to describe overwritten air attack (gear placement tool)
Wuzzy <almikes@aol.com>
parents: 12039
diff changeset
  3380
		loc("Place, modify and delete gears (e.g. objects)|and waypoints, edit hedgehog settings, values,|victory conditions, and more.") .. "|" ..
44adf110f73b Use SetAmmoTexts in HedgeEditor to describe overwritten air attack (gear placement tool)
Wuzzy <almikes@aol.com>
parents: 12039
diff changeset
  3381
		loc("Select a placement mode and read the infos|in the mission panel to learn how to use it.") .. "|" ..
44adf110f73b Use SetAmmoTexts in HedgeEditor to describe overwritten air attack (gear placement tool)
Wuzzy <almikes@aol.com>
parents: 12039
diff changeset
  3382
		loc("Up/Down: Change placement mode") .. "|" ..
44adf110f73b Use SetAmmoTexts in HedgeEditor to describe overwritten air attack (gear placement tool)
Wuzzy <almikes@aol.com>
parents: 12039
diff changeset
  3383
		loc("Cursor: Mode action"))
44adf110f73b Use SetAmmoTexts in HedgeEditor to describe overwritten air attack (gear placement tool)
Wuzzy <almikes@aol.com>
parents: 12039
diff changeset
  3384
12010
38563aa129c1 Don't agressively show HedgeEditor mission panel
Wuzzy <almikes@aol.com>
parents: 12009
diff changeset
  3385
	hedgeEditorMissionPanelShown = true
12005
132ffe52d943 Write better “greeting” message for HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12004
diff changeset
  3386
end
132ffe52d943 Write better “greeting” message for HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12004
diff changeset
  3387
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3388
function onGameStart()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3389
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3390
	trackTeams()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3391
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3392
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3393
	InterpretPoints()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3394
	LoadLevelData()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3395
12005
132ffe52d943 Write better “greeting” message for HedgeEditor
Wuzzy <almikes@aol.com>
parents: 12004
diff changeset
  3396
	showHedgeEditorMissionPanel()
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3397
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3398
	sCirc = AddVisualGear(0,0,vgtCircle,0,true)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3399
	SetVisualGearValues(sCirc, 0, 0, 100, 255, 1, 10, 0, 40, 3, 0xffba00ff)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3400
12001
936ac92cb67a HedgeEditor: Improve graphics on girder/rubber placement
Wuzzy <almikes@aol.com>
parents: 12000
diff changeset
  3401
	--[[ This is a small hack to disable Hedgewars' girder placement since we do it on our own;
936ac92cb67a HedgeEditor: Improve graphics on girder/rubber placement
Wuzzy <almikes@aol.com>
parents: 12000
diff changeset
  3402
	this will remove the "girder circle" and gets rid of the placement failure animation ]]
936ac92cb67a HedgeEditor: Improve graphics on girder/rubber placement
Wuzzy <almikes@aol.com>
parents: 12000
diff changeset
  3403
	SetMaxBuildDistance(1)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3404
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3405
	frameID = 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3406
	visualSprite = sprAmGirder
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3407
	sSprite = AddVisualGear(0, 0, vgtStraightShot, 0, true,1)
11998
b061f4bae002 HedgeEditor: Fix girder sprite being displayed a top left
Wuzzy <almikes@aol.com>
parents: 11997
diff changeset
  3408
	SetVisualGearValues(sSprite, 1, 1, 0, 0, nil, frameID, 20000, visualSprite, 20000, 0 )
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3409
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  3410
	SetAmmoDelay(amCMGearPlacementTool,0)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3411
	SetAmmoDelay(amGirder,0)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3412
	SetAmmoDelay(amRubber,0)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3413
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3414
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3415
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3416
function SetEditingWeps(ammoCount)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3417
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  3418
	AddAmmo(CurrentHedgehog, amCMGearPlacementTool, ammoCount)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3419
	AddAmmo(CurrentHedgehog, amGirder, ammoCount)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3420
	AddAmmo(CurrentHedgehog, amRubber, ammoCount)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3421
	AddAmmo(CurrentHedgehog, amTeleport, ammoCount)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3422
	AddAmmo(CurrentHedgehog, amRope, ammoCount)
12000
ec3fe3068932 HedgeEditor: Throw away code in comments and unused variables
Wuzzy <almikes@aol.com>
parents: 11999
diff changeset
  3423
	AddAmmo(CurrentHedgehog, amSwitch, 100)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3424
	AddAmmo(CurrentHedgehog, amSkip, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3425
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3426
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3427
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3428
function clearAmmo(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3429
	for i = 1, #atkArray do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3430
		AddAmmo(gear,atkArray[i][1],0)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3431
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3432
	for i = 1, #utilArray do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3433
		AddAmmo(gear,utilArray[i][1],0)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3434
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3435
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3436
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3437
-- the below two functions allow you to set up a themed team.
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3438
-- one day, it'd be nice to be able to set their voice/flag/grave
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3439
-- ingame at this point, too, but for now, this is impossible
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3440
function SetTeamIdentity(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3441
	tName = pMode[pIndex]
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3442
	hIndex = 1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3443
	hArr = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3444
	for i = 1,#preMadeTeam[pIndex][2] do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3445
		table.insert(hArr,preMadeTeam[pIndex][2][i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3446
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3447
	nArr = {}
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3448
	for i = 1,#preMadeTeam[pIndex][3] do
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3449
		table.insert(nArr,preMadeTeam[pIndex][3][i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3450
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3451
	SetHogTeamName(gear, tName)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3452
	runOnHogs(AssignTeam)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3453
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3454
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3455
function AssignTeam(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3456
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3457
	if GetHogTeamName(gear) == tName then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3458
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3459
		setGearValue(gear,"flag",preMadeTeam[pIndex][5])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3460
		setGearValue(gear,"voice",preMadeTeam[pIndex][6])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3461
		setGearValue(gear,"grave",preMadeTeam[pIndex][7])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3462
		setGearValue(gear,"fort",preMadeTeam[pIndex][8])
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3463
		setGearValue(gear,"originalTeamName",preMadeTeamNamesOriginal[pIndex])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3464
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3465
		if preMadeTeam[pIndex][4] == "R" then -- random team
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3466
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3467
			if #hArr > 0 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3468
				--if there are unchosen hats left, choose one
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3469
				--then remove it from the available list of hats
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3470
				i = 1+GetRandom(#hArr)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3471
				SetHogHat(gear,hArr[i])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3472
				table.remove(hArr,i)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3473
			else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3474
				-- choose any hat randomly
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3475
				SetHogHat(gear,preMadeTeam[pIndex][2][1+GetRandom(#preMadeTeam[pIndex][2])])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3476
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3477
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3478
			if #nArr > 0 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3479
				i = 1+GetRandom(#nArr)
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3480
				SetHogNameAndTranslate(gear, nArr[i])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3481
				table.remove(nArr,i)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3482
			else
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3483
				SetHogNameAndTranslate(gear, preMadeTeam[pIndex][3][1+GetRandom(#preMadeTeam[pIndex][3])])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3484
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3485
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3486
		elseif preMadeTeam[pIndex][4] == "F" then -- fixed team w/ exactly 8 guys
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3487
			SetHogNameAndTranslate(gear, preMadeTeam[pIndex][3][hIndex])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3488
			SetHogHat(gear,preMadeTeam[pIndex][2][hIndex])
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3489
			hIndex = hIndex +1
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3490
		else -- FR fixed random team with more or less than 8 guys
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3491
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3492
			if #hArr > 0 then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3493
				i = 1+GetRandom(#hArr)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3494
				SetHogHat(gear,hArr[i])
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3495
				SetHogNameAndTranslate(gear, nArr[i])
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3496
				table.remove(hArr,i)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3497
				table.remove(nArr,i)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3498
			else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3499
				SetHogHat(gear,"NoHat")
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3500
				SetHogNameAndTranslate(gear,loc_noop("Hedgehog"))
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3501
			end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3502
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3503
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3504
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3505
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3506
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3507
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3508
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3509
-- allows you to set a sort of identity and weapon profile for a given hog
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3510
-- this should only really be used when perHogAmmo is enabled
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3511
function SetHogProfile(gear, pro)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3512
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3513
	clearAmmo(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3514
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3515
	if pro == loc("Sniper") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3516
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3517
		SetHogNameAndTranslate(gear, "Sniper")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3518
		SetHogHat(gear, "Sniper")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3519
		SetHealth(gear, 50)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3520
		AddAmmo(gear, amSniperRifle, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3521
		AddAmmo(gear, amDEagle, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3522
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3523
	elseif pro == loc("Pyro") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3524
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3525
		SetHogNameAndTranslate(gear, "Pyro")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3526
		SetHogHat(gear, "Gasmask")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3527
		SetHealth(gear, 80)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3528
		AddAmmo(gear, amFlamethrower, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3529
		AddAmmo(gear, amMolotov, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3530
		AddAmmo(gear, amNapalm, 1)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3531
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3532
	elseif pro == loc("Soldier") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3533
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3534
		SetHogNameAndTranslate(gear, "Soldier")
12000
ec3fe3068932 HedgeEditor: Throw away code in comments and unused variables
Wuzzy <almikes@aol.com>
parents: 11999
diff changeset
  3535
		SetHogHat(gear, "war_americanww2helmet")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3536
		SetHealth(gear, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3537
		AddAmmo(gear, amBazooka, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3538
		AddAmmo(gear, amShotgun, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3539
		AddAmmo(gear, amMortar, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3540
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3541
	elseif pro == loc("Grenadier") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3542
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3543
		SetHogNameAndTranslate(gear, "Grenadier")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3544
		SetHogHat(gear, "war_desertgrenadier1")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3545
		SetHealth(gear, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3546
		AddAmmo(gear, amGrenade, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3547
		AddAmmo(gear, amClusterBomb, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3548
		AddAmmo(gear, amGasBomb, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3549
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3550
	elseif pro == loc("Chef") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3551
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3552
		SetHogNameAndTranslate(gear, "Chef")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3553
		SetHogHat(gear, "chef")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3554
		SetHealth(gear, 65)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3555
		AddAmmo(gear, amGasBomb, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3556
		AddAmmo(gear, amKnife, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3557
		AddAmmo(gear, amCake, 1)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3558
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3559
	elseif pro == loc("Ninja") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3560
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3561
		SetHogNameAndTranslate(gear, "Ninja")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3562
		SetHogHat(gear, "NinjaFull")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3563
		SetHealth(gear, 80)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3564
		AddAmmo(gear, amRope, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3565
		AddAmmo(gear, amFirePunch, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3566
		AddAmmo(gear, amParachute, 1)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3567
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3568
	elseif pro == loc("Commander") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3569
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3570
		SetHogNameAndTranslate(gear, "Commander")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3571
		SetHogHat(gear, "sf_vega")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3572
		SetHealth(gear, 120)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3573
		AddAmmo(gear, amDEagle, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3574
		AddAmmo(gear, amAirAttack, 2)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3575
		AddAmmo(gear, amNapalm, 1)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3576
		AddAmmo(gear, amDrillStrike, 1)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3577
		AddAmmo(gear, amMineStrike, 1)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3578
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3579
	elseif pro == loc("Engineer") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3580
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3581
		SetHogNameAndTranslate(gear, "Engineer")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3582
		SetHogHat(gear, "Glasses")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3583
		SetHealth(gear, 45)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3584
		AddAmmo(gear, amGirder, 4)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3585
		AddAmmo(gear, amRubber, 2)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3586
		AddAmmo(gear, amLandGun, 2)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3587
		AddAmmo(gear, amBlowTorch, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3588
		AddAmmo(gear, amPickHammer, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3589
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3590
	elseif pro == loc("Physicist") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3591
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3592
		SetHogNameAndTranslate(gear, "Physicist")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3593
		SetHogHat(gear, "lambda")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3594
		SetHealth(gear, 80)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3595
		AddAmmo(gear, amIceGun, 2)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3596
		AddAmmo(gear, amSineGun, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3597
		AddAmmo(gear, amBee, 2)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3598
		AddAmmo(gear, amLowGravity, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3599
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3600
	elseif pro == loc("Trapper") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3601
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3602
		SetHogNameAndTranslate(gear, "Trapper")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3603
		SetHogHat(gear, "Skull")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3604
		SetHealth(gear, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3605
		AddAmmo(gear, amMine, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3606
		AddAmmo(gear, amSMine, 4)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3607
		AddAmmo(gear, amAirMine, 2)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3608
		AddAmmo(gear, amMolotov, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3609
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3610
	elseif pro == loc("Saint") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3611
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3612
		SetHogNameAndTranslate(gear, "Saint")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3613
		SetHogHat(gear, "angel")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3614
		SetHealth(gear, 200)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3615
		AddAmmo(gear, amSeduction, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3616
		AddAmmo(gear, amInvulnerable, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3617
		AddAmmo(gear, amIceGun, 2)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3618
		AddAmmo(gear, amHammer, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3619
		AddAmmo(gear, amResurrector, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3620
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3621
	elseif pro == loc("Clown") then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3622
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3623
		SetHogNameAndTranslate(gear, "Clown")
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3624
		SetHogHat(gear, "clown-copper")
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3625
		SetHealth(gear, 70)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3626
		AddAmmo(gear, amBaseballBat, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3627
		AddAmmo(gear, amGasBomb, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3628
		AddAmmo(gear, amBallgun, 1)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3629
		AddAmmo(gear, amKamikaze, 1)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3630
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3631
	-- some other ideas/roles
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3632
	-- relocator: portal, teleport, tardis, extra time, lasersite
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3633
	-- vampire: vampire, whip, birdy, extra damage, seduction
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3634
	-- flyboy: rc plane, deagle, whip, parachute, kamikaze
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3635
	-- demo: drill, dynamite, mine, smine, blowtorch
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3636
	-- alien: ufo, sine-gun, drill rocket
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3637
	-- terminator: tardis, shotgun, cake, girder
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3638
	-- yeti: ice-gun, firepunch, blowtorch
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3639
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3640
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3641
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3642
	AddAmmo(gear, amSwitch, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3643
	AddAmmo(gear, amSkip, 100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3644
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3645
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3646
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3647
function onNewTurn()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3648
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3649
	-- regardless of our other ammo, give stuff that is useful for editing
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3650
	SetEditingWeps(100)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3651
	if GetHogLevel(CurrentHedgehog) == 0 then
13755
110d6c1e817f Lua: Rename globals: NoPointX→NO_CURSOR, cMaxTurnTime→MAX_TURN_TIME, cMaxHogHealth→MAX_HOG_HEALTH
Wuzzy <Wuzzy2@mail.ru>
parents: 13745
diff changeset
  3652
		SetTurnTimeLeft(MAX_TURN_TIME)
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3653
	else
13175
98a0edb4bb5a Lua API: Add SkipTurn() to replace ParseCommand("skip")
Wuzzy <Wuzzy2@mail.ru>
parents: 13134
diff changeset
  3654
		SkipTurn() -- skip the computer's turn
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3655
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3656
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3657
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3658
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3659
function onGameTick()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3660
	HandleHedgeEditor()
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3661
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3662
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3663
function isATrackedGear(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3664
	if 	(GetGearType(gear) == gtHedgehog) or
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3665
		(GetGearType(gear) == gtGrenade) or
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3666
		(GetGearType(gear) == gtExplosives) or
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3667
		(GetGearType(gear) == gtTarget) or
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3668
		(GetGearType(gear) == gtKnife) or
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3669
		(GetGearType(gear) == gtMine) or
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3670
		(GetGearType(gear) == gtSMine) or
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3671
		(GetGearType(gear) == gtPortal) or
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3672
		(GetGearType(gear) == gtAirMine) or
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3673
		(GetGearType(gear) == gtCase)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3674
	then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3675
		return(true)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3676
	else
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3677
		return(false)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3678
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3679
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3680
12019
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3681
function SetHogNameAndTranslate(gear, originalName)
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3682
	SetHogName(gear, loc(originalName))
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3683
	--[[ Store the original (usually English) hog name, since we need it for exporting.
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3684
	This way, we can display the translated name in the editor and export the properly
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3685
	loc()'ed original name afterwards ]]
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3686
	setGearValue(gear, "originalName", originalName)
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3687
end
9937075bbfd5 HedgeEditor: Make all hog and team names translatable and export them properly
Wuzzy <almikes@aol.com>
parents: 12017
diff changeset
  3688
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3689
-- track hedgehogs and placement gears
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3690
function onGearAdd(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3691
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3692
	if GetGearType(gear) == gtJetpack then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3693
		ufoGear = gear
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3694
		if (ufoFuel ~= 0) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3695
			SetHealth(ufoGear, ufoFuel)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3696
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3697
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3698
12946
ffbd31afed96 HedgeEditor, Construction Mode: Refactor code by adding fake ammo type variables
Wuzzy <Wuzzy2@mail.ru>
parents: 12797
diff changeset
  3699
	if (GetGearType(gear) == gtAirAttack and GetCurAmmoType() == amCMGearPlacementTool) or (GetGearType(gear) == gtGirder) then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3700
		cGear = gear
14747
2e8213c0951f Fix air attack placement in HedgeEditor/Construction Mode
Wuzzy <Wuzzy2@mail.ru>
parents: 14664
diff changeset
  3701
		cGearPlacementDone = false
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3702
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3703
12029
16dbc3a92d14 HedgeEditor: Make health/timer tags toggable with Precise+3
Wuzzy <almikes@aol.com>
parents: 12028
diff changeset
  3704
	local tagTint
12028
ba71454538d0 HedgeEditor: Show tags for gear timers and health
Wuzzy <almikes@aol.com>
parents: 12027
diff changeset
  3705
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3706
	if isATrackedGear(gear) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3707
		trackGear(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3708
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3709
		if GetGearType(gear) == gtPortal then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3710
			setGearValue(gear,"life",portalDistance)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3711
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3712
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3713
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3714
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3715
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3716
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3717
function onGearDelete(gear)
12028
ba71454538d0 HedgeEditor: Show tags for gear timers and health
Wuzzy <almikes@aol.com>
parents: 12027
diff changeset
  3718
	local gt = GetGearType(gear)
ba71454538d0 HedgeEditor: Show tags for gear timers and health
Wuzzy <almikes@aol.com>
parents: 12027
diff changeset
  3719
ba71454538d0 HedgeEditor: Show tags for gear timers and health
Wuzzy <almikes@aol.com>
parents: 12027
diff changeset
  3720
	if gt == gtJetpack then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3721
		ufoGear = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3722
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3723
12745
cae0b3139ff7 HedgeEditor: Fix broken napalm/mine strike/drill strike
Wuzzy <Wuzzy2@mail.ru>
parents: 12653
diff changeset
  3724
	if (gt == gtAirAttack and GetGearPos(gear) == 0) or gt == gtGirder then
11037
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3725
		cGear = nil
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3726
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3727
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3728
	if isATrackedGear(gear) then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3729
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3730
		if getGearValue(gear, "tCirc") ~= nil then
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3731
			DeleteVisualGear(getGearValue(gear, "tCirc"))
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3732
		end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3733
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3734
		trackDeletion(gear)
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3735
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3736
	end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3737
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3738
end
599bb42d7448 HedgeEditor (bring on the bug reports, wahey!)
mikade <redgrinner@gmail.com>
parents:
diff changeset
  3739
13038
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  3740
function onVisualGearDelete(vGear)
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  3741
	if vGear == tagCursorX then
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  3742
		tagCursorX = nil
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  3743
	end
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  3744
	if vGear == tagCursorY then
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  3745
		tagCursorY = nil
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  3746
	end
a823de31240e Display cursor coordinates in HedgeEditor
Wuzzy <Wuzzy2@mail.ru>
parents: 12981
diff changeset
  3747
end