//===== rAthena Script =======================================
//= Another Item Hunt
//===== By: ==================================================
//= Akkarin
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= Two NPCs that form an Item Hunt event. One is a static NPC
//= while the other moves around the map, moaning that he's
//= lost something - items at random from array.
//===== Additional Comments: =================================
//= 1.0 First Version. Age-old script revamped to use modern
//=-  functions @.@
//============================================================
prontera,144,178,4  script  Jacob   2500,{
close;
 
OnInit:
set $FIIN,0;
set $FIIA,0;
set $FIVAR,0;
//==============================================================
// CONFIGS START
//==============================================================
// This is the array of items that the NPCs will ask your players to find.
// They must be separated by a comma (,) and cannot contain more than 
// 127 items. That's the law. End of.
setarray $FindItems[0],913,507;
 
// Set the min amount of an item to look for
set $FIMIN,5;
// Set the max amount of an item to look for
set $FIMAX,30;
 
// Set your prize item ID here!
set $FIPrize,501;
 
// Set your prize quantity here!
set $FIPrizeAmt,2;
 
// Jacob is Jacob by default, but you can change his name here
set $FIJname$,"Jacob";
 
// Colette is Colette by default, but you can change her name here
set $FICname$,"Colette";
 
// GM Level / Group required to start/stop scripts
set $FIAuth,80;
//==============================================================
// CONFIGS END
//==============================================================
end;
 
OnWhisperGlobal:
if (@whispervar0$ == "start") goto L_Start;
if (@whispervar0$ == "stop") goto L_Stop;
dispbottom $FIJname$ + " : Sorry, i do not recognise that command.";
end;
 
L_Stop:
    set $FIIN,0;
    set $FIIA,0;
    set $FIVAR,0;
    end;
 
L_Start:
    if (getgmlevel() >= $FIAuth) goto E_begin;
    dispbottom  $FIJname$ + " : Your GM level is not high enough to run this event.";
    end;
 
E_begin:
    Announce "[Event]" + $FICname$ + " : Hey guys, a friend of mine is looking abit lost.",8,0x3399FF;
    sleep   6000;
    Announce "[Event]" + $FICname$ + " : He's in Prontera and needs your help!",8,0x3399FF;
    sleep   10000;  npcspeed    150;    npcwalkto   155,178;    sleep   6000;   npctalk "Oh no..";  sleep   5000;   npctalk "Where did i put them..";
    sleep   5000;   emotion e_hmm;  sleep 3000; npctalk "They must be around somewhere..";  sleep   4000;   npcwalkto   155,185;
    sleep   5000;   npctalk "I know they're here somewhere";    sleep   4000;   npcwalkto   155,182;    sleep   5000;   emotion e_sob;
    sleep   5000;   npctalk "Ok.. ok.. Don't panic..."; sleep 3000; npcwalkto   151,182;    npctalk "AHHHHHHHHHHHHHHH"; sleep 1000;
    npcwalkto   158,182;    sleep 1000; npcwalkto   151,182;    sleep 1000; npcwalkto   158,182;    sleep 1000; npcwalkto   155,182;
    sleep   2000;   npctalk "Please.. ";    sleep   3000;   npctalk "Someone must help me!";    emotion e_sob;  sleep   5000;
    set $FindItemsSize,getarraysize($FindItems);
    set $@FIIID,rand(0,$FindItemsSize);
    set $FIIN,$FindItems[$@FIIID];
    set $FIIA,rand($FIMIN,$FIMAX);
 
E_jacob1:
    npctalk "I've lost my "+getitemname($FIIN);
    sleep   5000;
    npctalk "Can someone please give them to " + $FICname$ + " for me?";
    sleep   5000;
    npctalk "I feel safer knowing that she's looking after them.";
    sleep   5000;
    npctalk "Speak to " + $FICname$ + " and she'll give you more instructions.";
    set $FIVAR,1;
    sleep   5000;
    npcwalkto   144,175;
    sleep 5000;
    npcwalkto   144,178;
    end;
}
 
prontera,157,195,5  script  Colette 73,{
if ($FIVAR == 1) goto L_Check;
mes $FICname$;
mes "Hi "+strcharinfo(0)+",";
mes "How are you today?";
close;
 
L_Speaking:
    mes $FICname$;
    mes "Hold on kiddo, i'm busy giving out instructions.";
    close;
 
L_Check:
    mes $FICname$;
    mes "Have you found "+$FIJname$+"'s "+$FIIA+" "+getitemname($FIIN)+"?";
    menu    " - Yes",-," - Nope",L_Close;
    if(countitem($FIIN) < $FIIA) goto L_NoItems;
    set $FIVAR,0;
    delitem $FIIN,$FIIA;
    getitem $FIPrize,$FIPrizeAmt;
    npctalk "Well done "+strcharinfo(0)+", I shall look after these for "+$FIJname$+".";
    Announce "[Event]"+$FICname$+" : "+strcharinfo(0)+" has helped "+$FIJname$+" find his items!",8,0x3399FF;
    close;
    
L_NoItems:
    next;
    mes $FICname$;
    mes "You don't have the correct amount of items I need.";
    close;
 
L_Close:
    close;
}