samples/bms.st

   1 "
   2  coded by Ketmar // Vampire Avalon (psyc://ketmar.no-ip.org/~Ketmar)
   3  Understanding is not required. Only obedience.
   4
   5  This program is free software. It comes without any warranty, to
   6  the extent permitted by applicable law. You can redistribute it
   7  and/or modify it under the terms of the Do What The Fuck You Want
   8  To Public License, Version 2, as published by Sam Hocevar. See
   9  http://sam.zoy.org/wtfpl/COPYING for more details.
  10 "
  11
  12 "Unholy lexicon and all invoked titles (c) Rob Waldie, June 98"
  13 Package [ BlackMetal ]
  14
  15
  16 class: BMTitle | words | [
  17 ^initialize [
  18   words := #(
  19   #('And' 'Of' 'Under' 'In' 'Through' 'Between' 'Beneath' 'Beyond'
  20     'Towards' 'Into' 'From' 'Conquering' 'Praise' 'Praising' 'Storming'
  21     'Hailing' 'Beholding' 'Worshipping' 'Bleeding For' 'Dwelling In'
  22     'Rising From' 'Descending Into' 'War For' 'Battling For'
  23     'Gazing Over' 'Hearing' 'Blaspheming' 'Crossing' 'Invoking'
  24     'Traversing' 'Forever Reigns' 'Conquer' 'Storm' 'Hail' 'Behold'
  25     'Invoke' 'Over')
  26   #('a' 'The')
  27   #('Black' 'Hateful' 'Evil' 'Melancholic' 'Satanic' 'Eternal'
  28     'Frostbitten' 'Freezing' 'Funeral' 'Blood Red' 'Nocturnal' 'Winter'
  29     'Satanic' 'Unholy' 'Grim' 'Frozen' 'Spectral' 'Dead' 'Grey'
  30     'Bleakest' 'Burning' 'Silent' 'Still' 'Dark' 'Pagan' 'Vast'
  31     'Mighty' 'Infernal' 'Majestic' 'Blasphemic' 'Heathen' 'Everlasting'
  32     'Ancient' 'Northern' 'Antichristian' 'Blazing' 'Crucified')
  33   #('Wood' 'Forest' 'Mountain' 'Night' 'Realm' 'Kingdom' 'Dominion'
  34     'Northland' 'North' 'Hell' 'Underworld' 'Infinity' 'Eternity'
  35     'Chasm' 'Sky' 'Blood' 'Wrath' 'Power' 'Might' 'Glory' 'Forevermore'
  36     'Despair' 'Shadows' 'Throne' 'Fullmoon' 'Cosmos' 'Death' 'Darkness'
  37     'Frost' 'Horizon' 'Fog' 'Mist' 'Hordes' 'Legion' 'Passage'
  38     'Blasphemy' 'Fall Of Heaven' 'Death Of Christ' 'Twilight' 'Furnace'
  39     'Chalice' 'Sword' 'Dagger' 'Coffin' 'Pentagram' 'Cloak' 'Chant'
  40     'Scream' 'Cry' 'Wolf' 'Raven' 'Winter' 'Demon' 'Storm' 'Whore'
  41     'Goat' 'Dawn' 'Crucifixion' 'Oath' 'Pact')
  42   #('Beyond' 'Towards' 'Into' 'From' 'And' 'Of' 'Under' 'In' 'Through'
  43     'Between' 'Beneath' 'With' 'Surrounded By' 'Bewitched By'
  44     'For The Glory Of' 'Over' 'In The Name Of')
  45   #('Black' 'Hateful' 'Evil' 'Melancholic' 'Satanic' 'Eternal'
  46     'Frostbitten' 'Freezing' 'Funeral' 'Blood Red' 'Nocturnal' 'Winter'
  47     'Satanic' 'Unholy' 'Grim' 'Frozen' 'Spectral' 'Dead' 'Grey'
  48     'Bleakest' 'Burning' 'Silent' 'Still' 'Dark' 'Pagan' 'Vast'
  49     'Mighty' 'Infernal' 'Majestic' 'Blasphemic' 'Heathen' 'Everlasting'
  50     'Ancient' 'Northern' 'Antichristian' 'Blazing' 'Crucified')
  51   #('Woods' 'Forests' 'Mountains' 'Night' 'Realms' 'Kingdoms'
  52     'Dominions' 'Northlands' 'North' 'Hell' 'Underworlds' 'Infinity'
  53     'Eternity' 'Chasms' 'Skies' 'Wolves' 'Wrath' 'Power' 'Might'
  54     'Glory' 'Forevermore' 'Despair' 'Shadows' 'Thrones' 'Necromancy'
  55     'Cosmos' 'Death' 'Darkness' 'Frosts' 'Horizons' 'Fog' 'Mist'
  56     'Hordes' 'Legions' 'Passages' 'Blasphemy' 'Lust' 'Sin' 'Twilight'
  57     'Sodomy' 'Chalices' 'Swords' 'Daggers' 'Coffins' 'Pentagrams'
  58     'Flagellation' 'Chants' 'Screams' 'Cries' 'Winter' 'Demons'
  59     'Witchery' 'Spellcraft' 'Hellfire' 'Supremecy' 'Desolation' 'Light'
  60     'Storms' 'Winds' 'Horns' 'Damnation' 'Evil' 'Immortality' 'Inferno'
  61     'Spears'))
  62 ]
  63
  64
  65 ^title [
  66   | res |
  67   words ifNil: [ self initialize ].
  68   res := ''.
  69   words do: [:i |
  70     res := res + (i at: (SmallInt atRandom % i size) + 1) + ' '.
  71   ].
  72   ^res removeTrailingBlanks
  73 ]
  74
  75 ^new [
  76   ^self title
  77 ]
  78 ]
  79
  80
  81 { BMTitle new printNl. }