Helps with this scripts

Hades03 · June 8, 2013

cmd_in02,181,98,2 script Dicer 57,{
//These variables allow you to set the amount of zeny people can bet
set @betzeny1,500; //500 zeny
set @betzeny2,1000; //1000 zeny
set @betzeny3,2000; //2000 zeny
set @betzeny4,10000; //10000 zeny
//Variable for the number guess zeny bet
set @betnum, 1000; //1000 Zeny

mes "[Dicer]";
mes "Welcome to the Revolution Dice Game.You wanna check your luck with dices?Remember I am the dice expert and rarely someone was able to beat me.";
next;
mes "[Dicer]";
mes "What would you like to do?";
next;
menu "Play",L_play,"Info",L_info,"Go away",L_go;
L_go:
mes "[Dicer]";
mes "Please come again when you are ready.";
close;
L_info:
mes "[Dicer]";
mes "Please choose one of the following options for more informations:";
next;
menu "Main Rules",L_main,"Bets and Wins",L_bet,"Extra Games",L_extra,"Go away",L_go;
L_main:
mes "[Dicer]";
mes "^0080FFRoll A Dice^000000 is a very simple game.The game allows you and the NPC to throw 3 dices.Whoever gets a higher total number wins.";
next;
goto L_info;
L_bet:
mes "[Dicer]";
mes "You have 4 zeny amounts to choose for your bet.If you choose a high bet your win will also be higher,it is that simple.Also various extra games can increase your win.";
next;
mes "[Dicer]";
mes "Example:";
mes "^0080FFBet^000000		 ^0080FFWin^000000";
mes "500	   1000";
mes "1000	 2000";
mes "2000	 4000";
mes "10000   20000";
next;
goto L_info;
L_extra:
mes "[Dicer]";
mes "You can also try increasing your win by playing extra games like guessing your total number at the end of the game.It will cost you an extra amount of zeny but if you guess the number your win will be tripled instead of doubled.";
next;
goto L_info;
  
L_play:
mes "[Dicer]";
mes "Ok,please choose the amount of zeny you want to bet:";
next;
menu ""+@betzeny1+" Zeny",L_zeny1,""+@betzeny2+" Zeny",L_zeny2,""+@betzeny3+" Zeny",L_zeny3,""+@betzeny4+" Zeny",L_zeny4,"Too rich for my blood...",L_go;
L_zeny1:
  if(Zeny < @betzeny1) goto L_nzeny;
  set @bet, @betzeny1;
  goto L_gamea;
L_zeny2:
  if(Zeny < @betzeny2) goto L_nzeny;
  set @bet, @betzeny2;
  goto L_gamea;
L_zeny3:
  if(Zeny < @betzeny3) goto L_nzeny;
  set @bet, @betzeny3;
  goto L_gamea;
L_zeny4:
  if(Zeny < @betzeny4) goto L_nzeny;
  set @bet, @betzeny4;
  goto L_gamea;
L_nzeny:
mes "[Dicer]";
emotion 20;
mes "Sorry but it seems you don't have enough zeny!";
	  close;
L_gamea:
mes "[Dicer]";
mes "Would you like to try to increase your win by trying to guess the number you will get?";
mes "It will cost you another ^0080FF"+@betnum+"^000000 zeny.";
next;
menu "Yes",L_gamec,"No",L_gameb;
L_gamec:
if(Zeny < @betnum + @bet) goto L_nzeny;
mes "[Dicer]";
mes "Please input the number you think you will get (3-18).";
input @numg;
if(@numg<3) message strcharinfo(0),"Number is too low, input again.";
if(@numg>18) message strcharinfo(0),"Number is too high, input again.";
if(@numg<3||@numg>18) goto L_gamec;
set Zeny, Zeny - @betnum;
next;
goto L_gameb;
L_gameb:
set @dea1, rand(1,6);
set @dea2, rand(1,6);
set @dea3, rand(1,6);
set @pla1, rand(1,6);
set @pla2, rand(1,6);
set @pla3, rand(1,6);
set @deatot, @dea1+@dea2+@dea3;
set @platot, @pla1+@pla2+@pla3;
mes "[Dicer]";
mes "I will be the first one to roll the dices,and after that you will throw them.I am feeling lucky today, so you better go away before I take every zeny you have.";
next;
mes "[^0080FFDicer 1st Turn^000000]";
mes "Throwing first dice!";
mes ".....roll.....roll....roll....";
emotion 58;
mes " ";
mes "First throw: ^0080FF"+@dea1+" ^000000";
next;
mes "[^0080FFDicer 2nd Turn^000000]";
mes "Throwing second dice!";
emotion 58;
mes ".....roll.....roll....roll....";
mes " ";
mes "Second throw: ^0080FF"+@dea2+" ^000000";
next;
mes "[^0080FFDicer 3rd Turn^000000]";
mes "Throwing third dice!";
emotion 58;
mes ".....roll.....roll....roll....";
mes " ";
mes "Third throw: ^0080FF"+@dea3+" ^000000";
next;
mes "[Dicer]";
mes "Now it's your turn to throw the dices.I bet you can't get higher numbers then me.";
next;
mes "[^0080FFPlayer 1st Turn^000000]";
mes "Throwing first dice!";
mes ".....roll.....roll....roll....";
emotion 58;
mes " ";
mes "First throw: ^0080FF"+@pla1+" ^000000";
next;
mes "[^0080FFPlayer 2nd Turn^000000]";
mes "Throwing second dice!";
emotion 58;
mes ".....roll.....roll....roll....";
mes " ";
mes "Second throw: ^0080FF"+@pla2+" ^000000";
next;
mes "[^0080FFPlayer 3rd Turn^000000]";
mes "Throwing third dice!";
emotion 58;
mes ".....roll.....roll....roll....";
mes " ";
mes "Third throw: ^0080FF"+@pla3+" ^000000";
next;
	  mes "[Dicer]";
mes "Let's look at our total numbers:";
mes " ";
mes "Dicer Total: ^0080FF"+@deatot+" ^000000.";
mes "Player Total: ^0080FF"+@platot+" ^000000.";
next;
  if (@platot < @deatot) goto L_lose;
if (@platot == @deatot) goto L_again;
if (@platot > @deatot && @platot == @numg) goto L_win2;
if (@platot > @deatot) goto L_win1;
L_lose:
mes "[Dicer]";
set Zeny, Zeny - @bet;
emotion 39;
mes "I got a higher number!!!";
mes "See I told you nobody can beat me!";
mes " ";
mes "You lost ^0080FF"+@bet+"^000000 Zeny.";
next;
goto L_againa;

L_again:
mes "[Dicer]";
emotion 54;
mes "It seems it's a draw.Let's play again.";
next;
goto L_play;
L_win1:
mes "[Dicer]";
set Zeny, Zeny + @bet*2;
set @wona, @bet*2;
emotion 36;
mes "I can't belive I lost. Here take your money.";
mes " ";
mes "You won ^0080FF"+@wona+"^000000 Zeny.";
next;
goto L_againa;
L_win2:
mes "[Dicer]";
set Zeny, Zeny + @bet*3;
set @wonb, @bet*3;
emotion 36;
mes "You even guessed the total number you got.I can't belive I lost. Here is your money.";
mes " ";
mes "You won ^0080FF"+@wonb+"^000000 Zeny.";
next;
goto L_againa;
L_againa:
mes "[Dicer]";
mes "Would you like to play again?";
next;
menu "Yes",L_play,"No",L_go;

}

Can you pls delete the Variable for the number quess zeny bet and change the bet for poring coin ( maximum bet: 10 )

if you bet 10 you will get 20 poring coins.

i want to do if you bet 10 the 10 poring coins will appear and if you win the coins will beack with the prize in dicer i mean 10 + 10 = 20 if you lose your bet will not back hahahahaha ty

gonryun,140,136,5	script	Sex Changer	719,{
mes "Would you like to change your Sex (Female or Male)?";
mes "The Operation would cost 10 Gold Coin.";
next;

if ( select("Yes:No") == 2 )
   close;

if ( countitem(671) < 10 ) {
   mes "You need more Coins.";
   close;
}

delitem 671,10;

mes "Great...";
close2;

changesex;
end;
}

my sex changer is no bug coz i see some sex changer have many lines like sniper bard bla bla its ok my sex change or can some edit it if you see some wrong line and add if will have bug ty ty

Jaburak · June 8, 2013

prontera,140,136,5 script Sex Changer 719,{

mes "Would you like to change your Sex (Female or Male)?";

mes "The Operation would cost 10 Gold Coin.";

if(select("Yes:No")&2) close;

next;

mes "Great...";

mes "Continue?";

if(select("Yes:No")&2 || countitem(671)<10) close;

next;

mes "Here you go!";

delitem 671,10;

changesex;

end;

}

Hades03 · June 8, 2013

Ty. Now the dicer hehehehe.

.

capuche help hahahahaha

Skorm · June 10, 2013

cmd_in02,181,98,2    script    Dicer    57,{
//Variable for the number guess zeny bet
set @betnum, 10; //1000 Coin Bet
set @item, 7539;

mes "[Dicer]";
mes "Welcome to the Revolution Dice Game.You wanna check your luck with dices?Remember I am the dice expert and rarely someone was able to beat me.";
next;
mes "[Dicer]";
mes "What would you like to do?";
next;
menu "Play",L_play,"Info",L_info,"Go away",L_go;

L_go:
    mes "[Dicer]";
    mes "Please come again when you are ready.";
    close;
    
L_info:
    mes "[Dicer]";
    mes "Please choose one of the following options for more informations:";
    next;
    menu "Main Rules",L_main,"Bets and Wins",L_bet,"Extra Games",L_extra,"Go away",L_go;
    
L_main:
    mes "[Dicer]";
    mes "^0080FFRoll A Dice^000000 is a very simple game.The game allows you and the NPC to throw 3 dices.Whoever gets a higher total number wins.";
    next;
    goto L_info;
    
L_bet:
    mes "[Dicer]";
    mes "You have 4 zeny amounts to choose for your bet.If you choose a high bet your win will also be higher,it is that simple.Also various extra games can increase your win.";
    next;
    mes "[Dicer]";
    mes "Example:";
    mes "^0080FFBet^000000         ^0080FFWin^000000";
    mes "5       10";
    mes "10       20";
    next;
    goto L_info;
    
L_extra:
    mes "[Dicer]";
    mes "You can also try increasing your win by playing extra games like guessing your total number at the end of the game.It will cost you an extra amount of zeny but if you guess the number your win will be tripled instead of doubled.";
    next;
    goto L_info;
    
L_play:
    mes "[Dicer]";
    mes "Ok,please choose the amount of zeny you want to bet:";
    mes "( maximum bet: "+@betnum+" )";
    while(!@bet||@bet>@betnum||@bet<0) { input(@bet); if(countitem(@item)<@bet&&@bet<=@betnum) { goto "L_nzeny"; } }
    next;
    menu "Place Bet! ("+@bet+")",L_zeny1,"Too rich for my blood...",L_go;
    
L_zeny1:
    delitem @item,@bet;
    goto L_gamea;
    
L_nzeny:
    mes "[Dicer]";
    emotion 20;
    mes "Sorry but it seems you don't have enough zeny!";
    close;
    
L_gamea:
    mes "[Dicer]";
    mes "Would you like to try to increase your win by trying to guess the number you will get?";
    mes "It will cost you another ^0080FF"+@bet+"^000000 zeny.";
    next;
    menu "Yes",L_gamec,"No",L_gameb;
    
L_gamec:
    if(countitem(@item) < @betnum) goto L_nzeny;
    mes "[Dicer]";
    mes "Please input the number you think you will get (3-18).";
    input @numg;
    if(@numg<3) message strcharinfo(0),"Number is too low, input again.";
    if(@numg>18) message strcharinfo(0),"Number is too high, input again.";
    if(@numg<3||@numg>18) goto L_gamec;
    delitem @item,@betnum;
    //set Zeny, Zeny - @betnum;
    next;

L_gameb:
    set @dea1, rand(1,6);
    set @dea2, rand(1,6);
    set @dea3, rand(1,6);
    set @pla1, rand(1,6);
    set @pla2, rand(1,6);
    set @pla3, rand(1,6);
    set @deatot, @dea1+@dea2+@dea3;
    set @platot, @pla1+@pla2+@pla3;
    mes "[Dicer]";
    mes "I will be the first one to roll the dices,and after that you will throw them.I am feeling lucky today, so you better go away before I take every zeny you have.";
    next;
    mes "[^0080FFDicer 1st Turn^000000]";
    mes "Throwing first dice!";
    mes ".....roll.....roll....roll....";
    emotion 58;
    mes " ";
    mes "First throw: ^0080FF"+@dea1+" ^000000";
    next;
    mes "[^0080FFDicer 2nd Turn^000000]";
    mes "Throwing second dice!";
    emotion 58;
    mes ".....roll.....roll....roll....";
    mes " ";
    mes "Second throw: ^0080FF"+@dea2+" ^000000";
    next;
    mes "[^0080FFDicer 3rd Turn^000000]";
    mes "Throwing third dice!";
    emotion 58;
    mes ".....roll.....roll....roll....";
    mes " ";
    mes "Third throw: ^0080FF"+@dea3+" ^000000";
    next;
    mes "[Dicer]";
    mes "Now it's your turn to throw the dices.I bet you can't get higher numbers then me.";
    next;
    mes "[^0080FFPlayer 1st Turn^000000]";
    mes "Throwing first dice!";
    mes ".....roll.....roll....roll....";
    emotion 58;
    mes " ";
    mes "First throw: ^0080FF"+@pla1+" ^000000";
    next;
    mes "[^0080FFPlayer 2nd Turn^000000]";
    mes "Throwing second dice!";
    emotion 58;
    mes ".....roll.....roll....roll....";
    mes " ";
    mes "Second throw: ^0080FF"+@pla2+" ^000000";
    next;
    mes "[^0080FFPlayer 3rd Turn^000000]";
    mes "Throwing third dice!";
    emotion 58;
    mes ".....roll.....roll....roll....";
    mes " ";
    mes "Third throw: ^0080FF"+@pla3+" ^000000";
    next;
    mes "[Dicer]";
    mes "Let's look at our total numbers:";
    mes " ";
    mes "Dicer Total: ^0080FF"+@deatot+" ^000000.";
    mes "Player Total: ^0080FF"+@platot+" ^000000.";
    next;
    if (@platot < @deatot) goto L_lose;
    if (@platot == @deatot) goto L_again;
    if (@platot > @deatot && @platot == @numg) goto L_win2;
    if (@platot > @deatot) goto L_win1;
    
L_lose:
    mes "[Dicer]";
    emotion 39;
    mes "I got a higher number!!!";
    mes "See I told you nobody can beat me!";
    mes " ";
    mes "You lost ^0080FF"+@bet+"^000000 Zeny.";
    next;
    
L_again:
    mes "[Dicer]";
    emotion 54;
    mes "It seems it's a draw.Let's play again.";
    next;
    goto L_play;
    L_win1:
    mes "[Dicer]";
    getitem @item,@bet*2;
    //set Zeny, Zeny + @bet*2;
    set @wona, @bet*2;
    emotion 36;
    mes "I can't belive I lost. Here take your money.";
    mes " ";
    mes "You won ^0080FF"+@wona+"^000000 Zeny.";
    next;
    goto L_againa;
    
L_win2:
    mes "[Dicer]";
    getitem @item,@bet*3;
    set @wonb, @bet*3;
    emotion 36;
    mes "You even guessed the total number you got.I can't belive I lost. Here is your money.";
    mes " ";
    mes "You won ^0080FF"+@wonb+"^000000 Zeny.";
    next;
    
L_againa:
    mes "[Dicer]";
    mes "Would you like to play again?";
    next;
    menu "Yes",L_play,"No",L_go;
}

Sign In

Helps with this scripts

Question

Hades03

Link to comment

Share on other sites

3 answers to this question

Recommended Posts

Jaburak

Link to comment

Share on other sites

Hades03

Link to comment

Share on other sites

Skorm

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account