diff options
Diffstat (limited to 'npc/pre-re/events/whiteday.txt')
| -rw-r--r-- | npc/pre-re/events/whiteday.txt | 128 |
1 files changed, 128 insertions, 0 deletions
diff --git a/npc/pre-re/events/whiteday.txt b/npc/pre-re/events/whiteday.txt new file mode 100644 index 000000000..8046bd4c1 --- /dev/null +++ b/npc/pre-re/events/whiteday.txt @@ -0,0 +1,128 @@ +//===== rAthena Script ======================================= +//= White Day Event Script +//===== By: ================================================== +//= 1.0a Muad_Dib (Prometheus Project) +//===== Current Version: ===================================== +//= 1.0a +//===== Compatible With: ===================================== +//= Any Athena Version; RO Episode 6+ +//===== Description: ========================================= +//= Sells candy, candy cane and well baked cookie. +//===== Additional Comments: ================================= +//= 07/06/05 : Added 1st Version. [Muad_Dib] +//= Converted to rAthena format by Dr.Evil +//============================================================ + + +alberta,188,64,4 script Sugar 91,{ + set @maplenum,0; + set @mapleItemID,0; + set @maplePrice,0; + set @maplePriceT,0; + mes "[Sugar]"; + mes "Welcome!"; + mes "How delicious are sweets?"; + mes "My teacher........."; + mes "The sweets craftsman of ARUBERUTA"; + mes "There are sweets that is built hard."; + next; + mes "[Sugar]"; + mes "It was given by the darling person."; + mes "In return of the present ...."; + mes "heartfelt like"; + mes "the sweetness of the present some how."; + next; + menu "Please give me!",-,"I don't need it.",M_END,"The teacher.",M_L1; + + mes "[Sugar]"; + mes "Yes!"; + mes "Select from menu here."; + mes "Since there is a limitation in numbers"; + mes "Not more than ^ff0000 5 pieces^000000."; + mes "are allowed to carry out?"; + next; + menu "Candy",-,"Candy Cane",L0_2,"Well baked cookie",L0_3; + + set @maplePrice,3000; + set @mapleItemID,529; + mes "[Sugar]"; + mes "It is a candy, and the price is"; + mes "3000 Zeny each."; + mes "How many do you like to purchase?"; + next; + goto L_INPUT; +L0_2: + set @maplePrice,4000; + set @mapleItemID,530; + mes "[Sugar]"; + mes "It is a candy cane, and the price is"; + mes "4000 Zeny each."; + mes "How many do you like to purchase?"; + next; + goto L_INPUT; +L0_3: + set @maplePrice,2000; + set @mapleItemID,538; + mes "[Sugar]"; + mes "It is a well baked cookie, and the price is"; + mes "2000 Zeny each."; + mes "How many do you like to purchase?"; + next; + +L_INPUT: + input @maplenum; + if (@maplenum > 5) goto L_ERROR; + if (@maplenum == 0) goto M_END; + set @maplePriceT,@maplePrice*@maplenum; + if (Zeny < @maplePriceT) goto L_ERROR2; + set Zeny,Zeny- @maplePriceT; + getitem @mapleItemID,@maplenum; + mes "[Sugar]"; + mes "Thank you!!!"; + mes "These sweets are really delicious."; + mes "Since my teacher of sweet is the No.1 teacher's in world!"; + mes "Although you may eat by yourself"; + mes "don't eat so much or you'll grow fat."; + mes "Please take care!!!"; + close; + +M_L1: + mes "[Sugar]"; + mes "Yes"; + mes "The teacher of mine"; + mes "is Mr. Kuberu, a sweets craftsman."; + mes "Making sweets under two persons."; + mes "which is allowed to self-train."; + next; + mes "[Sugar]"; + mes "Although selling is seemingly to carried out ...."; + mes "Where he is now?"; + mes "Which I don't know."; + close; + +L_ERROR: + mes "[Sugar]"; + mes "???"; + mes "You seem to have a failure on hearing."; + mes "I will tell you once again?"; + mes "You can only purchase"; + mes "^ff0000 5 pieces^000000 at once."; + next; + goto L_INPUT; + +L_ERROR2: + mes "[Sugar]"; + mes "???"; + mes "Hmmm it seems you don't have enough money"; + mes "to make that purchase."; + mes "I will ask you to check your money first."; + close; + +M_END: + mes "[Sugar]"; + mes "Really .... You might regret it.."; + mes "If you change your mind."; + mes "I am just here ok."; + mes "Have a nice day!"; + close; +} |