pay_arche.gat,66,153,6 script Archer Mercenary 777,{

// Variables
set @name$,"[Archer Mercenary]";
set @price,5000000;
if(mascota == 1) goto checar;

//script
mes @name$;
mes "Hola " +strcharinfo(0)+", yo puedo invocar un Mercenary que te acompañe toda tu vida";
mes "solo recuerda cualquier Mer cuesta ^5555FF" + @price + "^000000 Zenys";
mes "si sigues de acuerdo podemos seguir con el papeleo";
next;
mes "¿estas de acuerdo?";
menu "Si sigamos",si,"Mejor no",salir;

si:
if (zeny < @price) goto L_NoZeny;
else
if (Zeny > 4999999){
next;
nombre01:
mes "Que nombre quieres para tu Mercenary";
input nombremascota$;
next;
mes "¿Estas seguro de que ^FF0000"+nombremascota$+"^000000 quieres que sea el nombre de tu Mercenary?";
menu "Si",-,"no",nombre01;
next;
mes "Dime que mascota quieres tener";
menu "Archer Mercenary Lv1",Archer_Mercenary_Lv1,"Archer Mercenary Lv2",Archer_Mercenary_Lv2,"Archer Mercenary Lv3",Archer_Mercenary_Lv3,"Archer Mercenary Lv4",Archer_Mercenary_Lv4,"Archer Mercenary Lv5",Archer_Mercenary_Lv5,"Archer Mercenary Lv6",Archer_Mercenary_Lv6,"Archer Mercenary Lv7",Archer_Mercenary_Lv7,"Archer Mercenary Lv8",Archer_Mercenary_Lv8,"Archer Mercenary Lv9",Archer_Mercenary_Lv9;
Archer_Mercenary_Lv1: set mobid,6017; goto listo;
Archer_Mercenary_Lv2: set mobid,6018; goto listo;
Archer_Mercenary_Lv3: set mobid,6019; goto listo;
Archer_Mercenary_Lv4: set mobid,6020; goto listo;
Archer_Mercenary_Lv5: set mobid,6021; goto listo;
Archer_Mercenary_Lv6: set mobid,6022; goto listo;
Archer_Mercenary_Lv7: set mobid,6023; goto listo;
Archer_Mercenary_Lv8: set mobid,6024; goto listo;
Archer_Mercenary_Lv9: set mobid,6025; goto listo;

listo:
summon "  "+nombremascota$+"  ",mobid,9999999,"Veterinario::OnMURIO";
set mascota,1;
set @tiene,1;
set zeny,zeny-@price;
next;
mes "Felicidades ya tienes un mercenary";
next;
mes "Cuidala bien";
close;
}

checar:
mes @name$;
mes "Dime que deceas Hacer";
menu "Cambiarle el Nombre a mi Mercenary",nombre,"Recuperar a mi Mercenary",-,"Cancel",cancel;
if(@tiene==1) goto nodar;
summon " "+nombremascota$+" ",mobid,9999999,"Veterinario::OnMURIO";
set @tiene,1;
next;
mes "Listo ahí tienes a tu mascota";
close;
nombre:
input nombremascota$;
next;
mes "Nombre canbiado";
cancel:
close;

L_NoZeny:
mes @name$;
mes "lo siento no tienes le zeny suficiente para la adopcion";
mes "vuelve cuando tengas mas zeny";
close;

nodar:
mes "ya tienes a tu Mercenary no puedes tener 2";
close;

OnMURIO:
set @tiene,0;
close;

salir:
mes "Vuelve cuando quieras";
close;
}