diff options
Diffstat (limited to 'npc/events/halloween_2009.txt')
| -rw-r--r-- | npc/events/halloween_2009.txt | 442 |
1 files changed, 442 insertions, 0 deletions
diff --git a/npc/events/halloween_2009.txt b/npc/events/halloween_2009.txt new file mode 100644 index 000000000..c3d314d7a --- /dev/null +++ b/npc/events/halloween_2009.txt @@ -0,0 +1,442 @@ +//===== rAthena Script ======================================= +//= iRO Halloween (2009) +//===== By: ================================================== +//= Kisuka +//===== Current Version: ===================================== +//= 1.1 +//===== Compatible With: ===================================== +//= rAthena SVN +//===== Description: ========================================= +//= iRO Halloween (2009) +//= Quest for Weird Pumpkin Hat. +//= Exchange treats for buffs. +//= Summon event monsters in towns. +//===== Notes: =============================================== +//= You must enable the event items in item_db2. +//= You must enable the event mobs in mob_db2, mob_avail, and +//= their skills in mob_skill_db2. +//===== Additional Comments: ================================= +//= 1.0 First version. [Kisuka] +//= 1.1 Fixed even exploit, fixed mobs overlap. [Lupus] +//============================================================ + +// Headgear Quest - Pumpkin Hat +// ============================ +prontera,152,192,5 script Pumpkin Hat Researcher 712,{ + if(BaseLevel < 45) { + mes "[Pumpkin Hat Researcher]"; + mes "Shoo, I don't need a child. Shoo! I don't talk to novices."; + next; + mes "[Pumpkin Hat Researcher]"; + mes "Go reach a level that can fight with stronger monsters and come back."; + close; + } + mes "[Pumpkin Hat Researcher]"; + mes "Say do you like Pumpkin Pies?"; + next; + mes "[Pumpkin Hat Researcher]"; + mes "I'm a Pumpkin Hat researcher, Why don't you listen to my story?"; + next; + while(1) { + switch(select("Listen to the story.:Ask about Pumpkin Hat.:Get a Pumpkin Hat.:Stop the conversation.")) { + case 1: + mes "[Pumpkin Hat Researcher]"; + mes "I've been studying about an upgraded Pumpkin Hat."; + mes "I have discovered that it is a very simple process."; + next; + mes "[Pumpkin Hat Researcher]"; + mes "The process is quite simple."; + mes "If you bring me ^4a4aff20 Jack o' Pumpkin^000000 I can show you."; + mes "Isn't that a tempting proposal?"; + next; + break; + case 2: + mes "[Pumpkin Hat Researcher]"; + mes "This upgraded pumpkin hat is powerful stuff!"; + next; + mes "[Pumpkin Hat Researcher]"; + mes "It can make a Pumpkin Pie that restores a large percentage of HP & SP using condensed energy to the person who wears it."; + next; + mes "[Pumpkin Hat Researcher]"; + mes "All you need is ^4a4aff20 Jack o' Pumpkin^000000s."; + next; + break; + case 3: + mes "[Pumpkin Hat Researcher]"; + mes "Do you want to get Pumpkin Pies? Okay, let me count the Jack o' Pumpkins you've brought."; + next; + if(countitem(1062) < 20) { + mes "[Pumpkin Hat Researcher]"; + mes "I need ^4a4aff20 Jack o' Pumpkin^000000."; + mes "I'm not an alchemist or a wizard to create something from nothing."; + next; + mes "[Pumpkin Hat Researcher]"; + mes "Okay, go hunting monsters and come back."; + mes "I'm going to stay here for a while so take your time."; + next; + break; + }else{ + mes "[Pumpkin Hat Researcher]"; + mes "I hope this will be useful to you. Don't forget to wear it while fighting to get your Pumpkin Pies."; + delitem 1062,20; // Jack o' Pumpkin + getitem 5668,1; // Weird Pumpkin Hat + next; + mes "[Pumpkin Hat Researcher]"; + mes "I guess that I should get back to my research."; + close; + } + case 4: + mes "[Pumpkin Hat Researcher]"; + mes "Bye, until we'll see each other again."; + mes "I wish you well..."; + close; + } + } +} + +// Buffs - Trick or Treaters +// ========================= +- script Trick or Treater::09Treats 706,2,2,{ +OnTouch: + hideoffnpc strnpcinfo(3); + initnpctimer; + mes "[Trick or Treater]"; + mes "Hooray! hooray! Hooray!"; + mes "Trick or Treat?"; + next; + if(select("Trick.:Treat.") == 1) { + mes "[Trick or Treater]"; + mes "!!!!"; + mes "Fine. I have no choice but to trick you back!"; + sc_start SC_Stun,5000,0; + close; + } + mes "[Trick or Treater]"; + mes "Oh yay! What kind of treat do you have?"; + next; + switch(select("Candy:Candy Cane:Well-baked Cookie:Nothing")) { + case 1: + if(countitem(529) > 0) { + mes "[Trick or Treater]"; + mes "Yay thank you!"; + mes "Here, take this for being so nice!"; + sc_start SC_STRFood, 1800000, 5; + sc_start SC_INTFood, 1800000, 5; + sc_start SC_VITFood, 1800000, 5; + sc_start SC_AGIFood, 1800000, 5; + sc_start SC_DEXFood, 1800000, 5; + sc_start SC_LUKFood, 1800000, 5; + sc_start SC_FLEEFOOD, 1800000, 15; + delitem 529,1; // Candy + close; + }else{ + mes "[Trick or Treater]"; + mes "At least a Candy, a Candy Cane or a Well-baked Cookie is all I ask for a treat."; + mes "Fine. I have no choice but to trick you!"; + sc_start SC_Stun,5000,0; + close; + } + case 2: + if(countitem(530) > 0) { + mes "[Trick or Treater]"; + mes "Yay thank you!"; + mes "Here, take this for being so nice!"; + sc_start SC_STRFood, 1800000, 5; + sc_start SC_INTFood, 1800000, 5; + sc_start SC_VITFood, 1800000, 5; + sc_start SC_AGIFood, 1800000, 5; + sc_start SC_DEXFood, 1800000, 5; + sc_start SC_LUKFood, 1800000, 5; + sc_start SC_FLEEFOOD, 1800000, 15; + delitem 530,1; // Candy Cane + close; + }else{ + mes "[Trick or Treater]"; + mes "At least a Candy, a Candy Cane or a Well-baked Cookie is all I ask for a treat."; + mes "Fine. I have no choice but to trick you!"; + sc_start SC_Stun,5000,0; + close; + } + case 3: + if(countitem(538) > 0) { + mes "[Trick or Treater]"; + mes "Yay thank you!"; + mes "Here, take this for being so nice!"; + sc_start SC_STRFood, 1800000, 5; + sc_start SC_INTFood, 1800000, 5; + sc_start SC_VITFood, 1800000, 5; + sc_start SC_AGIFood, 1800000, 5; + sc_start SC_DEXFood, 1800000, 5; + sc_start SC_LUKFood, 1800000, 5; + sc_start SC_FLEEFOOD, 1800000, 15; + delitem 538,1; // Well-baked Cookie + close; + }else{ + mes "[Trick or Treater]"; + mes "At least a Candy, a Candy Cane or a Well-baked Cookie is all I ask for a treat."; + mes "Fine. I have no choice but to trick you!"; + sc_start SC_Stun,5000,0; + close; + } + case 4: + mes "[Trick or Treater]"; + mes "At least a Candy, a Candy Cane or a Well-baked Cookie is all I ask for a treat."; + mes "Fine. I have no choice but to trick you!"; + sc_start SC_Stun,5000,0; + close; + } +OnInit: + hideonnpc "Trick or Treater#iRO1"; + hideonnpc "Trick or Treater#iRO2"; + hideonnpc "Trick or Treater#iRO3"; + hideonnpc "Trick or Treater#iRO4"; + hideonnpc "Trick or Treater#iRO5"; + hideonnpc "Trick or Treater#iRO6"; + hideonnpc "Trick or Treater#iRO7"; + hideonnpc "Trick or Treater#iRO8"; + end; + +OnEnableTreat: + enablenpc strnpcinfo(3); + hideonnpc strnpcinfo(3); + end; + +OnTimer15000: + hideonnpc strnpcinfo(3); + disablenpc strnpcinfo(3); + end; + +OnTimer300000: + donpcevent strnpcinfo(3)+"::OnEnableTreat"; + stopnpctimer; + end; +} +prontera,151,173,5 duplicate(09Treats) Trick or Treater#iRO1 706,2,2 +prontera,270,350,5 duplicate(09Treats) Trick or Treater#iRO2 706,2,2 +prontera,234,310,5 duplicate(09Treats) Trick or Treater#iRO3 706,2,2 +prontera,156,321,5 duplicate(09Treats) Trick or Treater#iRO4 706,2,2 +prontera,156,283,5 duplicate(09Treats) Trick or Treater#iRO5 706,2,2 +prontera,142,214,5 duplicate(09Treats) Trick or Treater#iRO6 706,2,2 +prontera,134,125,5 duplicate(09Treats) Trick or Treater#iRO7 706,2,2 +prontera,220,72,5 duplicate(09Treats) Trick or Treater#iRO8 706,2,2 + +// Monster Summoning - Halloween Wizard +// ==================================== +- script Halloween Wizard#iRO09::09HallowWiz 737,{ + mes "[Halloween Wizard]"; + mes "..."; + mes "Do you want to play a trick on someone?"; + next; + while(1) { + switch(select("What trick?:Sure:No.")) { + case 1: + mes "[Halloween Wizard]"; + mes "I can summon monsters in other parts of the world with just a few materials."; + next; + mes "[Halloween Wizard]"; + mes "Sounds interesting huh?"; + next; + mes "[Halloween Wizard]"; + mes "If you bring me Fabric, Jack o' Pumpkins, Worn Fabric, or Crushed Pumpkins I can summon the monsters."; + next; + break; + case 2: + mes "[Halloween Wizard]"; + mes "Which town do you want to play a trick on?"; + next; + getmapxy(.@mapname$,.@mapx,.@mapy,0,""+strcharinfo(0)+""); + if (.@mapname$ == "prontera") { + switch(select("Geffen:Payon:Alberta:Aldebaran")) { + case 1: + set .@HallowTown,3; + break; + case 2: + set .@HallowTown,2; + break; + case 3: + set .@HallowTown,4; + break; + case 4: + set .@HallowTown,5; + break; + } + } + else if (.@mapname$ == "payon") { + switch(select("Prontera:Geffen:Alberta:Aldebaran")) { + case 1: + set .@HallowTown,1; + break; + case 2: + set .@HallowTown,3; + break; + case 3: + set .@HallowTown,4; + break; + case 4: + set .@HallowTown,5; + break; + } + } + else if (.@mapname$ == "geffen") { + switch(select("Prontera:Payon:Alberta:Aldebaran")) { + case 1: + set .@HallowTown,1; + break; + case 2: + set .@HallowTown,2; + break; + case 3: + set .@HallowTown,4; + break; + case 4: + set .@HallowTown,5; + break; + } + } + else if (.@mapname$ == "alberta") { + switch(select("Prontera:Geffen:Payon:Aldebaran")) { + case 1: + set .@HallowTown,1; + break; + case 2: + set .@HallowTown,3; + break; + case 3: + set .@HallowTown,2; + break; + case 4: + set .@HallowTown,5; + break; + } + } + else if (.@mapname$ == "aldebaran") { + switch(select("Prontera:Geffen:Payon:Alberta")) { + case 1: + set .@HallowTown,1; + break; + case 2: + set .@HallowTown,3; + break; + case 3: + set .@HallowTown,2; + break; + case 4: + set .@HallowTown,4; + break; + } + } + setarray .@HallowTowns$[1],"prontera","payon","geffen","alberta","aldebaran"; + mes "[Halloween Wizard]"; + mes "Ok then let's go to the next step."; + next; + mes "[Halloween Wizard]"; + mes "How many Fabrics or Jack o' Pumpkins do you want to use? Don't go over 100 because that is the max amount that I can use."; + next; + input .@input; + if (.@input == 0) { + mes "[Halloween Wizard]"; + mes "You have no definite idea."; + mes "It's not a big deal."; + mes "Let me know."; + next; + break; + } + else if (.@input > 100) { + mes "[Halloween Wizard]"; + mes "I told you that it must be between 1 to 100!"; + mes "You didn't pay attention!"; + next; + break; + } + else { + set .@fabric,countitem(1059); + set .@jack,countitem(1062); + set .@worn,countitem(6299); + set .@crushed,countitem(6298); + set .@whispers,0; + set .@darklords,0; + + set .@total,.@fabric + .@jack + .@worn + .@crushed; + + if(.@total < .@input) { + mes "[Halloween Wizard]"; + mes "Recount the number of items you have and tell me the total."; + mes "Huhuhuhuhuhu..."; + next; + break; + } + + if(.@fabric > 0) { + if(.@fabric >= .@input) { + delitem 1059,.@input; + set .@whispers,.@whispers+.@input; + set .@input,0; + } + else{ + delitem 1059,.@fabric; + set .@input,.@input - .@fabric; + set .@whispers,.@whispers+.@fabric; + } + } + if(.@worn > 0 && .@input != 0) { + if(.@worn >= .@input) { + delitem 6299,.@input; + set .@whispers,.@whispers+.@input; + set .@input,0; + } + else{ + delitem 6299,.@worn; + set .@input,.@input - .@worn; + set .@whispers,.@whispers+.@worn; + } + } + if(.@jack > 0 && .@input != 0) { + if(.@jack >= .@input) { + delitem 1062,.@input; + set .@darklords,.@darklords+.@input; + set .@input,0; + } + else{ + delitem 1062,.@jack; + set .@input,.@input - .@jack; + set .@darklords,.@darklords+.@jack; + } + } + if(.@crushed > 0 && .@input != 0) { + if(.@crushed >= .@input) { + delitem 6298,.@input; + set .@darklords,.@darklords+.@input; + set .@input,0; + } + else{ + delitem 6298,.@crushed; + set .@input,.@input - .@crushed; + set .@darklords,.@darklords+.@crushed; + } + } + if (.@input > 0) { + mes "Theres a problem."; + close; + } + monster ""+.@HallowTowns$[.@HallowTown]+"",0,0,"Halloween Whisper",3014,.@whispers; + monster ""+.@HallowTowns$[.@HallowTown]+"",0,0,"Halloween Dark Lord",3015,.@darklords; + mes "[Halloween Wizard]"; + mes "Here's what you wanted."; + mes "Imagine what the people must be thinking in the other villages?"; + mes "Muahahaha"; + close; + } + case 3: + mes "[Halloween Wizard]"; + mes "If you change your mind, come back here..."; + mes "I'll stay here for a while..."; + mes "Kkkk..."; + close; + } + } +} +prontera,156,195,5 duplicate(09HallowWiz) Halloween Wizard#1 737 +geffen,133,122,5 duplicate(09HallowWiz) Halloween Wizard#2 737 +payon,156,196,5 duplicate(09HallowWiz) Halloween Wizard#3 737 +alberta,96,57,5 duplicate(09HallowWiz) Halloween Wizard#4 737 +aldebaran,146,122,5 duplicate(09HallowWiz) Halloween Wizard#5 737 |