worlds/haxima-1.002/abandoned-cellar.scm

   1 ;;----------------------------------------------------------------------------
   2 ;; Cellar of Abandoned Farm
   3 ;;
   4 ;; This is the root cellar where Ilya his when the trolls attacked her farm.
   5 ;; She left Puska - a quest item - here in her hiding place. Initially it is
   6 ;; infested with spider eggs. A fair number of food items may be found here as
   7 ;; well, and some other basic materials. A paralyzed troll and a few troll
   8 ;; corpses should also decorate the place. The paralyzed troll might as well
   9 ;; have a conversation to make things interesting.
  10 ;;----------------------------------------------------------------------------
  11
  12 (kern-mk-map
  13  'm_abandoned_cellar 32 32 pal_expanded
  14  (list
  15   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  16   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  17   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  18   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ rr rr {{ {{ {{ rr rr rr rr rr rr rr rr "
  19   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ .. {{ {{ {{ {{ .. {{ {{ rr rr rr rr rr rr rr "
  20   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ .. .. .. .. .. .. .. .. {{ {{ rr rr rr rr rr rr "
  21   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ .. .. .. .. .. .. .. .. .. .. {{ rr rr rr rr rr rr "
  22   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ .. {{ {{ {{ .. .. .. .. {{ rr rr rr rr rr rr "
  23   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ rr {{ {{ .. .. .. {{ rr rr rr rr rr rr "
  24   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ {{ {{ {{ {{ rr rr rr rr "
  25   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ .. {{ {{ rr rr rr "
  26   "rr rr rr rr rr x! .. x! rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ {{ rr rr rr "
  27   "rr rr rr rr rr .. .. .. rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ rr rr rr rr "
  28   "rr rr rr rr rr .. .. .. .. .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  29   "rr rr rr rr rr .. .. .. rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  30   "rr rr rr rr rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  31   "rr rr rr rr rr .. .. .. rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  32   "rr rr rr rr rr .. .. .. .. .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  33   "rr rr rr rr rr .. .. .. rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  34   "rr rr rr rr rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  35   "rr rr rr rr rr .. .. .. rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  36   "rr rr rr rr rr .. .. .. .. .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  37   "rr rr rr rr rr .. .. .. rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  38   "rr rr rr rr rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  39   "rr rr rr rr rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ rr rr rr rr rr rr rr rr rr "
  40   "rr rr rr rr rr x! .. x! rr rr rr rr rr rr rr rr rr rr {{ {{ {{ .. {{ {{ rr rr rr rr rr rr rr rr "
  41   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ .. .. .. .. {{ {{ rr rr rr rr rr rr rr "
  42   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ .. .. .. .. .. {{ {{ rr rr rr rr rr rr rr "
  43   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ .. {{ {{ {{ rr rr rr rr rr rr rr rr "
  44   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ rr rr rr rr rr rr rr rr rr rr "
  45   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  46   "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
  47   ) ;; map m_abandoned_cellar
  48  )
  49
  50 (kern-mk-place 'p_abandoned_cellar ; tag
  51                "Musty Cellar"     ; name
  52                nil                ; sprite
  53                m_abandoned_cellar ; map
  54                #f                 ; wraps
  55                #t                 ; underground
  56                #f                 ; large-scale (wilderness)
  57                #f                 ; tmp combat place
  58                nil                ; subplaces
  59
  60                ;; neighbors
  61                (list
  62                 (list p_abandoned_farm up)
  63                 )
  64
  65                ;; objects
  66                (list
  67                 (list (mk-ladder-up 'p_abandoned_farm 6 25) 6 25)
  68
  69                 ;; existing webs
  70                 (list (kern-mk-obj web-type 1) 5 12)
  71                 (list (kern-mk-obj web-type 1) 5 13)
  72                 (list (kern-mk-obj web-type 1) 5 14)
  73                 (list (kern-mk-obj web-type 1) 6 11)
  74                 (list (kern-mk-obj web-type 1) 6 12)
  75                 (list (kern-mk-obj web-type 1) 6 13)
  76                 (list (kern-mk-obj web-type 1) 6 14)
  77                 (list (kern-mk-obj web-type 1) 6 15)
  78                 (list (kern-mk-obj web-type 1) 7 12)
  79                 (list (kern-mk-obj web-type 1) 7 13)
  80                 (list (kern-mk-obj web-type 1) 7 14)
  81                 (list (kern-mk-obj web-type 1) 7 15)
  82                 (list (kern-mk-obj web-type 1) 7 16)
  83                 (list (kern-mk-obj web-type 1) 8 13)
  84                 (list (kern-mk-obj web-type 1) 9  12)
  85                 (list (kern-mk-obj web-type 1) 9  13)
  86                 (list (kern-mk-obj web-type 1) 9  14)
  87                 (list (kern-mk-obj web-type 1) 10 12)
  88                 (list (kern-mk-obj web-type 1) 10 13)
  89                 (list (kern-mk-obj web-type 1) 10 14)
  90                 (list (kern-mk-obj web-type 1) 11 12)
  91                 (list (kern-mk-obj web-type 1) 11 13)
  92                 (list (kern-mk-obj web-type 1) 11 14)
  93                 (list (kern-mk-obj web-type 1) 9  16)
  94                 (list (kern-mk-obj web-type 1) 10 16)
  95                 (list (kern-mk-obj web-type 1) 10 17)
  96                 (list (kern-mk-obj web-type 1) 10 16)
  97                 (list (kern-mk-obj web-type 1) 11 17)
  98                 (list (kern-mk-obj web-type 1) 11 18)
  99
 100                 ;; spider eggs
 101                 (list (mk-spider-egg) 5 13)
 102                 (list (mk-spider-egg) 6 15)
 103                 (list (mk-spider-egg) 7 12)
 104                 (list (mk-spider-egg) 9  14)
 105                 (list (mk-spider-egg) 11 14)
 106                 (list (mk-spider-egg) 10 16)
 107                 (list (mk-spider-egg) 11 18)
 108
 109                 ;; troll victims
 110                 (put (mk-npc 'troll 3) 11 12)
 111
 112                 ;; puska
 113                 (list (kern-mk-obj t_puska 1) 10 18)
 114
 115                 )
 116                nil ; hooks
 117                nil ; edge entrances
 118                )
 119
 120 ;; ----------------------------------------------------------------------------
 121 ;; The entry hooks must be kern-loaded from a separate file, since they are
 122 ;; read-only and not saved with the session.
 123 ;; ----------------------------------------------------------------------------
 124
 125 (mk-place-music p_abandoned_cellar 'ml-dungeon-adventure)