summaryrefslogtreecommitdiff
path: root/npc/pre-re/events/halloween_2009.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/pre-re/events/halloween_2009.txt')
-rw-r--r--npc/pre-re/events/halloween_2009.txt442
1 files changed, 442 insertions, 0 deletions
diff --git a/npc/pre-re/events/halloween_2009.txt b/npc/pre-re/events/halloween_2009.txt
new file mode 100644
index 000000000..c3d314d7a
--- /dev/null
+++ b/npc/pre-re/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