Iultilizoa systemthatdoes not let theviplvnvoneaccountin the database,it worksdifferently.
ifI wanted to usethe command@govipputinsrcit doeslvcheckingthe database,wanted to know howI changethesrctobecompatible withmy systemvip.
I useSystemvip
prontera,158,201,4 script Porteiro VIP#h2-2::vip 402,{
//Configurações suas:
//
// Level da conta VIP:
//set $levelvip, 1;
//
// Sala VIP:
set @mapa$,"sec_in01";
set @cordx,85;
set @cordy,167;
//
//Nome do npc:
set .namenpc$, "^CD0000[Porteiro VIP]^000000";
//
//Seu site aqui:
set @site$,"www.imperialro.com.br";
//
//Dias VIP:
set $numdia, 86400;
set $numdias, 432000;
set $numdias2, 2592000;
//
//Preços do VIP:
set $iten, 1;
set $item, 1;
set $item2, 1;
//============================================================
if( isPremium() == 1 ) {
mes .namenpc$;
mes "Olá "+strcharinfo(0)+"!";
mes "O que deseja?";
switch(select( "- Sala VIP",
"- Dias restantes de VIP.",
"- Nada não...")){
next;
case 1:
mes .namenpc$;
mes "Quer entrar na sala vip?";
menu "Sim",yes10,"Não",not10;
yes10:
next;
mes .namenpc$;
warp "sec_in01",85,167;
close;
not10:
next;
mes .namenpc$;
mes "OK, até logo.";
close;
case 2:
mes .namenpc$;
mes "Você ainda tem " + callfunc("Time2Str_VIP",#Premium_Tick) + " como VIP.";
mes "Após o termino de seu VIP, recarregue! E ajude o servidor a se manter!";
close;
case 3:
mes .namenpc$;
mes "OK, até logo.";
close;
}
}
mes .namenpc$;
mes "Para obter VIP você tem que ter Ticket VIP.";
mes "Visite ^CD0000"+@site$+"^000000 para obter Ticket VIP!";
mes "Você não é VIP, deseja obter VIP?";
if(select("Sim!:Não.") == 1){
next;
mes .namenpc$;
mes "Temos três formas de pagamentos,";
mes "^FF0000"+$iten+" Ticket = 1 dia.^000000";
mes "^FF0000"+$item+" Ticket = 5 dias.^000000";
mes "^FF0000"+$item2+" Ticket = 30 dias.^000000";
next;
switch(select( ""+$iten+" Ticket = 1 dia.",""+$item+" Ticket = 5 dias.",""+$item2+" Ticket = 30 dias." )){
case 1:
if(countitem(32011) < 1) goto SemItem;
mes .namenpc$;
if( isPremium() == 1 )
mes "Você realmente deseja expandir durabilidade de sua conta VIP?";
else
mes "Você realmente deseja converter sua conta em VIP?";
next;
menu "Sim",-,"Não",not3;
delitem 32011,1;
if( isPremium() == 1 )
set #Premium_Tick, #Premium_Tick +$numdia;
else
set #Premium_Tick, gettimetick(2)+$numdia;
next;
mes .namenpc$;
mes "Dias VIP adicionados!";
close;
not3:
next;
mes .namenpc$;
mes "OK, até logo.";
close;
case 2:
if(countitem(32038) < 1) goto SemItem;
mes .namenpc$;
if( isPremium() == 1 )
mes "Você realmente deseja expandir durabilidade de sua conta VIP?";
else
mes "Você realmente deseja converter sua conta em VIP?";
next;
menu "Sim",-,"Não",not4;
delitem 32038,1;
next;
mes .namenpc$;
mes "Dias VIP adicionados!";
if( isPremium() == 1 )
set #Premium_Tick, #Premium_Tick +$numdias;
else
set #Premium_Tick, gettimetick(2)+$numdias;
close;
not4:
next;
mes .namenpc$;
mes "OK, até logo.";
close;
case 3:
if(countitem(32002) < 1) goto SemItem;
mes .namenpc$;
if( isPremium() == 1 )
mes "Você realmente deseja expandir durabilidade de sua conta VIP?";
else
mes "Você realmente deseja converter sua conta em VIP?";
next;
menu "Sim",-,"Não",not5;
delitem 32002,1;
if( isPremium() == 1 )
set #Premium_Tick, #Premium_Tick +$numdias2;
else
set #Premium_Tick, gettimetick(2)+$numdias2;
next;
mes .namenpc$;
mes "Dias VIP adicionados!";
close;
not5:
next;
mes .namenpc$;
mes "OK, até logo.";
close;
}
}else{
next;
mes .namenpc$;
mes "OK, até logo.";
close;
SemItem:
next;
mes "^CD0000[Porteiro VIP]^000000";
mes "Desculpe, mas você não tem Ticket VIP.";
mes "Visite ^CD0000"+@site$+"^000000 para obter Ticket VIP!";
close;
}
}
- script CASH#L-1 -1,{
OnPCLoginEvent:
if(#CASHPOINTS > 0)
dispbottom "Você tem "+#CASHPOINTS+" Cash.";
}
// *********************************************************************
function script Time2Str_VIP {
set .@Time_Left, getarg(0) - gettimetick(2);
set .@Days, .@Time_Left / 86400;
set .@Time_Left, .@Time_Left - (.@Days * 86400);
set .@Hours, .@Time_Left / 3600;
set .@Time_Left, .@Time_Left - (.@Hours * 3600);
set .@Minutes, .@Time_Left / 60;
set .@Time_Left, .@Time_Left - (.@Minutes * 60);
set .@Time$, "";
if( .@Days >= 0 )
set .@Time$, .@Time$ + .@Days + " dias, ";
//else if( .@Days > 0 || .@Days == 0 )
// set .@Time$, .@Time$ + .@Days + " dia, ";
if( .@Hours > 1 )
set .@Time$, .@Time$ + .@Hours + ":";
else if( .@Hours > 0 )
set .@Time$, .@Time$ + .@Hours + ":";
if( .@Minutes > 1 )
set .@Time$, .@Time$ + .@Minutes + ":";
else if( .@Minutes > 0 )
set .@Time$, .@Time$ + .@Minutes + ":";
if( .@Time_Left > 1 || .@Time_Left == 0 )
set .@Time$, .@Time$ + .@Time_Left + "";
else if( .@Time_Left == 1 )
set .@Time$, .@Time$ + .@Time_Left + "";
return .@Time$;
}
- script VIP#L-1 -1,{
OnPCLoginEvent:
if (isPremium() == 0) end;
dispbottom "Você ainda tem " + callfunc("Time2Str_VIP",#Premium_Tick) + " como VIP.";
dispbottom "Após o termino de seu VIP, recarregue! E ajude o servidor a se manter!";
end;
}
Modificationof mysrc@govip src/map/atcommand.c
I dolikethe changehere to make thecheckaccording tomy systemvip?
/*==========================================
* @govip
* => Teleporta o personagem para a Sala VIP [Heaven]
*------------------------------------------*/
int atcommand_govip(const int fd, struct map_session_data* sd, const char* command, const char* message)
{
nullpo_retr(-1,sd);
if(sd->gmlevel < 1){
clif_displaymessage(fd,"Somente VIPs podem acessar esta sala.");
return -1;
}
pc_setpos(sd, mapindex_name2id("sec_in01"), 85, 167, 3);
return 0;
}
Question
Scofield
I ultilizo a system that does not let the vip lv nv one account in the database, it works differently.
if I wanted to use the command @ govip put in src it does lv checking the database, wanted to know how I change the src to be compatible with my system vip.
I use System vip
Modification of my src @ govip src/map/atcommand.c
I do like the change here to make the check according to my system vip?
Edited by cumbe11Link to comment
Share on other sites
2 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.