Hades03

July 26, 2015

Me too i want this script

July 26, 2015

rAmond updated trunk?

July 19, 2015

npc can spawn satan morroc in alb2trea.

it's like a invasion but only satan morroc

prize every kill of satan is 10TCG

but if you kill the last satan morroc you will get 15 TCG

i see this event in DaredevilRO

pls add announce who kill how many tcg and how many satan morroc staying in the map

this event only can active the gm thank you

sorry for my bad english im from mexico jajajajaja

June 27, 2013

I need a NPC that sell skill points and remove skill points payment system zeny Okay Thank you dude.

June 10, 2013

Is rathena is good for trans server?

June 9, 2013

prontera,155,150,0 script Vending 123,{

OnInit:

setarray .alphabets$,"V","E","N","D","I","N","G";

set .alphabets_size,getarraysize( .alphabets );

while( 1 ){

set .@title$,.@title$ +" "+ .alphabets$[.@i];

set .@i,.@i + 1;

delwaitingroom;

waitingroom ""+.@title$,0;

sleep 1000;

if( .@i % 8 == 0 ) set .@title$,"";

}

end;

prontera,155,150,0 script Test 123,{

end; <<-- for what?

June 9, 2013

Who have this prontera pls share

http://m.youtube.com/watch?v=nkJ1F_WbQ7c

.

June 8, 2013

Ty. Now the dicer hehehehe.

.

capuche help hahahahaha

June 8, 2013

Eamod script?

June 8, 2013

cmd_in02,181,98,2 script Dicer 57,{
//These variables allow you to set the amount of zeny people can bet
set @betzeny1,500; //500 zeny
set @betzeny2,1000; //1000 zeny
set @betzeny3,2000; //2000 zeny
set @betzeny4,10000; //10000 zeny
//Variable for the number guess zeny bet
set @betnum, 1000; //1000 Zeny

mes "[Dicer]";
mes "Welcome to the Revolution Dice Game.You wanna check your luck with dices?Remember I am the dice expert and rarely someone was able to beat me.";
next;
mes "[Dicer]";
mes "What would you like to do?";
next;
menu "Play",L_play,"Info",L_info,"Go away",L_go;
L_go:
mes "[Dicer]";
mes "Please come again when you are ready.";
close;
L_info:
mes "[Dicer]";
mes "Please choose one of the following options for more informations:";
next;
menu "Main Rules",L_main,"Bets and Wins",L_bet,"Extra Games",L_extra,"Go away",L_go;
L_main:
mes "[Dicer]";
mes "^0080FFRoll A Dice^000000 is a very simple game.The game allows you and the NPC to throw 3 dices.Whoever gets a higher total number wins.";
next;
goto L_info;
L_bet:
mes "[Dicer]";
mes "You have 4 zeny amounts to choose for your bet.If you choose a high bet your win will also be higher,it is that simple.Also various extra games can increase your win.";
next;
mes "[Dicer]";
mes "Example:";
mes "^0080FFBet^000000		 ^0080FFWin^000000";
mes "500	   1000";
mes "1000	 2000";
mes "2000	 4000";
mes "10000   20000";
next;
goto L_info;
L_extra:
mes "[Dicer]";
mes "You can also try increasing your win by playing extra games like guessing your total number at the end of the game.It will cost you an extra amount of zeny but if you guess the number your win will be tripled instead of doubled.";
next;
goto L_info;
  
L_play:
mes "[Dicer]";
mes "Ok,please choose the amount of zeny you want to bet:";
next;
menu ""+@betzeny1+" Zeny",L_zeny1,""+@betzeny2+" Zeny",L_zeny2,""+@betzeny3+" Zeny",L_zeny3,""+@betzeny4+" Zeny",L_zeny4,"Too rich for my blood...",L_go;
L_zeny1:
  if(Zeny < @betzeny1) goto L_nzeny;
  set @bet, @betzeny1;
  goto L_gamea;
L_zeny2:
  if(Zeny < @betzeny2) goto L_nzeny;
  set @bet, @betzeny2;
  goto L_gamea;
L_zeny3:
  if(Zeny < @betzeny3) goto L_nzeny;
  set @bet, @betzeny3;
  goto L_gamea;
L_zeny4:
  if(Zeny < @betzeny4) goto L_nzeny;
  set @bet, @betzeny4;
  goto L_gamea;
L_nzeny:
mes "[Dicer]";
emotion 20;
mes "Sorry but it seems you don't have enough zeny!";
	  close;
L_gamea:
mes "[Dicer]";
mes "Would you like to try to increase your win by trying to guess the number you will get?";
mes "It will cost you another ^0080FF"+@betnum+"^000000 zeny.";
next;
menu "Yes",L_gamec,"No",L_gameb;
L_gamec:
if(Zeny < @betnum + @bet) goto L_nzeny;
mes "[Dicer]";
mes "Please input the number you think you will get (3-18).";
input @numg;
if(@numg<3) message strcharinfo(0),"Number is too low, input again.";
if(@numg>18) message strcharinfo(0),"Number is too high, input again.";
if(@numg<3||@numg>18) goto L_gamec;
set Zeny, Zeny - @betnum;
next;
goto L_gameb;
L_gameb:
set @dea1, rand(1,6);
set @dea2, rand(1,6);
set @dea3, rand(1,6);
set @pla1, rand(1,6);
set @pla2, rand(1,6);
set @pla3, rand(1,6);
set @deatot, @dea1+@dea2+@dea3;
set @platot, @pla1+@pla2+@pla3;
mes "[Dicer]";
mes "I will be the first one to roll the dices,and after that you will throw them.I am feeling lucky today, so you better go away before I take every zeny you have.";
next;
mes "[^0080FFDicer 1st Turn^000000]";
mes "Throwing first dice!";
mes ".....roll.....roll....roll....";
emotion 58;
mes " ";
mes "First throw: ^0080FF"+@dea1+" ^000000";
next;
mes "[^0080FFDicer 2nd Turn^000000]";
mes "Throwing second dice!";
emotion 58;
mes ".....roll.....roll....roll....";
mes " ";
mes "Second throw: ^0080FF"+@dea2+" ^000000";
next;
mes "[^0080FFDicer 3rd Turn^000000]";
mes "Throwing third dice!";
emotion 58;
mes ".....roll.....roll....roll....";
mes " ";
mes "Third throw: ^0080FF"+@dea3+" ^000000";
next;
mes "[Dicer]";
mes "Now it's your turn to throw the dices.I bet you can't get higher numbers then me.";
next;
mes "[^0080FFPlayer 1st Turn^000000]";
mes "Throwing first dice!";
mes ".....roll.....roll....roll....";
emotion 58;
mes " ";
mes "First throw: ^0080FF"+@pla1+" ^000000";
next;
mes "[^0080FFPlayer 2nd Turn^000000]";
mes "Throwing second dice!";
emotion 58;
mes ".....roll.....roll....roll....";
mes " ";
mes "Second throw: ^0080FF"+@pla2+" ^000000";
next;
mes "[^0080FFPlayer 3rd Turn^000000]";
mes "Throwing third dice!";
emotion 58;
mes ".....roll.....roll....roll....";
mes " ";
mes "Third throw: ^0080FF"+@pla3+" ^000000";
next;
	  mes "[Dicer]";
mes "Let's look at our total numbers:";
mes " ";
mes "Dicer Total: ^0080FF"+@deatot+" ^000000.";
mes "Player Total: ^0080FF"+@platot+" ^000000.";
next;
  if (@platot < @deatot) goto L_lose;
if (@platot == @deatot) goto L_again;
if (@platot > @deatot && @platot == @numg) goto L_win2;
if (@platot > @deatot) goto L_win1;
L_lose:
mes "[Dicer]";
set Zeny, Zeny - @bet;
emotion 39;
mes "I got a higher number!!!";
mes "See I told you nobody can beat me!";
mes " ";
mes "You lost ^0080FF"+@bet+"^000000 Zeny.";
next;
goto L_againa;

L_again:
mes "[Dicer]";
emotion 54;
mes "It seems it's a draw.Let's play again.";
next;
goto L_play;
L_win1:
mes "[Dicer]";
set Zeny, Zeny + @bet*2;
set @wona, @bet*2;
emotion 36;
mes "I can't belive I lost. Here take your money.";
mes " ";
mes "You won ^0080FF"+@wona+"^000000 Zeny.";
next;
goto L_againa;
L_win2:
mes "[Dicer]";
set Zeny, Zeny + @bet*3;
set @wonb, @bet*3;
emotion 36;
mes "You even guessed the total number you got.I can't belive I lost. Here is your money.";
mes " ";
mes "You won ^0080FF"+@wonb+"^000000 Zeny.";
next;
goto L_againa;
L_againa:
mes "[Dicer]";
mes "Would you like to play again?";
next;
menu "Yes",L_play,"No",L_go;

}

Can you pls delete the Variable for the number quess zeny bet and change the bet for poring coin ( maximum bet: 10 )

if you bet 10 you will get 20 poring coins.

i want to do if you bet 10 the 10 poring coins will appear and if you win the coins will beack with the prize in dicer i mean 10 + 10 = 20 if you lose your bet will not back hahahahaha ty

gonryun,140,136,5	script	Sex Changer	719,{
mes "Would you like to change your Sex (Female or Male)?";
mes "The Operation would cost 10 Gold Coin.";
next;

if ( select("Yes:No") == 2 )
   close;

if ( countitem(671) < 10 ) {
   mes "You need more Coins.";
   close;
}

delitem 671,10;

mes "Great...";
close2;

changesex;
end;
}

my sex changer is no bug coz i see some sex changer have many lines like sniper bard bla bla its ok my sex change or can some edit it if you see some wrong line and add if will have bug ty ty

June 3, 2013

Hahahaha

April 26, 2013

Capuchin the mapflagnosave prontera I need to change that to my event map or what?

April 22, 2013

yeah i try the script and no party can you edit it? and max player is 7 vs 7

April 5, 2013

ohyeah

April 3, 2013

capuche not wroking but can you edit this script coz if they recall they can get again the prize can you pls?

-	script	KoE	-1,{
OnInit:
	disablenpc "The King#KoE";
	disablenpc "Exit#KoE";
	end;

OnWhisperGlobal:
	if ( getgmlevel() < 99 ) end;
	else if ( compare ( @whispervar0$, "on" ) ) goto L_start;
	else if ( compare ( @whispervar0$, "off" ) ) goto L_end;
	else end;
		
L_end:
	announce "The King of Emperium Hill is over!", 0;
	set .koe_start, 0;
	enablenpc "Exit#KoE";
	disablenpc "The King#KoE";
	killmonsterall "guild_vs1";
	end;

L_start:
	announce "The King of Emperium Hill has begun!", 0;
	set .koe_start, 1;
	enablenpc "The King#KoE";
	disablenpc "Exit#KoE";
	set $koegid, 0;
	donpcevent "::OnRevKoE";
	maprespawnguildid "guild_vs1", $koegid, 6;
	monster "guild_vs1",49,49,"Emperium",1288,1,"KoE::OnEmpDead";
	end;

OnEmpDead:
	set $koegid, getcharid(2);
	announce "The current King of Emperium Hill is the [ " + strcharinfo(2) + " ] guild.", 0;
	donpcevent "::OnRevKoE";
	maprespawnguildid "guild_vs1", $koegid, 6;
	sleep 500;
	if ( .koe_start )
		monster "guild_vs1",49,49,"Emperium",1288,1,"KoE::OnEmpDead";
	end;
}

// KoE Entrance
gonryun,156,139,5	script	The King#KoE	459,{
    mes "[ The King ]";
	if ( getcharid(2) == 0 ) {
		mes "You must have a guild to participate in the ^FF0000King of Emperium Hill Tournament^000000.";
		close;
	}
    mes "Hello.";
    mes "Would you like to participate in the ^FF0000King of Emperium Hill Tournament^000000?";
	if ( select ( "Yes", "No" ) == 2 ) close;
    switch( rand(1,4) ){
        case 1:	warp "guild_vs1", 50, 88; end;
        case 2:	warp "guild_vs1", 88, 50; end;
        case 3:	warp "guild_vs1", 50, 11; end;
        case 4:	warp "guild_vs1", 11, 50; end;
	}
}

// KoE Exit
guild_vs1,49,56,5	script	Exit#KoE	51,{
	mes "[Exit]";
	mes "See ya.";
	if ( getcharid(2) == $koegid )
		getitem 607, 50; // configure prize here
	next;
	warp "Save",0,0;
	close;
}

// Flags
guild_vs1,49,38,4	script	King of Emperium Hill#1::koe_flag	722,{
	set .@gid, $koegid;
	if ( .@gid == 0 ) end;
	mes "[ King of Emperium Hill ]";
	mes "The Current King of Emperium Hill is the [ "+ getguildname(.@gid) +" ] guild.";
	close;
OnRevKoE:
	flagemblem $koegid;
	end;
}
guild_vs1,61,49,6	duplicate(koe_flag)	King of Emperium Hill#2	722
guild_vs1,38,49,2	duplicate(koe_flag)	King of Emperium Hill#3	722
guild_vs1,49,61,0	duplicate(koe_flag)	King of Emperium Hill#4	722

guild_vs1	mapflag	gvg
guild_vs1	mapflag	nobranch
guild_vs1	mapflag	nomemo
guild_vs1	mapflag	nopenalty
guild_vs1	mapflag	noreturn
guild_vs1	mapflag	nosave	SavePoint
guild_vs1	mapflag	noteleport
guild_vs1	mapflag	gvg_noparty
guild_vs1	mapflag	nowarp
guild_vs1	mapflag	nowarpto

April 3, 2013

how can i prohibited use ecall in one map?

coz im having problem with Anni KoE SCript abusing the prize coz the gm guild ecalling in map

March 29, 2013

yup it's much better with out farm limit the room have time limit why we need farm limit pls dlete the farm limit hahaha

March 29, 2013

gonryun,162,122,4 script Write Review 860,{

cutin "kafra_08",2;

mes "[ ^ff0000Rathena RO^000000 ]";

mes "Please write a review on ^0055AAwww.rathena.net^000000";

mes "Please check this link -> ^0055AAhttp://rathena.org/board/^000000";

mes "To write a review for ^ff0000RathenaRO^000000 , Just click ";

mes "Super High Rate -> ^ff0000Rathena Ragnarok Online^000000 -> CLick Write a Review.";

mes "Ty!!";

mes " -^9F79EERathena^000000";

close2;

cutin "", 255;

close;

}

March 25, 2013

no error at compiler

but look at that box i cant exit i need to char change to exit that box and skorm can you add the auto give prize like 1 2 3 random bloody branch

March 25, 2013

yeah no error but when the event is finish i can leave bcoz this box can exit

and i want random prize 1 2 3 bloody branch and auto give if he/she win the event

March 25, 2013

trojanWorm ty

npc no error but he drop nothing

March 25, 2013

still error

March 25, 2013

error dude

March 25, 2013

Emistry ty but look

i want like i set prize and he will drop it you know what i said hahaha

gonryun.gat,162,116,5	script	Jam	81,{
	if (getgmlevel() >= 80) {
		announce "Jam: Pick up all you can.",bc_map;
		set @j,0;
		while (@j <= 140) {
			set @i,0;
			while (@i <= 14) {
				makeitem 607,1,"gonryun.gat",155+@i,117-@j;
				set @i,@i+3;
			}
			set @j,@j+2;
		}
	}
}

and he will drop in this map and coor ty ty ty

March 25, 2013

error dude look

Skorm

Sign In

Profiles

Forums

Downloads

Jobs Available

Server Database

Third-Party Services

Top Guides

Store

Crowdfunding

Posts posted by Hades03