path: root/npc/003-10/slots.txt

// TMW2 Scripts
// Author:
//    Jesusalva
// Description:
//    Slot Machine for bets

003-10,22,37,0	script	Slot Machine#003-10a	NPC_SLOTMACHINE,{
    function symbol{
        switch (getarg(0)) {
        case 1:
            mesn "%%A";
            break;
        case 2:
            mesn "%%B";
            break;
        case 3:
            mesn "%%C";
            break;
        case 4:
            mesn "%%D";
            break;
        case 5:
            mesn "%%E";
            break;
        case 6:
            mesn "%%F";
            break;
        case 7:
            mesn "7";
            break;
        default:
            mesn "%%@";
            break;
        }
    }

L_Menu:
    mesn;
    mes col("Spin three symbols, and jackpot great rewards!", 9);
    mes col("Just one coin for spin.", 9);
    next;
    menu
        rif(countitem(CasinoCoins) >= 1, l("Spin!")), L_Spin,
        l("Prizes"), L_Info,
        l("Leave"), L_Quit;

L_Info:
    mes "";
    mes col("Prizes:", 9);
    mes col("777: 10 coins.", 9);
    mes col("Three equal: 5 coins.", 9);
    mes col("Two equal: 2 coins.", 9);
    next;
    goto L_Menu;


L_Spin:
    mes col("Spinning...", 9);
    next;
    delitem CasinoCoins, 1;
    .@a=rand(1,5);
    .@b=rand(1,5);
    .@c=rand(1,5);
    symbol(.@a);
    symbol(.@b);
    symbol(.@c);
    next;
    mesn;
    if (.@a == .@b && .@a == .@c && .@a == 7) {
        getitem CasinoCoins, 10;
        mes col("Jackpot! You got ten coins!", 3);
    } else if (.@a == .@b == .@c) {
        getitem CasinoCoins, 5;
        mes col("Congrats! You got five coins!", 3);
    } else if (.@a == .@b || .@a == .@c || .@b == .@c) {
        getitem CasinoCoins, 2;
        mes col("Lucky! You got two coins!", 3);
    } else {
        mes col("It wasn't this time...", 3);
    }
    close;

L_Quit:
    close;

OnInit:
    .sex = G_OTHER;
    .distance = 4;
	tradertype(NST_CUSTOM);

    sellitem WoodenSword, 940;
    sellitem JeansShorts, 820;
	sellitem ElixirOfLife, 150;
    sellitem RedCottonDye, 30;
    sellitem GreenCottonDye, 30;
    sellitem BlueCottonDye, 30;
    end;

OnCountFunds:
	setcurrency(countitem(CasinoCoins));
	end;

OnPayFunds:
	if( countitem(CasinoCoins) < @price )
		end;
	delitem CasinoCoins,@price;
	purchaseok();
	end;


}