[vip shop script i help]

I made this script but I want normal users to be able to see the store but not be able to buy how do I modify it?

 

//===== XeroxRO Script =======================================
//= Tienda VIP
//===== Por: XEROX ==========================================
//= Versión: 1.0 ==============================================
prt_in,55,68,3    script    Tienda VIP    757,{
    if (!vip_status(VIP_STATUS_ACTIVE)) {
        mes "Lo siento, solo los usuarios VIP pueden acceder a esta tienda.";
        close;
    }

    mes "[Tienda VIP]";
    mes "Hola Bienvenido a la tienda exclusiva para usuarios VIP. En que puedo ayudarte hoy";

    switch (select("Comprar items:Vender items:Cancelar")) {
    case 1:
        callshop "vip_shop",1;
        end;
    case 2:
        callshop "vip_shop",2;
        end;
    case 3:
        mes "Gracias por visitar nuestra tienda VIP Vuelve pronto";
        close;
    }
}

-    shop    vip_shop    -1,40015:10000,40016:10000,40031:5000,40014:10000,40013:2000000

[I need help with script vip shop]

I made this script but I want normal users to be able to see the store but not be able to buy how do I modify it?

 

//===== XeroxRO Script =======================================
//= Tienda VIP
//===== Por: XEROX ==========================================
//= Versión: 1.0 ==============================================
prt_in,55,68,3    script    Tienda VIP    757,{
    if (!vip_status(VIP_STATUS_ACTIVE)) {
        mes "Lo siento, solo los usuarios VIP pueden acceder a esta tienda.";
        close;
    }

    mes "[Tienda VIP]";
    mes "Hola Bienvenido a la tienda exclusiva para usuarios VIP. En que puedo ayudarte hoy";

    switch (select("Comprar items:Vender items:Cancelar")) {
    case 1:
        callshop "vip_shop",1;
        end;
    case 2:
        callshop "vip_shop",2;
        end;
    case 3:
        mes "Gracias por visitar nuestra tienda VIP Vuelve pronto";
        close;
    }
}

-    shop    vip_shop    -1,40015:10000,40016:10000,40031:5000,40014:10000,40013:2000000

[hola estoy implementando un script para mi servidor podrian ayudarme no se en que estoy fallando]

Quote

prontera,144,387,6    script    poringevent    95,{
OnInit:
setarray .poringMaps, "alberta";
end;

poring_event01:
if(isbegin_quest(100)) end;
setquest 100;
announce "¡El evento de Poring ha comenzado! Encuentra y mata 30 Porings en 3 minutos!",bc_all;
warp "alberta", 119, 213;
sleep2 5000;
for(set [email protected],0; [email protected] < 30; set [email protected],[email protected]+1) {
sleep2 30000;
announce "Quedan "+(30-[email protected])+" Porings por encontrar!",bc_all);
}
end_quest 100;
announce "¡Has encontrado y eliminado 30 Porings en 3 minutos! Encuentra y mata 20 Porings en 2 minutos.",bc_all;
sleep2 5000;
setquest 101;
for(set [email protected],0; [email protected] < 20; set [email protected],[email protected]+1) {
sleep2 20000;
announce "Quedan "+(20-[email protected])+" Porings por encontrar!",bc_all);
}
end_quest 101;
announce "¡Has encontrado y eliminado 20 Porings en 2 minutos! Encuentra 10 Porings en 1 minuto.",bc_all;
sleep2 5000;
setquest 102;
for(set [email protected],0; [email protected] < 10; set [email protected],[email protected]+1) {
sleep2 10000;
announce "Quedan "+(10-[email protected])+" Porings por encontrar!",bc_all);
}
end_quest 102;
announce "¡Has encontrado 10 Porings en 1 minuto! Preparate para enfrentar al jefe Poring en 10 minutos.",bc_all;
sleep2 5000;
setquest 103;
sleep2 540000;
if(isbegin_quest(103)) end;
announce "¡El jefe Poring ha aparecido! Derrota al jefe Poring en menos de 10 minutos!",bc_all;
warp "prt_maze03", 38, 36;
sleep2 5000;
monster "prt_maze03", 38, 36,"Poring", 3001, "poring_event02::OnKill";
end;

poring_event02::OnKill:
if(getarg(3) == 3001) {
end_quest 103;
announce "¡Felicidades! Has derrotado al jefe Poring y has recibido la recompensa de evento.",bc_all;
getitem 40006, 1;
}
end;
}

me podrian ayudar ya que me marca error en la linea 12 siempre

[busco algun diseñador de fluxcp y thor patcher]

hola a todos espero esten bien ando buscando algun usuario dev que desee trabajar conmigo quiero abrir un server pero necesito algunos diseños para poder comenzar busco alguna recomendacion !!!