share/hedgewars/Data/Scripts/Multiplayer/Racer.lua
author koda
Tue, 21 Jan 2014 23:53:26 +0100
changeset 10044 33e64afccd3b
parent 10017 de822cd3df3a
child 10227 0b848d595f22
permissions -rw-r--r--
readd r3be36d2fdca6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
10044
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
     1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
     2
------------------------------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
     3
-- RACER 0.6
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
     4
-- map-independant racing script
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
     5
-- by mikade
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
     6
-----------------------------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
     7
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
     8
-----------------------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
     9
--0.1: took all the code from crazy racer and scrapped most of it
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    10
-----------------------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    11
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    12
-- Removed tumbler system
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    13
-- Removed extra adds like boosters etc
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    14
-- Added experimental waypoint placement system
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    15
-- More user feedback
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    16
-- Reduced race complexity limit to 5 waypoints
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    17
-- stop placement at complexity limit reached and end turn
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    18
-- guys dont keep racing after dying
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    19
-- invulnerable feasibility
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    20
-- reverted time keeping method
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    21
-- reduced feedback display time
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    22
-- colour-coded addcaptions
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    23
-- cleaned up code
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    24
-- support for more players properly added
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    25
-- tardis fix
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    26
-- remove airstrikes
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    27
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    28
-- i think the remainder 0 .456 sec of the tracktime isnt getting reset on newturn
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    29
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    30
-- update feedback
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    31
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    32
-------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    33
-- 0.2
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    34
-------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    35
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    36
-- allow gameflags
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    37
-- extend time to 90s
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    38
-- remove other air-attack based weps
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    39
-- turn off water rise for sd
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    40
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    41
-------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    42
-- 0.3
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    43
-------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    44
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    45
-- prevent WP being placed in land
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    46
-- prevent waypoints being placed outside border
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    47
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    48
-------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    49
-- 0.4
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    50
-------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    51
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    52
-- update user feedback
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    53
-- add more sounds
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    54
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    55
-------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    56
-- 0.5
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    57
-------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    58
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    59
-- fix ghost disappearing if hog falls in water or somehow dies
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    60
-- lengthen ghost tracking interval to improve performance on slower machines
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    61
-- increase waypoint limit to 8
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    62
-- allow for persistent showmission information
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    63
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    64
-------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    65
-- 0.6
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    66
-------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    67
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    68
-- remove hogs from racing area as per request
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    69
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    70
-----------------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    71
-- SCRIPT BEGINS
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    72
-----------------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    73
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    74
HedgewarsScriptLoad("/Scripts/Locale.lua")
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    75
HedgewarsScriptLoad("/Scripts/OfficialChallenges.lua")
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    76
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    77
------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    78
-- Got Variables?
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    79
------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    80
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    81
local fMod = 1000000 -- 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    82
local roundLimit = 3
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    83
local roundNumber = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    84
local firstClan = 10
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    85
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    86
local fastX = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    87
local fastY = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    88
local fastCount = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    89
local fastIndex = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    90
local fastColour
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    91
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    92
local currX = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    93
local currY = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    94
local currCount = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    95
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    96
local specialPointsX = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    97
local specialPointsY = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    98
local specialPointsCount = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
    99
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   100
--------------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   101
-- hog and team tracking variales
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   102
--------------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   103
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   104
local numhhs = 0 -- store number of hedgehogs
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   105
local hhs = {} -- store hedgehog gears
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   106
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   107
local numTeams --  store the number of teams in the game
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   108
local teamNameArr = {}  -- store the list of teams
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   109
local teamClan = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   110
local teamSize = {}     -- store how many hogs per team
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   111
local teamIndex = {} -- at what point in the hhs{} does each team begin
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   112
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   113
local teamComment = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   114
local teamScore = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   115
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   116
-------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   117
-- racer vars
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   118
--------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   119
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   120
local cGear = nil
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   121
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   122
local bestClan = nil
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   123
local bestTime = nil
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   124
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   125
local gameBegun = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   126
local gameOver = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   127
local racerActive = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   128
local trackTime = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   129
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   130
local wpCirc = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   131
local wpX = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   132
local wpY = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   133
local wpCol = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   134
local wpActive = {}
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   135
local wpRad = 450 --75
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   136
local wpCount = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   137
local wpLimit = 8
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   138
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   139
local roundN
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   140
local lastRound
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   141
local RoundHasChanged
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   142
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   143
-------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   144
-- general methods
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   145
-------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   146
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   147
function RebuildTeamInfo()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   148
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   149
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   150
        -- make a list of individual team names
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   151
        for i = 0, (TeamsCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   152
                teamNameArr[i] = " " -- = i
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   153
                teamSize[i] = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   154
                teamIndex[i] = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   155
                teamScore[i] = 100000
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   156
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   157
        numTeams = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   158
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   159
        for i = 0, (numhhs-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   160
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   161
                z = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   162
                unfinished = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   163
                while(unfinished == true) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   164
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   165
                        newTeam = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   166
                        tempHogTeamName = GetHogTeamName(hhs[i]) -- this is the new name
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   167
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   168
                        if tempHogTeamName == teamNameArr[z] then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   169
                                newTeam = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   170
                                unfinished = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   171
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   172
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   173
                        z = z + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   174
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   175
                        if z == TeamsCount then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   176
                                unfinished = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   177
                                if newTeam == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   178
                                        teamNameArr[numTeams] = tempHogTeamName
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   179
                                        numTeams = numTeams + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   180
                                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   181
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   182
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   183
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   184
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   185
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   186
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   187
        -- find out how many hogs per team, and the index of the first hog in hhs
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   188
        for i = 0, (numTeams-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   189
                for z = 0, (numhhs-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   190
                        if GetHogTeamName(hhs[z]) == teamNameArr[i] then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   191
                                teamClan[i] = GetHogClan(hhs[z])
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   192
                                if teamSize[i] == 0 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   193
                                        teamIndex[i] = z -- should give starting index
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   194
                                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   195
                                teamSize[i] = teamSize[i] + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   196
                                --add a pointer so this hog appears at i in hhs
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   197
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   198
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   199
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   200
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   201
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   202
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   203
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   204
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   205
-----------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   206
-- RACER METHODS
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   207
-----------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   208
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   209
function CheckWaypoints()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   210
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   211
        trackFinished = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   212
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   213
        for i = 0, (wpCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   214
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   215
                g1X, g1Y = GetGearPosition(CurrentHedgehog)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   216
                g2X, g2Y = wpX[i], wpY[i]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   217
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   218
                g1X = g1X - g2X
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   219
                g1Y = g1Y - g2Y
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   220
                dist = (g1X*g1X) + (g1Y*g1Y)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   221
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   222
                --if i == 0 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   223
                --      AddCaption(dist .. "/" .. (wpRad*wpRad) )
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   224
                --end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   225
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   226
                NR = (48/100*wpRad)/2
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   227
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   228
                if dist < (NR*NR) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   229
                --if dist < (wpRad*wpRad) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   230
                        --AddCaption("howdy")
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   231
                        wpActive[i] = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   232
                        wpCol[i] = GetClanColor(GetHogClan(CurrentHedgehog)) -- new                             --GetClanColor(1)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   233
                        SetVisualGearValues(wpCirc[i], wpX[i], wpY[i], 20, 100, 1, 10, 0, wpRad, 5, wpCol[i])
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   234
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   235
                        wpRem = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   236
                        for k = 0, (wpCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   237
                                if wpActive[k] == false then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   238
                                        wpRem = wpRem + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   239
                                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   240
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   241
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   242
                        AddCaption(loc("Way-Points Remaining") .. ": " .. wpRem,0xffba00ff,capgrpAmmoinfo)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   243
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   244
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   245
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   246
                if wpActive[i] == false then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   247
                        trackFinished = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   248
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   249
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   250
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   251
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   252
        return(trackFinished)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   253
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   254
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   255
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   256
function AdjustScores()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   257
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   258
        if bestTime == nil then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   259
                bestTime = 100000
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   260
                bestClan = 10
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   261
                bestTimeComment = "N/A"
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   262
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   263
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   264
        newScore = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   265
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   266
        -- update this clan's time if the new track is better
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   267
        for i = 0, (numTeams-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   268
                if teamClan[i] == GetHogClan(CurrentHedgehog) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   269
                        if trackTime < teamScore[i] then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   270
                                teamScore[i] = trackTime
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   271
                                newScore = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   272
                        else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   273
                                newScore = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   274
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   275
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   276
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   277
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   278
        --bestTime = 100000
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   279
        --bestClan = 10
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   280
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   281
        -- find the best time out of those so far
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   282
        for i = 0, (numTeams-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   283
                if teamScore[i] < bestTime then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   284
                        bestTime = teamScore[i]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   285
                        bestClan = teamClan[i]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   286
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   287
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   288
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   289
        if bestTime ~= 100000 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   290
                bestTimeComment = (bestTime/1000) ..loc("s")
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   291
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   292
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   293
        if newScore == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   294
                if trackTime == bestTime then -- best time of the race
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   295
                        ShowMission(loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   296
                        loc("TRACK COMPLETED"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   297
                        loc("NEW RACE RECORD: ") .. (trackTime/1000) ..loc("s") .. "|" ..
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   298
                        loc("WINNING TIME: ") .. bestTimeComment, 0, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   299
                        PlaySound(sndHomerun)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   300
                else    -- best time for the clan
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   301
                        ShowMission(loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   302
                        loc("TRACK COMPLETED"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   303
                        loc("NEW CLAN RECORD: ") .. (trackTime/1000) ..loc("s") .. "|" ..
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   304
                        loc("WINNING TIME: ") .. bestTimeComment, 4, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   305
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   306
        else -- not any kind of new score
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   307
                ShowMission(loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   308
                loc("TRACK COMPLETED"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   309
                loc("TIME: ") .. (trackTime/1000) ..loc("s") .. "|" ..
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   310
                loc("WINNING TIME: ") .. bestTimeComment, -amSkip, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   311
                PlaySound(sndHellish)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   312
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   313
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   314
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   315
        --------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   316
        --new
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   317
        --------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   318
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   319
        if bestTime == trackTime then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   320
                --AddCaption("wooooooooooooooooooooooooooooo")
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   321
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   322
                fastColour = GetClanColor(GetHogClan(CurrentHedgehog))
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   323
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   324
                for i = 0, (currCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   325
                        fastX[i] = currX[i]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   326
                        fastY[i] = currY[i]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   327
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   328
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   329
                fastCount = currCount
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   330
                fastIndex = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   331
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   332
                --currCount = 0 -- is this needed?
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   333
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   334
        else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   335
                currCount = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   336
                fastIndex = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   337
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   338
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   339
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   340
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   341
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   342
function onNewRound()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   343
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   344
        roundNumber = roundNumber + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   345
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   346
        totalComment = ""
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   347
        for i = 0, (TeamsCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   348
                        if teamNameArr[i] ~= " " then                           -- teamScore[teamClan[i]]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   349
                                teamComment[i] = teamNameArr[i] .. ": " .. (teamScore[i]/1000) .. loc("s|")
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   350
                                totalComment = totalComment .. teamComment[i]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   351
                        elseif teamNameArr[i] == " " then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   352
                                teamComment[i] = "|"
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   353
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   354
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   355
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   356
        ShowMission(    loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   357
                                        loc("STATUS UPDATE"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   358
                                        loc("Rounds Complete: ") .. roundNumber .. "/" .. roundLimit .. "|" .. " " .. "|" ..
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   359
                                        loc("Best Team Times: ") .. "|" .. totalComment, 0, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   360
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   361
        -- end game if its at round limit
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   362
        if roundNumber == roundLimit then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   363
                for i = 0, (numhhs-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   364
                        if GetHogClan(hhs[i]) ~= bestClan then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   365
                                SetEffect(hhs[i], heResurrectable, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   366
                                SetHealth(hhs[i],0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   367
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   368
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   369
                gameOver = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   370
                TurnTimeLeft = 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   371
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   372
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   373
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   374
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   375
function CheckForNewRound()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   376
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   377
        -------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   378
        ------ new
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   379
        -------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   380
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   381
        --[[turnN = turnN + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   382
        if gameBegun == false then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   383
                if turnN == 2 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   384
                        for i = 0, (numhhs-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   385
                                if hhs[i] ~= nil then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   386
                                        SetEffect(hhs[i], heResurrectable, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   387
                                        SetHealth(hhs[i],0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   388
                                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   389
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   390
                        gameOver = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   391
                        TurnTimeLeft = 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   392
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   393
        else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   394
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   395
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   396
        end]]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   397
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   398
        --[[if roundBegun == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   399
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   400
                if RoundHasChanged == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   401
                        roundN = roundN + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   402
                        RoundHasChanged = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   403
                        onNewRound()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   404
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   405
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   406
                if lastRound ~= TotalRounds then -- new round, but not really
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   407
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   408
                        if RoundHasChanged == false then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   409
                                RoundHasChanged = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   410
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   411
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   412
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   413
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   414
                AddCaption("RoundN:" .. roundN .. "; " .. "TR: " .. TotalRounds)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   415
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   416
                lastRound = TotalRounds
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   417
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   418
        end]]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   419
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   420
        ------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   421
        ----- old
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   422
        ------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   423
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   424
        if GetHogClan(CurrentHedgehog) == firstClan then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   425
                onNewRound()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   426
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   427
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   428
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   429
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   430
function DisableTumbler()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   431
        currCount = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   432
        fastIndex = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   433
        TurnTimeLeft = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   434
        racerActive = false -- newadd
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   435
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   436
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   437
function HandleGhost()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   438
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   439
        -- get the current xy of the racer at this point
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   440
        currX[currCount] = GetX(CurrentHedgehog)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   441
        currY[currCount] = GetY(CurrentHedgehog)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   442
        currCount = currCount + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   443
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   444
        -- draw a ping of smoke where the fastest player was at this point
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   445
        if (fastCount ~= 0) and (fastIndex < fastCount) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   446
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   447
                fastIndex = fastIndex + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   448
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   449
                tempE = AddVisualGear(fastX[fastIndex], fastY[fastIndex], vgtSmoke, 0, false)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   450
                g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   451
                SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, g8, g9, fastColour )
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   452
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   453
                --AddCaption("fC: " .. fastIndex .. " / " .. fastCount)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   454
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   455
        else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   456
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   457
                --AddCaption("excep fC: " .. fastIndex .. " / " .. fastCount)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   458
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   459
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   460
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   461
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   462
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   463
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   464
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   465
function TryRepositionHogs()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   466
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   467
	if MapHasBorder() == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   468
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   469
		for i = 0, (numhhs-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   470
			if hhs[i] ~= nil then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   471
				SetGearPosition(hhs[i],GetX(hhs[i]), TopY-10)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   472
			end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   473
		end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   474
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   475
	end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   476
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   477
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   478
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   479
----------------------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   480
-- GAME METHODS / EVENT HANDLERS
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   481
----------------------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   482
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   483
function onGameInit()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   484
        EnableGameFlags(gfInfAttack, gfInvulnerable)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   485
        CaseFreq = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   486
        TurnTime = 90000
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   487
        WaterRise = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   488
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   489
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   490
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   491
function onGameStart()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   492
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   493
        roundN = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   494
        lastRound = TotalRounds
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   495
        RoundHasChanged = false -- true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   496
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   497
        for i = 0, (specialPointsCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   498
                PlaceWayPoint(specialPointsX[i], specialPointsY[i])
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   499
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   500
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   501
        RebuildTeamInfo()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   502
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   503
        ShowMission     (
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   504
                                loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   505
                                loc("a Hedgewars mini-game"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   506
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   507
                                loc("Build a track and race.") .. "|" ..
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   508
                                loc("Round Limit:") .. " " .. roundLimit .. "|" ..
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   509
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   510
                                "", 4, 4000
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   511
                                )
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   512
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   513
        TryRepositionHogs()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   514
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   515
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   516
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   517
function PlaceWayPoint(x,y)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   518
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   519
        if (wpCount < wpLimit) then -- seems to not work with a hedgehog nil chek
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   520
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   521
                wpX[wpCount] = x
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   522
                wpY[wpCount] = y
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   523
                wpCol[wpCount] = 0xffffffff
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   524
                wpCirc[wpCount] = AddVisualGear(wpX[wpCount],wpY[wpCount],vgtCircle,0,true)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   525
                                                                                                                                                --100
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   526
                SetVisualGearValues(wpCirc[wpCount], wpX[wpCount], wpY[wpCount], 20, 100, 1, 10, 0, wpRad, 5, wpCol[wpCount])
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   527
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   528
                wpCount = wpCount + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   529
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   530
                AddCaption(loc("Waypoint placed.") .. " " .. loc("Available points remaining: ") .. (wpLimit-wpCount))
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   531
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   532
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   533
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   534
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   535
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   536
function onSpecialPoint(x,y,flag)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   537
    specialPointsX[specialPointsCount] = x
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   538
    specialPointsY[specialPointsCount] = y
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   539
    specialPointsCount = specialPointsCount + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   540
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   541
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   542
function onNewTurn()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   543
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   544
        CheckForNewRound()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   545
        TryRepositionHogs()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   546
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   547
        racerActive = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   548
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   549
        trackTime = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   550
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   551
        currCount = 0 -- hopefully this solves problem
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   552
        AddAmmo(CurrentHedgehog, amAirAttack, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   553
        gTimer = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   554
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   555
        -- Set the waypoints to unactive on new round
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   556
        for i = 0,(wpCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   557
                wpActive[i] = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   558
                wpCol[i] = 0xffffffff
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   559
                SetVisualGearValues(wpCirc[i], wpX[i], wpY[i], 20, 100, 1, 10, 0, wpRad, 5, wpCol[i])
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   560
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   561
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   562
        -- Handle Starting Stage of Game
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   563
        if (gameOver == false) and (gameBegun == false) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   564
                if wpCount >= 3 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   565
                        gameBegun = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   566
                        roundNumber = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   567
                        firstClan = GetHogClan(CurrentHedgehog)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   568
                        ShowMission(loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   569
                        loc("GAME BEGUN!!!"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   570
                        loc("Complete the track as fast as you can!"), 2, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   571
                else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   572
                        ShowMission(loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   573
                        loc("NOT ENOUGH WAYPOINTS"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   574
                        loc("Place more waypoints using the 'Air Attack' weapon."), 2, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   575
                        AddAmmo(CurrentHedgehog, amAirAttack, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   576
            ParseCommand("setweap " .. string.char(amAirAttack))
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   577
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   578
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   579
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   580
        if gameOver == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   581
                gameBegun = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   582
                racerActive = false -- newadd
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   583
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   584
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   585
        AddAmmo(CurrentHedgehog, amTardis, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   586
        AddAmmo(CurrentHedgehog, amDrillStrike, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   587
        AddAmmo(CurrentHedgehog, amMineStrike, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   588
        AddAmmo(CurrentHedgehog, amNapalm, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   589
        AddAmmo(CurrentHedgehog, amPiano, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   590
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   591
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   592
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   593
function onGameTick20()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   594
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   595
        -- airstrike detected, convert this into a potential waypoint spot
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   596
        if cGear ~= nil then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   597
                x,y = GetGearPosition(cGear)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   598
        if x > -9000 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   599
            x,y = GetGearTarget(cGear)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   600
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   601
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   602
            if TestRectForObstacle(x-20, y-20, x+20, y+20, true) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   603
                AddCaption(loc("Please place the way-point in the open, within the map boundaries."))
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   604
                PlaySound(sndDenied)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   605
            elseif (y > WaterLine-50) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   606
                AddCaption(loc("Please place the way-point further from the waterline."))
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   607
                PlaySound(sndDenied)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   608
            else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   609
                PlaceWayPoint(x, y)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   610
                if wpCount == wpLimit then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   611
                    AddCaption(loc("Race complexity limit reached."))
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   612
                    DisableTumbler()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   613
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   614
            end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   615
        else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   616
            DeleteGear(cGear)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   617
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   618
        SetGearPosition(cGear, -10000, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   619
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   620
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   621
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   622
        -- start the player tumbling with a boom once their turn has actually begun
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   623
        if racerActive == false then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   624
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   625
                if (TurnTimeLeft > 0) and (TurnTimeLeft ~= TurnTime) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   626
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   627
                        -- if the gamehas started put the player in the middle of the first
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   628
                        --waypoint that was placed
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   629
                        if gameBegun == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   630
                                AddCaption(loc("Good to go!"))
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   631
                                racerActive = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   632
                                trackTime = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   633
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   634
                                SetGearPosition(CurrentHedgehog, wpX[0], wpY[0])
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   635
                                AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), gtGrenade, 0, 0, 0, 1)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   636
                                FollowGear(CurrentHedgehog)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   637
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   638
                                HideMission()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   639
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   640
                        else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   641
                                -- still in placement mode
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   642
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   643
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   644
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   645
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   646
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   647
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   648
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   649
        -- has the player started his tumbling spree?
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   650
        if (CurrentHedgehog ~= nil) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   651
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   652
                --airstrike conversion used to be here
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   653
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   654
                -- if the RACE has started, show tracktimes and keep tabs on waypoints
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   655
                if (racerActive == true) and (gameBegun == true) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   656
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   657
                        --ghost
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   658
                        if GameTime%40 == 0 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   659
                                HandleGhost()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   660
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   661
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   662
                        trackTime = trackTime + 20
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   663
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   664
                        if GameTime%100 == 0 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   665
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   666
                if trackTime%1000 == 0 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   667
                    AddCaption((trackTime/1000)..'.0',GetClanColor(GetHogClan(CurrentHedgehog)),capgrpMessage2)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   668
                else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   669
                    AddCaption(trackTime/1000,GetClanColor(GetHogClan(CurrentHedgehog)),capgrpMessage2)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   670
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   671
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   672
                                if (CheckWaypoints() == true) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   673
                                        AdjustScores()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   674
                                        racerActive = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   675
                                        DisableTumbler()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   676
                                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   677
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   678
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   679
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   680
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   681
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   682
                -- if the player has expended his tunbling time, stop him tumbling
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   683
                if TurnTimeLeft <= 20 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   684
                        DisableTumbler()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   685
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   686
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   687
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   688
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   689
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   690
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   691
function onGearResurrect(gear)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   692
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   693
        AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   694
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   695
        if gear == CurrentHedgehog then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   696
                DisableTumbler()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   697
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   698
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   699
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   700
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   701
function onGearAdd(gear)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   702
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   703
        if GetGearType(gear) == gtHedgehog then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   704
                hhs[numhhs] = gear
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   705
                numhhs = numhhs + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   706
                SetEffect(gear, heResurrectable, 1)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   707
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   708
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   709
        if GetGearType(gear) == gtAirAttack then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   710
                cGear = gear
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   711
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   712
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   713
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   714
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   715
function onGearDelete(gear)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   716
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   717
        if GetGearType(gear) == gtAirAttack then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   718
                cGear = nil
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   719
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   720
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   721
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   722
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   723
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   724
function onAchievementsDeclaration()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   725
    map = detectMap()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   726
    
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   727
    for i = 0, (numTeams-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   728
        if teamScore[i] < 100000 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   729
            DeclareAchievement("rope race", teamNameArr[i], map, teamScore[i])
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   730
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   731
    end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   732
end