diff options
Diffstat (limited to 'world/map/npc/annuals/halloween/trick_or_treat.txt')
| -rw-r--r-- | world/map/npc/annuals/halloween/trick_or_treat.txt | 332 |
1 files changed, 0 insertions, 332 deletions
diff --git a/world/map/npc/annuals/halloween/trick_or_treat.txt b/world/map/npc/annuals/halloween/trick_or_treat.txt deleted file mode 100644 index 10265382..00000000 --- a/world/map/npc/annuals/halloween/trick_or_treat.txt +++ /dev/null @@ -1,332 +0,0 @@ -// Halloween Annual -// Authors: alastrim, enchilado, o11c, wushin -// See config -function|script|TrickOrTreat -{ - callfunc "HalloweenCheckOld"; - if ($@halloween_time) - goto L_Halloween; - goto L_QuickReturn; - -L_Halloween: - if ((gettimetick(2)-TUT_var < $@halloween_min_age) || (BaseLevel < $@halloween_min_level)) //player must be created at least 1 weeks ago - goto L_QuickReturn; - menu - "Trick or Treat", L_HWQuest, - "[Go to normal NPC dialog]", L_QuickReturn; - -L_HWQuest: - set @mask, getequipid(equip_head); - goto L_Begin; - -L_Begin: - set @karma, (HALLOWEENTIME & 65535); - if (@mask > 0) - goto L_WearingMask; - goto L_NoMask; - -L_WearingMask: - // set the scare factor of the equipped mask - set @mask_index, 0; - set @scare_factor, 1; - goto L_MaskLoop; - -L_MaskLoop: - if ($@halloween_mask_IDs[@mask_index] == @mask) - goto L_FoundMask; - set @mask_index, @mask_index + 1; - if ($@halloween_mask_IDs[@mask_index]) - goto L_MaskLoop; - // not a mask in the list - set @mask, 0; - goto L_MaskDone; - -L_FoundMask: - set @scare_factor, $@halloween_scare_factors[@mask_index]; - if (@mask != 616) - goto L_MaskDone; - mes "\"Aaargh... Gross! This is sick! I can't even look at your face...\""; - goto L_MaskDone; - -L_MaskDone: - set @mask_index, 0; - // check if the mask is in the memory - set @loop, 0; - // Note: we don't handle remembered faces until they get their candy - if (!@mask) - goto L_MaskMemoryNo; - // check if the mask is remembered - goto L_MaskMemoryCheck; - -L_MaskMemoryCheck: - set @tmp, $@halloween_maskmemory[8 * @halloween_npc_id + @loop]; - if (!@tmp) - goto L_MaskMemoryNo; - if (@tmp == @mask) - goto L_MaskMemoryYes; - set @loop, @loop + 1; - if (@loop != $@halloween_memory_count) - goto L_MaskMemoryCheck; - goto L_MaskMemoryNo; - -L_MaskMemoryYes: - // not necessarily true - mes "\"I remember you, " + getitemlink(getequipid(equip_head)) + " person. No more treats for you!\""; - goto L_Close; - -L_MaskMemoryNo: - // player will probably get treats - set @loop, 0; - set @sweets_types, 0; - goto L_Count_Sweets; - -L_Count_Sweets: - if ($@halloween_sweets[@loop] == 0) - goto L_Check_Inventory; - if (countitem($@halloween_sweets[@loop])) - set @sweets_types, @sweets_types + 1; - set @loop, @loop + 1; - goto L_Count_Sweets; - -L_Check_Inventory: - getinventorylist; - if (@inventorylist_count + (@loop - @halloween_invy) > 100) - goto L_Full_Inventory; - if (@mask) - goto L_Check_Karma; - // check if the player's face is remembered - if (HALLOWEENTIME & (1 << (31 - @halloween_npc_id))) - goto L_Remember_Face; - goto L_Tricking_Trick_or_Treat; - -L_Check_Karma: - // NPC Cheater detection starts after max NPCs hit - if (rand($@halloween_num_npcs, 65535) <= @karma) - goto L_Cheater; - // NPC Cheater detection engages at 48 Trick or Treats - if (@karma >= 48) - goto L_Cheater; - if (HALLOWEENTIME & $@halloween_got_big_reward) - goto L_Tricking_Trick_or_Treat; - // assert: @karma < $@halloween_num_npcs - if (rand($@halloween_num_npcs - @karma)) - goto L_Tricking_Trick_or_Treat; - mes "\"All this candy isn't healthy, here take this to have a break from it.\""; - getitem $@halloween_big_reward[rand(getarraysize($@halloween_big_reward))], 1; - set HALLOWEENTIME, HALLOWEENTIME | $@halloween_got_big_reward; - // you get the big reward first, then the main treats - // otherwise it would be too complicated, and/or possibly unfair - goto L_Tricking_Trick_or_Treat; - -L_Cheater: - mes "\"I recognize you despite your mask, you have been taking sweets you do not deserve.\""; - if (@karma != 65535) - set HALLOWEENTIME, HALLOWEENTIME + 1; - goto L_Close; - -L_Remember_Face: - // mes "You've been here before; I remember your face"; - mes "\"I remember your face, " + strcharinfo(0) + ". No more treats for you!\""; - goto L_Close; - -L_Tricking_Trick_or_Treat: - // moved above - mes $@halloween_npc_names$[@halloween_npc_id]; - mes $@halloween_greetings$[@halloween_npc_id]; - next; - // TODO: should we randomize these? (in a subsequent commit) - menu - $@halloween_trick_notscary$[@halloween_npc_id], L_Tricking_Notscary, - $@halloween_trick_scary$[@halloween_npc_id], L_Tricking_Scary, - $@halloween_trick_veryscary$[@halloween_npc_id], L_Tricking_Veryscary; - -L_Tricking_Notscary: - mes $@halloween_npc_names$[@halloween_npc_id]; - mes $@halloween_react_notscary$[@halloween_npc_id]; - goto L_Tricking_Reward; - -L_Tricking_Scary: - mes $@halloween_npc_names$[@halloween_npc_id]; - mes $@halloween_react_scary$[@halloween_npc_id]; - set @scare_factor, @scare_factor * 2; - goto L_Tricking_Reward; - -L_Tricking_Veryscary: - mes $@halloween_npc_names$[@halloween_npc_id]; - mes $@halloween_react_veryscary$[@halloween_npc_id]; - set @scare_factor, @scare_factor * 3; - goto L_Tricking_Reward; - -L_Tricking_Reward: - next; - if (@karma >= 16) - set @scare_factor, rand(@scare_factor / 2, @scare_factor); - if (@karma >= 24) - set @scare_factor, rand(@scare_factor / 3, @scare_factor); - if (@scare_factor < 1) - set @scare_factor, 1; - goto L_Tricking_Reward_Loop; - -L_Tricking_Reward_Loop: - set @random, rand($@halloween_sweets_num); - setarray @getitem_ids, $@halloween_sweets[@random]; - setarray @getitem_counts, 1; - callfunc "CheckInventory"; - if (@check_fail) - set @scare_factor, 0; - if (!@scare_factor) - goto L_Tricking_End; - // NOTE: it gives out one piece at a time, but can loop several times - getitem $@halloween_sweets[@random], 1; - set @scare_factor, @scare_factor - 1; - goto L_Tricking_Reward_Loop; - -L_SetRememberFace: - set HALLOWEENTIME, HALLOWEENTIME | (1 << (31 - @halloween_npc_id)); - goto L_Close; - -L_Tricking_End: - mes $@halloween_npc_names$[@halloween_npc_id]; - mes "\"That should be enough sweets for you. Thanks for participating!\""; - if (!@mask) - goto L_SetRememberFace; - // add the player's mask to the list - set @loop, 7; - goto L_SetRememberMask; - -L_SetRememberMask: - set $@halloween_maskmemory[8 * @halloween_npc_id + @loop], $@halloween_maskmemory[8 * @halloween_npc_id + @loop - 1]; - set @loop, @loop - 1; - if (@loop) - goto L_SetRememberMask; - set $@halloween_maskmemory[8 * @halloween_npc_id], @mask; - set HALLOWEENTIME, HALLOWEENTIME + 1; - goto L_Close; - -L_Full_Inventory: - mes $@halloween_npc_names$[@halloween_npc_id]; - mes "\"You are trying to collect candy but you have no space to carry all the kinds of stuff that I have to offer! Please, save room for more stuff and come back.\""; - goto L_Close; - -L_NoMask: - mes $@halloween_npc_names$[@halloween_npc_id]; - mes "\"Hey " + strcharinfo(0) + ", are you trying to scare me with your face? Interesting! hahaha...\""; - goto L_Close; - -L_Close: - set @tmp, 0; - set @mask, 0; - set @karma, 0; - set @loop, 0; - set @menu, 0; - set @halloween_npc_id, 0; - return; - -L_QuickReturn: - set @halloween_npc_id, 0; - return; -} -function|script|TrickOrTreatTally -{ - set @npc_loop, 0; - set @npc_tally, 0; - goto L_LoopCheck; - -L_LoopCheck: - if (HALLOWEENTIME & (1 << (31 - @npc_loop))) - set @npc_tally, (@npc_tally + 1); - goto L_IncLoop; - -L_IncLoop: - set @npc_loop, (@npc_loop + 1); - if (@npc_loop >= 15) - goto L_Return; - goto L_LoopCheck; - -L_Return: - return; -} -// Checks for an expired event key -// Each new annual event needs a new key -// or it will allow completion from last year -function|script|HalloweenCheckOld -{ - if(HALLOWEENYEAR == $HALLOWEEN_TIME_KEY[5]) - goto L_Return; - goto L_OldMatch; - -L_OldMatch: - set HALLOWEENTIME, 0; - set HALLOWEENYEAR, $HALLOWEEN_TIME_KEY[5]; - goto L_Return; - -L_Return: - return; -} -function|script|HalloweenTree -{ - mes "[Confused Tree]"; - if ((HALLOWEENTIME & 65535) > ($@halloween_num_npcs * 3)) - mes "\"Whoa slow down greedy, leave some candy for the reset of us!\""; - if ((HALLOWEENTIME & 65535) > $@halloween_num_npcs) - mes "\"I see you have ben enjoying trick or treating, I hope you don't get a stomach ache.\""; - if ((HALLOWEENTIME & 65535) <= $@halloween_num_npcs) - mes "\"I love halloween, wearing masks and going trick or treating is so much fun.\""; - goto L_StartMenu; - -L_StartMenu: - menu - "Whats Halloween?", L_Explain, - "Me too!", L_CheckDressed, - "Meh, I like Christmas Better.", L_XmasBetter; - -L_Explain: - mes "\"I've convinced some people throughout the world to help with trick or treating.\""; - next; - set @npc_check_loop, 0; - goto L_NpcCheckLoop; - -L_NpcCheckLoop: - mes $@halloween_npc_names$[@npc_check_loop]; - next; - goto L_NpcCheckInc; - -L_NpcCheckInc: - set @npc_check_loop, (@npc_check_loop + 1); - if (@npc_check_loop >= getarraysize($@halloween_npc_names$)) - goto L_ContinueExplain; - goto L_NpcCheckLoop; - -L_ContinueExplain: - mes "\"Find each person and put on a mask then try to scare them.\""; - next; - mes "\"The scarier you are, the more treats you will be awarded.\""; - next; - mes "\"If you are really scary you could get a rare reward.\""; - next; - goto L_StartMenu; - -L_CheckDressed: - set @head, getequipid(equip_head); - set @chest, getequipid(equip_torso); - set @leg, getequipid(equip_legs); - set @random_mes$, "\" I like your costume.\""; - if ((@head <= 0) && (@chest <= 0) && (@leg <= 0)) - set @random_mes$, "\"Birthday Suit, always a classic.\""; - if ((@head == 615) && (@chest == 870)) - set @random_mes$, "\"How embrassing... we are wearing the same costume.\""; - if ((@head == 617) || (@head == 622) || (@head == 621)) - set @random_mes$, "\"Yar, matey I see that.\""; - if ((@head == 633) || (@head == 1205) || (@chest == 1183) || (@chest == 1184) || (@chest == 1185) || (@chest == 1186) || (@chest == 1187)) - set @random_mes$, "\"Your sense of humor offends me, it's way to early for that.\""; - mes @random_mes$; - goto L_Return; - -L_XmasBetter: - mes "\"Bah, Humbug, Show your Halloween spirit! OOooooOooo\""; - misceffect 302, strcharinfo(0); - goto L_Return; - -L_Return: - return; -} |