prontera,105,81,5 script VIP Manager 833,{
if(getgmlevel()>=99){
mes "[^0000FFVIP NPC^000000]";
mes "Hello, Master, would you like to proceed with your official duties or view the player menu?";
next;
if(select("Take me to the GM menu!:I'd like to view the player menu.")==1) {
mes "[^0000FFSlave-sama^000000]";
mes "Alright, Master, please entire the characters name that you'd like to edit!";
next;
input(.@character$);
if(!getcharid(0,.@character$)) {
mes "[^0000FFVIP NPC^000000]";
mes "Master, I'm sorry but that character doesn't seem to exist.";
emotion e_sob,0;
close;
}
L_Menu:
mes "[^0000FFVIP NPC^000000]";
mes "So you'd like to modify ^0000FF"+.@character$+"^000000, good choice!";
mes "What would you like to do?";
next;
switch(select("Modify players time.:View players vip status.:I'm leaving!")){
case 1:
mes "[^0000FFVIP NPC^000000]";
mes "Input a positive value in minutes to increase VIP status and a negative value to decrease it.";
mes "Put 0 to return.";
next;
input(.@time);
if(!.@time) goto "L_Menu";
vip_time .@time,.@character$;
mes "[^0000FFVIP NPC^000000]";
mes "VIP time updated!";
next;
goto L_Menu;
case 2:
mes "[^0000FFVIP NPC^000000]";
mes vip_status(1,.@character$)?"^0000FF"+.@character$+" is currently a VIP Member.^000000":"^FF0000"+.@character$+" is not a VIP Member.^000000";
mes .@character$+"'s VIP status will expire on ^FF0000"+vip_status(2,.@character$)+"^000000";
mes .@character$+" has "+vip_status(3,.@character$)+" remaining.";
next;
goto L_Menu;
case 3:
mes "[^0000FFVIP NPC^000000]";
mes "Thank you Master please come again!";
close;
}
}
}
mes "Hello, "+strcharinfo(0)+(vip_status(1)||getgmlevel()>=60?"-sama":"")+", what would you like to do?";
switch (select("Purchase VIP:View VIP Status:Explain")) {
case 1:
mes "[^0000FFVIP NPC^000000]";
mes "Here you can purchase VIP status for a number of days.";
next;
set @menu, select(.purchase$)-1;
if(#CASHPOINTS<.cost[@menu]) {
mes "[^0000FFVIP NPC^000000]";
mes "Look, you only have ^0000FF"+#CASHPOINTS+"^000000 Cash Points, so how about...STOP WASTING MY TIME!";
emotion e_pif,0;
close;
}
mes "[^0000FFVIP NPC^000000]";
mes "You're now an official member of the VIP gang for "+.time[@menu]+" day(s). ^EE82EE<3^000000";
set #CASHPOINTS, #CASHPOINTS-.cost[@menu];
vip_time(.time[@menu]*1440);
emotion e_lv,0;
close;
case 2:
mes "[^0000FFVIP NPC^000000]";
mes vip_status(1)?"^0000FFYou're currently a VIP Member.^000000":"^FF0000You're not a VIP Member.^000000";
mes "Your VIP status will expire on ^FF0000"+vip_status(2)+"^000000";
mes " ";
mes "You have "+vip_status(3)+" remaining.";
mes "(Year - Month - Day - Hour - Mins)";
close;
case 3:
mes "[^0000FFVIP NPC^000000]";
mes "I'm a VIP too, I shouldn't have to explain myself to you!";
close;
}
end;
OnInit:
setarray .time, 1, 3, 7, 15, 30; //Time in days.
setarray .cost, 10, 30, 70, 150, 250; //Cash?
for(set .@a,0; .@a<getarraysize(.time); set .@a,.@a+1)
set .purchase$, .purchase$+.time[.@a]+" day(s) for "+.cost[.@a]+" cash.:";
}
HI, I'm planning to replace #cashpoints with pods as payment for VIP subscription. Any help will be appreciated. Thanks
*codes above not mine*
