YGG Room and Ygg ticket

[rexxar31]

does anyone has script for ygg room and npc that convert 100yggberry to 1berry ticket? thanks

[Emistry]

try this

http://upaste.me/1d10278cd3db1e7

[Emistry]

http://pastebin.com/raw.php?i=TGkxP09y

Typo at :getitemname( 6070 ) should be 607 right? D:

Regards,

Chris

http://pastebin.com/raw.php?i=TGkxP09y

Fixed

http://pastebin.com/raw.php?i=UKr5WjMH

Edited May 1, 2012 by Emistry

[llchrisll]

http://pastebin.com/raw.php?i=TGkxP09y

Typo at :getitemname( 6070 ) should be 607 right? D:

Regards,

Chris

[rexxar31]

thanks mates.. but how about the ygg berry farming room?? any idea how??

[Emistry]

http://rathena.org/board/topic/53320-%E3%80%90-emistry-%C2%A9-2012-%E3%80%91e-scripts-collection/page__p__57588#entry57588

[rexxar31]

sir emistry. the one that you have given only convert the ygg to box(i can change this to tickets).. can you give me a script that can change the box(tickets) to yggberrys again?? thanks

[rexxar31]

sir im using this code.. i just try to edit your script for the item i want..

prontera,141,172,4 script YGG Zone 976,{
function RandomizeItem;
while( 1 ){
mes "How can i help you ?";
switch( select( "Information:Farm Items" )){
Case 1:
mes "This is a Farm Zone.";
mes "You are able to Hunt Monster inside this Room.";
mes "Every Monster will award you random items.";
next;
mes "But there is some Condition..";
mes "You can only go in ^FF0000once every "+.RoomCleanMin+" minutes for 1 times.^000000";
mes "And Maximum of ^FF0000"+.MaxPlayers+" Players per "+.RoomCleanMin+" Minutes.^000000";
mes "Maximum Hunting Limit ^FF0000"+.MaxItemLimit+"^000000";
next;
mes "There will be a ^FF0000Room Cleaning^000000 from time to time...";
mes "All players will be kicked out, it is your bad luck if you meet this.";
mes "Delay will still apply even though you just go in for 1 Second..";
next;
break;
Case 2:
if( #HuntRoomDelay > gettimetick(2) ){
 set .last,#HuntRoomDelay - gettimetick(2);
 set .@min,  .last % ( 24 * 3600 ) % 3600 / (60);
 mes "Wait for ^FF0000"+.@min+" Minutes^000000.";
 close;
}else if( getarraysize( .Hunter ) >= .MaxPlayers ){
 mes "Currently the Room is Full. Please try again later.";
 close;
}else{
 warp .Map$,0,0;
 set .Hunter[getarraysize( .Hunter )],strcharinfo(0);
 set #HuntRoomDelay,gettimetick(2) + ( .DelayMin * 60 );
 set #FarmHunt,0;
 end;
 }
}
}
OnInit:
// Maximum Player can join per X Minutes.
set .MaxPlayers,10;
// Adding X Minutes of Delay before can go in again.
set .DelayMin,10;
// Maximum Hunt Limit per round inside the Zone.
set .MaxItemLimit,1000;
// Map that will be used in thos Zone.
set .Map$,"guild_vs5";
// Clear Map Every X Minutes.
set .RoomCleanMin,5;
// Mapflag Initialization
setmapflag .Map$,mf_nogo;
setmapflag .Map$,mf_nomobloot;
setmapflag .Map$,mf_nomvploot;
setmapflag .Map$,mf_nowarpto;
setmapflag .Map$,mf_nochat;
setmapflag .Map$,mf_novending;
setmapflag .Map$,mf_nocommand,60;
setmapflag .Map$,mf_nogo;
setmapflag .Map$,mf_nojobexp;
setmapflag .Map$,mf_nobaseexp;
while( 1 ){
killmonster .Map$,"All";
mapwarp .Map$,"prontera",155,181;
monster .Map$,0,0,"[ Farm Zone ] Resident",-1,80,strnpcinfo(0)+"::OnNormalKill";
monster .Map$,0,0,"[ Farm Zone ] Guardian",-3,5,strnpcinfo(0)+"::OnBossKill";
deletearray .Hunter,getarraysize( .Hunter );
announce "[ Farm Zone ] : Farming Zone has been Cleaned up, another 10 Players may go in now.",bc_blue;
sleep ( .RoomCleanMin * 60000 );
mapannounce .Map$,"[ Farm Zone ] : Room Clean Up now...All Users will be warped Out.",0;
killmonster .Map$,"All";
sleep 3000;
}
end;
OnNormalKill:
RandomizeItem( 0,rand(1,5) );
monster .Map$,0,0,"--ja--",-1,1,strnpcinfo(0)+"::OnNormalKill";
end;
OnBossKill:
RandomizeItem( 1,rand(1,3) );
monster .Map$,0,0,"--ja--",-3,1,strnpcinfo(0)+"::OnBossKill";
end;
// Function that used to Generate Random Items
function RandomizeItem {
set #FarmHunt,#FarmHunt + getarg(1);
// Normal Monster in Zone Drops Lists
if( getarg(0) == 0 ) setarray .ItemList[0],607,607,607,607,607,607,607;
// Normal Boss in Zone Drops Lists
if( getarg(0) == 1 ) setarray .ItemList[0],13517,13517,13517,13517,13517,13517,13517,13517,13517;
for( set .@i,1; .@i <= getarg(1); set .@i,.@i + 1 ){
getitem .ItemList[ rand( getarraysize( .ItemList ) ) ],1;
}
deletearray .ItemList,getarraysize( .ItemList );
dispbottom "[ Farm Zone ] : Farmed "+#FarmHunt+" / "+.MaxItemLimit+" Items";
if( #FarmHunt >= .MaxItemLimit ){
message strcharinfo(0),"Limit Reach , you may join again later.";
sleep2 2000;
warp "prontera",155,181;
}
return;
}

}

now the problem is.. it is always full even no players are inside?? can you teach me how to fix it?? thanks

Edited December 9, 2012 by Emistry
Please use [CODEBOX] or Attachments for long contents.

[Emistry]

what u mean by full ?

[rexxar31]

what u mean by full ?

it goes at the else if part.. i mean "Currently the Room is Full. Please try again later."

[Emistry]

the room will be clean and back available every X minute you have set in here

// Clear Map Every X Minutes.
set .RoomCleanMin,5;

[rexxar31]

its my first time to put that script in my server so i doubt that there is a person inside..

its alright now.. can i ask another question?? how to set the monster to all poring and the boss monsters to all baphomet?? thanks for all mate

[Emistry]

edit monster id here

monster .Map$,0,0,"[ Farm Zone ] Resident",-1,80,strnpcinfo(0)+"::OnNormalKill";
monster .Map$,0,0,"[ Farm Zone ] Guardian",-3,5,strnpcinfo(0)+"::OnBossKill";

[rexxar31]

edit monster id here

monster .Map$,0,0,"[ Farm Zone ] Resident",-1,80,strnpcinfo(0)+"::OnNormalKill";
monster .Map$,0,0,"[ Farm Zone ] Guardian",-3,5,strnpcinfo(0)+"::OnBossKill";

where is the monster id in there?? the -1 and -3 or the 80 and 5?

[Emistry]

in above case..replace the -1 and -3 ..

*monster	 "<map name>",<x>,<y>,"<name to show>",<mob id>,<amount>{,"<event label>"};
*areamonster "<map name>",<x1>,<y1>,<x2>,<y2>,"<name to show>",<mob id>,<amount>{,"<event label>"};

[rexxar31]

in above case..replace the -1 and -3 ..

*monster	 "<map name>",<x>,<y>,"<name to show>",<mob id>,<amount>{,"<event label>"};
*areamonster "<map name>",<x1>,<y1>,<x2>,<y2>,"<name to show>",<mob id>,<amount>{,"<event label>"};

thanks sir emistry. i wish i was good as you in scripting.