-;; shroom.scm - an old hag with an interesting history who lives in the
-;; northeast corner of green tower.
+;; shroom.scm - ÎФÎÅã¤ÎËÌÅì¤Ë½»¤àÎò»Ë¤òÃΤëÏ·ÇÌ
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Green Tower.
+;; ÎФÎÅã
;;----------------------------------------------------------------------------
(define (mk-zone x y w h) (list 'p_green_tower x y w h))
(kern-mk-sched 'sch_shroom
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Shroom is a female hedge-witch, who sells reagents and potions
-;; in Green Tower. She was once a battle-maiden fighting for
-;; the forces of King Clovis in the Goblin Wars.
+;; ¥·¥å¥ë¡¼¥à¤ÏȾËâ½÷¤Ç¤¢¤ê¡¢ÎФÎÅã¤ÇÈëÌô¤äÌô¤òÇä¤Ã¤Æ¤¤¤ë¡£
+;; Èà½÷¤Ï¥´¥Ö¥ê¥óÀïÁè¤Ç¤Ï¥¯¥í¡¼¥Ó¥¹²¦¤Î·³¤ÇÀ襤¡¢Àï¾ì¤Î²µ½÷¤È¸Æ¤Ð¤ì¤Æ¤¤¤¿¡£
;;----------------------------------------------------------------------------
(define shroom-merch-msgs
- (list "Yes, I trade in mushrooms and the like. Come by my shop in the northeast corner when I'm open."
- "I know where to find the best in the forest."
- "If you have something worthwhile perhaps I may be interested."
- "I have mushrooms and other reagents to trade. Would you care to buy or sell?"
- "Be careful with those."
- "Don't try to pick your own. Kill you, the bad ones will!"
- "Come back when you have more to sell."
- "Have it your way."
- "That was a pleasant little bit of business."
- "I see. Perhaps you'd rather just chat with an old woman."
+ (list "¤½¤¦¤µ¡£¥¥Î¥³¤Ê¤ó¤«¤òÇä¤Ã¤Æ¤¤¤ë¡£Å¹¤¬³«¤¤¤Æ¤¤¤ë¤È¤ËÌÀ¾¤Î³Ñ¤ËÍè¤Ê¤µ¤¤¡£"
+ "¿¹¤Î¤É¤³¤Ç¼è¤ë¤Î¤¬°ìÈÖ¤¤¤¤¤«¤¢¤¿¤·¤ÏÃΤäƤ¤¤ë¤Î¤µ¡£"
+ "²¿¤«¤¤¤¤¤â¤Î¤Ï¤¢¤ë¤«¤Í¡£"
+ "¥¥Î¥³¤ä¤Û¤«¤ÎÈëÌô¤¬¤¢¤ë¡£²¿¤«Ç㤦¤«¤Í¡©"
+ "µ¤¤ò¤Ä¤±¤Æ»È¤Ã¤Æ¤¯¤ì¤è¡£"
+ "¼«Ê¬¤Ç¼è¤ê¤Ë¹Ô¤³¤¦¤È¤¹¤ë¤Ê¡£¼Ù°¤Ê¤â¤Î¤Ë»¦¤µ¤ì¤ë¤è¡ª"
+ "Çä¤ë¤â¤Î¤¬¤¢¤Ã¤¿¤é¤Þ¤¿Íè¤Ê¡£"
+ "¹¥¤¤Ë¤¹¤ì¤Ð¤¤¤¤¤µ¡£"
+ "¤É¤¦¤â¡£"
+ "¤¿¤ÀÇ̤µ¤ó¤ÈÏä·¤¿¤«¤Ã¤¿¤À¤±¤«¤¤¡©"
))
(define shroom-catalog
(list
- (list sulphorous_ash (* 2 reagent-price-mult) "I have to travel far into the hills to find these foul-smelling clods.")
- (list garlic (* 3 reagent-price-mult) "This comes from my own garden. The cook in Bole loves my garlic.")
- (list ginseng (* 3 reagent-price-mult) "The forest folk have shown me where to gather wild ginseng.")
- (list blood_moss (* 4 reagent-price-mult) "The rare blood moss grows on dead wood in the deep forest.")
- (list spider_silk (* 5 reagent-price-mult) "Spider silk is common enough, but dangerous to gather.")
- (list nightshade (* 10 reagent-price-mult) "I must search near the rivers of the south to find the deadly nightshade.")
- (list mandrake (* 8 reagent-price-mult) "The mandrake root grows wild in these woods, but few know where to find it!")
+ (list sulphorous_ash (* 2 reagent-price-mult) "¤³¤Î½¤¤²ô¤ò¸«¤Ä¤±¤ë¤Ë¤ÏµÖ¤Î¤º¤Ã¤È¸þ¤³¤¦¤Ø¹Ô¤«¤Í¤Ð¤Ê¤é¤ó¡£")
+ (list garlic (* 3 reagent-price-mult) "¤¢¤¿¤·¤ÎȪ¤Ç¼è¤Ã¤¿¤â¤Î¤À¡£¥Ü¥ì¤ÎÎÁÍý¿Í¤â¤³¤¤¤Ä¤òµ¤¤ËÆþ¤Ã¤Æ¤ë¡£")
+ (list ginseng (* 3 reagent-price-mult) "¿¹¿Í¤¬¿Í»²¤¬¤É¤³¤Ë¤¢¤ë¤«¶µ¤¨¤Æ¤¯¤ì¤¿¡£")
+ (list blood_moss (* 4 reagent-price-mult) "¤³¤ÎÄÁ¤·¤¤·ì¤ÎÂݤϡ¢¿¹¤Î±ü¤Î»à¤ó¤ÀÌÚ¤ËÀ¸¤¨¤Æ¤¿¤â¤Î¤À¡£")
+ (list spider_silk (* 5 reagent-price-mult) "ÃØéá¤Î»å¤ÏÄÁ¤·¤¯¤Ï¤Ê¤¤¡£¤À¤¬¼è¤ë¤Î¤ÏÂçÊѤÀ¡£")
+ (list nightshade (* 10 reagent-price-mult) "¥Ê¥¤¥È¥·¥§¥¤¥É¤ÏÆî¤ÎÀî¤Î¶á¤¯¤Çõ¤µ¤Í¤Ð¤Ê¤é¤ó¡£")
+ (list mandrake (* 8 reagent-price-mult) "¥Þ¥ó¥É¥ì¥¤¥¯¤Ï¤³¤Î¿¹¤ËÀ¸¤¨¤Æ¤¤¤ë¡£¤À¤¬¤É¤³¤Ë¤¢¤ë¤Î¤«ÃΤäƤ¤¤ëÅۤϾ¯¤Ê¤¤¡ª")
- (list t_heal_potion 20 "Most dangerous, the woods are. Take some of these in case you have an accident.")
- (list t_mana_potion 20 "One of these will refresh me enough to cast a light spell on the way home from a long day of picking.")
- (list t_cure_potion 20 "If you're careless enough to get poisoned this will cure you.")
- (list t_poison_immunity_potion 20 "I always drink one of these before gathering reagents in noxious bogs.")
- (list t_slime_vial 20 "Lazy adventurers like these, so I carry them. As if there aren't enough slimes in the world.")
+ (list t_heal_potion 20 "¿¹¤Ï´í¤Ê¤¤¡£²¿¤«¤¢¤Ã¤¿¤È¤¤Î¤¿¤á»ý¤Ã¤Æ¤¤¤¯¤È¤è¤¤¤À¤í¤¦¡£")
+ (list t_mana_potion 20 "°ìÆüÃæÈëÌô¤òõ¤·¤¿µ¢¤ê¡¢¸÷¤Î¼öʸ¤ò¾§¤¨¤¿¸å¤Ë¤³¤¤¤Ä¤ò»È¤Ã¤Æ¤¤¤ë¡£")
+ (list t_cure_potion 20 "̵ÍÑ¿´¤ËÆǤò¿©¤é¤Ã¤Æ¤·¤Þ¤Ã¤¿¤é¤³¤¤¤Ä¤ò»È¤¨¤Ð¤¤¤¤¡£")
+ (list t_poison_immunity_potion 20 "ÆǤξ¤ÇÈëÌô¤òõ¤¹¤È¤¤Ï¤¤¤Ä¤â¤³¤¤¤Ä¤ò°û¤ó¤Ç¤¤¤ë¡£")
+ (list t_slime_vial 20 "¤°¤¦¤¿¤é¤ÊÅۤϤ³¤ì¤ò¹¥¤à¡£¤¢¤¿¤·¤â»ý¤ÁÊ⤤¤Æ¤ë¡£¥Í¥Ð¥Í¥Ð¤¬¤¤¤¯¤é¤¢¤Ã¤Æ¤â¤ê¤Ê¤¤¤¯¤é¤¤¤À¡£")
))
;; Shroom's merchant procedure
;; gave quest
(if (shroom-quest-done? shroom)
;; quest already done
- (say knpc "I've forgotten all the others.")
+ (say knpc "¾¤Ï¤ß¤ó¤Ê˺¤ì¤Á¤Þ¤Ã¤¿¡£")
;; quest NOT yet done
(begin
- (say knpc "Bring me the mushrooms and I will teach ye the ward "
- "of fire. "
- "Do ye remember where they are?")
+ (say knpc "¥¥Î¥³¤ò»ý¤Ã¤Æ¤¯¤ì¤Ð²Ð¤Î¼öʸ¤ò¶µ¤¨¤è¤¦¡£"
+ "³Ð¤¨¤Æ¤¤¤ë¤«¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "Well...")
- (say knpc "[sigh] Perhaps ye should write this down. "
- "Leave town and go south to the mountains by the sea. "
- "There you will find the cave entrance."))))
+ (say knpc "¤¦¤à¡Ä")
+ (say knpc "¡Î¤¿¤á©¡Ï½ñ¤Î±¤á¤Æ¤ª¤¤¤¿¤Û¤¦¤¬¤è¤«¤í¤¦¡£"
+ "Ä®¤òÎ¥¤ì¡¢Æî¤Ø¹Ô¤¯¤È³¤¤Î¶á¤¯¤Ë»³Ì®¤¬¤¢¤ë¡£"
+ "¤½¤³¤Ëƶ·¢¤ÎÆþ¤ê¸ý¤¬¤¢¤ë¤À¤í¤¦¡£"))))
(begin
- (say knpc "In my time I knew many battle wards. "
- "Be wanting me to teach ye, now, won't ye?")
+ (say knpc "¤¢¤Î¤³¤í¡¢¤¢¤¿¤·¤ÏÀ襤¤Î¼öʸ¤ò¤¿¤¯¤µ¤óÃΤäƤ¿¡£"
+ "ÃΤꤿ¤¤¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "I know a battle ward that will render fire harmless. "
- "But perhaps ye can do me a favor first, yes?")
+ (say knpc "¤¢¤¿¤·¤¬ÃΤäƤ¿¼öʸ¤Ï¡¢²Ð¤«¤é¿È¤ò¼é¤ë¤â¤Î¤À¡£"
+ "¤À¤¬¡¢¤Þ¤º¤ÏÍê¤ß¤òʹ¤¤¤Æ¤«¤é¤À¡£¤è¤¤¤Ê¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "In a cave to the south grows "
- "a purple mushroom. Bring me one. Agreed?")
+ (say knpc "Æî¤Îƶ·¢¤Ë¤Ï»ç¿§¤Î¥¥Î¥³¤¬À¸¤¨¤Æ¤¤¤ë¡£"
+ "¤½¤ì¤ò»ý¤Ã¤Æ¤¯¤ë¤Î¤À¡£¤ï¤«¤Ã¤¿¤Ê¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "Good. A colony of slimes infests that "
- "cave, so take plenty of flaming oil!")
+ (say knpc "¤è¤í¤·¤¤¡£Æ¶·¢¤ÎÃæ¤Ï¥Í¥Ð¥Í¥Ð¤ÎÁã¤À¡£"
+ "²Ð±ê¥Ó¥ó¤ò¤¿¤¯¤µ¤ó»ý¤Ã¤Æ¤¤¤±¡ª")
(shroom-give-quest shroom))
- (say knpc "Yes, perhaps ye are afraid.")))
- (say knpc "Naught for naught, youngling!")))
- (say knpc "Of course, a skillful warrior such as you has "
- "nothing to learn from an old witch like me."))))))
+ (say knpc "¤½¤¦¤À¤Ê¡£Éݤ¤¤ó¤À¤í¤¦¡£")))
+ (say knpc "¥¿¥À¤Ç¤Ï²¿¤âÇ㤨¤ó¤¾¡¢¼ã¤¤¤Î¡ª")))
+ (say knpc "̵ÏÀ¤½¤¦¤À¤í¤¦¤Ê¡£¤¢¤ó¤¿¤Î¤è¤¦¤ÊÍ¥½¨¤ÊÀï»Î¤Ï¡¢¤¢¤¿¤·¤Î¤è¤¦¤Êǯ´ó¤ê¤ÎËâ½÷¤«¤é¶µ¤ï¤ë¤³¤È¤Ï²¿¤â¤Ê¤¤¤Î¤À¤í¤¦¤Í¡£"))))))
(define (shroom-hail knpc kpc)
(let ((shroom (kobj-gob-data knpc)))
;; gave quest
(if (shroom-quest-done? shroom)
;; quest done
- (say knpc "Hello again, young wanderer. Come visit a bit with old "
- "Shroom.")
+ (say knpc "¤Þ¤¿²ñ¤Ã¤¿¤Ê¡¢¼ã¤¤Ì¤¤¿Í¤è¡£")
;; quest not done yet
(if (in-inventory? kpc t_royal_cape)
(begin
;; player has shrooms
- (say knpc "Ah, ye have the mushroom, as I requested!")
+ (say knpc "¤ª¤ª¡¢¤³¤ì¤¸¤ã¡ª¤³¤Î¥¥Î¥³¤À¡£")
(kern-obj-remove-from-inventory kpc t_royal_cape 1)
(shroom-set-quest-done! shroom)
- (say knpc "Now for your reward. The ward is called "
- "In Flam Sanct, of the first circle. Mix royal cape, "
- "sulphurous ash and garlic. Cast it on yourself or a companion "
- "and fire will not harm!"))
+ (say knpc "¤¢¤¿¤·¤¬¶µ¤¨¤ëÈÖ¤À¡£"
+ "¤½¤Î¼öʸ¤ÏÂè°ì¿Ø¤Î¥¤¥ó¡¦¥Õ¥é¥à¡¦¥µ¥ó¥¯¥È<In Flam Sanct>¤À¡£"
+ "¥í¥¤¥ä¥ë¥±¡¼¥×Âû¡¢Î²²«¤Î³¥¡¢ÂçÉǤòÄ´¹ç¤·¤í¡£"
+ "¤½¤ì¤ò¾§¤¨¼«Ê¬¤äÃç´Ö¤Ë¤«¤±¤ë¤È¡¢²Ð¤¬²¿¤È¤â¤Ê¤¯¤Ê¤ë¤Î¤¸¤ã¡ª"))
;; player does NOT have shrooms yet
- (say knpc "No purple mushroom yet, I see. No rush, dear. "
- "But I would like it before I die.")))
+ (say knpc "¤Þ¤À»ç¿§¤Î¥¥Î¥³¤Ï¸«¤Ä¤«¤é¤Ì¤è¤¦¤À¤Ê¡£"
+ "¤¢¤»¤ë¤³¤È¤Ï¤Ê¤¤¡£"
+ "¤À¤¬¡¢»à¤ÌÁ°¤Ë¤ÏÍߤ·¤¤¤â¤ó¤À¤Í¡£")))
;; has NOT given quest yet
- (say knpc "Hello and well met."))))
+ (say knpc "¤Ê¤ó¤«ÍѤ«¤Í¡£"))))
(define (shroom-thie knpc kpc)
- (say knpc "I've seen no one strange about here."))
+ (say knpc "²ø¤·¤¤Åۤϸ«¤Ê¤«¤Ã¤¿¤¬¤Í¡£"))
(define (shroom-roya knpc kpc)
- (say knpc "Do you know what the royal cape mushroom is for?")
+ (say knpc "¥í¥¤¥ä¥ë¥±¡¼¥×Âû¤Î»È¤¤Êý¤òÃΤäƤ뤫¡©")
(if (yes? kpc)
- (say knpc "Very rare it is, but often found with yellow slimes.")
- (say knpc "It is used in spells which absorb effects!")))
+ (say knpc "¤á¤Ã¤¿¤Ë¼ê¤ËÆþ¤é¤Ê¤¤¡£¤À¤¬¡¢²«¿§¤¤Ç´¶Ý¤Î¤¢¤ë¾ì½ê¤Ç¸«¤Ä¤«¤ë¤³¤È¤¬¤¢¤ë¡£")
+ (say knpc "¤³¤¤¤Ä¤Ë¤ÏµÛ¼ý¤¹¤ëÎϤ¬¤¢¤ë¡ª")))
(define (shroom-band knpc kpc)
- (say knpc "Bandits? Yes, an old woman must be careful in the woods."))
+ (say knpc "Å𱡩¤½¤¦¡¢Ç¯´ó¤ê¤Ï¿¹¤Ç¤Ïµ¤¤ò¤Ä¤±¤Í¤Ð¡£"))
(define shroom-conv
(ifc basic-conv
;; 4 characters. The 4-char limit arises from the kernel's practice of
;; truncating all player queries to the first four characters. Default,
;; on the other hand, is a feature of the ifc mechanism (see ifc.scm).
- (method 'default (lambda (knpc kpc) (say knpc "Long ago I might have "
- "known about that.")))
+ (method 'default (lambda (knpc kpc) (say knpc "ÀÎʹ¤¤¤¿¤è¤¦¤Êµ¤¤¬¤¹¤ë¤Ê¡£")))
(method 'hail shroom-hail)
- (method 'bye (lambda (knpc kpc) (say knpc "Toodaloo!")))
- (method 'job (lambda (knpc kpc) (say knpc "I sell potions, reagents "
- "and the like.")))
- (method 'name (lambda (knpc kpc) (say knpc "I'm known as Shroom. At "
- "your service.")))
+ (method 'bye (lambda (knpc kpc) (say knpc "¤µ¤é¤Ð¤¸¤ã¡£")))
+ (method 'job (lambda (knpc kpc) (say knpc "Ìô¤äÈëÌô¤Ê¤É¤òÇä¤Ã¤Æ¤¤¤ë¡£")))
+ (method 'name (lambda (knpc kpc) (say knpc "¥·¥å¥ë¡¼¥à¤È¸Æ¤Ð¤ì¤Æ¤¤¤ë¡£"
+ "ÍѤϲ¿¤«¤Í¡£")))
(method 'cape shroom-roya)
(method 'roya shroom-roya)
- (method 'shro (lambda (knpc kpc) (say knpc "Mushrooms are my "
- "specialty. That's why they "
- "call me Shroom.")))
- (method 'maid (lambda (knpc) (say knpc "[she grins with crooked "
- "teeth] Is it so hard to believe I "
- "was once a fair war-maiden? [she "
- "cackles obscenely]")))
+ (method 'shro (lambda (knpc kpc) (say knpc "¥¥Î¥³¤Î¤³¤È¤ò¤è¤¯ÃΤäƤ¤¤ë¡£"
+ "¤À¤«¤é¤¢¤¿¤·¤ò¥·¥å¥ë¡¼¥à¤È¸Æ¤Ö¤ó¤À¤í¤¦¤Í¡£")))
+ (method 'maid (lambda (knpc) (say knpc "¡ÎÈà½÷¤Ï²¿ËܤâÈ´¤±¤Æ¤·¤Þ¤Ã¤¿»õ¤ò¸«¤»¤¿¡£¡Ï"
+ "¤¢¤¿¤·¤¬¤«¤Ä¤ÆÈþ¤·¤Àï¾ì¤Î²µ½÷¤È¸Æ¤Ð¤ì¤¿¤Ê¤ó¤Æ¿®¤¸¤é¤ì¤ë¤«¤¤¡©"
+ "¡ÎÈà½÷¤Ï¥±¥é¥±¥é¤È¾Ð¤Ã¤¿¡£¡Ï")))
(method 'mush shroom-trade)
(method 'buy (lambda (knpc kpc) (conv-trade knpc kpc "buy" shroom-merch-msgs shroom-catalog)))
(method 'trad shroom-trade)
(method 'sell (lambda (knpc kpc) (conv-trade knpc kpc "sell" shroom-merch-msgs shroom-catalog)))
(method 'reag shroom-trade)
(method 'poti shroom-trade)
- (method 'join (lambda (knpc) (say knpc "You're too young for me, "
- "sweetie!")))
- (method 'gen (lambda (knpc) (say knpc "Aye, a handsome young man he "
- "was, once. He could stay up all night"
- " in bed! But gone a bit strange, he "
- "has, befriending the goblins and all "
- "that.")))
- (method 'stra (lambda (knpc) (say knpc "He meets them in the forest "
- "and runs with their hunts. "
- "Half-goblin he nearly is; "
- "learned their ways he has. But "
- "ye could never tell him what to "
- "do, the silly man.")))
- (method 'gobl (lambda (knpc) (say knpc "I trade with them now and "
- "then. Their shamans know well "
- "the plants in these woods. I "
- "even speak a little. Know some "
- "of their magic. But I never "
- "trust them.")))
+ (method 'join (lambda (knpc) (say knpc "¤¢¤¿¤·¤Ë¤Ï¼ã¤¹¤®¤ë¤è¡¢Ë·¤ä¡ª")))
+ (method 'gen (lambda (knpc) (say knpc "¤¢¤¢¡¢¼ã¤¤¤È¤¤Ï¥Ï¥ó¥µ¥à¤À¤Ã¤¿¡£"
+ "°ì½ï¤Ë¥Ù¥Ã¥É¤ÇÌë¤òÌÀ¤«¤·¤¿¤â¤Î¤µ¡ª"
+ "¤À¤¬¾¯¤·¤ª¤«¤·¤¯¤Ê¤Ã¤Á¤Þ¤Ã¤¿¡£"
+ "¥´¥Ö¥ê¥ó¤ÈÃçÎɤ¯¤¹¤ë¤Ê¤ó¤Æ¤µ¡£")))
+ (method 'stra (lambda (knpc) (say knpc "¥¸¥§¥ó¤Ï¿¹¤Ç¥´¥Ö¥ê¥óã¤È²ñ¤¤¡¢"
+ "°ì½ï¤Ë¼í¤ê¤ò¤¹¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£"
+ "Ⱦʬ¥´¥Ö¥ê¥ó¤ß¤¿¤¤¤Ê¤â¤Î¤À¡£"
+ "ÅÛ¤é¤Î¤ä¤êÊý¤ò¤Þ¤Í¤Æ¤µ¡£¤Ç¤â¡¢"
+ "¤â¤¦¤¢¤Î¥Ð¥«¤Ë¤ä¤á¤µ¤»¤ë¤³¤È¤Ï¤Ç¤¤ó¤è¡£")))
+ (method 'gobl (lambda (knpc) (say knpc "ÅÛ¤é¤È¤Ïº£¤âÀΤ⾦Çä¤ò¤·¤Æ¤¤¤ë¡£"
+ "ÅÛ¤é¤Î¼ö½Ñ»Õ¤Ï¤³¤Î¿¹¤Î¿¢Êª¤ò¤è¤¯ÃΤäƤ롣"
+ "¤¢¤¿¤·¤ÏÅÛ¤é¤Î¸ÀÍդϾ¯¤·¤Ïʬ¤«¤ë¤·¡¢ËâË¡¤â¾¯¤·Ê¬¤«¤ë¡£"
+ "¤À¤¬¡¢ÅÛ¤é¤ÏÀäÂФ˿®ÍѤǤ¤ó¡£")))
(method 'thie shroom-thie)
- (method 'trus (lambda (knpc) (say knpc "The goblins will turn on us "
- "when their opportunity comes. I "
- "would do the same in their "
- "place!")))
- (method 'wars (lambda (knpc) (say knpc "Ha! Yes, I fought the goblins. "
- "Long ago that was. People forget.")))
+ (method 'trus (lambda (knpc) (say knpc "¥´¥Ö¥ê¥ó¤Ïµ¡²ñ¤¬¤¢¤ì¤Ð»ÅÊÖ¤·¤¹¤ë¤Ë°ã¤¤¤Ê¤¤¡£"
+ "¤¢¤¿¤·¤¬ÅÛ¤é¤Ê¤é¤½¤¦¤¹¤ë¡ª")))
+ (method 'wars (lambda (knpc) (say knpc "¤¢¤¢¡ª¤½¤¦¡¢¤¢¤¿¤·¤Ï¥´¥Ö¥ê¥ó¤É¤â¤ÈÀï¤Ã¤¿¡£"
+ "¤º¤Ã¤ÈÀΤΤ³¤È¤À¡£¿Í¤Ï˺¤ì¤Á¤Þ¤Ã¤¿¤¬¤Í¡£")))
(method 'ward shroom-wards)
+ (method 'spel shroom-wards)
(method 'band shroom-band)
))
(define (mk-shroom tag)
(bind
(kern-mk-char tag ; tag
- "Shroom" ; name
+ "¥·¥å¥ë¡¼¥à" ; name
sp_human ; species
nil ; occ
s_companion_druid ; sprite