8th Square:Rock/Paper/Scissors

job_ko,17,40    script  Sight#ko_08 909,2,2,{
mes "Other letters are too small to read. Let's look up close.";
close;
OnTouch:
    mes "There are tiny letters on the sign.";
    next;
M_game:
    mes "Rock-paper-scissors Machine";
    mes "If you win, move to block 15.";
    mes "If it is a draw, roll the dice.";
    mes "If you lose, move to block 0.";
    next;
    mes "Rock! Paper! Scissors!";
    set .@master, rand(1,3);
    next;
    switch(select("Give scissors.:Give rock.:Give paper.")) {
        case 1: set .@player, 1;    break;
        case 2: set .@player, 2;    break;
        case 3: set .@player, 3;    break;
    }

    emotion (9+.@player),1;
    emotion (9+.@master);
    mes "=Game Results=";
    mes "Machine: "+((.@master == 1)?"Scissors":"")+((.@master == 2)?"Rock":"")+((.@master == 3)?"Paper":"")+".";
    mes "You: "+((.@player == 1)?"Scissors":"")+((.@player == 2)?"Rock":"")+((.@player == 3)?"Paper":"")+".";
    if (.@master==.@player) {
        mes "Draw";
        goto M_game;
    } else if ( (.@player==1 && .@master==2) || (.@player==2 && .@master==3) || (.@player==3 && .@master==1) ) {
        mes "You Lose";
        mes "Press Close to move to block 0.";
        close2;
        warp "job_ko",62,16;
    }
        mes "You Win";
        mes "Press Close to move to block 15.";
        close2;
        warp "job_ko",,;
}