Mods for this script

[KCritz]

can anyone please modify this script i got this from annie i just want to add 3rd selection name Farm Poring Coin Extreme and will be warped at 2@pump please

dewata,192,192,6    script    Goldring    2248,{
function    RandomizeItem;

while( 1 ){
mes "How can i help you ?";
switch( select( "Information:Farm Poring Coin Easy" )){
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,30;
// Maximum Hunt Limit per round inside the Zone.
set .MaxItemLimit,100;
// Map that will be used in thos Zone.
set .Map$,"1@pump";
// 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$,"dewata",222,185;
   monster .Map$,0,0,"[ Goldring ] Resident",-1,50,strnpcinfo(0)+"::OnNormalKill";
   monster .Map$,0,0,"[ Goldring ] Guardian",2248,5,strnpcinfo(0)+"::OnBossKill";
   deletearray .Hunter,getarraysize( .Hunter );
   announce "[ Gold Poring ] : (Poring Coin) Farming Zone has been Cleaned up, another 5 Players may go in now.",bc_blue;
   sleep ( .RoomCleanMin * 80000 );
   mapannounce .Map$,"[ Goldring ] : Room Clean Up now...All Users will be warped Out.",0;
   killmonster .Map$,"All";
   sleep 5000;
   }
end;

OnNormalKill:
RandomizeItem( 0,rand(1,1) );
monster .Map$,0,0,"--ja--",1725,1,strnpcinfo(0)+"::OnNormalKill";
end;

OnBossKill:
RandomizeItem( 1,rand(1,5) );
monster .Map$,0,0,"--ja--",2248,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],7602,7470,6012,6485,6486,6487,6487;
// Normal Boss in Zone Drops Lists
if( getarg(0) == 1 ) setarray .ItemList[0],7539,7444;

for( set .@i,1; .@i <= getarg(1); set .@i,.@i + 1 ){
   getitem .ItemList[ rand( getarraysize( .ItemList ) ) ],1;
   }
deletearray .ItemList,getarraysize( .ItemList );
dispbottom "[ Goldring ] : Farmed "+#FarmHunt+" / "+.MaxItemLimit+" Items";
if( #FarmHunt >= .MaxItemLimit ){
   message strcharinfo(0),"Limit Reach , you may join again later.";
   sleep2 5000;
   warp "dewata",222,185;
   }
return;
}

}