Jump to content
  • 0

make the rock paper scissor every 1 hour

Boy

Asked by Boy,

 Share

Question

Boy Drops

Boy

Posted
Posted

Hi rAthena

 

I need help. How to edit this script make every 1 hour and if 10 time win will get grand prize.

 

// = Script made by RIKIMARU on rathena.org
// = Profile Link :
// = http://rathena.org/board/user/434-rikimaru/
// = ENJOY THIS SCRIPT!
//===================================================================================
//        //=====//     /==/     /==/          /==/      
//       //     //     /==/     /==/  /=/     /==/         
//      //=====//              /==/  /=/             /==============/     /========/   /==//===/    /==/     /==/
//     //=//////    /==/      /==//=/       /==/    /==/==/==/==/==/     /     /  /   /==/         /==/     /==/
//    // ==        /==/      /==//=/       /==/    /==/  /==/  /==/     ======/  /   /==/         /==/     /==/
//   //   ==      /==/      /==/  /=/     /==/    /==/  /==/  /==/     / /===/  /   /==/         /==/     /==/
//  //     ==    /==/      /==/   /=/    /==/    /==/  /==/  /==/     / /===/  /   /==/         /==/=====/==/
// //       ==  /==/      /==/    /=/   /==/    /==/  /==/  /==/     /========/   /==/         /==///////==/
// ================ rAthena Script ==================================================
// ============== Information =======================================================
// = Rock,Paper,Scissors Game
// = Made by :
// = Rikimaru
//===== Current Version: =============================================== 
//= 1.0
//===== Compatible With: =============================================== 
//= any rAthena SVN
//===== Description: =================================================== 
//= Rock,Paper,Scissors game with a chance of 10 Prizes
//===== Additional Comments: =========================================== 
//= 1.0 Finished Scripting the NPC [Rikimaru]
//====================================================================== 
//= DO NOT REMOVE MY CREDITS AND CLAIM MY WORK AS YOURS 
//======================================================================
prontera,192,154,3	script	Rock,Paper,Scissors	100,{
// ================ Settings ==================================
set .@n$,"^0000FF[ Rock,Paper,Scissors ]^000000";
set .cost,1000;
set .@player1$,"Rock";
set .@player2$,"Paper";
set .@player3$,"Scissors";
// ============== End of Settings =============================
OnMenu:
mes .@n$;
mes "Hello,do you want to play";
mes "some Rounds of Rock,Paper,";
mes "Scissors?It just costs "+.cost+" Zenny.";
next;
switch(select("Yes:Cancel")) {
	case 1:
	mes .@n$;
	if(Zeny < .cost) goto l_nozeny;
	set Zeny, Zeny - .cost;
	mes "Okay,get ready.";
	set $@ran, rand(1,3);
	if ($@ran == 3) set .@npcpick$,"Rock";
	if ($@ran == 2) set .@npcpick$,"Paper";
	if ($@ran == 1) set .@npcpick$,"Scissors";
	next;
	mes .@n$;
	mes "What do you want to use?";
	next;
	switch(select("Rock:Paper:Scissors")) {
		case 1:
		mes .@n$;
		mes "Okay you've picked Rock";
		mes "and I've picked "+.@npcpick$+"!";
		next;
		if(.@npcpick$ == .@player3$) goto l_win;
		if(.@npcpick$ == .@player2$) goto l_loose;
		if(.@npcpick$ == .@player1$) goto l_draw;
		close;
		case 2:
		mes .@n$;
		mes "Okay you've picked Paper";
		mes "and I've picked "+.@npcpick$+"!";
		next;
		if(.@npcpick$ == .@player3$) goto l_loose;
		if(.@npcpick$ == .@player2$) goto l_draw;
		if(.@npcpick$ == .@player1$) goto l_win;
		close;
		case 3:
		mes .@n$;
		mes "Okay you've picked Scissors";
		mes "and I've picked "+.@npcpick$+"!";
		next;
		if(.@npcpick$ == .@player3$) goto l_draw;
		if(.@npcpick$ == .@player2$) goto l_win;
		if(.@npcpick$ == .@player1$) goto l_loose;
		close;
		}
	case 2:
	close;
	}
	l_win:
	mes .@n$;
	mes "Congrats you won!";
	set $@ran2, rand(1,10);
	if ($@ran2 == 10) set @prize,7451 ;
	if ($@ran2 == 9) set @prize,12103;
	if ($@ran2 == 8) set @prize,969;
	if ($@ran2 == 7) set @prize,4001;
	if ($@ran2 == 6) set @prize,909;
	if ($@ran2 == 5) set @prize,501;
	if ($@ran2 == 4) set @prize,502;
	if ($@ran2 == 3) set @prize,503;
	if ($@ran2 == 2) set @prize,504;
	if ($@ran2 == 1) set @prize,505;
	set $@ran3, rand(1,3);
	if ($@ran3 == 3) set @amount,5;
	if ($@ran3 == 2) set @amount,3;
	if ($@ran3 == 1) set @amount,1;
	next;
	mes .@n$;
	mes "Take this Prize!";
	getitem @prize,@amount;
	goto OnMenu;
	close;
	l_loose:
	mes .@n$;
	mes "You lost!Let's play another round!";
	goto OnMenu;
	close;
	l_draw:
	mes .@n$;
	mes "This was a draw,you'll get your money back!";
	mes "but let's play another Round!";
	set Zeny, Zeny + .cost;
	goto OnMenu;
	l_nozeny:
	mes "Hey,are you kidding me?You need more Money!";
	close;
} 

Thanks.

 

 

4 answers to this question

Recommended Posts

  • 1
nanakiwurtz Poring

nanakiwurtz

Posted
Posted 
// = Script made by RIKIMARU on rathena.org
// = Profile Link :
// = http://rathena.org/board/user/434-rikimaru/
// = ENJOY THIS SCRIPT!
//===================================================================================
// //=====// /==/ /==/ /==/
// // // /==/ /==/ /=/ /==/
// //=====// /==/ /=/ /==============/ /========/ /==//===/ /==/ /==/
// //=////// /==/ /==//=/ /==/ /==/==/==/==/==/ / / / /==/ /==/ /==/
// // == /==/ /==//=/ /==/ /==/ /==/ /==/ ======/ / /==/ /==/ /==/
// // == /==/ /==/ /=/ /==/ /==/ /==/ /==/ / /===/ / /==/ /==/ /==/
// // == /==/ /==/ /=/ /==/ /==/ /==/ /==/ / /===/ / /==/ /==/=====/==/
// // == /==/ /==/ /=/ /==/ /==/ /==/ /==/ /========/ /==/ /==///////==/
// ================ rAthena Script ==================================================
// ============== Information =======================================================
// = Rock,Paper,Scissors Game
// = Made by :
// = Rikimaru
//===== Current Version: ===============================================
//= 1.0
//===== Compatible With: ===============================================
//= any rAthena SVN
//===== Description: ===================================================
//= Rock,Paper,Scissors game with a chance of 10 Prizes
//===== Additional Comments: ===========================================
//= 1.0 Finished Scripting the NPC [Rikimaru]
//======================================================================
//= DO NOT REMOVE MY CREDITS AND CLAIM MY WORK AS YOURS
//======================================================================
prontera,192,154,3    script    Rock,Paper,Scissors    100,{
// ================ Settings ==================================
set .@n$,"^0000FF[ Rock,Paper,Scissors ]^000000";
set .cost,1000;
set .@player1$,"Rock";
set .@player2$,"Paper";
set .@player3$,"Scissors";
// ============== End of Settings =============================
OnMenu:
mes .@n$;
set .@delay, gettimetick(2)-rpsgame;
if (.@delay < 3600) {
mes "You have to wait for "+ callfunc("Time2Str",.@delay);
close;
}
mes "Hello,do you want to play";
mes "some Rounds of Rock,Paper,";
mes "Scissors?It just costs "+.cost+" Zenny.";
next;
switch(select("Yes:Cancel")) {
    case 1:
    mes .@n$;
    if(Zeny < .cost) goto l_nozeny;
    set Zeny, Zeny - .cost;
    mes "Okay,get ready.";
    set $@ran, rand(1,3);
    if ($@ran == 3) set .@npcpick$,"Rock";
    if ($@ran == 2) set .@npcpick$,"Paper";
    if ($@ran == 1) set .@npcpick$,"Scissors";
    next;
    mes .@n$;
    mes "What do you want to use?";
    next;
    set rpsgame,gettimetick(2);
    switch(select("Rock:Paper:Scissors")) {
        case 1:
        mes .@n$;
        mes "Okay you've picked Rock";
        mes "and I've picked "+.@npcpick$+"!";
        next;
        if(.@npcpick$ == .@player3$) goto l_win;
        if(.@npcpick$ == .@player2$) goto l_loose;
        if(.@npcpick$ == .@player1$) goto l_draw;
        close;
        case 2:
        mes .@n$;
        mes "Okay you've picked Paper";
        mes "and I've picked "+.@npcpick$+"!";
        next;
        if(.@npcpick$ == .@player3$) goto l_loose;
        if(.@npcpick$ == .@player2$) goto l_draw;
        if(.@npcpick$ == .@player1$) goto l_win;
        close;
        case 3:
        mes .@n$;
        mes "Okay you've picked Scissors";
        mes "and I've picked "+.@npcpick$+"!";
        next;
        if(.@npcpick$ == .@player3$) goto l_draw;
        if(.@npcpick$ == .@player2$) goto l_win;
        if(.@npcpick$ == .@player1$) goto l_loose;
        close;
        }
    case 2:
    close;
    }
    l_win:
    mes .@n$;
    mes "Congrats you won!";
    set rpswin, rpswin+1;
    if (rpswin>=10) {
    set rpswin,0;
    mes "You got the Grand Prize because you have won 10 times in a row!";
    announce ""+strcharinfo(0)+" has won the Grand Prize from Rock Paper Scissors Game!",bc_npc|bc_area;
    getitem 501,10;
    }
    set $@ran2, rand(1,10);
    if ($@ran2 == 10) set @prize,7451 ;
    if ($@ran2 == 9) set @prize,12103;
    if ($@ran2 == 8) set @prize,969;
    if ($@ran2 == 7) set @prize,4001;
    if ($@ran2 == 6) set @prize,909;
    if ($@ran2 == 5) set @prize,501;
    if ($@ran2 == 4) set @prize,502;
    if ($@ran2 == 3) set @prize,503;
    if ($@ran2 == 2) set @prize,504;
    if ($@ran2 == 1) set @prize,505;
    set $@ran3, rand(1,3);
    if ($@ran3 == 3) set @amount,5;
    if ($@ran3 == 2) set @amount,3;
    if ($@ran3 == 1) set @amount,1;
    next;
    mes .@n$;
    mes "Take this Prize!";
    getitem @prize,@amount;
    goto OnMenu;
    close;
    l_loose:
    mes .@n$;
    set rpswin,0;
    mes "You lost!Let's play another round!";
    goto OnMenu;
    close;
    l_draw:
    mes .@n$;
    mes "This was a draw,you'll get your money back!";
    mes "but let's play another Round!";
    set Zeny, Zeny + .cost;
    goto OnMenu;
    l_nozeny:
    mes "Hey,are you kidding me?You need more Money!";
    close;
}

The win count will reset to 0 again if you lose the game  /ok

  • Upvote 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...