//===== eAthena Script =======================================
//= Rock Scissors Roulette Script
//===== By: ==================================================
//= acky (1.1)
//===== Current Version: =====================================
//= 1.3 [By. Themon]
//===== Compatible With: =====================================
//= Any eAthena Version
//===== Description: =========================================
//= Plays a hybrid Russian Roulette Rock Scissors Paper game.
//===== Additional Comments: =================================
//= 1.3 added cutin, put a price to play the game
//= 1.3 added chance to get good prize if get higher counter
//= 1.3 Fixes by Themon, Added double and triple risk in menu
//= Prizes customisable, Added emotions.
//= 1.2 Fixes by Blackthunder and me [Poki#3]
//
//============================================================

prontera,148,194,4	script	Lucky Soldier	852,{
	
cutin "ein_soldier",2;
	mes "^FF0000Lucky Soldier^000000";
	set $counter,1;
	set $risk,1;
	set $gprice,10000;
	mes "Hey ^0000FF" + strcharinfo(0) + "^000000! Up for Rock Scissors Roulette?";
	next;
	menu "^00FF00Low Risk Mode",PLAY,"^0000FFDouble the Risk",DRISK,"^FF0000Triple Crazy^000000",TRISK,"Explain the rules.",RULES,"Leave",LEAVE;
Mothe:	
	next;
	menu "^00FF00Low Risk Mode",PLAY,"^0000FFDouble the Risk",DRISK,"^FF0000Triple Crazy^000000",TRISK,"Leave",LEAVE;


SAME:
	mes "^FF0000Draw! Again!^000000";
	next;
	goto PLAY;

WIN:
	mes "Oh! Men!, ^0000FFYou Win!^000000";
	emotion 19;
	next;
	goto OPPPULL;

LOSE:
	emotion 18;
	mes "Boo! Yah! ^0000FFYou Lose!^000000";
	next;
	goto YOUPULL;

DRISK:
	set $risk,($risk+1);
	mes "Prize and Risk are Now";
	mes "^0000FFDoubled^000000";
	next;
	goto PLAY;
TRISK:
	set $risk,($risk+2);
	mes "Prize and Risk are Now";
	mes "^FF0000Tripled^000000";
	next;
	goto PLAY;

PLAY:
	set $tprice,($risk * $gprice);
	if (Zeny < $tprice) goto LEAVE;
	mes "Rock... Paper...";
	set @opp,rand (1,3);
	menu "^0000FFROCK!",ROCKs,"^FF0000SCISSORS!",SCISSORS,"^00FF00PAPER!^000000",PAPER;

ROCKs:
  	if (@lastchoice == 1) set @opp,rand (1,3);
  	if (@opp == 1) emotion 11;
  	if (@opp == 2) emotion 10;
  	if (@opp == 3) emotion 12;
  	set @lastchoice,1;
	if (@opp == 1) goto SAME;
	if (@opp == 2) goto WIN;
	if (@opp == 3) goto LOSE;

SCISSORS:
	if (@lastchoice == 2) set @opp,rand (1,2);
  	if (@opp == 1) emotion 11;
  	if (@opp == 2) emotion 10;
  	if (@opp == 3) emotion 12;
  	set @lastchoice,2;
	if (@opp == 1) goto LOSE;
	if (@opp == 2) goto SAME;
	if (@opp == 3) goto WIN;

PAPER:
	if (@lastchoice == 3) set @opp,rand (2,3);
  	if (@opp == 1) emotion 11;
  	if (@opp == 2) emotion 10;
  	if (@opp == 3) emotion 12;
  	set @lastchoice,3;
	if (@opp == 1) goto WIN;
	if (@opp == 2) goto LOSE;
	if (@opp == 3) goto SAME;

YOUPULL:
	if ($counter == 1) goto ONE;
	if ($counter == 2) goto TWO;
	if ($counter == 3) goto THREE;
	if ($counter == 4) goto FOUR;
	if ($counter == 5) goto FIVE;
	if ($counter == 6) goto SIX;

OPPPULL:
	if ($counter == 1) goto ONEa;
	if ($counter == 2) goto TWOa;
	if ($counter == 3) goto THREEa;
	if ($counter == 4) goto FOURa;
	if ($counter == 5) goto FIVEa;
	if ($counter == 6) goto SIXa;

ONE:
	set $counter,2;
	mes "1 of 6";
	set @pull,rand (1,6);
	next;
	if (@pull == 1) goto DIE;
	if (@pull != 1) goto SAFE;

TWO:
	set $counter,3;
	mes "2 of 6";
	set @pull,rand (1,5);
	next;
	if (@pull == 1) goto DIE;
	if (@pull != 1) goto SAFE;

THREE:
	set $counter,4;
	mes "3 of 6";
	set @pull,rand (1,4);
	next;
	if (@pull == 1) goto DIE;
	if (@pull != 1) goto SAFE;

FOUR:
	set $counter,5;
	mes "4 of 6";
	set @pull,rand (1,3);
	next;
	if (@pull == 1) goto DIE;
	if (@pull != 1) goto SAFE;

FIVE:
	set $counter,6;
	mes "5 of 6";
	set @pull,rand (1,2);
	if (@pull == 1) set @pull,rand (1,2);
	next;
	if (@pull == 1) goto DIE;
	if (@pull != 1) goto SAFE;

SIX:
	mes "6 of 6";
	mes "Say your prayers";
	set @pull,1;
	next;
	if (@pull == 1) goto DIE;
	if (@pull != 1) goto SAFE;

ONEa:
	set $counter,2;
	mes "1 of 6";
	set @pull,rand (1,6);
	next;
	if (@pull == 1) goto KILL;
	if (@pull != 1) goto SAFE;

TWOa:
	set $counter,3;
	mes "2 of 6";
	set @pull,rand (1,5);
	next;
	if (@pull == 1) goto KILL;
	if (@pull != 1) goto SAFE;

THREEa:
	set $counter,4;
	mes "3 of 6";
	set @pull,rand (1,4);
	next;
	if (@pull == 1) goto KILL;
	if (@pull != 1) goto SAFE;

FOURa:
	set $counter,5;
	mes "4 of 6";
	set @pull,rand (1,3);
	next;
	if (@pull == 1) goto KILL;
	if (@pull != 1) goto SAFE;

FIVEa:
	set $counter,6;
	mes "5 of 6";
	set @pull,rand (1,2);
	next;
	if (@pull == 1) goto KILL;
	if (@pull != 1) goto SAFE;

SIXa:
	mes "6 of 6";
	mes "Say your prayers";
	set @pull,1;
	next;
	if (@pull == 1) goto KILL;
	if (@pull != 1) goto SAFE;

SAFE:
	emotion 32;
	mes "*^0000FFClick^000000* whew...";
	goto PLAY;

DIE:
	specialeffect2 183;
	emotion 29;
	set Zeny,Zeny-$tprice;
	percentheal -100,-100;
	mes "*^0000FFClick^000000* *^FF0000BANG^000000*";
	mes "You're dead!";
	mes "You Lose ^0000FF"+ $tprice +"^000000 Zeny";
	cutin "",255;
	close2;
	end;


KILL:
	specialeffect 183;
	emotion 28;
	mes "*^0000FFClick^000000* *^FF0000BANG^000000*";
	mes "OWWW @#$%^!! THAT HURT LIKE HELL!!";
	next;
	goto PRIZE;

RULES:
	mes "Ok here are the rules:";
	mes "I have with me a ^FF00006^000000 chamber pistol with ^FF00001^000000 round. First we play ^FF0000Scissors ^00FF00Paper ^0000FFRock^000000. The loser pulls the trigger. The winner is whoever comes out best.";
	mes "Beat me to win a prize.";
	menu "Let me play.",Mothe,"No thanks.",LEAVE;


PRIZE:
	mes "^FF0000Congratulations^000000!";
	mes "^0000FF" + strcharinfo(0) + "^000000";
	close2;
	cutin "",255;
	set @prize,rand (1,($counter * 10));
	if (@prize == 1) goto P1;
	if (@prize == 2) goto P2;
	if (@prize == 3) goto P3;
	if (@prize == 4) goto P4;
	if (@prize == 5) goto P5;
	if (@prize == 6) goto P6;
	if (@prize == 7) goto P7;
	if (@prize == 8) goto P8;
	if (@prize == 9) goto P9;
	if (@prize == 10) goto P10;
	if (@prize == 11) goto P11;
	if (@prize == 12) goto P12;
	if (@prize == 13) goto P13;
	if (@prize == 14) goto P14;
	if (@prize == 15) goto P15;
	if (@prize == 16) goto P16;
	if (@prize == 17) goto P17;
	if (@prize == 18) goto P18;
	if (@prize == 19) goto P19;
	if (@prize == 20) goto P20;
	if (@prize == 21) goto P21;
	if (@prize == 22) goto P22;
	if (@prize == 23) goto P23;
	if (@prize == 24) goto P24;
	if (@prize == 25) goto P25;
	if (@prize == 26) goto P26;
	if (@prize == 27) goto P27;
	if (@prize == 28) goto P28;
	if (@prize == 29) goto P29;
	if (@prize == 30) goto P30;
	if (@prize == 31) goto P31;
	if (@prize == 32) goto P32;
	if (@prize == 33) goto P33;
	if (@prize == 34) goto P34;
	if (@prize == 35) goto P35;
	if (@prize == 36) goto P36;
	if (@prize == 37) goto P37;
	if (@prize == 38) goto P38;
	if (@prize == 39) goto P39;
	if (@prize == 40) goto P40;
	if (@prize == 41) goto P41;
	if (@prize == 42) goto P42;
	if (@prize == 43) goto P43;
	if (@prize == 44) goto P44;
	if (@prize == 45) goto P45;
	if (@prize == 46) goto P46;
	if (@prize == 47) goto P47;
	if (@prize == 48) goto P48;
	if (@prize == 49) goto P49;
	if (@prize == 50) goto P50;
	if (@prize == 51) goto P51;
	if (@prize == 52) goto P52;
	if (@prize == 53) goto P53;
	if (@prize == 54) goto P54;
	if (@prize == 55) goto P55;
	if (@prize == 56) goto P56;
	if (@prize == 57) goto P57;
	if (@prize == 58) goto P58;
	if (@prize == 59) goto P59;
	if (@prize == 60) goto P60;
	
	

P1:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 5);
	mes "^0000FF"+ $Trisk +"^000000x Stat points!";
	set @st,rand(6228,6235);
	getitem @st,$Trisk;
	close;

P2:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 10);
	mes "^0000FF"+ $Trisk +"^000000x Stat points!";
	set @st,rand(6228,6235);
	getitem @st,$Trisk;
	close;

P3:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 15);
	mes "^0000FF"+ $Trisk +"^000000x Stat points!";
	set @st,rand(6228,6235);
	getitem @st,$Trisk;
	close;

P4:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 20);
	mes "^0000FF"+ $Trisk +"^000000x Stat points!";
	set @st,rand(6228,6235);
	getitem @st,$Trisk;
	close;

P5:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 2);
	mes "^0000FF"+ $Trisk +"^000000x Old Violet Box!";
	getitem 617,$Trisk;
	close;

P6:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x Old Card Album!";
	getitem 616,$Trisk;
	close;

P7:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 2);
	mes "^0000FF"+ $Trisk +"^000000x Garnet!";
	getitem 718,$Trisk;
	close;
P8:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 2);
	mes "^0000FF"+ $Trisk +"^000000x Amethyst!";
	getitem 719,$Trisk;
	close;


P9:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 3);
	mes "^0000FF"+ $Trisk +"^000000x Aquamarine!";
	getitem 720,$Trisk;
	close;
P10:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x Frozen Rose!";
	getitem 749,$Trisk;
	close;

P11:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 3);
	mes "^0000FF"+ $Trisk +"^000000x Emerald";
	getitem 721,$Trisk;
	close;
P12:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 3);
	mes "^0000FF"+ $Trisk +"^000000x Pearl!";
	getitem 722,$Trisk;
	close;

P13:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 3);
	mes "^0000FF"+ $Trisk +"^000000x Ruby!";
	getitem 723,$Trisk;
	close;

P14:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x Baphomet Doll!";
	getitem 750,$Trisk;
	close;

P15:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x Osiris Doll!";
	getitem 751,$Trisk;
	close;

P16:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 3);
	mes "^0000FF"+ $Trisk +"^000000x Sardonyx!";
	getitem 725,$Trisk;
	close;

P17:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 3);
	mes "^0000FF"+ $Trisk +"^000000x Sapphire!";
	getitem 726,$Trisk;
	close;

P18:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 3);
	mes "^0000FF"+ $Trisk +"^000000x Opal!";
	getitem 727,$Trisk;
	close;

P19:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 3);
	mes "^0000FF"+ $Trisk +"^000000x Topaz!";
	getitem 728,$Trisk;
	close;

P20:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x Witherless Rose!";
	getitem 748,$Trisk;
	close;

P21:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 3);
	mes "^0000FF"+ $Trisk +"^000000x Zircon!";
	getitem 729,$Trisk;
	close;

P22:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 2);
	mes "^0000FF"+ $Trisk +"^000000x 1carat Diamond!";
	getitem 730,$Trisk;
	close;

P23:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x 2carat Diamond!";
	getitem 731,$Trisk;
	close;

P24:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 3);
	mes "^0000FF"+ $Trisk +"^000000x 1carat Diamond!";
	getitem 730,$Trisk;
	close;

P25:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 2);
	mes "^0000FF"+ $Trisk +"^000000x 2carat Diamond!";
	getitem 731,$Trisk;
	close;

P26:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x 3carat Diamond!";
	getitem 732,$Trisk;
	close;

P27:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 2);
	mes "^0000FF"+ $Trisk +"^000000x Crystal Mirror!";
	getitem 747,$Trisk;
	close;

P28:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 25);
	mes "^0000FF"+ $Trisk +"^000000x Stat points!";
	set @st,rand(6228,6235);
	getitem @st,$Trisk;
	close;

P29:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 3);
	mes "^0000FF"+ $Trisk +"^000000x 2carat Diamond!";
	getitem 731,$Trisk;
	close;
P30:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 2);
	mes "^0000FF"+ $Trisk +"^000000x 3carat Diamond!";
	getitem 732,$Trisk;
	close;

P31:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x Anvil!";
	getitem 986,$Trisk;
	close;

P32:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 2);
	mes "^0000FF"+ $Trisk +"^000000x Anvil!";
	getitem 986,$Trisk;
	close;

P33:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x Seed of Life!";
	getitem 7140,$Trisk;
	close;

P34:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 2);
	mes "^0000FF"+ $Trisk +"^000000x Morning Dew of Yggdrasil!";
	getitem 7141,$Trisk;
	close;


P35:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 3);
	mes "^0000FF"+ $Trisk +"^000000x Morning Dew of Yggdrasil!";
	getitem 7141,$Trisk;
	close;


P36:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 2);
	mes "^0000FF"+ $Trisk +"^000000x Frozen Rose!";
	getitem 749,$Trisk;
	close;

P37:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 4);
	mes "^0000FF"+ $Trisk +"^000000x Crystal Mirror!";
	getitem 747,$Trisk;
	close;


P38:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 4);
	mes "^0000FF"+ $Trisk +"^000000x Baphomet Doll";
	getitem 750,$Trisk;
	close;

P39:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 5);
	mes "^0000FF"+ $Trisk +"^000000x Crystal Mirror!";
	getitem 747,$Trisk;
	close;

P40:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x Four Leaf Clover!";
	getitem 706,$Trisk;
	close;

P41:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 6);
	mes "^0000FF"+ $Trisk +"^000000x Crystal Mirror!";
	getitem 747,$Trisk;
	close;

P42:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 6);
	mes "^0000FF"+ $Trisk +"^000000x Osiris Doll!";
	getitem 751,$Trisk;
	close;

P43:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 7);
	mes "^0000FF"+ $Trisk +"^000000x Osiris Doll!";
	getitem 751,$Trisk;
	close;


P44:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 4);
	mes "^0000FF"+ $Trisk +"^000000x 2carat Diamond!";
	getitem 731,$Trisk;
	close;

P45:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 20);
	mes "^0000FF"+ $Trisk +"^000000x Raccoon Doll!";
	getitem 754,$Trisk;
	close;

P46:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 18);
	mes "^0000FF"+ $Trisk +"^000000x Yoyo Doll!";
	getitem 753,$Trisk;
	close;

P47:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 26);
	mes "^0000FF"+ $Trisk +"^000000x Rocker Doll";
	getitem 752,$Trisk;
	close;

P48:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 30);
	mes "^0000FF"+ $Trisk +"^000000x Stat points!";
	set @st,rand(6228,6235);
	getitem @st,$Trisk;
	close;

P49:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 30);
	mes "^0000FF"+ $Trisk +"^000000x Rocker Doll!";
	getitem 752,$Trisk;
	close;

P50:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 2);
	mes "^0000FF"+ $Trisk +"^000000x Bag of Silver Coins!";
	getitem 676,$Trisk;
	close;


P51:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x Bag of Gold Coins!";
	getitem 670,$Trisk;
	close;

P52:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 2);
	mes "^0000FF"+ $Trisk +"^000000x Ora Ora!";
	getitem 701,$Trisk;
	close;

P53:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 20);
	mes "^0000FF"+ $Trisk +"^000000x Stat points!";
	set @st,rand(6228,6235);
	getitem @st,$Trisk;
	close;

P54:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 12);
	mes "^0000FF"+ $Trisk +"^000000x Gold Coin!";
	getitem 671,$Trisk;
	close;

P55:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 13);
	mes "^0000FF"+ $Trisk +"^000000x Gold Coin!";
	getitem 987,$Trisk;
	close;


P56:	
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x Oridecon Anvil!";
	getitem 671,$Trisk;
	close;

P57:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x Gold!";
	getitem 969,$Trisk;
	close;

P58:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x Bag of Platinum Bullion";
	getitem 7230,$Trisk;
	close;

P59:
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	set $Trisk,($risk * 1);
	mes "^0000FF"+ $Trisk +"^000000x Golden Anvil";
	getitem 988,$Trisk;
	close;

P60:
	set $Trisk,($risk * 1);
	announce " " + strcharinfo(0) + " has won the Jackpot prize of "+ $Trisk +"x Emperium Anvil! ",8;
	mes "You Got prize No. ^0000FF"+ @prize +"^000000";
	mes "^0000FF"+ $Trisk +"^000000x Emperium Anvil";
	getitem 989,$Trisk;
	close;


LEAVE:

	mes "Must Have Atleast ^0000FF"+ $tprice +"^000000 Zeny to Play";
	close2;
	cutin "",255;
	end;

}