| 1 | //===== eAthena Script ======================================= |
|---|
| 2 | //= Valentine Event Script |
|---|
| 3 | //===== By: ================================================== |
|---|
| 4 | //= Muad_Dib(Prometheus Project) |
|---|
| 5 | //===== Current Version: ===================================== |
|---|
| 6 | //= 1.01 |
|---|
| 7 | //===== Compatible With: ===================================== |
|---|
| 8 | //= Any Athena Version |
|---|
| 9 | //===== Description: ========================================= |
|---|
| 10 | // |
|---|
| 11 | //===== Additional Comments: ================================= |
|---|
| 12 | //= 07/06/05 : Added 1st Version. [Muad_Dib] |
|---|
| 13 | //= 08/28/05 : Ver. 1.01 Added a missing close; [Muad_Dib] |
|---|
| 14 | //= Converted to eAthena format by Dr.Evil |
|---|
| 15 | //============================================================ |
|---|
| 16 | |
|---|
| 17 | |
|---|
| 18 | // Stephen - Valentine Event Chocolate seller ------------------ |
|---|
| 19 | alberta,26,243,4 script Stephen 58,{ |
|---|
| 20 | mes "[Stephen]"; |
|---|
| 21 | mes "Guess what I've got?"; |
|---|
| 22 | mes "A tasty treat not easily found in Rune-Midgard...."; |
|---|
| 23 | next; |
|---|
| 24 | mes "[Stephen]"; |
|---|
| 25 | mes "Chocolate!"; |
|---|
| 26 | mes "That's right, don't you love chocolate.... I do."; |
|---|
| 27 | mes "And you are in luck, because I'm selling them for only 5,000 zeny a piece!"; |
|---|
| 28 | next; |
|---|
| 29 | menu "I want some chocolate!",M_CHOCO,"No thanks.",-; |
|---|
| 30 | mes "[Stephen]"; |
|---|
| 31 | mes "You don't want any chocolate?"; |
|---|
| 32 | mes "I'm telling you! You'll regret it!"; |
|---|
| 33 | mes "You better get some now... you won't come across Chocolate like this ever again!"; |
|---|
| 34 | mes "Think it over and visit me again sometime."; |
|---|
| 35 | close; |
|---|
| 36 | |
|---|
| 37 | M_CHOCO: |
|---|
| 38 | mes "[Stephen]"; |
|---|
| 39 | mes "Hah!"; |
|---|
| 40 | mes "I knew it!"; |
|---|
| 41 | mes "But I can't sell you more then 5 at once....but, if you really need more...."; |
|---|
| 42 | mes "you can come back again."; |
|---|
| 43 | mes "So how many do you want?"; |
|---|
| 44 | next; |
|---|
| 45 | set @needmon,0; |
|---|
| 46 | input @flag_num; |
|---|
| 47 | if (@flag_num <= 0) goto L_NONE; |
|---|
| 48 | if (@flag_num > 5) goto L_ERR; |
|---|
| 49 | set @needmon,@flag_num*5000; |
|---|
| 50 | if (Zeny < @needmon) goto L_NOTENO; |
|---|
| 51 | set Zeny,Zeny - @needmon; |
|---|
| 52 | getitem 558,@flag_num; |
|---|
| 53 | mes "[Stephen]"; |
|---|
| 54 | mes "There you go!"; |
|---|
| 55 | mes "You can give that to someone as a gift, or enjoy it yourself!"; |
|---|
| 56 | mes "Mmm....sweet chocolate..."; |
|---|
| 57 | mes "Visit me anytime...!"; |
|---|
| 58 | close; |
|---|
| 59 | |
|---|
| 60 | L_ERR: |
|---|
| 61 | mes "[Stephen]"; |
|---|
| 62 | mes "I'm sorry but I can't give you that many."; |
|---|
| 63 | L_NONE: |
|---|
| 64 | close; |
|---|
| 65 | |
|---|
| 66 | L_NOTENO: |
|---|
| 67 | mes "[Stephen]"; |
|---|
| 68 | mes "I'm sorry but it seems you can't afford to buy these off me."; |
|---|
| 69 | close; |
|---|
| 70 | } |
|---|
| 71 | |
|---|
| 72 | // Jainie -- Gives information about Valentine Event ------------------------ |
|---|
| 73 | alberta,29,243,4 script Jainie 53,{ |
|---|
| 74 | mes "[Jainie]"; |
|---|
| 75 | mes "You know what? The chocolate that my boyfriend sells are from me!"; |
|---|
| 76 | mes "I made them by myself."; |
|---|
| 77 | next; |
|---|
| 78 | mes "[Jainie]"; |
|---|
| 79 | mes "You know ... In cetain countries, there's a tradition of presenting chocolates to a person that you love..."; |
|---|
| 80 | mes "They call it, ^3355FFValentine's Day^000000."; |
|---|
| 81 | next; |
|---|
| 82 | mes "[Jainie]"; |
|---|
| 83 | mes "So I gave him my delicious chocolate..."; |
|---|
| 84 | mes "And then he made me cook a lot more..."; |
|---|
| 85 | mes "And now he is selling them to everyone."; |
|---|
| 86 | mes "I guess he really enjoyed it."; |
|---|
| 87 | mes "But, I do feel good when people buy something I have made."; |
|---|
| 88 | next; |
|---|
| 89 | mes "[Jainie]"; |
|---|
| 90 | mes "It would be great if you bought some too..."; |
|---|
| 91 | mes "I will be making chocolates for a while so..."; |
|---|
| 92 | close; |
|---|
| 93 | } |
|---|
| 94 | |
|---|
| 95 | // Carl Orleans -- Valentine Event Chocolate maker ------------------ |
|---|
| 96 | prt_castle,54,34,4 script Carl Orleans 47,{ |
|---|
| 97 | mes "[Carl Orleans]"; |
|---|
| 98 | mes "Yes?"; |
|---|
| 99 | next; |
|---|
| 100 | menu "I want some hand made chocolate...",-,"I'm lost, sorry to bother you.",M_WAT; |
|---|
| 101 | |
|---|
| 102 | mes "[Carl Orleans]"; |
|---|
| 103 | mes "Well, I just might be able to fulfill your needs..."; |
|---|
| 104 | next; |
|---|
| 105 | if (countitem(558) >=3) goto L_ENO; |
|---|
| 106 | mes "I'm sorry you do not have enough Chocolate Bars to do this"; |
|---|
| 107 | close; |
|---|
| 108 | |
|---|
| 109 | L_ENO: |
|---|
| 110 | delitem 558,3; |
|---|
| 111 | mes "[Carl Orleans]"; |
|---|
| 112 | mes "You got 3 pieces of pure chocolate I see."; |
|---|
| 113 | mes "Give them to me..."; |
|---|
| 114 | next; |
|---|
| 115 | mes "Ok, now I will only create my special hand made chocolates if you promise to use it wisely."; |
|---|
| 116 | next; |
|---|
| 117 | mes "....Hmmmmmm....."; |
|---|
| 118 | mes "Well..."; |
|---|
| 119 | next; |
|---|
| 120 | mes "Here."; |
|---|
| 121 | getitem 559,1; |
|---|
| 122 | mes "I hope you give it to someone special, because its a special chocolate."; |
|---|
| 123 | mes "As you know... only I can create this."; |
|---|
| 124 | next; |
|---|
| 125 | mes "Enjoy."; |
|---|
| 126 | close; |
|---|
| 127 | |
|---|
| 128 | M_WAT: |
|---|
| 129 | mes "[Carl Orleans]"; |
|---|
| 130 | mes "Oh..well, if you want me to make some of my special Hand Made Chocolate...."; |
|---|
| 131 | mes "You will need to give me at least ^0000FF 3 Chocolates^000000."; |
|---|
| 132 | next; |
|---|
| 133 | mes "[Carl Orleans]"; |
|---|
| 134 | mes "That's right, only ^0000FF 3 Chocolates^000000"; |
|---|
| 135 | mes "Bring them to me and you'll get what you came for."; |
|---|
| 136 | next; |
|---|
| 137 | mes "[Carl Orleans]"; |
|---|
| 138 | mes "See You."; |
|---|
| 139 | close; |
|---|
| 140 | } |
|---|
