This is one of my older scripts. It gives you a homunculus and leveling it up. I left the leveling parts only.
prt_are02,174,163,4[TAB]script[TAB]Homunculus[TAB]558,{
if(Class == 18 || Class == 4019) goto L_OK;
mes "[Homunculus]";
mes "I speak only with Alchemists.";
close;
L_OK:
if ( gethominfo(0) != 0 ) goto L_homun;
mes "[Homunculus]";
atcommand "@homlvl 49 "+strcharinfo(0);
atcommand "@homfriendly 1000 "+strcharinfo(0);
atcommand "@homevolve "+strcharinfo(0);
atcommand "@homfriendly 1000 "+strcharinfo(0);
atcommand "@homhungry 100 "+strcharinfo(0);
close;
L_homun:
mes "[Homunculus]";
mes "You dont have Homunculus.";
close;
}
Hope it helps