share/hedgewars/Data/Maps/Knockball/map.lua
author Wuzzy <almikes@aol.com>
Fri, 25 Nov 2016 13:38:24 +0100
changeset 12084 8f222872d432
parent 12082 ce3860c82c8b
child 12086 ed40d46c9e59
permissions -rw-r--r--
Disable SD for a couple of scripts and mission maps
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4506
37744d5c877e Finnished up the lua translations by adding training maps, campaign is ignored for now
Henek
parents: 4502
diff changeset
     1
-- Hedgewars - Knockball for 2+ Players
3263
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
     2
9093
4114ce5d885d fix locale load
nemo
parents: 8349
diff changeset
     3
HedgewarsScriptLoad("/Scripts/Locale.lua")
3263
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
     4
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
     5
local score = {[0] = 0, [1] = 0, [2] = 0, [3] = 0, [4] = 0, [5] = 0}
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
     6
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
     7
local ball = nil
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
     8
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
     9
local started = false
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    10
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    11
function onGameInit()
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    12
	GameFlags = gfSolidLand + gfInvulnerable + gfDivideTeams
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    13
	TurnTime = 20000
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    14
	CaseFreq = 0
4162
923db448ad16 update and fix some lua stuff
Henek
parents: 3465
diff changeset
    15
	MinesNum = 0
3263
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    16
	Explosives = 0
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    17
	Delay = 500
12084
8f222872d432 Disable SD for a couple of scripts and mission maps
Wuzzy <almikes@aol.com>
parents: 12082
diff changeset
    18
	-- Disable Sudden Death
8f222872d432 Disable SD for a couple of scripts and mission maps
Wuzzy <almikes@aol.com>
parents: 12082
diff changeset
    19
	WaterRise = 0
8f222872d432 Disable SD for a couple of scripts and mission maps
Wuzzy <almikes@aol.com>
parents: 12082
diff changeset
    20
	HealthDecrease = 0
3263
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    21
end
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    22
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    23
function onGameStart()
12082
ce3860c82c8b Rewrite 2nd line of mission panel of most missions for consistency
Wuzzy <almikes@aol.com>
parents: 11202
diff changeset
    24
	ShowMission(loc("Knockball"), loc("Not So Friendly Match"), loc("Bat balls at your enemies and|push them into the sea!"), -amBaseballBat, 0)
3263
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    25
	started = true
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    26
end
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    27
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    28
function onGameTick()
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    29
	if ball ~= nil and GetFollowGear() ~= nil then FollowGear(ball) end
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    30
end
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    31
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    32
function onAmmoStoreInit()
3346
967fd96f7373 Engine/Frontend:
smxx
parents: 3266
diff changeset
    33
	SetAmmo(amBaseballBat, 9, 0, 0, 0)
967fd96f7373 Engine/Frontend:
smxx
parents: 3266
diff changeset
    34
	SetAmmo(amSkip, 9, 0, 0, 0)
3263
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    35
end
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    36
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    37
function onGearAdd(gear)
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    38
	if GetGearType(gear) == gtShover then
7777
e0be9fbc21b4 Fix knockball
nemo
parents: 4517
diff changeset
    39
		ball = AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), gtBall, 0, 0, 0, 0)
3263
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    40
		if ball ~= nil then
4517
0618b31023dc added team flag to AddTeam and made AI team allowed to have custom flags. added GetGearVelocity and SetGearVelocity and removed CopyPV2. changed knockball to use use these functions instead.
Henek
parents: 4506
diff changeset
    41
			local dx, dy = GetGearVelocity(gear)
0618b31023dc added team flag to AddTeam and made AI team allowed to have custom flags. added GetGearVelocity and SetGearVelocity and removed CopyPV2. changed knockball to use use these functions instead.
Henek
parents: 4506
diff changeset
    42
			SetGearVelocity(ball, dx * 2, dy * 2)
3263
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    43
			SetState(ball, 0x200) -- temporary - might change!
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    44
			SetTag(ball, 8) -- baseball skin
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    45
			FollowGear(ball)
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    46
		end
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    47
	end
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    48
end
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    49
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    50
function onGearDelete(gear)
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    51
	if not started then
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    52
		return
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    53
	end
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    54
	if gear == ball then
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    55
		ball = nil
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    56
	elseif (GetGearType(gear) == gtHedgehog) and CurrentHedgehog ~= nil then
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    57
		local clan = GetHogClan(CurrentHedgehog)
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    58
		local s
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    59
		if clan ~= nil then
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    60
			if GetHogClan(CurrentHedgehog) ~= GetHogClan(gear) then
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    61
				score[clan] = score[clan] + 1
4502
759c1a3bb156 lua access to data dir by GetDataPath and made a new scripting translation system with Locale.lua as library and .lua files under Locale. Updated maps Basketball and Knockball to this new system.
Henek
parents: 4350
diff changeset
    62
				s = string.format(loc("%s is out and Team %d|scored a point!| |Score:"), GetHogName(gear), clan + 1)
3263
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    63
			else
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    64
				score[clan] = score[clan] - 1
4502
759c1a3bb156 lua access to data dir by GetDataPath and made a new scripting translation system with Locale.lua as library and .lua files under Locale. Updated maps Basketball and Knockball to this new system.
Henek
parents: 4350
diff changeset
    65
				s = string.format(loc("%s is out and Team %d|scored a penalty!| |Score:"), GetHogName(gear), clan + 1)
3263
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    66
			end
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    67
			s = s .. " " .. score[0]
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    68
			for i = 1, ClansCount - 1 do s = s .. " - " .. score[i] end
12082
ce3860c82c8b Rewrite 2nd line of mission panel of most missions for consistency
Wuzzy <almikes@aol.com>
parents: 11202
diff changeset
    69
			ShowMission(loc("Knockball"), loc("Not So Friendly Match"), s, -amBaseballBat, 0)
3263
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    70
		end
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    71
	end
fd1588933051 Fix line endings. Again.
nemo
parents: 3257
diff changeset
    72
end
11202
cc308446f90d preselect baseball bat in Knockball and Basketball
sheepluva
parents: 9093
diff changeset
    73
cc308446f90d preselect baseball bat in Knockball and Basketball
sheepluva
parents: 9093
diff changeset
    74
function onNewTurn()
cc308446f90d preselect baseball bat in Knockball and Basketball
sheepluva
parents: 9093
diff changeset
    75
    SetWeapon(amBaseballBat)
cc308446f90d preselect baseball bat in Knockball and Basketball
sheepluva
parents: 9093
diff changeset
    76
end