[Help] item not drop

[PapaZola]

this script from sir emistry

the problem is

normal monster when i kill no get any item

but when kill boss i get items

here the script

prontera,134,205,5 script Farm Zone 718,{
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 Seconds..";
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,5;
// Adding X Minutes of Delay before can go in again.
set .DelayMin,15;
// Maximum Hunt Limit per round inside the Zone.
set .MaxItemLimit,200;
// Map that will be used in thos Zone.
set .Map$,"guild_vs5";
// Clear Map Every X Minutes.
set .RoomCleanMin,15;
// 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 5 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:
if( rand(100) < 10 ) RandomizeItem( 1,rand(1,3) );
monster .Map$,0,0,"--ja--",-1,1,strnpcinfo(0)+"::OnNormalKill";
end;
OnBossKill:
if( rand(100) < 5 ) 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) == 1 ) setarray .ItemList[0],13550,7420,12114,12115,12116,12117,12075,12090,12085,12080,12095,12100;
// Normal Boss in Zone Drops Lists
if( getarg(0) == 1 ) setarray .ItemList[0],29000,29001,29002,29003,29004,29005,29006,29007;
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;
}}

[Emistry]

OnNormalKill:
if( rand(100) < 100 ) RandomizeItem( 0,rand(1,3) );

when i adjust the script ( Rate ) to higher....everything work just fine...perhap just the rate you set is too low... ( 5 / 100 to get 1 items )

just adjust the rate and try again .......

anyway.....2 getarg(0) also check for equal to 1 ?? i though suppose to be one is 0 and the other one is 1 ???

// Normal Monster in Zone Drops Lists
if( getarg(0) == 0 ) setarray .ItemList[0],13550,7420,12114,12115,12116,12117,12075,12090,12085,12080,12095,12100;
// Normal Boss in Zone Drops Lists
if( getarg(0) == 1 ) setarray .ItemList[0],29000,29001,29002,29003,29004,29005,29006,29007;

[PapaZola]

thx emistry

i will try this

sorry for double post

emistry how if i want make if got gm lvl 80 can enter the farm zone anytime

no need wait 15 minutes

[Emistry]

try change

if( #HuntRoomDelay > gettimetick(2) ){

into this

if( #HuntRoomDelay > gettimetick(2) && getgmlevel() < 80 ){

[PapaZola]

thx its work sorry keep ask many questions

and 1 more how add more monster

[Emistry]

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

edit the number 80 and 5

Default :

80 Normal Monster

5 Boss

just change to what you like...

[PapaZola]

thx emistry

for my last question

how if i want make a waitting room "Farm Zone" like this

OnInit:
waitingroom "Healer",0;
end;

[Arcenciel]

OnInit:
waitingroom "Farm Zone",0;
end;

^^

[PapaZola]

i already try but not working

[Emistry]

reload your server....or restart your server....

and if didnt work...please show how you edit your script.....

[PapaZola]

here sir emistry

lorien,157,302,4 script Farm Zone 521,{
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 Seconds..";
next;
break;Case 2:
if( #HuntRoomDelay > gettimetick(2) && getgmlevel() < 80 ){
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,5;
// Adding X Minutes of Delay before can go in again.
set .DelayMin,15;
// Maximum Hunt Limit per round inside the Zone.
set .MaxItemLimit,200;
// Map that will be used in thos Zone.
set .Map$,"ordeal_1-1";
// Clear Map Every X Minutes.
set .RoomCleanMin,15;
// 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,300,strnpcinfo(0)+"::OnNormalKill";
monster .Map$,0,0,"[ Farm Zone ] Guardian",-3,20,strnpcinfo(0)+"::OnBossKill";
deletearray .Hunter,getarraysize( .Hunter );
announce "[ Farm Zone ] : Farming Zone has been Cleaned up, another 5 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:
if( rand(100) < 30 ) RandomizeItem( 0,rand(1,1) );
monster .Map$,0,0,"--ja--",-1,1,strnpcinfo(0)+"::OnNormalKill";
end;
OnBossKill:
if( rand(100) < 20 ) RandomizeItem( 1,rand(1,1) );
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],13550,7420,12114,12115,12116,12117,12075,12090,12085,12080,12095,12100;
// Normal Boss in Zone Drops Lists
if( getarg(0) == 1 ) setarray .ItemList[0],29000,29001,29002,29003,29004,29005,29006,29007;
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",148,190;
}
return;
}}
OnInit:
waitingroom "Farm Zone",0;
end;

[Emistry]

In my script already have 1 OnInit Label..

you cant have 2 or more Label with same name...

so, to fix your problems..

just put this

waitingroom " Farm Zone",0;

into the OnInit Part that already inside my script....

[PapaZola]

thx emistry

i will try it soons

[NeoGenesis]

how to set limit item to unlimit ??

[Emistry]

how to set limit item to unlimit ??

you can just set the amount to a very very high value since i dont think players are able to hunt that much of item in the limited times.

Example:

set .MaxItemLimit,1000000;

I'm lazy to edit the script since this features are not required by most of the ppl