worlds/haxima-1.002/r2a_mech.scm

   1 (kern-mk-map
   2  'm_lava_flow 1 5 pal_expanded
   3  (list "!!" "!_" "!!" "!_" "!!")
   4 )
   5
   6 (kern-mk-map
   7  'm_lava_bridge 1 5 pal_expanded
   8  (list ".." "~!" ".." "~!" "..")
   9 )
  10
  11 (define (r2a-statue-hail knpc kpc)
  12         (begin
  13           (let ((resp (kern-conv-get-string kpc)))
  14             (if (string=? resp "¥»¥¥Ë¥ó")
  15                 (begin
  16                                         (shake-map 15)
  17                                         (blit-map p_absalot_passage 5 15 1 5 m_lava_bridge)
  18                   ))
  19             (kern-conv-end))))
  20
  21
  22 (define r2a-statue-conv
  23   (ifc basic-conv
  24        (method 'hail r2a-statue-hail)
  25        ))
  26
  27 (define (fix-lava kplace kplayer)
  28         (blit-map p_absalot_passage 5 15 1 5 m_lava_flow)
  29 )