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