dice command

[Sergardo]

is there a script @dice 6   you will pick what number not random like /dice

[Emistry]

-	script	atcmd_example	-1,{
OnInit:
	bindatcmd "dice",strnpcinfo(3) + "::OnAtcommand";
	end;
OnAtcommand:
	switch (atoi(.@atcmd_parameters$)) {
		case 1:
			emotion ET_DICE1, getcharid(3);
			break;
		case 2:
			emotion ET_DICE2, getcharid(3);
			break;
		case 3:
			emotion ET_DICE3, getcharid(3);
			break;
		case 4:
			emotion ET_DICE4, getcharid(3);
			break;
		case 5:
			emotion ET_DICE5, getcharid(3);
			break;
		case 6:
			emotion ET_DICE6, getcharid(3);
			break;
		default:
			dispbottom "Invalid. " + .@atcmd_command$ + " <1-6>";
			break;
	}
	end;
}