share/hedgewars/Data/Scripts/Multiplayer/Racer.lua
author unc0rr
Fri, 25 Apr 2014 16:52:04 +0400
changeset 10228 947cadb40bc5
parent 10227 0b848d595f22
child 10289 c3a77ff02a23
permissions -rw-r--r--
Add race type detection
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
10228
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   139
local usedWeapons = {}
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   140
10044
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   141
local roundN
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   142
local lastRound
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   143
local RoundHasChanged
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   144
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   145
-------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   146
-- general methods
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   147
-------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   148
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   149
function RebuildTeamInfo()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   150
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   151
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   152
        -- make a list of individual team names
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   153
        for i = 0, (TeamsCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   154
                teamNameArr[i] = " " -- = i
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   155
                teamSize[i] = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   156
                teamIndex[i] = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   157
                teamScore[i] = 100000
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   158
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   159
        numTeams = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   160
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   161
        for i = 0, (numhhs-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   162
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   163
                z = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   164
                unfinished = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   165
                while(unfinished == true) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   166
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   167
                        newTeam = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   168
                        tempHogTeamName = GetHogTeamName(hhs[i]) -- this is the new name
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   169
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   170
                        if tempHogTeamName == teamNameArr[z] then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   171
                                newTeam = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   172
                                unfinished = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   173
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   174
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   175
                        z = z + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   176
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   177
                        if z == TeamsCount then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   178
                                unfinished = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   179
                                if newTeam == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   180
                                        teamNameArr[numTeams] = tempHogTeamName
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   181
                                        numTeams = numTeams + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   182
                                end
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
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   188
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   189
        -- find out how many hogs per team, and the index of the first hog in hhs
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   190
        for i = 0, (numTeams-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   191
                for z = 0, (numhhs-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   192
                        if GetHogTeamName(hhs[z]) == teamNameArr[i] then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   193
                                teamClan[i] = GetHogClan(hhs[z])
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   194
                                if teamSize[i] == 0 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   195
                                        teamIndex[i] = z -- should give starting index
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   196
                                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   197
                                teamSize[i] = teamSize[i] + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   198
                                --add a pointer so this hog appears at i in hhs
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   199
                        end
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
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   205
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   206
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   207
-----------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   208
-- RACER METHODS
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   209
-----------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   210
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   211
function CheckWaypoints()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   212
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   213
        trackFinished = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   214
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   215
        for i = 0, (wpCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   216
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   217
                g1X, g1Y = GetGearPosition(CurrentHedgehog)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   218
                g2X, g2Y = wpX[i], wpY[i]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   219
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   220
                g1X = g1X - g2X
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   221
                g1Y = g1Y - g2Y
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   222
                dist = (g1X*g1X) + (g1Y*g1Y)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   223
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   224
                --if i == 0 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   225
                --      AddCaption(dist .. "/" .. (wpRad*wpRad) )
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   226
                --end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   227
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   228
                NR = (48/100*wpRad)/2
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   229
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   230
                if dist < (NR*NR) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   231
                --if dist < (wpRad*wpRad) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   232
                        --AddCaption("howdy")
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   233
                        wpActive[i] = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   234
                        wpCol[i] = GetClanColor(GetHogClan(CurrentHedgehog)) -- new                             --GetClanColor(1)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   235
                        SetVisualGearValues(wpCirc[i], wpX[i], wpY[i], 20, 100, 1, 10, 0, wpRad, 5, wpCol[i])
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   236
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   237
                        wpRem = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   238
                        for k = 0, (wpCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   239
                                if wpActive[k] == false then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   240
                                        wpRem = wpRem + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   241
                                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   242
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   243
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   244
                        AddCaption(loc("Way-Points Remaining") .. ": " .. wpRem,0xffba00ff,capgrpAmmoinfo)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   245
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   246
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   247
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   248
                if wpActive[i] == false then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   249
                        trackFinished = false
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
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   253
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   254
        return(trackFinished)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   255
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   256
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   257
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   258
function AdjustScores()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   259
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   260
        if bestTime == nil then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   261
                bestTime = 100000
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   262
                bestClan = 10
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   263
                bestTimeComment = "N/A"
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   264
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   265
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   266
        newScore = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   267
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   268
        -- update this clan's time if the new track is better
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   269
        for i = 0, (numTeams-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   270
                if teamClan[i] == GetHogClan(CurrentHedgehog) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   271
                        if trackTime < teamScore[i] then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   272
                                teamScore[i] = trackTime
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   273
                                newScore = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   274
                        else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   275
                                newScore = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   276
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   277
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   278
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   279
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   280
        --bestTime = 100000
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   281
        --bestClan = 10
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   282
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   283
        -- find the best time out of those so far
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   284
        for i = 0, (numTeams-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   285
                if teamScore[i] < bestTime then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   286
                        bestTime = teamScore[i]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   287
                        bestClan = teamClan[i]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   288
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   289
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   290
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   291
        if bestTime ~= 100000 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   292
                bestTimeComment = (bestTime/1000) ..loc("s")
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   293
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   294
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   295
        if newScore == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   296
                if trackTime == bestTime then -- best time of the race
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   297
                        ShowMission(loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   298
                        loc("TRACK COMPLETED"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   299
                        loc("NEW RACE RECORD: ") .. (trackTime/1000) ..loc("s") .. "|" ..
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   300
                        loc("WINNING TIME: ") .. bestTimeComment, 0, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   301
                        PlaySound(sndHomerun)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   302
                else    -- best time for the clan
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   303
                        ShowMission(loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   304
                        loc("TRACK COMPLETED"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   305
                        loc("NEW CLAN RECORD: ") .. (trackTime/1000) ..loc("s") .. "|" ..
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   306
                        loc("WINNING TIME: ") .. bestTimeComment, 4, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   307
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   308
        else -- not any kind of new score
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   309
                ShowMission(loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   310
                loc("TRACK COMPLETED"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   311
                loc("TIME: ") .. (trackTime/1000) ..loc("s") .. "|" ..
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   312
                loc("WINNING TIME: ") .. bestTimeComment, -amSkip, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   313
                PlaySound(sndHellish)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   314
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   315
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   316
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   317
        --------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   318
        --new
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   319
        --------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   320
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   321
        if bestTime == trackTime then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   322
                --AddCaption("wooooooooooooooooooooooooooooo")
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   323
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   324
                fastColour = GetClanColor(GetHogClan(CurrentHedgehog))
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   325
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   326
                for i = 0, (currCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   327
                        fastX[i] = currX[i]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   328
                        fastY[i] = currY[i]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   329
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   330
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   331
                fastCount = currCount
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   332
                fastIndex = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   333
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   334
                --currCount = 0 -- is this needed?
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   335
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   336
        else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   337
                currCount = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   338
                fastIndex = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   339
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   340
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   341
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   342
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   343
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   344
function onNewRound()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   345
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   346
        roundNumber = roundNumber + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   347
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   348
        totalComment = ""
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   349
        for i = 0, (TeamsCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   350
                        if teamNameArr[i] ~= " " then                           -- teamScore[teamClan[i]]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   351
                                teamComment[i] = teamNameArr[i] .. ": " .. (teamScore[i]/1000) .. loc("s|")
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   352
                                totalComment = totalComment .. teamComment[i]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   353
                        elseif teamNameArr[i] == " " then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   354
                                teamComment[i] = "|"
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   355
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   356
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   357
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   358
        ShowMission(    loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   359
                                        loc("STATUS UPDATE"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   360
                                        loc("Rounds Complete: ") .. roundNumber .. "/" .. roundLimit .. "|" .. " " .. "|" ..
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   361
                                        loc("Best Team Times: ") .. "|" .. totalComment, 0, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   362
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   363
        -- end game if its at round limit
10227
0b848d595f22 - Fix bug with infinite rounds in racer when a team quits mid-game
unc0rr
parents: 10044
diff changeset
   364
        if roundNumber >= roundLimit then
10044
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   365
                for i = 0, (numhhs-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   366
                        if GetHogClan(hhs[i]) ~= bestClan then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   367
                                SetEffect(hhs[i], heResurrectable, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   368
                                SetHealth(hhs[i],0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   369
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   370
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   371
                gameOver = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   372
                TurnTimeLeft = 1
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
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   376
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   377
function CheckForNewRound()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   378
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   379
        -------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   380
        ------ new
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   381
        -------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   382
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   383
        --[[turnN = turnN + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   384
        if gameBegun == false then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   385
                if turnN == 2 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   386
                        for i = 0, (numhhs-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   387
                                if hhs[i] ~= nil then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   388
                                        SetEffect(hhs[i], heResurrectable, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   389
                                        SetHealth(hhs[i],0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   390
                                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   391
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   392
                        gameOver = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   393
                        TurnTimeLeft = 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   394
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   395
        else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   396
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   397
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   398
        end]]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   399
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   400
        --[[if roundBegun == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   401
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   402
                if RoundHasChanged == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   403
                        roundN = roundN + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   404
                        RoundHasChanged = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   405
                        onNewRound()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   406
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   407
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   408
                if lastRound ~= TotalRounds then -- new round, but not really
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   409
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   410
                        if RoundHasChanged == false then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   411
                                RoundHasChanged = true
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
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   415
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   416
                AddCaption("RoundN:" .. roundN .. "; " .. "TR: " .. TotalRounds)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   417
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   418
                lastRound = TotalRounds
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   419
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   420
        end]]
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   421
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   422
        ------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   423
        ----- old
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   424
        ------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   425
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   426
        if GetHogClan(CurrentHedgehog) == firstClan then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   427
                onNewRound()
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
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   431
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   432
function DisableTumbler()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   433
        currCount = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   434
        fastIndex = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   435
        TurnTimeLeft = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   436
        racerActive = false -- newadd
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   437
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   438
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   439
function HandleGhost()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   440
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   441
        -- get the current xy of the racer at this point
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   442
        currX[currCount] = GetX(CurrentHedgehog)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   443
        currY[currCount] = GetY(CurrentHedgehog)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   444
        currCount = currCount + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   445
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   446
        -- draw a ping of smoke where the fastest player was at this point
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   447
        if (fastCount ~= 0) and (fastIndex < fastCount) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   448
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   449
                fastIndex = fastIndex + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   450
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   451
                tempE = AddVisualGear(fastX[fastIndex], fastY[fastIndex], vgtSmoke, 0, false)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   452
                g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   453
                SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, g8, g9, fastColour )
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   454
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   455
                --AddCaption("fC: " .. fastIndex .. " / " .. fastCount)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   456
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   457
        else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   458
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   459
                --AddCaption("excep fC: " .. fastIndex .. " / " .. fastCount)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   460
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   461
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   462
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   463
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   464
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   465
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   466
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   467
function TryRepositionHogs()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   468
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   469
	if MapHasBorder() == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   470
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   471
		for i = 0, (numhhs-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   472
			if hhs[i] ~= nil then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   473
				SetGearPosition(hhs[i],GetX(hhs[i]), TopY-10)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   474
			end
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
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   480
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   481
----------------------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   482
-- GAME METHODS / EVENT HANDLERS
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   483
----------------------------------
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   484
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   485
function onGameInit()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   486
        EnableGameFlags(gfInfAttack, gfInvulnerable)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   487
        CaseFreq = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   488
        TurnTime = 90000
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   489
        WaterRise = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   490
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   491
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   492
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   493
function onGameStart()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   494
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   495
        roundN = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   496
        lastRound = TotalRounds
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   497
        RoundHasChanged = false -- true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   498
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   499
        for i = 0, (specialPointsCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   500
                PlaceWayPoint(specialPointsX[i], specialPointsY[i])
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   501
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   502
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   503
        RebuildTeamInfo()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   504
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   505
        ShowMission     (
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   506
                                loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   507
                                loc("a Hedgewars mini-game"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   508
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   509
                                loc("Build a track and race.") .. "|" ..
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   510
                                loc("Round Limit:") .. " " .. roundLimit .. "|" ..
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   511
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   512
                                "", 4, 4000
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   513
                                )
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   514
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   515
        TryRepositionHogs()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   516
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   517
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   518
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   519
function PlaceWayPoint(x,y)
10227
0b848d595f22 - Fix bug with infinite rounds in racer when a team quits mid-game
unc0rr
parents: 10044
diff changeset
   520
    if not racerActive then
0b848d595f22 - Fix bug with infinite rounds in racer when a team quits mid-game
unc0rr
parents: 10044
diff changeset
   521
        if wpCount == 0 or wpX[wpCount - 1] ~= x or wpY[wpCount - 1] ~= y then
10044
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   522
10227
0b848d595f22 - Fix bug with infinite rounds in racer when a team quits mid-game
unc0rr
parents: 10044
diff changeset
   523
            wpX[wpCount] = x
0b848d595f22 - Fix bug with infinite rounds in racer when a team quits mid-game
unc0rr
parents: 10044
diff changeset
   524
            wpY[wpCount] = y
0b848d595f22 - Fix bug with infinite rounds in racer when a team quits mid-game
unc0rr
parents: 10044
diff changeset
   525
            wpCol[wpCount] = 0xffffffff
0b848d595f22 - Fix bug with infinite rounds in racer when a team quits mid-game
unc0rr
parents: 10044
diff changeset
   526
            wpCirc[wpCount] = AddVisualGear(wpX[wpCount],wpY[wpCount],vgtCircle,0,true)
0b848d595f22 - Fix bug with infinite rounds in racer when a team quits mid-game
unc0rr
parents: 10044
diff changeset
   527
                                                                                                                                            
0b848d595f22 - Fix bug with infinite rounds in racer when a team quits mid-game
unc0rr
parents: 10044
diff changeset
   528
            SetVisualGearValues(wpCirc[wpCount], wpX[wpCount], wpY[wpCount], 20, 100, 1, 10, 0, wpRad, 5, wpCol[wpCount])
10044
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   529
10227
0b848d595f22 - Fix bug with infinite rounds in racer when a team quits mid-game
unc0rr
parents: 10044
diff changeset
   530
            wpCount = wpCount + 1
10044
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   531
10227
0b848d595f22 - Fix bug with infinite rounds in racer when a team quits mid-game
unc0rr
parents: 10044
diff changeset
   532
            AddCaption(loc("Waypoint placed.") .. " " .. loc("Available points remaining: ") .. (wpLimit-wpCount))
10044
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   533
        end
10227
0b848d595f22 - Fix bug with infinite rounds in racer when a team quits mid-game
unc0rr
parents: 10044
diff changeset
   534
    end
10044
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   535
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   536
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   537
function onSpecialPoint(x,y,flag)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   538
    specialPointsX[specialPointsCount] = x
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   539
    specialPointsY[specialPointsCount] = y
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   540
    specialPointsCount = specialPointsCount + 1
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   541
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   542
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   543
function onNewTurn()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   544
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   545
        CheckForNewRound()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   546
        TryRepositionHogs()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   547
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   548
        racerActive = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   549
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   550
        trackTime = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   551
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   552
        currCount = 0 -- hopefully this solves problem
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   553
        AddAmmo(CurrentHedgehog, amAirAttack, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   554
        gTimer = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   555
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   556
        -- Set the waypoints to unactive on new round
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   557
        for i = 0,(wpCount-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   558
                wpActive[i] = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   559
                wpCol[i] = 0xffffffff
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   560
                SetVisualGearValues(wpCirc[i], wpX[i], wpY[i], 20, 100, 1, 10, 0, wpRad, 5, wpCol[i])
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   561
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   562
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   563
        -- Handle Starting Stage of Game
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   564
        if (gameOver == false) and (gameBegun == false) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   565
                if wpCount >= 3 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   566
                        gameBegun = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   567
                        roundNumber = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   568
                        firstClan = GetHogClan(CurrentHedgehog)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   569
                        ShowMission(loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   570
                        loc("GAME BEGUN!!!"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   571
                        loc("Complete the track as fast as you can!"), 2, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   572
                else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   573
                        ShowMission(loc("RACER"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   574
                        loc("NOT ENOUGH WAYPOINTS"),
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   575
                        loc("Place more waypoints using the 'Air Attack' weapon."), 2, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   576
                        AddAmmo(CurrentHedgehog, amAirAttack, 4000)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   577
            ParseCommand("setweap " .. string.char(amAirAttack))
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   578
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   579
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   580
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   581
        if gameOver == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   582
                gameBegun = false
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   583
                racerActive = false -- newadd
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   584
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   585
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   586
        AddAmmo(CurrentHedgehog, amTardis, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   587
        AddAmmo(CurrentHedgehog, amDrillStrike, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   588
        AddAmmo(CurrentHedgehog, amMineStrike, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   589
        AddAmmo(CurrentHedgehog, amNapalm, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   590
        AddAmmo(CurrentHedgehog, amPiano, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   591
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   592
end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   593
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   594
function onGameTick20()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   595
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   596
        -- airstrike detected, convert this into a potential waypoint spot
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   597
        if cGear ~= nil then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   598
                x,y = GetGearPosition(cGear)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   599
        if x > -9000 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   600
            x,y = GetGearTarget(cGear)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   601
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   602
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   603
            if TestRectForObstacle(x-20, y-20, x+20, y+20, true) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   604
                AddCaption(loc("Please place the way-point in the open, within the map boundaries."))
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   605
                PlaySound(sndDenied)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   606
            elseif (y > WaterLine-50) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   607
                AddCaption(loc("Please place the way-point further from the waterline."))
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   608
                PlaySound(sndDenied)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   609
            else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   610
                PlaceWayPoint(x, y)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   611
                if wpCount == wpLimit then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   612
                    AddCaption(loc("Race complexity limit reached."))
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   613
                    DisableTumbler()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   614
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   615
            end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   616
        else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   617
            DeleteGear(cGear)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   618
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   619
        SetGearPosition(cGear, -10000, 0)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   620
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   621
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   622
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   623
        -- start the player tumbling with a boom once their turn has actually begun
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   624
        if racerActive == false then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   625
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   626
                if (TurnTimeLeft > 0) and (TurnTimeLeft ~= TurnTime) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   627
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   628
                        -- if the gamehas started put the player in the middle of the first
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   629
                        --waypoint that was placed
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   630
                        if gameBegun == true then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   631
                                AddCaption(loc("Good to go!"))
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   632
                                racerActive = true
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   633
                                trackTime = 0
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   634
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   635
                                SetGearPosition(CurrentHedgehog, wpX[0], wpY[0])
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   636
                                AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), gtGrenade, 0, 0, 0, 1)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   637
                                FollowGear(CurrentHedgehog)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   638
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   639
                                HideMission()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   640
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   641
                        else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   642
                                -- still in placement mode
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   643
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   644
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   645
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   646
        end
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
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   650
        -- has the player started his tumbling spree?
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   651
        if (CurrentHedgehog ~= nil) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   652
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   653
                --airstrike conversion used to be here
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   654
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   655
                -- if the RACE has started, show tracktimes and keep tabs on waypoints
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   656
                if (racerActive == true) and (gameBegun == true) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   657
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   658
                        --ghost
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   659
                        if GameTime%40 == 0 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   660
                                HandleGhost()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   661
                        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   662
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   663
                        trackTime = trackTime + 20
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   664
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   665
                        if GameTime%100 == 0 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   666
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   667
                if trackTime%1000 == 0 then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   668
                    AddCaption((trackTime/1000)..'.0',GetClanColor(GetHogClan(CurrentHedgehog)),capgrpMessage2)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   669
                else
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   670
                    AddCaption(trackTime/1000,GetClanColor(GetHogClan(CurrentHedgehog)),capgrpMessage2)
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   671
                end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   672
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   673
                                if (CheckWaypoints() == true) then
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   674
                                        AdjustScores()
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
10228
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   723
function onAttack()
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   724
    at = GetCurAmmoType()
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   725
    
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   726
    usedWeapons[at] = 0
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   727
end
10044
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   728
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   729
function onAchievementsDeclaration()
10228
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   730
    usedWeapons[amSkip] = nil
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   731
    
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   732
    usedRope = usedWeapons[amRope] ~= nil
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   733
    usedPortal = usedWeapons[amPortalGun] ~= nil
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   734
    usedSaucer = usedWeapons[amJetpack] ~= nil
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   735
    
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   736
    usedWeapons[amRope] = nil
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   737
    usedWeapons[amPortalGun] = nil
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   738
    usedWeapons[amJetpack] = nil
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   739
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   740
    usedOther = next(usedWeapons) ~= nil
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   741
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   742
    if usedOther then -- smth besides skip, rope, portal or saucer used
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   743
        raceType = "unknown race"
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   744
    elseif usedRope and not usedPortal and not usedSaucer then
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   745
        raceType = "rope race"
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   746
    elseif not usedRope and usedPortal and not usedSaucer then
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   747
        raceType = "portal race"
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   748
    elseif not usedRope and not usedPortal and usedSaucer then
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   749
        raceType = "saucer race"
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   750
    elseif (usedRope or usedPortal or usedSaucer or usedOther) == false then -- no weapons used at all?
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   751
        raceType = "no tools race"
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   752
    else -- at least two of rope, portal and saucer used
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   753
        raceType = "mixed race"
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   754
    end
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   755
10044
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   756
    map = detectMap()
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   757
    
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   758
    for i = 0, (numTeams-1) do
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   759
        if teamScore[i] < 100000 then
10228
947cadb40bc5 Add race type detection
unc0rr
parents: 10227
diff changeset
   760
            DeclareAchievement(raceType, teamNameArr[i], map, teamScore[i])
10044
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   761
        end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   762
    end
33e64afccd3b readd r3be36d2fdca6
koda
parents: 10017
diff changeset
   763
end