-- THE SPECIALISTS

-- original style by mikade

--------------------

-- TODO

--------------------

-- add proper gameflag checking, maybe (so that we can throw in a .cfg and let the users break everything)

--[[

Specialist letters:

  S=[S]oldier

  E=[E]ngineer

  N=[N]inja

  D=[D]emo

  X=Sniper

  H=Saint ([H]oly)

  P=[P]yro

  C=Loon ([C]lown)

]]

local teamRoles = {

	{'S','E','N','D','X','H','P','C'},

	{'S','E','N','D','X','H','P','C'},

	{'S','E','N','D','X','H','P','C'},

	{'S','E','N','D','X','H','P','C'},

	{'S','E','N','D','X','H','P','C'},

	{'S','E','N','D','X','H','P','C'},

	{'S','E','N','D','X','H','P','C'},

	{'S','E','N','D','X','H','P','C'}

};

		if params['t'..i] ~= nil then

			for j = 1, 8 do

				if string.len(params['t'..i]) >= j  then

					teamRoles[i][j] = string.upper(string.sub(params['t'..i],j,j));

				end

			end

		end

	end

	groupIndex = groupIndex + 1

	hogIndex = hogIndex + 1

	if teamRoles[groupIndex][hogIndex] == 'S' then

	elseif teamRoles[groupIndex][hogIndex] == 'E' then

	elseif teamRoles[groupIndex][hogIndex] == 'N' then

	elseif teamRoles[groupIndex][hogIndex] == 'D' then

	elseif teamRoles[groupIndex][hogIndex] == 'X' then

	elseif teamRoles[groupIndex][hogIndex] == 'H' then

		SetAmmo(amLowGravity, 1, 0, 0, 0)

	elseif teamRoles[groupIndex][hogIndex] == 'P' then

	elseif teamRoles[groupIndex][hogIndex] == 'C' then

		currTeam = GetHogTeamName(hhs[i])

		if currTeam == lastTeam then

			z = z + 1

		else

			z = 1

			currTeamIdx = currTeamIdx + 1;

		end

		if teamRoles[currTeamIdx][z] == 'S' then

			SetHogName(hhs[i],loc("Soldier"))

			SetHogHat(hhs[i], "sf_vega")

			SetHealth(hhs[i],200)

		elseif teamRoles[currTeamIdx][z] == 'E' then

			SetHogHat(hhs[i], "Glasses")

			SetHogName(hhs[i],loc("Engineer"))

		elseif teamRoles[currTeamIdx][z] == 'N' then

			SetHogName(hhs[i],loc("Ninja"))

			SetHogHat(hhs[i], "NinjaFull")

			SetHealth(hhs[i],80)

		elseif teamRoles[currTeamIdx][z] == 'D' then

			SetHogName(hhs[i],loc("Demo"))

			SetHogHat(hhs[i], "Skull")

			SetHealth(hhs[i],200)

		elseif teamRoles[currTeamIdx][z] == 'X' then

			SetHogName(hhs[i],loc("Sniper"))

			SetHogHat(hhs[i], "Sniper")

			SetHealth(hhs[i],120)

		elseif teamRoles[currTeamIdx][z] == 'H' then

			SetHogName(hhs[i],loc("Saint"))

			SetHogHat(hhs[i], "angel")

			SetHealth(hhs[i],300)

		elseif teamRoles[currTeamIdx][z] == 'P' then

			SetHogName(hhs[i],loc("Pyro"))

			SetHogHat(hhs[i], "Gasmask")

			SetHealth(hhs[i],150)

		elseif teamRoles[currTeamIdx][z] == 'C' then

			SetHogName(hhs[i],loc("Loon"))

			SetHogHat(hhs[i], "clown")

			SetHealth(hhs[i],100)

		end

		lastTeam = GetHogTeamName(hhs[i])

	ShowMission(

		loc("THE SPECIALISTS"),

		loc("a Hedgewars mini-game"),

		loc("Eliminate the enemy specialists.") .. "|" ..

		" " .. "|" ..

		loc("Game Modifiers: ") .. "|" ..

		loc("Per-Hog Ammo") .. "|" ..

		loc("Weapons Reset") .. "|" ..

		loc("Unlimited Attacks") .. "|" ..

		"", 4, 4000

	)

	if GetGearType(gear) == gtHedgehog then