d479e29aee
git-svn-id: https://svn.code.sf.net/p/rathena/svn/athena@172 54d463be-8e91-2dee-dedb-b68131a5f0ec
85 lines
3.0 KiB
Plaintext
85 lines
3.0 KiB
Plaintext
//===== eAthena Script =======================================
|
|
//= Berzebub Card Quest Script
|
|
//===== By: ==================================================
|
|
//= jabs <jabbedxorz@hotmail.com>
|
|
//===== Current Version: =====================================
|
|
//= 1.0
|
|
//===== Compatible With: =====================================
|
|
//= Any eAthena Version; RO Episode XX
|
|
//===== Description: =========================================
|
|
//= Quest to get the Berzebub Card
|
|
//===== Additional Comments: =================================
|
|
//= MINE
|
|
//============================================================
|
|
prontera.gat,165,178,8 script Old Woman 103,{
|
|
if(BerzQuest == 1) goto alreadyDone;
|
|
mes "[Old Woman]";
|
|
mes "Greeting lad. I found a really nift item while I was picking mushrooms near Glast Heim";
|
|
next;
|
|
menu "Keep talking", goOn, "Leave", leave;
|
|
|
|
leave:
|
|
mes "[Old Woman]";
|
|
mes "Such a great item I have right here...";
|
|
close;
|
|
|
|
goOn:
|
|
mes "[Old Woman]";
|
|
mes "I have never seen an item like this before. I am told it can be placed inside am accessory that has a slot avaiable in it.";
|
|
next;
|
|
mes "[Old Woman]";
|
|
mes "If you're interested in this item, tell me and I'll tell you what you need for me to make you one of your own. I can only give one of these to each player, so once you finish this quest once, you may not do it again.";
|
|
next;
|
|
menu "Tell me more about it", getInfo, "Nah, I don't care about it", leave;
|
|
|
|
getInfo:
|
|
mes "[Old Woman]";
|
|
mes "I believe the item is called a Berzebub Card. It can make any spell caster cast spells really fast!";
|
|
next;
|
|
mes "[Old Woman]";
|
|
mes "I need all of the following items:";
|
|
mes "^0080FF10^000000 Emperium";
|
|
mes "^0080FF100^000000 Witched Starsand";
|
|
mes "^0080FF200^000000 Needle of Alarm";
|
|
mes "^0080FF10^000000 Worn Out Scrolls";
|
|
mes "^0080FF1^000000 Bible";
|
|
mes "^0080FF1^000000 Wand of the Occult";
|
|
mes "^0080FF20^000000 Opal";
|
|
next;
|
|
menu "I have all that!", checkItems, "I'll get those ASAP", leave;
|
|
|
|
checkItems:
|
|
mes "[Old Woman]";
|
|
mes "Anyone can say they have the items, but do they really have them? Let's take a look here...";
|
|
next;
|
|
if(countitem(714) < 10) goto noItems;
|
|
if(countitem(1061) < 100) goto noItems;
|
|
if(countitem(1095) < 200) goto noItems;
|
|
if(countitem(618) < 10) goto noItems;
|
|
if(countitem(1551) < 1) goto noItems;
|
|
if(countitem(1614) < 1) goto noItems;
|
|
if(countitem(727) < 20) goto noItems;
|
|
delitem 714, 10;
|
|
delitem 1061, 100;
|
|
delitem 1095, 200;
|
|
delitem 618, 10;
|
|
delitem 1551, 1;
|
|
delitem 1614, 1;
|
|
delitem 727, 20;
|
|
getitem 4145, 1;
|
|
set BerzQuest, 1;
|
|
mes "[Old Woman]";
|
|
mes "Well congratulations! You have all the items. Here is your Berzebub Card, just as I promised.";
|
|
close;
|
|
|
|
noItems:
|
|
mes "[Old Woman]";
|
|
mes "I knew you were lying! Get out of here and get those items you sorry excuse for a rock star.";
|
|
close;
|
|
|
|
alreadyDone:
|
|
mes "[Old Woman]";
|
|
mes "Hey I remember you! I already told you that you may only complete this quest once.";
|
|
close;
|
|
}
|