chromus28

February 16, 2014

allright np o:

boss btw what if im using toasty woe? how can i make it into the woe seteer u gave it to me? just replace it on agit_controller.txt?

February 15, 2014

Is there any script there that they will warp you to a certain map after you finish some quest from it? Like you need to farm 100 jellopies to get a key to that map? You cannot wapr in that map if you dont have that key

February 15, 2014

check there these lines

// The rate at which equipment is dropped.
item_rate_equip: 10000
item_rate_equip_boss: 10000 //here lol
item_drop_equip_min: 3000
item_drop_equip_max: 10000

This one but i never touch my item ratio before just the drop.txt and no more

February 15, 2014

D:! i'm not sure about this but, why don't you try to add it manually? this lines

setarray .Castles$[0],
		"prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05",
		"payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05",
		"gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05",
		"aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05",
		"arug_cas01","arug_cas02","arug_cas03","arug_cas04","arug_cas05",
		"schg_cas01","schg_cas02","schg_cas03","schg_cas04","schg_cas05","custom_woe_map"; //custom woe map here

should work D:!

I will try later th

February 15, 2014

What do u want to do?

February 15, 2014

i recommend you this one, it's amazing, it's the one i'm using, look fo the WoE controller

http://rathena.org/board/topic/64394-%E2%9C%B0-euphys-scripts-%E2%9C%B0/

by configuring it, you will be able to set it like you want, even 00:00 to 24:00

eathena version

http://eathena.ws/forum/topic/78-euphys-woe-controller/

Im using aleady toasty woe controller sir, what i mean is if there is a script that can add a custom map for 24/7 woe?

Hmmmm hard to explain i have a custom woe map here i want this to be my 24/7 woe map

February 15, 2014

Does anyone have a script for 24/7 woe?? Its like a custom woe that never ends for 1 castle only..

February 13, 2014

guys does any have some script like this,

Only have party members can enter in the map (Example: 1@mist) then they must pay like (zeny or coins). then once they get in the map, there is a automatic spawn mvp in that map then after they killed it, auto award to all member will be given..

February 13, 2014

you just remind me I should put some fake labels o.o

update again ...

koe_0.3.txt

[paste=53zbucwzu4t]

koe_0.3.patch

~~[paste=17eh6qh8492j]~~

koe_0.3.patch

the OnClock2000:

can change into OnSat2000:

then it will start every saturday 8pm

and end it with OnSat2030: put below L_end:

EDIT:

ok the forum unicode problem again
#include "../common/mmo.h"
#include "../config/core.h"
use attachment

is this for rathena only?

February 13, 2014

the source modification for hercules seems different than rathena

this one is for hercules users, you don't need this

http://upaste.me/637f10590efeb783e

source modification

http://rathena.org/board/topic/72571-battleground-system-without-waitingroom/

shuffle function
function	script	rand__	{
	.@range = getarg(0);
	.@count = getarg(2, 0);
	if ( !.@count || .@count > .@range )
		.@count = .@range;
	else if ( .@count > 128 )
		.@count = 128;
	while ( .@i < .@count ) {
		.@r = .@save = rand( .@i, .@range -1 ) ;
		if ( !getd( ".@tmp1_"+ .@i ) ) {
			.@r = ( getd(".@tmp1_"+ .@r ) )? getd( ".@tmp2_"+ .@r ) : .@r;
			setd ".@tmp2_"+ .@i, .@r;
			setd ".@tmp2_"+ .@save , .@i;
			setd ".@tmp1_"+ .@save , 1;
			set getelementofarray( getarg(1), .@i ), .@r;
			if ( .@save < .@count )
				set getelementofarray( getarg(1), .@save ), .@i;
		}
		.@i++;
	}
	return .@count;
}
and the script
http://rathena.org/board/pastebin/36ijhtnn876m/

@chromus28

only compatible with rathena or hercules

eathena or 3ceam is not supported

@kido

propose in hercules script request section,

I'll definitely make it because writing battleground script is my hobby now

ok T_T

February 13, 2014

read what i said ;/

06guild_01,50,48,5	script	Award Fairy D	811,{
getmapxy(@map$,@x,@y,0);
    if(@map$ == "06guild_01") {
	callfunc("package_func",21,32005,1,100,12210,2,30,12103,1,100,14232,5,100,20165,1,20,20171,1,20,20161,1,20);

like this? sorry noob here T_T

February 12, 2014

add the getmapxy codes before calling the package function.
you can also use strcharinfo(3)

help me where to add that script T_T plss

February 12, 2014

getmapxy(@map$,@x,@y,0);
    if(@map$ == "edit_map") {
callfunc("package_func",21,32005,1,100,12210,2,30,12103,1,100,14232,5,100,20165,1,20,20171,1,20,20161,1,20);
}

add the getmapxy codes before calling the package function.

this is for all right? coz this script is.. the party leader must be the one who will click ths npc to distribute the award to all..

and where to add this?

February 12, 2014

can anyone make this script that when the award fairy comes out.. only on who are only on that map can get the prize.. coz this script even when you are on prontera and the party is on guild_vs3 the player on prontera can still get prizes.. i want that only who are in the map can get the prize only

06guild_01,50,48,5	script	Award Fairy D	811,{
	if(getcharid(0)!=getpartyleader(getcharid(1),2)) end;
	callfunc("package_func",21,32005,1,100,12210,2,30,12103,1,100,14232,5,100,20165,1,20,20171,1,20,20161,1,20);
	getpartymember(getcharid(1),2);
	set .mem, $@partymembercount;
	copyarray .mem_aid[0], $@partymemberaid[0], 128;
	while(.@i<.mem) {
		set(.@i,.@i+1);
		if(isloggedin(.mem_aid[.@i-1])){
			attachrid(.mem_aid[.@i-1]);
			callfunc("package_func",15,12103,1,50,14232,5,100,12210,2,30,20165,1,10,20171,1,10,20161,1,10);
		}
	}
	set @id,getcharid(1);
	warpparty "prontera",165,24,@id;
	disablenpc "Award Fairy D";
	end;

OnInit:
	disablenpc "Award Fairy D";
}

/// callfunc("package_func",<length>,<itemid>,<amount>,<chance>{,<itemid>,<amount>,<chance>{,<itemid>,<amount>,<chance>{,...}}})

function	script	package_func	{
	set .@len, getarg(0); set(.@i,1);
	while(.@i<.@len) {
		set(.@i,.@i+3);
		if(rand(101)<=getarg(.@i-1)) {
			set(.@a,.@a+1);
			set(@package_item[.@a-1],getarg(.@i-3));
			set(@package_amount[.@a-1],getarg(.@i-2));
			getitem(@package_item[.@a-1],@package_amount[.@a-1]);
		}
	}
	return .@a;
}

06guild_01,50,52,6	script	Tier D	106,{
	if (getcharid(1) < 1) {
		mes "You're not in a party.";
	} else if (getpartyleader(getcharid(1),2) != getcharid(0)) {
		mes "You are not the party leader.";
	} else {
		getpartymember(getcharid(1));
		set .mem, $@partymembercount;
		if (.mem < 2) {
			mes "You need at least 2 party members.";
		} else {
			mes "[Tier D]";
			mes "Hi There,";
			mes "Welcome to Riot's Tier D";
			next;
			mes "[Tier D]";
			mes "This is a custom party quest of XXXXXX that you need party members to get through on this quest...";
			next;
			mes "[Tier D]";
			mes "This is not a simple MVP Room remember all MVP here is";
			mes "a Edited Stats by your Admin which 1 or 2 people";
			mes "cannot defeat the MVP's Hope you enjoy and good-luck...";
			next;
			mes "[Tier D]";
			mes "Would you like to summon the first Boss?";
			menu "Yes",-,"No",L_ayaw;
			next;

			mes "[Tier D]";
			mes "before you summon the boss please bring me the following";
			next;
			mes "[Tier D]";
			mes "1x Riot Nectar";
			menu "Yes",-,"No",L_ayaw;
			next;
			mes "[Tier D]";
			mes "I'll be waiting for you chosen one!";
			if(countitem(32004) < 1) goto koolang;
			if(countitem(32004) >= 1) goto k1;
			close;

			L_ayaw:
			mes "[Tier D]";
			mes "Just speak to me if you have the Requirements";
			close;


		koolang:
			next;
			mes "[Tier D]";
			mes "As I said one missing material and all the others go to waste";
			close;

		k1:
			next;
			mes "[Tier D]";
			mes "Very well done my friend you have finished the Tier D Quest";
			mes "Get ready";
			delitem 32004,1;
			next;
			monster "06guild_01",0,0,"Prime Baphomet",3263,1,"Tier D::OnDarkDead";
			mes "[Tier D]";
			mes "Now go and kill the Prime Baphomet!!";
			close;

		OnDarkDead:
			announce "Party "+getpartyname(getcharid(1))+" has Finish the Tier D",bc_all,0xFFFF00;
			enablenpc "Award Fairy D";
			end;

		L_Dead:
			announce "Tier D: ",3;
			set $OnDarkDead,0;
			end;
		}
	}
close;
}

February 12, 2014

Ma'am annie, i followed everything and it is working great!!

http://rathena.org/b...&attach_id=5375 <---(battleground random)

Please i have a couple of requests,

1. Could you please edit this by making the match score adjustable from 10 to 50?

Like if the score was set to 50.

If the Red team reaches 50 kills, the game is over and Red team wins!

Thanks!

2. Please have the losing team get items too. say, 10 red potions for the winning team and 2 red potions for the losing team!

Thank you very much!

this is for rathena only?

February 11, 2014

sorry im having some problems with my test server x_x

try this instead
{ if(Class==Job_Soul_Linker) { bonus bMatkRate,15; } },{ sc_start4 SL_SOULLINKER,60000,10,0,0,1; },{ sc_end SL_SOULLINKER; }

not working now lol

February 11, 2014

i should look like this

{ if(Class==Job_Soul_Linker) { bonus bMatkRate,15; } },{ callfunc "soullink"; },{ sc_end SL_SOULLINKER; }

not workling

February 11, 2014

onunequip
{}.{}.{ sc_end SL_SOULLINKER; }
try that D:

uhm where to add that?

February 11, 2014

huh maybe you have to adapt it to eathena, i guess the script is for rathena D:

awww ok T_T

February 11, 2014

Hello rathena,

I would like to know if its possible to duplicate this wonderful battleground script made by ma'am annie?

http://rathena.org/board/index.php?app=core&module=attach&section=attach&attach_id=5375

Would it be possible if ever duplicate, run at the same time? So that it wont overcrowd people that wants to get in?

If its possible, mind telling me how? Im thinking just to change the map and npc, i could be wrong though

Thanks!

oh lol was about to say the same

change map npc and inside script maps D:

for example this lines to another map
	.red = createbgid( "guild_vs3", 13,50, strnpcinfo(0)+"::Onredout", strnpcinfo(0)+"::Onredout" );
	.blue = createbgid( "guild_vs3", 86,50, strnpcinfo(0)+"::Onblueout", strnpcinfo(0)+"::Onblueout" );
	callfunc "rand__", .min2start *2, $@rand;
	for ( .@i = 0; .@i < $@warpwaitingpcnum; .@i++ )
		setbgid ( .@i %2 )? .red : .blue, $@warpwaitingpc[ $@rand[.@i] ];
	delwaitingroom strnpcinfo(0);
	bg_warp .red, "guild_vs3", 13,50;
	bg_warp .blue, "guild_vs3", 86,50;
	bg_updatescore "guild_vs3", 0,0;
	sleep .eventlasting * 1000;

got error on this script

parse_line: expect command, missing function name or calling undeclared function

192 : next;

193 : if ( input( .min2start, 1, 9 ) ) {

194 : mes "invalid range";

195 : close;

196 : }

* 197 : '.'start = 1;

198 : announce strcharinfo(0) +" has hosted a "+ .min2start +"vs"+ .min2start +" battleground", 0;

199 : waitingroom "BG PVP", .min2start *2 +1, strnpcinfo(0)+"::OnStart", .min2start *2;

200 : }

201 : else if ( .start == 1 ) {

202 : mes "abort registration?";

February 11, 2014

save in a text file this and then loaded as it was a npc

function    script    soullink    {
    switch ( basejob ) {
        case Job_Alchemist:    set .@spirit, 445; break;
        case Job_Monk:     set .@spirit, 447; break;
        case Job_Star_Gladiator:  set .@spirit, 448; break;
        case Job_Sage:     set .@spirit, 449; break;
        case Job_Crusader:    set .@spirit, 450; break;
        case Job_SuperNovice:   set .@spirit, 451; break;
        case Job_Knight:    set .@spirit, 452; break;
        case Job_Wizard:    set .@spirit, 453; break;
        case Job_Priest:    set .@spirit, 454; break;
        case Job_Bard: case Job_Dancer: set .@spirit, 455; break;
        case Job_Rogue:     set .@spirit, 456; break;
        case Job_Assassin:    set .@spirit, 457; break;
        case Job_Blacksmith:   set .@spirit, 458; break;
        case Job_Hunter:    set .@spirit, 460; break;
        case Job_Soul_Linker:   set .@spirit, 461; break;
        default:
            if ( upper == 1 && baselevel < 70 )
                set .@spirit, 494;
    }
    if ( .@spirit ) {
        sc_start4 sc_spirit, 360000, 5, .@spirit,0,0;
        skilleffect .@spirit, 5;
    }

    end;
}

remember tabs on line 1

then try this

{ if(Class==Job_Soul_Linker) { bonus bMatkRate,15; } },{ callfunc "soullink"; },{ }

remember @loaditemdb after saved

wow its working

but when im taking it off, the soul link is still working?

February 11, 2014

yuno,209,310,6	script	Tapestry	111,{
	mes "[Tapestry]";
	mes "Please select a private Riot 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("Tier 1 ["+ getmapusers("06guild_01") +"]",
		"Tier 2 ["+ getmapusers("06guild_02") +"]",
		"Tier 3 ["+ getmapusers("06guild_03") +"]",
		"Tier 4 ["+ getmapusers("06guild_04") +"]");
	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 "[Special Quest]";
			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 /10 )+"mn "+( .@remaintime %10 )+"s left.";
			set .@nobodycounter, getvariableofnpc(.nobodycounter[.@room],"MVP Summoner");
			if ( .@nobodycounter )
				mes "And have left empty for "+( .@nobodycounter /10 )+"mn "+( .@nobodycounter %10 )+"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 "[Tapestry]";
	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" );
	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,45,54,6	duplicate(MVP Summoner)	MVP Summoner#1	116
06guild_02,45,54,6	duplicate(MVP Summoner)	MVP Summoner#2	116
06guild_03,45,54,6	duplicate(MVP Summoner)	MVP Summoner#3	116
06guild_04,45,54,6	duplicate(MVP Summoner)	MVP Summoner#4	116

this script is working fine and have no error BUT, when im changing the "06guild_0" to other map like for sample novice its having errors T_T it need atleast 4 map in this script..what should i do??

February 11, 2014

huh since you are using eathena (assuming this for your description below your avatar) maybe you will need to make some changes to the numbers, nothing hard to do o:

im not really good on scripting T_T.. do you some of that script?

February 10, 2014

here

http://rathena.org/board/topic/87280-auto-cast-soul-link-when-equiped/

i request that too, also i had some bugs/problems but there are them solved as well

i hope it helps (:

is this working at all job??

February 10, 2014

A script a bit like this:

getmapxy(.@mapa$,.@x,.@y,0);

if (.@mapa$ == "pvp_n_1-5) //your map

{

// unequip <equipment slot>;

}

You would have to place this in a pvp script with a loop.

It might not be the best way, but it should work.

what if my script is like this??

//===== eAthena Script =======================================
//= PvP 
//===== By: ==================================================
//= Destinee~
//===== Description: =========================================
//= A basic PVP script.
//===== Additional Comments: =================================
//= Dont copyright this and claiming that you've made this. Use it only for your own server.
//============================================================
prontera,158,200,4	script	PVP Warper::pvpw	2000,{
	mes "[ ^0065DFPVP Warper^000000 ]";
	mes "Would you like to go to the PVP Arena ?...";

	if (select("Yes!","No thanks.") == 2)
		close;

	close2;
	warp "pvpmap",0,0;
announce strcharinfo(0)+" entered the PvP Room",0;
end;

OnInit:
    while(1) {
		if ( .@users != getmapusers("prontera") ) {
			delwaitingroom;
			waitingroom ""+ getmapusers("pvpmap")+" Players in PVP room", 0;
			set .@users, getmapusers("pvpmap");
		}
		sleep 500;
	}

}




// == Mapflags



pvpmap	mapflag	nowarp
pvpmap	mapflag	noteleport
pvpmap	mapflag	nomemo
pvpmap	mapflag	noreturn
pvpmap	mapflag	nodrop
pvpmap	mapflag	nosave
pvpmap	mapflag	nobranch

pvp_y_2-2	mapflag	nowarp
pvp_y_2-2	mapflag	noteleport
pvp_y_2-2	mapflag	nomemo
pvp_y_2-2	mapflag	nogo 
pvp_y_2-2	mapflag	nodrop
pvp_y_2-2	mapflag	nosave
pvp_y_2-2	mapflag	nobranch

Sign In

Profiles

Forums

Downloads

Jobs Available

Server Database

Third-Party Services

Top Guides

Store

Crowdfunding

Posts posted by chromus28