(define (spider-egg-hatch kegg)
(spider-display "spider-egg-hatch")(spider-newline)
- (kern-log-msg "A spider hatches!")
+ (kern-log-msg "¥¯¥â¤¬Õۤä¿¡ª")
(kern-obj-put-at (mk-npc 'giant-spider (calc-level)) (kern-obj-get-location kegg))
(kern-obj-remove kegg))
(method 'exec spider-egg-exec)))
(mk-obj-type 'spider-egg-type
- "spider egg"
+ "¥¯¥â¤ÎÍñ"
s_magic
layer-item
spider-egg-ifc)
(define (suck-hp kspider ktarg amount)
(kern-log-msg (kern-obj-get-name kspider)
- " sucks the juices from "
- (kern-obj-get-name ktarg))
+ "¤Ï"
+ (kern-obj-get-name ktarg)
+ "¤ÎÂαդòµÛ¤Ã¤¿¡ª")
(let ((amount (min amount (kern-char-get-hp ktarg))))
(kern-obj-apply-damage ktarg nil amount)
(kern-obj-heal kspider amount)))