My script: (pt-br) i modified him to recognize VIP players
prt_in,28,73,4 script Velha Sábia 78,{
set .vip_needed, 5; //Nível necessário de VIP para acessar os recursos especias do NPC
if (getgroupid() < .vip_needed) {
mes "^00B2EE[Velha Sábia]^000000";
mes "Eu tenho o poder de remover cartas que já foram usadas nos seus equipamentos. Essa idéia pode ajudá-lo?";
next;
switch(select("^3CB371[»]^000000 Continuar:^FFA500[»]^000000 Informaçoes:^ff0000[»]^000000 Desistir")) {
case 1:
mes "^00B2EE[Velha Sábia]^000000";
mes "Tudo bem. Qual ítem quer que eu examine para voce?";
next;
setarray .@position$[1], "Acessório (Direita)","Sapatos","Capa","Cabeça (Baixo)","Cabeça (Meio)","Cabeça (Topo)","Armadura","Mao Direita","Mao Esquerda","Visual","Visual","Visual";
set .@menu$,"";
for( set .@i,1; .@i <= 10; set .@i,.@i+1 )
{
if( getequipisequiped(.@i) )
set .@menu$, .@menu$ + .@position$[.@i] + " - " + "[" + getequipname(.@i) + "]";
set .@menu$, .@menu$ + ":";
}
set .@part,select(.@menu$);
mes "^00B2EE[Velha Sábia]^000000";
if(!getequipisequiped(.@part))
{
mes "Meu jovem, equipe algo para que eu possa trabalhar. nao posso fazer nada por voce assim.";
close;
}
set .@cardcount,getequipcardcnt(.@part);
if(!.@cardcount)
{
mes "Meu jovem, nao há cartas equipadas neste ítem. nao posso trabalhar assim!";
close;
}
if ( !checkweight(1202,(.@cardcount+1)) )
{
mes "^3355FFAguarde um momento!";
mes "Eu nao posso oferecer meus serviços a voce pois está com excesso de peso ou itens no iventário.";
close;
}
mes "Esse ítem tem " + .@cardcount + " cartas equipadas.";
mes "Para melhorar minha magia, sao necessários " + (200000+(.@cardcount * 25000)) + " zeny,";
mes "um ^0000FFFragmento Estelar^000000, e uma ^0000FFGema Amarela^000000.";
next;
mes "^00B2EE[Velha Sábia]^000000";
if(select("^3CB371[»]^000000 Continuar:^ff0000[»]^000000 Desistir") == 2)
{
mes "Muito bem, agradeço por utilizar os meus serviços!";
close;
}
if((Zeny < (200000+(.@cardcount * 25000))) || (countitem(1000) < 1) || (countitem(715) < 1))
{
next;
mes "Voce nao tem tudo que é necessário para a minha mágica, garot"+(sex > 0 ? "o" : "a")+". Volte quando conseguí-los.";
close;
}
next;
mes "^00B2EE[Velha Sábia]^000000";
mes "Muito vem, vamos começar!.";
set Zeny,Zeny - (200000+(.@cardcount * 25000));
delitem 1000,1;
delitem 715,1;
successremovecards .@part;
next;
mes "^00B2EE[Velha Sábia]^000000";
mes "O processo foi um grande sucesso. Tome suas cartas e seus ítens.";
close;
case 2:
next;
mes "^00B2EE[Velha Sábia]^000000";
mes "Eu preciso de 200000 zeny, mais 25000 zeny para cada carta removida de seus ítens. E adicionalmente, preciso de um Fragmento Estelar e uma Gema Amarela para trabalhar com a minha mágica.";
close;
case 3:
next;
mes "^00B2EE[Velha Sábia]^000000";
mes "Muito bem, volte quando precisar dos meus serviços.";
close;
}
}
else {
mes "^00B2EE[Velha Sábia]^000000";
mes "Eu tenho o poder de remover cartas que já foram usadas nos seus equipamentos. Essa idéia pode ajudá-lo?";
next;
switch(select("^3CB371[»]^000000 Continuar:^ff0000[»]^000000 Desistir")) {
case 1:
mes "^00B2EE[Velha Sábia]^000000";
mes "Tudo bem. Qual ítem quer que eu examine para voce?";
next;
setarray .@position$[1], "Acessório (Direita)","Sapatos","Capa","Cabeça (Baixo)","Cabeça (Meio)","Cabeça (Topo)","Armadura","Mao Direita","Mao Esquerda","Visual","Visual","Visual";
set .@menu$,"";
for( set .@i,1; .@i <= 10; set .@i,.@i+1 )
{
if( getequipisequiped(.@i) )
set .@menu$, .@menu$ + .@position$[.@i] + " - " + "[" + getequipname(.@i) + "]";
set .@menu$, .@menu$ + ":";
}
set .@part,select(.@menu$);
mes "^00B2EE[Velha Sábia]^000000";
if(!getequipisequiped(.@part))
{
mes "Meu jovem, equipe algo para que eu possa trabalhar. nao posso fazer nada por voce assim.";
close;
}
set .@cardcount,getequipcardcnt(.@part);
if(!.@cardcount)
{
mes "Meu jovem, nao há cartas equipadas neste ítem. nao posso trabalhar assim!";
close;
}
if ( !checkweight(1202,(.@cardcount+1)) )
{
mes "^3355FFAguarde um momento!";
mes "Eu nao posso oferecer meus serviços a voce pois está com excesso de peso ou itens no iventário.";
close;
}
mes "Esse ítem tem " + .@cardcount + " cartas equipadas.";
next;
mes "^00B2EE[Velha Sábia]^000000";
if(select("^3CB371[»]^000000 Continuar:^ff0000[»]^000000 Desistir") == 2)
{
mes "Muito bem, agradeço por utilizar os meus serviços!";
close;
}
next;
mes "^00B2EE[Velha Sábia]^000000";
mes "Muito vem, vamos começar!.";
successremovecards .@part;
next;
mes "^00B2EE[Velha Sábia]^000000";
mes "O processo foi um grande sucesso. Tome suas cartas e seus ítens.";
close;
case 2:
mes "^00B2EE[Velha Sábia]^000000";
mes "Muito bem, volte quando precisar dos meus serviços.";
close;
}
}
}
prontera,133,201,5 duplicate(Velha Sábia) Velha Sábia#2 78
Question
Gladius
Hi Guys
I need help
Sader's npc Enchantment has conflict with the original npc "card remove" from rathena.
It is possible to remove the enchantament by using card remove, lol.
Script: https://rathena.org/board/files/file/3602-saders-enchantment-npc/
How do I add the function for that?
My script: (pt-br) i modified him to recognize VIP players
prt_in,28,73,4 script Velha Sábia 78,{ set .vip_needed, 5; //Nível necessário de VIP para acessar os recursos especias do NPC if (getgroupid() < .vip_needed) { mes "^00B2EE[Velha Sábia]^000000"; mes "Eu tenho o poder de remover cartas que já foram usadas nos seus equipamentos. Essa idéia pode ajudá-lo?"; next; switch(select("^3CB371[»]^000000 Continuar:^FFA500[»]^000000 Informaçoes:^ff0000[»]^000000 Desistir")) { case 1: mes "^00B2EE[Velha Sábia]^000000"; mes "Tudo bem. Qual ítem quer que eu examine para voce?"; next; setarray .@position$[1], "Acessório (Direita)","Sapatos","Capa","Cabeça (Baixo)","Cabeça (Meio)","Cabeça (Topo)","Armadura","Mao Direita","Mao Esquerda","Visual","Visual","Visual"; set .@menu$,""; for( set .@i,1; .@i <= 10; set .@i,.@i+1 ) { if( getequipisequiped(.@i) ) set .@menu$, .@menu$ + .@position$[.@i] + " - " + "[" + getequipname(.@i) + "]"; set .@menu$, .@menu$ + ":"; } set .@part,select(.@menu$); mes "^00B2EE[Velha Sábia]^000000"; if(!getequipisequiped(.@part)) { mes "Meu jovem, equipe algo para que eu possa trabalhar. nao posso fazer nada por voce assim."; close; } set .@cardcount,getequipcardcnt(.@part); if(!.@cardcount) { mes "Meu jovem, nao há cartas equipadas neste ítem. nao posso trabalhar assim!"; close; } if ( !checkweight(1202,(.@cardcount+1)) ) { mes "^3355FFAguarde um momento!"; mes "Eu nao posso oferecer meus serviços a voce pois está com excesso de peso ou itens no iventário."; close; } mes "Esse ítem tem " + .@cardcount + " cartas equipadas."; mes "Para melhorar minha magia, sao necessários " + (200000+(.@cardcount * 25000)) + " zeny,"; mes "um ^0000FFFragmento Estelar^000000, e uma ^0000FFGema Amarela^000000."; next; mes "^00B2EE[Velha Sábia]^000000"; if(select("^3CB371[»]^000000 Continuar:^ff0000[»]^000000 Desistir") == 2) { mes "Muito bem, agradeço por utilizar os meus serviços!"; close; } if((Zeny < (200000+(.@cardcount * 25000))) || (countitem(1000) < 1) || (countitem(715) < 1)) { next; mes "Voce nao tem tudo que é necessário para a minha mágica, garot"+(sex > 0 ? "o" : "a")+". Volte quando conseguí-los."; close; } next; mes "^00B2EE[Velha Sábia]^000000"; mes "Muito vem, vamos começar!."; set Zeny,Zeny - (200000+(.@cardcount * 25000)); delitem 1000,1; delitem 715,1; successremovecards .@part; next; mes "^00B2EE[Velha Sábia]^000000"; mes "O processo foi um grande sucesso. Tome suas cartas e seus ítens."; close; case 2: next; mes "^00B2EE[Velha Sábia]^000000"; mes "Eu preciso de 200000 zeny, mais 25000 zeny para cada carta removida de seus ítens. E adicionalmente, preciso de um Fragmento Estelar e uma Gema Amarela para trabalhar com a minha mágica."; close; case 3: next; mes "^00B2EE[Velha Sábia]^000000"; mes "Muito bem, volte quando precisar dos meus serviços."; close; } } else { mes "^00B2EE[Velha Sábia]^000000"; mes "Eu tenho o poder de remover cartas que já foram usadas nos seus equipamentos. Essa idéia pode ajudá-lo?"; next; switch(select("^3CB371[»]^000000 Continuar:^ff0000[»]^000000 Desistir")) { case 1: mes "^00B2EE[Velha Sábia]^000000"; mes "Tudo bem. Qual ítem quer que eu examine para voce?"; next; setarray .@position$[1], "Acessório (Direita)","Sapatos","Capa","Cabeça (Baixo)","Cabeça (Meio)","Cabeça (Topo)","Armadura","Mao Direita","Mao Esquerda","Visual","Visual","Visual"; set .@menu$,""; for( set .@i,1; .@i <= 10; set .@i,.@i+1 ) { if( getequipisequiped(.@i) ) set .@menu$, .@menu$ + .@position$[.@i] + " - " + "[" + getequipname(.@i) + "]"; set .@menu$, .@menu$ + ":"; } set .@part,select(.@menu$); mes "^00B2EE[Velha Sábia]^000000"; if(!getequipisequiped(.@part)) { mes "Meu jovem, equipe algo para que eu possa trabalhar. nao posso fazer nada por voce assim."; close; } set .@cardcount,getequipcardcnt(.@part); if(!.@cardcount) { mes "Meu jovem, nao há cartas equipadas neste ítem. nao posso trabalhar assim!"; close; } if ( !checkweight(1202,(.@cardcount+1)) ) { mes "^3355FFAguarde um momento!"; mes "Eu nao posso oferecer meus serviços a voce pois está com excesso de peso ou itens no iventário."; close; } mes "Esse ítem tem " + .@cardcount + " cartas equipadas."; next; mes "^00B2EE[Velha Sábia]^000000"; if(select("^3CB371[»]^000000 Continuar:^ff0000[»]^000000 Desistir") == 2) { mes "Muito bem, agradeço por utilizar os meus serviços!"; close; } next; mes "^00B2EE[Velha Sábia]^000000"; mes "Muito vem, vamos começar!."; successremovecards .@part; next; mes "^00B2EE[Velha Sábia]^000000"; mes "O processo foi um grande sucesso. Tome suas cartas e seus ítens."; close; case 2: mes "^00B2EE[Velha Sábia]^000000"; mes "Muito bem, volte quando precisar dos meus serviços."; close; } } } prontera,133,201,5 duplicate(Velha Sábia) Velha Sábia#2 78
Id enchantaments, I added a few extras
4709,4719,4729,4739,4749,4759,4760,4761,4806,4811,4810,4809,4808,4820,4821,4822,4823,4824,4825,4832,4833,4834,4835,4836,4837,4838,4839,4840,4841,4818,4817,4816,4843,4844,4815,4814,4813,4812,4826,4827,4828,4829,4830,4831,4933,4934,4935,4859,4860,4762,4763,4807,4842,4869,4872,4873,4881,4861,4862,4867,4868,4900,4863,4864,4865,4866
@sader1992 I would like to know how to add a lock to enchant weapons in the shield hand (assassin cross use) in sader's Enchantment could you help?
Edited by GladiusLink to comment
Share on other sites
21 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.