Criador de Homunculos

[Scofield]

I click on that npc and nothing happens

 

 

 

 
sec_in02,143,155,2 script Criador de Homunculos#hm 740,{
 
// Array de configurações.
setarray .@hom_confing[0],0,0,100000,1,1000,100000,0,1000,25,25;
mes "[Criador de Homunculos]";
mes "Hey, sou um poderoso criador";
mes "de Homunculos, consegui";
mes "desenvolver algumas poções";
mes "e grandes habilidades com";
mes "homunculos, e estou aqui em";
mes "Prontera, para ofereçer meus";
if(@hom_confing[6])
mes "serviços aos Alquimistas e Criadores que tem dificuldades para criarem um.";
else
mes "serviços para todas as classes, que sempre desejaram ter um homunculo.";
next;
if(@hom_confing[6] && Class != 18 && Class != 4019){
mes "[Criador de Homunculos]";
mes "Me desculpe, mas somente os";
mes "Alquimistas e Criadores podem";
mes "utilizar este serviço...";
mes "nínguem pode quebrar o segredo";
mes "da vida...";
close;
}
// Setando Menus
if((gethominfo(1) >= 6009) || (gethominfo(1) >= 6000 && gethominfo(1) <= 6008 && gethominfo(6) < 99))
set @MENU$,select("","Ressucitar.","Curar","","","Informações do seu Homunculo.","","Cancelar.");
else if(gethominfo(1))
set @MENU$,select("Criar Homunculo.","","","","","","Sobre Homunculos.","Cancelar.");
else
set @MENU$,select("","Ressucitar.","Curar","Envoluir.","Requisitos.","Informações do seu Homunculo.","","Cancelar.");
 
switch(@MENU$){
case 1:
mes "[Criador de Homunculos]";
if(.@hom_confing[1] == 1 && Zeny < .@hom_confing[2])
mes "Me desculpe, mas você não tem zeny suficiente, me traga "+.@zeny+" para eu criar seu homunculo.";
else if(.@hom_confing[0] == 1 && countitem(7142) < 1)
mes "Me desculpe, mas você não tem um " + getitemname(7142) + ", por favor, volte quando tiver o material nescessário.";
else {
if(.@hom_confing[1] == 1)
set Zeny, Zeny - .@hom_confing[2];
if(.@hom_confing[0] == 1)
delitem 7142,1;
switch(.@hom_confing[3]){
case 1:
mes "Qual homunculo você deseja criar?";
next;
switch(select("- Lif:- Amistr:- Filir:- Vanilmirth")){
case 1: setarray .@type$[0],"Lif",6001,6005; break;
case 2: setarray .@type$[0],"Amistr",6002,6006; break;
case 3: setarray .@type$[0],"Filir",6003,6007; break;
case 4: setarray .@type$[0],"Vanilmirth",6004,6008; break;
}
mes "[Criador de Homunculos]";
mes "Existe dois tipos de "+.@type$[0]+", qual você deseja criar?";
next;
select("- "+.@type$[0]+"[1]","- "+.@type$[0]+"[2]");
mes "[Criador de Homunculos]";
set .@hom, .@type$[@menu];
break;
 
default: set .@hom, rand(6001,6008); break;
}
mes "Cuide bem de seu novo amiguinho,";
mes "e se precisar de algo, fale comigo novamente...";
mes "Sou especialista em curas e ressucitações de homunculos...";
mes "E com um bom nível de base, experiência, amizade e alimentação, consigo envoluir para você!";
atcommand "@makehomun "+strcharinfo(0);
}
break;
case 2:
mes "[Criador de Homunculos]";
if(Zeny < .@hom_confing[4])
mes "Desculpe, mas você não tem zeny suficiente! Traga-me "+.@hom_confing[4]+" para eu reviver seu homunculo!";
else{
set Zeny, Zeny - .@hom_confing[4];
set .@GID,getcharid(2);
getmapxy(.@map$,.@x,.@y,0);
unitskillusepos .@GID,247,10,.@x,.@y;
mes "Muito bem, seu amiguinho foi ressucitado!";
} break;
case 3:
mes "[Criador de Homunculos]";
if(Zeny < .@hom_confing[7])
mes "Desculpe, mas você não tem zeny suficiente! Traga-me "+.@hom_confing[7]+" para eu curar seu homunculo!";
else{
set Zeny, Zeny - .@hom_confing[7];
healhomun .@hom_confing[8],.@hom_confing[9];
mes "Muito bem, seu amiguinho foi curado!";
} break;
case 4:
mes "[Criador de Homunculos]";
if(gethominfo(6) < 99)
mes "Me desculpe, mas seu homunculo precisa ter no minímo level 99!";
else if(gethominfo(3) < 100000)
mes "Meu Deus, me parece que você e seu homunculos não se entendem muito bem, por favor, tente ser mais amigo dele do que meu hehehe...";
else if(gethominfo(4) < 100)
mes "Me desculpe, mas você não tem alimentado seu amigo muito bem certo? Precisa de concentração da minha parte e da dele para envoluir, e ele só tem concetração em comida nesse estante hehehe...";
else if(.@hom_confing[0] == 1 && countitem(12040) < 1)
mes "Me desculpe, mas você não tem uma " + getitemname(12040) + "!";
else if(Zeny < .@hom_confing[5])
mes "Me desculpe, mas você me precisa pagar "+.@hom_confing[5]+"zenys se quiser que eu ajude seu homunculo envoluir...";
else {
mes "Muito bem, agora seu amiguinho tem uma nova vida...";
set Zeny, Zeny - .@hom_confing[5];
if(.@hom_confing[0]) delitem 12040,1;
homevolution;
} break;
case 5:
mes "[Criador de Homunculos]";
mes "Para envoluir seu Homunculo, ele precisa estar nesses estado:";
mes "1.: Nível 99";
mes "2.: Lealdade Alta: 1000";
mes "3.: Fome: 100";
close;
case 6:
mes "[Criador de Homunculos]";
mes "Informações Sobre ele:";
mes " ";
mes "Nome: "+gethominfo(2)+".";
mes "Amizade: "+gethominfo(3)+".";
mes "Fome: "+gethominfo(4)+".";
mes "Level: "+gethominfo(6)+".";
break;
case 7:
mes "[Criador de Homunculos]";
mes "Bem, homunculos são criaturas";
mes "especiais, usada para auxiliar";
mes "em suas batalhas!";
mes "Eles é como um ser-humano,";
mes "criado por tecnologia de poções";
mes "e habilidades avançada de Alquimia.";
mes "Geralmente, homunculos criado";
mes "por classes Alquimista ou sua";
mes "envolução, é criado na base de";
mes "embrião e habilidade especial";
next;
mes "[Criador de Homunculos]";
mes "Esta habilidade especial";
mes "fundi seus conhecimento";
mes "e sua genética, para criar";
mes "uma criatura lendária, que";
mes "por sí própria, obedece o";
mes "seu criador, como um filhote";
mes "de galinha, assim que o ovo";
mes "choca, o pintinho pensa que a";
mes "primeira criatura viva é sua mãe...";
next;
mes "[Criador de Homunculos]";
mes "Ele é um grande amigo seu,";
mes "e para você cultivar a amizade";
mes "você deve saber cultivar ela...";
mes "Bem.. bem.. vou lhe encinar como... deseja aprender mais?";
next;
select("Sim... continue...");
mes "[Criador de Homunculos]";
mes "1. Você deve alimentar seu homunculo corretamente, nunca deixe utrapassar da fome, ou dar muita comida a ele.";
mes "Se não alimentá-lo direito, ele morrerá, e aos poucos sua lealdade (amizade) ficará baixa e ele irá fugir.";
next;
mes "[Criador de Homunculos]";
mes "2. Brinque sempre com ele, não sempre, mais diáriamente, se não brincar sua lealdade (amizade) ficará baixa e ele irá fugir.";
next;
mes "[Criador de Homunculos]";
mes "3. Fazendo o passo 1. e 2., sempre depois, treine seu amigo, parar ele ficar forte matando alguns monstros. Para assim ele involuir.";
next;
mes "[Criador de Homunculos]";
mes "Bem, só isso, espero que";
mes "você entenda e crie um para você.";
break;
case 8:
mes "[Criador de Homunculos]";
mes "Tudo bem, volte qualquer dia!";
break;
}
close;
}
 

[Scofield]

Up.

[Capuche]

if(@hom_confing[6]

there is a typo it should be .@hom_confing

me traga "+.@zeny+" para

.@zeny unset I think it should be .@hom_confing[2] instead

set .@hom, .@type$[@menu];

you can't store a string value in an int variable, it should be

set .@hom, atoi( .@type$[@menu] );

healhomun .@hom_confing[8],.@hom_confing[9];

healhomun is a custom command

 

I didn't test the script, maybe there is another mistake ?

[Scofield]

unfortunately my host company does not give me ssh access to see the errors, I wore this npc in an old emulator and it worked well.

I made a modification that said, even then when I click the npc nothing happens.

 

healhomun : was a command to heal the homunculus do not know if there is another command that can replace him