Configuration on existing npcs, please!

[lipezpe]

Hi!Can you help make some adjustments, please?

^{1) Healer System}

prontera,149,191,4	script	Curandeira#1::Curandeira	4_F_SHALOSH,{

	if((getgroupid() < 1)) goto normal_player;	
	if((getgroupid() >= 10)) goto vip_player_ouro;
	if((getgroupid() >= 5)) goto vip_player_prata;


normal_player:

    if(#Healer_CD > gettimetick(2)) {
    dispbottom "Você só pode curar uma vez a cada 5 minutos.";
    end;
    }

specialeffect2 EF_HEAL2;    
percentheal 100,100;
set #Healer_CD,gettimetick(2) + 300;
end;
	
vip_player_prata:
if(#Healer_CD > gettimetick(2)) {
    dispbottom "Você só pode curar uma vez a cada 5 minutos.";
    end;
    }

specialeffect2 EF_HEAL2;
percentheal 100,100; // CURA HP & SP 100%
sc_start SC_STRFOOD,30000,5;// FOR + 5 
sc_start SC_AGIFOOD,30000,5;// AGI + 5
sc_start SC_VITFOOD,30000,5;// VIT + 5
sc_start SC_INTFOOD,30000,5;// INT + 5
sc_start SC_DEXFOOD,30000,5;// DEX + 5
sc_start SC_LUKFOOD,30000,5;// SOR + 5


set #Healer_CD,gettimetick(2) + 300;
end;

OnInit:
    bindatcmd "buffs", strnpcinfo(3) +"::OnBUFF";
end;
vip_player_ouro:
if(#Healer_CD > gettimetick(2)) {
    dispbottom "Você só pode curar uma vez a cada 5 minutos.";
    end;
    }


OnBUFF:
if(#Healer_CD > gettimetick(2)) {
				dispbottom "Você só pode curar uma vez a cada 5 minutos.";
    end;
    }
set #Healer_CD,gettimetick(2) + 300;

specialeffect2 EF_HEAL2;
percentheal 100,100; // CURA HP & SP 100%
sc_start SC_STRFOOD,360000,7;// FOR + 7
sc_start SC_AGIFOOD,360000,7;// AGI + 7
sc_start SC_VITFOOD,360000,7;// VIT + 7
sc_start SC_INTFOOD,360000,7;// INT + 7
sc_start SC_DEXFOOD,360000,7;// DEX + 7
sc_start SC_LUKFOOD,360000,7;// SOR + 7
set #Healer_CD,gettimetick(2) + 300;
end;

}

morocc,159,97,5	duplicate(Curandeira)	Curandeira#hG2-2	4_F_MAYSEL
ayothaya,155,111,5	duplicate(Curandeira)	Curandeira#hG2-3	4_F_MAYSEL
geffen,121,61,5	duplicate(Curandeira)	Curandeira#hG2-4	4_F_MAYSEL
umbala,94,162,5	duplicate(Curandeira)	Curandeira#hG2-5	4_F_MAYSEL
payon,180,105,5	duplicate(Curandeira)	Curandeira#hG2-6	4_F_MAYSEL
alberta,185,144,5	duplicate(Curandeira)	Curandeira#hG2-7	4_F_MAYSEL
aldebaran,134,123,5	duplicate(Curandeira)	Curandeira#hG2-8	4_F_MAYSEL

I would like the system to show the remaining time to be able to use it again, example: 4 minutes and 20 seconds left for a new cure

 

2) Quest System

I would like the option to select the item to appear, so the player can see it, for example, in the How many mvps cards are there on the server system, can you adapt it please?

 

QuestSystem: 

//===== rAthena Script =======================================
//= Euphy's Quest Shop
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.7
//===== Compatible With: =====================================
//= rAthena Project
//===== Description: =========================================
//= A dynamic quest shop based on Lunar's, with easier config.
//= Includes support for multiple shops & cashpoints.
//= Item Preview script by ToastOfDoom.
//===== Additional Comments: =================================
//= 1.0 Initial script.
//= 1.2 Added category support.
//= 1.3 More options and fixes.
//= 1.4 Added debug settings.
//= 1.5 Replaced categories with shop IDs.
//= 1.6 Added support for purchasing stackables.
//= 1.6a Added support for previewing costumes and robes.
//= 1.6b Added 'disable_items' command.
//= 1.6c Replaced function 'A_An' with "F_InsertArticle".
//= 1.7 Added Success rates - by Mabuhay
//============================================================

// Shop NPCs -- supplying no argument displays entire menu.
//	callfunc "qshop"{,<shop ID>{,<shop ID>{,...}}};
//  ADD YOUR NPC HERE
//============================================================
jupe_ele,36,50,5	script	Quest's GhostRO#1	998,{ callfunc "qshop"; }
// prontera,165,203,6	script	Quest Shop#2	998,{ callfunc "qshop",1,2; }	// call the shop 1 and 2 defined below
// etc.. Add your Shop NPCs 'Quest Shop#XXX' here
//============================================================


// Script Core - DO NOT DUPLICATE THIS NPC !!!!!!!!!!!!!
//============================================================
-	script	quest_shop	-1,{
function Add; function Chk; function Slot;
OnInit:
	freeloop(1);

// -----------------------------------------------------------
//  Basic shop settings.
// -----------------------------------------------------------

	set .Announce,1;	// Announce quest completion? (1: yes / 0: no)
	set .ShowSlot,1;	// Show item slots? (2: all equipment / 1: if slots > 0 / 0: never)
	set .ShowID,0;  	// Show item IDs? (1: yes / 0: no)
	set .ShowZeny,1;	// Show Zeny cost, if any? (1: yes / 0: no)
	set .MaxStack,100;	// Max number of quest items purchased at one time.
	set .SuccessRate,0;	// Enable Success Rates? ( 1: yes / 0: no)

// -----------------------------------------------------------
//  Points variable -- optional quest requirement.
//	setarray .Points$[0],"<variable name>","<display name>";
// -----------------------------------------------------------

	setarray .Points$[0],
		"#QuestPoints", "QuestPoints";

//=====================================================================================
// ------------------- ADD YOUR SHOPS NAME AND ITEMS SHOPS STARTING HERE --------------
//=====================================================================================

// -----------------------------------------------------------
//  Shop IDs -- to add shops, copy dummy data at bottom of file.
//	setarray .Shops$[1],"<Shop 1>","<Shop 2>"{,...};
// -----------------------------------------------------------

	setarray .Shops$[1],
		"Topo/Upper",	// Shop Named 1
		"Meio/Middler",		// Shop Named 2
		"Baixo/Lower",		// Shop Named 3
		"Armas";		// Shop Named 3

// -----------------------------------------------------------
//  Quest items -- do NOT use a reward item more than once!
//	Add(<shop ID>,<reward ID>,<reward amount>,
//	    <Zeny cost>,<point cost>,<success rate>
//	    <required item ID>,<required item amount>{,...});
// -----------------------------------------------------------

// Shop 1
	Add(1,18214,1,0,10,100,702,100,719,100,1059,500,980,30,18264,1);
	Add(1,18232,1,0,10,100,749,250,675,10,1001,350,7066,500,978,20,982,20,18264,1);
	Add(1,18241,1,0,10,100,7005,1000,919,400,929,400,702,400,675,5,18264,1);
	Add(1,18315,1,0,10,100,929,400,7047,400,7444,100,7799,70,980,50,981,50,7798,50,1059,300,5808,1,4246,2,4292,2,18251,1,18264,1,674,3);
	Add(1,5674,1,0,10,100,929,400,7047,400,7444,100,7799,70,980,50,981,50,7798,50,1059,300,5808,1,4246,2,4292,2,18251,1,18264,1,674,3);

// Shop 2
	Add(2,18202,1,0,10,100,969,220,1001,320,976,50,7444,50,1000,5,18264,1);
	Add(2,18295,1,0,10,100,1059,600,7036,8,7115,150,949,800,978,10,982,10,1001,200,4350,2,674,2);
	Add(2,18292,1,0,10,100,920,600,919,800,923,150,12040,120,982,15,981,15,983,20,978,15,674,2);
	Add(2,18313,1,0,10,100,969,220,1001,320,976,50,7444,50,1000,5,18264,1);
	Add(2,18322,1,0,10,100,969,220,1001,320,976,50,7444,50,1000,5,18264,1);
// Shop 3
	Add(3,5078,1,0,10,100,969,220,1001,320,976,50,7444,50,1000,5,18264,1);
// -----------------------------------------------------------

//=====================================================================================
// ------------------- YOUR SHOPS AND ITEMS SHOPS HAVE BEEN ADDED ---------------------
//=====================================================================================

	freeloop(0);
	set .menu$,"";
	for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) {
		set .menu$, .menu$+.Shops$[.@i]+":";
		npcshopdelitem "qshop"+.@i,909;
	}
	end;

OnMenu:
	set .@size, getarraysize(@i);
	if (!.@size) set @shop_index, select(.menu$);
	else if (.@size == 1) set @shop_index, @i[0];
	else {
		for(set .@j,0; .@j<.@size; set .@j,.@j+1)
			set .@menu$, .@menu$+.Shops$[@i[.@j]]+":";
		set @shop_index, @i[select(.@menu$)-1];
	}
	deletearray @i[0],getarraysize(@i);
	if (.Shops$[@shop_index] == "") {
		message strcharinfo(0),"An error has occurred.";
		end;
	}
	dispbottom "Selecione um item de cada vez";
	callshop "qshop"+@shop_index,1;
	npcshopattach "qshop"+@shop_index;
	end;

OnBuyItem:
	// .@q[] : RewardID, BoughtAmt, RewardAmt, BaseAmt, ReqZeny, ReqPts, SuccessRate, { ReqItem, ReqAmt, ... }
	setarray .@q[0],@bought_nameid[0],((@bought_quantity[0] > .MaxStack)?.MaxStack:@bought_quantity[0]);
	copyarray .@q[3],getd(".q_"+@shop_index+"_"+.@q[0]+"[0]"),getarraysize(getd(".q_"+@shop_index+"_"+.@q[0]));
	set .@q[2],.@q[1]*.@q[3];
	if (!.@q[2] || .@q[2] > 30000) {
		message strcharinfo(0),"You can't purchase that many "+getitemname(.@q[0])+".";
		end;
	}
	mes "[Senhor das Quest's]";
	mes "Recompensa: ^0055FF"+((.@q[2] > 1)?.@q[2]+"x ":"")+Slot(.@q[0])+"^000000";
	if (.SuccessRate) mes "Success Rate: ^ff0000"+ .@q[6] +"^000000%";
	mes "Requerimentos:";
	disable_items;
	if (.@q[4]) mes " > "+Chk(Zeny,.@q[4]*.@q[1])+(.@q[4]*.@q[1])+" Zeny^000000";
	if (.@q[5])
	{
		query_sql "SELECT `QuestPoint` FROM `login` WHERE `account_id` = "+getcharid(3)+"",.@qpoint;
		mes " > "+Chk(.@qpoint,.@q[5]*.@q[1])+(.@q[5]*.@q[1])+" "+.Points$[1]+" ("+.@qpoint+"/"+(.@q[5]*.@q[1])+")^000000";
	}
	if (.@q[7]) for(set .@i,7; .@i<getarraysize(.@q); set .@i,.@i+2)
		mes " > "+Chk(countitem(.@q[.@i]),.@q[.@i+1]*.@q[1])+((.ShowID)?"{"+.@q[.@i]+"} ":"")+Slot(.@q[.@i])+" ("+countitem(.@q[.@i])+"/"+(.@q[.@i+1]*.@q[1])+")^000000";
	next;
	setarray @qe[1], getiteminfo(.@q[0],5), getiteminfo(.@q[0],11);
	if (@qe[2] > 0 && ((@qe[1] & EQP_HEAD_LOW) || (@qe[1] & EQP_HEAD_TOP) || (@qe[1] & EQP_HEAD_MID) || (@qe[1] & EQP_COSTUME_HEAD_TOP) || (@qe[1] & EQP_COSTUME_HEAD_MID) || (@qe[1] & EQP_COSTUME_HEAD_LOW) || (@qe[1] & EQP_GARMENT) || (@qe[1] & EQP_COSTUME_GARMENT)))
		set .@preview,1;
	addtimer 1000, strnpcinfo(0)+"::OnEnd";
	while(1) {
		switch(select(" ~ Completar ^0055FF"+getitemname(.@q[0])+"^000000:"+((.@preview && !@qe[7])?" ~ Experimentar":"")+": ~ ^777777Cancelar^000000")) {
		case 1:
			if (@qe[0]) {
				mes "[Senhor das Quest's]";
				mes "Você não possui todos os requerimentos necessários.";
				close;
			}
			if (!checkweight(.@q[0],.@q[2])) {
				mes "[Senhor das Quest's]";
				mes "^FF0000You need "+(((.@q[2]*getiteminfo(.@q[0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000";
				close;
			}
			if (.@q[4]) set Zeny, Zeny-(.@q[4]*.@q[1]);
			if (.@q[5]) query_sql "UPDATE `login` SET `QuestPoint` = `QuestPoint`-"+(.@q[5]*.@q[1])+" WHERE `account_id` = "+getcharid(3)+"";
			if (.@q[7]) for(set .@i,7; .@i<getarraysize(.@q); set .@i,.@i+2)
				delitem .@q[.@i],.@q[.@i+1]*.@q[1];
			// If success rate setting is on, this happens if it fails
			if ( .SuccessRate && .@q[6] <= rand(100) ) { // on fail
				mes "[Senhor das Quest's]";
				mes "Opps! Sorry, item crafting has failed!";
				close;
			}
			getitem .@q[0],.@q[2];
			if (.Announce) announce strcharinfo(0)+" Finalizou a Quest "+((.@q[2] > 1)?.@q[2]+"x "+getitemname(.@q[0]):callfunc("F_InsertArticle",getitemname(.@q[0])))+"!",0;
			specialeffect2 EF_FLOWERLEAF;
			close;
		case 2:
			setarray @qe[3], getlook(LOOK_HEAD_BOTTOM), getlook(LOOK_HEAD_TOP), getlook(LOOK_HEAD_MID), getlook(LOOK_ROBE), 1;
			if ((@qe[1] & 1) || (@qe[1] & 4096)) changelook LOOK_HEAD_BOTTOM, @qe[2];
			else if ((@qe[1] & 256) || (@qe[1] & 1024)) changelook LOOK_HEAD_TOP, @qe[2];
			else if ((@qe[1] & 512) || (@qe[1] & 2048)) changelook LOOK_HEAD_MID, @qe[2];
			else if ((@qe[1] & 4) || (@qe[1] & 8192)) changelook LOOK_ROBE, @qe[2];
			break;
		case 3:
			close;
		}
	}

OnEnd:
	if (@qe[7]) {
		changelook LOOK_HEAD_BOTTOM, @qe[3];
		changelook LOOK_HEAD_TOP, @qe[4];
		changelook LOOK_HEAD_MID, @qe[5];
		changelook LOOK_ROBE, @qe[6];
	}
	deletearray @qe[0],8;
	end;

function Add {
	if (getitemname(getarg(1)) == "null") {
		debugmes "Quest reward #"+getarg(1)+" invalid (skipped).";
		return;
	}
	setarray .@j[0],getarg(2),getarg(3),getarg(4),getarg(5);
	for(set .@i,6; .@i<getargcount(); set .@i,.@i+2) {
		if (getitemname(getarg(.@i)) == "null") {
			debugmes "Quest requirement #"+getarg(.@i)+" invalid (skipped).";
			return;
		} else
			setarray .@j[.@i-2],getarg(.@i),getarg(.@i+1);
	}
	copyarray getd(".q_"+getarg(0)+"_"+getarg(1)+"[0]"),.@j[0],getarraysize(.@j);
	npcshopadditem "qshop"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0);
	return;
}

function Chk {
	if (getarg(0) < getarg(1)) {
		set @qe[0],1;
		return "^FF0000";
	} else
		return "^00FF00";
}

function Slot {
	set .@s$,getitemname(getarg(0));
	switch(.ShowSlot) {
		case 1: if (!getitemslots(getarg(0))) return .@s$;
		case 2: if (getiteminfo(getarg(0),2) == 4 || getiteminfo(getarg(0),2) == 5) return .@s$+" ["+getitemslots(getarg(0))+"]";
		default: return .@s$;
	}
}
}

function	script	qshop	{
	deletearray @i[0],getarraysize(@i);
	for(set .@i,0; .@i<getargcount(); set .@i,.@i+1)
		set @i[.@i],getarg(.@i);
	doevent "quest_shop::OnMenu";
	end;
}


// Dummy shop data -- copy as needed.
//============================================================
-	shop	qshop1	-1,909:-1
-	shop	qshop2	-1,909:-1
-	shop	qshop3	-1,909:-1
-	shop	qshop4	-1,909:-1
-	shop	qshop5	-1,909:-1

 

CardList exemple:

//Created by Racaae (https://rathena.org/board/topic/129771-mvp-and-mini-boss-card-list/)
sec_in02,145,175,5	script	Card List	4_BOARD3,{
	mes "I can see here the list of mini-boss";
	mes "and MvP cards available in the server.";
	if (.ShowIdInGame)
		mes "Next to each card name is it's Item ID.";
	next;
	switch(select("MvP cards.", "Mini-Boss cards.", "Cancel")) {
		case 1:
			.@m$ = "MvPCards";
			break;
		case 2:
			.@m$ = "MiniBossCards";
			break;
		case 3:
			close;
	}
	for ( .@i = 0; .@i < getarraysize(getd("."+.@m$)); ++.@i ) {
		if (.@i && .@i%6 == 0) {
			.@page++;
			mes "          Page " + .@page;
			next;
		}
		if (.ShowIdInGame)
			mes "(" + getd("."+.@m$+"["+.@i+"]")+") <ITEM>"+replacestr(getitemname(getd("."+.@m$+"["+.@i+"]")), " Card", "")+"<INFO>"+getd("."+.@m$+"["+.@i+"]")+"</INFO></ITEM>";
		else
			mes "<ITEM>"+getitemname(getd("."+.@m$+"["+.@i+"]"))+"<INFO>"+getd("."+.@m$+"["+.@i+"]")+"</INFO></ITEM>";
	}
	mes "          Page " + (.@page+1);
	close;

OnInit:
//=== CONF ===================
	.ShowIdInGame = true; //true or false

	//MvP cards ID
	setarray .MvPCards,4144,4147,4142,4132,4128,4143,4137,4123,4146,4131,
		4148,4121,4135,4318,4324,4168,4305,4276,4134,4330,4263,4236,4302,
		4342,4372,4357,4359,4361,4363,4367,4365,4352,4374,4376,4399,4386,
		4403,4407,4408,4419,4425,4430,4441,4145,27162,4456,4451,4457;

	if (checkre(0)) { //Renewal MvP cards ID
		setarray .MvPCards[getarraysize(.MvPCards)], 27126,4507,4520,4509,
			4525,4526,4527,4528,4529,4560,4561,4562,4563,4564,4565,4566,
			4578,4576,4574,4580,4590,4591,4592,4556,4601,4602,4603,4604,
			4647,4648,4649,4650,4651,4652,27164,27106,4625,27182,4610,
			27020,4636,31026,27180,27150,4662,27151,27081,27152,27113,
			27327,27326,27321,27104,300099,300100,27287,27119,27294,27298,
			300239,300107,300145,300151,300214,300228,300248,300262,27346,
			27329,27362,27363,27305,27318,300078,300079,300080,4697,27319,
			4671,4672,4673,4674,4675,4676,4677,4678,4679,4680,4681,4682,
			4683,31023,300281;
	}
	//Mini-Boss cards ID
	setarray .MiniBossCards,4047,4054,4163,4169,4174,4179,4183,4197,
		4198,4203,4207,4211,4237,4238,4241,4250,4254,4266,4284,4285,
		4290,4291,4300,4306,4320,4336,4354,4384,4395,4396,4397;

	end;
}