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, 0 insertions, 442 deletions
diff --git a/npc/pre-re/events/halloween_2009.txt b/npc/pre-re/events/halloween_2009.txt
deleted file mode 100644
index c3d314d7a..000000000
--- a/npc/pre-re/events/halloween_2009.txt
+++ /dev/null
@@ -1,442 +0,0 @@
-//===== 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