prontera,164,190,4 script Treasurer#prt::Treasurer 804,{
function RandomizeItem;
while( 1 ){
mes "[ Treasurer ]";
mes "Would you like to go to the Treasurer Room?";
switch( select( "What is Treasurer Room?:Get in and farm stuff" )){
Case 1:
next;
mes "You can call it, Farm Zone.";
mes "Inside, you'll find a lot of mobs";
mes "And they'll give you rewards.";
mes "when you are able to kill them.";
next;
mes "But there are some Condition:";
mes "You can only get inside the Room once every ^FF0000 "+.RoomCleanMin+" minutes.^000000";
mes "And only a maximum of ^FF0000"+.MaxPlayers+" Players.^000000";
mes "are allowed per ^FF0000"+.RoomCleanMin+" Minutes.^000000";
next;
mes "There will be a ^FF0000Room Cleaning^000000 too";
mes "All players will be kicked out, it is your bad luck if you meet this.";
mes "When you die, or get warped out for whatever reason it may be, ^FF000015 minutes^000000 of re-entry delay will be applied. You can't re-enter.";
next;
break;
Case 2:
if( #HuntRoomDelay > gettimetick(2) ){
set .last,#HuntRoomDelay - gettimetick(2);
set .@min, .last % ( 24 * 3600 ) % 3600 / (60);
next;
mes "Wait for ^FF0000"+.@min+" more 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,15;
// Maximum Hunt Limit per round inside the Zone.
set .MaxItemLimit,1000000000;
// Map that will be used in thos Zone.
set .Map$,"guild_vs5";
// Clear Map Every X Minutes.
set .RoomCleanMin,10;
// 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$,"gonryun",160,110;
monster .Map$,0,0,"--ja--",-1,80,strnpcinfo(0)+"::OnNormalKill";
monster .Map$,0,0,"--ja--",-3,5,strnpcinfo(0)+"::OnBossKill";
deletearray .Hunter,getarraysize( .Hunter );
announce "Treasurer: Treasurer has been Cleaned up, another 10 Players may go in now.",bc_blue;
sleep ( .RoomCleanMin * 60000 );
mapannounce .Map$,"Treasurer: 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],17971,17972,969;
// Normal Boss in Zone Drops Lists
if( getarg(0) == 1 ) setarray .ItemList[0],19600,7539;
for( set .@i,1; .@i <= getarg(1); set .@i,.@i + 1 ){
getitem .ItemList[ rand( getarraysize( .ItemList ) ) ],1;
}
deletearray .ItemList,getarraysize( .ItemList );
//dispbottom "Treasurer: Farmed "+#FarmHunt+" / "+.MaxItemLimit+" Items";
if( #FarmHunt >= .MaxItemLimit ){
message strcharinfo(0),"Limit Reach , you may join again later.";
sleep2 2000;
warp "gonryun",160,110;
}
return;
}
}
error
[Error]: npc_event: event not found [Treasurer#prt::OnNormalKill]
[Error]: npc_event: event not found [Treasurer#prt::OnNormalKill]
[Error]: npc_event: event not found [Treasurer#prt::OnNormalKill]
[Error]: npc_event: event not found [Treasurer#prt::OnNormalKill]
[Error]: npc_event: event not found [Treasurer#prt::OnNormalKill]
[Error]: npc_event: event not found [Treasurer#prt::OnNormalKill]
[Error]: npc_event: event not found [Treasurer#prt::OnNormalKill]
[Error]: npc_event: event not found [Treasurer#prt::OnNormalKill]
[Error]: npc_event: event not found [Treasurer#prt::OnNormalKill]
[Error]: npc_event: event not found [Treasurer#prt::OnNormalKill]
[Error]: npc_event: event not found [Treasurer#prt::OnNormalKill]
[Error]: npc_event: event not found [Treasurer#prt::OnNormalKill]
[Error]: npc_event: event not found [Treasurer#prt::OnNormalKill]
Question
Help-Help
error
Link to comment
Share on other sites
1 answer to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.