Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
share/hedgewars/Data/Missions/Scenario/portal.lua
changeset 11968 1de4d6b35748
parent 11676 7180ddb4bf5b
child 12077 ce3860c82c8b 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Missions/Scenario/portal.lua	Wed Apr 13 14:39:17 2016 +0200
@@ -0,0 +1,205 @@
+HedgewarsScriptLoad("/Scripts/Locale.lua")
+HedgewarsScriptLoad("/Scripts/Utils.lua")
+
+local MineArray = {}
+local player
+local adviceGiven = false
+local adviceGiven2 = false
+
+function onGameInit()
+	Seed = 0 -- The base number for the random number generator
+	GameFlags = gfInfAttack +gfBorder +gfDisableWind +gfSolidLand
+	TurnTime = 1500000 -- The time the player has to move each round (in ms)
+	CaseFreq = 0 -- The frequency of crate drops
+	MinesNum = 0 -- The number of mines being placed
+	Explosives = 0 -- The number of explosives being placed
+	Delay = 10 -- The delay between each round
+	Map = "portal" -- The map to be played
+	Theme = "Hell" -- The theme to be used
+	-- Disable Sudden Death
+	HealthDecrease = 0
+	WaterRise = 0
+
+	AddTeam(loc("Subjects"), 0xFFFF01, "Simple", "Island", "Default", "cm_test")
+	player = AddHog(loc("Subject 1"), 0, 10, "Terminator_Glasses")
+
+	AddTeam(loc("Hell Army"), 0xFF0402, "skull", "Island", "Default", "cm_hellish")
+	enemy1 = AddHog(loc("Lucifer"), 1, 200, "InfernalHorns")
+	enemy2 = AddHog(loc("Voldemort"), 1, 150, "WizardHat")
+	enemy3 = AddHog(loc("Zombi"), 1, 100, "Zombi")
+	enemy4 = AddHog(loc("Predator"), 1, 14, "anzac")
+	enemy5 = AddHog(loc("Oneye"), 1, 50, "cyclops")
+	enemy6 = AddHog(loc("Razac"), 1, 50, "Evil")
+	enemy7 = AddHog(loc("C-2"), 1, 50, "cyborg1")
+	enemy8 = AddHog(loc("Rider"), 1, 50, "scif_SparkssHelmet")
+
+	AddTeam(loc("Badmad"), 0xFF0402, "skull", "Island", "Default", "cm_pentagram")
+	enemy9 = AddHog(loc("C-1"), 1, 50, "cyborg2")
+	enemy10 = AddHog(loc("Hidden"), 1, 40, "bushhider")
+	enemy11 = AddHog(loc("Ronald"), 1, 70, "clown")
+	enemy12 = AddHog(loc("Phosphat"), 1, 50, "chef")
+	enemy13 = AddHog(loc("Lestat"), 1, 30, "vampirichog")
+
+	SetGearPosition(player, 350, 1820)
+	SetGearPosition(enemy1, 2037, 1313)
+	SetGearPosition(enemy2, 1369, 1605)
+	SetGearPosition(enemy3, 1750, 1937)
+	SetGearPosition(enemy4, 3125, 89)
+	SetGearPosition(enemy5, 743, 900)
+	SetGearPosition(enemy6, 130, 360)
+	SetGearPosition(enemy7, 1333, 640)
+	SetGearPosition(enemy8, 1355, 200)
+	SetGearPosition(enemy9, 2680, 225)
+	SetGearPosition(enemy10, 2970, 800)
+	SetGearPosition(enemy11, 4050, 1964)
+	SetGearPosition(enemy12, 2666, 950)
+	SetGearPosition(enemy13, 3306, 1205)
+
+end
+
+function onAmmoStoreInit()
+
+	SetAmmo(amFirePunch, 0,0,0,1)
+	SetAmmo(amParachute, 0, 0, 0, 2)
+	SetAmmo(amGirder, 0, 0, 0, 3)
+	SetAmmo(amTeleport, 0, 0, 0, 1)
+	SetAmmo(amLaserSight,0,0,0,1)
+	SetAmmo(amHellishBomb,0,0,0,1)
+	SetAmmo(amGrenade,0,0,0,1)
+	SetAmmo(amRope,0,0,0,1)
+	SetAmmo(amDEagle,0,0,0,1)
+	SetAmmo(amExtraTime,0,0,0,2)
+	SetAmmo(amSkip,9,0,0,0)
+	SetAmmo(amBlowTorch, 0, 0, 0, 1)
+	SetAmmo(amPickHammer, 0, 0, 0, 1)
+	SetAmmo(amSnowball, 0, 0, 0, 1)
+
+end
+
+function onGameStart()
+
+	SetWind(100)
+
+	MineArray[0] = AddGear(840, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[1] = AddGear(900, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[2] = AddGear(1000, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[3] = AddGear(1100, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[4] = AddGear(1140, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[5] = AddGear(1170, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[6] = AddGear(1200, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[7] = AddGear(1200, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[8] = AddGear(1230, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[9] = AddGear(1280, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[10] = AddGear(1302, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[11] = AddGear(1350, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[12] = AddGear(1383, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[13] = AddGear(1400, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[14] = AddGear(1423, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[15] = AddGear(1470, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[16] = AddGear(1480, 1847, gtMine, 0, 0, 0, 0)
+	MineArray[17] = AddGear(1311, 1847, gtMine, 0, 0, 0, 0)
+
+	MineArray[18] = AddGear(840, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[19] = AddGear(900, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[20] = AddGear(1000, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[21] = AddGear(1100, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[22] = AddGear(1140, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[23] = AddGear(1170, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[24] = AddGear(1200, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[25] = AddGear(1230, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[26] = AddGear(1280, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[27] = AddGear(1302, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[28] = AddGear(1350, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[29] = AddGear(1383, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[30] = AddGear(1400, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[31] = AddGear(1423, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[32] = AddGear(1470, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[33] = AddGear(1480, 1785, gtMine, 0, 0, 0, 0)
+	MineArray[34] = AddGear(1311, 1785, gtMine, 0, 0, 0, 0)
+
+	MineArray[35] = AddGear(4029, 89, gtMine, 0, 0, 0, 120)
+
+	for i = 0,#MineArray do
+		SetTimer(MineArray[i],050)
+		SetState(MineArray[i],544)
+	end
+	--needed this MineArray cause timer didn't work, its was always 3sec, i wanna instant mines
+
+	--UTILITY CRATE--
+	parachute = SpawnUtilityCrate(1670, 1165, amParachute)
+	girder = SpawnUtilityCrate(2101, 1297, amGirder)
+	SpawnUtilityCrate(3965, 625, amBlowTorch)
+	SpawnUtilityCrate(2249, 93, amBlowTorch)
+	SpawnUtilityCrate(2181, 829, amBlowTorch)
+	SpawnUtilityCrate(1820, 567, amBlowTorch)
+	SpawnUtilityCrate(1375, 900, amTeleport)
+	SpawnUtilityCrate(130, 600, amPickHammer)
+	SpawnUtilityCrate(1660,1820, amLaserSight)
+	SpawnUtilityCrate(4070,1840, amLaserSight)
+
+
+	--AMMO CRATE--
+	portalgun = SpawnAmmoCrate(505, 1943, amPortalGun, 1000)
+	extratime = SpawnAmmoCrate(4020, 785, amExtraTime, 2)
+	SpawnAmmoCrate(425, 613, amSnowball)
+	SpawnAmmoCrate(861, 633, amHellishBomb)
+	SpawnAmmoCrate(2510, 623, amSnowball)
+	SpawnAmmoCrate(2900, 1600, amGrenade)
+	SpawnAmmoCrate(2680, 320, amGrenade)
+	SpawnAmmoCrate(2650, 80, amDEagle)
+	SpawnAmmoCrate(3000, 100, amDEagle)
+	SpawnAmmoCrate(2900, 1400, amRope)
+	SpawnAmmoCrate(4025, 1117, amFirePunch)
+
+	--HEALTH CRATE--
+	SpawnHealthCrate(2000, 780)
+
+	--GIRDER--
+	PlaceGirder(3363, 1323, 4)
+
+	ShowMission (loc("Portal Mind Challenge"), loc("Mission"),
+		loc("Defeat all enemies!") .. "|" .. loc("In this mission you have infinite time."),
+		-amPortalGun, 5000)
+	HogSay(player, loc("I should get myself a portal device, maybe this crate has one."), SAY_THINK)
+
+end
+
+function onGameTick()
+
+	if (player ~= nil)  then
+		if (gearIsInBox(player, 1650, 1907, 200, 60) and (adviceGiven == false)) then
+			adviceGiven = true
+			HogSay(player, loc("Hmmm, I’ll have to find some way of moving him off this anti-portal surface."), SAY_THINK)
+		elseif (gearIsInBox(player, 2960, 790, 200, 60) and (adviceGiven2 == false)) then
+			adviceGiven2 = true
+			HogSay(player, loc("The anti-portal surface is all over the floor, and I have nothing to kill him. Dropping something could hurt him enough to kill him."), SAY_THINK)
+		end
+	end
+
+end
+
+function onGearDelete(gear)
+	-- Check gear collection
+	if CurrentHedgehog == player and (band(GetGearMessage(gear), gmDestroy) ~= 0) then
+		if gear == portalgun then
+			HogSay(player, loc("Great! Let’s kill all these enemies, using portals."), SAY_THINK)
+		end
+
+		if gear == girder then
+			HogSay(player, loc("This will be useful when I need a new platform or if I want to rise."), SAY_THINK)
+		end
+
+		if gear == parachute then
+			HogSay(player, loc("You can’t open a portal on the blue surface."), SAY_THINK)
+		end
+
+		if gear == extratime then
+			HogSay(player, loc("What?! For all this struggle I just win some ... time? Oh dear!"), SAY_SHOUT)
+		end
+	end
+
+	if gear == player then
+		player = nil
+	end
+end
+
hedgewars