Allure 0.9.5.0 → 0.10.2.0

raw patch · 45 files changed

+12662/−8483 lines, 45 filesdep +containersdep +file-embeddep +hsinidep −randomdep ~LambdaHackdep ~template-haskellbinary-addedPVP ok

version bump matches the API change (PVP)

Dependencies added: containers, file-embed, hsini, splitmix, tasty, tasty-hunit, th-lift-instances

Dependencies removed: random

Dependency ranges changed: LambdaHack, template-haskell

API changes (from Hackage documentation)

Files

• Allure.cabal +81/−56
• CHANGELOG.md +736/−2
• COPYLEFT +96/−6
• CREDITS +0/−52
• GameDefinition/Content/CaveKind.hs +408/−309
• GameDefinition/Content/ItemKind.hs +2837/−1885
• GameDefinition/Content/ItemKindActor.hs +628/−360
• GameDefinition/Content/ItemKindBlast.hs +420/−181
• GameDefinition/Content/ItemKindEmbed.hs +702/−150
• GameDefinition/Content/ItemKindOrgan.hs +1146/−603
• GameDefinition/Content/ItemKindTemporary.hs +174/−79
• GameDefinition/Content/ModeKind.hs +465/−229
• GameDefinition/Content/ModeKindPlayer.hs +26/−25
• GameDefinition/Content/PlaceKind.hs +1876/−1593
• GameDefinition/Content/RuleKind.hs +19/−11
• GameDefinition/Content/TileKind.hs +1451/−874
• GameDefinition/InGameHelp.txt +0/−184
• GameDefinition/Main.hs +1/−1
• GameDefinition/MainMenu.ascii +0/−45
• GameDefinition/MoveKeys.txt +0/−20
• GameDefinition/PLAYING.md +568/−264
• GameDefinition/config.ui.default +98/−21
• GameDefinition/fonts/BinaryCodeProLH-Bold.ttf.woff binary
• GameDefinition/fonts/BinarySansProLH-Regular.ttf.woff binary
• GameDefinition/fonts/BinarySansProLH-Semibold.ttf.woff binary
• GameDefinition/fonts/DejaVuLGCSans-Bold.ttf.woff binary
• GameDefinition/fonts/DejaVuLGCSans.ttf.woff binary
• GameDefinition/fonts/Fix15Mono-Bold.woff binary
• GameDefinition/fonts/Hack-Bold.ttf.woff binary
• GameDefinition/fonts/LICENSE.16x16x +0/−339
• GameDefinition/fonts/LICENSE.Fix15Mono-Bold +0/−94
• GameDefinition/fonts/ubuntu-mono-v9-latin-ext_latin-700.ttf.woff binary
• GameDefinition/fonts/ubuntu-v14-latin-ext_latin-500.ttf.woff binary
• GameDefinition/fonts/ubuntu-v14-latin-ext_latin-regular.ttf.woff binary
• GameDefinition/game-src/Client/UI/Content/Input.hs +127/−139
• GameDefinition/game-src/Client/UI/Content/Screen.hs +24/−34
• GameDefinition/game-src/Implementation/MonadClientImplementation.hs +4/−19
• GameDefinition/game-src/Implementation/MonadServerImplementation.hs +9/−21
• GameDefinition/game-src/TieKnot.hs +29/−16
• LICENSE +0/−661
• Makefile +156/−125
• README.md +107/−62
• test/SessionUIMock.hs +148/−0
• test/Spec.hs +326/−0
• test/test.hs +0/−23

@@ -1,64 +1,62 @@ cabal-version: 2.2-name:           Allure+name:          Allure -- The package version. See the Haskell package versioning policy (PVP) -- for standards guiding when and how versions should be incremented. -- http://www.haskell.org/haskellwiki/Package_versioning_policy -- PVP summary:+-+------- breaking API changes---             | | +----- minor or non-breaking API additions---             | | | +--- code changes with no API change-version:       0.9.5.0+--             | |  +----- minor or non-breaking API additions+--             | |  | +--- code changes with no API change+version:       0.10.2.0 synopsis:      Near-future Sci-Fi roguelike and tactical squad combat game-description:   Allure of the Stars is a near-future Sci-Fi roguelike-               and tactical squad combat game. Binaries and the game manual-               are available at the homepage, where you can also-               try the game out in the browser:-               <http://allureofthestars.com/play>.-               (It runs fastest on Chrome. Keyboard commands and savefiles-               are supported only on recent enough versions of browsers.-               Mouse should work everywhere.)-               .-               Not a single picture in this game. You have to imagine everything-               yourself, like with a book (a grown-up book, without pictures).-               Once you learn to imagine things, though, you can keep exploring-               and mastering the world and making up stories for a long time.-               .-               The game is written in Haskell using the LambdaHack roguelike-               game engine <http://hackage.haskell.org/package/LambdaHack>.-               Please see the changelog file for recent improvements-               and the issue tracker for short-term plans. Long term goals-               are high replayability and auto-balancing through procedural-               content generation and persistent content modification-               based on player behaviour. Contributions are welcome.-               .-               This is a workaround .cabal file, flattened to eliminated-               internal libraries until generating haddocks for them-               is fixed. The original .cabal file is stored in the github repo.+description: Allure of the Stars is a near-future Sci-Fi roguelike+             and tactical squad combat game. Binaries and the game manual+             are available at the homepage. You can also try the game out+             in the browser at <http://allureofthestars.com/play>.+             .+             Not a single image in this game. You have to imagine everything+             yourself, like with a book (a grown-up book, without pictures).+             Once you learn to imagine things, though, you can keep exploring+             and mastering the world and making up stories for a long time.+             .+             The game is written in Haskell using the LambdaHack roguelike+             game engine <http://hackage.haskell.org/package/LambdaHack>.+             Please see the changelog file for recent improvements+             and the issue tracker for short-term plans. Long term goals+             are high replayability and auto-balancing through procedural+             content generation and persistent content modification+             based on player behaviour. Contributions are welcome.+             .+             This is a workaround .cabal file, flattened to eliminate+             internal libraries until generating haddocks for them+             is fixed. The original .cabal file is stored in the github repo. homepage:      http://allureofthestars.com bug-reports:   http://github.com/AllureOfTheStars/Allure/issues license:       AGPL-3.0-or-later license-file:  COPYLEFT-tested-with:   GHC==8.2.2, GHC==8.4.4, GHC==8.6.5-data-files:    GameDefinition/config.ui.default,-               GameDefinition/fonts/16x16xw.woff,-               GameDefinition/fonts/16x16xw.bdf,-               GameDefinition/fonts/16x16x.fnt,-               GameDefinition/fonts/8x8xb.fnt,-               GameDefinition/fonts/8x8x.fnt,-               GameDefinition/fonts/LICENSE.16x16x,-               GameDefinition/fonts/Fix15Mono-Bold.woff,-               GameDefinition/fonts/LICENSE.Fix15Mono-Bold,-               GameDefinition/InGameHelp.txt,-               GameDefinition/PLAYING.md,-               README.md,-               CHANGELOG.md,-               LICENSE,-               COPYLEFT,-               CREDITS+tested-with:   GHC==8.2.2, GHC==8.4.4, GHC==8.6.5, GHC==8.8.4, GHC==8.10.4,+               GHC==9.0.1+-- Enough files is included to build and run CI and manual tests+-- and be presentable on Hackage, but not enough to create+-- a user-friendly binary package, e.g., no InGameHelp.txt. extra-source-files: GameDefinition/config.ui.default,-                    GameDefinition/MainMenu.ascii,-                    GameDefinition/MoveKeys.txt,                     GameDefinition/PLAYING.md,-                    Makefile+                    GameDefinition/fonts/16x16xw.woff,+                    GameDefinition/fonts/16x16xw.bdf,+                    GameDefinition/fonts/16x16x.fnt,+                    GameDefinition/fonts/8x8xb.fnt,+                    GameDefinition/fonts/8x8x.fnt,+                    GameDefinition/fonts/BinarySansProLH-Regular.ttf.woff,+                    GameDefinition/fonts/BinarySansProLH-Semibold.ttf.woff,+                    GameDefinition/fonts/BinaryCodeProLH-Bold.ttf.woff,+                    GameDefinition/fonts/DejaVuLGCSans.ttf.woff,+                    GameDefinition/fonts/DejaVuLGCSans-Bold.ttf.woff,+                    GameDefinition/fonts/Hack-Bold.ttf.woff,+                    GameDefinition/fonts/ubuntu-v14-latin-ext_latin-regular.ttf.woff,+                    GameDefinition/fonts/ubuntu-v14-latin-ext_latin-500.ttf.woff,+                    GameDefinition/fonts/ubuntu-mono-v9-latin-ext_latin-700.ttf.woff,+                    Makefile,+                    CHANGELOG.md,+                    README.md author:        Andres Loeh, Mikolaj Konarski and others maintainer:    Mikolaj Konarski <mikolaj.konarski@funktory.com> category:      Game@@ -68,6 +66,16 @@   type:               git   location:           git://github.com/AllureOfTheStars/Allure.git +flag with_expensive_assertions+  description:        turn on expensive assertions of well-tested code+  default:            False+  manual:             True++flag release+  description:        prepare for a release (expose internal functions and types, etc.)+  default:            True+  manual:             True+ flag supportNodeJS   description:        compile so that the JS blob works in terminal with NodeJS   default:            True@@ -78,22 +86,29 @@   default-extensions: MonoLocalBinds, ScopedTypeVariables, OverloadedStrings                       BangPatterns, RecordWildCards, NamedFieldPuns, MultiWayIf,                       LambdaCase, DefaultSignatures, InstanceSigs,-                      MonadFailDesugaring, StrictData, CPP+                      PatternSynonyms, StrictData, CPP   other-extensions:   TemplateHaskell, MultiParamTypeClasses, RankNTypes,                       TypeFamilies, FlexibleContexts, FlexibleInstances,                       DeriveFunctor, FunctionalDependencies,                       GeneralizedNewtypeDeriving, TupleSections,                       DeriveFoldable, DeriveTraversable,                       ExistentialQuantification, GADTs, StandaloneDeriving,-                      DataKinds, KindSignatures, DeriveGeneric+                      DataKinds, KindSignatures, DeriveGeneric, DeriveLift   ghc-options:        -Wall -Wcompat -Worphans -Wincomplete-uni-patterns -Wincomplete-record-updates -Wimplicit-prelude -Wmissing-home-modules -Widentities -Wredundant-constraints -Wmissing-export-lists -Wpartial-fields   ghc-options:        -Wall-missed-specialisations   ghc-options:        -fno-ignore-asserts -fexpose-all-unfoldings -fspecialise-aggressively -fsimpl-tick-factor=200 -  cpp-options:        -DEXPOSE_INTERNAL+  if flag(with_expensive_assertions)+    cpp-options:      -DWITH_EXPENSIVE_ASSERTIONS +  if flag(release)+    cpp-options:      -DEXPOSE_INTERNAL+   ghcjs-options:      -DUSE_JSFILE +  if !flag(supportNodeJS)+    ghcjs-options:    -DREMOVE_TELETYPE+ common exe-options   ghc-options:        -threaded -rtsopts -- (Ignored by GHCJS) Minimize median lag at the cost of occasional bigger@@ -134,17 +149,20 @@                       Implementation.MonadServerImplementation   other-modules:      Paths_Allure   autogen-modules:    Paths_Allure-  build-depends:      ,LambdaHack >= 0.9.5.0 && < 0.9.6.0+  build-depends:      ,LambdaHack >= 0.10.2.0 && < 0.10.3.0                       ,async                       ,base >= 4.10 && < 99                       ,enummapset+                      ,file-embed >= 0.0.11                       ,filepath+                      ,hsini                       ,ghc-compact                       ,optparse-applicative                       ,primitive-                      ,random-                      ,template-haskell >= 2.6+                      ,splitmix+                      ,template-haskell                       ,text+                      ,th-lift-instances                       ,transformers  executable Allure@@ -160,10 +178,17 @@ test-suite test   import: options, exe-options   type:               exitcode-stdio-1.0-  main-is:            test/test.hs+  hs-source-dirs:     test+  main-is:            Spec.hs+  other-modules:      SessionUIMock   build-depends:      ,LambdaHack                       ,Allure                       ,async                       ,base+                      ,containers                       ,filepath                       ,optparse-applicative+                      ,tasty >= 1.0+                      ,tasty-hunit+                      ,text+                      ,transformers

@@ -1,5 +1,739 @@-## [v0.9.5.0](https://github.com/LambdaHack/LambdaHack/compare/v0.9.4.0...v0.9.5.0)+## [v0.10.2.0](https://github.com/AllureOfTheStars/Allure/compare/v0.9.5.0...v0.10.2.0) +- Make GLASS_HAIL less deadly and less noisy visually+- Advertise the C-Tab command instead of A-Tab+- Tweak some wearables rarity+- Make intruder's explosions less deadly+- Disable testing ubuntu fonts, because they can't be distributed in Debian+- Be more consistent about moving corrupted files aside+- Make torches a bit more common+- Help AI not to leave a scout guarding the stash+- Ensure some gems in escape scenario+- Prevent occasionally few gardening tools+- Make explosions definitions small and symmetric again+- Fix heroes starting on exit in escape scenario+- Reword some scenario texts+- Change organ symbols to avoid 'eat' when activating them+- Make gardening tools less common, but keep metal pipes+- Fix 'Letting Go' message, because it could get activated+- Hack buckler definition once more+- Hack shield definitions to help AI understand their value+- Explain in Q&A why sometimes timeout weapons are never used+- Fix backstories, because they can be manually triggered+- Replace the special periodic activation handling with effect conditions+- Fix the healing necklace better used from the backpack+- Replace the special effect handling under ranged with effect condition+- Reduce and describe the micromanagement of bucklers and shields+- Fix Letting Go not identifying even at death+- Fix typos in content texts+- Update documentation files+- Add a group for exlusively tools; unused ATM+- Fix small oil explosions never getting anywhere+- Reword initial scenario texts+- Talk about the relevant lore command in manual+- Signal that lore command is sometimes context-sensitive+- Simplify desertedAirlock description+- Reword a virtue description+- Make embeds easier to recognize knowing their tiles+- Don't end stairs with a path+- Don't describe the goal tile when performing mouse goto+- Declare the codebase lens-free+- Explain why whiskey not drunk, but smashed only+- Improve initial level descriptions+- Reword backstoryNeutral3+- Avoid distributing test.exe in Windows packages+- Fix comments about easy stairs vs hard stairs+- Fix intruders not exploding on death+- Fix Heavy Eyes preventing reaching level 4+- Remove savefiles if config file too old+- Use lz-string.js externs for minification+- Update LambdaHack.cabal.flattened+- Make focused explosions more likely to hit nearby actors+- Let one more common embed provide bad missiles+- Hlint the codebase+- Provide an excuse why the flask from fire cabinet is not identified+- Make barrels less common in raid tutorial+- Explain the flags of genetic flaw+- Avoid 'you are less more tidy'+- Help the raid scenario opponent survive a little longer+- Prevent too many torches in raid, causing blindness+- Use MinorAspects flag for backstories+- Do not include the default config file that Windows users can't read anyway+- Read config file in UTF8 mode even on Windows+- Prevent premature identification of 'Letting Go'+- Prevent premature identification of backstory items+- Update the copyright year+- Update manual wrt backstory items addition+- Add a comment about geneticFlaw not in CONDITION group+- Reorder actor and organ content+- Give the new alien a unique and glaring colour+- Shorten a backstory name to pass validation+- Make sure the backstory descriptions are actually a backstory+- Register the recently added backstory items+- Add bravery virtue+- Add alcoholist backstory item+- Add three more backstories and unify names+- Add two more vices+- Use question marks in verb effects+- Try to amass explosive monsters on arena levels+- Add an alien with an explosive organ (fixes #108)+- Add the explosive flotation bag organ+- Make sure hero professions are not randomly changing+- Hardwire the player team continuity token+- Unify and shorter backstory group names+- Flesh out initial backstory items+- Change the symbol of backstory items+- Use the flavours specialized for stories+- For now, assign heroes a backstory from a mix of all categories+- Mock up categories of backstory content items+- Add the first backstory organ+- Make sure heroes spawned in safari mode are properly numbered+- Add a few more hero names+- Mark the personal genetic flaws as meta game persistent, as they should be+- Express variety of genetic flaws as multiple content items+- Add team continuity across scenarios to content+- Make buckler and shield attacks and messages not so spammy+- Fix bucklers too powerful and shields too weak when UnderRanged activates+- Describe the new challenges in the manual+- Make shields more common and attractive to AI+- Add UnderMelee and tweak the Old Gorget+- Add a potion of melee deflection+- Buff shields with ranged deflection+- Add deflection temporary conditions+- Explain the pointman/leader discrepancy+- Write key names as on the keyboard, button names as in the button+- Unify pluralization of skills and challenges+- Mark some game modes as tutorials+- Split a list in manual in many paragraphs for better in-game display+- Keep the rest of the manual in content+- Simplify an address in manual not to spill over 80 columns+- Hint in config file to disable the special movement keys+- Hint that stealth if possible and AI vs player symmetric+- Limit mentions of 'playing' not to break immersion+- Change 'scenario' to 'adventure' to be more immersive+- Add a scenario lore menu+- Mention that scale needs to be configured for high dpi displays+- Add the fullscreen option to the UI config file+- Don't configure the unused data directories when invoking cabal+- When installing don't create the now empty GameDefinition/fonts/+- Don't limit jobs to 1 now that cabal shows errors fine+- Don't embed the fonts in the web frontend version+- Get rid of datafiles from .cabal+- Kill the font license files that are duplicated in COPYLEFT file+- Get rid of the now unused fontDir option+- Embed game-supplied font files+- Version config file+- Write the homepage address in full in Main Menu; fixes #98+- Make historyMax divisible by screenful+- Don't let ESC clear messages in aiming mode; was confusing+- Add Discord and Matrix addresses to the manual+- Add links to discord and matrix chat+- Tweak unique entities in content, adding 'the' as needed+- Add extra config options for messages+- Customize messages more comfortably+- Simplify restarting client+- Adjust weapon colours slightly towards colour meaning table+- Name the robot until somebody comes up with a better name+- Semi-retire the Allure gitter+- Reflect changes in highlighting in the manual+- Avoid unfortunate line gluing in main menu text+- Wrap messages after 53 columns+- Lower cminStairDist for shallowRogue now that margins forbidden+- Fix a missing mouse command description+- Update documentation to the config changes+- Add Debian desktop files, as per packaging policy+- Fix screensavers broken by UI faction not being the first+- Fix 'open main menu' command of Dashboard+- Comment the config file some more+- Gut out Ubuntu Family Fonts from Debian package, because non-free+- Beautify CREDITS+- Rank the fontsets differently+- Make the fontset tests more random+- Permit text usage in tests+- Settile on 'auxiliary fonts' instead of 'long text'+- Update config wrt engine changes+- Molify Debian's lintian+- Fix license name+- Legalize all the long text fonts even more+- Legalize all the long text fonts+- Add the ubuntu font family set of long text fonts+- Add another set of long text fonts+- Add new long text fonts based Adobe Source+- Remove old long text fonts+- Explain the communication overhead concept+- Fix Allure.cabal.flattened test component+- Parse config at compile time+- Let foes occupiy exit in escape scenario, etc.+- Add missing cskip specifications+- Bring back SPACE as clearning messages+- Update the default config wrt changes to RET keybinding+- Don't mention the spaceship in outdoor stairs description+- Make the brawl scenario 2-level+- Use the increased expressiveness of initial actor generation+- Make long poles a bit more common and tweak content a bit+- Don't confuse the player when trying to convey the actor is malfunctioning+- Reword ESC description again+- Add a random item to each hero starting inventory+- Tweak details of the content a bit+- Update command docs to command help changes+- Let only ESC clear messages+- Prevent AI-inaccessible areas inside shuttles+- Make spacesuits and tools more common, but later on+- Avoid 'jewelry case of gain jewelry'+- Move SPACE to CmdAim category+- Document that MMB and RMB cycle detail level+- Bind SPACE to cycle detail level in aiming mode+- Advise role-playing+- Fix calling gameover an 'endgame'+- Advise to replay initial scenarios+- Let the Welded Robot speak periodically+- Don't spoil the normal storyline in the hint about blowtorch+- Add a comment that blowtorch is safe from item polymorphing+- Add a hint about the puzzle to the manual+- Make the torn spacesuit even more common+- Name or prepare for naming all uniques+- Give all uniques their last words+- Add extra hints in the signboards on first level+- Reorder consistenly mode kind component definitions in the file+- Make hints about the first puzzle more obvious and more common+- Make torn spacesuit more common again+- Add a couple of late spawn-only actors+- Mark some actors as common among late spawns+- Factor out victoryOutcomes+- Shorten a field name to avoid >80 length lines+- Make terrain names harder to confuse with items+- Properly in-game document the screensaver scenarios+- Add missing scenario motivation blurbs+- Make the tools slightly less abundant at the start+- Tweak the scenario meta notes+- Rework game rules desccription similarly as in LH+- Add bulbousBullfrog to credits+- Add a comment to the default config with an example for rebinding a key+- Hint in-game about how stairs work+- Encourage interaction with terrain in outermost level+- Clarify that nominal values of burning and wounding are used+- Drive the point home that spacesuits differ+- Drive the point home that tools are used for crafting+- Be more explicit in the crafting tip+- Ensure the position of the boss is reported as worth visiting+- Document crafting in-game and in the manual+- Explain why octopus copes on land+- Add cabal.project.local.testing for 'make fastCrawl'+- Avoid building all exes+- Add scenario rule notes to be displayed instead of full notes+- Use hex character literals to simplify notation+- Add make target to test minified JS for node+- Make the safari easter egg less common as a screensaver+- Disable compiling from source in brew-sdl2-osx travis build, due to OOM+- Tone down and speed up animations of the deadliest explosions+- Make space for vertical dormitory rooms+- Make the dormitories more realistic given how tiny they are+- Make all ignition blasts yellow+- Hint in ambush description that somebody turned off power+- Spread evenly the loot in ambush scenario+- Make sure the initial entrance doesn't appear in ambush scenario+- Make safari scenario harder now that aliens are buffed up+- Improve module haddocks for content+- Give the player more ammo in ambush scenario+- Make zoo easier to create an ambush position in+- Make sure burning bush eventually transforms to a dark floor tile+- Make escape cave easier to put on fire+- Hide unneeded content group name patterns+- Add short-caves debug game mode+- Bump too rare places+- Use the JS splitmix optimization+- Tweak CI link in README in case it matters+- Make firefighting items more common outside of fire cabinets+- Add a Q&A about autoexplore (only relevant to Allure)+- Make sure all non-seeing actors are described so+- Move ClientOptions.hs to adhere to the convention about module hierarchies+- Meld LH and Allure content+- Don't have noctovisor neavly guaranteed+- Add items for detecting enemy stashes+- Reflavour the stuck doors trap+- Tone down spotlight+- Explain the goofy handling of recharging in stash+- Prevent exploiting deposit boxes ad infinitum+- Make detection radiuses uniform, for ease of use+- Make residential decks better connected+- Add a couple more escape items+- Adjust the SDL test to run without installing fonts, as Debian requires+- Make the jewlery caches and deposit boxes much more lucrative+- Make necklace explosions even less likely to block the way+- Make octopus more common now that it's more interesting+- Make jewlery cases less disappointing for experienced players+- Let blasts destroy ice pillars+- Fix a pair of fire projectiles first igniting, second dousing a tile+- Add Q&A about hearing+- Make military knife again likely to appear in crawl dungeon+- Let stuck doors be forced, inducing flight+- Shorten brawl scenario note to fit on the screen with square font+- Remove the confusing damage from bomb's weight impact+- Prevent exploit of getting cords from torches made out of rags+- Move most tools to first 4 levels and laboratory+- Fix crafting in water impossible when refrigeration coil equipped+- Make hearing maluses less harsh+- Make firefighting cabinets more common, particularly on outermost level+- Fix too high melee armor of a spacesuit+- Permit transformation of weld vis cold source, not only blowtorch+- Enable crafting with water sources in fire tiles+- Add some more tools and torn suits+- Boil waste container to safely remove refrigeration coil+- Differentiate the names of small fires and not the count+- Don't create the same 2 spacesuit parts when dismating a torn suit+- Make crawl loot number randomness much less wild+- Make tools more common on first two levels+- Add cord as a bonding tool and wick+- Have more tools at outermost level+- Make thornbush a bit rarer, because it doesn't exlode, so is boring+- Make arena deck of double height, with trees+- Avoid dark fences around lit interiors with no pillars in staircase defs+- Shorten other item group names+- Shorten hammer and shield group names+- Use the DECON abbreviation to shorten messages+- Fix patterns for hammers+- Mention in hammer description that crafting replaces handles+- Fit workshop crafting description into one screen+- Don't risk crafting scrap from hammers and axes+- Display cooking after crafting in embed description+- Factor out extraWaterAssocs+- Equip rags by default; newbies don't find them anyway+- Mention in octopus description that it has high noctovision+- Consistently create on the ground all items looted from terrain+- Balance removing hunger via organ hits+- Add random variety to crafted items to enable min-maxing+- Move some item definitions and rebase them+- Remove a trailing space in mode description+- Don't get two rags out of a torch that took one to produce+- Reflect keybindings change in the start scenario menu+- Increase the timeout of jumping pole+- Prevent AI from hasting twice in a row+- Add recharging and discharging self to a couple of weapons+- Get rid of DropBestWeapon+- Adjust to engine changes to charging effects+- Let the rhino charge via pushing+- Let all drones charge via pushing+- Fix a mixed up organ name+- Prevent the new organs from being dropped+- Differentiate dragon and alligator by removing the pushing from the former+- Add jumping organs+- Move ink sac to equipment so that it can be explicitly triggered+- Make octopus's ink weaker but lasting longer+- Add the ink sac octopus's organ+- Permit meleeing with construction glove+- Let burning oil explode even on direct hit on actor, not only on the floor+- Re-classify a couple of weapons+- Fix razorwire fence+- Make killing thornbush even more optional than before+- Move to-dam bonuses from organs to actor definitions+- Increase timeouts of animal organs to at least approach human weapon timeouts+- Prevent sharp harpoon from being generated often and shallowly+- Make armadillo into a proper tank+- Touch up aliens actors+- Prevent razor from excluding other weapons+- Move the defition of lip to the proper place+- Give tentancle a cooldown+- Make clawing horror an early but mostly harmless armorless tank+- Reorder organs+- Balance organs+- Add two organs from LambdaHack+- Remove cooldown from two weapon kinds+- Sometimes generate tools in threes+- Generate torn spacesuits in bunches+- Generate less items, particularly at shallow levels+- Reorder items inside several item groups+- Overhaul noise caves+- Let some tools appear together+- Designate some scouts for slack tactics factions+- Add comments explaining why dL dice positive or negative+- Adjust to crafint depth-neutral and tweak content a bit otherwise+- Make the max HP maluses not so easy to ignore+- Rebalance armor bonuses+- Rebalance to-hit bonuses+- Fix hammer stats and tweak a few others+- Make Smithhammer interesting+- Make it easier to use permanent tools+- Make it possible to undo weapon crafting+- Make axe worse than pipe+- Make item-modification scrolls and torn spacesuits more common+- Make cooking fruits less tedius, remaining defs+- Place much more oil spills on the exit deck+- Make cooking fruits less tedius+- Let the player see if enemies carry even special lights, etc.+- Don't suggest that opening a deposit box destroys it+- Improve name of a couple of item groups+- Tweak frequency of detection items, etc.+- Don't let the alien boss waste time unequipping gems+- Sometimes add a lift staircase to laboratories+- Make more rooms dark to help with stealth+- Make Laboratory deck less annoying by decontaminating only upwards+- Fix weapon order of Smithhammer+- Make it more common for aliens to carry light+- Make using and crafting harpoons more worthwhile+- Add workshop to a couple more places+- Make it more likely there is workshop in laboratory+- Tone down poison+- Make the outermost deck a little more hectic+- Hint that shields require empty space behind enemies to push them+- Make buckler a weapon+- Make the fancy shield weaker but more common+- Give a fair warning about the rhino boss+- Reorder crafting recipes to make them yet a tad safer+- Avoid lit or filled rooms (except barrels) in exit level+- Balance arena cave and scroll of pushing+- Move keybinding content definitions to match display order+- Make signboards less common in arena cave and more in casino+- Ensure small caves have one or few stairs to prevent bloating them+- Adjust cave content specifications to the engine tweaks+- Make empty flasks less common deeper down+- Clean up comments in tile definitions+- Try to make the terrain transformation specs more readable+- Mark steel file with red, since it's double-purpose+- Make blankets more common to help with light crafting+- Start with some empty flasks, some of the time+- Update the manual and keybindings printout+- Explain why the farm is freshly abandoned+- Reduce numbers of consumables now that some levels have more of them+- Add extra items to crawl levels based on their name/description+- Add ANY_FLASK group+- Introduce vials via the brawl scenario+- Customize the raid cave shape and places+- Make sure tools are not needed and stimpack not obtainable in raid scenario+- Introduce chips usage in the raid scenario+- Fix a bushy patch that can block starting actors+- Remove misleading comment about tiles being explorable+- Comment why a tile is not explorable+- Make impressing items easier to get+- Fix missing terrain in TREE_SHADE_WALKABLE_DARK+- Have lit bushes and dark floor in some dark places+- Permit auto-generated tiles to be lit in dark groups+- Comment tiles that are lit, dark or both+- Add greenery to shallow levels and more rooms+- Sometimes leave smoke after barrel explodes+- Prevent the visual senser being misinterpreted as food+- Prevent AI from wielding staves+- Make gardening tools slighly more durable, but rarer+- Set the main groups of items to equal weights and compensate+- Let all actors chase enemies from a longer distance+- Ensure few garden weapons in raid scenario and similar+- Tweak assignment of items to the rare item groups+- Rename or eliminate CURIOUS_ITEM+- Generate less survival items in short scenarios+- Add hints to crafting components' descriptions+- Tweak weapons slightly, mostly ranged damage+- Clean up throwing stats of items+- Make edible bushes possible in one more room kind+- Make permanent weapons less common initially due to clubs and torches+- Add craftable clubs+- Make torch a destructible melee weapon+- Make torch and lamp even less common now that they are crafted+- Craft flasks of water, etc.+- Fix crafting in oil and fire+- Add missing content group definitions+- Craft torches and oil lamps+- Make harpoons better in melee than ranged+- Rebalance weak weapons+- Slightly simplify organ definitions+- Add variety to armor deducting rings+- Make boots auto-equip less disastrous for newbies+- Make the echolocator ping periodically+- Change the order of ordinary items for better display in menus+- Reassign colours and symbols to embedded items+- Make some actors deal low damage but with high hurt+- Add negative armor to one boss and some conditions+- Let some rings weaken armor+- Tone down items that grant armor+- Mark in dashboard where to find crafting recipes+- Make it harder to obtain long poles from loot+- Let the net drop more kinds of armor-like equipment+- Fix broken content validation+- Don't confusingly refuse to display the pushing effect for shields+- Balance piercing missiles+- Make Rhino less of a pushover+- Update manual wrt damage calculation changes+- Avoid AI-unreachable spaces on the outermost level+- Make it cheaper to dissect a torn spacesuit, for early game+- Comment that transformations won't generate warnings due to their position+- Make tools even more common+- Undo partially scaling down special terrain features at outermost level+- Craft torch in fire, not workshop+- Tweak terrain and items on the outermost level+- Make the order of caves slightly more random+- Make edible plants less common since they appear on bushes now+- Make the starting enemy groups larger to favour throwing flasks+- Generate flasks in bunches even at lowest levels to make throwing more fun+- Make sure throwing flasks, etc., have limited radius, for safety+- Make icy floor less annoying and escape puzzles harder to hack+- Avoid generating 2-stacks of early projectiles+- Don't create equippable items in a stash+- Make the crafted and doubly crafted weapons rarer+- Fix lvl 2 description showing at game start instead of lvl 3+- Prevent heroe's foes in crawl from camping stairs on lvl 2+- Dedicate flasks to throwing and vials to medicine+- Add fixed enemies at the start of crawl, but don't spawn often+- Improve wording of a cave description+- Reduce randomness of effects to make them exploitable+- Prevent inability of taking off items that drain calm+- Update wrt macro key changes in the engine+- Disable brew audit that fails because line is too long+- Vary the number of gardening tools in the bunches+- Make craftable weapons less common+- (Almost) guarantee a fire axe, but (almost) only one+- Spawn friendlies and foes in deposit boxes+- Make the airlock supplies more random+- Create gardening tools in varied pairs+- Convey more of the shuttle story via unique embedded item, not other content+- Fix wrong game mode started due to only the first word inspected+- Prevent meleeing electric fence forever+- Port tests to tasty+- Make weapons used for crafting less common later on+- Prevent 'you are more foo' and immediately 'you are no longer foo'+- Don't let faucents slow and flash themselves+- Rename S_NITROGEN_MIST and S_FOCUSED_FLASH+- Have less particles in large oil explosions+- Make blindness less common, because it pervents player from seeing fun stuff+- Let Welded Robot establish a stash to make sure heroes be the blowtorch+- Use local gifsicle, with the assertion failure fixed+- Ensure unidentified hammers are equipped+- Tone down ranged damage of some durable items+- Replace permanent weapons with crafting even at low levels+- Make needles a bit less deadly+- Fix some Burn and RefillHP weapons becoming overpowered at range+- Simplify sharpeningAssocs+- Fix inaccessible fenceless dormitories+- Help AI replace the armor that decreases melee skill+- make cleaver weaker but more common+- Make billiard balls more common initially, less so later on+- Permit melee with gloves and helm in addition to boots+- Refactor and tweak garden weapons+- Fix gardening tools not fracturing+- Fix mixed up resistance conditions+- Describe how colours correspond to tile properties+- Prevent curing of genetic flaw via any condition removal+- Recolour transparent walls; cyan means inert, apparently+- Recolour barrels; not burning; no collision with trees+- Make the power node place more varied+- Fix AI not eating to remove hunger+- Recolour armors+- Ensure enough weak weapons at the start+- Add dormitories to the residential area cave definition+- Don't spam decent weapons at low leves now that weak weapons abound+- Make projectiles more common so that shooter aliens are not overpowered+- Craft torches out of staves+- Add a rag tangle and obtain it from torn spacesuits+- Give cleanerRobot excessive armor to make hammers useful+- Clarify that chosen weapon needs not be optimal for a foe+- Make hammers much different from all other weapons+- Make a particular barrel yard place as common as others, not much more+- Fix some terrain not alterable with projectiles+- Mention that stats menu summarizes the organ menu+- Add sample cabal.project.local files+- Make the secret walls less boring+- Use VerbMsgFail effect to ensure failed crafting doesn't change terrain+- Don't report that an animal fondles its own meat+- Add alterable floor to more rooms+- Add alterable floor to more caves and trails+- Rework frequency of immobile robots+- Desynchronise vents a bit more+- On outermost level let some faucets ignite fuel spread by other faucets+- Make hammers a bit more common+- Make frozen trail less common now that geysers produce floor ice+- Make burning oil clear, as the symbol indicates+- Adjust small fire description to match also burning oil+- Adjust crafting embedded items to the new OnCombine semantics+- Tweak timeouts of mostly harmless large sticks+- Fix wrong use of AndEffect+- Update crafting recipes to used tools and destroyed components+- Safeguard some alien ammo and treasure against stash ransacking+- Re-add perfumes; AI heroes were being slaughtered without them+- Add a torn spacesuit for crafting+- Make electric fences a less lucrative source of weapon upgrades+- Make it more likely that armor and some other items appear before lvl 12+- Generate more items now that a lot of crafting components appeared in the game+- Make barrel stacks more varied and more frequent+- Make barrel stack places more common+- Recolour faucets to match the colour of terrain they create+- Disable pathfinding through barrels and burning rubble+- Give the same on-screen colour to items with similar function+- Make the newly introduced items more common+- Make the workshop terrain more common+- Ensure item definitions are valid by having enough slots+- Don't generate ready spacesuits and avoid hard to see BrBlack items+- Make most weapons less common now that they can be crafted+- Harvest long poles from dead electric fences+- Add two useless tools to harvest long poles from+- Require a tool to but the pipe diagonally before sharpening+- Avoid the exploit of turning staffs into pipes via crafting+- Improve some weapon descriptions and comments+- Make each water a sharpening workshop to avoid scrolling recipes+- Correct some item group patterns to be singletons+- Clean up and redefine patterns from ItemKindEmbed.hs+- Let hammers be sharpened and elongated+- Require identification for all hammers+- Comment why axes and hammers are not tools+- Avoid the no-brainer of durable tool use+- Rename POLE and LONG_POLE+- Add fire axe and craft poll axe from it+- Craft long polearms and flesh out related descriptions+- Don't suggest that crowbar and cat's paw can be sharpened or blunted+- Doubly sharpen pole cleavers to ox tongues+- Doubly sharpen cleavers to get daggers+- Rename the knife item definition to avoid confusion with the new dagger+- Reorder Allure item definitions+- Sharpen halberds+- Sharpen rapiers+- Sharpen shields+- Get pipes from garden tools and sharpen them+- Enable sharpening harpoons+- Add sharpening tools+- Resking honing steel to barebones exoskeleton+- Foretell future levels accessible with spacesuits+- Add some tools+- Rename BONDING_SOURCE to BONDING_TOOL+- Fix, partially, pluralization of spacesuit trousers group+- Update to the unified tile transformation syntax+- Fix redundant Equipable or Meleeable+- Switch to the simplied ConsumeItems definition+- Eliminate the exploit of throwing durable tools at the workshop+- Define the spacestuit+- Assemble full spacesuit from the set of all its parts+- Add a spacesuit boot+- Make Autozoom Contact Lens appear in a larger percentage of games+- Let workshop work from an adjacent tile as well+- Use the new parameter of CreateItem to dilute perfume and create rose water+- Use the new parameter of CreateItem in workshop crafting engine+- Add the first workshop item crafting recipe+- Add a workshop terrain+- Remove an obsolete way of putting oil tile on fire+- Add Discharge effect to content+- Open doors with concussion blast+- Avoid renewing terrain embeds, to avoid slowdown with faucets+- Make vents terrain transforming+- Keep underbrush fluorescent also inside places+- Clean up non-essential talter attributes+- Create frozen and water tiles from damp floor+- Let underbrush grow randomly inside some places+- Let oil float over water, etc.+- Add explosive barrels+- Extend and move terrain transformation abilities within content+- Use less stuck doors while AI remains stubborn+- Don't create harpoons in bunches now that they are durable+- Revert "Make better projectiles out of weapons now that they break"+- Mark terrain transformations that are permitted with projectiles+- Make better projectiles out of weapons now that they break+- Make harpoon a weapon, but not auto-equipped+- Fix signboards requiring extra keystroke to activate+- Fix stuck doors often leaving AI helpless+- Add stuck doors to be opened by tools+- Fix unidentified embedded items impossible to trigger+- Describe the less obvious tile-altering item properties+- Add messages to dilluted OneOf effects+- Make the new tools and weapons twice more common+- Let strongest explosions breach stuff+- Describe the properties of the tools to help the player connect the dots+- Rename terrain patterns that denote possibly depleted resource+- Add tool items for altering terrain and improvised combat+- Make it possible to disarm jewelry traps+- Make edible plants grow on bushes+- Move extinguishers from walls to signboards to avoid uncovering all walls+- Make looting rubble worthwhile if weapons urgently needed+- Let actors trap down stairs with oil+- Wipe oil with a cloth+- Transform some tiles by pouring oil on them+- Make it harder to quench burning oil+- Separate singleton kind group names+- Rename HideAs to PresentAs for item kinds+- Switch texts to patterns for referring to content kind groups+- Make plants slightly less common and cleavers slightly more+- Make hunger twice as fast+- Permit PatternSynonyms+- Add a few sources of oil and fire+- Let oil spill burn+- Let signboards and pulpit burn+- Make the area of nitrogen mist smaller, but dense+- Let food thrown at lightly burning bushes get cooked+- Make meat a less perfect projectile+- Make the coil necklace not precious to freely use it+- Make underbrush more common now that it has no embed+- Get blakets and nitrogen out of walls+- Make nitrogen flask a separate item now that its explosions freeze water+- Quench fire with water and azbestos blanket+- Bring back Alter skill requirement for weld to help AI open it+- Make the spark necklace a source of cold+- Reverse order of weld modification items to help newbies understand+- Make weld durable to repeatedly depict sparking attempts to break the barrier+- Let ice be transformed into water and back+- Overcome weld with items instead of skill+- Simplify igniting greenery+- Update wrt addition of tiles altered by items+- Make sword-class weapons and exotic hammers more common+- Hint that the small fire is fine for cooking+- Make burning trees and rubble even less common on the outermost level+- Make it possible to cook plants+- Add cooked plants+- Update to binary AndEffect+- Give player more hints to start cooking+- Make burning bushes less common in crawl+- Move underbrushBurning to the right section+- Make it possible to also set bush and tree on fire+- In crawl get torches from burning trees more often+- Cook meat using a burning bush+- Let burning bush turn into burning underbrush+- Make it possible to set underbrush on fire and cook meat+- Explain away only pointman moving+- Bring hunger removal back in two places+- Fix hunger removed by some melee weapons+- Fix mercenaries using cutlery to fight+- Explain lack of tools, food and maps in crawl scenario+- Mention that all factions and actors are equal+- Reverse stars and underscores in HP bar in HUD+- Stress suvival in the game manual+- Let animals drop chunks of raw meat, for player consumption+- Mention clues and survival in backstory+- Fix medbot fissure not marked as benign+- Remove duplicated smell boost from walls (subtleFresco)+- Add a hidden wall reminding about the need to find food upstairs+- Pay for medbot healing with hunger+- Add pumpkin and let other plants remove hunger, too+- Add a hunger clock for humans and animals+- Mention leap frog in game manual+- Hint about leapfrog in brawl scenario note+- Make it easier to understand trying to go below the bottommost level is futile+- Handle the meta note about scenario separately+- Make sure tutorial scenarios have enough melee weapons+- Fix short scenario levels mistakenly thought to be relative to depth 15 not 10+- Update wrt door closing changes in the engine+- Reiterate win conditions in scenario descriptions+- Improve the descriptions for the reaction fire rings+- Mention in the manual that HP starts at half max+- Reformat game peculiarities list in the manual+- Overhaul the order and blurbs of game modes+- Make raid scenario squad-based+- Rework new game start menus+- Fix a corruption of backstory text+- Copy the list of distinguishing features from Allure homepage+- Restructure chronologically the game manual with verbs as section titles+- Get rid of 'x-hair'+- Mark some text files as out of date+- Add a couple more paragraph breaks in content descriptions+- Reformat backstory for display in main menu+- Remove text data files+- Replace old OFL-licensed font with new ones+- Re-indent the backstory+- Comment about why animals rarely eat food+- Rename tactics to doctrine+- Get rid of the henchman notion+- Rename leader to pointman+- Update decontaminator now that personal inventories are gone+- Mention the ! key whenever KP_* is mentioned+- Fix countless typos+- Start using cabal-plan+- Fix and improve Makefile, cabal file and CI scripts+- Improve and update game manual and help texts wrt game changes+- Countless changes in the LambdaHack engine and the induced changed in Allure++## [v0.9.5.0](https://github.com/AllureOfTheStars/Allure/compare/v0.9.4.0...v0.9.5.0)+ - Fix NumLock disabled in the browser - In screen reader frontend, highlight active menu line with the cursor - Fix commited debug value of rwriteSaveClips@@ -60,7 +794,7 @@ - Create a new 16x16 font and use it everywhere; tweak smaller fonts - Lock some levels or otherwise make ascending tricky - Add cooldown to most melee weapons, display that in HUD, adjust AI-- Add per-scenario and per-outcome end-game messages in content+- Add per-scenario and per-outcome gameover messages in content - Add duplicate and reroll item effects in preparation for crafting - Add actor and item analytics as a preparation for XP gain quests - Implement piercing projectiles that may share a tile with a big actor

@@ -5,21 +5,53 @@  Files: * Copyright: 2008-2011 Andres Loeh-           2010-2019 Mikolaj Konarski and others (see git history)+           2010-2021 Mikolaj Konarski and others (see git history) License: AGPL-3.0-or-later -Files: GameDefinition/fonts/{*.fnt,*.bdf,16x16xw.woff}+Files: GameDefinition/fonts/*.fnt GameDefinition/fonts/*.bdf GameDefinition/fonts/16x16xw.woff Copyright: 1997-2016 Leon Marrick            1997-2016 Sheldon Simms III            1997-2016 Nick McConnell-           2016-2019 Mikolaj Konarski+           2016-2021 Mikolaj Konarski License: GPL-2.0-or-later -Files: GameDefinition/fonts/Fix15Mono-Bold.woff-Copyright: 2012-2015 The Mozilla Foundation and Telefonica S.A-           2016-2019 Mikolaj Konarski+Files: GameDefinition/fonts/Binary*.woff+Copyright 2010-2019 Adobe (http://www.adobe.com/), with Reserved Font Name 'Source'+Copyright 2021 Mikolaj Konarski License: OFL-1.1 +Files: GameDefinition/fonts/DejaVu*.woff+Copyright: Copyright (c) 2003 by Bitstream, Inc. All Rights Reserved.+ Bitstream Vera is a trademark of Bitstream, Inc.+ DejaVu changes are in public domain.+License: bitstream-vera+Comment:+ Bitstream Vera Sans Mono is Copyright Bitstream Inc. and licensed under the+ Bitstream Vera License with Reserved Font Names "Bitstream" and "Vera".+ .+ DejaVu modifications of the original Bitstream Vera Sans Mono typeface have+ been committed to the public domain.+ .+ The work in the Hack project is licensed under the MIT (Expat) License.+ .+ Copied from https://metadata.ftp-master.debian.org/changelogs//main/f/fonts-dejavu/fonts-dejavu_2.37-2_copyright++Files: GameDefinition/fonts/Hack*.woff+Copyright:+ 2003 Bitstream Inc.+ 2018 Christopher Simpkins <chris@sourcefoundry.org>+License: Expat and bitstream-vera+Comment:+ Bitstream Vera Sans Mono is Copyright Bitstream Inc. and licensed under the+ Bitstream Vera License with Reserved Font Names "Bitstream" and "Vera".+ .+ DejaVu modifications of the original Bitstream Vera Sans Mono typeface have+ been committed to the public domain.+ .+ The work in the Hack project is licensed under the MIT (Expat) License.+ .+ Copied from https://metadata.ftp-master.debian.org/changelogs//main/f/fonts-hack/fonts-hack_3.003-3_copyright+ Files: debian/* Copyright: held by the contributors mentioned in debian/changelog License: AGPL-3.0-or-later@@ -794,3 +826,61 @@  CONSEQUENTIAL DAMAGES, WHETHER IN AN ACTION OF CONTRACT, TORT OR  OTHERWISE, ARISING FROM, OUT OF THE USE OR INABILITY TO USE THE FONT  SOFTWARE OR FROM OTHER DEALINGS IN THE FONT SOFTWARE.++License: bitstream-vera+ Permission is hereby granted, free of charge, to any person obtaining a copy+ of the fonts accompanying this license ("Fonts") and associated documentation+ files (the "Font Software"), to reproduce and distribute the Font Software,+ including without limitation the rights to use, copy, merge, publish,+ distribute, and/or sell copies of the Font Software, and to permit persons to+ whom the Font Software is furnished to do so, subject to the following+ conditions:+ .+ The above copyright and trademark notices and this permission notice shall be+ included in all copies of one or more of the Font Software typefaces.+ .+ The Font Software may be modified, altered, or added to, and in particular the+ designs of glyphs or characters in the Fonts may be modified and additional+ glyphs or characters may be added to the Fonts, only if the fonts are renamed+ to names not containing either the words "Bitstream" or the word "Vera".+ .+ This License becomes null and void to the extent applicable to Fonts or Font+ Software that has been modified and is distributed under the "Bitstream Vera"+ names.+ .+ The Font Software may be sold as part of a larger software package but no copy+ of one or more of the Font Software typefaces may be sold by itself.+ .+ THE FONT SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS+ OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY WARRANTIES OF MERCHANTABILITY,+ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT OF COPYRIGHT, PATENT,+ TRADEMARK, OR OTHER RIGHT. IN NO EVENT SHALL BITSTREAM OR THE GNOME FOUNDATION+ BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, INCLUDING ANY GENERAL,+ SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, WHETHER IN AN ACTION+ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF THE USE OR INABILITY TO+ USE THE FONT SOFTWARE OR FROM OTHER DEALINGS IN THE FONT SOFTWARE.+ .+ Except as contained in this notice, the names of Gnome, the Gnome Foundation,+ and Bitstream Inc., shall not be used in advertising or otherwise to promote+ the sale, use or other dealings in this Font Software without prior written+ authorization from the Gnome Foundation or Bitstream Inc., respectively. For+ further information, contact: fonts at gnome dot org.++License: Expat+ Permission is hereby granted, free of charge, to any person obtaining a+ copy of this software and associated documentation files (the "Software"),+ to deal in the Software without restriction, including without limitation+ the rights to use, copy, modify, merge, publish, distribute, sublicense,+ and/or sell copies of the Software, and to permit persons to whom the+ Software is furnished to do so, subject to the following conditions:+ .+ The above copyright notice and this permission notice shall be included+ in all copies or substantial portions of the Software.+ .+ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR+ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,+ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL+ THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR+ OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,+ ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR+ OTHER DEALINGS IN THE SOFTWARE.

@@ -1,52 +0,0 @@-All kinds of contributions to Allure of the Stars are gratefully welcome!-Some of the contributors are listed below, in chronological order.--Andres Loeh-Mikolaj Konarski-Krzysztof Pławski-Daniel Keefe-Pablo Reszczynski-Simon Michael---Fonts 16x16xw.woff, 16x16xw.bdf, 16x16x.fnt, 8x8x.fnt and 8x8xb.fnt-are are derived from fonts taken from-https://github.com/angband/angband, copyrighted by Leon Marrick,-Sheldon Simms III and Nick McConnell and released by them under-GNU GPL, version 2 or any later version (confirmed at-http://www.thangorodrim.net/development/opensource.html).-Any further modifications by authors of LambdaHack-are also released under GNU GPL version 2. The licence file is at-GameDefinition/fonts/LICENSE.16x16x in the source code tree.-Font 16x16xw.bdf is derived from 16x16x.fon by changing all but-a few glyphs, converting to BDF format, extending character set-and hacking the font file with bdftopcf and pcf2bdf to include-full bitmaps, not only non-zero portions, for otherwise SDL2-ttf-was not able to display the glyphs.-Font 16x16xw.woff was derived from 16x16xw.bdf by changing format-to TTF with bitsnpicas, faking descendent offsets to be 1 point lower-to prevent freetype from adding an extra pixel to the descendent,-tweaking with fontforge glyps 3 5 6 8 A a S s b d h to prevent antialiasing-of their vital parts when zoomed out, auto-hinting, manually simplifying-hints in some glyphs and converting to WOFF format.---Font Fix15Mono-Bold.woff is a modified version of-https://github.com/mozilla/Fira/blob/master/ttf/FiraMono-Bold.ttf-that is copyright 2012-2015, The Mozilla Foundation and Telefonica S.A.-The modified font is released under the SIL Open Font License, as seen in-GameDefinition/fonts/LICENSE.Fix15Mono-Bold in the source code tree.-Modifications were performed with font editor FontForge and are as follows:-* straighten and enlarge #, enlarge %, &, ', +, \,, -, :, ;, O, _, `-* centre a few other glyphs-* create a small 0x22c5-* shrink 0xb7 a bit-* extend all fonts by 150% and 150%-    (the extension resulted in an artifact in letter 'n',-     which was gleefully kept, and many other artifacts and distortions-     that should be fixed at some point)-* set width of space, nbsp and # glyphs to 1170-    (this is a hack to make DOM create square table cells)-* copy O to 0 (zero) and add the middle dot from the original zero-* randomly fix various errors and simplify with fontforge-* auto-generate hints with fontforge

@@ -1,12 +1,18 @@ -- Copyright (c) 2008--2011 Andres Loeh--- Copyright (c) 2010--2019 Mikolaj Konarski and others (see git history)+-- Copyright (c) 2010--2021 Mikolaj Konarski and others (see git history) -- This file is a part of the computer game Allure of the Stars -- and is released under the terms of the GNU Affero General Public License. -- For license and copyright information, see the file LICENSE. ----- | Cave properties.+-- | Definitions of of cave kinds. Every level in the game is an instantiated+-- cave kind. module Content.CaveKind-  ( content+  ( -- * Group name patterns+    pattern CAVE_ROGUE, pattern CAVE_ARENA, pattern CAVE_LABORATORY, pattern CAVE_NOISE, pattern CAVE_SHALLOW_ROGUE, pattern CAVE_OUTERMOST, pattern CAVE_RAID, pattern CAVE_BRAWL, pattern CAVE_BRAWL_ALT, pattern CAVE_SHOOTOUT, pattern CAVE_HUNT, pattern CAVE_ESCAPE, pattern CAVE_ZOO, pattern CAVE_AMBUSH, pattern CAVE_BATTLE, pattern CAVE_SAFARI_1, pattern CAVE_SAFARI_2, pattern CAVE_SAFARI_3+  , pattern CAVE_BRIDGE, pattern CAVE_RESIDENTIAL, pattern CAVE_MUSEUM, pattern CAVE_EXIT, pattern CAVE_CASINO, pattern CAVE_POWER+  , groupNamesSingleton, groupNames+  , -- * Content+    content   ) where  import Prelude ()@@ -15,83 +21,146 @@  import Data.Ratio -import Game.LambdaHack.Content.CaveKind-import Game.LambdaHack.Core.Dice+import           Content.ItemKind hiding+  (content, groupNames, groupNamesSingleton)+import           Content.ItemKindActor+import           Content.ItemKindEmbed hiding (ESCAPE)+import           Content.PlaceKind hiding+  (content, groupNames, groupNamesSingleton)+import           Content.TileKind hiding+  (content, groupNames, groupNamesSingleton)+import           Game.LambdaHack.Content.CaveKind+import qualified Game.LambdaHack.Content.ItemKind as IK+import           Game.LambdaHack.Content.TileKind+import           Game.LambdaHack.Core.Dice+import           Game.LambdaHack.Definition.Defs +-- * Group name patterns++groupNamesSingleton :: [GroupName CaveKind]+groupNamesSingleton = []++groupNames :: [GroupName CaveKind]+groupNames =+       [CAVE_ROGUE, CAVE_ARENA, CAVE_LABORATORY, CAVE_NOISE, CAVE_SHALLOW_ROGUE, CAVE_OUTERMOST, CAVE_RAID, CAVE_BRAWL, CAVE_BRAWL_ALT, CAVE_SHOOTOUT, CAVE_HUNT, CAVE_ESCAPE, CAVE_ZOO, CAVE_AMBUSH, CAVE_BATTLE, CAVE_SAFARI_1, CAVE_SAFARI_2, CAVE_SAFARI_3]+    ++ [CAVE_BRIDGE, CAVE_RESIDENTIAL, CAVE_MUSEUM, CAVE_EXIT, CAVE_CASINO, CAVE_POWER]++pattern CAVE_ROGUE, CAVE_ARENA, CAVE_LABORATORY, CAVE_NOISE, CAVE_SHALLOW_ROGUE, CAVE_OUTERMOST, CAVE_RAID, CAVE_BRAWL, CAVE_BRAWL_ALT, CAVE_SHOOTOUT, CAVE_HUNT, CAVE_ESCAPE, CAVE_ZOO, CAVE_AMBUSH, CAVE_BATTLE, CAVE_SAFARI_1, CAVE_SAFARI_2, CAVE_SAFARI_3 :: GroupName CaveKind++pattern CAVE_BRIDGE, CAVE_RESIDENTIAL, CAVE_MUSEUM, CAVE_EXIT, CAVE_CASINO, CAVE_POWER :: GroupName CaveKind++pattern CAVE_ROGUE = GroupName "caveRogue"+pattern CAVE_ARENA = GroupName "caveArena"+pattern CAVE_LABORATORY = GroupName "caveLaboratory"+pattern CAVE_NOISE = GroupName "caveNoise"+pattern CAVE_SHALLOW_ROGUE = GroupName "caveShallowRogue"+pattern CAVE_OUTERMOST = GroupName "caveOutermost"+pattern CAVE_RAID = GroupName "caveRaid"+pattern CAVE_BRAWL = GroupName "caveBrawl"+pattern CAVE_BRAWL_ALT = GroupName "caveBrawlAlt"+pattern CAVE_SHOOTOUT = GroupName "caveShootout"+pattern CAVE_HUNT = GroupName "caveHunt"+pattern CAVE_ESCAPE = GroupName "caveEscape"+pattern CAVE_ZOO = GroupName "caveZoo"+pattern CAVE_AMBUSH = GroupName "caveAmbush"+pattern CAVE_BATTLE = GroupName "caveBattle"+pattern CAVE_SAFARI_1 = GroupName "caveSafari1"+pattern CAVE_SAFARI_2 = GroupName "caveSafari2"+pattern CAVE_SAFARI_3 = GroupName "caveSafari3"++-- ** Allure-specific+pattern CAVE_BRIDGE = GroupName "caveBridge"+pattern CAVE_RESIDENTIAL = GroupName "caveResidential"+pattern CAVE_MUSEUM = GroupName "caveMuseum"+pattern CAVE_EXIT = GroupName "caveExit"+pattern CAVE_CASINO = GroupName "caveCasino"+pattern CAVE_POWER = GroupName "cavePower"++-- * Content+ content :: [CaveKind] content =-  [rogue, residential, arena, casino, museum, laboratory, noise, power, empty, exit, outermost, bridge, shallowRogue, raid, brawl, shootout, hunt, escape, zoo, ambush, battle, safari1, safari2, safari3]+  [rogue, residential, arena, casino, museum, laboratory, noise, power, empty, exit, outermost, bridge, shallowRogue, raid, brawl, brawlAlt, shootout, hunt, escape, zoo, ambush, battle, safari1, safari2, safari3] -rogue,    residential, arena, casino, museum, laboratory, noise, power, empty, exit, outermost, bridge, shallowRogue, raid, brawl, shootout, hunt, escape, zoo, ambush, battle, safari1, safari2, safari3 :: CaveKind+rogue,    residential, arena, casino, museum, laboratory, noise, power, empty, exit, outermost, bridge, shallowRogue, raid, brawl, brawlAlt, shootout, hunt, escape, zoo, ambush, battle, safari1, safari2, safari3 :: CaveKind  -- * On-ship "caves", that is, decks, most of mediocre height and size  rogue = CaveKind   { csymbol       = 'R'   , cname         = "Maintenance and storage"-  , cfreq         = [("default random", 100), ("caveRogue", 1)]+  , cfreq         = [(DEFAULT_RANDOM, 100), (CAVE_ROGUE, 1)]   , cXminSize     = 80   , cYminSize     = 42   , ccellSize     = DiceXY (2 `d` 4 + 10) (1 `d` 3 + 6)   , cminPlaceSize = DiceXY (2 `d` 2 + 4) (1 `d` 2 + 5)  -- sometimes merge vert.   , cmaxPlaceSize = DiceXY 16 40  -- often maximize vertically-  , cdarkOdds     = 1 `d` 54 + 1 `dL` 20-      -- most rooms lit, to compensate for dark corridors+  , cdarkOdds     = 1 `d` 50 + 1 `dL` 50+      -- most rooms lit, to compensate for dark corridors; at the bottom+      -- of the dungeon, half of the rooms lit   , cnightOdds    = 51  -- always night   , cauxConnects  = 1%2   , cmaxVoid      = 1%8-  , cminStairDist = 30-  , cextraStairs  = 1 `d` 2   , cdoorChance   = 3%4   , copenChance   = 1%5   , chidden       = 7   , cactorCoeff   = 50  -- the maze requires time to explore-  , cactorFreq    = [("monster", 50), ("animal", 20), ("robot", 30)]-  , citemNum      = 8 `d` 4 + 20 - 20 `dL` 1  -- deep down quality over quantity-  , citemFreq     = [ ("common item", 40), ("treasure", 60)-                    , ("curious item", 10) ]-  , cplaceFreq    = [("rogue", 1)]+  , cactorFreq    = [(MONSTER, 50), (ANIMAL, 20), (ROBOT, 30)]+  , citemNum      = 17 `d` 2 + 25 - 25 `dL` 1  -- at depth quality over quantity+  , citemFreq     = [ (IK.COMMON_ITEM, 40), (IK.CRAWL_ITEM, 20)+    -- CRAWL_ITEM items are used only in long scenarios, such as multi-level+    -- dungeon crawl; these may be powerful or a mundate item,+    -- unlike @TREASURE@ items+                    , (IK.TREASURE, 40) ]+    -- note that the groups are flattened; e.g., if an item is moved to another+    -- group included here with the same weight, the outcome wouldn't change+  , cplaceFreq    = [(ROGUE, 1)]   , cpassable     = False   , labyrinth     = False-  , cdefTile      = "rogueSet"-  , cdarkCorTile  = "floorCorridorDark"-  , clitCorTile   = "floorCorridorLit"-  , cwallTile     = "trappableWall"-  , ccornerTile   = "fillerWall"-  , cfenceTileN   = "basic outer fence"-  , cfenceTileE   = "habitat containment wall"-  , cfenceTileS   = "basic outer fence"-  , cfenceTileW   = "habitat containment wall"+  , cdefTile      = ROGUE_SET+  , cdarkCorTile  = FLOOR_CORRIDOR_DARK+  , clitCorTile   = FLOOR_CORRIDOR_LIT+  , cwallTile     = TRAPPABLE_WALL+  , ccornerTile   = FILLER_WALL+  , cfenceTileN   = S_BASIC_OUTER_FENCE+  , cfenceTileE   = HABITAT_CONTAINMENT_WALL+  , cfenceTileS   = S_BASIC_OUTER_FENCE+  , cfenceTileW   = HABITAT_CONTAINMENT_WALL   , cfenceApart   = False-  , clegendDarkTile = "legendDark"-  , clegendLitTile  = "legendLit"+  , clegendDarkTile = LEGEND_DARK+  , clegendLitTile  = LEGEND_LIT+  , cminStairDist = 30+  , cmaxStairsNum = 2 + 1 `d` 2   , cescapeFreq   = []-  , cstairFreq    = [ ("walled lift", 50), ("open lift", 50)-                    , ("tiny lift", 1) ]-  , cstairAllowed = [ ("walled staircase", 50), ("open staircase", 50)-                    , ("tiny staircase", 1) ]+  , cstairFreq    = [ (WALLED_LIFT, 50), (OPEN_LIFT, 50)+                    , (TINY_LIFT, 1) ]+  , cstairAllowed = [ (WALLED_STAIRCASE, 50), (OPEN_STAIRCASE, 50)+                    , (TINY_STAIRCASE, 1) ]+  , cskip         = []   , cdesc         = "Winding tunnels stretch into the dark. A few areas are passable but the remainder is packed with tanks and cells of raw materials and machinery."   } residential = rogue-  { cfreq         = [("default random", 50), ("caveResidential", 1)]+  { cfreq         = [(DEFAULT_RANDOM, 70), (CAVE_RESIDENTIAL, 1)]   , cname         = "Residential area"-  , cmaxPlaceSize = DiceXY 14 20  -- fewer big rooms+  , cminPlaceSize = DiceXY (2 `d` 2 + 4) (1 `d` 2 + 9)  -- merge vert.+  , cmaxPlaceSize = DiceXY 20 20  -- fewer vertically long rooms   , cdarkOdds     = 51  -- all rooms dark   , cnightOdds    = 0  -- always day-  , cauxConnects  = 1%10  -- differentiate; bare skeleton feel; long span paths-  , cmaxVoid      = 1%4-  , cextraStairs  = 1 + 1 `d` 2-  , cdefTile      = "fillerWall"-  , cstairFreq    = [ ("walled staircase", 50), ("open staircase", 50)-                    , ("tiny staircase", 1) ]-  , cstairAllowed = [ ("walled lift", 50), ("open lift", 50)-                    , ("tiny lift", 1) ]+  , cauxConnects  = 1%5  -- differentiate; bare skeleton feel; long span paths,+                         -- but don't overdo or a lot of backtracing needed+  , cplaceFreq    = [(ROGUE, 1), (RESIDENTIAL, 49)]+  , cdefTile      = FILLER_WALL+  , cmaxStairsNum = 3 + 1 `d` 2+  , cstairFreq    = [ (WALLED_STAIRCASE, 50), (OPEN_STAIRCASE, 50)+                    , (TINY_STAIRCASE, 1) ]+  , cstairAllowed = [ (WALLED_LIFT, 50), (OPEN_LIFT, 50)+                    , (TINY_LIFT, 1) ]   , cdesc         = "The area has been powered down, except for emergency corridors. Many suites are depressurized and sealed."   } arena = rogue   { csymbol       = 'A'   , cname         = "Recreational deck"-  , cfreq         = [("caveArena", 1)]+  , cfreq         = [(CAVE_ARENA, 1)]   , cXminSize     = 80   , cYminSize     = 25   , ccellSize     = DiceXY (3 `d` 3 + 17) (1 `d` 3 + 5)@@ -104,77 +173,80 @@   , cnightOdds    = 0  -- always day   , cauxConnects  = 1   , cmaxVoid      = 1%20-  , cminStairDist = 20-  , cextraStairs  = 1 `d` 2   , chidden       = 0   , cactorCoeff   = 40  -- smallish level, but easy to view and plan-  , cactorFreq    = [ ("monster", 50), ("animal", 70), ("robot", 5)-                    , ("aquatic", 10) ]-  , citemNum      = 7 `d` 4  -- few rooms-  , citemFreq     = [ ("common item", 20), ("treasure", 40), ("any scroll", 40)-                    , ("explosive", 40), ("curious item", 20) ]-  , cplaceFreq    = [("arena", 1)]+  , cactorFreq    = [ (EXPLOSIVE_MONSTER, 50), (ANIMAL, 50), (ROBOT, 5)+                    , (IK.AQUATIC, 10) ]+  , citemNum      = 16 `d` 2+  , citemFreq     = [ (IK.COMMON_ITEM, 20), (IK.CRAWL_ITEM, 20)+                    , (IK.TREASURE, 40)+                    , (GARDENING_TOOL, 100)  -- useless and boring by this point+                    , (IK.ANY_POTION, 200) ]  -- nature+  , cplaceFreq    = [(ARENA, 1)]   , cpassable     = True-  , cdefTile      = "arenaSetLit"-  , cdarkCorTile  = "trailLit"  -- let trails give off light-  , clitCorTile   = "trailLit"  -- may be rolled different than the above-  , cwallTile     = "openableWall"-  , cstairFreq    = [ ("walled lift", 20), ("closed lift", 80)-                    , ("tiny lift", 1) ]-  , cstairAllowed = [ ("walled staircase", 20), ("closed staircase", 80)-                    , ("tiny staircase", 1) ]-  , cdesc         = "Debris litters the wide streets and all the stalls have their shutters down."+  , cdefTile      = ARENA_SET_LIT+  , cdarkCorTile  = TRAIL_LIT  -- let trails give off light+  , clitCorTile   = TRAIL_LIT  -- may be rolled different than the above+  , cwallTile     = OPENABLE_WALL+  , cminStairDist = 20+  , cmaxStairsNum = 1 `d` 2+  , cstairFreq    = [ (WALLED_LIFT, 20), (CLOSED_LIFT, 80)+                    , (TINY_LIFT, 1) ]+  , cstairAllowed = [ (WALLED_STAIRCASE, 20), (CLOSED_STAIRCASE, 80)+                    , (TINY_STAIRCASE, 1) ]+  , cdesc         = "Debris litters the wide streets and all the stalls are either broken or have their shutters down. Nature is taking over, healing the wounds."  -- potions of healing   } casino = arena   { cname         = "Casino"-  , cfreq         = [("caveCasino", 1)]+  , cfreq         = [(CAVE_CASINO, 1)]   , cXminSize     = 21   , cYminSize     = 21   , cdarkOdds     = 41 + 1 `d` 10  -- almost all rooms lit (1 in 10 dark)   -- Trails provide enough light for fun stealth, though level too small.   , cnightOdds    = 51  -- always night-  , cminStairDist = 10   , cactorCoeff   = 70  -- cramped, don't overcrowd-  , cactorFreq    = [("monster", 50), ("animal", 25), ("robot", 50)]-  , citemNum      = 7 `d` 3  -- rare, so make it exciting, by keeping many items-  , citemFreq     = [ ("common item", 20)-                    , ("treasure", 80)  -- lives up to the name-                    , ("curious item", 40) ]-  , cdefTile      = "arenaSetDark"-  , cfenceTileN   = "habitat containment wall"  -- small cave-  , cfenceTileE   = "habitat containment wall"-  , cfenceTileS   = "habitat containment wall"-  , cfenceTileW   = "habitat containment wall"+  , cactorFreq    = [(MONSTER, 50), (ANIMAL, 25), (ROBOT, 50)]+  , citemNum      = 14 `d` 2  -- rare, so make it exciting by keeping many items+  , citemFreq     = [ (IK.COMMON_ITEM, 20)+                    , (IK.CRAWL_ITEM, 20)+                    , (IK.TREASURE, 100) ]  -- lives up to its name+  , cdefTile      = ARENA_SET_DARK+  , cfenceTileN   = HABITAT_CONTAINMENT_WALL  -- small cave+  , cfenceTileE   = HABITAT_CONTAINMENT_WALL+  , cfenceTileS   = HABITAT_CONTAINMENT_WALL+  , cfenceTileW   = HABITAT_CONTAINMENT_WALL+  , cminStairDist = 10+  , cmaxStairsNum = 2  -- to make possible 2 stairs in the last cave   , cdesc         = "The establishment is no longer filled with hollow-eyed gamblers; more dangerous things now lurk in the dark."   } museum = arena   { cname         = "Museum"-  , cfreq         = [("caveMuseum", 1)]+  , cfreq         = [(CAVE_MUSEUM, 1)]   , cXminSize     = 25   , cYminSize     = 25   , cdarkOdds     = 41 + 1 `d` 10  -- almost all rooms lit (1 in 10 dark)   -- Trails provide enough light for fun stealth, though level too small.   , cnightOdds    = 51  -- always night-  , cminStairDist = 10   , cactorCoeff   = 70  -- cramped, don't overcrowd-  , cactorFreq    = [("monster", 100), ("animal", 25), ("robot", 25)]-  , citemNum      = 7 `d` 4  -- rare, so make it exciting-  , citemFreq     = [ ("common item", 20)-                    , ("treasure", 40)-                    , ("curious item", 40)-                    , ("museum", 100) ]  -- lives up to the name-  , cplaceFreq    = [("museum", 1)]-  , cdefTile      = "museumSetDark"-  , cfenceTileN   = "habitat containment wall"  -- small cave-  , cfenceTileE   = "habitat containment wall"-  , cfenceTileS   = "habitat containment wall"-  , cfenceTileW   = "habitat containment wall"-  , cdesc         = "History has shown that museal treasures are safer in space than anywhere on Earth. Also, cruise passengers eagerly visit exhibitions, even if over the weeks of the journey they become increasingly a captive audience. That rarely applies to spaceship crew and yet museum security has a particularly keen eye for the working men visiting their establishments. Quite often a museum is the only place within millions of kilometers to house a desperately needed tool, old but sturdy beyond anything a 3D printer could produce."+  , cactorFreq    = [(MONSTER, 100), (ANIMAL, 25), (ROBOT, 25)]+  , citemNum      = 16 `d` 2  -- rare, so make it exciting+  , citemFreq     = [ (IK.COMMON_ITEM, 20)+                    , (IK.CRAWL_ITEM, 20)+                    , (IK.TREASURE, 20)+                    , (MUSEAL, 200) ]  -- lives up to its name+  , cplaceFreq    = [(MUSEUM, 1)]+  , cdefTile      = MUSEUM_SET_DARK+  , cfenceTileN   = HABITAT_CONTAINMENT_WALL  -- small cave+  , cfenceTileE   = HABITAT_CONTAINMENT_WALL+  , cfenceTileS   = HABITAT_CONTAINMENT_WALL+  , cfenceTileW   = HABITAT_CONTAINMENT_WALL+  , cminStairDist = 10+  , cdesc         = "History has shown that museal treasures are safer in space than anywhere on Earth. Passengers eagerly attend exhibitions, even if over the weeks of the journey they become increasingly a captive audience. Spaceship crew are not that enthusiastic but even they find reasons to pay visits despite misgivings of museum security. Quite often a museum is the only place within millions of kilometers to house a desperately needed tool, old but sturdy beyond anything a 3D printer can produce."   } laboratory = rogue   { csymbol       = 'L'   , cname         = "Laboratory"-  , cfreq         = [("caveLaboratory", 1)]+  , cfreq         = [(CAVE_LABORATORY, 1)]   , cXminSize     = 60   , cYminSize     = 42   , ccellSize     = DiceXY (1 `d` 2 + 5) (1 `d` 2 + 7)@@ -183,86 +255,90 @@   , cnightOdds    = 0  -- always day so that the corridor smoke is lit   , cauxConnects  = 1%5   , cmaxVoid      = 1%10-  , cminStairDist = 25-  , cextraStairs  = 1 `d` 2   , cdoorChance   = 1   , copenChance   = 1%2-  , cactorFreq    = [ ("monster", 50), ("animal", 70), ("robot", 5)-                    , ("aquatic", 10) ]-  , citemNum      = 7 `d` 5  -- reward difficulty-  , citemFreq     = [ ("common item", 20), ("treasure", 40), ("potion", 40)-                    , ("curious item", 40) ]-  , cplaceFreq    = [("laboratory", 1)]-  , cdefTile      = "fillerWall"-  , cdarkCorTile  = "labTrailLit"  -- let lab smoke give off light always-  , clitCorTile   = "labTrailLit"-  , cstairFreq    = [ ("decontaminating walled staircase", 50)-                    , ("decontaminating open staircase", 50)-                    , ("decontaminating tiny staircase", 1) ]+  , cactorFreq    = [ (MONSTER, 50), (ANIMAL, 70), (ROBOT, 5)+                    , (IK.AQUATIC, 10) ]+  , citemNum      = 20 `d` 2  -- reward difficulty, despite fewer rooms+  , citemFreq     = [ (IK.COMMON_ITEM, 20), (IK.CRAWL_ITEM, 40)+                    , (IK.TREASURE, 40), (IK.EXPLOSIVE, 80) ]+  , cplaceFreq    = [(LABORATORY, 1)]+  , cdefTile      = FILLER_WALL+  , cdarkCorTile  = LAB_TRAIL_LIT  -- let lab smoke give off light always+  , clitCorTile   = LAB_TRAIL_LIT+  , cminStairDist = 25+  , cmaxStairsNum = 1 `d` 2+  , cstairFreq    = [ (DECON_WALLED_LIFT, 50)+                    , (DECON_OPEN_LIFT, 50)+                    , (DECON_TINY_LIFT, 1) ]       -- In lone wolf challenge, the player better summoned or dominated       -- any helpers by this point. If not, good luck fighting bare-handed.-  , cstairAllowed = [ ("decontaminating walled lift", 50)-                    , ("decontaminating open lift", 50)-                    , ("decontaminating tiny lift", 1) ]-  , cdesc         = "Shattered glassware and the sharp scent of spilt chemicals show that something terrible happened here."+  , cstairAllowed = [ (DECON_WALLED_STAIRCASE, 50)+                    , (DECON_OPEN_STAIRCASE, 50)+                    , (DECON_TINY_STAIRCASE, 1) ]+  , cdesc         = "Shattered glassware and the sharp scent of spilt chemicals show that something terrible happened here. The reinforced bulkheads muffle furious roars."  -- a fair warning to skip the level or regroup   } noise = rogue   { csymbol       = 'N'   , cname         = "Computing hardware hub"-  , cfreq         = [("caveNoise", 1)]-  , cXminSize     = 21+  , cfreq         = [(CAVE_NOISE, 1)]+  , cXminSize     = 25   , cYminSize     = 42-  , ccellSize     = DiceXY (3 `d` 5 + 12) 8-  , cminPlaceSize = DiceXY 8 7  -- often merge vertically-  , cmaxPlaceSize = DiceXY 20 20+  , ccellSize     = DiceXY (1 `d` 3 + 7) 8+  , cminPlaceSize = DiceXY 7 7  -- often merge vertically+  , cmaxPlaceSize = DiceXY 8 20   , cdarkOdds     = 51   -- Light is deadly, because nowhere to hide and pillars enable spawning   -- very close to heroes.   , cnightOdds    = 0  -- harder variant, but looks cheerful   , cauxConnects  = 1%10   , cmaxVoid      = 1%100-  , cminStairDist = 15-  , cextraStairs  = 1   , cdoorChance   = 1  -- to enable the doorlessWall hack   , chidden       = 0   , cactorCoeff   = 70  -- the maze requires time to explore; also, small-  , cactorFreq    = [("monster", 100), ("animal", 5), ("robot", 25)]-  , citemNum      = 8 `d` 5  -- an incentive to explore the labyrinth-  , citemFreq     = [ ("common item", 20), ("treasure", 60), ("explosive", 20)-                    , ("curious item", 30) ]+  , cactorFreq    = [(MONSTER, 100), (ANIMAL, 5), (ROBOT, 25)]+  , citemNum      = 16 `d` 2  -- an incentive to explore the labyrinth+  , citemFreq     = [ (IK.COMMON_ITEM, 40), (IK.CRAWL_ITEM, 40)+                    , (IK.TREASURE, 40), (IK.ANY_SCROLL, 200) ]+  , cplaceFreq    = [(NOISE, 1)]   , cpassable     = True   , labyrinth     = True-  , cplaceFreq    = [("noise", 1)]-  , cdefTile      = "noiseSetLit"-  , cwallTile     = "openableWall"+  , cdefTile      = NOISE_SET_LIT+  , cwallTile     = OPENABLE_WALL   , cfenceApart   = True  -- ensures no cut-off parts from collapsed-  , cdarkCorTile  = "damp floor Dark"-  , clitCorTile   = "damp floor Lit"-  , cstairFreq    = [ ("closed staircase", 50), ("open staircase", 50)-                    , ("tiny staircase", 1) ]-  , cstairAllowed = [ ("closed lift", 50), ("open lift", 50)-                    , ("tiny lift", 1) ]-  , cdesc         = "Several machines still function, processors whirring through routines scheduled by dead men."+  , cdarkCorTile  = DAMP_FLOOR_DARK+  , clitCorTile   = DAMP_FLOOR_LIT+  , cminStairDist = 15+  , cmaxStairsNum = 1+  , cstairFreq    = [ (CLOSED_LIFT, 50), (OPEN_LIFT, 50)+                    , (TINY_LIFT, 1) ]+  , cstairAllowed = [ (CLOSED_STAIRCASE, 50), (OPEN_STAIRCASE, 50)+                    , (TINY_STAIRCASE, 1) ]+  , cdesc         = "Several machines still function, processors whirring through routines scheduled by dead men. Some scattered chips can still be read."   } power = noise   { cname         = "Power distribution hub"-  , cfreq         = [("cavePower", 1)]+  , cfreq         = [(CAVE_POWER, 1)]   , cXminSize     = 32   , cYminSize     = 42+  , ccellSize     = DiceXY (1 `d` 5 + 9) 9+  , cminPlaceSize = DiceXY 7 7+  , cmaxPlaceSize = DiceXY 20 20   , cnightOdds    = 51  -- easier variant, but looks sinister-  , cextraStairs  = 2-  , citemNum      = 8 `d` 5  -- an incentive to explore the final labyrinth-  , citemFreq     = [ ("common item", 20), ("gem", 80), ("curious item", 30) ]+  , citemNum      = 16 `d` 2+  , citemFreq     = [(IK.COMMON_ITEM, 20), (IK.CRAWL_ITEM, 10), (GEM, 80)]                       -- can't be "valuable" or template items generated-  , cdefTile      = "powerSetDark"-  , cdarkCorTile  = "oily floor Dark"-  , clitCorTile   = "oily floor Lit"-  , cstairFreq    = [ ("gated closed staircase", 50)-                    , ("gated open staircase", 50)-                    , ("gated tiny staircase", 1) ]-  , cstairAllowed = [ ("gated closed lift", 50)-                    , ("gated open lift", 50)-                    , ("gated tiny lift", 1) ]+  , cdefTile      = POWER_SET_DARK+  , cdarkCorTile  = OILY_FLOOR_DARK+  , clitCorTile   = OILY_FLOOR_LIT+  , cmaxStairsNum = 2+    -- This determines that the continuous staircase uses stairs, not lifts.+  , cstairFreq    = [ (GATED_CLOSED_STAIRCASE, 50)+                    , (GATED_OPEN_STAIRCASE, 50)+                    , (GATED_TINY_STAIRCASE, 1) ]+  , cstairAllowed = [ (GATED_CLOSED_LIFT, 50)+                    , (GATED_OPEN_LIFT, 50)+                    , (GATED_TINY_LIFT, 1) ]   , cdesc         = "A trickle of energy flows through a hub that could power a city. The air is warm and carries organic stench. Once in a while a young animal scurries across a lit patch of ground, pouncing in low gravity."   } empty = rogue@@ -276,44 +352,43 @@   , cnightOdds    = 0  -- always day   , cauxConnects  = 3%2   , cmaxVoid      = 0  -- too few rooms to have void and fog common anyway-  , cminStairDist = 40-  , cextraStairs  = 1   , cdoorChance   = 1  -- to enable the doorlessWall hack   , chidden       = 0   , cactorCoeff   = 40  -- easy to view and plan-  , cactorFreq    = [("monster", 10), ("animal", 5), ("robot", 85)]-  , citemNum      = 7 `d` 4  -- few rooms-  , cplaceFreq    = [("empty", 1)]+  , cactorFreq    = [(MONSTER, 10), (ANIMAL, 5), (ROBOT, 85)]+  , citemNum      = 16 `d` 2  -- lots of free space, but extra loot present+  , cplaceFreq    = [(EMPTY, 1)]   , cpassable     = True-  , cdefTile      = "emptySetLit"-  , cdarkCorTile  = "floorArenaDark"-  , clitCorTile   = "floorArenaLit"-  , cwallTile     = "openableWall"+  , cdefTile      = EMPTY_SET_LIT+  , cdarkCorTile  = FLOOR_ARENA_DARK+  , clitCorTile   = FLOOR_ARENA_LIT+  , cwallTile     = OPENABLE_WALL   , cfenceApart   = True  -- ensures no cut-off border airlocks and tanks-  , cstairFreq    = [ ("walled lift", 20), ("closed lift", 80)-                    , ("tiny lift", 1) ]-  , cstairAllowed = [ ("walled staircase", 20), ("closed staircase", 80)-                    , ("tiny staircase", 1) ]+  , cminStairDist = 40+  , cstairFreq    = [ (WALLED_LIFT, 20), (CLOSED_LIFT, 80)+                    , (TINY_LIFT, 1) ]+  , cstairAllowed = [ (WALLED_STAIRCASE, 20), (CLOSED_STAIRCASE, 80)+                    , (TINY_STAIRCASE, 1) ]   , cdesc         = "Not much to see here yet."   } exit = empty   { cname         = "Shuttle servicing level"-  , cfreq         = [("caveExit", 1)]+  , cfreq         = [(CAVE_EXIT, 1)]   , ccellSize     = DiceXY (1 `d` 2 + 20) 16   , cmaxPlaceSize = DiceXY 25 20   , cdarkOdds     = 51  -- all dark to compensate for the always lit shuttles-  , cextraStairs  = 2-  , cplaceFreq    = [("exit", 1)]-  , cdefTile      = "exitSetLit"-  , cdarkCorTile  = "transport route"-  , clitCorTile   = "transport route"-  , cfenceTileN   = "basic outer fence"-  , cfenceTileE   = "habitat containment wall"-  , cfenceTileS   = "airlock fence"-  , cfenceTileW   = "habitat containment wall"-  , cescapeFreq   = [("escape spaceship down", 1)]-  , cstairFreq    = [("walled lift", 20), ("tiny lift", 1)]-  , cstairAllowed = [("walled staircase", 20), ("tiny staircase", 1)]+  , cplaceFreq    = [(EXIT, 1)]+  , cdefTile      = EXIT_SET_LIT+  , cdarkCorTile  = TRANSPORT_ROUTE+  , clitCorTile   = TRANSPORT_ROUTE+  , cfenceTileN   = S_BASIC_OUTER_FENCE+  , cfenceTileE   = HABITAT_CONTAINMENT_WALL+  , cfenceTileS   = AIRLOCK_FENCE+  , cfenceTileW   = HABITAT_CONTAINMENT_WALL+  , cmaxStairsNum = 2  -- too many hinder generation of shuttles+  , cescapeFreq   = [(ESCAPE_FROM_SPACESHIP_DOWN, 1)]+  , cstairFreq    = [(WALLED_LIFT, 20), (TINY_LIFT, 1)]+  , cstairAllowed = [(WALLED_STAIRCASE, 20), (TINY_STAIRCASE, 1)]   , cdesc         = "Empty husks and strewn entrails of small craft litter the hangar among cranes and welding machines. The distant main fusion thruster array can be seen to the rear of the spaceship through oriels and airlocks of all sizes."       -- E and W sides are borders with other level sections, so no oriels.       -- The meteor shield towards N is not punctured here, because@@ -321,94 +396,106 @@   } outermost = empty   { cname         = "Outermost deck"-  , cfreq         = [("caveOutermost", 100)]-  , cactorCoeff   = 5  -- shallower than LH, so fewer immediate actors, so boost-  , cactorFreq    = [ ("animal", 3), ("robot", 1)-                    , ("immobile robot", 90), ("immobile animal", 2)-                    , ("aquatic animal", 2) ]  -- ("aquatic robot", 2)+  , cfreq         = [(CAVE_OUTERMOST, 100)]+  , cactorCoeff   = 4  -- shallower than LH, so fewer immediate actors, so boost+  , cactorFreq    = [ (ANIMAL, 3), (ROBOT, 1)+                    , (IMMOBILE_ROBOT, 90), (IMMOBILE_ANIMAL, 2)+                    , (AQUATIC_ANIMAL, 2) ]  -- (AQUATIC_ROBOT, 2)       -- The medbot faucets on lvl 1 act like HP resets. Needed to avoid       -- cascading failure, if the particular starting conditions were       -- very hard. Items are not reset, even if they are bad, which provides       -- enough of a continuity. The faucets on lvl 1 are not OP and can't be       -- abused, because they spawn less and less often and also HP doesn't       -- effectively accumulate over max.-  , citemFreq     = ("starting weapon", 20)-                    : filter ((/= "treasure") . fst) (citemFreq empty)-  , cfenceTileN   = "oriels fence"-  , cfenceTileE   = "habitat containment wall"-  , cfenceTileS   = "empty airlock fence"-  , cfenceTileW   = "habitat containment wall"-  , cdesc         = "The black sky outside sucks light through the oriel and airlock glass in the walls and floor of this outermost level. Each minute, the dusky melancholic light of the distant Sun attempts for a few seconds to squeeze in but is repelled by artificial lighting. The mucky floor looks misleadingly straight, its curvature noticeable only across the whole extent of the hull section. Overflowing water treatment basins and series of hanging and stacked tanks double as radiation shields. Hoses writhe on the ground and dangle in thick knots from the ceiling. This deck is the main pressurized cargo bay and storage, with the only other docking hub for small craft somewhere among the giant spaceship's upper levels. You recognize an inner airlock door smeared with guano, but you can't see the shuttle you left engaged to the airlock clamps outside. "+  , citemFreq     = [ (IK.COMMON_ITEM, 50), (IK.CRAWL_ITEM, 50)+                    , (GARDENING_TOOL, 600) ]+  , cfenceTileN   = ORIELS_FENCE+  , cfenceTileE   = HABITAT_CONTAINMENT_WALL+  , cfenceTileS   = EMPTY_AIRLOCK_FENCE+  , cfenceTileW   = HABITAT_CONTAINMENT_WALL+  , cmaxStairsNum = 2+  , cdesc         = "This is as far as one can go \"down\". The void outside sucks light through the oriel and airlock glass in the walls and floor of this outermost level. Each minute, the dusky melancholic light of the distant Sun attempts for a few seconds to squeeze in but is repelled by artificial lighting.\nThe mucky floor marked by unkempt greenery looks misleadingly straight, its curvature noticeable only across the whole extent of the hull section. Overflowing water basins and series of hanging and stacked tanks double as radiation shields. Hoses writhe on the ground and dangle in thick knots from the ceiling. With proper tools, some of the containers could be opened and working spaces productively employed. There is no junk is space.\nThis deck is the main pressurized cargo bay and storage, with the only other docking hub for small craft located among the giant spaceship's upper levels. Somewhere here must be the airlock you docked your shuttle to and stacked your supplies against."       -- E and W sides are borders with other level sections, so no oriels.   } bridge = rogue   { csymbol       = 'B'   , cname         = "Captain's bridge"-  , cfreq         = [("caveBridge", 1)]+  , cfreq         = [(CAVE_BRIDGE, 1)]   , cXminSize     = 30   , cYminSize     = 30   , ccellSize     = DiceXY (2 `d` 4 + 5) (1 `d` 2 + 5)   , cminPlaceSize = DiceXY (2 `d` 2 + 3) (1 `d` 2 + 4)  -- sometimes merge all   , cmaxPlaceSize = DiceXY 16 20-  , cminStairDist = 10   , cdarkOdds     = 0  -- all rooms lit, for a gentle start   , cauxConnects  = 2  -- few rooms, so many corridors-  , cextraStairs  = 1   , cactorCoeff   = 300  -- it's quite deep already, so spawn slowly;-                         -- initially best for sleeping, then all catch up-  , cactorFreq    = [("animal", 100)]-  , citemNum      = 8 `d` 3  -- lure them in with loot-  , citemFreq     = filter ((`notElem` ["treasure", "curious item"]) . fst)-                    $ citemFreq rogue-  , cdefTile      = "fillerWall"-  , cfenceTileN   = "habitat containment wall"  -- cave isolated for safety-  , cfenceTileE   = "habitat containment wall"-  , cfenceTileS   = "habitat containment wall"-  , cfenceTileW   = "habitat containment wall"-  , cstairFreq    = [ ("welded walled lift", 50)-                    , ("welded open lift", 50)-                    , ("welded tiny lift", 1) ]-  , cstairAllowed = [ ("welded walled staircase", 50)-                    , ("welded open staircase", 50)-                    , ("welded tiny staircase", 1) ]-  , cdesc         = "The bridge is gutted out and nonoperational. There are animal cries down below and ominous silence up above."+                         -- this is initially the best level for sleeping+  , cactorFreq    = [(ANIMAL, 100)]+  , citemNum      = 12 `d` 2  -- lure them in with loot+  , citemFreq     = [(IK.COMMON_ITEM, 100), (GARDENING_TOOL, 800)]+  , cdefTile      = FILLER_WALL+  , cfenceTileN   = HABITAT_CONTAINMENT_WALL  -- cave isolated for safety+  , cfenceTileE   = HABITAT_CONTAINMENT_WALL+  , cfenceTileS   = HABITAT_CONTAINMENT_WALL+  , cfenceTileW   = HABITAT_CONTAINMENT_WALL+  , cminStairDist = 10+  , cmaxStairsNum = 1+  , cstairFreq    = [ (WELDED_WALLED_LIFT, 50)+                    , (WELDED_OPEN_LIFT, 50)+                    , (WELDED_TINY_LIFT, 1) ]+  , cstairAllowed = [ (WELDED_WALLED_STAIRCASE, 50)+                    , (WELDED_OPEN_STAIRCASE, 50)+                    , (WELDED_TINY_STAIRCASE, 1) ]+  , cdesc         = "The bridge is gutted out and nonoperational. You saved space on the shuttle by only packing demolition equipment (and booze, long gone, all flasks flung to fend off the annoying vermin) and now you can't even attempt repairs. You are also short on rations and vials of medicine to treat your recent wounds. Only water is plentiful on the ship: gaseous, liquid, frozen. There are animal cries down below and ominous silence up above."   } shallowRogue = rogue-  { cfreq         = [("caveShallowRogue", 100)]+  { cfreq         = [(CAVE_SHALLOW_ROGUE, 100)]   , cXminSize     = 60   , cYminSize     = 37-  , cextraStairs  = 2-  , cactorCoeff   = 40  -- more difficult-  , cactorFreq    = filter ((/= "monster") . fst) $ cactorFreq rogue-  , citemNum      = 8 `d` 4-  , citemFreq     = ("starting weapon", 20)-                    : filter ((/= "treasure") . fst) (citemFreq rogue)-  , cdesc         = "This close to the outermost deck, residence is not permitted and walls and doors are sturdier, to contain a theoretically possible micro-meteorite breach. The entry is not closed off, though, because some passengers can't live without a regular pilgrimage to 'look outside'. Apparently, gazing at the sharp pin-points of stars and planets through the reinforced oriel glass is incomparable to watching the same through the thin polymer of wall displays. Animals appear to share the fascination of outer decks, perhaps attracted by the increased gravity, nearly Earth-like, unlike elsewhere on the ship."+  , cactorCoeff   = 120  -- more difficult+  , cactorFreq    = filter ((/= MONSTER) . fst) $ cactorFreq rogue+  , citemNum      = 14 `d` 2+  , citemFreq     = [ (IK.COMMON_ITEM, 40), (IK.CRAWL_ITEM, 60)+                    , (GARDENING_TOOL, 700), (IK.ANY_FLASK, 200) ]+  , cminStairDist = 15+  , cmaxStairsNum = 2+  , cskip         = [0, 1]  -- ban foes camping on either stairs+  , cdesc         = "This close to the outermost deck, residence is not permitted and walls and doors are sturdier to contain a theoretically possible micro-meteorite breach. The entry is not closed off, though, because some passengers can't live without a regular pilgrimage to 'look outside' and the only way to the bottom-most level leads through here. Apparently, gazing at the sharp pin-points of stars and planets through the reinforced oriel glass is incomparable to watching the same through the thin polymer of wall displays.\nAnimals appear to share the fascination of outer decks, perhaps attracted by the increased gravity, nearly Earth-like, unlike elsewhere on the ship. However, they dislike many industrial fluids stored on these floors, so flinging random flasks at them works as an effective deterrent. Moreover, if you throw an unidentified flask, you can be sure you won't waste a badly needed nano medicine, because it's never stored in such large containers. Even tiny vials cost a fortune."   }  -- * "Caves" on various celestial bodies (including, but not limited to, moons,---   with virtually no story-wise limits wrt height and size+--    with virtually no story-wise limits wrt height and size.+--    Here @citemNum@ is very random, for interesting replays; no risk+--    of bad rolls accumulating and trashing a long game, particularly+--    in symmetric scenarios, where both parties can use extra loot+--    equally well.  raid = rogue   { csymbol       = 'S'   , cname         = "Triton City sewers"-  , cfreq         = [("caveRaid", 1)]-  , cXminSize     = 50+  , cfreq         = [(CAVE_RAID, 1)]+  , cXminSize     = 60  -- long sewer tunnels   , cYminSize     = 21   , ccellSize     = DiceXY (2 `d` 2 + 7) 6   , cminPlaceSize = DiceXY (2 `d` 2 + 4) 5  -- sometimes merge all   , cmaxPlaceSize = DiceXY 16 20   , cdarkOdds     = 0  -- all rooms lit, for a gentle start   , cmaxVoid      = 1%10-  , cdefTile      = "fillerWall"-  , cextraStairs  = 0+  , cdefTile      = FILLER_WALL   , cactorCoeff   = 250  -- deep level with no kit, so slow spawning-  , cactorFreq    = [("animal", 50), ("robot", 50)]-  , citemNum      = 6 `d` 6  -- just one level, hard enemies, treasure-  , citemFreq     = [("common item", 100), ("currency", 500)]-  , cescapeFreq   = [("escape up", 1)]+  , cactorFreq    = [(ANIMAL, 50), (ROBOT, 50)]+  , citemNum      = 9 `d` 6  -- just one level, hard enemies, treasure+  , citemFreq     = [ (IK.COMMON_ITEM, 30)+                    , (STARTING_ARMOR, 100), (STARTING_WEAPON, 300)+                    , (WEAK_ARROW, 100), (LIGHT_ATTENUATOR, 50)+                    , (IK.S_CURRENCY, 400), (IK.ANY_SCROLL, 100) ]+                    -- introducing chips in this scenario+  , cplaceFreq    = [(RAID, 1)]+  , cmaxStairsNum = 0+  , cescapeFreq   = [(INDOOR_ESCAPE_UP, 1)]   , cstairFreq    = []   , cstairAllowed = []+  , cskip         = [0]   , cdesc         = "Mold spreads across the walls and scuttling sounds can be heard in the distance."   } brawl = rogue  -- many random solid tiles, to break LOS, since it's a day@@ -416,7 +503,7 @@                -- also, sanctuaries against missiles in shadow under trees   { csymbol       = 'S'   , cname         = "Woodland biosphere"-  , cfreq         = [("caveBrawl", 1)]+  , cfreq         = [(CAVE_BRAWL, 1)]   , cXminSize     = 60   , cYminSize     = 30   , ccellSize     = DiceXY (2 `d` 5 + 5) 7@@ -426,21 +513,34 @@   , cnightOdds    = 0   , cdoorChance   = 1   , copenChance   = 0-  , cextraStairs  = 0   , chidden       = 0   , cactorFreq    = []-  , citemNum      = 5 `d` 6-  , citemFreq     = [("common item", 100)]-  , cplaceFreq    = [("brawl", 1)]+  , citemNum      = 6 `d` 6+  , citemFreq     = [ (IK.COMMON_ITEM, 50)+                    , (STARTING_WEAPON, 200), (STARTING_ARMOR, 400)+                    , (IK.ANY_SCROLL, 100), (IK.ANY_POTION, 600) ]+                    -- introducing vials in this scenario+  , cplaceFreq    = [(BRAWL, 1)]   , cpassable     = True-  , cdefTile      = "brawlSetLit"-  , cdarkCorTile  = "dirt Lit"-  , clitCorTile   = "dirt Lit"-  , cwallTile     = "openableWall"-  , cstairFreq    = []+  , cdefTile      = BRAWL_SET_LIT+  , cdarkCorTile  = DIRT_LIT+  , clitCorTile   = DIRT_LIT+  , cwallTile     = OPENABLE_WALL+  , cmaxStairsNum = 1+  , cstairFreq    = [(OUTDOOR_TINY_STAIRCASE, 1)]   , cstairAllowed = []+  , cskip         = []  -- start heroes on stairs, since they are created first   , cdesc         = "Shadows pool under the trees and leaves crunch underfoot."   }+brawlAlt = brawl+  { cfreq         = [(CAVE_BRAWL_ALT, 1)]+  , cmaxVoid      = 1%100  -- to ensure enough trees+  , cdefTile      = HUNT_SET_LIT  -- alt+  , cdarkCorTile  = S_FROZEN_PATH  -- alt+  , clitCorTile   = S_FROZEN_PATH+  , cskip         = [0]  -- ban foes camping on stairs+  , cdesc         = "With the Sun so distant, biospheres are stacked vertically rather than horizontally, sharing drainage, not lighting."+  } shootout = rogue  -- a scenario with strong missiles;                   -- few solid tiles, but only translucent tiles or walkable                   -- opaque tiles, to make scouting and sniping more interesting@@ -448,40 +548,41 @@                   -- scenario is about ranged combat at long range   { csymbol       = 'S'   , cname         = "Hydroponic farm"  -- still a neutral, official wording-  , cfreq         = [("caveShootout", 1)]+  , cfreq         = [(CAVE_SHOOTOUT, 1)]   , ccellSize     = DiceXY (1 `d` 2 + 5) 6   , cminPlaceSize = DiceXY 3 3  -- rarely merge vertically   , cmaxPlaceSize = DiceXY 5 5-  , cdarkOdds     = 51+  , cdarkOdds     = 0  -- all lit, not to duplicate the @hunt@ ranged tactics   , cnightOdds    = 0   , cauxConnects  = 1%10   , cdoorChance   = 1   , copenChance   = 0-  , cextraStairs  = 0   , chidden       = 0   , cactorFreq    = []-  , citemNum      = 5 `d` 16+  , citemNum      = 6 `d` 16                       -- less items in inventory, more to be picked up,                       -- to reward explorer and aggressor and punish camper-  , citemFreq     = [ ("common item", 30)-                    , ("any arrow", 400), ("harpoon", 300), ("explosive", 50) ]+  , citemFreq     = [ (IK.COMMON_ITEM, 30), (GARDENING_TOOL, 500)+                    , (ANY_ARROW, 400), (HARPOON, 200), (IK.EXPLOSIVE, 300) ]                       -- Many consumable buffs are needed in symmetric maps                       -- so that aggressor prepares them in advance and camper                       -- needs to waste initial turns to buff for the defence.-  , cplaceFreq    = [("shootout", 1)]+  , cplaceFreq    = [(SHOOTOUT, 1)]   , cpassable     = True-  , cdefTile      = "shootoutSetLit"-  , cdarkCorTile  = "dirt Lit"-  , clitCorTile   = "dirt Lit"-  , cwallTile     = "openableWall"+  , cdefTile      = SHOOTOUT_SET_LIT+  , cdarkCorTile  = DIRT_LIT+  , clitCorTile   = DIRT_LIT+  , cwallTile     = OPENABLE_WALL+  , cmaxStairsNum = 0   , cstairFreq    = []   , cstairAllowed = []-  , cdesc         = "Once so carefully curated, the planting beds are now overgrown and choked with weeds."  -- when we know what fits the plot, suggest it here; e.g., there are better way to earn money, shortage of manpower, dangerous area of the city, mismanagement by the city council+  , cdesc         = "Once so carefully curated, the planting beds are now overgrown and choked with weeds. The recently imposed high taxes make the traditional ways of life in space unsustainable."  -- also explains the gangs elsewhere and the motivation of adventurers to take risks (in addition to male hormones)   }-hunt = rogue  -- a scenario with strong missiles for ranged and shade for melee+hunt = rogue  -- a scenario with strong missiles for ranged and shade for melee;+              -- the human is likely to focus on melee, not having overwatch   { csymbol       = 'H'   , cname         = "Swamp biosphere"-  , cfreq         = [("caveHunt", 1)]+  , cfreq         = [(CAVE_HUNT, 1)]   , ccellSize     = DiceXY (1 `d` 2 + 5) 6   , cminPlaceSize = DiceXY 3 3  -- rarely merge vertically   , cmaxPlaceSize = DiceXY 5 5@@ -490,18 +591,17 @@   , cauxConnects  = 1%10   , cdoorChance   = 1   , copenChance   = 0-  , cextraStairs  = 0   , chidden       = 0   , cactorFreq    = []-  , citemNum      = 5 `d` 10-  , citemFreq     = [ ("common item", 30)-                    , ("any arrow", 400), ("harpoon", 300), ("explosive", 50) ]-  , cplaceFreq    = [("brawl", 50), ("shootout", 100)]+  , citemNum      = 6 `d` 10+  , citemFreq     = [(IK.COMMON_ITEM, 30), (ANY_ARROW, 60), (HARPOON, 30)]+  , cplaceFreq    = [(BRAWL, 50), (SHOOTOUT, 100)]   , cpassable     = True-  , cdefTile      = "huntSetLit"  -- much more water than in shootoutSetLit-  , cdarkCorTile  = "dirt Lit"-  , clitCorTile   = "dirt Lit"-  , cwallTile     = "openableWall"+  , cdefTile      = HUNT_SET_LIT  -- much more water than in shootoutSetLit+  , cdarkCorTile  = DIRT_LIT+  , clitCorTile   = DIRT_LIT+  , cwallTile     = OPENABLE_WALL+  , cmaxStairsNum = 0   , cstairFreq    = []   , cstairAllowed = []   , cdesc         = "Mangrove trees and murky water, inspired by a habitat now eradicated from Earth."@@ -512,7 +612,7 @@                 -- lots of small lights to cross, to have some risks   { csymbol       = 'E'   , cname         = "Red Collar Bros den"  -- tension rises; non-official name-  , cfreq         = [("caveEscape", 1)]+  , cfreq         = [(CAVE_ESCAPE, 1)]   , ccellSize     = DiceXY (1 `d` 3 + 6) 7   , cminPlaceSize = DiceXY 5 4  -- rarely merge   , cmaxPlaceSize = DiceXY 9 9  -- bias towards larger lamp areas@@ -520,28 +620,29 @@   , cnightOdds    = 51  -- always night   , cauxConnects  = 2  -- many lit trails, so easy to aim   , cmaxVoid      = 1%100-  , cextraStairs  = 0   , chidden       = 0   , cactorFreq    = []-  , citemNum      = 6 `d` 8-  , citemFreq     = [ ("common item", 30), ("gem", 150)-                    , ("weak arrow", 500), ("harpoon", 400)-                    , ("explosive", 100) ]-  , cplaceFreq    = [("escape", 1)]+  , citemNum      = 8 `d` 8+  , citemFreq     = [ (IK.COMMON_ITEM, 30), (STARTING_ARMOR, 100)+                    , (LIGHT_ATTENUATOR, 300), (GEM, 400)+                    , (WEAK_ARROW, 400), (HARPOON, 200), (IK.EXPLOSIVE, 200) ]+  , cplaceFreq    = [(ESCAPE, 1)]   , cpassable     = True-  , cdefTile      = "escapeSetDark"-  , cdarkCorTile  = "safeTrailLit"  -- let trails give off light-  , clitCorTile   = "safeTrailLit"-  , cwallTile     = "openableWall"-  , cescapeFreq   = [("escape outdoor down", 1)]+  , cdefTile      = ESCAPE_SET_DARK+  , cdarkCorTile  = SAFE_TRAIL_LIT  -- let trails give off light+  , clitCorTile   = SAFE_TRAIL_LIT+  , cwallTile     = OPENABLE_WALL+  , cescapeFreq   = [(OUTDOOR_ESCAPE_DOWN, 1)]+  , cmaxStairsNum = 0   , cstairFreq    = []   , cstairAllowed = []+  , cskip         = [0]  -- don't start heroes on exit   , cdesc         = "Graffiti scrawls across the walls and the heavy scents of stimulants hang in the air."   } zoo = rogue  -- few lights and many solids, to help the less numerous heroes   { csymbol       = 'Z'   , cname         = "Municipal zoo in flames"  -- non-official adjective-  , cfreq         = [("caveZoo", 1)]+  , cfreq         = [(CAVE_ZOO, 1)]   , ccellSize     = DiceXY (1 `d` 4 + 7) 8   , cminPlaceSize = DiceXY 4 4  -- don't merge   , cmaxPlaceSize = DiceXY 14 7@@ -551,18 +652,18 @@   , cmaxVoid      = 1%20   , cdoorChance   = 7%10   , copenChance   = 9%10-  , cextraStairs  = 0   , chidden       = 0   , cactorFreq    = []-  , citemNum      = 7 `d` 8-  , citemFreq     = [ ("common item", 100), ("light source", 1000)-                    , ("starting weapon", 1000) ]-  , cplaceFreq    = [("zoo", 1)]+  , citemNum      = 9 `d` 8+  , citemFreq     = [ (IK.COMMON_ITEM, 100), (LIGHT_ATTENUATOR, 1000)+                    , (STARTING_ARMOR, 500), (STARTING_WEAPON, 1000) ]+  , cplaceFreq    = [(ZOO, 1)]   , cpassable     = True-  , cdefTile      = "zooSetDark"-  , cdarkCorTile  = "safeTrailLit"  -- let trails give off light-  , clitCorTile   = "safeTrailLit"-  , cwallTile     = "openableWall"+  , cdefTile      = ZOO_SET_DARK+  , cdarkCorTile  = SAFE_TRAIL_LIT  -- let trails give off light+  , clitCorTile   = SAFE_TRAIL_LIT+  , cwallTile     = OPENABLE_WALL+  , cmaxStairsNum = 0   , cstairFreq    = []   , cstairAllowed = []   , cdesc         = "Leaping flames illuminate the cages; not all are empty."@@ -579,25 +680,25 @@                 -- and the level is big enough for all that   { csymbol       = 'M'   , cname         = "Ravaged spaceport"  -- non-official adjective-  , cfreq         = [("caveAmbush", 1)]+  , cfreq         = [(CAVE_AMBUSH, 1)]   , ccellSize     = DiceXY 11 6   , cminPlaceSize = DiceXY 9 10  -- merge vertically   , cmaxPlaceSize = DiceXY 40 30  -- allow hangars and shuttles-  , cdarkOdds     = 0+  , cdarkOdds     = 51  -- all dark to spread loot evenly   , cnightOdds    = 51  -- always night   , cauxConnects  = 1%10  -- few lit trails, so hard to aim-  , cextraStairs  = 0   , chidden       = 0   , cactorFreq    = []-  , citemNum      = 5 `d` 8-  , citemFreq     = [ ("common item", 30)-                    , ("any arrow", 400), ("harpoon", 300), ("explosive", 50) ]-  , cplaceFreq    = [("ambush", 1)]+  , citemNum      = 10 `d` 10+  , citemFreq     = [ (IK.COMMON_ITEM, 30), (MERCENARY_AMMO, 200)+                    , (HARPOON, 300), (IK.EXPLOSIVE, 50) ]+  , cplaceFreq    = [(AMBUSH, 1)]   , cpassable     = True-  , cdefTile      = "ambushSetDark"-  , cdarkCorTile  = "trailLit"  -- let trails give off light-  , clitCorTile   = "trailLit"-  , cwallTile     = "openableWall"+  , cdefTile      = AMBUSH_SET_DARK+  , cdarkCorTile  = TRAIL_LIT  -- let trails give off light+  , clitCorTile   = TRAIL_LIT+  , cwallTile     = OPENABLE_WALL+  , cmaxStairsNum = 0   , cstairFreq    = []   , cstairAllowed = []   , cdesc         = "Scarred walls and ransacked lockers show the total breakdown of order."  -- seems related to the abandoned farm; perhaps distantly to the existence of the gangs; more closely to the mystery of the lost and found space cruiser and various parties interested in it@@ -608,7 +709,7 @@ battle = rogue  -- few lights and many solids, to help the less numerous heroes   { csymbol       = 'B'   , cname         = "Old industrial plant"-  , cfreq         = [("caveBattle", 1)]+  , cfreq         = [(CAVE_BATTLE, 1)]   , ccellSize     = DiceXY (5 `d` 3 + 11) 7   , cminPlaceSize = DiceXY 4 4   , cmaxPlaceSize = DiceXY 9 7@@ -618,53 +719,51 @@   , cmaxVoid      = 1%20   , cdoorChance   = 2%10   , copenChance   = 9%10-  , cextraStairs  = 0   , chidden       = 0   , cactorFreq    = []-  , citemNum      = 5 `d` 8-  , citemFreq     = [("common item", 100), ("light source", 200)]-  , cplaceFreq    = [("battle", 50), ("rogue", 50)]+  , citemNum      = 6 `d` 8+  , citemFreq     = [(IK.COMMON_ITEM, 100), (LIGHT_ATTENUATOR, 200)]+  , cplaceFreq    = [(BATTLE, 50), (ROGUE, 50)]   , cpassable     = True-  , cdefTile      = "battleSetDark"-  , cdarkCorTile  = "safeTrailLit"  -- let trails give off light-  , clitCorTile   = "safeTrailLit"-  , cwallTile     = "openableWall"+  , cdefTile      = BATTLE_SET_DARK+  , cdarkCorTile  = SAFE_TRAIL_LIT  -- let trails give off light+  , clitCorTile   = SAFE_TRAIL_LIT+  , cwallTile     = OPENABLE_WALL   , cfenceApart   = True  -- ensures no cut-off parts from collapsed+  , cmaxStairsNum = 0   , cstairFreq    = []   , cstairAllowed = []   , cdesc         = "Huge machines stand silent and powerless in the dark."   } safari1 = brawl   { cname         = "Hunam habitat"-  , cfreq         = [("caveSafari1", 1)]+  , cfreq         = [(CAVE_SAFARI_1, 1)]   , cminPlaceSize = DiceXY 5 3-  , cextraStairs  = 1-  , cstairFreq    = [ ("outdoor walled staircase", 20)-                    , ("outdoor closed staircase", 80)-                    , ("outdoor tiny staircase", 1) ]-  , cstairAllowed = []+  , cstairFreq    = [ (OUTDOOR_WALLED_STAIRCASE, 20)+                    , (OUTDOOR_CLOSED_STAIRCASE, 80)+                    , (OUTDOOR_TINY_STAIRCASE, 1) ]+  , cskip         = [0]   , cdesc         = "\"DLC 1. Hunams scavenge in a forest in their usual disgusting way.\""   } safari2 = escape  -- lamps instead of trees, but ok, it's only a simulation   { cname         = "Deep into the jungle"-  , cfreq         = [("caveSafari2", 1)]-  , cextraStairs  = 1+  , cfreq         = [(CAVE_SAFARI_2, 1)]+  , cmaxStairsNum = 1   , cescapeFreq   = []-  , cstairFreq    = [ ("outdoor walled staircase", 20)-                    , ("outdoor closed staircase", 80)-                    , ("outdoor tiny staircase", 1) ]-  , cstairAllowed = []+  , cstairFreq    = [ (OUTDOOR_WALLED_STAIRCASE, 20)+                    , (OUTDOOR_CLOSED_STAIRCASE, 80)+                    , (OUTDOOR_TINY_STAIRCASE, 1) ]+  , cskip         = [0]   , cdesc         = "\"DLC 2. In the dark pure heart of the jungle noble animals roam freely.\""   } safari3 = zoo  -- glass rooms, but ok, it's only a simulation   { cname         = "Jungle in flames"-  , cfreq         = [("caveSafari3", 1)]+  , cfreq         = [(CAVE_SAFARI_3, 1)]   , cminPlaceSize = DiceXY 5 4-  , cescapeFreq   = [("escape outdoor down", 1)]-  , cextraStairs  = 1-  , cstairFreq    = [ ("outdoor walled staircase", 20)-                    , ("outdoor closed staircase", 80)-                    , ("outdoor tiny staircase", 1) ]-  , cstairAllowed = []+  , cescapeFreq   = [(OUTDOOR_ESCAPE_DOWN, 1)]+  , cmaxStairsNum = 1+  , cstairFreq    = [ (OUTDOOR_WALLED_STAIRCASE, 20)+                    , (OUTDOOR_CLOSED_STAIRCASE, 80)+                    , (OUTDOOR_TINY_STAIRCASE, 1) ]   , cdesc         = "\"DLC 3. Jealous hunams set jungle on fire and flee.\""   }

@@ -1,1888 +1,2840 @@ -- Copyright (c) 2008--2011 Andres Loeh--- Copyright (c) 2010--2019 Mikolaj Konarski and others (see git history)--- This file is a part of the computer game Allure of the Stars--- and is released under the terms of the GNU Affero General Public License.--- For license and copyright information, see the file LICENSE.------ | Item definitions.-module Content.ItemKind-  ( content, items, otherItemContent-  ) where--import Prelude ()--import Game.LambdaHack.Core.Prelude--import Content.ItemKindActor-import Content.ItemKindBlast-import Content.ItemKindEmbed-import Content.ItemKindOrgan-import Content.ItemKindTemporary-import Content.RuleKind-import Game.LambdaHack.Content.ItemKind-import Game.LambdaHack.Content.RuleKind-import Game.LambdaHack.Core.Dice-import Game.LambdaHack.Definition.Ability-import Game.LambdaHack.Definition.Color-import Game.LambdaHack.Definition.Defs-import Game.LambdaHack.Definition.Flavour--content :: [ItemKind]-content = items ++ otherItemContent--otherItemContent :: [ItemKind]-otherItemContent = embeds ++ actors ++ organs ++ blasts ++ temporaries--items :: [ItemKind]-items =-  [sandstoneRock, dart, spike, spike2, slingStone, slingBullet, paralizingProj, harpoon, harpoon2, net, light1, light2, light3, blanket, flaskTemplate, flask1, flask2, flask3, flask4, flask5, flask6, flask7, flask8, flask9, flask10, flask11, flask12, flask13, flask14, flask15, flask16, flask17, potionTemplate, potion1, potion2, potion3, potion4, potion5, potion6, potion7, potion8, potion9, potion10, potion11, potion12, fragmentationBomb, concussionBomb, flashBomb, firecrackerBomb, ediblePlantTemplate, ediblePlant1, ediblePlant2, ediblePlant3, ediblePlant4, ediblePlant5, ediblePlant6, ediblePlant7, scrollTemplate, scroll1, scroll2, scroll3, scroll4, scroll5, scroll6, scroll7, scroll8, scroll9, scroll10, scroll11, scroll12, scroll13, jumpingPole, sharpeningTool, seeingItem, motionScanner, gorget, necklaceTemplate, necklace1, necklace3, necklace4, necklace5, necklace6, necklace7, necklace8, necklace9, necklace10, imageItensifier, sightSharpening, ringTemplate, ring1, ring2, ring3, ring4, ring5, ring6, ring7, ring8, armorLeather, armorLeather2, armorMail, gloveFencing, gloveGauntlet, gloveJousting, hatUshanka, capReinforced, helmArmored, buckler, shield, shield2, shield3, dagger, daggerDropBestWeapon, hammerTemplate, hammer1, hammer2, hammer3, hammerParalyze, hammerSpark, sword, swordImpress, swordNullify, halberd, halberd2, halberdPushActor, wandTemplate, wand1, gemTemplate, gem1, gem2, gem3, gem4, gem5, currencyTemplate, currency]-  -- Allure-specific-  ++ [needle, needleSleep, constructionHooter, wasteContainer, spotlight, scrollAd1, blowtorch]--sandstoneRock,    dart, spike, spike2, slingStone, slingBullet, paralizingProj, harpoon, harpoon2, net, light1, light2, light3, blanket, flaskTemplate, flask1, flask2, flask3, flask4, flask5, flask6, flask7, flask8, flask9, flask10, flask11, flask12, flask13, flask14, flask15, flask16, flask17, potionTemplate, potion1, potion2, potion3, potion4, potion5, potion6, potion7, potion8, potion9, potion10, potion11, potion12, fragmentationBomb, concussionBomb, flashBomb, firecrackerBomb, ediblePlantTemplate, ediblePlant1, ediblePlant2, ediblePlant3, ediblePlant4, ediblePlant5, ediblePlant6, ediblePlant7, scrollTemplate, scroll1, scroll2, scroll3, scroll4, scroll5, scroll6, scroll7, scroll8, scroll9, scroll10, scroll11, scroll12, scroll13, jumpingPole, sharpeningTool, seeingItem, motionScanner, gorget, necklaceTemplate, necklace1, necklace3, necklace4, necklace5, necklace6, necklace7, necklace8, necklace9, necklace10, imageItensifier, sightSharpening, ringTemplate, ring1, ring2, ring3, ring4, ring5, ring6, ring7, ring8, armorLeather, armorLeather2, armorMail, gloveFencing, gloveGauntlet, gloveJousting, hatUshanka, capReinforced, helmArmored, buckler, shield, shield2, shield3, dagger, daggerDropBestWeapon, hammerTemplate, hammer1, hammer2, hammer3, hammerParalyze, hammerSpark, sword, swordImpress, swordNullify, halberd, halberd2, halberdPushActor, wandTemplate, wand1, gemTemplate, gem1, gem2, gem3, gem4, gem5, currencyTemplate, currency :: ItemKind--- Allure-specific-needle, needleSleep, constructionHooter, wasteContainer, spotlight, scrollAd1, blowtorch :: ItemKind---- Keep the dice rolls and sides in aspects small so that not too many--- distinct items are generated (for display in item lore and for narrative--- impact ("oh, I found the more powerful of the two variants of the item!",--- instead of "hmm, I found one of the countless variants, a decent one").--- In particular, for unique items, unless they inherit aspects from--- a standard item, permit only a couple possible variants.--- This is especially important if an item kind has multiple random aspects.--- Instead multiply dice results, e.g., (1 `d` 3) * 5 instead of 1 `d` 15.------ Beware of non-periodic non-weapon durable items with beneficial effects--- and low timeout -- AI will starve applying such an item incessantly.---- * Item group symbols, from Angband and variants--symbolProjectile, _symbolLauncher, symbolLight, symbolTool, symbolSpecial, symbolGold, symbolNecklace, symbolRing, symbolPotion, symbolFlask, symbolScroll, symbolTorsoArmor, symbolMiscArmor, _symbolClothes, symbolShield, symbolPolearm, symbolEdged, symbolHafted, symbolWand, _symbolStaff, symbolFood :: Char--symbolProjectile = rsymbolProjectile standardRules  -- '{'-_symbolLauncher  = '}'-symbolLight      = '('-symbolTool       = ')'-symbolSpecial    = '*'  -- don't overuse, because it clashes with projectiles-symbolGold       = '$'  -- also gems-symbolNecklace   = '"'-symbolRing       = '='-symbolPotion     = '!'  -- concoction, bottle, jar, vial, canister-symbolFlask      = '!'-symbolScroll     = '?'  -- book, note, tablet, remote, chip, card-symbolTorsoArmor = '['-symbolMiscArmor  = '['-_symbolClothes   = '['-symbolShield     = ']'-symbolPolearm    = '/'-symbolEdged      = '|'-symbolHafted     = '\\'-symbolWand       = '-'  -- magical rod, transmitter, pistol, rifle, instrument-_symbolStaff     = '_'  -- scanner-symbolFood       = ','  -- also body part; distinct from floor: not middle dot---- * Generic items, for any epoch (some may be removed for Allure)---- ** Thrown weapons--sandstoneRock = ItemKind-  { isymbol  = symbolProjectile-  , iname    = "ceramic foam splinter"-  , ifreq    = [ ("sandstone rock", 1)-               , ("unreported inventory", 1) ]  -- too weak to spam-  , iflavour = zipPlain [Green]-  , icount   = 1 + 1 `d` 2  -- > 1, to let AI ignore sole pieces-  , irarity  = [(1, 50), (10, 1)]-  , iverbHit = "swat"-  , iweight  = 300-  , idamage  = 1 `d` 1-  , iaspects = [ AddSkill SkHurtMelee $ -16 * 5-               , SetFlag Fragile-               , toVelocity 70 ] -- not dense, irregular-  , ieffects = []-  , idesc    = "A light, irregular lump of ceramic foam used in construction."-  , ikit     = []-  }-dart = ItemKind-  { isymbol  = symbolProjectile-  , iname    = "billiard ball"-  , ifreq    = [("common item", 100), ("any arrow", 50), ("weak arrow", 50)]-  , iflavour = zipPlain [White]-  , icount   = 1 + 4 `dL` 5-  , irarity  = [(1, 15), (10, 5)]-  , iverbHit = "strike"-  , iweight  = 170-  , idamage  = 1 `d` 1-  , iaspects = [AddSkill SkHurtMelee $ (-15 + 1 `d` 2 + 1 `dL` 3) * 5]-                 -- only good against leather-  , ieffects = []-  , idesc    = "Ideal shape, size and weight for throwing."-  , ikit     = []-  }-spike = ItemKind-  { isymbol  = symbolProjectile-  , iname    = "steak knife"-  , ifreq    = [("common item", 100), ("any arrow", 50), ("weak arrow", 50)]-  , iflavour = zipPlain [Cyan]-  , icount   = 1 + 4 `dL` 5-  , irarity  = [(1, 10), (10, 10)]-  , iverbHit = "nick"-  , iweight  = 100-  , idamage  = 2 `d` 1-  , iaspects = [ AddSkill SkHurtMelee $ (-10 + 1 `d` 2 + 1 `dL` 3) * 5-                   -- heavy vs armor-               , SetFlag MinorEffects-               , toVelocity 70 ]  -- hitting with tip costs speed-  , ieffects = [ Explode "single spark"  -- when hitting enemy-               , OnSmash (Explode "single spark") ]  -- at wall hit-      -- this results in a wordy item synopsis, but it's OK, the spark really-      -- is useful in some situations, not just a flavour-  , idesc    = "Not particularly well balanced, but with a laser-sharpened titanium alloy tip and blade."-  , ikit     = []-  }-spike2 = spike-  { iname    = "heavy steak knife"-  , ifreq    = [("common item", 2), ("any arrow", 1), ("weak arrow", 1)]-  , icount   = 6 `dL` 5-  , iverbHit = "penetrate"-  , iweight  = 150-  , idamage = 4 `d` 1-  , iaspects = [ AddSkill SkHurtMelee $ (-10 + 1 `d` 2 + 1 `dL` 3) * 5-               , SetFlag MinorEffects-               , Odds (10 * 1 `dL` 10) [] [toVelocity 70] ]-                   -- at deep levels sometimes even don't limit velocity-  , idesc    = "Old, slightly discoloured, probably from a genuine steel. A heavy and surprisingly well balanced prop from a posh restaurant."  -- the theme of pre-modern things being more solid and intimidating-  }-slingStone = ItemKind-  { isymbol  = symbolProjectile-  , iname    = "steel hex nut"-  , ifreq    = [("common item", 5), ("any arrow", 100)]-  , iflavour = zipPlain [Blue]-  , icount   = 1 + 3 `dL` 4-  , irarity  = [(1, 1), (10, 20)]-  , iverbHit = "clobber"-  , iweight  = 200-  , idamage  = 1 `d` 1-  , iaspects = [ AddSkill SkHurtMelee $ (-10 + 1 `d` 2 + 1 `dL` 3) * 5-                   -- heavy, to bludgeon through armor-               , SetFlag MinorEffects-               , toVelocity 150 ]-  , ieffects = [ Explode "single spark"  -- when hitting enemy-               , OnSmash (Explode "single spark") ]  -- at wall hit-  , idesc    = "A large hexagonal fastening nut; due to its angular shape, securely lodging in the pouch of a makeshift string and cloth sling."-  , ikit     = []-  }-slingBullet = ItemKind-  { isymbol  = symbolProjectile-  , iname    = "bearing ball"-  , ifreq    = [("common item", 5), ("any arrow", 100)]-  , iflavour = zipPlain [BrBlack]-  , icount   = 1 + 6 `dL` 4-  , irarity  = [(1, 1), (10, 15)]-  , iverbHit = "slug"-  , iweight  = 28-  , idamage  = 1 `d` 1-  , iaspects = [ AddSkill SkHurtMelee $ (-17 + 1 `d` 2 + 1 `dL` 3) * 5-                   -- not too good against armor-               , ToThrow $ ThrowMod 200 100 2 ]  -- piercing-  , ieffects = []-  , idesc    = "Small but heavy bearing ball. Thanks to its size and shape, it doesn't snag when released from the makeshift sling's pouch. Minimal friction enable it to pierce through flesh when fast enough initially."  -- we lie, it doesn't slow down in our model; but it stops piercing alright-  , ikit     = []-  }---- ** Exotic thrown weapons---- Identified, because shape (and name) says it all. Detailed aspects id by use.--- This is an extremely large value for @Paralyze@. Normally for such values--- we should instead use condition that disables (almost) all stats,--- except @SkWait@, so that the player can switch leader and not be--- helpless nor experience instadeath (unless his party is 1-person--- or the actor is isolated, but that's usually player's fault).-paralizingProj = ItemKind-  { isymbol  = symbolProjectile-  , iname    = "can"-  , ifreq    = [("common item", 100), ("can of sticky foam", 1)]-  , iflavour = zipPlain [Magenta]-  , icount   = 1 `dL` 4-  , irarity  = [(5, 5), (10, 20)]-  , iverbHit = "glue"-  , iweight  = 1000-  , idamage  = 1 `d` 1-  , iaspects = [ ELabel "of sticky foam"-               , AddSkill SkHurtMelee $ -14 * 5-               , SetFlag Lobable, SetFlag Fragile-               , toVelocity 70 ]  -- unwieldy-  , ieffects = [Paralyze 15, OnSmash (Explode "glue") ]-  , idesc    = "A can of liquid, fast-setting construction foam."-  , ikit     = []-  }-harpoon = ItemKind-  { isymbol  = symbolProjectile-  , iname    = "harpoon"-  , ifreq    = [("curious item", 100), ("harpoon", 100), ("museum", 100)]-  , iflavour = zipPlain [Brown]-  , icount   = 1 `dL` 5-  , irarity  = [(7, 5), (10, 5)]-  , iverbHit = "hook"-  , iweight  = 750-  , idamage  = 5 `d` 1-  , iaspects = [AddSkill SkHurtMelee $ (-10 + 1 `d` 2 + 1 `dL` 3) * 5]-  , ieffects = [ PullActor (ThrowMod 200 50 1)  -- 1 step, fast-               , Yell ]  -- yell, because brutal-  , idesc    = "A display piece harking back to the Earth's oceanic tourism heyday. The cruel, barbed head lodges in its victim so painfully that the weakest tug of the thin line sends the victim flying."-  , ikit     = []-  }-harpoon2 = harpoon-  { iname    = "heavy harpoon"-  , ifreq    = [("curious item", 5), ("harpoon", 2)]-  , icount   = 2 `dL` 5-  , iweight  = 1000-  , idamage  = 10 `d` 1-  , idesc    = "A sharpened cargo-hook with high-tension cord."  -- could use some explanation of why it breaks when thrown, especially that's it's not apparent-  }-net = ItemKind-  { isymbol  = symbolProjectile-  , iname    = "net"-  , ifreq    = [("common item", 100)]-  , iflavour = zipPlain [BrGreen]-  , icount   = 1 `dL` 3-  , irarity  = [(5, 5), (10, 7)]-  , iverbHit = "entangle"-  , iweight  = 1000-  , idamage  = 2 `d` 1-  , iaspects = [AddSkill SkHurtMelee $ -14 * 5]-  , ieffects = [ toOrganBad "slowed" (3 + 1 `d` 3)-               , DropItem maxBound 1 CEqp "torso armor"-                   -- only one of each kind is dropped, because no rubbish-                   -- in this group and so no risk of exploit-               , SendFlying (ThrowMod 100 50 1) ]  -- 1 step; painful-  , idesc    = "A large synthetic fibre net with weights affixed along the edges. Entangles armor and restricts movement."-  , ikit     = []-  }---- ** Lights--light1 = ItemKind-  { isymbol  = symbolLight-  , iname    = "torch"-  , ifreq    = [ ("common item", 100), ("light source", 100)-               , ("wooden torch", 1) ]-  , iflavour = zipPlain [Brown]-  , icount   = 1 `dL` 4-  , irarity  = [(1, 30), (4, 1)]-  , iverbHit = "scorch"-  , iweight  = 1000-  , idamage  = 0-  , iaspects = [ AddSkill SkShine 3, AddSkill SkSight (-2)-                   -- not only flashes, but also sparks,-                   -- so unused by AI due to the mixed blessing-               , SetFlag Lobable, SetFlag Equipable-               , EqpSlot EqpSlotShine ]-                   -- not Fragile; reusable flare-  , ieffects = [Burn 1]-  , idesc    = "A puttering torch improvised with polymer sheets soaked in lubricant on a stick."-  , ikit     = []-  }-light2 = ItemKind-  { isymbol  = symbolLight-  , iname    = "oil lamp"-  , ifreq    = [("common item", 100), ("light source", 100)]-  , iflavour = zipPlain [BrYellow]-  , icount   = 1 `dL` 2-  , irarity  = [(6, 10)]-  , iverbHit = "burn"-  , iweight  = 1500-  , idamage  = 1 `d` 1-  , iaspects = [ AddSkill SkShine 3, AddSkill SkSight (-1)-               , SetFlag Lobable, SetFlag Fragile, SetFlag Equipable-               , EqpSlot EqpSlotShine ]-  , ieffects = [ Burn 1-               , toOrganBad "pacified" (2 + 1 `d` 2)-               , OnSmash (Explode "burning oil 2") ]-  , idesc    = "A restaurant table glass lamp filled with plant oil feeding a slender wick."-  , ikit     = []-  }-light3 = ItemKind-  { isymbol  = symbolLight-  , iname    = "brass lantern"-  , ifreq    = [("common item", 100), ("museum", 100), ("light source", 20)]-  , iflavour = zipPlain [Red]-  , icount   = 1-  , irarity  = [(6, 1), (10, 4)]-  , iverbHit = "burn"-  , iweight  = 3000-  , idamage  = 2 `d` 1-  , iaspects = [ AddSkill SkShine 4, AddSkill SkSight (-1)-               , SetFlag Lobable, SetFlag Fragile, SetFlag Equipable-               , EqpSlot EqpSlotShine ]-  , ieffects = [ Burn 1-               , toOrganBad "pacified" (4 + 1 `d` 2)-               , OnSmash (Explode "burning oil 4") ]-  , idesc    = "Very old, very bright and very heavy lantern made of hand-polished brass."-  , ikit     = []-  }-blanket = ItemKind-  { isymbol  = symbolLight-  , iname    = "mineral fibre blanket"-  , ifreq    = [("common item", 100), ("light source", 100), ("blanket", 1)]-  , iflavour = zipPlain [BrBlack]-  , icount   = 1-  , irarity  = [(1, 1)]  -- not every playthrough needs one-  , iverbHit = "swoosh"-  , iweight  = 1000-  , idamage  = 0-  , iaspects = [ AddSkill SkShine (-10)-               , AddSkill SkArmorMelee 2, AddSkill SkMaxCalm 5-               , SetFlag Lobable, SetFlag Equipable ]-                   -- not Fragile; reusable douse implement;-                   -- douses torch, lamp and lantern in one action,-                   -- both in equipment and when thrown at the floor-  , ieffects = []-  , idesc    = "Flame-retardant synthetic fibres."-  , ikit     = []-  }---- ** Exploding consumables, often intended to be thrown.---- Not identified, because they are perfect for the id-by-use fun,--- due to effects. They are fragile and upon hitting the ground explode--- for effects roughly corresponding to their normal effects.--- Whether to hit with them or explode them close to the target--- is intended to be an interesting tactical decision.------ Flasks are often not natural; maths, magic, distillery.--- In fact, they just cover all conditions, except those for stats.------ There is no flask nor condition of Calm depletion,--- because Calm reduced often via combat, etc.--flaskTemplate = ItemKind-  { isymbol  = symbolFlask-  , iname    = "flask"-  , ifreq    = [("flask unknown", 1)]-  , iflavour = zipGlassPlain darkCol ++ zipGlassFancy darkCol-               ++ zipLiquid darkCol-                 -- ++ zipPlain darkCol ++ zipFancy darkCol-  , icount   = 1 `dL` 3-  , irarity  = [(1, 7), (10, 3)]-  , iverbHit = "splash"-  , iweight  = 500-  , idamage  = 0-  , iaspects = [ HideAs "flask unknown", SetFlag Lobable, SetFlag Fragile-               , toVelocity 50 ]  -- oily, bad grip-  , ieffects = []-  , idesc    = "A flask of oily liquid of a suspect color. Something seems to be moving inside. Double dose causes twice longer effect."-  , ikit     = []-  }-flask1 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , icount   = 1 `dL` 5-  , irarity  = [(10, 10)]-  , iaspects = ELabel "of strength renewal brew"-               : iaspects flaskTemplate-  , ieffects = [ toOrganGood "strengthened" (20 + 1 `d` 5)-               , toOrganNoTimer "regenerating"-               , OnSmash (Explode "dense shower") ]-  }-flask2 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , iaspects = ELabel "of weakness brew"-               : iaspects flaskTemplate-  , ieffects = [ toOrganBad "weakened" (20 + 1 `d` 5)-               , OnSmash (Explode "sparse shower") ]-  }-flask3 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , iaspects = ELabel "of melee protective balm"-               : iaspects flaskTemplate-  , ieffects = [ toOrganGood "protected from melee" (20 + 1 `d` 5)-               , OnSmash (Explode "melee protective balm") ]-  }-flask4 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , iaspects = ELabel "of ranged protective balm"-               : iaspects flaskTemplate-  , ieffects = [ toOrganGood "protected from ranged" (20 + 1 `d` 5)-               , OnSmash (Explode "ranged protective balm") ]-  }-flask5 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , iaspects = ELabel "of fluorescent paint"-               : iaspects flaskTemplate-  , ieffects = [ toOrganBad "painted" (20 + 1 `d` 5)-               , OnSmash (Explode "fluorescent paint") ]-  }-flask6 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , irarity  = [(1, 1)]  -- not every playthrough needs one-  , iaspects = ELabel "of resolution"-               : iaspects flaskTemplate-  , ieffects = [ toOrganGood "resolute" (500 + 1 `d` 200)  -- long, for scouting-               , RefillCalm 60  -- not to make it a drawback, via @calmEnough@-               , OnSmash (Explode "resolution dust") ]-  }-flask7 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , icount   = 1  -- too powerful en masse-  , iaspects = ELabel "of haste brew"-               : iaspects flaskTemplate-  , ieffects = [ toOrganGood "hasted" (20 + 1 `d` 5)-               , OnSmash (Explode "haste spray") ]-  }-flask8 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , iaspects = ELabel "of eye drops"-               : iaspects flaskTemplate-  , ieffects = [ toOrganGood "far-sighted" (40 + 1 `d` 10)-               , OnSmash (Explode "eye drop") ]-  }-flask9 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , irarity  = [(10, 2)]  -- not very useful right now-  , iaspects = ELabel "of smelly concoction"-               : iaspects flaskTemplate-  , ieffects = [ toOrganGood "keen-smelling" (40 + 1 `d` 10)-               , Detect DetectActor 10  -- make it at least slightly useful-               , OnSmash (Explode "smelly droplet") ]-  }-flask10 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , irarity  = [(10, 2)]  -- not very useful right now-  , iaspects = ELabel "of cat tears"-               : iaspects flaskTemplate-  , ieffects = [ toOrganGood "shiny-eyed" (40 + 1 `d` 10)-               , OnSmash (Explode "eye shine") ]-  }-flask11 = flaskTemplate-  { iname    = "bottle"-  , ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , icount   = 1 `d` 3  -- the only one sometimes giving away its identity-  , iaspects = ELabel "of whiskey"-               : iaspects flaskTemplate-  , ieffects = [ toOrganGood "drunk" (20 + 1 `d` 5)-               , Burn 1, RefillHP 3, Yell-               , OnSmash (Explode "whiskey spray") ]-  }-flask12 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , icount   = 1-  , iaspects = ELabel "of bait cocktail"-               : iaspects flaskTemplate-  , ieffects = [ toOrganGood "drunk" (20 + 1 `d` 5)-               , Burn 1, RefillHP 3  -- risky exploit possible, good-               , Summon "mobile animal" 1-               , OnSmash (Summon "mobile animal" 1)-               , OnSmash Impress  -- mildly useful when thrown-               , OnSmash (Explode "waste") ]-  }--- The player has full control over throwing the flask at his party,--- so he can milk the explosion, so it has to be much weaker, so a weak--- healing effect is enough. OTOH, throwing a harmful flask at many enemies--- at once is not easy to arrange, so these explosions can stay powerful.-flask13 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , irarity  = [(1, 2), (10, 12)]-  , iaspects = ELabel "of regeneration brew"-               : iaspects flaskTemplate-  , ieffects = [ toOrganGood "rose-smelling" (80 + 1 `d` 20)-               , toOrganNoTimer "regenerating"-               , toOrganNoTimer "regenerating"  -- x2-               , OnSmash (Explode "youth sprinkle") ]-  }-flask14 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , iaspects = ELabel "of poison"-               : iaspects flaskTemplate-  , ieffects = [ toOrganNoTimer "poisoned", toOrganNoTimer "poisoned"  -- x2-               , OnSmash (Explode "poison cloud") ]-  }-flask15 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , irarity  = [(10, 4)]-  , iaspects = ELabel "of slow resistance"-               : iaspects flaskTemplate-  , ieffects = [ toOrganNoTimer "slow resistant"-               , OnSmash (Explode "anti-slow mist") ]-  }-flask16 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , irarity  = [(10, 4)]-  , iaspects = ELabel "of poison resistance"-               : iaspects flaskTemplate-  , ieffects = [ toOrganNoTimer "poison resistant"-               , OnSmash (Explode "antidote mist") ]-  }-flask17 = flaskTemplate-  { ifreq    = [("common item", 100), ("explosive", 100), ("any vial", 100)]-  , iaspects = ELabel "of calamity"-               : iaspects flaskTemplate-  , ieffects = [ toOrganNoTimer "poisoned"-               , toOrganBad "weakened" (20 + 1 `d` 5)-               , toOrganBad "painted" (20 + 1 `d` 5)-               , OnSmash (Explode "glass hail") ]  -- enough glass to cause that-  }---- Potions are often natural, including natural stats.--- They appear deeper than most flasks. Various configurations of effects.--- A different class of effects is on scrolls and mechanical items.--- Some are shared.--potionTemplate = ItemKind-  { isymbol  = symbolPotion-  , iname    = "vial"-  , ifreq    = [("potion unknown", 1)]-  , iflavour = zipLiquid brightCol ++ zipPlain brightCol ++ zipFancy brightCol-  , icount   = 1 `dL` 3-  , irarity  = [(1, 10), (10, 6)]-  , iverbHit = "splash"-  , iweight  = 200-  , idamage  = 0-  , iaspects = [ HideAs "potion unknown", SetFlag Lobable, SetFlag Fragile-               , toVelocity 50 ]  -- oily, bad grip-  , ieffects = []-  , idesc    = "A vial of bright, frothing concoction. The best that nature has to offer."-  , ikit     = []-  }-potion1 = potionTemplate-  { ifreq    = [("common item", 100), ("potion", 100), ("any vial", 100)]-  , icount   = 3 `dL` 1  -- very useful, despite appearances-  , iaspects = ELabel "of rose water"-               : iaspects potionTemplate-  , ieffects = [ Impress, toOrganGood "rose-smelling" (80 + 1 `d` 20)-               , OnSmash ApplyPerfume, OnSmash (Explode "fragrance") ]-  }-potion2 = potionTemplate-  { ifreq    = [("curious item", 100), ("any vial", 100)]-  , icount   = 1-  , irarity  = [(5, 8), (10, 8)]-  , iaspects = [ SetFlag Unique, ELabel "of Attraction"-               , SetFlag Precious, SetFlag Lobable, SetFlag Fragile-               , toVelocity 50 ]  -- identified-  , ieffects = [ Dominate-               , toOrganGood "hasted" (20 + 1 `d` 5)-               , OnSmash (Explode "pheromone")-               , OnSmash (Explode "haste spray") ]-  , idesc    = "The liquid fizzes with energy."-  }-potion3 = potionTemplate-  { ifreq    = [("common item", 100), ("potion", 100), ("any vial", 100)]-  , ieffects = [ RefillHP 5, DropItem 1 maxBound COrgan "poisoned"-               , OnSmash (Explode "healing mist") ]-  }-potion4 = potionTemplate-  { ifreq    = [("common item", 100), ("potion", 100), ("any vial", 100)]-  , irarity  = [(1, 6), (10, 10)]-  , ieffects = [ RefillHP 10, DropItem maxBound maxBound COrgan "condition"-               , OnSmash (Explode "healing mist 2") ]-  }-potion5 = potionTemplate-  -- needs to be common to show at least a portion of effects-  { ifreq    = [("common item", 100), ("potion", 100), ("any vial", 100)]-  , icount   = 3 `dL` 1  -- always as many as possible on this level-                         -- without giving away potion identity-  , irarity  = [(1, 12)]-  , ieffects = [ OneOf [ RefillHP 10, RefillHP 5, Burn 5-                       , DropItem 1 maxBound COrgan "poisoned"-                       , toOrganGood "strengthened" (20 + 1 `d` 5) ]-               , OnSmash (OneOf [ Explode "dense shower"-                                , Explode "sparse shower"-                                , Explode "melee protective balm"-                                , Explode "ranged protective balm"-                                , Explode "fluorescent paint" ]) ]-  }-potion6 = potionTemplate-  -- needs to be common to show at least a portion of effects-  { ifreq    = [("common item", 100), ("potion", 100), ("any vial", 100)]-  , icount   = 3 `dL` 1-  , irarity  = [(10, 10)]-  , ieffects = [ Impress-               , OneOf [ RefillHP 20, RefillHP 10, Burn 10-                       , DropItem 1 maxBound COrgan "poisoned"-                       , toOrganGood "hasted" (20 + 1 `d` 5)-                       , toOrganBad "impatient" (2 + 1 `d` 2) ]-               , OnSmash (OneOf [ Explode "healing mist 2"-                                , Explode "wounding mist"-                                , Explode "distressing odor"-                                , Explode "impatient mist"-                                , Explode "haste spray"-                                , Explode "slowness mist"-                                , Explode "fragrance"-                                , Explode "violent flash" ]) ]-  }-potion7 = potionTemplate-  { iname    = "ampoule"  -- filled with semi-stabilized high explosive liquid-  , ifreq    = [("common item", 100), ("potion", 100), ("any vial", 100)]-  , icount   = 3 `dL` 1-  , ieffects = [ DropItem 1 maxBound COrgan "condition"-               , OnSmash (Explode "violent concussion") ]-      -- not fragmentation nor glass hail, because not enough glass-  }-potion8 = potionTemplate-  { ifreq    = [("curious item", 100), ("any vial", 100)]-  , icount   = 1-  , irarity  = [(10, 5)]-  , iaspects = [ SetFlag Unique, ELabel "of Love"-               , SetFlag Precious, SetFlag Lobable, SetFlag Fragile-               , toVelocity 50 ]  -- identified-  , ieffects = [ RefillHP 60, RefillCalm (-60)-               , toOrganGood "rose-smelling" (80 + 1 `d` 20)-               , OnSmash (Explode "healing mist 2")-               , OnSmash (Explode "distressing odor") ]-  , idesc    = "Perplexing swirls of intense, compelling colour."-  }-potion9 = potionTemplate-  { ifreq    = [("common item", 100), ("potion", 100), ("any vial", 100)]-  , irarity  = [(10, 5)]-  , iaspects = ELabel "of grenadier focus"-               : iaspects potionTemplate-  , ieffects = [ toOrganGood "more projecting" (40 + 1 `d` 10)-               , toOrganBad "pacified" (5 + 1 `d` 3)-                   -- the malus has to be weak, or would be too good-                   -- when thrown at foes-               , OnSmash (Explode "more projecting dew")-               , OnSmash (Explode "pacified mist") ]-  , idesc    = "Thick, sluggish fluid with violently-bursting bubbles."-  }-potion10 = potionTemplate-  { ifreq    = [("common item", 100), ("potion", 100), ("any vial", 100)]-  , irarity  = [(10, 8)]-  , iaspects = ELabel "of frenzy"-               : iaspects potionTemplate-  , ieffects = [ Yell-               , toOrganGood "strengthened" (20 + 1 `d` 5)-               , toOrganBad "retaining" (5 + 1 `d` 3)-               , toOrganBad "frenzied" (40 + 1 `d` 10)-               , OnSmash (Explode "dense shower")-               , OnSmash (Explode "retaining mist")-               , OnSmash (Explode "retaining mist") ]-  }-potion11 = potionTemplate-  { ifreq    = [("common item", 100), ("potion", 100), ("any vial", 100)]-  , irarity  = [(10, 8)]-  , iaspects = ELabel "of panic"-               : iaspects potionTemplate-  , ieffects = [ RefillCalm (-30)-               , toOrganGood "hasted" (20 + 1 `d` 5)-               , toOrganBad "weakened" (20 + 1 `d` 5)-               , toOrganBad "withholding" (10 + 1 `d` 5)-               , OnSmash (Explode "haste spray")-               , OnSmash (Explode "sparse shower")-               , OnSmash (Explode "withholding mist") ]-  }-potion12 = potionTemplate-  { ifreq    = [("common item", 100), ("potion", 100), ("any vial", 100)]-  , irarity  = [(10, 8)]-  , iaspects = ELabel "of quicksilver"-               : iaspects potionTemplate-  , ieffects = [ toOrganGood "hasted" (20 + 1 `d` 5)-               , toOrganBad "blind" (10 + 1 `d` 5)-               , toOrganBad "immobile" (5 + 1 `d` 5)-               , OnSmash (Explode "haste spray")-               , OnSmash (Explode "iron filing")-               , OnSmash (Explode "immobile mist") ]-  }---- ** Explosives, with the only effect being @Explode@--fragmentationBomb = ItemKind-  { isymbol  = symbolProjectile-  , iname    = "hand bomb"-      -- improvised bomb filled with iron pellets, nuts, cut nails;-      -- deflagration, not detonation, so large mass and hard container-      -- required not to burn harmlessly; improvised short fuze;-      -- can't be more powerful or would fracture the spaceship's hull-  , ifreq    = [("common item", 100), ("explosive", 200)]-  , iflavour = zipPlain [Red]-  , icount   = 1 `dL` 5  -- many, because not very intricate-  , irarity  = [(5, 8), (10, 5)]-  , iverbHit = "thud"-  , iweight  = 3000  -- low velocity due to weight-  , idamage  = 1 `d` 1  -- heavy and hard-  , iaspects = [SetFlag Lobable, SetFlag Fragile]-  , ieffects = [ Explode "focused fragmentation"-               , OnSmash (Explode "violent fragmentation") ]-  , idesc    = "Shards of brittle metal packed around an explosive core."-  , ikit     = []-  }-concussionBomb = fragmentationBomb-  { iname    = "canister"-      -- slightly stabilized liquid explosive in a soft container, hence-      -- no fragmentation, but huge shock wave despite small size and lack-      -- of strong container to build up pressure; indoors help the shock wave;-      -- unstable enough that no fuze required (or simple electric fuse?);-      -- that's the most potent explosive (a detonating one) to be found-      -- and only in small quantities, due to depressurization hazard-  , iflavour = zipPlain [Magenta]-  , iverbHit = "bonk"-  , iweight  = 400-  , idamage  = 0-  , iaspects = [ SetFlag Lobable, SetFlag Fragile-               , toVelocity 70 ]  -- flappy and so slow-  , ieffects = [ Explode "focused concussion"-               , OnSmash (Explode "violent concussion") ]-  , idesc    = "Avoid sudden movements."-  }--- Not flashbang, because powerful bang without fragmentation is harder--- to manufacture (requires an oxidizer and steel canister with holes).--- The bang would also paralyze and/or lower the movement skill--- (out of balance due to ear trauma).-flashBomb = fragmentationBomb-  { iname    = "powder tube"  -- filled with magnesium flash powder-  , iflavour = zipPlain [BrYellow]  -- avoid @BrWhite@; looks wrong in dark-  , iverbHit = "flash"-  , iweight  = 400-  , idamage  = 0-  , iaspects = [ SetFlag Lobable, SetFlag Fragile-               , toVelocity 70 ]  -- bad shape for throwing-  , ieffects = [Explode "focused flash", OnSmash (Explode "violent flash")]-  , idesc    = "For dramatic entrances and urgent exits."-  }-firecrackerBomb = fragmentationBomb-  { iname = "roll"  -- not fireworks, as they require outdoors-  , iflavour = zipPlain [BrMagenta]-  , irarity  = [(1, 5), (5, 6)]  -- a toy, if deadly-  , iverbHit = "crack"  -- a pun, matches the verb from "ItemKindBlast"-  , iweight  = 1000-  , idamage  = 0-  , iaspects = [SetFlag Lobable, SetFlag Fragile]-  , ieffects = [Explode "firecracker", OnSmash (Explode "firecracker")]-  , idesc    = "String and paper, concealing a deadly surprise."-  }---- ** Non-exploding consumables, not specifically designed for throwing---- Foods require only minimal apply skill to consume. Many animals can eat them.--ediblePlantTemplate = ItemKind-  { isymbol  = symbolFood-  , iname    = "edible plant"-  , ifreq    = [("edible plant unknown", 1)]-  , iflavour = zipPlain stdCol-  , icount   = 1 `dL` 5-  , irarity  = [(1, 12), (10, 6)]  -- let's feed the animals-  , iverbHit = "thump"-  , iweight  = 50-  , idamage  = 0-  , iaspects = [ HideAs "edible plant unknown"-               , toVelocity 30 ]  -- low density, often falling apart-  , ieffects = []-  , idesc    = "Withered but fragrant bits of a colorful plant. Taste tolerably and break down easily, but only eating may reveal the full effects."-  , ikit     = []-  }-ediblePlant1 = ediblePlantTemplate-  { iname    = "enhanced berry"-  , ifreq    = [("common item", 100), ("edible plant", 100)]-  , ieffects = [RefillHP 1, toOrganBad "immobile" (5 + 1 `d` 5)]-  }-ediblePlant2 = ediblePlantTemplate-  { iname    = "frayed fungus"-  , ifreq    = [("common item", 100), ("edible plant", 100)]-  , ieffects = [toOrganNoTimer "poisoned"]-  }-ediblePlant3 = ediblePlantTemplate-  { iname    = "thick leaf"-  , ifreq    = [("common item", 100), ("edible plant", 100)]-  , ieffects = [DropItem 1 maxBound COrgan "poisoned"]-  }-ediblePlant4 = ediblePlantTemplate-  { iname    = "reconfigured fruit"-  , ifreq    = [("common item", 100), ("edible plant", 100)]-  , ieffects = [toOrganBad "blind" (10 + 1 `d` 10)]-  }-ediblePlant5 = ediblePlantTemplate-  { iname    = "fragrant herb"-  , ifreq    = [("common item", 100), ("edible plant", 100)]-  , icount   = 1 `dL` 9-  , irarity  = [(1, 12), (10, 5)]-  , iaspects = ELabel "of lethargy"-               : iaspects ediblePlantTemplate-  , ieffects = [ toOrganBad "slowed" (20 + 1 `d` 5)-               , toOrganNoTimer "regenerating"-               , toOrganNoTimer "regenerating"  -- x2-               , RefillCalm 5 ]-  }-ediblePlant6 = ediblePlantTemplate-  { iname    = "dull flower"-  , ifreq    = [("common item", 100), ("edible plant", 100)]-  , ieffects = [PutToSleep]-  }-ediblePlant7 = ediblePlantTemplate-  { iname    = "spicy bark"-  , ifreq    = [("common item", 100), ("edible plant", 100)]-  , ieffects = [InsertMove 20, toOrganBad "frenzied" (40 + 1 `d` 10)]-  }---- These require high apply skill to consume.--scrollTemplate = ItemKind-  { isymbol  = symbolScroll-  , iname    = "chip"-  , ifreq    = [("scroll unknown", 1)]-  , iflavour = zipFancy stdCol ++ zipPlain stdCol-  , icount   = 1 `dL` 3-  , irarity  = [(1, 14), (10, 7)]-  , iverbHit = "thump"-  , iweight  = 20-  , idamage  = 0-  , iaspects = [ HideAs "scroll unknown"-               , toVelocity 30 ]  -- too small-  , ieffects = []-  , idesc    = "A generic, disposable chip, capable of a one-time holo-display. Some of these also contain a one-time password authorizing a particular spaceship's infrastructure transition. Nobody knows how the infrastructure might respond after so many years."-  , ikit     = []-  }-scroll1 = scrollTemplate-  { ifreq    = [("curious item", 100), ("any scroll", 100)]-  , icount   = 1-  , irarity  = [(5, 9), (10, 9)]  -- mixed blessing, so found early for a unique-  , iaspects = [SetFlag Unique, ELabel "of Reckless Beacon"]-               ++ iaspects scrollTemplate-  , ieffects = [Summon "hero" 1, Summon "mobile animal" (2 + 1 `d` 2)]-  , idesc    = "This industrial, wide-spectrum alarm broadcaster, if over-amped for a single powerful blast, should be able to cut through the interference and reach any lost crew members, giving them enough positional information to locate us."-  }-scroll2 = scrollTemplate-  { ifreq    = [("curious item", 100), ("any scroll", 100)]-  , irarity  = [(1, 6), (10, 2)]-  , ieffects = [Ascend True]-  }-scroll3 = scrollTemplate-  -- needs to be common to show at least a portion of effects-  { ifreq    = [("common item", 100), ("any scroll", 100)]-  , icount   = 3 `dL` 1-  , irarity  = [(1, 14)]-  , ieffects = [OneOf [ Teleport 5, Paralyze 10, InsertMove 30-                      , Detect DetectEmbed 12, Detect DetectHidden 20 ]]-  }-scroll4 = scrollTemplate-  -- needs to be common to show at least a portion of effects-  { ifreq    = [("common item", 100), ("any scroll", 100)]-  , icount   = 3 `dL` 1-  , irarity  = [(10, 14)]-  , ieffects = [ Impress-               , OneOf [ Teleport 20, Ascend False, Ascend True-                       , Summon "hero" 1, Summon "mobile animal" $ 1 `d` 2-                       , Detect DetectLoot 20  -- the most useful of detections-                       , CreateItem CGround "common item" timerNone ] ]-  }-scroll5 = scrollTemplate-  { ifreq    = [("common item", 100), ("any scroll", 100)]-  , irarity  = [(1, 6)]  -- powerful, but low counts at the depths it appears on-  , ieffects = [InsertMove $ 20 + 1 `dL` 20]-  }-scroll6 = scrollTemplate-  { ifreq    = [("common item", 100), ("any scroll", 100)]-  , icount   = 3 `dL` 1-  , irarity  = [(1, 20)]  -- uncommon deep down, where all is known-  , iaspects = ELabel "of scientific explanation"-               : iaspects scrollTemplate-  , ieffects = [Composite [Identify, RefillCalm 10]]-  , idesc    = "The most pressing existential concerns are met with a deeply satisfying scientific answer."-  }-scroll7 = scrollTemplate-  { ifreq    = [("common item", 100), ("any scroll", 100)]-  , irarity  = [(10, 20)]  -- at endgame a crucial item may be missing-  , iaspects = ELabel "of molecular reconfiguration"-               : iaspects scrollTemplate-  , ieffects = [Composite [PolyItem, Explode "firecracker"]]-  }-scroll8 = scrollTemplate-  { ifreq    = [("curious item", 100), ("any scroll", 100)]-  , icount   = 1-  , irarity  = [(10, 12)]-  , iaspects = [SetFlag Unique, ELabel "of Skeleton Key"]-               ++ iaspects scrollTemplate-  , ieffects = [Summon "hero" 1]-  , idesc    = "This is a security lock chip that opens all doors in the area, including the hatch to a nearby closet, bulging from the blows of one of our lost crew members."-  }-scroll9 = scrollTemplate-  { ifreq    = [("common item", 100), ("any scroll", 100)]-  , irarity  = [(10, 4)]  -- powerful, even if not ideal; scares newbies-  , ieffects = [Detect DetectAll 20]-  }-scroll10 = scrollTemplate-  { ifreq    = [("common item", 100), ("any scroll", 100)]-  , iaspects = ELabel "of cue interpretation"-               : iaspects scrollTemplate-  , ieffects = [Detect DetectActor 20]-  }-scroll11 = scrollTemplate-  { ifreq    = [("common item", 100), ("any scroll", 100)]-  , irarity  = [(10, 11)]-  , ieffects = [PushActor (ThrowMod 400 200 1)]  -- 8 steps, 4 turns-  }-scroll12 = scrollTemplate-  { ifreq    = [("common item", 100), ("any scroll", 100)]-  , irarity  = [(10, 15)]-  , iaspects = ELabel "of molecular duplication"-               : iaspects scrollTemplate-  , ieffects = [DupItem]-  }-scroll13 = scrollTemplate-  { ifreq    = [("common item", 100), ("any scroll", 100)]-  , irarity  = [(10, 15)]-  , iaspects = ELabel "of surface reconfiguration"-               : iaspects scrollTemplate-  , ieffects = [RerollItem]-  }---- ** Assorted tools--jumpingPole = ItemKind-  { isymbol  = symbolWand-  , iname    = "jumping pole"-  , ifreq    = [("common item", 100)]-  , iflavour = zipPlain [White]-  , icount   = 1-  , irarity  = [(1, 3)]-  , iverbHit = "prod"-  , iweight  = 10000-  , idamage  = 0-  , iaspects = [ Timeout $ (2 + 1 `d` 2 - 1 `dL` 2) * 5-               , SetFlag Durable ]-  , ieffects = [toOrganGood "hasted" 1]-                 -- safe for AI, because it speeds up, so when AI applies it-                 -- again and again, it gets its time back and is not stuck;-                 -- in total, the explorations speed is unchanged,-                 -- but it's useful when fleeing in the dark to make distance-                 -- and when initiating combat, so it's OK that AI uses it-  , idesc    = "Makes you vulnerable at take-off, but then you are free like a bird."-  , ikit     = []-  }-sharpeningTool = ItemKind-  { isymbol  = symbolTool-  , iname    = "honing steel"-  , ifreq    = [("common item", 100)]-  , iflavour = zipPlain [Blue]-  , icount   = 1-  , irarity  = [(10, 10)]-  , iverbHit = "smack"-  , iweight  = 400-  , idamage  = 0-  , iaspects = [ AddSkill SkHurtMelee $ (1 `dL` 7) * 5-               , SetFlag Equipable, EqpSlot EqpSlotHurtMelee ]-  , ieffects = []-  , idesc    = "Originally used for realigning and sharpening dulled edges of kitchen knives in the local restaurants. Now it saves lives by keeping your melee weapons keen and true before each skirmish."-  , ikit     = []-  }-seeingItem = ItemKind-  { isymbol  = symbolFood-  , iname    = "visual sensor"-  , ifreq    = [("common item", 100)]-  , iflavour = zipPlain [Red]-  , icount   = 1-  , irarity  = [(1, 2)]-  , iverbHit = "gaze at"-  , iweight  = 500-  , idamage  = 0-  , iaspects = [ Timeout 3-               , AddSkill SkSight 10  -- a spyglass for quick wields-               , AddSkill SkMaxCalm 30  -- to diminish clipping sight by Calm-               , AddSkill SkShine 2  -- to lit corridors when flying-               , SetFlag Periodic ]-  , ieffects = [ Detect DetectActor 20  -- rare enough-               , Explode "single spark"-               , toOrganNoTimer "poisoned"  -- really can't be worn-               , Summon "mobile robot" 1 ]-  , idesc    = "An oversize visual sensor freshly torn out of some unfortunate robot. It still sends a clear picture to unidentified receivers, even though the coolant liquid seeps from the seized servos and many internal contacts spark loose."-  , ikit     = []-  }-motionScanner = ItemKind-  { isymbol  = symbolTool-  , iname    = "handheld sonar"-  , ifreq    = [("common item", 100), ("add nocto 1", 20)]-  , iflavour = zipPlain [Green]-  , icount   = 1-  , irarity  = [(5, 2)]-  , iverbHit = "ping"-  , iweight  = 1000-  , idamage  = 0-  , iaspects = [ AddSkill SkNocto 1-               , AddSkill SkArmorMelee (-15 + (1 `dL` 3) * 5)-               , AddSkill SkArmorRanged (-15 + (1 `dL` 3) * 5)-               , SetFlag Equipable, EqpSlot EqpSlotMiscBonus ]-  , ieffects = []-  , idesc    = "Portable underwater echolocator overdriven to scan dark corridors at the cost of emitting loud pings."-  , ikit     = []-  }---- ** Periodic jewelry---- Morally these are the aspects, but we also need to add a fake @Timeout@,--- to let clients know that the not identified item is periodic jewelry.-iaspects_necklaceTemplate :: [Aspect]-iaspects_necklaceTemplate =-  [ HideAs "necklace unknown"-  , SetFlag Periodic, SetFlag Precious, SetFlag Equipable-  , toVelocity 50 ]  -- not dense enough-gorget = necklaceTemplate-  { iname    = "Old Gorget"-  , ifreq    = [("common item", 25), ("treasure", 25), ("museum", 100)]-  , iflavour = zipFancy [BrCyan]  -- looks exactly the same as one of necklaces,-                                  -- but it's OK, it's an artifact-  , iaspects = [ SetFlag Unique-               , Timeout $ 5 - 1 `dL` 4-               , AddSkill SkArmorMelee 3, AddSkill SkArmorRanged 2-               , SetFlag Durable ]-               ++ iaspects_necklaceTemplate-  , ieffects = [RefillCalm 1]-  , idesc    = "Highly ornamental, cold, large steel medallion on a chain. Unlikely to offer much protection as an armor piece, but the old worn engraving reassures the wearer."-  }--- Not identified, because id by use, e.g., via periodic activations. Fun.-necklaceTemplate = ItemKind-  { isymbol  = symbolNecklace-  , iname    = "necklace"-  , ifreq    = [("necklace unknown", 1)]-  , iflavour = zipFancy stdCol ++ zipPlain brightCol-  , icount   = 1-  , irarity  = [(4, 3), (10, 4)]-  , iverbHit = "whip"-  , iweight  = 30-  , idamage  = 0-  , iaspects = Timeout 1000000-                 -- fake, needed to display "charging"; the timeout itself-                 -- won't be displayed thanks to periodic; as a side-effect,-                 -- it can't be activated until identified, which is better-                 -- than letting the player try to activate before the real-                 -- cooldown is over and waste turn-               : iaspects_necklaceTemplate-  , ieffects = []-  , idesc    = "Tingling, rattling chain of flat encrusted links. Eccentric millionaires are known to hide their highly personalized body augmentation packs in bulky jewelry pieces such as these."-  , ikit     = []-  }-necklace1 = necklaceTemplate-  { ifreq    = [("curious item", 100), ("any jewelry", 100)]-  , irarity  = [(3 * 10/15, 0), (4 * 10/15, 1), (10, 3)]-                 -- prevents camping on lvl 3-  , iaspects = [ SetFlag Unique, ELabel "of Spur Life"-               , Timeout $ (4 - 1 `dL` 3) * 10-                   -- priceless, so worth the long wait-               , SetFlag Durable ]-               ++ iaspects_necklaceTemplate-  , ieffects = [RefillHP 1, RefillCalm (-5)]-  , idesc    = "This awkward chain, when worn on bare skin, frequently emits mild but highly annoying electric shocks, which apparently stimulate tissue regeneration even in distant parts of the body. A part of the surprising effectiveness of this unique artifact may stem from the desperation of the patients to be quickly healed enough to take it off."-  }--- no necklace2 of Live Bait, wasteContainer too similar-necklace3 = necklaceTemplate-  { ifreq    = [("common item", 100), ("any jewelry", 100)]-  , iaspects = [ ELabel "of fearful listening"-               , Timeout ((1 + 1 `d` 2) * 10)-               , AddSkill SkHearing 2 ]-               ++ iaspects_necklaceTemplate-  , ieffects = [ Detect DetectActor 10  -- can be applied; destroys the item-               , RefillCalm (-40) ]-  }-necklace4 = necklaceTemplate-  { ifreq    = [("common item", 100), ("any jewelry", 100)]-  , iaspects = Timeout ((3 + 1 `d` 3 - 1 `dL` 3) * 2)-               : iaspects_necklaceTemplate-  , ieffects = [Teleport $ 3 `d` 2]-  }-necklace5 = necklaceTemplate-  { ifreq    = [("common item", 100), ("any jewelry", 100)]-  , iaspects = [ ELabel "of escape"-               , Timeout $ (7 - 1 `dL` 5) * 10 ]-               ++ iaspects_necklaceTemplate-  , ieffects = [ Teleport $ 14 + 3 `d` 3  -- can be applied; destroys the item-               , Detect DetectExit 20-               , Yell ]  -- drawback when used for quick exploring-  , idesc    = "A supple chain that slips through your fingers."-  }-necklace6 = necklaceTemplate-  { ifreq    = [("common item", 100), ("any jewelry", 100)]-  , iaspects = Timeout (1 + (1 `d` 3) * 2)-               : iaspects_necklaceTemplate-  , ieffects = [PushActor (ThrowMod 100 50 1)]  -- 1 step, slow-                  -- the @50@ is only for the case of very light actor, etc.-  }-necklace7 = necklaceTemplate-  { ifreq    = [("curious item", 100), ("any jewelry", 100)]-  , irarity  = [(10, 1)]  -- powerful and determines tactics for one actor-  , iaspects = [ SetFlag Unique, ELabel "of Overdrive"-               , Timeout 10-               , AddSkill SkMaxHP 10  -- good effects vanish when taken off-               , AddSkill SkSpeed 10-               , SetFlag Durable ]-               ++ iaspects_necklaceTemplate-  , ieffects = [ RefillCalm (-2)  -- don't spam-               , toOrganBad "pacified" 10]-                 -- The same duration as timeout, to avoid spurious messages-                 -- as well as unlimited accumulation of the duration.-                 -- Timeout lessens temptation to frequently wear and take off,-                 -- to engage in melee, which would lead to micromanagement.-  , idesc    = "This whirring augmentation pack stimulates its host beyond any medically advisable or, surely, even legally admissible levels. It can be only speculated what kind of activity it was designed for, but clearly the steady handling of melee weapons was not one of them."-  }-necklace8 = necklaceTemplate-  { ifreq    = [("common item", 100), ("any jewelry", 100)]-  , irarity  = [(4, 3)]  -- entirely optional-  , iaspects = Timeout ((1 + 1 `d` 3) * 5)-               : iaspects_necklaceTemplate-  , ieffects = [Explode "spark"]-  }-necklace9 = necklaceTemplate-  { ifreq    = [("common item", 100), ("any jewelry", 100)]-  , iaspects = Timeout ((1 + 1 `d` 3) * 5)-               : iaspects_necklaceTemplate-  , ieffects = [Explode "fragrance"]-  }-necklace10 = necklaceTemplate-  { ifreq    = [("common item", 100), ("any jewelry", 100)]-  , iaspects = [ ELabel "of greed"-               , Timeout ((2 + 1 `d` 3) * 10) ]-               ++ iaspects_necklaceTemplate-  , ieffects = [ Detect DetectLoot 20-               , Teleport 40  -- risky-               , toOrganBad "parsimonious" (5 + 1 `d` 3) ]  -- hard to flee-  }---- ** Non-periodic jewelry--imageItensifier = ItemKind-  { isymbol  = symbolRing-  , iname    = "noctovisor"-  , ifreq    = [("treasure", 100), ("add nocto 1", 80), ("museum", 100)]-  , iflavour = zipFancy [BrGreen]-  , icount   = 1-  , irarity  = [(5, 2)]-  , iverbHit = "rattle"-  , iweight  = 700-  , idamage  = 0-  , iaspects = [ AddSkill SkNocto 1, AddSkill SkSight (-1)-               , AddSkill SkArmorMelee $ (-1 + 1 `dL` 6) * 3-               , SetFlag Precious, SetFlag Equipable-               , EqpSlot EqpSlotMiscBonus ]-  , ieffects = []-  , idesc    = "Sturdy antique night vision goggles of unknown origin. Wired to run on modern micro-cells."-  , ikit     = []-  }-sightSharpening = ringTemplate  -- small and round, so mistaken for a ring-  { iname    = "Autozoom Contact Lens"-  , ifreq    = [("treasure", 20), ("add sight", 1)]-      -- it's has to be very rare, because it's powerful and not unique,-      -- and also because it looks exactly as one of necklaces, so it would-      -- be misleading when seen on the map-  , irarity  = [(7, 1), (10, 12)]  -- low @ifreq@-  , iweight  = 50  -- heavier that it looks, due to glass-  , iaspects = [ AddSkill SkSight $ 1 + 1 `dL` 2-               , AddSkill SkHurtMelee $ (-1 + 1 `d` 3) * 3-               , EqpSlot EqpSlotSight ]-               ++ iaspects ringTemplate-  , idesc    = "Zooms on any movement, distant or close. Requires some getting used to. Never needs to be taken off."-  }--- Don't add standard effects to rings, because they go in and out--- of eqp and so activating them would require UI tedium: looking for--- them in eqp and inv or even activating a wrong item by mistake.------ By general mechanisms, due to not having effects that could identify--- them by observing the effect, rings are identified on pickup.--- That's unlike necklaces, which provide the fun of id-by-use, because they--- have effects and when the effects are triggered, they get identified.-ringTemplate = ItemKind-  { isymbol  = symbolRing-  , iname    = "ring"-  , ifreq    = [("ring unknown", 1)]-  , iflavour = zipPlain stdCol ++ zipFancy darkCol-  , icount   = 1-  , irarity  = [(10, 2)]  -- the default very low-  , iverbHit = "knock"-  , iweight  = 15-  , idamage  = 0-  , iaspects = [HideAs "ring unknown", SetFlag Precious, SetFlag Equipable]-  , ieffects = []-  , idesc    = "A sturdy ring with a softly shining eye. If it contains a body booster unit, beware of the side-effects."-  , ikit     = []-  }-ring1 = ringTemplate-  { ifreq    = [("common item", 100), ("any jewelry", 100)]-  , irarity  = [(8, 4)]-  , iaspects = [ AddSkill SkSpeed $ 1 `dL` 3, AddSkill SkMaxHP (-10)-               , EqpSlot EqpSlotSpeed ]-               ++ iaspects ringTemplate-  }-ring2 = ringTemplate-  { ifreq    = [("curious item", 100), ("any jewelry", 100)]-  , iaspects = [ SetFlag Unique, ELabel "of Rush"-               , AddSkill SkSpeed $ (1 + 1 `dL` 2) * 2-               , AddSkill SkMaxCalm (-40), AddSkill SkMaxHP (-20)-               , SetFlag Durable, EqpSlot EqpSlotSpeed ]-               ++ iaspects ringTemplate-  , idesc    = "There creator of this dangerous artifact didn't find time to document its operation. And now it's too late."-  }-ring3 = ringTemplate-  { ifreq    = [("common item", 100), ("any jewelry", 100)]-  , irarity  = [(10, 8)]-  , iaspects = [ AddSkill SkMaxHP $ 5 + (1 `d` 2 + 1 `dL` 2) * 5-               , AddSkill SkMaxCalm $ -30 + (1 `dL` 3) * 5-               , EqpSlot EqpSlotMaxHP ]-               ++ iaspects ringTemplate-  }-ring4 = ringTemplate-  { ifreq    = [("common item", 100), ("any jewelry", 100), ("museum", 100)]-  , irarity  = [(5, 1), (10, 9)]  -- needed after other rings drop Calm-  , iaspects = [ AddSkill SkMaxCalm $ 20 + (1 `dL` 4) * 5-               , EqpSlot EqpSlotMiscBonus ]-               ++ iaspects ringTemplate-  , idesc    = "Cold, solid to the touch, perfectly round, engraved with solemn, strangely comforting, worn out words."-  }-ring5 = ringTemplate-  { ifreq    = [("common item", 100), ("any jewelry", 100)]-  , irarity  = [(3, 4), (10, 8)]-  , iaspects = [ AddSkill SkHurtMelee $ (2 + 1 `d` 2 + (1 `dL` 2) * 2 ) * 3-               , AddSkill SkMaxHP $ (-3 + 1 `dL` 3) * 10-               , EqpSlot EqpSlotHurtMelee ]-               ++ iaspects ringTemplate-  }-ring6 = ringTemplate  -- weak skill per eqp slot, so can be without drawbacks-  { ifreq    = [("common item", 100), ("any jewelry", 100), ("museum", 100)]-  , irarity  = [(10, 3)]-  , iaspects = [ AddSkill SkShine 1-               , EqpSlot EqpSlotShine ]-               ++ iaspects ringTemplate-  , idesc    = "A sturdy ring with a large, shining stone."-  }-ring7 = ringTemplate-  { ifreq    = [("common item", 10), ("ring of opportunity sniper", 1)]-  , irarity  = [(10, 5)]  -- low @ifreq@-  , iaspects = [ ELabel "of opportunity sniper"-               , AddSkill SkProject 8-               , EqpSlot EqpSlotProject ]-               ++ iaspects ringTemplate-  }-ring8 = ringTemplate-  { ifreq    = [("treasure", 100), ("any jewelry", 100)]-  , iaspects = [ SetFlag Unique, ELabel "of Overwatch"-               , AddSkill SkProject 8  -- TODO: 11, but let player control-                                       -- potion throwing; see capReinforced-               , AddSkill SkMaxHP (-20)-               , SetFlag Durable, EqpSlot EqpSlotProject ]-               ++ iaspects ringTemplate-  , idesc    = "This exceptional medical contraption constantly transforms and re-injects minuscule amounts of blood serum, synthesizing powerful drugs that greatly enhance spacial awareness and focus, at the cost of weakening bodily resilience and recovery."-  }---- ** Armor--armorLeather = ItemKind-  { isymbol  = symbolTorsoArmor-  , iname    = "spacesuit breastplate"-  , ifreq    = [("common item", 100), ("torso armor", 1)]-  , iflavour = zipPlain [Brown]-  , icount   = 1-  , irarity  = [(1, 4), (10, 2)]-  , iverbHit = "thud"-  , iweight  = 7000-  , idamage  = 0-  , iaspects = [ AddSkill SkHurtMelee (-2)-               , AddSkill SkArmorMelee $ (2 + 1 `dL` 4) * 5-               , AddSkill SkArmorRanged $ (1 + 1 `dL` 2) * 3-               , SetFlag Durable, SetFlag Equipable-               , EqpSlot EqpSlotArmorMelee ]-  , ieffects = []-  , idesc    = "A hard-shell torso segment cut from a disposed off spacesuit. Well ventilated."-  , ikit     = []-  }-armorLeather2 = armorLeather  -- for now, purely flavour, for better messages-  { isymbol  = symbolMiscArmor-  , iname    = "pair"-  , ifreq    = [("common item", 100)]-  , iaspects = ELabel "of spacesuit trousers" : iaspects armorLeather-  , idesc    = "Segmented trousers for open space work, with the hermetically sealed boots cut off. Surprisingly flexible and airy, yet micro-meteorite-proof."-  }-armorMail = armorLeather-  { iname    = "bulletproof vest"-  , ifreq    = [("common item", 100), ("torso armor", 1), ("armor ranged", 50)]-  , iflavour = zipPlain [Cyan]-  , irarity  = [(6, 9), (10, 3)]-  , iweight  = 12000-  , idamage  = 0-  , iaspects = [ AddSkill SkHurtMelee (-3)-               , AddSkill SkArmorMelee $ (2 + 1 `dL` 4) * 5-               , AddSkill SkArmorRanged $ (4 + 1 `dL` 2) * 3-               , AddSkill SkOdor 2-               , SetFlag Durable, SetFlag Equipable-               , EqpSlot EqpSlotArmorRanged ]-  , ieffects = []-  , idesc    = "A civilian bulletproof vest. Discourages foes from attacking your torso, making it harder for them to land a blow. Really hard to wash due to thickness."-  }-gloveFencing = ItemKind-  { isymbol  = symbolMiscArmor-  , iname    = "construction glove"-  , ifreq    = [("common item", 100), ("misc armor", 1), ("armor ranged", 50)]-  , iflavour = zipPlain [White]-  , icount   = 1-  , irarity  = [(5, 9), (10, 9)]-  , iverbHit = "flap"-  , iweight  = 100-  , idamage  = 1 `d` 1-  , iaspects = [ AddSkill SkHurtMelee $ (2 + 1 `d` 2 + 1 `dL` 2) * 3-               , AddSkill SkArmorRanged $ (1 `dL` 2) * 3-               , SetFlag Durable, SetFlag Equipable-               , EqpSlot EqpSlotHurtMelee-               , toVelocity 50 ]  -- flaps and flutters-  , ieffects = []-  , idesc    = "A flexible construction glove from rough leather ensuring a good grip. Also, quite effective in deflecting or even catching slow projectiles."-  , ikit     = []-  }-gloveGauntlet = gloveFencing-  { iname    = "spacesuit glove"-  , ifreq    = [("common item", 100), ("misc armor", 1)]-  , iflavour = zipPlain [BrCyan]-  , irarity  = [(1, 9), (10, 3)]-  , iweight  = 300-  , idamage  = 2 `d` 1-  , iaspects = [ AddSkill SkArmorMelee $ (1 + 1 `dL` 4) * 5-               , SetFlag Durable, SetFlag Equipable-               , EqpSlot EqpSlotArmorMelee-               , toVelocity 50 ]  -- flaps and flutters-  , idesc    = "A piece of a hull maintenance spacesuit, padded and reinforced with carbon fibre."-  }-gloveJousting = gloveFencing-  { iname    = "Welding Handgear"-  , ifreq    = [("common item", 100), ("misc armor", 1)]-  , iflavour = zipFancy [BrRed]-  , irarity  = [(1, 3), (10, 3)]-  , iverbHit = "rasp"-  , iweight  = 3000-  , idamage  = 3 `d` 1-  , iaspects = [ SetFlag Unique-               , AddSkill SkHurtMelee $ (-7 + 1 `dL` 5) * 3-               , AddSkill SkArmorMelee $ (2 + 1 `d` 2 + 1 `dL` 2) * 5-               , AddSkill SkArmorRanged $ (1 + 1 `dL` 2) * 3-                 -- very random on purpose and can even be good on occasion-                 -- or when ItemRerolled enough times-               , SetFlag Durable, SetFlag Equipable-               , EqpSlot EqpSlotArmorMelee-               , toVelocity 50 ]  -- flaps and flutters-  , idesc    = "Rigid, bulky handgear embedding a welding equipment, complete with an affixed small shield and a darkened visor. Awe-inspiring."-  }-hatUshanka = ItemKind-  { isymbol  = symbolMiscArmor-  , iname    = "ushanka hat"-  , ifreq    = [("common item", 100), ("misc armor", 1)]-  , iflavour = zipPlain [Brown]-  , icount   = 1-  , irarity  = [(1, 6), (10, 2)]-  , iverbHit = "tickle"-  , iweight  = 500-  , idamage  = 0-  , iaspects = [ Timeout $ (2 + 1 `d` 2) * 3-               , AddSkill SkArmorMelee 5, AddSkill SkHearing (-10)-               , SetFlag Periodic, SetFlag Durable, SetFlag Equipable-               , EqpSlot EqpSlotArmorMelee-               , toVelocity 50 ]  -- flaps and flutters-  , ieffects = [RefillCalm 1]-  , idesc    = "Soft and warm fur. It keeps your ears warm."-  , ikit     = []-  }-capReinforced = ItemKind-  { isymbol  = symbolMiscArmor-  , iname    = "construction cap"-  , ifreq    = [("common item", 100), ("misc armor", 1)]-  , iflavour = zipPlain [BrYellow]-  , icount   = 1-  , irarity  = [(6, 9), (10, 3)]-  , iverbHit = "cut"-  , iweight  = 1000-  , idamage  = 0-  , iaspects = [ AddSkill SkArmorMelee $ (1 `d` 2) * 5-               , AddSkill SkProject 1-                   -- the brim shields against blinding by light sources, etc.-               , SetFlag Durable, SetFlag Equipable-               , EqpSlot EqpSlotProject ]-  , ieffects = []-  , idesc    = "A hard plastic shell that might soften a blow."-  , ikit     = []-  }-helmArmored = ItemKind-  { isymbol  = symbolMiscArmor-  , iname    = "spacesuit helmet"-  , ifreq    = [("common item", 100), ("misc armor", 1)]-  , iflavour = zipPlain [BrCyan]-  , icount   = 1-  , irarity  = [(6, 9), (10, 3)]-  , iverbHit = "bounce"-  , iweight  = 2000-  , idamage  = 0-  , iaspects = [ AddSkill SkArmorMelee $ (1 + 1 `dL` 4) * 5-               , AddSkill SkArmorRanged $ (2 + 1 `dL` 2) * 3  -- headshot-               , AddSkill SkHearing (-7), AddSkill SkSight (-1)-               , AddSkill SkSmell (-5)-               , SetFlag Durable, SetFlag Equipable-               , EqpSlot EqpSlotArmorRanged ]-  , ieffects = []-  , idesc    = "Blocks out everything, including your senses."-  , ikit     = []-  }---- ** Shields---- Shield doesn't protect against ranged attacks to prevent--- micromanagement: walking with shield, melee without.--- Note that AI will pick them up but never wear and will use them at most--- as a way to push itself (but they won't recharge, not being in eqp).--- Being @Meleeable@ they will not be use as weapons either.--- This is OK, using shields smartly is totally beyond AI.-buckler = ItemKind-  { isymbol  = symbolShield-  , iname    = "buckler"-  , ifreq    = [("common item", 100)]-  , iflavour = zipPlain [Blue]-  , icount   = 1-  , irarity  = [(4, 5)]-  , iverbHit = "bash"-  , iweight  = 2000-  , idamage  = 0  -- safe to be used on self-  , iaspects = [ Timeout $ (3 + 1 `d` 3 - 1 `dL` 3) * 2-               , AddSkill SkArmorMelee 40-                   -- not enough to compensate; won't be in eqp-               , AddSkill SkHurtMelee (-30)-                   -- too harmful; won't be wielded as weapon-               , SetFlag MinorEffects, SetFlag Durable, SetFlag Meleeable-               , EqpSlot EqpSlotArmorMelee-               , toVelocity 50 ]  -- unwieldy to throw-  , ieffects = [PushActor (ThrowMod 200 50 1)]  -- 1 step, fast-  , idesc    = "Heavy and unwieldy arm protection made from an outer airlock panel. Absorbs a percentage of melee damage, both dealt and sustained. Too small to intercept projectiles with."-  , ikit     = []-  }-shield = buckler-  { iname    = "shield"-  , irarity  = [(8, 4)]  -- the stronger variants add to total probability-  , iflavour = zipPlain [Green]-  , iweight  = 4000-  , idamage  = 4 `d` 1-  , iaspects = [ Timeout $ (3 + 1 `d` 3 - 1 `dL` 3) * 4-               , AddSkill SkArmorMelee 80-                   -- not enough to compensate; won't be in eqp-               , AddSkill SkHurtMelee (-70)-                   -- too harmful; won't be wielded as weapon-               , SetFlag MinorEffects, SetFlag Durable, SetFlag Meleeable-               , EqpSlot EqpSlotArmorMelee-               , toVelocity 50 ]  -- unwieldy to throw-  , ieffects = [PushActor (ThrowMod 400 50 1)]  -- 2 steps, fast-  , idesc    = "Large and unwieldy rectangle made of anti-meteorite ceramic sheet. Absorbs a percentage of melee damage, both dealt and sustained. Too heavy to intercept projectiles with."-  }-shield2 = shield-  { ifreq    = [("common item", 3 * 2), ("museum", 100)]-                  -- very low base rarity-  , iweight  = 5000-  , idamage  = 8 `d` 1-  , idesc    = "A relic of long-past wars, heavy and with a central spike."-  }-shield3 = shield2-  { ifreq    = [("common item", 1 * 2), ("museum", 10)]-                  -- very low base rarity-  , iweight  = 6000-  , idamage  = 12 `d` 1-  }---- ** Weapons--dagger = ItemKind-  { isymbol  = symbolEdged-  , iname    = "cleaver"-  , ifreq    = [("common item", 100), ("starting weapon", 200)]-  , iflavour = zipPlain [BrCyan]-  , icount   = 1-  , irarity  = [(3 * 10/15, 35), (4 * 10/15, 1)]-                 -- no weapons brought by aliens, initially, so cleaver common-  , iverbHit = "cut"-  , iweight  = 1000-  , idamage  = 6 `d` 1-  , iaspects = [ Timeout 2-               , AddSkill SkHurtMelee $ (-1 + 1 `d` 2 + 1 `dL` 2) * 3-               , AddSkill SkArmorMelee $ (1 `d` 2) * 5-                   -- very common, so don't make too random-               , SetFlag Durable, SetFlag Meleeable-               , EqpSlot EqpSlotWeaponFast-               , toVelocity 40 ]  -- ensuring it hits with the tip costs speed-  , ieffects = []-  , idesc    = "A heavy professional kitchen blade. Will do fine cutting any kind of meat and bone, as well as parrying blows. Does not penetrate deeply, but is quick to move and hard to block. Especially useful in conjunction with a larger weapon."-  , ikit     = []-  }-daggerDropBestWeapon = dagger-  { iname    = "Double Dagger"-  , ifreq    = [("treasure", 20), ("museum", 100)]-  , irarity  = [(1, 3), (10, 3)]-  , iaspects = [SetFlag Unique]-               ++ iaspects dagger-  , ieffects = [DropBestWeapon, Yell]  -- powerful and low timeout, but makes-                                       -- noise and useless against stupid foes-  , idesc    = "An antique double dagger that a focused fencer can use to catch and twist away an opponent's blade."-  }-hammerTemplate = ItemKind-  { isymbol  = symbolHafted-  , iname    = "demolition hammer"-  , ifreq    = [("hammer unknown", 1)]-  , iflavour = zipFancy [BrMagenta]  -- avoid "pink"-  , icount   = 1-  , irarity  = [(3 * 10/15, 1), (5 * 10/15, 20), (8 * 10/15, 1)]-                 -- don't make it too common on lvl 3-  , iverbHit = "club"-  , iweight  = 1600-  , idamage  = 8 `d` 1  -- we are lying about the dice here, but the dungeon-                        -- is too small and the extra-dice hammers too rare-                        -- to subdivide this identification class by dice-  , iaspects = [ HideAs "hammer unknown"-               , SetFlag Durable, SetFlag Meleeable-               , toVelocity 40 ]  -- ensuring it hits with the tip costs speed-  , ieffects = []-  , idesc    = "One of many kinds of hammers employed in construction work. The ones with completely blunt heads don't cause grave wounds, but any fitted with a long enough handle can shake and bruise even most armored foes. However, such large hammers require more time to recover after a swing. This one looks average at a quick glance."  -- if it's really the average kind, the weak kind, the description stays; if not, it's replaced with one of the descriptions below at identification time-  , ikit     = []-  }-hammer1 = hammerTemplate-  { ifreq    = [("common item", 100), ("starting weapon", 70)]-  , iaspects = [Timeout 5, EqpSlot EqpSlotWeaponBig]-               ++ iaspects hammerTemplate-  }-hammer2 = hammerTemplate-  { ifreq    = [("common item", 20), ("starting weapon", 7)]-  , iverbHit = "gouge"-  , iaspects = [Timeout 3, EqpSlot EqpSlotWeaponFast]-               ++ iaspects hammerTemplate-  , idesc    = "Upon closer inspection, this hammer turns out particularly handy and well balanced, with a narrowing, sharpened head compensating the modest size."-  }-hammer3 = hammerTemplate-  { ifreq    = [("common item", 3), ("starting weapon", 1)]-  , iverbHit = "puncture"-  , iweight  = 2400  -- weight gives it away-  , idamage  = 12 `d` 1-  , iaspects = [ Timeout 12  -- balance, or @DupItem@ would break the game-               , EqpSlot EqpSlotWeaponBig]-               ++ delete (HideAs "hammer unknown") (iaspects hammerTemplate)-  , idesc    = "This hammer sports a long metal handle that increases the momentum of the sharpened head's swing, at the cost of long recovery."-  }-hammerParalyze = hammerTemplate-  { iname    = "Concussion Hammer"-  , ifreq    = [("treasure", 20)]-  , irarity  = [(5, 1), (8, 6)]-  , iaspects = [ SetFlag Unique-               , Timeout 5-               , EqpSlot EqpSlotWeaponBig ]-               ++ iaspects hammerTemplate-  , ieffects = [Paralyze 10]-  , idesc    = "This exquisite demolition hammer with a titanium head and exceptionally long synthetic handle leaves no wall and no body standing."-  }-hammerSpark = hammerTemplate-  { iname    = "Grand Smithhammer"-  , ifreq    = [("treasure", 20), ("museum", 100)]-  , irarity  = [(5, 1), (8, 6)]-  , iweight  = 2400  -- weight gives it away-  , idamage  = 12 `d` 1-  , iaspects = [ SetFlag Unique-               , Timeout 10-               , EqpSlot EqpSlotWeaponBig-               , AddSkill SkShine 3]-               ++ delete (HideAs "hammer unknown") (iaspects hammerTemplate)-  , ieffects = [Explode "spark"]-      -- we can't use a focused explosion, because it would harm the hammer-      -- wielder as well, unlike this one-  , idesc    = "High carbon steel of this heavy old hammer doesn't yield even to the newest alloys and produces fountains of sparks in defiance."-  }-sword = ItemKind-  { isymbol  = symbolPolearm-  , iname    = "sharpened pipe"-  , ifreq    = [("common item", 100), ("starting weapon", 30)]-  , iflavour = zipPlain [BrBlue]-  , icount   = 1-  , irarity  = [(4, 1), (6, 15)]-  , iverbHit = "stab"-  , iweight  = 2000-  , idamage  = 10 `d` 1-  , iaspects = [ Timeout 7-               , SetFlag Durable, SetFlag Meleeable-               , EqpSlot EqpSlotWeaponBig-               , toVelocity 40 ]  -- ensuring it hits with the tip costs speed-  , ieffects = []-  , idesc    = "A makeshift weapon of simple design, but great potential. Hard to master, though."-  , ikit     = []-  }-swordImpress = sword-  { isymbol  = symbolEdged-  , iname    = "Master's Sword"-  , ifreq    = [("treasure", 20), ("museum", 100)]-  , irarity  = [(5, 1), (8, 6)]-  , iverbHit = "slash"-  , iaspects = [SetFlag Unique]-               ++ iaspects sword-  , ieffects = [Impress]-  , idesc    = "A particularly well-balance museum piece. It has a long history and in the right hands lends itself to impressive shows of fencing skill."-  }-swordNullify = sword-  { isymbol  = symbolEdged-  , iname    = "Roasting Rapier"-  , ifreq    = [("treasure", 20)]-  , iverbHit = "pierce"-  , irarity  = [(5, 1), (8, 6)]-  , iaspects = [SetFlag Unique, Timeout 3, EqpSlot EqpSlotWeaponFast]-               ++ (iaspects sword \\ [Timeout 7, EqpSlot EqpSlotWeaponBig])-  , ieffects = [ DropItem 1 maxBound COrgan "condition"-               , RefillCalm (-10)-               , Yell ]-  , idesc    = "A thin, acutely sharp steel blade that pierces deeply and sends its victim into abrupt, sobering shock. Originally, an exuberant hand-forged roasting implement, intentionally and wisely kept blunt."-  }-halberd = ItemKind-  { isymbol  = symbolPolearm-  , iname    = "pole cleaver"-  , ifreq    = [("common item", 100), ("starting weapon", 20)]-  , iflavour = zipPlain [BrYellow]-  , icount   = 1-  , irarity  = [(5, 0), (8, 15)]-  , iverbHit = "impale"-  , iweight  = 3000-  , idamage  = 12 `d` 1-  , iaspects = [ Timeout 10-               , AddSkill SkHurtMelee $ (-5 + 1 `dL` 3) * 5-                   -- useless against armor at game start-               , AddSkill SkArmorMelee 20-               , SetFlag Durable, SetFlag Meleeable-               , EqpSlot EqpSlotWeaponBig-               , toVelocity 20 ]  -- not balanced-  , ieffects = []-  , idesc    = "An improvised but deadly weapon made of a long, sharp kitchen knife glued and bound to a long pole. Not often one succeeds in making enough space to swing it freely, but even when stuck between terrain obstacles it blocks approaches effectively and makes using other weapons difficult, both by friends and foes."-  , ikit     = []-  }-halberd2 = halberd-  { iname    = "pollaxe"-  , ifreq    = [("common item", 3 * 3), ("starting weapon", 1)]-  , iverbHit = "carve"-  , iweight  = 4000-  , iaspects = [AddSkill SkHurtMelee $ (-6 + 1 `dL` 4) * 10]-                 -- balance, or @DupItem@ would break the game;-                 -- together with @RerollItem@, it's allowed to, though-               ++ (iaspects halberd-                   \\ [AddSkill SkHurtMelee $ (-6 + 1 `dL` 4) * 5])-  , idamage  = 18 `d` 1-  , idesc    = "A long-hafted axe: once used for maintenance, now turned to a bloodier purpose."-  }-halberdPushActor = halberd-  { iname    = "Swiss Halberd"-  , ifreq    = [("curious item", 20)]  -- not museum; reenactors-  , irarity  = [(7, 0), (9, 15)]-  , iaspects = [SetFlag Unique]-               ++ iaspects halberd-  , ieffects = [PushActor (ThrowMod 200 100 1)]  -- 2 steps, slow-  , idesc    = "A perfect replica made for a reenactor troupe, hardened, missing only some final sharpening. Versatile, with great reach and leverage. Foes are held at a distance."-  }---- ** Wands--wandTemplate = ItemKind-  { isymbol  = symbolWand-  , iname    = "injector"-  , ifreq    = [("wand unknown", 1)]-  , iflavour = zipFancy brightCol-  , icount   = 1-  , irarity  = []-  , iverbHit = "club"-  , iweight  = 300-  , idamage  = 0-  , iaspects = [ HideAs "wand unknown"-               , AddSkill SkShine 1, AddSkill SkSpeed (-1)-                   -- pulsing with power, distracts-               , SetFlag Durable-               , toVelocity 125 ]  -- sufficiently advanced tech-  , ieffects = []-  , idesc    = "Buzzing with dazzling light that shines even through appendages that handle it."-  , ikit     = []-  }-wand1 = wandTemplate-  { ifreq    = []-  , ieffects = []  -- will be: emit a cone of sound shrapnel that makes enemy cover his ears and so drop '|' and '{'-  }---- ** Treasure--gemTemplate = ItemKind-  { isymbol  = symbolGold-  , iname    = "gem"-  , ifreq    = [("gem unknown", 1), ("valuable", 100)]-  , iflavour = zipPlain $ delete BrYellow brightCol  -- natural, so not fancy-  , icount   = 1-  , irarity  = [(3, 0), (10, 24)]-  , iverbHit = "tap"-  , iweight  = 50-  , idamage  = 0-  , iaspects = [HideAs "gem unknown", SetFlag Precious]-  , ieffects = []-  , idesc    = "Precious, though useless. Worth around 100 gold grains."-  , ikit     = []-  }-gem1 = gemTemplate-  { ifreq    = [ ("treasure", 100), ("gem", 100), ("any jewelry", 100)-               , ("valuable", 100) ]-  , irarity  = [(3, 0), (6, 12), (10, 8)]-  , iaspects = [AddSkill SkShine 1, AddSkill SkSpeed (-1)]-                 -- reflects strongly, distracts; so it glows in the dark,-                 -- is visible on dark floor, but not too tempting to wear-               ++ iaspects gemTemplate-  }-gem2 = gem1-  { ifreq    = [ ("treasure", 100), ("gem", 100), ("any jewelry", 100)-               , ("valuable", 100) ]-  , irarity  = [(5, 0), (7, 25), (10, 8)]-  }-gem3 = gem1-  { ifreq    = [ ("treasure", 100), ("gem", 100), ("any jewelry", 100)-               , ("valuable", 100) ]-  , irarity  = [(7, 0), (8, 20), (10, 8)]-  }-gem4 = gem1-  { ifreq    = [ ("treasure", 100), ("gem", 100), ("any jewelry", 100)-               , ("valuable", 100) ]-  , irarity  = [(9, 0), (10, 70)]-  }-gem5 = gem1-  { isymbol  = symbolSpecial-  , iname    = "stimpack"-  , ifreq    = [ ("treasure", 100), ("gem", 25), ("any jewelry", 10)-               , ("valuable", 100) ]-  , iflavour = zipPlain [BrYellow]-  , irarity  = [(1, 40), (10, 10)]-  , iaspects = [ ELabel "of youth", SetFlag Precious  -- not hidden-               , AddSkill SkOdor (-1) ]-  , ieffects = [RefillCalm 10, RefillHP 40]-  , idesc    = "Calms, heals, invigorates, rejuvenates and smells nice. No side-effects. As valuable as precious gems, at 100 gold grains each."-  }-currencyTemplate = ItemKind-  { isymbol  = symbolGold-  , iname    = "gold grain"-  , ifreq    = [("currency unknown", 1), ("valuable", 1)]-  , iflavour = zipPlain [BrYellow]-  , icount   = 10 + 1 `d` 20 + 1 `dL` 20-  , irarity  = [(1, 25), (10, 10)]-  , iverbHit = "tap"-  , iweight  = 1-  , idamage  = 0-  , iaspects = [HideAs "currency unknown", SetFlag Precious]-  , ieffects = []-  , idesc    = "Reliably valuable in every civilized place."-  , ikit     = []-  }-currency = currencyTemplate-  { ifreq    = [("treasure", 100), ("currency", 100), ("valuable", 1)]-  , iaspects = [AddSkill SkShine 1, AddSkill SkSpeed (-1)]-               ++ iaspects currencyTemplate-  }---- * Allure-specific items--needle = ItemKind-  { isymbol  = symbolProjectile-  , iname    = "needle"-  , ifreq    = [ ("needle", 1), ("common item", 1)-                   -- marked as common to ensure can be polymorphed-               , ("unreported inventory", 1) ]  -- too weak to spam-  , iflavour = zipPlain [Blue]-  , icount   = 1 + 8 `d` 3-  , irarity  = [(1, 1)]-  , iverbHit = "prick"-  , iweight  = 3-  , idamage  = 1 `d` 1-  , iaspects = [ AddSkill SkHurtMelee $ -10 * 5-               , SetFlag Fragile  -- breaks easily despite being piercing-               , ToThrow $ ThrowMod 70 100 3 ]  -- piercing; good shape-  , ieffects = []-  , idesc    = "A long sturdy hypodermic needle ending in a dried out micro-syringe that is easy to break off. It's too thin to cause great harm, but it passes through flesh easily."-  , ikit     = []-  }-needleSleep = ItemKind-  { isymbol  = symbolProjectile-  , iname    = "tranquillizer dart"-  , ifreq    = [ ("tranquillizer dart", 1), ("common item", 1) ]-                   -- marked as common to ensure can be polymorphed-  , iflavour = zipPlain [BrBlue]-  , icount   = 1 `dL` 3-  , irarity  = [(1, 1)]-  , iverbHit = "prick"-  , iweight  = 10-  , idamage  = 1 `d` 1-  , iaspects = [ AddSkill SkHurtMelee $ -10 * 5-               , SetFlag Fragile-               , toVelocity 70 ]  -- syringe blocks piercing; slender fins-  , ieffects = [PutToSleep]-  , idesc    = "A long hypodermic needle ending in a micro-syringe with residues of the sleeping agent."-  , ikit     = []-  }-constructionHooter = necklaceTemplate-  { iname    = "construction hooter"-  , ifreq    = [ ("construction hooter", 1), ("common item", 1)-                   -- extremely rare, but dropped by decontamination chambers-               , ("unreported inventory", 1) ]-  , iflavour = zipPlain [BrRed]-  , irarity  = [(1, 1)]-  , iweight  = 1000-  , iaspects = [ AddSkill SkArmorMelee 2-               , SetFlag Durable, toVelocity 50-               , SetFlag Equipable, EqpSlot EqpSlotArmorMelee]-  , ieffects = [Yell, Summon "construction robot" 1]-  , idesc    = "An emergency hooter for alarming human personnel in case their life is in danger. Worn by construction robots around their \"neck\", where it's least exposed, but even there it needs to be heavily armored and running on its own power supply."-  }-wasteContainer = ItemKind-  { isymbol  = symbolTool-  , iname    = "waste container"-  , ifreq    = [("waste container", 1), ("unreported inventory", 1)]-  , iflavour = zipLiquid [Green]-  , icount   = 1-  , irarity  = [(1, 1)]-  , iverbHit = "spill over"-  , iweight  = 30000-  , idamage  = 0-  , iaspects = [ Timeout $ (1 `d` 2) * 30  -- robots should not summon too often-               , AddSkill SkArmorMelee 20  -- tempting-               , SetFlag Periodic, SetFlag Equipable ]-  , ieffects = [ Detect DetectLoot 20-               , Summon "mobile animal" $ 1 `dL` 2-               , Explode "waste" ]-                   -- very important effect that disables item movement-                   -- and so makes wielding seeingItem a tiny bit risky,-                   -- and so not a no-brainer-  , idesc    = "Waste recognition and utilization subsystem. Detects any stray item not registered as passenger cargo. Leaks a little."-  , ikit     = []-  }-spotlight = ItemKind-  { isymbol  = symbolLight-  , iname    = "spotlight"-  , ifreq    = [("spotlight", 1), ("unreported inventory", 1)]-  , iflavour = zipPlain [White]-  , icount   = 1-  , irarity  = [(1, 1)]-  , iverbHit = "illuminate"-  , iweight  = 3000-  , idamage  = 0-  , iaspects = [ AddSkill SkShine 4-               , AddSkill SkHurtMelee (-3)  -- heavy and unwieldy-               , SetFlag Equipable, EqpSlot EqpSlotShine ]-  , ieffects = [Detect DetectHidden 20]-  , idesc    = "Powerful wide-beam spotlight in an unwieldy rack-mounted package. On overdrive, it can shine through thin construction surfaces, underlying fault lines."-  , ikit     = []-  }-scrollAd1 = scrollTemplate-  { ifreq    = [("common item", 100), ("any scroll", 100)]-  , icount   = 1-  , irarity  = [(1, 1)]  -- not every playthrough needs one-  , iaspects = [ELabel "of tourist guide"]-               ++ iaspects scrollTemplate-  , ieffects = [ Impress-               , toOrganGood "resolute" (500 + 1 `d` 200)-                   -- a drawback (at least initially) due to @calmEnough@-               , Explode "cruise ad hologram"-               , Detect DetectLoot 5 ]  -- short so useless most of the time-  , idesc    = "Biodegradable self-powered mini-projector displaying holographic ads and shopping hints."-  }-blowtorch = ItemKind-  { isymbol  = symbolLight-  , iname    = "blowtorch"  -- not unique, but almost never generated on floor-  , ifreq    = [("blowtorch", 1), ("valuable", 20), ("curious item", 1)]-  , iflavour = zipPlain [BrYellow]-  , icount   = 1-  , irarity  = [(1, 1)]-  , iverbHit = "scorch"-  , iweight  = 2000-  , idamage  = 0-  , iaspects = [ Timeout 4-               , AddSkill SkAlter 2-               , SetFlag Durable, SetFlag Meleeable-               , EqpSlot EqpSlotAlter ]-  , ieffects = [Burn 2, Impress]-      -- is used for melee in precedence to fists, but not to cleavers;-      -- so if player wants to hit with it, it's enough to pack other gear-  , idesc    = "A sturdy old-fashioned portable blowtorch for fine cutting or welding of metals. Rather weak, but does not require access codes to high current power outlets."+-- Copyright (c) 2010--2021 Mikolaj Konarski and others (see git history)+-- This file is a part of the computer game Allure of the Stars+-- and is released under the terms of the GNU Affero General Public License.+-- For license and copyright information, see the file LICENSE.+--+-- | Item definitions.+module Content.ItemKind+  ( -- * Group name patterns+    pattern HARPOON, pattern ARMOR_LOOSE, pattern CLOTHING_MISC+  , pattern COOKED_PLANT, pattern LIQUID_NITROGEN, pattern GARDENING_TOOL+  , groupNamesSingleton, groupNames+  , -- * Content+    content, items, otherItemContent+  ) where++import Prelude ()++import Game.LambdaHack.Core.Prelude++import Content.ItemKindActor+import Content.ItemKindBlast+import Content.ItemKindEmbed+import Content.ItemKindOrgan+import Content.ItemKindTemporary+import Content.RuleKind+import Game.LambdaHack.Content.ItemKind+import Game.LambdaHack.Content.RuleKind+import Game.LambdaHack.Core.Dice+import Game.LambdaHack.Definition.Ability+import Game.LambdaHack.Definition.Color+import Game.LambdaHack.Definition.Defs+import Game.LambdaHack.Definition.Flavour++-- * Group name patterns++groupNamesSingleton :: [GroupName ItemKind]+groupNamesSingleton =+       [S_FRAGRANCE, S_SINGLE_SPARK, S_SPARK]+    ++ [FLASK_UNKNOWN, POTION_UNKNOWN, EDIBLE_PLANT_UNKNOWN, SCROLL_UNKNOWN, NECKLACE_UNKNOWN, RING_UNKNOWN, HAMMER_UNKNOWN, GEM_UNKNOWN, CURRENCY_UNKNOWN]+    ++ [S_RAG_TANGLE, S_GRASS_STITCHER, S_LADIES_FORK, S_SPADE, S_HOE]+    ++ [COOKED_PLANT_UNKNOWN]+    ++ embedsGNSingleton ++ actorsGNSingleton ++ organsGNSingleton+    ++ blastsGNSingleton ++ temporariesGNSingleton++pattern FLASK_UNKNOWN, POTION_UNKNOWN, EDIBLE_PLANT_UNKNOWN, SCROLL_UNKNOWN, NECKLACE_UNKNOWN, RING_UNKNOWN, HAMMER_UNKNOWN, GEM_UNKNOWN, CURRENCY_UNKNOWN :: GroupName ItemKind++pattern S_RAG_TANGLE, S_GRASS_STITCHER, S_LADIES_FORK, S_SPADE, S_HOE :: GroupName ItemKind++pattern COOKED_PLANT_UNKNOWN :: GroupName ItemKind++groupNames :: [GroupName ItemKind]+groupNames =+       [CRAWL_ITEM, TREASURE, ANY_SCROLL, ANY_GLASS, ANY_POTION, ANY_FLASK, EXPLOSIVE, ANY_JEWELRY, VALUABLE, UNREPORTED_INVENTORY, AQUATIC]+    ++ [HARPOON, ARMOR_LOOSE, CLOTHING_MISC]+    ++ [COOKED_PLANT, LIQUID_NITROGEN, GARDENING_TOOL, TOOL_ONLY]+    ++ embedsGN ++ actorsGN ++ organsGN ++ blastsGN++pattern HARPOON, ARMOR_LOOSE, CLOTHING_MISC :: GroupName ItemKind++pattern COOKED_PLANT, LIQUID_NITROGEN, GARDENING_TOOL, TOOL_ONLY :: GroupName ItemKind++-- The @UNKNOWN@ patterns don't need to be exported. Used internally.+-- They also represent singleton groups.+pattern FLASK_UNKNOWN = GroupName "flask unknown"+pattern POTION_UNKNOWN = GroupName "potion unknown"+pattern EDIBLE_PLANT_UNKNOWN = GroupName "edible plant unknown"+pattern SCROLL_UNKNOWN = GroupName "scroll unknown"+pattern NECKLACE_UNKNOWN = GroupName "necklace unknown"+pattern RING_UNKNOWN = GroupName "ring unknown"+pattern HAMMER_UNKNOWN = GroupName "hammer unknown"+pattern GEM_UNKNOWN = GroupName "gem unknown"+pattern CURRENCY_UNKNOWN = GroupName "currency unknown"++pattern HARPOON = GroupName "harpoon"+pattern ARMOR_LOOSE = GroupName "loose armor"+pattern CLOTHING_MISC = GroupName "miscellaneous clothing"++-- ** Allure-specific++-- Below Allure-specific definitions are interspersed among generic+-- definitions to make managing related definitions easier.++-- The @UNKNOWN@ patterns don't need to be exported. Used internally.+-- They also represent singleton groups.+pattern COOKED_PLANT_UNKNOWN = GroupName "cooked plant unknown"++pattern COOKED_PLANT = GroupName "cooked plant"+pattern LIQUID_NITROGEN = GroupName "liquid nitrogen"+pattern GARDENING_TOOL = GroupName "gardening tool"+pattern TOOL_ONLY = GroupName "tool only"++pattern S_RAG_TANGLE = GroupName "rag tangle"+pattern S_GRASS_STITCHER = GroupName "grass stitcher"+pattern S_LADIES_FORK = GroupName "ladies' fork"+pattern S_HOE = GroupName "hoe"+pattern S_SPADE = GroupName "spade"++-- * Content++content :: [ItemKind]+content = items ++ otherItemContent++otherItemContent :: [ItemKind]+otherItemContent = embeds ++ actors ++ organs ++ blasts ++ temporaries++items :: [ItemKind]+items =+  [sandstoneRock, steelScrap, needle, dart, spike, spike2, slingStone, slingBullet, needleSleep, paralizingProj, harpoon, harpoon2, harpoon3, net, fragmentationBomb, concussionBomb, flashBomb, firecrackerBomb, flaskEmpty, flaskTemplate, flask1, flask2, flask3, flask4, flask5, flask6, flask7, flask8, flask9, flask10, flask11, flask12, flask13, flask14, flask15, flask16, flask17, potionTemplate, potion1, potion2, potion3, potion4, potion5, potion6, potion7, potion8, potion9, potion10, potion11, potion12, potion13, potion14, potion15, potion16, scrollTemplate, scroll1, scroll2, scroll3, scroll4, scroll5, scroll6, scroll7, scroll8, scroll9, scroll10, scroll11, scroll12, scroll13, scroll14, scroll15, scroll16, scrollAd1, rawMeatChunk, roastedMeatChunk, ediblePlantTemplate, ediblePlant1, ediblePlant2, ediblePlant3, ediblePlant4, ediblePlant5, ediblePlant6, ediblePlant7, ediblePlant8, cookedPlantTemplate, cookedPlant1, cookedPlant2, cookedPlant3, cookedPlant4, cookedPlant5, cookedPlant6, cookedPlant7, cookedPlant8, light1, lightDoused1, light2, lightDoused2, light3, blanket, chisel, hacksaw, adjustableSpanner, steelFile, honingSteel, whetstone, diagonalPliers, snips, loppers, boltCutter, solderingIron, duckTape, thickCord, gorget, necklaceTemplate, necklace1, necklace3, necklace4, necklace5, necklace6, necklace7, necklace8, necklace9, necklace10, motionScanner, imageItensifier, sightSharpening, ringTemplate, ring1, ring2, ring3, ring4, ring5, ring6, ring7, ring8, ring9, ring10, armorLeather, armorLeather2, armorMail, meleeEnhancement, spacesuit, spacesuitTorn, gloveFencing, gloveGauntlet, gloveJousting, hatUshanka, capReinforced, helmArmored, heavyBoot, ragTangle, buckler, shield, shield2, shield3, blowtorch, laserSharpener, crowbar, catsPaw, shortClub, longClub, hammerTemplate, hammer1, hammer2, hammer3, hammer4, hammer5, hammerParalyze, hammerSpark, knife, daggerDropBestWeapon, dagger, sword, swordImpress, swordNullify, swordNullifySharp, halberd, oxTongue, halberdPushActor, halberdPushActorSharp, fireAxe, pollaxe, militaryKnife, militaryBaton, cattleProd, grassStitcher, ladiesFork, hoe, spade, treePruner, cleaningPole, staff, pipe, longPole, gemTemplate, gem1, gem2, gem3, gem4, gem5, currencyTemplate, currency, jumpingPole, constructionHooter, wasteContainer, spotlight, seeingItem]++sandstoneRock,    steelScrap, needle, dart, spike, spike2, slingStone, slingBullet, needleSleep, paralizingProj, harpoon, harpoon2, harpoon3, net, fragmentationBomb, concussionBomb, flashBomb, firecrackerBomb, flaskEmpty, flaskTemplate, flask1, flask2, flask3, flask4, flask5, flask6, flask7, flask8, flask9, flask10, flask11, flask12, flask13, flask14, flask15, flask16, flask17, potionTemplate, potion1, potion2, potion3, potion4, potion5, potion6, potion7, potion8, potion9, potion10, potion11, potion12, potion13, potion14, potion15, potion16, scrollTemplate, scroll1, scroll2, scroll3, scroll4, scroll5, scroll6, scroll7, scroll8, scroll9, scroll10, scroll11, scroll12, scroll13, scroll14, scroll15, scroll16, scrollAd1, rawMeatChunk, roastedMeatChunk, ediblePlantTemplate, ediblePlant1, ediblePlant2, ediblePlant3, ediblePlant4, ediblePlant5, ediblePlant6, ediblePlant7, ediblePlant8, cookedPlantTemplate, cookedPlant1, cookedPlant2, cookedPlant3, cookedPlant4, cookedPlant5, cookedPlant6, cookedPlant7, cookedPlant8, light1, lightDoused1, light2, lightDoused2, light3, blanket, chisel, hacksaw, adjustableSpanner, steelFile, honingSteel, whetstone, diagonalPliers, snips, loppers, boltCutter, solderingIron, duckTape, thickCord, gorget, necklaceTemplate, necklace1, necklace3, necklace4, necklace5, necklace6, necklace7, necklace8, necklace9, necklace10, motionScanner, imageItensifier, sightSharpening, ringTemplate, ring1, ring2, ring3, ring4, ring5, ring6, ring7, ring8, ring9, ring10, armorLeather, armorLeather2, armorMail, meleeEnhancement, spacesuit, spacesuitTorn, gloveFencing, gloveGauntlet, gloveJousting, hatUshanka, capReinforced, helmArmored, heavyBoot, ragTangle, buckler, shield, shield2, shield3, blowtorch, laserSharpener, crowbar, catsPaw, shortClub, longClub, hammerTemplate, hammer1, hammer2, hammer3, hammer4, hammer5, hammerParalyze, hammerSpark, knife, daggerDropBestWeapon, dagger, sword, swordImpress, swordNullify, swordNullifySharp, halberd, oxTongue, halberdPushActor, halberdPushActorSharp, fireAxe, pollaxe, militaryKnife, militaryBaton, cattleProd, grassStitcher, ladiesFork, hoe, spade, treePruner, cleaningPole, staff, pipe, longPole, gemTemplate, gem1, gem2, gem3, gem4, gem5, currencyTemplate, currency, jumpingPole, constructionHooter, wasteContainer, spotlight, seeingItem :: ItemKind++-- Keep the dice rolls and sides in aspects small so that not too many+-- distinct items are generated (for display in item lore and for narrative+-- impact ("oh, I found the more powerful of the two variants of the item!",+-- instead of "hmm, I found one of the countless variants, a decent one").+-- In particular, for unique items, unless they inherit aspects from+-- a standard item, permit only a couple possible variants.+-- This is especially important if an item kind has multiple random aspects.+-- Instead multiply dice results, e.g., (1 `d` 3) * 5 instead of 1 `d` 15.+--+-- Beware of non-periodic non-weapon durable items with beneficial effects+-- and low timeout -- AI will starve applying such an item incessantly.++-- * Item group symbols, from Angband and variants++symbolProjectile, _symbolLauncher, symbolLight, symbolTool, symbolSpecial, symbolGold, symbolNecklace, symbolRing, symbolPotion, symbolFlask, symbolScroll, symbolTorsoArmor, symbolMiscArmor, symbolClothes, symbolShield, symbolPolearm, symbolEdged, symbolHafted, symbolWand, _symbolStaff, symbolFood :: Char++symbolProjectile = rsymbolProjectile standardRules  -- '{'+_symbolLauncher  = '}'+symbolLight      = '('+symbolTool       = ')'+symbolSpecial    = '*'  -- don't overuse, because it clashes with projectiles+symbolGold       = '$'  -- also gems+symbolNecklace   = '"'+symbolRing       = '='+symbolPotion     = '!'  -- concoction, bottle, jar, vial, canister+symbolFlask      = '!'+symbolScroll     = '?'  -- book, note, tablet, remote, chip, card+symbolTorsoArmor = '['+symbolMiscArmor  = '['+symbolClothes    = '['+symbolShield     = ']'+symbolPolearm    = '/'+symbolEdged      = '|'+symbolHafted     = '\\'+symbolWand       = '-'  -- magical rod, transmitter, pistol, rifle, instrument+_symbolStaff     = '_'  -- scanner+symbolFood       = ','  -- also body part; distinct from floor: not middle dot++-- ** Thrown weapons++sandstoneRock = ItemKind+  { isymbol  = symbolProjectile+  , iname    = "ceramic foam splinter"+  , ifreq    = [ (S_SANDSTONE_ROCK, 1)+               , (UNREPORTED_INVENTORY, 1) ]  -- too weak to spam+  , iflavour = zipPlain [Green]+  , icount   = 1 + 1 `d` 2  -- > 1, to let AI ignore sole pieces+  , irarity  = [(1, 1)]+  , iverbHit = "swat"+  , iweight  = 300+  , idamage  = 1 `d` 1+  , iaspects = [ AddSkill SkHurtMelee $ -16 * 5+               , SetFlag Fragile+               , toVelocity 70 ] -- not dense, irregular+  , ieffects = []+  , idesc    = "A light, irregular lump of ceramic foam used in construction."+  , ikit     = []+  }+steelScrap = sandstoneRock+  { iname    = "steel scrap"+  , ifreq    = [ (STEEL_SCRAP, 1)+               , (UNREPORTED_INVENTORY, 1) ]  -- too weak to spam+  , iflavour = zipPlain [Cyan]+  , iverbHit = "grate"+  , idamage  = 2 `d` 1+  , iweight  = 700+  , idesc    = " A lump of steel scrap that can be easily bent around and pounded into a wood pole."+  }+needle = ItemKind+  { isymbol  = symbolProjectile+  , iname    = "needle"+  , ifreq    = [ (NEEDLE, 1), (COMMON_ITEM, 1)+                   -- marked as common to ensure can be polymorphed+               , (UNREPORTED_INVENTORY, 1) ]  -- too weak to spam+  , iflavour = zipPlain [Blue]+  , icount   = 1 + 8 `d` 3+  , irarity  = [(1, 1)]+  , iverbHit = "prick"+  , iweight  = 3+  , idamage  = 1 `d` 1+  , iaspects = [ AddSkill SkHurtMelee $ -10 * 5+               , ToThrow $ ThrowMod 60 100 5  -- piercing; good shape+               , SetFlag Fragile ]  -- breaks easily despite being piercing+  , ieffects = []+  , idesc    = "A long sturdy hypodermic needle ending in a dried out micro-syringe that is easy to break off. It's too thin to cause great harm, but it passes through flesh easily."+  , ikit     = []+  }+dart = ItemKind+  { isymbol  = symbolProjectile+  , iname    = "billiard ball"+  , ifreq    = [(COMMON_ITEM, 100), (ANY_ARROW, 50), (WEAK_ARROW, 50)]+  , iflavour = zipPlain [White]+  , icount   = 1 + 1 `d` 2 + 4 `dL` 5+  , irarity  = [(1, 25)]+  , iverbHit = "strike"+  , iweight  = 170+  , idamage  = 1 `d` 1+  , iaspects = [AddSkill SkHurtMelee $ (-15 + 1 `d` 2 + 1 `dL` 3) * 5]+                 -- only good against leather+  , ieffects = []+  , idesc    = "Ideal shape, size and weight for throwing."+  , ikit     = []+  }+spike = ItemKind+  { isymbol  = symbolProjectile+  , iname    = "steak knife"+  , ifreq    = [(COMMON_ITEM, 100), (ANY_ARROW, 50), (WEAK_ARROW, 50)]+  , iflavour = zipPlain [BrCyan]+  , icount   = 1 + 1 `d` 2 + 3 `dL` 5+  , irarity  = [(1, 15), (10, 10)]+  , iverbHit = "nick"+  , iweight  = 100+  , idamage  = 2 `d` 1+  , iaspects = [ AddSkill SkHurtMelee $ (-10 + 1 `d` 2 + 1 `dL` 3) * 5+                   -- heavy vs armor+               , SetFlag MinorEffects+               , toVelocity 70 ]  -- hitting with tip costs speed+  , ieffects = [ Explode S_SINGLE_SPARK  -- when hitting enemy+               , OnSmash (Explode S_SINGLE_SPARK) ]  -- at wall hit+      -- this results in a wordy item synopsis, but it's OK, the spark really+      -- is useful in some situations, not just a flavour+  , idesc    = "Not durable nor particularly well balanced, but with a laser-sharpened titanium alloy tip and blade."+  , ikit     = []+  }+spike2 = spike+  { iname    = "heavy steak knife"+  , ifreq    = [(COMMON_ITEM, 3), (ANY_ARROW, 1), (WEAK_ARROW, 1)]+  , iflavour = zipPlain [Cyan]+  , icount   = 1 + 5 `dL` 5+  , iverbHit = "penetrate"+  , iweight  = 150+  , idamage = 4 `d` 1  -- not useful for melee, because hurt skill too low+  , iaspects = [ AddSkill SkHurtMelee $ (-10 + 1 `d` 2 + 1 `dL` 3) * 5+               , SetFlag MinorEffects+               , Odds (10 * 1 `dL` 10) [] [toVelocity 70] ]+                   -- at deep levels sometimes even don't limit velocity+  , idesc    = "Old, slightly discoloured, probably from a genuine steel. A heavy and surprisingly well balanced prop from a posh restaurant. It won't survive any rough treatment, though."  -- the theme of pre-modern things being more solid and intimidating+  }+slingStone = ItemKind+  { isymbol  = symbolProjectile+  , iname    = "steel hex nut"+  , ifreq    = [(COMMON_ITEM, 5), (ANY_ARROW, 100)]+  , iflavour = zipPlain [Blue]+  , icount   = 1 + 3 `dL` 4+  , irarity  = [(8, 25)]+  , iverbHit = "clobber"+  , iweight  = 200+  , idamage  = 1 `d` 1+  , iaspects = [ AddSkill SkHurtMelee $ (-10 + 1 `d` 2 + 1 `dL` 3) * 5+                   -- heavy, to bludgeon through armor+               , SetFlag MinorEffects+               , toVelocity 150 ]+  , ieffects = [ Explode S_SINGLE_SPARK  -- when hitting enemy+               , OnSmash (Explode S_SINGLE_SPARK) ]  -- at wall hit+  , idesc    = "A large hexagonal fastening nut; due to its angular shape, securely lodging in the pouch of a makeshift string and cloth sling."+  , ikit     = []+  }+slingBullet = ItemKind+  { isymbol  = symbolProjectile+  , iname    = "bearing ball"+  , ifreq    = [(COMMON_ITEM, 5), (ANY_ARROW, 100), (MERCENARY_AMMO, 25)]+  , iflavour = zipPlain [BrBlue]+  , icount   = 1 + 6 `dL` 4+  , irarity  = [(8, 20)]+  , iverbHit = "slug"+  , iweight  = 28+  , idamage  = 1 `d` 1+  , iaspects = [ AddSkill SkHurtMelee $ (-17 + 1 `d` 2 + 1 `dL` 3) * 5+                   -- not too good against armor+               , ToThrow $ ThrowMod 200 100 2  -- piercing+               , SetFlag Fragile ]+                   -- otherwise would rarely break and the player would have+                   -- unlimited resource and would have to pick up constantly+  , ieffects = []+  , idesc    = "Small but heavy bearing ball. Thanks to its size and shape, it doesn't snag when released from the makeshift sling's pouch. Minimal friction enables it to pierce through flesh when fast enough initially. Really hard to find once thrown."  -- we lie, it doesn't slow down in our model; but it stops piercing alright+  , ikit     = []+  }++-- ** Exotic thrown weapons++needleSleep = ItemKind+  { isymbol  = symbolProjectile+  , iname    = "tranquillizer dart"+  , ifreq    = [ (TRANQUILIZER_DART, 1), (COMMON_ITEM, 1)+               , (MERCENARY_AMMO, 25) ]+                   -- marked as common to ensure can be polymorphed+  , iflavour = zipPlain [BrBlue]+  , icount   = 1 `dL` 3+  , irarity  = [(1, 1)]+  , iverbHit = "prick"+  , iweight  = 10+  , idamage  = 1 `d` 1+  , iaspects = [ AddSkill SkHurtMelee $ -10 * 5+               , SetFlag Fragile+               , toVelocity 60 ]  -- syringe blocks piercing; slender fins+  , ieffects = [PutToSleep]+  , idesc    = "A long hypodermic needle ending in a micro-syringe with residues of the sleeping agent."+  , ikit     = []+  }+-- Identified, because shape (and name) says it all. Detailed aspects id by use.+-- This is an extremely large value for @Paralyze@. Normally for such values+-- we should instead use condition that disables (almost) all stats,+-- except @SkWait@, so that the player can switch leader and not be+-- helpless nor experience instadeath (unless his party is 1-person+-- or the actor is isolated, but that's usually player's fault).+paralizingProj = ItemKind+  { isymbol  = symbolProjectile+  , iname    = "can"+  , ifreq    = [ (COMMON_ITEM, 100), (CAN_OF_STICKY_FOAM, 1)+               , (MERCENARY_AMMO, 25), (BONDING_TOOL, 1) ]+  , iflavour = zipPlain [Magenta]+  , icount   = 1 `dL` 4+  , irarity  = [(5, 5), (10, 20)]+  , iverbHit = "glue"+  , iweight  = 1000+  , idamage  = 1 `d` 1+  , iaspects = [ ELabel "of sticky foam"+               , AddSkill SkHurtMelee $ -14 * 5+               , SetFlag Lobable, SetFlag Fragile+               , toVelocity 70 ]  -- unwieldy+  , ieffects = [Paralyze 15, OnSmash (Explode S_GLUE) ]+  , idesc    = "A can of liquid, fast-setting construction foam. Often used as a glue."+  , ikit     = []+  }+harpoon = ItemKind+  { isymbol  = symbolProjectile+  , iname    = "harpoon"+  , ifreq    = [(COMMON_ITEM, 33), (HARPOON, 100), (S_HARPOON_CARGO, 1)]+  , iflavour = zipPlain [Brown]+  , icount   = 1  -- durable, so one piece lasts long+  , irarity  = [(1, 17)]+  , iverbHit = "hook"+  , iweight  = 1500  -- high damage and reusable, but one shot less via pulling+  , idamage  = 5 `d` 1+  , iaspects = [ Timeout 7+               , AddSkill SkHurtMelee $ (-4 + 1 `d` 3) * 5+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponBig ]  -- AI wields for fun despite stats+  , ieffects = [PullActor (ThrowMod 200 50 1)]  -- 1 step, fast+  , idesc    = "A cargo-hook with a high-tension cord that makes the entangled victim easy to unbalance with a strong pull."+  , ikit     = []+  }+harpoon2 = harpoon+  { iname    = "sharp harpoon"+  , ifreq    = [(COMMON_ITEM, 1), (HARPOON, 2), (S_HARPOON_SHARP, 1)]+  , irarity  = [(10, 5)]+  , idamage  = 8 `d` 1+  , idesc    = "A cord ending in a sharpened cargo-hook that, in addition to entangling the victim, gains purchase biting into the body."+  }+harpoon3 = harpoon+  { iname    = "The Whaling Harpoon"+  , ifreq    = [(TREASURE, 15), (MUSEAL, 50)]+  , iflavour = zipFancy [Red]+  , irarity  = [(8, 4)]+  , idamage  = 7 `d` 1+  , iaspects = SetFlag Unique : iaspects harpoon+  , ieffects = Yell  -- evoke a cry from pain; brutal+               : ieffects harpoon+  , idesc    = "A display piece harking back to the Earth's oceanic tourism heyday. Surprising sharp for its age. The cruel, barbed head lodges in its victim so painfully that the weakest tug of the rope sends the victim flying."+  }+net = ItemKind+  { isymbol  = symbolProjectile+  , iname    = "net"+  , ifreq    = [(COMMON_ITEM, 100), (MERCENARY_AMMO, 25)]+  , iflavour = zipPlain [BrGreen]+  , icount   = 1 `dL` 3+  , irarity  = [(5, 7), (9, 9)]+  , iverbHit = "entangle"+  , iweight  = 1000+  , idamage  = 2 `d` 1+  , iaspects = [AddSkill SkHurtMelee $ -14 * 5]+  , ieffects = [ toOrganBad S_SLOWED (3 + 1 `d` 3)+               , DropItem maxBound 1 CEqp ARMOR_LOOSE+                   -- only one of each kind is dropped, because no rubbish+                   -- in this group and so no risk of exploit+               , SendFlying (ThrowMod 100 50 1) ]  -- 1 step; painful+  , idesc    = "A large synthetic fibre net with weights affixed along the edges. Entangles armor and restricts movement."+  , ikit     = []+  }++-- ** Explosives, with the only effect being @Explode@++fragmentationBomb = ItemKind+  { isymbol  = symbolProjectile+  , iname    = "hand bomb"+      -- improvised bomb filled with iron pellets, nuts, cut nails;+      -- deflagration, not detonation, so large mass and hard container+      -- required not to burn harmlessly; improvised short fuze;+      -- can't be more powerful or would fracture the spaceship's hull+  , ifreq    = [(COMMON_ITEM, 100), (EXPLOSIVE, 300)]+  , iflavour = zipPlain [Red]+  , icount   = 1 `dL` 5  -- many, because not very intricate+  , irarity  = [(5, 10), (10, 5)]+  , iverbHit = "thud"+  , iweight  = 3000  -- low velocity due to weight+  , idamage  = 0  -- heavy and hard, but let's not confuse with blast damage+  , iaspects = [SetFlag Lobable, SetFlag Fragile]+  , ieffects = [ Explode S_FOCUSED_FRAGMENTATION+               , OnSmash (Explode S_VIOLENT_FRAGMENTATION) ]+  , idesc    = "Shards of brittle metal packed around an explosive core."+  , ikit     = []+  }+concussionBomb = fragmentationBomb+  { iname    = "canister"+      -- slightly stabilized liquid explosive in a soft container, hence+      -- no fragmentation, but huge shock wave despite small size and lack+      -- of strong container to build up pressure; indoors help the shock wave;+      -- unstable enough that no fuze required (or simple electric fuse?);+      -- that's the most potent explosive (a detonating one) to be found+      -- and only in small quantities, due to depressurization hazard+  , iflavour = zipPlain [Magenta]+  , iverbHit = "bonk"+  , iweight  = 400+  , iaspects = [ SetFlag Lobable, SetFlag Fragile+               , toVelocity 70 ]  -- flappy and so slow+  , ieffects = [ Explode S_FOCUSED_CONCUSSION+               , OnSmash (Explode S_VIOLENT_CONCUSSION) ]+  , idesc    = "Avoid sudden movements."+  }+-- Not flashbang, because powerful bang without fragmentation is harder+-- to manufacture (requires an oxidizer and steel canister with holes).+-- The bang would also paralyze and/or lower the movement skill+-- (out of balance due to ear trauma).+flashBomb = fragmentationBomb+  { iname    = "powder tube"  -- filled with magnesium flash powder+  , iflavour = zipPlain [BrYellow]  -- avoid @BrWhite@; looks wrong in dark+  , iverbHit = "flash"+  , iweight  = 400+  , iaspects = [ SetFlag Lobable, SetFlag Fragile+               , toVelocity 70 ]  -- bad shape for throwing+  , ieffects = [Explode S_FOCUSED_FLASH, OnSmash (Explode S_VIOLENT_FLASH)]+  , idesc    = "For dramatic entrances and urgent exits."+  }+firecrackerBomb = fragmentationBomb+  { iname = "roll"  -- not fireworks, as they require outdoors+  , iflavour = zipPlain [BrMagenta]+  , irarity  = [(1, 5), (5, 8)]  -- a toy, if harmful+  , iverbHit = "crack"  -- a pun, matches the verb from "ItemKindBlast"+  , iweight  = 1000+  , iaspects = [SetFlag Lobable, SetFlag Fragile]+  , ieffects = [Explode S_FIRECRACKER, OnSmash (Explode S_FIRECRACKER)]+  , idesc    = "String and paper, concealing a deadly surprise."+  }++-- ** Exploding consumables.++-- Not identified, because they are perfect for the id-by-use fun,+-- due to effects. They are fragile and upon hitting the ground explode+-- for effects roughly corresponding to their normal effects.+-- Whether to hit with them or explode them close to the target+-- is intended to be an interesting tactical decision.++-- Flasks are intended to be thrown. They are often not natural: maths, magic,+-- distillery. In fact, they cover all temporary conditions, except those+-- for stats resistance and regeneration. They never heal, directly+-- nor indirectly (regen), so may be thrown without the risk of wasting+-- precious HP.+--+-- There is no flask nor condition that only does Calm or max Calm depletion,+-- because Calm reduced often via combat, etc.++flaskEmpty = flaskTemplate+  { iname    = "empty flask"+  , ifreq    = [(COMMON_ITEM, 100), (S_EMPTY_FLASK, 1)]+  , iflavour = zipGlassPlain [White]+  , icount   = 1+  , irarity  = [(1, 8)]+  , iverbHit = "bang"+  , iweight  = 250+  , iaspects = [SetFlag Lobable, SetFlag Fragile, toVelocity 60]+  , idesc    = "The only redeeming quality of empty flasks is that they can be filled with any liquid."+  }+flaskTemplate = ItemKind+  { isymbol  = symbolFlask+  , iname    = "flask"+  , ifreq    = [(FLASK_UNKNOWN, 1)]+  , iflavour = zipGlassPlain darkCol ++ zipGlassFancy darkCol+               ++ zipLiquid darkCol+  , icount   = 1 `d` 2 + 1 `dL` 3+  , irarity  = [(1, 5), (10, 3)]+  , iverbHit = "splash"+  , iweight  = 500+  , idamage  = 0+  , iaspects = [ PresentAs FLASK_UNKNOWN, SetFlag Lobable, SetFlag Fragile+               , toVelocity 60 ]  -- oily, rather bad grip+  , ieffects = []+  , idesc    = "A flask of oily liquid of a suspect color. Something seems to be moving inside. Double dose causes twice longer effect. Triple dose is not advisable, since the active substance is never without unhealthy side-effects and often dissolved in large volumes of alcohol."+  , ikit     = []+  }+flask1 = flaskTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100) ]+  , iaspects = ELabel "of strength brew"+               : iaspects flaskTemplate+  , ieffects = [ toOrganGood S_STRENGTHENED (20 + 1 `d` 5)+               , OnSmash (Explode S_DENSE_SHOWER) ]+  }+flask2 = flaskTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100) ]+  , iaspects = ELabel "of weakness brew"+               : iaspects flaskTemplate+  , ieffects = [ toOrganBad S_WEAKENED (20 + 1 `d` 5)+               , OnSmash (Explode S_SPARSE_SHOWER) ]+  }+flask3 = flaskTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100), (OIL_SOURCE, 1) ]+  , iaspects = ELabel "of melee protective balm"+               : iaspects flaskTemplate+  , ieffects = [ toOrganGood S_PROTECTED_FROM_MELEE (20 + 1 `d` 5)+               , OnSmash (Explode S_MELEE_PROTECTIVE_BALM) ]+  , idesc    = "A flask of wrestling balm that adheres to the body, but turns into slick oil when hit. Double dose causes twice longer effect."+  }+flask4 = flaskTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100), (OIL_SOURCE, 1) ]+  , iaspects = ELabel "of ranged protective balm"+               : iaspects flaskTemplate+  , ieffects = [ toOrganGood S_PROTECTED_FROM_RANGED (20 + 1 `d` 5)+               , OnSmash (Explode S_RANGE_PROTECTIVE_BALM) ]+  , idesc    = "A flask of durable body and fabric ointment. Its nanostructure hardens under stress. Double dose causes twice longer effect."+  }+flask5 = flaskTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100) ]+  , iaspects = ELabel "of fluorescent paint"+               : iaspects flaskTemplate+  , ieffects = [ toOrganBad S_PAINTED (20 + 1 `d` 5)+               , OnSmash (Explode S_PAINT_DROPLET) ]+  }+flask6 = flaskTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100) ]+  , irarity  = [(1, 1)]  -- not every playthrough needs one+  , iaspects = ELabel "of resolution spirit"+               : iaspects flaskTemplate+  , ieffects = [ toOrganGood S_RESOLUTE (500 + 1 `d` 200)  -- long, for scouting+               , RefillCalm 60  -- not to make it a drawback, via @calmEnough@+               , OnSmash (Explode S_RESOLUTION_DUST) ]+  }+flask7 = flaskTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100) ]+  , icount   = 1 `d` 2  -- too powerful en masse+  , iaspects = ELabel "of haste brew"+               : iaspects flaskTemplate+  , ieffects = [ toOrganGood S_HASTED (20 + 1 `d` 5)+               , OnSmash (Explode S_HASTE_SPRAY) ]+  }+flask8 = flaskTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100) ]+  , iaspects = ELabel "of eye drops"+               : iaspects flaskTemplate+  , ieffects = [ toOrganGood S_FAR_SIGHTED (40 + 1 `d` 10)+               , OnSmash (Explode S_EYE_DROP) ]+  }+flask9 = flaskTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100), (FIRE_FIGHTING_ITEM, 1) ]+  , irarity  = [(10, 2)]  -- not very useful right now+  , iaspects = ELabel "of smelly concoction"+               : iaspects flaskTemplate+  , ieffects = [ toOrganGood S_KEEN_SMELLING (40 + 1 `d` 10)+               , Detect DetectActor 10  -- make it at least slightly useful+               , OnSmash (Explode S_SMELLY_DROPLET) ]+  }+flask10 = flaskTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100) ]+  , irarity  = [(10, 2)]  -- not very useful right now+  , iaspects = ELabel "of cat tears"+               : iaspects flaskTemplate+  , ieffects = [ toOrganGood S_SHINY_EYED (40 + 1 `d` 10)+               , OnSmash (Explode S_EYE_SHINE) ]+  }+flask11 = flaskTemplate+  { iname    = "bottle"+  , ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100), (ALCOHOL, 100), (FIRE_FIGHTING_ITEM, 2) ]+  , icount   = 1 `d` 2 + 1 `d` 3+  , iaspects = ELabel "of whiskey"+               : iaspects flaskTemplate+  , ieffects = [ toOrganGood S_DRUNK (20 + 1 `d` 5)+               , Burn 10, RefillHP 10, Yell+               , OnSmash (Explode S_WHISKEY_SPRAY) ]+  }+flask12 = flaskTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100), (WATER_SOURCE, 1) ]+  , iaspects = ELabel "of bait and switch"+               : iaspects flaskTemplate+  , ieffects = [ Summon MOBILE_ANIMAL 1  -- won't work if no Calm; fun exploit+               , Teleport 7  -- escape sometimes worth the summon+               , OnSmash (Summon MOBILE_ANIMAL 1)+               , OnSmash Impress  -- mildly useful when thrown+               , OnSmash (Explode S_WASTE) ]+  }+flask13 = flaskTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100) ]+  , iaspects = ELabel "of poison"+               : iaspects flaskTemplate+  , ieffects = [ toOrganNoTimer S_POISONED, toOrganNoTimer S_POISONED  -- x2+               , OnSmash (Explode S_POISON_CLOUD) ]+  }+flask14 = flaskTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100) ]+  , iaspects = ELabel "of calamity mixture"+               : iaspects flaskTemplate+  , ieffects = [ toOrganNoTimer S_POISONED+               , toOrganBad S_WEAKENED (20 + 1 `d` 5)+               , toOrganBad S_DEFENSELESS (20 + 1 `d` 5)+               , OnSmash (Explode S_GLASS_HAIL) ]  -- enough glass to cause that+  }+flask15 = flaskTemplate+  { iname    = "cartridge"+  , ifreq    = [ (COMMON_ITEM, 100), (ANY_FLASK, 100), (EXPLOSIVE, 100)+               , (ANY_GLASS, 100), (LIQUID_NITROGEN, 1), (COLD_SOURCE, 1)+               , (FIRE_FIGHTING_ITEM, 40) ]+  , irarity  = [(1, 3)]  -- scavenged from walls+  , iaspects = ELabel "of liquid nitrogen"+               : iaspects flaskTemplate+  , ieffects = [ Burn 1  -- sensory ambiguity between hot and cold+               , toOrganBad S_SLOWED (3 + 1 `d` 3)+               , OnSmash (Explode S_FOCUSED_SLOWNESS_MIST) ]+  }+flask16 = flaskTemplate  -- diluted perfume; almost same effects+  { ifreq    = [ (COMMON_ITEM, 100), (S_ROSE_WATER_FLASK, 1)+               , (ANY_FLASK, 100), (EXPLOSIVE, 100), (ANY_GLASS, 100) ]+  , icount   = 1+  , irarity  = [(1, 3)]  -- mostly obtained through crafting+  , iaspects = ELabel "of rose water"+               : iaspects flaskTemplate+  , ieffects = [ Impress, toOrganGood S_ROSE_SMELLING (100 + 1 `d` 20)+               , OnSmash ApplyPerfume, OnSmash (Explode S_FRAGRANCE) ]+  }+flask17 = flaskTemplate+  { iname    = "galon"+      -- TODO: in the future perhaps have different sizes of flasks;+      -- for now, we freely go from flask to galon and back+  , ifreq    = [ (COMMON_ITEM, 100), (S_WATER_FLASK, 1)+               , (ANY_FLASK, 100), (ANY_GLASS, 100), (WATER_SOURCE, 1)+               , (FIRE_FIGHTING_ITEM, 2) ]+  , icount   = 1+  , irarity  = [(1, 1)]  -- mostly obtained through crafting+  , iaspects = ELabel "of water"+               : iaspects flaskTemplate+  }++-- Vials are often not intended to be thrown. They are usually natural,+-- including natural stat boosts. They also include the only healing+-- consumables in the game, apart of stimpacks and, to a limited extent, fruits.+-- They appear deeper than most flasks. Various configurations of effects.+-- A different class of effects is on scrolls and mechanical items.+-- Some are shared.++potionTemplate = ItemKind+  { isymbol  = symbolPotion+  , iname    = "vial"+  , ifreq    = [(POTION_UNKNOWN, 1)]+  , iflavour = zipLiquid brightCol ++ zipPlain brightCol ++ zipFancy brightCol+  , icount   = 1 `dL` 3+  , irarity  = [(1, 10), (10, 6)]+  , iverbHit = "splash"+  , iweight  = 200+  , idamage  = 0+  , iaspects = [ PresentAs POTION_UNKNOWN, SetFlag Lobable, SetFlag Fragile+               , toVelocity 50 ]  -- oily, small momentum due to small size+  , ieffects = []+  , idesc    = "A vial of bright, frothing concoction. The best medicine that nature has to offer for wounds, ailments and mood swings."+  , ikit     = []+  }+potion1 = potionTemplate+  { ifreq    = [ (COMMON_ITEM, 100), (S_PERFUME_POTION, 1)+               , (ANY_POTION, 100), (ANY_GLASS, 100), (PERFUME, 1) ]+  , icount   = 3 `dL` 1  -- very useful, despite appearances;+                         -- AI heroes can't craft and so die horribly without it+  , iaspects = ELabel "of perfume"+               : iaspects potionTemplate+  , ieffects = [ Impress, toOrganGood S_ROSE_SMELLING (50 + 1 `d` 10)+               , OnSmash ApplyPerfume, OnSmash (Explode S_FRAGRANCE) ]+  }+potion2 = potionTemplate+  { iname    = "the Vial"+  , ifreq    = [(CRAWL_ITEM, 100), (ANY_GLASS, 50)]+  , icount   = 1+  , irarity  = [(5, 6), (10, 2)]+  , iaspects = [ SetFlag Unique, ELabel "of Attraction"+               , SetFlag Precious, SetFlag Lobable, SetFlag Fragile+               , toVelocity 50 ]  -- identified+  , ieffects = [ Dominate+               , toOrganGood S_HASTED (20 + 1 `d` 5)+               , Recharge 20 999+               , OnSmash (Explode S_PHEROMONE)+               , OnSmash (Explode S_HASTE_SPRAY) ]+  , idesc    = "The liquid fizzes with energy."+  }+potion3 = potionTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_POTION, 100), (ANY_GLASS, 100)]+  , ieffects = [ RefillHP 5, DropItem 1 maxBound COrgan S_POISONED+               , OnSmash (Explode S_HEALING_MIST) ]+  }+potion4 = potionTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_POTION, 100), (ANY_GLASS, 100)]+  , irarity  = [(1, 5), (10, 10)]+  , ieffects = [ RefillHP 10+               , DropItem maxBound maxBound COrgan CONDITION+               , OnSmash (Explode S_HEALING_MIST_2) ]+  }+potion5 = potionTemplate+  { iname    = "ampoule"  -- filled with semi-stabilized high explosive liquid+  , ifreq    = [(COMMON_ITEM, 100), (ANY_POTION, 100), (ANY_GLASS, 100)]+  , icount   = 3 `dL` 1+  , ieffects = [ DropItem 1 maxBound COrgan CONDITION+               , OnSmash (Explode S_VIOLENT_CONCUSSION) ]+      -- not fragmentation nor glass hail, because not enough glass+  }+potion6 = potionTemplate+  -- needs to be common to show at least a portion of effects+  { ifreq    = [(COMMON_ITEM, 100), (ANY_POTION, 100), (ANY_GLASS, 100)]+  , icount   = 3 `dL` 1  -- always as many as possible on this level+                         -- without giving away potion identity+  , irarity  = [(1, 12)]+  , ieffects = [ OneOf [ RefillHP 10, RefillHP 5, Burn 5+                       , DropItem 1 maxBound COrgan S_POISONED+                       , toOrganGood S_STRENGTHENED (20 + 1 `d` 5) ]+               , OnSmash (OneOf [ Explode S_DENSE_SHOWER+                                , Explode S_SPARSE_SHOWER+                                , Explode S_MELEE_PROTECTIVE_BALM+                                , Explode S_RANGE_PROTECTIVE_BALM+                                , Explode S_DEFENSELESSNESS_RUNOUT ]) ]+  }+potion7 = potionTemplate+  -- needs to be common to show at least a portion of effects+  { ifreq    = [(COMMON_ITEM, 100), (ANY_POTION, 100), (ANY_GLASS, 100)]+  , icount   = 3 `dL` 1+  , irarity  = [(10, 12)]+  , ieffects = [ Impress+               , OneOf [ RefillHP 20, RefillHP 10, Burn 10+                       , DropItem 1 maxBound COrgan S_POISONED+                       , toOrganGood S_HASTED (20 + 1 `d` 5)+                       , toOrganBad S_IMPATIENT (2 + 1 `d` 2) ]+               , OnSmash (OneOf [ Explode S_HEALING_MIST_2+                                , Explode S_WOUNDING_MIST+                                , Explode S_DISTRESSING_ODOR+                                , Explode $ blastNoStatOf S_IMPATIENT+                                , Explode S_HASTE_SPRAY+                                , Explode S_VIOLENT_SLOWNESS_MIST+                                , Explode S_FRAGRANCE+                                , Explode S_VIOLENT_FLASH ]) ]+  }+potion8 = potionTemplate+  { iname    = "the Vial"+  , ifreq    = [(CRAWL_ITEM, 100), (ANY_GLASS, 50)]+  , icount   = 1+  , irarity  = [(10, 5)]+  , iaspects = [ SetFlag Unique, ELabel "of Love"+               , SetFlag Precious, SetFlag Lobable, SetFlag Fragile+               , toVelocity 50 ]  -- identified+  , ieffects = [ RefillHP 60, RefillCalm (-60)+               , toOrganGood S_ROSE_SMELLING (80 + 1 `d` 20)+               , OnSmash (Explode S_HEALING_MIST_2)+               , OnSmash (Explode S_DISTRESSING_ODOR) ]+  , idesc    = "Perplexing swirls of intense, compelling colour."+  }+potion9 = potionTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_POTION, 100), (ANY_GLASS, 100)]+  , irarity  = [(10, 5)]+  , iaspects = ELabel "of grenadier focus"+               : iaspects potionTemplate+  , ieffects = [ toOrganGood S_MORE_PROJECTING (40 + 1 `d` 10)+               , toOrganBad S_PACIFIED (5 + 1 `d` 3)+                   -- the malus has to be weak, or would be too good+                   -- when thrown at foes+               , OnSmash (Explode $ blastBonusStatOf S_MORE_PROJECTING)+               , OnSmash (Explode $ blastNoStatOf S_PACIFIED) ]+  , idesc    = "Thick, sluggish fluid with violently-bursting bubbles."+  }+potion10 = potionTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_POTION, 100), (ANY_GLASS, 100)]+  , irarity  = [(10, 8)]+  , iaspects = ELabel "of frenzy"+               : iaspects potionTemplate+  , ieffects = [ Yell+               , toOrganGood S_STRENGTHENED (20 + 1 `d` 5)+               , toOrganBad S_RETAINING (5 + 1 `d` 3)+               , toOrganBad S_FRENZIED (40 + 1 `d` 10)+               , OnSmash (Explode S_DENSE_SHOWER)+               , OnSmash (Explode $ blastNoStatOf S_RETAINING)    -- more+               , OnSmash (Explode $ blastNoStatOf S_RETAINING) ]  -- explosion+  }+potion11 = potionTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_POTION, 100), (ANY_GLASS, 100)]+  , irarity  = [(10, 8)]+  , iaspects = ELabel "of panic"+               : iaspects potionTemplate+  , ieffects = [ RefillCalm (-60)+               , toOrganGood S_HASTED (20 + 1 `d` 5)+               , toOrganBad S_WEAKENED (20 + 1 `d` 5)+               , toOrganBad S_WITHHOLDING (10 + 1 `d` 5)+               , OnSmash (Explode S_HASTE_SPRAY)+               , OnSmash (Explode S_SPARSE_SHOWER)+               , OnSmash (Explode $ blastNoStatOf S_WITHHOLDING) ]+  }+potion12 = potionTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_POTION, 100), (ANY_GLASS, 100)]+  , irarity  = [(10, 8)]+  , iaspects = ELabel "of quicksilver"+               : iaspects potionTemplate+  , ieffects = [ toOrganGood S_HASTED (20 + 1 `d` 5)+               , Discharge 3 40+               , toOrganBad S_IMMOBILE (5 + 1 `d` 5)+               , OnSmash (Explode S_HASTE_SPRAY)+               , OnSmash (Explode S_IRON_FILING)+               , OnSmash (Explode $ blastNoStatOf S_IMMOBILE) ]+  }+potion13 = potionTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_POTION, 100), (ANY_GLASS, 100)]+  , irarity  = [(10, 7)]+  , iaspects = ELabel "of slow resistance"+               : iaspects potionTemplate+  , ieffects = [ toOrganNoTimer S_SLOW_RESISTANT+               , OnSmash (Explode S_ANTI_SLOW_MIST) ]+  }+potion14 = potionTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_POTION, 100), (ANY_GLASS, 100)]+  , irarity  = [(10, 7)]+  , iaspects = ELabel "of poison resistance"+               : iaspects potionTemplate+  , ieffects = [ toOrganNoTimer S_POISON_RESISTANT+               , OnSmash (Explode S_ANTIDOTE_MIST) ]+  }+-- The player has full control over throwing the vial at his party,+-- so he can milk the explosion, so it has to be much weaker, so a weak+-- healing effect is enough. OTOH, throwing a harmful flask at many enemies+-- at once is not easy to arrange, so these explosions can stay powerful.+potion15 = potionTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_POTION, 100), (ANY_GLASS, 100)]+  , icount   = 1 `dL` 5+  , irarity  = [(1, 2), (10, 12)]+  , iaspects = ELabel "of regeneration"+               : iaspects potionTemplate+  , ieffects = [ toOrganGood S_ROSE_SMELLING (80 + 1 `d` 20)+               , toOrganNoTimer S_REGENERATING+               , toOrganNoTimer S_REGENERATING  -- x2+               , OnSmash (Explode S_YOUTH_SPRINKLE) ]+  }+potion16 = potionTemplate+  { ifreq    = [(CRAWL_ITEM, 100), (ANY_POTION, 50)]+  , icount   = 1 `dL` 2+  , irarity  = [(1, 1), (10, 6)]+  , iaspects = ELabel "of melee deflection"+               : iaspects potionTemplate+  , ieffects = [ toOrganGood S_MELEE_DEFLECTING 2+               , OnSmash (Explode S_HASTE_SPRAY) ]+                   -- choice of haste instead, e.g., against ranged enemies+  }++-- ** Non-exploding consumables, not specifically designed for throwing++-- Readable or otherwise communicating consumables require high apply skill+-- to be consumed.++scrollTemplate = ItemKind+  { isymbol  = symbolScroll+  , iname    = "chip"+  , ifreq    = [(SCROLL_UNKNOWN, 1)]+  , iflavour = zipFancy stdCol ++ zipPlain stdCol+  , icount   = 1 `dL` 3+  , irarity  = [(1, 12), (10, 6)]+  , iverbHit = "thump"+  , iweight  = 20+  , idamage  = 0+  , iaspects = [ PresentAs SCROLL_UNKNOWN+               , toVelocity 30 ]  -- too small+  , ieffects = []+  , idesc    = "A generic, disposable chip, capable of a one-time holo-display. Some of these also contain a one-time password authorizing a particular spaceship's infrastructure transition. Nobody knows how the infrastructure might respond after so many years."+  , ikit     = []+  }+scroll1 = scrollTemplate+  { iname    = "the Chip"+  , ifreq    = [(CRAWL_ITEM, 100), (ANY_SCROLL, 75)]+  , icount   = 1+  , irarity  = [(5, 10), (10, 7)]  -- mixed blessing so found early for a unique+  , iaspects = [SetFlag Unique, ELabel "of Reckless Beacon"]+               ++ iaspects scrollTemplate+  , ieffects = [Summon HERO 1, Summon MOBILE_ANIMAL (2 + 1 `d` 2)]+  , idesc    = "This industrial, wide-spectrum alarm broadcaster, if over-amped for a single powerful blast, should be able to cut through the interference and reach any lost crew members, giving them enough positional information to locate us."+  }+scroll2 = scrollTemplate+  { ifreq    = [(CRAWL_ITEM, 100), (ANY_SCROLL, 100)]+  , irarity  = [(3, 7)]+  , ieffects = [Ascend True]+  }+scroll3 = scrollTemplate+  -- needs to be common to show at least a portion of effects+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , icount   = 3 `dL` 1+  , irarity  = [(1, 15)]+  , ieffects = [OneOf [ Paralyze 10, InsertMove 30, Recharge 5 999+                      , Detect DetectEmbed 20, Detect DetectHidden 20 ]]+  }+scroll4 = scrollTemplate+  -- needs to be common to show at least a portion of effects+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , icount   = 3 `dL` 1+  , irarity  = [(10, 15)]+  , ieffects = [ Impress+               , OneOf [ Teleport 20, Ascend False, Ascend True+                       , OneOf [Summon HERO 1, Summon MOBILE_ANIMAL $ 1 `d` 2]+                           -- gaining a hero particularly uncommon+                       , Detect DetectLoot 20  -- the most useful of detections+                       , CreateItem Nothing CGround COMMON_ITEM timerNone ] ]+  }+scroll5 = scrollTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , irarity  = [(1, 6)]  -- powerful, but low counts at the depths it appears on+  , ieffects = [InsertMove $ 20 + 1 `dL` 20]+  }+scroll6 = scrollTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , ieffects = [PullActor (ThrowMod 800 75 1)]  -- 6 steps, 1.5 turns+  }+scroll7 = scrollTemplate+  { iname    = "the Chip"+  , ifreq    = [(CRAWL_ITEM, 100), (ANY_SCROLL, 75)]+  , icount   = 1+  , irarity  = [(10, 5)]+  , iaspects = [SetFlag Unique, ELabel "of Skeleton Key"]+               ++ iaspects scrollTemplate+  , ieffects = [Summon HERO 1]+  , idesc    = "This is a security lock chip that opens all doors in the area, including the hatch to a nearby closet, resounding from the blows of, as it turns out, one of our lost crew members."+  }+scroll8 = scrollTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , irarity  = [(10, 12)]  -- powerful, even if not ideal; scares newbies+  , ieffects = [Detect DetectAll 20]+  }+scroll9 = scrollTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , iaspects = ELabel "of cue interpretation"+               : iaspects scrollTemplate+  , ieffects = [Detect DetectActor 20]+  }+scroll10 = scrollTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , iaspects = ELabel "of logistics tracking"+               : iaspects scrollTemplate+  , ieffects = [Detect DetectStash 100]+  }+scroll11 = scrollTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , ieffects = [Discharge 3 40]+  }+scroll12 = scrollTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , irarity  = [(10, 14)]+  , ieffects = [Recharge 20 999]+  }+scroll13 = scrollTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , icount   = 3 `dL` 1+  , irarity  = [(1, 18)]  -- uncommon deep down, where all is known+  , iaspects = ELabel "of scientific explanation"+               : iaspects scrollTemplate+  , ieffects = [Identify `AndEffect` RefillCalm 10]+  , idesc    = "The most pressing existential concerns are met with a deeply satisfying scientific answer."+  }+scroll14 = scrollTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , irarity  = [(10, 20)]  -- at gameover a crucial item may be missing+  , iaspects = ELabel "of molecular reconfiguration"+               : iaspects scrollTemplate+  , ieffects = [PolyItem `AndEffect` Explode S_FIRECRACKER]+  }+scroll15 = scrollTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , irarity  = [(8, 22)]+  , iaspects = ELabel "of surface reconfiguration"+               : iaspects scrollTemplate+  , ieffects = [RerollItem]+  }+scroll16 = scrollTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , irarity  = [(8, 18)]+  , iaspects = ELabel "of molecular duplication"+               : iaspects scrollTemplate+  , ieffects = [DupItem]+  }+scrollAd1 = scrollTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_SCROLL, 100)]+  , irarity  = [(1, 3)]+  , iaspects = ELabel "of tourist guide"+               : iaspects scrollTemplate+  , ieffects = [ Impress  -- mostly flavour, but this is useful+               , toOrganGood S_RESOLUTE (500 + 1 `d` 200)+                   -- a drawback (at least initially) due to @calmEnough@+               , Explode S_RHINO_HOLOGRAM+               , Detect DetectLoot 5 ]  -- short so useless most of the time+  , idesc    = "Biodegradable self-powered mini-projector displaying holographic ads and shopping hints."+  }++-- Foods require only minimal apply skill to consume. Many animals can eat them.++rawMeatChunk = ItemKind+  { isymbol  = symbolFood+  , iname    = "raw meat chunk"+  , ifreq    = [ (RAW_MEAT_CHUNK, 100), (COMMON_ITEM, 1)+               , (UNREPORTED_INVENTORY, 1) ]  -- no "fondles a trinket"+  , iflavour = zipPlain [Red]+  , icount   = 1+  , irarity  = [(1, 1)]+  , iverbHit = "slap"+  , iweight  = 1000+  , idamage  = 0+  , iaspects = [toVelocity 50]+  , ieffects = [DropItem maxBound 1 COrgan S_HUNGRY]+  , idesc    = "A scrap of edible animal meat. Not very tasty nor nourishing. Cooking would make it more palatable."+  , ikit     = []+  }+roastedMeatChunk = rawMeatChunk+  { iname    = "roasted meat chunk"+  , ifreq    = [ (ROASTED_MEAT_CHUNK, 100), (COOKED_FOOD, 60)+               , (COMMON_ITEM, 1) ]+  , iflavour = zipPlain [Brown]+  , ieffects = [DropItem maxBound 3 COrgan S_HUNGRY]+  , idesc    = "Delicious and filling chunk of meat. The thermal processing released flavour and made it easier to digest."+  }+ediblePlantTemplate = ItemKind+  { isymbol  = symbolFood+  , iname    = "edible plant"+  , ifreq    = [(EDIBLE_PLANT_UNKNOWN, 1)]+  , iflavour = zipFancy stdCol+  , icount   = 1 `dL` 5+  , irarity  = [(1, 3), (10, 2)]  -- weak, apart of hunger removal+  , iverbHit = "thump"+  , iweight  = 300+  , idamage  = 0+  , iaspects = [ PresentAs EDIBLE_PLANT_UNKNOWN+               , toVelocity 30 ]  -- low density, often falling apart+  , ieffects = []+  , idesc    = "Withered but fragrant bits of a colorful plant. Taste tolerably. Doesn't break down that easily in its raw form, without cooking. Only eating may reveal the full effects."+  , ikit     = []+  }+ediblePlant1 = ediblePlantTemplate+  { iname    = "enhanced berry"+  , ifreq    = [(S_ENCHANCED_BERRY, 1), (COMMON_ITEM, 100), (EDIBLE_PLANT, 100)]+  , ieffects = [ RefillHP 1, toOrganBad S_IMMOBILE (5 + 1 `d` 5)+               , DropItem maxBound 1 COrgan S_HUNGRY ]+  }+ediblePlant2 = ediblePlantTemplate+  { iname    = "frayed fungus"+  , ifreq    = [(S_FRAYED_FUNGUS, 1), (COMMON_ITEM, 100), (EDIBLE_PLANT, 100)]+  , ieffects = [toOrganNoTimer S_POISONED]+  }+ediblePlant3 = ediblePlantTemplate+  { iname    = "thick leaf"+  , ifreq    = [(S_THIC_LEAF, 1), (COMMON_ITEM, 100), (EDIBLE_PLANT, 100)]+  , ieffects = [ DropItem 1 maxBound COrgan S_POISONED+               , DropItem maxBound 2 COrgan S_HUNGRY ]+  }+ediblePlant4 = ediblePlantTemplate+  { iname    = "reconfigured fruit"+  , ifreq    = [ (S_RECONFIGURED_FRUIT, 1), (COMMON_ITEM, 100)+               , (EDIBLE_PLANT, 100) ]+  , ieffects = [ toOrganBad S_BLIND (10 + 1 `d` 10)+               , DropItem maxBound 3 COrgan S_HUNGRY ]+  }+ediblePlant5 = ediblePlantTemplate+  { iname    = "fragrant herb"+  , ifreq    = [(S_FRAGRANT_HERB, 1), (COMMON_ITEM, 100), (EDIBLE_PLANT, 100)]+  , icount   = 1 `dL` 9+  , irarity  = [(1, 3)]  -- powerful; many copies+  , iaspects = ELabel "of lethargy"+               : iaspects ediblePlantTemplate+  , ieffects = [ toOrganBad S_SLOWED (20 + 1 `d` 5)+               , toOrganNoTimer S_REGENERATING+               , toOrganNoTimer S_REGENERATING  -- x2+               , RefillCalm 5 ]  -- too many effects to also add hunger removal+  }+ediblePlant6 = ediblePlantTemplate+  { iname    = "dull flower"+  , ifreq    = [ (S_DULL_FLOWER, 1), (COMMON_ITEM, 100), (EDIBLE_PLANT, 100)+               , (PERFUME, 1) ]+  , ieffects = [ PutToSleep+               , DropItem maxBound 1 COrgan S_HUNGRY ]+  }+ediblePlant7 = ediblePlantTemplate+  { iname    = "spicy bark"+  , ifreq    = [(S_SPICY_BARK, 1), (COMMON_ITEM, 100), (EDIBLE_PLANT, 100)]+  , ieffects = [ InsertMove 20, toOrganBad S_FRENZIED (40 + 1 `d` 10)+               , DropItem maxBound 1 COrgan S_HUNGRY ]+  }+ediblePlant8 = ediblePlantTemplate+  { iname    = "pumpkin"+  , ifreq    = [(S_PUMPKIN, 1), (COMMON_ITEM, 100), (EDIBLE_PLANT, 100)]+  , irarity  = [(1, 2), (10, 4)]  -- solves the hunger problem, but not too soon+  , iweight  = 3000+  , idamage  = 1 `d` 1+  , ieffects = [DropItem maxBound 1 COrgan S_HUNGRY]+  }+cookedPlantTemplate = ediblePlantTemplate+  { iname    = "cooked plant"+  , ifreq    = [(COOKED_PLANT_UNKNOWN, 1)]+  , iflavour = zipPlain stdCol+  , irarity  = [(1, 1)]+  , iaspects = [ PresentAs COOKED_PLANT_UNKNOWN+               , toVelocity 20 ]  -- low density, often falling apart+  , idesc    = "Withered but fragrant bits of a colorful plant. Taste blandly, but break down easily, releasing all nutrients. Only eating may reveal the full effects."+  }+cookedPlant1 = cookedPlantTemplate+  { iname    = "cooked berry"+  , ifreq    = [(S_COOKED_BERRY, 1), (COMMON_ITEM, 1), (COOKED_PLANT, 100)]+  , ieffects = [ RefillHP 1, toOrganBad S_IMMOBILE (5 + 1 `d` 5)+               , DropItem maxBound 2 COrgan S_HUNGRY ]+  }+cookedPlant2 = cookedPlantTemplate+  { iname    = "cooked fungus"+  , ifreq    = [(S_COOKED_FUNGUS, 1), (COMMON_ITEM, 1), (COOKED_PLANT, 100)]+  , ieffects = ieffects ediblePlant2+  }+cookedPlant3 = cookedPlantTemplate+  { iname    = "cooked leaf"+  , ifreq    = [ (S_COOKED_LEAF, 1)+               , (COMMON_ITEM, 1), (COOKED_PLANT, 100), (COOKED_FOOD, 10) ]+  , ieffects = [ DropItem 1 maxBound COrgan S_POISONED+               , DropItem maxBound 3 COrgan S_HUNGRY ]+  }+cookedPlant4 = cookedPlantTemplate+  { iname    = "cooked fruit"+  , ifreq    = [ (S_COOKED_FRUIT, 1)+               , (COMMON_ITEM, 1), (COOKED_PLANT, 100) ]+  , ieffects = [ toOrganBad S_BLIND (10 + 1 `d` 10)+               , DropItem maxBound 4 COrgan S_HUNGRY ]+  }+cookedPlant5 = cookedPlantTemplate+  { iname    = "cooked herb"+  , ifreq    = [ (S_COOKED_HERB, 1)+               , (COMMON_ITEM, 1), (COOKED_PLANT, 100) ]+  , icount   = 1 `dL` 9+  , iaspects = ELabel "of lethargy"+               : iaspects cookedPlantTemplate+  , ieffects = ieffects ediblePlant5+  }+cookedPlant6 = cookedPlantTemplate+  { iname    = "cooked flower"+  , ifreq    = [ (S_COOKED_FLOWER, 1)+               , (COMMON_ITEM, 1), (COOKED_PLANT, 100), (COOKED_FOOD, 10) ]+  , ieffects = [ PutToSleep+               , DropItem maxBound 2 COrgan S_HUNGRY ]+  }+cookedPlant7 = cookedPlantTemplate+  { iname    = "cooked bark"+  , ifreq    = [ (S_COOKED_BARK, 1)+               , (COMMON_ITEM, 1), (COOKED_PLANT, 100), (COOKED_FOOD, 10) ]+  , ieffects = [ InsertMove 20, toOrganBad S_FRENZIED (40 + 1 `d` 10)+               , DropItem maxBound 2 COrgan S_HUNGRY ]+  }+cookedPlant8 = cookedPlantTemplate+  { iname    = "cooked pumpkin"+  , ifreq    = [ (S_COOKED_PUMPKIN, 1)+               , (COMMON_ITEM, 1), (COOKED_PLANT, 100), (COOKED_FOOD, 10) ]+  , iweight  = 3000+  , idamage  = 1 `d` 1+  , ieffects = [DropItem maxBound 5 COrgan S_HUNGRY]+  }++-- ** Lights and related++torchMsg :: Effect+torchMsg = VerbMsgFail "feel the torch fracture" "."+torchDestruct :: Effect+torchDestruct =+  OnUser $ OneOf $+    DestroyItem 1 1 CEqp S_WOODEN_TORCH+    `AndEffect`+    CreateItem Nothing CStash S_RAG_TANGLE timerNone+      -- staff broken, cord not usable (if a cord was used for crafting);+      -- otherwise rag + staff would produce a cord (bonding tool)+    : DestroyItem 1 1 CEqp S_WOODEN_TORCH+      `AndEffect`+      CreateItem Nothing CStash S_DOUSED_WOODEN_TORCH timerNone+    : replicate 6 torchMsg  -- twice more durable than gardening tools+light1 = ItemKind+  { isymbol  = symbolLight+  , iname    = "torch"+  , ifreq    = [ (COMMON_ITEM, 50), (LIGHT_ATTENUATOR, 70), (WEAK_ARROW, 300)+               , (FIRE_SOURCE, 1), (S_WOODEN_TORCH, 1) ]+  , iflavour = zipPlain [Brown]+  , icount   = 1+  , irarity  = [(3 * 10/15, 15), (4 * 10/15, 1)]+                 -- crafted, so rare; later taken from aliens+  , iverbHit = "scorch"+  , iweight  = 1000+  , idamage  = 1 `d` 1  -- strong missile, but betrays the flinger+  , iaspects = [ AddSkill SkShine 3, AddSkill SkSight (-2)+                   -- not only flashes, but also sparks,+                   -- so unused by AI due to the mixed blessing+               , SetFlag Durable, SetFlag Lobable+               , SetFlag Meleeable, EqpSlot EqpSlotShine ]+                   -- partially durable; reusable flare;+                   -- the staff culled when crafting, so no velocity malus+  , ieffects = [Burn 2, torchDestruct]  -- no timeout, but destructs+  , idesc    = "A puttering torch improvised with rags on a staff, soaked in any lubricant or oil or resin or tar that could be scavenged in a hurry."+  , ikit     = []+  }+lightDoused1 = light1+  { iname    = "doused torch"+  , ifreq    = [(S_DOUSED_WOODEN_TORCH, 1) ]+  , iverbHit = "prod"+  , iaspects = [SetFlag Lobable]  -- not durable, so not OP missile+  , ieffects = []+  , idesc    = "A yet unlit torch improvised with rags on a staff, soaked in any lubricant or oil or resin or tar that could be scavenged in a hurry."+  }+light2 = ItemKind+  { isymbol  = symbolLight+  , iname    = "oil lamp"+  , ifreq    = [ (COMMON_ITEM, 50), (LIGHT_ATTENUATOR, 70)+               , (S_OIL_LAMP, 1) ]+  , iflavour = zipPlain [BrYellow]+  , icount   = 1+  , irarity  = [(5, 2)]+  , iverbHit = "burn"+  , iweight  = 1600+  , idamage  = 1 `d` 1+  , iaspects = [ AddSkill SkShine 3, AddSkill SkSight (-1)+               , SetFlag Lobable, SetFlag Fragile, SetFlag Equipable+               , EqpSlot EqpSlotShine ]+  , ieffects = [ Explode S_FOCUSED_BURNING_OIL_2+               , OnSmash (Explode S_VIOLENT_BURNING_OIL_2) ]+  , idesc    = "A restaurant table glass lamp filled with plant oil feeding a slender wick. Or a makeshift caricature thereof."+  , ikit     = []+  }+lightDoused2 = light2+  { iname    = "doused oil lamp"+  , ifreq    = [(S_DOUSED_OIL_LAMP, 1)]+  , iverbHit = "bonk"+  , iaspects = [SetFlag Lobable, SetFlag Fragile]+  , ieffects = []+  , idesc    = "An unlit restaurant table glass lamp filled with plant oil feeding a slender wick. Or a makeshift caricature thereof."+  }+light3 = ItemKind+  { isymbol  = symbolLight+  , iname    = "brass lantern"+  , ifreq    = [(COMMON_ITEM, 100), (MUSEAL, 100), (LIGHT_ATTENUATOR, 5)]+  , iflavour = zipPlain [Red]+  , icount   = 1+  , irarity  = [(6, 1), (10, 4)]+  , iverbHit = "burn"+  , iweight  = 3000+  , idamage  = 2 `d` 1+  , iaspects = [ AddSkill SkShine 4, AddSkill SkSight (-1)+               , SetFlag Lobable, SetFlag Fragile, SetFlag Equipable+               , EqpSlot EqpSlotShine ]+  , ieffects = [ Explode S_FOCUSED_BURNING_OIL_4+               , OnSmash (Explode S_VIOLENT_BURNING_OIL_4) ]+  , idesc    = "Very old, very bright and very heavy lantern made of hand-polished brass."+  , ikit     = []+  }+blanket = ItemKind+  { isymbol  = symbolLight+  , iname    = "mineral fibre blanket"+  , ifreq    = [ (COMMON_ITEM, 100), (LIGHT_ATTENUATOR, 20), (THICK_CLOTH, 1)+               , (FIREPROOF_CLOTH, 1), (FIRE_FIGHTING_ITEM, 100)+               , (SHARPENING_TOOL, 1) ]+  , iflavour = zipPlain [Magenta]+  , icount   = 1+  , irarity  = [(1, 1)]  -- scavenged from walls+  , iverbHit = "swoosh"+  , iweight  = 1000+  , idamage  = 0+  , iaspects = [ AddSkill SkShine (-10)+               , AddSkill SkArmorMelee 3, AddSkill SkMaxCalm 5+               , SetFlag Lobable, SetFlag Equipable+               , EqpSlot EqpSlotArmorMelee ]+                   -- not Fragile; reusable douse implement;+                   -- douses torch, lamp and lantern in one action,+                   -- both in equipment and when thrown at the floor+  , ieffects = []+  , idesc    = "Flame-retardant synthetic fibres. The strong cloth polishes metals really well when soaked, aiding in the final stages of blade sharpening."+  , ikit     = []+  }++-- ** Tools used for terrain transformation and crafting, not for wearing++chisel = ItemKind  -- ignored by AI, but that's fine, others suffice+  { isymbol  = symbolTool+  , iname    = "chisel"+  , ifreq    = [(CRAWL_ITEM, 10), (BREACHING_TOOL, 1), (TOOL_ONLY, 1)]+  , iflavour = zipPlain [Cyan]+  , icount   = 1+  , irarity  = [(1, 110)]+  , iverbHit = "dismantle"+  , iweight  = 500+  , idamage  = 0  -- not a missile to avoid wasting, before a workshop found+  , iaspects = []  -- lost after one use; a consumable+  , ieffects = []+  , idesc    = "It is a breaching tool that can be used for crafting and terrain modification. There are no junk items in space."  -- TODO: https://en.wikipedia.org/wiki/Chisel+                   -- also say light and cheap, but not durable; one time use+  , ikit     = [(SHARPENING_TOOL, CGround), (WIRECUTTING_TOOL, CGround)]+  }+hacksaw = chisel+  { iname    = "hacksaw"+  , idesc    = "It is a breaching tool that can be used for crafting and terrain modification. There are no junk items in space."  -- TODO: https://en.wikipedia.org/wiki/Hacksaw+  }+adjustableSpanner = chisel+  { iname    = "adjustable spanner"+  , idesc    = "It is a breaching tool that can be used for crafting and terrain modification. There are no junk items in space."  -- TODO: https://en.wikipedia.org/wiki/Adjustable_spanner+  , ikit     = [ (SHARPENING_TOOL, CGround), (WIRECUTTING_TOOL, CGround)+               , (BONDING_TOOL, CGround) ]+  }+steelFile = chisel+  { iname    = "steel file"+  , ifreq    = [ (CRAWL_ITEM, 20), (BREACHING_TOOL, 1), (SHARPENING_TOOL, 1)+               , (TOOL_ONLY, 1) ]+  , iflavour = zipPlain [Red]  -- double purpose, saves one tool sometimes+  , iverbHit = "grate"+  , idesc    = "It is a breaching and sharpening tool that can be used for crafting and terrain modification. There are no junk items in space."  -- TODO: https://en.wikipedia.org/wiki/File_(tool)+  , ikit     = []+  }+honingSteel = chisel+  { iname    = "honing steel"+  , ifreq    = [(CRAWL_ITEM, 10), (SHARPENING_TOOL, 1), (TOOL_ONLY, 1)]+  , iflavour = zipFancy [Blue]+  , iverbHit = "hone"+  , idesc    = "Originally used for realigning and sharpening dulled edges of kitchen knives in the local restaurants. Now it turns utensils into weapons."+  , ikit     = [(WIRECUTTING_TOOL, CGround), (BONDING_TOOL, CGround)]+  }+whetstone = honingSteel+  { iname    = "whetstone"+  , iverbHit = "rub"+  , idesc    = "A portable sharpening stone that can transforms a dull piece of scrap into a keen and true blade."+  }+diagonalPliers = chisel+  { iname    = "pair"+  , ifreq    = [(CRAWL_ITEM, 10), (WIRECUTTING_TOOL, 1), (TOOL_ONLY, 1)]+  , iflavour = zipPlain [Brown]+  , iverbHit = "cut"+  , iaspects = [ELabel "of diagonal pliers"]+  , idesc    = "It is a wirecutting tool that can be used for crafting and terrain modification. There are no junk items in space."  -- TODO: https://en.wikipedia.org/wiki/Diagonal_pliers+  , ikit     = [(BREACHING_TOOL, CGround)]+  }+snips = diagonalPliers+  { iname    = "pair"+  , iaspects = [ELabel "of snips"]+  , idesc    = "It is a wirecutting tool that can be used for crafting and terrain modification. There are no junk items in space."  -- TODO: https://en.wikipedia.org/wiki/Snips+  }+loppers = diagonalPliers+  { iname    = "pair"+  , iaspects = [ELabel "of loppers"]+  , idesc    = "It is a wirecutting tool that can be used for crafting and terrain modification. There are no junk items in space."  -- TODO: https://en.wikipedia.org/wiki/Loppers+  , ikit     = [(BREACHING_TOOL, CGround), (SHARPENING_TOOL, CGround)]+  }+boltCutter = loppers+  { iname    = "bolt cutter"+  , iaspects = []+  , idesc    = "It is a wirecutting tool that can be used for crafting and terrain modification. There are no junk items in space."  -- TODO: https://en.wikipedia.org/wiki/Bolt_cutter+  }+solderingIron = chisel+  { iname    = "soldering iron"+  , ifreq    = [(CRAWL_ITEM, 5), (BONDING_TOOL, 20), (TOOL_ONLY, 1)]+  , iflavour = zipPlain [White]+  , iverbHit = "soldier"+  , idesc    = "It is a bonding tool that can be used for crafting and terrain modification. There are no junk items in space."  -- TODO: wikipedia+  , ikit     = []+  }+duckTape = solderingIron+  { iname    = "duck tape"+  , ifreq    = [(CRAWL_ITEM, 3), (BONDING_TOOL, 40), (TOOL_ONLY, 1)]+  , icount   = 1 `d` 4+  , iverbHit = "catch"+  , idesc    = "It is a bonding tool that can be used for crafting and terrain modification. There are no junk items in space."  -- TODO: https://en.wikipedia.org/wiki/Duct_tape+  }+thickCord = solderingIron+  { iname    = "thick cord"+  , ifreq    = [ (CRAWL_ITEM, 7), (BONDING_TOOL, 30)+               , (CLOTH_RAG, 1), (THICK_CLOTH, 1), (TOOL_ONLY, 1) ]+  , iverbHit = "tie"+  , idesc    = "It is a bonding tool and it soaks fluids."  -- TODO+  }++-- ** Periodic jewelry++-- This looks like a necklace, but is not periodic. Instead, it auto-activates+-- when under melee attack.+gorget = necklaceTemplate+  { iname    = "Old Gorget"+  , ifreq    = [(TREASURE, 50), (MUSEAL, 100)]+  , iflavour = zipFancy [BrCyan]  -- looks exactly the same as one of necklaces,+                                  -- but it's OK, it's an artifact+  , iaspects = [ SetFlag Unique+               , Timeout $ 7 - 1 `dL` 4+                   -- the dL dice need to be in negative positions+                   -- for negative stats, such as @Timeout@, so that+                   -- the @RerollItem@ effect makes the item better, not worse+               , AddSkill SkArmorMelee 3, AddSkill SkHearing 3+               , SetFlag UnderMelee, SetFlag Durable ]+               ++ delete (SetFlag Periodic) iaspects_necklaceTemplate+  , ieffects = [RefillCalm 15]+  , idesc    = "Worn, cold, large brass medallion on a chain. Unlikely to offer much protection as an armor piece, but when courage is hardest to sustain, the old engraving reassures its wearer."+  }+-- Morally these are the aspects, but we also need to add a fake @Timeout@,+-- to let clients know that the not identified item is periodic jewelry.+iaspects_necklaceTemplate :: [Aspect]+iaspects_necklaceTemplate =+  [ PresentAs NECKLACE_UNKNOWN+  , SetFlag Periodic, SetFlag Precious, SetFlag Equipable+  , toVelocity 50 ]  -- not dense enough+-- Not identified, because id by use, e.g., via periodic activations. Fun.+necklaceTemplate = ItemKind+  { isymbol  = symbolNecklace+  , iname    = "necklace"+  , ifreq    = [(NECKLACE_UNKNOWN, 1)]+  , iflavour = zipFancy stdCol ++ zipPlain brightCol+  , icount   = 1+  , irarity  = [(4, 3), (10, 4)]+  , iverbHit = "whip"+  , iweight  = 100+  , idamage  = 0+  , iaspects = Timeout 1000000+                 -- fake, needed to display "charging"; the timeout itself+                 -- won't be displayed thanks to periodic; as a side-effect,+                 -- it can't be activated until identified, which is better+                 -- than letting the player try to activate before the real+                 -- cooldown is over and waste turn+               : iaspects_necklaceTemplate+  , ieffects = []+  , idesc    = "Tingling, rattling chain of flat encrusted links. Eccentric millionaires are known to hide their highly personalized body augmentation packs in bulky jewelry pieces such as these."+  , ikit     = []+  }+necklace1 = necklaceTemplate+  { iname    = "the Necklace"+  , ifreq    = [(CRAWL_ITEM, 50), (ANY_JEWELRY, 25)]+  , irarity  = [(3 * 10/15, 0), (4 * 10/15, 1), (10, 5)]+                 -- prevents camping on lvl 3+  , iaspects = [ SetFlag Unique, ELabel "of Spur Life"+               , Timeout $ (4 - 1 `dL` 3) * 10+                   -- priceless, so worth the long wait and the malus+               , AddSkill SkArmorMelee (-30)+               , SetFlag Durable ]+               ++ iaspects_necklaceTemplate+  , ieffects = [ RefillCalm (-5)+               , When (TriggeredBy ActivationPeriodic) $ RefillHP 1 ]+  , idesc    = "This awkward chain, when worn on bare skin, frequently emits mild but highly annoying electric shocks, which apparently stimulate tissue regeneration even in distant parts of the body. A part of the surprising effectiveness of this unique artifact may stem from the desperation of the patients to be quickly healed enough to take it off."+  }+-- no necklace2 of Live Bait, wasteContainer too similar+necklace3 = necklaceTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_JEWELRY, 100)]+  , iaspects = [ ELabel "of fearful listening"+               , Timeout 40+                   -- has to be larger than Calm drain or item not removable;+                   -- equal is not enough if enemies drained Calm already+               , AddSkill SkHearing 6 ]+               ++ iaspects_necklaceTemplate+  , ieffects = [ Detect DetectActor 20  -- can be applied; destroys the item+               , When (TriggeredBy ActivationPeriodic) $ RefillCalm (-30) ]+  }+necklace4 = necklaceTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_JEWELRY, 100)]+  , iaspects = [ ELabel "of escape"+               , Timeout $ (7 - 1 `dL` 5) * 10 ]+               ++ iaspects_necklaceTemplate+  , ieffects = [ Teleport $ 14 + 3 `d` 3  -- can be applied; destroys the item+               , Detect DetectExit 20+               , Yell ]  -- drawback when used for quick exploring+  , idesc    = "A supple chain that slips through your fingers."+  }+necklace5 = necklaceTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_JEWELRY, 100)]+  , iaspects = [ ELabel "of greed"+               , Timeout (8 + 1 `d` 3) ]+               ++ iaspects_necklaceTemplate+  , ieffects = [ Detect DetectStash 100+               , toOrganBad S_PARSIMONIOUS (5 + 1 `d` 3)  -- hard to flee+               , When (TriggeredBy ActivationPeriodic) $ Teleport 40 ]  -- risky+  }+necklace6 = necklaceTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_JEWELRY, 100)]+  , iaspects = Timeout ((3 + 1 `d` 3 - 1 `dL` 3) * 2)+               : iaspects_necklaceTemplate  -- OP if Durable; free blink+  , ieffects = [Teleport $ 3 `d` 2]+  }+necklace7 = necklaceTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_JEWELRY, 100)]+  , iaspects = Timeout ((1 `d` 3) * 2)+               : iaspects_necklaceTemplate+  , ieffects = [PushActor (ThrowMod 100 50 1)]  -- 1 step, slow+                  -- the @50@ is only for the case of very light actor, etc.+  }+necklace8 = necklaceTemplate+  { iname    = "the Necklace"+  , ifreq    = [(CRAWL_ITEM, 50), (ANY_JEWELRY, 50)]+  , irarity  = [(10, 5)]  -- powerful and determines tactics for one actor+  , iaspects = [ SetFlag Unique, ELabel "of Overdrive"+               , Timeout 10+               , AddSkill SkMaxHP 10  -- good effects vanish when taken off+               , AddSkill SkSpeed 10+               , SetFlag Durable ]+               ++ iaspects_necklaceTemplate+  , ieffects = [ RefillCalm (-2)  -- don't spam+               , Discharge 5 80 ]+                   -- discharged again soon after it ends+                 -- Lasting effect lessens temptation to frequently take off+                 -- when engaging in melee, which would lead to micromanagement.+                 -- Quite OOP if worn with the right set of other items, anyway.+  , idesc    = "This whirring augmentation pack stimulates its host beyond any medically advisable or, surely, even legally admissible levels. It can be only speculated what kind of activity it was designed for, but clearly the steady handling of melee weapons was not one of them."+  }+necklace9 = necklaceTemplate+  { iname    = "coil"+  , ifreq    = [ (COMMON_ITEM, 20)  -- crafted, so can be rare+               , (S_REFRIGERATION_COIL, 1), (ANY_JEWELRY, 100)+               , (COLD_SOURCE, 1) ]+  , iaspects = ELabel "of superconducting refrigeration"+               : Timeout ((1 + 1 `d` 3) * 5)+               : delete (SetFlag Precious) iaspects_necklaceTemplate+  , ieffects = [Explode S_CURRENT_DISCHARGE]+  }+necklace10 = necklaceTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_JEWELRY, 100), (PERFUME, 1)]+  , iaspects = Timeout ((1 + 1 `d` 3) * 5)+               : iaspects_necklaceTemplate+  , ieffects = [Explode S_FRAGRANCE]+  }+motionScanner = necklaceTemplate+  { iname    = "handheld sonar"+  , ifreq    = [(COMMON_ITEM, 100), (ADD_NOCTO_1, 20)]+  , irarity  = [(5, 3)]+  , iverbHit = "ping"+  , iweight  = 300  -- almost gives it away+  , iaspects = [ Timeout $ 4 + 1 `dL` 6+                   -- positive dL dice, since the periodic effect is detrimental+               , AddSkill SkNocto 1+               , AddSkill SkArmorMelee $ (-4 + 1 `dL` 3) * 5+               , EqpSlot EqpSlotMiscBonus ]+               ++ iaspects_necklaceTemplate+  , ieffects = [Explode S_PING_PLASH]+  , idesc    = "Portable underwater echolocator overdriven to scan dark corridors at the cost of emitting occasional loud pings and flashes. Having to track the display hanging from the neck strap is distracting, as well."+  }++-- ** Non-periodic jewelry++imageItensifier = ItemKind+  { isymbol  = symbolRing+  , iname    = "noctovisor"+  , ifreq    = [(TREASURE, 100), (ADD_NOCTO_1, 80), (MUSEAL, 100)]+  , iflavour = zipFancy [BrGreen]+  , icount   = 1+  , irarity  = [(5, 2)]+  , iverbHit = "rattle"+  , iweight  = 700+  , idamage  = 0+  , iaspects = [ AddSkill SkNocto 1, AddSkill SkSight (-1)+               , AddSkill SkArmorMelee $ (-6 + 1 `dL` 3) * 5+               , SetFlag Precious, SetFlag Equipable+               , EqpSlot EqpSlotMiscBonus ]+  , ieffects = []+  , idesc    = "Sturdy antique night vision goggles of unknown origin."+  , ikit     = []+  }+sightSharpening = ringTemplate  -- small and round, so mistaken for a ring+  { iname    = "Autozoom Contact Lens"+  , ifreq    = [(TREASURE, 100), (ADD_SIGHT, 1)]+      -- it's has to be very rare, because it's powerful and not unique,+      -- and also because it looks exactly as one of necklaces, so it would+      -- be misleading when seen on the map+  , irarity  = [(7, 1), (10, 10)]  -- low @ifreq@+  , iweight  = 50  -- heavier that it looks, due to glass+  , iaspects = [ AddSkill SkSight $ 1 + 1 `dL` 2+               , AddSkill SkHurtMelee $ (1 `d` 3) * 3+               , EqpSlot EqpSlotSight ]+               ++ iaspects ringTemplate+  , idesc    = "Zooms on any movement, distant or close. Requires some getting used to. Never needs to be taken off."+  }+-- Don't add standard effects to rings, because they go in and out+-- of eqp and so activating them would require UI tedium: looking for+-- them in eqp and stash or even activating a wrong item by mistake.+--+-- By general mechanisms, due to not having effects that could identify+-- them by observing the effect, rings are identified on pickup.+-- That's unlike necklaces, which provide the fun of id-by-use, because they+-- have effects and when the effects are triggered, they get identified.+ringTemplate = ItemKind+  { isymbol  = symbolRing+  , iname    = "ring"+  , ifreq    = [(RING_UNKNOWN, 1)]+  , iflavour = zipPlain stdCol ++ zipFancy darkCol+  , icount   = 1+  , irarity  = [(8, 7)]+  , iverbHit = "knock"+  , iweight  = 15+  , idamage  = 0+  , iaspects = [PresentAs RING_UNKNOWN, SetFlag Precious, SetFlag Equipable]+  , ieffects = []+  , idesc    = "A sturdy ring with a softly shining eye. If it contains a body booster unit, beware of the side-effects."+  , ikit     = []+  }+ring1 = ringTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_JEWELRY, 100)]+  , irarity  = [(5, 4)]+  , iaspects = [ AddSkill SkSpeed $ 1 `dL` 2+               , AddSkill SkMaxHP (-20)+               , EqpSlot EqpSlotSpeed ]+               ++ iaspects ringTemplate+  }+ring2 = ringTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_JEWELRY, 100)]+  , irarity  = [(8, 4)]+  , iaspects = [ AddSkill SkSpeed $ 1 + 1 `dL` 3+               , AddSkill SkArmorMelee (-40)+               , EqpSlot EqpSlotSpeed ]+               ++ iaspects ringTemplate+  }+ring3 = ringTemplate+  { iname    = "the Ring"+  , ifreq    = [(CRAWL_ITEM, 50), (ANY_JEWELRY, 20)]+  , irarity  = [(10, 7)]+  , iaspects = [ SetFlag Unique, ELabel "of Rush"+               , AddSkill SkSpeed $ (1 + 1 `dL` 2) * 2+               , AddSkill SkMaxHP (-20)+               , AddSkill SkArmorMelee (-20)+               , SetFlag Durable, EqpSlot EqpSlotSpeed ]+               ++ iaspects ringTemplate+  , idesc    = "The creator of this dangerous artifact didn't find time to document its operation. And now it's too late."+  }+ring4 = ringTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_JEWELRY, 100)]+  , irarity  = [(5, 5)]+  , iaspects = [ AddSkill SkHurtMelee $ (2 + 1 `d` 3 + (1 `dL` 2) * 2 ) * 3+               , AddSkill SkMaxHP (-10)+               , EqpSlot EqpSlotHurtMelee ]+               ++ iaspects ringTemplate+  }+ring5 = ringTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_JEWELRY, 100)]+  , iaspects = [ AddSkill SkHurtMelee $ (4 + 1 `d` 3 + (1 `dL` 2) * 2 ) * 3+               , AddSkill SkArmorMelee (-20)+               , EqpSlot EqpSlotHurtMelee ]+               ++ iaspects ringTemplate+  }+ring6 = ringTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_JEWELRY, 100)]+  , irarity  = [(6, 10)]  -- needed, e.g, to buff dominated minions+  , iaspects = [ AddSkill SkMaxHP $ 5 + (1 `d` 2 + 1 `dL` 2) * 5+               , AddSkill SkMaxCalm $ -30 + (1 `dL` 3) * 5+               , EqpSlot EqpSlotMaxHP ]+               ++ iaspects ringTemplate+  }+ring7 = ringTemplate+  { ifreq    = [(COMMON_ITEM, 100), (ANY_JEWELRY, 100), (MUSEAL, 100)]+  , irarity  = [(5, 1), (10, 7)]  -- needed after other items drop Calm+  , iaspects = [ AddSkill SkMaxCalm $ 30 + (1 `dL` 4) * 5+               , AddSkill SkHearing 6+               , EqpSlot EqpSlotMiscBonus ]+               ++ iaspects ringTemplate+  , idesc    = "Cold, solid to the touch, perfectly round, engraved with solemn, strangely comforting, worn out words."+  }+ring8 = ringTemplate  -- weak skill per eqp slot, so can be without drawbacks+  { ifreq    = [(COMMON_ITEM, 100), (ANY_JEWELRY, 100), (MUSEAL, 50)]+  , irarity  = [(3, 3)]+  , iaspects = [ AddSkill SkShine 1+               , EqpSlot EqpSlotShine ]+               ++ iaspects ringTemplate+  , idesc    = "A sturdy ring with a large, shining stone."+  }+ring9 = ringTemplate+  { ifreq    = [(COMMON_ITEM, 10), (RING_OF_OPPORTUNITY_SNIPER, 1)]+  , iaspects = [ ELabel "of opportunity sniper"+               , AddSkill SkProject 8+               , EqpSlot EqpSlotProject ]+               ++ iaspects ringTemplate+  , idesc    = "This mil-grade communication equipment feeds the aggregated enemy position information to the wearer, even when he is not the pointman of the team and so the team is not intentionally spotting for him. With proper training this permits ranged attacks, even indirect fire, without neglecting the simultaneous squad doctrine obligation of covering the approach of the pointman."+  }+ring10 = ringTemplate+  { iname    = "the Ring"+  , ifreq    = [(TREASURE, 50), (ANY_JEWELRY, 50)]+  , irarity  = [(10, 4)]+  , iaspects = [ SetFlag Unique, ELabel "of Overwatch"+               , AddSkill SkProject 8  -- TODO: 11, but let player control+                                       -- potion throwing; see capReinforced+               , AddSkill SkMaxHP (-20)+               , SetFlag Durable, EqpSlot EqpSlotProject ]+               ++ iaspects ringTemplate+  , idesc    = "This exceptional medical contraption constantly transforms and re-injects minuscule amounts of blood serum, synthesizing powerful drugs that greatly enhance spacial awareness and focus, at the cost of weakening bodily resilience and recovery. With this boost, indirect fire becomes possible, even for a non-pointman team member."+  }++-- ** Armor++armorLeather = ItemKind+  { isymbol  = symbolTorsoArmor+  , iname    = "spacesuit jacket"+  , ifreq    = [ (COMMON_ITEM, 100), (S_SPACESUIT_JACKET, 1)+               , (SPACESUIT_PART, 1), (ARMOR_LOOSE, 1), (STARTING_ARMOR, 100) ]+  , iflavour = zipFancy [Blue]+  , icount   = 1+  , irarity  = [(1, 7), (10, 3)]+  , iverbHit = "thud"+  , iweight  = 7000+  , idamage  = 0+  , iaspects = [ AddSkill SkHurtMelee (-2)+               , AddSkill SkArmorMelee $ (2 + 1 `dL` 2) * 5+               , AddSkill SkArmorRanged $ (1 + 1 `dL` 2) * 3+               , SetFlag Durable, SetFlag Equipable+               , EqpSlot EqpSlotArmorMelee ]+  , ieffects = []+  , idesc    = "A hard-shell torso segment of a disposed off spacesuit. Well ventilated through the air tank outlets."+  , ikit     = []+  }+armorLeather2 = armorLeather  -- for now, purely flavour, for better messages+  { isymbol  = symbolMiscArmor+  , iname    = "pair"+  , ifreq    = [ (COMMON_ITEM, 100), (S_SPACESUIT_TROUSERS, 1)+               , (SPACESUIT_PART, 1), (STARTING_ARMOR, 100) ]+                 -- no ARMOR_LOOSE; harder to take off than a jacket+  , irarity  = [(3, 5), (10, 4)]+  , iaspects = ELabel "of spacesuit trousers" : iaspects armorLeather+  , idesc    = "Segmented trousers for open space work, with the hermetically sealed boots cut off. Surprisingly flexible and airy, yet micro-meteorite-proof."+  }+armorMail = armorLeather+  { iname    = "bulletproof vest"+  , ifreq    = [ (COMMON_ITEM, 100), (ARMOR_LOOSE, 1), (ARMOR_RANGED, 1)+               , (S_BULLTEPROOF_VEST, 1), (STARTING_ARMOR, 50) ]+  , iflavour = zipPlain [Cyan]+  , irarity  = [(4, 3), (7, 12), (10, 3)]+  , iweight  = 12000+  , idamage  = 0+  , iaspects = [ AddSkill SkHurtMelee (-5)+               , AddSkill SkArmorMelee $ (2 + 1 `dL` 2) * 5+               , AddSkill SkArmorRanged $ (3 + 1 `dL` 3) * 3+               , AddSkill SkOdor 2+               , SetFlag Durable, SetFlag Equipable+               , EqpSlot EqpSlotArmorRanged ]+  , ieffects = []+  , idesc    = "A civilian bulletproof vest. Discourages foes from attacking your torso, making it harder for them to land a blow. Really hard to wash due to thickness."+  }+meleeEnhancement = ItemKind+  { isymbol  = symbolTorsoArmor+  , iname    = "barebones exoskeleton"+  , ifreq    = [(COMMON_ITEM, 100)]+  , iflavour = zipFancy [Blue]+  , icount   = 1+  , irarity  = [(10, 10)]  -- many, but very varied quality+  , iverbHit = "zip"+  , iweight  = 1000+  , idamage  = 0+  , iaspects = [ AddSkill SkHurtMelee $ (2 + 1 `dL` 8) * 3+               , AddSkill SkArmorMelee 3+               , SetFlag Durable, SetFlag Equipable+               , EqpSlot EqpSlotHurtMelee ]+  , ieffects = []+  , idesc    = "A minimal frame from carbon fibre, designed to prevent injuries when lifting and operating heavy construction equipment. Cheap, light, disposable."+  , ikit     = []+  }+spacesuit = ItemKind+  { isymbol  = symbolTorsoArmor+  , iname    = "spacesuit"+  , ifreq    = [(S_SPACESUIT, 1)]+  , iflavour = zipFancy [BrWhite]+  , icount   = 1+  , irarity  = [(10, 10)]+  , iverbHit = "hug"+  , iweight  = 250000  -- including the fake gravity mass from two boots+  , idamage  = 0+  , iaspects = [ AddSkill SkHurtMelee (-30)  -- restricted arm movement+               , AddSkill SkSight (-1)+               , AddSkill SkHearing (-3), AddSkill SkSmell (-99)+               , AddSkill SkArmorMelee $ (8 + 1 `dL` 2) * 10  -- ~ 95+               , AddSkill SkArmorRanged $ (1 `dL` 3) * 12  -- ~ 25.5+                   -- both armors are sums of the full set, averaged;+                   -- the main advantage is taking only one slot+               , SetFlag Durable, SetFlag Equipable+               , EqpSlot EqpSlotArmorMelee ]+  , ieffects = []+  , idesc    = "A heavy spacesuit, with micro-suction machinery build into its boots, but requiring an external air tank for space walking. It heavily restrict arm movement, but not walking, regardless of gravity or lack thereof."+  , ikit     = []+  }+spacesuitTorn = spacesuit+  { iname    = "torn spacesuit"+  , ifreq    = [(CRAWL_ITEM, 100), (S_SPACESUIT_TORN, 1)]+  , icount   = 1 `d` 3+  , irarity  = [(1, 17), (8 * 10/15, 10)]+  , iverbHit = "entangle"+  , iweight  = 10000+  , iaspects = [ AddSkill SkHurtMelee (-30)+               , AddSkill SkSight (-1)  -- obstructed despite the tears+               , AddSkill SkArmorMelee $ (1 + 1 `d` 3) * 10  -- shallow, no `dL`+               , AddSkill SkArmorRanged $ (1 `d` 2) * 6+               , SetFlag Durable, SetFlag Equipable+               , EqpSlot EqpSlotArmorMelee ]+  , idesc    = "A badly torn spacesuit, barely offering any protection any more but still heavily restricting arm movement. Perhaps two decent wearable pieces could be salvaged by extracting, matching and patching components on a suitable workbench using scissors of some kind."+  , ikit     = [(BONDING_TOOL, CGround)]+  }+gloveFencing = ItemKind+  { isymbol  = symbolMiscArmor+  , iname    = "construction glove"+  , ifreq    = [ (COMMON_ITEM, 100), (ARMOR_MISC, 1), (ARMOR_RANGED, 1)+               , (STARTING_ARMOR, 50) ]+  , iflavour = zipPlain [BrGreen]+  , icount   = 1+  , irarity  = [(6, 9), (10, 5)]+  , iverbHit = "flap"+  , iweight  = 100+  , idamage  = 2 `d` 1+  , iaspects = [ AddSkill SkHurtMelee $ (2 + 1 `d` 2 + 1 `dL` 2) * 3+               , AddSkill SkArmorRanged $ (1 `dL` 2) * 3+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotHurtMelee+               , toVelocity 40 ]  -- flaps and flutters+  , ieffects = []+  , idesc    = "A flexible construction glove from rough leather ensuring a good grip. Also, quite effective in averting or even catching slow projectiles."+  , ikit     = []+  }+gloveGauntlet = gloveFencing+  { iname    = "spacesuit glove"+  , ifreq    = [ (COMMON_ITEM, 100), (S_SPACESUIT_GLOVE, 1)+               , (SPACESUIT_PART, 2), (ARMOR_MISC, 1), (STARTING_ARMOR, 50) ]+  , iflavour = zipFancy [White]+  , irarity  = [(1, 10), (5 * 10/15, 10), (6 * 10/15, 1)]+  , iverbHit = "mow"+  , iweight  = 500+  , idamage  = 3 `d` 1+  , iaspects = [ AddSkill SkArmorMelee $ (1 `d` 3) * 5+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponFast  -- no timeout, so worth wielding+               , toVelocity 40 ]  -- flaps and flutters+  , idesc    = "A piece of a hull maintenance spacesuit, padded, reinforced with carbon fibre, with extruding titan manipulators."+  }+gloveJousting = gloveFencing+  { iname    = "Welding Handgear"+  , ifreq    = [(COMMON_ITEM, 100), (ARMOR_MISC, 1)]+  , iflavour = zipFancy [BrRed]+  , irarity  = [(1, 6), (10, 3)]+  , iverbHit = "ram"+  , iweight  = 3000+  , idamage  = 5 `d` 1+  , iaspects = [ SetFlag Unique+               , Timeout 5+               , AddSkill SkHurtMelee $ (-5 + 1 `dL` 3) * 5+               , AddSkill SkArmorMelee $ (2 + 1 `d` 2 + 1 `dL` 3) * 5+               , AddSkill SkArmorRanged $ (1 + 1 `dL` 3) * 3+                 -- very random on purpose and can even be good on occasion+                 -- or when ItemRerolled enough times+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponFast  -- hope to replace with better soon+               , toVelocity 60 ]  -- flaps and flutters+  , idesc    = "Rigid, bulky handgear embedding a defunct welding equipment, complete with an affixed small shield and a darkened visor. Awe-inspiring."+  }+hatUshanka = ItemKind+  { isymbol  = symbolMiscArmor+  , iname    = "ushanka hat"+  , ifreq    = [ (COMMON_ITEM, 100), (ARMOR_MISC, 1), (CLOTHING_MISC, 1)+               , (STARTING_ARMOR, 50) ]+  , iflavour = zipPlain [Brown]+  , icount   = 1+  , irarity  = [(3, 7), (10, 4)]+  , iverbHit = "tickle"+  , iweight  = 500+  , idamage  = 0+  , iaspects = [ Timeout $ (2 + 1 `d` 2) * 3+               , AddSkill SkArmorMelee 5, AddSkill SkHearing (-6)+               , SetFlag Periodic, SetFlag Durable, SetFlag Equipable+               , EqpSlot EqpSlotArmorMelee+               , toVelocity 50 ]  -- flaps and flutters+  , ieffects = [RefillCalm 1]+  , idesc    = "Soft and warm fur. It keeps your ears warm."+  , ikit     = []+  }+capReinforced = ItemKind+  { isymbol  = symbolMiscArmor+  , iname    = "construction cap"+  , ifreq    = [(COMMON_ITEM, 100), (ARMOR_MISC, 1), (STARTING_ARMOR, 50)]+  , iflavour = zipPlain [BrYellow]+  , icount   = 1+  , irarity  = [(6, 9), (10, 3)]+  , iverbHit = "cut"+  , iweight  = 1000+  , idamage  = 0+  , iaspects = [ AddSkill SkArmorMelee $ (1 `d` 3) * 5+               , AddSkill SkProject 1+                   -- the brim shields against blinding by light sources, etc.;+                   -- beware of stacking and causing auto-fling of vials+               , SetFlag Durable, SetFlag Equipable+               , EqpSlot EqpSlotProject ]+  , ieffects = []+  , idesc    = "A hard plastic shell that might soften a blow."+  , ikit     = []+  }+helmArmored = ItemKind+  { isymbol  = symbolMiscArmor+  , iname    = "spacesuit helmet"+  , ifreq    = [ (COMMON_ITEM, 100), (S_SPACESUIT_HELMET, 1)+               , (SPACESUIT_PART, 1), (ARMOR_MISC, 1), (ARMOR_RANGED, 1)+               , (STARTING_ARMOR, 50) ]+  , iflavour = zipFancy [BrBlue]+  , icount   = 1+  , irarity  = [(1, 11), (4 * 10/15, 11), (5 * 10/15, 1)]+  , iverbHit = "headbutt"+  , iweight  = 2000+  , idamage  = 4 `d` 1+  , iaspects = [ Timeout 4+               , AddSkill SkArmorMelee $ (1 `dL` 3) * 5+               , AddSkill SkArmorRanged $ (2 + 1 `dL` 2) * 3  -- headshot+               , AddSkill SkSight (-1)+               , AddSkill SkHearing (-3), AddSkill SkSmell (-5)+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotArmorRanged+               , toVelocity 50 ]  -- unwieldy+  , ieffects = []+  , idesc    = "Blocks out everything, including your senses."+  , ikit     = []+  }+heavyBoot = ItemKind+  { isymbol  = symbolMiscArmor+  , iname    = "spacesuit boot"+  , ifreq    = [ (COMMON_ITEM, 100), (S_SPACESUIT_BOOT, 1)+               , (SPACESUIT_PART, 2), (ARMOR_MISC, 1) ]+                 -- no STARTING_ARMOR, because the malus tricky for newbies+  , iflavour = zipFancy [Magenta]+  , icount   = 1+  , irarity  = [(1, 12), (3 * 10/15, 12), (4 * 10/15, 1)]+  , iverbHit = "sock"+  , iweight  = 100000  -- including the fake gravity mass+  , idamage  = 6 `d` 1+  , iaspects = [ Timeout 7+               , AddSkill SkHurtMelee (-10)+               , AddSkill SkArmorMelee $ (1 + 1 `dL` 3) * 5+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponFast  -- hope to replace with better soon+               , toVelocity 500 ]  -- the fake mass not counted for throwing+  , ieffects = []+  , idesc    = "An armored boot, cut-off from a spacesuit. The in-built micro-suction machinery for maintaining traction in the absence of gravity gives stability equivalent to an extra 100kg of mass. Kicks get abrupt acceleration millimeters short of the target."+  , ikit     = []+  }+ragTangle = sandstoneRock+  { isymbol  = symbolClothes+  , iname    = "tangle"+  , ifreq    = [ (COMMON_ITEM, 10), (CLOTH_RAG, 1), (THICK_CLOTH, 1)+               , (S_RAG_TANGLE, 1), (UNREPORTED_INVENTORY, 1) ]+  , iflavour = zipPlain [Brown]+  , icount   = 1+  , irarity  = [(1, 10)]  -- crafted, so rare+  , iverbHit = "touch"+  , iweight  = 200+  , idamage  = 0+  , iaspects = [ ELabel "of rags"+               , SetFlag Fragile, AddSkill SkArmorMelee 2+               , SetFlag Equipable, EqpSlot EqpSlotArmorMelee ]+  , idesc    = "Fashionable --- sometimes. Useful for survival crafting, for example as a wick of a makeshift oil lamp --- always."+  }+-- The biggest power of bucklers and shields is the ranged deflection.+-- There is a risk of micro-management, when the player takes off+-- a buckler or shield just after it activated at ranged attack,+-- regaining the speed for the probably upcoming melee fight.+-- This has the drawback that, while the shield recharges in stash,+-- it looses the charge when equipped again and if it's activated+-- from the stash, the player suffers its full piercing damage.+-- OTOH, if the player has maximized armor, he only suffers 5%+-- of the pierced damage of the shield. But to gain such high armor+-- usually requires keeping a shield equipped.+-- And the speed loss can't be avoided when exploring+-- and an extra slowdown comes from unequipping and equipping again+-- after melee, so it starts to be a meaningful and situational+-- trade-off and not a meaningless micro-management. If players+-- suffer from micro-management anyway, the recharging effect can be+-- limited to hitting in melee only (@ActivationMeleeable@).+-- The push effect is applied to self outside melee, so even less problematic.+buckler = ItemKind+  { isymbol  = symbolShield+  , iname    = "buckler"+  , ifreq    = [(COMMON_ITEM, 100), (ARMOR_LOOSE, 1)]+  , iflavour = zipPlain [Blue]+  , icount   = 1+  , irarity  = [(4, 7)]+  , iverbHit = "bash"+  , iweight  = 2000+  , idamage  = 2 `d` 1+  , iaspects = [ Timeout $ (5 + 1 `d` 2 - 1 `dL` 2) * 2+               , AddSkill SkArmorMelee 40+               , AddSkill SkSpeed (-1)  -- the main price to pay+               , SetFlag UnderRanged, SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotArmorMelee+               , toVelocity 50 ]  -- unwieldy to throw+  , ieffects =+      [ IfThenElse (TriggeredBy ActivationUnderRanged)+                   (NopEffect `OrEffect` toOrganGood S_RANGED_DEFLECTING 1)+                     -- this is particularly useful when exploring+                     -- and getting ambushed; @OrEffect@ is only to help AI+                     -- understand it won't be applied to foes,+                     -- but prevent it from assigning too much value+                     -- and so attacking with buckler too early+                   (OnUser (Recharge 4 20)) ]+                     -- this is useful during a fight+  , idesc    = "An arm protection made from an outer airlock panel. Not too small to deflect projectiles occasionally. Almost harmless when used offensively, but makes room for other weapons."+  , ikit     = []+  }+-- In melee, the shield's biggest power is pushing enemies,+-- which however reduces to 1 extra damage point if no clear space behind enemy.+-- So they require keen tactical management.+-- Note that AI will pick them up but never wear and will use them at most+-- as a way to push itself. Despite being @Meleeable@, they will not be used+-- as weapons either. This is OK, using shields smartly is totally beyond AI.+shield = buckler+  { iname    = "shield"+  , irarity  = [(7, 5)]  -- the stronger variants add to total probability+  , iflavour = zipPlain [Green]+  , iweight  = 4000+  , idamage  = 3 `d` 1+  , iaspects = [ Timeout $ (7 + 1 `d` 2 - 1 `dL` 2) * 2+               , AddSkill SkArmorMelee 60+               , AddSkill SkSpeed (-1)  -- the main price to pay+               , AddSkill SkHurtMelee (-25)+               , SetFlag UnderRanged, SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotArmorMelee+               , toVelocity 50 ]  -- unwieldy to throw+  , ieffects =+      [ IfThenElse (TriggeredBy ActivationUnderRanged)+                   (OnUser (toOrganGood S_RANGED_DEFLECTING 1))+                     -- this is particularly useful when exploring+                     -- and getting ambushed; @OnUser@ is only to help AI+                     -- understand it won't be applied to foes+                   (PushActor (ThrowMod 200 50 1)) ]  -- 1 step, fast+                     -- this is useful during a fight+  , idesc    = "An unwieldy rectangle made of anti-meteorite ceramic sheet. Absorbs a percentage of melee damage, both dealt and sustained. Large enough to shield against projectiles for as long as there is strength to keep it poised. Requires particularly keen positional awareness when used as a weapon."+  }+shield2 = shield+  { ifreq    = [(COMMON_ITEM, 20), (MUSEAL, 100), (S_SHIELD_BLUNT, 1)]+  , iweight  = 6000+  , idamage  = 4 `d` 1+  , ieffects =+      [ IfThenElse (TriggeredBy ActivationUnderRanged)+                   (OnUser (toOrganGood S_RANGED_DEFLECTING 1))+                   (PushActor (ThrowMod 400 50 1)) ]  -- 2 steps, fast+  , idesc    = "A relic of long-past wars, heavy and with a central spike, which is however misaligned and dull."+  }+shield3 = shield2+  { ifreq    = [(COMMON_ITEM, 1), (MUSEAL, 3), (S_SHIELD_SHARP, 1)]+  , idamage  = 7 `d` 1+  , idesc    = "A relic of long-past wars, heavy and with a sharp central spike."+  }++-- ** Weapons++-- Generally, weapons on long poles have highest damage and defence,+-- but longest timeout. Weapons with handles are middling. Weapons+-- without area weakest, but lowest timeout and highest global melee bonus.+-- Weapons of a given group tend to share the weakest representative's+-- characteristics, even when upgraded. Sharpening of weapons usually+-- just increases their damage.++-- For some weapons the main damage is not edged nor piercing,+-- but wounding trough impact or burns. A portion of such weapons+-- also double as tools for terrain transformation or crafting.++blowtorch = ItemKind+  { isymbol  = symbolTool+  , iname    = "blowtorch"  -- not unique, but almost never generated on floor+  , ifreq    = [ (BLOWTORCH, 1), (VALUABLE, 20)  -- make AI afraid to hog+               , (CRAWL_ITEM, 1)  -- @PolyItem@ doesn't work on it+               , (BREACHING_TOOL, 1), (FIRE_SOURCE, 1) ]+                 -- infinite use, but harmful+  , iflavour = zipPlain [BrRed]+  , icount   = 1+  , irarity  = [(1, 1)]+  , iverbHit = "scorch"+  , iweight  = 2000+  , idamage  = 0+  , iaspects = [ Timeout 4+               , AddSkill SkAlter 2+               , AddSkill SkWait (-2)+                   -- patience thin in the heat; prevents sleep, to let+                   -- AI use @SkAlter@ to get to level 4+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotAlter+               , toVelocity 0 ]  -- @Burn@ not effective when thrown+  , ieffects = [ Burn 3  -- ensure heroes wear initially, so they reach lvl 4+               , Impress ]+      -- is used for melee in precedence to fists, but not to cleavers;+      -- so if player wants to hit with it, it's enough to pack other gear;+      -- is also the low bar for self-inflicted damage from durable breaching+      -- tool and fire source use so that other tool-weapons need only+      -- do that many non-armor affected damage to dissuade the player+      -- from using them without careful thought+  , idesc    = "A sturdy old-fashioned portable blowtorch for fine cutting or welding of metals. Unfocused and inaccurate, but does not require access codes to high current power outlets. If you can patiently suffer the heat, it can be used as a clumsy breaching tool for stuck, locked and welded containers and doors."  -- for some reason I don't feel like being more obvious here about the use for the welded staircase; maybe that's because the torch can be used long after the first puzzle of the game is forgotten and so the in-you-face hints should be on items and actors that get forgotten together with the puzzle+  , ikit     = []+  }+laserSharpener = ItemKind+  { isymbol  = symbolTool+  , iname    = "Laser Sharpener"+  , ifreq    = [(CRAWL_ITEM, 50), (SHARPENING_TOOL, 1)]+  , iflavour = zipFancy [BrBlue]+  , icount   = 1+  , irarity  = [(5, 25)]  -- comes bundled with other tools+  , iverbHit = "paint"+  , iweight  = 2000+  , idamage  = 0+  , iaspects = [ SetFlag Unique, Timeout 5+               , SetFlag Durable, SetFlag Meleeable, EqpSlot EqpSlotWeaponBig+               , toVelocity 0 ]  -- @Burn@ not effective when thrown+  , ieffects = [Burn 4]  -- really harmful when used as a sharpener; intended+  , idesc    = "Laser ablation is the safest and most accurate of sharpening method. Misaligned optics with broken shielding, however, change the situation dramatically, enabling stray laser pulses to escape at unpredictable angles."  -- hence short range and so melee weapon; TODO: long range weapon with instant projectiles and no risk of hull breach+  , ikit     = []+  }+crowbar = ItemKind+  { isymbol  = symbolTool+  , iname    = "crowbar"+  , ifreq    = [ (COMMON_ITEM, 100), (BREACHING_TOOL, 1), (S_CROWBAR, 1)+               , (STARTING_WEAPON, 30) ]+  , iflavour = zipPlain [BrCyan]+  , icount   = 1+  , iweight  = 1000+  , irarity  = [(1, 5), (3 * 10/15, 5), (4 * 10/15, 1)]+  , iverbHit = "gouge"+  , idamage  = 2 `d` 1+  , iaspects = [ Timeout $ 2 + 1 `d` 3+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponFast+               , toVelocity 0 ]  -- totally unbalanced+  , ieffects = [RefillHP (-3)]+                 -- @RefillHP@ to avoid a no-brainer of durable tool use;+                 -- (idamage ignored to avoid the exploit of tool use in armor)+  , idesc    = "This is a heavy and pointy piece of steel that can be employed as an improvised melee weapon. It is also usable as a breaching tool, though rather injurious."  -- TODO: https://en.wikipedia.org/wiki/Crowbar_(tool)+  , ikit     = []+  }+catsPaw = ItemKind+  { isymbol  = symbolTool+  , iname    = "cat's paw"+  , ifreq    = [ (COMMON_ITEM, 100), (BREACHING_TOOL, 1)+               , (STARTING_WEAPON, 15) ]+  , iflavour = zipPlain [Cyan]+  , icount   = 1+  , iweight  = 500+  , irarity  = [(1, 12), (3 * 10/15, 12), (4 * 10/15, 1)]+  , iverbHit = "paw"+  , idamage  = 1 `d` 1+  , iaspects = [ Timeout $ 1 + 1 `d` 2+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponFast+               , toVelocity 0 ]  -- totally unbalanced+  , ieffects = [RefillHP (-2)]+                 -- @RefillHP@ to avoid a no-brainer of durable tool use;+                 -- also quite attractive as a ranged weapon+  , idesc    = "This is a sturdy and pointy piece of steel that can be employed as an improvised melee weapon. It is also usable as a breaching tool, though not a particularly safe one."  -- TODO: https://en.wikipedia.org/wiki/Cat%27s_paw_(nail_puller)+  , ikit     = []+  }+shortClub = ItemKind+  { isymbol  = symbolHafted+  , iname    = "short club"+  , ifreq    = [(S_SHORT_CLUB, 1), (STARTING_WEAPON, 700)]+  , iflavour = zipPlain [BrBlue]+  , icount   = 1+  , irarity  = [(1, 1)]  -- only crafted+  , iverbHit = "club"+  , iweight  = 2500+  , idamage  = 2 `d` 1+  , iaspects = [ SetFlag Durable, SetFlag Meleeable, EqpSlot EqpSlotWeaponFast+               , toVelocity 60 ]+  , ieffects = [RefillHP (-1)]+  , idesc    = "Simplicity."+  , ikit     = []+  }+longClub = shortClub+  { iname    = "long club"+  , ifreq    = [(S_LONG_CLUB, 1), (STARTING_WEAPON, 500)]+  , iflavour = zipPlain [Magenta]+  , iweight  = 3500+  , idamage  = 3 `d` 1  -- from two scraps+  , iaspects = [ Timeout $ 2 + 1 `d` 2+               , SetFlag Durable, SetFlag Meleeable, EqpSlot EqpSlotWeaponFast+               , toVelocity 0 ]  -- totally unbalanced+  , ieffects = [RefillHP (-2)]+  , idesc    = "Simplicity, long version."+  }+hammerTemplate = ItemKind  -- properly hafted *and* glued to handle/pole+  { isymbol  = symbolHafted+  , iname    = "sledgehammer"  -- "demolition hammer" is Br. Eng. for jackhammer+  , ifreq    = [(HAMMER_UNKNOWN, 1)]+                 -- not @BREACHING_TOOL@, because it trigger traps+                 -- and destroys treasure, instead of opening; generally+                 -- a very aggressive weapon, bad for defense even when long+  , iflavour = zipFancy [BrMagenta]  -- avoid "pink"+  , icount   = 1+  , irarity  = [(1, 2), (3, 2), (7, 25), (9, 1)]+                 -- not too common up to lvl 3, where one is guaranteed+                 -- and deep down, when crafting done already+  , iverbHit = "club"+  , iweight  = 4000+  , idamage  = 0  -- all damage independent of melee skill; this also helps+                  -- not to lie about damage of unidentified items+  , iaspects = [ PresentAs HAMMER_UNKNOWN+               , SetFlag Durable, SetFlag Meleeable, EqpSlot EqpSlotWeaponBig+               , toVelocity 0 ]  -- totally unbalanced+  , ieffects = []+  , idesc    = "One of many kinds of hammers employed in construction work. The usual ones with blunt heads don't cause grave wounds, but enough weight on a long handle can shake and bruise even most armored foes. However, larger hammers require more time to recover after a swing."  -- replaced with one of the descriptions below at identification time+  , ikit     = []+  }+hammer1 = hammerTemplate  -- 1m handle, blunt+  { ifreq    = [ (COMMON_ITEM, 100)+               , (STARTING_WEAPON, 50), (STARTING_HAMMER, 80)+               , (S_SHORT_BLUNT_HAMMER, 1) ]+  , iaspects = Timeout 6+               : iaspects hammerTemplate+  , ieffects = [RefillHP (-5)]  -- weak, but meant to be sharpened ASAP+  , idesc    = "One of many kinds of hammers employed in construction work. This is the usual one, with a blunt head and a short handle that, with a vice, may be pushed out and replaced with a longer pole."+  }+hammer2 = hammerTemplate  -- 0.75m handle, sharp+  { ifreq    = [ (COMMON_ITEM, 10)+               , (STARTING_WEAPON, 5), (STARTING_HAMMER, 5)+               , (BONDING_TOOL, 1) ]+  , irarity  = [(1, 4), (3, 4), (7, 40)]+                 -- common early, since not a guaranteed drop;+                 -- common also late, because not crafted+  , iverbHit = "puncture"+  , idamage  = 3 `d` 1+  , iaspects = [Timeout 3, EqpSlot EqpSlotWeaponFast]+               ++ (iaspects hammerTemplate \\ [EqpSlot EqpSlotWeaponBig])+  , ieffects = [RefillHP (-3)]+  , idesc    = "Upon closer inspection, this hammer, or pick, turns out particularly well balanced. The profiled handle seamlessly joins the head, which focuses the blow at a sharp point, compensating for the tool's modest size. This makes it capable of permanently smashing objects together, though any fumble results in hands smashed as well."+  }+hammer3 = hammerTemplate  -- 2m pole, blunt+  { ifreq    = [ (COMMON_ITEM, 4), (STARTING_WEAPON, 2)+               , (S_LONG_BLUNT_HAMMER, 1) ]+  , iweight  = 6000  -- pole weight almost gives it away+  , iaspects = [ Timeout 12+               , AddSkill SkHurtMelee $ (-6 + 1 `d` 4) * 3 ]+                   -- the malus not so important, hence easy to get the best+               ++ iaspects hammerTemplate+  , ieffects = [RefillHP (-8)]+  , idesc    = "This maul sports a particularly long pole that increases the momentum of the blunt head's swing, at the cost of long recovery."+  }+hammer4 = hammer1  -- 1m handle, sharp+  { ifreq    = [ (COMMON_ITEM, 4), (STARTING_WEAPON, 2)+               , (S_SHORT_SHARP_HAMMER, 1) ]+  , iverbHit = "cleave"+  , idamage  = 3 `d` 1+  , idesc    = "This hammer's head has it's protruding edges sharpened. Otherwise, it's pretty ordinary, with a short handle."+ }+hammer5 = hammer3  -- 2m pole, sharp+  { ifreq    = [(COMMON_ITEM, 1), (S_LONG_SHARP_HAMMER, 1)]+  , iverbHit = "cleave"+  , idamage  = 3 `d` 1+  , idesc    = "This maul features a head with the edge of the narrow end sharpened for cutting. Such long-hafted hammers require more time to recover after a swing, but the momentum alone can shake and bruise even armored foes that can't be harmed by sharp edges."+  }+hammerParalyze = hammerTemplate+  { iname    = "The Concussion Hammer"+  , ifreq    = [(TREASURE, 40), (STARTING_HAMMER, 5)]+  , irarity  = [(5, 1), (8, 6)]+  , idamage  = 3 `d` 1+  , iaspects = [ SetFlag Unique+               , Timeout 10 ]  -- 2m, but light head and pole+               ++ iaspects hammerTemplate+  , ieffects = [RefillHP (-8), Paralyze 10]+  , idesc    = "This exquisite demolition hammer with a titanium head and exceptionally long synthetic handle leaves no wall and no body standing."+  }+hammerSpark = hammerTemplate  -- the only hammer with significantly heavier head+  { iname    = "The Grand Smithhammer"+  , ifreq    = [(TREASURE, 40), (BONDING_TOOL, 1), (MUSEAL, 100)]+  , irarity  = [(5, 1), (8, 6)]+  , iweight  = 5000  -- weight and shape/damage gives it away; always identified+  , iaspects = [ SetFlag Unique+               , Timeout 8  -- 1.5m handle and heavy, but unique+               , AddSkill SkHurtMelee $ (-20 + 1 `dL` 10) * 5  -- 50--95+               , EqpSlot EqpSlotWeaponBig+               , SetFlag Durable, SetFlag Meleeable+               , toVelocity 0 ]  -- totally unbalanced+  , ieffects = [ Explode S_SPARK+                   -- we can't use a focused explosion, because it would harm+                   -- the hammer wielder as well, unlike this one; it's already+                   -- risky, since it may alert other factions; can reveal+                   -- other enemies rarely, though+               , RefillHP (-15) ]  -- hammer tanks prefer consistent damage+                                   -- over 1-shot kills, so this is not OP+  , idesc    = "High carbon steel of this heavy old hammer doesn't yield even to the newest alloys and produces fountains of sparks in defiance. Whatever it forge-welds together, stays together. Don't try to use it without training, however."+  }++-- The standard melee weapons do most of their damage as kinetic edged+-- or piercing, affected by armor and hurt skill.++knife = ItemKind+  { isymbol  = symbolEdged+  , iname    = "cleaver"+  , ifreq    = [(COMMON_ITEM, 100), (STARTING_WEAPON, 100), (S_CLEAVER, 1)]+  , iflavour = zipPlain [BrCyan]+  , icount   = 1+  , irarity  = [(1, 3), (3, 3), (5, 40), (9, 1)]+                 -- useful initially and for crafting mid-game+  , iverbHit = "cut"+  , iweight  = 1000+  , idamage  = 5 `d` 1+  , iaspects = [ Timeout 3+               , AddSkill SkHurtMelee $ (1 `d` 2 + 1 `dL` 3) * 3+                   -- very common, so don't make too random nor too good+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponFast+               , toVelocity 40 ]  -- ensuring it hits with the tip costs speed+  , ieffects = []+  , idesc    = "A heavy professional kitchen blade. Will do fine cutting any kind of meat, bone and an occasional metal can. Does not penetrate deeply, but is quick to move and hard to block. Especially useful in conjunction with a larger weapon."+  , ikit     = []+  }+daggerDropBestWeapon = knife+  { iname    = "The Double Dagger"+  , ifreq    = [(TREASURE, 40), (MUSEAL, 100)]+  , irarity  = [(1, 3), (10, 2)]+  , iaspects = SetFlag Unique+               : iaspects knife+  , ieffects = [Discharge 1 50, Yell]  -- powerful and low timeout, but noisy+                                       -- and no effect if no weapons charged+  , idesc    = "An antique double dagger that a focused fencer can use to catch and twist away an opponent's blade."+  }+dagger = knife+  { iname    = "dagger"+  , ifreq    = [(COMMON_ITEM, 4), (S_DAGGER, 1), (STARTING_WEAPON, 4)]+  , iverbHit = "open"+  , irarity  = [(7, 20)]  -- like hammer, not knife, to prevent excess+  , idamage  = 7 `d` 1+  , idesc    = "A double-edged knife with a sharp tip that penetrates the smallest defence gaps, making it especially useful in conjunction with a larger but less nimble weapon."+  }+sword = ItemKind  -- dead end, but can be crafted with just one file tool+  { isymbol  = symbolPolearm+  , iname    = "sharpened pipe"+  , ifreq    = [ (COMMON_ITEM, 4), (STARTING_WEAPON, 30)+               , (S_SHARPENED_PIPE, 1) ]+  , iflavour = zipFancy [BrCyan]+  , icount   = 1+  , irarity  = [(3, 1), (6, 15)]+  , iverbHit = "stab"+  , iweight  = 2000+  , idamage  = 10 `d` 1  -- with high melee bonus, better than a good hammer+  , iaspects = [ Timeout 7  -- unique in that there's no randomness+               , EqpSlot EqpSlotWeaponBig+               , SetFlag Durable, SetFlag Meleeable+               , toVelocity 40 ]  -- ensuring it hits with the tip costs speed+  , ieffects = []+  , idesc    = "A makeshift weapon of simple design, but great potential."+  , ikit     = []+  }+swordImpress = sword+  { isymbol  = symbolEdged+  , iname    = "The Master's Sword"+  , ifreq    = [(TREASURE, 40), (MUSEAL, 100)]+  , irarity  = [(5, 1), (8, 6)]+  , iverbHit = "slash"+  , iaspects = SetFlag Unique+               : iaspects sword+  , ieffects = [Impress]+  , idesc    = "A particularly well-balanced museum piece. It has a history and in the right hands lends itself to impressive shows of fencing skill."+  }+swordNullify = sword+  { isymbol  = symbolEdged+  , iname    = "The Blunt Rapier"+  , ifreq    = [(TREASURE, 50), (S_RAPIER_BLUNT, 1)]+  , iverbHit = "pierce"+  , irarity  = [(5, 1), (8, 6)]+  , idamage  = 7 `d` 1  -- as dagger, but upgradeable and no skill bonus+  , iaspects = [ SetFlag Unique, Timeout 3, EqpSlot EqpSlotWeaponFast+               , SetFlag Durable, SetFlag Meleeable+               , toVelocity 40 ]  -- ensuring it hits with the tip costs speed+  , ieffects = []+  , idesc    = "An exuberant hand-forged roasting implement, intentionally and wisely kept blunt."+  }+swordNullifySharp = swordNullify+  { iname    = "The Roasting Rapier"+  , ifreq    = [(S_RAPIER_SHARP, 1)]+  , idamage  = 10 `d` 1+  , ieffects = [ DropItem 1 maxBound COrgan CONDITION+               , RefillCalm (-10)+               , Yell ]+  , idesc    = "A thin, acutely sharp steel blade that pierces deeply and sends its victim into abrupt, sobering shock. Originally, an exuberant hand-forged roasting implement, intentionally and wisely kept blunt."+  }+halberd = ItemKind  -- long pole+  { isymbol  = symbolPolearm+  , iname    = "pole cleaver"+  , ifreq    = [(COMMON_ITEM, 3), (STARTING_WEAPON, 70), (S_POLE_CLEAVER, 1)]+  , iflavour = zipPlain [BrYellow]+  , icount   = 1+  , irarity  = [(5, 1), (10, 3)]+  , iverbHit = "slice"+  , iweight  = 3500+  , idamage  = 11 `d` 1  -- bad, until sharpened+  , iaspects = [ Timeout 10+               , AddSkill SkHurtMelee $ (-12 + 1 `d` 4 + 1 `dL` 5) * 3+                   -- weak against armor at game start with no hurt bonus;+                   -- variety to spice up crafting+               , AddSkill SkArmorMelee 20+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponBig+               , toVelocity 20 ]  -- not balanced+  , ieffects = []+  , idesc    = "An improvised but deadly weapon made of a long kitchen cleaver glued and bound to a long pole. Not often one succeeds in making enough space to swing it freely, but even when stuck between terrain obstacles it blocks approaches effectively and makes using other weapons difficult, both by friends and foes."+  , ikit     = []+  }+oxTongue = halberd  -- long pole, because glued 1m handle worse than nothing+  { iname    = "long spear"+  , ifreq    = [(COMMON_ITEM, 1), (S_LONG_SPEAR, 1)]+  , iverbHit = "impale"+  , idamage  = 13 `d` 1+  , idesc    = "An improvised but deadly weapon made of a long, sharp dagger glued and bound to a long pole. Not often one succeeds in making enough space to thrust it freely, but even when stuck between terrain obstacles it blocks approaches effectively and makes using other weapons difficult, both by friends and foes."+  }+halberdPushActor = halberd+  { iname    = "The Blunt Swiss Halberd"+  , ifreq    = [(CRAWL_ITEM, 30), (S_HALBERD_BLUNT, 1)]+                 -- not in a museum; reenactors' gear+  , irarity  = [(7, 0), (9, 8)]+  , iaspects = SetFlag Unique+               : iaspects halberd+  , ieffects = [PushActor (ThrowMod 200 100 1)]  -- 2 steps, slow+  , idesc    = "A perfect replica made for a reenactor troupe, hardened, but missing any sharpening. Versatile, with great reach and leverage. Foes are held at a distance."+  }+halberdPushActorSharp = halberdPushActor+  { iname    = "The Swiss Halberd"+  , ifreq    = [(S_HALBERD_SHARP, 1)]+  , idamage  = 13 `d` 1+  , idesc    = "A perfect replica made for a reenactor troupe, hardened, sharpened. Versatile, with great reach and leverage. Foes are held at a distance."+  }+fireAxe = ItemKind+  { isymbol  = symbolHafted+  , iname    = "fire axe"+  , ifreq    = [(TREASURE, 20), (S_FIRE_AXE, 1), (FIRE_FIGHTING_ITEM, 5)]+                 -- not @BREACHING_TOOL@, because it trigger traps+                 -- and destroys treasure, instead of opening+  , iflavour = zipPlain [BrRed]+  , icount   = 1+  , irarity  = [(1, 1)]  -- from fire cabinets+  , iverbHit = "gouge"+  , iweight  = 1600+  , idamage  = 9 `d` 1  -- worse than sharpened pipe, but upgradable+  , iaspects = [ Timeout 7+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponBig  -- 1m handle+               , toVelocity 40 ]  -- ensuring it hits with the blade costs speed+  , ieffects = []+  , idesc    = "An axe with a spike: once used for fire fighting, now turned to a bloodier purpose."+  , ikit     = []+  }+pollaxe = fireAxe+  { iname    = "pollaxe"+  , ifreq    = [(TREASURE, 2), (S_POLL_AXE, 1)]+  , iflavour = zipPlain [BrRed]+  , iverbHit = "carve"+  , iweight  = 4500+  , idamage  = 15 `d` 1+  , iaspects = [ Timeout $ 15 - 1 `dL` 5  -- variety to spice up crafting+               , AddSkill SkArmorMelee 20+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponBig+               , toVelocity 20 ]  -- not balanced+  , ieffects = [OnUser (Discharge 5 50)]+  , idesc    = "A long-hafted spiked axe: great reach and momentum, but so unbalanced that fighters swinging it can't control their combat stance."+  }+militaryKnife = knife+  { iname    = "military knife"+  , ifreq    = [ (TREASURE, 1), (WIRECUTTING_TOOL, 2), (MERCENARY_WEAPON, 70)+               , (STARTING_WEAPON, 3) ]+  , iflavour = zipFancy [Green]+  , irarity  = [(10, 15)]  -- in crawl, comes bundled with tools+  , iweight  = 500  -- too small to attach to a pole+  , idamage  = 7 `d` 1+  , iaspects = [ Timeout 2+               , AddSkill SkHurtMelee $ (-1 + 1 `d` 3 + 1 `dL` 2) * 3+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponFast+               , toVelocity 50 ]  -- designed also for throwing+  , ieffects = [ RefillHP (-1)+                   -- @RefillHP@ to avoid a no-brainer of durable tool use+               , DropItem 1 maxBound COrgan CONDITION ]+                   -- useful for AI who is the main user of this weapon+  , idesc    = "Military design laser-sharpened alloy blade able to cleanly open an artery at the lightest touch through layers of fabric. Despite its modest size, it defeats barbed wire in one slice."+  }+militaryBaton = ItemKind+  { isymbol  = symbolHafted+  , iname    = "military stun gun"+  , ifreq    = [(TREASURE, 1), (MERCENARY_WEAPON, 30)]+  , iflavour = zipFancy [Green]+  , icount   = 1+  , irarity  = [(10, 10)]+  , iverbHit = "prod"+  , iweight  = 1000+  , idamage  = 6 `d` 1+  , iaspects = [ Timeout 7+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponBig+               , toVelocity 40 ]+  , ieffects = [Discharge 1 100, RefillCalm (-50)]+      -- don't overdo discharging or unequipping becomes beneficial+  , idesc    = "A direct contact electroshock weapon with unlimited and fast recharging. Ideal for close quarter fights inside space habitats, where preserving the integrity of the outer hull is paramount."+  , ikit     = []+  }+cattleProd = militaryBaton+  { iname    = "electric cattle prod"+  , ifreq    = [(COMMON_ITEM, 100)]+  , iflavour = zipPlain [Brown]+  , irarity  = [(8, 5)]+  , idamage  = 5 `d` 1+  , ieffects = [Discharge 1 60, RefillCalm (-30)]+      -- The Calm effect helps to place it as one of the first weapons.+  , idesc    = "Used for subduing unruly zoo animals."+  }++-- The combat value of the following class of weapons is very limited,+-- but they or their components can be used for crafting.++gardenMsg :: Effect+gardenMsg = VerbMsgFail "feel the gardening tool fracture" "."+gardenDestruct :: GroupName ItemKind -> Effect+gardenDestruct grp =+  OnUser $ OneOf $+    DestroyItem 1 1 CEqp grp+    `AndEffect`+    SeqEffect [ CreateItem Nothing CStash HANDLE timerNone+              , CreateItem Nothing CStash STEEL_SCRAP timerNone ]+    : replicate 3 gardenMsg+grassStitcher = ItemKind+  { isymbol  = symbolPolearm+  , iname    = "grass stitcher"+  , ifreq    = [ (COMMON_ITEM, 10), (HANDLE_AND_STEEL, 1)+               , (GARDENING_TOOL, 100), (S_GRASS_STITCHER, 1) ]+  , iflavour = zipPlain [Green]+  , icount   = 1+  , irarity  = [(1, 1)] -- beyond level 3 they mostly appear with treePruner+  , iverbHit = "stab"+  , iweight  = 500+  , idamage  = 5 `d` 1+  , iaspects = [ Timeout 3  -- light and can hit with any side+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponFast+               , toVelocity 30 ]+  , ieffects = [gardenDestruct S_GRASS_STITCHER]+  , idesc    = ""  -- TODO: https://en.wikipedia.org/wiki/Grass_Stitcher+  , ikit     = [(GARDENING_TOOL, CGround), (GARDENING_TOOL, CGround)]+  }+ladiesFork = grassStitcher+  { iname    = "ladies' fork"+  , ifreq    = [ (COMMON_ITEM, 10), (HANDLE_AND_STEEL, 1)+               , (GARDENING_TOOL, 100), (S_LADIES_FORK, 1) ]+  , iflavour = zipFancy [Green]+  , iweight  = 1000+  , idamage  = 6 `d` 1+  , iaspects = [ Timeout 5+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponBig+               , toVelocity 40 ]+  , ieffects = [gardenDestruct S_LADIES_FORK]+  , idesc    = ""  -- TODO: https://en.wikipedia.org/wiki/Garden_fork+  , ikit     = [(GARDENING_TOOL, CGround)]+  }+hoe = grassStitcher+  { isymbol  = symbolHafted+  , iname    = "hoe"+  , ifreq    = [ (COMMON_ITEM, 10), (HANDLE_AND_STEEL, 1)+               , (GARDENING_TOOL, 100), (S_HOE, 1) ]+  , iflavour = zipFancy [Cyan]+  , iverbHit = "hack"+  , iweight  = 1000+  , idamage  = 7 `d` 1  -- neither sharp nor heavy+  , iaspects = [ Timeout 7+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponBig+               , toVelocity 40 ]+  , ieffects = [gardenDestruct S_HOE]+  , idesc    = ""  -- TODO: https://en.wikipedia.org/wiki/Hoe_(tool)+  , ikit     = [(GARDENING_TOOL, CGround)]+  }+spade = grassStitcher+  { isymbol  = symbolHafted  -- swinging much more deadly than gouging+  , iname    = "spade"+  , ifreq    = [ (COMMON_ITEM, 10), (HANDLE_AND_STEEL, 1)+               , (GARDENING_TOOL, 100), (S_SPADE, 1) ]+  , iflavour = zipPlain [Cyan]+  , iverbHit = "cut"+  , iweight  = 2000+  , idamage  = 8 `d` 1+  , iaspects = [ Timeout 9+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotWeaponBig+               , toVelocity 50 ]+  , ieffects = [gardenDestruct S_SPADE]+  , idesc    = ""  -- TODO: https://en.wikipedia.org/wiki/Spade+  , ikit     = []  -- most powerful, most likely to come alone+  }+treePruner = grassStitcher+  { iname    = "long reach tree pruner"+  , ifreq    = [(COMMON_ITEM, 100), (POLE_AND_STEEL, 1)]+  , iflavour = zipFancy [BrRed]+  , irarity  = [(1, 12)]  -- early, while the weapon is still useful+  , iweight  = 4500+  , idamage  = 3 `d` 1+  , iaspects = [ Timeout 7+               , AddSkill SkArmorMelee 20  -- sharp+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotArmorMelee+               , toVelocity 50 ]+  , ieffects = []+  , idesc    = "A heavy tree lopper on a sturdy long pole."+  , ikit     = [(GARDENING_TOOL, CGround)]+  }+cleaningPole = grassStitcher+  { iname    = "window cleaning pole"+  , ifreq    = [(COMMON_ITEM, 100), (POLE_AND_STEEL, 1)]+  , iflavour = zipPlain [Blue]+  , irarity  = [(10, 6)]  -- last chance of a long pole+  , iweight  = 3500+  , idamage  = 2 `d` 1+  , iaspects = [ AddSkill SkArmorMelee 10  -- not sharp, so weaker+               , SetFlag Durable, SetFlag Meleeable  -- a fence may melee with+               , EqpSlot EqpSlotArmorMelee+               , toVelocity 40 ]+  , ieffects = []+  , idesc    = "A cleaning contraption for glass surfaces, mounted on a long synthetic pole."+  , ikit     = []+  }+staff = grassStitcher+  { isymbol  = symbolHafted+  , iname    = "wooden staff"+  , ifreq    = [(HANDLE, 70), (POLE_OR_HANDLE, 55), (S_STAFF, 1)]+  , iflavour = zipPlain [Brown]+  , iverbHit = "prod"+  , iweight  = 1000+  , idamage  = 1 `d` 1+  , iaspects = [ SetFlag Durable  -- prevent AI wield; boring, often too weak+               , toVelocity 30 ]  -- a weak missile and that's all+  , ieffects = []+  , idesc    = "A handle of a make-shift tool to be crafted."+  , ikit     = []+  }+pipe = staff+  { iname    = "metal pipe"+  , ifreq    = [(HANDLE, 30), (POLE_OR_HANDLE, 15), (S_PIPE, 1)]+  , iflavour = zipFancy [BrBlue]+  , idamage  = 2 `d` 1+  , idesc    = "Around a meter long, light, strong and hard alloy pipe. With one or both ends cut diagonally and sharpened, this would become a formidable weapon."+  }+longPole = staff+  { iname    = "long pole"+  , ifreq    = [(POLE, 90), (POLE_OR_HANDLE, 30)]+  , iflavour = zipPlain [BrYellow]+  , iweight  = 3000+  , idamage  = 2 `d` 1+  , iaspects = [ AddSkill SkArmorMelee 10  -- not sharp, so weaker+               , SetFlag Durable, SetFlag Meleeable+               , EqpSlot EqpSlotArmorMelee+               , toVelocity 20 ]+  , idesc    = "Over two meters long, strong and light pole."+  }++-- ** Treasure++gemTemplate = ItemKind+  { isymbol  = symbolGold+  , iname    = "gem"+  , ifreq    = [(GEM_UNKNOWN, 1), (VALUABLE, 100)]+  , iflavour = zipPlain $ delete BrYellow brightCol  -- natural, so not fancy+  , icount   = 1+  , irarity  = []+  , iverbHit = "tap"+  , iweight  = 50+  , idamage  = 0+  , iaspects = [PresentAs GEM_UNKNOWN, SetFlag Precious]+  , ieffects = []+  , idesc    = "Precious, though useless. Worth around 100 gold grains."+  , ikit     = []+  }+gem1 = gemTemplate+  { ifreq    = [ (TREASURE, 100), (GEM, 100), (ANY_JEWELRY, 10)+               , (VALUABLE, 100) ]+  , irarity  = [(3, 0), (6, 12), (10, 8)]+  , iaspects = [AddSkill SkShine 1, AddSkill SkSpeed (-1)]+                 -- reflects strongly, distracts; so it glows in the dark,+                 -- is visible on dark floor, but not too tempting to wear+               ++ iaspects gemTemplate+  }+gem2 = gem1+  { ifreq    = [ (TREASURE, 150), (GEM, 100), (ANY_JEWELRY, 10)+               , (VALUABLE, 100) ]+  , irarity  = [(5, 0), (7, 25), (10, 8)]+  }+gem3 = gem1+  { ifreq    = [ (TREASURE, 150), (GEM, 100), (ANY_JEWELRY, 10)+               , (VALUABLE, 100) ]+  , irarity  = [(7, 0), (8, 30), (10, 8)]+  }+gem4 = gem1+  { ifreq    = [ (TREASURE, 150), (GEM, 100), (ANY_JEWELRY, 30)+               , (VALUABLE, 100) ]+  , irarity  = [(9, 0), (10, 40)]+  }+gem5 = gem1+  { isymbol  = symbolSpecial+  , iname    = "stimpack"+  , ifreq    = [ (TREASURE, 200), (GEM, 25), (ANY_JEWELRY, 10)+               , (VALUABLE, 100) ]+  , iflavour = zipPlain [BrYellow]+  , irarity  = [(1, 40), (10, 10)]+  , iaspects = [ ELabel "of youth", SetFlag Precious  -- not hidden+               , AddSkill SkOdor (-1) ]+  , ieffects = [RefillCalm 10, RefillHP 40]+  , idesc    = "Calms, heals, invigorates, rejuvenates and smells nice. No side-effects. As valuable as precious gems, at 100 gold grains each."+  }+currencyTemplate = ItemKind+  { isymbol  = symbolGold+  , iname    = "gold grain"+  , ifreq    = [(CURRENCY_UNKNOWN, 1), (VALUABLE, 1)]+  , iflavour = zipPlain [BrYellow]+  , icount   = 10 + 1 `d` 20 + 1 `dL` 20+  , irarity  = [(1, 25), (10, 10)]+  , iverbHit = "tap"+  , iweight  = 1+  , idamage  = 0+  , iaspects = [PresentAs CURRENCY_UNKNOWN, SetFlag Precious]+  , ieffects = []+  , idesc    = "Reliably valuable in every civilized place."+  , ikit     = []+  }+currency = currencyTemplate+  { ifreq    = [(TREASURE, 100), (S_CURRENCY, 100), (VALUABLE, 1)]+  , iaspects = [AddSkill SkShine 1, AddSkill SkSpeed (-1)]+               ++ iaspects currencyTemplate+  }++-- ** Tools to be actively used, but not worn++jumpingPole = ItemKind+  { isymbol  = symbolWand+  , iname    = "jumping pole"+  , ifreq    = [(COMMON_ITEM, 100), (POLE, 10)]+  , iflavour = zipFancy [White]+  , icount   = 1+  , irarity  = [(6, 14)]  -- effect useful early, but too many poles early+  , iverbHit = "prod"+  , iweight  = 4000+  , idamage  = 0+  , iaspects = [ Timeout $ (4 + 1 `d` 2 - 1 `dL` 2) * 5+               , SetFlag Durable ]+  , ieffects = [toOrganGood S_HASTED 1]+                 -- This works and doesn't cause AI loops. @InsertMove@+                 -- would produce an activation that doesn't change game state.+                 -- Hasting for an absolute number of turns would cause+                 -- an explosion of time when several poles are accumulated.+                 -- Here it speeds AI up for exactly the turn spent activating,+                 -- so when AI applies it repeatedly, it gets its time back and+                 -- is not stuck. In total, the exploration speed is unchanged,+                 -- but it's useful when fleeing in the dark to make distance+                 -- and when initiating combat, so it's OK that AI uses it.+                 -- Timeout is rather high, because for factions with leaders+                 -- some time is often gained, so this could be useful+                 -- even during melee, which would be tiresome to employ.+  , idesc    = "Makes you vulnerable at take-off, but then you are free like a bird."+  , ikit     = []+  }++-- ** Detachable and usable, in various ways, robot body parts++constructionHooter = necklaceTemplate+  { iname    = "construction hooter"+  , ifreq    = [(CONSTRUCTION_HOOTER, 1), (COMMON_ITEM, 1), (ARMOR_LOOSE, 1)]+                   -- extremely rare, but dropped by decontamination chambers+  , iflavour = zipPlain [BrRed]+  , irarity  = [(1, 1)]+  , iweight  = 1000+  , iaspects = [ AddSkill SkArmorMelee 2+               , SetFlag Durable, toVelocity 50+               , SetFlag Equipable, EqpSlot EqpSlotArmorMelee]+  , ieffects = [Yell, Summon CONSTRUCTION_ROBOT 1]+  , idesc    = "An emergency hooter for alarming human personnel in case their life is in danger. Worn by construction robots around their \"neck\", where it's least exposed, but even there it needs to be heavily armored and running on its own power supply."+  }+wasteContainer = ItemKind+  { isymbol  = symbolTool+  , iname    = "waste container"+  , ifreq    = [(WASTE_CONTAINER, 1), (WATER_SOURCE, 1), (ARMOR_LOOSE, 1)]+  , iflavour = zipLiquid [Green]+  , icount   = 1+  , irarity  = [(1, 1)]+  , iverbHit = "spill over"+  , iweight  = 30000+  , idamage  = 0+  , iaspects = [ Timeout $ (1 `d` 2) * 30  -- robots should not summon too often+               , AddSkill SkArmorMelee 20  -- tempting+               , AddSkill SkMaxCalm (-30)  -- punishes excessive stacking+               , SetFlag Periodic, SetFlag Equipable+               , EqpSlot EqpSlotArmorMelee ]+  , ieffects = [ Detect DetectLoot 20+               , When (TriggeredBy ActivationPeriodic) $ SeqEffect+                   [ Summon MOBILE_ANIMAL $ 1 `dL` 2+                   , Explode S_WASTE ] ]+  , idesc    = "Waste recognition and utilization subsystem. Detects any stray item not registered as a passenger's cargo. Leaks a little. But one man's trash is another man's treasure and so this item has many beneficial uses."+  , ikit     = []+  }+spotlight = ItemKind+  { isymbol  = symbolLight+  , iname    = "spotlight"+  , ifreq    = [(SPOTLIGHT, 1)]+  , iflavour = zipPlain [White]+  , icount   = 1+  , irarity  = [(1, 1)]+  , iverbHit = "illuminate"+  , iweight  = 3000+  , idamage  = 0+  , iaspects = [ AddSkill SkShine 3+               , AddSkill SkHurtMelee (-2)  -- heavy and unwieldy+               , SetFlag Equipable, EqpSlot EqpSlotShine ]+  , ieffects = [Detect DetectHidden 10]+  , idesc    = "Powerful wide-beam spotlight in an unwieldy rack-mounted package. On full power, it can shine through thin construction surfaces, underlying fault lines."+  , ikit     = []+  }+seeingItem = ItemKind+  { isymbol  = symbolRing+  , iname    = "visual sensor"+  , ifreq    = [(COMMON_ITEM, 100)]+  , iflavour = zipPlain [BrBlue]+  , icount   = 1+  , irarity  = [(1, 2)]+  , iverbHit = "gaze at"+  , iweight  = 500+  , idamage  = 0+  , iaspects = [ Timeout 3+               , AddSkill SkSight 10  -- a spyglass for quick wields+               , AddSkill SkMaxCalm 30  -- to diminish clipping sight by Calm+               , AddSkill SkShine 2  -- to lit corridors when flying+               , AddSkill SkMaxHP (-30)  -- prevent excessive stacking+               , SetFlag Periodic ]+  , ieffects = [ Detect DetectActor 20  -- rare enough that one-time is not OP+               , When (TriggeredBy ActivationPeriodic) $ SeqEffect+                   [ Explode S_SINGLE_SPARK+                   , toOrganNoTimer S_POISONED  -- really can't be worn+                   , Summon MOBILE_ROBOT 1 ] ]+  , idesc    = "An oversize visual sensor freshly torn out of some unfortunate robot. It still sends a clear picture to unidentified receivers, even though the coolant liquid seeps from the seized servos and many internal contacts spark loose."   , ikit     = []   }

@@ -1,33 +1,130 @@ -- Copyright (c) 2008--2011 Andres Loeh--- Copyright (c) 2010--2019 Mikolaj Konarski and others (see git history)+-- Copyright (c) 2010--2021 Mikolaj Konarski and others (see git history) -- This file is a part of the computer game Allure of the Stars -- and is released under the terms of the GNU Affero General Public License. -- For license and copyright information, see the file LICENSE. -- -- | Actor (or rather actor body trunk) definitions. module Content.ItemKindActor-  ( actors+  ( -- * Group name patterns+    pattern S_WOODEN_TORCH+  , pattern HERO, pattern SCOUT_HERO, pattern RANGER_HERO, pattern ESCAPIST_HERO, pattern AMBUSHER_HERO, pattern BRAWLER_HERO, pattern SOLDIER_HERO, pattern CIVILIAN, pattern MONSTER, pattern MOBILE_MONSTER, pattern SCOUT_MONSTER, pattern ANIMAL, pattern MOBILE_ANIMAL, pattern IMMOBILE_ANIMAL+  , pattern ADD_SIGHT, pattern ARMOR_RANGED, pattern ADD_NOCTO_1, pattern WEAK_ARROW, pattern LIGHT_ATTENUATOR, pattern FIREPROOF_CLOTH, pattern RING_OF_OPPORTUNITY_SNIPER, pattern ANY_ARROW, pattern STARTING_ARMOR, pattern STARTING_WEAPON, pattern GEM+  , pattern CRAWL_HERO, pattern MERCENARY_HERO, pattern AQUATIC_ANIMAL, pattern AQUATIC_MONSTER, pattern EXPLOSIVE_MONSTER, pattern ROBOT, pattern MOBILE_ROBOT, pattern IMMOBILE_ROBOT, pattern CONSTRUCTION_ROBOT+  , pattern S_BULLTEPROOF_VEST, pattern S_PERFUME_POTION, pattern S_EMPTY_FLASK+  , pattern COOKED_FOOD, pattern MERCENARY_WEAPON, pattern MERCENARY_AMMO, pattern RAW_MEAT_CHUNK, pattern ROASTED_MEAT_CHUNK, pattern NEEDLE, pattern CAN_OF_STICKY_FOAM, pattern TRANQUILIZER_DART, pattern WASTE_CONTAINER, pattern CONSTRUCTION_HOOTER, pattern SPOTLIGHT, pattern BLOWTORCH, pattern POLE, pattern POLE_OR_HANDLE, pattern BREACHING_TOOL, pattern BONDING_TOOL, pattern SHARPENING_TOOL, pattern WIRECUTTING_TOOL+  , actorsGN, actorsGNSingleton+  , -- * Content+    actors   ) where  import Prelude ()  import Game.LambdaHack.Core.Prelude +import Content.ItemKindOrgan import Game.LambdaHack.Content.ItemKind import Game.LambdaHack.Definition.Ability import Game.LambdaHack.Definition.Color import Game.LambdaHack.Definition.Defs import Game.LambdaHack.Definition.Flavour +-- * Group name patterns++actorsGNSingleton :: [GroupName ItemKind]+actorsGNSingleton =+       [S_WOODEN_TORCH, S_BULLTEPROOF_VEST, S_PERFUME_POTION, S_EMPTY_FLASK]++pattern S_WOODEN_TORCH, S_BULLTEPROOF_VEST, S_PERFUME_POTION, S_EMPTY_FLASK :: GroupName ItemKind++actorsGN :: [GroupName ItemKind]+actorsGN =+       [HERO, SCOUT_HERO, RANGER_HERO, ESCAPIST_HERO, AMBUSHER_HERO, BRAWLER_HERO, SOLDIER_HERO, CIVILIAN, MONSTER, MOBILE_MONSTER, SCOUT_MONSTER, ANIMAL, MOBILE_ANIMAL, IMMOBILE_ANIMAL]+    ++ [ADD_SIGHT, ARMOR_RANGED, ADD_NOCTO_1, WEAK_ARROW, LIGHT_ATTENUATOR, FIREPROOF_CLOTH, RING_OF_OPPORTUNITY_SNIPER, ANY_ARROW, STARTING_ARMOR, STARTING_WEAPON, GEM]+    ++ [CRAWL_HERO, MERCENARY_HERO, AQUATIC_ANIMAL, AQUATIC_MONSTER, EXPLOSIVE_MONSTER, ROBOT, MOBILE_ROBOT, IMMOBILE_ROBOT, CONSTRUCTION_ROBOT]+    ++ [COOKED_FOOD, MERCENARY_WEAPON, MERCENARY_AMMO, RAW_MEAT_CHUNK, ROASTED_MEAT_CHUNK, NEEDLE, CAN_OF_STICKY_FOAM, TRANQUILIZER_DART, WASTE_CONTAINER, CONSTRUCTION_HOOTER, SPOTLIGHT, BLOWTORCH, POLE, POLE_OR_HANDLE, BREACHING_TOOL, BONDING_TOOL, SHARPENING_TOOL, WIRECUTTING_TOOL]++pattern HERO, SCOUT_HERO, RANGER_HERO, ESCAPIST_HERO, AMBUSHER_HERO, BRAWLER_HERO, SOLDIER_HERO, CIVILIAN, MONSTER, MOBILE_MONSTER, SCOUT_MONSTER, ANIMAL, MOBILE_ANIMAL, IMMOBILE_ANIMAL :: GroupName ItemKind++pattern ADD_SIGHT, ARMOR_RANGED, ADD_NOCTO_1, WEAK_ARROW, LIGHT_ATTENUATOR, FIREPROOF_CLOTH, RING_OF_OPPORTUNITY_SNIPER, ANY_ARROW, STARTING_ARMOR, STARTING_WEAPON, GEM :: GroupName ItemKind++pattern CRAWL_HERO, MERCENARY_HERO, AQUATIC_ANIMAL, AQUATIC_MONSTER, EXPLOSIVE_MONSTER, ROBOT, MOBILE_ROBOT, IMMOBILE_ROBOT, CONSTRUCTION_ROBOT :: GroupName ItemKind++pattern COOKED_FOOD, MERCENARY_WEAPON, MERCENARY_AMMO, RAW_MEAT_CHUNK, ROASTED_MEAT_CHUNK, NEEDLE, CAN_OF_STICKY_FOAM, TRANQUILIZER_DART, WASTE_CONTAINER, CONSTRUCTION_HOOTER, SPOTLIGHT, BLOWTORCH, POLE, POLE_OR_HANDLE, BREACHING_TOOL, BONDING_TOOL, SHARPENING_TOOL, WIRECUTTING_TOOL :: GroupName ItemKind++-- ** Common+pattern HERO = GroupName "hero"+pattern SCOUT_HERO = GroupName "scout hero"+pattern RANGER_HERO = GroupName "ranger hero"+pattern ESCAPIST_HERO = GroupName "escapist hero"+pattern AMBUSHER_HERO = GroupName "ambusher hero"+pattern BRAWLER_HERO = GroupName "brawler hero"+pattern SOLDIER_HERO = GroupName "fighter hero"+pattern CIVILIAN = GroupName "civilian"+pattern MONSTER = GroupName "monster"+pattern MOBILE_MONSTER = GroupName "mobile monster"+pattern SCOUT_MONSTER = GroupName "scout monster"+pattern ANIMAL = GroupName "animal"+pattern MOBILE_ANIMAL = GroupName "mobile animal"+pattern IMMOBILE_ANIMAL = GroupName "immobile animal"++-- ** Allure-specific+pattern CRAWL_HERO = GroupName "crawl hero"+pattern MERCENARY_HERO = GroupName "mercenary hero"+pattern AQUATIC_ANIMAL = GroupName "aquatic animal"+pattern AQUATIC_MONSTER = GroupName "aquatic monster"+pattern EXPLOSIVE_MONSTER = GroupName "explosive monster"+pattern ROBOT = GroupName "robot"+pattern MOBILE_ROBOT = GroupName "mobile robot"+pattern IMMOBILE_ROBOT = GroupName "immobile robot"+pattern CONSTRUCTION_ROBOT = GroupName "construction robot"++-- ** Common+pattern S_WOODEN_TORCH = GroupName "wooden torch"++pattern ADD_SIGHT = GroupName "sight improvement"+pattern ARMOR_RANGED = GroupName "ranged armor"+pattern ADD_NOCTO_1 = GroupName "noctovision improvement"+pattern WEAK_ARROW = GroupName "weak arrow"+pattern LIGHT_ATTENUATOR = GroupName "light attenuator"+pattern FIREPROOF_CLOTH = GroupName "fireproof cloth"+pattern RING_OF_OPPORTUNITY_SNIPER = GroupName "ring of sniper"+pattern ANY_ARROW = GroupName "arrow"+pattern STARTING_ARMOR = GroupName "starting armor"+pattern STARTING_WEAPON = GroupName "starting weapon"+pattern GEM = GroupName "gem"++-- ** Allure-specific+pattern S_BULLTEPROOF_VEST = GroupName "bulletproof vest"+pattern S_PERFUME_POTION = GroupName "perfume potion"+pattern S_EMPTY_FLASK = GroupName "empty flask"++pattern COOKED_FOOD = GroupName "cooked food"+pattern MERCENARY_WEAPON = GroupName "mercenary weapon"+pattern MERCENARY_AMMO = GroupName "mercenary ammo"+pattern RAW_MEAT_CHUNK = GroupName "raw meat chunk"+pattern ROASTED_MEAT_CHUNK = GroupName "roasted meat chunk"+pattern NEEDLE = GroupName "needle"+pattern CAN_OF_STICKY_FOAM = GroupName "can of sticky foam"+pattern TRANQUILIZER_DART = GroupName "tranquillizer dart"+pattern WASTE_CONTAINER = GroupName "waste container"+pattern CONSTRUCTION_HOOTER = GroupName "construction hooter"+pattern SPOTLIGHT = GroupName "spotlight"+pattern BLOWTORCH = GroupName "blowtorch"+pattern POLE = GroupName "pole"+pattern POLE_OR_HANDLE = GroupName "pole or handle"+pattern BREACHING_TOOL = GroupName "breaching tool"+pattern BONDING_TOOL = GroupName "bonding tool"+pattern SHARPENING_TOOL = GroupName "sharpening tool"+pattern WIRECUTTING_TOOL = GroupName "wirecutting tool"++-- * Content+ actors :: [ItemKind] actors =-  [warrior, warrior2, warrior3, warrior4, warrior5, scout, ranger, escapist, ambusher, soldier, civilian, civilian2, civilian3, civilian4, civilian5, eye, fastEye, nose, elbow, torsor, goldenJackal, griffonVulture, skunk, armadillo, gilaMonster, rattlesnake, hyena, komodoDragon, alligator, rhinoceros, beeSwarm, hornetSwarm, thornbush]-  -- Allure-specific-  ++ [giantOctopus, razorwireFence, electricFence, activeFence, steamFaucet, biogasFaucet, medbotFaucet, surveillanceDrone, shepherdDrone, huntingDrone, homeRobot, wasteRobot, lightRobot, heavyRobot, weldedRobot, cleanerRobot]+  [warrior, warrior2, scout, ranger, escapist, ambusher, brawler, fighter, mercenary, civilian, civilian2, civilian3, civilian4, civilian5, eye, fastEye, nose, elbow, elbowTank, intruder, torsor, goldenJackal, griffonVulture, skunk, armadillo, gilaMonster, rattlesnake, hyena, komodoDragon, alligator, giantOctopus, lion, rhinoceros, beeSwarm, hornetSwarm, thornbush, razorwireFence, electricFence, activeFence, steamFaucet, coolingFaucet, medbotFaucet, dustFaucet, fuelFaucet, surveillanceDrone, shepherdDrone, huntingDrone, homeRobot, wasteRobot, lightRobot, heavyRobot, weldedRobot, cleanerRobot] -warrior,    warrior2, warrior3, warrior4, warrior5, scout, ranger, escapist, ambusher, soldier, civilian, civilian2, civilian3, civilian4, civilian5, eye, fastEye, nose, elbow, torsor, goldenJackal, griffonVulture, skunk, armadillo, gilaMonster, rattlesnake, hyena, komodoDragon, alligator, rhinoceros, beeSwarm, hornetSwarm, thornbush :: ItemKind--- Allure-specific-giantOctopus, razorwireFence, electricFence, activeFence, steamFaucet, biogasFaucet, medbotFaucet, surveillanceDrone, shepherdDrone, huntingDrone, homeRobot, wasteRobot, lightRobot, heavyRobot, weldedRobot, cleanerRobot :: ItemKind+warrior,    warrior2, scout, ranger, escapist, ambusher, brawler, fighter, mercenary, civilian, civilian2, civilian3, civilian4, civilian5, eye, fastEye, nose, elbow, elbowTank, intruder, torsor, goldenJackal, griffonVulture, skunk, armadillo, gilaMonster, rattlesnake, hyena, komodoDragon, alligator, giantOctopus, lion, rhinoceros, beeSwarm, hornetSwarm, thornbush, razorwireFence, electricFence, activeFence, steamFaucet, coolingFaucet, medbotFaucet, dustFaucet, fuelFaucet, surveillanceDrone, shepherdDrone, huntingDrone, homeRobot, wasteRobot, lightRobot, heavyRobot, weldedRobot, cleanerRobot :: ItemKind  -- Note that the actors that appear in the crawl scenario should -- be generated with at most ordinary ammo. Otherwise, farming them@@ -38,13 +135,22 @@ -- * Hunams  humanOrgans :: [(GroupName ItemKind, CStore)]-humanOrgans = [ ("fist", COrgan), ("foot", COrgan)-              , ("eye 6", COrgan), ("ear 3", COrgan)-              , ("sapient brain", COrgan) ]+humanOrgans = [ (S_FIST, COrgan), (S_FOOT, COrgan)+              , (S_EYE_6, COrgan), (S_EAR_3, COrgan)+              , (S_SAPIENT_BRAIN, COrgan)+              , (S_ANIMAL_STOMACH, COrgan), (S_HUNGRY, COrgan)+              , (BACKSTORY, COrgan) ]+                  -- TODO: when enough backstory items created,+                  -- include many backstory categories here instead and add+                  -- a bit of variation among warriors, some kinds+                  -- getting a good and a bad where another test a mixed one+                  -- instead, etc. Characters should still be recognizable+                  -- and slighty different backstory emphasis between games+                  -- matches human plasticity. warrior = ItemKind   { isymbol  = '@'-  , iname    = "mercenary"  -- modified if initial actors in hero faction-  , ifreq    = [("hero", 100), ("crawl hero", 100), ("mobile", 1)]+  , iname    = "adventurer"  -- modified if initial actors in hero faction+  , ifreq    = [(HERO, 100), (CRAWL_HERO, 100), (MOBILE, 1)]   , iflavour = zipPlain [BrWhite]   , icount   = 1   , irarity  = [(1, 5)]@@ -61,85 +167,86 @@                , AddSkill SkOdor 1                , SetFlag Durable ]   , ieffects = []-  , idesc    = ""-  , ikit     = humanOrgans ++ [("genetic flaw 10", COrgan)]+  , idesc    = "A human equipped for an adventure."+  , ikit     = humanOrgans+               ++ [ (GENETIC_FLAW_10, COrgan)+                  , (S_EMPTY_FLASK, CStash), (COMMON_ITEM, CStash) ]   } warrior2 = warrior-  { iname    = "pilot"-  -- , idesc    = ""-  }-warrior3 = warrior-  { iname    = "engineer"-  , ifreq    = [("crawl hero", 100), ("mobile", 1)]-  , ikit     = ikit warrior ++ [("currency", CSha)]-  -- , idesc    = ""-  }-warrior4 = warrior-  { iname    = "doctor"-  , ifreq    = [("crawl hero", 100), ("mobile", 1)]-  , ikit     = ikit warrior ++ [("currency", CSha)]-  -- , idesc    = ""-  }-warrior5 = warrior-  { iname    = "hacker"-  , ifreq    = [("crawl hero", 100), ("mobile", 1)]-  , ikit     = ikit warrior ++ [("currency", CSha)]-  -- , idesc    = ""+  { ifreq    = [(CRAWL_HERO, 100), (MOBILE, 1)]+  , ikit     = humanOrgans+               ++ [ (GENETIC_FLAW_10, COrgan), (S_CURRENCY, CStash)+                  , (COOKED_FOOD, CStash), (COMMON_ITEM, CStash) ]   }- scout = warrior   { iname    = "scout"-  , ifreq    = [("scout hero", 100), ("mobile", 1)]+  , ifreq    = [(SCOUT_HERO, 100), (MOBILE, 1)]   , ikit     = humanOrgans  -- no flaw-               ++ [ ("add sight", CEqp)-                  , ("armor ranged", CEqp)-                  , ("add nocto 1", CInv) ]-  -- , idesc    = ""+               ++ [ (ADD_SIGHT, CEqp)+                  , (ARMOR_RANGED, CEqp)+                  , (ADD_NOCTO_1, CStash) ]+  , idesc    = "A human equipped for scouting."   } ranger = warrior   { iname    = "ranger"-  , ifreq    = [("ranger hero", 100), ("mobile", 1)]+  , ifreq    = [(RANGER_HERO, 100), (MOBILE, 1)]   , ikit     = humanOrgans  -- no flaw-               ++ [ ("armor ranged", CEqp)-                  , ("weak arrow", CInv) ]-  -- , idesc    = ""+               ++ [ (ARMOR_RANGED, CEqp)+                  , (WEAK_ARROW, CStash) ]+  , idesc    = "A human equipped for ranged fight."   } escapist = warrior   { iname    = "escapist"-  , ifreq    = [("escapist hero", 100), ("mobile", 1)]+  , ifreq    = [(ESCAPIST_HERO, 100), (MOBILE, 1)]   , ikit     = humanOrgans  -- no flaw-               ++ [ ("add sight", CEqp)-                  , ("armor ranged", CEqp)-                  , ("weak arrow", CInv)  -- mostly for probing-                  , ("light source", CInv)-                  , ("wooden torch", CInv)-                  , ("blanket", CInv) ]-  -- , idesc    = ""+               ++ [ (ADD_SIGHT, CEqp)+                  , (STARTING_ARMOR, CEqp)+                  , (WEAK_ARROW, CStash)  -- mostly for probing+                  , (LIGHT_ATTENUATOR, CStash)+                  , (S_WOODEN_TORCH, CStash)+                  , (FIREPROOF_CLOTH, CStash) ]+  , idesc    = "A human equipped for an escape."   } ambusher = warrior   { iname    = "ambusher"-  , ifreq    = [("ambusher hero", 100), ("mobile", 1)]+  , ifreq    = [(AMBUSHER_HERO, 100), (MOBILE, 1)]   , ikit     = humanOrgans  -- dark and numerous, so more kit without exploring-               ++ [ ("ring of opportunity sniper", CEqp)-                  , ("any arrow", CSha)-                  , ("weak arrow", CInv)-                  , ("explosive", CSha)-                  , ("light source", CEqp)-                  , ("wooden torch", CInv) ]-  -- , idesc    = ""+               ++ [ (RING_OF_OPPORTUNITY_SNIPER, CEqp)+                  , (ANY_ARROW, CStash), (ANY_ARROW, CStash)+                  , (WEAK_ARROW, CStash)+                  , (EXPLOSIVE, CStash)+                  , (LIGHT_ATTENUATOR, CEqp)+                  , (S_WOODEN_TORCH, CStash) ]+  , idesc    = "A human equipped for an ambush."   }-soldier = warrior-  { iname    = "soldier"-  , ifreq    = [("soldier hero", 100), ("mobile", 1)]+brawler = warrior+  { iname    = "brawler"+  , ifreq    = [(BRAWLER_HERO, 100), (MOBILE, 1)]   , ikit     = humanOrgans  -- no flaw-               ++ [ ("starting weapon", CEqp)-                  , ("explosive", CSha) ]-  -- , idesc    = ""+               ++ [(STARTING_WEAPON, CEqp)]+  , idesc    = "A human equipped for melee fight."   }+fighter = brawler+  { iname    = "fighter"+  , ifreq    = [(SOLDIER_HERO, 100), (MOBILE, 1)]+  , ikit     = ikit brawler+               ++ [(STARTING_WEAPON, CEqp), (EXPLOSIVE, CStash)]+  , idesc    = "A human equipped for intense combat."+  }+mercenary = brawler+  { iname    = "mercenary"+  , ifreq    = [(MERCENARY_HERO, 100), (MOBILE, 1)]+  , ikit     = humanOrgans  -- no flaw+               ++ [ (MERCENARY_WEAPON, CEqp)+                  , (S_BULLTEPROOF_VEST, CEqp)+                  , (MERCENARY_AMMO, CStash)+                  , (EXPLOSIVE, CStash) ]+  , idesc    = "A professional security contractor."+  }  civilian = warrior   { iname    = "clerk"-  , ifreq    = [("civilian", 100), ("mobile", 1)]+  , ifreq    = [(CIVILIAN, 100), (MOBILE, 1)]   , iflavour = zipPlain [BrBlack]   -- , idesc    = ""   }@@ -164,11 +271,11 @@  -- They have bright colours, because they are not natural. -eye = ItemKind+eye = ItemKind  -- depends on items it finds rather than special organs   { isymbol  = 'w'   , iname    = "beckoning walker"-  , ifreq    = [ ("monster", 100), ("mobile", 1)-               , ("mobile monster", 100), ("scout monster", 10) ]+  , ifreq    = [ (MONSTER, 100), (MOBILE, 1)+               , (MOBILE_MONSTER, 100), (SCOUT_MONSTER, 10) ]   , iflavour = zipFancy [BrRed]   , icount   = 1   , irarity  = [(3 * 10/15, 0), (4 * 10/15, 10), (10, 8)]@@ -179,90 +286,139 @@                , AddSkill SkSpeed 20, AddSkill SkNocto 2                , AddSkill SkAggression 1                , AddSkill SkProject 2  -- can lob-               , AddSkill SkApply 1  -- can even use cultural artifacts+               , AddSkill SkApply 1  -- can use even cultural artifacts                , SetFlag Durable ]   , ieffects = []   , idesc    = "Walks with a stately dignity. You read death in the slow beckoning gestures of its revolting upper appendages."-  , ikit     = [ ("foot", COrgan), ("tentacle", COrgan)-               , ("bark", COrgan), ("eye 6", COrgan)-               , ("sapient brain", COrgan) ]  -- no voice, no hearing+  , ikit     = [ (S_FOOT, COrgan), (S_TENTACLE, COrgan)+               , (S_BARK, COrgan), (S_EYE_6, COrgan)+               , (S_SAPIENT_BRAIN, COrgan) ]  -- no voice, no hearing   }-fastEye = ItemKind+fastEye = ItemKind  -- glass cannon; depends mostly on items it finds   { isymbol  = 'b'   , iname    = "rolling biter"-  , ifreq    = [ ("monster", 100), ("mobile", 1)-               , ("mobile monster", 100), ("scout monster", 60) ]+  , ifreq    = [ (MONSTER, 100), (MOBILE, 1)+               , (MOBILE_MONSTER, 100), (SCOUT_MONSTER, 60) ]   , iflavour = zipFancy [BrBlue]   , icount   = 1   , irarity  = [(3 * 10/15, 0), (4 * 10/15, 3), (10, 12)]   , iverbHit = "thud"   , iweight  = 80000   , idamage  = 0-  , iaspects = [ AddSkill SkMaxHP 5, AddSkill SkMaxCalm 70+  , iaspects = [ AddSkill SkMaxHP 12, AddSkill SkMaxCalm 70                , AddSkill SkSpeed 30, AddSkill SkNocto 2+               , AddSkill SkHurtMelee 20                , AddSkill SkAggression 1                , SetFlag Durable ]   , ieffects = []-  , idesc    = "It bites as blindingly fast as it runs. Or rolls? Or crawls? Also, cuts and pierces."-  , ikit     = [ ("jaw", COrgan), ("razor", COrgan), ("horn", COrgan)-               , ("speed gland 10", COrgan)-               , ("eye 3", COrgan), ("ear 3", COrgan)-               , ("sapient brain", COrgan) ]+  , idesc    = "It bites as blindingly fast as it runs. Or rolls? Also, cuts and pierces."+  , ikit     = [ (S_JAW, COrgan), (S_RAZOR, COrgan), (S_HORN, COrgan)+               , (S_SMALL_CLAW, COrgan)  -- at least one non-timed, not deadly+               , (S_SPEED_GLAND_10, COrgan)  -- -30 armor with horn, +20 melee+               , (S_EYE_3, COrgan), (S_EAR_3, COrgan)+               , (S_SAPIENT_BRAIN, COrgan) ]   }-nose = ItemKind  -- depends solely on smell+nose = ItemKind  -- sniffs only; a tank requiring multiple weapon hits to beat;+                 -- no armor, so special kinds of damage don't help;+                 -- slow, but despite that, danger when strong weapons wielded!   { isymbol  = 'h'-  , iname    = "clawing horror"-  , ifreq    = [ ("monster", 100), ("mobile", 1), ("mobile monster", 100)-               , ("aquatic", 30), ("aquatic monster", 30) ]  -- likes liquids+  , iname    = "crawling horror"+  , ifreq    = [ (MONSTER, 100), (MOBILE, 1), (MOBILE_MONSTER, 100)+               , (AQUATIC, 30), (AQUATIC_MONSTER, 30) ]  -- likes liquids   , iflavour = zipFancy [BrGreen]   , icount   = 1   , irarity  = [(3 * 10/15, 0), (4 * 10/15, 5), (10, 9)]   , iverbHit = "thud"   , iweight  = 80000   , idamage  = 0-  , iaspects = [ AddSkill SkMaxHP 30, AddSkill SkMaxCalm 30-               , AddSkill SkSpeed 16, AddSkill SkNocto 2+  , iaspects = [ AddSkill SkMaxHP 60, AddSkill SkMaxCalm 30+               , AddSkill SkSpeed 15, AddSkill SkNocto 2                , AddSkill SkAggression 1                , AddSkill SkProject (-1)  -- can't project                , AddSkill SkSwimming 30                , SetFlag Durable ]   , ieffects = []-  , idesc    = "A blind, slimy mass of loose tissue. You'd think it's powerless, but as soon as it touches your trembling body, clawing, stinging and burning erupts and can't be fended off."-  , ikit     = [ ("small claw", COrgan), ("sting", COrgan)-               , ("venom tooth", COrgan)-               , ("nostril", COrgan)-               , ("sapient brain", COrgan) ]  -- no sight nor hearing+  , idesc    = "A blind, slimy mass of fluid tissue. You'd think it's powerless, but as soon as it touches your trembling body, slapping, stinging and burning, it won't let go."+  , ikit     = [ (S_STING, COrgan), (S_TIP, COrgan), (S_LIP, COrgan)+               , (S_NOSTRIL, COrgan), (S_HUNGRY, COrgan)+               , (S_SAPIENT_BRAIN, COrgan) ]  -- no sight nor hearing   } elbow = ItemKind   { isymbol  = 's'   , iname    = "creepy shooter"-  , ifreq    = [ ("monster", 100), ("mobile", 1)-               , ("mobile monster", 100), ("scout monster", 30) ]+  , ifreq    = [ (MONSTER, 100), (MOBILE, 1)+               , (MOBILE_MONSTER, 100), (SCOUT_MONSTER, 30) ]   , iflavour = zipFancy [BrMagenta]   , icount   = 1   , irarity  = [(3 * 10/15, 0), (4 * 10/15, 1), (10, 12)]   , iverbHit = "thud"   , iweight  = 80000   , idamage  = 0-  , iaspects = [ AddSkill SkMaxHP 12, AddSkill SkMaxCalm 80+  , iaspects = [ AddSkill SkMaxHP 12, AddSkill SkMaxCalm 100                , AddSkill SkSpeed 20, AddSkill SkNocto 2                , AddSkill SkProject 2  -- can lob-               , AddSkill SkApply 1  -- can even use cultural artifacts+               , AddSkill SkApply 1  -- can use even cultural artifacts                , AddSkill SkMelee (-1)                , SetFlag Durable ]   , ieffects = []   , idesc    = "It moves in sudden jerks and never makes a noise. Speaks in hard objects hurled at deadly speeds."-  , ikit     = [ ("speed gland 5", COrgan)-               , ("eye 6", COrgan), ("ear 8", COrgan)+  , ikit     = [ (S_SPEED_GLAND_5, COrgan)  -- -25 armor+               , (S_EYE_6, COrgan), (S_EAR_8, COrgan)                    -- too powerful to get stronger sight-               , ("sapient brain", COrgan)-               , ("any arrow", CSha), ("any arrow", CInv)-               , ("weak arrow", CInv), ("weak arrow", CInv) ]+               , (S_SAPIENT_BRAIN, COrgan)+               , (ANY_ARROW, CEqp), (ANY_ARROW, CStash)+               , (WEAK_ARROW, CEqp), (WEAK_ARROW, CStash) ]   }+elbowTank = elbow+  { iname    = "armored shooter"+  , iflavour = zipFancy [Magenta]+  , irarity  = [(10, 0), (40, 30)]  -- only appears among late spawns+  , ikit     = ikit elbow ++ [(S_ARMORED_SKIN, COrgan), (S_JET_BOOSTER, COrgan)]+  }++-- * Allure-specific aliens++-- TODO: the main fun in this actor will be chain explosions and for this,+-- it needs to spawn in groups and move in groups. Neither is implemented yet.+-- For now, we try to amass the actors on arena levels over water and in rooms.+-- Low HP is needed to ensure the chain reaction. Lack of ranged combat+-- makes the rule to attack it from a distance straightforward.+intruder = ItemKind+  { isymbol  = 'i'+  , iname    = "bobbing intruder"+  , ifreq    = [ (MONSTER, 100), (MOBILE, 1), (MOBILE_MONSTER, 100)+               , (EXPLOSIVE_MONSTER, 100)+               , (AQUATIC, 1) ]  -- neutral to water, unlike other actors+  , iflavour = zipFancy [BrCyan]+  , icount   = 1+  , irarity  = [(3 * 10/15, 0), (4 * 10/15, 5), (10, 9)]+  , iverbHit = "thud"+  , iweight  = 80000+  , idamage  = 0+  , iaspects = [ AddSkill SkMaxHP 6, AddSkill SkMaxCalm 50+               , AddSkill SkSpeed 20, AddSkill SkNocto 2+               , AddSkill SkAggression 1+               , AddSkill SkProject (-1)  -- can't project+               , AddSkill SkApply 1  -- can use even cultural artifacts+               , AddSkill SkAlter (-2)  -- can't use hard stairs nor doors+               , AddSkill SkFlying 10  -- flies slowly, but far+               , SetFlag Durable ]+  , ieffects = []+  , idesc    = "It starts, bobs and halts, scanning for movement. Effortlessly, it resumes covering the ground, gliding two meters above the floor. The pumped organic body is large, but looks fragile. However, it doesn't skirt the walls, but instead seems to take ownership of any space it boldly parks in the middle of."+  , ikit     = [ (S_FLOTATION_BAG, COrgan)+               , (S_TENTACLE, COrgan), (S_TENTACLE, COrgan)+               , (S_TIP, COrgan)  -- at least one non-timed+               , (S_HOOKED_CLAW, COrgan)+               , (S_EYE_6, COrgan), (S_EAR_6, COrgan)+               , (S_SAPIENT_BRAIN, COrgan) ]  -- no voice, no hearing+  }++-- * Alien uniques+ torsor = ItemKind   { isymbol  = 'M'-  , iname    = "Maker"-  , ifreq    = [("monster", 100), ("mobile", 1)]+  , iname    = "The Maker"+  , ifreq    = [(MONSTER, 100), (MOBILE, 1)]   , iflavour = zipFancy [BrCyan]   , icount   = 1   , irarity  = [(14 * 10/15, 0), (15 * 10/15, 1000)]  -- unique@@ -270,23 +426,26 @@   , iweight  = 80000   , idamage  = 0   , iaspects = [ SetFlag Unique, ELabel "of Contact"-               , AddSkill SkMaxHP 300, AddSkill SkMaxCalm 100-               , AddSkill SkSpeed 10, AddSkill SkNocto 2+               , AddSkill SkMaxHP 400  -- -50 melee armor, so higher HP+               , AddSkill SkMaxCalm 100+               , AddSkill SkSpeed 5+               , AddSkill SkNocto 2                , AddSkill SkAggression 3                , AddSkill SkProject 2  -- can lob-               , AddSkill SkApply 1  -- can even use cultural artifacts+               , AddSkill SkApply 1  -- can use even cultural artifacts                , AddSkill SkAlter (-1)  -- can't exit the gated level; a boss,                                         -- but can dig rubble, ice                , SetFlag Durable ]-  , ieffects = []+  , ieffects = [OnSmash $ VerbMsg "mount the last plea for mutual understanding and voluntary exchange of body parts" "."]   , idesc    = "The mind, the big heart behind it all. Warmth and sympathy pour out through the graceful undulation of tentacles, sharp claws, snapping jaw and dripping fangs."-  , ikit     = [ ("tentacle", COrgan), ("hooked claw", COrgan)-                   -- at least one non-timed-               , ("large jaw", COrgan), ("venom fang", COrgan)-               , ("speed gland 5", COrgan)-               , ("eye 6", COrgan), ("ear 8", COrgan)-               , ("sapient brain", COrgan)-               , ("gem", CInv), ("gem", CInv), ("gem", CInv), ("gem", CInv) ]+  , ikit     = [ (S_TENTACLE, COrgan), (S_HOOKED_CLAW, COrgan)+               , (S_LARGE_JAW, COrgan), (S_VENOM_FANG, COrgan)+               , (S_SMALL_CLAW, COrgan)  -- at least one non-timed, not deadly+               , (S_SPEED_GLAND_10, COrgan)+               , (S_EYE_6, COrgan), (S_EAR_8, COrgan)+               , (S_SAPIENT_BRAIN, COrgan)+               , (GEM, CStash), (GEM, CStash)+               , (GEM, CStash), (GEM, CStash) ]   }  -- * Animals@@ -294,11 +453,11 @@ -- They need rather strong melee, because they don't use items. -- They have dull colors, except for yellow, because there is no dull variant. -goldenJackal = ItemKind  -- basically a much smaller and slower hyena+goldenJackal = ItemKind  -- basically a much smaller, slower and nosy hyena   { isymbol  = 'j'   , iname    = "golden jackal"-  , ifreq    = [ ("animal", 100), ("mobile", 1), ("mobile animal", 100)-               , ("scavenger", 50) ]+  , ifreq    = [ (ANIMAL, 100), (MOBILE, 1), (MOBILE_ANIMAL, 100)+               , (SCAVENGER, 50) ]   , iflavour = zipPlain [BrYellow]   , icount   = 1   , irarity  = [(1, 4), (10, 2)]@@ -307,19 +466,22 @@   , idamage  = 0   , iaspects = [ AddSkill SkMaxHP 15, AddSkill SkMaxCalm 70                , AddSkill SkSpeed 24, AddSkill SkNocto 2+               , AddSkill SkAggression 2  -- scout+               , AddSkill SkDisplace 1  -- scout                , SetFlag Durable ]   , ieffects = []   , idesc    = "An opportunistic predator, feeding on carrion and the weak."-  , ikit     = [ ("small jaw", COrgan)-               , ("eye 6", COrgan), ("nostril", COrgan), ("ear 8", COrgan)-               , ("animal brain", COrgan)-               , ("genetic flaw 3", COrgan) ]+  , ikit     = [ (S_SMALL_JAW, COrgan)+               , (S_POWERFUL_HIND_LEGS, COrgan)  -- useful for aggressive actor+               , (S_EYE_6, COrgan), (S_NOSTRIL, COrgan), (S_EAR_8, COrgan)+               , (S_ANIMAL_BRAIN, COrgan)+               , (S_ANIMAL_STOMACH, COrgan), (GENETIC_FLAW_3, COrgan) ]   }-griffonVulture = ItemKind+griffonVulture = ItemKind  -- keep it boring and weak, because it summons   { isymbol  = 'v'   , iname    = "griffon vulture"-  , ifreq    = [ ("animal", 100), ("mobile", 1), ("mobile animal", 100)-               , ("scavenger", 30) ]+  , ifreq    = [ (ANIMAL, 100), (MOBILE, 1), (MOBILE_ANIMAL, 100)+               , (SCAVENGER, 30) ]   , iflavour = zipPlain [BrYellow]   , icount   = 1   , irarity  = [(1, 3), (10, 3)]@@ -330,26 +492,25 @@                    -- enough Calm to summon twice only if not attacked at all;                    -- loses a lot of sight after summoning                , AddSkill SkSpeed 22, AddSkill SkNocto 2-               , AddSkill SkAlter (-2)  -- can't use normal stairs nor doors+               , AddSkill SkAlter (-2)  -- can't use hard stairs nor doors                , AddSkill SkFlying 10  -- flies slowly, but far                , SetFlag Durable ]       -- Animals don't have leader, usually, so even if only one on level,       -- it pays the communication overhead, so the speed is higher to get-      -- them on par with human leaders moving solo. Common random double moves,-      -- on either side, are just too bothersome.+      -- them on par with human leaders moving solo.   , ieffects = []   , idesc    = "It soars high above, searching for vulnerable prey."-  , ikit     = [ ("screeching beak", COrgan)  -- in reality it grunts and hisses-               , ("small claw", COrgan)-               , ("eye 8", COrgan), ("ear 8", COrgan)+  , ikit     = [ (S_SCREECHING_BEAK, COrgan)  -- in reality it grunts and hisses+               , (S_SMALL_CLAW, COrgan)+               , (S_EYE_8, COrgan), (S_EAR_8, COrgan)                    -- can't shoot, so strong sight is OK-               , ("animal brain", COrgan)-               , ("genetic flaw 3", COrgan) ]+               , (S_ANIMAL_BRAIN, COrgan)+               , (S_ANIMAL_STOMACH, COrgan), (GENETIC_FLAW_3, COrgan) ]   } skunk = ItemKind   { isymbol  = 's'   , iname    = "hog-nosed skunk"-  , ifreq    = [("animal", 100), ("mobile", 1), ("mobile animal", 100)]+  , ifreq    = [(ANIMAL, 100), (MOBILE, 1), (MOBILE_ANIMAL, 100)]   , iflavour = zipPlain [White]   , icount   = 1   , irarity  = [(1, 8), (5, 1)]@@ -358,43 +519,45 @@   , idamage  = 0   , iaspects = [ AddSkill SkMaxHP 13, AddSkill SkMaxCalm 30                , AddSkill SkSpeed 22, AddSkill SkNocto 2-               , AddSkill SkAlter (-2)  -- can't use normal stairs nor doors+               , AddSkill SkAlter (-2)  -- can't use hard stairs nor doors                , AddSkill SkOdor 5  -- and no smell skill, to let it leave smell                , SetFlag Durable ]   , ieffects = []   , idesc    = "Its only defence is the terrible stench."-  , ikit     = [ ("scent gland", COrgan)-               , ("small claw", COrgan), ("snout", COrgan)-               , ("eye 3", COrgan), ("ear 6", COrgan)-               , ("animal brain", COrgan)-               , ("genetic flaw 3", COrgan) ]+  , ikit     = [ (S_SCENT_GLAND, COrgan)+               , (S_SMALL_CLAW, COrgan), (S_SNOUT, COrgan)+               , (S_EYE_3, COrgan), (S_EAR_6, COrgan)+               , (S_ANIMAL_BRAIN, COrgan)+               , (S_ANIMAL_STOMACH, COrgan), (GENETIC_FLAW_3, COrgan) ]   }-armadillo = ItemKind+armadillo = ItemKind  -- a tank with armor, so special damage defeats it   { isymbol  = 'a'   , iname    = "giant armadillo"-  , ifreq    = [("animal", 100), ("mobile", 1), ("mobile animal", 100)]+  , ifreq    = [(ANIMAL, 100), (MOBILE, 1), (MOBILE_ANIMAL, 100)]   , iflavour = zipPlain [Brown]   , icount   = 1   , irarity  = [(1, 7)]   , iverbHit = "thud"-  , iweight  = 80000+  , iweight  = 54000   , idamage  = 0-  , iaspects = [ AddSkill SkMaxHP 13, AddSkill SkMaxCalm 30+  , iaspects = [ AddSkill SkMaxHP 30, AddSkill SkMaxCalm 30                , AddSkill SkSpeed 20, AddSkill SkNocto 2-               , AddSkill SkAlter (-2)  -- can't use normal stairs nor doors+               , AddSkill SkHurtMelee (-70)  -- quite harmless rolled in a ball+               , AddSkill SkAlter (-2)  -- can't use hard stairs nor doors                , SetFlag Durable ]   , ieffects = []   , idesc    = "When threatened, it rolls into a ball."-  , ikit     = [ ("hooked claw", COrgan), ("snout", COrgan)-               , ("armored skin", COrgan), ("armored skin", COrgan)-               , ("eye 3", COrgan), ("nostril", COrgan), ("ear 6", COrgan)-               , ("animal brain", COrgan)-               , ("genetic flaw 3", COrgan) ]+  , ikit     = [ (S_HOOKED_CLAW, COrgan), (S_SNOUT, COrgan)+               , (S_ARMORED_SKIN, COrgan), (S_ARMORED_SKIN, COrgan)+               , (S_EYE_3, COrgan), (S_NOSTRIL, COrgan), (S_EAR_6, COrgan)+               , (S_ANIMAL_BRAIN, COrgan)+               , (S_ANIMAL_STOMACH, COrgan), (GENETIC_FLAW_3, COrgan)+               , (RAW_MEAT_CHUNK, CEqp) ]   } gilaMonster = ItemKind   { isymbol  = 'g'   , iname    = "Gila monster"-  , ifreq    = [("animal", 100), ("mobile", 1), ("mobile animal", 100)]+  , ifreq    = [(ANIMAL, 100), (MOBILE, 1), (MOBILE_ANIMAL, 100)]   , iflavour = zipPlain [Magenta]   , icount   = 1   , irarity  = [(2, 5), (10, 2)]@@ -403,45 +566,49 @@   , idamage  = 0   , iaspects = [ AddSkill SkMaxHP 15, AddSkill SkMaxCalm 50                , AddSkill SkSpeed 18, AddSkill SkNocto 2-               , AddSkill SkAlter (-2)  -- can't use normal stairs nor doors+               , AddSkill SkAlter (-2)  -- can't use hard stairs nor doors                , SetFlag Durable ]   , ieffects = []   , idesc    = "Numbing venom ensures that even the fastest prey has no escape."-  , ikit     = [ ("venom tooth", COrgan), ("small claw", COrgan)-               , ("eye 3", COrgan), ("nostril", COrgan), ("ear 6", COrgan)-               , ("animal brain", COrgan)-               , ("genetic flaw 3", COrgan) ]+  , ikit     = [ (S_VENOM_TOOTH, COrgan), (S_SMALL_CLAW, COrgan)+               , (S_EYE_3, COrgan), (S_NOSTRIL, COrgan), (S_EAR_6, COrgan)+               , (S_ANIMAL_BRAIN, COrgan)  -- small reptile, hungers slowly+               , (GENETIC_FLAW_3, COrgan) ]   } rattlesnake = ItemKind   { isymbol  = 's'   , iname    = "rattlesnake"-  , ifreq    = [("animal", 100), ("mobile", 1), ("mobile animal", 100)]+  , ifreq    = [(ANIMAL, 100), (MOBILE, 1), (MOBILE_ANIMAL, 100)]   , iflavour = zipPlain [Brown]   , icount   = 1-  , irarity  = [(5, 1), (10, 7)]+  , irarity  = [(5, 1), (10, 7), (20, 10)]  -- common among late spawns   , iverbHit = "thud"   , iweight  = 80000   , idamage  = 0   , iaspects = [ AddSkill SkMaxHP 28, AddSkill SkMaxCalm 60                , AddSkill SkSpeed 16, AddSkill SkNocto 2-               , AddSkill SkAlter (-2)  -- can't use normal stairs nor doors+               , AddSkill SkAggression 2  -- often discharged. so flees anyway+               , AddSkill SkAlter (-2)  -- can't use hard stairs nor doors                , SetFlag Durable ]   , ieffects = []   , idesc    = "Beware its rattle - it serves as a warning of an agonising death."-  , ikit     = [ ("venom fang", COrgan)  -- when on cooldown, it's weaponless-               , ("rattle", COrgan)-               , ("eye 3", COrgan), ("nostril", COrgan), ("ear 6", COrgan)-               , ("animal brain", COrgan)-               , ("genetic flaw 3", COrgan) ]+  , ikit     = [ (S_VENOM_FANG, COrgan)  -- when discharged, it's weaponless+               , (S_COILED_TAIL, COrgan)  -- useful for an aggressive actor+               , (S_RATLLE, COrgan)+               , (S_EYE_3, COrgan), (S_NOSTRIL, COrgan), (S_EAR_6, COrgan)+               , (S_ANIMAL_BRAIN, COrgan)  -- small reptile, hungers slowly+               , (GENETIC_FLAW_3, COrgan)+               , (RAW_MEAT_CHUNK, CEqp) ]   } hyena = ItemKind   { isymbol  = 'h'   , iname    = "spotted hyena"-  , ifreq    = [ ("animal", 100), ("mobile", 1), ("mobile animal", 100)-               , ("scavenger", 20) ]+  , ifreq    = [ (ANIMAL, 100), (MOBILE, 1), (MOBILE_ANIMAL, 100)+               , (SCAVENGER, 20) ]   , iflavour = zipPlain [BrYellow]   , icount   = 1-  , irarity  = [(4, 1), (10, 5)]  -- gets summoned often, so low base rarity+  , irarity  = [(4, 1), (10, 5), (20, 10)]+      -- gets summoned often, so low base rarity, except among late spawns   , iverbHit = "thud"   , iweight  = 60000   , idamage  = 0@@ -450,42 +617,47 @@                , SetFlag Durable ]   , ieffects = []   , idesc    = "Skulking in the shadows, waiting for easy prey."-  , ikit     = [ ("jaw", COrgan)-               , ("eye 6", COrgan), ("nostril", COrgan), ("ear 8", COrgan)-               , ("animal brain", COrgan)-               , ("genetic flaw 3", COrgan) ]+  , ikit     = [ (S_JAW, COrgan), (S_SMALL_CLAW, COrgan)+               , (S_EYE_6, COrgan), (S_NOSTRIL, COrgan), (S_EAR_8, COrgan)+               , (S_ANIMAL_BRAIN, COrgan)+               , (S_ANIMAL_STOMACH, COrgan), (GENETIC_FLAW_3, COrgan) ]   } komodoDragon = ItemKind   { isymbol  = 'k'   , iname    = "Komodo dragon"-  , ifreq    = [("animal", 100), ("mobile", 1), ("mobile animal", 100)]+  , ifreq    = [(ANIMAL, 100), (MOBILE, 1), (MOBILE_ANIMAL, 100)]   , iflavour = zipPlain [BrRed]  -- speedy, so bright red   , icount   = 1-  , irarity  = [(9, 0), (10, 11)]+  , irarity  = [(9, 0), (10, 11), (20, 20)]   , iverbHit = "thud"   , iweight  = 80000   , idamage  = 0-  , iaspects = [ AddSkill SkMaxHP 40, AddSkill SkMaxCalm 60+  , iaspects = [ AddSkill SkMaxHP 40, AddSkill SkMaxCalm 60  -- regens                , AddSkill SkSpeed 17, AddSkill SkNocto 2+               , AddSkill SkHurtMelee 60  -- great fighter with low cooldowns                , AddSkill SkAggression 1  -- match the description                , SetFlag Durable ]   , ieffects = []   , idesc    = "Larger and more aggressive than any other lizard, but as easily recovering from wounds as its lesser cousins."-  , ikit     = [ ("large tail", COrgan), ("jaw", COrgan)-               , ("hooked claw", COrgan)-               , ("speed gland 5", COrgan), ("armored skin", COrgan)-               , ("eye 3", COrgan), ("nostril", COrgan), ("ear 3", COrgan)-               , ("animal brain", COrgan)-               , ("genetic flaw 3", COrgan) ]  -- not to wake it up too soon+  , ikit     = [ (S_LARGE_TAIL, COrgan), (S_JAW, COrgan)+               , (S_LIP, COrgan), (S_FOOT, COrgan)+               , (S_SPEED_GLAND_5, COrgan), (S_ARMORED_SKIN, COrgan)+               , (S_EYE_3, COrgan), (S_NOSTRIL, COrgan), (S_EAR_3, COrgan)+               , (S_ANIMAL_BRAIN, COrgan)+               , (S_ANIMAL_STOMACH, COrgan)+               , (GENETIC_FLAW_3, COrgan)  -- not to wake it up too soon+               , (RAW_MEAT_CHUNK, CEqp), (RAW_MEAT_CHUNK, CEqp) ]   }-alligator = ItemKind+alligator = ItemKind  -- late, slow, deadly semi-tank with some armor;+                      -- too deadly to get more HP; bombs the only recourse   { isymbol  = 'a'   , iname    = "alligator"-  , ifreq    = [ ("animal", 100), ("mobile", 1), ("mobile animal", 100)-               , ("aquatic", 70), ("aquatic animal", 70) ]  -- amphibious+  , ifreq    = [ (ANIMAL, 100), (MOBILE, 1), (MOBILE_ANIMAL, 100)+               , (AQUATIC, 70), (AQUATIC_ANIMAL, 70) ]  -- amphibious   , iflavour = zipPlain [Blue]   , icount   = 1-  , irarity  = [(9, 0), (10, 10)]  -- extra spawns in water, so lower rarity+  , irarity  = [(9, 0), (10, 10), (20, 10), (40, 40)]+      -- extra spawns in water, so lower rarity, except among late spawns   , iverbHit = "thud"   , iweight  = 80000   , idamage  = 0@@ -497,36 +669,101 @@                , SetFlag Durable ]   , ieffects = []   , idesc    = "An armored predator from the dawn of time. You better not get within its reach."-  , ikit     = [ ("huge tail", COrgan), ("large jaw", COrgan)-               , ("small claw", COrgan)-               , ("armored skin", COrgan)-               , ("eye 6", COrgan), ("ear 8", COrgan)-               , ("animal brain", COrgan)-               , ("genetic flaw 10", COrgan) ]+  , ikit     = [ (S_HUGE_TAIL, COrgan)  -- the special trick, breaking frontline+               , (S_LARGE_JAW, COrgan)+               , (S_SMALL_CLAW, COrgan)+               , (S_ARMORED_SKIN, COrgan)+               , (S_EYE_6, COrgan), (S_EAR_8, COrgan)+               , (S_ANIMAL_BRAIN, COrgan)+               , (S_ANIMAL_STOMACH, COrgan), (GENETIC_FLAW_10, COrgan)+               , (RAW_MEAT_CHUNK, CEqp), (RAW_MEAT_CHUNK, CEqp) ]   }-rhinoceros = ItemKind++-- * Allure-specific animals++giantOctopus = ItemKind+  { isymbol  = 'o'+  , iname    = "giant octopus"+  , ifreq    = [ (ANIMAL, 100), (MOBILE, 1), (MOBILE_ANIMAL, 100)+               , (AQUATIC, 90), (AQUATIC_ANIMAL, 90) ]  -- weak on land+  , iflavour = zipPlain [BrMagenta]  -- very exotic, so bright color+  , icount   = 1+  , irarity  = [(1, 3), (7, 3)]+  , iverbHit = "thud"+  , iweight  = 72000+  , idamage  = 0+  , iaspects = [ AddSkill SkMaxHP 17, AddSkill SkMaxCalm 80+               , AddSkill SkSwimming 100  -- swims better than walks+               , AddSkill SkSpeed 27, AddSkill SkNocto 3 -- good night vision+               , AddSkill SkAlter (-2)  -- can't use hard stairs nor doors+               , SetFlag Durable ]+  , ieffects = []+  , idesc    = "It has eight arms of rage and sees through the night. Copes with lower gravity better than most animals."  -- TODO: change when slowness on land is implemented+  , ikit     = [ (S_INK_SAC, COrgan)+               , (S_TENTACLE, COrgan), (S_TENTACLE, COrgan)+               , (S_TENTACLE, COrgan), (S_TENTACLE, COrgan)+               , (S_SMALL_BEAK, COrgan)  -- TODO: use when tentacles torn out+               , (S_EYE_8, COrgan)+                   -- shots not too damaging, so can have strong sight+               , (S_ANIMAL_BRAIN, COrgan)+               , (S_ANIMAL_STOMACH, COrgan), (GENETIC_FLAW_3, COrgan)+               , (RAW_MEAT_CHUNK, CEqp), (RAW_MEAT_CHUNK, CEqp) ]+ }+lion = ItemKind  -- emphatically not a tank+  { isymbol  = 'l'+  , iname    = "Lion"+  , ifreq    = [(ANIMAL, 100), (MOBILE, 1), (MOBILE_ANIMAL, 100)]+  , iflavour = zipPlain [Red]+  , icount   = 1+  , irarity  = [(10, 0), (30, 50)]  -- only appears among late spawns+  , iverbHit = "thud"+  , iweight  = 140000+  , idamage  = 0+  , iaspects = [ AddSkill SkMaxHP 120, AddSkill SkMaxCalm 80+               , AddSkill SkSpeed 30, AddSkill SkNocto 2+               , AddSkill SkHurtMelee 60  -- great fighter+               , AddSkill SkAggression 2  -- late spawn+               , AddSkill SkApply 1  -- can eat food despite the genetic flaw+               , SetFlag Durable ]+  , ieffects = []+  , idesc    = "At the repeated violation of their pride area, the irritated felines emerge from hiding."+  , ikit     = [ (S_POWERFUL_HIND_LEGS, COrgan)+               , (S_LARGE_JAW, COrgan), (S_SMALL_CLAW, COrgan)+               , (S_EYE_6, COrgan), (S_EAR_6, COrgan)+               , (S_ANIMAL_BRAIN, COrgan)+               , (S_ANIMAL_STOMACH, COrgan), (GENETIC_FLAW_10, COrgan)+               , (RAW_MEAT_CHUNK, CEqp), (RAW_MEAT_CHUNK, CEqp) ]+  }++-- * Animal uniques++rhinoceros = ItemKind  -- impressive tank boss with some armor   { isymbol  = 'R'-  , iname    = "Maddened Rhinoceros"-  , ifreq    = [("animal", 100), ("mobile", 1)]+  , iname    = "Billy"+  , ifreq    = [(ANIMAL, 100), (MOBILE, 1)]   , iflavour = zipPlain [Brown]   , icount   = 1   , irarity  = [(7 * 10/15, 0), (8 * 10/15, 1000), (9 * 10/15, 0)]  -- unique   , iverbHit = "thud"   , iweight  = 80000   , idamage  = 0-  , iaspects = [ SetFlag Unique-               , AddSkill SkMaxHP 120, AddSkill SkMaxCalm 60+  , iaspects = [ SetFlag Unique, ELabel "the Maddened Rhinoceros"+               , AddSkill SkMaxHP 200, AddSkill SkMaxCalm 60                , AddSkill SkSpeed 27, AddSkill SkNocto 2+               , AddSkill SkHurtMelee 50  -- mass gives extra damage                , AddSkill SkAggression 2-               , AddSkill SkAlter (-1)  -- can't use normal stairs nor dig;-                                        -- a weak miniboss+               , AddSkill SkAlter (-1)  -- can't use hard stairs nor dig;+                                        -- a weak miniboss; can use easy stairs                , SetFlag Durable ]-  , ieffects = []+  , ieffects = [OnSmash $ VerbMsg "bellow triumphantly!" ""]   , idesc    = "The last of its kind. Blind with rage, or perhaps due to the postoperative scars. A huge mass of muscle that charges at deadly speed."-  , ikit     = [ ("rhino horn", COrgan), ("snout", COrgan)-               , ("armored skin", COrgan)-               , ("eye 3", COrgan), ("ear 8", COrgan)-               , ("animal brain", COrgan) ]+  , ikit     = [ (S_RHINO_HORN, COrgan), (S_FOOT, COrgan)+               , (S_RHINO_INERTIA, COrgan), (S_ARMORED_SKIN, COrgan)+               , (S_EYE_3, COrgan), (S_EAR_8, COrgan)+               , (S_ANIMAL_BRAIN, COrgan)+               , (S_ANIMAL_STOMACH, COrgan)+               , (RAW_MEAT_CHUNK, CEqp), (RAW_MEAT_CHUNK, CEqp)+               , (RAW_MEAT_CHUNK, CEqp), (RAW_MEAT_CHUNK, CEqp) ]   }  -- * Non-animal animals@@ -534,94 +771,68 @@ beeSwarm = ItemKind   { isymbol  = 'b'   , iname    = "bee swarm"-  , ifreq    = [("animal", 100), ("mobile", 1)]+  , ifreq    = [(ANIMAL, 100), (MOBILE, 1)]   , iflavour = zipPlain [Brown]   , icount   = 1   , irarity  = [(1, 3), (10, 4)]   , iverbHit = "buzz"   , iweight  = 1000   , idamage  = 0-  , iaspects = [ AddSkill SkMaxHP 8, AddSkill SkMaxCalm 60+  , iaspects = [ AddSkill SkMaxHP 10, AddSkill SkMaxCalm 60                , AddSkill SkSpeed 30, AddSkill SkNocto 2  -- armor in sting-               , AddSkill SkAlter (-2)  -- can't use normal stairs nor doors+               , AddSkill SkAlter (-2)  -- can't use hard stairs nor doors                , AddSkill SkWait (-2)  -- can't brace, sleep and lurk                , AddSkill SkFlying 10  -- flies slowly, but far                , SetFlag Durable ]   , ieffects = []   , idesc    = "Every bee would die for the queen."-  , ikit     = [ ("bee sting", COrgan)  -- weaponless when it's used up-               , ("vision 6", COrgan), ("ear 6", COrgan)-               , ("insect mortality", COrgan), ("animal brain", COrgan) ]+  , ikit     = [ (S_BEE_STING, COrgan)  -- weaponless when it's used up+               , (S_VISION_6, COrgan), (S_EAR_6, COrgan)+               , (S_INSECT_MORTALITY, COrgan), (S_ANIMAL_BRAIN, COrgan) ]   }-hornetSwarm = ItemKind+hornetSwarm = ItemKind  -- kind of tank with armor, but short-lived   { isymbol  = 'h'   , iname    = "hornet swarm"-  , ifreq    = [("animal", 100), ("mobile", 1), ("mobile animal", 100)]+  , ifreq    = [(ANIMAL, 100), (MOBILE, 1), (MOBILE_ANIMAL, 100)]   , iflavour = zipPlain [Magenta]   , icount   = 1-  , irarity  = [(5, 1), (10, 4)]  -- should be many, because die after a time+  , irarity  = [(5, 1), (10, 4), (20, 10)]+      -- should be many, because die after a time   , iverbHit = "buzz"   , iweight  = 1000   , idamage  = 0   , iaspects = [ AddSkill SkArmorMelee 80, AddSkill SkArmorRanged 40-               , AddSkill SkMaxHP 8, AddSkill SkMaxCalm 70+               , AddSkill SkHurtMelee 50+               , AddSkill SkMaxHP 10, AddSkill SkMaxCalm 70                , AddSkill SkSpeed 30, AddSkill SkNocto 2-               , AddSkill SkAlter (-2)  -- can't use normal stairs nor doors+               , AddSkill SkAlter (-2)  -- can't use hard stairs nor doors                , AddSkill SkWait (-2)  -- can't brace, sleep and lurk                , AddSkill SkFlying 10  -- flies slowly, but far                , SetFlag Durable ]   , ieffects = []   , idesc    = "A vicious cloud of stings and hate."-  , ikit     = [ ("sting", COrgan)  -- when on cooldown, it's weaponless-               , ("vision 6", COrgan), ("ear 6", COrgan)-               , ("insect mortality", COrgan), ("animal brain", COrgan) ]+  , ikit     = [ (S_STING, COrgan)  -- when on cooldown, it's weaponless+               , (S_VISION_6, COrgan), (S_EAR_6, COrgan)+               , (S_INSECT_MORTALITY, COrgan), (S_ANIMAL_BRAIN, COrgan) ]   }-thornbush = ItemKind+thornbush = ItemKind  -- the wimpiest kind of early tank   { isymbol  = 't'   , iname    = "thornbush"-  , ifreq    = [("animal", 30), ("immobile animal", 50)]+  , ifreq    = [(ANIMAL, 25), (IMMOBILE_ANIMAL, 40)]   , iflavour = zipPlain [Brown]   , icount   = 1   , irarity  = [(1, 13)]   , iverbHit = "scrape"   , iweight  = 80000   , idamage  = 0-  , iaspects = [ AddSkill SkMaxHP 20, AddSkill SkMaxCalm 999+  , iaspects = [ AddSkill SkMaxHP 30, AddSkill SkMaxCalm 999                , AddSkill SkSpeed 22, AddSkill SkNocto 2                , AddSkill SkWait 1, AddSkill SkMelee 1  -- no brain                , SetFlag Durable ]   , ieffects = []   , idesc    = "Each branch bears long, curved thorns."-  , ikit     = [ ("thorn", COrgan)  -- after all run out, it's weaponless-               , ("bark", COrgan) ]-  }---- * Allure-specific animals--giantOctopus = ItemKind-  { isymbol  = 'o'-  , iname    = "giant octopus"-  , ifreq    = [ ("animal", 100), ("mobile", 1), ("mobile animal", 100)-               , ("aquatic", 90), ("aquatic animal", 90) ]  -- weak on land-  , iflavour = zipPlain [BrMagenta]-  , icount   = 1-  , irarity  = [(1, 3)]-  , iverbHit = "thud"-  , iweight  = 72000-  , idamage  = 0-  , iaspects = [ AddSkill SkMaxHP 17, AddSkill SkMaxCalm 80-               , AddSkill SkSwimming 100  -- swims better than walks-               , AddSkill SkSpeed 27, AddSkill SkNocto 3 -- good night vision-               , AddSkill SkAlter (-2)  -- can't use normal stairs nor doors-               , SetFlag Durable ]-  , ieffects = []-  , idesc    = "It has eight arms of rage."-  , ikit     = [ ("tentacle", COrgan), ("tentacle", COrgan)-               , ("small beak", COrgan)  -- TODO: use when tentacles torn out-               , ("eye 8", COrgan)-                   -- shots not too damaging, so can have strong sight-               , ("animal brain", COrgan)-               , ("genetic flaw 3", COrgan) ]+  , ikit     = [ (S_THORN, COrgan)  -- after all run out, it's weaponless+               , (S_BARK, COrgan) ]   }  -- * Robots, Allure-specific@@ -632,7 +843,7 @@ razorwireFence = ItemKind   { isymbol  = 'f'   , iname    = "razorwire fence"-  , ifreq    = [("robot", 15), ("immobile robot", 10)]+  , ifreq    = [(ROBOT, 15), (IMMOBILE_ROBOT, 10)]   , iflavour = zipPlain [Cyan]   , icount   = 1   , irarity  = [(3 * 10/15, 0), (4 * 10/15, 20), (10, 4)]@@ -646,34 +857,35 @@                , SetFlag Durable ]   , ieffects = []   , idesc    = "Must have been bought by previous ship owners to contain the wild animal infestation."-  , ikit     = [("razor", COrgan), ("razor", COrgan)]+  , ikit     = [(S_RAZOR, COrgan), (S_THORN, COrgan)]   } electricFence = ItemKind   { isymbol  = 'f'   , iname    = "electric fence"-  , ifreq    = [("robot", 15), ("immobile robot", 10)]+  , ifreq    = [(ROBOT, 40), (IMMOBILE_ROBOT, 10)]   , iflavour = zipPlain [Blue]   , icount   = 1-  , irarity  = [(3 * 10/15, 0), (4 * 10/15, 15), (10, 5)]+  , irarity  = [(3 * 10/15, 0), (4 * 10/15, 10), (10, 10), (20, 10)]   , iverbHit = "thud"   , iweight  = 80000   , idamage  = 0-  , iaspects = [ AddSkill SkArmorMelee 30, AddSkill SkArmorRanged 15-               , AddSkill SkMaxHP 10, AddSkill SkMaxCalm 999-               , AddSkill SkSpeed 40, AddSkill SkNocto 2+  , iaspects = [ AddSkill SkMaxHP 30, AddSkill SkMaxCalm 999+                   -- no armor, because regenerates; high HP instead+               , AddSkill SkSpeed 40, AddSkill SkNocto 2, AddSkill SkShine 3                , AddSkill SkWait 1, AddSkill SkMelee 1  -- no brain                , SetFlag Durable ]   , ieffects = []-  , idesc    = "Marginally intelligent electric shepherd. Originally used in orbital dairy farms and planetary zoos."-  , ikit     = [("live wire", COrgan)]+  , idesc    = "Marginally intelligent electric shepherd. Originally used in orbital dairy farms and planetary zoos. The long support on which proximity sensors, actuators and wires are socketed, ensures animals can't jump above the fence, even in reduced gravity."+  , ikit     = [ (S_LIVE_WIRE, COrgan), (ELECTRIC_AMBIENCE, COrgan)+               , (POLE_OR_HANDLE, CEqp) ]   } activeFence = ItemKind   { isymbol  = 'f'   , iname    = "active fence"-  , ifreq    = [("robot", 27), ("immobile robot", 20)]+  , ifreq    = [(ROBOT, 30), (IMMOBILE_ROBOT, 20)]   , iflavour = zipPlain [BrMagenta]   , icount   = 1-  , irarity  = [(5 * 10/15, 0), (10, 7)]+  , irarity  = [(5 * 10/15, 0), (10, 7), (20, 10)]   , iverbHit = "thud"   , iweight  = 80000   , idamage  = 0@@ -685,8 +897,8 @@                , SetFlag Durable ]   , ieffects = []   , idesc    = "Makeshift, mostly non-lethal, autonomous perimeter defense outpost."-  , ikit     = [ ("vision 6", COrgan)-               , ("needle", CInv), ("can of sticky foam", CInv) ]+  , ikit     = [ (S_VISION_6, COrgan)+               , (NEEDLE, CStash), (CAN_OF_STICKY_FOAM, CStash) ]                    -- can of sticky foam is exploitable, but it spawns                    -- reasonably often only on one level and not for                    -- a long period@@ -694,43 +906,43 @@ steamFaucet = ItemKind   { isymbol  = 'f'   , iname    = "steam faucet"-  , ifreq    = [("robot", 8), ("immobile robot", 15)]-  , iflavour = zipPlain [BrBlue]+  , ifreq    = [(ROBOT, 8), (IMMOBILE_ROBOT, 15)]+  , iflavour = zipPlain [BrGreen]   , icount   = 1   , irarity  = [(1, 10), (10, 6)]   , iverbHit = "thud"   , iweight  = 80000   , idamage  = 0   , iaspects = [ AddSkill SkMaxHP 10, AddSkill SkMaxCalm 999-               , AddSkill SkSpeed 11, AddSkill SkNocto 2+               , AddSkill SkSpeed 7, AddSkill SkNocto 2                , AddSkill SkWait 1, AddSkill SkMelee 1  -- no brain                , SetFlag Durable ]   , ieffects = []   , idesc    = "A cracked valve on one of the superheated water pipes spreading radially outward from the tokamak level."-  , ikit     = [("boiling vent", COrgan), ("boiling fissure", COrgan)]+  , ikit     = [(S_BOILING_VENT, COrgan), (S_BOILING_FISSURE, COrgan)]   }-biogasFaucet = ItemKind+coolingFaucet = ItemKind   { isymbol  = 'f'-  , iname    = "biogas faucet"-  , ifreq    = [("robot", 8), ("immobile robot", 30)]-  , iflavour = zipPlain [BrGreen]+  , iname    = "cooling faucet"+  , ifreq    = [(ROBOT, 8), (IMMOBILE_ROBOT, 15)]+  , iflavour = zipPlain [BrBlue]   , icount   = 1   , irarity  = [(1, 10), (10, 6)]   , iverbHit = "thud"   , iweight  = 80000   , idamage  = 0   , iaspects = [ AddSkill SkMaxHP 20, AddSkill SkMaxCalm 999-               , AddSkill SkSpeed 22, AddSkill SkNocto 2, AddSkill SkShine 3+               , AddSkill SkSpeed 22, AddSkill SkNocto 2                , AddSkill SkWait 1, AddSkill SkMelee 1  -- no brain                , SetFlag Durable ]   , ieffects = []-  , idesc    = "An emergency pressure-release vent on a smelly biogas pipe."-  , ikit     = [("biogas vent", COrgan), ("biogas fissure", COrgan)]+  , idesc    = "An emergency pressure-release vent on a supercooling circuit reservoir."+  , ikit     = [(S_COOLING_VENT, COrgan), (S_COOLING_FISSURE, COrgan)]   } medbotFaucet = ItemKind   { isymbol  = 'f'   , iname    = "nano medbot faucet"-  , ifreq    = [("robot", 8), ("immobile robot", 100)]+  , ifreq    = [(ROBOT, 10), (IMMOBILE_ROBOT, 100)]   , iflavour = zipPlain [BrYellow]   , icount   = 1   , irarity  = [(1, 10), (10, 6)]@@ -743,12 +955,51 @@                , SetFlag Durable ]   , ieffects = []   , idesc    = "A faucet of a malfunctioning nano medical robot dispenser. Let's hope the medbots are still effective."-  , ikit     = [("medbot vent", COrgan), ("medbot fissure", COrgan)]+  , ikit     = [(S_MEDBOT_VENT, COrgan), (S_MEDBOT_FISSURE, COrgan)]   }+dustFaucet = ItemKind+  { isymbol  = 'f'+  , iname    = "dust faucet"+  , ifreq    = [ (ROBOT, 4)  -- usually nothing to ignite+               , (IMMOBILE_ROBOT, 30) ]  -- except when other faucets around+  , iflavour = zipPlain [BrCyan]+  , icount   = 1+  , irarity  = [(3, 20), (10, 6)]+  , iverbHit = "thud"+  , iweight  = 80000+  , idamage  = 0+  , iaspects = [ AddSkill SkMaxHP 10, AddSkill SkMaxCalm 999+               , AddSkill SkSpeed 11, AddSkill SkNocto 2+               , AddSkill SkWait 1, AddSkill SkMelee 1  -- no brain+               , SetFlag Durable ]+  , ieffects = []+  , idesc    = "A torn pipeline for venting flammable powders filtered from cargo areas out into the void, where they cannot ignite. Depending on the pressure in subsidiary ducts, it may contain dust of aluminum, magnesium, titanium, flour, starch, various nitrates and perchlorates."+  , ikit     = [(S_DUST_VENT, COrgan), (S_DUST_FISSURE, COrgan)]+  }+fuelFaucet = ItemKind+  { isymbol  = 'f'+  , iname    = "burning fuel faucet"+  , ifreq    = [(ROBOT, 30)]+      -- common not in outermost level, but in the dungeon, because it's+      -- self-contained, providing both fuel and ignition+  , iflavour = zipPlain [BrRed]+  , icount   = 1+  , irarity  = [(3 * 10/15, 0), (4 * 10/15, 6), (10, 12), (20, 10)]+  , iverbHit = "thud"+  , iweight  = 80000+  , idamage  = 0+  , iaspects = [ AddSkill SkMaxHP 10, AddSkill SkMaxCalm 999+               , AddSkill SkSpeed 11, AddSkill SkNocto 2+               , AddSkill SkWait 1, AddSkill SkMelee 1  -- no brain+               , SetFlag Durable ]+  , ieffects = []+  , idesc    = "Fuel station gone wrong. Multiple emergency subsystems added over the years, owing to valiant regulatory lawmaking efforts, keep it from exploding by turning off and on the vent and each other in a complex cyclical pattern."+  , ikit     = [(S_FUEL_VENT, COrgan), (S_FUEL_FISSURE, COrgan)]+  } surveillanceDrone = ItemKind   { isymbol  = 'd'   , iname    = "surveillance drone"-  , ifreq    = [("robot", 100), ("mobile", 100), ("mobile robot", 100)]+  , ifreq    = [(ROBOT, 100), (MOBILE, 100), (MOBILE_ROBOT, 100)]   , iflavour = zipPlain [Blue]   , icount   = 1   , irarity  = [(1, 3)]@@ -757,21 +1008,21 @@   , idamage  = 0   , iaspects = [ AddSkill SkArmorMelee 30, AddSkill SkArmorRanged 15                , AddSkill SkMaxHP 6, AddSkill SkMaxCalm 90-               , AddSkill SkSpeed 30, AddSkill SkNocto 2-               , AddSkill SkDisplace (-1)  -- as dumb as an animal-               , AddSkill SkMoveItem (-1)+               , AddSkill SkSpeed 25, AddSkill SkNocto 2+               , AddSkill SkMoveItem (-1)  -- almost as dumb as an animal                , AddSkill SkProject (-1)                , AddSkill SkMelee (-1)                , SetFlag Durable ]   , ieffects = []-  , idesc    = "A video camera in each room would violate privacy of passengers, hence surveillance drones. Programmed to be easy to fend off, they keep a respectful distance."-  , ikit     = [ ("vision 16", COrgan), ("robot brain", COrgan) ]+  , idesc    = "A video camera in each room would violate privacy of passengers, hence surveillance drones. Programmed to be easy to fend off, they try to keep a respectful distance, even at the cost to themselves."+  , ikit     = [ (S_JET_BOOSTER, COrgan)+               , (S_VISION_16, COrgan), (S_ROBOT_BRAIN, COrgan) ]   } shepherdDrone = ItemKind   { isymbol  = 'd'   , iname    = "oversight drone"-  , ifreq    = [ ("robot", 100), ("mobile", 100), ("mobile robot", 100)-               , ("construction robot", 100) ]+  , ifreq    = [ (ROBOT, 100), (MOBILE, 100), (MOBILE_ROBOT, 100)+               , (CONSTRUCTION_ROBOT, 100) ]   , iflavour = zipPlain [BrRed]   , icount   = 1   , irarity  = [(1, 3), (10, 4)]  -- gets summoned often, so low base rarity@@ -779,47 +1030,47 @@   , iweight  = 1000   , idamage  = 0   , iaspects = [ AddSkill SkArmorMelee 80, AddSkill SkArmorRanged 40-               , AddSkill SkMaxHP 3, AddSkill SkMaxCalm 60-               , AddSkill SkSpeed 30, AddSkill SkNocto 2-               , AddSkill SkAlter (-1)  -- can't open doors; roams open spaces-               , AddSkill SkDisplace (-1)  -- as dumb as an animal-               , AddSkill SkMoveItem (-1)+               , AddSkill SkMaxHP 10, AddSkill SkMaxCalm 60+               , AddSkill SkSpeed 25, AddSkill SkNocto 2+               , AddSkill SkAggression 2  -- scout+               , AddSkill SkMoveItem (-1)  -- almost as dumb as an animal                , AddSkill SkProject (-1)                , SetFlag Durable ]   , ieffects = []-  , idesc    = "An tiny airborne robot designed to take construction measurements, synchronize robot workers and report irregularities, if any."-  , ikit     = [ ("live wire", COrgan), ("vision 16", COrgan), ("ear 8", COrgan)-               , ("robot brain", COrgan) ]+  , idesc    = "A tiny airborne robot designed to take construction measurements, synchronize robot workers and report irregularities. It seems to be in need of resetting itself."+  , ikit     = [ (S_JET_BOOSTER, COrgan), (S_LIVE_WIRE, COrgan)+               , (S_VISION_16, COrgan), (S_EAR_8, COrgan)+               , (S_ROBOT_BRAIN, COrgan) ]   } huntingDrone = ItemKind   { isymbol  = 'd'   , iname    = "hunting drone"-  , ifreq    = [("robot", 100), ("mobile", 100), ("mobile robot", 100)]+  , ifreq    = [(ROBOT, 100), (MOBILE, 100), (MOBILE_ROBOT, 100)]   , iflavour = zipPlain [Green]   , icount   = 1-  , irarity  = [(4, 0), (5, 5), (10, 8)]+  , irarity  = [(4, 0), (5, 5), (10, 8), (20, 10)]   , iverbHit = "clank"   , iweight  = 500   , idamage  = 0   , iaspects = [ AddSkill SkArmorMelee 30, AddSkill SkArmorRanged 15-               , AddSkill SkMaxHP 6, AddSkill SkMaxCalm 60-               , AddSkill SkSpeed 40, AddSkill SkNocto 2-               , AddSkill SkDisplace (-1)  -- almost as dumb as an animal-               , AddSkill SkMoveItem (-1)  -- but can project-               , AddSkill SkMelee (-1)+               , AddSkill SkMaxHP 10, AddSkill SkMaxCalm 60+               , AddSkill SkSpeed 30, AddSkill SkNocto 2+               , AddSkill SkMoveItem (-1)  -- almost as dumb as an animal+               , AddSkill SkMelee (-1)  -- but can project                , SetFlag Durable ]   , ieffects = []-  , idesc    = "Originally designed for hunting down and putting to sleep stray animals. The sleeping agent must have long since dried up."-  , ikit     = [ ("eye 8", COrgan), ("nostril", COrgan), ("ear 8", COrgan)+  , idesc    = "Originally designed for hunting down and putting to sleep stray animals. The sleeping agent has long since dried up and the propulsion got rather unpredictable."+  , ikit     = [ (S_JET_BOOSTER, COrgan)+               , (S_EYE_8, COrgan), (S_NOSTRIL, COrgan), (S_EAR_8, COrgan)                    -- week projectiles, so strong sight OK-               , ("robot brain", COrgan)-               , ("needle", CInv), ("tranquillizer dart", CInv) ]+               , (S_ROBOT_BRAIN, COrgan)+               , (NEEDLE, CStash), (TRANQUILIZER_DART, CStash) ]   } homeRobot = ItemKind   { isymbol  = 'r'   , iname    = "feral home robot"                -- TODO: name another 'deranged', tertiary imperative: survival-  , ifreq    = [("robot", 100), ("mobile", 100), ("mobile robot", 100)]+  , ifreq    = [(ROBOT, 100), (MOBILE, 100), (MOBILE_ROBOT, 100)]   , iflavour = zipPlain [Magenta]   , icount   = 1   , irarity  = [(1, 15), (10, 5)]@@ -832,36 +1083,36 @@                , SetFlag Durable ]   , ieffects = []   , idesc    = "Once a timid household robot, now sufficiently adapted to survive in the deadly environment."-  , ikit     = [ ("fist", COrgan)-               , ("eye 3", COrgan), ("nostril", COrgan), ("ear 3", COrgan)-               , ("robot brain", COrgan) ]+  , ikit     = [ (S_FIST, COrgan)+               , (S_EYE_3, COrgan), (S_NOSTRIL, COrgan), (S_EAR_3, COrgan)+               , (S_ROBOT_BRAIN, COrgan) ]   }-wasteRobot = ItemKind+wasteRobot = ItemKind  -- not a tank, because smell-only alien is already a tank   { isymbol  = 'r'   , iname    = "waste disposal robot"-  , ifreq    = [ ("robot", 100), ("mobile", 100), ("mobile robot", 100)-               , ("construction robot", 100) ]+  , ifreq    = [ (ROBOT, 100), (MOBILE, 100), (MOBILE_ROBOT, 100)+               , (CONSTRUCTION_ROBOT, 100) ]   , iflavour = zipPlain [Green]   , icount   = 1   , irarity  = [(5, 9)]  -- gets summoned often, so low base rarity   , iverbHit = "clank"   , iweight  = 80000   , idamage  = 0-  , iaspects = [ AddSkill SkMaxHP 17, AddSkill SkMaxCalm 30+  , iaspects = [ AddSkill SkMaxHP 20, AddSkill SkMaxCalm 30                , AddSkill SkSpeed 15, AddSkill SkNocto 2                , SetFlag Durable ]   , ieffects = []-  , idesc    = "You are not in its database, hence you are waste."-  , ikit     = [ ("tentacle", COrgan)-               , ("nostril", COrgan)  -- only smell, for variety-               , ("robot brain", COrgan)-               , ("waste container", CEqp) ]+  , idesc    = "You are not in its database, hence you are waste. It can't see and you smell funny, so that must suffice."+  , ikit     = [ (S_TENTACLE, COrgan), (S_SNOUT, COrgan)+               , (S_NOSTRIL, COrgan)  -- only smell, for variety+               , (S_ROBOT_BRAIN, COrgan)+               , (WASTE_CONTAINER, CEqp) ]   } lightRobot = ItemKind   { isymbol  = 'r'   , iname    = "decoration robot"-  , ifreq    = [ ("robot", 100), ("mobile", 100), ("mobile robot", 100)-               , ("construction robot", 100) ]+  , ifreq    = [ (ROBOT, 100), (MOBILE, 100), (MOBILE_ROBOT, 100)+               , (CONSTRUCTION_ROBOT, 100) ]   , iflavour = zipPlain [BrYellow]   , icount   = 1   , irarity  = [(3 * 10/15, 0), (4 * 10/15, 6), (10, 6)]@@ -879,24 +1130,25 @@                , SetFlag Durable ]   , ieffects = []   , idesc    = "Interior and exterior decoration robot. Strongly fancies deep reds recently."-  , ikit     = [ ("hooked claw", COrgan), ("tentacle", COrgan)-               , ("hull plating", COrgan)-               , ("eye 6", COrgan), ("ear 8", COrgan)-               , ("robot brain", COrgan)-               , ("construction hooter", CEqp) ]+  , ikit     = [ (S_HOOKED_CLAW, COrgan), (S_TENTACLE, COrgan), (S_FOOT, COrgan)+               , (S_HULL_PLATING, COrgan)+               , (S_EYE_6, COrgan), (S_EAR_8, COrgan)+               , (S_ROBOT_BRAIN, COrgan)+               , (CONSTRUCTION_HOOTER, CEqp) ]   }-heavyRobot = ItemKind+heavyRobot = ItemKind  -- summoning tank with armor, but fortunately weak+                       -- weapons; danger when strong weapons wielded!   { isymbol  = 'r'   , iname    = "demolition robot"-  , ifreq    = [ ("robot", 100), ("mobile", 100), ("mobile robot", 100)-               , ("construction robot", 70) ]+  , ifreq    = [ (ROBOT, 100), (MOBILE, 100), (MOBILE_ROBOT, 100)+               , (CONSTRUCTION_ROBOT, 70) ]   , iflavour = zipPlain [Cyan]   , icount   = 1-  , irarity  = [(7 * 10/15, 0), (8 * 10/15, 4), (10, 13)]+  , irarity  = [(7 * 10/15, 0), (8 * 10/15, 4), (10, 13), (30, 30)]   , iverbHit = "clank"   , iweight  = 800000   , idamage  = 0-  , iaspects = [ AddSkill SkMaxHP 41, AddSkill SkMaxCalm 40+  , iaspects = [ AddSkill SkMaxHP 60, AddSkill SkMaxCalm 40                    -- can't summon again for a long time;                    -- loses a lot of sight after summoning                , AddSkill SkSpeed 20, AddSkill SkNocto 2@@ -906,62 +1158,78 @@                , SetFlag Durable ]   , ieffects = []   , idesc    = "Heavy multi-purpose construction robot. Excels at discharging, dismantling and demolition."-  , ikit     = [ ("large jaw", COrgan), ("small claw", COrgan)-               , ("hull plating", COrgan)-               , ("eye 3", COrgan), ("ear 6", COrgan)-               , ("robot brain", COrgan)-               , ("spotlight", CEqp), ("construction hooter", CEqp) ]+  , ikit     = [ (S_HORN, COrgan), (S_FIST, COrgan), (S_SMALL_CLAW, COrgan)+               , (S_HULL_PLATING, COrgan)+               , (S_EYE_3, COrgan), (S_EAR_6, COrgan)+               , (S_ROBOT_BRAIN, COrgan)+               , (SPOTLIGHT, CEqp), (CONSTRUCTION_HOOTER, CEqp) ]   }++-- * Robot uniques, Allure-specific+ weldedRobot = ItemKind-  { isymbol  = 'W'-  , iname    = "Smiling Welded Robot"-  , ifreq    = [("robot", 100), ("immobile robot", 100)]+  { isymbol  = 'L'+  , iname    = "Bob"+  , ifreq    = [(ROBOT, 100), (IMMOBILE_ROBOT, 100)]   , iflavour = zipPlain [BrCyan]   , icount   = 1   , irarity  = [(1 * 10/15, 1000), (2 * 10/15, 0)]  -- unique   , iverbHit = "clank"   , iweight  = 80000   , idamage  = 0-  , iaspects = [ SetFlag Unique+  , iaspects = [ SetFlag Unique, ELabel "the Welded Luggage Robot"                , AddSkill SkMaxHP 200, AddSkill SkMaxCalm 100                , AddSkill SkSpeed 20, AddSkill SkNocto 2                , SetFlag Durable ]-  , ieffects = []-  , idesc    = "A well-built humanoid luggage unloading robot with a smooth satin silvery skin. Its graceful moves are stunted by a thick irregular weld fastening both its shapely legs to the floor. A whiff of smoke escapes whenever it opens its mouth in a charming toothy smile while brandishing a blowtorch in its trembling hand."-  , ikit     = [ ("fist", COrgan)-               , ("eye 6", COrgan), ("ear 3", COrgan)-               , ("mouth vent", COrgan)-               , ("robot brain", COrgan)-               , ("crude weld", COrgan), ("blowtorch", CEqp) ]+  , ieffects = [OnSmash $ VerbMsg "lament dying with disfigured and welded legs that nobody wanted to fix with the blowtorch" "."]+  , idesc    = "A well-built humanoid luggage unloading robot with a smooth silvery satin skin. Its graceful moves are stunted by a thick irregular weld fastening both its shapely legs to the floor. A whiff of smoke escapes whenever it opens its mouth in a charming toothy smile while brandishing a blowtorch in its trembling hand. Blowtorch! That's the key to open the welded staircase."+  , ikit     = [ (S_FIST, COrgan)+               , (S_EYE_6, COrgan), (S_EAR_3, COrgan)+               , (S_MOUTH_VENT, COrgan)+               , (S_ROBOT_BRAIN, COrgan)+               , (S_CRUDE_WELD, COrgan)+               , (S_CURRENCY, CGround) -- to ensure newbies know to visit+               , (BLOWTORCH, CEqp)+               , (S_PERFUME_POTION, CStash), (WIRECUTTING_TOOL, CStash) ]+                   -- establish stash to ensure heroes pick up blowtorch ASAP   } cleanerRobot = ItemKind   { isymbol  = 'C'-  , iname    = "Void Cleaner Robot"-  , ifreq    = [("robot", 100), ("mobile", 1)]+  , iname    = "The Void Cleaner Robot"+  , ifreq    = [(ROBOT, 100), (MOBILE, 1)]   , iflavour = zipPlain [BrGreen]   , icount   = 1-  , irarity  = [(11 * 10/15, 0), (12 * 10/15, 1000), (13 * 10/15, 0)]-                 -- unique, appears at 11 of 12+  , irarity  = [(11 * 10/15, 0), (12 * 10/15, 1000), (13 * 10/15, 0)]  -- unique   , iverbHit = "clank"   , iweight  = 800000   , idamage  = 0   , iaspects = [ SetFlag Unique-               , AddSkill SkMaxHP 120, AddSkill SkMaxCalm 40+               , AddSkill SkMaxHP 120+                   -- doubly regenerates and huge armor (72), so lower HP+               , AddSkill SkMaxCalm 40                    -- can't summon again for a long time;                    -- loses a lot of sight after summoning                , AddSkill SkSpeed 18, AddSkill SkNocto 2                , AddSkill SkAggression 1-                   -- can't use normal stairs nor dig; a weak miniboss+                   -- can't use hard stairs nor dig; a weak miniboss;+                   -- however, it can use the easy stairs and so change levels                , AddSkill SkApply 1  -- can apply the hooter                , SetFlag Durable ]-  , ieffects = []+  , ieffects = [OnSmash $ VerbMsg "clumsily try to pick up a dust speck" "."]   , idesc    = "An oversize waste disposal robot repaired with parts from a demolition robot, including a scaled up goal matrix. The cosmic void is now the only acceptable model of cleanliness. The robot's bulky trunk doesn't fit into even the larger lift carriages."-  , ikit     = [ ("live wire", COrgan), ("large jaw", COrgan)-               , ("tentacle", COrgan)-               , ("boiling vent", COrgan), ("hull plating", COrgan)-               , ("eye 3", COrgan), ("nostril", COrgan), ("ear 6", COrgan)-               , ("robot brain", COrgan)-               , ("currency", CInv), ("currency", CInv), ("currency", CInv)-               , ("waste container", CEqp), ("spotlight", CEqp)-               , ("construction hooter", CEqp) ]+  , ikit     = [ (S_TENTACLE, COrgan), (S_SNOUT, COrgan)+               , (S_HORN, COrgan), (S_SMALL_CLAW, COrgan)  -- no fist+               , (S_LIVE_WIRE, COrgan)  -- patched from parts+               , (ELECTRIC_AMBIENCE, COrgan)  -- regeneration+               , (S_BOILING_VENT, COrgan)  -- regeneration+               , (S_HULL_PLATING, COrgan)+                   -- the only such armor, except for weak animals; plus+                   -- the WASTE_CONTAINER, so only hammers and proj effective+               , (S_EYE_3, COrgan), (S_NOSTRIL, COrgan), (S_EAR_6, COrgan)+               , (S_ROBOT_BRAIN, COrgan)+               , (S_CURRENCY, CStash)+               , (S_CURRENCY, CStash)+               , (S_CURRENCY, CStash)+               , (WASTE_CONTAINER, CEqp), (SPOTLIGHT, CEqp)+               , (CONSTRUCTION_HOOTER, CEqp) ]   }