viewing paste Unknown #42383 | Text

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
/*    ________________________________________________________
     /                                                        \
     |      | |__  _ __ / \ | |_| |__   ___ _ __   __ _       |
     |      | '_ \| '__/ _ \| __| '_ \ / _ \ '_ \ / _` |      |
     |      | |_) | | / ___ \ |_| | | |  __/ | | | (_| |      |
     |      |_.__/|_|/_/   \_\__|_| |_|\___|_| |_|\__,_|      |
         |                                                        |
     |--------------------------------------------------------|
     | 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 VIP Plus:    [^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 "[^FF0000Voê não possui cash suficiente.^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],.custo[.x];
        bindatcmd("dcartas","Shopping de Cartas::OnCalcDesconto",99,99);
end;
}
 
-       shop    Shop01  -1,503:500
Viewed 525 times, submitted by unknown.