Doubt date vip

[Beret]

How do I make a sql table that puts the user in the vip has.

Example:

Your vip end: 7/12/2012 23:07:13

Edited July 12, 2012 by Beret

[Mystery]

http://rathena.org/board/topic/67140-vipadmin-v11a/

Are you using this?

[Beret]

I'm not using this

prontera sewers .151 .190 .5 Vip Wizard script, 864 {
set @ $ npcNome, "[Wizard vip]";
mes. @ npcNome $;
mes "Welcome" + strcharinfo (0) + ", I am a wizard Ragnaroy VIP.";
mes "I'm here so that you can exchange your reward."
next;
switch (select ("-how to be VIP", "-", "Table of values-go to living donations", "-", "reward Request-See time VIP")) {
case 1:
mes. @ npcNome $;
mes "To be vip is very simple.";
next;
mes. @ npcNome $;
mes "go to an agency of  and make a donation."
mes "information:";
mes "Current Account: ^ 7 ^ 339966 184878-000000";
mes "For: ^ 0000FF test, test, test ^ 000000";
next;
mes. @ npcNome $;
mes "Go in Control Panel inform your donation.";
mes "and wait until it is approved and choose your prize:";
mes "Char-150/50 uploaded.";
mes "-VIP account.";
mes "-and Cash to swap items.";
close;
case 2:
mes. @ npcNome $;
mes "You vera the balance when your reward for approved.";
mes "on every $ 1.00";
mes "you will receive 1 credit in game.";
mes "every 1 credit point can be exchanged for 1,000 Rm Cash.";
next;
mes. @ npcNome $;
mes "You can choose between the values of:";
mes "1,000 RmCash";
mes "5,000 RmCash";
mes "10,000 RmCash";
mes "20,000 RmCash";
mes "40,000 RmCash";
mes "can then be redeemed for items in the luggage of donations";
close;
case 3:
if (getgmlevel () < 1) {
mes. @ npcNome $;
mes "you're not Vip.";
close;
}
close2;
warp "ra_temsky" .45 .130;
end;
case 4:
break;
case 5:
query_sql "SELECT ' diasvip ' FROM ' login ' WHERE ' account_id ' = '" + getcharid (3) + "'", @ vip;
mes. @ npcNome $;
if (!.@ vip) mes "you don't have Vip days.";
else month "you still have ^ 007700" + vip + "^. @ 000000 Vip days.";
close;
}
mes. @ npcNome $;
mes "Select one of the rewards."
next;
switch (select ("-Purchase Rm cash", "-", "Vip Request-Char uploaded 150/50")) {
case 1:
mes. @ npcNome $;
mes "You can choose between the values of:";
mes "1,000 RmCash";
mes "5,000 RmCash";
mes "10,000 RmCash";
mes "20,000 RmCash";
mes "40,000 RmCash";
mes "can then be redeemed for items in the luggage of donations";
next;
mes. @ npcNome $;
mes "how much you would like to acquire?";
next;
select ("-1 credit for 1,000 RmCash," "-5 credits to 5,000 RmCash," "-10 credits for 10,000 RmCash," "-20 credits to 20,000 RmCash," "-40 credits for 40,000 RmCash," "-Leave to after");
if (@ menu == 6) {
mes. @ npcNome $;
mes "Ok back then."
close;
}
CallFunc ("RmCashAdd", @ npcNome, @ $ menu.);
close;
case 2:
query_sql "SELECT ' pointsc ' FROM ' login ' WHERE ' account_id ' = '" + getcharid (3) + "'", @ points;
mes. @ npcNome $;
mes "I would like to swap 5 credits per 30 days VIPs?";
next;
if ((select "Yes", "no") == 2) close;
if (@ points < 5) {
mes. @ npcNome $;
mes "you don't have enough credit.";
close;
}
query_sql ' UPDATE ' login ' SET ' pointsc ' = ' pointsc '-' 5 ' WHERE ' account_id ' = ' "+ getcharid (3) +" ' ";
query_sql ' UPDATE ' login ' SET ' diasvip ' = ' diasvip ' + ' 30 ', ' level ' = ' 1 ' WHERE ' account_id ' = ' "+ getcharid (3) +" ' ";
mes. @ npcNome $;
mes "Congratulations, you acquired 30 days vips.";
mes "Relogue so that the days be validated";
close;
case 3:
//---Set up to 150/50 servers
query_sql "SELECT ' pointsc ' FROM ' login ' WHERE ' account_id ' = '" + getcharid (3) + "'", @ points;
mes. @ npcNome $;
//---If you're already at Lvl.
if ((BaseLevel == 99) & & (JobLevel == 10) || (JobLevel == 50) || (JobLevel = 70)) {
mes "you have this at Manian level for your class.";
close;
}
if ((BaseLevel == 150) & & (JobLevel == 50)) {
mes "you have this at Manian level for your class.";
close;
}
//---5 credits to upar
if (@ points < 5) {
mes "you don't have enough credit.";
close;
}
mes "You was uploaded.";
atcommand failed "@ jlvl 70";
atcommand failed "blvl @ 150";
query_sql ' UPDATE ' login ' SET ' pointsc ' = ' pointsc '-' 5 ' WHERE ' account_id ' = ' "+ getcharid (3) +" ' ";
close;
}
}
function RmCashAdd {script
switch (getarg (0)) {
case 1: setarray. @ RmCash [0] .1 .1000; break;
case 2: setarray. @ .5000 .5 RmCash [0]; break;
case 3: setarray. @ RmCash [0] .10 .10000; break;
case 4: setarray. @ RmCash [0] .20 .20000; break;
case 5: setarray. @ RmCash [0] .40 .40000; break;
}
mes getarg (1);
mes "Have certesa that you would like to convert ^ DD0000" + @ RmCash [0] + "^ ^ credit 000000 007700" + @ RmCash [1] + "^ RmCash 000000";
next;
query_sql "SELECT ' pointsc ' FROM ' login ' WHERE ' account_id ' = '" + getcharid (3) + "'", @ points;
if ((select "Yes, please", "no, thanks") == 2) return;
if (@ points > =. @ RmCash [0]) {
mes getarg (1);
mes "Converted";
query_sql ' UPDATE ' login ' SET ' pointsc ' = ' pointsc '-' "+ @ RmCash [0] +" ' WHERE ' account_id ' = ' "+ getcharid (3) +" ' ";
set # CASHPOINTS, # + CASHPOINTS. @ RmCash [1];
next;
mes getarg (1);
mes "you received" + ^ 0000BB. @ RmCash [1] + "^ 000000 RmCash!";
return;
}
mes getarg (1);
mes "you don't have enough credit";
return;
}
//Shrinker days
-Vip System script # -1, {02
OnClock0001: query_sql ' UPDATE ' login ' SET ' diasvip ' = ' diasvip ' WHERE -1 ' level ' = ' 1 ' "; end;
OnClock0002: query_sql ' UPDATE ' login ' SET ' level ' = ' 0 ' WHERE ' diasvip ' < = ' 0 ' AND ' level ' = ' 1 ' "; end;
end;
}

Edited July 13, 2012 by Beret