worlds/haxima-1.002/slimy-cavern.scm

   1 ;;----------------------------------------------------------------------------
   2 ;; Ç´¶Ý¤ÎÆ¶·¢
   3 ;;
   4 ;;  ¤³¤³¤Ç¥×¥ì¥¤¥ä¡¼¤ÏÇ´¶Ý¡¢ÅðÂ±¤ÈÀï¤¦¡£¤½¤·¤Æ¥í¡¼¥é¥ó¥É¤òµß½Ð¤¹¤ë¡£
   5 ;;----------------------------------------------------------------------------
   6
   7 (kern-load "slimy-cavern-zones.scm")
   8
   9 ;;----------------------------------------------------------------------------
  10 ;; Characters
  11 ;;----------------------------------------------------------------------------
  12 (kern-load "roland.scm")
  13
  14 ;; ----------------------------------------------------------------------------
  15 ;; Map
  16 ;; ----------------------------------------------------------------------------
  17 (kern-mk-map
  18  'm_slimy_cavern 16 32 pal_expanded
  19         (list
  20                 "rn rn rn rn rn rn rn rn rn rn rn rn r8 r8 r8 rn "
  21                 "rn rn rn rn rn r8 r8 r8 r8 r8 rn r4 .. .. .. r2 "
  22                 "rn rn rn rn rc .. .. && .. .. ra r4 .. .. .. r2 "
  23                 "rn r8 r8 rc bb .. .. .. .. .. bb rr rr .. r3 rn "
  24                 "r4 bb .. .. bb .. .. .. .. .. bb .. .. .. ra rn "
  25                 "r4 bb .. .. .. bb bb .. bb bb .. .. .. .. .. r2 "
  26                 "r4 .. .. .. .. .. .. .. .. .. .. .. .. .. .. r2 "
  27                 "r4 bb .. .. .. .. .. .. .. .. .. .. .. .. r3 rn "
  28                 "rn r5 bb .. .. .. .. .. .. .. .. .. r3 r9 r8 rn "
  29                 "rn r8 rd .. .. .. .. .. .. .. .. .. r6 .. .. r2 "
  30                 "r4 .. .. .. .. .. .. r3 r5 .. .. r3 r4 .. .. r2 "
  31                 "r4 .. r7 .. rf bb r3 r8 r8 r5 .. r2 r4 .. r3 rn "
  32                 "rc %7 re .. .. .. r6 .. .. re .. ra rc .. r2 rn "
  33                 "~~ b~ b~ rf .. .. r6 .. .. .. .. .. .. .. r2 rn "
  34                 "r5 ~a b~ ~4 .. .. ra r5 .. r3 r5 .. r3 r1 rn rn "
  35                 "rn rd %a ~a ~9 ~1 b~ ra r1 rn rc .. ra rn rn rn "
  36                 "r4 .. .. .. .. ~a b~ b~ ra rc .. .. .. r2 rn rn "
  37                 "r4 .. r7 .. %f r7 b~ ~~ bb %7 .. .. .. ra rn rn "
  38                 "r4 .. r2 r1 r1 r8 rd b~ ~~ ~5 %5 .. .. %7 ra rn "
  39                 "r4 .. ra r8 r4 .. .. rf %% ~a b~ ~9 b~ ~1 ~5 ra "
  40                 "r4 .. .. .. r6 .. %b %% %% %% %c .. %% b~ ~8 ~~ "
  41                 "rn r1 r5 .. r6 .. .. r3 r5 .. .. .. %e rb r9 r1 "
  42                 "rn rn rc .. ra r1 r1 r8 rc .. .. .. .. .. bb r2 "
  43                 "rn rc .. .. .. ra rc .. .. .. r7 .. .. .. .. r2 "
  44                 "r4 .. .. .. .. .. .. .. r3 r1 r4 .. .. .. .. r2 "
  45                 "r4 .. .. .. .. r3 r1 r9 r8 r8 rn r5 .. .. r3 rn "
  46                 "rn r5 .. .. r3 rn rc .. .. .. ra rn r5 .. r2 rn "
  47                 "rn r8 rd .. ra rc .. .. .. .. .. ra rc .. ra rn "
  48                 "r4 .. .. .. .. .. .. .. .. .. .. .. .. .. .. r2 "
  49                 "r4 .. r3 r1 r1 r5 .. .. .. .. .. r7 .. rf .. r2 "
  50                 "r4 .. r2 rn rn rn r5 .. .. .. r3 r4 .. .. .. r2 "
  51                 "rn r1 rn rn rn rn rn r1 r1 r1 rn rn r1 r1 r1 rn "
  52         )
  53  )
  54
  55 ;;----------------------------------------------------------------------------
  56 ;; Special Objects
  57 ;;----------------------------------------------------------------------------
  58 (define rolands-chest
  59   (mk-chest
  60    nil ;; trap
  61    '(
  62     ;; Food
  63     (2 t_food)
  64
  65     ;; Arms
  66     (1 t_2H_sword)
  67     (1 t_armor_chain)
  68     (1 t_iron_helm)
  69
  70     ;; Hints/instructions
  71     )))
  72
  73 (define (mk-green-slime-verbose msg)
  74   (kern-log-msg msg)
  75   (mk-npc 'green-slime 3))
  76
  77
  78 (kern-mk-place 'p_slimy_cavern    ; tag
  79                "Ç´¶Ý¤ÎÆ¶·¢"       ; name
  80                nil                ; sprite
  81                m_slimy_cavern     ; map
  82                #f                 ; wraps
  83                #t                 ; underground
  84                #f                 ; large-scale (wilderness)
  85                #f                 ; tmp combat place
  86                nil                ; subplaces
  87                nil                ; neighbors
  88
  89                ;; objects
  90                (list
  91                 (put (mk-monman) 0 0)
  92
  93                 ;; loot and loose-lying objects
  94                 (list rolands-chest 9 2)
  95                 (put (mk-corpse-with-loot) 12 21)
  96
  97                 ;; Trapped chest with some reasonably nice thiefly items
  98                 (put (mk-chest 'poison-trap
  99                                '((1 t_in_ex_por_scroll)
 100                                  (1 t_wis_quas_scroll)
 101                                  (3 t_gem)
 102                                  (5 t_picklock)
 103                                  (50 t_gold_coins)
 104                                  ))
 105                      5 2)
 106
 107                 ;; terrain features
 108                 (list (mk-ladder-up 'p_shard 13 8) 8 30)
 109                 (list (mk-bridge 'north) 4 15)
 110                 (list (mk-bridge 'north) 11 19)
 111
 112                 ;; doors/mechanisms
 113                 (list (mk-door-full 'windowed-wood-door-in-rock #t #f nil) 13 3)
 114
 115                 ;; existing npc's
 116                 (put (mk-npc 'blackguard 2) 5 4)
 117                 (put (mk-npc 'blackguard 2) 9 4)
 118                 (put (mk-npc 'blackguard 2) 9 2)
 119                 (put (spawn-pt 'green-slime) 9 17)
 120                 (put (spawn-pt 'green-slime) 10 18)
 121                 (put (spawn-pt 'green-slime) 13 18)
 122                 (put (mk-roland) 14 1)
 123
 124                 )
 125                (list 'on-entry-to-dungeon-room) ; hooks
 126                nil ; edge entrances
 127                )
 128
 129 (mk-place-music p_slimy_cavern 'ml-dungeon-adventure)