| 1 | //===== eAthena Script ======================================= |
|---|
| 2 | //= Berzebub Card Quest Script |
|---|
| 3 | //===== By: ================================================== |
|---|
| 4 | //= jabs |
|---|
| 5 | //===== Current Version: ===================================== |
|---|
| 6 | //= 1.1 |
|---|
| 7 | //===== Compatible With: ===================================== |
|---|
| 8 | //= Any eAthena Version; RO Episode XX |
|---|
| 9 | //===== Description: ========================================= |
|---|
| 10 | //= Quest to get the Berzebub Card |
|---|
| 11 | //===== Additional Comments: ================================= |
|---|
| 12 | //= 1.1 Fixed ingredients. Was too exploitable [Lupus] |
|---|
| 13 | //============================================================ |
|---|
| 14 | prontera,165,178,8 script Old Woman 103,{ |
|---|
| 15 | mes "[Old Woman]"; |
|---|
| 16 | if(BerzQuest == 1) goto L_Already; |
|---|
| 17 | mes "Greeting lad. I found a really nifty item while I was picking mushrooms near Glast Heim."; |
|---|
| 18 | next; |
|---|
| 19 | menu "Keep talking",-, "Leave", M_Leave; |
|---|
| 20 | |
|---|
| 21 | mes "[Old Woman]"; |
|---|
| 22 | 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."; |
|---|
| 23 | next; |
|---|
| 24 | mes "[Old Woman]"; |
|---|
| 25 | 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."; |
|---|
| 26 | next; |
|---|
| 27 | menu "Tell me more about it",-, "Nah, I don't care about it", M_Leave; |
|---|
| 28 | |
|---|
| 29 | mes "[Old Woman]"; |
|---|
| 30 | mes "I believe the item is called a ^FF0000Berzebub Card^000000. It can make any spell caster cast spells really fast!"; |
|---|
| 31 | next; |
|---|
| 32 | mes "[Old Woman]"; |
|---|
| 33 | mes "I need all of the following items:"; |
|---|
| 34 | mes "^0080FF25^000000 Emperiums"; |
|---|
| 35 | mes "^0080FF100^000000 Witched Starsands"; |
|---|
| 36 | mes "^0080FF200^000000 Needles of Alarm"; |
|---|
| 37 | mes "^0080FF10^000000 Worn Out Scrolls"; |
|---|
| 38 | mes "^0080FF2^000000 Biblies"; |
|---|
| 39 | mes "^0080FF1^000000 Wand of the Occult"; |
|---|
| 40 | mes "^0080FF20^000000 Opals"; |
|---|
| 41 | next; |
|---|
| 42 | menu "I have all that!",-, "I'll get those ASAP", M_Leave; |
|---|
| 43 | |
|---|
| 44 | mes "[Old Woman]"; |
|---|
| 45 | mes "Anyone can say they have the items, but do they really have them? Let's take a look here..."; |
|---|
| 46 | next; |
|---|
| 47 | mes "[Old Woman]"; |
|---|
| 48 | if(countitem(714) < 25 || countitem(1061) < 100 || countitem(1095) < 200 || countitem(618) < 10 || countitem(1551) < 2 || countitem(1614) < 1 || countitem(727) < 20) goto L_noItems; |
|---|
| 49 | delitem 714, 25; |
|---|
| 50 | delitem 1061, 100; |
|---|
| 51 | delitem 1095, 200; |
|---|
| 52 | delitem 618, 10; |
|---|
| 53 | delitem 1551, 2; |
|---|
| 54 | delitem 1614, 1; |
|---|
| 55 | delitem 727, 20; |
|---|
| 56 | getitem 4145, 1; |
|---|
| 57 | set BerzQuest, 1; |
|---|
| 58 | mes "Well congratulations! You have all the items. Here is your ^FF0000Berzebub Card^000000, just as I promised."; |
|---|
| 59 | emotion e_grat; |
|---|
| 60 | close; |
|---|
| 61 | |
|---|
| 62 | M_Leave: |
|---|
| 63 | mes "[Old Woman]"; |
|---|
| 64 | mes "Such a great item I have right here..."; |
|---|
| 65 | close; |
|---|
| 66 | |
|---|
| 67 | L_noItems: |
|---|
| 68 | mes "I knew you were lying! Get out of here and get those items you sorry excuse for a rock star."; |
|---|
| 69 | close; |
|---|
| 70 | |
|---|
| 71 | L_Already: |
|---|
| 72 | mes "Hey I remember you! I already told you that you may only complete this quest once."; |
|---|
| 73 | close; |
|---|
| 74 | } |
|---|
