prontera,175,203,3 script MISIONES QUEST 10045,{
set @n$,"[^ff0099 MISIONES ^000000]";
if (mob_quest == 1 || item_quest == 1) callfunc "Quest Rewards";
mes @n$;
mes "" + (Sex?"Bienvenido":"Bienvenida") + " ^ff0000"+strcharinfo(0)+"^000000 ";
mes "Quieres ganar ^ff0000exp^000000 y ^ff0000zeny^000000 por tan solamente buscar item o matar mob.?";
mes " -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ";
mes "- ARTICULOS: ^00cc00Llevas^000000: ^ff0099"+misiones_item+"^000000 ";
mes "- MONSTRUOS: ^00cc00Llevas^000000: ^ff0099"+misiones_MOBS+"^000000 ";
MES " ";
mes "^FF0099Quieres hacer una quest^000000?";
callfunc "Quests";
close;
bindatcmd("mision","MISIONES QUEST::OnMision");
// ITEM A PEDIR POR LA QUEST
setarray $quest_item[0],730,952,1042,7122,7120,7512,7182,7156,7110,7188,7054,1034,7576,7446,7563,923,1021,1035,7265,1036,7123,1037,993,1056,947,6032,7003,967,7032,949,958,1059,7115,7799;
// MOUSTROS
setarray $quest_mob[0],1004,1005,1007,1008,1011,1013,1015,1014,1016,1019,1026,1032,1040,1055,1063,1068,1071,1076,1104,1110,1117,1154,1169,1197,1261,1372,1508,1509,1921,1919,1001,1060,1012,1023,1077,1033;
end;
OnMision:
dispbottom " -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ";
dispbottom "[Mision]- ARTICULOS: Llevas^000000: "+misiones_item+" ";
dispbottom "[Mision]- MONSTRUOS: Llevas^000000: "+misiones_MOBS+" ";
dispbottom " -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ";
end;
}
*/
//>>>>>>>>>>>QUESTS<<<<<<<<<<<<<
function script Quests {
set @n$,"[^ff0099 MISIONES ^000000]";
mes "^ff0099Selecciona tu tipo de mision^000000:";
switch( select("^ff0099[> Recoleccion^000000 de articulos:^ff6600[> Caza^000000 de monstruos:^00cc00[> Mis^000000 puntos totales:^3366ff[> Que obtengo^000000 con los puntos") )
{
case 1:
//ITEMS
next;
Recoleccion:
mes @n$;
set anzahl,rand(70,150);
set item,$quest_item[rand(1,getarraysize($quest_item))];
if (item == 0) {goto Recoleccion;}
mes "Busca:";
mes " [ ^0000FF"+anzahl+"^000000 <ITEM>"+getitemname(item)+" <INFO>"+item+"</INFO></ITEM> (ID: "+item+")]";
mes " ";
// mes "-> Base EXP "+@bexp*anzahl+"";
// mes "-> Job EXP "+@jexp*anzahl+" ";
// mes "-> Zeny: "+@tmp_zeny*anzahl+" ";
mes "^ff0000Recuerda^000000: Tienes que venir a visitarme una vez termines";
set retry,1;
set item_quest,1;
close;
case 2:
//MOBS
next;
MobsHuntins:
mes @n$;
set anzahl,rand(70,150);
set mob,$quest_mob[rand(0,getarraysize($quest_mob))];
if (mob == 0) {goto MobsHuntins;}
mes "Matar [ ^0000FF"+anzahl+" "+strmobinfo(1,mob)+"^000000 ]";
mes " ";
mes "^ff0000Recuerda^000000: Tienes que venir a visitarme una vez termines";
set retry,1;
set mob_killed,0;
set mob_quest,1;
close;
case 3:
next;
mes @n$;
mes "" + (Sex?"Bienvenido":"Bienvenida") + " nuevamente ^ff0000"+strcharinfo(0)+"^000000 ";
mes "- ARTICULOS:";
mes "^00cc00Llevas^000000: ^ff0099"+misiones_item+"^000000 Misiones seguidas";
mes " ";
mes "- MONSTRUOS:";
mes "^00cc00Llevas^000000: ^ff0099"+misiones_MOBS+"^000000 Misiones seguidas";
close;
case 4:
next;
mes @n$;
mes "> [^ff0000Mision^000000]: ^ff0000Recoleccion items^000000";
mes "Puedes usar los buff del ^ff0099HEALER^000000 ";
mes " ";
mes " -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ";
mes " ^FF0000Nota^000000: Los puntos no son consumidos por usar el ^ff0099HEALER^000000 ";
mes " -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ";
mes " ";
mes " -= [ ^FF0099PUNTOS PARA HEALER^000000 ] =- ";
mes "^ff00993 Puntos^000000:";
mes "^336699PODRAS USAR^000000:";
mes "Reparacion de tu equipo ";
mes " -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ";
mes "^ff009910 Puntos^000000:";
mes "ANGELUS & MAGNIFICAT";
mes " -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ";
mes "^ff009915 Puntos^000000:";
mes "GLORIA & IMPOSITIO.";
mes " -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ";
mes "^ff009920 Puntos^000000:";
mes "SUFFRAGIUM & ASSUMPTIO.";
mes " -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ";
mes "^ff009930 Puntos^000000:";
mes "COMIMIDAS +5";
mes " -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ";
close;
}
}
function script Quest Rewards {
set @n$,"[^ff0099 MISIONES ^000000]";
mes @n$;
if (item_quest == 1) {
mes "Bienvenido nuevamente !!";
if (abgegeben >= anzahl) {
mes "Genial !! Me costo guardar los item en la bodega.";
next;
mes @n$;
mes "Tu recomenza,!!";
set @div,rand(100,300);
set @bexp,anzahl*10000000/@div;
set @jexp,anzahl*10000000/@div;
set @tmp_zeny,anzahl*50000/@div;
set Zeny,Zeny+(anzahl*50000/@div);
getexp @bexp,@jexp;
mes "-> Base EXP "+@bexp+"";
mes "-> Job EXP "+@jexp+" ";
mes "-> Zeny: "+@tmp_zeny+" ";
mes " ";
mes "[> ^ff0099Punto^000000: + 1 <]";
dispbottom "[ MISIONES ]: Has recibido "+@tmp_zeny+"z ";
set misiones_item,misiones_item + 1;
set item_quest,0;
set abgegeben,0;
close;
} else {
set abgegeben,abgegeben+countitem(item);
if (countitem(item) > 0) delitem item,countitem(item);
set @fehlt,anzahl-abgegeben;
if (@fehlt <= 0) {
mes "Regresa en un ratito mas , Aun guardo los item que me trajo usted!";
message strcharinfo(0),"Si entiendo regreso en un momento!";
close;
} else {
mes "^ff0099Faltan^000000:";
mes " ^0000FF"+@fehlt+"^000000 <ITEM>"+getitemname(item)+" <INFO>"+item+"</INFO></ITEM> (ID: "+item+")";
mes "^ff0000Recuerda^000000: Regresa cuando tengas los item faltantes";
mes " ";
mes "> ^ff0099Cancelar la recoleccion^000000?";
if (select("No:Si") != 1) {
next;
mes @n$;
mes "Hay un costo para hacer la cancelacion ";
mes "1.000.000z hacer la cancelacion";
mes " ";
mes "¿^FF0099ESTAS SEGURO DE CANCELAR LA MISION^000000?";
switch( select("^ff0099[> SI^000000 quiero cancelar:^ff6600[> No^000000 quiero cancelar") )
{
case 1:
next;
mes @n$;
mes "Revisó si tienes dinero";
// CONFIRMAR ITEMS FIJATÉ SI ESTA BIEN.
if(Zeny < 1000000) {
next;
mes @n$;
mes "Aparentemente no tienes El dinero que nesecitas necesarias.";
close;
}
mes "^ff0000TODO LISTO ^000000: Te he aceptado tu dinero, te cancele tu mision ";
set Zeny, Zeny - 1000000;
dispbottom "[ MISIONES QUEST ]: Te he descontado 1.000.000z ";
// set misiones_item,0;
set retry,0;
set item_quest,0;
close;
case 2:
close;
}
}
close;
}
}
} else {
if (mob_killed >= anzahl) {
mes "Muy bien !! Diste muerte a todos los moustros de la zona";
next;
mes @n$;
mes "Tu premio es:";
set @div,rand(100,300);
set @bexp,anzahl*10000000/@div;
set @jexp,anzahl*10000000/@div;
set @tmp_zeny,anzahl*10000/@div;
set Zeny,Zeny+(anzahl*10000/@div);
getexp @bexp,@jexp;
mes "-> Base EXP "+@bexp+"";
mes "-> Job EXP "+@jexp+" ";
mes "-> Zeny: "+@tmp_zeny+" ";
mes " ";
mes "[> ^ff0099Punto^000000: + 1 <]";
dispbottom "[ MISIONES ]: Has recibido "+@tmp_zeny+"z ";
set misiones_MOBS,misiones_MOBS + 1;
set mob_quest,0;
close;
} else {
set @fehlt,anzahl-mob_killed;
mes "^ff0000Tienes que matar^000000:";
mes " [ ^0000FF"+@fehlt+" "+strmobinfo(1,mob)+"^000000 ] Moustros";
mes "^ff0000Recuerda^000000: Regresa cuando los mates a todos";
mes " ";
mes "> ^ff0099Cancelar la mision de caza^000000?";
if (select("No:Si") != 1) {
next;
mes @n$;
mes "Hay un costo para hacer la cancelacion ";
mes "2.000.000z hacer la cancelacion";
mes " ";
mes "¿^FF0099ESTAS SEGURO DE CANCELAR LA MISION^000000?";
switch( select("^ff0099[> SI^000000 quiero cancelar:^ff6600[> No^000000 quiero cancelar") )
{
case 1:
next;
mes @n$;
if(Zeny < 2000000) {
next;
mes @n$;
mes "Aparentemente no tienes El dinero que nesecitas necesarias.";
close;
}
mes "^ff0000TODO LISTO ^000000: Te he aceptado tu dinero, te cancele tu mision ";
set Zeny, Zeny - 2000000;
dispbottom "[ MISIONES QUEST ]: Te he descontado 2.000.000z ";
// set misiones_MOBS,0;
set retry,0;
set mob_quest,0;
close;
case 2:
close;
}
}
close;
}
}
}
- script Quest_Mob_Killed -1,{
OnNPCKillEvent:
if ((killedrid == mob) && (mob_quest == 1)) {
set mob_killed,mob_killed + 1;
set @rest,anzahl-mob_killed;
if (@rest <= 0)
{
announce "Tu has terminado con todos los moustros!",bc_self,0x99cc00;
message strcharinfo(0),"Ahora puedes regresar al npc!";
end;
}
message strcharinfo(0),"Faltan "+@rest+" !";
dispbottom "[QUEST]: Faltan "+@rest+" Moustros por matar.";
} else { end; }
}
Question
manuel
error:
[Error]: script:run_script_main: infinity loop !
[Debug]: Source (NPC): MISIONES QUEST at prontera (175,203)
Edited by manuelLink to comment
Share on other sites
1 answer 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.