Crafty Chest v2

//warp portal 128 45, 141 150
// warp portal prontera 139 150 ,prt_in 128 43
//effect 47 light torch
prontera,139,150,0  warp    CraftyChest#1   1,1,prt_in,128,43
prt_in,128,45,0 warp    CraftyChest#2   1,1,prontera,141,150
//By Skorm
prt_in,132,29,3 script  Crafty Kreg 407,{
setcell "prt_in",116,41,137,16,cell_shootable,0;
setcell "prt_in",133,32,134,31,cell_walkable,0;
set .npc$, "[Kreg]";
//set @price,50;
//getmapxy(.@map$,.@x,.@y,0);
mes "(^00CC77So far "+$MaxCName$+" is the best at this game with "+$MaxCRound+" Rounds^000000)";
set @price,100000;
mes .npc$;
mes "Hello, Do you want to try your luck at a game of Crafty Chest? But it's not cheap 50k to play.";
//if(getmapusers("force_3-1")!=0) { mes "Room Status: [^FF0000Occupied^000000]"; close; } else
//mes "Room Status: [^0000FFOpen^000000]";
if(getgmlevel()>80){
mes "Oh! Sir thanks for coming what would you like to do?";
if(select("Continue to normal menu:Reset Best At game")-1){
set $MaxCName,"";
set $MaxCRound,0;
mes "Done"; close;
}
}
    switch(select("uhhmm yeah, sure I'll give it a shot.","Nawh this things a scam!","Can you Explain what that is first?","Rewards")) {


    case 1:
        if(Zeny < @price) { mes "Sorry you don't have enough zeny to play this game, it costs 50,000 Zeny to play."; close; end; } else
        set Zeny,Zeny-@price;
        next;
        mes .npc$;
        mes "Ok Just Pick a chest kill it if you win then you'll move on.";
        next;
        set CRound,0;
        warp "prt_in",137,32;
        callfunc "Crafty-chest";
    case 2:
        close;
    case 3:
        mes "Sure It's pretty self explained, you kill a chest, if you pick the right one you win and move on to the next round.";
        close;
    case 4:
        switch(select("1-5:6-9:10+")){
            if(@menu==1){
                for(set .@a,0; .@a<getarraysize(.PrizeR); set .@a,.@a + 1){
                    mes getitemname(.PrizeR[.@a])+",";
                    if(!(.@a%10)) next;
                    if(.@a==(getarraysize(.PrizeR)-1)) close;
                }
            } if(@menu==2){
                for(set .@a,0; .@a<getarraysize(.pos); set .@a,.@a + 1){
                    mes getitemname(.pos[.@a])+",";
                    if(!(.@a%10)) next;
                    if(.@a==(getarraysize(.pos)-1)) close;
                }
            } if(@menu==3){
                for(set .@a,0; .@a<getarraysize(.PrizeRs); set .@a,.@a + 1){
                    mes getitemname(.PrizeRs[.@a])+",";
                    if(!(.@a%10)) next;
                    if(.@a==(getarraysize(.PrizeRs)-1)) close;
                }
            }
        }
    }

OnInit:
setcell "prt_in",116,41,137,16,cell_shootable,0;
setcell "prt_in",133,32,134,31,cell_walkable,0;
end;

OnNPCKillEvent:
    if(getgmlevel()>10) end;
    getmapxy(@map$,.@x,.@y,0);
    if((killedrid==2288) && (@map$ == "prt_in")) {
    if(getequipid(3)!=-1){ warp "prt_in",131,32; mes "Sorry you can't use weapons"; close; end; } else
    if(getequipid(4)!=-1){ warp "prt_in",131,32; mes "Sorry you can't use weapons"; close; end; } else
    setArray .PrizeR[1],
        619, 0, 12016, 1000, 604, 678, 570, 645, 501, 0,
        0, 0, 501, 502, 503, 504, 505, 506, 507, 12116,
        0, 0, 9003, 0, 0, 601, 602, 603, 604, 12114,
        605, 606, 607, 608, 609, 610, 611, 612, 0, 12117;
    setArray .pos[0],2,572,10,21007,11,12208,12,12264,21,13804,22,20465,24,12020,25,12214,39,12115;
    for(set .@a,0; .@a < getarraysize(.pos); set .@a,.@a + 2) {
        set .@val,.@a + 1;
        set .PrizeR[.pos[.@a]],.pos[.@val];
    }
    setArray .PrizeRs[1], 4365, 4441, 4403, 4342, 12103, 512, 4359, 4509, 25539, 4302;
        if(CRound>=10) {
            if(rand(1,20) == 1) { emotion e_grat,0; if(rand(0,1)) { set .@pz,rand(1,10); getitem .PrizeRs[.@pz],1; announce strcharinfo(0)+" made it to Round " + CRound + " in crafty chest and got a ["+getitemname(.PrizeRs[.@pz])+"].",bc_blue;} dispbottom "awesome Round!."; emotion e_omg,1; callfunc "Crafty-chest"; }
            atcommand "@effect 1"; warp "prt_in",131,32; dispbottom "You lose."; set CRound,0; end;
        } if(CRound>=8) {
            if(((CRound>=9)?rand(1,10) == 1:rand(1,3) == 1)) { emotion e_grat,0; getitem .PrizeR[rand(1,40)],CRound; dispbottom "awesome Round!."; emotion e_omg,1; callfunc "Crafty-chest"; }
            atcommand "@effect 1"; warp "prt_in",131,32; dispbottom "You lose."; set CRound,0; end;
        } if(rand(1,2) == 1) { emotion e_grat,0; if(CRound>=3) { getitem .PrizeR[rand(1,40)],CRound; } dispbottom "awesome Round!."; emotion e_omg,1; callfunc "Crafty-chest"; }
            atcommand "@effect 1"; warp "prt_in",131,32; dispbottom "You lose."; set CRound,0; end;
    } else {
        end;
    }
}

function    script  Crafty-chest    {
    unequip 3;
    unequip 4;
    setArray .CraftyR[1],
        1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
        11, 12, 13, 14, 15, 16, 17, 18, 19, 20;
    set CRound,CRound + 1;
    if(CRound>=$MaxCRound) { set $MaxCRound,CRound; set $MaxCName$,""+strcharinfo(0)+""; } else
    killmonsterall "prt_in";
    monster "prt_in",136,34,"Crafty Chest-1",2288,1,"";
    monster "prt_in",136,32,"Crafty Chest-2",2288,1,"";
    if(CRound>=3) { monster "prt_in",136,30,"Crafty Chest-3",2288,1,""; } else
    if(CRound>=8) { monster "prt_in",136,28,"Crafty Chest-4",2288,1,""; } else
    if(CRound==getarraysize(.CraftyR[1])) { warp "prt_in",131,32; } else
    dispbottom "Round "+CRound;
//  atcommand "@localbroadcast Round "+CRound+""+@localbroadcast$;
    mapannounce "prt_in",strcharinfo(0)+" made it to Round " + CRound + "",bc_map | bc_blue;
}


prt_in  mapflag nowarp
prt_in  mapflag nomemo
prt_in  mapflag nosave
prt_in  mapflag noskill
prt_in  mapflag nodrop