【 Emistry © 2015 】E-Scripts Collection

[Kido]

Im using Stage Game and it was great! Thanks for your Script Emistry!

would you mind to provide it to me?  mine got bug i don't know why ): 

[Haze]

how to add a preview option when buying using the multi curency shop?

Bump for this?

[Angelisk]

@emistry

 

Ballons like this one

Edited December 14, 2013 by Angelisk

[Emistry]

@emistry

 

Ballons like this one

[Angelisk]

Oh, thanks, makes your post a lot more cuter =3

[Han25]

@emistry

 

hi sir... thanks for the useful scripts..

 

but can i ask on the refine function...

im havin a hard time with this because of the menu selection it doesnt show the accessory even i put 1023.. 1023 is for all equipment that the user is currently wearing. right?

 

but it doesnt show..

 

im use this refine func in a usable item.

 

 

thanks in advance 

Edited December 18, 2013 by Elektrochemiestry

[Emistry]

@electrochemiestry

make sure your min. max refine are valid for youe equipment.

make sure the bypass refine check is valid or not.

and etc...

 

everything is just based on the setting you used and the item info of your equipments.

[Han25]

yes my min and max is valid since i edit my max refine to 15 also in src

 

+ it works fine on the rest armor/shoes/shield/etc .. just the accessory it ddnt show.

 

(thanks for the reply..)

 

 

i tried to make the bitmask only for acce the " 128 " but doesnt show also.

 

item_db2

,11,50,,10,,,,,0xFFFFFFFF,7,2,,,,,,{callfunc( "RefineFunc",1023,0,15,1,1,0,-1,95,75,25108 );},{},{}

 

 

@edit sry for taking ur time emistry.. solved it now just by now.. i notice the arg[5] is set to 1 that's why its cheking if refinable or not...

 

 

 ,11,50,,10,,,,,0xFFFFFFFF,7,2,,,,,,{callfunc( "RefineFunc",1023,0,15,1,0,0,-1,95,75,25108 );},{},{}

 

 

 this solve my issue

 

 

thanks for this wonderful script

Edited December 18, 2013 by Elektrochemiestry

[CursorX]

@emistry

 

ur multi currency support the donation credit from flux?

[Emistry]

@emistry

 

ur multi currency support the donation credit from flux?

the credit from flux cp work differently ... 

 

by default, the NPC that used to redeem item from fluxcp itemshop is included in the flux cp files.

[Shen]

thanks it's awesome ^^

[RedRumPie]

Hi Emistry and other rAthena people .. Below is a code box containing my refine ticket on my Item_Db2.txt
And I want it to refine Headgears,Armor,Shoes,Mantue,Shield any of those to +10 by 100% ( No Fail .. Is this the correct format ? :

 

30035,+7 Refine Ticket,+7 Refine Ticket,3,2,,10,,,,,,,,,,,,,{ callfunc( "RefineFunc",831,7,7,7,0,100,0,0,100,30035 );  },{},{}

Edited February 7, 2014 by iMrFreeziNg

[blueicerains]

guild_vs5,50,50,5	script	Stage Game	437,{

// Monster ID / Amount Initiating ( Check db/Mob_db.txt || db/Mob_db2.txt )
setarray .Stage[0],
			1001,10,			// Stage 1 + Amount
			1002,12,			// Stage 2 + Amount
			1004,14,			// Stage 3 + Amount
			1005,16,			// Stage 4 + Amount
			1007,18,			// etc......
			1008,20,			// 
			1058,30;			// Final Stage ( Max. ~64 Rounds )

// Reward ID / Amount Initiating ( Check db/Item_db.txt || db/Item_db2.txt )						
setarray .Reward[0],
			607,10,				// Reward 1 + Amount
			608,5,				// Reward 2 + Amount
			501,3,				// etc......
			512,1;				// Last Reward 1 ( Max. ~64 Items )
		
// MapFlags Initiating ( Check db/Cont.txt )		
setarray .MapFlags[0],0,1,2,3,4,5,11,13,14,15,22,29,30,31,32,33,34,35,38,41,43,44,47,49;

for( set .@mf,0; .@mf < getarraysize( .MapFlags ); set .@mf,.@mf + 1 ){
	setmapflag strcharinfo(3),.MapFlags[.@mf];
	}
	
if( getmapmobs( strcharinfo(3) ) > 0 || .Level > 0){
dispbottom "Just Kill All the Monster to Win the Game...";
end;
}
set .Level,0;
announce "[Level "+( (.Level/2)+1 )+"] : [ "+.Stage[.Level+1]+" x "+getmonsterinfo( .Stage[.Level],0)+" ]",bc_all,0x37FDFC;
monster strcharinfo(3),0,0,"[Slave] "+getmonsterinfo( .Stage[.Level],0)+"",.Stage[.Level],.Stage[.Level+1],strnpcinfo(0)+"::OnMobKill";
delwaitingroom;
waitingroom "Left ["+mobcount( strcharinfo(3),strnpcinfo(0)+"::OnMobKill" )+"] Monster",0;
end;

OnMobKill:
delwaitingroom;
if( mobcount( strcharinfo(3),strnpcinfo(0)+"::OnMobKill" ) == 0 && .Level < ( getarraysize( .Stage ) - 5 ) ){
	set .Level,.Level + 2;
	waitingroom "["+((( getarraysize( .Stage )/2 ) - .Level/2) - 1)+"] Rounds to Go.",0;
	for( set .@t,5; .@t > 0; set .@t,.@t - 1 ){
		announce "[Level "+( (.Level/2)+1 )+"] in "+.@t+" Seconds",bc_map,0x4EEE94,0,35;
		sleep2 1000;
		}
announce "[Level "+( (.Level/2)+1 )+"] : [ "+.Stage[.Level+1]+" x "+getmonsterinfo( .Stage[.Level],0)+" ]",bc_all,0x37FDFC;
monster strcharinfo(3),0,0,"[Slave] "+getmonsterinfo( .Stage[.Level],0)+"",.Stage[.Level],.Stage[.Level+1],strnpcinfo(0)+"::OnMobKill";
}else if( mobcount( strcharinfo(3),strnpcinfo(0)+"::OnMobKill" ) == 0 && .Level >= ( getarraysize( .Stage ) - 5 ) ){
	set .Level,.Level + 2;
	announce "BOSS Stage",bc_map,0xFF0000,0,90;
	specialeffect 563;
	sleep2 2000;
	for( set .@t,5; .@t > 0; set .@t,.@t - 1 ){
		specialeffect 563;
		announce "BOSS STAGE in "+.@t+" Seconds",bc_map,0xFF0000,0,60;
		sleep2 1000;
		}
announce "[Level "+( (.Level/2)+1 )+"] : [ "+.Stage[.Level+1]+" x "+getmonsterinfo( .Stage[.Level],0)+" ]",bc_all,0x37FDFC;
monster strcharinfo(3),0,0,"[BOSS] "+getmonsterinfo( .Stage[.Level],0)+"",.Stage[.Level],.Stage[.Level+1],strnpcinfo(0)+"::OnBossKill";
}
delwaitingroom;
waitingroom "Left ["+mobcount( strcharinfo(3),strnpcinfo(0)+"::On"+( ( .Level-2 ) > ( getarraysize( .Stage ) - 5 ) ? "BossKill":"MobKill") )+"] Monster",0;
end;

OnBossKill:
delwaitingroom;
if( mobcount( strcharinfo(3),strnpcinfo(0)+"::OnBossKill" ) > 0 ){
waitingroom "Left ["+mobcount( strcharinfo(3),strnpcinfo(0)+"::OnBossKill")+"] Monster",0;
end;
}else{
delwaitingroom;
waitingroom "REWARD TIME",0;
specialeffect 709;
announce "Congratulation to Team [ "+getpartyname( getcharid(1) )+" ] who had just finished the Stage Game. ",0;
getpartymember getcharid(1),1;
getpartymember getcharid(1),2;
set @Location$,strcharinfo(3);
for ( set .@i, 0; .@i < $@partymembercount; set .@i, .@i +1 ){
	if ( isloggedin($@partymemberaid[.@i]) ){
		attachrid $@partymemberaid[.@i];
			if( strcharinfo(3) == @Location$ ){
			unittalk getcharid(3),"Yeehaaa !! We Beat ALL the Monster  !!!";
			unitemote getcharid(3),e_heh;
				specialeffect2 709;
					for( set .@a,0; .@a < getarraysize( .Reward ); set .@a,.@a + 2 ){
						getitem .Reward[.@a],.Reward[.@a+1], $@partymemberaid[.@i];
						}
				dispbottom "Gained those items as Reward for Finishing Stage Game";
			}
		}
	}
sleep2 5000;
mapwarp strcharinfo(3),"prontera",155,180;
set .Level,0;
delwaitingroom;
}
OnInit:
waitingroom "    Click Me",0;
end;

}


prontera,146,188,5	script	Stage Game#Register	794,{

while(1){
mes "Hello, i am ^FF0000Stage Game Manager^000000. How can i help you ?";
mes "^0000FFRegistration Status^000000 : "+( getmapusers(.Map$) > 0 ?"^FF0000OFF":"^00FF00ON")+"^000000";
mes "(^FF0000Only Leader can Register^000000)";
mes "";
mes "It is In ^FF0000BETA Test^000000.";
next;
switch(select("^00FF00Stage Game Information^000000",
			( getmapusers(.Map$) > 0 || getcharid(0) != getpartyleader( getcharid(1),2 ) )?"":"^0000FFRegister for Stage Game^000000",
			( getmapusers(.Map$) < 1 || getgmlevel() < 60 )?"":"^FF0000Reset Stage Game^000000")) {
			
	Case 1:
		mes "^FF0000Stage Game^000000 is a small game that have alot of monster to be kill from round to round.";
		mes "With every increase or round you manage to reach, the monster could be stronger than before.";
		next;
		mes "You could win up some ^0000FFUnique^000000 prize upon you finished the whole ^FF0000Stage Game^000000";
		next;
		mes "In order to ^0000FFRegister^000000 for ^FF0000Stage Game^000000, all your party member must meet the ^0000FFRequirements^000000";
		next;
		mes "[  ^00FF00Requirements^000000  ]";
		mes "^0000FFBase Level^000000 : "+.Level+" Level";
		mes "^0000FFZeny^000000 : "+.Zeny+" Zeny ";
		mes "^0000FFParty Members^000000 : "+.PartyMember+" Members";
		mes "(^FF0000Level / Zeny only Applied on Leader ^000000 )";
		next;
		break;
	Case 2:
	//	if( getgmlevel() < 80 ){
	//	mes "Stage Game is under Debugging Development. Simple Game but Hard ";
	//	close;
	//	}
		getpartymember getcharid(1),1;
		getpartymember getcharid(1),2;
		set @Count,0;
		for ( set .@i, 0; .@i < $@partymembercount; set .@i, .@i +1 ){
			if ( isloggedin($@partymemberaid[.@i]) ){
				set @Count,@Count+1;
				}
			}
		if( @Count < .PartyMember || BaseLevel < .Level || Zeny < .Zeny ){
		mes "[  ^00FF00Requirements^000000  ]";
		mes "^0000FFBase Level^000000 : "+.Level+" Level";
		mes "^0000FFZeny^000000 : "+.Zeny+" Zeny ";
		mes "^0000FFParty Members^000000 : "+.PartyMember+" Members";
		mes "(^FF0000Level / Zeny only Applied on Leader ^000000 )";
		close;
		}else{
		set Zeny, Zeny - .Zeny;
		mes "Your party will now be warped into the Destination to start the Game.";
		dispbottom "Click on the NPC inside to start the game.";
		delwaitingroom "Stage Game";
		close2;
		announce "Team [ "+getpartyname( getcharid(1) )+"] has joined STAGE GAME.",0;
		warpparty .Map$,0,0,getcharid(1);
		killmonster .Map$,"All";
		set getvariableofnpc(.Level,"Stage Game"),0;
		end;
		}
	Case 3:
		mes "The Game has been Reset.";
		killmonster .Map$,"All";
		mapwarp .Map$,"prontera",155,180;
		announce "A GM has RESET the Stage Game, Sorry for the Incovenience.",0;
		set getvariableofnpc(.Level,"Stage Game"),0;
		delwaitingroom "Stage Game";
		next;
		break;
	}
}
close;

OnInit:
OnWhisperGlobal:
set .Level,254;
set .Zeny,2000000000;
set .PartyMember,1;
set .Map$,"guild_vs5";

while( 1 ){
delwaitingroom;
waitingroom ( getmapusers(.Map$) > 0 ? "  NOT":"   " )+" Available",0;
sleep 1000;
}
end;
}

Stage Game [ Version 4 ]

Changelog :

 

• [ Version 1 ] - A Mini Game that required players to eliminate all Monster in each Stage to win.
• [ Version 2 ] - Enable simple Customization on script.
• [ Version 3 ] - Fixed Stuck Problem in upcoming Round and added several Mapflags..
• [ Version 4 ] - Fixed rA compatibility problem by @goddameit. thx...^^

 

I guess this one isnt working? o-o i tested the script and warped to where the event should started and told me to click on the npc stage game and isn't working.

Edited March 17, 2014 by blueicerains

[Emistry]

@imrfreezing

just follow the structure given to setup your own refiner ...

 

@blueicerains

check for map-server error and etc...

[xRaisen]

So, this scripts are for display only? Please be clear in this part,

 All the Scripts i distribute here are NOT FOR COMMERCIAL USES 

[Emistry]

@xRaisen

hmm ?? only for display ??

 

 

All the Scripts i distribute here are NOT FOR COMMERCIAL USES 

you're not allow to take all these script and SELL it to another person in any form. You can share to other...but you cant involve it with money.

[xRaisen]

@xRaisen

hmm ?? only for display ??

 

 

All the Scripts i distribute here are NOT FOR COMMERCIAL USES 

you're not allow to take all these script and SELL it to another person in any form. You can share to other...but you cant involve it with money.

 

 

I see, but I am confused whether I can use this on servers. Correct me if I am wrong, since servers involves money matters like donations and such, still it's commercial. Right?

[Emistry]

you can use it in your server .... like i said in previous post. ..... you cant take my free scripts and sell to other members to earn profits.

everything that's free....stay free forever ...

you can share ...but you cant sell ...

[xRaisen]

you can use it in your server .... like i said in previous post. ..... you cant take my free scripts and sell to other members to earn profits.

everything that's free....stay free forever ...

you can share ...but you cant sell ...

 

Thank you, that's clear now. Your scripts are awesome!

[xRaisen]

#1 Script name: SQL Mission Board

Bug detail: First, the player picked up a mission, he is level 99. During the mission, he then leveled by one. When he completed the mission, he went back to the mission board to get the reward. But the mission board npc said: "[Failed] Your level didnt meet the requirements". 

 

Confirmed by leveling him down. Because the mission board npc accepts my submission and gave me the reward.

 

Screenshot: No screenshot required.

 

#2 Script name: SQL Mission Board

Bug detail: Everything is setup and complete. But when I open the edit monster list  on the update mission setup, the client crashes.

 

Screenshot: 

Edited April 13, 2014 by xRaisen

[Dolphin86]

erm thx that ~ seem like i have missed that part haha ~

---

Erm...it has been awhile since my last released script...xD

well i am here to tell you .....here you go !! a NEW Script again !!.... uhm..but actually..it is not new..coz i have made it last month since i get back my laptop...and just didnt post it coz i wanna avoid post merging in my own topic xD

---

[ Update ] : Added E-Inquiry Script

Description :

Actually, this script is kinda similar to the script made by Tr0n awhile ago ~.... but his script only able to send message to GM team but GM Team cant reply. My Script are in SQL version, and not TXT version.

It is a NPC that enable Players to send a Message to GM Team through NPC. Players able to send / view / delete the Messages , same goes to GM Team. Beside, when GM Team receive the Message from Players, GM Team are able to choose whether to reply the message or not.

This Script will be able to answer / solve those below problems.

Please make me 1 100% Refiner +1 until +7.......

Please make me GM Messenger NPC....

Please make me GM Helper ...

and so on......

---

This NPC allow players to send a very very very very very very long message to GM Team ( not sure the limit but i tried with a super long essay ~ xD )

GM Team able to reply to any messages post by Players. Players / GM will be notify if there is any new messages. All the Messages / Replies will be recorded inside the MySQL database unless the players / gm remove the messages.

Make sure you Loaded the SQL script in your MySQL / PhpMyAdmin / etc before you use the NPC.

E-Inquiry [ Version 1 ]

Changelog :

• [ Version 1 ] - Enable to Players send Messages to GM Team while GM able to Read and Reply.

Scripts : View ♥ Download

Please spend your time to read all the things i have write / mentioned in the post before you asking any questions.

if got bug / problems please do report to me.

waiting someone to spam my topic to split up my post so that i can post all new script separately....>.<

 

 

where should i put the GM lvl?

[Emistry]

OnInit:

// Min. GM Level to Read / Manage Messages.

set .GMLevel,80;

end;

[aaronknows]

prontera,156,157,5	script	Counting Game	437,{
mes "This is a Monsters Counting Game";
mes "I will summon some Monsters here, and you have to count the Correct Amount of Monsters i summoned.";
mes "^FF0000Only Count for the Monsters i mentioned^000000";
next;
switch( select( "Information",
				( getgmlevel() < .GMLevel || .Event )?"":"^FF0000[GM]^000000 Start Game",
				( getgmlevel() < .GMLevel || !.Event )?"":"^FF0000[GM]^000000 End Game" )){
				
Case 1:
	mes "When the Event Start, i will summon some Monsters at a small area, and players have to count the amount of the flowers.";
	mes "Whoever tell me the correct amount of Monsters i mentioned, he/she win the game.";
	break;
	
Case 2:
	mes "Event will begin right now.";
	close2;
	donpcevent strnpcinfo(0)+"::OnStartGame";
	end;

Case 3:
	set .Event,0;
	set .Round,0;
	deletepset 1;
	delwaitingroom;
	set .Winner[0],0;
	set .Winner[1],0;
	npctalk "Counting Game Cancelled.";
	killmonster .Map$,"All";
	mes "Game Cancelled.";
	break;
}
close;

OnSpammed:
	set @Spam,0;
	end;
	
iSpam:
	if( getgmlevel() > 90 ) end;
	set @Spam,@Spam + 1;
	if( @Spam >= .Spam ){	// 3 Continuos Answer will trigger...
		set @SpamDelay,gettimetick(2) + .Spam;
		dispbottom "SPAM Detected, your answer within next "+.Spam+" Seconds will be Ignored.";
	}
	deltimer strnpcinfo(0)+"::OnSpammed";
	addtimer ( .Spam * 1000 ),strnpcinfo(0)+"::OnSpammed";
	end;
	
iRight:
set @Spam,0;
deltimer strnpcinfo(0)+"::OnSpammed";
if( !.Event ){
	message strcharinfo(0),"Sorry, there is no Event right now.";
}else if( @SpamDelay > gettimetick(2) ){
	message strcharinfo(0),"SPAM Protection : Remain "+( @SpamDelay - gettimetick(2) )+" seconds.";
}else if( getcharid(0) == .Winner[0] && gettimetick(2) < .Winner[1] ){
	message strcharinfo(0),"Sorry, Winner Time Penalty : Remain "+( .Winner[1] - gettimetick(2) )+" seconds.";
}else{
	delwaitingroom;
	set .Event,0;
	set .Round,.Round - 1;
	set .Winner[0],getcharid(0);
	set .Winner[1],gettimetick(2) + .Delay;
	npctalk "[ "+strcharinfo(0)+" ] , You're Correct.";
	killmonster .Map$,"All";
	deletepset 1;
	if( getarraysize( .Reward$ ) > 1 )
		for( set .@i,0; .@i < getarraysize( .Reward$ ) - 1; set .@i,.@i + 2 )
			if( getitemname( atoi( .Reward$[.@i] ) ) == "null" ){
				set getd( .Reward$[.@i] ),getd( .Reward$[.@i] ) + atoi( .Reward$[.@i+1] );
				dispbottom "Reward : "+.Reward$[.@i]+" + "+.Reward$[.@i+1];
			}else{
				getitem atoi( .Reward$[.@i] ),atoi( .Reward$[.@i+1] );
				dispbottom "Reward : "+getitemname( atoi( .Reward$[.@i] ) )+" x "+.Reward$[.@i+1];
			}
if( .Round ) donpcevent strnpcinfo(0)+"::OnStartGame";
}
end;


OnInit:
//	Min. GM Level to access GM Panel
set .GMLevel,80;
//	Game Location
set .Map$,"prontera";
//	Monster ID Lists
setarray .MonsterList[0],1084,1085;
//	Winners Answer Delay ( Not advised for High Value )
set .Delay,10;
//	Spam Prevention ( Not advised for High Value )
set .Spam,3;
//	How many rounds
set .MaxRound,10;
//	Area Coordination	<x1>,<y1>,<x2>,<y2>;
setarray .Coordinate,153,146,159,153;
//	Rewards ...
setarray .Reward$[0],
			"#CASHPOINTS","100",
			"Zeny","100000",
			"7227","10",
		//	"CustomVariable","100000",
		//	"#CustomVariable","100000",
			"7539","100";
end;


OnMinute30:
for( set .@i,60; .@i > 0; set .@i,.@i - 10 ){
	announce "Flower Counting Game : start within "+.@i+" Seconds in "+.Map$,0;
	sleep 10000;
}	

OnStartGame:
	if( !.Round ) set .Round,.MaxRound;
	announce "Counting Game has started in "+.Map$,0;
	deletearray .MobCount[0],getarraysize( .MobCount );
	for( set .@x,.Coordinate[0]; .@x <= .Coordinate[2]; set .@x,.@x + 1 )
		for( set .@y,.Coordinate[1]; .@y <= .Coordinate[3]; set .@y,.@y + 1 ){
			set .@Summon,rand( getarraysize( .MonsterList ) );
			monster .Map$,.@x,.@y,"Count Me",.MonsterList[.@Summon],1,strnpcinfo(0)+"::OnKilled";
			set .MobCount[.@Summon],.MobCount[.@Summon] + 1;
			sleep2 1;
		}
	set .@Target,rand( getarraysize( .MonsterList ) );
	deletepset 1;
	defpattern 1, "([^:]+): (\\|\\d{2})?"+.MobCount[.@Target]+ ".$", "iRight";
	// defpattern 1,"([^:]+): "+.MobCount[.@Target], "iRight";
	defpattern 1,"([^:]+):.*.*", "iSpam";
	activatepset 1;
	delwaitingroom;
	waitingroom getmonsterinfo( .MonsterList[.@Target],0 ),0;
	npctalk "Count for the Targeted Monster's Amount to Win the Game.";
	set .Event,1;
	end;
	
OnKilled:
	mes "You will be punished upon killing these Monsters and interupt the Game.";
	set @Spam,30;
	close2;
	npctalk "Round Restarted due to interruption.";
	donpcevent strnpcinfo(0)+"::OnStartGame";
	end;
}

No prize given each time someone wins. Please fix thanks!

[pinyinhuo]

Hi Emistry!,

 

Do you have a Multi Currency shop which announce the person who buy in the shop and the item which is bought?

 

been trying to make it work but it only announce the person who bought from the shop ._.

[Emistry]

getitem ............
announce "message.........",bc_all;   // add this line

find and edit inside the script