Jump to content
  • 0

Vip Status login

Geralt

Asked by Geralt,

 Share

Question

Geralt Poring

Geralt

Posted
Posted

hello guys how do i put the vip + cash days in a window when the player logs in .. ie information of the vip and cash days

example in picture

 

Script vip

//Adicionar 1 Hora Vip:
function    script    Vip1Hour    {
// Settings: -----------------------------
set .@Time, 1 * 1 * 1 * 60 * 60; // Time in Seconds = 5 weeks, 6 days per week, 24 hours per day, 60 minutes per day, 60 seconds per minute. = 1 month in this sample.
if( isPremium() == 0 )  {
set #Premium_Tick, gettimetick(2) + .@Time; // New Premium Account
dispbottom "Parabéns! Acesso VIP liberado.";
dispbottom "Seu acesso VIP expira em " + callfunc("Time2Str",#Premium_Tick) + ".";
end;
}
// Settings: -----------------------------
if (isPremium() == 1) {
set .@Time, 1 * 1 * 1 * 60 * 60; // Time in Seconds = 5 weeks, 6 days per week, 24 hours per day, 60 minutes per day, 60 seconds per minute. = 1 month in this sample.
set #Premium_Tick, #Premium_Tick + .@Time; // Time Extension
dispbottom "Parabéns!! Acesso VIP extendido por mais 1 hora.";
dispbottom "Seu acesso VIP expira em " + callfunc("Time2Str",#Premium_Tick) + ".";

end;
}

} 

//Adicionar 1 dia Vip:
function    script    Vip1Day    {
// Settings: -----------------------------
set .@Time, 1 * 1 * 24 * 60 * 60; // Time in Seconds = 5 weeks, 6 days per week, 24 hours per day, 60 minutes per day, 60 seconds per minute. = 1 month in this sample.
if( isPremium() == 0 )  {
set #Premium_Tick, gettimetick(2) + .@Time; // New Premium Account
dispbottom "Parabéns! Acesso VIP liberado.";
dispbottom "Seu acesso VIP expira em " + callfunc("Time2Str",#Premium_Tick) + ".";
end;
}
// Settings: -----------------------------
if (isPremium() == 1) {
set .@Time, 1 * 1 * 24 * 60 * 60; // Time in Seconds = 5 weeks, 6 days per week, 24 hours per day, 60 minutes per day, 60 seconds per minute. = 1 month in this sample.
set #Premium_Tick, #Premium_Tick + .@Time; // Time Extension
dispbottom "Parabéns!! Acesso VIP extendido por mais 1 dia.";
dispbottom "Seu acesso VIP expira em " + callfunc("Time2Str",#Premium_Tick) + ".";

end;
}

} 

//Adicionar 30 dias Vip:
function    script    Vip30Day    {
// Settings: -----------------------------
set .@Time, 1 * 1 * 24 * 60 * 60; // Time in Seconds = 5 weeks, 6 days per week, 24 hours per day, 60 minutes per day, 60 seconds per minute. = 1 month in this sample.
if( isPremium() == 0 )  {
set #Premium_Tick, gettimetick(2) + .@Time; // New Premium Account
dispbottom "Parabéns! Acesso VIP liberado.";
dispbottom "Seu acesso VIP expira em " + callfunc("Time2Str",#Premium_Tick) + ".";
end;
}
// Settings: -----------------------------
if (isPremium() == 1) {
set .@Time, 5 * 6 * 24 * 60 * 60; // Time in Seconds = 5 weeks, 6 days per week, 24 hours per day, 60 minutes per day, 60 seconds per minute. = 1 month in this sample.
set #Premium_Tick, #Premium_Tick + .@Time; // Time Extension
dispbottom "Parabéns!! Acesso VIP extendido por mais 30 dias.";
dispbottom "Seu acesso VIP expira em " + callfunc("Time2Str",#Premium_Tick) + ".";

end;
}

}

Sem título336.jpg

5 answers to this question

Recommended Posts

  • 0
noobzter003 Drops

noobzter003

Posted
Posted
18 minutes ago, Scofield said:

hello guys how do i put the vip + cash days in a window when the player logs in .. ie information of the vip and cash days

example in picture

 

Script vip

 

  Reveal hidden contents

 

//Adicionar 1 Hora Vip:
function    script    Vip1Hour    {
// Settings: -----------------------------
set .@Time, 1 * 1 * 1 * 60 * 60; // Time in Seconds = 5 weeks, 6 days per week, 24 hours per day, 60 minutes per day, 60 seconds per minute. = 1 month in this sample.
if( isPremium() == 0 )  {
set #Premium_Tick, gettimetick(2) + .@Time; // New Premium Account
dispbottom "Parabéns! Acesso VIP liberado.";
dispbottom "Seu acesso VIP expira em " + callfunc("Time2Str",#Premium_Tick) + ".";
end;
}
// Settings: -----------------------------
if (isPremium() == 1) {
set .@Time, 1 * 1 * 1 * 60 * 60; // Time in Seconds = 5 weeks, 6 days per week, 24 hours per day, 60 minutes per day, 60 seconds per minute. = 1 month in this sample.
set #Premium_Tick, #Premium_Tick + .@Time; // Time Extension
dispbottom "Parabéns!! Acesso VIP extendido por mais 1 hora.";
dispbottom "Seu acesso VIP expira em " + callfunc("Time2Str",#Premium_Tick) + ".";

end;
}

} 

//Adicionar 1 dia Vip:
function    script    Vip1Day    {
// Settings: -----------------------------
set .@Time, 1 * 1 * 24 * 60 * 60; // Time in Seconds = 5 weeks, 6 days per week, 24 hours per day, 60 minutes per day, 60 seconds per minute. = 1 month in this sample.
if( isPremium() == 0 )  {
set #Premium_Tick, gettimetick(2) + .@Time; // New Premium Account
dispbottom "Parabéns! Acesso VIP liberado.";
dispbottom "Seu acesso VIP expira em " + callfunc("Time2Str",#Premium_Tick) + ".";
end;
}
// Settings: -----------------------------
if (isPremium() == 1) {
set .@Time, 1 * 1 * 24 * 60 * 60; // Time in Seconds = 5 weeks, 6 days per week, 24 hours per day, 60 minutes per day, 60 seconds per minute. = 1 month in this sample.
set #Premium_Tick, #Premium_Tick + .@Time; // Time Extension
dispbottom "Parabéns!! Acesso VIP extendido por mais 1 dia.";
dispbottom "Seu acesso VIP expira em " + callfunc("Time2Str",#Premium_Tick) + ".";

end;
}

} 

//Adicionar 30 dias Vip:
function    script    Vip30Day    {
// Settings: -----------------------------
set .@Time, 1 * 1 * 24 * 60 * 60; // Time in Seconds = 5 weeks, 6 days per week, 24 hours per day, 60 minutes per day, 60 seconds per minute. = 1 month in this sample.
if( isPremium() == 0 )  {
set #Premium_Tick, gettimetick(2) + .@Time; // New Premium Account
dispbottom "Parabéns! Acesso VIP liberado.";
dispbottom "Seu acesso VIP expira em " + callfunc("Time2Str",#Premium_Tick) + ".";
end;
}
// Settings: -----------------------------
if (isPremium() == 1) {
set .@Time, 5 * 6 * 24 * 60 * 60; // Time in Seconds = 5 weeks, 6 days per week, 24 hours per day, 60 minutes per day, 60 seconds per minute. = 1 month in this sample.
set #Premium_Tick, #Premium_Tick + .@Time; // Time Extension
dispbottom "Parabéns!! Acesso VIP extendido por mais 30 dias.";
dispbottom "Seu acesso VIP expira em " + callfunc("Time2Str",#Premium_Tick) + ".";

end;
}

}

 

Sem título336.jpg 

-	script	VIP_STATUSs	-1,{
OnPCLoginEvent:
	if ( vip_status(1) ) {
		//sc_start SC_EXPBOOST,1000*60*60*24,0;
			set .@Timer, vip_status(2);
			dispbottom "You're VIP.";
			dispbottom "=============================================";
			dispbottom "Account Status : VIP Account";
			dispbottom "Account Status : Enable to warp in VIP Central!";
			dispbottom "Account Status : Exp & Job Increase 30%";
			dispbottom "Account Status : Drop Increase 20%";
			dispbottom "Time left : "+ callfunc("Time2Str",.@Timer);
			dispbottom "============================================";
		end;
	}
}

 

123123.png

  • 0
Geralt Poring

Geralt

Posted
  • Author
Posted
4 hours ago, noobzter003 said: 

-	script	VIP_STATUSs	-1,{
OnPCLoginEvent:
	if ( vip_status(1) ) {
		//sc_start SC_EXPBOOST,1000*60*60*24,0;
			set .@Timer, vip_status(2);
			dispbottom "You're VIP.";
			dispbottom "=============================================";
			dispbottom "Account Status : VIP Account";
			dispbottom "Account Status : Enable to warp in VIP Central!";
			dispbottom "Account Status : Exp & Job Increase 30%";
			dispbottom "Account Status : Drop Increase 20%";
			dispbottom "Time left : "+ callfunc("Time2Str",.@Timer);
			dispbottom "============================================";
		end;
	}
}

 

123123.png

did not work

  • 0
Geralt Poring

Geralt

Posted
  • Author
Posted
On 9/8/2019 at 1:10 PM, noobzter003 said:

can you provide the errors?
in my test server its working fine

I changed vip system for this

// ************************************************************
// Sistema Vip eAmod
// ************************************************************

// Players podem usar esse sistema para comprar VIP. .
// Você pode configurar os bônus de experiência,descontos em lojas, e comandos disponiveis apenas para VIP.

// Conta Premium conf/battle configurações ( no eAmod.conf )

//Bônus Extra experiência quando matar mobs. Os valores vão de 0 a 100, em porcentagem. Exemplo 5 = 5%
// premium_bonusexp: 0

// Descontos ao usar os npcs de loja. Os valores vão de 0 a 100, em porcentagem. Exemplo 5 = 5%
// premium_discount: 0

// Drop boost for Premium account users. Value is %, where 5 become 5%.
// The bonus drop increases the normal drop rate just like Bubble Gum does.
// If normal drop is 30% and premium_dropboost is 10. The final drop rate will be 33%, not 40%.
// premium_dropboost: 0

// To give access to @commands to Premium Account users, go to the file /conf/atcommand_athena.conf and add an Extra ,1 to each command setting you want to enable for Premium Users.
// Example
// go: 40,80
// That means, 40 GM level using @go, 80 Gm level using #go
// To enable @go to Premium Account just do this:
// go: 40,80,1

prontera,150,193,4    script    Senhor VIP    952,{
    // Settings: -----------------------------
    set .@Cost, 12000; // Valor de 1 mês VIP
    set .@Time, 5 * 6 * 24 * 60 * 60; // Tempo em segundos = 5 semanas, 6 dias por semana, 24 horas por dia, 60 minutos por dia, 60 segundos por minuto. = 1 mês de conta vip.
    set .@Time$, "1 Mês";
    set @mapa$,"force_1-1"; //Mapa da sala vip
    set @cordx,25;
    set @cordy,24;
    set @site$,"[^0000FF www.HeroBRO.net ^000000]"; //Seu site
    // ---------------------------------------

    mes "^FF1493[ Central Premium ]^000000";
    mes (gettime(3)>= 6&&gettime(3)<= 12?"Bom-dia":(gettime(3)>=13&&gettime(3)<=18?"Boa-tarde":"Boa-noite"))+", ^008aff"+strcharinfo(0)+"^000000 !";
    mes "Eu sou o vendedor de Conta VIP.";
    if( isPremium() == 1 )
    mes "Sua Conta VIP expira em ^FF0000" + callfunc("Time2Str",#Premium_Tick) + "^000000.";
    mes "O que posso fazer por você?";
    next;

    switch( select("^0084ff[ • ]^000000 Entrar na Sala VIP:^0084ff[ • ]^000000 Pagar Conta VIP:^0084ff[ • ]^000000 Sobre a Conta VIP") )
    {
    case 1:
    if( isPremium() == 0 ) {
    mes "^FF1493[ Central Premium ]^000000";
    mes "Para entrar na sala você precisa ser VIP.";
    mes "Visite ^CD0000"+@site$+"^000000 para obter Cash e comprar seu VIP!";
    close;
}
    if( isPremium() == 1 ) {
        warp @mapa$,@cordx,@cordy;
        end;
}
    case 2:
        mes "^FF1493[ Central Premium ]^000000";
        if( isPremium() == 1 )
            mes "Você realmente deseja estender sua conta VIP?";
        else
            mes "Você realmente deseja ter sua conta VIP?";

        mes "O Tempo VIP é de ^FF0000" + .@Time$ + "^000000";
        mes "O Valor é ^FF0000" + .@Cost + "^000000 Cash Points.";
        next;
        if( select("^0084ff[ • ]^000000 Sim:^ff0000[ • ]^000000 Não") == 2 )
        {
            mes "^FF1493[ Central Premium ]^000000";
            mes "Volte quando você mudar de ideia.";
            close;
        }

        if( #CASHPOINTS < .@Cost )
        {
            mes "^FF1493[ Central Premium ]^000000";
            mes "Você não tem Cash Points suficientes.";
            close;
        }

        if( isPremium() == 1 )
            set #Premium_Tick, #Premium_Tick + .@Time; // Extender tempo
        else
            set #Premium_Tick, gettimetick(2) + .@Time; // Nova conta premium
        set #CASHPOINTS, #CASHPOINTS - .@Cost;

        mes "^FF1493[ Central Premium ]^000000";
        mes "Parabéns!!..";
        mes "Lembre-se de que sua Conta VIP expira em ^FF0000" + callfunc("Time2Str",#Premium_Tick) + "^000000.";
        close;

    case 3:    
    
        // Modifique esta mensagem para explicar  a seus usuários sobre a Conta Premium em seu servidor
        // ----------------------------------------------------------------------------------

        mes "^FF1493[ Central Premium ]^000000";
        mes "São 30 dias de pura diversão e facilidades.";
        mes "Os benefícios de ser um VIP são os seguintes:";
        mes "Bônus de 5% a mais na experiência.";
        mes "Sala Premium com vários npcs que facilitam e muito sua vida.";
        mes "Mais de 30 comandos para facilitar ainda mais, para mais informações visite o nosso site, ^0000FF www.HeroBRO.net ^000000";
        close;
    }
}[/soiiler],

the days and hours vip does not appear .. so it is in the image

 

 

 

Sem título.jpg

  • 0
noobzter003 Drops

noobzter003

Posted
Posted
45 minutes ago, Scofield said:

I changed vip system for this

 

  Hide contents

 

// ************************************************************
// Sistema Vip eAmod
// ************************************************************

// Players podem usar esse sistema para comprar VIP. .
// Você pode configurar os bônus de experiência,descontos em lojas, e comandos disponiveis apenas para VIP.

// Conta Premium conf/battle configurações ( no eAmod.conf )

//Bônus Extra experiência quando matar mobs. Os valores vão de 0 a 100, em porcentagem. Exemplo 5 = 5%
// premium_bonusexp: 0

// Descontos ao usar os npcs de loja. Os valores vão de 0 a 100, em porcentagem. Exemplo 5 = 5%
// premium_discount: 0

// Drop boost for Premium account users. Value is %, where 5 become 5%.
// The bonus drop increases the normal drop rate just like Bubble Gum does.
// If normal drop is 30% and premium_dropboost is 10. The final drop rate will be 33%, not 40%.
// premium_dropboost: 0

// To give access to @commands to Premium Account users, go to the file /conf/atcommand_athena.conf and add an Extra ,1 to each command setting you want to enable for Premium Users.
// Example
// go: 40,80
// That means, 40 GM level using @go, 80 Gm level using #go
// To enable @go to Premium Account just do this:
// go: 40,80,1

prontera,150,193,4    script    Senhor VIP    952,{
    // Settings: -----------------------------
    set .@Cost, 12000; // Valor de 1 mês VIP
    set .@Time, 5 * 6 * 24 * 60 * 60; // Tempo em segundos = 5 semanas, 6 dias por semana, 24 horas por dia, 60 minutos por dia, 60 segundos por minuto. = 1 mês de conta vip.
    set .@Time$, "1 Mês";
    set @mapa$,"force_1-1"; //Mapa da sala vip
    set @cordx,25;
    set @cordy,24;
    set @site$,"[^0000FF www.HeroBRO.net ^000000]"; //Seu site
    // ---------------------------------------

    mes "^FF1493[ Central Premium ]^000000";
    mes (gettime(3)>= 6&&gettime(3)<= 12?"Bom-dia":(gettime(3)>=13&&gettime(3)<=18?"Boa-tarde":"Boa-noite"))+", ^008aff"+strcharinfo(0)+"^000000 !";
    mes "Eu sou o vendedor de Conta VIP.";
    if( isPremium() == 1 )
    mes "Sua Conta VIP expira em ^FF0000" + callfunc("Time2Str",#Premium_Tick) + "^000000.";
    mes "O que posso fazer por você?";
    next;

    switch( select("^0084ff[ • ]^000000 Entrar na Sala VIP:^0084ff[ • ]^000000 Pagar Conta VIP:^0084ff[ • ]^000000 Sobre a Conta VIP") )
    {
    case 1:
    if( isPremium() == 0 ) {
    mes "^FF1493[ Central Premium ]^000000";
    mes "Para entrar na sala você precisa ser VIP.";
    mes "Visite ^CD0000"+@site$+"^000000 para obter Cash e comprar seu VIP!";
    close;
}
    if( isPremium() == 1 ) {
        warp @mapa$,@cordx,@cordy;
        end;
}
    case 2:
        mes "^FF1493[ Central Premium ]^000000";
        if( isPremium() == 1 )
            mes "Você realmente deseja estender sua conta VIP?";
        else
            mes "Você realmente deseja ter sua conta VIP?";

        mes "O Tempo VIP é de ^FF0000" + .@Time$ + "^000000";
        mes "O Valor é ^FF0000" + .@Cost + "^000000 Cash Points.";
        next;
        if( select("^0084ff[ • ]^000000 Sim:^ff0000[ • ]^000000 Não") == 2 )
        {
            mes "^FF1493[ Central Premium ]^000000";
            mes "Volte quando você mudar de ideia.";
            close;
        }

        if( #CASHPOINTS < .@Cost )
        {
            mes "^FF1493[ Central Premium ]^000000";
            mes "Você não tem Cash Points suficientes.";
            close;
        }

        if( isPremium() == 1 )
            set #Premium_Tick, #Premium_Tick + .@Time; // Extender tempo
        else
            set #Premium_Tick, gettimetick(2) + .@Time; // Nova conta premium
        set #CASHPOINTS, #CASHPOINTS - .@Cost;

        mes "^FF1493[ Central Premium ]^000000";
        mes "Parabéns!!..";
        mes "Lembre-se de que sua Conta VIP expira em ^FF0000" + callfunc("Time2Str",#Premium_Tick) + "^000000.";
        close;

    case 3:    
    
        // Modifique esta mensagem para explicar  a seus usuários sobre a Conta Premium em seu servidor
        // ----------------------------------------------------------------------------------

        mes "^FF1493[ Central Premium ]^000000";
        mes "São 30 dias de pura diversão e facilidades.";
        mes "Os benefícios de ser um VIP são os seguintes:";
        mes "Bônus de 5% a mais na experiência.";
        mes "Sala Premium com vários npcs que facilitam e muito sua vida.";
        mes "Mais de 30 comandos para facilitar ainda mais, para mais informações visite o nosso site, ^0000FF www.HeroBRO.net ^000000";
        close;
    }
}[/soiiler],

the days and hours vip does not appear .. so it is in the image

 

 

 

Sem título.jpg

i see your not using the official VIP system,
i think better you use the official vip system.

to enable the official vip system edit rathena\src\config\core.hpp 

/// Uncomment to enable VIP system.
#define VIP_ENABLE

then use this script to buy vip using cash points
  

prontera,155,180,4	script	VIP Central	4_F_KAFRA1,{
OnTalk:
	mes .npc$;
	mes (gettime(3)>= 6&&gettime(3)<= 12?"Good Morning":(gettime(3)>=13&&gettime(3)<=18?"Good Afternoon":"Good Evening"))+", ^008aff"+strcharinfo(0)+"^000000 !";
	mes "Welcome to VIP Central.";
	if (vip_status(1)) {
		mes "^008affYour VIP access will expire on " + callfunc("Time2Str",vip_status(2)) + ".^000000";
		mes " ";		
	}
	mes "How can I help?";
	next;
	switch (select(.bcor$+"I want to go to Central VIP.",""+((vip_status(1))?""+.bcor$+"I want to extend my time ^008affVIP^000000.":""+.bcor$+"I wish to become a ^008affVIP^000000 player."),""+.rcor$+"I do not want anything.")){
		case 1:
			if (!vip_status(1) ) {
				mes .npc$;
				mes "Excuse me! Access to VIP Central is only allowed to ^008affVIP^000000 players.";
				mes "-----------------------------------";
				mes "Visit our website and learn how to become a ^008affVIP^000000 player.";
				mes "-----------------------------------";
				close;
			}
			warp .map$,.cord[0],.cord[1];
			end;
		case 2:
			mes .npc$;
			mes "How many days of access ^008affVIP^000000 do you want to acquire?";
			next;
			.@i = select(
				.bcor$+""+.vip_day[0] + " Days."
				,.bcor$+""+.vip_day[1] + " Days."
				,.bcor$+""+.vip_day[2] + " Days."
				) - 1;
				
			mes .npc$;
			mes "You chose the plan of:";
			mes "^4527A0VIP:^000000 "+.vip_day[.@i]+" VIP days.";
			mes "^4527A0Price:^000000 "+F_InsertComma(.vip_cashpoint[.@i])+" #CASHPOINTS.";
			sleep2 1000;
			mes " ";
			mes " ";
			mes "What do you want to do?";
			next;
			switch(select(.bcor$+"Purchase:"+.rcor$+"Cancel")){
				case 1:
					if ( #CASHPOINTS < .vip_cashpoint[.@i] ) {
					mes .npc$;
					mes "You do not have the quantity of ^008aff"+F_InsertComma(.vip_cashpoint[.@i])+" #CASHPOINTS^000000.";
					close;
				}
				else {
					#CASHPOINTS -= .vip_cashpoint[.@i];
					vip_time (.vip_day[.@i] * 1440);
					mes .npc$;
					mes "Congratulations you just got "+.vip_day[.@i]+" days VIP.";
					close;
				}
				end;
				case 2:
					mes .npc$;
					mes "All right, come back whenever you want.";
					close;
			}

		case 3:
			close;
	}

OnInit:
	.npc$ = "^FF7F00[ VIP Central ]^000000";						// Name of NPC;
	.bcor$ = "^008aff[»]^000000 ";									// Option Button Symbol;
	.rcor$ = "^ff0000[»]^000000 ";									// Cancel button symbol;
	setarray .vip_day,7,14,30;										// Number of days that can be purchased;
	setarray .vip_cashpoint,4000,7000,10000;						// Price in #CASHPOINTS;
	.map$ = "sec_in02";												// VIP Room Map;
	setarray .cord,130,161;											// X and Y Coordinate;
	end;
}

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...