// Orginal Topic : http://rathena.org/board/topic/65196-tcg-drainer-very-useful-to-most-of-the-servers-just-like-lotti-girl-in-pro/#entry109922
//
// TO-DO :
//			== NPC Mes will not close. So, players will try again until they click "Cancel"

prontera,104,158,5	script	Emma Stone	757,{
do{
	mes "[Emma Stone]";
	mes " ";
	mes "It costs "+.Cost[1]+"x "+getitemname(.Cost[0])+" to play.";
	if (countitem(.Cost[0]) < .Cost[1]) close;
	next;
	if(select("Deal me in!:No way...")==2) close;
	mes "[Emma Stone]";
	mes "Here we go...";
	progressbar "",2;
	delitem .Cost[0], .Cost[1];
	set .@i, rand(1,.Total);
	if (rand(1,100) > getd(".P"+.@i+"[0]")) {
	  for(set .@j,0; .@j<getarraysize(.Default); set .@j,.@j+2) {
	   getitem .Default[.@j], .Default[.@j+1];
	   if (!.@k[0]) setarray .@k[0], .Default[.@j], .Default[.@j+1]; } }
	else {
	  for(set .@j,1; .@j<getarraysize(getd(".P"+.@i)); set .@j,.@j+2) {
	   getitem getd(".P"+.@i+"["+.@j+"]"), getd(".P"+.@i+"["+(.@j+1)+"]");
	   if (!.@k[0]) setarray .@k[0], getd(".P"+.@i+"["+.@j+"]"), getd(".P"+.@i+"["+(.@j+1)+"]"); } }
		if (getd(".P"+.@i+"[0]")<=10 && .@k[0]!=.Default[0]) announce "Congratulations to "+strcharinfo(0)+" for getting "+.@k[1]+"x "+getitemname(.@k[0])+"!",0; // I'm not sure if this is working [ http://rathena.org/board/topic/65196-tcg-drainer-very-useful-to-most-of-the-servers-just-like-lotti-girl-in-pro/#entry109976 ]

	specialeffect2 248;
	next;
}while( select("Play Again:Cancel") == 1 );
close;

OnInit:
// Format: <%>,<item ID>,<count>{,...};
setarray .P1[0],70,607,25;
setarray .P2[0],70,13710,1;
setarray .P3[0],40,5471,1;
setarray .P4[0],40,5210,1;
setarray .P5[0],40,5224,1;
setarray .P6[0],50,2357,1,2524,1,2421,1,2115,1;
setarray .P7[0],25,2701,1;
setarray .P8[0],5,2394,1;
setarray .Default[0],7420,50;
setarray .Cost[0],7539,50;
set .Total,8;
end;
}