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 49