//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 by Hrist, Nero, Feen, Phyress

amatsu,97,121,4	script	Mr Claus	718,{
if(#DoneQuest == 1)
        {
        mes "[Mr Claus]";
	mes "Ohoho! Don't be a naughty one or else that will turn into coal.";
        close;
        end;
        }
if ( countitem(7557) < 1 ){


	mes "[Mr Claus]";
	mes " Ho! Ho! Ho! Merry Christmas to you "+strcharinfo(0)+" what brings you here?";
	next;
	mes "+strcharinfor(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.";
	mes "Hmm... Splendid! This is indeed a Christmas Miracle! Here my good man, here is my humble gift for you!";
	next;
	close;

}

//7211 is Item ID and 20 is amount
delitem 7557,1;


//You can put "//" if you don't want announce.
//mes "So you have all the items...and in exchange I will give you a nice reward.";

// 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;
	set #DoneQuest, 1;
if( .@ItemID[.@Random])
	announce "Congratulations to "+strcharinfo(0)+" who received " + getitemname(.@ItemID[.@Random]) + " after helping in saving Christmas!",0;

close;
}