prontera,155,181,5 script Sample#vip 4_F_KAFRA1,{
OnTalk:
if ( vip_status(0) ) {
mes "You're VIP.";
}
else {
mes "Buy VIP ?";
.@i = select(
.vip_day[0] + " Days",
.vip_day[1] + " Days",
.vip_day[2] + " Days"
) - 1;
mes "VIP "+.vip_day[.@i]+" Days";
mes "Cost: "+.vip_cashpoint[.@i]+" or "+.vip_pod[.@i]+"x "+getitemname( .pod_id );
if ( select( "Pay by CashPoint","Pay by "+getitemname( .pod_id ) ) == 1 ) {
if ( #CASHPOINTS < .vip_cashpoint[.@i] ) {
mes "Not enough cash point. You got only "+#CASHPOINTS;
}
else {
#CASHPOINTS -= .vip_cashpoint[.@i];
vip_time ( .vip_day[.@i] * 1440 );
}
}
else {
if ( countitem( .pod_id ) < .vip_pod[.@i] ) {
mes "Not enough "+getitemname( .pod_id )+". You got only "+countitem( .pod_id );
}
else {
delitem .pod_id,.vip_pod[.@i];
vip_time ( .vip_day[.@i] * 1440 );
}
}
}
close;
OnCheck:
if (vip_status(0)) {
dispbottom "Expire Time : "+vip_status(3);
}
end;
OnInit:
.pod_id = 7179;
setarray .vip_day,7,14,30;
setarray .vip_cashpoint,4000,7000,10000;
setarray .vip_pod,4000,7000,10000;
bindatcmd("vip", strnpcinfo(3)+"::OnTalk");
bindatcmd("vipstatus", strnpcinfo(3)+"::OnCheck");
end;
}