prontera,95,157,5 script Mother 961,{
if(mother_tpos >=1) goto M_Hunter;
set .@grandma$,"^0000FF[ Grandma ]^000000";
set .@map2$,"moc_fild13";
set .@little$,"^0000FF Red Riding Hood^000000";
set .@npcname$,"^0000FF[ Mother ]^000000";
set .@badwolf1$,"^0000FF Bad Wolf Minion^000000";
set .@hunter1$,"^0000FF Hunter^000000";
set .@map1$,"^FF0000pay_fild02^000000";
if(Class==0||BaseLevel<255){
mes "Hi there little Adventurer!";
close;
}
if(mother_tpos < 1)
mes "Hi "+strcharinfo(0)+", Will you please help me find my precious daughter?";
disablenpc "Red Riding Hood";
next;
switch(select("Investigate:Sorry:I have her belongings") {
case 1:
mes .@npcname$;
mes "She's been missing since yesterday";
next;
mes .@npcname$;
mes "I ask her to bring some fruits to her sick grandmother in Payon but she's not back until now";
next;
mes .@npcname$;
mes "Please go, maybe you'll find some of my daughter's belongings in .@map1$, that's our way to my mother's house";
next;
mes "Here's what she bring with her";
mes "1x --> Little Red's Apron^000000";
mes "1x --> Little Red's Scarf^000000";
mes "1x --> Little Red's Square Bag^000000";
next;
mes .@npcname$;
mes "Try too look for them";
mes "But, i hope you will not find them with her BODY!";
mes "Sob...Sob...Sob..";
goto T_M;
emotion e_sob;
close;
T_M:
monster .@map1$,0,0,"Wolf Scouts",1821,10,strnpcinfo(0)+"::OnMyMobDead";
OnMyMobDead:
set $WolfKilled,$WolfKilled+1;
if ($WolfKilled==10;) goto T_Wiped;
T_Wiped:
announce "[ Bonus ] : You Have Wiped out all the unnecessary wolves here in .@map1$",bc_blue|bc_self;
getitem 607,15;
end;
}
case 2:
mes .@npcname$;
mes "***Crying***, Ok.";
close;
case 3:
mes .@npcname$;
mes "Really?";
next;
if (select("Give.:Don't Give") == 2) {
mes .@npcname$
mes "Sob..Sob..";
mes "Please don't fool around";
mes "It's My Daughter that is missing here, not your brain.";
close;
}
if( countitem(7047) < 1 || countitem(7216) < 1 || countitem(16001) < 1) goto kulang;
if( countitem(7047) >= 1 || countitem(7216) >= 1 || countitem(16001) >= 1) goto complete;
kulang:
next;
mes .@npcname$;
mes "That's not it!";
mes "Please find traces of her!, I BEG of YOU!";
emotion e_sob;
close;
complete:
next;
mes .@npcname$;
mes "These belong to my child!";
mes "Sob...Sob..Sob..";
delitem 7047,1;
delitem 7216,1;
delitem 16001,1;
next;
mes .@npcname$;
mes "I think she's been attacked by the Big Bad Wolf!";
next;
mex .@npcname$;
mes "Please find the .@hunter1$";
mes "He is in the Left side of Prontera near West Gate.";
set mother_tpos,1;
close;
M_Hunter:
mex .@npcname$;
mes "Please find the .@hunter1$";
mes "He is in the Left side of Prontera near West Gate.";
close;
}
prontera,41,214,5 script Hunter 821,{
if(hunter_tpos >= 1) goto H_tpos;
if(hunter_tpos < 1)
mes .@hunter1$;
mes "Hey Kid, What do you want huh?";
emotion e_omg;
if(select("About the Big Bad Wolf:Nothing Sir" == 2) {
mes .@hunter1$;
mes "Get out of my Face!";
emotion e_omg;
close;
mes .@hunter1$;
mes "About that Bad Ass Wolf huh?";
next;
mes .@hunter1$;
mes "Bring me 5 Pieces of this items and i shall guide you to their Hideout.";
mes "5x --> Golden Apple^000000";
next;
mes .@hunter1$;
mes "Don't fool around!";
mes "time is running!";
next;
mes .@hunter1$;
mex "Do you have the apples?";
next;
if (select("Give the Apples.:Eat the Apples.") == 2) {
mes .@hunter1$;
mes "Hey! Don't Eat that!";
delitem 7793,5;
close;
}
if( countitem(7793) < 5) goto kinain;
if( countitem(7793) >= 5) goto binigay;
kinain:
next;
mes .@hunter$;
mes "it's either you ate it";
mes "or you just dont wan't to give it";
close;
binigay:
next;
mes .@hunter$;
mes "Ohh...YeaHH! APPLES!";
mes "**Eating**";
delitem 7993,5;
next;
mes "I will warp you to their Hideout";
warp "moc_fild13",198,337;
end;
set hunter_tpos,1;
close;
H_tpos:
mes .@hunter1$;
emotion e_omg;
mes "Why are you still here?"
warp "moc_fild13",198,337;
close;
}
 
moc_fild13,75,325,5 script Bad Wolf Minion 427,{
if(boss_tpos >= 1) goto Boss_tpos;
if(boss_tpos < 1)
mes .@badwolf1$;
mes "Hey, What do you want kid?";
if(select("(Kick Hime):(Where is your Boss)" == 2) {
mes .@badwolf1$;
mes "Leave this place if you wan't to live!";
close;
}
mes .@badwolf1$;
mes "You ask for it!!! GRRRR...";
monster .@map2$,76,216,"Big Bad Wolf",1785,1,strnpcinfo(0)+"::OnMyMobDead2";
close;
}
OnMyMobDead2:
set $WolfKilled2,$WolfKilled2+1;
if ($WolfKilled2==1;) goto T_Boss;
}
T_Boss:
announce "[ Big Bad Wolf ] : Curse You!! I'll be Back!! .@map2$",bc_blue|bc_self;
getitem 607,1;
getitem 969,1;
getitem 12404,1;
getitem 14542,1;
getitem 14544,1;
set boss_tpos,1;
end;
}
Boss_tpos:
mes .@badwolf1$;
mes "What else do you need?? You've already killed our boss!"
next;
mes "+strcharinfo(0)+";
mes "Where is Little Red Riding Hood!";
warp "moc_fild13",32,27;
enablenpc "Red Riding Hood";
close;
}
moc_fild13,32,27,0 script Red Riding Hood 960,{
if(little_tpos >= 1) goto little_tpos;
if(little_tpos < 1)
mes .@little$;
mes "Thanks for rescuing me and retrieving the fruits for my grandmother";
emotion e_thx;
next;
mes .@little$;
mes "Can you accompany me to my granda's house so I can give these fruits to her?";
if(select("Okay, Lets Go!:Cancel" == 2) {
mes .@little$;
mes "What are we waiting for?";
close;
}
mes .@little$;
mes "To My Grandma's House!";
warp "payon",264,154;
disablenpc "Red Riding Hood";
end;
set little_tpos,1;
close;
}
little_tpos:
next;
mes .@little$;
mes "To My Grandma's House!";
warp "payon",264,154;
disablenpc "Red Riding Hood";
end;
set little_tpos,1;
close;
}
payon,101,35,0 script Grandma 863,{
if(little_tpos >= 1) goto grand_ma;
if(little_tpos < 1)
mes .@grandma$;
mes "Ahhhh, it's a Beautiful Morning don't you think?";
close;
}
grand_ma:
mes .@grandma$;
mes "My grandchild told me about your adventures with her";
next;
mes .@grandma$;
mes "Thank you for bringing her back";
emotion e_thx;
next;
mes .@grandma$;
mes "Accept this as a Gift";
getitem 12186,1;
set little_tpos,0;
set mother_tpos,0;
set boss_tpos,0;
set hunter_tpos,0;
set
close;
}