1 ;;----------------------------------------------------------------------------
3 ;;----------------------------------------------------------------------------
6 (define (generic-hail knpc kpc)
7 (say knpc "¤³¤ó¤Ë¤Á¤Ï¡£"))
9 (define (generic-unknown knpc kpc)
10 (say knpc "¤½¤ì¤Ï¸À¤¨¤Ê¤¤¡£"))
12 (define (generic-bye knpc kpc)
13 (say knpc "¤µ¤è¤¦¤Ê¤é¡£")
16 (define (generic-join knpc kpc)
17 (say knpc "Ãç´Ö¤Ë¤Ï¤Ê¤ì¤Ê¤¤¡£"))
19 (define (generic-leav knpc kpc)
20 (cond ((is-player-party-member? knpc)
21 (cond ((is-only-living-party-member? knpc)
22 (say knpc "¤Þ¤ºÌ¤¤¿Í¤òÁÉÀ¸¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡Ä"
23 "¤½¤ì¤È¤â»àÂΤò´ñ½Ñ»Õ¤ËÇä¤Ã¤Æ¤·¤Þ¤ª¤¦¤«¡©"))
25 (say knpc "Ãç´Ö¤«¤é³°¤ì¤ÆÍߤ·¤¤¡©")
27 (cond ((kern-char-leave-player knpc)
28 (say knpc "¤³¤³¤ÇÂԤäƤ¤¤ë¤Î¤Ç¡¢µ¤¤¬ÊѤï¤Ã¤¿¤éÏä·¤«¤±¤ÆÍߤ·¤¤¡£")
32 (say knpc "º£¤ÏÊ̤ì¤é¤ì¤Ê¤¤¡ª"))))
34 (say knpc "µ¤¤¬Æ°Å¾¤·¤¿¤è¡£"))))))
36 (say knpc "¤¢¤Ê¤¿Ã£¤Î°ì°÷¤Ç¤Ï¤Ê¤¤¡ª"))))
39 (define (basic-ench knpc kpc)
40 (say knpc "ËâÆ»»Õ¤ÏËâË¡»È¤¤¤Î¸¼Ô¤À¡£"
41 "¼¾ÃÏÂÓ¤ÎÅã¤Ë½»¤ó¤Ç¤¤¤ë¡£Êý¸þ¤òÃΤꤿ¤¤¤«¡©")
42 (quest-wise-subinit 'questentry-enchanter)
43 (quest-data-update 'questentry-enchanter 'general-loc 1)
45 (let ((kplace (get-place knpc)))
46 (cond ((equal? kplace p_westpass)
47 (say knpc "¤Ï¤·¤´¤ò²¼¤ê¤ë¤ÈÅ즤ؤÎÆ»¤Ë¹Ô¤±¤ë¡£"
48 "¤½¤³¤Ë¤¤¤ëµ³»Î¤¬Æ»¤òÃΤäƤ¤¤ë¤À¤í¤¦¡£"))
49 ((equal? kplace p_eastpass)
50 (say knpc "Æ»¤òÅì¤Ë¿Ê¤à¤È¥È¥ê¥°¥ì¥¤¥Ö¤À¡£¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
51 ((equal? kplace p_trigrave)
52 (quest-data-update 'questentry-calltoarms 'directions 1)
53 (say knpc "Æ»¤òË̤عԤ¯¤È¼¾ÃÏÂÓ¤À¡£"))
55 (say knpc "¼¾ÃÏÂÓ¤ÏËÌÀ¾¤Ë¤¢¤ë¡£"))
59 (define (basic-trig knpc kpc)
60 (say knpc "¥È¥ê¥°¥ì¥¤¥Ö¤ÏÀ¾¤ÎÆó¤Ä¤ÎÀ¹çή¤¹¤ë¾ì½ê¤Ë¤¢¤ë¾®¤µ¤ÊÄ®¤À¡£"))
62 (define (basic-gree knpc kpc)
63 (say knpc "·ÙÈ÷ÂâËÜÉô¤ÎÎФÎÅã¤Ï¿¹¤Î±ü¿¼¤¯¤Ë¤¢¤ë¡£"
66 (let ((kplace (get-place knpc)))
67 (cond ((equal? kplace p_westpass)
68 (say knpc "Æ»¤òÅì¤Ë¿Ê¤ß¡¢¿¹¤ËÆþ¤ë¡£"
69 "¾®Æ»¤¬¸«¤¨¤¿¤é¡¢¤½¤ì¤ò¤¿¤É¤Ã¤Æ¤¤¤±¤Ð¤è¤¤¤À¤í¤¦¡£"))
70 ((equal? kplace p_eastpass)
71 (say knpc "¤³¤Î¤Ï¤·¤´¤ò²¼¤ê¡¢À¾Â¦¤Ø¤ÎÆ»¤Ç·ÙÈ÷Ââ°÷¤Ë¿Ò¤Í¤Ê¤µ¤¤¡£"))
72 ((equal? kplace p_trigrave)
73 (say knpc "Æ»¤òÅì¤Ë¿Ê¤ß»³¤ËÆþ¤ë¤ÈÅ즤ؤÎÆ»¤À¡£"
74 "¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
75 ((equal? kplace p_enchanters_tower)
76 (say knpc "Æî¤Ø¹Ô¤¯¤È¥È¥ê¥°¥ì¥¤¥Ö¤À¡£¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
77 ((equal? kplace p_oparine)
78 (say knpc "Ë̤عԤ¯¤È¥È¥ê¥°¥ì¥¤¥Ö¤À¡£¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
79 ((equal? kplace p_moongate_clearing)
80 (say knpc "Æ»¤òÆî¤Ø¿Ê¤à¤È¸òº¹ÅÀ¤¬¤¢¤ë¤Î¤Ç¡¢À¾¤Ø¿Ê¤à¡£"
81 "Æ»¤¬Ë̤ظþ¤«¤Ã¤¿¤é¤½¤Î¤Þ¤Þ¿Ê¤ß¡¢Åì¤Î¿¹¤ØÆþ¤ë¤È¤è¤¤¤À¤í¤¦¡£"))
83 (say knpc "¿¹¤ÎÃæ±û¤Ë¤¢¤ë¡£"))
86 (define (basic-bole knpc kpc)
87 (say knpc "¥Ü¥ì¤Î¼¤Ï¿¹¤ÎË̤ˤ¢¤ë»³Ì®¤Îë´Ö¤Ë¤¢¤ë¡£"
90 (let ((kplace (get-place knpc)))
91 (cond ((equal? kplace p_westpass)
92 (say knpc "¤³¤³¤«¤éËÌÅì¤Ë¤¢¤ë¡£»³Ì®¤ò¤¿¤É¤Ã¤Æ¹Ô¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
93 ((equal? kplace p_eastpass)
94 (say knpc "¤³¤Î¤Ï¤·¤´¤ò²¼¤ê¡¢À¾Â¦¤Ø¤ÎÆ»¤Ç·ÙÈ÷Ââ°÷¤Ë¿Ò¤Í¤Ê¤µ¤¤¡£"))
95 ((equal? kplace p_trigrave)
96 (say knpc "Æ»¤òÅì¤Ë¿Ê¤ß»³¤ËÆþ¤ë¤ÈÅ즤ؤÎÆ»¤À¡£"
97 "¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
98 ((equal? kplace p_green_tower)
99 (say knpc "Ë̤ο¹¤òÈ´¤±¡¢»³Ì®¤Î¤Õ¤â¤È¤Þ¤Ç¿Ê¤à¡£"
100 "¤½¤Î¸å¡¢¾¯¤·Åì¤Ø¸þ¤«¤¦¤È¹Ô¤±¤ë¤À¤í¤¦¡£"))
101 ((equal? kplace p_enchanters_tower)
102 (say knpc "Æî¤Ø¹Ô¤¯¤È¥È¥ê¥°¥ì¥¤¥Ö¤À¡£¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
104 (say knpc "¿¹¤ÎË̤ˤ¢¤ë»³Ì®¤Î¤Õ¤â¤È¤Ë¤¢¤ë¤È»×¤¦¡£"))
107 (define (basic-absa knpc kpc)
108 (say knpc "µðÂç¤ÇÂÄÍ¤¿Ä®¥¢¥Ö¥µ¥í¥Ã¥È¤Ï¡¢¤½¤Îºá¤ÇÊø²õ¤·¤¿¡£"))
110 (define (basic-opar knpc kpc)
111 (say knpc "¥ª¥Ñ¡¼¥ê¥ó¤ÏÆîÀ¾¤Î¿¼¤¤ÏѤζ᤯¤Ë¤¢¤ë¡£"
112 "Êý¸þ¤òÃΤꤿ¤¤¤«¡©")
114 (let ((kplace (get-place knpc)))
115 (cond ((equal? kplace p_westpass)
116 (say knpc "¤Ï¤·¤´¤ò²¼¤ê¡¢Æ»¤òÀ¾¤Ë¤¿¤É¤ë¤È¤è¤¤¤À¤í¤¦¡£"))
117 ((equal? kplace p_eastpass)
118 (say knpc "Æ»¤òÀ¾¤Ë¤¿¤É¤ë¤È¤è¤¤¤À¤í¤¦¡£"))
119 ((equal? kplace p_trigrave)
120 (say knpc "Æ»¤òÀ¾¤Ë¤¿¤É¤ê¡¢¤½¤Î¤¢¤È³¤¤Þ¤Ç¤º¤Ã¤ÈÆî¤Ë¿Ê¤à¤È¤è¤¤¤À¤í¤¦¡£"))
121 ((equal? kplace p_green_tower)
122 (say knpc "Æî¤ÎÆ»¤ò¤¿¤É¤ê¡¢¤½¤Î¤¢¤ÈÀ¾¤Ø¹Ô¤¯¤ÈÀ¾Â¦¤Ø¤ÎÆ»¤À¡£¤½¤³¤Ç·ÙÈ÷Ââ°÷¤Ë¿Ò¤Í¤ë¤È¤è¤¤¤À¤í¤¦¡£"))
123 ((equal? kplace p_enchanters_tower)
124 (say knpc "Æî¤Ë¥È¥ê¥°¥ì¥¤¥Ö¤¬¤¢¤ë¡£¤½¤³¤Ç¿Ò¤Í¤ë¤È¤è¤¤¤À¤í¤¦¡£"))
125 ((equal? kplace p_glasdrin)
126 (say knpc "Æî¤Ë¿Ê¤à¤È¤è¤¤¤À¤í¤¦¡£"))
127 ((equal? kplace p_oparine)
128 (say knpc "¤³¤³¤¬¤½¤¦¤À¡ª"))
130 (say knpc "Æ´ß¤Î¤É¤³¤«¤Ë¤¢¤ë¡£"))
133 (define (basic-east knpc kpc)
134 (say knpc "Eastpass guards the eastern pass into the River Plain. Do you need directions?")
136 (let ((kplace (get-place knpc)))
137 (cond ((equal? kplace p_westpass)
138 (say knpc "Take the ladder down, you'll come out in Eastpass."))
139 ((equal? kplace p_eastpass)
140 (say knpc "You're here already."))
141 ((equal? kplace p_trigrave)
142 (say knpc "Follow the road east and you'll run right into it."))
143 ((equal? kplace p_green_tower)
144 (say knpc "Travel west through the woods, then follow the road west to Westpass and ask there."))
145 ((equal? kplace p_enchanters_tower)
146 (say knpc "Go south to Trigrave and ask there."))
147 ((equal? kplace p_glasdrin)
148 (say knpc "Take the road south as far as you can and ask there."))
149 ((equal? kplace p_oparine)
150 (say knpc "Take the road north to Trigrave and ask there."))
152 (say knpc "It's by the mountains west of the Great Forest."))
155 (define (basic-west knpc kpc)
156 (say knpc "Westpass guards the western pass into the Great Forest. Do you need directions?")
158 (let ((kplace (get-place knpc)))
159 (cond ((equal? kplace p_westpass)
160 (say knpc "This is it."))
161 ((equal? kplace p_eastpass)
162 (say knpc "Take the ladder down and you'll come out in it."))
163 ((equal? kplace p_trigrave)
164 (say knpc "Follow the road east and ask in Eastpass."))
165 ((equal? kplace p_green_tower)
166 (say knpc "Travel west through the woods, then follow the road west."))
167 ((equal? kplace p_enchanters_tower)
168 (say knpc "Go south to Trigrave and ask there."))
169 ((equal? kplace p_glasdrin)
170 (say knpc "Take the road south as far as you can."))
171 ((equal? kplace p_oparine)
172 (say knpc "Take the road north to Trigrave and ask there."))
174 (say knpc "Follow the road east from Trigrave."))
177 (define (basic-glas knpc kpc)
178 (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÏÀ»µ³»Î¤¿¤Á¤Î¾ëºÉÅÔ»Ô¤À¡£Êý¸þ¤òÃΤꤿ¤¤¤«¡©")
180 (let ((kplace (get-place knpc)))
181 (cond ((equal? kplace p_westpass)
182 (say knpc "¤³¤ÎÆ»¤òÅì¤Ø¹Ô¤¡¢¤½¤Î¤¢¤ÈË̤عԤ±¤Ð¤è¤¤¤À¤í¤¦¡£"))
183 ((equal? kplace p_eastpass)
184 (say knpc "Åì¤Ø¹Ô¤¡¢À¾Â¦¤Ø¤ÎÆ»¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
185 ((equal? kplace p_trigrave)
186 (say knpc "Åì¤Ø¹Ô¤¡¢Å즤ؤÎÆ»¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
187 ((equal? kplace p_green_tower)
188 (say knpc "À¾¤Î¿¹¤òÈ´¤±¤ë¤ÈÆ»¤¬¸«¤¨¤ë¡£¤½¤ì¤òË̤˿ʤà¤È¤è¤¤¤À¤í¤¦¡£"))
189 ((equal? kplace p_enchanters_tower)
190 (say knpc "Åì¤Ø¿Ê¤ß»³Æ»¤òÈ´¤±¡¢Àî¤ò¤¿¤É¤ì¤Ð¤è¤¤¤À¤í¤¦¡£"))
191 ((equal? kplace p_oparine)
192 (say knpc "Ë̤ÎÆ»¤ò¿Ê¤à¤È¥È¥ê¥°¥ì¥¤¥Ö¤À¡£¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£Á¥¤¬¤¢¤ì¤Ð³¤´ßÀþ¤òË̤˿ʤà¤È¹Ô¤±¤ë¤À¤í¤¦¡£"))
194 (say knpc "ËÌÀ¾¤ÎÅç¤Î³¤´ß¤Î¶á¤¯¤Ë¤¢¤ë¡£"))
197 (define (basic-fens knpc kpc)
198 (say knpc "¼¾ÃÏÂÓ¤ÏËÌÀ¾¤Ë¤¢¤ë¡£"))
200 (define (basic-kurp knpc kpc)
201 (say knpc "¥¯¥í¥Ý¥ê¥¹¤ÏÃϲ¼¤Î¸ÅÂå°äÀפÀ¡£"
202 "Æþ¤ê¸ý¤ÏË̤λ³Ì®¤Î¤É¤³¤«¤Ë¤¢¤ë¡£"))
204 (define (basic-lost knpc kpc)
205 (say knpc "¼º¤ï¤ì¤¿ÅÂƲ¡©¶ãÍ·»í¿Í¤Î²Î¤ÎÃæ¤Ç¤·¤«Ê¹¤¤¤¿¤³¤È¤¬¤Ê¤¤¡£"
206 "ËÜÅö¤Ï¤É¤³¤Ë¤¢¤ë¤Î¤«¤ÏÃΤé¤Ê¤¤¡£"))
209 (define (basic-whit knpc kpc)
210 (say knpc "Çò¤²´¼¯Áñ¤ÏÎФÎÅã¤Ë¤¢¤ë¡£"))
213 (define (basic-thie knpc kpc)
214 (say knpc "Å¥ËÀ¤Î¤³¤È¤Ï¤ï¤«¤é¤Ê¤¤¡£"))
216 (define (basic-rune knpc kpc)
217 (say knpc "ÀÐÈǤΤ³¤È¤Ï¤è¤¯ÃΤé¤Ê¤¤¡£¸¼Ô¤Ëʹ¤±¤Ð¤è¤¤¤«¤â¤·¤ì¤Ê¤¤¡£"))
219 (define (basic-wise knpc kpc)
220 (say knpc "¸¼Ô¤Ï¤³¤Î¥·¥ã¥ë¥É¤ËÂ礤ʱƶÁ¤òÍ¿¤¨¤Æ¤¤¤ë¼Ô¤¿¤Á¤À¡£Èà¤é¤Î̾Á°¤òÃΤꤿ¤¤¤«¡©")
223 (say knpc "ËâÆ»»Õ¡¢»àÎî½Ñ»Õ¡¢Ï£¶â½Ñ»Õ¡¢¤Ë¤ó¤²¤ó¡¢µ»»Õ¡¢¤½¤·¤ÆÆ®»Î¤À¡£")
224 (map quest-wise-subinit
225 (list 'questentry-enchanter 'questentry-warritrix 'questentry-alchemist
226 'questentry-the-man 'questentry-engineer 'questentry-necromancer)
231 (define (basic-shar knpc kpc)
232 (say knpc "¥·¥ã¥ë¥É¤È¤Ï¤³¤ÎÀ¤³¦¤Î¸Æ¤Ó̾¤À¡£")
233 (quest-data-update 'questentry-whereami 'shard 1)
236 (define (basic-peni knpc kpc)
237 (say knpc "ȾÅç¤È¤Ï²æ¡¹¤Î¤¤¤ë¥·¥ã¥ë¥É¤Îü¤Î¤³¤È¤À¡£"))
239 (define (basic-warr knpc kpc)
240 (say knpc "Æ®»Î¤ÏÀï»Î¤Î¸¼Ô¤À¡£²ñ¤¤¤¿¤¤¤Î¤Ç¤¢¤ì¤Ð¥°¥é¥¹¥É¥ê¥ó¤Ø¹Ô¤±¤Ð¤è¤¤¤À¤í¤¦¡£")
241 (quest-wise-subinit 'questentry-warritrix)
242 (quest-data-update 'questentry-warritrix 'general-loc 1)
245 (define (basic-engi knpc kpc)
246 (say knpc "µ»»Õ¤Ï¤³¤ÎÃϤǺǤâÍ¥¤ì¤¿¿¦¿Í¤À¤Èʹ¤¤¤¿¤³¤È¤¬¤¢¤ë¡£"
247 "¤·¤«¤·¡¢¤½¤ì°Ê¾å¤Î¤³¤È¤ÏÃΤé¤Ê¤¤¡£")
248 (quest-wise-subinit 'questentry-engineer)
249 (quest-data-update 'questentry-engineer 'common 1)
252 (define (basic-man knpc kpc)
253 (say knpc "¤Ë¤ó¤²¤ó¤Ï¤Ê¤é¤º¼Ô¤ÎĺÅÀ¤À¡£¤É¤³¤Ë¤¤¤ë¤Î¤«Ã¯¤âÃΤé¤Ê¤¤¡£"
254 "ÊÑÁõ¤·¤Æι¤ò¤·¤Æ¤¤¤ë¤È¤¦¤ï¤µ¤µ¤ì¤Æ¤¤¤ë¡£")
255 (quest-wise-subinit 'questentry-the-man)
256 (quest-data-update 'questentry-the-man 'common 1)
259 (define (basic-alch knpc kpc)
260 (say knpc "Ï£¶â½Ñ»Õ¤Ï¸¼Ô¤Î¿¦¿Í¤Ç¡¢Ìô¤Î¤³¤È¤Ï²¿¤Ç¤âÃΤäƤ¤¤ë¡£"
261 "¥ª¥Ñ¡¼¥ê¥ó¤Ç²ñ¤¨¤ë¤À¤í¤¦¡£")
262 (quest-wise-subinit 'questentry-alchemist)
263 (quest-data-update 'questentry-alchemist 'general-loc 1)
266 (define (basic-necr knpc kpc)
267 (say knpc "»àÎî½Ñ»Õ¤Ï»à¤ÎËâË¡¤òÁà¤ë¸¼Ô¤ÎËâË¡»È¤¤¤À¡£"
268 "Èà¤Ï±£¤µ¤ì¤¿Æ¶·¢¤Ë½»¤ó¤Ç¤¤¤ë¤é¤·¤¤¡£")
269 (quest-wise-subinit 'questentry-necromancer)
270 (quest-data-update 'questentry-necromancer 'general-loc 1)
273 (define (basic-drag knpc kpc)
274 (say knpc "¶§Ë½¤Ê夬Åì¤Î³¤´ß¶á¤¯¤òÄ̤ëÁ¥¤ò¶¼¤«¤·¤Æ¤¤¤ë¤Èʹ¤¤¤¿¡£"))
276 (define (basic-fire knpc kpc)
277 (say knpc "²Ð¤Î³¤¡©Åì¤Î²Ð»³¤Î¤¢¤ëÅç¤Î¤³¤È¤À¡£"))
282 (method 'hail generic-hail)
283 (method 'default generic-unknown)
284 (method 'bye generic-bye)
285 (method 'join generic-join)
286 (method 'leav generic-leav)
289 (method 'ench basic-ench)
290 (method 'wise basic-wise)
291 (method 'warr basic-warr)
292 (method 'man basic-man)
293 (method 'engi basic-engi)
294 (method 'alch basic-alch)
295 (method 'necr basic-necr)
298 (method 'absa basic-absa)
299 (method 'bole basic-bole)
300 (method 'gree basic-gree)
301 (method 'trig basic-trig)
302 (method 'lost basic-lost)
303 (method 'opar basic-opar)
304 (method 'fens basic-fens)
305 (method 'shar basic-shar)
306 (method 'peni basic-peni)
307 (method 'kurp basic-kurp)
308 (method 'glas basic-glas)
309 (method 'fire basic-fire)
312 (method 'whit basic-whit)
315 (method 'thie basic-thie)
316 (method 'rune basic-rune)
319 (method 'drag basic-drag)
324 (define (say knpc . msg) (kern-conv-say knpc msg))
325 (define (yes? kpc) (kern-conv-get-yes-no? kpc))
326 (define (no? kpc) (not (kern-conv-get-yes-no? kpc)))
327 (define (reply? kpc) (kern-conv-get-reply kpc))
328 (define (ask? knpc kpc . msg)
329 (kern-conv-say knpc msg)
330 (kern-conv-get-yes-no? kpc))
331 (define (prompt-for-key)
332 (kern-log-msg "<²¿¤«¥¡¼¤ò²¡¤¹¤È³¤±¤ë>")
336 (define (get-gold-donation knpc kpc)
337 (let ((give (kern-conv-get-amount kpc))
338 (have (kern-player-get-gold)))
340 (say knpc "Âå¶â¤¬Â¤ê¤Ê¤¤¡ª")
343 (kern-player-set-gold (- have give))
345 (define (get-food-donation knpc kpc)
346 (let ((give (kern-conv-get-amount kpc))
347 (have (kern-player-get-food)))
349 (say knpc "Âå¶â¤¬Â¤ê¤Ê¤¤¡ª")
352 (kern-player-set-food (- have give))
354 (define (working? knpc)
355 (string=? "working" (kern-obj-get-activity knpc)))
357 ;; Not really an aside in the theatrical sense, this routine causes a party
358 ;; member to interject something into the conversation. kpc is the character
359 ;; being conversed with, mem-tag is either nil or the party member who should
360 ;; do the interjection. If mem-tag is nil then a party member (other than the
361 ;; speaker) will be chosen at random. msg is the text of the comment. If kpc is
362 ;; the only member of the party then the aside will not do anything.
363 (define (aside kpc kchar-tag . msg)
365 (if (null? kchar-tag)
366 (let ((members (filter (lambda (kchar)
367 (not (eqv? kchar kpc)))
368 (kern-party-get-members (kern-get-player)))
370 (if (not (null? members))
371 (let ((kchar (random-select members)))
376 (if (in-player-party? kchar-tag)
378 (kern-conv-say (eval kchar-tag) msg)
383 ;;----------------------------------------------------------------------------
385 ;;----------------------------------------------------------------------------
386 (define (mk-quest) (list #f #f #f))
387 (define (quest-offered? qst) (car qst))
388 (define (quest-accepted? qst) (cadr qst))
389 (define (quest-done? qst) (caddr qst))
390 (define (quest-offered! qst val) (set-car! qst val))
391 (define (quest-accepted! qst val) (set-car! (cdr qst) val))
392 (define (quest-done! qst val) (set-car! (cddr qst) val))
395 ;;----------------------------------------------------------------------------
397 ;;----------------------------------------------------------------------------
398 (define (ranger-ranger knpc kpc)
399 (say knpc "·ÙÈ÷Ââ¤ÏÄ®¤È¹ÓÌî¤Î¶³¦¤ò¼é¤Ã¤Æ¤¤¤ë¡£"
400 "²æ¡¹¤ÏÁ°Àþ¤ò´Æ»ë¤·¡¢¤Ç¤¤ë¤«¤®¤ê¸¼Ô¤ò½õÎϤ·¤Æ¤¤¤ë¡£"))
402 (define (ranger-wise knpc kpc)
403 (say knpc "·ÙÈ÷Ââ¤Ï¸¼Ô¤ÈÈó¸ø¼°¤ÊÄó·È¤ò·ë¤ó¤Ç¤¤¤ë¡£"
404 "¸¼Ôã¤Ï²æ¡¹¤Ë±ç½õ¤È¤â¤Æ¤Ê¤·¤òÍ¿¤¨¡¢¤½¤Î¤«¤ï¤ê¤Ë²æ¡¹¤Ï¾ðÊó¤òÄ󶡤·¤Æ¤¤¤ë¡£"
405 "»þ¤Ë¤Ï²æ¡¹¤Ï¸¼Ôã¤ÎÅÁ¸À¤äÄ廡¤ÎǤ̳¤ò¼õ¤±¤ë¡£"))
407 (define (ranger-join knpc kpc)
408 (cond ((has? kpc t_ranger_orders 1)
409 (say knpc "Ì¿Îá½ñ¤ò¸«¤»¤Æ¤¯¤À¤µ¤¤¡Äλ²ò¡£¤·¤Ð¤é¤¯¤Î´Ö¡¢Æ±¹Ô¤¤¤¿¤·¤Þ¤¹¡£")
410 (take kpc t_ranger_orders 1)
412 ;; NOTE: the following only permits one ranger at a time to join the
414 (kern-tag 'ch_ranger_merc knpc)
415 (give kpc t_arrow 20)
419 (say knpc "»ÄÇ°¤Ç¤¹¤¬·ÙÈ÷¤Î»Å»ö¤¬¤¢¤ê¤Þ¤¹¡£"))))
421 (define (ranger-band knpc kpc)
422 (say knpc "ÌäÂê¤òµ¯¤³¤·¤¿¼Ô¤¿¤Á¤¬¿¹¤Ëƨ¤²¹þ¤à¤Î¤À¡£"
423 "¿¹¤Ë¤Ï¾ï¤Ë̵ˡ¼Ô¤¬¤¤¤ë¡£"))
427 (method 'join ranger-join)
428 (method 'rang ranger-ranger)
429 (method 'wise ranger-wise)
430 (method 'band ranger-band)
434 ;; Knight conversation -- used by Lord Froederick's troops
435 (define knight-conv basic-conv)
438 (define (glasdrin-warr knpc kpc)
439 (if (player-found-warritrix?)
440 (say knpc "¤ß¤ÊÈà½÷¤Î»à¤òÈᤷ¤ó¤Ç¤¤¤ë¡£")
441 (say knpc "Æ®»Î¤Ï¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÊÀï»Î¤À¡£Èà½÷¤¬º£¤É¤³¤Ë¤¤¤ë¤Î¤«¤ÏÃΤé¤Ê¤¤¡£Åý¼£¼Ô¤«¥¸¥§¥Õ¥ê¡¼¥º»ÊÎá´±¤Ëʹ¤±¤Ð¤è¤¤¤À¤í¤¦¡£")
443 (quest-data-update 'questentry-warritrix 'general-loc 1)
446 (define (glasdrin-stew knpc kpc)
447 (if (player-stewardess-trial-done?)
448 (say knpc "Åý¼£¼Ô¤À¤Ã¤¿Èà½÷¤Î̾¤Ï¼ö¤ï¤ì¤¿¤â¤Î¤È¤Ê¤Ã¤¿¡£¿·¤·¤¤Åý¼£¼Ô¤Ï¤«¤Ä¤Æ¤Î»ÊÎá´±¥ô¥¡¥ë¥¹¤À¡£")
449 (say knpc "Åý¼£¼Ô¤Ï¤³¤ÎÄ®¤È¥°¥é¥¹¥É¥ê¥ó¤ÎÎÎÅÚ¤ò¼é¤Ã¤Æ¤¤¤ë¡£ÉáÃʤÏËÜÉô¤Ë¤¤¤ë¡£")))
451 (define (glasdrin-jeff knpc kpc)
452 (if (player-stewardess-trial-done?)
453 (say knpc "¤è¤¯¸À¤Ã¤Æ¤â¡¢¥¸¥§¥Õ¥ê¡¼¥º¤¬»ÊÎá´±¤È¤·¤Æ»Ø´ø²¼¤Î¼Ô¤ò¼é¤ëµÁ̳¤òÂդä¿¡£"
454 "°¤¯¸À¤¨¤ÐÈà¤ÏÆ®»Î¤Ø¤Î΢ÀÚ¤ê¤Ë¶¨ÎϤ·¤¿¡£"
455 "²æ¡¹¤Î¿·¤·¤¤»ÊÎá´±¤Ï¥¸¥ã¥Ë¥¹¤À¡£")
456 (say knpc "¥¸¥§¥Õ¥ê¡¼¥º¤Ï¥°¥é¥¹¥É¥ê¥ó¤Î·³¤Î»ÊÎá´±¤À¡£ÉáÃʤÏËÜÉô¤Ë¤¤¤ë¡£")
459 (define (glasdrin-kurp knpc kpc)
460 (say knpc "Ë̤涤òÅϤꡢ»³Ì®¤òÅì¤Ë±è¤Ã¤Æ¹Ô¤¯¤È¡¢"
461 "Ë̤Îë´Ö¤Ë¸«¤¨¤ë¤À¤í¤¦¡£"))
462 (define (glasdrin-cita knpc kpc)
463 (say knpc "ËÜÉô¤ÏË̦¤ÎºÖ¤ÎÃæ¤Ë¤¢¤ë¡£"))
464 (define (glasdrin-ghol knpc kpc)
465 (say knpc "ÂáÊᤵ¤ì¤¿Å¥ËÀ¤¬¥´¥ì¥Ã¥È¤È¤¤¤¦Ì¾Á°¤À¤Ã¤¿¤È»×¤¦¡£ºÖ¤ÎÃϲ¼¤Î´Æ¹ö¤Ç³Î¤«¤á¤ë¤È¤è¤¤¤À¤í¤¦¡£")
466 (quest-data-update 'questentry-ghertie 'gholet-dungeon 1)
468 (define (glasdrin-kurp knpc kpc)
469 (say knpc "¸½ºß¥¯¥í¥Ý¥ê¥¹¤Î̵ܤˤÏÉôÂâ¤Î¤Û¤È¤ó¤É¤¬¤¤¤ë¡£»³Ì®¤ò¤¿¤É¤Ã¤ÆÀ¾¤Ø¹Ô¤¯¤È¶®Ã«¤ËÆþ¤ê¸ý¤¬¸«¤Ä¤«¤ë¤À¤í¤¦¡£"))
471 (define (glasdrin-glas knpc kpc)
472 (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÏÀ»µ³»Î¤ÎÄ®¤À¡£"))
474 (define (glasdrin-pala knpc kpc)
475 (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÎÀ»µ³»Î¤Ï¤³¤Î¤¢¤¿¤ê¤ÇºÇ¤â¶¯ÎϤʷ³Ââ¤À¡£"))
477 (define glasdrin-conv
479 (method 'warr glasdrin-warr)
480 (method 'stew glasdrin-stew)
481 (method 'jeff glasdrin-jeff)
482 (method 'kurp glasdrin-kurp)
483 (method 'cita glasdrin-cita)
484 (method 'ghol glasdrin-ghol)
485 (method 'kurp glasdrin-kurp)
486 (method 'glas glasdrin-glas)
487 (method 'pala glasdrin-pala)
490 (if (player-stewardess-trial-done?)
491 (say knpc "·³É¾µÄ²ñ¤Ï¥¸¥ã¥Ë¥¹¤ò¥¸¥§¥Õ¥ê¡¼¥º¤Î¸åǤ¤È¤·¤Æ»ÊÎá´±¤ËÁª½Ð¤·¤¿¡£")
492 (say knpc "¥¸¥§¥Õ¥ê¡¼¥º¤ÏÍǽ¤Ê»ÊÎá´±¤À¡£¤À¤¬¡¢¤½¤ì¤ÏÊ亴¤Î¥¸¥ã¥Ë¥¹¤Î¤ª¤«¤²¤À¤È¤¤¤¦¤Î¤Ïï¤Ç¤âÃΤäƤ¤¤ë¡£"))))
495 (if (player-stewardess-trial-done?)
496 (say knpc "¥ô¥¡¥ë¥¹¤Î·éÇò¤¬Á°Åý¼£¼Ô¤ÎÆüµ¤ÇÌÀ¤é¤«¤Ë¤Ê¤Ã¤¿¡£"
497 "Èà¤Ë´Ø¤¹¤ë±³¤ò¿®¤¸¤Æ¤·¤Þ¤Ã¤¿¤³¤È¤ÏÃѤº¤«¤·¤¤¤³¤È¤À¡£"
498 "»ä¤¿¤Á¤ÏÈà¤ò¿·¤·¤¤Åý¼£¼Ô¤ËÁª½Ð¤·¤¿¡£")
499 (say knpc "¥ô¥¡¥ë¥¹¤ÏÃѤ¸¤ë¤Ù¤¹Ô¤¤¤ÇÅê¹ö¤µ¤ì¤¿¡£"
500 "ËÜÅö¤Ë»ÄÇ°¤À¡£Èà¤Ïº·É¤µ¤ì¤ë¾¹»¤À¤Ã¤¿¡£"))))
504 (define kurpolis-conv
509 (define (gt-gobl knpc kpc)
510 (say knpc "¥´¥Ö¥ê¥óÀïÁè°Ê¹ß¡¢¤º¤Ã¤ÈÉÔ°ÂÄê¤ÊµÙÀï¾õÂ֤ˤ¢¤ë¡£Èà¤é¤Ï»þ¡¹¾¦Çä¤Î¤¿¤á¤³¤ÎÄ®¤ËÍè¤ë¡£¤À¤¬¡¢¿¹¤Ç²ñ¤Ã¤¿¤È¤¤Ïµ¤¤ò¤Ä¤±¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£"))
511 (define (gt-towe knpc kpc)
512 (say knpc "¤³¤ÎÄ®¤Î̾Á°¤ÏÃæ±û¤Ë¤¢¤ë¸Å¤¤Å㤫¤é¤È¤Ã¤¿¤â¤Î¤Ç¡¢º£¤Ï·ÙÈ÷Ââ¤ÎËÜÉô¤À¡£"))
513 (define (gt-ruin knpc kpc)
514 (say knpc "¸Å¤¤°äÀפϤ³¤ÎÄ®¤ÎÆîÀ¾¤Î³Ñ¤Ë¤¢¤ë¡£"))
515 (define (gt-band knpc kpc)
516 (say knpc "Åð±¤Î¤³¤È¤Ï¥Ç¥ê¥Ã¥¯ÂâŤËʹ¤±¤Ð¤è¤¤¤À¤í¤¦¡£"
517 "¤½¤ÎÌäÂê¤Ë¼è¤êÁȤó¤Ç¤¤¤ë¼Ô¤Î°ì¿Í¤À¡£"))
520 (define green-tower-conv
524 (say knpc "¤½¤¦¡¢¤³¤ÎÄ®¤Î̾Á°¤ÏÃæ±û¤Ë¤¢¤ë¸Å¤¤Å㤫¤é¤È¤Ã¤¿¤â¤Î¤À¡£")))
525 (method 'gobl gt-gobl)
526 (method 'towe gt-towe)
527 (method 'ruin gt-ruin)
528 (method 'band gt-band)
532 (define trigrave-conv
536 (say knpc "Å¥ËÀ¤Î¤³¤È¤Ï¤ï¤«¤é¤Ê¤¤¡£¥°¥Ù¥ó¤Ïι¿Í¤È¤è¤¯Ï䷤Ƥ¤¤ë¤Î¤Ç²¿¤«ÃΤäƤ¤¤ë¤«¤â¤·¤ì¤Ê¤¤¡£")))
539 ;;----------------------------------------------------------------------------
542 ;; Indices into the merchant message list
543 (define merch-closed 0)
545 (define merch-sell 2)
546 (define merch-trade 3)
547 (define merch-sold-something 4)
548 (define merch-sold-nothing 5)
549 (define merch-bought-something 6)
550 (define merch-bought-nothing 7)
551 (define merch-traded-something 8)
552 (define merch-traded-nothing 9)
554 (define (conv-trade knpc kpc menu msgs catalog)
555 (println "conv-trade: " (kern-obj-get-activity knpc))
556 ;;(println "conv-trade: " menu msgs catalog)
557 (if (and (not (string=? "working" (kern-obj-get-activity knpc)))
558 (not (null? (list-ref msgs merch-closed))))
559 (say knpc (list-ref msgs merch-closed)
561 (cond ((string=? (kern-obj-get-activity knpc) "idle") "µÙ·Æ")
562 ((string=? (kern-obj-get-activity knpc) "eating") "¿©»ö")
563 ((string=? (kern-obj-get-activity knpc) "drunk") "°û¤ó¤Ç¤¤¤ëºÇ")
564 ((string=? (kern-obj-get-activity knpc) "commuting") "°ÜÆ°")
565 (else (kern-obj-get-activity knpc)))
567 (cond ((string=? menu "buy")
568 (say knpc (list-ref msgs merch-buy))
569 (if (kern-conv-trade knpc kpc "buy" catalog)
570 (say knpc (list-ref msgs merch-sold-something))
571 (say knpc (list-ref msgs merch-sold-nothing))))
572 ((string=? menu "sell")
573 (say knpc (list-ref msgs merch-sell))
574 (if (kern-conv-trade knpc kpc "sell" catalog)
575 (say knpc (list-ref msgs merch-bought-something))
576 (say knpc (list-ref msgs merch-bought-nothing))))
578 (say knpc (list-ref msgs merch-trade))
579 (if (kern-conv-trade knpc kpc "trade" catalog)
580 (say knpc (list-ref msgs merch-traded-something))
581 (say knpc (list-ref msgs merch-traded-nothing))))
587 "£¶¥Ë¥ó" "six" "£¶¿Í"
590 "¥¢¥¤¥³¥È¥Ð" "pass" "¹ç¸ÀÍÕ"
591 "¥¢¥¤¥Ä¥é" "them" "¤¢¤¤¤Ä¤é"
592 "¥¢¥¤¥Ê¥´" "inag" "¥¢¥¤¥Ê¥´"
595 "¥¢¥¯¥Þ" "demo" "°Ëâ"
597 "¥¢¥±¥ë" "open" "³«¤±¤ë"
599 "¥¢¥½¥Ö" "play" "Í·¤Ö"
600 "¥¢¥½¥ó¥Ç" "play" "Í·¤ó¤Ç"
601 "¥¢¥¿¥ê" "loca" "¤¢¤¿¤ê"
602 "¥¢¥Ä¥á¥ë" "coll" "½¸¤á¤ë"
604 "¥¢¥Ó¥¬¥¤¥ë" "abig" "¥¢¥Ó¥¬¥¤¥ë"
605 "¥¢¥Ö¥µ¥í¥Ã¥È" "absa" "¥¢¥Ö¥µ¥í¥Ã¥È"
606 "¥¢¥é¥ï¥¹" "reve" "ɽ¤¹"
608 "¥¢¥í¥Ú¥¯¥¹" "alop" "¥¢¥í¥Ú¥¯¥¹"
609 "¥¢¥ó¥°¥ê¥¹" "angr" "¥¢¥ó¥°¥ê¥¹"
610 "¥¢¥ó¥µ¥Ä¥·¥ã" "assa" "°Å»¦¼Ô"
611 "¥¤¥¢¥ë" "earl" "¥¤¥¢¥ë"
613 "¥¤¥¥«¥¿" "ways" "À¸¤Êý"
614 "¥¤¥¯¥Ä¥«" "more" "¤¤¤¯¤Ä¤«"
615 "¥¤¥±¥Ë¥¨" "sacr" "À¸ìÓ"
617 "¥¤¥·¥ó" "isin" "¥¤¥·¥ó"
618 "¥¤¥»¥" "ruin" "°äÀ×"
622 "¥¤¥Þ¥·¥á" "vigi" "²ü¤á"
623 "¥¤¥ê¥¢" "ilya" "¥¤¥ê¥¢"
624 "¥¤¥ê¥°¥Á" "entr" "Æþ¤ê¸ý"
626 "¥¦¥´¥¥À¥·¥¿" "wake" "Æ°¤½Ð¤·¤¿"
630 "¥¦¥ß¥Ø¥Ó" "sea" "³¤¥Ø¥Ó"
631 "¥¦¥é¥®¥é¥ì" "betr" "΢ÀÚ¤é¤ì"
632 "¥¦¥é¥®¥é¥ì¥¿" "betr" "΢ÀÚ¤é¤ì¤¿"
633 "¥¦¥é¥®¥ê" "betr" "΢ÀÚ¤ê"
635 "¥¦¥í¥Ä¥¤¥Æ¥¤¥¿" "skul" "¤¦¤í¤Ä¤¤¤Æ¤¤¤¿"
638 "¥¨¥¤¥Ö" "abe" "¥¨¥¤¥Ö"
639 "¥¨¥ó¥¸¥§¥é" "ange" "¥¨¥ó¥¸¥§¥é"
640 "¥ª¡¼¥É" "ord" "¥ª¡¼¥É"
641 "¥ª¥ª¥«¥ß" "wolf" "ϵ"
642 "¥ª¥ª¥¶¥±" "drun" "Âç¼ò"
644 "¥ª¥«¥¢¥µ¥ó" "momm" "¤ªÊ줵¤ó"
645 "¥ª¥«¥·¥¯" "stra" "¤ª¤«¤·¤¯"
646 "¥ª¥«¥·¥Ê" "woma" "¤ª¤«¤·¤Ê"
647 "¥ª¥¸¥¤¥µ¥ó" "gran" "¤ª¤¸¤¤¤µ¤ó"
648 "¥ª¥¸¥«" "stag" "²´¼¯"
649 "¥ª¥¹¥«¡¼" "osca" "¥ª¥¹¥«¡¼"
650 "¥ª¥½¥ì" "afra" "¶²¤ì"
651 "¥ª¥Ã¥«¥µ¥ó" "gher" "¤ª¤Ã¤«¤µ¤ó"
653 "¥ª¥È¥¦¥µ¥ó" "dadd" "¤ªÉ㤵¤ó"
654 "¥ª¥È¥á" "maid" "²µ½÷"
656 "¥ª¥Ñ¡¼¥ê¥ó" "opar" "¥ª¥Ñ¡¼¥ê¥ó"
657 "¥ª¥ó¥É¥ê" "chan" "¥ª¥ó¥É¥ê"
661 "¥«¥¤¥·¥å¥¦¥·¥ã" "conv" "²þ½¡¼Ô"
662 "¥«¥¤¥¾¥¯" "pira" "³¤Â±"
663 "¥«¥¤¥Ö¥Ä" "mons" "²øʪ"
666 "¥«¥®¥¢¥±¥É¥¦¥°" "pick" "¸°³«¤±Æ»¶ñ"
667 "¥«¥±¥Æ¥¤¥Þ¥·¥¿" "wore" "³Ý¤±¤Æ¤¤¤Þ¤·¤¿"
668 "¥«¥Ê¥â¥Î" "iron" "¶âʪ"
671 "¥«¥ß¥¬¥ß" "gods" "¿À¡¹"
672 "¥«¥ë¥·¥Õ¥¡¥¯¥¹" "kalc" "¥«¥ë¥·¥Õ¥¡¥¯¥¹"
673 "¥«¥ë¥Ó¥ó" "calv" "¥«¥ë¥Ó¥ó"
674 "¥«¥ë¥ô¥£¥ó" "calv" "¥«¥ë¥ô¥£¥ó"
675 "¥«¥ï¥ë" "chan" "ÊѤï¤ë"
676 "¥«¥ó¥·¥å" "jail" "´Ç¼é"
677 "¥¬¡¼¥Æ¥£¡¼" "gher" "¥¬¡¼¥Æ¥£¡¼"
678 "¥¬¥ó¥¿¥¤" "patc" "´ãÂÓ"
680 "¥¥¨¥¿" "vani" "¾Ã¤¨¤¿"
681 "¥¥±¥ó" "dang" "´í¸±"
682 "¥¥³¥ê" "wood" "ÌÚ¤³¤ê"
685 "¥¥½¥¯" "rule" "µ¬Â§"
686 "¥¥Î¥³" "shro" "¥¥Î¥³"
688 "¥¥ã¥¹¥ê¥ó" "kath" "¥¥ã¥¹¥ê¥ó"
689 "¥¥å¥¦¥½¥¯" "camp" "µÙ©"
690 "¥¥ç¥¦¥«¥¤" "bord" "¶³¦"
691 "¥¥ç¥¦¥¯¥ó" "less" "¶µ·±"
692 "¥¥ç¥¦¥Ü¥¦" "sava" "¶§Ë½"
693 "¥¥ç¥¸¥ó" "gint" "µð¿Í"
694 "¥¥é¥¤" "hate" "·ù¤¤"
696 "¥®¥»¥¤" "sacr" "µ¾À·"
700 "¥¯¥ë¥Ã¥Æ¥¤¥ë" "mad" "¶¸¤Ã¤Æ¤¤¤ë"
701 "¥¯¥í¡¼¥Ó¥¹" "clov" "¥¯¥í¡¼¥Ó¥¹"
702 "¥¯¥í¥·¥ó¥¸¥å" "blac" "¹õ¿¿¼î"
703 "¥¯¥í¥Ý¥ê¥¹" "kurp" "¥¯¥í¥Ý¥ê¥¹"
706 "¥°¥Î¥À¥Þ" "guno" "¥°¥Î¥À¥Þ"
707 "¥°¥Ù¥ó" "gwen" "¥°¥Ù¥ó"
708 "¥°¥é¥¹¥É¥ê¥ó" "glas" "¥°¥é¥¹¥É¥ê¥ó"
709 "¥°¥ì¥´¡¼¥ë" "greg" "¥°¥ì¥´¡¼¥ë"
711 "¥±¥¤¥Ó" "patr" "·ÙÈ÷"
712 "¥±¥¤¥Ó¥¿¥¤" "rang" "·ÙÈ÷Ââ"
713 "¥±¥¤¥à¥·¥ç" "pris" "·ºÌ³½ê"
717 "¥±¥ó¥¸¥ã" "wise" "¸¼Ô"
718 "¥²¥¤¥¶¡¼" "gaze" "¥²¥¤¥¶¡¼"
719 "¥²¥ó¥´" "lang" "¸À¸ì"
720 "¥²¥ó¥·¥Æ¥" "prim" "¸¶»ÏŪ"
721 "¥³¥¦¥³¥¦" "sail" "¹Ò¹Ô"
722 "¥³¥¦¥Ë¥ó" "repl" "¸åǤ"
723 "¥³¥¯¥¦" "void" "µõ¶õ"
724 "¥³¥¯¥¦¥»¥ó" "void" "µõ¶õÁ¥"
726 "¥³¥Ã¥¥ç¥¦" "bord" "¹ñ¶"
729 "¥³¥í¥¹" "kill" "»¦¤¹"
730 "¥³¥í¥½¥¦" "kill" "»¦¤½¤¦"
731 "¥³¥ï¥¬¥é¥Ê¥¤" "afra" "Éݤ¬¤é¤Ê¤¤"
733 "¥´¥Ö¥ê¥ó" "gobl" "¥´¥Ö¥ê¥ó"
734 "¥´¥Û¥¦¥·" "blow" "¤´Êô»Å"
735 "¥´¥Û¥ó" "coug" "¥´¥Û¥ó"
736 "¥´¥ì¥Ã¥È" "ghol" "¥´¥ì¥Ã¥È"
737 "¥µ¥¤¥¢¥¯" "wors" "ºÇ°"
738 "¥µ¥¤¥·¥ç" "firs" "ºÇ½é"
739 "¥µ¥¤¥À¥ó" "shri" "º×ÃÅ"
740 "¥µ¥¤¥À¥ó" "shri" "º×ÃÅ"
741 "¥µ¥¤¥é¥¹" "sila" "¥µ¥¤¥é¥¹"
742 "¥µ¥«¥º¥" "jugs" "ÇÕ"
743 "¥µ¥«¥Ð" "tave" "¼ò¾ì"
744 "¥µ¥¬¥·¥¿" "sear" "õ¤·¤¿"
745 "¥µ¥è¥Ê¥é" "bye" "¤µ¤è¤Ê¤é"
746 "¥µ¥ó¥À¥ê¥ó¥°" "sund" "¥µ¥ó¥À¥ê¥ó¥°"
748 "¥·¥§¡¼¥¯¥¹¥Ô¥¢" "shak" "¥·¥§¡¼¥¯¥¹¥Ô¥¢"
749 "¥·¥§¥¤¥¯¥¹¥Ô¥¢" "shak" "¥·¥§¥¤¥¯¥¹¥Ô¥¢"
751 "¥·¥´¥È" "job" "»Å»ö"
752 "¥·¥´¥È¥¬¥Ê¥¤" "luck" "»Å»ö¤¬¤Ê¤¤"
754 "¥·¥¸¥ó" "bard" "»í¿Í"
755 "¥·¥¿¥¤" "want" "¤·¤¿¤¤"
756 "¥·¥Ã¥Á" "fens" "¼¾ÃÏ"
757 "¥·¥Ã¥Á¥¿¥¤" "fens" "¼¾ÃÏÂÓ"
759 "¥·¥Ï¥¤" "domi" "»ÙÇÛ"
760 "¥·¥ß¥ó" "civi" "»Ô̱"
761 "¥·¥ã¥ë¥É" "shar" "¥·¥ã¥ë¥É"
762 "¥·¥å¥¦¥¸¥ó" "pris" "¼ü¿Í"
763 "¥·¥å¥¦¥É¥¦¥¸¥ç" "num" "½¤Æ»½÷"
764 "¥·¥å¥¦¥É¥¦¥½¥¦" "brot" "½¤Æ»ÁÎ"
765 "¥·¥å¥¦¥è¥¦¥·¥ç" "pris" "¼ýÍƽê"
766 "¥·¥å¥¦¥è¥¦¥¸¥ç" "pris" "¼ýÍƽê"
767 "¥·¥å¥¦¥ê¥ä" "tink" "½¤Íý²°"
768 "¥·¥å¥´" "ward" "¼é¸î"
769 "¥·¥å¥´¥Î¥¸¥å¥â¥ó" "ward" "¼é¸î¤Î¼öʸ"
770 "¥·¥å¥´¥·¥ã" "keep" "¼é¸î¼Ô"
771 "¥·¥å¥¸¥ó" "innk" "¼ç¿Í"
772 "¥·¥å¥ë¡¼¥à" "shro" "¥·¥å¥ë¡¼¥à"
773 "¥·¥ç¥¦¥«¥¯" "prom" "¾º³Ê"
774 "¥·¥ç¥¦¥³" "evid" "¾Úµò"
775 "¥·¥ç¥¦¥Ð¥¤" "deal" "¾¦Çä"
776 "¥·¥ç¥¯¥¸" "supp" "¿©»ö"
777 "¥·¥ç¥¯¥Ë¥ó" "wrig" "¿¦¿Í"
778 "¥·¥ç¥¯¥Ë¥ó" "wrig" "¿¦¿Í"
779 "¥·¥ç¥¯¥ê¥ç¥¦" "food" "¿©ÎÁ"
780 "¥·¥ê¥ç¥¦¥¸¥å¥Ä¥·" "necr" "»àÎî½Ñ»Õ"
781 "¥·¥ì¥¤¥«¥ó" "comm" "»ÊÎá´±"
782 "¥·¥í¥" "whit" "Çò¤"
783 "¥·¥í¥¥ª¥¸¥«" "whit" "Çò¤²´¼¯"
784 "¥·¥ó¥¨¥ó" "deep" "¿¼Ê¥"
785 "¥·¥ó¥¸¥Ä" "trut" "¿¿¼Â"
786 "¥·¥ó¥»¥" "cous" "¿ÆÀÌ"
787 "¥·¥ó¥Ç" "dead" "»à¤ó¤Ç"
788 "¥·¥ó¥Ç¥ó" "shri" "¿ÀÅÂ"
789 "¥·¥ó¥è¥¦" "trus" "¿®ÍÑ"
790 "¥¸¥¤¥ó" "temp" "»û±¡"
791 "¥¸¥§¥¤¥¯" "jake" "¥¸¥§¥¤¥¯"
792 "¥¸¥§¥¹" "jess" "¥¸¥§¥¹"
793 "¥¸¥§¥Õ¥ê¡¼¥º" "jeff" "¥¸¥§¥Õ¥ê¡¼¥º"
794 "¥¸¥§¥ó" "gen" "¥¸¥§¥ó"
795 "¥¸¥´¥¯" "hell" "ÃϹö"
796 "¥¸¥À¥¤" "age" "»þÂå"
800 "¥¸¥ã¥¢¥¯" "wick" "¼Ù°"
801 "¥¸¥ã¥Ë¥¹" "jani" "¥¸¥ã¥Ë¥¹"
802 "¥¸¥å¥¦¥Ë" "twel" "½½Æó"
803 "¥¸¥å¥¦¥Ë¥ó" "inha" "½»¿Í"
804 "¥¸¥å¥â¥ó" "spel" "¼öʸ"
806 "¥¸¥ç¡¼¥ó" "jorn" "¥¸¥ç¡¼¥ó"
807 "¥¸¥ç¥¦¥Û¥¦" "news" "¾ðÊó"
808 "¥¹¥¦¥Ï¥¤" "hono" "¿òÇÒ"
809 "¥¹¥Ù¥¥³¥È" "ques" "¤¹¤Ù¤¤³¤È"
810 "¥¹¥ß¥ä¥" "char" "ú¾Æ¤"
812 "¥º¥«¥¥°¥ë" "zuka" "¥º¥«¥¥°¥ë"
813 "¥»¥¤¥¥·" "pala" "À»µ³»Î"
814 "¥»¥¤¥®" "just" "ÀµµÁ"
815 "¥»¥¤¥µ¥ó" "sacr" "À»»Á"
816 "¥»¥¤¥È" "stud" "À¸ÅÌ"
817 "¥»¥¤¥Ï¥¤" "holy" "À»ÇÕ"
818 "¥»¥¥Ë¥ó" "onus" "ÀÕǤ"
819 "¥»¥¥Ð¥ó" "rune" "ÀÐÈÇ"
820 "¥»¥ì¥Í" "sele" "¥»¥ì¥Í"
821 "¥»¥ó¥»¥¤" "doc" "ÀèÀ¸"
822 "¥»¥ó¥½¥¦" "wars" "ÀïÁè"
823 "¥»¥ó¥Á¥ç¥¦" "capt" "Á¥Ä¹"
824 "¥»¥ó¥È¥¦" "warm" "ÀïÆ®"
826 "¥¼¥ó¥»¥ó" "outp" "Á°Àþ"
827 "¥½¥¦¥Ó" "equi" "ÁõÈ÷"
828 "¥½¥Ê¥¨¥â¥Î" "offe" "¶¡¤¨Êª"
829 "¥¿¥¤¥¨¥" "reti" "ÂàÌò"
830 "¥¿¥¤¥Þ¥Ä" "torc" "¾¾ÌÀ"
832 "¥¿¥¹¥±" "help" "½õ¤±"
833 "¥¿¥¿¥«¥Ã¥Æ" "batt" "Àï¤Ã¤Æ"
835 "¥¿¥Î¥·¥¤" "fun" "³Ú¤·¤¤"
836 "¥¿¥Ó¥Î¥¥·" "knig" "ι¤Îµ³»Î"
837 "¥¿¥Ó¥Ó¥È" "trav" "ι¿Í"
838 "¥¿¥Ù¥â¥Î" "food" "¿©¤Ùʪ"
839 "¥¿¥á¥Ë" "reas" "¤¿¤á¤Ë"
840 "¥¿¥ó¥±¥ó" "dagg" "û·õ"
842 "¥À¥¤£±" "firs" "Â裱"
843 "¥À¥¤£²" "seco" "Â裲"
844 "¥À¥¤£³" "thir" "Â裳"
845 "¥À¥¤¥¤¥Á" "firs" "Âè°ì"
846 "¥À¥¤¥¥ó" "pay" "Âå¶â"
847 "¥À¥¤¥µ¥ó" "thir" "Âè»°"
848 "¥À¥¤¥·¥ç¥¦" "fail" "Âå½þ"
849 "¥À¥¤¥¹¥" "love" "Âç¹¥¤"
850 "¥À¥¤¥Ë" "seco" "ÂèÆó"
851 "¥À¥·¥Æ" "free" "½Ð¤·¤Æ"
852 "¥À¥ó¥Ê" "husb" "öÆá"
853 "¥Á¥§¥¹¥¿¡¼" "ches" "¥Á¥§¥¹¥¿¡¼"
857 "¥Á¥·¥" "know" "Ãμ±"
859 "¥Á¥Î¥¦" "int" "ÃÎǽ"
860 "¥Á¥å¥¦¥È¥ó¥Á" "garr" "ÃóÆÖÃÏ"
862 "¥Á¥ê¥ç¥¦" "heal" "¼£ÎÅ"
865 "¥Ä¥¥µ¥¹" "spit" "Æͤ»É¤¹"
866 "¥Ä¥¯¥ë" "make" "ºî¤ë"
867 "¥Ä¥°¥Ê¥¤" "pena" "½þ¤¤"
868 "¥Ä¥ß¥Î¥Ê¥¤" "inno" "ºá¤Î¤Ê¤¤"
872 "¥Æ¥·¥¿" "crew" "¼ê²¼"
873 "¥Æ¥Ä¥À¥¤" "chor" "¼êÅÁ¤¤"
874 "¥Æ¥ó¥·¥ç¥¯" "voca" "Å·¿¦"
875 "¥Ç¥Ë¥¹" "denn" "¥Ç¥Ë¥¹"
876 "¥Ç¥ê¥Ã¥¯" "deri" "¥Ç¥ê¥Ã¥¯"
877 "¥Ç¥ó¥É¥¦" "lost" "ÅÂƲ"
880 "¥È¥¦¥·" "warr" "Æ®»Î"
881 "¥È¥¦¥¾¥¯" "band" "Åð±"
882 "¥È¥¦¥Á¥·¥ã" "stew" "Åý¼£¼Ô"
885 "¥È¥Ã¥Æ" "get" "¼è¤Ã¤Æ"
887 "¥È¥ê¥°¥ì¥¤¥Ö" "trig" "¥È¥ê¥°¥ì¥¤¥Ö"
889 "¥È¥ê¥Ò¥" "trad" "¼è¤ê°ú¤"
891 "¥È¥í¥ë" "trol" "¥È¥í¥ë"
892 "¥É¥¦¥¥ç¥Ë¥ó" "inn" "Ʊµï¿Í"
893 "¥É¥¦¥¯¥Ä" "cave" "ƶ·¢"
894 "¥É¥¦¥Ö¥Ä" "anim" "ưʪ"
896 "¥É¥Á¥ã¥¯" "nati" "ÅÚÃå"
897 "¥É¥ê¥¹" "dori" "¥É¥ê¥¹"
898 "¥É¥ì¥¤" "slav" "ÅÛÎì"
899 "¥É¥í¥Ü¥¦" "thie" "Å¥ËÀ"
902 "¥Ê¥«¥Þ" "join" "Ãç´Ö"
903 "¥Ê¥Þ¥¨" "name" "̾Á°"
904 "¥Ê¥é¥º¥â¥Î" "wrog" "¤Ê¤é¤º¼Ô"
905 "¥Ë¥¯¥ó¥Ç" "hate" "Áþ¤ó¤Ç"
907 "¥Ë¥²¥é¥ì¥Ê¥¤" "esca" "ƨ¤²¤é¤ì¤Ê¤¤"
908 "¥Ë¥²¥ë" "esca" "ƨ¤²¤ë"
909 "¥Ë¥Ã¥" "diar" "Æüµ"
911 "¥Ë¥ó¥²¥ó" "man" "¤Ë¤ó¤²¤ó"
912 "¥Ë¥ó¥à" "erra" "Ǥ̳"
916 "¥Í¥º¥ß" "mous" "¥Í¥º¥ß"
919 "¥Î¥¦¥Õ" "farm" "ÇÀÉ×"
920 "¥Î¥¦¥ê¥ç¥¯" "skil" "ǽÎÏ"
921 "¥Î¥¬¥ì¥ë" "esca" "ƨ¤ì¤ë"
922 "¥Î¥·¥Õ¥¡¡¼" "noss" "¥Î¥·¥Õ¥¡¡¼"
923 "¥Î¥ß¥â¥Î" "drin" "°û¤ßʪ"
925 "¥Î¥í¥¤" "curs" "¼ö¤¤"
926 "¥Î¥í¥ï¥ì¥¿¥â¥Î" "accu" "¼ö¤ï¤ì¤¿¼Ô"
930 "¥Ï¥·¥ê" "run" "Áö¤ê"
932 "¥Ï¥Ã¥¯¥ë" "hack" "¥Ï¥Ã¥¯¥ë"
934 "¥Ï¥Ê¥¹" "talk" "Ïä¹"
935 "¥Ï¥à¥ì¥Ã¥È" "haml" "¥Ï¥à¥ì¥Ã¥È"
936 "¥Ï¥á¥ê¥å¥È" "hame" "¥Ï¥á¥ê¥å¥È"
937 "¥Ï¥ó¥®¥ã¥¯" "rebe" "È¿µÕ"
938 "¥Ï¥ó¥·¥¿" "rebe" "È¿¤·¤¿"
939 "¥Ï¥ó¥È¥¦" "peni" "ȾÅç"
940 "¥Ð¡¼¥È" "bart" "¥Ð¡¼¥È"
941 "¥Ð¥¤¥Ë¥ó" "sell" "Çä¿Í"
942 "¥Ð¥ë¥¹" "valu" "¥Ð¥ë¥¹"
944 "¥Ñ¡¼¥·¡¼" "perc" "¥Ñ¡¼¥·¡¼"
945 "¥Ñ¡¼¥·¥Ð¥ë" "perc" "¥Ñ¡¼¥·¥Ð¥ë"
946 "¥Ñ¥¹¥«" "pusk" "¥Ñ¥¹¥«"
951 "¥Ò¥È¥Ó¥È" "peop" "¿Í¡¹"
952 "¥Ò¥È¥ê" "alon" "ÆȤê"
953 "¥Ò¥É¥¤" "nast" "¹ó¤¤"
954 "¥Ò¥É¥é" "hydr" "¥Ò¥É¥é"
955 "¥Ò¥Î¥¦¥ß" "fire" "²Ð¤Î³¤"
956 "¥Ò¥ß¥Ä" "secr" "ÈëÌ©"
957 "¥Ò¥ä¥¯" "reag" "ÈëÌô"
958 "¥Ó¥¯¥È¥ê¥¢" "vict" "¥Ó¥¯¥È¥ê¥¢"
959 "¥Ó¥ç¥¦¥¤¥ó" "hosp" "ɱ¡"
961 "¥Ó¥ó¥·¥ç¥¦" "dex" "ÉÒ¾¹"
962 "¥Õ¥£¥ó" "fing" "¥Õ¥£¥ó"
963 "¥Õ¥¯¥·¥å¥¦" "reve" "Éü½²"
965 "¥Õ¥·¥ç¥¦" "crip" "Éé½ý"
966 "¥Õ¥»¥¤¥¸¥Ä" "fail" "ÉÔÀ¿¼Â"
967 "¥Õ¥»¥°" "guar" "Ëɤ°"
968 "¥Õ¥¿¥Ä" "two" "Æó¤Ä"
969 "¥Õ¥Æ¥¥»¥Ä" "unna" "ÉÔŬÀÚ"
971 "¥Õ¥ë¥¤" "old" "¸Å¤¤"
972 "¥Ö¥ë¥Ì" "brun" "¥Ö¥ë¥Ì"
973 "¥Ö¥ë¥ó¥Ç¥¬¡¼¥É" "brun" "¥Ö¥ë¥ó¥Ç¥¬¡¼¥É"
974 "¥Ö¥ó¥«" "cult" "ʸ²½"
975 "¥Ö¥ó¥á¥¤" "civi" "ʸÌÀ"
976 "¥Ø¥¤¥¨¥" "tour" "ʼÌò"
977 "¥Ø¥¤¥ï" "peac" "Ê¿ÏÂ"
978 "¥Ø¥Ã¥¿" "hung" "¸º¤Ã¤¿"
980 "¥Ø¥ó¥ê¡¼" "henr" "¥Ø¥ó¥ê¡¼"
981 "¥Û¡¼¥ë" "hole" "¥Û¡¼¥ë"
982 "¥Û¥¦¥«¥¤" "ruin" "Êø²õ"
983 "¥Û¥ó¥Ö" "cita" "ËÜÉô"
985 "¥Ü¥¦¥±¥ó¥·¥ã" "adve" "ËÁ¸±¼Ô"
986 "¥Ü¥¦¥ì¥¤" "ghos" "Ë´Îî"
987 "¥Ü¥Ê¥Ï" "bona" "¥Ü¥Ê¥Ï"
990 "¥Þ¥¥â¥Î" "scro" "´¬Êª"
991 "¥Þ¥´¥à¥¹¥á" "gran" "¹̼"
992 "¥Þ¥¸¥å¥Ä¥·" "wiza" "Ëâ½Ñ»Õ"
993 "¥Þ¥¸¥ç" "witc" "Ëâ½÷"
994 "¥Þ¥º¥·¥¤" "poor" "ÉϤ·¤¤"
996 "¥Þ¥Ã¥Æ" "expe" "ÂԤäÆ"
997 "¥Þ¥É¥¦¥·" "ench" "ËâÆ»»Õ"
998 "¥Þ¥Û¥¦" "mage" "ËâË¡"
999 "¥Þ¥Û¥¦¥¸¥ó" "roun" "ËâË¡¿Ø"
1000 "¥Þ¥Û¥¦¥Ä¥«¥¤" "wiza" "ËâË¡»È¤¤"
1001 "¥Þ¥è¥¤¥Ó¥È" "wand" "̤¤¿Í"
1002 "¥Þ¥è¥Ê¥«" "nigh" "¿¿ÌëÃæ"
1003 "¥ß¡¼¥Ë¡¼" "mean" "¥ß¡¼¥Ë¡¼"
1004 "¥ß¥Ä¥±¥ë" "find" "¸«¤Ä¤±¤ë"
1005 "¥ß¥É¥ê¥Î¥È¥¦" "gree" "ÎФÎÅã"
1007 "¥à¥¹¥á" "daug" "̼"
1009 "¥à¥ì" "hord" "·²¤ì"
1012 "¥á¥¤¥¥å¥¦" "dung" "̵Ü"
1013 "¥á¥ê¥å¥" "melu" "¥á¥ê¥å¥"
1014 "¥á¥ë¥Ó¥ó" "melv" "¥á¥ë¥ô¥£¥ó"
1015 "¥á¥ë¥ô¥£¥ó" "melv" "¥á¥ë¥ô¥£¥ó"
1016 "¥â¥¦¥â¥¯" "blin" "ÌÕÌÜ"
1017 "¥â¥¯¥Æ¥" "aspi" "ÌÜŪ"
1022 "¥ä¥¢" "hail" "¤ä¤¢"
1023 "¥ä¥·¥ó" "ambi" "Ìî¿´"
1024 "¥ä¥Ã¥«¥¤" "trou" "¤ä¤Ã¤«¤¤"
1025 "¥ä¥Ã¥Ä" "eigh" "Ȭ¤Ä"
1026 "¥ä¥Þ¥¤" "sick" "ÉÂ"
1027 "¥ä¥á¥ë" "quit" "¼¤á¤ë"
1028 "¥ä¥ï¥é¥«" "soft" "½À¤é¤«"
1029 "¥æ¥¦¥ì¥¤" "haun" "Í©Îî"
1030 "¥æ¥Ó¥ï" "ring" "»ØÎØ"
1031 "¥è¥¯¥Ü¥¦" "desi" "Íß˾"
1032 "¥é¥¯¥·¥Þ¥Ë" "luxi" "¥é¥¯¥·¥Þ¥Ë"
1034 "¥ê¥Ã¥Á" "lich" "¥ê¥Ã¥Á"
1035 "¥ê¥ã¥¯¥À¥Ä" "sack" "άå"
1037 "¥ê¥å¥¦" "drag" "ε"
1038 "¥ê¥ç¥¦¥¤¥" "real" "Îΰè"
1039 "¥ê¥ç¥¦¥·¥ó" "pare" "ξ¿Æ"
1040 "¥ê¥ç¥¦¥É" "real" "ÎÎÅÚ"
1041 "¥ê¥ç¥¦¥Û¥¦" "both" "ξÊý"
1042 "¥ê¥ç¥¦¥ê" "cook" "ÎÁÍý"
1043 "¥ê¥ç¥¦¥ê¥Ë¥ó" "cook" "ÎÁÍý¿Í"
1044 "¥ê¥ó¥¸¥ó" "neig" "ÎÙ¿Í"
1046 "¥ë¥«" "ruka" "¥ë¥«"
1047 "¥ë¥ß¥¹" "lumi" "¥ë¥ß¥¹"
1049 "¥ì¥¥·" "hist" "Îò»Ë"
1050 "¥ì¥ó¥¥ó¥¸¥å¥Ä¥·" "alch" "Ï£¶â½Ñ»Õ"
1051 "¥ì¥ó¥·¥å¥¦" "prac" "Îý½¬"
1052 "¥í¥¤¥ä¥ë¥±¡¼¥×" "cape" "¥í¥¤¥ä¥ë¥±¡¼¥×"
1054 "¥í¥¯¥Ë¥ó" "six" "Ï»¿Í"
1055 "¥ï¥«¥ì¥ë" "leav" "Ê̤ì¤ë"
1056 "¥ï¥¹¥ì¥é¥ì¥¿" "forg" "˺¤ì¤é¤ì¤¿"
1057 "¥ï¥Ã¥Æ" "chop" "³ä¤Ã¤Æ"
1058 "¥ï¥ó¥ê¥ç¥¯" "stre" "ÏÓÎÏ"
1059 "¥ô¥¡¥ë¥¹" "valu" "¥ô¥¡¥ë¥¹"
1060 "¥ô¥¡¥ì" "vale" "¥ô¥¡¥ì"
1061 "¥ô¥£¥¯¥È¥ê¥¢" "vict" "¥ô¥£¥¯¥È¥ê¥¢"