H> How to edit Crazy Boris Script

[McNeri]

Hello,

Help me, I want add on Crazy Boriz script:

Please add, Required 1m zeny before start playing Crazy Boris.

Crazy_Boris.txt

[GM Takumirai]

//===== rAthena Script =======================================
//= Rock Scissors Roulette
//===== By: ==================================================
//= acky
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= Plays a hybrid Russian Roulette Rock Scissors Paper game.
//===== Additional Comments: =================================
//= Prizes customizable, Added emotions.
//= 1.2 Fixes by Blackthunder and me [Poki#3]
//============================================================

prontera,157,157,4 script Crazy Boris 85,{

mes "Hey you! Up for Rock Scissors Roulette?";
mes "You have to pay 1,000,000M Zeny.";
next;
mes "Let me check if you have enough Zeny.";
next;
if( Zeny < 1000000 ){
  mes "You don't have enough Zeny.";
 }else{
mes "Do you want to play?";
select("Yes");
set Zeny,Zeny - 1000000;
mes "Crazy Boris";
set @counter,1;
mes "Hey you! Up for Rock Scissors Roulette?";
next;
menu "Let me play.",PLAY,"Explain the rules.",RULES,"Leave",LEAVE;
SAME:
mes "Draw! Again!";
next;
goto PLAY;

WIN:
mes "Damnit, You Win!";
emotion 19;
next;
goto OPPPULL;

LOSE:
emotion 18;
mes "Boorah! You Lose!";
next;
goto YOUPULL;

PLAY:
mes "Rock... Paper...";
set @opp,rand (1,3);
menu "^0000FFROCK!",ROCK,"^FF0000SCISSORS!",SCISSORS,"^00FF00PAPER!^000000",PAPER;

ROCK:
  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;
percentheal -100,-100;
mes "*^0000FFClick^000000* *^FF0000BANG^000000*";
mes "You're dead!";
close;

KILL:
specialeffect 183;
emotion 23;
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.",CONT,"No thanks.",LEAVE;

CONT:
mes "Ok here we go...";
next;
goto PLAY;

PRIZE:
mes "Congratulations! You have won...";
specialeffect2 510;
set @prize,rand (1,31);
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;

P1:
announce "Congratulations to "+strcharinfo(0)+".. You won 10x Oridecon from Crazy Boris! ",0;
getitem 984,10;
close;

P2:
announce "Congratulations to "+strcharinfo(0)+".. You won 10x Elunium from Crazy Boris! ",0;
getitem 985,10;
close;

P3:
announce "Congratulations to "+strcharinfo(0)+".. You won 100x Fly Wings from Crazy Boris! ",0;
getitem 601,100;
close;

P4:
announce "Congratulations to "+strcharinfo(0)+".. You won 8x Old Blue Box from Crazy Boris! ",0;
getitem 603,8;
close;

P5:
announce "Congratulations to "+strcharinfo(0)+".. You won 4x Old Violet Box from Crazy Boris! ",0;
getitem 617,4;
close;

P6:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Old Card Album from Crazy Boris! ",0;
getitem 616,1;
close;

P7:
announce "Congratulations to "+strcharinfo(0)+".. You won 10x Dead Branch from Crazy Boris! ",0;
getitem 604,10;
close;

P8:
announce "Congratulations to "+strcharinfo(0)+".. You won 3x Gold from Crazy Boris! ",0;
getitem 969,3;
close;

P9:
announce "Congratulations to "+strcharinfo(0)+".. You won 10x Elunium from Crazy Boris! ",0;
getitem 985,10;
close;

P10:
announce "Congratulations to "+strcharinfo(0)+".. You won 20x Blue Potion from Crazy Boris! ",0;
getitem 505,20;
close;

P11:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Alucard Sunglasses from Crazy Boris! ",0;
getitem 32048,1;
close;

P12:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x White Glasses from Crazy Boris! ",0;
getitem 32049,1;
close;

P13:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Purple Glasses from Crazy Boris! ",0;
getitem 32050,1;
close;

P14:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Black Glasses from Crazy Boris! ",0;
getitem 32051,1;
close;

P15:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Gold Glasses from Crazy Boris! ",0;
getitem 32052,1;
close;

P16:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Saiyan Ears from Crazy Boris! ",0;
getitem 32053,1;
close;

P17:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Robo Headphones from Crazy Boris! ",0;
getitem 32054,1;
close;

P18:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Rayban from Crazy Boris! ",0;
getitem 32055,1;
close;

P19:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Kankuro Mask from Crazy Boris! ",0;
getitem 32056,1;
close;

P20:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Heart Sunglasses from Crazy Boris! ",0;
getitem 32057,1;
close;

P21:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Face of Death from Crazy Boris! ",0;
getitem 32058,1;
close;

P22:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Chii Ears from Crazy Boris! ",0;
getitem 32059,1;
close;

P23:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Butterfly Pin from Crazy Boris! ",0;
getitem 32060,1;
close;

P24:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Blue Tie from Crazy Boris! ",0;
getitem 32063,1;
close;

P25:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Black Tie from Crazy Boris! ",0;
getitem 32064,1;
close;

P26:
announce "Congratulations to "+strcharinfo(0)+".. You won False Apprentice from Crazy Boris! ",0;
getitem 32066,1;
close;

P27:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x State Alchemist Pocket Watch from Crazy Boris! ",0;
getitem 32067,1;
close;

P28:
announce "Congratulations to "+strcharinfo(0)+".. You won 1x Proof of Donation from Crazy Boris! ",0;
getitem 7179,1;
close;

P29:
announce "Congratulations to "+strcharinfo(0)+".. You won 2x TCG from Crazy Boris! ",0;
getitem 7227,2;
close;

P30:
announce "Congratulations to "+strcharinfo(0)+".. You won 3x Poring Coins from Crazy Boris! ",0;
getitem 7539,3;
close;

P31:
announce "Congratulations to "+strcharinfo(0)+".. You won 4x Silver Coins from Crazy Boris! ",0;
getitem 675,4;
close;

LEAVE:
mes "Pansy.";
close;
}

Edited November 27, 2012 by GM Takumirai