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

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

	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)

	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)

	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)

	SpawnHealthCrate(2000, 780)

	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 (gearIsInBox(player, 1650, 1907, 200, 60) and (adviceGiven == false)) then

			adviceGiven = true

		elseif (gearIsInBox(player, 2960, 790, 200, 60) and (adviceGiven2 == false)) then

			adviceGiven2 = true

	end

end

function onGearDelete(gear)

	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

	if gear == player then

end