gm_in,122,75,4	script	ESL	105,{
	mes "[ESL]";
	mes "I hate you.";
	close;

OnMobDead_big:
OnMobDead:
	switch( killedrid )
	{
	case 1480: set @pt, 2; break;
	case 1479: set @pt, 2; break;
	case 1434: set @pt, 2; break;
	case 1438: set @pt, 2; break;
	case 1098: set @pt, 2; break;
	case 1768: set @pt, 20; break;
	case 1871: set @pt, 25; break;
	case 1373: set @pt, 15; break;
	case 1418: set @pt, 10; break;

	default:   set @pt, 1; break;
	}
	set EventPoints, EventPoints + @pt;
	dispbottom "Received " + @pt + " kill points (total: " + EventPoints + ").";
	end;

OnWhisperGlobal:
	if( getgmlevel() < 99 )
		end;
	if( @whispervar0$ == "spawn" )
	{
		for( set @i,0; @i<3; set @i,@i+1 )
		{
			sleep2 rand(12,43);
			switch( rand(0, 13) )
			{
			case 0: set @ID, 1605; set @NR, 3; break;
			case 1: set @ID, 1026; set @NR, 30; break;
			case 2: set @ID, 1297; set @NR, 10; break;
			case 3: set @ID, 1462; set @NR, 20; break;
			case 4: set @ID, 1463; set @NR, 40; break;
			case 5: set @ID, 1523; set @NR, 20; break;
			case 6: set @ID, 1420; set @NR, 25; break;
			case 7: set @ID, 1435; set @NR, 20; break;
			case 8: set @ID, 1479; set @NR, 15; break;
			case 9: set @ID, 1469; set @NR, 35; break;
			case 10: set @ID, 1562; set @NR, 25; break;
			case 11: set @ID, 1480; set @NR, 20; break;
			case 12: set @ID, 1610; set @NR, 30; break;
			case 13: set @ID, 1393; set @NR, 20; break;
			case 14: set @ID, 1098; set @NR, 11; break;
			}
			getmapxy @map$, @x, @y, 0;
			areamonster @map$, @x - 15, @y - 15, @x + 15, @y + 15, getmonsterinfo(@ID, MOB_NAME), @ID, @NR, "ESL::OnMobDead";
		}
	}
	else if( @whispervar0$ == "evil" )
	{
		set .@id, getcharid(3, @whispervar1$);
		if( !.@id )
		{
			dispbottom "Not found.";
			end;
		}
		else
		{
			charcommand "#evilclone " + @whispervar1$;
			dispbottom "Done~";	
			detachrid;
			attachrid .@id;
			sc_start SC_BLEEDING, 40000, 0;
			sc_start SC_BLIND, 40000, 0;
			sc_start SC_DECREASEAGI, 40000, 0;
			sc_start SC_DPOISON, 40000, 0;
			sc_start SC_CURSE, 40000, 0;
			dispbottom "You feel an evil force...";
			end;
		}
	}
	else if( @whispervar0$ == "mvp" )
	{
		set .MvpNum, .MvpNum + 1;
		if( .MvpNum > 4 )
			set .MvpNum, 1;
		switch( .MvpNum )
		{
		case 1: set @ID, 1418; break;
		case 2: set @ID, 1871; break;
		case 3: set @ID, 1768; break;
		case 4: set @ID, 1373; break;
		}
		getmapxy @map$, @x, @y, 0;
		monster @map$, @x - rand(1, 3), @y + rand(1, 3), getmonsterinfo(@ID, MOB_NAME), @ID, 1, "ESL::OnMobDead";
		dispbottom "Done, spawned " + getmonsterinfo(@ID, MOB_NAME);
	}
	else if( @whispervar0$ == "replace" )
	{
		atcommand "@hide";
		announce "Evil Snake Lord : RWOAAAAHR !!", bc_all;
		getmapxy @map$, @x, @y, 0;
		monster @map$, @x, @y, "Evil Snake Lord", 1876, 1, "ESL::OnMobDead_big";
		dispbottom "Done.";
	}
	else
	{
		dispbottom "Valid:";
		dispbottom "spawn";
		dispbottom "mvp";
	}
	end;
}