worlds/haxima-1.002/oparine.scm

   1 ;;----------------------------------------------------------------------------
   2 ;; ¥ª¥Ñ¡¼¥ê¥ó
   3 ;;
   4 ;; È¾Åç¤Î¼çÍ×¤Ê¹ÁÄ®¤Ç¤¢¤ë¡£
   5 ;;----------------------------------------------------------------------------
   6
   7 ;;----------------------------------------------------------------------------
   8 ;; Map
   9 ;;----------------------------------------------------------------------------
  10 (kern-mk-map
  11  'm_oparine 31 55 pal_expanded
  12         (list
  13                 ".. .. .. .. .. .. .. .. .. .. .. .. cc cc cc cc cc cc .. .. .. .. .. .. .. .. .. .. .. .. .. "
  14                 ".. .. xx xx xx xx xx xx xx xx xx xx cc cc cc cc cc cc xx xx xx xx xx xx xx xx xx xx xx xx .. "
  15                 ".. .. xx .C .H .E .E .R .F .U .L xx cc cc cc cc cc cc xx ,, xx .B .I .L .G .E xx ,, ,, xx .. "
  16                 ".. .. xx .B .U .N .K .M .A .T .E xx cc cc cc cc cc cc xx ,, xx .W .A .T .E .R xx ,, ,, xx .. "
  17                 ".. .. ,, ,, ,, ,, ,, ,, ,, ,, ,, xx cc cc cc cc cc cc xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. "
  18                 ".. .. xx [[ @@ @@ @@ @@ @@ @@ ]] xx cc cc cc cc cc cc xx ,, xx [[ @@ @@ @@ ]] xx xx xx xx .. "
  19                 ".. .. xx ,, ,, ,, ,, ,, ,, ,, ,, ws cc cc cc cc cc cc xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. .. "
  20                 ".. .. xx ,, ,, ,, ,, ,, ,, ,, ,, ,, cc cc cc cc cc cc ws ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. .. "
  21                 ".. .. xx xx xx xx ,, ,, xx xx xx sI cc cc cc cc cc xx xx [[ @@ ]] ,, ,, ,, [[ @@ ]] xx xx .. "
  22                 ".. .. xx ,, ,, xx ,, ,, ,, ,, ,, xx cc cc cc cc cc xx && ,, ,, ,, ,, ,, ,, ,, ,, ,, && xx .. "
  23                 ".. .. xx ,, ,, ,, ,, ,, xx ,, ,, ws cc cc cc cc cc xx && ,, ,, ,, ,, ,, ,, ,, ,, ,, && xx .. "
  24                 ".. .. xx xx xx xx ,, ,, xx xx xx xx cc cc cc cc cc xx xx [[ @@ ]] ,, ,, ,, [[ @@ ]] xx xx .. "
  25                 ".. .. xx ,, ,, xx ,, ,, ,, ,, ,, xx cc cc cc cc cc cc ws ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. .. "
  26                 ".. .. xx ,, ,, ,, ,, ,, xx ,, ,, ws cc cc cc cc cc cc xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. .. "
  27                 ".. .. xx xx xx xx xx ,, xx xx xx xx cc cc cc cc cc cc xx xx xx xx sT ,, xx xx xx xx xx .. .. "
  28                 ".. .. xx ,, ,, xx ,, ,, xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc .. .. "
  29                 ".. .. xx ,, ,, xx ,, ,, xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc .. .. "
  30                 ".. .. xx ,, ws xx xx xx xx cc cc cc cc cc cc ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## "
  31                 "cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc ## _3 _1 _1 _1 _1 _1 _1 _1 _1 _1 _1 _1 _1 _1 __ "
  32                 "cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc oo __ __ __ __ __ oo __ __ __ __ __ oo __ __ "
  33                 "cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee "
  34                 ".. .. .. .. xx xx xx xx xx cc cc cc cc cc cc cc ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee "
  35                 ".. .. .. .. xx ,, ,, ,, xx cc cc cc cc cc cc cc ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee "
  36                 ".. .. .. .. xx ,, ,, ,, ,, cc cc cc cc cc cc cc oo __ __ ee ee ee oo __ __ __ __ __ oo __ __ "
  37                 ".. .. .. .. xx ,, ,, ,, xx cc cc cc ## ## ## ## __ __ __ ee ee ee __ __ __ __ __ __ __ __ __ "
  38                 ".. xx xx xx xx xx xx xx xx cc cc cc ## _3 _1 __ __ __ __ ee ee ee __ __ #e #a #a ee #f __ __ "
  39                 ".. xx ,A ,L ,K ,E ,M ,Y xx cc cc cc ## _2 __ __ __ __ __ ee ee ee __ #e #E ee ee ee #F #f __ "
  40                 ".. xx ,, ,, ,, ,, ,, ,, ws cc cc cc ## _2 xx xx xx xx oo ee ee ee oo #b ee ee ee ee ee #c __ "
  41                 ".. xx ,, ,, ,, ,, ,, ,, sP cc cc cc ## _2 xx ee ee xx ~~ ee ee ee __ #b <n #= #= #= <n #c __ "
  42                 ".. xx ,, ,, aa && ,, ,, ,, cc cc cc ## _2 xx ee ee ee ee ee ee ee __ #b ee ee ee ee ee #c __ "
  43                 ".. xx ,, ,, ,, ,, ,, ,, xx cc cc cc ## _2 xx ee ee xx __ ee ee ee ee ee ee ee ee vv vv ee __ "
  44                 ".. xx ,, ,, ,, ,, ,, ,, ws cc cc cc ## _2 xx xx xx xx __ ee ee ee __ #b vv ee ee ee ee ee __ "
  45                 ".. xx [[ @@ @@ @@ @@ ]] xx cc cc cc ## _2 __ __ __ __ __ ee ee ee __ #b ee ee ee ee ee ee __ "
  46                 ".. xx xx xx xx xx xx xx xx cc cc cc ## ~a ~~ ~~ __ __ oo ee ee ee oo #b ee ee ee vv vv #c __ "
  47                 ".. .. .. .. .. .. .. .. bb .. .. .. bb .. ~% ~~ -- __ __ ee ee ee __ ee ee ee ee vv vv ee __ "
  48                 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ~a ~~ -- __ __ __ __ __ #b vv vv ee ee ee #c __ "
  49                 ".. .. .. .. .. .. .. .. bb .. .. .. bb .. .. ~% ~~ ~~ -- __ __ __ __ #b ee ee ee vv vv #c __ "
  50                 ".. xx xx xx xx xx xx xx .. .. .. .. .. .. .. .. ~a ~~ -- -- __ __ __ #g #G vv ee vv vv #h __ "
  51                 ".. xx [[ .S .E .A ]] xx bb .. .. .. bb .. .. .. ~% ~~ ~~ -- __ __ __ __ #g #G ee #H #h __ __ "
  52                 ".. xx .W .I .T .C .H sR .. .. .. .. .. .. .. .. ~C ~~ ~~ -- -- __ __ __ __ #g #d #h __ __ __ "
  53                 ".. xx ,, ,, ,, ,, ,, ws bb .. .. .. bb .. .. .. ~3 ~~ ~~ -- -- __ __ __ __ __ __ __ __ __ __ "
  54                 ".. xx ,, ,, ,, ,, ,, ,, .. .. .. .. .. .. .. ~C ~~ ~~ ~~ -- -- __ __ __ __ __ __ __ __ __ __ "
  55                 ".. xx ,, [[ @@ ]] ,, ws bb .. .. .. bb .. .. ~3 ~~ ~~ -- -- -- -- __ __ __ __ __ __ __ __ __ "
  56                 ".. xx xx ,, ,, ,, xx xx .. .. .. .. .. .. .. ~2 ~~ ~~ ~~ ~~ -- -- -- __ __ __ __ __ __ __ __ "
  57                 ".. .. xx xx ,, xx xx .. bb .. .. .. oo .. oo ~8 ~8 ~~ ~~ ~~ -- -- -- __ __ __ __ __ __ __ __ "
  58                 ".. .. xx ,, ,, ,, xx .. .. .. .. .. ee ee ee .. .. bb ~~ ~~ ~~ -- -- __ __ __ __ __ __ __ __ "
  59                 ".. .. xx ,, ,, ,, ws .. bb .. .. .. ee ee ee .. .. .. ~a ~~ ~~ -- -- __ __ __ __ __ __ __ __ "
  60                 ".. .. xx xx ,, xx xx .. .. .. .. .. ee ee ee .. .. .. bb ~~ ~~ -- -- __ __ __ __ __ __ __ __ "
  61                 ".. .. .. bb .. bb .. .. .. .. bb .. oo ~~ oo .. .. .. ~3 ~~ ~~ -- -- __ __ __ __ __ __ __ __ "
  62                 ".. .. .. .. .. .. .. .. .. .. .. .. .. ~6 .. .. .. .. ~~ ~~ ~~ -- -- __ __ __ __ __ __ __ __ "
  63                 ".. .. bb ~3 ~1 ~5 bb .. .. .. .. ~C ~3 ~~ oo ee ee ee oo ~~ ~~ -- -- -- __ __ __ __ __ __ __ "
  64                 "~C ~3 ~~ ~~ ~~ ~~ ~~ ~5 ~A .. ~C ~3 ~~ ~~ ~~ ee ee ee ~~ ~~ ~~ -- -- -- -- __ __ __ __ __ __ "
  65                 "~~ ~~ -- -- -- -- -- ~~ ~~ ~1 ~~ ~~ ~~ ~c oo ee ee ee oo ~a ~~ ~~ -- -- -- __ __ __ __ __ __ "
  66                 "-- -- -- __ __ __ -- -- -- -- -- ~~ ~c ~# .. .. .. .. .. ~% ~a ~~ ~~ -- -- __ __ __ __ __ __ "
  67                 "-- -- -- __ __ __ -- -- -- -- -- ~~ ~# .. .. .. .. .. .. .. ~% ~~ ~~ -- -- -- __ __ __ __ __ "
  68         )
  69 )
  70
  71 ;;----------------------------------------------------------------------------
  72 ;; Characters
  73 ;;----------------------------------------------------------------------------
  74 (kern-load "alchemist.scm")
  75 (kern-load "oscar.scm")
  76 (kern-load "henry.scm")
  77 (kern-load "bart.scm")
  78 (kern-load "lia.scm")
  79 (kern-load "fing.scm")
  80 (kern-load "ghertie.scm")
  81
  82 ;;----------------------------------------------------------------------------
  83 ;; Place
  84 ;;----------------------------------------------------------------------------
  85 (kern-mk-place
  86  'p_oparine     ; tag
  87  "¥ª¥Ñ¡¼¥ê¥ó"   ; name
  88  s_town          ; sprite
  89  m_oparine      ; map
  90  #f              ; wraps
  91  #f              ; underground
  92  #f              ; large-scale (wilderness)
  93  #f              ; tmp combat place
  94  nil ; subplaces
  95  nil ; neighbors
  96  (list ;; objects
  97
  98   ;; npc's
  99   (put (mk-alchemist) 0 0)
 100   (put (mk-oscar) 0 0)
 101   (put (mk-henry) 0 0)
 102   (put (mk-bart) 0 0)
 103   (put (mk-lia) 0 0)
 104   (put (mk-fing) 0 0)
 105   (put (mk-ghertie) 0 0)
 106   (put (mk-kalcifax) 0 0)
 107
 108   ;; inn
 109   (put (mk-locked-door) 2 4)
 110   (put (mk-windowed-door) 11  7)
 111   (put (mk-bed)  3  9)
 112   (put (mk-bed)  3 12)
 113   (put (mk-bed)  6 15)
 114   (put (mk-bed) 10 12)
 115   (put (mk-bed) 10  9)
 116   (put (kern-tag 'oparine-inn-room-1-door (mk-locked-door))  5 10)
 117   (put (kern-tag 'oparine-inn-room-2-door (mk-locked-door))  5 13)
 118   (put (kern-tag 'oparine-inn-room-3-door (mk-magic-locked-door))  7 14)
 119   (put (kern-tag 'oparine-inn-room-4-door (mk-locked-door))  8 12)
 120   (put (kern-tag 'oparine-inn-room-5-door (mk-locked-door))  8  9)
 121
 122   ;; innkeepers room
 123   (put (mk-door) 3 17)
 124   (put (mk-bed) 4 15)
 125
 126   ;; bart's
 127   (put (mk-door) 17 29)
 128
 129   ;; sea witch
 130   (put (mk-windowed-door) 7 41)
 131   (put (mk-locked-door) 4 47)
 132   (put (mk-door) 4 44)
 133   (put (mk-bed) (zone-x sea-witch-bed) (zone-y sea-witch-bed))
 134
 135   ;; Alkemysts
 136   (put (mk-door) 8 29)
 137   (put (mk-magic-locked-door) 8 23)
 138   (put (mk-bed) 5 22)
 139
 140   ;; tavern
 141   (put (mk-locked-door) 19 5)
 142   (put (mk-windowed-door) 23 14)
 143   (put (mk-clock) 27 13)
 144   (put (mk-door) 20 4)
 145   (put (mk-door) 26 4)
 146   (put (mk-bed) 27 2)
 147
 148   )
 149  (list 'lock-inn-room-doors)  ;; On-entry hook
 150  (list  ;; edge entrances
 151   (list east 0 19)
 152   (list north 16 54)
 153   (list west 30 21)
 154   (list northeast 0 50)
 155   (list northwest 19 54)
 156   )
 157 )
 158
 159   (let* ((kmir (kern-tag 'sea-witch-mirror (mk-mirror 's_mirror_bg_flagstones)))
 160          (ksen (mk-char-sensor 'sea-witch-mirror)))
 161         (kern-obj-put-at kmir (list p_oparine 5 45))
 162         (kern-obj-put-at ksen (list p_oparine 5 46)))
 163
 164 (mk-place-music p_oparine 'ml-large-town)
 165
 166