Help - Search - Members - Calendar
Full Version: Healer & Buffer Npc
eAthena Support Board > Modifications > Scripting & Databases > Script Releases
Bubbaknoxz
Healer & Buffer NPC all in one. I saw this in one of my old servers(Fancy Ro) and could never find the script so I decided to write one up for ppl who might want it on there server. I did use another script as a guideline to give me the idea on how to write this one out.Thanks.

CODE
//===== eAthena Script =======================================
//= Holo Holo Npc
//===== By: ==================================================
//= Bubbaknoxz
==============================================================
prontera.gat,150,184,5 script Holo Holo#h1-1::Healer 793,{

mes "[Holo Holo]";
mes "I have amazing healing powers!!";
mes "You look like a person who needs them";
mes "I can heal you for Free, or heal & buff you for 1500z";
mes "Which do you want?";
next;
menu "Heal",L_H,"Heal & Buff",L_B,"No thanks",CANCEL;

L_H:
percentheal 100,100;
mes "[Holo Holo]";
mes "Wonderful, You are now healed!";
mes "Have Fun!!";
close;



L_B:
if (Zeny < 1500) goto NeedZenys;
Set Zeny,zeny-1500;
percentheal 100,100;
sc_start SC_BLESSING,300000,10;
sc_start SC_INCREASEAGI,300000,10;
sc_start SC_MAGNIFICAT,300000,5;
sc_start SC_ANGELUS,300000,10;
mes "[Holo Holo]";
mes "Wonderful, You are now healed!.";
mes "Have fun!!";
close;

NeedZenys:
mes "[Holo Holo]";
mes " Sorry but you dont have enough zeny.";
close;

CANCEL:
mes "[Holo Holo]";
mes "Allright, come back if you need a heal.";
close;
}

morocc.gat,159,96,5 duplicate(Healer) Holo Holo#h1-2 793
ayothaya.gat,155,111,5 duplicate(Healer) Holo Holo#h1-3 793
geffen.gat,121,61,5 duplicate(Healer) Holo Holo#h1-4 793
umbala.gat,94,162,5 duplicate(Healer) Holo Holo#h1-5 793
payon.gat,180,105,5 duplicate(Healer) Holo Holo#h1-6 793
alberta.gat,185,144,5 duplicate(Healer) Holo Holo#h1-7 793
aldebaran.gat,134,123,5 duplicate(Healer) Holo Holo#h1-8 793
izlude.gat,125,118,5 duplicate(Healer) Holo Holo#h1-9 793
xmas.gat,149,136,5 duplicate(Healer) Holo Holo#h1-10 793
comodo.gat,188,162,5 duplicate(Healer) Holo Holo#h1-11 793
amatsu.gat,200,80,5 duplicate(Healer) Holo Holo#h1-12 793
gonryun.gat,164,130,5 duplicate(Healer) Holo Holo#h1-13 793
yuno.gat,152,186,5 duplicate(Healer) Holo Holo#h1-14 793
niflheim.gat,188,180,5 duplicate(Healer) Holo Holo#h1-15 793
louyang.gat,225,103,5 duplicate(Healer) Holo Holo#h1-16 793
Spre
pretty gewd.


This may be *better* for ya however. Up to you.

CODE

//===== eAthena Script =======================================
//= Holo Holo Npc
//===== By: ==================================================
//= Bubbaknoxz
==============================================================
prontera.gat,150,184,5 script Holo Holo#h1-1::Healer 793,{
//===============================
//Configuration
//
//Change these values. Not the
//vales in the actual script.
//===============================
set $@zeny,1500;

mes "[Holo Holo]";
mes "I have amazing healing powers!!";
mes "You look like a person who needs them";
mes "I can heal you for Free, or heal & buff you for 1500z";
mes "Which do you want?";
next;
menu "Heal",L_H,"Heal & Buff",L_B,"No thanks",CANCEL;

L_H:
percentheal 100,100;
mes "[Holo Holo]";
mes "Wonderful, You are now healed!";
mes "Have Fun!!";
close;



L_B:
if (Zeny < $@zeny) goto NeedZenys;
Set Zeny,zeny-$@zeny;
sc_start SC_BLESSING,300000,10;
sc_start SC_INCREASEAGI,300000,10;
sc_start SC_MAGNIFICAT,300000,5;
sc_start SC_ANGELUS,300000,10;
mes "[Holo Holo]";
mes "Wonderful, You are now buffed!.";
mes "Have fun!!";
close;

NeedZenys:
mes "[Holo Holo]";
mes " Sorry but you dont have enough zeny.";
close;

CANCEL:
mes "[Holo Holo]";
mes "Allright, come back if you need a buff.";
close;
}

morocc.gat,159,96,5 duplicate(Healer) Holo Holo#h1-2 793
ayothaya.gat,155,111,5 duplicate(Healer) Holo Holo#h1-3 793
geffen.gat,121,61,5 duplicate(Healer) Holo Holo#h1-4 793
umbala.gat,94,162,5 duplicate(Healer) Holo Holo#h1-5 793
payon.gat,180,105,5 duplicate(Healer) Holo Holo#h1-6 793
alberta.gat,185,144,5 duplicate(Healer) Holo Holo#h1-7 793
aldebaran.gat,134,123,5 duplicate(Healer) Holo Holo#h1-8 793
izlude.gat,125,118,5 duplicate(Healer) Holo Holo#h1-9 793
xmas.gat,149,136,5 duplicate(Healer) Holo Holo#h1-10 793
comodo.gat,188,162,5 duplicate(Healer) Holo Holo#h1-11 793
amatsu.gat,200,80,5 duplicate(Healer) Holo Holo#h1-12 793
gonryun.gat,164,130,5 duplicate(Healer) Holo Holo#h1-13 793
yuno.gat,152,186,5 duplicate(Healer) Holo Holo#h1-14 793
niflheim.gat,188,180,5 duplicate(Healer) Holo Holo#h1-15 793
louyang.gat,225,103,5 duplicate(Healer) Holo Holo#h1-16 793
~AnnieRuru~
the original script by Bubbaknoxz is ok,

however Spre's script has bug, on this line
CODE
mes "I can heal you for Free, or heal & buff you for 1500z";

fix it pls .....
secreal
i need healer npc with talk
hmmn
you say, heal
npc will heal you
you say bless
npc will bless you
Decist
QUOTE (secreal @ Jun 6 2007, 06:20 AM) *
i need healer npc with talk
hmmn
you say, heal
npc will heal you
you say bless
npc will bless you


well.. its not an npc maybe its a bot... or a (Macro Bot)
~AnnieRuru~
QUOTE (Decist @ Oct 9 2007, 06:14 PM) *
well.. its not an npc maybe its a bot... or a (Macro Bot)

nope
npc can do that too
http://dzerox.com/RO/ScriptCommands/index.php?c=defpattern
DeathRose
missing effects... (of the buff)

---Sorry 4 my english---
mohje
good work laugh.gif
Emistry
QUOTE (secreal @ Jun 5 2007, 10:20 PM) *
i need healer npc with talk
hmmn
you say, heal
npc will heal you
you say bless
npc will bless you



Here is 1 of the sample that made by other eathena member long time ago..
just modify it to your like ^^

http://www.eathena.ws/board/index.php?act=...ost&id=9037
sylhysiryhlem
Nice Script
I Like This Script ani_heh.gif
z3r0tech
hmmm works well thanks...
Troller
does'nt work to my offline ro :(
Emistry
QUOTE
does'nt work to my offline ro :(

can you spend some time on specify why it didnt work ??
did you do any custom modification at the script ??
any possible of Error that might show up in your map server ???

instead of saying Script Didnt Work....it would be better and faster to get your problem solved if you could list the out Error or other related ~
xiaowu2003
QUOTE (Emistry @ Aug 2 2011, 06:54 AM) *
QUOTE
does'nt work to my offline ro :(

can you spend some time on specify why it didnt work ??
did you do any custom modification at the script ??
any possible of Error that might show up in your map server ???

instead of saying Script Didnt Work....it would be better and faster to get your problem solved if you could list the out Error or other related ~

erm, it din work on mine server too(the script nvr show out @@)

erm this data can use?
CODE
prontera,158,184,3 script Kafra Employee::kaf_prontera 112,{
mes "[Kafra Employee]";
mes "Welcome to the ";
mes "So how can I be";
mes "of service today?";
callfunc "F_Kafra",5,0,0,40,800;

next;
menu "Save Respawn",save,"Open Storage",storage,"Reset Stats/Skills",reset,"Change GM",changegm,"Heal and Buff",heal,"PvP",pvp,"Cancle",end;

start:
mes "[Kafra]";
mes "Hello There~";
mes "What service do you require?";
next;
menu "Save Respawn",save,"Open Storage",storage,"Reset Stats/Skills",reset,"Change GM",changegm,"Heal",heal,"PvP",pvp;

save:
mes "[Kafra]";
mes "Do you wish to save your respawn location to where you are standing?";
mes "This means that when you die, you will be 'respawned' where you are now!~";
next;
menu "Yes Please",ysave,"Back",start;

ysave:
mes "[Kafra]";
atcommand "@save ";
mes "Saveing your location to where you are standing";
close;

storage:
mes "[Kafra]";
mes "Do you wish to open your storage?";
next;
menu "Yes",ystore,"Back",start;

ystore:
mes "I will now open your storage for you!";
close2;
openstorage;
end;

changegm:
mes "[Kafra]";
mes "Do to change the guild master?";
next;
menu "Change Guild Master",L_Make,"Cancel",L_NO;
L_Make: set @GID,getcharid(2);
if(@GID==0) goto L_NoGuild;
if(strcharinfo(0)==getguildmaster(@GID)) goto L_GuildMaster;
mes "[Kafra]";
mes "Sorry, you are not the guild leader!";
close;

L_GuildMaster:
mes "[Kafra]";
mes "Please enter the future Guild Master";
next;
input @guildplayer$;
next;
guildchangegm @GID,"@guildplayer$";
mes "[Guild Maker]";
mes "Thank For Using My Service";
emotion e_thx;
close;

L_NO:
mes "[Kafra]";
mes "If You interested Come Again";
close;


L_NoGuild:
mes "Sorry you are not in a guild";
close;

heal:
mes "[Kafra]";
mes "Would you like a Heal and/or Buff?";
mes "Heal Costs 0z and Buff and Heal Costs 1000z";
next;
menu Heal,yheal,Buff,buff,Back,start;

buff:
if (Zeny >= 1000) {
percentheal 100,100;
sc_start SC_INCREASEAGI,.duration,10; // Increase agi lvl 10
sc_start SC_BLESSING,.duration,10; // Blessing lvl 10
set Zeny, Zeny - .nbuff;
mes "[Kafra]";
mes "Here You Go!!";
close;
}
else {
mes "[Kafra]";
mes "You don't have enough zeny!!!";
close;
}

heal:
if (Zeny >= 0) {
percentheal 100,100;
mes "Here you are~";
close;
}
else {
mes "[Kafra]";
mes "You don't have enough zeny!!!";
close;
}

reset:
mes "[Kafra]"
mes "Reset Stats: 55,000z";
mes "Reset Skills: 55,000z";
mes "Reset Both: 100,000z";
mes "Please select the service you want,";
mes "But be aware that you'll need to store your items first!";
next;
menu "Reset Skills",skills,"Reset Stats",stats,"Reset Both",both,"Feel Reset(Star Gladiator)",feel,"Back",start;

skills:
mes "[Kafra]";
if (Zeny < 50000) {
mes "Sorry, you don't have enough Zeny.";
close;
};
mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";
set Zeny,zeny-55000;
ResetSkill;
close;

stats:
mes "[Kafra]";
if (Zeny < 50000) {
mes "Sorry, you don't have enough Zeny.";
close;
}
mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";
set Zeny,zeny-55000;
ResetStatus;
close;

both:
mes "[Kafra]";
if (Zeny < 90000) {
mes "Sorry, you don't have enough Zeny.";
close;
}
mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";
set Zeny,zeny-100000;
ResetSkill;
ResetStatus;
close;

feel:
atcommand "@feelreset";
close;

pvp:
mes "[Kafra]";
mes "Would you like to go to PVP?";
next;
menu "Pvp Arena 1 [" + getmapusers("guild_vs2.gat") + " Pvpers]",pvp1,"Pvp Arena 2 [" + getmapusers("guild_vs3.gat") + " Pvpers]",pvp2,"Back",start;

pvp1:
mes "[Kafra]";
mes "Are you sure you want to enter Pvp Arena 1?";
menu "Yes",-,"No",start;
warp "guild_vs2.gat",0,0;
close;

pvp2:
mes "[Kafra]";
mes "Are you sure you want to enter Pvp Arena 2?";
menu "Yes",-,"No",start;
warp "guild_vs3.gat",0,0;
close;
}

reset:
mes "[Kafra Employee]"
mes "Reset Stats: 55,000z";
mes "Reset Skills: 55,000z";
mes "Reset Both: 100,000z";
mes "Please select the service you want,";
mes "But be aware that you'll need to store your items first!";
next;
menu "Reset Skills",skills,"Reset Stats",stats,"Reset Both",both,"Feel Reset(Star Gladiator)",feel,"Back",start;

skills:
mes "[Kafra Employee]";
if (Zeny < 50000) {
mes "Sorry, you don't have enough Zeny.";
close;
};
mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";
set Zeny,zeny-55000;
ResetSkill;
close;

stats:
mes "[Kafra Employee]";
if (Zeny < 50000) {
mes "Sorry, you don't have enough Zeny.";
close;
}
mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";
set Zeny,zeny-55000;
ResetStatus;
close;

both:
mes "[Kafra Employee]";
if (Zeny < 90000) {
mes "Sorry, you don't have enough Zeny.";
close;
}
mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";
set Zeny,zeny-100000;
ResetSkill;
ResetStatus;
close;

feel:
atcommand "@feelreset";
close;

pvp:
mes "[Kafra Employee]";
mes "Would you like to go to PVP?";
next;
menu "Pvp Arena 1 [" + getmapusers("guild_vs2.gat") + " Pvpers]",pvp1,"Pvp Arena 2 [" + getmapusers("guild_vs3.gat") + " Pvpers]",pvp2,"Back",start;

pvp1:
mes "[Kafra Employee]";
mes "Are you sure you want to enter Pvp Arena 1?";
menu "Yes",-,"No",start;
warp "guild_vs2.gat",0,0;
close;

pvp2:
mes "[Kafra Employee]";
mes "Are you sure you want to enter Pvp Arena 2?";
menu "Yes",-,"No",start;
warp "guild_vs3.gat",0,0;
close;
}
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.
Invision Power Board © 2001-2014 Invision Power Services, Inc.