rathena/npc/quests/obb_quest.txt

//===== Athena Script =======================================
//= Old Blue Box Quest
//===== By ================================================
//= Celesta, Lupus
//===== Version ===========================================
//= 1.6a
//===== Compatible With ===================================
//= SVN3000+
//===== Description =======================================
//= Official OBB Quest. You can pass it any times you want.
//= 1.6 Updated, fixed, optimized and translated into English [Lupus]
//= 1.6a Halved the required items to make an obb, thanks to marquis007 [MasterOfMuppets]
//===== Description =======================================

alberta.gat,115,204,5	script	Tourist	97,{
	mes "[Tourist]";
	if(obb_quest == 1 ) goto L_YES;
	if(obb_quest == 2 ) goto L_DONE;  

	mes "Hello, stranger!";
	mes "Could you help me with kinda problem... Then I'd tell you something valuable.";
	next;
	mes "[Tourist]";
	mes "I'm starving. I haven't had an apple since the morning...";
	mes "Feed me and I'll tell you a secret.";
	next;

L_MENU:
	menu "What do you like?",-,"I've got food.",L_FOOD, "See you later.", L_END;

	mes "[Tourist]";
	mes "Me.. I.. Today I'd like:";
	mes "20 ^0000FFMeat^000000";
	mes "20 ^0000FFWell-Baked Cookie^000000";
	next;
	goto L_MENU;

L_NO_MEAT:
	delitem 517,20;//Items: Meat,
	mes "You know, you're lack of meat...";
	mes "Please, bring me more...";
	close;

L_NO_COOK:
	delitem 538,20;//Items: Well-baked_Cookie,
	mes "Awww... I just wanna more sweeties!";
	mes "Please, get me more cookies...";
	close;

L_FOOD:
	mes "[Tourist]";
	mes "Wha?! You brought all the food?";
	mes "At last!";
	next;
	mes "[Tourist]";
	if(countitem(517)<20) goto L_NO_MEAT;//Items: Meat,
	delitem 517,20;//Items: Meat,
	if(countitem(538)<20) goto L_NO_COOK;//Items: Well-baked_Cookie,
	delitem 538,20;//Items: Well-baked_Cookie,
	if(rand(10)<7) goto L_HUNGRY;
	mes "Well... I'm sorta full.";
	mes "Now listen to me. It's important.";
	next;
	mes "[Tourist]";
	mes "A friend of mine who lives in Morroc, know one old man from Comodo...";
	next;
	mes "[Tourist]";
	mes "That old man might know a secret of strange ancient blue boxes.";
	set obb_quest, 1;
	close;

L_HUNGRY:
	mes "I'm still hungry!";
	mes "Is it all you got?";
	close;

L_YES:
	mes "OK, go to Morroc and find my old pal Jacob,";
	mes "he'll help you to trace an old man, who might keep a knowledge how to make some blue boxes...";
	next;
	mes "[Tourist]";
	mes "Good luck, my friend.";
	close;

L_DONE:
	mes "Have you made any Blue Boxes yet?";
	next;
	mes "[Tourist]";
	mes "Oh... yeah, you've met that Old Greek from Comodo...";
	close;

L_END:
	mes "[Tourist]";
	mes "Well... farewell then.";
	close;
}

//second part Jacob
morocc.gat,267,142,5	script	Jacob	807,{
	mes "[Jacob]";
	if(obb_quest == 1 ) goto L_YES;
	if(obb_quest == 2 ) goto L_DONE;
	mes "Get off! I'm busy!";
	if(rand(2))mes "And it's none of your business!";
	if(rand(2))mes "What Alberta? Huh?! Have I said it aloud? Forget it.";
	close;

L_YES:
	mes "Aha! You say you know my old friend from Alberta?";
	next;
	mes "[Jacob]";
	mes "Well, I'm gladly tell you about that weird old man if you bring me";
	mes "2 ^0000FFNo Recipient^000000";
	next;
	menu "Here you are!",-,"I've changed my plans.",L_END;

	mes "[Jacob]";
	mes "Let me see...";
	if(countitem(636)<2) goto L_NOITM;//Items: No_Recipient,
	delitem 636,2;//Items: No_Recipient,
	mes "Thank you, that's all I need.";
	emotion e_thx;
	next;
	mes "[Jacob]";
	set obb_quest, 2;
L_DONE:
	mes "Go to Comodo. Somewhere on the beach you'll find Old Greek.";
	mes "Tell me that you know me and he'll help you.";
	close;

L_NOITM:
	mes "Pardon, but I do really need these two ^0000FFNo Recipients^000000.";
	emotion e_hmm;
	close;

L_END:
	mes "[Jacob]";
	mes "Well, good luck.";
	close;
}

//third part
comodo.gat,41,209,5	script	Old Greek	120,{
	mes "[Old Greek]";
	if(obb_quest == 2 ) goto L_YES;
	if(obb_quest < 2 ) goto  L_LOST;

L_LOST:
	mes "The KNOWLEDGE! That's the key, my child...";
	if(rand(2))mes "Wealth doesn't matter.";
	close;

L_YES:
	mes "Huh? Jacob send you?";
	mes "OK, OK... It's true, I still can use old blue prints to make";
	mes "an ^0000FF Old Blue Box^000000";
	next;

L_MENU:
	menu "Make me one.",L_CREATE,"What do you need?",-,"Gooodbye.",L_END;

	mes "[Old Greek]";
	mes "For an Old Blue Box I need:";
	mes "50 ^0000FFCyfars^000000";
	mes "10 ^0000FFBrigans^000000";
	mes "10 ^0000FFClam Shells^000000";
	mes "15 ^0000FFCrab Shells^000000";
	next;
	goto L_MENU;

L_CREATE:
	mes "[Old Greek]";
	mes "Let's see... What have you got...";
	next;
L_CREATE2:
	if(countitem(7053)<50 || countitem(7054)<10 || countitem(965)<10 || countitem(964)<15) goto L_NO;//Items: Cyfar, Brigan, Clam_Shell, Crab_Shell,
	delitem 7053,50;//Items: Cyfar,
	delitem 7054,10;//Items: Brigan,
	delitem 965,10;//Items: Clam_Shell,
	delitem 964,15;//Items: Crab_Shell,
	getitem 603,1;//Items: Old_Blue_Box,
	mes "[Old Greek]";
	mes "Here's your Box!";
	emotion e_no1;
	next;
	menu "Make another!",L_CREATE2, "It's enough.",-;

L_END:
	mes "[Old Greek]";
	mes "I wish you happy journey, my child.";
	close;

L_NO:
	mes "[Old Greek]";
	mes "Alas, my child. You haven't brought enough materials...";
	close;
}