//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,17511;
 
//10% 
else if( .@Random < 10 ) setarray .@ItemID,17511;
 
//20%
else if( .@Random < 30 ) setarray .@ItemID,17508;
 
//30%
else if( .@Random < 60 ) setarray .@ItemID,17521;
 
//40%
else if( .@Random <= 100 ) setarray .@ItemID,17521;
 
//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;
}