;player:tell("[cyan]Black Realm Expansion for [green][bold]QuestCore2[normal]");
;player:tell("This script should [bold]only[normal] be run in a new QuestCore2 database");
;player:tell("in which no objects have been created yet. If any other objects exist,");
;player:tell("the @prop line for each item must be adjusted or these will not be properly set.");

@create $food2 named Dirty Water
@desc dirty as A flask of cloudy water.
@set dirty.units to 3
@set dirty.solid to 0
@set dirty.healing to 1.0
@set dirty.value_base to 0.5
@chmod dirty rf
@prop $dirtywater #189
@move $dirtywater to $nothing

@create $food2 named Clean Water
@desc clean as A flask of clear water.
@set clean.units to 3
@set clean.solid to 0
@set clean.healing to 2.0
@set clean.value_base to 2.0
@chmod clean rf
@prop $cleanwater #190
@move $cleanwater to $nothing

@create $food2 named Berries
@desc berries as A small sack of berries.
@set berries.units to 8
@set berries.solid to 1
@set berries.healing to 1.5
@set berries.value_base to 4.0
@chmod berries rf
@prop $berries #191
@move $berries to $nothing

@create $food2 named Apple
@desc apple as A large red apple.
@set apple.units to 1
@set apple.solid to 1
@set apple.healing to 3.0
@set apple.value_base to 5.0
@chmod apple rf
@prop $apple #192
@move $apple to $nothing

@create $food2 named Jerky
@desc jerky as A bag of jerky.
@set jerky.units to 3
@set jerky.solid to 1
@set jerky.healing to 2.0
@set jerky.value_base to 10.0
@chmod jerky rf
@prop $jerky #193
@move $jerky to $nothing

@create $food2 named Steak
@set steak.units to 2
@set steak.solid to 1
@set steak.healing to 5.0
@set steak.value_base to 15.0
@chmod steak rf
@prop $steak #194
@move $steak to $nothing

@create $clothing named Leather Gloves
@desc leather as A pair of thick leather gloves.
@set leather.armor to 1.0
@set leather.body_area to "hands"
@set leather.value_base to 5.0
@chmod leather rf
@prop $leathergloves #195
@move $leathergloves to $nothing
@kgen $leathergloves

@create $clothing named Wooden Helmet
@desc wooden as A wooden helmet covering all but the face.
@set wooden.armor to 1.5
@set wooden.body_area to "head"
@set wooden.value_base to 10.0
@chmod wooden rf
@prop $woodenhelmet #196
@move $woodenhelmet to $nothing
@kgen $woodenhelmet

@create $clothing named Iron Helmet
@desc iron as A iron helmet covering most of the face.
@set iron.armor to 2.5
@set iron.body_area to "head"
@set iron.value_base to 10.0
@chmod iron rf
@prop $ironhelmet #197
@move $ironhelmet to $nothing
@kgen $ironhelmet

@create $clothing named Cloth Armor
@desc cloth as Many layers of clothing.
@set cloth.armor to 2.0
@set cloth.body_area to "body"
@set cloth.value_base to 15.0
@chmod cloth rf
@prop $clotharmor #198
@move $clotharmor to $nothing
@kgen $clotharmor

@create $clothing named Gauntlets
@desc gauntlets as Metal gauntlets to cover the arms.
@set gauntlets.armor to 3.0
@set gauntlets.body_area to "hands"
@set gauntlets.value_base to 20.0
@chmod gauntlets rf
@prop $gauntlets #199
@move $gauntlets to $nothing
@kgen $gauntlets

@create $clothing named Wooden Shield
@desc wooden as A large wooden shield.
@set wooden.armor to 4.0
@set wooden.body_area to "hand"
@set wooden.value_base to 20.0
@chmod wooden rf
@prop $woodenshield #200
@move $woodenshield to $nothing
@kgen $woodenshield

@create $clothing named Iron Shield
@desc iron as A large iron shield.
@set iron.armor to 7.0
@set iron.body_area to "hand"
@set iron.value_base to 45.0
@chmod iron rf
@prop $ironshield #201
@move $ironshield to $nothing
@kgen $ironshield

@create $clothing named Tower Shield
@desc tower as A very large and tall iron shield.
@set tower.armor to 9.0
@set tower.body_area to "hand"
@set tower.value_base to 65.0
@chmod tower rf
@prop $towershield #202
@move $towershield to $nothing
@kgen $towershield

@create $clothing named Leather Armor
@desc leather as A suit of thick leather.
@set leather.armor to 4.5
@set leather.body_area to "body"
@set leather.value_base to 25.0
@chmod leather rf
@prop $leatherarmor #203
@move $leatherarmor to $nothing
@kgen $leatherarmor

@create $clothing named Studded Leather Armor
@desc studded as A suit of thick studded covered in large metal studs.
@set studded.armor to 5.5
@set studded.body_area to "body"
@set studded.value_base to 35.0
@chmod studded rf
@prop $studdedleatherarmor #204
@move $studdedleatherarmor to $nothing
@kgen $studdedleatherarmor

@create $clothing named Hide
@desc hide as A suit of thick animal hide.
@set hide.armor to 7.0
@set hide.body_area to "body"
@set hide.value_base to 50.0
@chmod hide rf
@prop $hide #205
@move $hide to $nothing
@kgen $hide

@create $clothing named Scale Mail
@desc scale as A suit of thin, overlapping metal plates.
@set scale.armor to 9.0
@set scale.body_area to "body"
@set scale.value_base to 75.0
@chmod scale rf
@prop $scalemail #206
@move $scalemail to $nothing
@kgen $scalemail

@create $clothing named Chain Mail
@desc chain as A suit of thick chains.
@set chain.armor to 11.5
@set chain.body_area to "body"
@set chain.value_base to 100.0
@chmod chain rf
@prop $chainmail #207
@move $chainmail to $nothing
@kgen $chainmail

@create $clothing named Splint Mail
@desc splint as A suit of thin metal strips riveted to leather.
@set splint.armor to 14.0
@set splint.body_area to "body"
@set splint.value_base to 200.0
@chmod splint rf
@prop $splintmail #208
@move $splintmail to $nothing
@kgen $splintmail

@create $clothing named Half Plate
@desc half as A suit of metal plates and chain mail covering most of the body.
@set half.armor to 18.0
@set half.body_area to "body"
@set half.value_base to 300.0
@chmod half rf
@prop $halfplate #209
@move $halfplate to $nothing
@kgen $halfplate

@create $clothing named Full Plate
@desc full as A suit of thin metal plates covering the enire body.
@set full.armor to 24.0
@set full.body_area to "body"
@set full.value_base to 500.0
@chmod full rf
@prop $fullplate #210
@move $fullplate to $nothing
@kgen $fullplate

@create $weapon named Short Staff
@desc short as A short, narrow wooden staff.
@set short.usage_verbage to " %<swings> %p %D at "
@set short.damage_base to 2.5
@set short.value_base to 5.0
@chmod short rf
@prop $shortstaff #211
@move $shortstaff to $nothing
@kgen $shortstaff

@create $weapon named Dagger
@desc dagger as A narrow, double-edged steel dagger.
@set dagger.usage_verbage to " %<thrusts> %p %D at "
@set dagger.damage_base to 4.0
@set dagger.value_base to 10.0
@chmod dagger rf
@prop $dagger #212
@move $dagger to $nothing
@kgen $dagger

@create $weapon named Sickle
@desc sickle as A sharply curved metal blade with a wooden handle.
@set sickle.usage_verbage to " %<thrusts> %p %D at "
@set sickle.damage_base to 5.5
@set sickle.value_base to 12.0
@chmod sickle rf
@prop $sickle #213
@move $sickle to $nothing
@kgen $sickle

@create $weapon named Long Staff
@desc long as A long, thick wooden staff.
@set long.usage_verbage to " %<swings> %p %D at "
@set long.damage_base to 7.0
@set long.value_base to 15.0
@chmod long rf
@prop $longstaff #214
@move $longstaff to $nothing
@kgen $longstaff

@create $weapon named Club
@desc club as A sturdy wooden club.
@set club.usage_verbage to " %<swings> %p %D at "
@set club.damage_base to 8.0
@set club.value_base to 20.0
@chmod club rf
@prop $club #215
@move $club to $nothing
@kgen $club

@create $weapon named Short Sword
@desc short as A short, steel sword.
@set short.usage_verbage to " %<swings> %p %D at "
@set short.damage_base to 10.0
@set short.value_base to 30.0
@chmod short rf
@prop $shortsword #216
@move $shortsword to $nothing
@kgen $shortsword

@create $weapon named Mace
@desc mace as An iron mace with a wooden handle.
@set mace.usage_verbage to " %<swings> %p %D at "
@set mace.damage_base to 12.0
@set mace.value_base to 40.0
@chmod mace rf
@prop $mace #217
@move $mace to $nothing
@kgen $mace

@create $weapon named Morningstar
@desc morningstar as An spiked iron ball mounted to a wooden handle.
@set morningstar.usage_verbage to " %<swings> %p %D at "
@set morningstar.damage_base to 14.0
@set morningstar.value_base to 50.0
@chmod morningstar rf
@prop $morningstar #218
@move $morningstar to $nothing
@kgen $morningstar

@create $weapon named Rapier
@desc rapier as A short, straight blade with an improved handle.
@set rapier.usage_verbage to " %<swings> %p %D at "
@set rapier.damage_base to 15.5
@set rapier.value_base to 60.0
@chmod rapier rf
@prop $rapier #219
@move $rapier to $nothing
@kgen $rapier

@create $weapon named Long Sword
@desc long as A long, straight blade.
@set long.usage_verbage to " %<swings> %p %D at "
@set long.damage_base to 19.0
@set long.value_base to 90.0
@chmod long rf
@prop $longsword #220
@move $longsword to $nothing
@kgen $longsword

@create $weapon named Warhammer
@desc warhammer as A massive stone hammer.
@set warhammer.usage_verbage to " %<swings> %p %D at "
@set warhammer.damage_base to 22.5
@set warhammer.value_base to 130.0
@chmod warhammer rf
@prop $warhammer #221
@move $warhammer to $nothing
@kgen $warhammer

@create $weapon named Battleaxe
@desc battleaxe as A large metal axe.
@set battleaxe.usage_verbage to " %<swings> %p %D at "
@set battleaxe.damage_base to 25.0
@set battleaxe.value_base to 150.0
@chmod battleaxe rf
@prop $battleaxe #222
@move $battleaxe to $nothing
@kgen $battleaxe

@create $weapon named Bastard Sword
@desc bastard as A very long, double-edged steel blade.
@set bastard.usage_verbage to " %<swings> %p %D at "
@set bastard.damage_base to 28.0
@set bastard.value_base to 200.0
@chmod bastard rf
@prop $bastardsword #223
@move $bastardsword to $nothing
@kgen $bastardsword

@create $weapon named Great Sword
@desc great as A long and wide double-edged steel blade.
@set great.usage_verbage to " %<swings> %p %D at "
@set great.damage_base to 32.0
@set great.value_base to 260.0
@chmod great rf
@prop $greatsword #224
@move $greatsword to $nothing
@kgen $greatsword

@create $ammo named Arrow
@desc arrow as Wooden arrows for use with short and long bows.
@set arrow.rounds to 1
@set arrow.value_base to 1.0
@chmod arrow rf
@prop $arrow #225
@move $arrow to $nothing

@create $ammo named Bolt
@desc arrow as Light metal bolts for use with crossbows.
@set arrow.rounds to 1
@set arrow.value_base to 2.0
@chmod arrow rf
@prop $bolt #226
@move $bolt to $nothing

@create $weapon named Short Bow
@desc short as A short, simple wooden bow.
@set short.shoots to 1
@set short.ammo_type to #225
@set short.max_load to 1
@set short.can_stun to 1
@set short.can_paralyse to 1
@set short.shoot_verbage to " %<shoots> an arrow from %p %D at "
@set short.projectile_dam to 8.5
@set short.value_base to 15.0
@chmod short rf
@prop $shortbow #227
@move $shortbow to $nothing
@kgen $shortbow

@create $weapon named Composite Short Bow
@desc composite as A composite wooden short bow.
@set composite.shoots to 1
@set composite.ammo_type to #225
@set composite.max_load to 1
@set composite.can_stun to 1
@set composite.can_paralyse to 1
@set composite.shoot_verbage to " %<shoots> an arrow from %p %D at "
@set composite.projectile_dam to 12.5
@set composite.value_base to 40.0
@chmod composite rf
@prop $compositeshortbow #228
@move $compositeshortbow to $nothing
@kgen $compositeshortbow

@create $weapon named Long Bow
@desc long as A long wooden bow.
@set long.shoots to 1
@set long.ammo_type to #225
@set long.max_load to 1
@set long.can_stun to 1
@set long.can_paralyse to 1
@set long.shoot_verbage to " %<shoots> an arrow from %p %D at "
@set long.projectile_dam to 15.0
@set long.value_base to 60.0
@chmod long rf
@prop $longbow #229
@move $longbow to $nothing
@kgen $longbow

@create $weapon named Composite Long Bow
@desc composite as A composite wooden long bow.
@set composite.shoots to 1
@set composite.ammo_type to #225
@set composite.max_load to 1
@set composite.can_stun to 1
@set composite.can_paralyse to 1
@set composite.shoot_verbage to " %<shoots> an arrow from %p %D at "
@set composite.projectile_dam to 20.0
@set composite.value_base to 100.0
@chmod composite rf
@prop $compositelongbow #230
@move $compositelongbow to $nothing
@kgen $compositelongbow

@create $weapon named Light Crossbow
@desc light as A light wooden crossbow.
@set light.shoots to 1
@set light.ammo_type to #226
@set light.max_load to 1
@set light.can_stun to 1
@set light.can_paralyse to 1
@set light.shoot_verbage to " %<shoots> a bolt from %p %D at "
@set light.projectile_dam to 14.0
@set light.value_base to 30.0
@chmod light rf
@prop $lightcrossbow #231
@move $lightcrossbow to $nothing
@kgen $lightcrossbow

@create $weapon named Heavy Crossbow
@desc heavy as A heavy wooden crossbow.
@set heavy.shoots to 1
@set heavy.ammo_type to #226
@set heavy.max_load to 1
@set heavy.can_stun to 1
@set heavy.can_paralyse to 1
@set heavy.shoot_verbage to " %<shoots> a bolt from %p %D at "
@set heavy.projectile_dam to 22.0
@set heavy.value_base to 130.0
@chmod heavy rf
@prop $heavycrossbow #232
@move $heavycrossbow to $nothing
@kgen $heavycrossbow

@create $monster named Small Skeleton
@desc small as The reanimated skeleton of a small humanoid.
@str small is 7
@dex small is 8
@int small is 7
@hea small is 4
@com small is 0.3
@set small.exp to 5
@set small.greedy to 0
@set small.edible to 0
@set small.eat_heal to 0.0
@set small.natural_def to 1
@set small.magic_immunity to 0
@set small.hostility to 3
@set small.weapon_types to {#211, #212, #213}
@set small.wander_ok to 1
@set small.startmoney to {{"gold", 2.0}}
@set small.money to {{"gold", 2.0}}
@chmod small rf
@prop $smallskeleton #233
@move $smallskeleton to $nothing
@kgen $smallskeleton

@create $monster named Skeleton
@desc skeleton as The reanimated skeleton of a humanoid.
@str skeleton is 9
@dex skeleton is 9
@int skeleton is 7
@hea skeleton is 8
@com skeleton is 0.5
@set skeleton.exp to 10
@set skeleton.greedy to 0
@set skeleton.edible to 0
@set skeleton.eat_heal to 0.0
@set skeleton.natural_def to 1
@set skeleton.magic_immunity to 0
@set skeleton.hostility to 3
@set skeleton.weapon_types to {#211, #212, #213, #214}
@set skeleton.wander_ok to 1
@set skeleton.startmoney to {{"gold", 4.0}}
@set skeleton.money to {{"gold", 4.0}}
@chmod skeleton rf
@prop $skeleton #234
@move $skeleton to $nothing
@kgen $skeleton

@create $monster named Snake
@desc snake as A large green snake.
@str snake is 9
@dex snake is 11
@int snake is 8
@hea snake is 10
@com snake is 0.7
@set snake.exp to 15
@set snake.greedy to 0
@set snake.rot_time to 30
@set snake.edible to 1
@set snake.eat_heal to 0.5
@set snake.natural_def to 0
@set snake.magic_immunity to 0
@set snake.hostility to 3
@set snake.weapon_types to {}
@set snake.wander_ok to 1
@set snake.startmoney to {{"gold", 5.0}}
@set snake.money to {{"gold", 5.0}}
@chmod snake rf
@prop $snake #235
@move $snake to $nothing
@kgen $snake

@create $monster named Kobold
@desc kobold as A small, bi-pedal lizard creature.
@str kobold is 10
@dex kobold is 12
@int kobold is 9
@hea kobold is 16
@com kobold is 1.0
@set kobold.exp to 20
@set kobold.greedy to 1
@set kobold.rot_time to 30
@set kobold.edible to 1
@set kobold.eat_heal to 1.0
@set kobold.natural_def to 1
@set kobold.magic_immunity to 0
@set kobold.hostility to 3
@set kobold.weapon_types to {#211, #212, #213, #214, #215, #216}
@set kobold.wander_ok to 1
@set kobold.startmoney to {{"gold", 8.0}}
@set kobold.money to {{"gold", 8.0}}
@chmod kobold rf
@prop $kobold #236
@move $kobold to $nothing
@kgen $kobold

@create $monster named Goblin
@desc goblin as An angry, ugly little humanoid.
@str goblin is 11
@dex goblin is 13
@int goblin is 10
@hea goblin is 20
@com goblin is 1.2
@set goblin.exp to 30
@set goblin.greedy to 1
@set goblin.rot_time to 30
@set goblin.edible to 1
@set goblin.eat_heal to 1.5
@set goblin.natural_def to 2
@set goblin.magic_immunity to 0
@set goblin.hostility to 4
@set goblin.weapon_types to {#211, #212, #213, #214, #215, #216, #217, #218}
@set goblin.wander_ok to 1
@set goblin.startmoney to {{"gold", 10.0}}
@set goblin.money to {{"gold", 10.0}}
@chmod goblin rf
@prop $goblin #237
@move $goblin to $nothing
@kgen $goblin

@create $monster named Zombie
@desc zombie as A reanimated human corpse.
@str zombie is 13
@dex zombie is 11
@int zombie is 9
@hea zombie is 25
@com zombie is 1.1
@set zombie.exp to 40
@set zombie.greedy to 0
@set zombie.rot_time to 30
@set zombie.edible to 1
@set zombie.eat_heal to 2.0
@set zombie.natural_def to 1
@set zombie.magic_immunity to 0
@set zombie.hostility to 4
@set zombie.weapon_types to {#214, #215, #216}
@set zombie.wander_ok to 1
@set zombie.startmoney to {{"gold", 12.0}}
@set zombie.money to {{"gold", 12.0}}
@chmod zombie rf
@prop $zombie #238
@move $zombie to $nothing
@kgen $zombie

@create $monster named Ghoul
@desc ghoul as A vicious reanimated corpse.
@str ghoul is 16
@dex ghoul is 14
@int ghoul is 11
@hea ghoul is 24
@com ghoul is 1.5
@set ghoul.exp to 50
@set ghoul.greedy to 0
@set ghoul.rot_time to 30
@set ghoul.edible to 0
@set ghoul.eat_heal to 0.0
@set ghoul.natural_def to 1
@set ghoul.magic_immunity to 1
@set ghoul.hostility to 4
@set ghoul.weapon_types to {#216, #217, #218}
@set ghoul.wander_ok to 1
@set ghoul.startmoney to {{"gold", 16.0}}
@set ghoul.money to {{"gold", 16.0}}
@chmod ghoul rf
@prop $ghoul #239
@move $ghoul to $nothing
@kgen $ghoul

@create $monster named Orc
@desc orc as A large beast-like humanoid.
@str orc is 18
@dex orc is 14
@int orc is 12
@hea orc is 32
@com orc is 1.8
@set orc.exp to 75
@set orc.greedy to 1
@set orc.rot_time to 30
@set orc.edible to 1
@set orc.eat_heal to 3.0
@set orc.natural_def to 2
@set orc.magic_immunity to 0
@set orc.hostility to 3
@set orc.weapon_types to {#214, #215, #216, #217, #218}
@set orc.wander_ok to 1
@set orc.startmoney to {{"gold", 20.0}}
@set orc.money to {{"gold", 20.0}}
@chmod orc rf
@prop $orc #240
@move $orc to $nothing
@kgen $orc

@create $monster named Gnoll
@desc gnoll as A tall fox-like creature which stands upright.
@str gnoll is 21
@dex gnoll is 18
@int gnoll is 13
@hea gnoll is 40
@com gnoll is 1.9
@set gnoll.exp to 100
@set gnoll.greedy to 1
@set gnoll.rot_time to 30
@set gnoll.edible to 1
@set gnoll.eat_heal to 3.5
@set gnoll.natural_def to 2
@set gnoll.magic_immunity to 0
@set gnoll.hostility to 5
@set gnoll.weapon_types to {#211, #215, #216, #217, #218}
@set gnoll.wander_ok to 1
@set gnoll.startmoney to {{"gold", 24.0}}
@set gnoll.money to {{"gold", 24.0}}
@chmod gnoll rf
@prop $gnoll #241
@move $gnoll to $nothing
@kgen $gnoll

@create $monster named Grimlock
@desc grimlock as A large, malformed creature.
@str grimlock is 24
@dex grimlock is 20
@int grimlock is 14
@hea grimlock is 60
@com grimlock is 2.2
@set grimlock.exp to 120
@set grimlock.greedy to 1
@set grimlock.rot_time to 0
@set grimlock.edible to 0
@set grimlock.eat_heal to 0.0
@set grimlock.natural_def to 2
@set grimlock.magic_immunity to 1
@set grimlock.hostility to 3
@set grimlock.weapon_types to {#216, #217, #218, #219}
@set grimlock.wander_ok to 1
@set grimlock.startmoney to {{"gold", 30.0}}
@set grimlock.money to {{"gold", 30.0}}
@chmod grimlock rf
@prop $grimlock #242
@move $grimlock to $nothing
@kgen $grimlock

@create $monster named Satyr
@desc satyr as A half-human, half-goat creature.
@str satyr is 27
@dex satyr is 23
@int satyr is 15
@hea satyr is 85
@com satyr is 2.5
@set satyr.exp to 150
@set satyr.greedy to 1
@set satyr.rot_time to 30
@set satyr.edible to 1
@set satyr.eat_heal to 4.0
@set satyr.natural_def to 2
@set satyr.magic_immunity to 1
@set satyr.hostility to 4
@set satyr.weapon_types to {#217, #218, #219, #220}
@set satyr.wander_ok to 1
@set satyr.startmoney to {{"gold", 40.0}}
@set satyr.money to {{"gold", 40.0}}
@chmod satyr rf
@prop $satyr #243
@move $satyr to $nothing
@kgen $satyr

@create $monster named Centaur
@desc centaur as A half-human, half-horse creature.
@str centaur is 30
@dex centaur is 27
@int centaur is 16
@hea centaur is 100
@com centaur is 2.8
@set centaur.exp to 175
@set centaur.greedy to 1
@set centaur.rot_time to 30
@set centaur.edible to 1
@set centaur.eat_heal to 4.5
@set centaur.natural_def to 2
@set centaur.magic_immunity to 1
@set centaur.hostility to 4
@set centaur.weapon_types to {#217, #218, #219, #220, #221}
@set centaur.wander_ok to 1
@set centaur.startmoney to {{"gold", 50}}
@set centaur.money to {{"gold", 50.0}}
@chmod centaur rf
@prop $centaur #244
@move $centaur to $nothing
@kgen $centaur

@create $monster named Minotaur
@desc minotaur as A half-human, half-bull creature.
@str minotaur is 35
@dex minotaur is 30
@int minotaur is 15
@hea minotaur is 150
@com minotaur is 3.0
@set minotaur.exp to 200
@set minotaur.greedy to 1
@set minotaur.rot_time to 30
@set minotaur.edible to 1
@set minotaur.eat_heal to 5.0
@set minotaur.natural_def to 2
@set minotaur.magic_immunity to 1
@set minotaur.hostility to 5
@set minotaur.weapon_types to {#219, #220, #221}
@set minotaur.wander_ok to 1
@set minotaur.startmoney to {{"gold", 70.0}}
@set minotaur.money to {{"gold", 70.0}}
@chmod minotaur rf
@prop $minotaur #245
@move $minotaur to $nothing
@kgen $minotaur

@create $monster named Ogre
@desc ogre as A very large beast-like humanoid.
@str ogre is 39
@dex ogre is 32
@int ogre is 16
@hea ogre is 175
@com ogre is 3.3
@set ogre.exp to 225
@set ogre.greedy to 1
@set ogre.rot_time to 30
@set ogre.edible to 1
@set ogre.eat_heal to 5.5
@set ogre.natural_def to 2
@set ogre.magic_immunity to 0
@set ogre.hostility to 4
@set ogre.weapon_types to {#216, #217, #218, #219, #220, #221, #222}
@set ogre.wander_ok to 1
@set ogre.startmoney to {{"gold", 80.0}}
@set ogre.money to {{"gold", 80.0}}
@chmod ogre rf
@prop $ogre #246
@move $ogre to $nothing
@kgen $ogre

@create $monster named Troll
@desc troll as A large giant-like humanoid with reptilian features.
@str troll is 42
@dex troll is 36
@int troll is 17
@hea troll is 220
@com troll is 3.6
@set troll.exp to 250
@set troll.greedy to 1
@set troll.rot_time to 0
@set troll.edible to 0
@set troll.eat_heal to 0.0
@set troll.natural_def to 2
@set troll.magic_immunity to 0
@set troll.hostility to 5
@set troll.weapon_types to {#218, #219, #220, #221, #222, #223}
@set troll.wander_ok to 1
@set troll.startmoney to {{"gold", 90.0}}
@set troll.money to {{"gold", 90.0}}
@chmod troll rf
@prop $troll #247
@move $troll to $nothing
@kgen $troll

@create $monster named Giant
@desc giant as A massive human.
@str giant is 47
@dex giant is 39
@int giant is 17
@hea giant is 270
@com giant is 3.8
@set giant.exp to 275
@set giant.greedy to 1
@set giant.rot_time to 30
@set giant.edible to 1
@set giant.eat_heal to 6.0
@set giant.natural_def to 2
@set giant.magic_immunity to 0
@set giant.hostility to 4
@set giant.weapon_types to {#218, #219, #220, #221, #222, #223, #224}
@set giant.wander_ok to 1
@set giant.startmoney to {{"gold", 100.0}}
@set giant.money to {{"gold", 100.0}}
@chmod giant rf
@prop $giant #248
@move $giant to $nothing
@kgen $giant

@create $monster named Devil
@desc devil as An infernal creature.
@str devil is 51
@dex devil is 43
@int devil is 18
@hea devil is 310
@com devil is 4.0
@set devil.exp to 300
@set devil.greedy to 0
@set devil.rot_time to 0
@set devil.edible to 0
@set devil.eat_heal to 0.0
@set devil.natural_def to 1
@set devil.magic_immunity to 1
@set devil.hostility to 5
@set devil.weapon_types to {#219, #220, #221, #222, #223, #224}
@set devil.wander_ok to 1
@set devil.startmoney to {{"gold", 130.0}}
@set devil.money to {{"gold", 130.0}}
@chmod devil rf
@prop $devil #249
@move $devil to $nothing
@kgen $devil

@create $monster named Demon
@desc demon as A massive demon of ghost-like substance.
@str demon is 56
@dex demon is 48
@int demon is 19
@hea demon is 350
@com demon is 4.5
@set demon.exp to 300
@set demon.greedy to 0
@set demon.rot_time to 0
@set demon.edible to 0
@set demon.eat_heal to 0.0
@set demon.natural_def to 1
@set demon.magic_immunity to 1
@set demon.hostility to 5
@set demon.weapon_types to {#220, #221, #223, #224}
@set demon.wander_ok to 1
@set demon.startmoney to {{"gold", 180.0}}
@set demon.money to {{"gold", 180.0}}
@chmod demon rf
@prop $demon #250
@move $demon to $nothing
@kgen $demon


@create $monster named Serpent
@desc serpent as A small, bi-pedal lizard creature.
@str serpent is 60
@dex serpent is 54
@int serpent is 20
@hea serpent is 400
@com serpent is 4.8
@set serpent.exp to 350
@set serpent.greedy to 0
@set serpent.rot_time to 30
@set serpent.edible to 1
@set serpent.eat_heal to 7.0
@set serpent.natural_def to 0
@set serpent.magic_immunity to 0
@set serpent.hostility to 5
@set serpent.weapon_types to {}
@set serpent.wander_ok to 1
@set serpent.startmoney to {{"gold", 200.0}}
@set serpent.money to {{"gold", 200.0}}
@chmod serpent rf
@prop $serpent #251
@move $serpent to $nothing
@kgen $serpent

@create $monster named Blue Dragon
@desc blue as A massive blue dragon.
@str blue is 70
@dex blue is 70
@int blue is 30
@hea blue is 500
@com blue is 10.0
@set blue.exp to 500
@set blue.greedy to 0
@set blue.rot_time to 30
@set blue.edible to 1
@set blue.eat_heal to 10.0
@set blue.natural_def to 0
@set blue.magic_immunity to 1
@set blue.hostility to 5
@set blue.weapon_types to {}
@set blue.wander_ok to 1
@set blue.startmoney to {{"gold", 250.0}}
@set blue.money to {{"gold", 250.0}}
@chmod blue rf
@prop $bluedragon #252
@move $bluedragon to $nothing
@kgen $bluedragon

@create $monster named Green Dragon
@desc green as A massive green dragon.
@str green is 80
@dex green is 80
@int green is 35
@hea green is 600
@com green is 12.0
@set green.exp to 600
@set green.greedy to 0
@set green.rot_time to 30
@set green.edible to 1
@set green.eat_heal to 15.0
@set green.natural_def to 0
@set green.magic_immunity to 1
@set green.hostility to 5
@set green.weapon_types to {}
@set green.wander_ok to 1
@set green.startmoney to {{"gold", 300.0}}
@set green.money to {{"gold", 300.0}}
@chmod green rf
@prop $greendragon #253
@move $greendragon to $nothing
@kgen $greendragon

@create $monster named Red Dragon
@desc red as A massive red dragon.
@str red is 90
@dex red is 90
@int red is 40
@hea red is 700
@com red is 15.0
@set red.exp to 700
@set red.greedy to 0
@set red.rot_time to 30
@set red.edible to 1
@set red.eat_heal to 20.0
@set red.natural_def to 0
@set red.magic_immunity to 1
@set red.hostility to 5
@set red.weapon_types to {}
@set red.wander_ok to 1
@set red.startmoney to {{"gold", 400.0}}
@set red.money to {{"gold", 400.0}}
@chmod red rf
@prop $reddragon #254
@move $reddragon to $nothing
@kgen $reddragon

@create $monster named White Dragon
@desc white as A massive white dragon.
@str white is 100
@dex white is 100
@int white is 50
@hea white is 800
@com white is 17.0
@set white.exp to 800
@set white.greedy to 0
@set white.rot_time to 30
@set white.edible to 1
@set white.eat_heal to 25.0
@set white.natural_def to 0
@set white.magic_immunity to 1
@set white.hostility to 5
@set white.weapon_types to {}
@set white.wander_ok to 1
@set white.startmoney to {{"gold", 500.0}}
@set white.money to {{"gold", 500.0}}
@chmod white rf
@prop $whitedragon #255
@move $whitedragon to $nothing
@kgen $whitedragon

@create $monster named Black Dragon
@desc black as A massive black dragon.
@str black is 140
@dex black is 150
@int black is 50
@hea black is 1000
@com black is 20.0
@set black.exp to 1000
@set black.greedy to 0
@set black.rot_time to 30
@set black.edible to 1
@set black.eat_heal to 40.0
@set black.natural_def to 0
@set black.magic_immunity to 1
@set black.hostility to 5
@set black.weapon_types to {}
@set black.wander_ok to 1
@set black.startmoney to {{"gold", 700.0}}
@set black.money to {{"gold", 700.0}}
@chmod black rf
@prop $blackdragon #256
@move $blackdragon to $nothing
@kgen $blackdragon

@create $thing named Generic Crusher
@prop $crusher #257
@chmod $crusher rf
@move $crusher to $nothing

;#257.("aliases") = {"Crusher"}
;#257.("description") = "A sophisticated machine which can convert most items into gold."

@verb #257:"p*ut ins*ert" any in this rxd #2
@program #257:put
if (!dobjstr)
  return player:tell("Put what in the", this.title, "?");
elseif (dobj == #-2)
  return player:tell("There appears to be more than one \"", dobjstr, "\".");
elseif (dobj == #-3)
  return player:tell("You do not have that.");
elseif (dobj.location != player)
  return player:tell("You are not carrying that.");
else
  move(dobj, this);
  player:tell("You insert ", dobj:title(), " into the ", this:title(), "...");
  player.location:announce(player:title(), " inserts ", dobj:title(), " into the ", this:title(), "...");
  if ((!$object_utils:has_property(dobj, "value_base")) || (!dobj.value_base))
    player:tell("The ", this:title(), " rejects ", dobj:title(), ".");
    player.location:announce("The ", this:title(), " rejects ", dobj:title(), ".");
    return;
  endif
  dt = dobj:title();
  v = dobj.value_base / 2.0;
  fork (3)
    player:tell("After some time, the ", this:title(), " dispenses ", tostr(v), " gold!");
    player:tell("You take the ", tostr(v), " gold.");
    player.money[1][2] = player.money[1][2] + v;
    player:tell("You now have ", floatstr(player.money[1][2], 2), " gold.");
    player.location:announce("After some time, the ", this:title(), " dispenses ", tostr(v), " gold!");
    player.location:announce(player:title(), " takes the ", tostr(v), " gold.");
    $recycler:_recycle(dobj);
    player:tell(dt, " has been destroyed by the ", this:title(), ".");
    player.location:announce(dt, " has been destroyed by the ", this:title(), ".");
  endfork
  return;
endif
.

@verb #257:"use" this any any rxd #2
@program #257:use
return player:tell("To use this machine, an item must be placed into it.");
.

@create $thing named Generic Vendor
@prop $vendor #258
@chmod $vendor rf
@move $vendor to $nothing

@prop $vendor.items {} rc

;#258.("aliases") = {"Generic Vendor Machine"}
;#258.("description") = "A machine capable of selling items."

@verb #258:"press push" any on this rxd #2
@program #258:press
if (toint(dobjstr) > 9)
  return player:tell("You can only press buttons 1 through ", tostr(length(this.items)), ".");
endif
b = toint(dobjstr);
if (this.items[b].value_base > player.money[1][2])
  return player:tell("You do not have enough gold to purchase ", this.items[b].name, ".");
else
  player:tell("The ", this:title(), " insists you deposit ", tostr(this.items[b].value_base), " gold for this item.");
  player:tell("Pay ", tostr(this.items[b].value_base), " for ", this.items[b].name, "?");
  d = $command_utils:yes_or_no();
  if (!d)
    return player:tell("No transaction.");
  else
    player.money[1][2] = player.money[1][2] - this.items[b].value_base;
    o = $recycler:_create(this.items[b]);
    o.name = this.items[b].name;
    move(o, this.location);
    player:tell("The ", this:title(), " loudly issues your purchase. It lands on the ground.");
    player.location:announce("The ", this:title(), " loudly issues ", player:title(), "'s purchase. It lands on the ground.");
    return;
  endif
endif
.

@verb #258:"look_self" this none this rxd #2
@program #258:look_self
desc = this:description();
if (desc)
  player:tell_lines(desc);
else
  player:tell("You see nothing special.");
endif
player:tell();
if (!this.items)
  player:tell("There are no items on display in the ", this:title(), ".");
else
  z = 0;
  for x in (this.items)
    z = z + 1;
    player:tell("[", tostr(z), "] ", x:title(), " | Price: ", tostr(x.value_base), " gold");
  endfor
  player:tell();
  player:tell("Press one of the buttons on the ", this:title(), " to purchase it.");
  player:tell("E.g. press 2 on vendor");
endif
.

@verb $wiz:"@weapons @armor @food @monsters" any any any rxd #2
@program $wiz:@weapons
if (verb == "@weapons")
player:tell("[bold][white]WEAPONS[normal]");
player:tell("[bold][white]-------[normal]");
player:tell();
for x in (children($weapon))
player:tell(x:title(), " (", tostr(x), ") [bold][green]DMG:[unbold] ", tostr(x.damage_base), " [bold][yellow]Price[unbold] ", tostr(x.value_base), "G[normal]");
endfor
return;
elseif (verb == "@armor")
player:tell("[bold][white]ARMOR[normal]");
player:tell("[bold][white]-----[normal]");
player:tell();
for y in (children($clothing))
player:tell(y:title(), " (", tostr(y), ") [bold][cyan]Armor:[unbold] ", tostr(y.armor), " [bold][yellow]Price[unbold] ", tostr(y.value_base), "G[normal]");
endfor
return;
elseif (verb == "@food")
player:tell("[bold][white]FOOD[normal]");
player:tell("[bold][white]----[normal]");
player:tell();
for z in (children($food2))
player:tell(z:title(), " (", tostr(z), ") [bold][white]Healing:[unbold] ", tostr(z.healing), " [bold][yellow]Price[unbold] ", tostr(z.value_base), "G[normal]");
endfor
return;
elseif (verb == "@monsters")
player:tell("[bold][white]MONSTERS[normal]");
player:tell("[bold][white]--------[normal]");
player:tell();
for m in (children($monster))
player:tell(m:title(), " (", tostr(m), ") [bold][green]STR[unbold] ", m.stats[2][1], "[bold] DEX[unbold] ", tostr(m.stats[2][2]), "[bold] INT[unbold] ", tostr(m.stats[2][3]), "[bold] HEA[unbold] ", tostr(m.stats[2][4]), "[bold] COM[unbold] ", tostr(m.skills[2][1]), "[bold] XP[unbold] ", tostr(m.exp), "[normal]");
endfor
return;
endif
.

;player:tell("[bold][green]Installation finished.[normal]");