From 940a8c701a650252017dc89408194044b719c3b4 Mon Sep 17 00:00:00 2001 From: Jesusaves Date: Tue, 16 Mar 2021 23:19:28 -0300 Subject: As suggested, make Valentine Day event repeatable. Remove 2021's rewards. It has been one month, after all... Blue Wolf Helmet code was removed. --- world/map/npc/009-1/event.txt | 44 +++++++++++++++++++++++----------- world/map/npc/functions/clear_vars.txt | 19 --------------- 2 files changed, 30 insertions(+), 33 deletions(-) (limited to 'world') diff --git a/world/map/npc/009-1/event.txt b/world/map/npc/009-1/event.txt index bd03a0ca..4b2a65d8 100644 --- a/world/map/npc/009-1/event.txt +++ b/world/map/npc/009-1/event.txt @@ -1,19 +1,20 @@ // Kytty <3 Valentine Day 2021 // Valentine Day 2021-02-14 script authored by Jesusalva on the 12th -// WARNING: Rewards handled by clear_vars.txt - change it before re-enabling event +// St. Valentine Day is always on the 14th, the event goes from 13th to 15th 009-1,30,34,0|script|Kytty|430 { // Core Variable Switcher if (gettime(5) >= 13 && gettime(5) <= 15) goto L_Quest; - if (gettime(5) > 15 && strcharinfo(0) == "kytty" && $VALENTINE2021) goto L_StopEvent; - if (gettime(5) > 15 && GM >= GM_DEV && $VALENTINE2021) goto L_ReadOnly; + if (gettime(5) > 15 && strcharinfo(0) == "kytty" && $VALENTINE) goto L_StopEvent; + if (gettime(5) > 15 && #VALENTINE) goto L_ClaimRewards; + if (gettime(5) > 15 && GM >= GM_DEV && $VALENTINE) goto L_ReadOnly; mes "[Kytty]"; mes "\"Uh? Hello there. I am looking for my husband to stare at him, don't mind me.\""; close; L_Quest: - if (#VALENTINE2021) goto L_Running; + if (#VALENTINE) goto L_Running; // Core dialog mes "[Kytty]"; mes "\"Hey, "+strcharinfo(0)+"! I have a problem and perhaps you can help me!\""; @@ -62,7 +63,7 @@ L_Check: delitem "ChocolateCake", 1; getitem "LovePotion", 1; getexp 50000, 0; - set #VALENTINE2021, 1; + set #VALENTINE, 1; mes "[Kytty]"; mes "\"With this, he will totally stare only at me now! Thanks for the help. Here, you can have an extra, but you are not cute like him so don't blame me if it don't work or present... side effects.\""; next; @@ -86,7 +87,7 @@ L_Running: getinventorylist; if (@inventorylist_count == 100) goto L_Full; mes "[Kytty]"; - mes "\"Have you brought me more chocolate? I am starving with only "+$VALENTINE2021+" [@@509|@@]. You ##Bonly##b gave me "+(#VALENTINE2021-1)+" bar(s), after all!\""; + mes "\"Have you brought me more chocolate? I am starving with only "+$VALENTINE+" [@@509|@@]. You ##Bonly##b gave me "+(#VALENTINE-1)+" bar(s), after all!\""; next; menu "Not yet, but I'll be back.", L_Close, @@ -95,13 +96,13 @@ L_Running: L_Collect: mes ""; set @choco, countitem("ChocolateBar"); - set @bonus, (#VALENTINE2021%50)+@choco; + set @bonus, (#VALENTINE%50)+@choco; set @potio, @bonus/50; //debugmes "Choco "+@choco+" Potio "+@potio+" Bonus "+@bonus+"."; set @bonus, 0; delitem "ChocolateBar", @choco; - set #VALENTINE2021, #VALENTINE2021+@choco; - set $VALENTINE2021, $VALENTINE2021+@choco; + set #VALENTINE, #VALENTINE+@choco; + set $VALENTINE, $VALENTINE+@choco; getexp @choco*15, @choco*7; if (@potio) goto L_BonusPots; mes "[Kytty]"; @@ -116,18 +117,33 @@ L_BonusPots: L_StopEvent: mes "[Kytty]"; - mes "\"Hey other me! I still have "+$VALENTINE2021+" chocolate bars, but I'm a NPC and cannot eat them, so here they are!\""; + mes "\"Hey other me! I still have "+$VALENTINE+" chocolate bars, but I'm a NPC and cannot eat them, so here they are!\""; next; - set @choco, min($VALENTINE2021, 30000); + set @choco, min($VALENTINE, 30000); getitem "ChocolateBar", @choco; - set $VALENTINE2021, $VALENTINE2021-@choco; + set $VALENTINE, $VALENTINE-@choco; mes "[Kytty]"; mes "\"Also: Jesusalva asked me to wish you a happy Valentine Day.\""; close; L_ReadOnly: mes "[Kytty]"; - mes "\"I'm still holding on "+$VALENTINE2021+" chocolate bars, but I'll eat them soon!\""; + mes "\"I'm still holding on "+$VALENTINE+" chocolate bars, but I'll eat them soon!\""; + close; + +//////////////////////////////////////////////////////////////////// +L_ClaimRewards: + if(!#VALENTINE) goto L_Close; + getinventorylist; + if (@inventorylist_count > 95) goto L_Full; + setarray @oldstock$, "GrassFedTofu", "Honey", "VeganWater", "FairTradeSoil", "LactoseFreeAcorn", "RawAir", "FreeRangeMoss"; + getitem @oldstock$[rand(getarraysize(@oldstock$))], 1; + cleararray @oldstock$, "", getarraysize(@oldstock$); + //getitem "BlueWolfHelmet", 1; // FIXME? + getitem "ShockSweet", rand(4, 7); + getitem "DarkConcentrationPotion", rand(2, 5); + getexp 1+(#VALENTINE*BaseLevel)/2, 0; + set #VALENTINE, 0; close; //////////////////////////////////////////////////////////////////// @@ -143,7 +159,7 @@ L_On: end; OnInit: - if (gettime(7) == 2021 && gettime(6) == 2) goto L_On; + if (gettime(6) == 2) goto L_On; // NPC shows only in February goto L_Off; OnClock0000: diff --git a/world/map/npc/functions/clear_vars.txt b/world/map/npc/functions/clear_vars.txt index ca58a34e..e98def7d 100644 --- a/world/map/npc/functions/clear_vars.txt +++ b/world/map/npc/functions/clear_vars.txt @@ -396,25 +396,6 @@ S_Bandit: // move Bandit subquest into Nibble 0 of QUEST_Hurnscald return; S_Valentine2021: - if(!#VALENTINE2021) goto S_Return; - getinventorylist; - if (@inventorylist_count > 95) goto S_Return; - setarray @oldstock$, "GrassFedTofu", "Honey", "VeganWater", "FairTradeSoil", "LactoseFreeAcorn", "RawAir", "FreeRangeMoss", "JadeEgg"; - if (BL_ID == 2126454) - getitem "JadeEgg", 1; - else - getitem @oldstock$[rand(getarraysize(@oldstock$))], 1; - cleararray @oldstock$, "", getarraysize(@oldstock$); - if (BL_ID == 2126454 || - BL_ID == 2209083 || - BL_ID == 2277302 || - BL_ID == 2243433 || - BL_ID == 2272906) - getitem "LoveLetter", 1; - getitem "BlueWolfHelmet", 1; - getitem "ShockSweet", rand(4, 7); - getitem "DarkConcentrationPotion", rand(2, 5); - getexp 1+(#VALENTINE2021*BaseLevel)/2, 0; set #VALENTINE2021, 0; return; -- cgit v1.2.3-70-g09d2