Jump to content
  • 0

make the rock paper scissor every 1 hour

Boy

Asked by Boy,

 Share

Question

Boy Drops

Boy

Posted
  • Group:  Members
  • Topic Count:  28
  • Topics Per Day:  0.01
  • Content Count:  134
  • Reputation:   4
  • Joined:  09/28/12
  • Last Seen:  
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.

 

 

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 1
nanakiwurtz Poring

nanakiwurtz

Posted
  • Group:  Members
  • Topic Count:  81
  • Topics Per Day:  0.02
  • Content Count:  1654
  • Reputation:   583
  • Joined:  08/09/12
  • Last Seen:  
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
Link to comment
Share on other sites
Boy Drops

Boy

Posted
  • Group:  Members
  • Topic Count:  28
  • Topics Per Day:  0.01
  • Content Count:  134
  • Reputation:   4
  • Joined:  09/28/12
  • Last Seen:  
  • Author
Posted

@nanakiwurtz

 

Hi

 

Thanks for reply and edit and how can i set this script every 1 hour only can play this event.

Link to comment
Share on other sites
nanakiwurtz Poring

nanakiwurtz

Posted
  • Group:  Members
  • Topic Count:  81
  • Topics Per Day:  0.02
  • Content Count:  1654
  • Reputation:   583
  • Joined:  08/09/12
  • Last Seen:  
Posted

It's already edited, so you can only play every 1 hour + 10 win streak to get the grand prize /no1

Link to comment
Share on other sites
Boy Drops

Boy

Posted
  • Group:  Members
  • Topic Count:  28
  • Topics Per Day:  0.01
  • Content Count:  134
  • Reputation:   4
  • Joined:  09/28/12
  • Last Seen:  
  • Author
Posted

Thanks a lot @nanakiwurtz  /no1 

Link to comment
Share on other sites

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
×
×
  • Create New...