path: root/world/map/npc/020-1/rockscissor.txt

//author: Lien
//reviewed by Pjotr Orial and Jenalya
//######################################
//#== NPC [Player]                     #
//# anyone want to do a funny bet      #
//#    ------------------------        #
//# Rock-Paper-Scissors can be playing #
//# I hope that'll make fun            #
//#    ------------------------        #
//######################################

//To enable: sed 's_^// __' -i npc/020-1/rockscissor.txt

// 020-1.gat,74,78,0	script	Gobmel	189,	{
//     //var
//     set @NPC_name$, "[Gobmel]";
//     set @NPC_point, 0;
//     set @PC_point, 0;
//     set @gamblerun, 0;
//     setarray @CHOOSE_PC$, "Scissors", "Paper", "Rock";
//     setarray @CHOSE_ID, 0, 1, 2;
//     //0 : scissors; 1: Paper; 2: Rock;
//     // 0 cut 1 and 1 cover 3 and break 0 ...
//     //var ends

//     mes @NPC_name$;
//     mes "\"Hello " + strcharinfo(0) + "! Do you want to do a little party of Rock-Paper-Scissors and bet some gold?\"";
//     menu
//         "Yes, I want.", L_RPS,
//         "Well, maybe later.", -;
//     close;

// L_RPS:

//     mes @NPC_name$;
//     mes "\"How much money do you want to bet?\"";
//     input @MONEY_BET;
//     if(zeny < @MONEY_BET) goto L_poor;
//     set zeny, zeny - @MONEY_BET;

// L_Start:
//     if(@gamblerun == 3) goto L_finish;
//     //what chose the NPC ?

//     set @CHOOSE_NPCID, rand(2);

//     mes @NPC_name$;
//     mes "[ " + @gamblerun + "/3 ]";
//     mes "\"1... 2... 3...\"";
//     mes "";
//     mes"[chose what sign you do]";
//     mes "";
//     menu
//         @CHOOSE_PC$[0], -,
//         @CHOOSE_PC$[1], -,
//         @CHOOSE_PC$[2], -;

//     set @CHOSEN, @menu -1;
//     mes "Gobmal: " + @CHOOSE_PC$[@CHOOSE_NPCID];
//     mes strcharinfo(0)+" " + strcharinfo(0)+ ": " +@CHOOSE_PC$[@CHOSEN];
//     mes "";
//     if(@CHOSEN == @CHOOSE_NPCID) goto L_Start;
//     if(@CHOSEN == 0 && @CHOOSE_NPCID == 2) goto L_Lost;
//     if(@CHOSEN == 1 && @CHOOSE_NPCID == 0) goto L_Lost;
//     if(@CHOSEN == 2 && @CHOOSE_NPCID == 1) goto L_Lost;
// L_Win:
//     set @PC_point, @PC_point + 1;
//     set @gamblerun, @gamblerun + 1;
//     mes "Oh no! I have lost.";
//     mes "";
//     next;
//     goto L_Start;

// L_poor:
//     mes @NPC_name$;
//     mes "\"Go away from me...\"";
//     close;

// L_Lost:
//     set @NPC_point, @NPC_point + 1;
//     set @gamblerun, @gamblerun + 1;
//     mes "I have won!";
//     mes "";
//     next;
//     goto L_Start;

// L_finish:
//     if(@PC_point > @NPC_point ) goto L_Won;
//     mes @NPC_name$;
//     mes "\"Nice! I have won, give me your gp!\"";
//     close;
// L_Won:
//     mes @NPC_name$;
//     mes "\"Here is my money.\"";
//     set zeny, zeny + @MONEY_BET*2;
//     close;
// }