HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Utils.lua")

local MineArray = {}

local player, playerTeamName

local adviceGiven0 = false

local adviceGiven1 = 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

	Map = "portal" -- The map to be played

	Theme = "Hell" -- The theme to be used

	-- Disable Sudden Death

	HealthDecrease = 0

	WaterRise = 0

	playerTeamName = AddMissionTeam(-1)

	player = AddMissionHog(10)

	AddTeam(loc("Hell Army"), -9, "skull", "Island", "Default_qau", "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"), -9, "skull", "Island", "Default_qau", "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, 1835)

	SetGearPosition(enemy1, 2037, 1361)

	SetGearPosition(enemy2, 1369, 1626)

	SetGearPosition(enemy3, 1750, 1961)

	SetGearPosition(enemy4, 3125, 138)

	SetGearPosition(enemy5, 743, 938)

	SetGearPosition(enemy6, 130, 388)

	SetGearPosition(enemy7, 1333, 673)

	SetGearPosition(enemy8, 1355, 231)

	SetGearPosition(enemy9, 2680, 264)

	SetGearPosition(enemy10, 2970, 868)

	SetGearPosition(enemy11, 4050, 1985)

	SetGearPosition(enemy12, 2666, 963)

	SetGearPosition(enemy13, 3306, 1306)

	HogTurnLeft(enemy1, true)

	HogTurnLeft(enemy2, true)

	HogTurnLeft(enemy4, true)

	HogTurnLeft(enemy8, true)

	HogTurnLeft(enemy9, true)

	HogTurnLeft(enemy11, true)

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 onGearAdd(gear)

	if (GetGearType(gear) == gtHedgehog) and (GetHogTeamName(gear) ~= playerTeamName) then

		SetEffect(gear, heArtillery, 1)

	end

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

	--CRATES

	parachute = SpawnSupplyCrate(1670, 1165, amParachute)

	girder = SpawnSupplyCrate(2101, 1297, amGirder)

	SpawnSupplyCrate(1375, 900, amTeleport)

	SpawnSupplyCrate(1660,1820, amLaserSight)

	SpawnSupplyCrate(4070,1840, amLaserSight)

	portalgun = SpawnSupplyCrate(505, 1943, amPortalGun, 1000)

	extratime = SpawnSupplyCrate(4020, 785, amExtraTime, 2)

	SpawnSupplyCrate(425, 613, amSnowball)

	SpawnSupplyCrate(861, 633, amHellishBomb)

	SpawnSupplyCrate(2510, 623, amSnowball)

	SpawnSupplyCrate(2900, 1600, amGrenade)

	SpawnSupplyCrate(2680, 320, amGrenade)

	SpawnSupplyCrate(2650, 80, amDEagle)

	SpawnSupplyCrate(3000, 100, amDEagle)

	SpawnSupplyCrate(2900, 1400, amRope)

	SpawnSupplyCrate(4025, 1117, amFirePunch)

	SpawnSupplyCrate(3965, 625, amBlowTorch)

	SpawnSupplyCrate(2249, 93, amBlowTorch)

	SpawnSupplyCrate(2181, 829, amBlowTorch)

	SpawnSupplyCrate(1820, 567, amBlowTorch)

	SpawnSupplyCrate(130, 600, amPickHammer)

	--HEALTH CRATE--

	SpawnHealthCrate(2000, 880)

	--GIRDER--

	PlaceGirder(3363, 1323, 4)

	ShowMission (loc("Portal Mind Challenge"), loc("Scenario"),

		loc("Defeat all enemies!") .. "|" ..

		loc("In this mission you have infinite time.") .. "|" ..

		loc("Mines time: 0 seconds"),

		-amPortalGun, 5000)

end

function onNewTurn()

	if (adviceGiven0 == false) then

		adviceGiven0 = true

		HogSay(player, loc("I should get myself a portal device, maybe this crate has one."), SAY_THINK)

	end

end

function onGameTick()

	if (player ~= nil)  then

		if (gearIsInBox(player, 1650, 1907, 200, 60) and (adviceGiven1 == false)) then

			adviceGiven1 = 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

function onGameResult(winningClan)

	if winningClan == GetHogClan(player) then

		SaveMissionVar("Won", "true")

		SendStat(siGameResult, loc("Mission succeeded!"))

	else

		SendStat(siGameResult, loc("Mission failed!"))

	end

end