/*
Notes for Emistry :

- This script was not originally from AnnieRuru. It was edited by her. But I've forgot who's script is it. Maybe I found it at Script Request/Support at rAthena.
- The problem is :

		* From line 67 ~ 116 is custom headgears and it's rare. Before, I've put 1% for those items. But the problem comes when someone get 1x custom headgears and it's like
		any players will continuously getting the 1% items.
		Example (screen shot) : http://i.imgur.com/mgSlRbT.jpg
		So as for now, I've change it to 0% chance. I'm scared that players will be easily get the rare items.

		* Yes, I've been asking to Annie about this problems and she maybe did some edit. But, after she's gone, the problems still exists.
		Here's the screen shot form her reply about this problem : http://i.imgur.com/vnrCuyE.jpg

*/

// prontera,129,160,5	script	Emma Stone	686,{
prontera,129,160,5	script	Emma Stone	757,{
	// mes "[^FE2EF7Emma Stone^000000]";
	// mes " ";
	// mes "Hello ^0000FF"+strcharinfo(0)+"^000000, would you like to win Legendary Custom in ^9900FFnRO Jackpot^000000?";
	// mes " ";
	// mes "There's a chance for you to win Legendary Custom. But, don't worry if you're not lucky.. yet..";
	// mes "You also had a chance to win other items and for each round if you didn't win any custom or item. You still can get ^58FA5850 x Skull^000000.";
	// next;
	// mes "[^FE2EF7Emma Stone^000000]";
	// mes " ";
	// mes "I also can show you the ^00FFFFTop 20^000000 winners ^9900FFnRO Jackpot^000000.";
	// next;
	menu "Nah.. I wanna play..!",PLAY,"Show me the Top 20",TOP20;

TOP20:
	mes "[^FE2EF7Emma Stone^000000]";
	mes " ";
	for ( .@i = 0; .@i < 20; .@i++ )
		mes $lotti_girl_ladder$[.@i];
	close;

PLAY:
	mes "Okay";
	close2;
	do{
	// mes "[^FE2EF7Emma Stone^000000]";
	// mes " ";
	// mes "It costs ^FF0000"+.Cost[1]+"^000000 x ^FF0000"+getitemname(.Cost[0])+"^000000 to play.";
	// mes " ";
	// mes " ";
	// mes "^FF0000And please remember to check your weight before playing..!!^000000";
	// if ( countitem( .cost[0] ) < .cost[1] ) close;
	// next;
	// if ( select( "Deal me in!:No way..." ) == 2 ) close;
	// mes "[^FE2EF7Emma Stone^000000]";
	// mes " ";
	// mes "Here we go...";
	// mes "...........";
	// mes ".........";
	// mes ".......";
	// progressbar "", 2;
	// delitem .cost[0], .cost[1];
	.@rand = rand(.totalchance);
	.@r = 0;
	while ( ( .@rand = .@rand - getd( ".p"+ .@r +"[0]" ) ) >= 0 ) .@r++;
	.@size = getarraysize( getd(".p"+ .@r ) );
	// for ( .@i = 1; .@i < .@size; .@i += 2 )
		// getitem getd( ".p"+ .@r +"["+ .@i +"]" ), getd( ".p"+ .@r +"["+( .@i +1 )+"]" );
	if ( getd( ".p"+ .@r +"[0]" ) < 50 ){ // announce if below 50% chance
		announce "[Emma Stone]: Congratulations to "+strcharinfo(0)+" for getting "+ .ann$[.@r] +" from nRO Jackpot!", 0;
		.@rare_50_gain++;
	}
	if ( getd( ".p"+ .@r +"[0]" ) == 1 ) { // score the ladder if it is 1% chance
		.@rare_01_gain++;
		// copyarray $lotti_girl_ladder$[1], $lotti_girl_ladder$[0], 19;
		// $lotti_girl_ladder$ = strcharinfo(0) +" gains "+ .ann$[.@r] +" at "+ gettimestr( "%d/%m/%Y %H:%M %p", 21 );
		//$lotti_girl_ladder$ = "^00CC00" + strcharinfo(0) + "^000000 gains ^FF0000" + .ann$[.@r] + "^000000 at ^0000FF" + gettimestr( "%d/%m/%Y %H:%M %p", 21 );
	}
	.@tries++;
	dispbottom "Tries : "+.@tries+" | Rare : ["+.@rare_50_gain+"]  ["+.@rare_01_gain+"] | "+getd( ".p"+ .@r +"[0]" )+"% | Item : "+.ann$[.@r]+" | Time : "+gettimestr( "%d/%m/%Y %H:%M %p", 21 );
	specialeffect2 248;
	// next;
	// mes "[^FE2EF7Emma Stone^000000]";
	// mes " ";
	// mes "Thanks ^0000FF"+strcharinfo(0)+"^000000 for playing ^9900FFnRO Jackpot^000000.";
	// mes " ";
	// mes "See you again..";
	sleep2 1000;
	}while( 1 );
	end;
close;

OnInit:


///////
/*	setarray .p1, 70, 607,25;
	setarray .p2, 70, 13710,1;
	setarray .p3, 40, 5471,1;
	setarray .p4, 40, 5210,1;
	setarray .p5, 40, 5224,1;
	setarray .p6, 50, 2357,1, 2524,1, 2421,1, 2115,1;
	setarray .p7, 25, 2701,1;
	setarray .p8, 5, 2394,1;
	setarray .p9, 30+30+60+60+60+50+75+95, 12214,1; // default ... the chance are added up by 100-n%
	setarray .cost, 7227,300;
	.total = 9;*/
///////

// Format: <%>,<item ID>,<amount>{,...};
	setarray .p1, 1, 30214,1;
	setarray .p2, 1, 30394,1;
	setarray .p3, 1, 30362,1;
	setarray .p4, 1, 30359,1;
	setarray .p5, 1, 30116,1;
	setarray .p6, 1, 30165,1;
	setarray .p7, 1, 30190,1;
	setarray .p8, 1, 30330,1;
	setarray .p9, 1, 30282,1;
	setarray .p10, 1, 30288,1;
	setarray .p11, 1, 30332,1;
	setarray .p12, 1, 5500,1;
	setarray .p13, 1, 18507,1;
	setarray .p14, 1, 30363,1;
	setarray .p15, 1, 30346,1;
	setarray .p16, 1, 30492,1;
	setarray .p17, 1, 30372,1;
	setarray .p18, 1, 30501,1;
	setarray .p19, 1, 30350,1;
	setarray .p20, 1, 30291,1;
	setarray .p21, 1, 30226,1;
	setarray .p22, 1, 30342,1;
	setarray .p23, 1, 30357,1;
	setarray .p24, 1, 30156,1;
	setarray .p25, 1, 30100,1;
	setarray .p26, 1, 20576,1;
	setarray .p27, 1, 30247,1;
	setarray .p28, 1, 30146,1;
	setarray .p29, 1, 30154,1;
	setarray .p30, 1, 30302,1;
	setarray .p31, 15, 30002,1; // Soul Pendant
	setarray .p32, 20, 7087,1; // Breath of Spirit
	setarray .p33, 21, 7562,1; // Ice Scale
	setarray .p34, 70, 30000,40; // Ginseng Box
	setarray .p35, 38, 30581,1; // nRO Coin
	setarray .p36, 51, 9046,1; // Goblin Leader Egg
	setarray .p37, 51, 9028,1; // Hard Rice Cake Egg
	setarray .p38, 51, 9052,1; // Incubus Egg
	setarray .p39, 53, 7086,1; // Emblem of Sun God
	setarray .p40, 74, 1233,3; // Exociser
	setarray .p41, 75, 5808,1; // Dark Bashrillium
	setarray .p42, 75, 7798,4; // Fragment of Darkness
	setarray .p43, 79, 7754,4; // Broken Crown
	setarray .p44, 49, 7539,250; // 250x Poring Coin
	setarray .p45, 19, 7539,500; // 500x Poring Coin
	setarray .p46, 1, 7539,1000; // 1000x Poring Coin
	setarray .p47, 60, 7420, 200; // 200x Skull
	setarray .p48, 51, 7420, 500; // 500x Skull
	setarray .p49, 49, 7420, 700; // 700x Skull
	setarray .p50, 70, 7776, 10; // Gym Pass
	setarray .p51, 61, 13592, 1; // Steamed Scorpion
	setarray .p52, 61, 13604, 1; // Steamed Tongue
	setarray .p53, 61, 13596, 1; // Dragon Breath Cocktail
	setarray .p54, 61, 13578, 1; // Stew of Immortality
	setarray .p55, 61, 13572, 1; // Hwergelmir's Tonic
	setarray .p56, 61, 13574, 1; // Nine Tail Dish
	setarray .p57, 56, 7574, 1; // Freezing Snow Powder
	setarray .p58, 51, 6000, 1; // Ashes of Darkness
	setarray .p59, 51, 12103, 1; // Bloody Branch
	setarray .p60, 1, 30655, 1; //NeutralRO Gift Box
	setarray .p61, 99*30+85+80+79+30+56+40*3+34 +26+25*2+21, 7420,50;
	setarray .Cost[0],7539,50;
	.total = 61;

	freeloop 1;
	.@i = 1;
	while ( .@i <= .total ) {
		.totalchance = .totalchance + getd(".p"+ .@i );
		.@j = 1;
		.@size = getarraysize( getd(".p"+ .@i ) );
		while ( .@j < .@size ) {
			.ann$[.@i] = .ann$[.@i] + getd( ".p"+ .@i +"["+( .@j +1 )+"]" ) +"x "+ getitemname( getd( ".p"+ .@i +"["+ .@j +"]" ) ) +( ( .@j == .@size -2 )? "":"," ); // I think Euphy forgotten to make announcement when configuration has set more than 1 items
			.@j += 2;
		}
		.@i++;
	}
	freeloop 0;

setarray .Name$,"n","R","O"," ","J","A","C","K","P","O","T","!","!","!";
while( 1 ){
	set .Display$,"";
	for( set .i,0; .i < getarraysize( .Name$ ); set .i,.i + 1 ){
		set .Display$,.Display$ + .Name$[.i];
		delwaitingroom;
		waitingroom .Display$,0;
		sleep ( rand( 300 ) );
	}
	sleep 1000;
}
end;
}