Christmas CLaus

//Break the Seal Quest by Albert
//Made Oct 06,2010
//Edited July 18 with Percentage - Tested and working
//Edited and Finalized on December 15 for bRO
//Edited for Christmas Event 2014
//Edited by Hrist, Nero, Feen, Phyress

amatsu,97,121,4	script	Mr Claus	718,{

if ( countitem(7557) < 1 ){


	mes "[Mr Claus]";
	mes " Ho! Ho! Ho! Merry Christmas to you "+strcharinfo(0)+" what brings you here?";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "Nothing.. Just passing by.";
	next;
	close;


}


//You can put "//" if you don't want announce.
	mes "["+strcharinfo(0)+"]";
	mes "I bring delightful news to you! But it is in a form of a letter.";
	next;
	mes "[Mr Claus]";
	mes "Jolly Good! Let me see that letter my good man.";
	next;
	//7211 is Item ID and 20 is amount
	delitem 7557,1;
	mes "[Mr Claus]";
	mes "Hmm... Splendid! This is indeed a Christmas Miracle! Here my good man, here is my humble gift for you!";


// This is the reward system..
set .@Random,rand(1,100);
//3%
if( .@Random == 1 ) setarray .@ItemID,8025;

//10%
else if( .@Random < 10 ) setarray .@ItemID,7055;

//20%
else if( .@Random < 30 ) setarray .@ItemID,17506;

//30%
else if( .@Random < 60 ) setarray .@ItemID,17470;

//40%
else if( .@Random <= 100 ) setarray .@ItemID,5434;

//90% - disabled :(
//else if( .@Random < 90 ) setarray .@ItemID,5528,7086,7090;
else end;

set .@Random,rand( getarraysize(.@ItemID) );
if( getarraysize(.@ItemID) )

//getitem v change the 1 to how many items you want to get...
	getitem .@ItemID[.@Random],1;

if( .@ItemID[.@Random])
	announce "Congratulations to "+strcharinfo(0)+" who received " + getitemname(.@ItemID[.@Random]) + " after helping in saving Christmas!",0;
close;
}