share/hedgewars/Data/Scripts/Multiplayer/TechRacer.lua
author Wuzzy <Wuzzy2@mail.ru>
Thu, 26 Jul 2018 18:26:48 +0200
changeset 13565 dc7b1a4ddded
parent 13564 3c562f52609c
child 13566 cba63f72e52f
permissions -rw-r--r--
Clean up messy indentations in TechRacer script
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
13564
3c562f52609c TechRacer: Delete dead code
Wuzzy <Wuzzy2@mail.ru>
parents: 13563
diff changeset
     1
--------------
3c562f52609c TechRacer: Delete dead code
Wuzzy <Wuzzy2@mail.ru>
parents: 13563
diff changeset
     2
-- TECH RACER
3c562f52609c TechRacer: Delete dead code
Wuzzy <Wuzzy2@mail.ru>
parents: 13563
diff changeset
     3
--------------
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
     4
12393
0eb1457f7b94 Add big fat developer warning to all racing scripts about compability
Wuzzy <almikes@aol.com>
parents: 12338
diff changeset
     5
-- DEVELOPER WARNING - FOR OFFICIAL DEVELOPMENT --
0eb1457f7b94 Add big fat developer warning to all racing scripts about compability
Wuzzy <almikes@aol.com>
parents: 12338
diff changeset
     6
-- Be careful when editig this script, do not introduce changes lightly!
0eb1457f7b94 Add big fat developer warning to all racing scripts about compability
Wuzzy <almikes@aol.com>
parents: 12338
diff changeset
     7
-- This script is used for time records on the official Hedgewars server.
0eb1457f7b94 Add big fat developer warning to all racing scripts about compability
Wuzzy <almikes@aol.com>
parents: 12338
diff changeset
     8
-- Introducing breaking changes means we have to invalidate past time records!
0eb1457f7b94 Add big fat developer warning to all racing scripts about compability
Wuzzy <almikes@aol.com>
parents: 12338
diff changeset
     9
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    10
--------------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    11
-- TO DO
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    12
--------------
10967
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
    13
-- allow scrolling of maps (was going to add this in the engine itself, but it can be done now by refreshing preview)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    14
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    15
-----------------------------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    16
-- SCRIPT BEGINS
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    17
-----------------------------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    18
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    19
HedgewarsScriptLoad("/Scripts/Locale.lua")
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    20
HedgewarsScriptLoad("/Scripts/OfficialChallenges.lua")
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    21
HedgewarsScriptLoad("/Scripts/Tracker.lua")
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    22
HedgewarsScriptLoad("/Scripts/Params.lua")
13220
bc95df84395f Clear drawn maps in TechRacer
Wuzzy <Wuzzy2@mail.ru>
parents: 13032
diff changeset
    23
HedgewarsScriptLoad("/Scripts/Utils.lua")
10961
b30f29396f0c Also preview waypoints
nemo
parents: 10959
diff changeset
    24
HedgewarsScriptLoad("/Scripts/TechMaps.lua")
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    25
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    26
------------------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    27
-- Got Variables?
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    28
------------------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    29
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    30
local atkArray = {
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    31
	{amBazooka, 	"amBazooka",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    32
	{amBee, 	"amBee",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    33
	{amMortar, 	"amMortar",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    34
	{amDrill, 	"amDrill",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    35
	{amSnowball, 	"amSnowball",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    36
	{amGrenade,	"amGrenade",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    37
	{amClusterBomb,	"amClusterBomb",	0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    38
	{amMolotov, 	"amMolotov",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    39
	{amWatermelon, 	"amWatermelon",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    40
	{amHellishBomb,	"amHellishBomb",	0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    41
	{amGasBomb, 	"amGasBomb",		0},
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    42
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    43
	{amShotgun,	"amShotgun",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    44
	{amDEagle,	"amDEagle",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    45
	{amFlamethrower,"amFlamethrower",	0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    46
	{amSniperRifle,	"amSniperRifle",	0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    47
	{amSineGun, 	"amSineGun",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    48
	{amIceGun, 	"amIceGun",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    49
	{amLandGun,	"amLandGun",		0},
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    50
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    51
	{amFirePunch, 	"amFirePunch",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    52
	{amWhip,	"amWhip",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    53
	{amBaseballBat, "amBaseballBat",	0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    54
	{amKamikaze, 	"amKamikaze",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    55
	{amSeduction, 	"amSeduction",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    56
	{amHammer,	"amHammer",		0},
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    57
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    58
	{amMine, 	"amMine",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    59
	{amDynamite, 	"amDynamite",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    60
	{amCake, 	"amCake",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    61
	{amBallgun, 	"amBallgun",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    62
	{amRCPlane,	"amRCPlane",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    63
	{amSMine,	"amSMine",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    64
	{amAirMine,	"amAirMine",		0},
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    65
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    66
	{amAirAttack,	"amAirAttack",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    67
	{amMineStrike,	"amMineStrike",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    68
	{amDrillStrike,	"amDrillStrike",	0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    69
	{amAirMine,	"amAirMine",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    70
	{amNapalm, 	"amNapalm",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    71
	{amPiano,	"amPiano",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    72
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    73
	{amKnife,	"amKnife",		0},
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    74
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    75
	{amBirdy,	"amBirdy",		0}
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    76
}
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    77
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    78
local utilArray = {
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    79
	{amBlowTorch, 	"amBlowTorch",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    80
	{amPickHammer,	"amPickHammer",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    81
	{amGirder, 	"amGirder",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    82
	{amRubber, 	"amRubber",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    83
	{amPortalGun,	"amPortalGun",		0},
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    84
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    85
	{amRope, 	"amRope",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    86
	{amParachute, 	"amParachute",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    87
	{amTeleport,	"amTeleport",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    88
	{amJetpack,	"amJetpack",		0},
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    89
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    90
	{amInvulnerable,"amInvulnerable",	0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    91
	{amLaserSight,	"amLaserSight",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    92
	{amVampiric,	"amVampiric",		0},
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    93
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    94
	{amLowGravity, 	"amLowGravity",		0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    95
	{amExtraDamage, "amExtraDamage",	0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    96
	{amExtraTime,	"amExtraTime",		0},
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
    97
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    98
	{amResurrector, "amResurrector",	0},
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
    99
	{amTardis, 	"amTardis",		0},
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   100
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   101
	{amSwitch,	"amSwitch",		0}
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   102
}
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   103
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   104
local activationStage = 0
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   105
local jet = nil
13564
3c562f52609c TechRacer: Delete dead code
Wuzzy <Wuzzy2@mail.ru>
parents: 13563
diff changeset
   106
portalDistance = 5000
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
   107
ufoFuel = 0
13564
3c562f52609c TechRacer: Delete dead code
Wuzzy <Wuzzy2@mail.ru>
parents: 13563
diff changeset
   108
local fMod = 1000000
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   109
local roundLimit = 3
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   110
local roundNumber = 0
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   111
local firstClan = 10
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   112
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   113
local fastX = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   114
local fastY = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   115
local fastCount = 0
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   116
local fastIndex = 0
11586
fd02a080d962 - Fix room config being sent unmodified
unc0rr
parents: 11574
diff changeset
   117
local fastColour = 0xffffffff
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   118
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   119
local currX = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   120
local currY = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   121
local currCount = 0
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   122
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   123
local specialPointsX = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   124
local specialPointsY = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   125
local specialPointsFlag = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   126
local specialPointsCount = 0
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   127
10967
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
   128
mapID = nil
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   129
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   130
--------------------------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   131
-- hog and team tracking variales
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   132
--------------------------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   133
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   134
local numhhs = 0 -- store number of hedgehogs
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   135
local hhs = {} -- store hedgehog gears
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   136
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   137
local numTeams --  store the number of teams in the game
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   138
local teamNameArr = {}  -- store the list of teams
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   139
local teamClan = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   140
local teamSize = {}     -- store how many hogs per team
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   141
local teamIndex = {} -- at what point in the hhs{} does each team begin
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   142
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   143
local teamComment = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   144
local teamScore = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   145
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   146
-------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   147
-- racer vars
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   148
--------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   149
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   150
local cGear = nil
13029
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
   151
local cameraGear = nil
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   152
11942
8fd4926e1e9e TechRacer: Cleanup mess regarding teams which did not finish
Wuzzy <almikes@aol.com>
parents: 11941
diff changeset
   153
local bestClan = 10
8fd4926e1e9e TechRacer: Cleanup mess regarding teams which did not finish
Wuzzy <almikes@aol.com>
parents: 11941
diff changeset
   154
local bestTime = 1000000
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   155
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   156
local gameBegun = false
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   157
local gameOver = false
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   158
local racerActive = false
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   159
local trackTime = 0
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   160
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   161
local wpCirc = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   162
local wpX = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   163
local wpY = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   164
local wpCol = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   165
local wpActive = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   166
local wpRad = 450 --75
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   167
local wpCount = 0
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   168
local wpLimit = 20
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   169
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   170
local usedWeapons = {}
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   171
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   172
local roundN
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   173
local lastRound
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   174
local RoundHasChanged
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   175
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   176
-------------------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   177
-- general methods
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   178
-------------------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   179
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   180
function RebuildTeamInfo()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   181
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   182
	-- make a list of individual team names
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   183
	for i = 0, (TeamsCount-1) do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   184
		teamNameArr[i] = " " -- = i
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   185
		teamSize[i] = 0
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   186
		teamIndex[i] = 0
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   187
		teamScore[i] = 1000000
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   188
	end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   189
	numTeams = 0
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   190
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   191
	for i = 0, (numhhs-1) do
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   192
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   193
		z = 0
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   194
		unfinished = true
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   195
		while(unfinished == true) do
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   196
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   197
			newTeam = true
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   198
			tempHogTeamName = GetHogTeamName(hhs[i]) -- this is the new name
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   199
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   200
			if tempHogTeamName == teamNameArr[z] then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   201
				newTeam = false
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   202
				unfinished = false
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   203
			end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   204
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   205
			z = z + 1
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   206
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   207
			if z == TeamsCount then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   208
				unfinished = false
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   209
				if newTeam == true then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   210
					teamNameArr[numTeams] = tempHogTeamName
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   211
					numTeams = numTeams + 1
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   212
				end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   213
			end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   214
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   215
		end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   216
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   217
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   218
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   219
	-- find out how many hogs per team, and the index of the first hog in hhs
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   220
	for i = 0, (numTeams-1) do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   221
		for z = 0, (numhhs-1) do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   222
			if GetHogTeamName(hhs[z]) == teamNameArr[i] then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   223
				teamClan[i] = GetHogClan(hhs[z])
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   224
				if teamSize[i] == 0 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   225
					teamIndex[i] = z -- should give starting index
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   226
				end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   227
				teamSize[i] = teamSize[i] + 1
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   228
				--add a pointer so this hog appears at i in hhs
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   229
			end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   230
		end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   231
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   232
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   233
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   234
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   235
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   236
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   237
-----------------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   238
-- RACER METHODS
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   239
-----------------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   240
12971
b543d767fed3 Make first waypoint flash TechRacer, before hog starts racing
Wuzzy <Wuzzy2@mail.ru>
parents: 12969
diff changeset
   241
-- Returns min opacity, max opacity and flashing speed (`FrameTicks`)
b543d767fed3 Make first waypoint flash TechRacer, before hog starts racing
Wuzzy <Wuzzy2@mail.ru>
parents: 12969
diff changeset
   242
-- for the waypoint visual gears
b543d767fed3 Make first waypoint flash TechRacer, before hog starts racing
Wuzzy <Wuzzy2@mail.ru>
parents: 12969
diff changeset
   243
function FlashingHelper(wpIndex)
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   244
	local minO, maxO, flashing
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   245
	if wpIndex == 0 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   246
		-- Notable flashing of first waypoint
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   247
		minO, maxO = 92, 255
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   248
		flashing = 2
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   249
	else
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   250
		-- Slow pulsation
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   251
		minO, maxO = 164, 224
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   252
		flashing = 10
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   253
	end
12971
b543d767fed3 Make first waypoint flash TechRacer, before hog starts racing
Wuzzy <Wuzzy2@mail.ru>
parents: 12969
diff changeset
   254
	return minO, maxO, flashing
b543d767fed3 Make first waypoint flash TechRacer, before hog starts racing
Wuzzy <Wuzzy2@mail.ru>
parents: 12969
diff changeset
   255
end
b543d767fed3 Make first waypoint flash TechRacer, before hog starts racing
Wuzzy <Wuzzy2@mail.ru>
parents: 12969
diff changeset
   256
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   257
function CheckWaypoints()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   258
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   259
	trackFinished = true
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   260
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   261
	for i = 0, (wpCount-1) do
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   262
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   263
		g1X, g1Y = GetGearPosition(CurrentHedgehog)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   264
		g2X, g2Y = wpX[i], wpY[i]
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   265
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   266
		g1X = g1X - g2X
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   267
		g1Y = g1Y - g2Y
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   268
		dist = (g1X*g1X) + (g1Y*g1Y)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   269
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   270
		NR = (48/100*wpRad)/2
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   271
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   272
		if dist < (NR*NR) and not gameOver then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   273
			wpCol[i] = GetClanColor(GetHogClan(CurrentHedgehog))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   274
			SetVisualGearValues(wpCirc[i], wpX[i], wpY[i], 64, 64, 1, 10, 0, wpRad, 5, wpCol[i])
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   275
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   276
			wpRem = 0
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   277
			for k = 0, (wpCount-1) do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   278
				if wpActive[k] == false then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   279
					wpRem = wpRem + 1
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   280
				end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   281
			end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   282
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   283
			if not wpActive[i] then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   284
				local wpMessage = ""
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   285
				if wpRem-1 == 0 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   286
					wpMessage = loc("Track completed!")
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   287
				else
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   288
					wpMessage = string.format(loc("Waypoints remaining: %d"), wpRem-1)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   289
				end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   290
				AddCaption(wpMessage, 0xffba00ff, capgrpGameState)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   291
			end
11938
20b755da986f TechRacer: Don't mess with ammo caption while in waypoint.
Wuzzy <almikes@aol.com>
parents: 11937
diff changeset
   292
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   293
			wpActive[i] = true
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   294
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   295
		end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   296
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   297
		if wpActive[i] == false then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   298
			trackFinished = false
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   299
		end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   300
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   301
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   302
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   303
	return(trackFinished)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   304
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   305
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   306
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   307
function AdjustScores()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   308
11942
8fd4926e1e9e TechRacer: Cleanup mess regarding teams which did not finish
Wuzzy <almikes@aol.com>
parents: 11941
diff changeset
   309
	local bestTimeComment = loc("Did not finish")
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   310
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   311
	newScore = false
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   312
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   313
	-- update this clan's time if the new track is better
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   314
	for i = 0, (numTeams-1) do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   315
		if teamClan[i] == GetHogClan(CurrentHedgehog) then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   316
			if trackTime < teamScore[i] then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   317
				teamScore[i] = trackTime
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   318
				newScore = true
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   319
			else
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   320
				newScore = false
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   321
			end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   322
		end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   323
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   324
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   325
	-- find the best time out of those so far
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   326
	for i = 0, (numTeams-1) do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   327
		if teamScore[i] < bestTime then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   328
			bestTime = teamScore[i]
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   329
			bestClan = teamClan[i]
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   330
		end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   331
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   332
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   333
	if bestTime ~= 1000000 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   334
		bestTimeComment = string.format(loc("%.1fs"), (bestTime/1000))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   335
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   336
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   337
	if newScore == true then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   338
		if trackTime == bestTime then -- best time of the race
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   339
			ShowMission(loc("TechRacer"),
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   340
			loc("Track completed!"),
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   341
			string.format(loc("New race record: %.1fs"), (trackTime/1000)) .. "|" ..
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   342
			string.format(loc("Winning time: %s"), bestTimeComment), 0, 4000)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   343
			PlaySound(sndHomerun)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   344
		else    -- best time for the clan
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   345
			ShowMission(loc("TechRacer"),
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   346
			loc("Track completed!"),
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   347
			string.format(loc("New clan record: %.1fs"), (trackTime/1000)) .. "|" ..
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   348
			string.format(loc("Winning time: %s"), bestTimeComment), 4, 4000)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   349
		end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   350
	else -- not any kind of new score
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   351
		ShowMission(loc("TechRacer"),
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   352
		loc("Track completed!"),
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   353
		string.format(loc("Time: %.1fs"), (trackTime/1000)) .. "|" ..
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   354
		string.format(loc("Winning time: %s"), bestTimeComment), -amSkip, 4000)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   355
		PlaySound(sndHellish)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   356
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   357
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   358
	for i = 0, (TeamsCount-1) do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   359
		if teamNameArr[i] ~= " " and teamScore[i] ~= 1000000 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   360
			SetTeamLabel(teamNameArr[i], string.format(loc("%.1fs"), teamScore[i]/1000))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   361
		end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   362
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   363
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   364
	if bestTime == trackTime then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   365
		fastColour = GetClanColor(GetHogClan(CurrentHedgehog))
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   366
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   367
		for i = 0, (currCount-1) do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   368
			fastX[i] = currX[i]
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   369
			fastY[i] = currY[i]
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   370
		end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   371
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   372
		fastCount = currCount
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   373
		fastIndex = 0
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   374
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   375
	else
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   376
		currCount = 0
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   377
		fastIndex = 0
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   378
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   379
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   380
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   381
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   382
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   383
function onNewRound()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   384
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   385
	roundNumber = roundNumber + 1
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   386
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   387
	totalComment = ""
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   388
	for i = 0, (TeamsCount-1) do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   389
		if teamNameArr[i] ~= " " then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   390
			if teamScore[i] ~= 1000000 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   391
				teamComment[i] = string.format(loc("%s: %.1fs"), teamNameArr[i], (teamScore[i]/1000)) .. "|"
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   392
			else
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   393
				teamComment[i] = string.format(loc("%s: Did not finish"), teamNameArr[i]) .. "|"
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   394
			end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   395
			totalComment = totalComment .. teamComment[i]
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   396
		elseif teamNameArr[i] == " " then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   397
			teamComment[i] = "|"
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   398
		end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   399
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   400
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   401
	ShowMission(loc("TechRacer"),
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   402
		loc("Status update"),
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   403
		string.format(loc("Rounds complete: %d/%d"), roundNumber, roundLimit) .. "| |" ..
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   404
		loc("Best team times: ") .. "|" ..
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   405
		totalComment,
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   406
		0, 4000)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   407
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   408
	-- end game if its at round limit
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   409
	if roundNumber >= roundLimit then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   410
		-- Sort the scores for the ranking list
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   411
		local unfinishedArray = {}
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   412
		local sortedTeams = {}
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   413
		local k = 1
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   414
		for i = 0, TeamsCount-1 do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   415
			if teamScore[i] ~= 1000000 and teamNameArr[i] ~= " " then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   416
			       sortedTeams[k] = {}
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   417
			       sortedTeams[k].name = teamNameArr[i]
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   418
			       sortedTeams[k].score = teamScore[i]
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   419
			       k = k + 1
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   420
			else
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   421
			       table.insert(unfinishedArray, string.format(loc("%s did not finish the race."), teamNameArr[i]))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   422
			end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   423
		end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   424
		table.sort(sortedTeams, function(team1, team2) return team1.score < team2.score end)
11940
e1bae42efacd TechRacer: Show racing times and ranking in stats screen
Wuzzy <almikes@aol.com>
parents: 11939
diff changeset
   425
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   426
		-- Write all the stats!
11940
e1bae42efacd TechRacer: Show racing times and ranking in stats screen
Wuzzy <almikes@aol.com>
parents: 11939
diff changeset
   427
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   428
		for i = 1, #sortedTeams do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   429
			SendStat(siPointType, loc("milliseconds"))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   430
			SendStat(siPlayerKills, sortedTeams[i].score, sortedTeams[i].name)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   431
		end
11940
e1bae42efacd TechRacer: Show racing times and ranking in stats screen
Wuzzy <almikes@aol.com>
parents: 11939
diff changeset
   432
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   433
		if #sortedTeams >= 1 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   434
			SendStat(siGameResult, string.format(loc("%s wins!"), sortedTeams[1].name))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   435
			SendStat(siCustomAchievement, string.format(loc("%s wins with a best time of %.1fs."), sortedTeams[1].name, (sortedTeams[1].score/1000)))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   436
			for i=1,#unfinishedArray do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   437
				 SendStat(siCustomAchievement, unfinishedArray[i])
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   438
			end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   439
		else
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   440
			SendStat(siGameResult, loc("Round draw"))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   441
			SendStat(siCustomAchievement, loc("Nobody managed to finish the race. What a shame!"))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   442
			SendStat(siCustomAchievement, loc("Maybe you should try an easier TechRacer map."))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   443
		end
11940
e1bae42efacd TechRacer: Show racing times and ranking in stats screen
Wuzzy <almikes@aol.com>
parents: 11939
diff changeset
   444
12338
6bdabf67a012 Add back the missing winning animation for Racer and TechRecer
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   445
		-- Kill all the losers
6bdabf67a012 Add back the missing winning animation for Racer and TechRecer
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   446
		for i = 0, (numhhs-1) do
6bdabf67a012 Add back the missing winning animation for Racer and TechRecer
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   447
			if GetHogClan(hhs[i]) ~= bestClan then
6bdabf67a012 Add back the missing winning animation for Racer and TechRecer
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   448
				SetEffect(hhs[i], heResurrectable, 0)
6bdabf67a012 Add back the missing winning animation for Racer and TechRecer
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   449
				SetHealth(hhs[i],0)
6bdabf67a012 Add back the missing winning animation for Racer and TechRecer
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   450
			end
6bdabf67a012 Add back the missing winning animation for Racer and TechRecer
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   451
		end
6bdabf67a012 Add back the missing winning animation for Racer and TechRecer
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   452
6bdabf67a012 Add back the missing winning animation for Racer and TechRecer
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   453
		gameOver = true
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   454
		for i=0, wpCount-1 do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   455
			 -- Fade out waypoints
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   456
			 SetVisualGearValues(wpCirc[i], nil, nil, 0, 0, nil, 6)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   457
		end
12338
6bdabf67a012 Add back the missing winning animation for Racer and TechRecer
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   458
		EndTurn(true)
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   459
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   460
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   461
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   462
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   463
function CheckForNewRound()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   464
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   465
	if GetHogClan(CurrentHedgehog) == firstClan then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   466
		onNewRound()
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   467
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   468
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   469
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   470
12292
faf1b93422ba Use new EndTurn in a couple of scripts, esp. to fix timeout taunts in Racer
Wuzzy <almikes@aol.com>
parents: 12084
diff changeset
   471
function DisableTumbler(endTurn)
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   472
	if endTurn == nil then endTurn = true end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   473
	if racerActive then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   474
		currCount = 0
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   475
		fastIndex = 0
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   476
		racerActive = false -- newadd
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   477
		if endTurn then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   478
			 EndTurn(true)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   479
		end
12969
a5c5fe878a4e Racer, TechRacer: Fade out waypoints at the end
Wuzzy <Wuzzy2@mail.ru>
parents: 12968
diff changeset
   480
		if trackFinished and not gameOver then
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   481
			 for i=0, wpCount-1 do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   482
		       		 SetVisualGearValues(wpCirc[i], nil, nil, 255, 255, nil, 2)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   483
			 end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   484
		elseif not gameOver then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   485
			 for i=0, wpCount-1 do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   486
		       		 SetVisualGearValues(wpCirc[i], nil, nil, 32, 32, nil, 1)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   487
			 end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   488
		end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   489
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   490
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   491
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   492
function HandleGhost()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   493
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   494
	-- get the current xy of the racer at this point
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   495
	currX[currCount] = GetX(CurrentHedgehog)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   496
	currY[currCount] = GetY(CurrentHedgehog)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   497
	currCount = currCount + 1
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   498
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   499
	-- draw a ping of smoke where the fastest player was at this point
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   500
	if (fastCount ~= 0) and (fastIndex < fastCount) then
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   501
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   502
		fastIndex = fastIndex + 1
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   503
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   504
		tempE = AddVisualGear(fastX[fastIndex], fastY[fastIndex], vgtSmoke, 0, false)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   505
		g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   506
		SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, g8, g9, fastColour )
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   507
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   508
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   509
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   510
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   511
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   512
function BoomGirder(x,y,rot)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   513
	girTime = 1
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   514
	if rot < 4 then
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   515
		AddGear(x, y, gtGrenade, 0, 0, 0, girTime)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   516
	elseif rot == 4 then
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   517
		g = AddGear(x-45, y, gtGrenade, 0, 0, 0, girTime) -- needed?
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   518
		g = AddGear(x-30, y, gtGrenade, 0, 0, 0, girTime)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   519
		g = AddGear(x, y, gtGrenade, 0, 0, 0, girTime) -- needed?
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   520
		g = AddGear(x+30, y, gtGrenade, 0, 0, 0, girTime)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   521
		g = AddGear(x+45, y, gtGrenade, 0, 0, 0, girTime) -- needed?
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   522
	elseif rot == 5 then ------- diag
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   523
		g = AddGear(x+45, y+45, gtGrenade, 0, 0, 0, girTime) --n
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   524
		g = AddGear(x+30, y+30, gtGrenade, 0, 0, 0, girTime)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   525
		g = AddGear(x, y, gtGrenade, 0, 0, 0, girTime) -- needed?
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   526
		g = AddGear(x-30, y-30, gtGrenade, 0, 0, 0, girTime)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   527
		g = AddGear(x-45, y-45, gtGrenade, 0, 0, 0, girTime) --n
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   528
	elseif rot == 6 then
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   529
		g = AddGear(x, y-45, gtGrenade, 0, 0, 0, girTime) -- needed?
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   530
		g = AddGear(x, y+30, gtGrenade, 0, 0, 0, girTime)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   531
		g = AddGear(x, y, gtGrenade, 0, 0, 0, girTime) -- needed?
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   532
		g = AddGear(x, y-30, gtGrenade, 0, 0, 0, girTime)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   533
		g = AddGear(x, y+45, gtGrenade, 0, 0, 0, girTime) -- needed?
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   534
	elseif rot == 7 then -------
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   535
		g = AddGear(x+45, y-45, gtGrenade, 0, 0, 0, girTime) --n
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   536
		g = AddGear(x+30, y-30, gtGrenade, 0, 0, 0, girTime)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   537
		g = AddGear(x, y, gtGrenade, 0, 0, 0, girTime) -- needed?
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   538
		g = AddGear(x-30, y+30, gtGrenade, 0, 0, 0, girTime)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   539
		g = AddGear(x-45, y+45, gtGrenade, 0, 0, 0, girTime) --n
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   540
	end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   541
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   542
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   543
function RemoveGear(gear)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   544
	if (isATrackedGear(gear) == true) and (GetGearType(gear) ~= gtHedgehog) then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   545
		DeleteGear(gear)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   546
	end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   547
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   548
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   549
function ClearMap()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   550
	runOnGears(RemoveGear)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   551
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   552
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   553
function CallBob(x,y)
12969
a5c5fe878a4e Racer, TechRacer: Fade out waypoints at the end
Wuzzy <Wuzzy2@mail.ru>
parents: 12968
diff changeset
   554
	if not racerActive and not gameOver then
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   555
		if wpCount == 0 or wpX[wpCount - 1] ~= x or wpY[wpCount - 1] ~= y then
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   556
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   557
			wpX[wpCount] = x
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   558
			wpY[wpCount] = y
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   559
			wpCol[wpCount] = 0xffffffff
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   560
			wpCirc[wpCount] = AddVisualGear(wpX[wpCount],wpY[wpCount],vgtCircle,0,true)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   561
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   562
			local minO, maxO, flashing = FlashingHelper(wpCount)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   563
			-- Make first waypoint flash very noticably before the hog starts racing
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   564
			SetVisualGearValues(wpCirc[wpCount], wpX[wpCount], wpY[wpCount], minO, maxO, 1, flashing, 0, wpRad, 5, wpCol[wpCount])
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   565
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   566
			wpCount = wpCount + 1
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   567
		end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   568
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   569
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   570
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   571
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   572
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   573
function HandleFreshMapCreation()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   574
13563
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   575
	if activationStage ~= 1 then
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   576
		return
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   577
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   578
13563
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   579
	-- the boom stage, boom girders, reset ammo, and delete other map objects
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   580
	ClearMap()
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   581
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   582
	-- the creation stage, place girders and needed gears, grant ammo
13563
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   583
	InterpretPoints()
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   584
13563
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   585
	-- these are from onParameters()
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   586
	if (mapID == nil) or (mapID == 0) then
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   587
		LoadMap(2000)
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   588
	else
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   589
		LoadMap(mapID)
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   590
	end
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   591
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   592
	if gameOver then
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   593
		for i = 0,(wpCount-1) do
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   594
			SetVisualGearValues(wpCirc[wpCount], wpX[wpCount], wpY[wpCount], 164, 224, 1, 10, 0, wpRad, 5, wpCol[wpCount])
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   595
		end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   596
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   597
	else
13563
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   598
		for i = 0,(wpCount-1) do
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   599
			DeleteVisualGear(wpCirc[i])
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   600
		end
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   601
		wpCount = 0
12969
a5c5fe878a4e Racer, TechRacer: Fade out waypoints at the end
Wuzzy <Wuzzy2@mail.ru>
parents: 12968
diff changeset
   602
13563
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   603
		for i = 1, techCount-1 do
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   604
			CallBob(techX[i],techY[i])
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   605
		end
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   606
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   607
13563
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   608
	if ufoFuel == 2000 then
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   609
		SetAmmoDescriptionAppendix(amJetpack, loc("On this map you get infinite fuel."))
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   610
	elseif ufoFuel ~= nil and ufoFuel ~= 0 then
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   611
		SetAmmoDescriptionAppendix(amJetpack, string.format(loc("On this map you get %d%% fuel."), div(ufoFuel, 20)))
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   612
	end
12394
605a7c85a798 Mention overwritten fuel in ammo description of UFO in TechRacer
Wuzzy <almikes@aol.com>
parents: 12393
diff changeset
   613
13563
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   614
	activationStage = 200
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   615
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   616
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   617
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   618
function TryRepositionHogs()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   619
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   620
	if MapHasBorder() == true then
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   621
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   622
		for i = 0, (numhhs-1) do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   623
			if hhs[i] ~= nil then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   624
				SetGearPosition(hhs[i],GetX(hhs[i]), TopY-10)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   625
			end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   626
		end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   627
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   628
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   629
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   630
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   631
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   632
----------------------------------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   633
-- GAME METHODS / EVENT HANDLERS
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   634
----------------------------------
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   635
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   636
function onParameters()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   637
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   638
	parseParams()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   639
	mapID = tonumber(params["m"])
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   640
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   641
	roundLimit = tonumber(params["rounds"])
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   642
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   643
	if (roundLimit == 0) or (roundLimit == nil) then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   644
		roundLimit = 3
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   645
	end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   646
10967
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
   647
	if mapID == nil then
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
   648
		mapID = 2 + GetRandom(7)
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
   649
	end
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
   650
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   651
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   652
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   653
function onGameInit()
13220
bc95df84395f Clear drawn maps in TechRacer
Wuzzy <Wuzzy2@mail.ru>
parents: 13032
diff changeset
   654
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   655
	TemplateFilter = 0
13220
bc95df84395f Clear drawn maps in TechRacer
Wuzzy <Wuzzy2@mail.ru>
parents: 13032
diff changeset
   656
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   657
	if MapGen == mgDrawn then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   658
		eraseMap(false)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   659
	else
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   660
		MapGen = mgDrawn
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   661
	end
13220
bc95df84395f Clear drawn maps in TechRacer
Wuzzy <Wuzzy2@mail.ru>
parents: 13032
diff changeset
   662
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   663
	if mapID == nil then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   664
		mapID = 2 + GetRandom(7)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   665
	end
11012
91cc6aef818c tentative/lazy fixes for unC0Rr's evil
mikade <redgrinner@gmail.com>
parents: 10979
diff changeset
   666
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   667
	addHashData(mapID)
11551
59bf29b4f523 Tech racer maps detection
unc0rr
parents: 11550
diff changeset
   668
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   669
	Theme = "Cave"
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   670
	Map = ""
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   671
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   672
	EnableGameFlags(gfInfAttack, gfDisableWind, gfBorder)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   673
	DisableGameFlags(gfSolidLand)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   674
	CaseFreq = 0
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   675
	TurnTime = 90000
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   676
	WaterRise = 0
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   677
	HealthDecrease = 0
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   678
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   679
	for x = 1, 16 do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   680
		AddPoint(x*100,100,5)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   681
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   682
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   683
	FlushPoints()
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   684
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   685
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   686
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   687
function limitHogs(gear)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   688
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   689
	cnthhs = cnthhs + 1
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   690
	if cnthhs > 1 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   691
		DeleteGear(gear)
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   692
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   693
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   694
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   695
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   696
function onSpecialPoint(x,y,flag)
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   697
	if flag == 99 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   698
		fastX[fastCount] = x
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   699
		fastY[fastCount] = y
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   700
		fastCount = fastCount + 1
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   701
	elseif flag == 0 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   702
		techX[techCount], techY[techCount] = x, y
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   703
		techCount = techCount + 1
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   704
	else
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   705
		addHashData(x)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   706
		addHashData(y)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   707
		addHashData(flag)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   708
		specialPointsX[specialPointsCount] = x
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   709
		specialPointsY[specialPointsCount] = y
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   710
		specialPointsFlag[specialPointsCount] = flag
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   711
		specialPointsCount = specialPointsCount + 1
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   712
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   713
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   714
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   715
function InterpretPoints()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   716
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   717
	-- flags run from 0 to 127
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   718
	for i = 0, (specialPointsCount-1) do
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   719
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   720
		-- Mines
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   721
		if specialPointsFlag[i] == 1 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   722
			SetTimer(AddGear(specialPointsX[i], specialPointsY[i], gtMine, 0, 0, 0, 0), 1)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   723
		elseif specialPointsFlag[i] == 2 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   724
			SetTimer(AddGear(specialPointsX[i], specialPointsY[i], gtMine, 0, 0, 0, 0), 1000)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   725
		elseif specialPointsFlag[i] == 3 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   726
			SetTimer(AddGear(specialPointsX[i], specialPointsY[i], gtMine, 0, 0, 0, 0), 2000)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   727
		elseif specialPointsFlag[i] == 4 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   728
			SetTimer(AddGear(specialPointsX[i], specialPointsY[i], gtMine, 0, 0, 0, 0), 3000)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   729
		elseif specialPointsFlag[i] == 5 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   730
			SetTimer(AddGear(specialPointsX[i], specialPointsY[i], gtMine, 0, 0, 0, 0), 4000)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   731
		elseif specialPointsFlag[i] == 6 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   732
			SetTimer(AddGear(specialPointsX[i], specialPointsY[i], gtMine, 0, 0, 0, 0), 5000)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   733
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   734
		-- Sticky Mines
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   735
		elseif specialPointsFlag[i] == 7 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   736
			AddGear(specialPointsX[i], specialPointsY[i], gtSMine, 0, 0, 0, 0)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   737
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   738
		-- Air Mines
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   739
		elseif specialPointsFlag[i] == 8 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   740
			AddGear(specialPointsX[i], specialPointsY[i], gtAirMine, 0, 0, 0, 0)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   741
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   742
		-- Health Crates
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   743
		elseif specialPointsFlag[i] == 9 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   744
			SetHealth(SpawnHealthCrate(specialPointsX[i],specialPointsY[i]),25)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   745
		elseif specialPointsFlag[i] == 10 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   746
			SetHealth(SpawnHealthCrate(specialPointsX[i],specialPointsY[i]),50)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   747
		elseif specialPointsFlag[i] == 11 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   748
			SetHealth(SpawnHealthCrate(specialPointsX[i],specialPointsY[i]),75)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   749
		elseif specialPointsFlag[i] == 12 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   750
			SetHealth(SpawnHealthCrate(specialPointsX[i],specialPointsY[i]),100)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   751
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   752
		-- Cleaver
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   753
		elseif specialPointsFlag[i] == 13 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   754
			AddGear(specialPointsX[i], specialPointsY[i], gtKnife, 0, 0, 0, 0)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   755
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   756
		-- Target
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   757
		elseif specialPointsFlag[i] == 14 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   758
			AddGear(specialPointsX[i], specialPointsY[i], gtTarget, 0, 0, 0, 0)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   759
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   760
		--Barrels
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   761
		elseif specialPointsFlag[i] == 15 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   762
			SetHealth(AddGear(specialPointsX[i], specialPointsY[i], gtExplosives, 0, 0, 0, 0),1)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   763
		elseif specialPointsFlag[i] == 16 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   764
			SetHealth(AddGear(specialPointsX[i], specialPointsY[i], gtExplosives, 0, 0, 0, 0),25)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   765
		elseif specialPointsFlag[i] == 17 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   766
			SetHealth(AddGear(specialPointsX[i], specialPointsY[i], gtExplosives, 0, 0, 0, 0),50)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   767
		elseif specialPointsFlag[i] == 18 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   768
			SetHealth(AddGear(specialPointsX[i], specialPointsY[i], gtExplosives, 0, 0, 0, 0),75)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   769
		elseif specialPointsFlag[i] == 19 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   770
			SetHealth(AddGear(specialPointsX[i], specialPointsY[i], gtExplosives, 0, 0, 0, 0),100)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   771
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   772
		-- There are about 58+- weps / utils
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   773
		-- Weapon Crates
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   774
		elseif (specialPointsFlag[i] >= 20) and (specialPointsFlag[i] < (#atkArray+20)) then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   775
			SpawnAmmoCrate(specialPointsX[i],specialPointsY[i],atkArray[specialPointsFlag[i]-19][1])
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   776
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   777
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   778
		-- Utility Crates
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   779
		elseif (specialPointsFlag[i] >= (#atkArray+20)) and (specialPointsFlag[i] < (#atkArray+20+#utilArray)) then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   780
			SpawnUtilityCrate(specialPointsX[i],specialPointsY[i],utilArray[specialPointsFlag[i]-19-#atkArray][1])
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   781
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   782
		--79-82 (reserved for future wep crates)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   783
		--89,88,87,86 and 85,84,83,82 (reserved for the 2 custom sprites and their landflags)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   784
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   785
		--90-99 reserved for scripted structures
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   786
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
   787
		elseif specialPointsFlag[i] == 98 then
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
   788
			portalDistance = specialPointsX[i]
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
   789
			ufoFuel = specialPointsY[i]
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
   790
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   791
		-- Normal Girders
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   792
		elseif specialPointsFlag[i] == 100 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   793
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 0, 4294967295, nil, nil, nil, lfNormal)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   794
		elseif specialPointsFlag[i] == 101 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   795
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 1, 4294967295, nil, nil, nil, lfNormal)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   796
		elseif specialPointsFlag[i] == 102 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   797
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 2, 4294967295, nil, nil, nil, lfNormal)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   798
		elseif specialPointsFlag[i] == 103 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   799
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 3, 4294967295, nil, nil, nil, lfNormal)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   800
		elseif specialPointsFlag[i] == 104 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   801
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 4, 4294967295, nil, nil, nil, lfNormal)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   802
		elseif specialPointsFlag[i] == 105 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   803
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 5, 4294967295, nil, nil, nil, lfNormal)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   804
		elseif specialPointsFlag[i] == 106 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   805
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 6, 4294967295, nil, nil, nil, lfNormal)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   806
		elseif specialPointsFlag[i] == 107 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   807
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 7, 4294967295, nil, nil, nil, lfNormal)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   808
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   809
		-- Invulnerable Girders
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   810
		elseif specialPointsFlag[i] == 108 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   811
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 0, 2516582650, nil, nil, nil, lfIndestructible)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   812
		elseif specialPointsFlag[i] == 109 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   813
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 1, 2516582650, nil, nil, nil, lfIndestructible)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   814
		elseif specialPointsFlag[i] == 110 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   815
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 2, 2516582650, nil, nil, nil, lfIndestructible)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   816
		elseif specialPointsFlag[i] == 111 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   817
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 3, 2516582650, nil, nil, nil, lfIndestructible)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   818
		elseif specialPointsFlag[i] == 112 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   819
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 4, 2516582650, nil, nil, nil, lfIndestructible)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   820
		elseif specialPointsFlag[i] == 113 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   821
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 5, 2516582650, nil, nil, nil, lfIndestructible)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   822
		elseif specialPointsFlag[i] == 114 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   823
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 6, 2516582650, nil, nil, nil, lfIndestructible)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   824
		elseif specialPointsFlag[i] == 115 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   825
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 7, 2516582650, nil, nil, nil, lfIndestructible)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   826
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   827
		-- Icy Girders
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   828
		elseif specialPointsFlag[i] == 116 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   829
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 0, 16448250, nil, nil, nil, lfIce)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   830
		elseif specialPointsFlag[i] == 117 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   831
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 1, 16448250, nil, nil, nil, lfIce)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   832
		elseif specialPointsFlag[i] == 118 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   833
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 2, 16448250, nil, nil, nil, lfIce)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   834
		elseif specialPointsFlag[i] == 119 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   835
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 3, 16448250, nil, nil, nil, lfIce)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   836
		elseif specialPointsFlag[i] == 120 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   837
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 4, 16448250, nil, nil, nil, lfIce)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   838
		elseif specialPointsFlag[i] == 121 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   839
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 5, 16448250, nil, nil, nil, lfIce)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   840
		elseif specialPointsFlag[i] == 121 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   841
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 6, 16448250, nil, nil, nil, lfIce)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   842
		elseif specialPointsFlag[i] == 123 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   843
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmGirder, 7, 16448250, nil, nil, nil, lfIce)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   844
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   845
		-- Rubber Bands
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   846
		elseif specialPointsFlag[i] == 124 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   847
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmRubber, 0, 4294967295, nil, nil, nil, lfBouncy)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   848
		elseif specialPointsFlag[i] == 125 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   849
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmRubber, 1, 4294967295, nil, nil, nil, lfBouncy)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   850
		elseif specialPointsFlag[i] == 126 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   851
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmRubber, 2, 4294967295, nil, nil, nil, lfBouncy)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   852
		elseif specialPointsFlag[i] == 127 then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   853
			PlaceSprite(specialPointsX[i], specialPointsY[i], sprAmRubber, 3, 4294967295, nil, nil, nil, lfBouncy)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   854
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   855
		-- Waypoints
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   856
		else -- 0 / no value
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   857
			CallBob(specialPointsX[i], specialPointsY[i])
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   858
		end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   859
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   860
	end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   861
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   862
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   863
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   864
function onGameStart()
12338
6bdabf67a012 Add back the missing winning animation for Racer and TechRecer
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   865
	SendGameResultOff()
6bdabf67a012 Add back the missing winning animation for Racer and TechRecer
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   866
	SendRankingStatsOff()
6bdabf67a012 Add back the missing winning animation for Racer and TechRecer
Wuzzy <almikes@aol.com>
parents: 12292
diff changeset
   867
	SendAchievementsStatsOff()
11940
e1bae42efacd TechRacer: Show racing times and ranking in stats screen
Wuzzy <almikes@aol.com>
parents: 11939
diff changeset
   868
	SendHealthStatsOff()
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   869
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   870
	trackTeams()
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   871
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   872
	roundN = 0
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   873
	lastRound = TotalRounds
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   874
	RoundHasChanged = false
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   875
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   876
	RebuildTeamInfo()
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   877
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   878
	for i=0 , TeamsCount - 1 do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   879
		cnthhs = 0
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   880
		runOnHogsInTeam(limitHogs, teamNameArr[i])
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   881
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   882
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   883
	ShowMission(
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   884
		loc("TechRacer"),
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   885
		loc("A Hedgewars mini-game"),
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   886
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   887
		loc("Complete the track as fast as you can!") .. "|" ..
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   888
		loc("Round limit:") .. " " .. roundLimit .. "|" ..
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   889
		loc("You can further customize the race by changing the scheme script parameter.") .. "|",
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   890
		4, 4000
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   891
		)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   892
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   893
	TryRepositionHogs()
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   894
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   895
	activationStage = 1
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   896
	HandleFreshMapCreation()
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   897
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   898
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   899
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   900
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   901
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   902
function onNewTurn()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   903
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   904
	CheckForNewRound()
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   905
	TryRepositionHogs()
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   906
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   907
	racerActive = false
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   908
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   909
	activationStage = 1
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   910
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   911
	trackTime = 0
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   912
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   913
	currCount = 0 -- hopefully this solves problem
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   914
	gTimer = 0
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   915
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   916
	-- Set the waypoints to unactive on new round
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   917
	if not gameOver then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   918
		for i = 0,(wpCount-1) do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   919
			wpActive[i] = false
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   920
			wpCol[i] = 0xffffffff
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   921
			local minO, maxO, flashing = FlashingHelper(i)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   922
			SetVisualGearValues(wpCirc[i], wpX[i], wpY[i], minO, maxO, 1, flashing, 0, wpRad, 5, wpCol[i])
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   923
		end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   924
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   925
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   926
	-- Handle Starting Stage of Game
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   927
	if (gameOver == false) and (gameBegun == false) then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   928
		gameBegun = true
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   929
		roundNumber = 0
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   930
		firstClan = GetHogClan(CurrentHedgehog)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   931
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   932
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   933
	if gameOver == true then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   934
		gameBegun = false
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   935
		racerActive = false
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   936
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   937
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   938
	AddAmmo(CurrentHedgehog, amTardis, 0)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   939
	AddAmmo(CurrentHedgehog, amDrillStrike, 0)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   940
	AddAmmo(CurrentHedgehog, amMineStrike, 0)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   941
	AddAmmo(CurrentHedgehog, amNapalm, 0)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   942
	AddAmmo(CurrentHedgehog, amPiano, 0)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   943
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   944
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   945
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   946
function onGameTick20()
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   947
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   948
	if (jet ~= nil) and (ufoFuel ~= 0) then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   949
		if ufoFuel == 2000 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   950
			SetHealth(jet, 2000)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   951
		end
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   952
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   953
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   954
	runOnGears(PortalEffects)
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
   955
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   956
	-- airstrike detected, convert this into a potential waypoint spot
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   957
	if cGear ~= nil then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   958
		x,y = GetGearPosition(cGear)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   959
		if x > -9000 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   960
			x,y = GetGearTarget(cGear)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   961
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   962
			if TestRectForObstacle(x-20, y-20, x+20, y+20, true) then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   963
				AddCaption(loc("Please place the waypoint in the air and within the map boundaries"))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   964
				PlaySound(sndDenied)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   965
			elseif (y > WaterLine-50) then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   966
				AddCaption(loc("Please place the waypoint further away from the waterline"))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   967
				PlaySound(sndDenied)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   968
			else
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   969
				CallBob(x, y)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   970
				if wpCount == wpLimit then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   971
					AddCaption(loc("Race complexity limit reached"))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   972
					DisableTumbler()
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   973
				end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   974
			end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   975
		else
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   976
			DeleteGear(cGear)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   977
		end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   978
		SetGearPosition(cGear, -10000, 0)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   979
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   980
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   981
13563
af92481415ef TechRacer: Fix gears not spawning on turn start when player pressed control right at start
Wuzzy <Wuzzy2@mail.ru>
parents: 13359
diff changeset
   982
	if activationStage < 200 then
13029
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
   983
		HandleFreshMapCreation()
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
   984
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   985
		if not gameOver and gameBegun and not racerActive then
13029
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
   986
			if cameraGear then
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
   987
				DeleteGear(cameraGear)
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
   988
			end
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
   989
			-- Move camera to first waypoint.
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
   990
			-- We use a dummy gear to feed FollowGear. It does not affect the race.
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
   991
			cameraGear = AddGear(wpX[0], wpY[0], gtGenericFaller, 0, 0, 0, 5000)
13032
625d5a45f267 Racer/TechRacer: Show best times next to team bars
Wuzzy <Wuzzy2@mail.ru>
parents: 13029
diff changeset
   992
			SetState(cameraGear, bor(GetState(cameraGear), gstNoGravity+gstInvisible))
13029
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
   993
			FollowGear(cameraGear)
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   994
		end
13029
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
   995
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
   996
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   997
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
   998
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
   999
	-- start the player tumbling with a boom once their turn has actually begun
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1000
	if racerActive == false then
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1001
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1002
		if (TurnTimeLeft > 0) and (TurnTimeLeft ~= TurnTime) then
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1003
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1004
			-- if the gamehas started put the player in the middle of the first
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1005
			-- waypoint that was placed
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1006
			if gameBegun == true then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1007
				AddCaption(loc("Good to go!"))
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1008
				racerActive = true
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1009
				trackTime = 0
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1010
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1011
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1012
				SetGearPosition(CurrentHedgehog, wpX[0], wpY[0])
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1013
				SetGearMessage(CurrentHedgehog,gmLeft)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1014
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1015
				FollowGear(CurrentHedgehog)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1016
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1017
				HideMission()
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1018
				activationStage = 201
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1019
			end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1020
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1021
		end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1022
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1023
	elseif (activationStage == 201) and (TurnTimeLeft > 0) and (TurnTimeLeft ~= TurnTime) then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1024
		SetGearMessage(CurrentHedgehog,0)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1025
		activationStage = 202
13564
3c562f52609c TechRacer: Delete dead code
Wuzzy <Wuzzy2@mail.ru>
parents: 13563
diff changeset
  1026
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1027
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1028
	-- has the player started his tumbling spree?
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1029
	if (CurrentHedgehog ~= nil) then
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1030
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1031
		-- if the RACE has started, show tracktimes and keep tabs on waypoints
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1032
		if (racerActive == true) and (activationStage == 202) then
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1033
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1034
			--ghost
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1035
			if GameTime%40 == 0 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1036
				HandleGhost()
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1037
			end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1038
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1039
			trackTime = trackTime + 20
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1040
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1041
			if GameTime%100 == 0 then
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1042
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1043
				AddCaption(string.format(loc("Time: %.1fs"), (trackTime/1000)), GetClanColor(GetHogClan(CurrentHedgehog)),capgrpMessage2)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1044
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1045
				if (CheckWaypoints() == true) then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1046
					AdjustScores()
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1047
					DisableTumbler()
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1048
				end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1049
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1050
			end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1051
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1052
			-- If hedgehog is not controlled anymore, stop racing mode
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1053
			if band(GetState(CurrentHedgehog), gstHHDriven) == 0 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1054
				DisableTumbler(false)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1055
			end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1056
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1057
		end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1058
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1059
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1060
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1061
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1062
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1063
-- handle short range portal gun
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1064
function PortalEffects(gear)
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1065
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1066
	if GetGearType(gear) == gtPortal then
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1067
13287
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
  1068
		local tag = GetTag(gear)
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
  1069
		local col
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1070
		if tag == 0 then
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1071
			col = 0xfab02aFF -- orange ball
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1072
		elseif tag == 1 then
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1073
			col = 0x00FF00FF -- orange portal
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1074
		elseif tag == 2 then
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1075
			col = 0x364df7FF  -- blue ball
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1076
		elseif tag == 3 then
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1077
			col = 0xFFFF00FF  -- blue portal
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1078
		end
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1079
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1080
		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: 13220
diff changeset
  1081
			local remLife = getGearValue(gear,"life")
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1082
			remLife = remLife - 1
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1083
			setGearValue(gear, "life", remLife)
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1084
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1085
			if remLife == 0 then
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1086
13287
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
  1087
				local tempE = AddVisualGear(GetX(gear)+15, GetY(gear), vgtSmoke, 0, true)
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
  1088
				SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, nil, col)
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1089
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1090
				tempE = AddVisualGear(GetX(gear)-15, GetY(gear), vgtSmoke, 0, true)
13287
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
  1091
				SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, nil, col)
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1092
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1093
				tempE = AddVisualGear(GetX(gear), GetY(gear)+15, vgtSmoke, 0, true)
13287
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
  1094
				SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, nil, col)
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1095
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1096
				tempE = AddVisualGear(GetX(gear), GetY(gear)-15, vgtSmoke, 0, true)
13287
b13071610c07 Flying portal balls now spawn a few spark effects
Wuzzy <Wuzzy2@mail.ru>
parents: 13220
diff changeset
  1097
				SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, nil, col)
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1098
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1099
				PlaySound(sndVaporize)
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1100
				DeleteGear(gear)
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1101
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1102
			end
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1103
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1104
		end
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1105
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1106
	end
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1107
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1108
end
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1109
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1110
function onGearResurrect(gear)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1111
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1112
	AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1113
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1114
	if gear == CurrentHedgehog then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1115
	       DisableTumbler(false)
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1116
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1117
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1118
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1119
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1120
function isATrackedGear(gear)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1121
	if 	(GetGearType(gear) == gtHedgehog) or
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1122
		(GetGearType(gear) == gtGrenade) or
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1123
		(GetGearType(gear) == gtTarget) or
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1124
		(GetGearType(gear) == gtFlame) or
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1125
		(GetGearType(gear) == gtExplosives) or
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1126
		(GetGearType(gear) == gtPortal) or
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1127
		(GetGearType(gear) == gtMine) or
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1128
		(GetGearType(gear) == gtSMine) or
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1129
		(GetGearType(gear) == gtAirMine) or
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1130
		(GetGearType(gear) == gtCase)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1131
	then
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1132
		return(true)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1133
	else
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1134
		return(false)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1135
	end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1136
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1137
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1138
function onGearAdd(gear)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1139
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1140
       if isATrackedGear(gear) then
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1141
		trackGear(gear)
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1142
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1143
		if GetGearType(gear) == gtPortal then
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1144
			setGearValue(gear,"life",portalDistance)
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1145
		elseif GetGearType(gear) == gtHedgehog then
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1146
			hhs[numhhs] = gear
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1147
			numhhs = numhhs + 1
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1148
			SetEffect(gear, heResurrectable, 1)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1149
		end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1150
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1151
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1152
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1153
	if GetGearType(gear) == gtAirAttack then
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1154
		cGear = gear
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1155
	elseif GetGearType(gear) == gtJetpack then
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1156
		jet = gear
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1157
		if (ufoFuel ~= 0) then
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1158
			SetHealth(jet, ufoFuel)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1159
		end
10979
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1160
	end
a332a60df7ce - some new mission icons
mikade <redgrinner@gmail.com>
parents: 10968
diff changeset
  1161
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1162
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1163
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1164
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1165
function onGearDelete(gear)
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1166
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1167
	if isATrackedGear(gear) then
13029
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
  1168
		trackDeletion(gear)
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
  1169
	elseif GetGearType(gear) == gtAirAttack then
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1170
		cGear = nil
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1171
	elseif GetGearType(gear) == gtJetpack then
13029
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
  1172
		jet = nil
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
  1173
	elseif gear == cameraGear then
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
  1174
		cameraGear = nil
a568bc16a99a Racer and TechRacer: Move cameera to first waypoint in Ready phase
Wuzzy <Wuzzy2@mail.ru>
parents: 12971
diff changeset
  1175
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1176
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1177
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1178
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1179
function onAttack()
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1180
	at = GetCurAmmoType()
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1181
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1182
	usedWeapons[at] = 0
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1183
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1184
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1185
function onAchievementsDeclaration()
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1186
	usedWeapons[amSkip] = nil
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1187
	usedWeapons[amExtraTime] = nil
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1188
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1189
	usedRope = usedWeapons[amRope] ~= nil
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1190
	usedPortal = usedWeapons[amPortalGun] ~= nil
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1191
	usedSaucer = usedWeapons[amJetpack] ~= nil
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1192
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1193
	usedWeapons[amRope] = nil
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1194
	usedWeapons[amPortalGun] = nil
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1195
	usedWeapons[amJetpack] = nil
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1196
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1197
	usedOther = next(usedWeapons) ~= nil
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1198
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1199
	if usedOther then -- smth besides skip, rope, portal or saucer used
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1200
		raceType = "unknown race"
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1201
	elseif usedRope and not usedPortal and not usedSaucer then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1202
		raceType = "rope race"
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1203
	elseif not usedRope and usedPortal and not usedSaucer then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1204
		raceType = "portal race"
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1205
	elseif not usedRope and not usedPortal and usedSaucer then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1206
		raceType = "saucer race"
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1207
	elseif (usedRope or usedPortal or usedSaucer or usedOther) == false then -- no weapons used at all?
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1208
		raceType = "no tools race"
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1209
	else -- at least two of rope, portal and saucer used
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1210
		raceType = "mixed race"
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1211
	end
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1212
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1213
	map = detectMapWithDigest()
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1214
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1215
	for i = 0, (numTeams-1) do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1216
		if teamScore[i] < 1000000 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1217
			DeclareAchievement(raceType, teamNameArr[i], map, teamScore[i])
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1218
		end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1219
	end
11574
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11568
diff changeset
  1220
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1221
	if map ~= nil and fastCount > 0 then
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1222
		StartGhostPoints(fastCount)
11574
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11568
diff changeset
  1223
13565
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1224
		for i = 0, (fastCount - 1) do
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1225
			DumpPoint(fastX[i], fastY[i])
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1226
		end
dc7b1a4ddded Clean up messy indentations in TechRacer script
Wuzzy <Wuzzy2@mail.ru>
parents: 13564
diff changeset
  1227
	end
11574
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11568
diff changeset
  1228
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1229
end
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1230
10967
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
  1231
function onAmmoStoreInit()
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1232
10967
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
  1233
	SetAmmo(amSkip, 9, 0, 0, 0)
10959
1225f42f61e2 Pass ScriptParams to preview to support techracer. Proof of concept for techracer, generate a preview for m=4
nemo
parents: 10950
diff changeset
  1234
10967
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
  1235
	for i = 1, #atkArray do
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
  1236
		SetAmmo(atkArray[i][1], 0, 0, 0, 1)
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
  1237
	end
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
  1238
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
  1239
	for i = 1, #utilArray do
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
  1240
		SetAmmo(utilArray[i][1], 0, 0, 0, 1)
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
  1241
	end
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
  1242
1434cec96ca3 - preview generation for rubbers, air-mines, crates, barrels
mikade <redgrinner@gmail.com>
parents: 10961
diff changeset
  1243
end