Allure-0.4.14: GameDefinition/Content/ItemKindActor.hs
-- Copyright (c) 2008--2011 Andres Loeh, 2010--2014 Mikolaj Konarski
-- 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 ) where
import qualified Data.EnumMap.Strict as EM
import Game.LambdaHack.Common.Ability
import Game.LambdaHack.Common.Color
import Game.LambdaHack.Common.Effect
import Game.LambdaHack.Common.Flavour
import Game.LambdaHack.Common.Misc
import Game.LambdaHack.Content.ItemKind
actors :: [ItemKind]
actors =
[warrior, pilot, engineer, doctor, clerk, hairdresser, lawyer, peddler, taxCollector, eye, fastEye, nose, elbow, armadillo, gilaMonster, komodoDragon, hyena, alligator, hornetSwarm, thornbush, razorwireFence, electricFence, activeFence, steamFaucet, biogasFaucet, shepherdDrone, huntingDrone, homeRobot, wasteRobot, lightRobot, heavyRobot]
warrior, pilot, engineer, doctor, clerk, hairdresser, lawyer, peddler, taxCollector, eye, fastEye, nose, elbow, armadillo, gilaMonster, komodoDragon, hyena, alligator, hornetSwarm, thornbush, razorwireFence, electricFence, activeFence, steamFaucet, biogasFaucet, shepherdDrone, huntingDrone, homeRobot, wasteRobot, lightRobot, heavyRobot :: ItemKind
-- * Hunams
warrior = ItemKind
{ isymbol = '@'
, iname = "mercenary" -- modified if in hero faction
, ifreq = [("hero", 100), ("civilian", 100)]
, iflavour = zipPlain [BrBlack] -- modified if in hero faction
, icount = 1
, irarity = [(1, 5)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 50, AddMaxCalm 60, AddSpeed 20
, AddSight 3 ] -- no via eyes, but feel, hearing, etc.
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = ""
, ikit = [("fist", COrgan), ("foot", COrgan), ("eye 4", COrgan)]
}
pilot = warrior
{ iname = "pilot" }
engineer = warrior
{ iname = "engineer" }
doctor = warrior
{ iname = "doctor" }
clerk = warrior
{ iname = "clerk"
, ifreq = [("civilian", 100)] }
hairdresser = clerk
{ iname = "hairdresser" }
lawyer = clerk
{ iname = "lawyer" }
peddler = clerk
{ iname = "peddler" }
taxCollector = clerk
{ iname = "tax collector" }
-- * Aliens
eye = ItemKind
{ isymbol = 'w'
, iname = "beckoning walker"
, ifreq = [("alien", 100), ("horror", 100)]
, iflavour = zipPlain [BrRed]
, icount = 1
, irarity = [(3, 1), (10, 9)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 20, AddMaxCalm 60, AddSpeed 20
, AddSight 4 ] -- can shoot for as long as lives
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "Walks with a stately dignity. You read death in the slow beckoning gestures of its revolting upper appendages."
, ikit = [ ("foot", COrgan)
, ("tentacle", COrgan), ("tentacle", COrgan)
, ("tentacle", COrgan)
, ("eye 4", COrgan) ]
}
fastEye = ItemKind
{ isymbol = 'b'
, iname = "crawling biter"
, ifreq = [("alien", 100), ("horror", 100)]
, iflavour = zipPlain [BrBlue]
, icount = 1
, irarity = [(6, 1), (10, 7)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 6, AddMaxCalm 60, AddSpeed 30
, AddSight 4 ] -- can shoot for as long as lives
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "It bites as blindingly fast as it runs. Or rolls? Or crawls? Also, cuts and pierces."
, ikit = [ ("tentacle", COrgan), ("tentacle", COrgan)
, ("tentacle", COrgan), ("tentacle", COrgan)
, ("jaw", COrgan)
, ("eye 4", COrgan), ("speed gland 10", COrgan) ]
}
nose = ItemKind
{ isymbol = 'h'
, iname = "tentacled horror"
, ifreq = [("alien", 100), ("horror", 100)]
, iflavour = zipPlain [BrGreen]
, icount = 1
, irarity = [(3, 1), (10, 9)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 40, AddMaxCalm 30, AddSpeed 18
, AddSmell 3 ] -- depends solely on smell
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "A blind, slimy mass of clawing, stinging and burning. You'd think it's mindless, but as soon as it touches your trembling body, it's always one step ahead."
, ikit = [ ("smallClaw", COrgan)
, ("tentacle", COrgan), ("tentacle", COrgan)
, ("tentacle", COrgan), ("tentacle", COrgan)
, ("thorn", COrgan), ("sting", COrgan) ]
}
elbow = ItemKind
{ isymbol = 's'
, iname = "creepy shooter"
, ifreq = [("alien", 100), ("horror", 100)]
, iflavour = zipPlain [BrMagenta]
, icount = 1
, irarity = [(6, 1), (10, 5)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 15, AddMaxCalm 80, AddSpeed 26
, AddSkills $ EM.singleton AbMelee (-1)
, AddSight 15 ] -- can shoot for as long as lives
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "It moves in sudden jerks and never makes a noise. Speaks in hard objects hurled at deadly speeds."
, ikit = [ ("speed gland 4", COrgan)
, ("any arrow", CInv), ("any arrow", CInv)
, ("any arrow", CInv), ("any arrow", CInv) ]
}
-- * Animals
armadillo = ItemKind
{ isymbol = 'a'
, iname = "giant armadillo"
, ifreq = [("animal", 100), ("horror", 100), ("summonable animal", 100)]
, iflavour = zipPlain [Brown]
, icount = 1
, irarity = [(1, 5)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 30, AddMaxCalm 30, AddSpeed 18
, AddSkills $ EM.singleton AbAlter (-1)
, AddSight 3 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = ""
, ikit = [ ("claw", COrgan), ("snout", COrgan), ("armored skin", COrgan)
, ("nostril", COrgan) ]
}
gilaMonster = ItemKind
{ isymbol = 'g'
, iname = "Gila monster"
, ifreq = [("animal", 100), ("horror", 100), ("summonable animal", 100)]
, iflavour = zipPlain [Magenta]
, icount = 1
, irarity = [(2, 5), (10, 3)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 15, AddMaxCalm 60, AddSpeed 15
, AddSkills $ EM.singleton AbAlter (-1)
, AddSight 3 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = ""
, ikit = [ ("venom tooth", COrgan), ("small claw", COrgan)
, ("eye 4", COrgan), ("nostril", COrgan) ]
}
komodoDragon = ItemKind -- bad hearing
{ isymbol = 'k'
, iname = "Komodo dragon"
, ifreq = [("animal", 100), ("horror", 100), ("summonable animal", 100)]
, iflavour = zipPlain [Blue]
, icount = 1
, irarity = [(5, 5), (10, 7)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 40, AddMaxCalm 60, AddSpeed 18
, AddSight 3 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = ""
, ikit = [ ("large tail", COrgan), ("jaw", COrgan), ("small claw", COrgan)
, ("speed gland 4", COrgan), ("armored skin", COrgan)
, ("eye 2", COrgan), ("nostril", COrgan) ]
}
hyena = ItemKind
{ isymbol = 'h'
, iname = "spotted hyena"
, ifreq = [("animal", 100), ("horror", 100), ("summonable animal", 100)]
, iflavour = zipPlain [Red]
, icount = 1
, irarity = [(4, 6), (10, 6)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 30, AddMaxCalm 60, AddSpeed 35
, AddSight 3 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = ""
, ikit = [("jaw", COrgan), ("eye 4", COrgan), ("nostril", COrgan)]
}
alligator = ItemKind
{ isymbol = 'a'
, iname = "alligator"
, ifreq = [("animal", 100), ("horror", 100), ("summonable animal", 100)]
, iflavour = zipPlain [Blue]
, icount = 1
, irarity = [(10, 8)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 30, AddMaxCalm 60, AddSpeed 17
, AddArmorMelee 30, AddArmorRanged 30
, AddSight 3 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = ""
, ikit = [ ("large jaw", COrgan), ("large tail", COrgan), ("claw", COrgan)
, ("armored skin", COrgan), ("eye 4", COrgan) ]
}
-- * Non-animal animals
hornetSwarm = ItemKind
{ isymbol = 'h'
, iname = "hornet swarm"
, ifreq = [("animal", 100), ("horror", 100), ("summonable animal", 100)]
, iflavour = zipPlain [Magenta]
, icount = 1
, irarity = [(5, 1), (10, 5)]
, iverbHit = "thud"
, iweight = 1000
, iaspects = [ AddMaxHP 5, AddMaxCalm 60, AddSpeed 30, AddSight 2
, AddSkills $ EM.singleton AbAlter (-1)
, AddArmorMelee 90, AddArmorRanged 90 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = ""
, ikit = [("sting", COrgan)]
}
thornbush = ItemKind
{ isymbol = 'b'
, iname = "rose bush"
, ifreq = [("animal", 100)]
, iflavour = zipPlain [Brown]
, icount = 1
, irarity = [(1, 1)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 20, AddMaxCalm 999, AddSpeed 20
, AddSkills
$ EM.fromDistinctAscList (zip [minBound..maxBound] [-1, -1..])
`addSkills` EM.fromList (zip [AbWait, AbMelee] [1, 1..])
, AddArmorMelee 30, AddArmorRanged 30 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = ""
, ikit = [("thorn", COrgan)]
}
-- * Robots
razorwireFence = ItemKind
{ isymbol = 'f'
, iname = "razorwire fence"
, ifreq = [("robot", 100)]
, iflavour = zipPlain [Cyan]
, icount = 1
, irarity = [(1, 1)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 30, AddMaxCalm 999, AddSpeed 20
, AddSkills
$ EM.fromDistinctAscList (zip [minBound..maxBound] [-1, -1..])
`addSkills` EM.fromList (zip [AbWait, AbMelee] [1, 1..])
, AddArmorMelee 50, AddArmorRanged 50 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "Must have been bought by previous ship owners to contain the wild animal infestation."
, ikit = [("razor", COrgan)]
}
electricFence = ItemKind
{ isymbol = 'f'
, iname = "electric fence"
, ifreq = [("robot", 100)]
, iflavour = zipPlain [Blue]
, icount = 1
, irarity = [(1, 1)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 10, AddMaxCalm 999, AddSpeed 50
, AddSkills
$ EM.fromDistinctAscList (zip [minBound..maxBound] [-1, -1..])
`addSkills` EM.fromList (zip [AbWait, AbMelee] [1, 1..])
, AddArmorMelee 50, AddArmorRanged 50 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "Marginally intelligent electric shepherd. Originally used in the spaceship's dairy farm and the zoo level."
, ikit = [("live wire", COrgan)]
}
activeFence = ItemKind
{ isymbol = 'f'
, iname = "active fence"
, ifreq = [("robot", 100)]
, iflavour = zipPlain [Red]
, icount = 1
, irarity = [(4, 0), (5, 1)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 30, AddMaxCalm 999, AddSpeed 20, AddSight 6
, AddSkills
$ EM.fromDistinctAscList (zip [minBound..maxBound] [-1, -1..])
`addSkills` EM.fromList (zip [AbWait, AbProject]
[1, 1..])
, AddArmorMelee 50, AddArmorRanged 50 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "Makeshift, mostly non-lethal, autonomous perimeter defense outpost."
, ikit = [ ("needle", CInv), ("potion of glue", CInv)
, ("potion of glue", CInv), ("potion of glue", CInv) ]
}
steamFaucet = ItemKind
{ isymbol = 'f'
, iname = "steam faucet"
, ifreq = [("robot", 100)]
, iflavour = zipPlain [BrWhite]
, icount = 1
, irarity = [(1, 1)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 100, AddMaxCalm 999, AddSpeed 5
, AddSkills
$ EM.fromDistinctAscList (zip [minBound..maxBound] [-1, -1..])
`addSkills` EM.fromList (zip [AbWait, AbMelee] [1, 1..]) ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "A cracked valve on one of the superheated water pipes spreading radially outward from the tokamak level."
, ikit = [("boiling vent", COrgan), ("fissure", COrgan)]
}
biogasFaucet = ItemKind
{ isymbol = 'f'
, iname = "biogas faucet"
, ifreq = [("robot", 33)] -- very rare
, iflavour = zipPlain [BrGreen]
, icount = 1
, irarity = [(3, 0), (4, 1)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 100, AddMaxCalm 999, AddSpeed 5
, AddSkills
$ EM.fromDistinctAscList (zip [minBound..maxBound] [-1, -1..])
`addSkills` EM.fromList (zip [AbWait] [1, 1..]) ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "An emergency pressure-release vent on a liquefied biogas pipe."
, ikit = [("explosion vent", COrgan)]
}
shepherdDrone = ItemKind
{ isymbol = 'd'
, iname = "shepherd drone"
, ifreq = [("robot", 100), ("horror", 100), ("summonable robot", 100)]
, iflavour = zipPlain [BrRed]
, icount = 1
, irarity = [(1, 2)]
, iverbHit = "thud"
, iweight = 1000
, iaspects = [ AddMaxHP 2, AddMaxCalm 60, AddSpeed 30, AddSight 4
, AddSkills
$ EM.fromDistinctAscList
$ zip [AbDisplace, AbMoveItem, AbProject] [-1, -1..]
, AddArmorMelee 90, AddArmorRanged 90 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "A shabby drone for bringing cows home."
, ikit = [("eye2", COrgan), ("live wire", COrgan)]
}
huntingDrone = ItemKind
{ isymbol = 'd'
, iname = "hunting drone"
, ifreq = [("robot", 100), ("horror", 100), ("summonable robot", 100)]
, iflavour = zipPlain [Green]
, icount = 1
, irarity = [(4, 0), (5, 1), (10, 2)]
, iverbHit = "thud"
, iweight = 500
, iaspects = [ AddMaxHP 2, AddMaxCalm 60, AddSpeed 40, AddSight 4
, AddSkills
$ EM.fromDistinctAscList
$ zip [AbDisplace, AbMoveItem, AbMelee] [-1, -1..]
, AddArmorMelee 90, AddArmorRanged 90 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "Originally designed for hunting down and putting to sleep stray animals. The sleeping agent has long since dried up."
, ikit = [("eye2", COrgan), ("needle", CInv)]
}
homeRobot = ItemKind
{ isymbol = 'r'
, iname = "feral home robot"
-- TODO: name another 'deranged', tertiary imperative: survival
, ifreq = [("robot", 100), ("horror", 100), ("summonable robot", 100)]
, iflavour = zipPlain [Magenta]
, icount = 1
, irarity = [(1, 10), (10, 6)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 10, AddMaxCalm 60, AddSpeed 20
, AddSmell 2 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "Once a timid household robot, it magnificently adapted to the deadly environment."
, ikit = [("fist", COrgan), ("eye2", COrgan)]
}
wasteRobot = ItemKind
{ isymbol = 'r'
, iname = "waste disposal robot"
, ifreq = [ ("robot", 100), ("horror", 100), ("summonable robot", 100)
, ("construction robot", 1) ]
, iflavour = zipPlain [Green]
, icount = 1
, irarity = [(1, 10), (10, 6)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 20, AddMaxCalm 60, AddSpeed 15
, AddSmell 2 ]
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "You are not in its database, hence you are waste."
, ikit = [ ("jaw", COrgan), ("tentacle", COrgan)
, ("waste container", COrgan)
, ("armored skin", COrgan), ("eye3", COrgan) ]
}
lightRobot = ItemKind
{ isymbol = 'r'
, iname = "decoration robot"
, ifreq = [ ("robot", 100), ("horror", 100), ("summonable robot", 100)
, ("construction robot", 1) ]
, iflavour = zipPlain [BrYellow]
, icount = 1
, irarity = [(1, 8), (10, 8)]
, iverbHit = "thud"
, iweight = 80000
, iaspects = [ AddMaxHP 20, AddMaxCalm 60, AddSpeed 30
, AddSight 3, AddLight 3 ] -- light can't be turned off
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "Interior and exterior decoration robot. Strongly fancies deep reds recently."
, ikit = [ ("claw", COrgan), ("tentacle", COrgan)
, ("armored skin", COrgan), ("eye4", COrgan) ]
}
heavyRobot = ItemKind
{ isymbol = 'r'
, iname = "construction robot"
, ifreq = [ ("robot", 100), ("horror", 100), ("summonable robot", 100)
, ("construction robot", 100) ]
, iflavour = zipPlain [BrRed]
, icount = 1
, irarity = [(1, 4), (10, 10)]
, iverbHit = "thud"
, iweight = 800000
, iaspects = [ AddMaxHP 80, AddMaxCalm 60, AddSpeed 20
, AddSight 3, AddLight 4 ] -- light can't be turned off
, ieffects = []
, ifeature = [Durable, Identified]
, idesc = "Heavy multi-purpose construction robot. Excels at discharging, dismantling and demolition."
, ikit = [ ("largeJaw", COrgan), ("claw", COrgan)
, ("construction hooter", CInv)
, ("armored skin", COrgan), ("eye3", COrgan) ]
}