worlds/haxima-1.002/jewelry.scm

   1 (kern-mk-sprite-set 'ss_jewelry 32 32 2 2 0 0 "jewelry.png")
   2
   3 (kern-mk-sprite 's_skull_ring ss_jewelry 1 0 #f 0)
   4
   5 (mk-quest-obj-type 't_skull_ring "skull ring" s_skull_ring layer-item obj-ifc)
   6
   7
   8 (define (skullring-basic-receive kchar questtag)
   9         (quest-data-update-with 'questentry-ghertie questtag 1 (quest-notify (grant-party-xp-fn 10)))
  10         )
  11
  12 (define (skullring-basic-get kobj kchar questtag)
  13         (if (not (null? kobj))
  14                 (kern-obj-remove kobj)
  15         )
  16         (skullring-basic-receive kchar questtag)
  17         (kobj-get (kern-mk-obj t_skull_ring 1) kchar)
  18         )
  19
  20 (define (skullring-m-get kobj kchar)
  21         (skullring-basic-get kobj kchar 'ring-meaney)
  22         )
  23 (define skullring-m-ifc
  24   (ifc obj-ifc
  25        (method 'get skullring-m-get)))
  26 (mk-quest-obj-type 't_skull_ring_m "skull ring" s_skull_ring layer-item skullring-m-ifc)
  27
  28 (define (skullring-j-get kobj kchar)
  29         (skullring-basic-get kobj kchar 'ring-jorn)
  30         )
  31 (define skullring-j-ifc
  32   (ifc obj-ifc
  33        (method 'get skullring-j-get)))
  34 (mk-quest-obj-type 't_skull_ring_j "skull ring" s_skull_ring layer-item skullring-j-ifc)
  35
  36 (define (skullring-g-get kobj kchar)
  37         (skullring-basic-get kobj kchar 'ring-gholet)
  38         )
  39 (define (skullring-g-receive ktype kchar)
  40         (skullring-basic-receive kchar 'ring-gholet)
  41         )
  42
  43 (define skullring-g-ifc
  44   (ifc obj-ifc
  45        (method 'get skullring-g-get)
  46        (method 'receive skullring-g-receive)))
  47 (mk-quest-obj-type 't_skull_ring_g "skull ring" s_skull_ring layer-item skullring-g-ifc)
  48