//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
//Unbroken by redcar, Riotblade, Touhou

alexandria,158,143,1	script	Astral Crane	100,{
if ( countitem(21605) < 1){
	
	mes "[Jack Frost]";
	mes "Ho,ho,hi~~~~fellow spirited adventurer-! I am Jack Frost, many a-call me Jack and I'm reaching out to you, "+strcharinfo(0)+" on this blissfully chilly morning because it has frightfully come to my attention that we cannot start Christmas this year without the Seal of Christmas being broken and to do that I'll need for you to help me gather a list of items and return them to me so I can work my magic.";
	next;
	
	mes "[Jack Frost]";
	mes "For each time the seal is broken, you will be rewarded with a gift chosen randomly from this list.";
	next;

	mes "Cat Ears";
	mes "Chewing Bubblegum";
	mes "Smoking Pipe";
	mes "Flapping Angeling";
	mes "Neko Mimi";
	mes "Diamond Dust";
	mes "Sigrun's Wings";
	mes "Squatting Poring";
	mes "Yellow Ribbon";
	mes "Yellow Bandana";
	mes "Back Scythe";
	mes "Brazil Twin Ribbon";
	mes "Reginrev's Wings";
	mes "Torch Cap";
	mes "Ifrit Ears";
	mes "Lupus";
	mes "Felinus";
	mes "Taurus Shoulder";
	mes "Freya Hat";
	mes "Satanic Bone Helm";
	mes "Kobold Archer Cap";
	mes "Crown of Deceit";
	mes "Helba Hat";
	mes "Ice Wing";
	mes "White Yoko Mimi";
	mes "Brown Yoko Mimi";
	mes "Mischievous Fairy";
	mes "Flandre Wing";
	mes "Golden Wing";
	mes "Obito Goggles";
	mes "Sorin Doll Hat";
	mes "Tanigumi Girl Doll";
	mes "Grand Peco Headdress";
	mes "Power Of Thor";
	mes "bRO Credit";
	mes "Deviling Rucksack";
	mes "Poring Rucksack";
	mes "Arc Angeling Rucksack";
	mes "rainbow octopus";
	mes "Crown Parrots";
	mes "Blank Eyes";
	mes "Pencil in Mouth";
	mes "Tucano Hat";
	mes "Vanilmirth Hat";
	mes "Frog King Hat";
	mes "Red Minstrel Hat";
	mes "Crimson Rose";
	mes "Viking Helm";
	mes "Drake Coat";
	mes "true valk helm";
	mes "Enriched Elunium Box";
	mes "Enriched Oridecon Box";
	mes "Goat Horn";
	mes "Frozen Twin Pompom";
	mes "Cube Mask";
	mes "Upgraded Elephant Hat";
	mes "Octopus Balloon";
	mes "PINK HBD Balloon";
	mes "Blue  HBD Balloon";
	mes "Green HBD Balloon";
	mes "Blowfish Balloon";
	mes "Blue Puppy Balloon";
	mes "Green Puppy Balloon";
	mes "Orange Puppy Balloon";
	mes "Green Fish Balloon";
	next;

//Edit the message if you want..
	mes "[Jack Frost]";
	mes "You must bring me the following items.";
	mes "50x Heroic Emblem(#968)";
	mes "300x Embryo (#7142)";
	mes "250x Rouge(#739)";
	mes "25x Valor Badge(#7829)";
	mes "400x Ogre Tooth(#7002)";
	mes "250x Cheese(#548)";
	mes "200x Piece of Cake(#539)";
	mes "and 20,000,000z";
	close;

}

else {

    mes "EXCELLENT! The Red Queen will be pleased! Your hard work will not be in vain.";
    next;
 
    mes "[Jack Frost]";
    mes "May I have them?"; // change the dialogue
    next;
 
    if(select("No:Yes") == 1)
    {
        mes "[Jack Frost]";
        mes "I'll be here if you change your mind.";
        close;
    }
 
    mes "[Jack Frost]";
    mes "HOLD ON IMA GET YO EVENT PASS!"; //change the dialogue HAHAHA
//7211 is Item ID and 20 is amount
delitem 21605,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);
//1%
if( .@Random == 1 ) setarray .@ItemID,16201,5597,17507,5334,5099,16206,5592;

//10% 
else if( .@Random < 10 ) setarray .@ItemID,5335,5278,5277,17450,5600,5471,5430,5421,16237,16236,16235;

//20%
else if( .@Random < 30 ) setarray .@ItemID,16211,5529,16220,5564,16221,16218,16229,16230,5402,16210,16215,16218;

//30%
else if( .@Random < 60 ) setarray .@ItemID,17506,5342,5526,5476,5495,8015,16203,16205,16204,17477,5417,5102,5574,5538,5289,5528,5435,5548;

//40%
else if( .@Random <= 100 ) setarray .@ItemID,17434,17496,17433,12920,12921,16214,5390,5475,5802,17484,17485,17487,17486,17478,17472,17471,17470,17483;

//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]==7055 )
	announce "A moment of silence for "+strcharinfo(0)+" who received " + getitemname(7055) + " after breaking the Seal of Christmas.",0;

else
	announce "Congratulations to "+strcharinfo(0)+" who received " + getitemname(.@ItemID[.@Random]) + " after breaking the Seal of Christmas!",0;
close;
}

xmas,218,227,0	warp	Xmas2013	2,2,unknown,19,37
unknown	mapflag	nobranch
unknown	mapflag	noicewall