share/hedgewars/Data/Scripts/Multiplayer/Continental_supplies.lua
author Wuzzy <Wuzzy2@mail.ru>
Thu, 03 May 2018 16:16:15 +0200
changeset 13368 544867ac1017
parent 13367 8a9a723eb185
child 13369 f609c5cd8286
permissions -rw-r--r--
Continental supplies: Mention that vamp increases Medicine effectiveness
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
     1
--[[
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
     2
	Copyright (C) 2012 Vatten
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
     3
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
     4
	Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
     5
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
     6
	The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
     7
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
     8
	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
     9
]]
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
    10
-- fix selection increase delay (weapons to compesate)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
    11
8043
da083f8d95e6 We need custom script loading function in lua now
unc0rr
parents: 7936
diff changeset
    12
HedgewarsScriptLoad("/Scripts/Locale.lua")
da083f8d95e6 We need custom script loading function in lua now
unc0rr
parents: 7936
diff changeset
    13
HedgewarsScriptLoad("/Scripts/Utils.lua")
da083f8d95e6 We need custom script loading function in lua now
unc0rr
parents: 7936
diff changeset
    14
HedgewarsScriptLoad("/Scripts/Tracker.lua")
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
    15
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    16
--approximative version of square root. This function follows the babylonian method.
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    17
function IntegerSqrt(num)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
    18
	local temp=num
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
    19
	while(temp*temp-div(temp,2)>num)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
    20
	do
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
    21
		temp=div((temp+div(num,temp)),2)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
    22
	end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
    23
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
    24
	return math.abs(temp)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
    25
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
    26
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    27
-- sqrt(x^2,y^2), work without desyncs. is approximative
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    28
function Norm(xx,yy)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
    29
	--to fix overflows
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
    30
	if(((math.abs(xx)^2)+(math.abs(yy)^2))>2^26)
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
    31
	then
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
    32
		local bitr=2^13
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    33
		return IntegerSqrt((div(math.abs(xx),bitr)^2)+(div(math.abs(yy),bitr)^2))*bitr
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
    34
	else
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    35
		return IntegerSqrt((math.abs(xx)^2)+(math.abs(yy)^2))
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
    36
	end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
    37
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
    38
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    39
-- returns 1 or -1 depending on where it is
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    40
function GetIfNegative(num)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
    41
	if(num<0)
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
    42
	then
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
    43
		return -1
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
    44
	else
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
    45
		return 1
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
    46
	end
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
    47
end
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
    48
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    49
--Will end the turn + give escape time
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    50
function EndTurnCS(seconds)
13367
8a9a723eb185 Continental supplies: Fix “Boring” sound being played after continent select
Wuzzy <Wuzzy2@mail.ru>
parents: 13365
diff changeset
    51
	-- Set attacked state to prevent “Boring” sound to be played
8a9a723eb185 Continental supplies: Fix “Boring” sound being played after continent select
Wuzzy <Wuzzy2@mail.ru>
parents: 13365
diff changeset
    52
	SetState(CurrentHedgehog, bor(GetState(CurrentHedgehog), gstAttacked))
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    53
	--set escape time
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
    54
	TurnTimeLeft = GetAwayTime*10*seconds
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    55
	if TurnTimeLeft > 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    56
		Retreat(TurnTimeLeft, false)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    57
	end
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    58
 end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
    59
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    60
 --show health tag (will mostly be used when a hog is damaged)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    61
function ShowDamageTag(hog,damage)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    62
	local healthtag=AddVisualGear(GetX(hog), GetY(hog), vgtHealthTag, damage, false)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    63
	SetVisualGearValues(healthtag, nil, nil, nil, nil, nil, nil, nil, nil, nil, GetClanColor(GetHogClan(hog)))
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    64
end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    65
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    66
--will use IntegerSqrt
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    67
function FireGear(hedgehog,geartype,vx,vy,timer)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    68
	local hypo=Norm(vx,vy)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
    69
	return AddGear(div((GetGearRadius(hedgehog)*2*vx),hypo)+GetX(hedgehog), div((GetGearRadius(hedgehog)*2*vy),hypo)+GetY(hedgehog), geartype, 0, vx, vy, timer)
10527
285b428f391c desync fix for Continental Supplies
Vatten
parents: 10453
diff changeset
    70
end
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
    71
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    72
function CollectMultiAmmo(hog, ammoList, noAddAmmo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    73
	local x, y = GetGearPosition(hog)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    74
	x = x + 2
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    75
	y = y + 32
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    76
	local ammoStr = ""
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    77
	local ammoLength = 0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    78
	for _, _ in pairs(ammoList) do
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    79
		ammoLength = ammoLength + 1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    80
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    81
	local a = 1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    82
	for ammo, count in pairs(ammoList) do
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    83
		if not noAddAmmo then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    84
			local oldCount = GetAmmoCount(hog, ammo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    85
			local newCount = oldCount + count
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    86
			-- Make sure that finite ammo stays finite
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    87
			if count < 100 and oldCount < 100 and newCount >= 100 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    88
				newCount = 99
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    89
			end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    90
			AddAmmo(hog, ammo, newCount)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    91
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    92
		if IsHogLocal(hog) then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    93
			x = x + 2
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    94
			y = y + 32
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    95
			local vgear = AddVisualGear(x, y, vgtAmmo, 0, true)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    96
			if vgear ~= nil then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    97
				local vgtFrame = ammo
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    98
				SetVisualGearValues(vgear, nil, nil, nil, nil, nil, vgtFrame)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
    99
			end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   100
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   101
			ammoStr = ammoStr .. string.format(loc("%s (+%d)"), GetAmmoName(ammo), count)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   102
			if a < ammoLength then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   103
				ammoStr = ammoStr .. " • "
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   104
			end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   105
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   106
		a = a + 1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   107
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   108
	if ammoLength > 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   109
		PlaySound(sndShotgunReload)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   110
		-- Show collected ammo
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   111
		if IsHogLocal(hog) then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   112
			AddCaption(ammoStr, GetClanColor(GetHogClan(hog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   113
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   114
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   115
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   116
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   117
function SetAttackState(state)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   118
	if state==true then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   119
		SetInputMask(bor(GetInputMask(), gmAttack))
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   120
	else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   121
		SetInputMask(band(GetInputMask(), bnot(gmAttack)))
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   122
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   123
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   124
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   125
--====MISC_TIMER GLOBALS====
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   126
local CS = {}
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   127
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   128
--for selecting continent
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   129
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   130
CS.INIT_TEAMS = {}
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   131
CS.GAME_STARTED = false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   132
CS.SELECT_CONTINENT_CHECK=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   133
CS.START_TIME=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   134
CS.HOG_HEALTH=100
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   135
CS.TEAM_CONTINENT = {}
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   136
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   137
--variables for seeing if you have swaped around on a weapon
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   138
CS.AUSTRALIAN_SPECIAL=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   139
CS.AFRICAN_SPECIAL_SEDUCTION=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   140
CS.AFRICAN_SPECIAL_STICKY=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   141
CS.SOUTH_AMERICAN_SPECIAL=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   142
CS.NORTH_AMERICAN_SPECIAL_SNIPER=1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   143
CS.NORTH_AMERICAN_SPECIAL_SNIPER_IS_ON=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   144
CS.KERGUELEN_SPECIAL=1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   145
CS.NORTH_AMERICAN_SPECIAL_SHOTGUN=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   146
CS.EUROPE_SPECIAL=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   147
CS.ANTARCTICA_SPECIAL=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   148
CS.SEDUCTION_INCREASER=0
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   149
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   150
--detection if something is activated
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   151
CS.SWITCH_HOG_IS_ON=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   152
CS.VAMPIRIC_IS_ON=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   153
CS.EXTRA_DAMAGE_IS_ON=100
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   154
CS.PARACHUTE_IS_ON=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   155
CS.PRECISE=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   156
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   157
CS.CONTINENT_LABEL_TIMER=-1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   158
CS.SPEECH_TIMER=-1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   159
CS.HANDLE_SPECIAL_WEAPON_MISC_TIMER=-1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   160
CS.CONFIRM_CONTINENT_SELECTION=-1
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   161
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   162
--the visual circle for kerguelen
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   163
CS.VISUAL_CIRCLE=nil
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   164
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   165
--the global temporary value
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   166
CS.TEMP_VALUE=0
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   167
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   168
--true if player used any sticky mine mine mode besides hedgehog projectile in this turn
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   169
CS.AFRICAN_SPECIAL_NON_PROJECTILE_USED=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   170
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   171
-- “constants”
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   172
CS.SABOTAGE_GRAVITY=350
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   173
CS.SABOTAGE_GRAVITY_LOW=175
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   174
CS.SABOTAGE_DAMAGE=2
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   175
CS.SABOTAGE_FREQUENCY=100
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   176
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   177
--for sabotage
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   178
CS.SABOTAGE_COUNTER=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   179
CS.SABOTAGE_HOGS={}
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   180
CS.SABOTAGE_FREQUENCY_NOW=0
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   181
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   182
--for sundaland
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   183
CS.SUNDALAND_END_HOG_CONTINENT_NAME=nil
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   184
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   185
--misc.
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   186
CS.OPTION_NO_SPECIALS=false
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   187
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   188
--====GENERAL GLOBALS (useful for handling continents)====
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   189
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   190
CS.SNIPER_SPECIAL_NAME = loc("Green Lipstick Bullet")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   191
CS.BASEBALLBAT_BOOMERANG_NAME = loc("Bouncy Boomerang")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   192
CS.CHEESE_SPECIAL_NAME = loc("Anno 1032")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   193
CS.SEDUCTION_SPECIAL_NAME = loc("Dust Storm")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   194
CS.BASEBALLBAT_CRICKET_NAME = loc("Cricket Time")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   195
CS.PARACHUTE_SPECIAL_NAME = loc("Heroic Wind")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   196
CS.HAMMER_ROAR_NAME = loc("Penguin Roar")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   197
CS.HAMMER_SWAP_NAME = loc("Disguise as a Rockhopper Penguin")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   198
CS.HAMMER_LONELY_NAME = loc("Lonely Cries")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   199
CS.STICKY_PROJECTILE_NAME = loc("Hedgehog Projectile")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   200
CS.STICKY_NAPALM_NAME = loc("Napalm Rocket")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   201
CS.SHOTGUN_SPECIAL_NAME = loc("Eagle Eye")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   202
CS.MOLOTOV_SPECIAL_NAME = loc("Medicine")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   203
CS.HAMMER_SABOTAGE_NAME = loc("Flare")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   204
CS.PICKHAMMER_SPECIAL_NAME = loc("Upside-Down World")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   205
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   206
CS.SNIPER_SPECIAL_DESC = loc("Poisonous, deals no damage.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   207
CS.BASEBALLBAT_BOOMERANG_DESC = loc("Launch a bouncy ball which explodes into a crate.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   208
CS.CHEESE_SPECIAL_DESC = loc("Strong knockback, but no poison.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   209
CS.SEDUCTION_SPECIAL_DESC = loc("Deals 15 damage to all enemies in the circle.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   210
CS.BASEBALLBAT_CRICKET_DESC = loc("Throw a 1 second mine!")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   211
CS.PARACHUTE_SPECIAL_DESC = loc("Drop a ball of dirt which turns into a|cluster on impact. Doesn’t end turn.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   212
CS.HAMMER_ROAR_DESC = loc("Deal 15 damage + 10% of your hog’s health to all hogs around you and get 2/3 back.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   213
CS.HAMMER_SWAP_DESC = loc("Swap place with a random enemy in the circle.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   214
CS.HAMMER_LONELY_DESC = loc("Rise the water if nobody else is in the circle and deal 6 damage to all enemy hogs.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   215
CS.STICKY_PROJECTILE_DESC = loc("Fire your hedgehog like a sticky mine.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   216
CS.STICKY_NAPALM_DESC = loc("Fire a rocket with napalm.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   217
CS.SHOTGUN_SPECIAL_DESC = loc("Teleport to the impact location.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   218
CS.MOLOTOV_SPECIAL_DESC = loc("Fire some exploding medicine that will heal 15 health to all hogs in its effect radius.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   219
CS.HAMMER_SABOTAGE_DESC = loc("Sabotage all hogs in the circle and fire a cluster above you.|Sabotaged hogs lose health and have to deal with a very high gravity during their turn.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   220
CS.PICKHAMMER_SPECIAL_DESC = loc("Teleport to the top of the map, expect fall damage!")
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   221
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   222
CS.INVULNERABLE_SPECIAL_CAPTION = loc("15+%d damage, %d invulnerable left")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   223
-- Make info
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   224
local minfo = function(name, desc)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   225
	return string.format(loc("%s: %s"), name, desc)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   226
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   227
CS.SNIPER_SPECIAL_INFO = minfo(CS.SNIPER_SPECIAL_NAME, CS.SNIPER_SPECIAL_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   228
CS.BASEBALLBAT_BOOMERANG_INFO = minfo(CS.BASEBALLBAT_BOOMERANG_NAME, CS.BASEBALLBAT_BOOMERANG_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   229
CS.CHEESE_SPECIAL_INFO = minfo(CS.CHEESE_SPECIAL_NAME, CS.CHEESE_SPECIAL_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   230
CS.SEDUCTION_SPECIAL_INFO = minfo(CS.SEDUCTION_SPECIAL_NAME, CS.SEDUCTION_SPECIAL_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   231
CS.INVULNERABLE_SPECIAL_INFO = loc("Increase the dust storm damage by sacrificing|your invulnerable ammo.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   232
CS.INVULNERABLE_SPECIAL_CTRL = loc("Up/Down: Adjust dust storm damage")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   233
CS.BASEBALLBAT_CRICKET_INFO = minfo(CS.BASEBALLBAT_CRICKET_NAME, CS.BASEBALLBAT_CRICKET_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   234
CS.PARACHUTE_SPECIAL_INFO = minfo(CS.PARACHUTE_SPECIAL_NAME, CS.PARACHUTE_SPECIAL_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   235
CS.HAMMER_ROAR_INFO = minfo(CS.HAMMER_ROAR_NAME, CS.HAMMER_ROAR_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   236
CS.HAMMER_SWAP_INFO = minfo(CS.HAMMER_SWAP_NAME, CS.HAMMER_SWAP_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   237
CS.HAMMER_LONELY_INFO = minfo(CS.HAMMER_LONELY_NAME, CS.HAMMER_LONELY_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   238
CS.STICKY_PROJECTILE_INFO = minfo(CS.STICKY_PROJECTILE_NAME, CS.STICKY_PROJECTILE_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   239
CS.STICKY_NAPALM_INFO = minfo(CS.STICKY_NAPALM_NAME, CS.STICKY_NAPALM_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   240
CS.SHOTGUN_SPECIAL_INFO = minfo(CS.SHOTGUN_SPECIAL_NAME, CS.SHOTGUN_SPECIAL_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   241
CS.MOLOTOV_SPECIAL_INFO = minfo(CS.MOLOTOV_SPECIAL_NAME, CS.MOLOTOV_SPECIAL_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   242
CS.HAMMER_SABOTAGE_INFO = minfo(CS.HAMMER_SABOTAGE_NAME, CS.HAMMER_SABOTAGE_DESC)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   243
CS.PICKHAMMER_SPECIAL_INFO = minfo(CS.PICKHAMMER_SPECIAL_NAME, CS.PICKHAMMER_SPECIAL_DESC)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   244
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   245
CS.SELECT_WEP_INFORMATION=loc("Select your continent with [Up]/[Down] or by selecting a representative weapon.").."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   246
	loc("Press [Attack] to confirm.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   247
CS.SELECT_WEP_INFORMATION_SHORT=loc("%s, select your continent!")
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   248
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   249
function GeneralInformation()
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   250
	local select_wep, quit_hint
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   251
	if not CS.GAME_STARTED then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   252
		select_wep = "| |"..CS.SELECT_WEP_INFORMATION
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   253
		quit_hint = "|"..loc("Hint: Use the quit key to see the team’s continent.")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   254
	else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   255
		select_wep = ""
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   256
		quit_hint = ""
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   257
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   258
	local general_information =
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   259
		loc("Continents: Select a continent at the beginning.").."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   260
		loc("Supplies: Each continent gives you unique weapons, specials and health.").."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   261
		loc("Weapon specials: Some weapons have special modes (see weapon description).")..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   262
		select_wep..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   263
		quit_hint
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   264
	return general_information
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   265
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   266
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   267
CS.CONTINENT_INFORMATION =
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   268
{
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   269
{loc("North America"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   270
loc("The continent of firearms"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   271
loc("The Union: You can select a hedgehog at the start of your turns.").."| |"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   272
loc("Special weapons:").."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   273
GetAmmoName(amShotgun)..": "..CS.SHOTGUN_SPECIAL_INFO.."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   274
GetAmmoName(amSniperRifle)..": "..CS.SNIPER_SPECIAL_INFO,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   275
{amSniperRifle,1},
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   276
{{amShotgun,100},{amDEagle,100},{amLaserSight,2},{amSniperRifle,100},{amCake,1},{amAirAttack,2},{amSwitch,2}},
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   277
{sndShotgunFire,sndCover},100},
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   278
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   279
{loc("South America"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   280
loc("The continent of guerilla tactics"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   281
"| |"..loc("Special weapons:").."|"
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   282
..GetAmmoName(amGasBomb)..": "..CS.CHEESE_SPECIAL_INFO,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   283
{amGasBomb,2},
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   284
{{amBirdy,100},{amHellishBomb,1},{amBee,100},{amGasBomb,100},{amFlamethrower,100},{amNapalm,2},{amExtraDamage,3}},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   285
{sndEggBreak,sndLaugh},125},
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   286
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   287
{loc("Europe"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   288
loc("The continent of medicine"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   289
"| |"..loc("Special weapons:").."|"
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   290
..GetAmmoName(amMolotov)..": "..CS.MOLOTOV_SPECIAL_INFO,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   291
{amBazooka,3},
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   292
{{amBazooka,100},{amGrenade,100},{amMortar,100},{amMolotov,100},{amVampiric,4},{amPiano,1},{amResurrector,2},{amJetpack,4}},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   293
{sndExplosion,sndEnemyDown},100},
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   294
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   295
{loc("Africa"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   296
loc("The continent of dust"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   297
"| |"..loc("Special weapons:").."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   298
GetAmmoName(amSeduction)..": "..CS.SEDUCTION_SPECIAL_INFO.."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   299
CS.INVULNERABLE_SPECIAL_INFO.."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   300
GetAmmoName(amSMine)..": "..CS.STICKY_PROJECTILE_INFO.."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   301
GetAmmoName(amSMine)..": "..CS.STICKY_NAPALM_INFO,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   302
{amSMine,4},
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   303
{{amSMine,100},{amWatermelon,1},{amDrillStrike,1},{amDrill,100},{amInvulnerable,7},{amSeduction,100},{amLandGun,3}},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   304
{sndMelonImpact,sndCoward},125},
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   305
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   306
{loc("Asia"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   307
loc("The continent of ninjas"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   308
loc("Textile industry: Will give you a parachute every second turn.").."| |"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   309
loc("Special weapons:").."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   310
GetAmmoName(amParachute)..": "..CS.PARACHUTE_SPECIAL_INFO,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   311
{amRope,5},
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   312
{{amRope,100},{amFirePunch,100},{amParachute,1},{amKnife,2},{amDynamite,1}},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   313
{sndRopeAttach,sndComeonthen},50},
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   314
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   315
{loc("Australia"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   316
loc("The continent of sports"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   317
"| |"..loc("Special weapons:").."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   318
GetAmmoName(amBaseballBat)..": "..CS.BASEBALLBAT_CRICKET_INFO.."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   319
GetAmmoName(amBaseballBat)..": "..CS.BASEBALLBAT_BOOMERANG_INFO.."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   320
loc("Baseball bat specials cannot be used close to other hogs."),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   321
{amBaseballBat,6},
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   322
{{amBaseballBat,100},{amMine,100},{amLowGravity,4},{amBlowTorch,100},{amRCPlane,2},{amRubber,4}},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   323
{sndBaseballBat,sndNooo},100},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   324
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   325
{loc("Antarctica"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   326
loc("The continent of ice and science"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   327
loc("Antarctic summer: Every 4th turn you get 1 girder, 1 mudball, 2 sine guns and 1 portable portal device.").."| |"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   328
loc("Special weapons:").."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   329
GetAmmoName(amPickHammer)..": "..CS.PICKHAMMER_SPECIAL_INFO,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   330
{amIceGun,7},
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   331
{{amSnowball,2},{amPickHammer,100},{amSineGun,4},{amGirder,1},{amExtraTime,1},{amIceGun,1},{amPortalGun,2}},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   332
{sndSineGun,sndOops},75},
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   333
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   334
{loc("Kerguelen"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   335
loc("The continent of cowards"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   336
"| |"..loc("Special weapons:").."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   337
GetAmmoName(amHammer)..": "..CS.HAMMER_ROAR_INFO.."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   338
GetAmmoName(amHammer)..": "..CS.HAMMER_SWAP_INFO.."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   339
GetAmmoName(amHammer)..": "..CS.HAMMER_LONELY_INFO.."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   340
GetAmmoName(amHammer)..": "..CS.HAMMER_SABOTAGE_INFO,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   341
{amHammer,8},
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   342
{{amHammer,100},{amMineStrike,1},{amBallgun,1},{amTeleport,1}},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   343
{sndPiano5,sndStupid},75},
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   344
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   345
{loc("Zealandia"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   346
loc("The forgotten continent"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   347
loc("Surprise supplies: Get 1-3 random weapons each turn.") .. "|" ..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   348
loc("Treasure: Massive weapon bonus in first turn.").."|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   349
loc("Forgetfulness: You will lose all your weapons each turn."),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   350
{amInvulnerable,9},
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   351
{{amBazooka,1},{amGrenade,1},{amBlowTorch,1},{amSwitch,1},{amRope,1},{amDrill,1},{amDEagle,1},{amPickHammer,1},{amFirePunch,1},{amWhip,1},{amMortar,1},{amSnowball,1},{amExtraTime,1},{amInvulnerable,1},{amVampiric,1},{amFlamethrower,1},{amBee,1},{amClusterBomb,1},{amTeleport,1},{amLowGravity,1},{amJetpack,1},{amGirder,1},{amLandGun,1},{amBirdy,1},{amAirMine,1},{amTardis,1},{amLaserSight,1},{amAirMine,1}},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   352
{sndSplash,sndFirstBlood},100},
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   353
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   354
{loc("Sundaland"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   355
loc("The continent of greed"),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   356
loc("Bounty: Get 6 weapons for each kill (even on own hogs)."),
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   357
{amTardis,10},
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   358
{{amClusterBomb,5},{amTardis,100},{amWhip,100},{amKamikaze,100},{amAirMine,2}},
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   359
{sndWarp,sndSameTeam},100}
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   360
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   361
}
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   362
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   363
--weapontype,ammo,?,duration,*times your choice,affect on random team (should be placed with 1,0,1,0,1 on the 6th option for better randomness)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   364
CS.WEAPONS_DAMAGE = {
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   365
	{amKamikaze,    0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   366
	{amSineGun,     0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   367
	{amMineStrike,  0, 1, 6, 1, 1},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   368
	{amGrenade,     0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   369
	{amPiano,       0, 1, 7, 1, 0},
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   370
	{amClusterBomb, 0, 1, 0, 1, 0},
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   371
	{amBee,         0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   372
	{amShotgun,     0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   373
	{amSniperRifle, 0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   374
	{amDynamite,    0, 1, 6, 1, 1},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   375
	{amFirePunch,   0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   376
	{amHellishBomb, 0, 1, 6, 1, 2},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   377
	{amWhip,        0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   378
	{amNapalm,      0, 1, 6, 1, 1},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   379
	{amPickHammer,  0, 1, 0, 1, 0},
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   380
	{amBaseballBat, 0, 1, 0, 1, 1},
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   381
	{amMortar,      0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   382
	{amCake,        0, 1, 5, 1, 2},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   383
	{amSeduction,   0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   384
	{amWatermelon,  0, 1, 6, 1, 2},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   385
	{amDrill,       0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   386
	{amBallgun,     0, 1, 8, 1, 2},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   387
	{amDEagle,      0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   388
	{amMolotov,     0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   389
	{amHammer,      0, 1, 0, 1, 1},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   390
	{amBirdy,       0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   391
	{amRCPlane,     0, 1, 6, 1, 2},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   392
	{amMine,        0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   393
	{amGasBomb,     0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   394
	{amAirAttack,   0, 1, 5, 1, 1},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   395
	{amBlowTorch,   0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   396
	{amFlamethrower,0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   397
	{amSMine,       0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   398
	{amSnowball,    0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   399
	{amKnife,       0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   400
	{amDrillStrike, 0, 1, 5, 1, 1},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   401
	{amBazooka,     0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   402
	{amAirMine,     0, 1, 0, 1, 0},
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   403
}
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   404
CS.WEAPONS_SUPPORT = {
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   405
	{amParachute,   0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   406
	{amGirder,      0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   407
	{amSwitch,      0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   408
	{amLowGravity,  0, 1, 0, 1, 0},
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   409
	{amExtraDamage, 0, 1, 2, 1, 0},
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   410
	{amRope,        0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   411
	{amInvulnerable,0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   412
	{amExtraTime,   0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   413
	{amLaserSight,  0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   414
	{amVampiric,    0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   415
	{amJetpack,     0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   416
	{amPortalGun,   0, 1, 3, 1, 1},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   417
	{amResurrector, 0, 1, 2, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   418
	{amTeleport,    0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   419
	{amLandGun,     0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   420
	{amTardis,      0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   421
	{amIceGun,      0, 1, 0, 1, 0},
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   422
	{amRubber,      0, 1, 0, 1, 0}
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   423
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   424
}
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   425
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   426
--check if weps valid
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   427
function wepNotValidBorder(weapon)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   428
	if(MapHasBorder() == false or (weapon ~= amAirAttack and weapon ~= amMineStrike and weapon ~= amNapalm and weapon ~= amDrillStrike and weapon ~= amPiano))
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   429
	then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   430
		return true
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   431
	end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   432
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   433
	return false
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   434
end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   435
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   436
--will check after borders and stuff
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   437
function ValidateWeapon(hog,weapon,amount)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   438
	if(wepNotValidBorder(weapon))
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   439
	then
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   440
		if(amount==1)
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   441
		then
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   442
			AddAmmo(hog, weapon)
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   443
		else
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   444
			AddAmmo(hog, weapon,amount)
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   445
		end
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   446
	end
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   447
end
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   448
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   449
function SpawnRandomCrate(x,y,strength)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   450
	local tot=table.maxn(CS.WEAPONS_SUPPORT)+table.maxn(CS.WEAPONS_DAMAGE)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   451
	local rand=GetRandom(tot)+1
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   452
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   453
	if(rand>table.maxn(CS.WEAPONS_SUPPORT))
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   454
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   455
		local weapon=rand-table.maxn(CS.WEAPONS_SUPPORT)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   456
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   457
		while(wepNotValidBorder(CS.WEAPONS_DAMAGE[weapon][1])==false)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   458
		do
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   459
			if(weapon>=table.maxn(CS.WEAPONS_DAMAGE))
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   460
			then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   461
				weapon=0
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   462
			end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   463
			weapon = weapon+1
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   464
		end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   465
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   466
		SpawnAmmoCrate(x, y, CS.WEAPONS_DAMAGE[weapon][1])
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   467
	else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   468
		SpawnUtilityCrate(x, y, CS.WEAPONS_SUPPORT[rand][1])
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   469
	end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   470
end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   471
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   472
--removes one weapon
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   473
function RemoveWeapon(hog,weapon)
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   474
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   475
	if(GetAmmoCount(hog, weapon)<100)
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   476
	then
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   477
		AddAmmo(hog,weapon,GetAmmoCount(hog, weapon)-1)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   478
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   479
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   480
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   481
--reset all weapons for a team
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   482
function CleanWeapons(hog)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   483
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   484
	for w=1, #CS.WEAPONS_SUPPORT do
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   485
		AddAmmo(hog, CS.WEAPONS_SUPPORT[w][1], 0)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   486
	end
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   487
	for w=1, #CS.WEAPONS_DAMAGE do
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   488
		AddAmmo(hog, CS.WEAPONS_DAMAGE[w][1], 0)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   489
	end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   490
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   491
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   492
--get the weapons from a weaponset
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   493
function LoadWeaponset(hog, num)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   494
	for v,w in pairs(CS.CONTINENT_INFORMATION[num][5])
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   495
	do
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   496
		ValidateWeapon(hog, w[1],w[2])
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   497
	end
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   498
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   499
	CS.TEMP_VALUE=CS.CONTINENT_INFORMATION[num][7]
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   500
	runOnGears(SetHogHealth)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   501
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   502
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   503
--list up all weapons from the icons for each continent
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   504
function InitWeaponsMenu(hog)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   505
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   506
	if(GetHogLevel(hog)==0 or CS.CONTINENT_INFORMATION[1][6][1]==sndFrozenHogImpact)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   507
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   508
		for v,w in pairs(CS.CONTINENT_INFORMATION)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   509
		do
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   510
			ValidateWeapon(hog, CS.CONTINENT_INFORMATION[v][4][1], 100)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   511
		end
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   512
		AddAmmo(hog, amSwitch, 100) --random continent
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   513
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   514
	--for the computers
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   515
	else
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   516
		--europe
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   517
		ValidateWeapon(hog, CS.CONTINENT_INFORMATION[3][4][1], 100)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   518
		--north america
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   519
		ValidateWeapon(hog, CS.CONTINENT_INFORMATION[1][4][1], 100)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   520
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   521
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   522
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   523
--shows the continent info
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   524
function ShowContinentInfo(continent,time,generalinf)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   525
	local geninftext=""
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   526
	local ns=false
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   527
	if(time==-1)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   528
	then
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   529
		time=0
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   530
		ns=true
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   531
	end
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   532
	if(generalinf)
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   533
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   534
		geninftext="| |"..loc("General information:").."|"..GeneralInformation()
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   535
	else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   536
		geninftext="| |"..loc("Press [Attack] to select this continent!")
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   537
	end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   538
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   539
	ShowMission(CS.CONTINENT_INFORMATION[continent][1],
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   540
		CS.CONTINENT_INFORMATION[continent][2],
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   541
		string.format(loc("Initial health: %d"), CS.CONTINENT_INFORMATION[continent][7]) .. "|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   542
		CS.CONTINENT_INFORMATION[continent][3]..geninftext,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   543
		CS.CONTINENT_INFORMATION[continent][4][2], time)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   544
	if(ns)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   545
	then
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   546
		HideMission()
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   547
	elseif not CS.GAME_STARTED then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   548
		AddCaption(CS.CONTINENT_INFORMATION[continent][1], GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   549
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   550
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   551
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   552
--will show a circle of gears (eye candy)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   553
function VisualExplosion(range,xpos,ypos,gear1,gear2)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   554
	local degr=0
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   555
	local lap=30
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   556
	while(lap<range)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   557
	do
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   558
		while(degr < 6.2831)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   559
		do
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   560
			AddVisualGear(xpos+math.cos(degr+0.1)*(lap+5), ypos+math.sin(degr+0.1)*(lap+5), gear1, 0, false)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   561
			if(gear2~=false)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   562
			then
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   563
				AddVisualGear(xpos+math.cos(degr)*lap, ypos+math.sin(degr)*lap, gear2, 0, false)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   564
			end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   565
			degr=degr+((3.1415*3)*0.125) --1/8 = 0.125
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   566
		end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   567
		lap=lap+30
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   568
		degr=degr-6.2831
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   569
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   570
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   571
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   572
--give one random weapon
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   573
function GetRandomWeapon(hog, weptype, power, onlyonewep, getdelayedweps, mypower)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   574
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   575
	local wepout=nil
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   576
	local rand_weaponset_power=mypower
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   577
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   578
	if(rand_weaponset_power < power)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   579
	then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   580
		local numberofweapons=table.maxn(weptype)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   581
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   582
		local random_weapon = math.abs(GetRandom(numberofweapons)+1)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   583
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   584
		while((weptype[random_weapon][4]>TotalRounds and getdelayedweps==false) or rand_weaponset_power+weptype[random_weapon][6]>power
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   585
				or (wepNotValidBorder(weptype[random_weapon][1])==false) or GetAmmoCount(hog,weptype[random_weapon][1])>=100
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   586
				or (GetAmmoCount(hog,weptype[random_weapon][1])>=1 and onlyonewep==true))
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   587
		do
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   588
			if(random_weapon>=numberofweapons)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   589
			then
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   590
				random_weapon=0
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   591
			end
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   592
			random_weapon = random_weapon+1
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   593
		end
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   594
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   595
		wepout=weptype[random_weapon][1]
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   596
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   597
		ValidateWeapon(hog, wepout,1)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   598
		rand_weaponset_power=mypower+weptype[random_weapon][6]
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   599
	end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   600
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   601
	return rand_weaponset_power , wepout
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   602
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   603
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   604
--zealandia (generates weapons from the weaponinfo above) and sundaland
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   605
function RandomContinentsGetWeapons(hog)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   606
	if(GetGearType(hog) == gtHedgehog)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   607
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   608
		local currCont=CS.TEAM_CONTINENT[GetHogTeamName(hog)]
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   609
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   610
		if(currCont~=0)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   611
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   612
			local checkDefCont=CS.CONTINENT_INFORMATION[currCont][4][2]
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   613
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   614
			--for sunda
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   615
			local wepamount=getTeamValue(GetHogTeamName(hog), "sundaland-count")
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   616
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   617
			if(checkDefCont==9 and getTeamValue(GetHogTeamName(hog), "rand-done-turn")==false)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   618
			then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   619
				CleanWeapons(hog)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   620
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   621
				local rand_weaponset_power = 0
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   622
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   623
				rand_weaponset_power=GetRandomWeapon(hog,CS.WEAPONS_DAMAGE,100,true,false,rand_weaponset_power)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   624
				rand_weaponset_power=GetRandomWeapon(hog,CS.WEAPONS_SUPPORT,2,true,false,rand_weaponset_power)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   625
				rand_weaponset_power=GetRandomWeapon(hog,CS.WEAPONS_DAMAGE,1,true,false,rand_weaponset_power)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   626
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   627
				setTeamValue(GetHogTeamName(hog), "rand-done-turn", true)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   628
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   629
			elseif(checkDefCont==10 and wepamount~=nil)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   630
			then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   631
				local loci=0
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   632
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   633
				while(loci<wepamount)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   634
				do
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   635
					local _
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   636
					local wep = {}
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   637
					--6 random weapons
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   638
					_, wep[1] = GetRandomWeapon(hog,CS.WEAPONS_DAMAGE,100,false,true,0)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   639
					_, wep[2] = GetRandomWeapon(hog,CS.WEAPONS_DAMAGE,100,false,true,0)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   640
					_, wep[3] = GetRandomWeapon(hog,CS.WEAPONS_DAMAGE,2,false,true,1)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   641
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   642
					_, wep[4] = GetRandomWeapon(hog,CS.WEAPONS_SUPPORT,100,false,true,0)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   643
					_, wep[5] = GetRandomWeapon(hog,CS.WEAPONS_SUPPORT,100,false,true,0)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   644
					_, wep[6] = GetRandomWeapon(hog,CS.WEAPONS_SUPPORT,100,false,true,0)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   645
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   646
					-- Don't give weapons directly, only insert them into the global temp. value
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   647
					-- We expect this function to be called by runOnGears for Sundaland.
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   648
					if CS.TEMP_VALUE[hog] == nil then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   649
						CS.TEMP_VALUE[hog] = {}
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   650
					end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   651
					for w=1, #wep do
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   652
						local ammoList = CS.TEMP_VALUE[hog]
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   653
						if ammoList[wep[w]] == nil then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   654
							ammoList[wep[w]] = 1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   655
						else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   656
							ammoList[wep[w]] = math.min(99, ammoList[wep[w]] + 1)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   657
						end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   658
					end
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   659
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   660
					loci=loci+1
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   661
				end
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   662
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   663
				setTeamValue(GetHogTeamName(hog), "sundaland-count",nil)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   664
			end
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   665
		end
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   666
	end
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   667
end
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   668
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   669
--this will take that hogs settings for the weapons and add them
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   670
function SetContinentWeapons()
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   671
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   672
	CleanWeapons(CurrentHedgehog)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   673
	LoadWeaponset(CurrentHedgehog,CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)])
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   674
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   675
	local visualstuff=AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog)-5, vgtDust,0, false)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   676
	SetVisualGearValues(visualstuff, nil, nil, nil, nil, nil, nil, nil, 2, nil, GetClanColor(GetHogClan(CurrentHedgehog)))
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   677
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   678
	SetCSAmmoDescriptions("weapons")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   679
	ShowContinentInfo(CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)],5000,false)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   680
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   681
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   682
--count hogs in team
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   683
function CountHogsInTeam(hog)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   684
	if(GetHogTeamName(hog)==GetHogTeamName(CurrentHedgehog))
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   685
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   686
		CS.TEMP_VALUE=CS.TEMP_VALUE+1
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   687
	end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   688
end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   689
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   690
--==========================run throw all hog/gear weapons ==========================
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   691
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   692
function SetHogHealth(hog)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   693
	if(GetGearType(hog) == gtHedgehog and GetHogClan(hog) == GetHogClan(CurrentHedgehog))
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   694
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   695
		SetHealth(hog, div(CS.TEMP_VALUE*CS.HOG_HEALTH,100))
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   696
	end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   697
end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   698
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   699
--will check if the mine is nicely placed
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   700
function AustraliaSpecialCheckHogs(hog)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   701
	if(GetGearType(hog) == gtHedgehog)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   702
	then
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   703
		if(gearIsInCircle(hog,GetX(CurrentHedgehog), GetY(CurrentHedgehog), 40, false)==true and hog ~= CurrentHedgehog)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   704
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   705
			CS.TEMP_VALUE=1
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   706
		end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   707
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   708
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   709
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   710
function HogOuch(hog, ouchType)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   711
	local r
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   712
	if ouchType == "moan" then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   713
		r = math.random(1, 2)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   714
		if r == 1 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   715
			PlaySound(sndPoisonMoan, hog, true)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   716
		else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   717
			PlaySound(sndPoisonCough, hog, true)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   718
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   719
	else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   720
		local r = math.random(1, 4)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   721
		PlaySound(_G["sndOw"..r], hog)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   722
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   723
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   724
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   725
--african special on sedunction
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   726
function AfricaSpecialSeduction(hog)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   727
	if(GetGearType(hog) == gtHedgehog)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   728
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   729
		local dmg=div((15+CS.SEDUCTION_INCREASER)*CS.EXTRA_DAMAGE_IS_ON,100)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   730
		if(gearIsInCircle(hog,GetX(CurrentHedgehog), GetY(CurrentHedgehog), 250, false)==true and GetHogClan(hog) ~= GetHogClan(CurrentHedgehog))
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   731
		then
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   732
			if(GetHealth(hog) > dmg)
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   733
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   734
				CS.TEMP_VALUE=CS.TEMP_VALUE+div(dmg*CS.VAMPIRIC_IS_ON,100)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   735
				SetHealth(hog, GetHealth(hog)-dmg)
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   736
			else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   737
				CS.TEMP_VALUE=CS.TEMP_VALUE+div(GetHealth(hog)*CS.VAMPIRIC_IS_ON,100)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   738
				SetHealth(hog, 0)
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   739
			end
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   740
			HogOuch(hog)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   741
			ShowDamageTag(hog,dmg)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   742
		end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   743
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   744
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   745
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   746
--kerguelen special on structure
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   747
function KerguelenSpecialRed(hog)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   748
	if(GetGearType(hog) == gtHedgehog)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   749
	then
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   750
		if(gearIsInCircle(hog,GetX(CurrentHedgehog), GetY(CurrentHedgehog), 120, false)==true and GetHogClan(hog) ~= GetHogClan(CurrentHedgehog))
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   751
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   752
			local dmg=div((15+div(GetHealth(CurrentHedgehog)*10,100))*CS.EXTRA_DAMAGE_IS_ON,100)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   753
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   754
			if(GetHealth(hog)>dmg)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   755
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   756
				CS.TEMP_VALUE=CS.TEMP_VALUE+div(dmg*2,3)+div(dmg*CS.VAMPIRIC_IS_ON*2,100*3)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   757
				SetHealth(hog, GetHealth(hog)-dmg)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   758
			else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   759
				CS.TEMP_VALUE=CS.TEMP_VALUE+(div(GetHealth(hog)*75,100))+(div(GetHealth(CurrentHedgehog)*10,100))+div((GetHealth(hog)+div(GetHealth(CurrentHedgehog)*10,100))*CS.VAMPIRIC_IS_ON,100)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   760
				SetHealth(hog, 0)
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   761
			end
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   762
			HogOuch(hog)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   763
			ShowDamageTag(hog,dmg)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   764
			AddVisualGear(GetX(hog), GetY(hog), vgtExplosion, 0, false)
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   765
			AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), vgtSmokeWhite, 0, false)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   766
		end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   767
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   768
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   769
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   770
--will count the hogs, used to get one random hog.
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   771
function KerguelenSpecialYellowCountHogs(hog)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   772
	if(GetGearType(hog) == gtHedgehog)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   773
	then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   774
		if(GetHogClan(hog) ~= GetHogClan(CurrentHedgehog) and gearIsInCircle(hog,GetX(CurrentHedgehog), GetY(CurrentHedgehog), 390, false))
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   775
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   776
			CS.TEMP_VALUE=CS.TEMP_VALUE+1
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   777
		end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   778
	end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   779
end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   780
--kerguelen special swap hog
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   781
function KerguelenSpecialYellowSwap(hog)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   782
	if(GetGearType(hog) == gtHedgehog)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   783
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   784
		if(CS.KERGUELEN_SPECIAL ~= -1 and GetHogClan(hog) ~= GetHogClan(CurrentHedgehog) and gearIsInCircle(hog,GetX(CurrentHedgehog), GetY(CurrentHedgehog), 420, false))
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   785
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   786
			if(CS.TEMP_VALUE==0)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   787
			then
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   788
				local thisX=GetX(CurrentHedgehog)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   789
				local thisY=GetY(CurrentHedgehog)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   790
				SetGearPosition(CurrentHedgehog, GetX(hog), GetY(hog))
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   791
				SetGearPosition(hog, thisX, thisY)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   792
				CS.KERGUELEN_SPECIAL=-1
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   793
			else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   794
				CS.TEMP_VALUE=CS.TEMP_VALUE-1
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   795
			end
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   796
		end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   797
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   798
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   799
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   800
--kerguelen special will apply sabotage
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   801
function KerguelenSpecialGreen(hog)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   802
	if(GetGearType(hog) == gtHedgehog)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   803
	then
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   804
		if(CurrentHedgehog~=hog and gearIsInCircle(hog,GetX(CurrentHedgehog), GetY(CurrentHedgehog), 80, false))
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   805
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   806
			CS.TEMP_VALUE=1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   807
			CS.SABOTAGE_HOGS[hog]=1
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   808
			AddGear(GetX(hog), GetY(hog), gtCluster, 0, 0, 0, 1)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   809
			PlaySound(sndNooo,hog)
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   810
		end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   811
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   812
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   813
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   814
--first part on kerguelen special (lonely cries)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   815
function KerguelenSpecialBlueCheck(hog)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   816
	if(GetGearType(hog) == gtHedgehog and hog ~= CurrentHedgehog and GetHealth(CurrentHedgehog) and gearIsInCircle(hog,GetX(CurrentHedgehog), GetY(CurrentHedgehog), 500, false))
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   817
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   818
		CS.TEMP_VALUE=1
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   819
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   820
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   821
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   822
--second part on kerguelen special (lonely cries)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   823
function KerguelenSpecialBlueActivate(hog)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   824
	if(GetGearType(hog) == gtHedgehog)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   825
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   826
		local dmg=div(6*CS.EXTRA_DAMAGE_IS_ON,100)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   827
		if(GetHogClan(hog) ~= GetHogClan(CurrentHedgehog))
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   828
		then
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   829
			if(GetHealth(hog) > dmg)
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   830
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   831
				CS.TEMP_VALUE=CS.TEMP_VALUE+div(dmg*CS.VAMPIRIC_IS_ON,100)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   832
				SetHealth(hog, GetHealth(hog)-dmg)
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   833
			else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   834
				CS.TEMP_VALUE=CS.TEMP_VALUE+div(GetHealth(hog)*CS.VAMPIRIC_IS_ON,100)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   835
				SetHealth(hog, 0)
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   836
			end
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   837
			HogOuch(hog, "moan")
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   838
			ShowDamageTag(hog,dmg)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
   839
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   840
			AddVisualGear(GetX(hog), GetY(hog)-30, vgtEvilTrace, 0, false)
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   841
		end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   842
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   843
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   844
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   845
--south american special (used fire gear)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   846
function SouthAmericaSpecialCheeseExplosion(hog)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   847
	if(GetGearType(hog) == gtHedgehog or GetGearType(hog) == gtMine or GetGearType(hog) == gtExplosives)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   848
	then
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   849
		local power_radius_outer=230
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   850
		local power_sa=700000
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   851
		local hypo=0
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   852
		if(gearIsInCircle(hog,GetX(CS.TEMP_VALUE), GetY(CS.TEMP_VALUE), power_radius_outer, false))
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   853
		then
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   854
			if(hog == CurrentHedgehog)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   855
			then
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   856
				SetState(CurrentHedgehog, gstMoving)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   857
			end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   858
			SetGearPosition(hog, GetX(hog),GetY(hog)-3)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   859
			hypo=Norm(math.abs(GetX(hog)-GetX(CS.TEMP_VALUE)),math.abs(GetY(hog)-GetY(CS.TEMP_VALUE)))
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   860
			SetGearVelocity(hog, div((power_radius_outer-hypo)*power_sa*GetIfNegative(GetX(hog)-GetX(CS.TEMP_VALUE)),power_radius_outer), div((power_radius_outer-hypo)*power_sa*GetIfNegative(GetY(hog)-GetY(CS.TEMP_VALUE)),power_radius_outer))
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   861
		end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   862
	end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   863
end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   864
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   865
--north american special on sniper
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   866
function NorthAmericaSpecialSniper(hog)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   867
	if(GetGearType(hog) == gtHedgehog)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   868
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   869
		if(gearIsInCircle(CS.TEMP_VALUE,GetX(hog), GetY(hog), 20, false))
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   870
		then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   871
			SetEffect(hog, hePoisoned, 5)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   872
			PlaySound(sndBump)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   873
			SetSoundMask(sndMissed, true)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   874
		end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   875
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   876
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   877
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
   878
--european special on molotov (used fire gear)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
   879
function EuropeSpecialMolotovHit(hog)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   880
	if(GetGearType(hog) == gtHedgehog)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   881
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   882
		if(gearIsInCircle(CS.TEMP_VALUE,GetX(hog), GetY(hog), 100, false))
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   883
		then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   884
			local healthadd=15
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   885
			HealHog(hog, healthadd+(div(healthadd*CS.VAMPIRIC_IS_ON,100)), hog == CurrentHedgehog)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   886
			SetEffect(hog, hePoisoned, false)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   887
			CS.SABOTAGE_HOGS[hog]=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   888
			SetSoundMask(sndMissed, true)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
   889
		end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   890
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
   891
end
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   892
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   893
--a weaponset string to something readable by the script
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   894
function transferableParamToWeaponSet(string,icon)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   895
	local continentinfo={}
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   896
	local numb=0
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   897
	local wepcodes=0
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   898
	local where=0
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   899
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   900
	local x=0
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   901
	local i=1
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   902
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   903
	--default icon
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   904
	continentinfo[4]={}
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   905
	if(icon==1000)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   906
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   907
		local mid=table.maxn(CS.WEAPONS_DAMAGE)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   908
		local max=mid+table.maxn(CS.WEAPONS_SUPPORT)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   909
		local ic=(string.byte(string) % max)+1
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   910
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   911
		if(ic>mid)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   912
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   913
			ic=CS.WEAPONS_SUPPORT[ic-mid][1]
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   914
		else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   915
			ic=CS.WEAPONS_DAMAGE[ic][1]
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   916
		end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   917
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   918
		continentinfo[4][1]=ic
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   919
		continentinfo[4][2]=-ic
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   920
	else
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   921
		continentinfo[4][1]=icon
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   922
		continentinfo[4][2]=-icon
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   923
	end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   924
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   925
	continentinfo[6]={sndFrozenHogImpact,sndUhOh}
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   926
	continentinfo[7]=100
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   927
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   928
	for c in string:gmatch"."
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   929
	do
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   930
		--first part, eg name of the weaponset
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   931
		if(where==0)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   932
		then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   933
			if(string.byte(c)==126)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   934
			then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   935
				continentinfo[1]=string.sub(string,0,numb)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   936
				wepcodes=numb
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   937
				where=1
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   938
			end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   939
		--second part, subname of the weaponset
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   940
		elseif(where==1)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   941
		then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   942
			if(string.byte(c)==126)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   943
			then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   944
				continentinfo[2]=string.sub(string,wepcodes+2,numb)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   945
				continentinfo[5]={}
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   946
				wepcodes=numb
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   947
				where=2
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   948
			end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   949
		--insert all weapons
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   950
		elseif(where==2)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   951
		then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   952
			x=string.byte(c)-35
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   953
			if(x>90)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   954
			then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   955
				break
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   956
			elseif(x>80)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   957
			then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   958
				if(x-80<10)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   959
				then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   960
					i=x-80
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   961
				else
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   962
					i=100
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   963
				end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   964
			else
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   965
				table.insert(continentinfo[5],{x,i})
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   966
			end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   967
		end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   968
		numb=numb+1
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   969
	end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   970
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   971
	if(continentinfo[5]~=nil and continentinfo[5][1]~=nil)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   972
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   973
		continentinfo[3] =
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   974
			string.format(loc("%s was extracted from the scheme"), continentinfo[1])
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   975
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
   976
		table.insert(CS.CONTINENT_INFORMATION, continentinfo)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   977
	end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   978
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   979
	return nil
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   980
end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   981
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   982
--add a weaponset from a hogname
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   983
function HogNameToWeaponset(hog)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   984
	if(GetGearType(hog) == gtHedgehog)
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
   985
	then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   986
		local string=GetHogName(hog)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   987
		local numb=0
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   988
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   989
		for c in string:gmatch"."
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   990
		do
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   991
			if(string.byte(c)==126)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   992
			then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   993
				local name=string.sub(string,0,numb)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   994
				SetHogName(hog,name)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   995
				local weaponcode=string.sub(string,numb+2)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   996
				local continentinfo=transferableParamToWeaponSet(weaponcode,1000)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   997
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   998
				if(continentinfo~=nil)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
   999
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1000
					table.insert(CS.CONTINENT_INFORMATION, continentinfo)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1001
				end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1002
				return
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1003
			end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1004
			numb=numb+1
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1005
		end
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1006
	end
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1007
end
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1008
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1009
--============================================================================
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1010
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1011
--Parameters -> [options],[global-continent]
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1012
--wt=yes			allow to search for weaponsets on hog names
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1013
--spec=off		disable specials (will make stuff unbalanced)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1014
--cont=no		remove the pre-defined continents
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1015
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1016
--for custom made continent, follows the same standards as the globalism one. You can make your continent with <Name>~<Information>~<Weapons>. Take the weapons generated from globalism, if you want a GUI :P
11520
4dd77731453b update some old google code links in the code/etc. thanks Wuzzy for the heads-up
sheepluva
parents: 10965
diff changeset
  1017
--weapons=<ammo><types>, ammo = ascii[116(1 ammo) to 125(inf ammo)] types = ascii[36(Grenade), 37(Clusterbomb) to 90(knife)] see http://hedgewars.org/kb/AmmoTypes
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1018
--ex "Own continent~this continent rocks!~tZ}$" will get 1 knife and inf grenades
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1019
function onParameters()
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1020
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1021
	local searchfor="wt=yes"
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1022
	local match=string.find(ScriptParam,searchfor, 1)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1023
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1024
	if(match~=nil)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1025
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1026
		CS.TEMP_VALUE=1
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1027
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1028
		ScriptParam=string.gsub(ScriptParam,"(,?)"..searchfor.."(,?)","")
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1029
	end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1030
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1031
	searchfor="spec=off"
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1032
	match=string.find(ScriptParam,searchfor, 1)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1033
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1034
	if(match~=nil)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1035
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1036
		CS.OPTION_NO_SPECIALS=true
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1037
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1038
		ScriptParam=string.gsub(ScriptParam,"(,?)"..searchfor.."(,?)","")
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1039
	end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1040
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1041
	searchfor="cont=no"
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1042
	match=string.find(ScriptParam,searchfor, 1)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1043
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1044
	if(match~=nil)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1045
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1046
		CS.CONTINENT_INFORMATION={}
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1047
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1048
		ScriptParam=string.gsub(ScriptParam,"(,?)"..searchfor.."(,?)","")
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1049
	end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1050
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1051
	if(ScriptParam~=nil)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1052
	then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1053
		local continentinfo=transferableParamToWeaponSet(ScriptParam,amLowGravity)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1054
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1055
		if(continentinfo~=nil)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1056
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1057
			table.insert(CS.CONTINENT_INFORMATION, continentinfo)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1058
		end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1059
	end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1060
end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1061
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1062
--set each weapons settings
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1063
function onAmmoStoreInit()
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1064
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1065
	SetAmmo(amSkip, 9, 0, 0, 0)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1066
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1067
	for v,w in pairs(CS.WEAPONS_DAMAGE)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1068
	do
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1069
		SetAmmo(w[1], w[2], w[3], w[4], w[5])
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1070
	end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1071
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1072
	for v,w in pairs(CS.WEAPONS_SUPPORT)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1073
	do
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1074
		SetAmmo(w[1], w[2], w[3], w[4], w[5])
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1075
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1076
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1077
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1078
function SetCSAmmoDescriptions(mode)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1079
	if mode == "continents" then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1080
		for c=1, #CS.CONTINENT_INFORMATION do
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1081
			local cont = CS.CONTINENT_INFORMATION[c]
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1082
			local hp = string.format(loc("Initial health: %d"), cont[7])
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1083
			SetAmmoTexts(cont[4][1], cont[1], cont[2], hp .."|" .. cont[3])
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1084
			SetAmmoDescriptionAppendix(cont[4][1], nil)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1085
		end
13368
544867ac1017 Continental supplies: Mention that vamp increases Medicine effectiveness
Wuzzy <Wuzzy2@mail.ru>
parents: 13367
diff changeset
  1086
		SetAmmoTexts(amSwitch, loc("Random continent"), loc("If you just don’t care …"), loc("Select this item for a random continent."))
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1087
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1088
	elseif mode == "weapons" then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1089
		local specSelect = loc("Switch: Select weapon special")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1090
		local specHeader = loc("Available weapon specials:")
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1091
		local specText="|"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1092
			specSelect.."| |"..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1093
			specHeader.."|"
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1094
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1095
		SetAmmoDescriptionAppendix(amSniperRifle,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1096
			specText..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1097
			CS.SNIPER_SPECIAL_INFO)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1098
		SetAmmoDescriptionAppendix(amBaseballBat,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1099
			specText..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1100
			CS.BASEBALLBAT_BOOMERANG_INFO .. "|" ..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1101
			CS.BASEBALLBAT_CRICKET_INFO .. "|" ..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1102
			loc("These weapon specials cannot be used close to other hogs."))
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1103
		SetAmmoDescriptionAppendix(amGasBomb,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1104
			specText..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1105
			CS.CHEESE_SPECIAL_INFO)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1106
		SetAmmoDescriptionAppendix(amSeduction,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1107
			specSelect .. "|" ..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1108
			CS.INVULNERABLE_SPECIAL_CTRL .. "| |" ..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1109
			specHeader .. "|" ..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1110
			CS.SEDUCTION_SPECIAL_INFO .. "|" ..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1111
			CS.INVULNERABLE_SPECIAL_INFO)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1112
		SetAmmoDescriptionAppendix(amParachute,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1113
			loc("Switch: Drop ball of dirt from parachute (once)") .. "| |" ..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1114
			specHeader .. "|" ..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1115
			CS.PARACHUTE_SPECIAL_INFO)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1116
		SetAmmoDescriptionAppendix(amHammer,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1117
			specText..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1118
			CS.HAMMER_ROAR_INFO .. "|" ..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1119
			CS.HAMMER_SWAP_INFO .. "|" ..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1120
			CS.HAMMER_LONELY_INFO .. "|" ..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1121
			CS.HAMMER_SABOTAGE_INFO)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1122
		SetAmmoDescriptionAppendix(amSMine,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1123
			specText..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1124
			CS.STICKY_PROJECTILE_INFO .. "|" ..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1125
			CS.STICKY_NAPALM_INFO)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1126
		SetAmmoDescriptionAppendix(amShotgun,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1127
			specText..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1128
			CS.SHOTGUN_SPECIAL_INFO)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1129
		SetAmmoDescriptionAppendix(amMolotov,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1130
			specText..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1131
			CS.MOLOTOV_SPECIAL_INFO)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1132
		SetAmmoDescriptionAppendix(amPickHammer,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1133
			specText..
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1134
			CS.PICKHAMMER_SPECIAL_INFO)
13368
544867ac1017 Continental supplies: Mention that vamp increases Medicine effectiveness
Wuzzy <Wuzzy2@mail.ru>
parents: 13367
diff changeset
  1135
		SetAmmoDescriptionAppendix(amVampiric,
544867ac1017 Continental supplies: Mention that vamp increases Medicine effectiveness
Wuzzy <Wuzzy2@mail.ru>
parents: 13367
diff changeset
  1136
			loc("This also increases the effectiveness of Medicine.")
544867ac1017 Continental supplies: Mention that vamp increases Medicine effectiveness
Wuzzy <Wuzzy2@mail.ru>
parents: 13367
diff changeset
  1137
			)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1138
		for c=1, #CS.CONTINENT_INFORMATION do
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1139
			local cont = CS.CONTINENT_INFORMATION[c]
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1140
			SetAmmoTexts(cont[4][1], nil, nil, nil)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1141
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1142
		SetAmmoTexts(amSwitch, nil, nil, nil)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1143
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1144
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1145
	if mode == "continents" or not CS.GAME_STARTED then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1146
		SetAmmoTexts(amSkip, loc("Select continent"), loc("Continent selection"), loc("Select the current continent.") .. "|" .. loc("Choose your continent wisely, as your decision will be permanent.") .. "|" .. loc("Up/Down: Browse through continents") .. "|" .. loc("Attack: Select this continent"))
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1147
	else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1148
		SetAmmoTexts(amSkip, nil, nil, nil)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1149
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1150
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1151
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1152
--on game start
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1153
function onGameStart()
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1154
	ShowMission(loc("Continental supplies"),loc("Let a continent provide your weapons!"),GeneralInformation(), 0, 0)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1155
	SetCSAmmoDescriptions("continents")
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1156
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1157
	if(CS.TEMP_VALUE==1)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1158
	then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1159
		runOnGears(HogNameToWeaponset)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1160
	end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1161
end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1162
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1163
function onGameInit()
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1164
	SuddenDeathTurns= SuddenDeathTurns+1
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1165
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1166
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1167
--what happen when a turn starts
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1168
function onNewTurn()
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1169
	--will refresh the info on each tab weapon
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1170
	CS.AUSTRALIAN_SPECIAL=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1171
	CS.AFRICAN_SPECIAL_SEDUCTION=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1172
	CS.SEDUCTION_INCREASER=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1173
	CS.SOUTH_AMERICAN_SPECIAL=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1174
	CS.AFRICAN_SPECIAL_STICKY=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1175
	CS.KERGUELEN_SPECIAL=1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1176
	CS.NORTH_AMERICAN_SPECIAL_SNIPER=1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1177
	CS.NORTH_AMERICAN_SPECIAL_SHOTGUN=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1178
	CS.NORTH_AMERICAN_SPECIAL_SNIPER_IS_ON=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1179
	CS.EUROPE_SPECIAL=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1180
	CS.VAMPIRIC_IS_ON=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1181
	CS.EXTRA_DAMAGE_IS_ON=100
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1182
	CS.SABOTAGE_COUNTER=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1183
	CS.ANTARCTICA_SPECIAL=0
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1184
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1185
	CS.TEMP_VALUE=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1186
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1187
	CS.SUNDALAND_END_HOG_CONTINENT_NAME=GetHogTeamName(CurrentHedgehog)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1188
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1189
	if TotalRounds >= 1 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1190
		CS.GAME_STARTED = true
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1191
	end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1192
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1193
	SetSoundMask(sndLaugh, false)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1194
	SetSoundMask(sndMissed, false)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1195
	CS.AFRICAN_SPECIAL_NON_PROJECTILE_USED=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1196
	SetAttackState(true)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1197
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1198
	--when all hogs are "placed"
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1199
	if(GetCurAmmoType()~=amTeleport)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1200
	then
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1201
		--will run once when the game really starts (after placing hogs and so on
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1202
		if(CS.INIT_TEAMS[GetHogTeamName(CurrentHedgehog)] == nil)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1203
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1204
			SetInputMask(band(GetInputMask(), gmWeapon))
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1205
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1206
			if(CS.START_TIME==0)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1207
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1208
				CS.START_TIME=TurnTimeLeft
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1209
				CS.HOG_HEALTH=GetHealth(CurrentHedgehog)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1210
			end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1211
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1212
			TurnTimeLeft=100000
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1213
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1214
			AddCaption(string.format(CS.SELECT_WEP_INFORMATION_SHORT, GetHogTeamName(CurrentHedgehog)), 0xFFFFFFFF, capgrpGameState)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1215
			AddCaption(loc("No continent selected"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1216
			CS.SELECT_CONTINENT_CHECK=true
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1217
			ShowMission(loc("Continental supplies"),loc("Let a continent provide your weapons!"),GeneralInformation(), 0, 0)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1218
			SetCSAmmoDescriptions("continents")
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1219
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1220
			InitWeaponsMenu(CurrentHedgehog)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1221
			CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1222
			CS.INIT_TEAMS[GetHogTeamName(CurrentHedgehog)] = 2
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1223
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1224
		else
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1225
			--if its not the initialization turn
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1226
			CS.SELECT_CONTINENT_CHECK=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1227
			SetInputMask(bor(GetInputMask(), bnot(gmWeapon)))
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1228
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1229
			if(CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]==0)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1230
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1231
				CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]=GetRandom(table.maxn(CS.CONTINENT_INFORMATION))+1
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1232
				SetContinentWeapons()
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1233
			end
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1234
			local currCont=CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1235
			local checkDefCont=CS.CONTINENT_INFORMATION[currCont][4][2]
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1236
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1237
			--give zeelandia-teams new weapons so they can plan for the next turn
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1238
			-- Use temporary value to store list of collected weapons
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1239
			CS.TEMP_VALUE = {}
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1240
			runOnGears(RandomContinentsGetWeapons)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1241
			for hog, ammoList in pairs(CS.TEMP_VALUE) do
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1242
				CollectMultiAmmo(hog, ammoList, true)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1243
			end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1244
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1245
			--some specials for some continents (CS.TEMP_VALUE is from get random weapons)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1246
			if(checkDefCont==9)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1247
			then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1248
				setTeamValue(GetHogTeamName(CurrentHedgehog), "rand-done-turn", false)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1249
			elseif(checkDefCont==7)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1250
			then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1251
				--this will be set on the second turn
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1252
				if(getTeamValue(GetHogTeamName(CurrentHedgehog), "Antarctica2-turntick")==nil)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1253
				then
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1254
					setTeamValue(GetHogTeamName(CurrentHedgehog), "Antarctica2-turntick", 1)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1255
				end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1256
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1257
				-- Antarctic summer
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1258
				if(getTeamValue(GetHogTeamName(CurrentHedgehog), "Antarctica2-turntick")>=4)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1259
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1260
					CollectMultiAmmo(CurrentHedgehog, {[amPortalGun] = 1, [amSineGun] = 2, [amGirder] = 1, [amSnowball] = 1})
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1261
					setTeamValue(GetHogTeamName(CurrentHedgehog), "Antarctica2-turntick", 0)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1262
				end
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1263
				setTeamValue(GetHogTeamName(CurrentHedgehog), "Antarctica2-turntick", getTeamValue(GetHogTeamName(CurrentHedgehog), "Antarctica2-turntick")+1)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1264
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1265
			elseif(checkDefCont==5)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1266
			then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1267
				--this will be set on the second turn
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1268
				if(getTeamValue(GetHogTeamName(CurrentHedgehog), "Asia-turntick")==nil)
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1269
				then
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1270
					setTeamValue(GetHogTeamName(CurrentHedgehog), "Asia-turntick", 1)
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1271
				end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1272
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1273
				if(getTeamValue(GetHogTeamName(CurrentHedgehog), "Asia-turntick")>=2)
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1274
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1275
					CollectMultiAmmo(CurrentHedgehog, {[amParachute] = 1})
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1276
					setTeamValue(GetHogTeamName(CurrentHedgehog), "Asia-turntick", 0)
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1277
				end
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1278
				setTeamValue(GetHogTeamName(CurrentHedgehog), "Asia-turntick", getTeamValue(GetHogTeamName(CurrentHedgehog), "Asia-turntick")+1)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1279
			elseif(checkDefCont==1)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1280
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1281
				CS.TEMP_VALUE=0
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1282
				runOnGears(CountHogsInTeam)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1283
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1284
				if(CS.TEMP_VALUE>1)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1285
				then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1286
					AddAmmo(CurrentHedgehog,amSwitch,GetAmmoCount(CurrentHedgehog, amSwitch)+1)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1287
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1288
					SetWeapon(amSwitch)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1289
					CS.TEMP_VALUE=87
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1290
				end
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1291
			end
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1292
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1293
			ShowContinentInfo(currCont,-1,true)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1294
			SetCSAmmoDescriptions("weapons")
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1295
		end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1296
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1297
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1298
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1299
function ShowSpecialWeaponCaption(ammoType)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1300
	--place mine (australia)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1301
	if(ammoType == amBaseballBat)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1302
	then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1303
		if(CS.AUSTRALIAN_SPECIAL==1)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1304
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1305
			AddCaption(CS.BASEBALLBAT_CRICKET_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1306
		elseif(CS.AUSTRALIAN_SPECIAL==2)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1307
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1308
			AddCaption(CS.BASEBALLBAT_BOOMERANG_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1309
		else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1310
			AddCaption(GetAmmoName(amBaseballBat), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1311
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1312
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1313
	--africa
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1314
	elseif(ammoType == amSeduction)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1315
	then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1316
		if(CS.AFRICAN_SPECIAL_SEDUCTION==1)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1317
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1318
			AddCaption(CS.SEDUCTION_SPECIAL_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1319
			AddCaption(string.format(CS.INVULNERABLE_SPECIAL_CAPTION, CS.SEDUCTION_INCREASER, GetAmmoCount(CurrentHedgehog,amInvulnerable)), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmostate)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1320
		else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1321
			AddCaption(GetAmmoName(amSeduction), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1322
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1323
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1324
	--south america
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1325
	elseif(ammoType == amGasBomb)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1326
	then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1327
		if(CS.SOUTH_AMERICAN_SPECIAL==true)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1328
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1329
			AddCaption(CS.CHEESE_SPECIAL_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1330
		else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1331
			AddCaption(GetAmmoName(amGasBomb), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1332
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1333
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1334
	--africa
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1335
	elseif(ammoType == amSMine)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1336
	then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1337
		if(CS.AFRICAN_SPECIAL_STICKY==1)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1338
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1339
			AddCaption(CS.STICKY_PROJECTILE_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1340
		elseif(CS.AFRICAN_SPECIAL_STICKY == 2)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1341
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1342
			AddCaption(CS.STICKY_NAPALM_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1343
		else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1344
			AddCaption(GetAmmoName(amSMine), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1345
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1346
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1347
	--north america (sniper)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1348
	elseif(ammoType == amSniperRifle and CS.NORTH_AMERICAN_SPECIAL_SNIPER_IS_ON==false)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1349
	then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1350
		if(CS.NORTH_AMERICAN_SPECIAL_SNIPER==1)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1351
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1352
			AddCaption(GetAmmoName(amSniperRifle), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1353
		elseif(CS.NORTH_AMERICAN_SPECIAL_SNIPER==2)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1354
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1355
			AddCaption(CS.SNIPER_SPECIAL_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1356
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1357
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1358
	--north america (shotgun)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1359
	elseif(ammoType == amShotgun)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1360
	then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1361
		if(CS.NORTH_AMERICAN_SPECIAL_SHOTGUN==true)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1362
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1363
			AddCaption(CS.SHOTGUN_SPECIAL_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1364
		else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1365
			AddCaption(GetAmmoName(amShotgun), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1366
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1367
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1368
	--europe
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1369
	elseif(ammoType == amMolotov)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1370
	then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1371
		if(CS.EUROPE_SPECIAL==1)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1372
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1373
			AddCaption(CS.MOLOTOV_SPECIAL_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1374
		else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1375
			AddCaption(GetAmmoName(amMolotov), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1376
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1377
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1378
	--antarctica
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1379
	elseif(ammoType == amPickHammer)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1380
	then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1381
		if(CS.ANTARCTICA_SPECIAL==1)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1382
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1383
			AddCaption(CS.PICKHAMMER_SPECIAL_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1384
		else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1385
			AddCaption(GetAmmoName(amPickHammer), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1386
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1387
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1388
	--kerguelen
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1389
	elseif(ammoType == amHammer)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1390
	then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1391
		if(CS.KERGUELEN_SPECIAL==1)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1392
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1393
			AddCaption(GetAmmoName(amHammer), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1394
		elseif(CS.KERGUELEN_SPECIAL==2)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1395
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1396
			AddCaption(CS.HAMMER_ROAR_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1397
		elseif(CS.KERGUELEN_SPECIAL==3)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1398
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1399
			AddCaption(CS.HAMMER_SWAP_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1400
		elseif(CS.KERGUELEN_SPECIAL==5)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1401
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1402
			AddCaption(CS.HAMMER_LONELY_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1403
		elseif(CS.KERGUELEN_SPECIAL==6)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1404
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1405
			AddCaption(CS.HAMMER_SABOTAGE_NAME, GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1406
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1407
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1408
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1409
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1410
function onPrecise()
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1411
	CS.PRECISE = true
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1412
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1413
function onPreciseUp()
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1414
	CS.PRECISE = false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1415
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1416
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1417
--what happens when you press "tab" (common button)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1418
function onSwitch()
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1419
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1420
	if(CS.SWITCH_HOG_IS_ON==false)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1421
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1422
		if(CS.OPTION_NO_SPECIALS==false and CS.SELECT_CONTINENT_CHECK==false and
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1423
		band(GetState(CurrentHedgehog), gstAttacked) == 0 and
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1424
		band(GetState(CurrentHedgehog), gstHHDriven) ~= 0)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1425
		then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1426
			--place mine (australia)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1427
			if(GetCurAmmoType() == amBaseballBat)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1428
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1429
				CS.AUSTRALIAN_SPECIAL = CS.AUSTRALIAN_SPECIAL + 1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1430
				CS.AUSTRALIAN_SPECIAL = CS.AUSTRALIAN_SPECIAL % 3
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1431
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1432
				SetAttackState(CS.AUSTRALIAN_SPECIAL == 0)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1433
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1434
			--Asian special
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1435
			elseif(CS.PARACHUTE_IS_ON==1)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1436
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1437
				local asiabomb=AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog)+3, gtSnowball, 0, 0, 0, 0)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1438
				SetGearMessage(asiabomb, 1)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1439
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1440
				CS.PARACHUTE_IS_ON=2
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1441
				CS.SELECT_CONTINENT_CHECK=false
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1442
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1443
			--africa
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1444
			elseif(GetCurAmmoType() == amSeduction)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1445
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1446
				if(CS.AFRICAN_SPECIAL_SEDUCTION==0)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1447
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1448
					CS.AFRICAN_SPECIAL_SEDUCTION = 1
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1449
				else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1450
					CS.AFRICAN_SPECIAL_SEDUCTION = 0
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1451
				end
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1452
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1453
			--south america
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1454
			elseif(GetCurAmmoType() == amGasBomb)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1455
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1456
				if(CS.SOUTH_AMERICAN_SPECIAL==false)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1457
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1458
					CS.SOUTH_AMERICAN_SPECIAL = true
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1459
				else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1460
					CS.SOUTH_AMERICAN_SPECIAL = false
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1461
				end
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1462
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1463
			--africa
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1464
			elseif(GetCurAmmoType() == amSMine)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1465
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1466
				CS.AFRICAN_SPECIAL_STICKY = CS.AFRICAN_SPECIAL_STICKY + 1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1467
				CS.AFRICAN_SPECIAL_STICKY = CS.AFRICAN_SPECIAL_STICKY % 3
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1468
				SetSoundMask(sndLaugh, CS.AFRICAN_SPECIAL_STICKY ~= 0)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1469
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1470
			--north america (sniper)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1471
			elseif(GetCurAmmoType() == amSniperRifle and CS.NORTH_AMERICAN_SPECIAL_SNIPER_IS_ON==false)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1472
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1473
				if(CS.NORTH_AMERICAN_SPECIAL_SNIPER==2)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1474
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1475
					CS.NORTH_AMERICAN_SPECIAL_SNIPER = 1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1476
				elseif(CS.NORTH_AMERICAN_SPECIAL_SNIPER==1)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1477
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1478
					CS.NORTH_AMERICAN_SPECIAL_SNIPER = 2
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1479
				end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1480
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1481
			--north america (shotgun)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1482
			elseif(GetCurAmmoType() == amShotgun)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1483
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1484
				if(CS.NORTH_AMERICAN_SPECIAL_SHOTGUN==false)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1485
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1486
					CS.NORTH_AMERICAN_SPECIAL_SHOTGUN = true
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1487
				else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1488
					CS.NORTH_AMERICAN_SPECIAL_SHOTGUN = false
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1489
				end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1490
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1491
			--europe
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1492
			elseif(GetCurAmmoType() == amMolotov)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1493
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1494
				if(CS.EUROPE_SPECIAL==0)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1495
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1496
					CS.EUROPE_SPECIAL = 1
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1497
				else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1498
					CS.EUROPE_SPECIAL = 0
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1499
				end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1500
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1501
			--antarctica
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1502
			elseif(GetCurAmmoType() == amPickHammer)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1503
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1504
				if(CS.ANTARCTICA_SPECIAL==0)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1505
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1506
					CS.ANTARCTICA_SPECIAL = 1
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1507
				else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1508
					CS.ANTARCTICA_SPECIAL = 0
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1509
				end
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1510
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1511
			--kerguelen
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1512
			elseif(GetCurAmmoType() == amHammer)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1513
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1514
				if(CS.KERGUELEN_SPECIAL==6)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1515
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1516
					CS.KERGUELEN_SPECIAL = 1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1517
				elseif(CS.KERGUELEN_SPECIAL==1)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1518
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1519
					CS.KERGUELEN_SPECIAL = 2
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1520
				elseif(CS.KERGUELEN_SPECIAL==2)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1521
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1522
					CS.KERGUELEN_SPECIAL = 3
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1523
				elseif(CS.KERGUELEN_SPECIAL==3)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1524
				then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1525
					CS.KERGUELEN_SPECIAL = 5
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1526
				elseif(CS.KERGUELEN_SPECIAL==5)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1527
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1528
					CS.KERGUELEN_SPECIAL = 6
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1529
				end
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1530
				SetAttackState(CS.KERGUELEN_SPECIAL == 1)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1531
			end
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1532
			ShowSpecialWeaponCaption(GetCurAmmoType())
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1533
		end
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1534
		--for selecting weaponset, this is mostly for old players.
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1535
		-- Switch: Next continent
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1536
		-- Precise+Switch: Previous continent
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1537
		TrySelectNextContinent(CS.PRECISE)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1538
	--if switching out from sabotage.
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1539
	elseif(CS.SABOTAGE_HOGS[CurrentHedgehog]~=nil and CS.SABOTAGE_HOGS[CurrentHedgehog]==2)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1540
	then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1541
		CS.SABOTAGE_HOGS[CurrentHedgehog]=1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1542
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1543
end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1544
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1545
function TrySelectNextContinent(reverse)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1546
	local direction = 1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1547
	if reverse then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1548
		direction = -1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1549
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1550
	if(GetHogLevel(CurrentHedgehog)==0 and CS.SELECT_CONTINENT_CHECK==true and (GetCurAmmoType() == amSkip or GetCurAmmoType() == amNothing))
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1551
	then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1552
		CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]=CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)] + direction
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1553
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1554
		if(CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]> table.maxn(CS.CONTINENT_INFORMATION))
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1555
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1556
			CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]=1
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1557
		end
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1558
		if(CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]<=0)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1559
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1560
			CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]=table.maxn(CS.CONTINENT_INFORMATION)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1561
		end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1562
		SetContinentWeapons()
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1563
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1564
		PlaySound(sndSwitchHog)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1565
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1566
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1567
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1568
function onUp()
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1569
	--swap forward in the weaponmenu (1.0 style)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1570
	TrySelectNextContinent(false)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1571
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1572
	if(GetCurAmmoType() == amSeduction and CS.AFRICAN_SPECIAL_SEDUCTION == 1 and GetAmmoCount(CurrentHedgehog,amInvulnerable)>0)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1573
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1574
		CS.SEDUCTION_INCREASER=CS.SEDUCTION_INCREASER+7
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1575
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1576
		RemoveWeapon(CurrentHedgehog,amInvulnerable)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1577
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1578
		AddCaption(string.format(CS.INVULNERABLE_SPECIAL_CAPTION, CS.SEDUCTION_INCREASER, GetAmmoCount(CurrentHedgehog,amInvulnerable)), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmostate)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1579
	end
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1580
end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1581
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1582
function onDown()
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1583
	--swap backwards in the weaponmenu (1.0 style)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1584
	TrySelectNextContinent(true)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1585
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1586
	if(GetCurAmmoType() == amSeduction and CS.AFRICAN_SPECIAL_SEDUCTION == 1 and CS.SEDUCTION_INCREASER>0)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1587
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1588
		CS.SEDUCTION_INCREASER=CS.SEDUCTION_INCREASER-7
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1589
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1590
		AddAmmo(CurrentHedgehog,amInvulnerable,GetAmmoCount(CurrentHedgehog, amInvulnerable)+1)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1591
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1592
		AddCaption(string.format(CS.INVULNERABLE_SPECIAL_CAPTION, CS.SEDUCTION_INCREASER, GetAmmoCount(CurrentHedgehog,amInvulnerable)), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmostate)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1593
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1594
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1595
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1596
-- Spawn sabotage smoke for inactive hogs (red smoke, more subtle than for active hogs)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1597
function SabotageSmokeInactive(gear)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1598
	if GetGearType(gear) == gtHedgehog and gear ~= CurrentHedgehog and CS.SABOTAGE_HOGS[gear]~=nil and CS.SABOTAGE_HOGS[gear]>=1 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1599
		local vg = AddVisualGear(GetX(gear), GetY(gear), vgtSmokeWhite, 0, false)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1600
		SetVisualGearValues(vg, nil, nil, nil, nil, nil, nil, nil, nil, nil, 0xFF8080B0)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1601
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1602
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1603
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1604
function ShowContinentLabel()
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1605
	if CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)] == 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1606
		AddCaption(loc("Random continent"), GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1607
	else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1608
		AddCaption(CS.CONTINENT_INFORMATION[CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]][1], GetClanColor(GetHogClan(CurrentHedgehog)), capgrpAmmoinfo)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1609
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1610
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1611
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1612
function onGameTick()
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1613
	-- This is a trick to show the continent label delayed by 1 tick
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1614
	if CS.CONTINENT_LABEL_TIMER > 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1615
		CS.CONTINENT_LABEL_TIMER = CS.CONTINENT_LABEL_TIMER - 1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1616
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1617
	if CS.CONTINENT_LABEL_TIMER == 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1618
		ShowContinentLabel()
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1619
		CS.CONTINENT_LABEL_TIMER = -1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1620
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1621
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1622
	if CS.HANDLE_SPECIAL_WEAPON_MISC_TIMER > 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1623
		CS.HANDLE_SPECIAL_WEAPON_MISC_TIMER = CS.HANDLE_SPECIAL_WEAPON_MISC_TIMER - 1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1624
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1625
	if CS.HANDLE_SPECIAL_WEAPON_MISC_TIMER == 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1626
		HandleSpecialWeaponMisc()
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1627
		CS.HANDLE_SPECIAL_WEAPON_MISC_TIMER = -1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1628
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1629
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1630
	-- See onAttack()
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1631
	if CS.CONFIRM_CONTINENT_SELECTION > 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1632
		CS.CONFIRM_CONTINENT_SELECTION = CS.CONFIRM_CONTINENT_SELECTION - 1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1633
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1634
	if CS.CONFIRM_CONTINENT_SELECTION == 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1635
		CS.SELECT_CONTINENT_CHECK=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1636
		EndTurnCS(0)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1637
		PlaySound(sndPlaced)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1638
		ShowContinentLabel()
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1639
		CS.CONFIRM_CONTINENT_SELECTION = -1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1640
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1641
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1642
	if GameTime % 600 == 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1643
		runOnGears(SabotageSmokeInactive)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1644
	end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1645
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1646
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1647
function onGameTick20()
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1648
	--if you picked a weaponset from the weaponmenu (icon)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1649
	if(CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]==0)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1650
	then
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1651
		if(GetCurAmmoType()==amSwitch)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1652
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1653
			CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]=GetRandom(table.maxn(CS.CONTINENT_INFORMATION))+1
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1654
			SetContinentWeapons()
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1655
			SetWeapon(amSkip)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1656
			PlaySound(sndMineTick)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1657
			CS.CONTINENT_LABEL_TIMER = 1
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1658
		else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1659
			for v,w in pairs(CS.CONTINENT_INFORMATION)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1660
			do
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1661
				if(GetCurAmmoType()==CS.CONTINENT_INFORMATION[v][4][1])
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1662
				then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1663
					CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]=v
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1664
					SetContinentWeapons()
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1665
					SetWeapon(amSkip)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1666
					PlaySound(CS.CONTINENT_INFORMATION[v][6][1])
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1667
					PlaySound(CS.CONTINENT_INFORMATION[v][6][2],CurrentHedgehog)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1668
					CS.CONTINENT_LABEL_TIMER = 1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1669
					break
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1670
				end
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1671
			end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1672
		end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1673
	end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1674
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1675
	--show the kerguelen ring
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1676
	if(CS.KERGUELEN_SPECIAL > 1 and GetCurAmmoType() == amHammer and
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1677
		band(GetState(CurrentHedgehog), gstAttacked) == 0 and
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1678
		band(GetState(CurrentHedgehog), gstHHDriven) ~= 0)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1679
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1680
		if(CS.VISUAL_CIRCLE==nil)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1681
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1682
			CS.VISUAL_CIRCLE=AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), vgtCircle, 0, true)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1683
		end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1684
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1685
		if(CS.KERGUELEN_SPECIAL == 2) --walrus scream
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1686
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1687
			SetVisualGearValues(CS.VISUAL_CIRCLE, GetX(CurrentHedgehog), GetY(CurrentHedgehog),20, 200, 0, 0, 100, 120, 4, 0xff0000ee)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1688
		elseif(CS.KERGUELEN_SPECIAL == 3) --swap hog
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1689
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1690
			SetVisualGearValues(CS.VISUAL_CIRCLE, GetX(CurrentHedgehog), GetY(CurrentHedgehog),20, 200, 0, 0, 100, 390, 3, 0xffff00ee)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1691
		elseif(CS.KERGUELEN_SPECIAL == 5) --cries
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1692
		then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1693
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1694
			CS.TEMP_VALUE=0
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1695
			runOnGears(KerguelenSpecialBlueCheck)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1696
			if(CS.TEMP_VALUE==0)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1697
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1698
				SetVisualGearValues(CS.VISUAL_CIRCLE, GetX(CurrentHedgehog), GetY(CurrentHedgehog),20, 200, 0, 0, 100, 500, 1, 0x0000ffee)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1699
			else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1700
				SetVisualGearValues(CS.VISUAL_CIRCLE, GetX(CurrentHedgehog), GetY(CurrentHedgehog),20, 200, 0, 0, 100, 500, 10, 0x0000ffee)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1701
			end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1702
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1703
		elseif(CS.KERGUELEN_SPECIAL == 6) --sabotage
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1704
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1705
			SetVisualGearValues(CS.VISUAL_CIRCLE, GetX(CurrentHedgehog), GetY(CurrentHedgehog),20, 200, 0, 0, 100, 80, 10, 0x00ff00ee)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1706
		end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1707
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1708
	elseif(CS.VISUAL_CIRCLE~=nil)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1709
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1710
		DeleteVisualGear(CS.VISUAL_CIRCLE)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1711
		CS.VISUAL_CIRCLE=nil
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1712
	end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1713
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1714
	--sabotage
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1715
	if(CS.SABOTAGE_HOGS[CurrentHedgehog]~=nil and CS.SABOTAGE_HOGS[CurrentHedgehog]>=1)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1716
	then
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1717
		--for sabotage
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1718
		if(CS.SABOTAGE_HOGS[CurrentHedgehog]==1)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1719
		then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1720
			AddCaption(loc("You are sabotaged, RUN!"))
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1721
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1722
			PlaySound(sndHellish)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1723
			--update the constant at the top also to something in between
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1724
			CS.SABOTAGE_FREQUENCY_NOW=CS.SABOTAGE_FREQUENCY
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1725
			SetGravity(CS.SABOTAGE_GRAVITY)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1726
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1727
			CS.SABOTAGE_HOGS[CurrentHedgehog]=2
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1728
		end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1729
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1730
		if(CS.SABOTAGE_COUNTER % 20 == 0)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1731
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1732
			-- Sabotage effect (red smoke)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1733
			local vg = AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), vgtSmokeWhite, 0, false)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1734
			SetVisualGearValues(vg, nil, nil, nil, nil, nil, nil, nil, nil, nil, 0xFF4040FF)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1735
		end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1736
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1737
		if(TurnTimeLeft<(GetAwayTime*10) or band(GetState(CurrentHedgehog),gstAttacked)==1)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1738
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1739
			CS.SABOTAGE_HOGS[CurrentHedgehog]=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1740
		elseif(CS.SABOTAGE_COUNTER >= CS.SABOTAGE_FREQUENCY_NOW)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1741
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1742
			-- Sabotage decreases hog health regularily,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1743
			-- but invulnerable protects.
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1744
			-- Also do not decrease health while retreating or attacking.
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1745
			if(GetEffect(CurrentHedgehog, heInvulnerable) == 0 and
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1746
			band(GetState(CurrentHedgehog), gstHHDriven) ~= 0 and
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1747
			band(GetState(CurrentHedgehog), gstAttacked+gstAttacking) == 0)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1748
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1749
				if(GetHealth(CurrentHedgehog)<=CS.SABOTAGE_DAMAGE)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1750
				then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1751
					-- All health lost! Sabotage is cruel.
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1752
					PlaySound(sndPoisonMoan, CurrentHedgehog)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1753
					SetHealth(CurrentHedgehog, 0)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1754
					CS.SABOTAGE_HOGS[CurrentHedgehog]=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1755
					-- Take away control so the hog can die in peace.
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1756
					SetState(CurrentHedgehog, band(GetState(CurrentHedgehog), bnot(gstHHDriven)))
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1757
				else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1758
					local newHealth = GetHealth(CurrentHedgehog)-CS.SABOTAGE_DAMAGE
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1759
					-- Start moaning if health is at a critical level
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1760
					if newHealth <= 16 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1761
						PlaySound(sndPoisonMoan, CurrentHedgehog)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1762
					elseif newHealth <= 32 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1763
						PlaySound(sndPoisonCough, CurrentHedgehog)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1764
					end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1765
					SetHealth(CurrentHedgehog, newHealth)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1766
				end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1767
				ShowDamageTag(CurrentHedgehog,CS.SABOTAGE_DAMAGE)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1768
			end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1769
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1770
			CS.SABOTAGE_COUNTER=0
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1771
		else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1772
			CS.SABOTAGE_COUNTER=CS.SABOTAGE_COUNTER+1
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1773
		end
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1774
	elseif((GetGravity()==CS.SABOTAGE_GRAVITY or GetGravity()==CS.SABOTAGE_GRAVITY_LOW) and (CS.SABOTAGE_HOGS[CurrentHedgehog]==0 or CS.SABOTAGE_HOGS[CurrentHedgehog]==nil))
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1775
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1776
		-- Reset gravity
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1777
		SetGravity(100)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1778
	end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1779
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1780
	--enable switch (north america)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1781
	if(GetCurAmmoType() == amSwitch and CS.TEMP_VALUE==87)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1782
	then
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1783
		SetGearMessage(CurrentHedgehog,gmAttack)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1784
		CS.TEMP_VALUE=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1785
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1786
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1787
	if(CS.SPEECH_TIMER > 0) then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1788
		CS.SPEECH_TIMER = CS.SPEECH_TIMER - 20
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1789
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1790
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1791
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1792
function HandleSpecialWeaponMisc(ammoType)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1793
	if not ammoType then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1794
		ammoType = GetCurAmmoType()
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1795
	end
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1796
	ShowSpecialWeaponCaption(ammoType)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1797
	if ammoType == amSMine and CS.AFRICAN_SPECIAL_STICKY ~= 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1798
		SetSoundMask(sndLaugh, true)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1799
	else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1800
		SetSoundMask(sndLaugh, false)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1801
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1802
	if (ammoType == amHammer and CS.KERGUELEN_SPECIAL > 1) or (ammoType == amBaseballBat and CS.AUSTRALIAN_SPECIAL ~= 0) then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1803
		SetAttackState(false)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1804
	else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1805
		SetAttackState(true)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1806
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1807
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1808
end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1809
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1810
--some ppl complained :P
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1811
function onSlot(slot)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1812
	if(CS.TEAM_CONTINENT[GetHogTeamName(CurrentHedgehog)]==0)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1813
	then
12416
edeae7661dca Lua refactor: Replace ParseCommand('setweap… with SetWeapon
Wuzzy <almikes@aol.com>
parents: 11520
diff changeset
  1814
		SetWeapon(amSkip)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1815
	end
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1816
	if CS.GAME_STARTED then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1817
		-- Delay calling HandleSpecialWeaponMisc because
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1818
		-- the CurAmmoType is not updated yet.
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1819
		CS.HANDLE_SPECIAL_WEAPON_MISC_TIMER = 2
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1820
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1821
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1822
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1823
function onSetWeapon(ammoType)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1824
	if CS.GAME_STARTED then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1825
		HandleSpecialWeaponMisc(ammoType)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1826
	end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1827
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1828
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1829
--if you used hogswitch or any similar weapon, dont enable any weaponchange
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1830
function onAttack()
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1831
	if(CS.SELECT_CONTINENT_CHECK==true)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1832
	then
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1833
		if(GetCurAmmoType() == amSkip or GetCurAmmoType() == amNothing)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1834
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1835
			SetWeapon(amNothing)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1836
			-- Delay the real continent selection so the SetWeapon
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1837
			-- has time to take effect.
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1838
			CS.CONFIRM_CONTINENT_SELECTION=2
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1839
		else
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1840
			SetWeapon(amSkip)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1841
		end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1842
	end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1843
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1844
	--african special
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1845
	if(CS.AFRICAN_SPECIAL_SEDUCTION == 1 and GetCurAmmoType() == amSeduction and band(GetState(CurrentHedgehog),gstAttacked)==0)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1846
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1847
		EndTurnCS(3)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1848
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1849
		CS.TEMP_VALUE=0
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1850
		runOnGears(AfricaSpecialSeduction)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1851
		SetHealth(CurrentHedgehog, GetHealth(CurrentHedgehog)+CS.TEMP_VALUE)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1852
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1853
		--visual stuff
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1854
		VisualExplosion(250,GetX(CurrentHedgehog), GetY(CurrentHedgehog),vgtSmoke,vgtSmokeWhite)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1855
		PlaySound(sndParachute)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1856
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1857
		RemoveWeapon(CurrentHedgehog,amSeduction)
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1858
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1859
	elseif(CS.ANTARCTICA_SPECIAL == 1 and GetCurAmmoType() == amPickHammer and band(GetState(CurrentHedgehog),gstAttacked)==0)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1860
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1861
		EndTurnCS(10)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1862
		SetGearPosition(CurrentHedgehog,GetX(CurrentHedgehog),0)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1863
		ParseCommand("hjump")
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1864
		SetGearVelocity(CurrentHedgehog, 0, 100000000)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1865
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1866
		PlaySound(sndPiano8)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1867
		PlaySound(sndWarp)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1868
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1869
		RemoveWeapon(CurrentHedgehog,amPickHammer)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1870
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1871
	--Kerguelen specials
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1872
	elseif(GetCurAmmoType() == amHammer and CS.KERGUELEN_SPECIAL > 1 and band(GetState(CurrentHedgehog),gstAttacked)==0)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1873
	then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1874
		local escapetime=3
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1875
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1876
		--scream
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1877
		if(CS.KERGUELEN_SPECIAL == 2)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1878
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1879
			CS.TEMP_VALUE=0
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1880
			runOnGears(KerguelenSpecialRed)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1881
			HealHog(CurrentHedgehog, CS.TEMP_VALUE)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1882
			PlaySound(sndHellish)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1883
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1884
		--swap
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1885
		elseif(CS.KERGUELEN_SPECIAL == 3)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1886
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1887
			CS.TEMP_VALUE=0
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1888
			runOnGears(KerguelenSpecialYellowCountHogs)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1889
			if(CS.TEMP_VALUE>0)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1890
			then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1891
				CS.TEMP_VALUE=GetRandom(CS.TEMP_VALUE)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1892
				runOnGears(KerguelenSpecialYellowSwap)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1893
				PlaySound(sndPiano3)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1894
			else
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1895
				PlaySound(sndPiano6)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1896
			end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1897
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1898
		--cries
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1899
		elseif(CS.KERGUELEN_SPECIAL == 5)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1900
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1901
			CS.TEMP_VALUE=0
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1902
			runOnGears(KerguelenSpecialBlueCheck)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1903
			if(CS.TEMP_VALUE==0)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1904
			then
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1905
				AddGear(0, 0, gtWaterUp, 0, 0,0,0)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1906
				PlaySound(sndWarp)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1907
				PlaySound(sndMolotov)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1908
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1909
				runOnGears(KerguelenSpecialBlueActivate)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1910
				SetHealth(CurrentHedgehog, GetHealth(CurrentHedgehog)+CS.TEMP_VALUE)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1911
			else
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1912
				PlaySound(sndDenied)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1913
				escapetime = -1
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1914
				if CS.SPEECH_TIMER <= 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1915
					HogSay(CurrentHedgehog, loc("Hogs in sight!"), SAY_SAY)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1916
					CS.SPEECH_TIMER = 5000
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1917
				end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1918
			end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1919
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1920
		--flare/sabotage
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1921
		elseif(CS.KERGUELEN_SPECIAL == 6)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1922
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1923
			CS.TEMP_VALUE=0
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1924
			runOnGears(KerguelenSpecialGreen)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1925
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1926
			PlaySound(sndThrowRelease)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1927
			AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog)-20, gtCluster, 0, 0, -1000000, 32)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1928
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1929
			if(CS.TEMP_VALUE==1)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1930
			then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  1931
				escapetime=10
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  1932
			end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1933
		end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1934
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1935
		if escapetime >= 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1936
			EndTurnCS(escapetime)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1937
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1938
			DeleteVisualGear(CS.VISUAL_CIRCLE)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1939
			CS.VISUAL_CIRCLE=nil
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1940
			CS.KERGUELEN_SPECIAL=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1941
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1942
			RemoveWeapon(CurrentHedgehog,amHammer)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1943
		end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1944
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1945
	elseif(GetCurAmmoType() == amBaseballBat)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1946
	then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1947
		if CS.AUSTRALIAN_SPECIAL ~= 0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1948
		then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1949
			CS.TEMP_VALUE=0
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1950
			runOnGears(AustraliaSpecialCheckHogs)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1951
			if CS.TEMP_VALUE == 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1952
				SetGearMessage(CurrentHedgehog, bor(GetGearMessage(CurrentHedgehog), gmAttack))
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1953
			else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1954
				PlaySound(sndDenied)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1955
			end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1956
		end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1957
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1958
	elseif(GetCurAmmoType() == amVampiric)
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1959
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1960
		CS.VAMPIRIC_IS_ON=75
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1961
	elseif(GetCurAmmoType() == amExtraDamage)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1962
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1963
		CS.EXTRA_DAMAGE_IS_ON=150
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1964
	end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1965
end
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1966
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1967
function onHogAttack(ammoType)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1968
	-- When a sabotaged hog uses low gravity, overwrite the default low gravity,
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1969
	-- otherwise it would be too easy.
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1970
	if(ammoType == amLowGravity and CS.SABOTAGE_HOGS[CurrentHedgehog]~=nil and CS.SABOTAGE_HOGS[CurrentHedgehog]>=1)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1971
	then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1972
		SetGravity(CS.SABOTAGE_GRAVITY_LOW)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1973
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1974
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1975
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1976
function onGearAdd(gearUid)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1977
	CS.SELECT_CONTINENT_CHECK=false
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1978
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  1979
	--track the gears im using
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1980
	if(GetGearType(gearUid) == gtHedgehog or GetGearType(gearUid) == gtMine or GetGearType(gearUid) == gtExplosives)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
  1981
	then
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
  1982
		trackGear(gearUid)
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
  1983
	end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  1984
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1985
	--remove gasclouds on gasbombspecial
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1986
	if(GetGearType(gearUid)==gtPoisonCloud and CS.SOUTH_AMERICAN_SPECIAL == true)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1987
	then
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1988
		DeleteGear(gearUid)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  1989
	--african special
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1990
	elseif(GetGearType(gearUid)==gtSMine)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1991
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1992
		local vx,vy=GetGearVelocity(gearUid)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1993
		if(CS.AFRICAN_SPECIAL_STICKY == 1)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1994
		then
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1995
			SetState(CurrentHedgehog, gstHHDriven+gstMoving)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1996
			SetGearPosition(CurrentHedgehog, GetX(CurrentHedgehog),GetY(CurrentHedgehog)-3)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1997
			SetGearVelocity(CurrentHedgehog, vx, vy)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  1998
			PlaySound(sndJump2, CurrentHedgehog)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  1999
			DeleteGear(gearUid)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2000
			if (not CS.AFRICAN_SPECIAL_NON_PROJECTILE_USED) then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2001
				SetSoundMask(sndMissed, true)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2002
			end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  2003
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2004
		elseif(CS.AFRICAN_SPECIAL_STICKY == 2)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2005
		then
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2006
			FireGear(CurrentHedgehog,gtNapalmBomb, vx, vy, 0)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2007
			DeleteGear(gearUid)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2008
			CS.AFRICAN_SPECIAL_NON_PROJECTILE_USED=true
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2009
			SetSoundMask(sndMissed, false)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2010
		else
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2011
			CS.AFRICAN_SPECIAL_NON_PROJECTILE_USED=true
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2012
			SetSoundMask(sndMissed, false)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2013
		end
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2014
	--north american special
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2015
	elseif(GetGearType(gearUid)==gtSniperRifleShot)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2016
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2017
		CS.NORTH_AMERICAN_SPECIAL_SNIPER_IS_ON=true
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2018
		if(CS.NORTH_AMERICAN_SPECIAL_SNIPER~=1)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2019
		then
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2020
			SetHealth(gearUid, 1)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2021
			SetGearValues(gearUid, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 0)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2022
		end
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2023
	--north american special
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2024
	elseif(GetGearType(gearUid)==gtShotgunShot)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2025
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2026
		if(CS.NORTH_AMERICAN_SPECIAL_SHOTGUN==true)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2027
		then
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2028
			AddVisualGear(GetX(gearUid), GetY(gearUid), vgtFeather, 0, false)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2029
			AddVisualGear(GetX(gearUid), GetY(gearUid), vgtFeather, 0, false)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2030
			AddVisualGear(GetX(gearUid), GetY(gearUid), vgtFeather, 0, false)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2031
			PlaySound(sndBirdyLay)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2032
		end
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2033
	--european special
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2034
	elseif(GetGearType(gearUid)==gtMolotov and CS.EUROPE_SPECIAL==1)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2035
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2036
		local vx,vy=GetGearVelocity(gearUid)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2037
		local e_health=FireGear(CurrentHedgehog,gtCluster, vx, vy, 1)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2038
		SetGearMessage(e_health, 2)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2039
		DeleteGear(gearUid)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2040
	--australian specials
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2041
	elseif(GetGearType(gearUid)==gtShover and CS.AUSTRALIAN_SPECIAL~=0)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2042
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2043
		CS.TEMP_VALUE=0
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2044
		runOnGears(AustraliaSpecialCheckHogs)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  2045
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2046
		if(CS.TEMP_VALUE==0)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2047
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2048
			local vx,vy=GetGearVelocity(gearUid)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  2049
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2050
			if(CS.AUSTRALIAN_SPECIAL==1)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2051
			then
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2052
				local austmine=FireGear(CurrentHedgehog,gtMine, vx, vy, 0)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2053
				SetHealth(austmine, 100)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2054
				SetTimer(austmine, 1000)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2055
				PlaySound(sndLaugh, CurrentHedgehog)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2056
			else
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2057
				local austmine=FireGear(CurrentHedgehog,gtBall, vx, vy, 1)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2058
				SetTimer(austmine, 1000)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2059
				SetGearMessage(austmine, 3)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2060
			end
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2061
		else
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2062
			PlaySound(sndDenied)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2063
		end
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2064
	elseif(GetGearType(gearUid)==gtParachute)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2065
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2066
		CS.PARACHUTE_IS_ON=1
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2067
	elseif(GetGearType(gearUid)==gtSwitcher)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2068
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2069
		CS.SWITCH_HOG_IS_ON=true
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2070
	end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2071
end
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2072
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2073
function onGearDamage(gearUid, damage)
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2074
	if(gearUid==CurrentHedgehog and CS.SABOTAGE_HOGS[CurrentHedgehog]==1)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2075
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2076
		CS.SABOTAGE_HOGS[CurrentHedgehog]=0
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2077
	end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2078
end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2079
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2080
function onGearDelete(gearUid)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2081
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  2082
	if(GetGearType(gearUid) == gtHedgehog or GetGearType(gearUid) == gtMine or GetGearType(gearUid) == gtExplosives)
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
  2083
	then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2084
		--sundaland special
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2085
		if(GetGearType(gearUid) == gtHedgehog and CS.TEAM_CONTINENT[CS.SUNDALAND_END_HOG_CONTINENT_NAME]==10)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2086
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2087
			local currvalue=getTeamValue(CS.SUNDALAND_END_HOG_CONTINENT_NAME, "sundaland-count")
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  2088
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2089
			if(currvalue==nil)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  2090
			then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2091
				currvalue=0
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  2092
			end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  2093
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2094
			setTeamValue(CS.SUNDALAND_END_HOG_CONTINENT_NAME, "sundaland-count", currvalue+1)
9805
1795c34ab8db Updated continental to the latest
Vatten
parents: 8618
diff changeset
  2095
		end
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2096
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2097
		trackDeletion(gearUid)
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2098
	end
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2099
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2100
	--if picking up a health crate, heal sabotage
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2101
	if(CS.SABOTAGE_HOGS[CurrentHedgehog]~=0 and GetGearType(gearUid) == gtCase and GetGearPos(gearUid)==2 and band(GetGearMessage(gearUid), gmDestroy) ~= 0)
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2102
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2103
		CS.SABOTAGE_HOGS[CurrentHedgehog]=0
7895
ac1610a7b7fa apparently an older version was provided earlier and this one is newer and theoretically desync free. untested.
Vatten
parents: 7893
diff changeset
  2104
	end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  2105
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  2106
	--north american lipstick
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2107
	if(GetGearType(gearUid)==gtSniperRifleShot )
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2108
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2109
		CS.NORTH_AMERICAN_SPECIAL_SNIPER_IS_ON=false
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2110
		if(CS.NORTH_AMERICAN_SPECIAL_SNIPER==2)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2111
		then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2112
			CS.TEMP_VALUE=gearUid
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2113
			runOnGears(NorthAmericaSpecialSniper)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2114
		end
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  2115
	--north american eagle eye
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2116
	elseif(GetGearType(gearUid)==gtShotgunShot and CS.NORTH_AMERICAN_SPECIAL_SHOTGUN==true)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2117
	then
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2118
		SetGearPosition(CurrentHedgehog, GetX(gearUid), GetY(gearUid)+7)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2119
		PlaySound(sndWarp)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2120
	--south american special
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2121
	elseif(GetGearType(gearUid)==gtGasBomb and CS.SOUTH_AMERICAN_SPECIAL == true)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2122
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2123
		if band(GetState(gearUid), gstDrowning) == 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2124
			CS.TEMP_VALUE=gearUid
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2125
			runOnGears(SouthAmericaSpecialCheeseExplosion)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2126
			AddVisualGear(GetX(gearUid), GetY(gearUid), vgtExplosion, 0, false)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2127
		end
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  2128
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  2129
	--asian special
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2130
	elseif(GetGearType(gearUid)==gtSnowball and GetGearMessage(gearUid)==1)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2131
	then
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  2132
		AddGear(GetX(gearUid), GetY(gearUid), gtCluster, 0, 0, 0, 22)
10965
fb2b006ba476 merge git head and hg head
sheepluva
parents: 10956
diff changeset
  2133
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  2134
	--europe special
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2135
	elseif(GetGearType(gearUid)==gtCluster and GetGearMessage(gearUid)==2)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2136
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2137
		if band(GetState(gearUid), gstDrowning) == 0 then
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2138
			CS.TEMP_VALUE=gearUid
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2139
			runOnGears(EuropeSpecialMolotovHit)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2140
			VisualExplosion(100,GetX(gearUid), GetY(gearUid),vgtSmokeWhite,vgtSmokeWhite)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2141
			AddVisualGear(GetX(gearUid), GetY(gearUid), vgtExplosion, 0, false)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2142
			PlaySound(sndGraveImpact)
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2143
		end
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2144
	--australian special
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2145
	elseif(GetGearType(gearUid)==gtBall and GetGearMessage(gearUid)==3)
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2146
	then
13364
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2147
		SpawnRandomCrate(GetX(gearUid), GetY(gearUid))
7d772358dc22 Updated Continental supplies
Vatten
parents: 12945
diff changeset
  2148
8618
7e71dba4e7f3 avoid floating point desync, other script tweaks
Vatten
parents: 8043
diff changeset
  2149
	--asia (using para)
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2150
	elseif(GetGearType(gearUid)==gtParachute)
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2151
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2152
		CS.PARACHUTE_IS_ON=false
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2153
	elseif(GetGearType(gearUid)==gtSwitcher)
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2154
	then
13365
e27540ad33bd Massive Continental supplies update
Wuzzy <Wuzzy2@mail.ru>
parents: 13364
diff changeset
  2155
		CS.SWITCH_HOG_IS_ON=false
7893
50e8f6714b22 new script specialising in altering weapon behaviour
Vatten
parents:
diff changeset
  2156
	end
7936
9f44e39d856c Script typos
nemo
parents: 7895
diff changeset
  2157
end
10956
80c3314f8123 Changed to continental supplies from the DLC, because its better :P
caf2 <florian.evaldsson@telia.com>
parents: 10527
diff changeset
  2158