/*    ________________________________________________________
     /                                                        \
     |      | |__  _ __ / \ | |_| |__   ___ _ __   __ _       |
     |      | '_ \| '__/ _ \| __| '_ \ / _ \ '_ \ / _` |      |
     |      | |_) | | / ___ \ |_| | | |  __/ | | | (_| |      |
     |      |_.__/|_|/_/   \_\__|_| |_|\___|_| |_|\__,_|      |
     |                                                        |
     |--------------------------------------------------------|
     | Nome do Script: Shoping com desconto                   |
     |--------------------------------------------------------|
     | Criado por: Sephir4                                    |
     |--------------------------------------------------------|
     \________________________________________________________/*/
 
prontera,158,180,5  script  Shopping de Cartas  1_M_SIGNMCNT,{
    query_sql "SELECT `value` FROM `acc_reg_num_db` WHERE `key`='#CASHPOINTS' AND `account_id` = '"+getcharid(3)+"'",.@VCash;   
    mes "[^539dc5Shopping de Cartas^000000]";
    mes "Olá ^FF0000"+strcharinfo(0)+"^000000, Seja bem vindo!";
    mes " ";
    mes "Você atualmente possui ^0000FF"+.@VCash+"^000000 Cash";
    mes " ";
    mes "A Loja está com: ^0000FF"+$dcartas+"%^000000 de descontos para os VIP Plus.";
    close2;
    callshop "Shop01",1;
    npcshopattach "Shop01";
    end;
OnBuyItem:  
    for(set @i,0; @i < getarraysize(.item);set @i,@i+1){
        if(@bought_nameid == .item[@i]){
            mes .n$;
            set @val, @bought_quantity*.custo[@i];
            mes "Valor sem desconto: [^9B30FF"+@val+"^000000] Cash.";
            if(getgroupid() > 2)set @calc, $dcartas*(@val/100); else set @calc, @val;
            mes "Valor com desconto: [^228B22"+(@val-@calc)+"^000000] Cash.";
            mes "Desconto:                [^FF0000"+$dcartas+"%^000000]";
            mes " ";
            mes "Deseja mesmo comprar esse item?";
            if(select("Sim","Não") == 2) close;
            if(#CASHPOINTS >= (@val-@calc)){
                mes "[^00FF00Compra bem sucedida^000000]";
                mes "";
                mes @bought_quantity+"x - "+getitemname(@bought_nameid);
                getitem .item[@i],@bought_quantity;
                set #CASHPOINTS,#CASHPOINTS-(@val-@calc);
                close;
            }
            mes "[^FF0000Cash insuficiente para comprar o item.^000000]";
            close;
        }
    }
    mes "[^FF0000Algo está errado, entre em contato com a equipe de Administração.^000000]";
    close;
end;
 
OnCalcDesconto:
    set $dcartas, .@atcmd_parameters$[0];
    dispbottom "Todos os itens do [Shopping de Cartas] terão um desconto de "+.@atcmd_parameters$[0]+"% para jogadores VIP Plus.";
end;
 
OnInit:
    set .n$,"[^539dc5Shopping de Cartas^000000]";
    npcshopdelitem "Shop01", 503;
    set $dcartas, 0;
    unbindatcmd "dcartas";
    setarray .item[0], 4132,4143,4148,4169,4198,4241,4330,4372,4374,4403,4047,4054,4135,4302,4324,4342,4363,4386,4408,4419,4121,4134,4137,4142,4147,4263,4276,4305,4318,4367,4425,4146,4174,4123,4131,4168,4236,4290,4352,4376,4441,4144,4145,4384,4430,4399,4407,4361,4357,4359,4363,4365,4367,4128;
    setarray .custo[0], 500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500;
    for(set .x,0; .x < getarraysize(.item); set .x,.x+1) npcshopadditem "Shop01", .item[.x],0;
    bindatcmd("dcartas","Shopping de Cartas::OnCalcDesconto",99,99);
end;
}
 
-   shop    Shop01  -1,503:500