Elsa Mist

February 3, 2014

Hi Guys,

need help...

it is hard to find Refine and De-refine NPC that have an Limit of refine is +10. that will refine one by one like +1, +2 an so on untill they reach the limit... same as De-refine function.

anyone have this kind of script?

thank you for your attention

January 29, 2014

Sryx,

there is no error in my console. also i have update my kro...

January 28, 2014

Hi there,

my client crash when ill try to change character in-game. is it src problem or what...? im really clueless about this...

thank for your help

January 28, 2014

ROWar,

i've done that. @reloadscript even restart the server. the npcs still there. T.T

need help..

thread BUMP!!!

January 27, 2014

im sorry if this topic is in wrong section.

well i've got a problem with the bg NPCs.

i want to disable the npc for KvM and Tierra NPCs. But after i did it, the npc still exist. @.@

Permission is set to 0777 already.

Then i delete all the BG script the bg folder in npc/battleground and disable all the script in script_eathena. The NPC's is still exist...

anyone have face this problem before, because i'd search on the net regarding this problem, i've found nothing....

anyone can help me with this...?

January 27, 2014

Annie..! thanks... now it working like a charm. the clone died in my gold room... thanks again... >.<

January 26, 2014

thank Annie...

my Gold room script

//	script	Farmville	-1

Welgaia,150,219,5	script	FarmVille	848,{
mes "Do you want to enter my gold room?";
menu "Ok",-,"No thanks.",L_No;
warp "poring_w01",0,0;
goto WepLoop;
end;

WepLoop:
    getmapxy(.@map$,.@x,.@y,0);
    while(.@map$ == "poring_w01"){
        getmapxy(.@map$,.@x,.@y,0);
            if(getequipweaponlv(EQI_HAND_L))
                unequip 3;
            if(getequipweaponlv(EQI_HAND_R))
                unequip 4;
            if(getequipid(10) == 18803)
                unequip 10;
        if(gethominfo(6) != 0){
            warp "SavePoint",0,0;
            dispbottom "You cannot have a Homunculus while entering Farm Ville.";
            end;
        }
        sleep2 10;
    }
    end;
close;

L_No:
close;

}

// Monsters
poring_w01,0,0,0,0	monster	Farm Holder	1062,20,0,0,0
poring_w01,0,0,0,0	monster	Farm Holder	1062,20,0,0,0
poring_w01,0,0,0,0	monster	Farm Holder	1062,20,0,0,0
poring_w01,0,0,0,0	monster	Farm Holder	1062,20,0,0,0
poring_w01,0,0,0,0	monster	Farm Holder	1062,20,0,0,0


-	script	killmob2	-1,{
OnNPCKillEvent:
if( killedrid == 1062 ){
    getitem 969,2;
    getitem 607,1;
    getitem 7227,1;
    getitem 7420,1;
    set #CASHPOINTS, #CASHPOINTS + 1;

if ( mobcount( "Supporter Player::Ons_sl"+ getcharid(0) )
killmonster strcharinfo(3), "Supporter Player::Ons_sl"+ getcharid(0); 

}
end;
}

poring_w01	mapflag	nomemo
poring_w01	mapflag	nobranch
poring_w01	mapflag	noexp
poring_w01	mapflag	nodrop
poring_w01	mapflag	nochat
poring_w01	mapflag	novending
poring_w01	mapflag	nowarpto
poring_w01	mapflag	noreturn
poring_w01	mapflag	nosave
poring_w01	mapflag	noskill
poring_w01	mapflag	nogo
poring_w01	mapflag	novending
poring_w01	mapflag	nochat
poring_w01	mapflag	pvp	off
poring_w01	mapflag	gvg	off
poring_w01	mapflag	restricted	2
poring_w01	mapflag	restricted	4

where should i place the script?

January 26, 2014

i need a help here with the script(link below)

right now, im using this script edited by Mr. Lantui

//=========================
//Script by Lantui
//=========================

izlude,120,222,4	script	Supporter Player	100,{

	mes "[Black Market Guy]";
	mes "Hey, want hire Assasin ? 1 Minute for 3000z, 5 Minute for 5000z, 1 Hour for 10000z, 3 Hour for 30000z.";
	menu "Yes, I want to Hire",-,"Nah",L_No;

	mes "[Black Market Guy]";
	mes "Right, What type you want... hey someone have a test right?";
	menu "Male",-,"Female",A_assasinfemale;

	mes "[Black Market Guy]";
	mes "Great, How long do you want them to stay with you ?";
	menu "1 Minute",-,"5 Minute",A_fiveminute,"1 Hour",A_onehour,"3 Hour",A_threehour;

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2506,100, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 3000;
	close;

L_No:

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";
	close;

A_fiveminute:
	
	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2506,500, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 5000;
	Close;

A_onehour:

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2506,1000, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 10000;
	close;


A_threehour:

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2506,3000, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 30000;
	close;


A_assasinfemale:

	mes "[Black Market Guy]";
	mes "Great, How long do you want them to stay with you ?";
	menu "1 Minute",-,"5 Minute",A_fiveminuteF,"1 Hour",A_onehourF,"3 Hour",A_threehourF;

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2505,100, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 3000;
	close;

A_fiveminuteF:
	
	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2505,500, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 5000;
	close;

A_onehourF:

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2505,1000, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 10000;
	close;


A_threehourF:

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2505,3000, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 30000;
	close;

Anocash:
	
	mes "[Black Market Guy]";
	mes "You dont have Zeny or Point to hire my priest";
	close;

}

how do i want to disable the clone in the farming area such a gold room etc... ?

because the clone automatically spam gold. easy farm eh...

thank you...

January 21, 2014

Here is my script. is there anything wrong with it?

because when im load the npc, nothing is happen.. someone...?

job_sage,128,109,4	script	Pet Shop	890,{
	mes "Molly, Pet Shop";
	mes "Hello!";
	mes "Would you like to look at the shop?";
	next;
	switch(select("Pet Food:Pet Armor:Monster Egg:Not Today")) {
		case 1: // Pet Food
			mes "I'll open the Pet Food Shop for you";
			close2;
			callshop "PetFoodShop",1;
			end; 
		case 2: // Pet Armor
			mes "I'll open the Pet Armor Shop for you";
			callshop "PetArmorShop",1;
			end;
		case 3: // Monster Egg
			mes "I'll open the Taming Items Shop for you";
			callshop "MonsterEgg",1;
			end;
		default: 
			mes "See you again!";
			close; 
	}
	
}
 
//shop configuration

-	shop	PetFoodShop	-1,
riceN
-	shop	PetArmorShop	-1,
riceN
-	shop	MonsterEgg	-1,9027:100,9010:100,9024:100,9025:100,9029:100,9040:100,9023:100,9036:100,9019:100,9002:100,9049:100,9033:100,9046:100,9053:100,9030:100,9022:100,9034:100,9056:100,9052:100,9021:100,9042:100,9043:100,9048:100
riceN

January 19, 2014

Sorry guys....

my mistake... @.@

its solve...

thank you for the reply guys...

cheers...

January 18, 2014

[sOLVED]

this is the script.i'd try several time to edit and terace what is going on with the script. but, @.@ i got dizzy.

can someone help me with this?

Here is the script...

//===== rAthena Script =======================================
//= Euphy's Quest Shop
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.6b
//===== Compatible With: =====================================
//= rAthena SVN r16862+
//===== 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.
//============================================================

// Shop NPCs -- supplying no argument displays entire menu.
//	callfunc "qshop"{,<shop ID>{,<shop ID>{,...}}};
//============================================================
prontera,164,203,6	script	Quest Shop#1	998,{ callfunc "qshop"; }


// Script Core
//============================================================
-	script	quest_shop	-1,{ 
function Add; function Chk; function Slot; function A_An;
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,0;	// Show Zeny cost, if any? (1: yes / 0: no)
	set .MaxStack,100;	// Max number of quest items purchased at one time.

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

	setarray .Points$[0],"#CASHPOINTS","Cash Points";

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

	setarray .Shops$[1],"Headgears","Weapons","Other";

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

	Add(1,5022,1,0,0,7086,1,969,10,999,40,1003,50,984,2);
	Add(1,5032,1,0,0,1059,250,2221,1,2227,1,7063,600);
	Add(1,5027,1,0,0,2252,1,1036,400,7001,50,4052,1);
	Add(1,5045,1,0,0,2252,1,1054,450,943,1200);

	Add(2,1224,1,0,0,7297,30,969,10,999,50,714,10);
	Add(2,1225,1,0,0,7292,30,969,10,999,50,714,10);

	Add(3,531,1,3,0,512,1,713,1);
	Add(3,532,1,3,0,513,1,713,1);
	Add(3,533,1,3,0,514,1,713,1);
	Add(3,534,1,3,0,515,1,713,1);

// -----------------------------------------------------------

	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 .@i, select(.menu$);
	else if (.@size == 1) set .@i, @i[0];
	else {
		for(set .@j,0; .@j<.@size; set .@j,.@j+1)
			set .@menu$, .@menu$+.Shops$[@i[.@j]]+":";
		set .@i, @i[select(.@menu$)-1];
	}
	deletearray @i[0],getarraysize(@i);
	if (.Shops$[.@i] == "") {
		message strcharinfo(0),"An error has occurred.";
		end;
	}
	dispbottom "Select one item at a time.";
	callshop "qshop"+.@i,1;
	npcshopattach "qshop"+.@i;
	end;

OnBuyItem:
	// .@q[] : RewardID, BoughtAmt, RewardAmt, BaseAmt, ReqZeny, ReqPts, { ReqItem, ReqAmt, ... }
	setarray .@q[0],@bought_nameid[0],((@bought_quantity[0] > .MaxStack)?.MaxStack:@bought_quantity[0]);
	copyarray .@q[3],getd(".q_"+.@q[0]+"[0]"),getarraysize(getd(".q_"+.@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 "[Quest Shop]";
	mes "Reward: ^0055FF"+((.@q[2] > 1)?.@q[2]+"x ":"")+Slot(.@q[0])+"^000000";
	mes "Requirements:";
	disable_items;
	if (.@q[4]) mes " > "+Chk(Zeny,.@q[4]*.@q[1])+(.@q[4]*.@q[1])+" Zeny^000000";
	if (.@q[5]) mes " > "+Chk(getd(.Points$[0]),.@q[5]*.@q[1])+(.@q[5]*.@q[1])+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"+(.@q[5]*.@q[1])+")^000000";
	if (.@q[6]) for(set .@i,6; .@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] & 1) || (@qe[1] & 256) || (@qe[1] & 512) || (@qe[1] & 1024) || (@qe[1] & 2048) || (@qe[1] & 4096) || (@qe[1] & 4) || (@qe[1] & 8192)))
		set .@preview,1;
	addtimer 1000, strnpcinfo(0)+"::OnEnd";
	while(1) {
		switch(select(" ~ Purchase ^0055FF"+getitemname(.@q[0])+"^000000:"+((.@preview && !@qe[7])?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) {
		case 1:
			if (@qe[0]) { 
				mes "[Quest Shop]";
				mes "You're missing one or more quest requirements.";
				close;
			}
			if (!checkweight(.@q[0],.@q[2])) {
				mes "[Quest Shop]";
				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]) setd .Points$[0], getd(.Points$[0])-(.@q[5]*.@q[1]);
			if (.@q[6]) for(set .@i,6; .@i<getarraysize(.@q); set .@i,.@i+2)
				delitem .@q[.@i],.@q[.@i+1]*.@q[1];
			getitem .@q[0],.@q[2];
			if (.Announce) announce strcharinfo(0)+" has created "+((.@q[2] > 1)?.@q[2]+"x "+getitemname(.@q[0]):A_An(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);
	for(set .@i,5; .@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(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 A_An {
	setarray .@A$[0],"a","e","i","o","u";
	set .@B$, "_"+getarg(0);
	for(set .@i,0; .@i<5; set .@i,.@i+1)
		if (compare(.@B$,"_"+.@A$[.@i])) return "an "+getarg(0);
	return "a "+getarg(0);
}
}

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

here is the ss for error and debug

December 22, 2013

you need to pay for download it. fake... you can get all that sprite if you asking Mr. Google rather than pay them 5$... and the more funniest point is the owner of the sprite is UNKNOWN, but they ask for donation... haha... LAME

Sign In

Elsa Mist

Posts

Joined

Last visited

Days Won

Content Type

Profiles

Forums

Downloads

Jobs Available

Server Database

Third-Party Services

Top Guides

Store

Crowdfunding

Posts posted by Elsa Mist

Refine and De-refine NPC

Client Crash

Client Crash

BG Script

BG Script

supporter clone :)

supporter clone :)

supporter clone :)

Pet Shop... Again need help... :(

Euphys Qshop

Euphys Qshop

Aura, custom Wings

Docs

Get Started

Github

Community

My Account