Jump to content

Racaae

Members
  • Posts

    269
  • Joined

  • Last visited

  • Days Won

    43

Posts posted by Racaae

  1. 14 hours ago, Mice said:

     

    Thank you, it's working. Now, how can I do it like that? I'm using this for a Japanese Sprite, so how can I make it work using the JRO Sprite? It worked fine with the 2022 EXE. Sorry I didn't include this information in my first post. I thought their implementation was the same.

     

        EquipScript: |
            changebase (roclass(eaclass()&EAJ_UPPERMASK)+roclass(EAJL_UPPER));
            changelook LOOK_BODY2,3;
        UnEquipScript:   |
            changelook LOOK_BODY2,0;
            changebase Class;

     

    The 2023+ clients use new job IDs for the jRO costumes:
    JOB_RUNE_KNIGHT_2ND = 4332,
    JOB_MECHANIC_2ND = 4333,
    JOB_GUILLOTINE_CROSS_2ND = 4334,
    JOB_WARLOCK_2ND = 4335,
    JOB_ARCHBISHOP_2ND = 4336,
    JOB_RANGER_2ND = 4337,
    JOB_ROYAL_GUARD_2ND = 4338,
    JOB_GENETIC_2ND = 4339,
    JOB_SHADOW_CHASER_2ND = 4340,
    JOB_SORCERER_2ND = 4341,
    JOB_SURA_2ND = 4342,
    JOB_MINSTREL_2ND = 4343,
    JOB_WANDERER_2ND = 4344,

    You need to add them in the source. Open file \src\common\mmo.hpp. Find JOB_SKY_EMPEROR2 = 4316, then add the following code below it:

    	JOB_RUNE_KNIGHT_2ND = 4332,
    	JOB_MECHANIC_2ND,
    	JOB_GUILLOTINE_CROSS_2ND,
    	JOB_WARLOCK_2ND,
    	JOB_ARCHBISHOP_2ND,
    	JOB_RANGER_2ND,
    	JOB_ROYAL_GUARD_2ND,
    	JOB_GENETIC_2ND,
    	JOB_SHADOW_CHASER_2ND,
    	JOB_SORCERER_2ND,
    	JOB_SURA_2ND,
    	JOB_MINSTREL_2ND,
    	JOB_WANDERER_2ND,

    Save the file then recompile the server.

    I've updated the example script for you:

    // callfunc "F_JobSuit",<Job ID>;	//Change to specific sprite
    // callfunc "F_JobSuit",-1;			//Change to 2nd job
    // callfunc "F_JobSuit",-2;			//Change to transcendent 2nd job
    // callfunc "F_JobSuit",-3;			//Change to 3rd job
    // callfunc "F_JobSuit",-4;			//Change to 4th job
    // callfunc "F_JobSuit",-5;			//Change to alternative third class costume
    // callfunc "F_JobSuit";			//Return to default sprite
    
    function	script	F_JobSuit	{
    	.@block_expanded_jobs = false; //Disable changing for expanded job player (true/false)
    
    	if (getargcount() == 0) {
    		if (PACKETVER >= 20231220)
    			setlook LOOK_BODY2,Class;
    		else if (JobSuit_id > 4331 && JobSuit_id < 4345)
    			setlook LOOK_BODY2,0;
    		else
    			changebase Class;
    		JobSuit_active = false;
    		JobSuit_id = 0;
    		end;
    	}
    
    	if (getarg(0) > -1) {
    		if (jobname(getarg(0)) == "Unknown Job") {
    			dispbottom "Unknown Job";
    			end;
    		}
    		callsub S_OK,getarg(0),1;
    	}
    	if (.@block_expanded_jobs && (BaseClass == Job_Novice || BaseClass == Job_Summoner || BaseClass == Job_Gunslinger || BaseClass == Job_Ninja || BaseClass == Job_Taekwon))
    		end;
    	if (BaseClass == Job_Summoner) {
    		if (Upper) callsub S_OK,Job_Summoner;
    		else callsub S_OK,Job_Spirit_Handler;
    	}
    	else if (BaseClass == Job_Gunslinger) {
    		switch(getarg(0)) {
    			case -1: callsub S_OK,Job_Gunslinger;
    			case -2:
    			case -3: callsub S_OK,Job_Rebellion;
    			case -4:
    			case -5:
    			default: callsub S_OK,Job_Night_Watch;
    		}
    	}
    	else if (BaseClass == Job_Ninja) {
    		switch(getarg(0)) {
    			case -1: callsub S_OK,Job_Ninja;
    			case -2:
    			case -3: callsub S_OK,(Sex ? Job_Kagerou : Job_Oboro);
    			case -4:
    			case -5:
    			default: callsub S_OK,(Sex ? Job_Shinkiro : Job_Shiranui);
    		}
    	}
    	else if (BaseClass == Job_Novice) {
    		switch(getarg(0)) {
    			case -1: callsub S_OK,Job_Novice,1;
    			case -2:
    			case -3: callsub S_OK,Job_Super_Novice;
    			case -4:
    			case -5:
    			default: callsub S_OK,Job_Hyper_Novice;
    		}
    	}
    	else if (BaseJob == Job_Soul_Linker) {
    		switch(getarg(0)) {
    			case -1:
    			case -2: callsub S_OK,Job_Soul_Linker;
    			case -3: callsub S_OK,Job_Soul_Reaper;
    			case -4:
    			case -5:
    			default: callsub S_OK,Job_Soul_Ascetic;
    		}
    	}
    	else if (BaseJob == Job_Star_Gladiator) {
    		switch(getarg(0)) {
    			case -1: callsub S_OK,Job_Taekwon;
    			case -2: callsub S_OK,Job_Star_Gladiator;
    			case -3: callsub S_OK,Job_Star_Emperor;
    			case -4:
    			case -5:
    			default: callsub S_OK,Job_Sky_Emperor;
    		}
    	}
    
    	switch(getarg(0)) {
    	case -1:
    		callsub S_OK,roclass(eaclass()&EAJ_UPPERMASK);
    	case -2:
    		callsub S_OK,roclass(eaclass()&EAJ_UPPERMASK|EAJL_UPPER);
    	case -3:
    		callsub S_OK,roclass(eaclass()&EAJ_THIRDMASK|EAJL_THIRD);
    	case -4:
    		.@job = roclass(eaclass()&EAJ_THIRDMASK|EAJL_THIRD);
    		callsub S_OK,roclass(eaclass(.@job)|EAJL_FOURTH|EAJL_UPPER);
    	case -5:
    		.@job = roclass(eaclass()&EAJ_THIRDMASK|EAJL_THIRD);
    		if (.@job > 0)
    			callsub S_OK,roclass(eaclass(.@job)|EAJL_FOURTH|EAJL_UPPER)+80;
    	}
    
    S_OK:
    	.@c = getarg(0);
    	if (.@c < 1 && getarg(1,0) == 0) end;
    	if (PACKETVER >= 20231220)
    		setlook LOOK_BODY2,.@c;
    	else if (.@c > 4331 && .@c < 4345)
    		setlook LOOK_BODY2,1;
    	else
    		changebase .@c;
    	JobSuit_active = true;
    	JobSuit_id = .@c;
    	end;
    }
    
    -	script	#JobSuitOnLogin	-1,{	
    OnPCLoginEvent:
    	if (JobSuit_active)
    		F_JobSuit(JobSuit_id);
    	end;
    }

     

    • Upvote 2
  2. Hello, I don't see the variable being set in your item script.
    You can use OnPCLoginEvent on a NPC to reapply the appearance.
    Replace changebase with setlook LOOK_BODY2.

    Example using a function:

        Script: |
          callfunc "F_JobSuit";
        UnEquipScript: |
          callfunc "F_JobSuit",-1;

     

    // callfunc "F_JobSuit";			//Change to evolution sprite
    // callfunc "F_JobSuit",<Job ID>;	//Change to specific sprite
    // callfunc "F_JobSuit",-1;			//Return to default sprite
    
    function	script	F_JobSuit	{
    	if (getarg(0,0) != -1) {
    		if (jobname(getarg(0,-1)) != "Unknown Job")
    			.@c = getarg(0);
    		else if (BaseJob == Job_Priest)
    			.@c = JOB_ARCH_BISHOP;
    		else if (BaseJob == Job_Wizard)
    			.@c = JOB_WARLOCK;
    		else if (BaseJob == Job_Blacksmith)
    			.@c = JOB_MECHANIC;
    		else if (BaseJob == Job_Hunter)
    			.@c = JOB_RANGER;
    		else if (BaseJob == Job_Assassin)
    			.@c = JOB_GUILLOTINE_CROSS;
    		else if (BaseJob == Job_Crusader)
    			.@c = JOB_ROYAL_GUARD;
    		else if (BaseJob == Job_Monk)
    			.@c = JOB_SURA;
    		else if (BaseJob == Job_Sage)
    			.@c = JOB_SORCERER;
    		else if (BaseJob == Job_Rogue)
    			.@c = JOB_SHADOW_CHASER;
    		else if (BaseJob == Job_Alchemist)
    			.@c = JOB_GENETIC;
    		else if (BaseJob == Job_Bard)
    			.@c = JOB_MINSTREL;
    		else if (BaseJob == Job_Dancer)
    			.@c = JOB_WANDERER;
    		
    		if (PACKETVER >= 20231220)
    			setlook LOOK_BODY2,.@c;
    		else
    			changebase .@c;
    		JobSuit_active = true;
    		JobSuit_id = .@c;
    		end;
    	}
    
    	if (PACKETVER >= 20231220)
    		setlook LOOK_BODY2,Class;
    	else
    		changebase Class;
    	JobSuit_active = false;
    	JobSuit_id = 0;
    	end;
    }
    
    -	script	#JobSuitOnLogin	-1,{	
    OnPCLoginEvent:
    	if (JobSuit_active)
    		F_JobSuit(JobSuit_id);
    	end;
    }

     

    • Upvote 2
  3. Hola. Agrega esto en /db/import/item_db.txt:

    22522,100LVUP,Caja de Subida de Nivel 100,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,100,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; getitem 22523,1; },{},{}
    22523,120LVUP,Caja de Subida de Nivel 120,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,120,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; getitem 22525,1; },{},{}
    22525,140LVUP,Caja de Subida de Nivel 140,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,140,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; getitem 22527,1; },{},{}
    22527,160LVUP,Caja de Subida de Nivel 160,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,160,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; getitem 23276,1; },{},{}
    23276,175LVUP,Caja de Subida de Nivel 175,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,175,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; },{},{}
    23937,1LVUP_TW,Caja de Subida de Nivel 1,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; getitem 23938,1; },{},{}
    23938,10LVUP_TW,Caja de Subida de Nivel 10,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,10,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; getitem 23939,1; },{},{}
    23939,20LVUP_TW,Caja de Subida de Nivel 20,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,20,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; getitem 23940,1; },{},{}
    23940,30LVUP_TW,Caja de Subida de Nivel 30,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,30,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; getitem 23941,1; },{},{}
    23941,40LVUP_TW,Caja de Subida de Nivel 40,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,40,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; getitem 23942,1; },{},{}
    23942,50LVUP_TW,Caja de Subida de Nivel 50,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,50,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; getitem 23944,1; },{},{}
    23944,70LVUP_TW,Caja de Subida de Nivel 70,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,70,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; getitem 23945,1; },{},{}
    23945,80LVUP_TW,Caja de Subida de Nivel 80,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,80,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; getitem 23946,1; },{},{}
    23946,90LVUP_TW,Caja de Subida de Nivel 90,2,0,,0,,,,,0xFFFFFFFF,63,2,,,,90,,{ getitem 12263,5; getitem 12264,5; getitem 12265,5; getitem 12766,5; getitem 22522,1; },{},{}

    Busca los IDs de los ítems que vienen en las cajas y cambia la parte del getitem para que coincida con ellos.

  4. Los scripts de Euphy y tr0n usan variables con OnNPCKillEvent y el color del texto es fijo.
    Para mostrar los números de muertes en color amarillo, necesitarás usar el sistema oficial de misiones (setquest / checkquest / erasequest), donde cada muerte cuenta para los miembros del grupo, pero la probabilidad siempre es del 100%.

    Para agregar una nueva misión personalizada, abre el archivo:
    import/quest_db.yml (o import/quest_db.txt si tu rAthena está desactualizado).
    Ejemplo:

      - Id: 7148
        Title: The training course 'conquer the orc village!' - A real battle 1
        Targets:
          - Mob: ORC_BABY
            Count: 10

    Y el archivo en tu carpeta del cliente:
    System/OngoingQuestInfoList (o data/questid2display.txt si tu ejecutable del cliente es antiguo).
    Ejemplo:

    	[7148] = {
    		Title = "¡Conquista el Pueblo de los Orcos!",
    		Description = {
    			"Pueden ser crías, pero se convierten en feroces Guerreros orco. Caza 10 Bebés orco en el Pueblo de los Orcos."
    		},
    		Summary = ""
    	},

    Luego, usa el ID de la misión en el NPC.
    Ejemplo:

    prontera,150,150,4	script	Cazador Simple	123,{  
    	if(checkquest(7148) == -1) {	// Misión no iniciada  
    		mes "[Cazador Simple]";  
    		mes "¡Necesito ayuda cazando monstruos!";  
    		mes "¿Puedes cazar 10 Bebés orco para mí?";  
    		next;  
    		if(select("Aceptar:Rechazar") == 1) {  
    			mes "[Cazador Simple]";  
    			mes "¡Genial! Regresa cuando hayas terminado.";  
    			setquest 7148;  
    			close;  
    		}  
    		mes "[Cazador Simple]";  
    		mes "Tal vez la próxima vez entonces.";  
    		close;  
    	} else if(checkquest(7148,HUNTING) == 2) {	// Caza completada  
    		mes "[Cazador Simple]";  
    		mes "¡Excelente trabajo! Aquí tienes tu recompensa.";  
    		getexp 5000,0;  
    		erasequest 7148;  
    		close;  
    	} else if(checkquest(7148) == 1) {	// Misión activa pero no completada  
    		mes "[Cazador Simple]";  
    		mes "¡Sigue cazando! Aún no has terminado.";  
    		close;  
    	}  
    }


     

    moc_para01,39,36,5	script	Gestor de Misiones#2024	732,{
    	mes "[^FF7700Gestor de Misiones^000000]";
    	mes "Hola, por favor selecciona una misión";
    	while (true) {
    		switch(select((.hunting)?" ~ Misión de Cacería":"",
    					  (.collection)?" ~ Misión de Recolección":"")) {
    		case 1:
    			set .@huntmenu$, "";
    			for(set .@i,0; .@i < .huntingquestcount; set .@i,.@i+1){
    				if (.@i) set .@huntmenu$,.@huntmenu$ + ":";
    				if (gettimetick(2) < getd((.@i+1) + "_hunting_delay"))
    					.@c$ = "^808080";
    				else
    					.@c$ = "^000000";
    				set .@huntmenu$, .@huntmenu$ + .@c$ + "[Nv " + getd("." +(.@i+1)+"_huntingmin") + "-" + getd("." +(.@i+1)+"_huntingmax") + "] " + getd("." + (.@i+1) + "_huntingname$");
    			}
    			set @selection,select(.@huntmenu$);
    			clear;
    			if (.quest_repeat == true) {
    				if(gettimetick(2) < getd(@selection + "_hunting_delay")){
    					mes "[^FF7700Gestor de Misiones^000000]";
    					mes "¡Lo siento, debes esperar 24 horas antes de repetir esta misión!";
    					mes "Por favor espera hasta ^0000FF"+Time2Str(getd(@selection + "_hunting_delay"))+"^000000.";
    					close;
    				}
    			}
    			else {
    				if (getd(@selection + "_hunting_repeat") == true){
    					mes "[^FF7700Gestor de Misiones^000000]";
    					mes "Ya completaste esta misión.";
    					mes "Por favor elige otra.";
    					close;
    				}
    			}
    			mes "[^FF7700Gestor de Misiones^000000]";
    			.@size = getarraysize(getd("."+ @selection + "_huntingmob"));
    			if (.@size == 2)
    				mes "Por favor caza y elimina a ^FF0000"+getd("."+@selection+"_huntingmob[1]")+" " + getmonsterinfo(getd("."+@selection+"_huntingmob[0]"),MOB_NAME)+"^000000.";
    			else {
    				mes "Por favor caza y elimina los siguientes monstruos:";
    				for(set .@j, 0; .@j < .@size; set .@j,.@j+2)
    					mes "- ^FF0000"+getd("."+@selection+"_huntingmob["+(.@j+1)+"]")+" " + getmonsterinfo(getd("."+@selection+"_huntingmob["+.@j+"]"),MOB_NAME)+"^000000";
    			}  
    			next;
    			mes "[^FF7700Gestor de Misiones^000000]";
    			mes "Recompensas:";
    			if (getd("." +@selection+"_huntingexp[0]"))
    				mes "^0000FF" + F_InsertComma(getd("." +@selection+"_huntingexp[0]"))+" EXP Base^000000";
    			if (getd("." +@selection+"_huntingexp[1]"))
    				mes "^0000FF" + F_InsertComma(getd("." +@selection+"_huntingexp[1]"))+" EXP de Clase^000000";
    			if (getd("." +@selection+"_huntingzeny"))
    				mes "Zeny: ^0000FF"+getd("." +@selection+"_huntingzeny")+"^000000";
    			if (getd("." +@selection+"_huntingprize[0]")) {
    				for(.@i = 0; .@i < getarraysize(getd("." +@selection+"_huntingprize")); .@i++)
    					mes getd("." +@selection+"_huntingamount") + " " + getitemname((getd("." +@selection+"_huntingprize["+.@i+"]")));
    			}
    			switch(select("- Aceptar Misión", "- Entregar Misión Completada", "- Cancelar")) {
    			case 1:
    				clear;
    				if (isbegin_quest(getd("." + @selection+"_huntingid")))
    					goto havetaken;
    				if (BaseLevel >= getd("." +@selection+"_huntingmin") && BaseLevel <= getd("." +@selection+"_huntingmax")){
    					mes "[^FF7700Gestor de Misiones^000000]";
    					mes "Misión aceptada.";
    					set h_run, true;
    					set currentquest$, @selection;
    					setquest getd("." + @selection+"_huntingid");
    					close;
    				}
    				else{
    					mes "[^FF7700Gestor de Misiones^000000]";
    					mes "No cumples con el nivel requerido para esta misión.";
    					close;
    				}
    			case 2:
    				clear;
    				switch(checkquest(getd("." +@selection+"_huntingid"),HUNTING)) {
    				case -1:
    					goto nottaken;
    				case 2:
    					mes "[^FF7700Gestor de Misiones^000000]";
    					mes "¡Bien hecho!";
    					mes "Aquí están tus recompensas.";
    					if(getd("." +@selection+"_huntingprize[0]")) {
    						for(.@i = 0; .@i < getarraysize(getd("." +@selection+"_huntingprize")); .@i++)
    							getitem(getd("." +@selection+"_huntingprize["+.@i+"]"),getd("." +@selection+"_huntingamount"));
    					}
    					set Zeny, Zeny+getd("." +@selection+"_huntingzeny");
    					getexp getd("." +@selection+"_huntingexp[0]"),getd("." +@selection+"_huntingexp[1]");
    					erasequest getd("." +@selection+"_huntingid");
    					setd(@selection + "_hunting_delay"),gettimetick(2)+.quest_delay;
    					setd(@selection + "_hunting_repeat"),true;
    					set @selection, "";
    					set h_run, false;
    					end;
    				default:
    					mes "[^FF7700Gestor de Misiones^000000]";
    					mes "Aún no has derrotado a todos los monstruos.";
    					close;
    				}
    			case 3:
    				end;
    			}
    
    		case 2:
    			clear;
    			mes "[^FF7700Gestor de Misiones^000000]";
    			mes "El gremio siempre necesita más recursos.";
    			mes "Por favor, selecciona el área en la que deseas ayudar hoy.";
    			set .@collectmenu$, "";
    			for( set .@i,0; .@i < .collectionquestcount; set .@i,.@i+1){
    				if (.@i) set .@collectmenu$,.@collectmenu$ + ":";
    				if (gettimetick(2) < getd((.@i+1) + "_collection_delay"))
    					.@c$ = "^808080";
    				else
    					.@c$ = "^000000";
    				set .@collectmenu$, .@collectmenu$ + .@c$ + "[Nv " + getd("." +(.@i+1)+"_collectionmin") + "-" + getd("." +(.@i+1)+"_collectionmax") + "] " + getd("." + (.@i+1) + "_collectionname$");
    			}
    			set @selection,select(.@collectmenu$);
    			clear;        
    			if(.quest_repeat == true){
    				if(gettimetick(2) < getd(@selection + "_collection_delay")){
    					mes "[^FF7700Gestor de Misiones^000000]";
    					mes "¡Lo siento, debes esperar 24 horas antes de repetir esta misión!";
    					mes "Por favor espera hasta ^0000FF"+Time2Str(getd(@selection + "_collection_delay"))+"^000000.";
    					close;
    				}
    			}
    			else{
    				if(getd(@selection + "_collection_repeat") == true){
    					mes "[^FF7700Gestor de Misiones^000000]";
    					mes "Ya completaste esta misión.";
    					mes "Por favor elige otra.";
    					close;
    				}
    			}
    			mes "[^FF7700Gestor de Misiones^000000]";
    			mes "Necesitamos lo siguiente:";
    			set .@size, getarraysize(getd("."+ @selection + "_collectionitem"));
    			for( set .@j, 0; .@j < .@size; set .@j,.@j+2){
    				.@a = countitem(getd("."+@selection+"_collectionitem["+.@j+"]"));
    				if (.@a < getd("."+@selection+"_collectionitem["+(.@j+1)+"]"))
    					.@c$ = "^FF0000";
    				else .@c$ = "";
    				mes .@c$ + getd("."+@selection+"_collectionitem["+(.@j+1)+"]") + " " + getitemname(getd("."+@selection+"_collectionitem["+.@j+"]")) + ": " + "(" + .@a + "/"+getd("."+@selection+"_collectionitem["+(.@j+1)+"]") + ")^000000";
    			}
    			next;
    			mes "[^FF7700Gestor de Misiones^000000]";
    			mes "Recompensa:";
    			if (getd("." +@selection+"_collectionexp["+0+"]"))
    				mes "^0000FF" + F_InsertComma(getd("." +@selection+"_collectionexp["+0+"]")) + " EXP Base^000000";
    			if (getd("." +@selection+"_collectionexp["+1+"]"))
    				mes "^0000FF" + F_InsertComma(getd("." +@selection+"_collectionexp["+1+"]")) + " EXP de Clase^000000";
    			if (getd("." +@selection+"_collectionzeny"))
    				mes "Zeny: ^0000FF"+getd("." +@selection+"_collectionzeny")+"^000000";
    			if (getd("." +@selection+"_collectionprize[0]")) {
    				for(.@i = 0; .@i < getarraysize(getd("." +@selection+"_collectionprize")); .@i++)
    					mes getd("." +@selection+"_collectionamount") + " " + getitemname((getd("." +@selection+"_collectionprize["+.@i+"]")));
    			}
    			
    			if (BaseLevel < getd("." +@selection+"_collectionmin") || BaseLevel > getd("." +@selection+"_collectionmax")) {
    				next;
    				mes "[^FF7700Gestor de Misiones^000000]";
    				mes "No cumples con el nivel requerido para esta misión.";
    			}
    			else {
    				if(select("- Entregar objetos", "- Volver") == 1) {
    					clear;
    					set .@size, getarraysize(getd("."+@selection + "_collectionitem"));
    					for( set .@k,0; .@k < .@size; set .@k,.@k+2) {
    						if(countitem(getd("."+@selection+"_collectionitem["+.@k+"]"))>=getd("."+@selection+"_collectionitem["+(.@k+1)+"]")){
    							set .@checkitem,.@checkitem+2;
    						}
    					}
    					if(.@checkitem<.@size){
    						mes "[^FF7700Gestor de Misiones^000000]";
    						mes "No tienes todos los objetos necesarios.";
    						mes F_Rand("¿Olvidaste el objeto en el almacenamiento?","Tal vez intenta con otra misión.","");
    						break;
    					}
    					for( set .@delcount,0; .@delcount < .@size; set .@delcount,.@delcount+2){
    						delitem getd("."+@selection+"_collectionitem["+.@delcount+"]"),getd("."+@selection+"_collectionitem["+(.@delcount+1)+"]");
    					}
    					mes "[^FF7700Gestor de Misiones^000000]";
    					mes "¡Bien hecho!";
    					mes "Aquí están tus recompensas.";
    					if(getd("." +@selection+"_collectionprize[0]")) {
    						for(.@i = 0; .@i < getarraysize(getd("." +@selection+"_collectionprize")); .@i++)
    							getitem(getd("." +@selection+"_collectionprize["+.@i+"]"),getd("." +@selection+"_collectionamount"));
    					}
    					set Zeny,Zeny+getd("." +@selection+"_collectionzeny");
    					getexp getd("." +@selection+"_collectionexp["+0+"]"),getd("." +@selection+"_collectionexp["+1+"]");
    					setd(@selection + "_collection_delay"),gettimetick(2)+.quest_delay;
    					setd(@selection + "_collection_repeat"),true;
    					set @selection, "";
    					close;
    				}
    				else {
    					clear;
    					mes "[^FF7700Gestor de Misiones^000000]";
    					mes F_Rand("¿No fue de tu agrado?","¿Solo estás mirando?","¡Vamos a encontrar la misión adecuada para ti!");
    				}
    			}
    			break;
    
    		case 3:
    			close;
    		}
    		if (rand(3) == 1)
    			mes "¿Qué tal una misión de " + F_Rand("cacería","recolección","aventura","ayuda") + " hoy?";
    	}
    
    OnInit:
    
    	function AddCollection;
    	function AddHunting;
    	questinfo QTYPE_DAILYQUEST, QMARK_NONE;
    
    	//Activate/Deactivate quest categories (true/1 - activated, false/0 - deactivated)
    	set .collection, true;
    	set .hunting, true;
    
    	//Quest Delay (seconds)
    	//24 hours = 86400 seconds
    	set .quest_delay, 120;
    
    	//Activate/Deactivate repeatable quests (true/1 - activated, false/0 - deactivated)
    	set .quest_repeat, true;
    
    	//Activate/Deactivate party support (true/1 - activated, false/0 - deactivated)
    	set .party_support, true;
    
    	//Max range for party support (+- x & y coordinations)
    	set .party_range, 25;
    
    	//Checks if quests are loaded (prevents out of index)
    	if(.questsloaded==true) end;
    	set .questsloaded, true;
    
    
    	//Add Hunting Quests here (You can add as many required mobs as you want)
    	//AddHunting("<Quest Name>",<Quest ID>,<Min Lvl>,<Max Lvl>,<Reward|Item ID>,<Reward|Item Amount>,<Zeny Reward>,<Base EXP>,<Job EXP>,<Monster ID>,<Monster Amount>,...);
    	AddHunting("Prontera Field 01",11340,1,21,"608|609|501|502",1,0,2100,2100,1063,10);
    	AddHunting("Prontera Field 02",11341,1,51,"610",1,0,27300,14700,1063,3,1113,3,1031,3);
    	AddHunting("Descendencia de los orcos",7148,30,99,"610",1,0,27300,14700,1686,10);
    
    	//Add Collection Quests here (You can add as many required items as you want)
    	//AddCollection("<Quest Name>",<Min Lvl>,<Max Lvl>,<Reward|Item ID>,<Reward|Item Amount>,<Zeny Reward>,<Base EXP>,<Job EXP>,<Item ID>,<Item Amount>,...);
    	AddCollection("Foliage Gathering",1,11,"502",1,0,2100,2100,705,10,707,10,7100,10,706,1);
    	AddCollection("Herb Gathering",1,21,"611|612|613|614",1,0,2100,2100,507,8,508,8,509,8,510,8,511,8,621,3);
    	AddCollection("Flower Gathering",1,31,"607",1,0,2100,2100,704,10,708,10,703,10,709,10);
    	AddCollection("Vegetable Gathering",1,41,"607",1,0,2100,2100,515,10,516,10,535,10);
    
    	end;
    
    
    	function AddCollection{
    		set .collectionquestcount,.collectionquestcount+1;
    		setd ("." +.collectionquestcount+"_collectionname$", getarg(0));
    		setd ("." +.collectionquestcount+"_collectionmin", getarg(1));
    		setd ("." +.collectionquestcount+"_collectionmax", getarg(2));
    
    		explode(getd(".@" +.collectionquestcount+"_collectionprize$"), getarg(3) + "", "|");
    		for(.@i = 0; .@i < getarraysize(getd(".@" +.collectionquestcount+"_collectionprize$")); .@i++)
    			setd ("."+.collectionquestcount+"_collectionprize["+.@i+"]",atoi(getd(".@" +.collectionquestcount+"_collectionprize$["+.@i+"]")));
    		//setd ("." +.collectionquestcount+"_collectionprize", getarg(3));
    
    
    		setd ("." +.collectionquestcount+"_collectionamount", getarg(4));
    		setd ("." +.collectionquestcount+"_collectionzeny", getarg(5));
    		set .@argcount, 6;
    		set .@size, getarraysize(getd("."+ .collectionquestcount + "_collectionexp"));
    		setd ("." +.collectionquestcount+"_collectionexp["+.@size+"]",getarg(.@argcount)); 
    		setd ("." +.collectionquestcount+"_collectionexp["+(.@size+1)+"]",getarg(.@argcount+1)); 
    		set .@argcount, .@argcount+2;
    		set .@size, getarraysize(getd("."+ .collectionquestcount + "_collectionitem"));
    		while(getarg(.@argcount,-1)!=-1 && getarg(.@argcount+1,-1)!=-1){
    			setd ("."+.collectionquestcount+"_collectionitem["+.@size+"]",getarg(.@argcount)); 
    			setd ("."+.collectionquestcount+"_collectionitem["+(.@size+1)+"]",getarg(.@argcount+1));
    			set .@argcount,.@argcount+2;
    			set .@size, .@size+2;
    		}
    		return;
    	}
    
    	function AddHunting{
    		set .huntingquestcount,.huntingquestcount+1;
    		setd ("." +.huntingquestcount+"_huntingname$", getarg(0));
    		setd ("." +.huntingquestcount+"_huntingid", getarg(1));
    		setd ("." +.huntingquestcount+"_huntingmin", getarg(2));
    		setd ("." +.huntingquestcount+"_huntingmax", getarg(3));
    		
    		explode(getd(".@" +.huntingquestcount+"_huntingprize$"), getarg(4) + "", "|");
    		for(.@i = 0; .@i < getarraysize(getd(".@" +.huntingquestcount+"_huntingprize$")); .@i++)
    			setd ("."+.huntingquestcount+"_huntingprize["+.@i+"]",atoi(getd(".@" +.huntingquestcount+"_huntingprize$["+.@i+"]")));
    
    		setd ("." +.huntingquestcount+"_huntingamount", getarg(5));
    		setd ("." +.huntingquestcount+"_huntingzeny", getarg(6));
    		set .@size, getarraysize(getd("."+ .huntingquestcount + "_huntingexp"));
    		set .@argcount, 7;
    		setd ("." +.huntingquestcount+"_huntingexp["+.@size+"]",getarg(.@argcount));
    		setd ("." +.huntingquestcount+"_huntingexp["+(.@size+1)+"]",getarg(.@argcount+1)); 
    		set .@argcount, .@argcount+2;
    		set .@size, getarraysize(getd("."+ .huntingquestcount + "_huntingmob"));
    		while(getarg(.@argcount,-1)!=-1 && getarg(.@argcount+1,-1)!=-1){
    			setd ("."+.huntingquestcount+"_huntingmob["+.@size+"]",getarg(.@argcount)); 
    			setd ("."+.huntingquestcount+"_huntingmob["+(.@size+1)+"]",getarg(.@argcount+1));
    			set .@argcount, .@argcount+2;
    			set .@size, .@size+2;
    		}
    		return;
    	}
    
    havetaken:
    	clear;
    	mes "[^FF7700Gestor de Misiones^000000]";
    	mes "Lo siento, ya tienes esta misión activa.";
    	close;
    
    nottaken:
    	clear;
    	mes "[^FF7700Gestor de Misiones^000000]";
    	mes "Parece que aún no has aceptado esta misión.";
    	close;
    }

     

    • Upvote 1
    • Love 1
  5. I modified the file for you.

    -	script	atcmd_example	-1,{
    OnAtcommand:
    	.@itemid = atoi(.@atcmd_parameters$[0]);
    	.@refine = atoi(.@atcmd_parameters$[1]);
    	.@card1 = atoi(.@atcmd_parameters$[2]);
    	.@card2 = atoi(.@atcmd_parameters$[3]);
    	.@card3 = atoi(.@atcmd_parameters$[4]);
    	.@card4 = atoi(.@atcmd_parameters$[5]);
    	if (getitemname(.@itemid) != "null") {
    		if (getiteminfo(.@itemid, 2) != IT_CARD && (!.allowed_items[0] || inarray(.allowed_items, .@itemid) != -1)) {
    			for( .@i = 0; .@i < getarraysize( .rent_time ); .@i++ ) {
    				.@s_count = 0;
    				if (.cost_cash[.@i])
    					.@s$[.@s_count++] = F_InsertComma(.cost_cash[.@i]) + " CASH";
    				if (.cost_item_id && .cost_item_amt[.@i]) {
    					.@payment_option = 1;
    					.@s$[.@s_count++] = .cost_item_amt[.@i]+"x " + getitemname( .cost_item_id );
    				}
    				if (.cost_zeny[.@i]) {
    					.@payment_option = 2;
    					.@s$[.@s_count++] = F_InsertComma(.cost_zeny[.@i]) + "z";
    				}
    				if (getarraysize(.@s$) == 1)
    					.@s2$ = " ^0000FF[" + .@s$[0] + "]^000000";
    				.@menu$ += "Rent for " + .rent_time[.@i] + " day" + (.rent_time[.@i]>1?"s":"") + .@s2$ + ":");
    			}
    			.@i = select(.@menu$) - 1;
    			if (.@s_count > 1) {
    				message strcharinfo(0), "Renting " + getitemname(.@itemid) + ". Choose the Payment option.";
    				if (.cost_cash[.@i])
    					.@t1$ = "Pay " + F_InsertComma(.cost_cash[.@i]) + " CASH";
    				if (.cost_item_id && .cost_item_amt[.@i])
    					.@t2$ = "Pay " + .cost_item_amt[.@i]+"x " + getitemname( .cost_item_id );
    				if (.cost_zeny[.@i])
    					.@t3$ = "Pay " + F_InsertComma(.cost_zeny[.@i]) + "z";
    				if (select("Cancel", .@t1$, .@t2$, .@t3$) == 1)
    					end;
    				.@payment_option = @menu - 2;
    			}
    			switch(.@payment_option) {
    			case 0:
    				if ( #CASHPOINTS < .cost_cash[.@i] ) {
    					dispbottom "You don't have enough CASH.";
    					end;
    				}
    				#CASHPOINTS -= .cost_cash[.@i];
    				break;
    			case 1:
    				if ( countitem( .cost_item_id ) < .cost_item_amt[.@i] ) {
    					dispbottom getitemname( .cost_item_id ) + " is insufficient.";
    					end;
    				}
    				delitem .cost_item_id, .cost_item_amt[.@i];
    				break;
    			case 2:
    				if ( Zeny < .cost_zeny[.@i] ) {
    					dispbottom "You don't have enough Zeny.";
    					end;
    				}
    				Zeny -= .cost_zeny[.@i];
    				break;
    			}
    			rentitem2 .@itemid, .rent_time[.@i] * 86400,1,.@refine,0,.@card1,.@card2,.@card3,.@card4;
    		}
    		else {
    			dispbottom .@atcmd_command$+" - You cant rent "+getitemname(.@itemid);
    		}
    	}
    	else {
    		dispbottom .@atcmd_command$+" - invalid item #"+.@itemid;
    	}
    	end;
    
    OnInit:
    
    //== SETTINGS ==================
    	setarray .allowed_items,5000;
    	setarray .rent_time,1,7,30;	//rent time options in days
    	setarray .cost_cash,100,600,1500;	//Cost in Cash for each option - comment (//) to disable
    	setarray .cost_zeny,10000000,15000000,30000000;	//Cost in Zeny for each option - comment (//) to disable
    	//.cost_item_id = 7929;	//ID of the item used for exchange - comment (//) to disable
    	setarray .cost_item_amt,3,5,10;	//Cost (in item) for each time option - comment (//) to disable
    //===================================
    
    	bindatcmd("rentitem", strnpcinfo(3)+"::OnAtcommand");
    	if (.cost_item_id && .cost_item_amt[0] && getitemname(.cost_item_id) == "null") {
    		errormes "Invalid Item ID for rental cost shop. Skipping.";
    		deletearray .cost_item_amt, getarraysize(.cost_item_amt);
    	}
    	end;
    }



    SPA:

    Spoiler

    Configuración flexible por arrays

    setarray .rent_time,1,7,30;
    setarray .cost_cash,100,600,1500;
    setarray .cost_zeny,10000000,15000000,30000000;

    Los arrays .rent_time, .cost_cash y .cost_zeny están sincronizados por índice.
    Por ejemplo, .rent_time[1] = 7 días, con .cost_cash[1] = 600 y .cost_zeny[1] = 15,000,000
    Esto permite añadir/remover planes de renta fácilmente.

    Construcción del menú dinámico

    for (.@i = 0; .@i < getarraysize(.rent_time); .@i++) {
    	.@s$[.@s_count++] = F_InsertComma(.cost_cash[.@i]) + " CASH";
    	...
    	.@menu$ += "Rent for " + .rent_time[.@i] + " day(s)...";
    }


    Se genera el menú de opciones en tiempo real según la configuración.
    También detecta si hay múltiples formas de pago para mostrar un submenú.

    Manejo de pagos

    switch(.@payment_option) {
    	case 0: // CASH
    	case 1: // ITEM
    	case 2: // ZENY

    El sistema permite múltiples métodos de pago por opción de renta.
    Usa #CASHPOINTS, countitem y Zeny según el caso.
    Si el jugador no tiene suficiente, muestra el motivo y termina.

     

  6. 12 hours ago, JASHI11 said:

    Bueno cual sería las coordenadas exactas ?

    Es que lo ví en otro server y decidí usar esas coordenadas. 

    - creo que mi izlude es antiguo, quiero el actualizado para que el punto de inicio de los players sea iz_int03

    18,27 es la coordenada oficial más reciente.

    Abre el archivo \conf\import\char_conf.txt y añade lo siguiente:

    // Punto de inicio para nuevos personajes
    start_point: iz_int03,18,27

    Guarda el archivo y reinicia el servidor.

  7. On 6/11/2025 at 2:32 AM, JASHI11 said:

    Hola, disculpen es posible publicar mi party desde comando @iparty o un comando que conecte con este npc que recluta personal para partys ?

    Hola. Sí, agrega lo siguiente en la OnInit:

    bindatcmd "iparty",strnpcinfo(3) + "::OnAtcommand";

    Y añade OnAtcommand: en la primera línea del NPC.

    Full Script:

    Spoiler
    //===== rAthena Script =======================================
    //= Cartel de Reclutamiento
    //===== Current Version: =====================================
    //= 1.1 First version. [Racaae]
    //============================================================
    
    prontera,149,164,5	script	Cartel de Reclutamiento	4_BOARD3,{
    OnAtcommand:
    	setarray .@jobs,Job_Priest,Job_Monk,Job_Knight,Job_Crusader,Job_Wizard,Job_Sage,Job_Hunter,Job_Bard,Job_Dancer,Job_Assassin,Job_Rogue,Job_Blacksmith,Job_Alchemist,Job_Gunslinger,Job_Ninja,Job_Star_Gladiator,Job_Soul_Linker;
    	if (checkre(0))
    		setarray .@jobs[getarraysize(.@jobs)],Job_Summoner;
    
    	mes "Ves un cartel viejo. Alguien lo ha reutilizado para otro propósito...";
    	mes "Parece usarse para ^EE8800reclutar miembros para grupos^000000 de aventura.";
    	setarray .@roles$,"Dano","Curador","Tank","Soporte";
    	switch(select("Publicar un anuncio", "Leer los anuncios", "Alejarme")) {
    		case 1:
    			clear;
    			if (!getcharid(1)) {
    				mes "Estoy solo. No tengo party.";
    				close;
    			}
    			if (getcharid(0) != getpartyleader(getcharid(1), 2)) {
    				mes "No soy el líder de mi party. No puedo publicar nada aquí.";
    				close;
    			}
    			.@party_id = getcharid(1);
    
    			for (.@i = 0; .@i < getarraysize($@party_ids); .@i++) {
    				if ($@party_ids[.@i] == .@party_id) {
    					mes "Já hay un anuncio de mi party aquí. Nada que hacer.";
    					close;
    				}
    			}
    
    			mes "Penso un poco...";
    			mes "¿Qué nivel mínimo debería requerir?";
    			input .@min_level,0,MAX_LEVEL;
    			clear;
    			if (.@min_level > 1)
    				mes "Nivel mínimo : " + .@min_level;
    			else
    				mes "Sin nivel mínimo";
    
    			switch(select("Seleccionar roles", "Seleccionar clases", "Cancelar")) {
    			    case 1:
    			        deletearray .@selected_roles[0], getarraysize(.@roles$);
    			        .@accept_all = false;
    
    			        while (1) {
    			            .@menu$ = "";
    
    			            if (.@accept_all)
    			                .@menu$ += "^ff0000Desmarcar todos^000000:";
    			            else
    			                .@menu$ += "[  ] Cualquier rol^000000:";
    
    			            for (.@i = 0; .@i < getarraysize(.@roles$); .@i++) {
    			                .@menu$ += (.@selected_roles[.@i] ? "^0000FF[+] " : "^808080[  ] ") + .@roles$[.@i] + "^000000:";
    			            }
    
    			            .@menu$ += "Confirmar selección";
    
    			            .@opt = select(.@menu$);
    
    			            if (.@opt == 1) {
    			                .@accept_all = !.@accept_all;
    			                if (.@accept_all) {
    			                    for (.@i = 0; .@i < getarraysize(.@roles$); .@i++)
    			                        .@selected_roles[.@i] = true;
    			                } else {
    			                    deletearray .@selected_roles[0], getarraysize(.@roles$);
    			                }
    			            }
    			            else if (.@opt == getarraysize(.@roles$) + 2) {
    			                .@valid = false;
    			                for (.@i = 0; .@i < getarraysize(.@roles$); .@i++) {
    			                    if (.@selected_roles[.@i]) {
    			                        .@valid = true;
    			                        break;
    			                    }
    			                }
    			                if (!.@valid) {
    			                    mes "Necesito seleccionar al menos un rol.";
    			                    continue;
    			                }
    			                break;
    			            }
    			            else {
    			                .@index = .@opt - 2;
    			                .@selected_roles[.@index] = !.@selected_roles[.@index];
    			                if (.@accept_all && !.@selected_roles[.@index])
    			                    .@accept_all = false;
    			            }
    			        }
    
    			        if (.@accept_all) {
    			            .party_filter_type$[.@party_id] = "role";
    			            $@party_filter_values$[.@party_id] = "cualquier";
    			        } else {
    			            .@str$ = "";
    			            for (.@i = 0; .@i < getarraysize(.@roles$); .@i++) {
    			                if (.@selected_roles[.@i]) {
    			                    .@str$ += (.@str$ == "" ? "" : ",") + .@roles$[.@i];
    			                }
    			            }
    			            .party_filter_type$[.@party_id] = "role";
    			            $@party_filter_values$[.@party_id] = .@str$;
    			        }
    
    			        mes "Roles confirmados. Anuncio publicado.";
    			        .@index = getarraysize($@party_ids);
    			        $@party_ids[.@index] = .@party_id;
    			        $@party_min_level[.@party_id] = .@min_level;
    			        $@party_leader$[.@party_id] = strcharinfo(0);
    
    					if ($@party_filter_values$[.@target_pid] != "cualquier")
    						.@announce$[.@count++] = replacestr(.@str$, ",", " / ");
    			        break;
    
    			    case 2:
    			        deletearray .@selected_classes[0], getarraysize(.@jobs);
    			        .@accept_all = false;
    
    			        while (1) {
    			            .@menu$ = "";
    
    			            if (.@accept_all)
    			                .@menu$ += "^ff0000Desmarcar todas^000000:";
    			            else
    			                .@menu$ += "[  ] Cualquier clase^000000:";
    
    			            for (.@i = 0; .@i < getarraysize(.@jobs); .@i++) {
    			                .@menu$ += (.@selected_classes[.@i] ? "^0000FF[+] " : "^808080[  ] ") + jobname(.@jobs[.@i]) + "^000000:";
    			            }
    
    			            .@menu$ += "Confirmar selección";
    			            .@opt2 = select(.@menu$);
    			            if (.@opt2 == 1) {
    			                .@accept_all = !.@accept_all;
    			                if (.@accept_all) {
    			                    for (.@i = 0; .@i < getarraysize(.@jobs); .@i++)
    			                        .@selected_classes[.@i] = true;
    			                } else {
    			                    deletearray .@selected_classes[0], getarraysize(.@jobs);
    			                }
    			            }
    			            else if (.@opt2 == getarraysize(.@jobs) + 2) {
    			                .@valid2 = false;
    			                for (.@i = 0; .@i < getarraysize(.@jobs); .@i++) {
    			                    if (.@selected_classes[.@i]) {
    			                        .@valid2 = true;
    			                        break;
    			                    }
    			                }
    			                if (!.@valid2) {
    			                    mes "Necesito seleccionar al menos una clase.";
    			                    continue;
    			                }
    			                break;
    			            }
    			            else {
    			                .@index2 = .@opt2 - 2;
    			                .@selected_classes[.@index2] = !.@selected_classes[.@index2];
    			                if (.@accept_all && !.@selected_classes[.@index2])
    			                    .@accept_all = false;
    			            }
    			        }
    
    			        if (.@accept_all) {
    			            .party_filter_type$[.@party_id] = "class";
    			            $@party_filter_values$[.@party_id] = "cualquier";
    			        } else {
    			            .@str$ = "";
    			            for (.@i = 0; .@i < getarraysize(.@jobs); .@i++) {
    			                if (.@selected_classes[.@i]) {
    			                    .@str$ += (.@str$ == "" ? "" : ",") + .@jobs[.@i];
    			                }
    			            }
    			            .party_filter_type$[.@party_id] = "class";
    			            $@party_filter_values$[.@party_id] = .@str$;
    
    						explode(.@class_array$, .@str$, ",");
    						if (getarraysize(.@class_array$) < 4) {
    							for (.@i = 0; .@i < getarraysize(.@class_array$); .@i++)
    								.@class_array$[.@i] = jobname(atoi(.@class_array$[.@i]));
    							.@announce$[.@count++] = implode(.@class_array$, " / ");
    						}
    						else
    							.@announce$[.@count++] = "de ciertas clases";
    
    			        }
    			        mes "Clases confirmadas. Anuncio publicado.";
    					mes "Ahora, a esperar que alguien se una.";
    			        .@index = getarraysize($@party_ids);
    			        $@party_ids[.@index] = .@party_id;
    			        $@party_min_level[.@party_id] = .@min_level;
    			        $@party_leader$[.@party_id] = strcharinfo(0);
    					break;
    
    			    case 3:
    			        close;
    			}
    			if ($@party_min_level[.@party_id] > 1)
    				.@announce$[.@count++] = "nivel " + $@party_min_level[.@party_id] + "+";
    			if (.@announce$[0] != "")
    				announce strcharinfo(0) + " está buscando miembros " + implode(.@announce$, " ") + " para su grupo.",0;
    			else
    				announce strcharinfo(0) + " está buscando miembros para su grupo.",0;
    			donpcevent strnpcinfo(0) + "::OnUpdateBoard";
    			close;
    		case 2:
    			if (getarraysize($@party_ids) == 0) {
    				mes "El cartel está vacío. Nadie está reclutando ahora.";
    				close;
    			}
    			for (.@i = 0; .@i < getarraysize($@party_ids); .@i++) {
    				.@pid = $@party_ids[.@i];
    				.@menu$ += "Party de " + $@party_leader$[.@pid] + " (Lv " + $@party_min_level[.@pid] + "+):";
    			}
    
    			.@chosen = select(.@menu$) - 1;
    			.@target_pid = $@party_ids[.@chosen];
    			
    			clear;
    			mes " - Líder: " + $@party_leader$[.@target_pid];
    			if ($@party_min_level[.@target_pid] > 1)
    				mes " - Nivel requerido: " + $@party_min_level[.@target_pid];
    
    			if (.party_filter_type$[.@target_pid] == "role") {
    				mes " - Roles: " + replacestr($@party_filter_values$[.@target_pid], ",", " / ");
    			}
    			else if (.party_filter_type$[.@target_pid] == "class") {
    				if ($@party_filter_values$[.@target_pid] == "cualquier") {
    					mes " - Clasess: Cualquier clase";
    				}
    				else {
    					explode(.@class_array$, $@party_filter_values$[.@target_pid], ",");
    					.@class_str$ = "";
    					for (.@i = 0; .@i < getarraysize(.@class_array$); .@i++) {
    					    .@class_str$ += (.@class_str$ == "" ? "" : ", ") + jobname(atoi(.@class_array$[.@i]));
    					}
    
    					mes "Clases: " + .@class_str$;
    				}
    			} else {
    				mes " - Sin restricciones de clase.";
    			}
    
    			if (BaseLevel < $@party_min_level[.@target_pid]) {
    				mes "Pero... no tengo el nivel suficiente.";
    				close;
    			}
    
    			if (.party_filter_type$[.@target_pid] == "class") {
    				if ($@party_filter_values$[.@target_pid] != "cualquier") {
    					.@my_class$ = "," + Class + ",";
    					.@allowed$ = "," + $@party_filter_values$[.@target_pid] + ",";
    					if (!compare(.@allowed$, .@my_class$)) {
    						mes "Mi clase no está permitida. Qué lástima.";
    						close;
    					}
    				}
    			}
    
    			else if (.party_filter_type$[.@target_pid] == "role") {
    				if ($@party_filter_values$[.@target_pid] == "Curador") {
    					if (!(BaseJob == Job_Acolyte || BaseJob == Job_Priest)) {
    						mes "Mi clase no corresponde al rol que esta party necesita.";
    						close;
    					}
    				}
    
    			}
    			if (getcharid(1)) {
    				mes "Ya pertenezco a una party. No puedo unirme a otra.";
    				close;
    			}
    			mes "Doy un paso al frente, decidido a unirme...";
    			.@result = party_addmember(.@target_pid, getcharid(0));
    			if (.@result == 1)
    				mes "Ahora formo parte de esa party.";
    			else if (.@result == -4)
    				mes "El grupo está lleno";
    			else
    				mes "Algo falló.";
    			close;
    
    		case 3:
    			close;
    	}
    
    OnUpdateBoard:
    	.board_index = getarraysize($@party_ids) - 1;
    OnTimer4000:
    	stopnpctimer;
    	delwaitingroom;
    	.@total = getarraysize($@party_ids);
    	if (.@total) {
    		.@target_pid = $@party_ids[.board_index];
    		.@announce$[.@count++] = $@party_leader$[.@target_pid];
    		if ($@party_min_level[.@target_pid] > 1)
    			.@announce$[.@count++] = "+" + $@party_min_level[.@target_pid];
    		if (.party_filter_type$[.@target_pid] == "role") {
    			if ($@party_filter_values$[.@target_pid] != "cualquier")
    				.@announce$[.@count++] = replacestr($@party_filter_values$[.@target_pid], ",", " / ");
    		}
    		else if ($@party_filter_values$[.@target_pid] != "cualquier") {
    			explode(.@class_array$, $@party_filter_values$[.@target_pid], ",");
    			if (getarraysize(.@class_array$) < 4) {
    				for (.@i = 0; .@i < getarraysize(.@class_array$); .@i++)
    					.@class_array$[.@i] = jobname(atoi(.@class_array$[.@i]));
    				.@announce$[.@count++] = implode(.@class_array$, " / ");
    			}
    			else
    				.@announce$[.@count++] = "Ciertas clases";
    		}
    		waitingroom implode(.@announce$, " "),0;
    		.board_index++;
    		if (.board_index >= .@total)
    			.board_index = 0;
    		initnpctimer;
    	}
    	end;
    
    OnInit:
    	bindatcmd "iparty",strnpcinfo(3) + "::OnAtcommand";
    	deletearray $@party_ids[0];
    	end;
    }

     


     

  8. On 6/13/2025 at 6:25 AM, JASHI11 said:

    el script no me da chat, no funciona.

    He eliminado los comandos mesitemlink e itemlink que no son compatibles con rAthena 2018. Por favor, intenta ahora.
    Si aún no funciona: ¿Aparece algún error o mensaje en la consola del map-server al cargar los scripts? ¿O al utilizar el comando?
    Si te funcionó, ¡dale un voto positivo al post, por favor!

    -	script	CouponNPC#main	-1,{
    S_Start:
    	//Set code type (0 = normal | 1 = MD5-Hash)
    	.code_type = 0;
    	
    	//Set code length
    	.code_length = 12;
    	
    	//Set Min. GM Level to add new coupons
    	.code_gmlvl = 99;
    	
    	setarray .coupon_code$[0],"A","B","C","D","E","F","G","H","I","J","K","L",
    							  "M","N","O","P","Q","R","S","T","U","V","W","X",
    							  "Y","Z","0","1","2","3","4","5","6","7","8","9";
    	
    	if (getgmlevel() >= .code_gmlvl) {
    		mes "[^FF7700Cupón Jack^000000]";
    		mes "Bienvenido GM " + strcharinfo(0) + ".";
    		next;
    		switch(select("Agregar cupón", "Mostrar cupones", "Menú normal", "Cancelar")) {
    			case 1:
    				do {
    					mes "[^FF7700Cupón Jack^000000]";
    					mes "Ingrese el ID del objeto:";
    					input @coupon_item;
    					if (getitemname(@coupon_item) == "null") {
    						clear;
    						mes "[^FF7700Cupón Jack^000000]";
    						mes "ID del objeto " + @coupon_item + " no encontrado.";
    						if (select("Intentar de nuevo", "Cancelar") == 2)
    							close;
    					}
    					else break;
    				} while (true);
    				do {
    					clear;
    					mes "[^FF7700Cupón Jack^000000]";
    					mes getitemname(@coupon_item) + "?";
    					mes "Ingrese la cantidad del objeto:";
    					input @coupon_amount;
    					if (@coupon_amount < 1 || @coupon_amount > 10000) {
    						clear;
    						mes "[^FF7700Cupón Jack^000000]";
    						mes @coupon_amount + " no es una cantidad válida.";
    						if (select("Intentar de nuevo", "Cancelar") == 2)
    							close;
    					}
    					else break;
    				} while (true);
    				do {
    					clear;
    					mes "[^FF7700Cupón Jack^000000]";
    					mes @coupon_amount + "x " + getitemname(@coupon_item);
    					mes "¿Cuántos cupones desea crear con estas mismas recompensas?";
    					next;
    					if (select("Uno", "Ingresar cantidad") == 2) {
    						input .@coupons;
    						if (.@coupons < 1 || .@coupons > 50) {
    							clear;
    							mes "[^FF7700Cupón Jack^000000]";
    							mes .@coupons + " no es una cantidad válida.";
    							if (select("Intentar de nuevo", "Cancelar") == 2)
    								close;
    						}
    						else break;
    					}
    					else break;
    				} while (true);
    				if (.@coupons < 2)
    					.@coupons = 1;
    				do {
    					switch(select("Generar código aleatorio", "Ingresar código manual", "Cancelar")) {
    					case 1:
    						.@random = true;
    						break;
    					case 2:
    						clear;
    						mes "[^FF7700Cupón Jack^000000]";
    						mes "Ingrese el cupón:";
    						mes "Longitud máxima: " + .code_length + " caracter(es)";
    						input .@input_name$;
    						if(getstrlen(.@input_name$) < 0 || getstrlen(.@input_name$) > .code_length) {
    							clear;
    							mes "[^FF7700Cupón Jack^000000]";
    							mes "Inválido.";
    							mes "El cupón debe tener al menos 1 caracter y un máximo de " + .code_length + " caracter(es)";
    						}
    						else {
    							for(.@i = 0; .@i < .@coupons; .@i++)
    								.@new_coupon$[.@i] = .@input_name$;
    						}
    						break;
    					case 3:
    						close;
    					}
    				} while (.@new_coupon$[0] == "" && !.@random);
    				if (.@random || .@coupons > 1) {
    					.@length = .code_length;
    					if (.@new_coupon$[0] != "") {
    						.@endchar = getstrlen(.@new_coupon$[0]);
    						.@length = maximum(.code_length,(.@endchar+4));
    					}
    					for(.@i = 0; .@i < .@coupons; .@i++) {
    						for(.@j = .@endchar; .@j < .@length; .@j++) {
    							.@random_char = rand(getarraysize(.coupon_code$));
    							.@new_coupon$[.@i] += .coupon_code$[.@random_char];
    						}
    						if (.code_type == 1)
    							.@new_coupon$[.@i] = md5(.@new_coupon$[.@i]);
    					}
    				}
    				clear;
    				mes "[^FF7700Cupón Jack^000000]";
    				mes @coupon_amount + "x " + getitemname(@coupon_item);
    				for(.@i = 0; .@i < .@coupons; .@i++)
    					mes "Cupón" + (.@coupons>1?" "+(.@i+1):"") + ": ^EE8800" + .@new_coupon$[.@i] + "^000000";
    				if(select("^0000FFConfirmar " + F_InsertPlural(.@coupons,"cupón") + "^000000", "Cancelar") == 2)
    					close;
    				for(.@i = 0; .@i < .@coupons; .@i++)
    					query_sql "INSERT INTO `coupons` (`code`, `item_id`, `item_amount`) VALUES ('" + escape_sql(.@new_coupon$[.@i]) + "', "+@coupon_item+", "+@coupon_amount+")";
    				clear;
    				mes "[^FF7700Cupón Jack^000000]";
    				mes F_InsertPlural(.@coupons,"cupón") + " agregado.";
    				for(.@i = 0; .@i < .@coupons; .@i++)
    					mes "Cupón" + (.@coupons>1?" "+(.@i+1):"") + ": ^EE8800" + .@new_coupon$[.@i] + "^000000";
    				close;
    				
    			case 2:
    				mes "[^FF7700Cupón Jack^000000]";
    				query_sql "SELECT `code`, `item_id`, `item_amount` FROM `coupons`", .@available_code$, .@available_item, .@available_amount;
    				.@total_codes = getarraysize(.@available_code$);
    				if (!.@total_codes)
    					mes "No hay códigos disponibles.";
    				dispbottom "===============================";
    				dispbottom "Código | Objeto | Cantidad";
    				for(.@i = 0; .@i < .@total_codes; .@i++) {
    					mes "--------------------------------";
    					mes "Objeto: " + getitemname(.@available_item[.@i]);
    					mes "Cantidad: " + .@available_amount[.@i];
    					mes "Código: " + .@available_code$[.@i];
    					dispbottom .@available_code$[.@i] + " | " + getitemname(.@available_item[.@i]) + " | x" + .@available_amount[.@i]; 
    				}
    				dispbottom "===============================";
    				close;
    
    			case 3:
    				break;
    
    			case 4:
    				mes "[^FF7700Cupón Jack^000000]";
    				mes "¡Que tenga un buen día!";
    				close;
    		}
    	}
    	mes "[^FF7700Cupón Jack^000000]";
    	mes "Bienvenido al sistema de códigos de cupones. ¿En qué puedo ayudarte?";
    	mes " ", "También puedes usar el comando", "^0000FF@claim <código del cupón>^000000 desde cualquier parte del mundo.";
    	next;
    	switch(Select("Canjear cupón", "Cancelar")) {
    		case 1:
    			mes "[^FF7700Cupón Jack^000000]";
    			mes "Por favor, introduce tu código de cupón:";
    			input .@my_code$;
    			clear;
    			callsub S_Submit,.@my_code$;
    			close;
    		case 2:
    			mes "[^FF7700Cupón Jack^000000]";
    			mes "¡Que tenga un buen día!";
    			close;
    	}
    
    S_Submit:
    	.@my_code$ = getarg(0);
    	query_sql "SELECT `code`, `item_id`, `item_amount` FROM `coupons`", .@available_code$, .@available_item, .@available_amount;
    	for (@i = 0; @i < getarraysize(.@available_code$); @i++) {
    		if (strtoupper(.@my_code$) == strtoupper(.@available_code$[@i])) {
    			if (checkweight(.@available_item[@i],.@available_amount[@i]) == 0) {
    				if (getarg(1,0)) {
    					message strcharinfo(0), "No tienes suficiente espacio en el inventario para reclamar este cupón.";
    					end;
    				}
    				mes "[^FF7700Cupón Jack^000000]";
    				mes "No tienes suficiente espacio en el inventario para reclamar este cupón.";
    				close;
    			}
    			query_sql "DELETE FROM `coupons` WHERE `code`='" + escape_sql(.@my_code$) + "'";
    			getitem .@available_item[@i],.@available_amount[@i];
    			if (getarg(1,0)) {
    				message strcharinfo(0), "¡Cupón canjeado! Has recibido " + getitemname(.@available_item[@i]) + " - " + .@available_amount[@i] + " unidad(es).^000000";
    				end;
    			}
    			mes "[^FF7700Cupón Jack^000000]";
    			mes "Has recibido ^0000FF" + getitemname(.@available_item[@i]) + " - " + .@available_amount[@i] + " unidad(es).^000000";
    			close;
    		}
    	}
    	if (getarg(1,0)) {
    		message strcharinfo(0), "El cupón " + .@my_code$ + " no existe o ya fue canjeado.";
    		end;
    	}
    	mes "[^FF7700Cupón Jack^000000]";
    	mes "Este código de cupón no existe o ya fue canjeado.";
    	close;
    
    OnInit:
    	query_sql "CREATE TABLE IF NOT EXISTS `coupons` (`code` TINYTEXT NOT NULL, `item_id` INT NOT NULL, `item_amount` INT NOT NULL, INDEX `code` (`code`(32)) ) ENGINE=MyISAM";
    	if (strnpcinfo(2) == "main")
    		bindatcmd "claim",strnpcinfo(3)+"::OnAtcommand";
    	end;
    
    OnAtcommand:
    	if (.@atcmd_parameters$[0] != "")
    		callsub S_Submit,implode(.@atcmd_parameters$, " "),1;
    	callsub S_Start;
    	end;
    }
    
    //Uncomment to enable clickable NPC
    //prontera,146,173,5	duplicate(CouponNPC#main)	Cupón Jack	807

     

    • MVP 1
  9. 29 minutes ago, JASHI11 said:

    2018 

    [Error]:  Loading NPC file: npc/custom/Pack_Bienvenida.txt
    script error on npc/custom/Pack_Bienvenida.txt line 68
        parse_line: expected ';'
        63 :                                case 4: close3;
        64 :                        }
        65 :                        mes "[Pack Bienvenida]";
        66 :                        mes "▒Est▒ seguro? Contenido del ^43572FPack^000000:";
        67 :                        for (.@x = 0; .@x < getarraysize(.@list); .@x += 2)
    *   68 :                                mes (.@list[.@x+1]>1?.@list[.@x+1] + "x ":"") + mesitemlink'('.@list[.@x]);
        69 :                        mes "^FF0000Solo puedes recibir el pack una vez.^000000";
        70 :                        next;
        71 :                        if (select("S▒", "No") == 2)
        72 :                                close3;
        73 :                        if (#freebies) {
     

    OK. No existía el comando meitemlink en 2018. Adaptado para ti:
     

    iz_int,24,34,3	script	Pack Bienvenida	4_F_EDEN_OFFICER,6,6,{
    	.@server_name$ = "Apocalypse RO";
    
    	//Item ID, Item amount
    	setarray .@items_INT,
    		5126,1,		// Morpheus's Hood
    		2518,1,		// Morpheus's Shawl
    		2648,1,		// Morpheus's Ring
    		2649,1,		// Morpheus's Bracelet
    		100054,1,	// Shadow Transcendental Time Crate 
    		11567,200,	// [Event] Novice Potion
    		12324,30,	// Novice Butterfly Wing
    		12325,30,	// Novice Magnifier
    		12323,50,	// Novice Fly Wing 
    		11572,30,	// [Event] Blue Potion
    		12264,2;	// [Event] Bubble Gum
    
    	//Item ID, Item amount
    	setarray .@items_DEX,
    		5544,1,		// Time Keeper Hat
    		15007,1,	// Time Keeper Robe
    		2145,1,		// Time Keeper Shield
    		2455,1,		// Time Keeper Shoes
    		2559,1,		// Time Keeper Manteau
    		19218,1,	// Time Keeper Glasses 
    		28511,1,	// Time Keeper Ring
    		11567,200,	// [Event] Novice Potion
    		12324,30,	// Novice Butterfly Wing
    		12325,30,	// Novice Magnifier
    		12323,50,	// Novice Fly Wing 
    		11572,10,	// [Event] Blue Potion 
    		12263,2;	// [Event] Battle Manual 
    
    	//Item ID, Item amount
    	setarray .@items_STR,
    		5127,1,		// Morrigane's Helm
    		2519,1,		// Morrigane's Manteau  
    		2650,1,		// Morrigane's Belt  
    		2651,1,		// Morrigane's Pendant  
    		11567,300,	// [Event] Novice Potion
    		12324,30,	// Novice Butterfly Wing
    		12325,30,	// Novice Magnifier
    		12323,50,	// Novice Fly Wing 
    		11572,10,	// [Event] Blue Potion 
    		7776,2;		// Gym Pass
    
    	cutin "laime_evenor01",2;
       	mes "[Pack Bienvenida]";
    	mes "Hola ^FF0000" + strcharinfo(0) + "^000000.";
    	mes "¡Bienvenido a ^00B2EE" + .@server_name$ + "^000000!";
    	next;
    	switch(select("^000088Reclamar Pack Bienvenida^000000", "Cancelar")) {
    		case 1:
    			if (#freebies) {
       				mes "[Pack Bienvenida]";
       				mes "Ya tienes tu pack de inicio.";
       				close3;
       			}
    			switch(select("Paquete INT", "Paquete DEX", "Paquete STR", "Cancelar")) {
    				case 1: copyarray .@list[0],.@items_int,getarraysize(.@items_int); break;
    				case 2: copyarray .@list[0],.@items_dex,getarraysize(.@items_dex); break;
    				case 3: copyarray .@list[0],.@items_str,getarraysize(.@items_str); break;
    				case 4: close3;
    			}
    			mes "[Pack Bienvenida]";
    			mes "¿Está seguro? Contenido del ^43572FPack^000000:";
    			for (.@x = 0; .@x < getarraysize(.@list); .@x += 2)
    				mes (.@list[.@x+1]>1?.@list[.@x+1] + "x ":"") + getitemname(.@list[.@x]);
    			mes "^FF0000Solo puedes recibir el pack una vez.^000000";
    			next;
    			if (select("Sí", "No") == 2)
    				close3;
    			if (#freebies) {
       				mes "[Pack Bienvenida]";
       				mes "Ya tienes tu pack de inicio.";
       				close3;
       			}
    			#freebies++;
    			announce "Démosle la bienvenida a " + strcharinfo(0) + " acaba de iniciar en el servidor " + .@server_name$ + "!",0;
       			mes "[Pack Bienvenida]";
    			mes "¡Aquí están tus ^43572FPack^000000!";
    			mes "Espero que te diviertas en ^00B2EE" + .@server_name$ + "^000000!";
    			for (.@x = 0; .@x < getarraysize(.@list); .@x += 2)
    				getitem .@list[.@x], .@list[.@x+1];
    			close3;
    		case 2:
    			close3;
    	}
    
    OnInit:
    	questinfo QTYPE_CLICKME, QMARK_YELLOW, "!#freebies";
    	end;
    
    OnTouch:
    	if (!#freebies)
    		npctalk "Hola " + strcharinfo(0) + ". Ven a reclamar el Pack bienvenida!", "", bc_self;
    	end;
    }
    
    iz_int01,24,34,3	duplicate(Pack Bienvenida)	Pack Bienvenida#1	4_F_EDEN_OFFICER,6,6
    iz_int02,24,34,3	duplicate(Pack Bienvenida)	Pack Bienvenida#2	4_F_EDEN_OFFICER,6,6
    iz_int03,24,34,3	duplicate(Pack Bienvenida)	Pack Bienvenida#3	4_F_EDEN_OFFICER,6,6
    iz_int04,24,34,3	duplicate(Pack Bienvenida)	Pack Bienvenida#4	4_F_EDEN_OFFICER,6,6
    new_1-1,57,117,3	duplicate(Pack Bienvenida)	Pack Bienvenida#5	4_F_EDEN_OFFICER,6,6
    new_2-1,57,117,3	duplicate(Pack Bienvenida)	Pack Bienvenida#6	4_F_EDEN_OFFICER,6,6
    new_3-1,57,117,3	duplicate(Pack Bienvenida)	Pack Bienvenida#7	4_F_EDEN_OFFICER,6,6
    new_4-1,57,117,3	duplicate(Pack Bienvenida)	Pack Bienvenida#8	4_F_EDEN_OFFICER,6,6
    lasa_fild01,51,306,3	duplicate(Pack Bienvenida)	Pack Bienvenida#9	4_F_EDEN_OFFICER,6,6


     

  10. iz_int,24,34,3	script	Pack Bienvenida	4_F_EDEN_OFFICER,6,6,{
    	.@server_name$ = "Apocalypse RO";
    
    	//Item ID, Item amount
    	setarray .@items_INT,
    		5126,1,		// Morpheus's Hood
    		2518,1,		// Morpheus's Shawl
    		2648,1,		// Morpheus's Ring
    		2649,1,		// Morpheus's Bracelet
    		100054,1,	// Shadow Transcendental Time Crate 
    		11567,200,	// [Event] Novice Potion
    		12324,30,	// Novice Butterfly Wing
    		12325,30,	// Novice Magnifier
    		12323,50,	// Novice Fly Wing 
    		11572,30,	// [Event] Blue Potion
    		12264,2;	//[Event] Bubble Gum 
    
    	//Item ID, Item amount
    	setarray .@items_DEX,
    		5544,1,		// Time Keeper Hat
    		15007,1,	// Time Keeper Robe
    		2145,1,		// Time Keeper Shield
    		2455,1,		// Time Keeper Shoes
    		2559,1,		// Time Keeper Manteau
    		19218,1,	// Time Guardian Glasses 
    		28511,1,	// Time Guardian Ring
    		11567,200,	// [Event] Novice Potion
    		12324,30,	// Novice Butterfly Wing
    		12325,30,	// Novice Magnifier
    		12323,50,	// Novice Fly Wing 
    		11572,10,	// [Event] Blue Potion 
    		12263,2;	//[Event] Battle Manual 
    
    	//Item ID, Item amount
    	setarray .@items_STR,
    		5127,1,		// Morrigane's Helm
    		2519,1,		// Morrigane's Manteau  
    		2650,1,		// Morrigane's Belt  
    		2651,1,		// Morrigane's Pendant  
    		11567,300,	// [Event] Novice Potion
    		12324,30,	// Novice Butterfly Wing
    		12325,30,	// Novice Magnifier
    		12323,50,	// Novice Fly Wing 
    		11572,10,	// [Event] Blue Potion 
    		7776,2;		//Gym Pass
    
    	cutin "laime_evenor01",2;
       	mes "[Pack Bienvenida]";
    	mes "Hola ^FF0000" + strcharinfo(0) + "^000000.";
    	mes "¡Bienvenido a ^00B2EE" + .@server_name$ + "^000000!";
    	next;
    	switch(select("^000088Reclamar Pack Bienvenida^000000", "Cancelar")) {
    		case 1:
    			if (#freebies) {
       				mes "[Pack Bienvenida]";
       				mes "Ya tienes tu pack de inicio.";
       				close3;
       			}
    			switch(select("Paquete INT", "Paquete DEX", "Paquete STR", "Cancelar")) {
    				case 1: copyarray .@list[0],.@items_int,getarraysize(.@items_int); break;
    				case 2: copyarray .@list[0],.@items_dex,getarraysize(.@items_dex); break;
    				case 3: copyarray .@list[0],.@items_str,getarraysize(.@items_str); break;
    				case 4: close3;
    			}
    			mes "[Pack Bienvenida]";
    			mes "¿Está seguro? Contenido del ^43572FPack^000000:";
    			for (.@x = 0; .@x < getarraysize(.@list); .@x += 2)
    				mes (.@list[.@x+1]>1?.@list[.@x+1] + "x ":"") + mesitemlink(.@list[.@x]);
    			mes "^FF0000Solo puedes recibir el pack una vez.^000000";
    			next;
    			if (select("Sí", "No") == 2)
    				close3;
    			if (#freebies) {
       				mes "[Pack Bienvenida]";
       				mes "Ya tienes tu pack de inicio.";
       				close3;
       			}
    			#freebies++;
    			announce "Démosle la bienvenida a " + strcharinfo(0) + " acaba de iniciar en el servidor " + .@server_name$ + "!",0;
       			mes "[Pack Bienvenida]";
    			mes "¡Aquí están tus ^43572FPack^000000!";
    			mes "Espero que te diviertas en ^00B2EE" + .@server_name$ + "^000000!";
    			for (.@x = 0; .@x < getarraysize(.@list); .@x += 2)
    				getitem .@list[.@x], .@list[.@x+1];
    			close2;
    			cutin "",255;
    			cloakonnpcself;
    			end;
    		case 2:
    			close3;
    	}
    
    OnInit:
    	questinfo QTYPE_CLICKME, QMARK_YELLOW, "!#freebies";
    	end;
    
    OnTouch:
    	if (!#freebies)
    		npctalk "Hola " + strcharinfo(0) + ". Ven a reclamar el Pack bienvenida!", "", bc_self;
    	end;
    }
    
    iz_int01,24,34,3	duplicate(Pack Bienvenida)	Pack Bienvenida#1	4_F_EDEN_OFFICER,6,6
    iz_int02,24,34,3	duplicate(Pack Bienvenida)	Pack Bienvenida#2	4_F_EDEN_OFFICER,6,6
    iz_int03,24,34,3	duplicate(Pack Bienvenida)	Pack Bienvenida#3	4_F_EDEN_OFFICER,6,6
    iz_int04,24,34,3	duplicate(Pack Bienvenida)	Pack Bienvenida#4	4_F_EDEN_OFFICER,6,6
    new_1-1,57,117,3	duplicate(Pack Bienvenida)	Pack Bienvenida#5	4_F_EDEN_OFFICER,6,6
    new_2-1,57,117,3	duplicate(Pack Bienvenida)	Pack Bienvenida#6	4_F_EDEN_OFFICER,6,6
    new_3-1,57,117,3	duplicate(Pack Bienvenida)	Pack Bienvenida#7	4_F_EDEN_OFFICER,6,6
    new_4-1,57,117,3	duplicate(Pack Bienvenida)	Pack Bienvenida#8	4_F_EDEN_OFFICER,6,6
    lasa_fild01,51,306,3	duplicate(Pack Bienvenida)	Pack Bienvenida#9	4_F_EDEN_OFFICER,6,6

     

  11. 48 minutes ago, JASHI11 said:

    - es posible comando @claim ?? que no exista npc.

    You can delete or comment out the following line so the NPC doesn't exist. The @claim command will still work.

    SPA:

    Puedes eliminar o comentar la siguiente línea para que no exista el NPC. El comando @claim seguirá funcionando.

    Find:

    prontera,146,173,5	duplicate(CouponNPC#main)	Cupón Jack	807

    Replace:
     

    //prontera,146,173,5	duplicate(CouponNPC#main)	Cupón Jack	807

     

  12. Spoiler

     

    //--- Coupon NPC 1.1.2 -------------------------------------------//
    //----------------------------------------------------------------//
    //    ttt              000000000
    //    ttt              000   000
    // ttttttttt rrrrrrrrr 000   000 nnnnnnnnn
    //    ttt    rrr       000   000 nnn   nnn
    //    ttt    rrr       000   000 nnn   nnn
    //    ttt    rrr       000   000 nnn   nnn
    //    ttttt  rrr       000000000 nnn   nnn
    //----------------------------------------------------------------//
    //--- Changelogs: ------------------------------------------------//
    // 1.0.0 Release
    // 1.1.0 Added code type feature (normal|md5-hash)
    // 1.1.0 Added prevention for typing 0 into Item ID or Amount
    // 1.1.0 Added a feature for gms to see available coupons
    // 1.1.0 Minor bug fixes
    // 1.1.1 Fixed a bug that caused duplicating items
    // 1.1.2 Added announce if player got a item
    //----------------------------------------------------------------//
    //--- Main Script ------------------------------------------------//
    -	script	CouponNPC#main	-1,{
    S_Start:
    	//Set code type (0 = normal | 1 = MD5-Hash)
    	.code_type = 0;
    	
    	//Set code length
    	.code_length = 16;
    	
    	//Set Min. GM Level to add new coupons
    	.code_gmlvl = 99;
    	
    	setarray .coupon_code$[0],"a","b","c","d","e","f","g","h","i","j","k","l",
    							  "m","n","o","p","q","r","s","t","u","v","w","x",
    							  "y","z","0","1","2","3","4","5","6","7","8","9";
    	
    		if(getgmlevel() >= .code_gmlvl)
    	{
    		mes "[^FF7700Cupón Jack^000000]";
    		mes "Bienvenido GM " + strcharinfo(0) + ".";
    		next;
    		switch(select("Agregar cupón", "Mostrar cupones", "Menú normal", "Cancelar"))
    		{
    			case 1:
    				do {
    					mes "[^FF7700Cupón Jack^000000]";
    					mes "Ingrese el ID del objeto:";
    					input @coupon_item;
    					if (getitemname(@coupon_item) == "null") {
    						clear;
    						mes "[^FF7700Cupón Jack^000000]";
    						mes "ID del objeto " + @coupon_item + " no encontrado.";
    						if (select("Intentar de nuevo", "Cancelar") == 2)
    							close;
    					}
    					else break;
    				} while (true);
    				do {
    					clear;
    					mes "[^FF7700Cupón Jack^000000]";
    					mes mesitemlink(@coupon_item) + "?";
    					mes "Ingrese la cantidad del objeto:";
    					input @coupon_amount;
    					if (@coupon_amount < 1 || @coupon_amount > 10000) {
    						clear;
    						mes "[^FF7700Cupón Jack^000000]";
    						mes @coupon_amount + " no es una cantidad válida.";
    						if (select("Intentar de nuevo", "Cancelar") == 2)
    							close;
    					}
    					else break;
    				} while (true);
    				do {
    					clear;
    					mes "[^FF7700Cupón Jack^000000]";
    					mes @coupon_amount + "x " + mesitemlink(@coupon_item);
    					mes "¿Cuántos cupones desea crear con estas mismas recompensas?";
    					next;
    					if (select("Uno", "Ingresar cantidad") == 2) {
    						input .@coupons;
    						if (.@coupons < 1 || .@coupons > 50) {
    							clear;
    							mes "[^FF7700Cupón Jack^000000]";
    							mes .@coupons + " no es una cantidad válida.";
    							if (select("Intentar de nuevo", "Cancelar") == 2)
    								close;
    						}
    						else break;
    					}
    					else break;
    				} while (true);
    				if (.@coupons < 2) {
    					.@coupons = 1;
    					do {
    						switch(select("Generar código aleatorio", "Ingresar código manual", "Cancelar")) {
    						case 1:
    							.@random = true;
    							break;
    						case 2:
    							clear;
    							mes "[^FF7700Cupón Jack^000000]";
    							mes "Ingrese el cupón:";
    							mes "Longitud máxima: " + .code_length + " caracter(es)";
    							input .@input_name$;
    							if(getstrlen(.@input_name$) < 0 || getstrlen(.@input_name$) > .code_length) {
    								clear;
    								mes "[^FF7700Cupón Jack^000000]";
    								mes "Inválido.";
    								mes "El cupón debe tener al menos 1 caracter y un máximo de " + .code_length + " caracter(es)";
    							}
    							else
    								.@new_coupon$[0] = .@input_name$;
    							break;
    						case 3:
    							close;
    						}
    					} while (.@new_coupon$[0] == "" && !.@random);
    				}
    				if (.@random || .@coupons > 1) {
    					for(.@i = 0; .@i < .@coupons; .@i++) {
    						for(set @j, 0; @j < .code_length; set @j, @j+1) {
    							set @random_char, rand(0,(getarraysize(.coupon_code$)-1));
    							set .@new_coupon$[.@i], .@new_coupon$[.@i] + .coupon_code$[@random_char];
    						}
    						if (.code_type==1) {
    							set .@new_coupon$[.@i], md5(.@new_coupon$[.@i]);
    						}
    					}
    				}
    				clear;
    				mes "[^FF7700Cupón Jack^000000]";
    				mes @coupon_amount + "x " + mesitemlink(@coupon_item);
    				for(.@i = 0; .@i < .@coupons; .@i++)
    					mes "Cupón" + (.@coupons>1?" "+(.@i+1):"") + ": ^EE8800" + .@new_coupon$[.@i] + "^000000";
    				if(select("^0000FFConfirmar " + F_InsertPlural(.@coupons,"cupón") + "^000000", "Cancelar") == 2)
    					close;
    				for(.@i = 0; .@i < .@coupons; .@i++)
    					query_sql "INSERT INTO `coupons` (`code`, `item_id`, `item_amount`) VALUES ('" + escape_sql(.@new_coupon$[.@i]) + "', "+@coupon_item+", "+@coupon_amount+")";
    				clear;
    				mes "[^FF7700Cupón Jack^000000]";
    				mes F_InsertPlural(.@coupons,"cupón") + " agregado.";
    				for(.@i = 0; .@i < .@coupons; .@i++)
    					mes "Cupón" + (.@coupons>1?" "+(.@i+1):"") + ": ^EE8800" + .@new_coupon$[.@i] + "^000000";
    				close;
    				
    			case 2:
    				mes "[^FF7700Cupón Jack^000000]";
    				query_sql "SELECT `code`, `item_id`, `item_amount` FROM `coupons`", .@available_code$, .@available_item, .@available_amount;
    				if (getarraysize(.@available_code$) < 1)
    					mes "No hay códigos disponibles.";
    				for(set @i, 0; @i < getarraysize(.@available_code$); set @i, @i+1)
    				{
    					mes "--------------------------------";
    					mes "Objeto: " + mesitemlink(.@available_item[@i]);
    					mes "Cantidad: " + .@available_amount[@i];
    					mes "Código: " + .@available_code$[@i];
    				}
    				close;
    				
    			case 3:
    				break;
    
    			case 4:
    				mes "[^FF7700Cupón Jack^000000]";
    				mes "¡Que tenga un buen día!";
    				close;
    		}
    	}
    	mes "[^FF7700Cupón Jack^000000]";
    	mes "Bienvenido al sistema de códigos de cupones. ¿En qué puedo ayudarte?";
    	mes " ", "También puedes usar el comando", "^0000FF@claim <código del cupón>^000000 desde cualquier parte del mundo.";
    	next;
    	switch(Select("Canjear cupón", "Cancelar"))
    	{
    		case 1:
    			mes "[^FF7700Cupón Jack^000000]";
    			mes "Por favor, introduce tu código de cupón:";
    			input .@my_code$;
    			clear;
    			callsub S_Submit,.@my_code$;
    			next;
    		case 2:
    			mes "[^FF7700Cupón Jack^000000]";
    			mes "¡Que tenga un buen día!";
    			close;
    	}
    
    S_Submit:
    	.@my_code$ = getarg(0);
    	query_sql "SELECT `code`, `item_id`, `item_amount` FROM `coupons`", .@available_code$, .@available_item, .@available_amount;
    	for (@i = 0; @i < getarraysize(.@available_code$); @i++)
    	{
    		if(.@my_code$ == .@available_code$[@i])
    		{
    			if (checkweight(.@available_item[@i],.@available_amount[@i]) == 0) {
    				if (getarg(1,0)) {
    					message strcharinfo(0), "No tienes suficiente espacio en el inventario para reclamar este cupón.";
    					end;
    				}
    				mes "[^FF7700Cupón Jack^000000]";
    				mes "No tienes suficiente espacio en el inventario para reclamar este cupón.";
    				close;
    			}
    			query_sql "DELETE FROM `coupons` WHERE `code`='" + escape_sql(.@my_code$) + "'";
    			getitem .@available_item[@i],.@available_amount[@i];
    			if (getarg(1,0)) {
    				message strcharinfo(0), "¡Cupón canjeado! Has recibido " + itemlink(.@available_item[@i]) + " - " + .@available_amount[@i] + " unidad(es).^000000";
    				end;
    			}
    			mes "[^FF7700Cupón Jack^000000]";
    			mes "Has recibido ^0000FF" + getitemname(.@available_item[@i]) + " - " + .@available_amount[@i] + " unidad(es).^000000";
    			close;
    		}
    	}
    	if (getarg(1,0)) {
    		message strcharinfo(0), "El cupón " + .@my_code$ + " no existe o ya fue canjeado.";
    		end;
    	}
    	mes "[^FF7700Cupón Jack^000000]";
    	mes "Este código de cupón no existe o ya fue canjeado.";
    	close;
    
    OnInit:
    	query_sql "CREATE TABLE IF NOT EXISTS `coupons` (`code` TINYTEXT NOT NULL, `item_id` INT NOT NULL, `item_amount` INT NOT NULL, INDEX `code` (`code`(32)) ) ENGINE=MyISAM";
    	if (strnpcinfo(2) == "main")
    		bindatcmd "claim",strnpcinfo(3)+"::OnAtcommand";
    	end;
    
    OnAtcommand:
    	if (.@atcmd_parameters$[0] != "")
    		callsub S_Submit,implode(.@atcmd_parameters$, " "),1;
    	callsub S_Start;
    	end;
    }
    
    prontera,146,173,5	duplicate(CouponNPC#main)	Cupón Jack	807

     

  13. On 5/23/2025 at 11:08 PM, AinsLord said:

    how about this error i've been checking this one on how to fix it hehehe still no luck

    using the dust item to teleport from floors

    also the access in floor to the 101F

    The player is talking to the NPC in the original (non-instanced) map. The script is supposed to be used only inside the instance.
     

    On 5/23/2025 at 11:08 PM, AinsLord said:

    EDIT: @Racaae seems no NPC on my end

    You're right. The NPC is too far from the edge for you to see it. I'm able to see it because my view range is increased. You could move it to somewhere closer, make it cloaked and uncloak just for GMs/ADMs.
     

    On 12/20/2024 at 3:40 PM, AinsLord said:

    How can I make this instance 2x a week or 3x a week?

    thank you!

    I added the option to count weekly entrances. You still need to change the cooldown time of the quest. If you want to try it, replace the whole Stone NPC.

    e_tower,81,105,0	script	Tower Protection Stone	2_MONEMUS,{
    	$@etower_allow_reenter = true; //Allow reentering same Endless Tower. (true/false)
    	$@etower_weekly_type = 1; // 0=no weekly limit. 1=distinct ET weekly entry limit. 2=gain points weekly limit.
    	$@etower_weekly_limit = 3; //how many times per week at max?
    
    // GM Bypass
    //============================================================
    	if(getgroupid() > 90){
            mes "GM Options";
    		next;
            switch(select("Main Menu", "Reset Cooldowns", "Destroy Instance")){
    			case 1: break;
    			case 2: 
    				if(isbegin_quest(60200))
    					erasequest(60200);
    				if(isbegin_quest(60201))
    					erasequest(60201);
    				etower_timer = 0;
    				//etower_instanceid = 0;
    				etower_weekly_count = 0;
    				etower_week_cd = 0;
    				etower_year_cd = 0;
    				end;
    			case 3:
    				if(instance_id(IM_PARTY))
    					instance_destroy instance_id(IM_PARTY);
    				end;
            }
        }
    //============================================================
    	set .@party_id, getcharid(1);
    	getpartymember .@party_id, 1;
    	set .@online_members_count, $@partymembercount;
    	set .@md_name$,"Endless Tower";	
    	set .@etower_timer,checkquest(60200,PLAYTIME); // 1 week
    	set .@etower_timer2,checkquest(60201,PLAYTIME); // 4 hours
    	callfunc "F_Tower_Settings";
    	
    	//if (!instance_check_party(.@party_id,2)) {
    	//	mes "Make or join a party with more than 1 member and try again.";
    	//	close;
    	//}
    	switch(.@etower_timer) {
    		case -1:
    			if ($@etower_weekly_type == 1 && $@etower_weekly_limit) {
    				.@week = atoi(gettimestr("%V",5));
    				.@year = gettime(DT_YEAR);
    				if (etower_week_cd != .@week || etower_year_cd != .@year) {
    				    etower_weekly_count = 0;
    				}
    				.@remaining = $@etower_weekly_limit - etower_weekly_count;
    				mes "^0000ffYou can only enter " + ($@etower_allow_reenter?"distinct":"the") + " " + .@md_name$ + " " + ($@etower_weekly_limit>1?$@etower_weekly_limit + " times":"once") + " a week.^000000";
    				if (etower_weekly_count >= $@etower_weekly_limit) {
    					next;
    					switch(select("Difficulty Information","Return to Alberta","Cancel")) {
    						case 1:
    							callsub L_Info;
    						case 2:
    							mes "It is dangerous here. Let me move you to Alberta.";
    							close2;
    							warp "alberta",223,36;
    							end;
    						case 3:
    							end;
    					}
    				}
    				if (etower_weekly_count)
    					mes "You can still enter " + (.@remaining!=1?.@remaining + " times":"once") + ".";
    			}
    			if (is_party_leader() == true) {		
    				mes "Confirmed the party has been made. Would you like to reserve entrance to the " + .@md_name$ + "?";
    				next;			
    				switch(select(
    				( .@party_id && getpartyleader(.@party_id,2) && !instance_id(IM_PARTY) )? "Generate dungeon "+.@md_name$:"",
    				( .@party_id && instance_id(IM_PARTY) )?"Enter the dungeon":"",
    				"Return to Alberta",
    				"Difficulty Information",
    				"Cancel")){
    					case 1:
    		// Difficulty 
    		//============================================================
    		
    						.@level_mode = select(
    							"[ Level 50+ ] Normal", 
    							"[ Level 100+ ] Veteran", 
    							"[ Level 150+ ] Nightmare",
    							"[ Level 200+ ] Hell",
    							"[ Level 240+ ] ^ff0000Torment^000000"
    						);
    						$ENDLESSMODE[getcharid(1)] = .@level_mode;
    						set .@required_level, 0;
    
    						if (.@level_mode == 1) { .@required_level = 50; }
    						else if (.@level_mode == 2) { .@required_level = 100; }
    						else if (.@level_mode == 3) { .@required_level = 150; }
    						else if (.@level_mode == 4) { .@required_level = 200; }
    						else if (.@level_mode == 5) { .@required_level = 260; }
    
    						if (!instance_check_party(getcharid(1), .@online_members_count, .@required_level)) {
    							mes "All party members need to be at least Level " + .@required_level + " to enter."; 
    							close;				
    						} 
    						
    						mes "Your party meets the Memorial Dungeon requirements.";				
    						announce "The party [ " + getpartyname(.@party_id) + " ] has registered "+.@md_name$+" on " + $@difficulty_mode$[.@level_mode] + ".", bc_all;
    						instance_create("Endless Tower");
    						close;					
    							
    		//=============================================================
    					case 2:
    						callsub L_Enter,0,1;
    					case 3:
    						mes "I will move you to Alberta.";
    						close2;
    						warp "alberta",223,36;
    						end;
    					case 4:
    						callsub L_Info;
    					case 5:
    						close;
    					}
    				}
    				switch(select("Enter the "+.@md_name$,"Difficulty Information","Return to Alberta","Cancel")) {
    					case 1:
    						callsub L_Enter,0,1,1;
    					case 2:
    						callsub L_Info;
    					case 3:
    						mes "I will move you to Alberta.";
    						close2;
    						warp "alberta",223,36;
    						end;
    					case 4:
    						end;
    				}
    		case 0:
    		case 1:
    			if ($@etower_allow_reenter && .@etower_timer2 < 2 && etower_instanceid == instance_id(IM_PARTY) && instance_live_info(ILI_NAME,instance_id(IM_PARTY)) == .@md_name$) {
    				mes "If you have the dungeon generated already, you can enter it. ";
    				next;
    				switch(select("Enter the "+.@md_name$,"Difficulty Information","Return to Alberta","Cancel")) {
    				case 1:
    					callsub L_Enter,0,0;
    				case 2:
    					callsub L_Info;
    				case 3:
    					mes "I will move you to Alberta.";
    					close2;
    					warp "alberta",223,36;
    					end;
    				case 4:
    					close;
    				}
    			}
    			.@dun_lim_time = etower_timer+604800; // 1 week
    			// .@dun_lim_time2 = etower_timer+14400; // 4 hours
    			set .@dun_cur_time,gettimetick(2);
    			set .@dun_ent_t,(.@dun_lim_time - .@dun_cur_time);
    			set .@dun_h,(.@dun_ent_t / 3600);
    			set .@dun_m,(.@dun_ent_t - (.@dun_h * 3600)) / 60;
    			set .@dun_s,.@dun_ent_t - ((.@dun_h * 3600) + (.@dun_m * 60));
    			
    			if (.@dun_h > 23)
    				mes "Due to the tower's aftereffects, you cannot enter the dungeon right now, " + Time2Str(.@dun_lim_time) + " left to enter the next dungeon.";
    			else
    				mes "Due to the tower's aftereffects, you cannot enter the dungeon right now, " + .@dun_h + "hours " + .@dun_m + "minutes " + .@dun_s + "seconds left to enter the next dungeon.";
    			next;
    			switch(select("Difficulty Information","Return to Alberta","Cancel")) {
    				case 1:
    					callsub L_Info;
    				case 2:
    					mes "It is dangerous here. Let me move you to Alberta.";
    					close2;
    					warp "alberta",223,36;
    					end;
    				case 3:
    					end;
    			}
    		case 2:
    			etower_timer = 0;
    			erasequest 60200;
    			erasequest 60201;
    			if ($@etower_weekly_type == 1 && $@etower_weekly_limit) {
    				mes "^0000ffThe after effects related to the Endless Tower have been removed.^000000";
    				.@week = atoi(gettimestr("%V",5));
    				.@year = gettime(DT_YEAR);
    				if (etower_week_cd != .@week || etower_year_cd != .@year) {
    				    etower_weekly_count = 0;
    				    etower_week_cd = 0;
    				    etower_year_cd = 0;
    					mes "^0000ffYou can generate and enter the Endless Tower again.^000000";
    					close;
    				}
    				mes "^0000ffBut there are stronger after effects. You can only enter " + ($@etower_allow_reenter?"distinct":"the") + " " + .@md_name$ + " " + (etower_weekly_count!=1?etower_weekly_count + " times":"once") + " a week.^000000";
    				.@remaining = $@etower_weekly_limit - etower_weekly_count;
    				if (etower_weekly_count >= $@etower_weekly_limit)
    					mes "^0000ffWait till next week.^000000";
    				else
    					mes "^0000ffYou can still enter " + (.@remaining!=1?.@remaining + " times":"once") + " this week.^000000";
    			}
    			else
    				mes "^0000ffThe records and after effects related to the Endless Tower have been removed. You can generate and enter the Endless Tower again.^000000";
    			close;
    	}
    
    L_Info:
    	mes "[ Difficulty Information ]";
    	mes "^ff0000-------------------------------------------^000000";
    	mes "Difficulty Level: ^ff0000[ " + $@difficulty_mode$[1] + " ]^000000";
    	mes "Monster max hp: + ^ff0000[ " + $@easy_mode_variables[0] + "% ]^000000";
    	mes "Monster damage: + ^ff0000[ " + $@easy_mode_variables[1] + "% ]^000000";
    	mes "Monster takes less damage: ^ff0000[ " + $@easy_mode_variables[2] + "% ]^000000";
    	mes "Monster def: + ^ff0000[ " + $@easy_mode_variables[3] + "% ]^000000";
    	mes "Monster mdef: + ^ff0000[ " + $@easy_mode_variables[4] + "% ]^000000";
    	mes "Monster hit: + ^ff0000[ " + $@easy_mode_variables[5] + "% ]^000000";
    	mes "Monster flee: + ^ff0000[ " + $@easy_mode_variables[6] + "% ]^000000";
    	mes "Monster bonus exp reward: x ^ff0000[ " + $@bonus_exp[1] + " ]^000000";
    	mes ""+.@md_name$ +" Easy Points: + ^ff0000[ " + $@instance_points[1] + " ]^000000";
    	mes "^ff0000-------------------------------------------^000000";
    	next;
    	mes "[ Difficulty Information ]";
    	mes "^ff0000-------------------------------------------^000000";
    	mes "Difficulty Level: ^ff0000[ " + $@difficulty_mode$[2] + " ]^000000";
    	mes "Monster max hp: + ^ff0000[ " + $@veteran_mode_variables[0] + "% ]^000000";
    	mes "Monster damage: + ^ff0000[ " + $@veteran_mode_variables[1] + "% ]^000000";
    	mes "Monster takes less damage: ^ff0000[ " + $@veteran_mode_variables[2] + "% ]^000000";
    	mes "Monster def: + ^ff0000[ " + $@veteran_mode_variables[3] + "% ]^000000";
    	mes "Monster mdef: + ^ff0000[ " + $@veteran_mode_variables[4] + "% ]^000000";
    	mes "Monster hit: + ^ff0000[ " + $@veteran_mode_variables[5] + "% ]^000000";
    	mes "Monster flee: + ^ff0000[ " + $@veteran_mode_variables[6] + "% ]^000000";
    	mes "Monster bonus exp reward: x ^ff0000[ " + $@bonus_exp[2] + " ]^000000";
    	mes ""+.@md_name$ +" Veteran Points: + ^ff0000[ " + $@instance_points[2] + " ]^000000";
    	mes "^ff0000-------------------------------------------^000000";
    	next;
    	mes "[ Difficulty Information ]";
    	mes "^ff0000-------------------------------------------^000000";
    	mes "Difficulty Level: ^ff0000[ " + $@difficulty_mode$[3] + " ]^000000";
    	mes "Monster max hp: + ^ff0000[ " + $@nightmare_mode_variables[0] + "% ]^000000";
    	mes "Monster damage: + ^ff0000[ " + $@nightmare_mode_variables[1] + "% ]^000000";
    	mes "Monster takes less damage: ^ff0000[ " + $@nightmare_mode_variables[2] + "% ]^000000";
    	mes "Monster def: + ^ff0000[ " + $@nightmare_mode_variables[3] + "% ]^000000";
    	mes "Monster mdef: + ^ff0000[ " + $@nightmare_mode_variables[4] + "% ]^000000";
    	mes "Monster hit: + ^ff0000[ " + $@nightmare_mode_variables[5] + "% ]^000000";
    	mes "Monster flee: + ^ff0000[ " + $@nightmare_mode_variables[6] + "% ]^000000";
    	mes "Monster bonus exp reward: x ^ff0000[ " + $@bonus_exp[3] + " ]^000000";
    	mes ""+.@md_name$ +" Nightmare Points: + ^ff0000[ " + $@instance_points[3] + " ]^000000";
    	mes "^ff0000-------------------------------------------^000000";
    	next;
    	mes "[ Difficulty Information ]";
    	mes "^ff0000-------------------------------------------^000000";
    	mes "Difficulty Level: ^ff0000[ " + $@difficulty_mode$[4] + " ]^000000";
    	mes "Monster max hp: + ^ff0000[ " + $@hell_mode_variables[0] + "% ]^000000";
    	mes "Monster damage: + ^ff0000[ " + $@hell_mode_variables[1] + "% ]^000000";
    	mes "Monster takes less damage: ^ff0000[ " + $@hell_mode_variables[2] + "% ]^000000";
    	mes "Monster def: + ^ff0000[ " + $@hell_mode_variables[3] + "% ]^000000";
    	mes "Monster mdef: + ^ff0000[ " + $@hell_mode_variables[4] + "% ]^000000";
    	mes "Monster hit: + ^ff0000[ " + $@hell_mode_variables[5] + "% ]^000000";
    	mes "Monster flee: + ^ff0000[ " + $@hell_mode_variables[6] + "% ]^000000";
    	mes "Monster bonus exp reward: x ^ff0000[ " + $@bonus_exp[4] + " ]^000000";
    	mes ""+.@md_name$ +" Hell Points: + ^ff0000[ " + $@instance_points[4] + " ]^000000";
    	mes "^ff0000-------------------------------------------^000000";
    	next;
    	mes "[ Difficulty Information ]";
    	mes "^ff0000-------------------------------------------^000000";
    	mes "Difficulty Level: ^ff0000[ " + $@difficulty_mode$[5] + " ]^000000";
    	mes "Monster max hp: + ^ff0000[ " + $@torment_mode_variables[0] + "% ]^000000";
    	mes "Monster damage: + ^ff0000[ " + $@torment_mode_variables[1] + "% ]^000000";
    	mes "Monster takes less damage: ^ff0000[ " + $@torment_mode_variables[2] + "% ]^000000";
    	mes "Monster def: + ^ff0000[ " + $@torment_mode_variables[3] + "% ]^000000";
    	mes "Monster mdef: + ^ff0000[ " + $@torment_mode_variables[4] + "% ]^000000";
    	mes "Monster hit: + ^ff0000[ " + $@torment_mode_variables[5] + "% ]^000000";
    	mes "Monster flee: + ^ff0000[ " + $@torment_mode_variables[6] + "% ]^000000";
    	mes "Monster bonus exp reward: x ^ff0000[ " + $@bonus_exp[5] + " ]^000000";
    	mes ""+.@md_name$ +" Torment Points: + ^ff0000[ " + $@instance_points[5] + " ]^000000";
    	mes "^ff0000-------------------------------------------^000000";
    	close;
    
    L_Enter:
    	addrid(2,0,getcharid(1));
    	.@party_id = getcharid(1);
    	.@md_name$ = "Endless Tower";
    	.@etower_timer = checkquest(60200,PLAYTIME); // 1 week
    	.@etower_timer2 = checkquest(60201,PLAYTIME); // 4 hours
    	if (.@etower_timer == 2) {
    		erasequest 60200;
    		erasequest 60201;
    	}
    	if (strcharinfo(3) != strnpcinfo(4)) end;
    	if ($@etower_allow_reenter && .@etower_timer2 < 2 && etower_instanceid == instance_id(IM_PARTY) && instance_live_info(ILI_NAME,instance_id(IM_PARTY)) == .@md_name$)
    		.@reentering = true;
    	else {
    		if ($@etower_weekly_type == 1 && $@etower_weekly_limit) {
    			.@week = atoi(gettimestr("%V",5));
    			.@year = gettime(DT_YEAR);
    			if (etower_week_cd != .@week || etower_year_cd != .@year) {
    			    etower_weekly_count = 0;
    			}
    			else if (etower_weekly_count >= $@etower_weekly_limit) {
    				mes "^0000ffThere are stronger after effects. You can only enter " + ($@etower_allow_reenter?"distinct":"the") + " " + .@md_name$ + " " + (etower_weekly_count!=1?etower_weekly_count + " times":"once") + " a week.^000000";
    				mes "^0000ffWait till next week.^000000";
    				close;
    			}
    		}
    		if (.@etower_timer == 0 || .@etower_timer == 1) {
    			mes "Due to the tower's aftereffects, you cannot enter right now.";
    			open_quest_ui 60200;
    			close;
    		}
    	}
    	switch(instance_enter("Endless Tower",-1,-1,getcharid(0),instance_id(IM_PARTY))) {
    	case IE_OTHER:
    		mes "An unknown error has occurred.";
    		close;
    	case IE_NOINSTANCE:
    		mes "The memorial dungeon Endless Tower does not exist.";
    		mes "The party leader did not generate the dungeon yet.";
    		close;
    	case IE_NOMEMBER:
    		mes "You can enter the dungeon after making the party.";
    		close;
    	case IE_OK:
    		//if (getarg(1)) {
    		if (!isbegin_quest(60200) && !.@reentering) {
    			etower_timer = gettimetick(2);
    			etower_instanceid = instance_id(IM_PARTY);
    			setquest 60200;
    			setquest 60201;
    			etower_weekly_count++;
    			etower_week_cd = .@week;
    			etower_year_cd = .@year;
    		}
    		//warpparty instance_mapname("1@tower"),52,354,getcharid(1);
    		//warp "1@tower",52,354;
    		//if (getarg(0,0) == 0) close;
    		end;
    	}
    }

     

  14. Hola. El script de Euphy fue pensado para funcionar con monstruos aleatorios. Si deseas tener control total sobre qué monstruos elegir, te recomiendo usar el sistema de misiones de Tr0n's Quest Board, que permite seleccionar exactamente los monstruos que quieras incluir.

    	//Añade misiones de caza aquí (puedes agregar tantos mobs como quieras)
    	//AddHunting("<Quest Name>",<Min Lvl>,<Max Lvl>,<Reward|Item ID>,<Reward|Item Amount>,<Zeny Reward>,<Base EXP>,<Job EXP>,<Monster ID>,<Monster Amount>,...);
    	AddHunting("Eliminación de abejas",1,MAX_LEVEL,503,1,0,500,500,1004,10);
    	
    	
    	// [Josemaaaaa] Chance de contar a kill (%)
    	.count_chance = 50;

     

    //===== rAthena Script =======================================
    //= tr0n's Questboard
    //===== By: ==================================================
    //= tr0n
    //===== Current Version: =====================================
    //= 1.6.6
    //===== Description: =========================================
    //= Easily add collection and hunting quests.
    //===== Changelogs: ==========================================
    // 1.0.0 Release
    // 1.1.0 Added zeny reward
    // 1.2.0 Rewrote checkmob and killcounter
    // 1.3.1 Added level restriction
    // 1.3.4 Added Reward Item Amount
    // 1.4.4 Added Quest delay
    // 1.5.4 Added repeatable Quests
    // 1.6.4 Added party support
    // 1.6.5 Bug fixes for party support
    // 1.6.6 Bug fixes for delay time does not appear [mazvi]
    //============================================================
    prontera,129,215,5	script	Questboard	4_BOARD3,{
    	if(c_run==true){
    		mes "[^FF7700Questboard^000000]";
    		mes "^0000FF"+getd("." + currentquest$ + "_collectionname$")+"^000000";
    		mes "--------------------------------";
    		set .@size, getarraysize(getd("."+ currentquest$ + "_collectionitem"));
    		for( set .@j, 0; .@j < .@size; set .@j,.@j+2){
    			mes "^FF0000"+getitemname(getd("."+currentquest$+"_collectionitem["+.@j+"]"))+" - "+countitem(getd("."+currentquest$+"_collectionitem["+.@j+"]"))+"/"+getd("."+currentquest$+"_collectionitem["+(.@j+1)+"]")+" ea.^000000";
    		}
    		mes "--------------------------------";
    		mes "[Reward]";
    		mes "Item: ^0000FF"+((getd("." +currentquest$+"_collectionprize"))?getitemname(getd("." +currentquest$+"_collectionprize"))+" - "+getd("." +currentquest$+"_collectionamount")+" ea.^000000":"Nothing^000000");
    		mes "Zeny: ^0000FF"+getd("." +currentquest$+"_collectionzeny")+"^000000";
    		mes "Base EXP: ^0000FF"+getd("." +currentquest$+"_collectionexp["+0+"]")+"^000000";
    		mes "Job EXP: ^0000FF"+getd("." +currentquest$+"_collectionexp["+1+"]")+"^000000";
    		next;
    		if(select("Finish:Abort") == 2){
    			mes "[^FF7700Questboard^000000]";
    			mes "Quest aborted.";
    			set currentquest$, "";
    			set c_run, false;
    			close;
    		}
    		goto L_checkitems;
    	}
    
    	if(h_run==true){
    		mes "[^FF7700Questboard^000000]";
    		mes "^0000FF"+getd("." + currentquest$ + "_huntingname$")+"^000000";
    		mes "--------------------------------";
    		set .@size, getarraysize(getd("."+ currentquest$ + "_huntingmob"));
    		for( set .@j, 0; .@j < .@size; set .@j,.@j+2){
    			set .@currentmob, getd("."+currentquest$+"_huntingmob["+(.@j)+"]");
    			mes "^FF0000"+getmonsterinfo(getd("."+currentquest$+"_huntingmob["+.@j+"]"), MOB_NAME)+" - "+getd(currentquest$+"_"+.@currentmob+"_"+(.@j+1)+"_killcount")+"/"+getd("."+currentquest$+"_huntingmob["+(.@j+1)+"]")+" ea.^000000";
    		}
    		mes "--------------------------------";
    		mes "[Reward]";
    		mes "Item: ^0000FF"+((getd("." +currentquest$+"_huntingprize"))?getitemname(getd("." +currentquest$+"_huntingprize"))+" - "+getd("." +currentquest$+"_huntingamount")+" ea.^000000":"Nothing^000000");
    		mes "Zeny: ^0000FF"+getd("." +currentquest$+"_huntingzeny")+"^000000";
    		mes "Base EXP: ^0000FF"+getd("." +currentquest$+"_huntingexp["+0+"]")+"^000000";
    		mes "Job EXP: ^0000FF"+getd("." +currentquest$+"_huntingexp["+1+"]")+"^000000";
    		next;
    		if(select("Finish:Abort") == 2){
    			mes "[^FF7700Questboard^000000]";
    			mes "Quest aborted.";
    			for(set .@x, 1; .@x < .@size; set .@x,.@x+2){
    				set .@currentmob, getd("."+currentquest$+"_huntingmob["+(.@x-1)+"]");
    				setd(currentquest$+"_"+.@currentmob+"_"+.@x+"_killcount", 0);
    			}
    			set currentquest$, "";
    			set h_run, false;
    			close;
    		}
    		goto L_checkmobs;
    	}
    
    	mes "[^FF7700Questboard^000000]";
    	mes "Select category:";
    	next;
    
    	switch(select((.collection)?"Collection Quests":"",
    				  (.hunting)?"Hunting Quests":"",
    				  "Exit")) {
    
    	case 1:
    		set .@collectmenu$, "";
    		for( set .@i,0; .@i < .collectionquestcount; set .@i,.@i+1){
    			if (.@i) set .@collectmenu$,.@collectmenu$+":";
    			set .@collectmenu$, .@collectmenu$ + "[" + getd("." +(.@i+1)+"_collectionmin") + " - " + getd("." +(.@i+1)+"_collectionmax") + "] " + getd("." + (.@i+1) + "_collectionname$");
    		}
    		set .@selection,select(.@collectmenu$);
    		if(.quest_repeat == true){
    			if(gettimetick(2) < getd(.@selection + "_collection_delay")){
    				mes "[^FF7700Questboard^000000]";
    				mes "You have to wait ^0000FF"+Time2Str(getd(.@selection + "_collection_delay"))+"^000000 to do this quest again.";
    				close;
    			}
    		}
    		else{
    			if(getd(.@selection + "_collection_repeat") == true){
    				mes "[^FF7700Questboard^000000]";
    				mes "You already did this quest.";
    				mes "Please choose another one.";
    				close;
    			}
    		}
    		mes "[^FF7700Questboard^000000]";
    		mes "^0000FF"+getd("." + .@selection + "_collectionname$")+"^000000";
    		mes "--------------------------------";
    		set .@size, getarraysize(getd("."+ .@selection + "_collectionitem"));
    		for( set .@j, 0; .@j < .@size; set .@j,.@j+2){
    			mes "^FF0000"+getitemname(getd("."+.@selection+"_collectionitem["+.@j+"]"))+" - "+getd("."+.@selection+"_collectionitem["+(.@j+1)+"]")+" ea.^000000";
    		}
    		mes "--------------------------------";
    		mes "[Reward]";
    		mes "Item: ^0000FF"+((getd("." +.@selection+"_collectionprize"))?getitemname(getd("." +.@selection+"_collectionprize"))+" - "+getd("." +.@selection+"_collectionamount")+" ea.^000000":"Nothing^000000");
    		mes "Zeny: ^0000FF"+getd("." +.@selection+"_collectionzeny")+"^000000";
    		mes "Base EXP: ^0000FF"+getd("." +.@selection+"_collectionexp["+0+"]")+"^000000";
    		mes "Job EXP: ^0000FF"+getd("." +.@selection+"_collectionexp["+1+"]")+"^000000";
    		next;
    		if(select("Accept:Decline") == 2){
    			close;
    		}
    		if(BaseLevel >= getd("." +.@selection+"_collectionmin") && BaseLevel <= getd("." +.@selection+"_collectionmax")){
    			mes "[^FF7700Questboard^000000]";
    			mes "Quest accepted.";
    			set c_run, true;
    			set currentquest$, .@selection;
    			close;
    		}
    		else{
    			mes "[^FF7700Questboard^000000]";
    			mes "You don't have the required";
    			mes "level to do this quest.";
    			close;
    		}
    
    	case 2:
    		set .@huntmenu$, "";
    		for( set .@i,0; .@i < .huntingquestcount; set .@i,.@i+1){
    			if (.@i) set .@huntmenu$,.@huntmenu$+":";
    			set .@huntmenu$, .@huntmenu$ + "[" + getd("." +(.@i+1)+"_huntingmin") + " - " + getd("." +(.@i+1)+"_huntingmax") + "] " + getd("." + (.@i+1) + "_huntingname$");
    		}
    		set .@selection,select(.@huntmenu$);
    		if(.quest_repeat == true){
    			if(gettimetick(2) < getd(.@selection + "_hunting_delay")){
    				mes "[^FF7700Questboard^000000]";
    				mes "You have to wait ^0000FF"+Time2Str(getd(.@selection + "_hunting_delay"))+"^000000 to do this quest again.";
    				close;
    			}
    		}
    		else{
    			if(getd(.@selection + "_hunting_repeat") == true){
    				mes "[^FF7700Questboard^000000]";
    				mes "You already did this quest.";
    				mes "Please choose another one.";
    				close;
    			}
    		}
    		mes "[^FF7700Questboard^000000]";
    		mes "^0000FF"+getd("." + .@selection + "_huntingname$")+"^000000";
    		mes "--------------------------------";
    		set .@size, getarraysize(getd("."+ .@selection + "_huntingmob"));
    		for( set .@j, 0; .@j < .@size; set .@j,.@j+2){
    			mes "^FF0000"+getmonsterinfo(getd("."+.@selection+"_huntingmob["+.@j+"]"), MOB_NAME)+" - "+getd("."+.@selection+"_huntingmob["+(.@j+1)+"]")+" ea.^000000";
    		}
    		mes "--------------------------------";
    		mes "[Reward]";
    		mes "Item: ^0000FF"+((getd("." +.@selection+"_huntingprize"))?getitemname(getd("." +.@selection+"_huntingprize"))+" - "+getd("." +.@selection+"_huntingamount")+" ea.^000000":"Nothing^000000");
    		mes "Zeny: ^0000FF"+getd("." +.@selection+"_huntingzeny")+"^000000";
    		mes "Base EXP: ^0000FF"+getd("." +.@selection+"_huntingexp["+0+"]")+"^000000";
    		mes "Job EXP: ^0000FF"+getd("." +.@selection+"_huntingexp["+1+"]")+"^000000";
    		next;
    		if(select("Accept:Decline") == 2){
    			close;
    		}
    		if(BaseLevel >= getd("." +.@selection+"_huntingmin") && BaseLevel <= getd("." +.@selection+"_huntingmax")){
    			mes "[^FF7700Questboard^000000]";
    			mes "Quest accepted.";
    			if (.count_chance > 0 && .count_chance < 100)
    				mes "^FF0000Recuerda: cada vez que derrotes a un monstruo, hay una probabilidad del " + .count_chance + "% de que cuente para tu progreso.^000000";
    			set h_run, true;
    			set currentquest$, .@selection;
    			close;
    		}
    		else{
    			mes "[^FF7700Questboard^000000]";
    			mes "You don't have the required";
    			mes "level to do this quest.";
    			close;
    		}
    
    	case 3:
    		close;
    	}
    
    L_checkitems:
    	set .@size, getarraysize(getd("."+currentquest$+"_collectionitem"));
    	for( set .@k,0; .@k < .@size; set .@k,.@k+2){
    		if(countitem(getd("."+currentquest$+"_collectionitem["+.@k+"]"))>=getd("."+currentquest$+"_collectionitem["+(.@k+1)+"]")){
    			set .@checkitem,.@checkitem+2;
    		}
    	}
    	if(.@checkitem<.@size){
    		mes "[^FF7700Questboard^000000]";
    		mes "You don't have everything.";
    		close;
    	}
    	for( set .@delcount,0; .@delcount < .@size; set .@delcount,.@delcount+2){
    		delitem getd("."+currentquest$+"_collectionitem["+.@delcount+"]"),getd("."+currentquest$+"_collectionitem["+(.@delcount+1)+"]");
    	}
    	mes "[^FF7700Questboard^000000]";
    	mes "Congratulation! Here is your Reward.";
    	if(getd("." +currentquest$+"_collectionprize")!=0) getitem(getd("." +currentquest$+"_collectionprize"),getd("." +currentquest$+"_collectionamount"));
    	set Zeny,Zeny+getd("." +currentquest$+"_collectionzeny");
    	getexp getd("." +currentquest$+"_collectionexp["+0+"]"),getd("." +currentquest$+"_collectionexp["+1+"]");
    	setd(currentquest$ + "_collection_delay"),gettimetick(2)+.quest_delay;
    	setd(currentquest$ + "_collection_repeat"),true;
    	set currentquest$, "";
    	set c_run, false;
    	close;
    
    L_checkmobs:
    	set .@size, getarraysize(getd("."+currentquest$+"_huntingmob"));
    	set .@goal, .@size/2;
    	for(set .@i, 1; .@i < .@size; set .@i,.@i+2){
    		set .@currentmob, getd("."+currentquest$+"_huntingmob["+(.@i-1)+"]");
    		if(getd(currentquest$+"_"+.@currentmob+"_"+.@i+"_killcount")==getd("."+currentquest$+"_huntingmob["+.@i+"]")){
    			set .@checkmonster, .@checkmonster+1;
    			if(.@checkmonster==.@goal){
    				goto L_checkmobs2;
    			}
    			continue;
    		}
    		goto L_checkmobs2;
    	}
    
    L_checkmobs2:
    	if(.@checkmonster<.@goal){
    		mes "[^FF7700Questboard^000000]";
    		mes "You didn't kill everything.";
    		close;
    	}
    	mes "[^FF7700Questboard^000000]";
    	mes "Congratulation! Here is your Reward.";
    	set .@size, getarraysize(getd("."+currentquest$+"_huntingmob"));
    	for(set .@x, 1; .@x < .@size; set .@x,.@x+2){
    		set .@currentmob, getd("."+currentquest$+"_huntingmob["+(.@x-1)+"]");
    		setd(currentquest$+"_"+.@currentmob+"_"+.@x+"_killcount", 0);
    	}
    	if(getd("." +currentquest$+"_huntingprize")!=0) getitem(getd("." +currentquest$+"_huntingprize"),getd("." +currentquest$+"_huntingamount"));
    	set Zeny, Zeny+getd("." +currentquest$+"_huntingzeny");
    	getexp getd("." +currentquest$+"_huntingexp["+0+"]"),getd("." +currentquest$+"_huntingexp["+1+"]");
    	setd(currentquest$ + "_hunting_delay"),gettimetick(2)+.quest_delay;
    	setd(currentquest$ + "_hunting_repeat"),true;
    	set currentquest$, "";
    	set h_run, false;
    	close;
    
    OnNPCKillEvent:
    	if(h_run!=true) end;
    	set .@size, getarraysize(getd("."+currentquest$+"_huntingmob"));
    	if (.count_chance > 0 && .count_chance < 100) {
    		if (rand(1,100) > .count_chance)
    			.@fail = true;
    	}
    	for(set .@i, 1; .@i < .@size; set .@i,.@i+2){
    		if(killedrid==getd("."+currentquest$+"_huntingmob["+(.@i-1)+"]")){
    			set .@currentmob, getd("."+currentquest$+"_huntingmob["+(.@i-1)+"]");
    			if(getd(currentquest$+"_"+.@currentmob+"_"+.@i+"_killcount")<getd("."+currentquest$+"_huntingmob["+.@i+"]")){
    				if (.@fail)
    					dispbottom "[" + getd("."+currentquest$+"_huntingname$") + "] No se registró esta baja.";
    				else {
    					setd(currentquest$+"_"+.@currentmob+"_"+.@i+"_killcount", getd(currentquest$+"_"+.@currentmob+"_"+.@i+"_killcount")+1);
    					//message strcharinfo(0), getd("."+currentquest$+"_huntingname$")+": ["+getmonsterinfo(.@currentmob, MOB_NAME)+"] ("+ getd(currentquest$+"_"+.@currentmob+"_"+.@i+"_killcount")+"/"+getd("."+currentquest$+"_huntingmob["+.@i+"]")+")";
    					message strcharinfo(0), getmonsterinfo(.@currentmob, MOB_NAME)+" ["+ getd(currentquest$+"_"+.@currentmob+"_"+.@i+"_killcount")+"/"+getd("."+currentquest$+"_huntingmob["+.@i+"]")+"]";
    					//unittalk getcharid(3), getmonsterinfo(.@currentmob, MOB_NAME)+" ["+ getd(currentquest$+"_"+.@currentmob+"_"+.@i+"_killcount")+"/"+getd("."+currentquest$+"_huntingmob["+.@i+"]")+"]",bc_self;
    				
    				}
    			}
    			if(getcharid(1) != 0 && .party_support == true){
    				getmapxy(.@map1$,.@x1,.@y1);
    				set .@killerid, getcharid(3);
    				set .@currentquest$, currentquest$;
    				getpartymember getcharid(1),1;
    				getpartymember getcharid(1),2;
    				for(set .@j, 0; .@j < $@partymembercount; .@j++){
    					if(isloggedin($@partymemberaid[.@j], $@partymembercid[.@j])){
    						if(h_run==true && $@partymemberaid[.@j] != .@killerid && .@currentquest$ == getvar(currentquest$, $@partymembercid[.@j]) && readparam(HP, $@partymembercid[.@j]) > 0){
    							getmapxy(.@map2$,.@x2,.@y2,BL_PC,rid2name($@partymemberaid[.@j]));
    							if(.@map1$ == .@map2$ && distance(.@x1,.@y1,.@x2,.@y2) < .party_range){
    								if (.@fail)
    									dispbottom "[" + getd("."+.@currentquest$+"_huntingname$") + "] No se registró esta baja.","",$@partymembercid[.@j];
    								else {
    									set .@kill_amt,getvar(getd(.@currentquest$+"_"+.@currentmob+"_"+.@i+"_killcount"), $@partymembercid[.@j]);
    									set .@kill_goal,getd("."+.@currentquest$+"_huntingmob["+.@i+"]");
    									if(.@kill_amt<.@kill_goal)
    									{
    										setd(.@currentquest$+"_"+.@currentmob+"_"+.@i+"_killcount", .@kill_amt+1, $@partymembercid[.@j]);
    										//message strcharinfo(0), getd("."+.@currentquest$+"_huntingname$")+": ["+getmonsterinfo(.@currentmob, MOB_NAME)+"] ("+(.@kill_amt+1)+"/"+.@kill_goal+")", 0xB6FF00, $@partymembercid[.@j];
    										message strcharinfo(0,$@partymembercid[.@j]), getmonsterinfo(.@currentmob, MOB_NAME)+" [ "+(.@kill_amt+1)+" / "+.@kill_goal+" ]";
    										//unittalk $@partymemberaid[.@j], getmonsterinfo(.@currentmob, MOB_NAME)+" [ "+(.@kill_amt+1)+" / "+.@kill_goal+" ]",bc_self;
    									}
    								}
    							}
    						}
    					}
    				}
    			}
    			break;
    		}
    	}
    	end;
    
    OnInit:
    
    	function AddCollection;
    	function AddHunting;
    
    	//Activate/Deactivate quest categories (true/1 - activated, false/0 - deactivated)
    	set .collection, true;
    	set .hunting, true;
    
    	//Quest Delay (seconds)
    	//24 hours = 86400 seconds
    	set .quest_delay, 0;
    
    	//Activate/Deactivate repeatable quests (true/1 - activated, false/0 - deactivated)
    	set .quest_repeat, true;
    
    	//Activate/Deactivate party support (true/1 - activated, false/0 - deactivated)
    	set .party_support, true;
    
    	//Max range for party support (+- x & y coordinations)
    	set .party_range, 25;
    
    	//Checks if quests are loaded (prevents out of index)
    	if(.questsloaded==true) end;
    	set .questsloaded, true;
    
    	//Add Collection Quests here (You can add as many required items as you want)
    	//AddCollection("<Quest Name>",<Min Lvl>,<Max Lvl>,<Reward|Item ID>,<Reward|Item Amount>,<Zeny Reward>,<Base EXP>,<Job EXP>,<Item ID>,<Item Amount>,...);
    
    
    	//Añade misiones de caza aquí (puedes agregar tantos mobs como quieras)
    	//AddHunting("<Quest Name>",<Min Lvl>,<Max Lvl>,<Reward|Item ID>,<Reward|Item Amount>,<Zeny Reward>,<Base EXP>,<Job EXP>,<Monster ID>,<Monster Amount>,...);
    	AddHunting("Eliminación de abejas",1,MAX_LEVEL,503,1,0,500,500,1004,10);
    	
    	
    	// [Josemaaaaa] Chance de contar a kill (%)
    	.count_chance = 50;
    
    	end;
    
    	function AddCollection{
    		set .collectionquestcount,.collectionquestcount+1;
    		setd ("." +.collectionquestcount+"_collectionname$", getarg(0));
    		setd ("." +.collectionquestcount+"_collectionmin", getarg(1));
    		setd ("." +.collectionquestcount+"_collectionmax", getarg(2));
    		setd ("." +.collectionquestcount+"_collectionprize", getarg(3));
    		setd ("." +.collectionquestcount+"_collectionamount", getarg(4));
    		setd ("." +.collectionquestcount+"_collectionzeny", getarg(5));
    		set .@argcount, 6;
    		set .@size, getarraysize(getd("."+ .collectionquestcount + "_collectionexp"));
    		setd ("." +.collectionquestcount+"_collectionexp["+.@size+"]",getarg(.@argcount)); 
    		setd ("." +.collectionquestcount+"_collectionexp["+(.@size+1)+"]",getarg(.@argcount+1)); 
    		set .@argcount, .@argcount+2;
    		set .@size, getarraysize(getd("."+ .collectionquestcount + "_collectionitem"));
    		while(getarg(.@argcount,-1)!=-1 && getarg(.@argcount+1,-1)!=-1){
    			setd ("."+.collectionquestcount+"_collectionitem["+.@size+"]",getarg(.@argcount)); 
    			setd ("."+.collectionquestcount+"_collectionitem["+(.@size+1)+"]",getarg(.@argcount+1));
    			set .@argcount,.@argcount+2;
    			set .@size, .@size+2;
    		}
    		return;
    	}
    
    	function AddHunting{
    		set .huntingquestcount,.huntingquestcount+1;
    		setd ("." +.huntingquestcount+"_huntingname$", getarg(0));
    		setd ("." +.huntingquestcount+"_huntingmin", getarg(1));
    		setd ("." +.huntingquestcount+"_huntingmax", getarg(2));
    		setd ("." +.huntingquestcount+"_huntingprize", getarg(3));
    		setd ("." +.huntingquestcount+"_huntingamount", getarg(4));
    		setd ("." +.huntingquestcount+"_huntingzeny", getarg(5));
    		set .@size, getarraysize(getd("."+ .huntingquestcount + "_huntingexp"));
    		set .@argcount, 6;
    		setd ("." +.huntingquestcount+"_huntingexp["+.@size+"]",getarg(.@argcount));
    		setd ("." +.huntingquestcount+"_huntingexp["+(.@size+1)+"]",getarg(.@argcount+1)); 
    		set .@argcount, .@argcount+2;
    		set .@size, getarraysize(getd("."+ .huntingquestcount + "_huntingmob"));
    		while(getarg(.@argcount,-1)!=-1 && getarg(.@argcount+1,-1)!=-1){
    			setd ("."+.huntingquestcount+"_huntingmob["+.@size+"]",getarg(.@argcount)); 
    			setd ("."+.huntingquestcount+"_huntingmob["+(.@size+1)+"]",getarg(.@argcount+1));
    			set .@argcount, .@argcount+2;
    			set .@size, .@size+2;
    		}
    		return;
    	}
    }

     

  15. Hola. El NPC puede mostrar un letrero encima con el número de usuarios que hay en la zona pero el comando waitingroom no acepta colores en el texto del letrero. Solo muestra texto plano, sin formato ni colores.

    //===== rAthena Script =======================================
    //= NPC Zone Quest Warper
    //===== Current Version: =====================================
    //= 1.0 First version. [Racaae]
    //============================================================
    
    // Colores ejemplo
    // FF0000 = Rojo
    // 00FF00 = Verde
    // 0000FF = Azul
    // FFFF00 = Amarillo
    // FF00FF = Rosa
    // 00FFFF = Cian
    
    function	script	F_ZoneWarper	{
    	// getarg(0) : mapa de destino
    	// getarg(1) : coordenada X del destino
    	// getarg(2) : coordenada Y del destino
    	// getarg(3) : nombre de la zona
    	// getarg(4) : color del nombre de la zona (hexadecimal)
    	// getarg(5) : rango del área para contar usuarios
    	// getarg(6) : nombre del NPC
    	.@map$ = getarg(0);
    	.@x = getarg(1);
    	.@y = getarg(2);
    	if (getstrlen(getarg(4)) != 6)
    		debugmes "Invalid color hex code in NPC " + getarg(6);
    	else
    		.@name$ = "^" + getarg(4);
    	.@name$ += getarg(3) + "^000000";
    	mes "[" + getarg(6) + "]";
    	mes F_Hi;
    	mes "¿Deseas visitar la " + .@name$ + "?";
    	if(select("Ir a la " + .@name$ , "Ir después") == 2) {
    		clear;
    		mes "[" + getarg(6) + "]";
    		mes "Puedes volver cuando quieras.";
    		mes F_Bye;
    		close3;
    	}
    	warp(.@map$, .@x, .@y);
    	end;
    }
    
    prontera,160,181,5	script	Guía de Zona#Cartas	4_F_KAFRA1,{
    	cutin "kafra_01",2;
    	F_ZoneWarper(.map$,.x,.y,.zone_name$,.color$,.zonerange,strnpcinfo(1));
    
    OnInit:
    //============================================
    	.zone_name$ = "Zona Quest Cartas";	// Nombre de la zona que aparecerá en el letrero
    	.map$ = "aldebaran";		// Mapa de destino donde está la zona			
    	.x = 100;	// Coordenada X dentro del mapa de destino
    	.y = 120;	// Coordenada Y dentro del mapa de destino
    	.color$ = "70CC11";		// Color del nombre de la zona en formato hexadecimal
    	.zonerange = 15;		// Rango alrededor del punto (x,y) para contar usuarios presentes
    //============================================
    
    	//fallthough
    OnTimer5000:
    	stopnpctimer;
    	delwaitingroom;
    	.@p = getareausers(.map$, (.x-.zonerange), (.y-.zonerange), (.x+.zonerange), (.y+.zonerange));
    	waitingroom .zone_name$ + " (" + .@p + " visitando)",0;
    	initnpctimer;
    	end;
    }
    
    prontera,160,185,5	script	Guía de Zona#questSet	4_F_KAFRA4,{
    	cutin "kafra_04",2;
    	F_ZoneWarper(.map$,.x,.y,.zone_name$,.color$,.zonerange,strnpcinfo(1));
    
    OnInit:
    //============================================
    	.zone_name$ = "Zona de quest Set";	// Nombre de la zona que aparecerá en el letrero
    	.map$ = "gonryun";		// Mapa de destino donde está la zona
    	.x = 120;	// Coordenada X dentro del mapa de destino
    	.y = 100;	// Coordenada Y dentro del mapa de destino
    	.color$ = "0000FF";		// Color del nombre de la zona en formato hexadecimal
    	.zonerange = 15;		// Rango alrededor del punto (x,y) para contar usuarios presentes
    //============================================
    
    	//fallthough
    OnTimer5000:
    	stopnpctimer;
    	delwaitingroom;
    	.@p = getareausers(.map$, (.x-.zonerange), (.y-.zonerange), (.x+.zonerange), (.y+.zonerange));
    	waitingroom .zone_name$ + " (" + .@p + " visitando)",0;
    	initnpctimer;
    	end;
    }
    
    function	script	F_Hi	{
    	return callfunc("F_Rand","¡Hola!","¡Buenas!","¡Buen día!","¿Cómo estás?","¡Hola por ahí!");
    }
    function	script	F_Bye	{
    	return callfunc("F_Rand","Adiós. Hasta luego.","Nos vemos.","Hasta pronto.","¡Buena suerte!","¡Que tengas un buen día!","¡Chao chao!");
    }
    

     

  16. \src\map\clif.cpp

    	// messages mustn't be too long
    	if( messageLength > CHAT_SIZE_MAX-1 ) {
    		// Normally you can only enter CHATBOX_SIZE-1 letters into the chat box, but Frost Joke / Dazzler's text can be longer.
    		// Also, the physical size of strings that use multibyte encoding can go multiple times over the chatbox capacity.
    		// Neither the official client nor server place any restriction on the length of the data in the packet,
    		// but we'll only allow reasonably long strings here. This also makes sure that they fit into the `chatlog` table.
    		ShowWarning("clif_process_message: Player '%s' sent a message too long ('%.*s')!\n", sd->status.name, CHAT_SIZE_MAX-1, message);
    		return false;
    	}

    Check your ba_frostjoke / dc_scream  files on data folder/grf. Too long messages can trigger the error.

  17. 1 hour ago, Josemaaaaa said:

    Perfecto, podría ayudarme a mejorarlo aún más??

    Me referia a un cartel como aquel mire, con movimiento que diga Odin +90, y vaya mostrando mas partys como cada 2 segundos cambie de party agregadas.

    le muestro un ejemplo de un cartel de pvp que tengo. intente modificarlo pero no lo conseguí.

    El pvp cada cierto tiempo muestra un segundo party

    You can use commands waitingroom and initnpctimer.

    Find this part:

    			if (.@announce$[0] != "")
    				announce strcharinfo(0) + " está buscando miembros " + implode(.@announce$, " ") + " para su grupo.",0;
    			else
    				announce strcharinfo(0) + " está buscando miembros para su grupo.",0;

    Add the following line after it:

    donpcevent strnpcinfo(0) + "::OnUpdateBoard";

     

    Then add this part at the end of the NPC:

    OnUpdateBoard:
    	.board_index = getarraysize($@party_ids) - 1;
    OnTimer4000:
    	stopnpctimer;
    	delwaitingroom;
    	.@total = getarraysize($@party_ids);
    	if (.@total) {
    		.@target_pid = $@party_ids[.board_index];
    		.@announce$[.@count++] = $@party_leader$[.@target_pid];
    		if ($@party_min_level[.@target_pid] > 1)
    			.@announce$[.@count++] = "+" + $@party_min_level[.@target_pid];
    		if (.party_filter_type$[.@target_pid] == "role") {
    			if ($@party_filter_values$[.@target_pid] != "cualquier")
    				.@announce$[.@count++] = replacestr($@party_filter_values$[.@target_pid], ",", " / ");
    		}
    		else if ($@party_filter_values$[.@target_pid] != "cualquier") {
    			explode(.@class_array$, $@party_filter_values$[.@target_pid], ",");
    			if (getarraysize(.@class_array$) < 4) {
    				for (.@i = 0; .@i < getarraysize(.@class_array$); .@i++)
    					.@class_array$[.@i] = jobname(atoi(.@class_array$[.@i]));
    				.@announce$[.@count++] = implode(.@class_array$, " / ");
    			}
    			else
    				.@announce$[.@count++] = "Ciertas clases";
    		}
    		waitingroom implode(.@announce$, " "),0;
    		.board_index++;
    		if (.board_index >= .@total)
    			.board_index = 0;
    		initnpctimer;
    	}
    	end;

     

    Full script:

    Spoiler
    //===== rAthena Script =======================================
    //= Cartel de Reclutamiento
    //===== Current Version: =====================================
    //= 1.0 First version. [Racaae]
    //============================================================
    
    prontera,149,164,5	script	Cartel de Reclutamiento	4_BOARD3,{
    	setarray .@jobs,Job_Priest,Job_Monk,Job_Knight,Job_Crusader,Job_Wizard,Job_Sage,Job_Hunter,Job_Bard,Job_Dancer,Job_Assassin,Job_Rogue,Job_Blacksmith,Job_Alchemist,Job_Gunslinger,Job_Ninja,Job_Star_Gladiator,Job_Soul_Linker;
    	if (checkre(0))
    		setarray .@jobs[getarraysize(.@jobs)],Job_Summoner;
    
    	mes "Ves un cartel viejo. Alguien lo ha reutilizado para otro propósito...";
    	mes "Parece usarse para ^EE8800reclutar miembros para grupos^000000 de aventura.";
    	setarray .@roles$,"Dano","Curador","Tank","Soporte";
    	switch(select("Publicar un anuncio", "Leer los anuncios", "Alejarme")) {
    		case 1:
    			clear;
    			if (!getcharid(1)) {
    				mes "Estoy solo. No tengo party.";
    				close;
    			}
    			if (getcharid(0) != getpartyleader(getcharid(1), 2)) {
    				mes "No soy el líder de mi party. No puedo publicar nada aquí.";
    				close;
    			}
    			.@party_id = getcharid(1);
    
    			for (.@i = 0; .@i < getarraysize($@party_ids); .@i++) {
    				if ($@party_ids[.@i] == .@party_id) {
    					mes "Já hay un anuncio de mi party aquí. Nada que hacer.";
    					close;
    				}
    			}
    
    			mes "Penso un poco...";
    			mes "¿Qué nivel mínimo debería requerir?";
    			input .@min_level,0,MAX_LEVEL;
    			clear;
    			if (.@min_level > 1)
    				mes "Nivel mínimo : " + .@min_level;
    			else
    				mes "Sin nivel mínimo";
    
    			switch(select("Seleccionar roles", "Seleccionar clases", "Cancelar")) {
    			    case 1:
    			        deletearray .@selected_roles[0], getarraysize(.@roles$);
    			        .@accept_all = false;
    
    			        while (1) {
    			            .@menu$ = "";
    
    			            if (.@accept_all)
    			                .@menu$ += "^ff0000Desmarcar todos^000000:";
    			            else
    			                .@menu$ += "[  ] Cualquier rol^000000:";
    
    			            for (.@i = 0; .@i < getarraysize(.@roles$); .@i++) {
    			                .@menu$ += (.@selected_roles[.@i] ? "^0000FF[+] " : "^808080[  ] ") + .@roles$[.@i] + "^000000:";
    			            }
    
    			            .@menu$ += "Confirmar selección";
    
    			            .@opt = select(.@menu$);
    
    			            if (.@opt == 1) {
    			                .@accept_all = !.@accept_all;
    			                if (.@accept_all) {
    			                    for (.@i = 0; .@i < getarraysize(.@roles$); .@i++)
    			                        .@selected_roles[.@i] = true;
    			                } else {
    			                    deletearray .@selected_roles[0], getarraysize(.@roles$);
    			                }
    			            }
    			            else if (.@opt == getarraysize(.@roles$) + 2) {
    			                .@valid = false;
    			                for (.@i = 0; .@i < getarraysize(.@roles$); .@i++) {
    			                    if (.@selected_roles[.@i]) {
    			                        .@valid = true;
    			                        break;
    			                    }
    			                }
    			                if (!.@valid) {
    			                    mes "Necesito seleccionar al menos un rol.";
    			                    continue;
    			                }
    			                break;
    			            }
    			            else {
    			                .@index = .@opt - 2;
    			                .@selected_roles[.@index] = !.@selected_roles[.@index];
    			                if (.@accept_all && !.@selected_roles[.@index])
    			                    .@accept_all = false;
    			            }
    			        }
    
    			        if (.@accept_all) {
    			            .party_filter_type$[.@party_id] = "role";
    			            $@party_filter_values$[.@party_id] = "cualquier";
    			        } else {
    			            .@str$ = "";
    			            for (.@i = 0; .@i < getarraysize(.@roles$); .@i++) {
    			                if (.@selected_roles[.@i]) {
    			                    .@str$ += (.@str$ == "" ? "" : ",") + .@roles$[.@i];
    			                }
    			            }
    			            .party_filter_type$[.@party_id] = "role";
    			            $@party_filter_values$[.@party_id] = .@str$;
    			        }
    
    			        mes "Roles confirmados. Anuncio publicado.";
    			        .@index = getarraysize($@party_ids);
    			        $@party_ids[.@index] = .@party_id;
    			        $@party_min_level[.@party_id] = .@min_level;
    			        $@party_leader$[.@party_id] = strcharinfo(0);
    
    					if ($@party_filter_values$[.@target_pid] != "cualquier")
    						.@announce$[.@count++] = replacestr(.@str$, ",", " / ");
    			        break;
    
    			    case 2:
    			        deletearray .@selected_classes[0], getarraysize(.@jobs);
    			        .@accept_all = false;
    
    			        while (1) {
    			            .@menu$ = "";
    
    			            if (.@accept_all)
    			                .@menu$ += "^ff0000Desmarcar todas^000000:";
    			            else
    			                .@menu$ += "[  ] Cualquier clase^000000:";
    
    			            for (.@i = 0; .@i < getarraysize(.@jobs); .@i++) {
    			                .@menu$ += (.@selected_classes[.@i] ? "^0000FF[+] " : "^808080[  ] ") + jobname(.@jobs[.@i]) + "^000000:";
    			            }
    
    			            .@menu$ += "Confirmar selección";
    			            .@opt2 = select(.@menu$);
    			            if (.@opt2 == 1) {
    			                .@accept_all = !.@accept_all;
    			                if (.@accept_all) {
    			                    for (.@i = 0; .@i < getarraysize(.@jobs); .@i++)
    			                        .@selected_classes[.@i] = true;
    			                } else {
    			                    deletearray .@selected_classes[0], getarraysize(.@jobs);
    			                }
    			            }
    			            else if (.@opt2 == getarraysize(.@jobs) + 2) {
    			                .@valid2 = false;
    			                for (.@i = 0; .@i < getarraysize(.@jobs); .@i++) {
    			                    if (.@selected_classes[.@i]) {
    			                        .@valid2 = true;
    			                        break;
    			                    }
    			                }
    			                if (!.@valid2) {
    			                    mes "Necesito seleccionar al menos una clase.";
    			                    continue;
    			                }
    			                break;
    			            }
    			            else {
    			                .@index2 = .@opt2 - 2;
    			                .@selected_classes[.@index2] = !.@selected_classes[.@index2];
    			                if (.@accept_all && !.@selected_classes[.@index2])
    			                    .@accept_all = false;
    			            }
    			        }
    
    			        if (.@accept_all) {
    			            .party_filter_type$[.@party_id] = "class";
    			            $@party_filter_values$[.@party_id] = "cualquier";
    			        } else {
    			            .@str$ = "";
    			            for (.@i = 0; .@i < getarraysize(.@jobs); .@i++) {
    			                if (.@selected_classes[.@i]) {
    			                    .@str$ += (.@str$ == "" ? "" : ",") + .@jobs[.@i];
    			                }
    			            }
    			            .party_filter_type$[.@party_id] = "class";
    			            $@party_filter_values$[.@party_id] = .@str$;
    
    						explode(.@class_array$, .@str$, ",");
    						if (getarraysize(.@class_array$) < 4) {
    							for (.@i = 0; .@i < getarraysize(.@class_array$); .@i++)
    								.@class_array$[.@i] = jobname(atoi(.@class_array$[.@i]));
    							.@announce$[.@count++] = implode(.@class_array$, " / ");
    						}
    						else
    							.@announce$[.@count++] = "de ciertas clases";
    
    			        }
    			        mes "Clases confirmadas. Anuncio publicado.";
    					mes "Ahora, a esperar que alguien se una.";
    			        .@index = getarraysize($@party_ids);
    			        $@party_ids[.@index] = .@party_id;
    			        $@party_min_level[.@party_id] = .@min_level;
    			        $@party_leader$[.@party_id] = strcharinfo(0);
    					break;
    
    			    case 3:
    			        close;
    			}
    			if ($@party_min_level[.@party_id] > 1)
    				.@announce$[.@count++] = "nivel " + $@party_min_level[.@party_id] + "+";
    			if (.@announce$[0] != "")
    				announce strcharinfo(0) + " está buscando miembros " + implode(.@announce$, " ") + " para su grupo.",0;
    			else
    				announce strcharinfo(0) + " está buscando miembros para su grupo.",0;
    			donpcevent strnpcinfo(0) + "::OnUpdateBoard";
    			close;
    		case 2:
    			if (getarraysize($@party_ids) == 0) {
    				mes "El cartel está vacío. Nadie está reclutando ahora.";
    				close;
    			}
    			for (.@i = 0; .@i < getarraysize($@party_ids); .@i++) {
    				.@pid = $@party_ids[.@i];
    				.@menu$ += "Party de " + $@party_leader$[.@pid] + " (Lv " + $@party_min_level[.@pid] + "+):";
    			}
    
    			.@chosen = select(.@menu$) - 1;
    			.@target_pid = $@party_ids[.@chosen];
    			
    			clear;
    			mes " - Líder: " + $@party_leader$[.@target_pid];
    			if ($@party_min_level[.@target_pid] > 1)
    				mes " - Nivel requerido: " + $@party_min_level[.@target_pid];
    
    			if (.party_filter_type$[.@target_pid] == "role") {
    				mes " - Roles: " + replacestr($@party_filter_values$[.@target_pid], ",", " / ");
    			}
    			else if (.party_filter_type$[.@target_pid] == "class") {
    				if ($@party_filter_values$[.@target_pid] == "cualquier") {
    					mes " - Clasess: Cualquier clase";
    				}
    				else {
    					explode(.@class_array$, $@party_filter_values$[.@target_pid], ",");
    					.@class_str$ = "";
    					for (.@i = 0; .@i < getarraysize(.@class_array$); .@i++) {
    					    .@class_str$ += (.@class_str$ == "" ? "" : ", ") + jobname(atoi(.@class_array$[.@i]));
    					}
    
    					mes "Clases: " + .@class_str$;
    				}
    			} else {
    				mes " - Sin restricciones de clase.";
    			}
    
    			if (BaseLevel < $@party_min_level[.@target_pid]) {
    				mes "Pero... no tengo el nivel suficiente.";
    				close;
    			}
    
    			if (.party_filter_type$[.@target_pid] == "class") {
    				if ($@party_filter_values$[.@target_pid] != "cualquier") {
    					.@my_class$ = "," + Class + ",";
    					.@allowed$ = "," + $@party_filter_values$[.@target_pid] + ",";
    					if (!compare(.@allowed$, .@my_class$)) {
    						mes "Mi clase no está permitida. Qué lástima.";
    						close;
    					}
    				}
    			}
    
    			else if (.party_filter_type$[.@target_pid] == "role") {
    				if ($@party_filter_values$[.@target_pid] == "Curador") {
    					if (!(BaseJob == Job_Acolyte || BaseJob == Job_Priest)) {
    						mes "Mi clase no corresponde al rol que esta party necesita.";
    						close;
    					}
    				}
    
    			}
    			if (getcharid(1)) {
    				mes "Ya pertenezco a una party. No puedo unirme a otra.";
    				close;
    			}
    			mes "Doy un paso al frente, decidido a unirme...";
    			.@result = party_addmember(.@target_pid, getcharid(0));
    			if (.@result == 1)
    				mes "Ahora formo parte de esa party.";
    			else if (.@result == -4)
    				mes "El grupo está lleno";
    			else
    				mes "Algo falló.";
    			close;
    
    		case 3:
    			close;
    	}
    
    OnUpdateBoard:
    	.board_index = getarraysize($@party_ids) - 1;
    OnTimer4000:
    	stopnpctimer;
    	delwaitingroom;
    	.@total = getarraysize($@party_ids);
    	if (.@total) {
    		.@target_pid = $@party_ids[.board_index];
    		.@announce$[.@count++] = $@party_leader$[.@target_pid];
    		if ($@party_min_level[.@target_pid] > 1)
    			.@announce$[.@count++] = "+" + $@party_min_level[.@target_pid];
    		if (.party_filter_type$[.@target_pid] == "role") {
    			if ($@party_filter_values$[.@target_pid] != "cualquier")
    				.@announce$[.@count++] = replacestr($@party_filter_values$[.@target_pid], ",", " / ");
    		}
    		else if ($@party_filter_values$[.@target_pid] != "cualquier") {
    			explode(.@class_array$, $@party_filter_values$[.@target_pid], ",");
    			if (getarraysize(.@class_array$) < 4) {
    				for (.@i = 0; .@i < getarraysize(.@class_array$); .@i++)
    					.@class_array$[.@i] = jobname(atoi(.@class_array$[.@i]));
    				.@announce$[.@count++] = implode(.@class_array$, " / ");
    			}
    			else
    				.@announce$[.@count++] = "Ciertas clases";
    		}
    		waitingroom implode(.@announce$, " "),0;
    		.board_index++;
    		if (.board_index >= .@total)
    			.board_index = 0;
    		initnpctimer;
    	}
    	end;
    
    OnInit:
    	deletearray $@party_ids[0];
    	end;
    }

     

     

  18. 4 hours ago, AinsLord said:

    where can I find this NPC tried to warp on it but no NPC shows

    The NPC is in the empty space between floors. You can use @jump 53 8 to get close to it.
    image.thumb.png.6f85c5b7ee62f858abb89d849c30435c.png

    4 hours ago, AinsLord said:

    can I ask if you can add a command how many E_tower points you have, so you dont need to bother going back to the NPC

    -	script	ShowEndlessTowerPoints	-1,{
    OnAtcommand:
    	.@size = getarraysize($@difficulty_mode$);
    	if (!.@size) {
    		dispbottom "Please talk to the Tower Protection Stone first.";
    		end;
    	}
    	dispbottom "====================";
    	dispbottom "ENDLESS TOWER POINTS";
    	for (.@i = 1; .@i < .@size; .@i++)
    		dispbottom $@difficulty_mode$[.@i] + ": " + getd("#" + $@var_names$[.@i]);
    	dispbottom "====================";
    	end;
    
    OnInit:
    	bindatcmd "ETpoints",strnpcinfo(3)+"::OnAtcommand";
    	end;
    }

     

    • Upvote 1
  19. getmapxy and getmonsterinfo now use constants.

    Find:
    getmapxy .@map$, .@x, .@y, 0;
    Replace:
    getmapxy .@map$, .@x, .@y;

    Find:
    getmapxy .@map$, .@x, .@y ,1;
    Replace:
    getmapxy .@map$, .@x, .@y ,BL_NPC;

    Find all:
    getmonsterinfo( ..., 0)
    Replace:
    getmonsterinfo( ..., MOB_NAME)

     

    //	....... if your server has { Overwriting user function [int__] } don't blame me ..........
    function	script	int__	{
    	set .@num, atoi(getarg(0)+"");
    	if ( .@num == 0 || .@num >= 2147483647 ) return getarg(0);
    	set .@l, getstrlen(.@num+"");
    	for ( set .@i,0; .@i < .@l; set .@i, .@i + 1 ) {
    		set .@num$, .@num % pow(10,.@i+1) / pow(10,.@i) + .@num$;
    		if ( (.@i+1) % 3 == 0 && .@i+1 != .@l ) set .@num$, ","+ .@num$;
    	}
    	return .@num$;
    }
    
    //===== eAthena Script ======================================
    //= Private MVP/Branch Room
    //===== By: ===============================================
    //= by ~AnnieRuru~
    //===== Current Version: ======================================
    //= 1.4a
    //===== Compatible With: ===================================== 
    //= rathena 16819
    //===== Description: ========================================= 
    //= Player can rent MVP room for the player him/herself, for party or for guilds
    //===== Topic =================================================
    //= http://www.eathena.ws/board/index.php?showtopic=187654
    //===== Additional Comments: ================================== 
    //= 1.0 
    //= ---- break the tradition which a script only for a player, or only for a party.
    //=      now 1 room can be use for party and another room can use for guilds.
    //= ---- timeout feature to prevent player owns the room indefinitely,
    //=      by create a new account and sit/@at'ing inside overnight.
    //= ---- can disable mvp/boss summon via configuration and becomes a branch room script.
    //= ---- a double check to prevent players rent all the rooms for himself.
    //= 1.0a
    //= ---- fix a critial bug that the time count too fast -_-"
    //= 1.1
    //= ---- added item cost to rent or to summon
    //= ---- added a config to limit summoning per session
    //= ---- added flood control option
    //= 1.2
    //= ---- rewrite the waitingroom counter
    //= ---- optimize the script in a way can add custom summon group
    //= ---- add config to kill the monsters if the room just being left empty
    //= ---- add GM can kick room in use
    //= ---- add able to spawn in numbers
    //= ---- add limitspawn can configure to negative to limit spawn in that group instead of individual one
    //= 1.3
    //= ---- fix chatroom countdown issue due to rev13269
    //= ---- fix a bug if 2 people rent a room at same time, the later 1 will get the room
    //= ---- add a feature so the GM can know how long the room has rented or abandoned
    //= 1.4
    //= ---- update with new mvp and mini bosses
    //= ---- fix an exploit if server allow to use @mail, player can send item/zeny away to prevent item/zeny deletion when registering the room
    //= ---- players die inside mvp room shouldn't lose exp
    //= 1.4a
    //= ---- fix this to use in rathena
    //========================================================
    
    //	This is the shop for this Branch room IF you already enable it. Can sell whatever things you want.
    -	shop	MVP room#branch	-1,604:100000,12103:1000000
    
    
    
    -	script	MVP Summoner	-1,{
    	goto L_Start;
    
    OnInit:
    	getmapxy .@map$, .@x, .@y, BL_NPC;
    	if ( .@map$ == "" ) {
    
    //	Config ---------------------------------------------------------------------------------------
    
    	// Time for rent a room IN MINUTES. When time out, players inside the room will kick out. Do Not set this as 0
    	set .timeout, 30;
    	// if the room left empty for # minutes, will be treated as give up the room. Do Not set this as 0
    	set .nobodygiveup, 2;
    
    	// NOTE : The script only search item OR zeny. if you specify item amount, then it will ask for the item. If item amount is 0, then it will ask for zeny.
    
    	// the cost to rent a room
    	set .rentitemid, 674; // item id use for rent a room - 674 - mithil coin
    	set .rentitemamount, 0; // amount of items to rent a room
    	set .rentcost, 1000000; // otherwise, zeny cost to rent a room
    
    	// limit each room can only summon 1 monster at a time. (only the Summoning option)
    	// Turn it off (0) means the player can summon a lot of monsters as long as the player has enough zeny/item. High rate server players love the room with a lot MVPs
    	// Turn it on (1) means the player have to kill existing monster before can summon a new one. Low rate server player prefer to take out MVP 1 by 1
    	set .floodcontrol, 1;
    
    	// if .floodcontrol is turn off, your players might experience lag if they summoned too many MVPs
    	// so what is the maximum input to limit your players summon too many ?
    	set .inputlimit, 30;
    
    	// If the room has left over monsters while nobody in the room and the room not give up yet, shall we kill monsters in empty room ?
    	set .killmonster, 1; // Default is yes
    
    	//	Options menu setting for MVP Summoner NPC.
    	set .@menu[0], 1; // Turn Heal option On/Off
    	set .@menu[1], 1; // Turn Group 1 summons On/Off -> MVP
    	set .@menu[2], 1; // Turn Group 2 summons On/Off -> mini boss
    	set .@menu[3], 0; // Turn Group 3 summons On/Off
    	set .@menu[4], 0; // Turn Group 4 summons On/Off
    	set .@menu[5], 0; // Turn Group 5 summons On/Off
    	set .@menu[6], 0; // Turn Group 6 summons On/Off
    	set .@menu[7], 0; // Turn Group 7 summons On/Off
    	set .@menu[8], 0; // Turn Group 8 summons On/Off
    	set .@menu[9], 0; // Turn Group 9 summons On/Off
    	set .@menu[10], 0; // Sell shop items options On/Off ( shop npc above )
    
    	//	set respawn point when they leave the room. Obviously warp to the Private MVP Room Warper npc
    	set .respawnmap$, "prontera"; // Note : "SavePoint" does NOT work
    	set .respawnx, 150;
    	set .respawny, 174;
    
    	// The minimum GM level can kick a room in use
    	set .gmlvlkick, 80;
    
    	// .limitspawn in previous revision changed to .grouplimit .
    	// it is for limit each monster spawn per session, prevent them only killing same monster again and again
    	// Now you can configure one group has limited summon, and another group has unlimited summon
    	// Tips: if you server has an insane custom MVP, you can put your custom mob to Group 3~9 with insane item cost, and limit only 1 summon per session
    	// .grouplimit use amount, means if group1limit set to 10, then each session can only summon up to 10 amount of that kind of monster. 0 is unlimited
    
    	// ---------
    	// Group 1 -> MVP 
    	// ---------
    	set .group1name$, "MVP"; // Group 1 name
    	set .group1itemid, 674; // item id use for summon any Group 1 monster - 674 - mithil coin
    	set .group1itemamount, 0; // amount of items to summon a Group 1 monster
    	set .group1cost, 100000; // if no item is specify, zeny cost to summon a Group 1 monster
    	set .group1limit, 0; // limit of summon of Group 1 monster per session, prevent them only killing same monster again and again
    	setarray .group1id,
    		1511,//	Amon Ra
    		1647,// Assassin Cross Eremes
    		1785,//	Atroce
    		1630,//	Bacsojin
    		1039,//	Baphomet
    		1874,//	Beelzebub
    		1272,//	Dark Lord
    		1719,//	Datale
    		1046,//	Doppelgangger
    		1389,//	Dracula
    		1112,//	Drake
    		1115,//	Eddga
    		1418,//	Evil Snake Lord
    		1871,//	Fallen Bishop
    		1252,//	Garm
    		1768,//	Gloom Under Night
    		1086,//	Golden Thief Bug
    		1885,//	Gopinich
    		1649,// High Priest Magaleta
    		1651,// High Wizard Katrinn
    		1832,//	Ifrit
    		1492,//	Incantation Samurai
    		1734,//	Kiel D-01
    		1251,//	Knight of Windstorm
    		1779,//	Ktullanux
    	//	1980,// Kubkin ( I think this mvp is still new )
    		1688,//	Lady Tanee
    		1646,// Lord Knight Seyren
    		1373,//	Lord of Death
    		1147,//	Maya
    		1059,//	Mistress
    		1150,//	Moonlight Flower
    		1087,//	Orc Hero
    		1190,//	Orc Lord
    		1038,//	Osiris
    		1157,//	Pharaoh
    		1159,//	Phreeoni
    		1623,//	RSX 0806
    		1650,// Sniper Shecil
    		1583,//	Tao Gunka
    		1708,//	Thanatos
    		1312,//	Turtle General
    		1751,//	Valkyrie Randgris
    		1685,// Vesper
    		1648,// Whitesmith Harword
    		1917,// Wounded Morroc
    		1658;//	Ygnizem
    
    	// ---------
    	// Group 2 -> mini boss
    	// ---------
    	set .group2name$, "mini boss"; // Group 2 name
    	set .group2itemid, 674; // item id use for summon any Group 2 monster - 674 - mithil coin
    	set .group2itemamount, 0; // amount of items to summon a Group 2 monster
    	set .group2cost, 10000; // if no item is specify, zeny cost to summon a Group 2 monster
    	set .group2limit, 0; // limit of summon of Group 2 monster per session, prevent them only killing same monster again and again
    	setarray .group2id,
    		1096,// Angeling
    		1388,// Archangeling
    		1795,// Bloody Knight
    		1830,// Bow Guardian
    		1839,// Byorgue
    		1309,// Cat O' Nine Tail
    		1283,// Chimera
    		1302,// Dark Illusion
    		1198,// Dark Priest
    		1582,// Deviling
    		1091,// Dragon Fly
    		1093,// Eclipse
    		1205,// Executioner
    		1783,// Galion
    		1592,// Gangster
    		1120,// Ghostring
    		1259,// Gryphon
    		1720,// Hydro
    		1090,// Mastering
    		1289,// Maya Purple
    		1262,// Mutant Dragon
    		1203,// Mysteltainn
    		1870,// Necromancer
    		1295,// Owl Baron
    		1829,// Sword Guardian
    		1204,// Tirfing
    		1089,// Toad
    		1092,// Vagabond Wolf
    		1765;// Valkyrie
    
    	// ---------
    	// Group 3
    	// ---------
    	set .group3name$, "Poring-Family"; // Group 3 name
    	set .group3itemid, 12109; // item id use for summon any Group 3 monster - 12109 - Poring box
    	set .group3itemamount, 1; // amount of items to summon a Group 3 monster
    	set .group3cost, 0; // if no item is specify, zeny cost to summon a Group 3 monster
    	set .group3limit, -5; // limit of summon of Group 3 monster per session, prevent them only killing same monster again and again
    	setarray .group3id,
    		1002,// Poring
    		1113,// Drops
    		1031,// Poporing
    		1242,// Marin
    		1062,// Santa Poring
    		1613,// Metaling
    		1784,// Stapo
    		1090,// Mastering
    		1096,// Angeling
    		1120,// Ghostring
    		1582,// Deviling
    		1388,// Arc Angeling
    		1502;// Pori Pori
    
    	// ---------
    	// Group 4
    	// ---------
    	set .group4name$, ""; // Group 4 name
    	set .group4itemid, 0; // item id use for summon any Group 4 monster
    	set .group4itemamount, 0; // amount of items to summon a Group 4 monster
    	set .group4cost, 0; // if no item is specify, zeny cost to summon a Group 4 monster
    	set .group4limit, 0; // limit of summon of Group 4 monster per session, prevent them only killing same monster again and again
    	setarray .group4id,
    		1001,
    		1002;
    
    	// ---------
    	// Group 5
    	// ---------
    	set .group5name$, ""; // Group 5 name
    	set .group5itemid, 0; // item id use for summon any Group 5 monster
    	set .group5itemamount, 0; // amount of items to summon a Group 5 monster
    	set .group5cost, 0; // if no item is specify, zeny cost to summon a Group 5 monster
    	set .group5limit, 0; // limit of summon of Group 5 monster per session, prevent them only killing same monster again and again
    	setarray .group5id,
    		1001,
    		1002;
    
    	// ---------
    	// Group 6
    	// ---------
    	set .group6name$, ""; // Group 6 name
    	set .group6itemid, 0; // item id use for summon any Group 6 monster
    	set .group6itemamount, 0; // amount of items to summon a Group 6 monster
    	set .group6cost, 0; // if no item is specify, zeny cost to summon a Group 6 monster
    	set .group6limit, 0; // limit of summon of Group 6 monster per session, prevent them only killing same monster again and again
    	setarray .group6id,
    		1001,
    		1002;
    
    	// ---------
    	// Group 7
    	// ---------
    	set .group7name$, ""; // Group 7 name
    	set .group7itemid, 0; // item id use for summon any Group 7 monster
    	set .group7itemamount, 0; // amount of items to summon a Group 7 monster
    	set .group7cost, 0; // if no item is specify, zeny cost to summon a Group 7 monster
    	set .group7limit, 0; // limit of summon of Group 7 monster per session, prevent them only killing same monster again and again
    	setarray .group7id,
    		1001,
    		1002;
    
    	// ---------
    	// Group 8
    	// ---------
    	set .group8name$, ""; // Group 8 name
    	set .group8itemid, 0; // item id use for summon any Group 8 monster
    	set .group8itemamount, 0; // amount of items to summon a Group 8 monster
    	set .group8cost, 0; // if no item is specify, zeny cost to summon a Group 8 monster
    	set .group8limit, 0; // limit of summon of Group 8 monster per session, prevent them only killing same monster again and again
    	setarray .group8id,
    		1001,
    		1002;
    
    	// ---------
    	// Group 9
    	// ---------
    	set .group9name$, ""; // Group 9 name
    	set .group9itemid, 0; // item id use for summon any Group 9 monster
    	set .group9itemamount, 0; // amount of items to summon a Group 9 monster
    	set .group9cost, 0; // if no item is specify, zeny cost to summon a Group 9 monster
    	set .group9limit, 0; // limit of summon of Group 9 monster per session, prevent them only killing same monster again and again
    	setarray .group9id,
    		1001,
    		1002;
    
    //	Config Ends ------------------------------------------------------------------------
    
    		if ( .timeout == 0 ) set .timeout, 60;
    		if ( .nobodygiveup == 0 ) set .nobodygiveup, 5;
    		if ( .inputlimit < 1 ) set .inputlimit, 1;
    
    		if ( .rentitemid && .rentitemamount ) {
    			if ( getitemname(.rentitemid) == "null" ) {
    				debugmes "Private MVP Room: Rent a room is using invalid item id.";
    			}
    		}
    		set .@i, 1;
    		while ( .@i <= 9 ) {
    			if ( .@menu[.@i] && getd(".group"+ .@i +"itemid") && getd(".group"+ .@i +"itemamount") ) {
    				if ( getitemname( getd(".group"+ .@i +"itemid") ) == "null" ) {
    					debugmes "Private MVP Room: Group no. "+ .@i +" is using invalid item id.";
    				}
    			}
    			set .@i, .@i +1 ;
    		}
    		set .menu$, ( (.@menu[0])?"Heal":"" )+":"+( (.@menu[1])?"Summon "+ .group1name$:"" )+":"+( (.@menu[2])?"Summon "+ .group2name$:"" )+":"+( (.@menu[3])?"Summon "+ .group3name$:"" )+":"+( (.@menu[4])?"Summon "+ .group4name$:"" )+":"+( (.@menu[5])?"Summon "+ .group5name$:"" )+":"+( (.@menu[6])?"Summon "+ .group6name$:"" )+":"+( (.@menu[7])?"Summon "+ .group7name$:"" )+":"+( (.@menu[8])?"Summon "+ .group8name$:"" )+":"+( (.@menu[9])?"Summon "+ .group9name$:"" )+":"+( (.@menu[10])?"Buy branches":"" )+":Leave this room:Give up this room";
    
    		set .@i, 1;
    		while ( .@i <= 9 ) {
    			setd ".group"+ .@i +"idsize", getarraysize( getd(".group"+ .@i +"id") );
    			if ( .@menu[.@i] && getd(".group"+ .@i +"limit") <= 0 ) {
    				set .@j, 0;
    				while ( .@j < getd(".group"+ .@i +"idsize") ) {
    					setd ".group"+ .@i +"menu$", getd(".group"+ .@i +"menu$") + getmonsterinfo( getd(".group"+ .@i +"id["+ .@j +"]"), MOB_NAME) +":";
    					set .@j, .@j +1 ;
    				}
    			}
    			set .@i, .@i +1 ;
    		}
    	}
    	else {
    		sleep 1;
    		mapannounce .@map$, "Admin has refresh the server, please register the room again.", 1;
    		mapwarp .@map$, .respawnmap$, .respawnx, .respawny;
    	}
    	end;
    
    L_Start: // I hate gotos ... but ...
    	set .@dif, strnpcinfo(2);
    	if ( .remind[.@dif] == 0 ) {
    		set .remind[.@dif], 1;
    		initnpctimer;
    	}
    	mes "[MVP Summoner]";
    	mes "Hi, what can I do for you ?";
    	next;
    	switch ( select(.menu$) ) {
    		case 1:
    			mes "[MVP Summoner]";
    			if ( mobcount("this","") > 0 ) {
    				mes "I cannot offer heal service when there are monsters around.";
    				close;
    			}
    			sc_end sc_stone;
    			sc_end sc_slowdown;
    			sc_end sc_freeze;
    			sc_end sc_sleep;
    			sc_end sc_curse;
    			sc_end sc_silence;
    			sc_end sc_confusion;
    			sc_end sc_blind;
    			sc_end sc_bleeding;
    			sc_end sc_decreaseagi;
    			sc_end sc_poison;
    			sc_end sc_hallucination;
    			sc_end sc_stripweapon;
    			sc_end sc_striparmor;
    			sc_end sc_striphelm;
    			sc_end sc_stripshield;
    			sc_end sc_changeundead;
    			sc_end sc_orcish;
    			sc_end sc_berserk;
    			sc_end sc_ske;
    			sc_end sc_swoo;
    			sc_end sc_ska;
    			percentheal 100,100;
    			specialeffect2 7;
    			mes "You have completely healed.";
    			close;
    		default:
    			set .@group, @menu -1;
    			if ( .floodcontrol && mobcount("this","") > 0 ) {
    				mes "[MVP Summoner]";
    				mes "I cannot summon another monster when there are monsters around.";
    				close;
    			}
    			else if ( getd(".group"+ .@group +"itemid") && getd(".group"+ .@group +"itemamount") ) {
    				mes "[MVP Summoner]";
    				mes "The cost to summon a "+ getd(".group"+ .@group +"name$") +" is "+ getd(".group"+ .@group +"itemamount") +" "+ getitemname( getd(".group"+ .@group +"itemid") ) +".";
    				if ( getd(".group"+ .@group +"limit") < 0 )
    					mes "("+( ( ~getd(".group"+ .@group +"limit")+1 - getd(".group"+ .@group +"limit"+ .@dif) <= 0 )?0:( ~getd(".group"+ .@group +"limit")+1 - getd(".group"+ .@group +"limit"+ .@dif) ) )+") more summons for this group.";
    				next;
    			}
    			else if ( getd(".group"+ .@group +"cost") ) {
    				mes "[MVP Summoner]";
    				mes "The cost to summon a "+ getd(".group"+ .@group +"name$") +" is "+ callfunc("int__", getd(".group"+ .@group +"cost") ) +" zeny.";
    				if ( getd(".group"+ .@group +"limit") < 0 )
    					mes "("+( ( ~getd(".group"+ .@group +"limit")+1 - getd(".group"+ .@group +"limit"+ .@dif) <= 0 )?0:( ~getd(".group"+ .@group +"limit")+1 - getd(".group"+ .@group +"limit"+ .@dif) ) )+") more summons for this group.";
    				next;
    			}
    			else if ( getd(".group"+ .@group +"limit") < 0 ) {
    				mes "[MVP Summoner]";
    				mes "("+( ( ~getd(".group"+ .@group +"limit")+1 - getd(".group"+ .@group +"limit"+ .@dif) <= 0 )?0:( ~getd(".group"+ .@group +"limit")+1 - getd(".group"+ .@group +"limit"+ .@dif) ) )+") more summons for this group.";
    				next;
    			}
    			if ( getd(".group"+ .@group +"limit") < 0 && getd(".group"+ .@group +"limit"+ .@dif) >= ~getd(".group"+ .@group +"limit")+1 ) {
    				mes "[MVP Summoner]";
    				mes "I'm sorry, but you can't summon any more monster for this group.";
    				close;
    			}
    			else if ( getd(".group"+ .@group +"limit") > 0 ) {
    				for ( set .@i, 0; .@i < getd(".group"+ .@group +"idsize"); set .@i, .@i +1 )
    					set .@menu$, .@menu$ +( ( getd(".group"+ .@group +"limit"+ .@dif +"["+ .@i +"]") >= getd(".group"+ .@group +"limit") )?"^999999":"^000000" )+ getmonsterinfo( getd(".group"+ .@group +"id["+ .@i +"]"), MOB_NAME) +" ("+ ( ( getd(".group"+ .@group +"limit") - getd(".group"+ .@group +"limit"+ .@dif +"["+ .@i +"]") <= 0 )?0:( getd(".group"+ .@group +"limit") - getd(".group"+ .@group +"limit"+ .@dif +"["+ .@i +"]") ) ) +")"+":";
    				set .@menu, select(.@menu$) -1;
    			}
    			else
    				set .@menu, select( getd(".group"+ .@group +"menu$") ) -1;
    			mes "[MVP Summoner]";
    			if ( .floodcontrol == 0 && .inputlimit > 1 ) {
    				mes "Input an amount of monsters to summon.";
    				next;
    				input .@amount;
    				if ( .@amount == 0 ) close;
    				else if ( .@amount > .inputlimit )
    					set .@amount, .inputlimit;
    				mes "[MVP Summoner]";
    			}
    			else
    				set .@amount, 1;
    			if ( getd(".group"+ .@group +"itemid") && getd(".group"+ .@group +"itemamount") ) {
    				if ( countitem( getd(".group"+ .@group +"itemid") ) < getd(".group"+ .@group +"itemamount") * .@amount ) {
    					mes "You don't have enough "+ getitemname( getd(".group"+ .@group +"itemid") ) +" to summon a "+ getd(".group"+ .@group +"name$") +".";
    					close;
    				}
    			}
    			else if ( getd(".group"+ .@group +"cost") ) {
    				if ( zeny < getd(".group"+ .@group +"cost") * .@amount ) {
    					mes "You don't have enough zeny to summon a "+ getd(".group"+ .@group +"name$") +".";
    					close;
    				}
    			}
    			if ( .floodcontrol && mobcount("this","") > 0 ) {
    				mes "I cannot summon another monster when there are monsters around.";
    				close;
    			}
    			else if ( getd(".group"+ .@group +"limit") > 0 ) {
    				if ( getd(".group"+ .@group +"limit"+ .@dif +"["+ .@menu +"]") >= getd(".group"+ .@group +"limit") ) {
    					mes "I'm sorry, but you already summoned that monster too much. Try summon another.";
    					close;
    				}
    				else if ( getd(".group"+ .@group +"limit"+ .@dif +"["+ .@menu +"]") + .@amount > getd(".group"+ .@group +"limit") ) {
    					mes "The amount you input is more than the limit you can summon. Try reduce the amount.";
    					close;
    				}
    			}
    			else if ( getd(".group"+ .@group +"limit") < 0 ) {
    				if ( getd(".group"+ .@group +"limit"+ .@dif) >= ~getd(".group"+ .@group +"limit")+1 ) {
    					mes "I'm sorry, but you can't summon any more monster for this group.";
    					close;
    				}
    				else if ( getd(".group"+ .@group +"limit"+ .@dif) + .@amount > ~getd(".group"+ .@group +"limit")+1 ) {
    					mes "The amount you input is more than the limit you can summon. Try reduce the amount.";
    					close;
    				}
    			}
    			mes "Summoning "+ .@amount +" "+ getmonsterinfo( getd(".group"+ .@group +"id["+ .@menu +"]"), MOB_NAME) +".";
    			mes "Ok, get ready ?";
    			close2;
    			if ( .floodcontrol && mobcount("this","") > 0 ) end;
    			if ( getd(".group"+ .@group +"itemid") && getd(".group"+ .@group +"itemamount") ) {
    				if ( countitem( getd(".group"+ .@group +"itemid") ) < getd(".group"+ .@group +"itemamount") * .@amount ) end;
    				delitem getd(".group"+ .@group +"itemid"), getd(".group"+ .@group +"itemamount") * .@amount;
    			}
    			else if ( getd(".group"+ .@group +"cost") ) {
    				if ( zeny < getd(".group"+ .@group +"cost") * .@amount ) end;
    				set zeny, zeny - getd(".group"+ .@group +"cost") * .@amount;
    			}
    			if ( getd(".group"+ .@group +"limit") > 0 ) {
    				if ( getd(".group"+ .@group +"limit"+ .@dif +"["+ .@menu +"]") + .@amount > getd(".group"+ .@group +"limit") ) end;
    				setd ".group"+ .@group +"limit"+ .@dif +"["+ .@menu +"]", getd(".group"+ .@group +"limit"+ .@dif +"["+ .@menu +"]") + .@amount;
    			}
    			else if ( getd(".group"+ .@group +"limit") < 0 ) {
    				if ( getd(".group"+ .@group +"limit"+ .@dif) + .@amount > ~getd(".group"+ .@group +"limit")+1 ) end;
    				setd ".group"+ .@group +"limit"+ .@dif, getd(".group"+ .@group +"limit"+ .@dif) + .@amount;
    			}
    			monster "this", 0, 0, "--ja--", getd(".group"+ .@group +"id["+ .@menu +"]"), .@amount;
    			end;
    		case 11:
    			if ( mobcount("this","") > 0 ) {
    				mes "[MVP Summoner]";
    				mes "I cannot offer this service when there are monsters around.";
    				close;
    			}
    			close2;
    			callshop "MVP room#branch", 0;
    			end;
    		case 12:
    			mes "[MVP Summoner]";
    			mes "Are you sure you want to leave this room ?";
    			mes "If this room left empty for more than "+ .nobodygiveup +" minutes, you lost ownership for this room.";
    			if ( select( "Yes:No") == 2 ) close;
    			warp .respawnmap$, .respawnx, .respawny;
    			end;
    		case 13:
    			mes "[MVP Summoner]";
    			getmapxy .@map$, .@x, .@y;
    			if ( getmapusers(.@map$) > 1 ) {
    				mes "There are still some players in this room. Make sure you are the last member in this room to use this option.";
    				close;
    			}
    			mes "Are you sure you want to give up this room ?";
    			if ( .rentcost )
    				mes "You will need to pay again to enter this room.";
    			next;
    			if ( select( "Yes:No" ) == 2 ) close;
    			warp .respawnmap$, .respawnx, .respawny;
    			set .remaintime[.@dif], -1;
    			end;
    	}
    	close;
    
    OnEnterMap:
    	set .@dif, strnpcinfo(2);
    	set .remind[.@dif], 0;
    	for ( set .@i, 1; .@i <= 9; set .@i, .@i +1 )
    		deletearray getd(".group"+ .@i +"limit"+ .@dif), getd(".group"+ .@i +"idsize");
    	set .nobodycounter[.@dif], 0;
    	getmapxy .@map$, .@x, .@y ,BL_NPC;
    	set .starttime[.@dif], gettimetick(2);
    	do {
    		set .remaintime[.@dif], .timeout * 60 + .starttime[.@dif] - gettimetick(2);
    		set .@hour[.@dif], .remainTime[.@dif] / 3600 ;
    		set .@min[.@dif], .remainTime[.@dif] % 3600 / 60 ;
    		set .@sec[.@dif], .remainTime[.@dif] % 3600 % 60 ;
    		delwaitingroom strnpcinfo(0);
    		waitingroom "Time Left = "+( ( .@hour[.@dif] )?( .@hour[.@dif] +":"):"" )+( ( .@min[.@dif] < 10 )?"0"+ .@min[.@dif]: .@min[.@dif] )+":"+( ( .@sec[.@dif] < 10 )?"0"+ .@sec[.@dif]: .@sec[.@dif] ), 0;
    		if ( getmapusers(.@map$) )
    			set .nobodycounter[.@dif], 0;
    		else {
    			set .nobodycounter[.@dif], .nobodycounter[.@dif] +1 ;
    			if ( .nobodycounter[.@dif] > .nobodygiveup * 60 ) break;
    		}
    		sleep 995;
    	} while ( .remaintime[.@dif] > 1 );
    	set .remaintime[.@dif], 0;
    	delwaitingroom "MVP Summoner#"+ .@dif;
    	mapwarp .@map$, .respawnmap$, .respawnx, .respawny;
    	end;
    
    OnTimer100:
    	stopnpctimer;
    	npctalk "Hi ~ the bubble above my head is the countdown for using this room.";
    	sleep 2000;
    	npctalk "Sometimes, I can skip for about 1 second in the countdown.";
    	sleep 3000;
    	npctalk "That is because the server is experiencing minor lag problem.";
    	sleep 3000;
    	npctalk "So, don't complain about me cheated for the countdown ~ ^.^";
    	sleep 3000;
    	npctalk "Have a nice day ~";
    	end;
    }
    
    prontera,148,174,5	script	Private MVP Room	100,{
    	mes "[Private MVP Room]";
    	mes "Please select a private MVP room.";
    	if ( getvariableofnpc(.rentitemid, "MVP Summoner") && getvariableofnpc(.rentitemamount, "MVP Summoner") )
    		mes "The cost to rent a room for "+ getvariableofnpc(.timeout, "MVP Summoner") +" minutes is "+ getvariableofnpc(.rentitemamount, "MVP Summoner") +" "+ getitemname( getvariableofnpc(.rentitemid, "MVP Summoner") ) +".";
    	else if ( getvariableofnpc(.rentcost, "MVP Summoner") )
    		mes "The cost to rent a room for "+ getvariableofnpc(.timeout, "MVP Summoner") +" minutes is "+ callfunc("int__", getvariableofnpc(.rentcost, "MVP Summoner") ) +" zeny.";
    	else
    		mes "You can only use the room for only "+ getvariableofnpc(.timeout, "MVP Summoner") +" minutes.";
    	mes " ";
    	for ( set .@i, 1; .@i <= 8; set .@i, .@i +1 ) {
    		if ( getvariableofnpc(.remaintime[.@i],"MVP Summoner") ) {
    			switch ( .type[.@i] ) {
    				case 1: set .@color$, "^EE8800"; break;
    				case 2: set .@color$, "^70CC11"; break;
    				case 3: set .@color$, "^0000FF"; break;
    				default: set .@color$, "^000000";
    			}
    			mes "Room #"+ .@i +" = "+ .@color$ + .whoinuse$[.@i] +"^000000";
    		}
    	}
    	next;
    	set .@room, select("MVP Room 1 ["+ getmapusers("06guild_01") +"]",
    		"MVP Room 2 ["+ getmapusers("06guild_02") +"]",
    		"MVP Room 3 ["+ getmapusers("06guild_03") +"]",
    		"MVP Room 4 ["+ getmapusers("06guild_04") +"]",
    		"MVP Room 5 ["+ getmapusers("06guild_05") +"]",
    		"MVP Room 6 ["+ getmapusers("06guild_06") +"]",
    		"MVP Room 7 ["+ getmapusers("06guild_07") +"]",
    		"MVP Room 8 ["+ getmapusers("06guild_08") +"]");
    	if ( getvariableofnpc(.remaintime[.@room],"MVP Summoner") ) {
    		if ( .inuseid[.@room] == getcharid(.type[.@room]) ) {
    			if ( getvariableofnpc(.killmonster,"MVP Summoner") && getmapusers("06guild_0"+ .@room) == 0 )
    				killmonsterall "06guild_0"+ .@room;
    			warp "06guild_0"+ .@room, 0,0;
    			end;
    		} else {
    			mes "[Private MVP Room]";
    			switch ( .type[.@room] ) {
    				case 1: set .@color$, "^EE8800Party "; break;
    				case 2: set .@color$, "^70CC11Guild "; break;
    				case 3: set .@color$, "^0000FFPlayer ";
    			}
    			mes "This room is reserved for ";
    			mes .@color$ + .whoinuse$[.@room] +"^000000 .";
    			if ( getgmlevel() < getvariableofnpc(.gmlvlkick,"MVP Summoner") ) {
    				mes "Please select another.";
    				close;
    			}
    			mes " ";
    			mes "Currently there are "+ getmapusers("06guild_0"+ .@room) +" players";
    			mes "in that room.";
    			set .@remaintime, getvariableofnpc(.remaintime[.@room],"MVP Summoner");
    			mes "It still has "+( .@remaintime /60 )+"mn "+( .@remaintime %60 )+"s left.";
    			set .@nobodycounter, getvariableofnpc(.nobodycounter[.@room],"MVP Summoner");
    			if ( .@nobodycounter )
    				mes "And have left empty for "+( .@nobodycounter /60 )+"mn "+( .@nobodycounter %60 )+"s.";
    			mes "Kick them ?";
    			next;
    			if ( select ( "No:Yes" ) == 1 ) close;
    			set getvariableofnpc(.remaintime[.@room],"MVP Summoner"), -1;
    			mes "[Private MVP Room]";
    			mes "Room#"+ .@room +" is empty now.";
    			close;
    		}
    	}
    	mes "[Private MVP Room]";
    	if ( getvariableofnpc(.rentitemid, "MVP Summoner") && getvariableofnpc(.rentitemamount, "MVP Summoner") ) {
    		if ( countitem(getvariableofnpc(.rentitemid, "MVP Summoner")) < getvariableofnpc(.rentitemamount, "MVP Summoner") ) {
    			mes "You don't have enough "+ getitemname( getvariableofnpc(.rentitemid, "MVP Summoner") ) +" to rent a room.";
    			close;
    		}
    	}
    	else if ( getvariableofnpc(.rentcost, "MVP Summoner") ) {
    		if ( zeny < getvariableofnpc(.rentcost, "MVP Summoner") ) {
    			mes "You don't have enough zeny to rent a room.";
    			close;
    		}
    	}
    	mes "You reserve this room for ...";
    	next;
    	set .@type, select("For my party members", "For my guild members", "For personal account use" );
    	if ( getcharid(.@type) == 0 ) {
    		mes "[Private MVP Room]";
    		mes "You do not own a "+( (.@type == 1)?"Party":"Guild" )+".";
    		close;
    	}
    	else if ( getvariableofnpc(.rentitemid, "MVP Summoner") && getvariableofnpc(.rentitemamount, "MVP Summoner") ) {
    		if ( countitem(getvariableofnpc(.rentitemid, "MVP Summoner")) < getvariableofnpc(.rentitemamount, "MVP Summoner") ) {
    			mes "You don't have enough "+ getitemname( getvariableofnpc(.rentitemid, "MVP Summoner") ) +" to rent a room.";
    			close;
    		}
    	}
    	else if ( getvariableofnpc(.remaintime[.@room],"MVP Summoner") ) {
    		mes "[Private MVP Room]";
    		mes "I'm sorry, somebody else has already register this room faster than you.";
    		close;
    	}
    	for ( set .@i, 1; .@i <= 8; set .@i, .@i +1 ) {
    		if ( getvariableofnpc(.remaintime[.@i],"MVP Summoner") && .@type == .type[.@i] && getcharid(.@type) == .inuseid[.@i] ) {
    			mes "[Private MVP Room]";
    			mes "You already rented Room#"+ .@i +". Use that room instead.";
    			close;
    		}
    	}
    	set .type[.@room], .@type;
    	set .inuseid[.@room], getcharid(.@type);
    	set .whoinuse$[.@room], strcharinfo( (.@type == 3)?0:.@type );
    	if ( getvariableofnpc(.rentitemid, "MVP Summoner") && getvariableofnpc(.rentitemamount, "MVP Summoner") ) {
    		if ( countitem(getvariableofnpc(.rentitemid, "MVP Summoner")) < getvariableofnpc(.rentitemamount, "MVP Summoner") ) end;
    		delitem getvariableofnpc(.rentitemid, "MVP Summoner"), getvariableofnpc(.rentitemamount, "MVP Summoner");
    	}
    	else if ( getvariableofnpc(.rentcost, "MVP Summoner") ) {
    		if ( zeny < getvariableofnpc(.rentcost, "MVP Summoner") ) end;
    		set zeny, zeny - getvariableofnpc(.rentcost, "MVP Summoner");
    	}
    	warp "06guild_0"+ .@room, 0,0;
    	killmonsterall "06guild_0"+ .@room;
    	donpcevent "MVP Summoner#"+ .@room +"::OnEnterMap";
    	end;
    }
    
    06guild_01,49,49,4	duplicate(MVP Summoner)	MVP Summoner#1	116
    06guild_02,49,49,4	duplicate(MVP Summoner)	MVP Summoner#2	116
    06guild_03,49,49,4	duplicate(MVP Summoner)	MVP Summoner#3	116
    06guild_04,49,49,4	duplicate(MVP Summoner)	MVP Summoner#4	116
    06guild_05,49,49,4	duplicate(MVP Summoner)	MVP Summoner#5	116
    06guild_06,49,49,4	duplicate(MVP Summoner)	MVP Summoner#6	116
    06guild_07,49,49,4	duplicate(MVP Summoner)	MVP Summoner#7	116
    06guild_08,49,49,4	duplicate(MVP Summoner)	MVP Summoner#8	116
    
    
    06guild_01	mapflag	nowarpto
    06guild_02	mapflag	nowarpto
    06guild_03	mapflag	nowarpto
    06guild_04	mapflag	nowarpto
    06guild_05	mapflag	nowarpto
    06guild_06	mapflag	nowarpto
    06guild_07	mapflag	nowarpto
    06guild_08	mapflag	nowarpto
    06guild_01	mapflag	nomemo
    06guild_02	mapflag	nomemo
    06guild_03	mapflag	nomemo
    06guild_04	mapflag	nomemo
    06guild_05	mapflag	nomemo
    06guild_06	mapflag	nomemo
    06guild_07	mapflag	nomemo
    06guild_08	mapflag	nomemo
    06guild_01	mapflag	noteleport
    06guild_02	mapflag	noteleport
    06guild_03	mapflag	noteleport
    06guild_04	mapflag	noteleport
    06guild_05	mapflag	noteleport
    06guild_06	mapflag	noteleport
    06guild_07	mapflag	noteleport
    06guild_08	mapflag	noteleport
    06guild_01	mapflag	nosave	SavePoint
    06guild_02	mapflag	nosave	SavePoint
    06guild_03	mapflag	nosave	SavePoint
    06guild_04	mapflag	nosave	SavePoint
    06guild_05	mapflag	nosave	SavePoint
    06guild_06	mapflag	nosave	SavePoint
    06guild_07	mapflag	nosave	SavePoint
    06guild_08	mapflag	nosave	SavePoint
    06guild_01	mapflag	nopenalty
    06guild_02	mapflag	nopenalty
    06guild_03	mapflag	nopenalty
    06guild_04	mapflag	nopenalty
    06guild_05	mapflag	nopenalty
    06guild_06	mapflag	nopenalty
    06guild_07	mapflag	nopenalty
    06guild_08	mapflag	nopenalty

     

  20. 4 hours ago, fzxree1010 said:

    Did you find the fix for this?

    Put this in \conf\import\battle_conf.txt. Then save the file and use @reloadbattleconf or restart the server.

    skill_trap_type: 1

     

    • Upvote 1
×
×
  • Create New...