Make Mini Dice script random prize

[madtoyz 2]

prontera,164,172,5	script	Mini Dice	872,{//============================== Settings ============================================set .@dicename$,"[ Dice Master ]";set .cost,"1000000";//CHANGE THIS TO YOUR ZENY COST AMOUNTset .rewardid,7773;//CHANGE THIS TO YOUR REWARDIDset @rewamount,100;//CHANGE THIS TO YOUR REWARD AMOUNT//========================= End of Settings ==========================================OnMenu:mes .@dicename$;mes "Hello " + strcharinfo(0) + " ,do";mes "you want to play a round of dice?";mes "if you want to play you need to ";mes "pay 1.000.000 Zenny every Round.";switch(select("Yes,sure!:No,I'm unlucky!")) {	case 1:	mes .@dicename$;	if(Zeny < .cost) goto l_nozeny;	set Zeny, Zeny - .cost;	mes "Okay we'll start...";	set $@ran, rand(1,6);	if ($@ran == 6) set .@dice1$,"6";	if ($@ran == 5) set .@dice1$,"5";	if ($@ran == 4) set .@dice1$,"4";	if ($@ran == 3) set .@dice1$,"3";	if ($@ran == 2) set .@dice1$,"2";	if ($@ran == 1) set .@dice1$,"1";	set $@ran2, rand(1,6);	if ($@ran2 == 6) set .@dice2$,"6";	if ($@ran2 == 5) set .@dice2$,"5";	if ($@ran2 == 4) set .@dice2$,"4";	if ($@ran2 == 3) set .@dice2$,"3";	if ($@ran2 == 2) set .@dice2$,"2";	if ($@ran2 == 1) set .@dice2$,"1";	next;	mes .@dicename$;	mes "Okay I've got a " + .@dice1$ + ",";	mes "You've got a " + .@dice2$+ " !";	next;	if(.@dice1$ > .@dice2$) goto l_loose;	if(.@dice1$ < .@dice2$) goto l_win;	if(.@dice1$ == .@dice2$) goto l_draw;	close;	case 2:	mes .@dicename$;	mes "Okay bye!";	close;	}	l_nozeny:	mes .@dicename$;	mes "Sorry you need more Zenny!";	close;	l_loose:	mes .@dicename$;	mes "Haha,sorry you lost.";	goto OnMenu;	close;	l_draw:	mes .@dicename$;	mes "Draw,let's play again!";	goto OnMenu;	close;	l_win:	goto OnPrize;	OnPrize:	mes .@dicename$;	mes "Congratulations! You have won...";	mes "Take this as a Prize!";	next;	mes .@dicename$;	getitem .rewardid,@rewamount;	mes "Goodbye!";	close;}

 

Can anyone change the script for random prize around 5items ?

[quesoph 105]

 

 

prontera,164,172,5    script    Mini Dice    872,{OnMenu:    mes .dicename$,"Hello " + strcharinfo(0) + " ,do","you want to play a round of dice?","if you want to play you need to ","pay 1.000.000 Zenny every Round.";if(select("Yes,sure!:No,I'm unlucky!") == 2 ) close;    if(Zeny < .cost) {        mes " ","Sorry you need more Zeny!";        close;    }        set Zeny, Zeny - .cost;        mes " ","Okay we'll start...";        set .@ran, rand(1,6);        if (.@ran == 6) set .@dice1$,"6";        if (.@ran == 5) set .@dice1$,"5";        if (.@ran == 4) set .@dice1$,"4";        if (.@ran == 3) set .@dice1$,"3";        if (.@ran == 2) set .@dice1$,"2";        if (.@ran == 1) set .@dice1$,"1";        set .@ran2, rand(1,6);        if (.@ran2 == 6) set .@dice2$,"6";        if (.@ran2 == 5) set .@dice2$,"5";        if (.@ran2 == 4) set .@dice2$,"4";        if (.@ran2 == 3) set .@dice2$,"3";        if (.@ran2 == 2) set .@dice2$,"2";        if (.@ran2 == 1) set .@dice2$,"1";        next;        mes .dicename$,"Okay I've got a " + .@dice1$ + ",","You've got a " + .@dice2$+ " !";        next;    if(.@dice1$ > .@dice2$) {        mes .dicename$,"Haha,sorry you lost.";    next; goto OnMenu;        close;    }    if(.@dice1$ == .@dice2$) {        mes .dicename$,"Draw,let's play again!"; next; goto OnMenu;        close;    }    if(.@dice1$ < .@dice2$) {        mes .dicename$;        mes "Congratulations! You have won...","Take this as a Prize!";        next;        mes .dicename$,"Goodbye!";        getitem .rewardid[rand(getarraysize(.rewardid))],.rewamount[rand(getarraysize(.rewamount))];        close;    }OnInit:    set .dicename$,"[ ^ff0000Dice Master^000000 ]";    set .cost,"1";//CHANGE THIS TO YOUR ZENY COST AMOUNT    setarray .rewardid[0],7773,501,502,503,504; //CHANGE THIS TO YOUR REWARDID    setarray .rewamount[0],1,2,3,4,5;    //CHANGE THIS TO YOUR REWARD AMOUNT    end;}

 

 

 

forgot to change the getitem part on my first post.

Edited July 28, 2013 by quesoph

[quesoph 105]

See 2nd post.

Edited July 28, 2013 by quesoph

[madtoyz 2]

Can put rewamount random also ?

[jaBote 438]

From which amount to which amount?

 

P.S.: for using that script you'd have to correct a subtle mistake quesoph made on the rewamount var.

[Dice 0]

getitem rand(<min id>, <max id>), <amount>;

[madtoyz 2]

thanks for helping me ..