--- /dev/null
+\93ú\96{\8cê\83t\83H\83\93\83g\82Í\81u\8fo\90\85\83S\83V\83b\83N 16dot\81v\82ð\8eg\97p\82µ\82Ä\82¢\82Ü\82·.\r
+http://members.at.infoseek.co.jp/yu_izumi/izumi-bf/dl-jp.html\r
+++ /dev/null
-/GAME_RULES/1.3/Tue Jan 23 08:32:13 2007//
-/GHULSCRIPT/1.4/Mon Jun 30 09:42:47 2003//
-/MAP_HACKERS_GUIDE/1.7/Tue Jan 23 08:32:13 2007//
-/USERS_GUIDE/1.31/Sat Oct 10 23:31:19 2009//
-/null.gif/1.1/Mon Aug 28 12:39:23 2006/-kb/
-/users_guide.html/1.8/Sat Oct 27 05:46:49 2007//
-D
+++ /dev/null
-A D/engine_extension_and_design////
-A D/world_building////
+++ /dev/null
-nazghul/doc
+++ /dev/null
-:ext:gmcnutt@nazghul.cvs.sourceforge.net:/cvsroot/nazghul
--- /dev/null
+\r
+\r
+ Nazghul\90à\96¾\8f\91\r
+\r
+Nazghul(\83i\83Y\83O\83\8b)\82Í\90Ì\89ù\82©\82µ\82¢\81A\91S\90·\8aú\82É\82Í\90\94\91½\82\8dÌ\97p\82³\82ê\82½\81A\83g\83b\83v\83_\83E\83\93\81A2D\83^\r
+\83C\83\8b\83O\83\89\83t\83B\83b\83N\82ÌRPG\82Ì\83N\83\8d\81[\83\93\82Å\82 \82é\81B\8bï\91Ì\93I\82É\82ÍUltima V\82Ì\83V\83X\83e\83\80\82ð\8dÌ\97p\82µ\82Ä\r
+\82¢\82Ä\81A\82±\82Ì\83Q\81[\83\80\82Å\97V\82ñ\82¾\82±\82Æ\82ª\82 \82ê\82Î\90e\82µ\82Ý\82â\82·\82¢\82à\82Ì\82É\82È\82Á\82Ä\82¢\82é\81B\r
+\r
+\r
+ \83Q\81[\83\80\82Ì\83C\83\93\83X\83g\81[\83\8b\r
+\r
+\83\\81[\83X\82ð\83_\83E\83\93\83\8d\81[\83h\82µ\82½\82Ì\82Å\82 \82ê\82Î\81AINSTALL\83t\83@\83C\83\8b\82ð\93Ç\82Þ\82±\82Æ\81B\r
+\r
+Windows\97p\83o\83C\83i\83\8a\82ð\83_\83E\83\93\83\8d\81[\83h\82µ\82½\82È\82ç\81AWinzip\93\99\82Å\93W\8aJ\82·\82é\82±\82Æ\81B\r
+\r
+\r
+ \83Q\81[\83\80\8aJ\8en\r
+\r
+\r
+Linux/UNIX\82È\82ç\82Î:\r
+\r
+ $ haxima.sh\r
+\r
+Windows\82È\82ç\82Î:\r
+\r
+ \83X\83^\81[\83g\83\81\83j\83\85\81[\82Ü\82½\82Í\83f\83X\83N\83g\83b\83v\82Ì\83A\83C\83R\83\93\82©\82ç\8bN\93®\82·\82é\r
+\r
+\8dÅ\8f\89\82É\83`\83\85\81[\83g\83\8a\83A\83\8b\82Å\97V\82Ô\82©\81A\94ò\82Î\82µ\82Ä\8dÅ\8f\89\82©\82ç\8en\82ß\82é\82±\82Æ\82ª\82Å\82«\82é\81B\r
+\r
+\r
+ \83Q\81[\83\80\82Ì\95Û\91¶\r
+\r
+\83Q\81[\83\80\92\86\82Í\82¢\82Â\82Å\82àCTRL-S\83L\81[\82Å\95Û\91¶\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B\95Û\91¶\82Ì\90\94\82Í\96³\90§\8cÀ\82Å\82 \82é\81B\8dÄ\r
+\8aJ\82·\82é\82Æ\82«\82Í\81A\8dÅ\8f\89\82Ì\89æ\96Ê\82ÅJ)\97·\82ð\91±\82¯\82é\82©\82ç\95Û\91¶\82µ\82½\83t\83@\83C\83\8b\82ð\91I\91ð\82·\82é\81B\r
+\r
+\82à\82µ\8e\80\82ñ\82Å\82µ\82Ü\82Á\82½\82ç\83Q\81[\83\80\82Í\8fI\97¹\82·\82é\81B\8dÄ\8aJ\82·\82é\82Æ\82«\82ÍJ)\97·\82ð\91±\82¯\82é\82Å\8dÅ\8cã\82É\95Û\91¶\82µ\r
+\82½\91I\91ð\82·\82é\82±\82Æ\82É\82È\82é\81B\r
+\r
+\r
+ \83Q\81[\83\80\8fI\97¹\r
+\r
+Q\82ð\89\9f\82¹\82Î\82¢\82Â\82Å\82à\8fI\97¹\82Å\82«\82é\81B\8fI\97¹\82·\82é\91O\82É\95Û\91¶\82·\82é\82©\82Ì\91I\91ð\82ª\82 \82é\81B\r
+\r
+\r
+ \91\80\8dì\r
+\r
+U5\82Å\97V\82ñ\82¾\82±\82Æ\82ª\82È\82¯\82ê\82Î\8dÅ\8f\89\82Ì\89æ\96Ê\82Å\91I\91ð\82Å\82«\82éT)\83`\83\85\81[\83g\83\8a\83A\83\8b\82ð\8a©\82ß\82é\81B\82»\82±\82É\r
+\82Í\83Q\81[\83\80\82ð\8en\82ß\82é\82½\82ß\82Ì\82¢\82\82Â\82©\82Ì\83q\83\93\83g\82ª\82 \82é\81B\r
+\r
+ \92T\8dõ\82·\82é\r
+\r
+\83Q\81[\83\80\82ð\8en\82ß\82é\82Æ\8dÅ\8f\89\82Í\81u\96À\82¢\90l\81v\88ê\90l\82µ\82©\82¢\82È\82¢\81B\82»\82Ì\83A\83C\83R\83\93\82Í\8d¶\82Ì\92n\90}\8fã\82Ì\92\86\89\9b\r
+\82É\8c©\82¦\82é\81B\82 \82½\82è\82ð\92T\8dõ\82·\82é\82½\82ß\82É\82Í\83e\83\93\83L\81[\82Å\88Ú\93®\82·\82é\95K\97v\82ª\82 \82é\81B\89º\82É\82Í\8f¬\82³\82È\83v\r
+\83\8d\83\93\83v\83g\82Ì\83E\83B\83\93\83h\83E\82ª\82 \82é\81B\82»\82±\82É\82Í\91I\91ð\82µ\82½\96½\97ß\82Å\8e\9f\82É\89½\82ð\93ü\97Í\82µ\82È\82¯\82ê\82Î\82È\82ç\82È\r
+\82¢\82©\95\\8e¦\82³\82ê\82é\81B\97á\82¦\82Î\81AX)\82 \82½\82è\82ð\92²\82×\82é\96½\97ß\82Å\82Í\83v\83\8d\83\93\83v\83g\82Í\8e\9f\82Ì\82æ\82¤\82É\82È\82é\81B\r
+\r
+ \92²\82×\82é-<\91Î\8fÛ> (ESC\82Å\92\86\8e~)\r
+\r
+\82±\82ê\82Í\83e\83\93\83L\81[\82Å\83J\81[\83\\83\8b\82ð\93®\82©\82·\82±\82Æ\82ð\97v\8b\81\82µ\82Ä\82¢\82é\82±\82Æ\82ð\95\\82µ\82Ä\82¢\82é\81BESC\83L\81[\82ð\r
+\89\9f\82·\82Æ\96½\97ß\82Í\92\86\92f\82³\82ê\82é\81B\82Ù\82Æ\82ñ\82Ç\82Ì\96½\97ß\82ÍESC\82Å\92\86\92f\82Å\82«\82é\81B\r
+\r
+\82Ç\82±\82É\82¢\82é\82©\81A\82»\82µ\82Ä\89½\8e\9e\82©\82ð\92m\82è\82½\82¢\82Æ\82«\82Í@\83L\81[\82ð\89\9f\82·\81B\82±\82Ì\83Q\81[\83\80\82É\82Í\8e\9e\8cv\82Í\82È\r
+\82¢\81B\8e\9e\8d\8f\82ð\92m\82é\97B\88ê\82Ì\95û\96@\82Í\91¾\97z\82Ì\8ap\93x\82©\82ç\97Þ\90\84\82·\82é\82±\82Æ\82Å\82 \82é\81B\r
+\r
+ \89ï\98b\82·\82é\r
+\r
+\93ì\82É\8dÅ\8f\89\82ÌNPC(\83v\83\8c\83C\83\84\81[\82Å\82È\82¢\90l\95¨)\82ª\8c©\82¦\82é\81BNPC\82Æ\82ÍT\82Å\98b\82·\82±\82Æ\82ª\82Å\82«\82é\81B\91Î\8fÛ\r
+\82ð\8e¦\82·\83J\81[\83\\83\8b\82ª\8c»\82ê\82é\82Ì\82Å\81A\83J\81[\83\\83\8b\83L\81[\82Å\88Ú\93®\82³\82¹\81ANPC\82É\8d\87\82í\82¹ENTER\83L\81[\82ð\89\9f\82·\r
+\82Æ\81ANPC\82Ü\82½\82Í\82 \82È\82½\82©\82ç\89ï\98b\82ª\8en\82Ü\82é\81B\r
+\r
+\82±\82ê\82ª\89ï\98b\82Ì\8en\82ß\95û\82Å\82 \82é\81B\89ï\98b\82Ì\8dÅ\92\86\82É\83L\81[\83\8f\81[\83h\82ð\93ü\97Í\82·\82é\82Æ\81ANPC\82ª\82»\82ê\82É\89\9e\82¦\r
+\82é\81B\97á\82¦\82Î\81A\81u\96¼\91O\81v\82â\81u\8ed\8e\96\81v\82Æ\93ü\97Í\82·\82é\82ÆNPC\82Ì\82»\82ê\82ª\82í\82©\82é\81B\89ï\98b\82ð\8fI\82¦\82½\82¢\82È\r
+\82ç\81A\81u\82³\82æ\82È\82ç\81v\82Ü\82½\82Í\89½\82à\93ü\97Í\82¹\82¸ENTER\82ð\89\9f\82·\81B\r
+\r
+ \95¨\82ð\8eæ\82é\r
+\r
+\82 \82È\82½\82Í\82¢\82¸\82ê\93¹\82ð\82½\82Ç\82Á\82Ä\8d¶\89º\82Ì\95\94\89®\82É\93ü\82é\82±\82Æ\82É\82È\82é\82¾\82ë\82¤\81B\95\94\89®\82Ì\95Ç\82Í\95s\89Â\8ev\8bc\r
+\82È\8cÃ\91ã\95¶\8e\9a\82Å\8fü\82ç\82ê\82Ä\82¢\82é\81B\95\94\89®\82Ì\92\86\82É\82Í\94 \82ª\82 \82é\81B\r
+\r
+\94 \82Ì\82Æ\82È\82è\82Ö\88Ú\93®\82µ\81AO\82ð\89\9f\82µ\81A\95ó\94 \82Ì\95û\8cü\82Ì\83e\83\93\83L\81[\82ð\89\9f\82·\81B\82·\82é\82Æ\94 \82ª\8aJ\82«\81A\92\86\82Ì\r
+\97l\81X\82È\95¨\82ª\8f°\82Ì\8fã\82É\8c»\82ê\82é\81B\r
+\r
+\8eæ\82é\82½\82ß\82É\82ÍG\82ð\89\9f\82·\81B\8aî\96{\93I\82È\95\90\8aí\82Æ\8aZ\81A\8eô\95¶\82Ì\82½\82ß\82Ì\94é\96ò\81A\82¢\82\82Â\82©\82Ì\96ò\82Æ\8aª\95¨\82ª\r
+\8eè\82É\93ü\82é\81B\r
+\r
+ \91\95\94õ\82·\82é\r
+\r
+\8e\9d\82¿\95¨\82ð\8c©\82é\82½\82ß\82É\82Í\81AZ\82ð\89\9f\82µ\82Ä\83X\83N\83\8d\81[\83\8b\82³\82¹\82é\81B\8d¶\89E\82Ì\83L\81[\82Å\95\\8e¦\82·\82é\8d\80\96Ú\82ð\90Ø\r
+\82è\91Ö\82¦\82ç\82ê\82é\81B\82 \82È\82½\8e©\90g\82â\8e\9d\82¿\95¨\82ð\8c©\8fI\82¦\82½\82çESC\82ð\89\9f\82µ\82Ä\96ß\82é\81B\r
+\r
+R\82ð\89\9f\82µ\82Ä\91\95\94õ\82·\82é\95\90\8aí\82â\8aZ\82ð\91I\82Ñ\81AENTER\82Å\91\95\94õ\82·\82é\81B\91\95\94õ\82µ\8fI\82í\82Á\82½\82çESC\82Å\96ß\82é\81B\r
+\r
+ \8eô\95¶\82ð\92²\8d\87\82·\82é\r
+\r
+\89ñ\95\9c\82Ì\8eô\95¶\82ð\8d\87\90¬\82·\82é\81B\82Ü\82¸M\82ð\89\9f\82·\81B\8e\9f\82É\8eô\95¶\82Ì\96¼\8fÌ\82ð\93ü\97Í\82·\82é\81B\82±\82Ì\8fê\8d\87\82Í"Mani"\r
+\82Ì\90æ\93ª\82ÌM\82ð\89\9f\82µ\81AENTER\82ð\89\9f\82·\81B\8e\9f\82É\90l\8eQ\82Æ\92wå\81\82Ì\8e\85\82ð\94é\96ò\82Ì\88ê\97\97\82©\82ç\91I\82Ô\81B\82»\82µ\82ÄM\r
+\82ð\89\9f\82·\81B\8dÅ\8cã\82É\88ê\93x\82É\92²\8d\87\82·\82é\8eô\95¶\82Ì\90\94\82ð\93ü\97Í\82Å\82«\82é\82Ì\82Å\81A\95K\97v\82ÈMani\82Ì\8eô\95¶\82Ì\90\94\82ð\93ü\r
+\97Í\82·\82é\81B\82±\82±\82Å1\82ð\93ü\97Í\82·\82é\82Æ\81A1\82Â\82ÌMani\81A\89ñ\95\9c\82Ì\8eô\95¶\82ª\8dì\82ç\82ê\82é\81B\8eô\95¶\82Í\8cã\82Å\82æ\82è\8fÚ\r
+\82µ\82\90à\96¾\82·\82é\81B\r
+\r
+ \92¬\82É\8fo\93ü\82è\82·\82é\r
+\r
+\8dL\82¢\90¢\8aE\82É\8fo\82Ä\8ds\82\8f\80\94õ\82ª\82Å\82«\82½\82È\82ç\81A\92n\90}\82Ì\92[\82Ö\8ds\82«\81A\97E\8bC\82ð\8fo\82µ\82Ä\93¥\82Ý\8fo\82·\81B\8dL\88æ\r
+\92n\90}\82Ì\8dr\96ì\82É\82È\82è\81A\91S\88õ\82ª\92\86\89\9b\82Ì1\82Â\82Ì(\82 \82È\82½\82Ì)\83A\83C\83R\83\93\82Å\95\\8e¦\82³\82ê\82é\81B\8dÄ\82Ñ\93ü\82é\82½\r
+\82ß\82É\82Í\81A\93ì\82Ö1\90i\82Ý(\82 \82È\82½\82ª\82¢\82½\8fê\8f\8a\82É\8dÕ\92d\82Ì\83A\83C\83R\83\93\82ª\8c©\82¦\82é\82¾\82ë\82¤)\81A\8dÄ\82Ñ\96k\82É1\90i\r
+\82Þ\81B\82±\82ê\82Å\92¬\82Ö\82Ì\8fo\93ü\82è\82Ì\95û\96@\82ª\82ª\82í\82©\82Á\82½\82Í\82¸\82¾\81B\r
+\r
+\92¬\82É\93ü\82Á\82½\82Æ\82«\82Í\81A\93G\82ª\82»\82±\82É\82¢\82È\82¢\8cÀ\82è\81A\81u\92Ç\90Õ\81v\8fó\91Ô\82É\82È\82Á\82Ä\82¢\82é\81B\82±\82Ì\8fó\91Ô\82Å\82Í\r
+\82 \82È\82½\82Í\92\87\8aÔ\82½\82¿\82Ì\90æ\93ª\82Æ\82È\82è\81A\91¼\82Ì\8eÒ\82½\82¿\82Í\82 \82È\82½\82É\82Â\82¢\82Ä\8ds\82±\82¤\82Æ\82·\82é\81B\82µ\82©\82µ\81A\r
+\82à\82µ\92¬\82É\93G\82ª\82¢\82ê\82Î\81A\81u\8f\87\94Ô\81v\8fó\91Ô\82É\82È\82é\81B\82±\82Ì\8fó\91Ô\82Å\82Í\82 \82È\82½\82Í\92\87\8aÔ\82Ì\82»\82ê\82¼\82ê\82ð\8f\87\r
+\94Ô\82É\91\80\8dì\82·\82é\82±\82Æ\82É\82È\82é\81B2\82Â\82Ì\8fó\91Ô\82ÍF\83L\81[\82Å\90Ø\82è\91Ö\82¦\82ç\82ê\82é\81B\82±\82Ì\82±\82Æ\82Í\92\87\8aÔ\82ª\89Á\82í\r
+\82Á\82½\82Æ\82«\82É\82í\82©\82é\82¾\82ë\82¤\81B\r
+\r
+\8fd\97v: \92\87\8aÔ\82ª\89Á\82í\82Á\82½\82ç\81A\92Ç\90Õ(F\83L\81[)\82É\82·\82é\82±\82Æ\82ð\96Y\82ê\82Ä\82Í\82È\82ç\82È\82¢\81B\8fí\82É\8cÂ\81X\82ð\91\80\r
+ \8dì\82·\82é\82æ\82è\81A\8eå\90l\8cö\82ð\91S\88õ\82ª\92Ç\82¤\82æ\82¤\82É\82·\82é\95û\82ª\8aÈ\92P\82Å\82 \82é\81B\r
+\r
+\r
+ \89æ\96Ê\r
+\r
+\93V\91Ì\r
+\r
+ \92n\90}\82Ì\8fã\82É\98g\82É\96\84\82ß\8d\9e\82Ü\82ê\82½\8f¬\82³\82È\83E\83B\83\93\83h\83E\82ª\82 \82è\81A\91¾\97z\82Æ2\82Â\82Ì\8c\8e\82Ì\88Ê\92u\82ª\95\\r
+ \8e¦\82³\82ê\82Ä\82¢\82é\81B\8c\8e\82Ì\91\8a\82à\95\\8e¦\82³\82ê\82Ä\82¢\82é\81B\82±\82ê\82Í\8c\8e\82Ì\96å\82É\82æ\82é\88Ú\93®\82Å\8fd\97v\82È\88Ó\96¡\82ð\r
+ \8e\9d\82Â\81B\r
+\r
+\95\97\8cü\82«\r
+\r
+ \92n\90}\82Ì\89º\82Ì\98g\82É\96\84\82ß\8d\9e\82Ü\82ê\82½\95\94\95ª\82É\82Í\95\97\8cü\82«\82ª\95\\8e¦\82³\82ê\82Ä\82¢\82é\81B\95\97\82Í\8c»\8dÝ\82Å\82Í\91D\82É\r
+ \82æ\82é\88Ú\93®\82Ì\82Ý\82É\89e\8b¿\82ª\82 \82é\81B\95\97\82ð\89¡\90Ø\82é\8fê\8d\87\82ª\8dÅ\82à\8cø\97¦\82ª\82æ\82\81A\8e\9f\82ª\95\97\82ð\8cã\82ë\82©\82ç\r
+ \8eó\82¯\82é\8fê\8d\87\82Å\82 \82é\81B\82»\82µ\82Ä\95\97\82É\8cü\82©\82¤\8fê\8d\87\82ª\8dÅ\82à\8cø\97¦\82ª\88«\82¢\81B\95\97\8cü\82«\82Í\95\97\82ª\82Ç\82Ì\95û\r
+ \8cü\81u\82©\82ç\81v\90\81\82¢\82Ä\82¢\82é\82©\82ð\95\\82µ\82Ä\82¢\82é\82±\82Æ\82É\92\8d\88Ó\82·\82é\82±\82Æ\81B\r
+\r
+\96½\97ß\83v\83\8d\83\93\83v\83g\r
+\r
+ U4/U5/U6\82Æ\82Í\88á\82¢\81A\96½\97ß\83v\83\8d\83\93\83v\83g\82à\93Æ\8e©\82Ì\83E\83B\83\93\83h\83E\82ª\95\97\8cü\82«\82Ì\89º\82É\82 \82é\81B\96½\97ß\r
+ \82Ì\93ü\97Í\82ª\95\\8e¦\82³\82ê\82é\81B\89ï\98b\82Å\82Ì\83v\83\8c\83C\83\84\81[\82Ì\93ü\97Í\82à\93¯\97l\82É\82±\82±\82É\95\\8e¦\82³\82ê\82é\81B\r
+\r
+\8fó\91Ô\r
+\r
+ \89E\8fã\82É\82Í\8e\9d\82¿\95¨\82ð\8c©\82é\81A\82Ü\82½\82Í\91I\91ð\82·\82é\83E\83B\83\93\83h\83E\82ª\82 \82é\81B\92Ê\8fí\82Í\92\87\8aÔ\82Ì\8aî\96{\93I\82È\r
+ \8fî\95ñ\82ª\95\\8e¦\82³\82ê\82Ä\82¢\82é\82ª\81A\82»\82Ì\93à\97e\82Í\96½\97ß\82É\82æ\82Á\82Ä\95Ï\82í\82é\81B\97á\82¦\82ÎR\82ð\89\9f\82·\82Æ\88ê\97\97\r
+ \82©\82ç\82Ì\91I\91ð\82É\82È\82é\81B\r
+\r
+ \92Ê\8fí\81A\82±\82Ì\83E\83B\83\93\83h\83E\82É\82Í\92\87\8aÔ\91S\88õ\82Ì\8c»\8dÝ\82Ì\91Ì\97Í\82Æ\8fó\91Ô\82Ì\88ê\97\97\82ª\95\\8e¦\82³\82ê\82Ä\82¢\82é\81B\r
+ \8fó\91Ô\82Í1\82Â\82Ü\82½\82Í\95¡\90\94\82Ì\8f¬\82³\82È\83A\83C\83R\83\93\82Å\95\\82³\82ê\82é\81B\97á\82¦\82Î\93Å\82É\94Æ\82³\82ê\82é\82Æ\8f¬\82³\82È\r
+ \97Î\90F\82Ì\83h\83N\83\8d\82Æ\8cð\8d·\82·\82é\8d\9c\82Ì\83A\83C\83R\83\93\82ª\95\\8e¦\82³\82ê\82é\81BZ\83L\81[\82ð\89\9f\82·\82Æ\92\87\8aÔ\82Ì\8cÂ\81X\82Ì\r
+ \8fÚ\82µ\82¢\8fó\91Ô\82ð\95\\8e¦\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B\r
+\r
+\90H\97¿/\8bà\r
+\r
+ (\8c´\95¶\82Ìfoogod\82Í)\95s\93¹\93¿\82È\8b¿\82«\82¾\82ª\81A\92P\82É\90H\97¿/\8bà\83E\83B\83\93\83h\83E\82Ì\93ª\95¶\8e\9a\82ð\95À\82×\82½\82¾\r
+ \82¯\82Å\82 \82é\81B\82±\82Ì\8fó\91Ô\83E\83B\83\93\83h\83E\82Ì\89º\82É\82 \82é\8f¬\82³\82È\83E\83B\83\93\83h\83E\82É\82Í\89ñ\90\94\81A\90H\97¿\81A\82»\82µ\r
+ \82Ä\8f\8a\8e\9d\8bà\82ª\81A\8c»\8dÝ\82Ì\90í\93¬\8fó\91Ô\82â\8cp\91±\92\86\82Ì\8fó\91Ô\82Æ\8b¤\82É\95\\8e¦\82³\82ê\82Ä\82¢\82é\81B\8fó\91Ô\82Í\88Ã\8d\86\82Ì\r
+ \82æ\82¤\82È\8f¬\82³\82È\95¶\8e\9a\82Å\95\\8e¦\82³\82ê\82Ä\82¢\82é\81B\97á\82¦\82Î"N"\82Í\92¾\96Ù\82ð\95\\82µ\82Ä\82¢\82é\81B\8fæ\82è\95¨\82É\8fæ\r
+ \82Á\82Ä\82¢\82é\82Æ\82«\82Í\81A\82³\82ç\82É\8fæ\82è\95¨\82Ì\91Ï\8bv\97Í\82à\95\\8e¦\82³\82ê\82é\81B\95¶\8e\9a\82Ì\88Ó\96¡\82Í\88È\89º\82Ì\92Ê\82è\82Å\r
+ \82 \82é\81B\r
+\r
+ \92¾\96Ù\r
+\r
+ \96\82\96@\82ð\8eg\82¤\82±\82Æ\82ª\82Å\82«\82È\82¢\81B\r
+\r
+ \8d\82\91¬\89»\r
+\r
+ \91S\88õ\82ª\8e©\95ª\82Ì\94Ô\82É\95¡\90\94\89ñ\8ds\93®\82Å\82«\82é\81B\r
+\r
+ \89Â\8e\8b\r
+\r
+ \8c©\82¦\82È\82¢\82à\82Ì\82ª\8c©\82¦\82é\81B\r
+\r
+ \8e\9e\8aÔ\92â\8e~\r
+\r
+ \91S\88õ\82ª\8ds\93®\82·\82é\8aÔ\81A\90¢\8aE\92\86\82Ì\82à\82Ì\82ª\8e~\82Ü\82é\81B\r
+\r
+ \93§\8e\8b\r
+\r
+ \91S\88õ\82ª\95Ç\82Ì\8cü\82±\82¤\82ð\8c©\82é\82±\82Æ\82ª\82Å\82«\82é\81B\r
+\r
+\97\9a\97ð\r
+\r
+ \8dÅ\8cã\82Ì\89E\89º\82Ì\83E\83B\83\93\83h\83E\82É\82Í\83Q\81[\83\80\92\86\82Ì\83\81\83b\83Z\81[\83W\82Ì\97\9a\97ð\82ª\95\\8e¦\82³\82ê\82é\81B\r
+\r
+\r
+ \83v\83\8c\83C\83\84\81[\82Ì\96½\97ß\r
+\r
+\r
+\83}\83E\83X\82É\82Â\82¢\82½\8a¾\82ð\90@\82\82É\82Í\82æ\82¢\8b@\89ï\82¾ - \91S\82Ä\82Ì\96½\97ß\82Í\83L\81[\83{\81[\83h\82Å\93ü\97Í\82·\82é\81B\82±\82ê\r
+\82Í\93\96\91R\82Ì\82±\82Æ\82Å\82 \82é\81B\96¢\97\88\89i\8d\85\82É\81B\83A\81[\83\81\83\93\81B\r
+\r
+\92Ç\8bL: \83}\83E\83X\88¤\8dD\89Æ\82Í\91Î\8fÛ\82Ì\91I\91ð\82ð\83}\83E\83X\82Å\8ds\82¤\82±\82Æ\82à\82Å\82«\82é\81B\82µ\82©\82µ\83L\81[\83{\81[\83h\82Ì\82Ù\r
+\82¤\82ª\91\81\82¢\82Å\82 \82ë\82¤\81B\r
+\r
+\8aT\97v\r
+\r
+<\95û\8cü> = \83e\83\93\83L\81[\82Ì8\95û\8cü\82Ì\93à\82Ì1\82Â\r
+<\92\87\8aÔ> = \92\87\8aÔ\82ð\88ê\97\97\82©\82ç\83e\83\93\83L\81[\82Å\91I\91ð\82µENTER\82Ü\82½\82ÍSPACE\82ð\89\9f\82·\r
+<\8e\9d\82¿\95¨> = \8e\9d\82¿\95¨\82ð\88ê\97\97\82©\82ç\91I\91ð\82·\82é\r
+<\8eô\95¶> = \8eô\95¶\82ð\88ê\97\97\82©\82ç\91I\91ð\82·\82é\r
+<SPACE> = SPACE\83o\81[\r
+<\91Î\8fÛ> = \90í\93¬\82Ì\91Î\8fÛ\82ð\83J\81[\83\\83\8b\82ð\93®\82©\82µENTER\82Ü\82½\82ÍSPACE\82ð\89\9f\82µ\82Ä\91I\91ð\82·\82é\r
+ (\82Ü\82½\82Í\83}\83E\83X\82Ì\8d¶\83N\83\8a\83b\83N)\r
+<*> = \95¶\96¬\82É\82æ\82Á\82Ä\88Ù\82È\82é\r
+\r
+\92Ê\8fí\82Ì\96½\97ß:\r
+\r
+ <\95û\8cü>................\96½\97ß\82µ\82½\95û\8cü\82É\88Ú\93®\82·\82é\r
+ A-<\95û\8cü>..............\90í\93¬\82ð\8aJ\8en\82·\82é (Attack)\r
+ B.....................\91D\82â\94n\82Ì\82æ\82¤\82È\8fæ\82è\95¨\82É\8fæ\82é/\82©\82ç\8d~\82è\82é (Board)\r
+ C-<\92\87\8aÔ>-<\8eô\95¶>-<*>...\8eô\95¶\82ð\8f¥\82¦\82é(\8fI\82í\82è\82Ì\95\94\95ª\82Í\8eô\95¶\82É\88Ë\91¶\82·\82é) (Cast)\r
+ E.....................\93ü\82é\81B\82Í\82µ\82²\82Ì\8fã\82è\89º\82è\82à\8aÜ\82Ü\82ê\82é (Enter)\r
+ F-<\95û\8cü>..............\8fæ\82è\95¨\82Ì\95\90\8aí\82ð\94\8eË\82·\82é(\97á\82¦\82Î\91D\82Ì\91å\96C) (Fire)\r
+ G-<\95û\8cü>..............\92u\82¢\82Ä\82 \82é\95¨\82ð\8eæ\82é (Get)\r
+ H-<\92\87\8aÔ>-<\95û\8cü>.......\83X\83C\83b\83`\82â\83\8c\83o\81[\82ð\91\80\8dì\82·\82é (Handle)\r
+ L-<0-9>...............\90\94\8e\9e\8aÔ\82¤\82ë\82Â\82 (Loiter)\r
+ N-<\92\87\8aÔ>-<\92\87\8aÔ>.......\92\87\8aÔ\82Ì\8f\87\94Ô\82ð\95Ï\8dX\82·\82é (New-order)\r
+ O-<\95û\8cü>..............\93ü\82ê\95¨\82â\94à\82ð\8aJ\82¯\82é (Open)\r
+ Q.....................\8fI\97¹\82µ\95Û\91¶\82·\82é\81A\82Ü\82½\82Í\82µ\82È\82¢ (Quit)\r
+ R-<\92\87\8aÔ>-<\8e\9d\82¿\95¨>.....\95\90\8aí\82â\8f\82\82È\82Ç\82ð\91\95\94õ\82·\82é (Ready)\r
+ S-<\95û\8cü>..............\92\8d\88Ó\90[\82\8c©\82é (Search)\r
+ T-<target>............NPC\82Æ\98b\82· (Talk)\r
+ U-<\92\87\8aÔ>-<\8e\9d\82¿\95¨>.....\8f¼\96¾\82â\96ò\82Ì\82æ\82¤\82È\82à\82Ì\82ð\8eg\82¤ (Use)\r
+ X-<\91Î\8fÛ>..............\92n\90}\8fã\82Ì\82à\82Ì\82ð\92²\82×\82é (eXamine)\r
+ Z.....................\92\87\8aÔ\82Ì\8e\9d\82¿\95¨\82â\91\95\94õ\82È\82Ç\82ð\8c©\82é (Ztats)\r
+ @.....................\8c»\8dÝ\82Ç\82±\82É\82¢\82é\82©\82È\82Ç\82ð\95\\8e¦\82·\82é (at)\r
+ SPACE.................\89½\82à\82µ\82È\82¢\r
+ CTRL-S................\83Q\81[\83\80\82ð\95Û\91¶\82·\82é (Save)\r
+ CTRL-R................\83Q\81[\83\80\82ð\93Ç\82Ý\8d\9e\82Þ (Reload)\r
+\r
+\8dr\96ì\82Ì\82Ý\82Ì\96½\97ß:\r
+\r
+ K-<0-9/\96é\96¾\82¯>-<y/n>-<\92\87\8aÔ>\r
+ ......................\8dr\96ì\82Å(\91Ì\97Í\82Æ\96\82\97Í\82ð\89ñ\95\9c\82³\82¹\82é\82½\82ß)\81A\82Ü\82½\82Í\91D\82Ì\8fã\82Å\r
+ (\91D\82ð\8fC\97\9d\82·\82é\82½\82ß)\8bx\91§\82ð\8eæ\82é (Kamp)\r
+\r
+\92¬/\96À\8b{/\90í\93¬\82Ì\82Ý\82Ì\96½\97ß:\r
+\r
+ A-<\91Î\8fÛ>..............\91Î\8fÛ\82ð\8dU\8c\82\82·\82é (Attack)\r
+ C-<\8eô\95¶>-<*>..........\8eô\95¶\82ð\8f¥\82¦\82é (Cast)\r
+ F.....................\81u\92Ç\90Õ\81v(\92\87\8aÔ\82½\82¿\82Í\90æ\93ª\82Ì\8eÒ\82ð\8e©\93®\93I\82É\92Ç\82¤)\82Æ\r
+ \81u\8f\87\94Ô\81v(\8f\87\94Ô\82ª\89ñ\82Á\82Ä\82«\82½\82Æ\82«\92\87\8aÔ\82ð\8cÂ\81X\82É\91\80\8dì\82·\82é)\82ð\r
+ \90Ø\82è\91Ö\82¦\82é (Follow)\r
+ 1-9...................\81u\92P\93Æ\81v\82É\82·\82é\92\87\8aÔ\82ð\91I\82Ô\r
+ 0.....................\81u\8f\87\94Ô\81v\82É\82·\82é\r
+ K-<0-9/\96é\96¾\82¯>........\83x\83b\83h\82Å\96°\82é (Kamp)\r
+\r
+\93Á\8eê\82È\96½\97ß:\r
+\r
+ ESC...................\96½\97ß\82ð\92\86\92f\82·\82é\r
+ Tab...................\89ï\98b\92\86\82É\83\8d\81[\83}\8e\9a\82Æ\83A\83\8b\83t\83@\83x\83b\83g\82ð\90Ø\82è\91Ö\82¦\82é\r
+ (\93ú\96{\8cê\94Å\82Ì\82Ý)\r
+\r
+\83f\83o\83b\83O\96½\97ß (nazghul\82ð-d\82ð\82Â\82¯\82Ä\8bN\93®\82·\82é):\r
+\r
+ CTRL-E)valuate........Scheme\82ð\83Q\81[\83\80\92\86\82É\8eÀ\8ds\82·\82é\81B\97á\82¦\82Î\r
+ (kern-obj-relocate ch_wanderer\r
+ (list p_shard 51 47) nil)\r
+ \82Í\83v\83\8c\83C\83\84\81[\82ð[51, 47]\82É\8fu\8aÔ\88Ú\93®\82³\82¹\82é (Evaluate)\r
+ CTRL-O)...............\8c»\8dÝ\82Ì\92n\90}\82ð\95Û\91¶\82·\82é\r
+ CTRL-T)erraform.......\92n\8c`\82ð\95Ï\82¦\82é (Terraform) [1]\r
+ CTRL-Z)oom............\8ag\91å\8fk\8f¬\82·\82é(\95ó\90Î\82Æ\93¯\82¶\82±\82Æ\82ð\95ó\90Î\82È\82µ\82Å\8ds\82¤) (Zoom)\r
+\r
+\92Z\8fk\r
+\r
+ +/=...................\8dU\8c\82\82Ì\91Î\8fÛ\82ð\91I\91ð\82·\82é\82Æ\82«\81A\8e\9f\82Ì\93G\91Î\93I\82ÈNPC\82ð\91I\91ð\82·\82é\r
+ -.....................\8dU\8c\82\82Ì\91Î\8fÛ\82ð\91I\91ð\82·\82é\82Æ\82«\81A\91O\82Ì\93G\91Î\93I\82ÈNPC\82ð\91I\91ð\82·\82é\r
+ ESC...................\8dr\96ì\82Å\82Ì\90í\93¬\82ª\8fI\82í\82Á\82½\8cã\81A\8dr\96ì\82Ì\92n\90}\82É\96ß\82é\r
+\r
+ \88Ú\93®\r
+\r
+\r
+\91S\88õ(\8dr\96ì)\r
+\r
+ \91S\88õ\82Í\89æ\96Ê\82Ì\92\86\89\9b\82Ì1\82Â\82Ì\83A\83C\83R\83\93\82Æ\82µ\82Ä\95\\8e¦\82³\82ê\82é\81B\r
+\r
+\92Ç\90Õ(\92¬/\90í\93¬/\96À\8b{)\r
+\r
+ \90æ\93ª\82Ì\8eÒ\82ð\91\80\8dì\82µ\81A\91¼\82Ì\92\87\8aÔ\82½\82¿\82Í\90æ\93ª\82ð\92Ç\82¤\81B\8dU\8c\82\82·\82é\82Æ\8e©\93®\93I\82É\81u\8f\87\94Ô\81v\82É\82È\r
+ \82é\81B\90æ\93ª\82É\82È\82é\82Ì\82Í\8fí\82É\92n\90}\8fã\82É\82¢\82Ä\90¶\82«\82Ä\82¢\82é\88ê\97\97\82Ì\88ê\94Ô\8fã\82Ì\8eÒ\82Å\82 \82é\81B\r
+ \81u\92Ç\90Õ\81v\82©\82ç\81u\8f\87\94Ô\81v\82É\82·\82é\82½\82ß\82É\82ÍF\82ð\89\9f\82·\81B\r
+\r
+\92P\93Æ(\92¬/\90í\93¬/\96À\8b{)\r
+\r
+ \92\87\8aÔ\82Ì\93à\82Ì1\90l\82ð\91\80\8dì\82·\82é\81B\91¼\82Ì\8eÒ\82Í\89½\82à\82¹\82¸\8c©\82Ä\82¢\82é\81B\90\94\8e\9a\83L\81[\82ð\89\9f\82·\82Æ\81A\92\87\8aÔ\r
+ \82Ì\88ê\97\97\82Ì\91Î\89\9e\82µ\82½\8eÒ\82ª\92P\93Æ\82Å\8ds\93®\82·\82é\81B1\82ª\88ê\97\97\82Ì\8dÅ\82à\8fã\82Å\82 \82é\81B\r
+\r
+ \83\81\83\82: \81u\92P\93Æ\81v\82Í\92\87\8aÔ\82Ì\93à\82Ì1\90l\82ª\91¼\82æ\82è\82à\8d\82\82¢\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\8fê\8d\87\82É\95Ö\97\98\82Å\82 \r
+ \82é\81B\97á\82¦\82Î\81A\83Q\83C\83U\81[\82ª\92\87\8aÔ\82É\89Á\82í\82Á\82Ä\82¢\82ê\82Î\81A\94Þ\82ð\90\85\97\82è\82Ì\8cü\82±\82¤\82Ö\8ds\82©\r
+ \82¹\82é\82±\82Æ\82ª\82Å\82«\82é\81B\97H\97ì\82ª\92\87\8aÔ\82É\82È\82Á\82½\82ç\82Ç\82¤\82©\91z\91\9c\82µ\82Ä\82Ý\82æ\82¤\81B\r
+\r
+\8f\87\94Ô(\92¬/\90í\93¬/\96À\8b{)\r
+\r
+ \92\87\8aÔ\82½\82¿\82ð\8f\87\94Ô\82É\91\80\8dì\82·\82é\81B\82±\82ê\82Í\90í\93¬\82ª\8en\82Ü\82Á\82½\82ç\82±\82Ì\8fó\91Ô\82É\82È\82é\81B\81u\92P\93Æ\81v\82©\r
+ \82ç\81u\8f\87\94Ô\81v\82É\82·\82é\82½\82ß\82É\82Í0\82ð\89\9f\82·\81B\81u\92Ç\90Õ\81v\82©\82ç\82ÍF\82ð\89\9f\82·\81B\82»\82¤\81A\8d¬\97\90\82µ\82»\82¤\82¾\r
+ \82ª2\82Â\82Ì\95û\96@\82ª\82 \82é\81B\82±\82ê\82Í\82¢\82Â\82©\8fC\90³\82·\82é\82Â\82à\82è\82¾\81B\88Ó\8c©\82ª\82 \82ê\82Î\95·\82©\82¹\82Ä\97~\82µ\r
+ \82¢\81B\r
+\r
+\r
+ \8fê\8f\8a\r
+\r
+\8dr\96ì:\r
+\r
+ \92¬\82Ì\8aO\82â\8dr\96ì\82Å\82Í\91S\88õ\82ª1\82Â\82Ì\8fW\92c\82Æ\82µ\82Ä\8ds\93®\82·\82é\81B\93G\82ÌNPC\82Æ\82Ô\82Â\82©\82é\81A\82Ü\82½\82Í\93G\r
+ \82ª\8dU\8c\82\82·\82é\82Ì\82ð\91Ò\82Â\82Æ\90í\93¬\82É\82È\82é\81B\93¯\97l\82É\92¬\81A\96À\8b{\81A\8c\8e\82Ì\96å\82É\82Í\81A\92P\82É\82»\82Ì\95û\8cü\82É\r
+ \88Ú\93®\82·\82é\82Æ\93ü\82é\82±\82Æ\82ª\82Å\82«\82é\81B\r
+\r
+\8dr\96ì\82Å\82Ì\90í\93¬:\r
+\r
+ \8dr\96ì\82Å\93G\82ÌNPC\82Ì\8fW\92c\82Æ\89ï\82¤\82Æ\81A\93Á\95Ê\82È\90í\93¬\97p\82Ì\92n\90}\82É\90Ø\82è\91Ö\82í\82é\81B\82±\82±\82Å\82Í\8cÂ\81X\r
+ \82ð\8f\87\94Ô\82É\91\80\8dì\82·\82é\81B\90¶\82«\82Ä\82¢\82é\8eÒ\82ª\91S\82Ä\92n\90}\82Ì\92[\82©\82ç\8aO\82É\8fo\82é\82Æ\8dr\96ì\82É\96ß\82ê\82é\81B\r
+ (\83\81\83\82: \90í\93¬\82ª\8fI\82í\82Á\82½\82ç<\83L\81[\82Å\91f\91\81\82\90í\93¬\82Ì\92n\90}\82©\82ç\97£\82ê\82é\82±\82Æ\82ª\82Å\82«\82é\81B)\r
+\r
+\92¬/\96À\8b{:\r
+\r
+ \92¬\82â\96À\8b{\82Å\82Ì\88Ú\93®\82Í\90í\93¬\82Æ\93¯\82¶\82Å\82 \82é\81B\8cÂ\81X\82ð\8f\87\94Ô\82É\91\80\8dì\82Å\82«\81A\81u\92P\93Æ\81v\82È\82ç1\90l\r
+ \82Å\82 \82½\82è\82ð\92²\82×\82é\82±\82Æ\82ª\82Å\82«\82é\81B\82Ü\82½\82Í\81A\90æ\93ª\82ð\91\80\8dì\82µ\82Ä\91¼\82Ì\8eÒ\82ð\92Ç\82í\82¹\82é\82±\82Æ\82à\r
+ \82Å\82«\82é\81B\r
+\r
+\r
+ \90í\93¬\r
+\r
+\r
+\89½\82©\8c¾\82¤\82×\82«\82±\82Æ\82ª\82 \82é\82¾\82ë\82¤\82©? U5\82Æ\82Ù\82Æ\82ñ\82Ç\93¯\82¶\82Å\82 \82é\81B\89Î\89\8a\83r\83\93\82ð\96é\92\86\82â\92n\89º\82É\r
+\93\8a\82°\82Ä\82Ý\82æ\82¤\81B\82 \82 \81A\83Q\83C\83U\81[\82É\92\8d\88Ó\82µ\82ë\81B\94Þ\82ç\82Í\82 \82È\82½\82ð\97¸\82É\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B\82·\r
+\82®\82É\94Þ\82ç\82ð\93|\82·\82©\81A\97¸\82É\82µ\82ë\81B\r
+\r
+\r
+ \83\8c\83x\83\8b\8fã\8f¸\r
+\r
+\r
+\92Ê\8fí\81A\8f\\95ª\82È\8co\8c±\92l\82ð\93¾\82é\82Æ\83\8c\83x\83\8b\82ª\8fã\82ª\82é\81B\83\8c\83x\83\8b\82É\8fã\8cÀ\82Í\82È\82¢\81B\91Ì\97Í\82Æ\96\82\97Í\82Ì\8dÅ\91å\r
+\92l\82Ì\8fã\8f¸\82Í\81A\90E\8bÆ\81A\8eí\91°\81A\8cÂ\90l\82Ì\93Á\8e¿\82Å\8c\88\82Ü\82é\81B\83\8c\83x\83\8b\82ª\8fã\82ª\82é\82Æ\91Ì\97Í\82Æ\96\82\97Í\82ª\89ñ\95\9c\82µ\r
+\90V\82µ\82¢\83\8c\83x\83\8b\82Å\82Ì\8dÅ\91å\92l\82É\82È\82é\81B\r
+\r
+ \83\8c\83x\83\8b\8fã\8f¸\82É\95K\97v\82È\8co\8c±\r
+============================================================================\r
+\83\8c\83x\83\8b | \8co\8c±\92l\r
+============================================================================\r
+1 | 0 \r
+2 | 32 \r
+3 | 64 \r
+4 | 128 \r
+5 | 256 \r
+6 | 512 \r
+n | 2^(n+5)\r
+============================================================================\r
+\r
+ \93Á\90«\r
+\r
+\90l\95¨\82É\82Í3\82Â\82Ì\8aî\96{\93I\82È\93Á\90«\81A\98r\97Í\81A\95q\8f·\82³\81A\82»\82µ\82Ä\92m\94\\82ª\82 \82é\81B\82±\82ê\82ç\82Ì\92l\82Í\8cÅ\92è\r
+\82Å\81A\88ê\93x\8c\88\82ß\82é\82Æ\83Q\81[\83\80\92\86\82Í\95Ï\89»\82µ\82È\82¢\81B\r
+\r
+\98r\97Í\r
+\r
+ \98r\97Í\82Í\89Â\94\\82È\95\90\8aí\82Æ\8aZ\82Ì\8fd\97Ê\82Ì\8fã\8cÀ\82ð\8c\88\82ß\82é\81B\98r\97Í\82ª\8d\82\82¢\82Æ\97^\82¦\82é\83_\83\81\81[\83W\82ª\91\9d\r
+ \82µ\81A\8fd\82¢\95\90\8aí\82Ì\96½\92\86\97¦\82ª\8fã\82ª\82é\81B\83N\83\82\82Ì\91\83\82ð\94j\82è\92E\8fo\82·\82é\82Æ\82«\82à\98r\97Í\82ª\8eg\82í\82ê\82é\r
+ (\82Ù\82Æ\82ñ\82Ç\82Ì\83g\83\8d\83\8b\82Í\92·\82¢\8aÔ\95ß\82ç\82¦\82é\82±\82Æ\82ª\82Å\82«\82È\82¢\81c)\81B\r
+\r
+\95q\8f·\82³\r
+\r
+ \95q\8f·\82³\82Í\94ò\82Ñ\93¹\8bï\82Æ\8cy\82¢\95\90\8aí\82Å\82Ì\8dU\8c\82\82É\8eg\82í\82ê\81A\93G\82Ì\8dU\8c\82\82ð\94ð\82¯\82é\8f\95\82¯\82É\82È\82é\81B\8fù\r
+ \91O\82ð\82±\82¶\8aJ\82¯\82é\82Æ\82«\82â\81A\94 \82Ìã©\82ð\89ð\8f\9c\82·\82é\82½\82ß\82É\82à\95K\97v\82Å\82 \82é\81B\r
+\r
+\92m\94\\r
+\r
+ \92m\94\\82Í\8eô\95¶\82Ì\8cø\89Ê\82ð\8d\82\82ß\81A\90¬\8c÷\82µ\82â\82·\82\82·\82é\81B\r
+\r
+\r
+ \96\82\96@\r
+\r
+\r
+\82±\82Ì\83Q\81[\83\80\82É\82Í\8a®\91S\82È\96\82\96@\82ª\82 \82é\81B\96\82\96@\82Ì\91Ì\8cn\82ÍUltima 5\82âUltima 6\82Æ\8e\97\82Ä\82¢\82Ä\81A\82 \82È\r
+\82½\82Í\96\82\96@\82Í\8eô\95¶\82Ì\89¹\82ð\93ü\97Í\82·\82é\81B\8eô\95¶\82Ì\96¼\91O\82Í1\82Â\82©\82ç4\82Â\82Ì\89¹\82Ì\91g\82Ý\8d\87\82í\82¹\82Å\82 \82é\81B\r
+\r
+\82±\82Ì\83Q\81[\83\80\82Ì\89¹\81A\8eô\95¶\81A\82»\82µ\82Ä\94é\96ò\82Ì\92²\8d\87\82Í\91S\82ÄUltima 5\82Ì\82à\82Ì\82Å\82 \82é\81B\82à\82µU5\82Ì\90à\96¾\r
+\8f\91\82ð\8e\9d\82Á\82Ä\82¢\82È\82¯\82ê\82Î\81A\88È\89º\82Ì\95\\82ª\8f\95\82¯\82É\82È\82é\82¾\82ë\82¤\81B\r
+\r
+ \95\1: \94é\96ò\r
+============================================================================\r
+\96¼\8fÌ | \8eô\95¶\95\\82Å\82Ì\97ª\8fÌ\r
+============================================================================\r
+\8d\95\90^\8eì | \8d\95\r
+\8c\8c\82Ì\91Û | \8c\8c\r
+\91å\95f | \91å\r
+\90l\8eQ | \90l\r
+\83}\83\93\83h\83\8c\83C\83N | \83}\r
+\83i\83C\83g\83V\83F\83C\83h | \83i\r
+\92wå\81\82Ì\8e\85 | \92w\r
+\97°\89©\82Ì\8aD | \97°\r
+============================================================================\r
+\r
+ \95\2: \8eô\95¶\r
+============================================================================\r
+\8eô\95¶ | \8cø\89Ê | \94é\96ò | \91S\88õ/\90í\93¬\r
+=================================(1)========================================\r
+An Nox | \89ð\93Å | \90l \91å | \91S/\90í\r
+An Zu | \8ao\90Á | \90l \91å | \91S/\90í\r
+Grav Por | \96\82\96@\82Ì\96î | \97° \8d\95 | \90í\r
+In Lor | \8cõ | \97° | \91S/\90í\r
+Mani | \8f¬\89ñ\95\9c | \90l \92w | \91S/\90í\r
+Wis Sanct | ã©\92T\92m | \97° | \91S/\90í\r
+An Sanct Ylem | ã©\89ð\8f\9c | \8c\8c | \91S/\90í\r
+---------------------------------(2)----------------------------------------\r
+An Sanct | \8aJ\8fù | \97° \8c\8c | \91S/\90í\r
+An Xen Corp | \95s\8e\80\8aÒ | \91å \97° | \90í\r
+In Wis | \88Ê\92u | \83i | \91S\r
+Rel Hur | \95\97\95Ï\89» | \97° \8c\8c | \91S\r
+In Nox Por | \93Å\8c\82 | \83i \8c\8c \8d\95 | \90í\r
+Bet Flam Hur | \89Î\96¶ | \8d\95 \97° \8c\8c | \90í\r
+In Bet Xen | \92\8e\8f¢\8aÒ | \92w \8c\8c \97° | \90í\r
+---------------------------------(3)----------------------------------------\r
+In Flam Grav | \89Î\89\8a\8fê | \97° \8d\95 \92w | \90í\r
+In Zu Grav | \8dÃ\96°\8fê | \90l \8d\95 \92w | \90í\r
+In Nox Grav | \93Å\8fê | \83i \8d\95 \92w | \90í\r
+Vas Flam | \89Î\8b\85 | \8d\95 \97° | \90í\r
+Vas Lor | \8b\8cõ | \97° \83} | \91S/\90í\r
+---------------------------------(4)----------------------------------------\r
+An Grav | \92E\96\82\96@\8fê | \8d\95 \97° | \91S/\90í\r
+In Sanct Grav | \8fá\95Ç | \83} \8d\95 \92w | \90í\r
+In Sanct | \95Û\8cì | \97° \90l \91å | \91S/\90í\r
+Wis Quas | \89Â\8e\8b | \83i \97° | \91S/\90í\r
+Bet Por | \92µ\96ô | \8d\95 \8c\8c | \90í\r
+---------------------------------(5)----------------------------------------\r
+In Ex Por | \95\95\88ó\89ð\8f\9c | \97° \8c\8c | \91S/\90í\r
+An Ex Por | \95\95\88ó | \97° \8c\8c \91å | \91S/\90í\r
+In Zu | \91S\8dÃ\96° | \90l \83i \92w | \90í\r
+Vas Mani | \91å\89ñ\95\9c | \90l \92w \83} | \91S/\90í\r
+Rel Tym | \8d\82\91¬\89» | \97° \8c\8c \83} | \91S/\90í\r
+Kal Xen | \8fb\8f¢\8aÒ | \92w \83} | \90í\r
+---------------------------------(6)----------------------------------------\r
+An Xen Ex | \96£\97¹ | \8d\95 \83i \92w | \90í\r
+In An | \92¾\96Ù | \91å \83} \97° | \90í\r
+In Vas Por Ylem | \92n\90k | \8c\8c \83} \97° | \90í\r
+Quas An Wis | \8d¬\97\90 | \83} \83i | \90í\r
+Wis An Ylen | \93§\8e\8b | \83} \97° | \91S/\90í\r
+In Rel Por | \94O\97Í | \8d\95 \8c\8c \92w | \90í\r
+Vas Por | \8fu\8aÔ\88Ú\93® | \83} \8d\95 \8c\8c | \91S\r
+---------------------------------(7)----------------------------------------\r
+In Nox Hur | \93Å\95\97 | \83i \97° \8c\8c | \90í\r
+In Zu Hur | \8dÃ\96°\95\97 | \83} \90l \8c\8c | \90í\r
+In Quas Corp | \8b°\95| | \83i \83} \91å | \90í\r
+In Quas Xen | \95¡\90» | \83i \83} \97° \92w \8c\8c \90l | \90í\r
+Sanct Lor | \95s\89Â\8e\8b | \83i \83} \8c\8c | \90í\r
+Xen Corp | \8e\80 | \83i \8d\95 | \90í\r
+---------------------------------(8)----------------------------------------\r
+An Tym | \8e\9e\8aÔ\92â\8e~ | \83} \91å \8c\8c | \91S/\90í\r
+In Flam Hur | \89\8a\95\97 | \83} \97° \8c\8c | \90í\r
+In Vas Grav Corp | \8e\80\95\97 | \83} \97° \83i | \90í\r
+In Mani Corp | \91h\90¶ | \91å \90l \92w \97° \8c\8c \83} | \91S/\90í\r
+Kal Xen Corp | \95s\8e\80\8f¢\8aÒ | \92w \83} \83i | \90í\r
+Vas Rel Por | \96å | \97° \83} \8d\95 | \91S\r
+============================================================================\r
+\r
+[1] \92¬\82â\96À\8b{\82Å\82Ì\8fu\8aÔ\88Ú\93®\82Ì\8eô\95¶\82Í\81A\90í\93¬\82ª\8fI\97¹\82µ\81u\92Ç\90Õ\81v\82É\82È\82Á\82Ä\82¢\82È\82¯\82ê\82Î\8e¸\94s\82·\r
+ \82é\81B\r
+\r
+ \8cø\89Ê\r
+\r
+\8e\9e\82É\82Í\96\82\96@\82É\82æ\82é\8dU\8c\82\81A\8e©\91R\8dÐ\8aQ\81A\82Ü\82½\82Í\8e©\90g\82Ì\8eð\82Ì\8eã\82³\82É\82æ\82è\8f¬\82³\82È\96â\91è\82ð\95ø\82¦\82é\82¾\r
+\82ë\82¤\81B\82 \82í\82Ä\82é\82È\81B\91½\82\82Ì\8cø\89Ê\82Í\92v\96½\93I\82Å\82Í\82È\82¢\81B\82¾\82ª\81A\82¢\82Â\82\82©\82Í\82»\82¤\82Å\82 \82é\81B\r
+\r
+\90\87\96° (S)\r
+\r
+ \96°\82Á\82Ä\82¢\82é\8eÒ\82Í\82¢\82¸\82ê\82Í\8e©\95ª\82Å\96Ú\8ao\82ß\82é\81B\82à\82µ\91Ò\82Ä\82È\82¯\82ê\82ÎAn Zu\82Ì\8eô\95¶\82ð\8eg\82¦\82Î\r
+ \82æ\82¢\81B\r
+\r
+\96£\97¹ (C)\r
+\r
+ \93G\82Ì\96\82\8fp\8et\82É\96£\97¹\82³\82ê\82½\8eÒ\82Í\92\87\8aÔ\82ð\8dU\8c\82\82·\82é\81B\96£\97¹\82Ì\8cø\89Ê\82Í10\95ª\82Å\90Ø\82ê\82é\81B\r
+\r
+\95a\8bC (D)\r
+\r
+ \82¢\82\82Â\82©\82Ì\89ö\95¨\82Í\92\87\8aÔ\82ð\95a\8bC\82É\82·\82é\81B\95a\8bC\82Å\8e\80\82Ê\82±\82Æ\82Í\82È\82¢\82ª\81A\91Ì\97Í\82ª\82È\82\82È\82é\90¡\r
+ \91O\82Ü\82Å\8e¡\82é\82±\82Æ\82Í\82È\82¢\81B\r
+\r
+çÇç (A)\r
+\r
+ \8eð\82ð\94\83\82¤\82©\81A\92u\82¢\82Ä\82 \82é\8eð\82ð\8eæ\82é\82Æ\90\8c\82¤\81B\90\8c\82¢\82Í1\8e\9e\8aÔ\91±\82«\81A\95à\82¢\82Ä\82¢\82é\82Æ\82«\95¨\82É\r
+ \82Ô\82Â\82©\82é\82±\82Æ\82ª\82 \82é\81B\r
+\r
+\97\8d\82Ü\82è (E)\r
+\r
+ \83N\83\82\82Ì\91\83\82É\97\8d\82Ü\82é\82Æ\81A\91\83\82ð\94j\82ë\82¤\82Æ\82à\82ª\82\82±\82Æ\82É\82È\82é\81B\95K\97v\82È\8e\9e\8aÔ\82Í\98r\97Í\82É\82æ\82Á\82Ä\r
+ \8c\88\82Ü\82é\81B\r
+\r
+\96\83á\83 (Z)\r
+\r
+ \83N\83\82\82Í\91\8a\8eè\82ð\90H\82×\82é\82½\82ß\96\83á\83\82Ì\93Å\82ð\92\8d\93ü\82·\82é\81B\96\83á\83\82Í\92Z\82¢\83\89\83\93\83_\83\80\82È\8e\9e\8aÔ\82Å\89ñ\95\9c\82·\r
+ \82é\81B\r
+\r
+\93Å (P)\r
+\r
+ \83K\83X\82Ü\82½\82Í\8eô\95¶\82Å\93Å\82É\94Æ\82³\82ê\82é\82Æ\81A\96\82\96@\82©\96ò\82Å\89ñ\95\9c\82·\82é\82Ü\82Å\8f\87\94Ô\82ª\89ñ\82Á\82Ä\82\82é\93x\82É\r
+ \91Ì\97Í\82ª\8e¸\82í\82ê\82é\81B\93Å\82Í\92v\96½\8f\9d\82É\82È\82è\82¤\82é! \95a\8bC\82Ì\82æ\82¤\82É\8e©\91R\82É\82Í\89ñ\95\9c\82µ\82È\82¢\81B\r
+\r
+\r
+ \89ï\98b\r
+\r
+\r
+NPC\82Æ\82Ì\89ï\98b\82ð\8en\82ß\82é\82½\82ß\82É\82ÍT\82ð\89\9f\82·\81B\89ï\98b\82Ì\8dÅ\92\86\82Å\82Í\81A\8aÈ\92P\82È\8e¿\96â\82ð\93ü\97Í\82·\82é\82ÆNPC\r
+\82ª\82»\82ê\82É\93\9a\82¦\82é\82ª\81A\91\8a\8eè\82ª\8e¿\96â\82µ\82Ä\82\82é\82±\82Æ\82à\82 \82é\81B\93X\88õ\82Æ\82Ì\82Å\82Í\95¨\82Ì\94\84\82è\94\83\82¢\82ª\82Å\82«\r
+\82é\81B\82Ù\82Æ\82ñ\82Ç\82ÌNPC\82Í\81u\96¼\91O\81v\82â\81u\8ed\8e\96\81v\81A\8fZ\82ñ\82Å\82¢\82é\92¬\82â\92¬\82Ì\91¼\82Ì\90l\95¨\82É\82Â\82¢\82Ä\93\9a\82¦\r
+\82é\81B\91½\82\82Ì\94½\89\9e\82É\82Í\90V\82µ\82¢\8e¿\96â\82Ì\8eè\82ª\82©\82è\82ª\8aÜ\82Ü\82ê\82Ä\82¢\82é\81B\82Ü\82½\81A\81u\92\87\8aÔ\81v\82ÅNPC\82ª\82 \r
+\82È\82½\82Ì\92\87\8aÔ\82É\89Á\82í\82ê\82é\82©\82ð\96â\82¤\82±\82Æ\82ª\82Å\82«\82é(\92\87\8aÔ\82É\82È\82é\8eÒ\82à\82¢\82é\82ª\81A\82 \82È\82½\82ª\82»\82¤\8c¾\r
+\82í\82È\82¢\81A\82Ü\82½\82Í\94Þ\82ç\82ð\93®\82©\82·\82æ\82¤\82È\82±\82Æ\82ð\8c¾\82í\82È\82¢\8cÀ\82è\92\87\8aÔ\82É\82Í\82È\82ç\82È\82¢)\81B\r
+\r
+\r
+ \82»\82Ì\91¼\r
+\r
+\90H\97¿\82Í1\93ú\82É3\89ñ\81A\90¶\82«\82Ä\82¢\82é\92\87\8aÔ\82Ì\95ª\82ª\8fÁ\94ï\82³\82ê\82é\81B\82à\82µ\90H\97¿\82ª\82È\82¯\82ê\82Î\81A\92\87\8aÔ\82Í\90H\8e\96\r
+\82Ì\8e\9e\8aÔ\82Ì\82½\82Ñ\82É\91Ì\97Í\82ª\8c¸\82é\81B\r
+\r
+\r
+ \95t\98^A: \92n\90}\82Ì\8dì\90¬\r
+\r
+\91½\82\82Ì\83Q\81[\83\80\82Æ\93¯\97l\82É\81A"nazghul"\82Í\83Q\81[\83\80\83G\83\93\83W\83\93[2]\82Æ\83f\81[\83^\82ª\95ª\97£\82³\82ê\82Ä\82¢\82é\81B\83f\r
+\81[\83^\83t\83@\83C\83\8b\82Í\83v\83\8d\83O\83\89\83\80\8c¾\8cê\82ÌScheme\82Å\8f\91\82©\82ê\82Ä\82¢\82é\81B\8dÅ\8f\89\82É\8eÀ\8ds\82·\82é\83t\83@\83C\83\8b\82Í\r
+'session.scm'\82Å\81A\82»\82±\82É\82Í\93Ç\82Ý\8d\9e\82Ü\82ê\82éScheme\82Ì\91¼\82Ì\83t\83@\83C\83\8b\82Æ\8f\89\8aú\89»\82Ì\97l\81X\82È\92è\8b`\r
+\82ª\8f\91\82©\82ê\82Ä\82¢\82é\81B\r
+\r
+\8e©\95ª\8e©\90g\82Ì\83Q\81[\83\80\82ð\8dì\90¬\82·\82é\82½\82ß\81A\82±\82Ì\83T\83\93\83v\83\8b\83t\83@\83C\83\8b\82Ì\89ü\91¢\82µ\8aî\91b\82Æ\82·\82é\82±\82Æ\82ð\90\84\r
+\8f§\82·\82é\81B\83T\83\93\83v\83\8b\82Ì\83R\81[\83h\82Í\91S\82Ä\83p\83u\83\8a\83b\83N\81E\83h\83\81\83C\83\93\82Æ\82·\82é\81B\89æ\91\9c\82Æ\89¹\90º\82Í\97l\81X\82È\8f\8a\r
+\82©\82ç\97\88\82½\82à\82Ì\82Å\82 \82é\81BCOPYING\83t\83@\83C\83\8b\82É\82Í\82Ç\82±\82©\82ç\97\88\82½\82Ì\82©\8fÚ\8d×\82ª\8f\91\82©\82ê\82Ä\82¢\82é\81B\r
+\r
+\82à\82µ\83T\83\93\83v\83\8b\82Ì\83R\81[\83h\82ð\8eg\97p\82µ\82Ä(\8f¤\97p\83\\83t\83g\93\99\82Ì)\90§\8cÀ\82Ì\82 \82é\83Q\81[\83\80\82ð\8dì\82è\82½\82¢\8fê\8d\87\r
+\82Í\81A\8e©\95ª\82Å\89æ\91\9c\82Æ\89¹\90º\83t\83@\83C\83\8b\82ð\91¼\82Ì\83I\81[\83v\83\93\83\\81[\83X\82â\83t\83\8a\81[\83E\83F\83A\83v\83\8d\83W\83F\83N\83g\81A\82»\r
+\82µ\82Ä\92\98\8dì\8c \8eÒ\82ª\8c \97\98\82ð\97L\82·\82é\82à\82Ì\82©\82ç\97p\88Ó\82µ\82È\82¯\82ê\82Î\82È\82ç\82È\82¢\82¾\82ë\82¤\81B\r
+\r
+\r
+ \95t\98^B: \83l\83^\83o\83\8c\r
+\r
+\82±\82ê\82ç\82ÍHaxima\82É\93Á\89»\82µ\82Ä\82¢\82Ä\81A\91¼\82ÌNazghul\82Å\8dì\82ç\82ê\82½\83Q\81[\83\80\82Å\82Í\95K\97v\82È\82¢\81B\r
+\r
+ \94ò\82Ñ\93¹\8bï\r
+============================================================================\r
+\96¼\8fÌ \96½\92\86 \91Å\8c\82 \89ñ\94ð \8eè \8eË\92ö \92e \8fd\97Ê\r
+============================================================================\r
+\93\8a\90Î\95R 1d2-2 1d4 -1 1 4 \90Î 0\r
++4 \93\8a\90Î\95R 3 1d4+4 0 1 6 \90Î 0\r
+\8b| 1d3-2 2d4 -2 2 6 \96î 2\r
+\83N\83\8d\83X\83{\83E 1d4-2 4d4 -1 2 4 \83N\83\8d\83X\83{\83E\82Ì\96î 3\r
+\94j\96Å\82Ì\8fñ 1d4 1 +2 2 5 - 2\r
+\8fÕ\8c\82\82Ì\96_ [1] -2 1d4 -1 1 6 - 2\r
+============================================================================\r
+[1] \88ê\8e\9e\93I\82É\91Î\8fÛ\82ð\96\83á\83\82³\82¹\82é\r
+\r
+ \93\8a\9d±\95\90\8aí\r
+============================================================================\r
+\96¼\8fÌ \96½\92\86 \91Å\8c\82 \89ñ\94ð \8eè \8eË\92ö \8fd\97Ê\r
+============================================================================\r
+\89Î\89\8a\83r\83\93 [1] -1 1d6 -2 1 4 1\r
+\93\8a\91\84 0 1d8 +1 1 4 2\r
+\89s\82¢\90Î -2 3d4+1 -2 2 5 10\r
+============================================================================\r
+[1] \88ê\8e\9e\93I\82É\92n\96Ê\82É\89\8a\82ð\8ec\82·\r
+\r
+ \90Ú\8bß\90í\97p\95\90\8aí\r
+============================================================================\r
+\96¼\8fÌ \96½\92\86 \91Å\8c\82 \89ñ\94ð \8eè \8eË\92ö \8fd\97Ê\r
+============================================================================\r
+\92Z\8c\95 1d4 1d4 1d2 1 1 0\r
++4 \92Z\8c\95 1d4+4 1d4+4 1d2+4 1 1 0\r
+\92Æ\96µ 1d4 1d6+2 +0 1 1 3\r
+\95\80 1d2 2d3+2 +0 1 1 3\r
+\8c\95 1d2 1d8+1 1d2 1 1 2\r
++2 \8c\95 1d2+2 1d8+3 1d2+2 1 1 2\r
++4 \8c\95 1d2+4 1d8+5 1d2+4 1 1 2\r
+\97¼\8eè\95\80 0 4d3+2 -2 2 1 4\r
+\97¼\8eè\8c\95 0 2d8+2 1 2 1 4\r
+\8eh\95t\82«\93S\8b\85 1d2+2 1d6+1 -1 1 2 3\r
++2 \8eh\95t\82«\93S\8b\85 1d2+4 1d6+3 2 1 2 3\r
+\95\80\91\84 1d3+1 2d8-2 1d2 2 2 4\r
+\8fñ 1d3 1d4 1d3 2 2 2\r
+\95s\8bC\96¡\82È\90n 2 2d8+5 +0 2 1 2\r
+\90_\94é\82Ì\8c\95 +3 1d10+5 +2 1 1 1\r
+\89\8a\82Ì\8c\95 1d2 1d10+3 1d2 1 1 2\r
+============================================================================\r
+\r
+ \96h\8bï\r
+============================================================================\r
+\96¼\8fÌ \96½\92\86 \91Å\8c\82 \96h\8cä \89ñ\94ð \8fd\97Ê\r
+============================================================================\r
+\94ç\8a\95 -1 - 1d2 - 0\r
++2 \94ç\8a\95 0 - 1d2+2 - 0\r
++4 \94ç\8a\95 0 - 1d2+4 - 0\r
+\8d½\93ª\8bÐ -1 - 1d3 - 1\r
++4 \8d½\93ª\8bÐ 0 - 1d3+4 - 1\r
+\93S\8a\95 -1 - 1d4 - 2\r
++4 \93S\8a\95 0 - 1d4+4 - 2\r
+\94ç\8aZ -1 - 1d4 - 2\r
++2 \94ç\8aZ 0 - 1d4+2 - 2\r
++4 \94ç\8aZ 0 - 1d4+4 - 2\r
+\8d½\82©\82ç\82Ñ\82ç -2 - 2d4 - 4\r
++4 \8d½\82©\82ç\82Ñ\82ç 0 - 2d4+4 - 4\r
+\8db\99h -4 - 4d4 - 8\r
++4 \8db\99h 0 - 4d4+4 - 8\r
+\8f¬\8c^\82Ì\8f\82 -1 - 0 2 2\r
++4 \8f¬\8c^\82Ì\8f\82 0 - 0 6 2\r
+\8eh\95t\82«\8f\82 0 1d5 0 1 3\r
+\8eh\95t\82«\8a\95 0 1d4 3 0 2\r
+============================================================================\r
+\r
+\r
+--gmcnutt (gmcnutt@cableone.net)\r
+\r
+\r
+\92\8d\8eß\r
+\r
+[1] \82 \82 \81A\82¾\82ª\81A\82Ü\82¾\8eÀ\91\95\82³\82ê\82Ä\82¢\82È\82¢\81B\r
+\r
+[2] \8e\84\82Í\81u\83J\81[\83l\83\8b\81v\82Æ\82¢\82¤\8cÄ\82Ñ\96¼\82ð\8dD\82Þ\81B\r
+ \82±\82¿\82ç\82Ì\95û\82ª\8ai\8dD\82ª\82æ\82\81A\83\8a\81[\83i\83X\81E\83g\81[\83o\83\8b\83X\82à\8e\84\82à\93¯\82¶\90¢\91ã\82Å\81A\83J\81[\83l\83\8b\82ð\8dì\r
+ \82Á\82½\82Æ\82¢\82¤\93_\82Å\8e\84\82à\95\89\82¯\82Ä\82¢\82È\82¢\8bC\82ª\82·\82é\81B\r
+++ /dev/null
-/ENGINE_CLEANUP/1.2/Sat Nov 6 23:41:45 2004//
-/ENGINE_DESIGN_NOTES/1.2/Sat Nov 6 23:41:45 2004//
-/README/1.1/Thu Aug 5 01:53:27 2004//
-/my_TODO.2004.05.05.txt/1.1/Thu Aug 5 01:53:27 2004//
-D
+++ /dev/null
-nazghul/doc/engine_extension_and_design
+++ /dev/null
-:ext:gmcnutt@nazghul.cvs.sourceforge.net:/cvsroot/nazghul
--- /dev/null
+<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">\r
+<html lang="ja-JP">\r
+<head>\r
+<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">\r
+<!-- Note: The manual currently expects to find haxima data files is ./haxima,\r
+ and documentation specific files in ./doc -->\r
+<title>Nazghul\90à\96¾\8f\91</title>\r
+<style>\r
+ .example\r
+ {\r
+ color:#333;\r
+ background-color:#eee;\r
+ padding-left:60px;\r
+ }\r
+ .key, .ph\r
+ {\r
+ background-color:#ddd;\r
+ font-family: monospace;\r
+ padding-left:2px;\r
+ padding-right:2px;\r
+ }\r
+ .hk\r
+ {\r
+ background-color:#ddd;\r
+ font-weight:bold;\r
+ color:#114;\r
+ }\r
+ table\r
+ {\r
+ border:1px outset grey\r
+ }\r
+ td\r
+ {\r
+ padding:5px;3px;\r
+ border:1px inset grey;\r
+ }\r
+ tr.header td\r
+ {\r
+ border:1px outset grey;\r
+ font-weight:bold;\r
+ }\r
+ td.break\r
+ {\r
+ border:1px outset grey;\r
+ height:3px;\r
+ background color:#999;\r
+ }\r
+ td.break span\r
+ {\r
+ width:2px;\r
+ } \r
+ img.icon\r
+ {\r
+ top:50%;\r
+ border:1px solid grey; \r
+ width:9px;\r
+ height:16px;\r
+ }\r
+ tr.breaker td\r
+ {\r
+ border:none;\r
+ text-align:center;\r
+ }\r
+ tr.breaker td span:before\r
+ {\r
+ content: "\002192 "\r
+ }\r
+ tr.breaker td span:after\r
+ {\r
+ content: " \002190"\r
+ }\r
+</style>\r
+</head>\r
+<body>\r
+<a name="toc1"></a>\r
+<h1>\r
+ NAZGHUL\90à\96¾\8f\91\r
+</h1>\r
+<p>\r
+Nazghul(\83i\83Y\83O\83\8b)\82Í\90Ì\89ù\82©\82µ\82¢\81A\91S\90·\8aú\82É\82Í\90\94\91½\82\8dÌ\97p\82³\82ê\82½\81A\83g\83b\83v\83_\83E\83\93\81A2D\83^\83C\83\8b\83O\83\89\83t\83B\83b\83N\82ÌRPG\82Ì\83N\83\8d\81[\83\93\82Å\82 \82é\81B\r
+\8bï\91Ì\93I\82É\82ÍUltima V\82Ì\83V\83X\83e\83\80\82ð\8dÌ\97p\82µ\82Ä\82¢\82Ä\81A\82±\82Ì\83Q\81[\83\80\82Å\97V\82ñ\82¾\82±\82Æ\82ª\82 \82ê\82Î\90e\82µ\82Ý\82â\82·\82¢\82à\82Ì\82É\82È\82Á\82Ä\82¢\82é\81B\r
+</p>\r
+\r
+<a name="toc2"></a>\r
+<h2>\r
+ \96Ú\8e\9f\r
+</h2>\r
+<ul>\r
+ <li>\r
+ <a href="#toc3">\83Q\81[\83\80\82Ì\83C\83\93\83X\83g\81[\83\8b</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc4">\83Q\81[\83\80\8aJ\8en</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc5">\83Q\81[\83\80\82Ì\95Û\91¶</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc6">\83Q\81[\83\80\8fI\97¹</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc7">\91\80\8dì</a>\r
+ <ul>\r
+ <li>\r
+ <a href="#toc8">\92T\8dõ\82·\82é</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc9">\89ï\98b\82·\82é</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc10">\95¨\82ð\8eæ\82é</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc11">\91\95\94õ\82·\82é</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc12">\8eô\95¶\82ð\92²\8d\87\82·\82é</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc13">\92¬\82É\8fo\93ü\82è\82·\82é</a>\r
+ </li>\r
+ </ul>\r
+ </li>\r
+ <li>\r
+ <a href="#toc14">\89æ\96Ê</a>\r
+ <ul>\r
+ <li>\r
+ <a href="#toc15">\93V\91Ì</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc16">\95\97\8cü\82«</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc17">\96½\97ß\83v\83\8d\83\93\83v\83g</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc18">\8fó\91Ô</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc19">\90H\97¿/\8bà</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc20">\97\9a\97ð</a>\r
+ </li>\r
+ </ul>\r
+ </li>\r
+ <li>\r
+ <a href="#toc21">\83v\83\8c\83C\83\84\81[\82Ì\96½\97ß</a>\r
+ <ul>\r
+ <li>\r
+ <a href="#toc22">\8aT\97v</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc23">\92Ê\8fí\82Ì\96½\97ß</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc24">\8dr\96ì\82Ì\82Ý\82Ì\96½\97ß</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc25">\92¬/\96À\8b{/\90í\93¬\82Ì\82Ý\82Ì\96½\97ß</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc26">\93Á\8eê\82È\96½\97ß</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc27">\92Z\8fk</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc28">\83f\83o\83b\83O\96½\97ß</a>\r
+ </li>\r
+ </ul>\r
+ </li>\r
+ <li>\r
+ <a href="#toc29">\88Ú\93®</a>\r
+ <ul>\r
+ <li>\r
+ <a href="#toc30">\91S\88õ(\8dr\96ì)</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc31">\92Ç\90Õ(\92¬/\90í\93¬/\96À\8b{)</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc32">\92P\93Æ(\92¬/\90í\93¬/\96À\8b{)</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc33">\8f\87\94Ô(\92¬/\90í\93¬/\96À\8b{)</a>\r
+ </li>\r
+ </ul>\r
+ </li>\r
+ <li>\r
+ <a href="#toc34">\8fê\8f\8a</a>\r
+ <ul>\r
+ <li>\r
+ <a href="#toc35">\8dr\96ì</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc36">\8dr\96ì\82Å\82Ì\90í\93¬</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc37">\92¬/\96À\8b{</a>\r
+ </li>\r
+ </ul>\r
+ </li>\r
+ <li>\r
+ <a href="#toc38">\90í\93¬</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc39">\83\8c\83x\83\8b\8fã\8f¸</a>\r
+ <ul>\r
+ <li>\r
+ <a href="#toc40">\83\8c\83x\83\8b\8fã\8f¸\82É\95K\97v\82È\8co\8c±</a>\r
+ </li>\r
+ </ul>\r
+ </li>\r
+ <li>\r
+ <a href="#toc41">\93Á\8e¿</a>\r
+ <ul>\r
+ <li>\r
+ <a href="#toc42">\98r\97Í</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc43">\95q\8f·\82³</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc44">\92m\94\</a>\r
+ </li>\r
+ </ul>\r
+ </li>\r
+ <li>\r
+ <a href="#toc45">\96\82\96@</a>\r
+ <ul>\r
+ <li>\r
+ <a href="#toc46">\95\1: \94é\96ò</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc47">\95\2: \8eô\95¶</a>\r
+ </li>\r
+ </ul>\r
+ </li>\r
+ <li>\r
+ <a href="#toc48">\8cø\89Ê</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc49">\89ï\98b</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc50">\82»\82Ì\91¼</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc51">\95t\98^A: \92n\90}\82Ì\8dì\90¬</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc52">\95t\98^B: \83l\83^\83o\83\8c</a>\r
+ <ul>\r
+ <li>\r
+ <a href="#toc53">\94ò\82Ñ\93¹\8bï</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc54">\93\8a\9d±\95\90\8aí</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc55">\90Ú\8bß\90í\97p\95\90\8aí</a>\r
+ </li>\r
+ <li>\r
+ <a href="#toc56">\96h\8bï</a>\r
+ </li>\r
+ </ul>\r
+ </li>\r
+ <li>\r
+ <a href="#toc57">\92\8d\8eß</a>\r
+ </li>\r
+</ul>\r
+\r
+<a name="toc3"></a>\r
+<h2>\r
+ \83Q\81[\83\80\82Ì\83C\83\93\83X\83g\81[\83\8b\r
+</h2>\r
+\r
+<p>\r
+\83\\81[\83X\82ð\83_\83E\83\93\83\8d\81[\83h\82µ\82½\82Ì\82Å\82 \82ê\82Î\81AINSTALL\83t\83@\83C\83\8b\82ð\93Ç\82Þ\82±\82Æ\81B\r
+</p>\r
+<p>\r
+Windows\97p\83o\83C\83i\83\8a\82ð\83_\83E\83\93\83\8d\81[\83h\82µ\82½\82È\82ç\81AWinzip\93\99\82Å\93W\8aJ\82·\82é\82±\82Æ\81B\r
+</p>\r
+\r
+\r
+<a name="toc4"></a>\r
+<h2>\r
+ \83Q\81[\83\80\8aJ\8en\r
+</h2>\r
+\r
+<p>\r
+Linux/UNIX\82È\82ç\82Î:\r
+</p>\r
+<p class="example">\r
+ $ haxima.sh\r
+</p>\r
+<p>\r
+Windows\82È\82ç\82Î:\r
+</p>\r
+<p class="example">\r
+ \83X\83^\81[\83g\83\81\83j\83\85\81[\82Ü\82½\82Í\83f\83X\83N\83g\83b\83v\82Ì\83A\83C\83R\83\93\82©\82ç\8bN\93®\82·\82é\r
+</p>\r
+<p>\r
+\8dÅ\8f\89\82É\83`\83\85\81[\83g\83\8a\83A\83\8b\82Å\97V\82Ô\82©\81A\94ò\82Î\82µ\82Ä\8dÅ\8f\89\82©\82ç\8en\82ß\82é\82±\82Æ\82ª\82Å\82«\82é\81B\r
+</p>\r
+\r
+<a name="toc5"></a>\r
+<h2>\r
+ \83Q\81[\83\80\82Ì\95Û\91¶\r
+</h2>\r
+<p>\r
+\83Q\81[\83\80\92\86\82Í\82¢\82Â\82Å\82àCTRL-S\83L\81[\82Å\95Û\91¶\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B\r
+\95Û\91¶\82Ì\90\94\82Í\96³\90§\8cÀ\82Å\82 \82é\81B\r
+\8dÄ\8aJ\82·\82é\82Æ\82«\82Í\81A\8dÅ\8f\89\82Ì\89æ\96Ê\82ÅJ)\97·\82ð\91±\82¯\82é\82©\82ç\95Û\91¶\82µ\82½\83t\83@\83C\83\8b\82ð\91I\91ð\82·\82é\81B\r
+</p>\r
+<p>\r
+\82à\82µ\8e\80\82ñ\82Å\82µ\82Ü\82Á\82½\82ç\83Q\81[\83\80\82Í\8fI\97¹\82·\82é\81B\r
+\8dÄ\8aJ\82·\82é\82Æ\82«\82ÍJ)\97·\82ð\91±\82¯\82é\82Å\8dÅ\8cã\82É\95Û\91¶\82µ\82½\91I\91ð\82·\82é\82±\82Æ\82É\82È\82é\81B\r
+</p>\r
+\r
+<a name="toc6"></a>\r
+<h2>\r
+ \83Q\81[\83\80\8fI\97¹\r
+</h2>\r
+<p>\r
+Q\82ð\89\9f\82¹\82Î\82¢\82Â\82Å\82à\8fI\97¹\82Å\82«\82é\81B\r
+\8fI\97¹\82·\82é\91O\82É\95Û\91¶\82·\82é\82©\82Ì\91I\91ð\82ª\82 \82é\81B\r
+</p>\r
+\r
+<a name="toc7"></a>\r
+<h2>\r
+ \91\80\8dì\r
+</h2>\r
+<p>\r
+U5\82Å\97V\82ñ\82¾\82±\82Æ\82ª\82È\82¯\82ê\82Î\8dÅ\8f\89\82Ì\89æ\96Ê\82Å\91I\91ð\82Å\82«\82éT)\83`\83\85\81[\83g\83\8a\83A\83\8b\82ð\8a©\82ß\82é\81B\r
+\82»\82±\82É\82Í\83Q\81[\83\80\82ð\8en\82ß\82é\82½\82ß\82Ì\82¢\82\82Â\82©\82Ì\83q\83\93\83g\82ª\82 \82é\81B\r
+</p>\r
+\r
+<a name="toc8"></a>\r
+<h3>\r
+ \92T\8dõ\82·\82é\r
+</h3>\r
+<p>\r
+\83Q\81[\83\80\82ð\8en\82ß\82é\82Æ\8dÅ\8f\89\82Í\81u\96À\82¢\90l\81v\88ê\90l\82µ\82©\82¢\82È\82¢\81B\r
+\82»\82Ì\83A\83C\83R\83\93\82Í\8d¶\82Ì\92n\90}\8fã\82Ì\92\86\89\9b\82É\8c©\82¦\82é\81B\r
+\82 \82½\82è\82ð\92T\8dõ\82·\82é\82½\82ß\82É\82Í\83e\83\93\83L\81[\82Å\88Ú\93®\82·\82é\95K\97v\82ª\82 \82é\81B\r
+\89º\82É\82Í\8f¬\82³\82È\83v\83\8d\83\93\83v\83g\82Ì\83E\83B\83\93\83h\83E\82ª\82 \82é\81B\r
+\82»\82±\82É\82Í\91I\91ð\82µ\82½\96½\97ß\82Å\8e\9f\82É\89½\82ð\93ü\97Í\82µ\82È\82¯\82ê\82Î\82È\82ç\82È\82¢\82©\95\\8e¦\82³\82ê\82é\81B\r
+\97á\82¦\82Î\81AX)\82 \82½\82è\82ð\92²\82×\82é\96½\97ß\82Å\82Í\83v\83\8d\83\93\83v\83g\82Í\8e\9f\82Ì\82æ\82¤\82É\82È\82é\81B\r
+</p>\r
+<p class="example">\r
+ \92²\82×\82é-<\91Î\8fÛ> (ESC\82Å\92\86\8e~)\r
+</p>\r
+<p>\r
+\82±\82ê\82Í\83e\83\93\83L\81[\82Å\83J\81[\83\\83\8b\82ð\93®\82©\82·\82±\82Æ\82ð\97v\8b\81\82µ\82Ä\82¢\82é\82±\82Æ\82ð\95\\82µ\82Ä\82¢\82é\81B\r
+ESC\83L\81[\82ð\89\9f\82·\82Æ\96½\97ß\82Í\92\86\92f\82³\82ê\82é\81B\r
+\82Ù\82Æ\82ñ\82Ç\82Ì\96½\97ß\82ÍESC\82Å\92\86\92f\82Å\82«\82é\81B\r
+</p>\r
+<p>\r
+\82Ç\82±\82É\82¢\82é\82©\81A\82»\82µ\82Ä\89½\8e\9e\82©\82ð\92m\82è\82½\82¢\82Æ\82«\82Í@\83L\81[\82ð\89\9f\82·\81B\r
+\82±\82Ì\83Q\81[\83\80\82É\82Í\8e\9e\8cv\82Í\82È\82¢\81B\8e\9e\8d\8f\82ð\92m\82é\97B\88ê\82Ì\95û\96@\82Í\91¾\97z\82Ì\8ap\93x\82©\82ç\97Þ\90\84\82·\82é\82±\82Æ\82Å\82 \82é\81B\r
+</p>\r
+\r
+<a name="toc9"></a>\r
+<h3>\r
+ \89ï\98b\82·\82é\r
+</h3>\r
+<p>\r
+\93ì\82É\8dÅ\8f\89\82ÌNPC(\83v\83\8c\83C\83\84\81[\82Å\82È\82¢\90l\95¨)\82ª\8c©\82¦\82é\81B\r
+NPC\82Æ\82ÍT\82Å\98b\82·\82±\82Æ\82ª\82Å\82«\82é\81B\r
+\91Î\8fÛ\82ð\8e¦\82·\83J\81[\83\\83\8b\82ª\8c»\82ê\82é\82Ì\82Å\81A\r
+\83J\81[\83\\83\8b\83L\81[\82Å\88Ú\93®\82³\82¹\81ANPC\82É\8d\87\82í\82¹ENTER\83L\81[\82ð\89\9f\82·\82Æ\81ANPC\82Ü\82½\82Í\82 \82È\82½\82©\82ç\89ï\98b\82ª\8en\82Ü\82é\81B\r
+</p>\r
+<p>\r
+\82±\82ê\82ª\89ï\98b\82Ì\8en\82ß\95û\82Å\82 \82é\81B\r
+\89ï\98b\82Ì\8dÅ\92\86\82É\83L\81[\83\8f\81[\83h\82ð\93ü\97Í\82·\82é\82Æ\81ANPC\82ª\82»\82ê\82É\89\9e\82¦\82é\81B\r
+\97á\82¦\82Î\81A\81u\96¼\91O\81v\82â\81u\8ed\8e\96\81v\82Æ\93ü\97Í\82·\82é\82ÆNPC\82Ì\82»\82ê\82ª\82í\82©\82é\81B\r
+\89ï\98b\82ð\8fI\82¦\82½\82¢\82È\82ç\81A\81u\82³\82æ\82È\82ç\81v\82Ü\82½\82Í\89½\82à\93ü\97Í\82¹\82¸ENTER\82ð\89\9f\82·\81B\r
+</p>\r
+\r
+<a name="toc10"></a>\r
+<h3>\r
+ \95¨\82ð\8eæ\82é\r
+</h3>\r
+<p>\r
+\82 \82È\82½\82Í\82¢\82¸\82ê\93¹\82ð\82½\82Ç\82Á\82Ä\8d¶\89º\82Ì\95\94\89®\82É\93ü\82é\82±\82Æ\82É\82È\82é\82¾\82ë\82¤\81B\r
+\95\94\89®\82Ì\95Ç\82Í\95s\89Â\8ev\8bc\82È\8cÃ\91ã\95¶\8e\9a\82Å\8fü\82ç\82ê\82Ä\82¢\82é\81B\r
+\95\94\89®\82Ì\92\86\82É\82Í\94 \82ª\82 \82é\81B\r
+</p>\r
+<p>\r
+\94 \82Ì\82Æ\82È\82è\82Ö\88Ú\93®\82µ\81AO\82ð\89\9f\82µ\81A\95ó\94 \82Ì\95û\8cü\82Ì\83e\83\93\83L\81[\82ð\89\9f\82·\81B\r
+\82·\82é\82Æ\94 \82ª\8aJ\82«\81A\92\86\82Ì\97l\81X\82È\95¨\82ª\8f°\82Ì\8fã\82É\8c»\82ê\82é\81B\r
+</p>\r
+<p>\r
+\8eæ\82é\82½\82ß\82É\82ÍG\82ð\89\9f\82·\81B\r
+\8aî\96{\93I\82È\95\90\8aí\82Æ\8aZ\81A\8eô\95¶\82Ì\82½\82ß\82Ì\94é\96ò\81A\82¢\82\82Â\82©\82Ì\96ò\82Æ\8aª\95¨\82ª\8eè\82É\93ü\82é\81B\r
+</p>\r
+\r
+<a name="toc11"></a>\r
+<h3>\r
+ \91\95\94õ\82·\82é\r
+</h3>\r
+<p>\r
+\8e\9d\82¿\95¨\82ð\8c©\82é\82½\82ß\82É\82Í\81AZ\82ð\89\9f\82µ\82Ä\83X\83N\83\8d\81[\83\8b\82³\82¹\82é\81B\r
+\8d¶\89E\82Ì\83L\81[\82Å\95\\8e¦\82·\82é\8d\80\96Ú\82ð\90Ø\82è\91Ö\82¦\82ç\82ê\82é\81B\r
+\82 \82È\82½\8e©\90g\82â\8e\9d\82¿\95¨\82ð\8c©\8fI\82¦\82½\82çESC\82ð\89\9f\82µ\82Ä\96ß\82é\81B\r
+</p>\r
+<p>\r
+R\82ð\89\9f\82µ\82Ä\91\95\94õ\82·\82é\95\90\8aí\82â\8aZ\82ð\91I\82Ñ\81AENTER\82Å\91\95\94õ\82·\82é\81B\r
+\91\95\94õ\82µ\8fI\82í\82Á\82½\82çESC\82Å\96ß\82é\81B\r
+</p>\r
+\r
+<a name="toc12"></a>\r
+<h3>\r
+ \8eô\95¶\82ð\92²\8d\87\82·\82é\r
+</h3>\r
+<p>\r
+\89ñ\95\9c\82Ì\8eô\95¶\82ð\8d\87\90¬\82·\82é\81B\r
+\82Ü\82¸M\82ð\89\9f\82·\81B\r
+\8e\9f\82É\8eô\95¶\82Ì\96¼\8fÌ\82ð\93ü\97Í\82·\82é\81B\r
+\82±\82Ì\8fê\8d\87\82Í"Mani"\82Ì\90æ\93ª\82ÌM\82ð\89\9f\82µ\81AENTER\82ð\89\9f\82·\81B\r
+\8e\9f\82É\90l\8eQ\82Æ\92wå\81\82Ì\8e\85\82ð\94é\96ò\82Ì\88ê\97\97\82©\82ç\91I\82Ô\81B\r
+\82»\82µ\82ÄM\82ð\89\9f\82·\81B\r
+\8dÅ\8cã\82É\88ê\93x\82É\92²\8d\87\82·\82é\8eô\95¶\82Ì\90\94\82ð\93ü\97Í\82Å\82«\82é\82Ì\82Å\81A\95K\97v\82ÈMani\82Ì\8eô\95¶\82Ì\90\94\82ð\93ü\97Í\82·\82é\81B\r
+\82±\82±\82Å1\82ð\93ü\97Í\82·\82é\82Æ\81A1\82Â\82ÌMani\81A\89ñ\95\9c\82Ì\8eô\95¶\82ª\8dì\82ç\82ê\82é\81B\r
+\8eô\95¶\82Í\8cã\82Å\82æ\82è\8fÚ\82µ\82\90à\96¾\82·\82é\81B\r
+</p>\r
+<a name="toc13"></a>\r
+<h3>\r
+ \92¬\82É\8fo\93ü\82è\82·\82é\r
+</h3>\r
+<p>\r
+\8dL\82¢\90¢\8aE\82É\8fo\82Ä\8ds\82\8f\80\94õ\82ª\82Å\82«\82½\82È\82ç\81A\92n\90}\82Ì\92[\82Ö\8ds\82«\81A\97E\8bC\82ð\8fo\82µ\82Ä\93¥\82Ý\8fo\82·\81B\r
+\8dL\88æ\92n\90}\82Ì\8dr\96ì\82É\82È\82è\81A\91S\88õ\82ª\92\86\89\9b\82Ì1\82Â\82Ì(\82 \82È\82½\82Ì)\83A\83C\83R\83\93\82Å\95\\8e¦\82³\82ê\82é\81B\r
+\8dÄ\82Ñ\93ü\82é\82½\82ß\82É\82Í\81A\93ì\82Ö1\90i\82Ý(\82 \82È\82½\82ª\82¢\82½\8fê\8f\8a\82É\8dÕ\92d\82Ì\83A\83C\83R\83\93\82ª\8c©\82¦\82é\82¾\82ë\82¤)\81A\8dÄ\82Ñ\96k\82É1\90i\82Þ\81B\r
+\82±\82ê\82Å\92¬\82Ö\82Ì\8fo\93ü\82è\82Ì\95û\96@\82ª\82ª\82í\82©\82Á\82½\82Í\82¸\82¾\81B\r
+</p>\r
+<p>\r
+\92¬\82É\93ü\82Á\82½\82Æ\82«\82Í\81A\93G\82ª\82»\82±\82É\82¢\82È\82¢\8cÀ\82è\81A\81u\92Ç\90Õ\81v\8fó\91Ô\82É\82È\82Á\82Ä\82¢\82é\81B\r
+\82±\82Ì\8fó\91Ô\82Å\82Í\82 \82È\82½\82Í\92\87\8aÔ\82½\82¿\82Ì\90æ\93ª\82Æ\82È\82è\81A\91¼\82Ì\8eÒ\82½\82¿\82Í\82 \82È\82½\82É\82Â\82¢\82Ä\8ds\82±\82¤\82Æ\82·\82é\81B\r
+\82µ\82©\82µ\81A\82à\82µ\92¬\82É\93G\82ª\82¢\82ê\82Î\81A\81u\8f\87\94Ô\81v\8fó\91Ô\82É\82È\82é\81B\r
+\82±\82Ì\8fó\91Ô\82Å\82Í\82 \82È\82½\82Í\92\87\8aÔ\82Ì\82»\82ê\82¼\82ê\82ð\8f\87\94Ô\82É\91\80\8dì\82·\82é\82±\82Æ\82É\82È\82é\81B\r
+2\82Â\82Ì\8fó\91Ô\82ÍF\83L\81[\82Å\90Ø\82è\91Ö\82¦\82ç\82ê\82é\81B\r
+\82±\82Ì\82±\82Æ\82Í\92\87\8aÔ\82ª\89Á\82í\82Á\82½\82Æ\82«\82É\82í\82©\82é\82¾\82ë\82¤\81B\r
+</p>\r
+<p>\r
+\8fd\97v:\r
+\92\87\8aÔ\82ª\89Á\82í\82Á\82½\82ç\81A\92Ç\90Õ(F\83L\81[)\82É\82·\82é\82±\82Æ\82ð\96Y\82ê\82Ä\82Í\82È\82ç\82È\82¢\81B\r
+\8fí\82É\8cÂ\81X\82ð\91\80\8dì\82·\82é\82æ\82è\81A\8eå\90l\8cö\82ð\91S\88õ\82ª\92Ç\82¤\82æ\82¤\82É\82·\82é\95û\82ª\8aÈ\92P\82Å\82 \82é\81B\r
+</p>\r
+\r
+<a name="toc14"></a>\r
+<h2>\r
+ \89æ\96Ê\r
+</h2>\r
+<a name="toc15"></a>\r
+<h3>\r
+\93V\91Ì\r
+</h3>\r
+<p>\r
+\92n\90}\82Ì\8fã\82É\98g\82É\96\84\82ß\8d\9e\82Ü\82ê\82½\8f¬\82³\82È\83E\83B\83\93\83h\83E\82ª\82 \82è\81A\91¾\97z\82Æ2\82Â\82Ì\8c\8e\82Ì\88Ê\92u\82ª\95\\8e¦\82³\82ê\82Ä\82¢\82é\81B\r
+\8c\8e\82Ì\91\8a\82à\95\\8e¦\82³\82ê\82Ä\82¢\82é\81B\r
+\82±\82ê\82Í\8c\8e\82Ì\96å\82É\82æ\82é\88Ú\93®\82Å\8fd\97v\82È\88Ó\96¡\82ð\8e\9d\82Â\81B\r
+</p>\r
+<a name="toc16"></a>\r
+<h3>\r
+\95\97\8cü\82«\r
+</h3>\r
+<p>\r
+\92n\90}\82Ì\89º\82Ì\98g\82É\96\84\82ß\8d\9e\82Ü\82ê\82½\95\94\95ª\82É\82Í\95\97\8cü\82«\82ª\95\\8e¦\82³\82ê\82Ä\82¢\82é\81B\r
+\95\97\82Í\8c»\8dÝ\82Å\82Í\91D\82É\82æ\82é\88Ú\93®\82Ì\82Ý\82É\89e\8b¿\82ª\82 \82é\81B\r
+\95\97\82ð\89¡\90Ø\82é\8fê\8d\87\82ª\8dÅ\82à\8cø\97¦\82ª\82æ\82\81A\8e\9f\82ª\95\97\82ð\8cã\82ë\82©\82ç\8eó\82¯\82é\8fê\8d\87\82Å\82 \82é\81B\r
+\82»\82µ\82Ä\95\97\82É\8cü\82©\82¤\8fê\8d\87\82ª\8dÅ\82à\8cø\97¦\82ª\88«\82¢\81B\r
+\95\97\8cü\82«\82Í\95\97\82ª\82Ç\82Ì\95û\8cü\81u\82©\82ç\81v\90\81\82¢\82Ä\82¢\82é\82©\82ð\95\\82µ\82Ä\82¢\82é\82±\82Æ\82É\92\8d\88Ó\82·\82é\82±\82Æ\81B\r
+</p>\r
+<a name="toc17"></a>\r
+<h3>\r
+\96½\97ß\83v\83\8d\83\93\83v\83g\r
+</h3>\r
+<p>\r
+U4/U5/U6\82Æ\82Í\88á\82¢\81A\96½\97ß\83v\83\8d\83\93\83v\83g\82à\93Æ\8e©\82Ì\83E\83B\83\93\83h\83E\82ª\95\97\8cü\82«\82Ì\89º\82É\82 \82é\81B\r
+\96½\97ß\82Ì\93ü\97Í\82ª\95\\8e¦\82³\82ê\82é\81B\r
+\89ï\98b\82Å\82Ì\83v\83\8c\83C\83\84\81[\82Ì\93ü\97Í\82à\93¯\97l\82É\82±\82±\82É\95\\8e¦\82³\82ê\82é\81B\r
+</p>\r
+<a name="toc18"></a>\r
+<h3>\r
+\8fó\91Ô\r
+</h3>\r
+<p>\r
+\89E\8fã\82É\82Í\8e\9d\82¿\95¨\82ð\8c©\82é\81A\82Ü\82½\82Í\91I\91ð\82·\82é\83E\83B\83\93\83h\83E\82ª\82 \82é\81B\r
+\92Ê\8fí\82Í\92\87\8aÔ\82Ì\8aî\96{\93I\82È\8fî\95ñ\82ª\95\\8e¦\82³\82ê\82Ä\82¢\82é\82ª\81A\82»\82Ì\93à\97e\82Í\96½\97ß\82É\82æ\82Á\82Ä\95Ï\82í\82é\81B\r
+\97á\82¦\82ÎR\82ð\89\9f\82·\82Æ\88ê\97\97\82©\82ç\82Ì\91I\91ð\82É\82È\82é\81B\r
+</p>\r
+<p>\r
+\92Ê\8fí\81A\82±\82Ì\83E\83B\83\93\83h\83E\82É\82Í\92\87\8aÔ\91S\88õ\82Ì\8c»\8dÝ\82Ì\91Ì\97Í\82Æ\8fó\91Ô\82Ì\88ê\97\97\82ª\95\\8e¦\82³\82ê\82Ä\82¢\82é\81B\r
+\8fó\91Ô\82Í1\82Â\82Ü\82½\82Í\95¡\90\94\82Ì\8f¬\82³\82È\83A\83C\83R\83\93\82Å\95\\82³\82ê\82é\81B\r
+\97á\82¦\82Î\93Å\82É\94Æ\82³\82ê\82é\82Æ\8f¬\82³\82È\97Î\90F\82Ì\83h\83N\83\8d\82Æ\8cð\8d·\82·\82é\8d\9c\82Ì\83A\83C\83R\83\93\82ª\95\\8e¦\82³\82ê\82é\81B\r
+Z\83L\81[\82ð\89\9f\82·\82Æ\92\87\8aÔ\82Ì\8cÂ\81X\82Ì\8fÚ\82µ\82¢\8fó\91Ô\82ð\95\\8e¦\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B\r
+</p>\r
+<a name="toc19"></a>\r
+<h3>\r
+\90H\97¿/\8bà\r
+</h3>\r
+<p>\r
+(\8c´\95¶\82Ìfoogod\82Í)\95s\93¹\93¿\82È\8b¿\82«\82¾\82ª\81A\92P\82É\90H\97¿/\8bà\83E\83B\83\93\83h\83E\82Ì\93ª\95¶\8e\9a\82ð\95À\82×\82½\82¾\82¯\82Å\82 \82é\81B\r
+\82±\82Ì\8fó\91Ô\83E\83B\83\93\83h\83E\82Ì\89º\82É\82 \82é\8f¬\82³\82È\83E\83B\83\93\83h\83E\82É\82Í\89ñ\90\94\81A\90H\97¿\81A\82»\82µ\82Ä\8f\8a\8e\9d\8bà\82ª\81A\8c»\8dÝ\82Ì\90í\93¬\8fó\91Ô\82â\8cp\91±\92\86\82Ì\8fó\91Ô\82Æ\8b¤\82É\95\\8e¦\82³\82ê\82Ä\82¢\82é\81B\r
+\8fó\91Ô\82Í\88Ã\8d\86\82Ì\82æ\82¤\82È\8f¬\82³\82È\95¶\8e\9a\82Å\95\\8e¦\82³\82ê\82Ä\82¢\82é\81B\r
+\97á\82¦\82Î"N"\82Í\92¾\96Ù\82ð\95\\82µ\82Ä\82¢\82é\81B\r
+\8fæ\82è\95¨\82É\8fæ\82Á\82Ä\82¢\82é\82Æ\82«\82Í\81A\82³\82ç\82É\8fæ\82è\95¨\82Ì\91Ï\8bv\97Í\82à\95\\8e¦\82³\82ê\82é\81B\r
+\95¶\8e\9a\82Ì\88Ó\96¡\82Í\88È\89º\82Ì\92Ê\82è\82Å\82 \82é\81B\r
+</p>\r
+\r
+<dl>\r
+\r
+<dt><img src="doc/null.gif" class="icon" style="background: black url('haxima/effects.png') -39px -16px;">\r
+ \92¾\96Ù\r
+</dt>\r
+ <dd>\96\82\96@\82ð\8eg\82¤\82±\82Æ\82ª\82Å\82«\82È\82¢\81B</dd>\r
+ \r
+<dt><img src="doc/null.gif" class="icon" style="background: black url('haxima/effects.png') -31px -16px;">\r
+ \8d\82\91¬\89»\r
+</dt>\r
+ <dd>\91S\88õ\82ª\8e©\95ª\82Ì\94Ô\82É\95¡\90\94\89ñ\8ds\93®\82Å\82«\82é\81B</dd>\r
+\r
+<dt><img src="doc/null.gif" class="icon" style="background: black url('haxima/effects.png') -47px -16px;">\r
+ \89Â\8e\8b\r
+</dt>\r
+ <dd>\8c©\82¦\82È\82¢\82à\82Ì\82ª\8c©\82¦\82é\81B</dd>\r
+\r
+<dt><img src="doc/null.gif" class="icon" style="background: black url('haxima/effects.png') -23px -16px;">\r
+ \8e\9e\8aÔ\92â\8e~\r
+</dt>\r
+ <dd>\91S\88õ\82ª\8ds\93®\82·\82é\8aÔ\81A\90¢\8aE\92\86\82Ì\82à\82Ì\82ª\8e~\82Ü\82é\81B</dd>\r
+\r
+<dt><img src="doc/null.gif" class="icon" style="background: black url('haxima/effects.png') -55px -16px;">\r
+ \93§\8e\8b\r
+</dt>\r
+ <dd>\91S\88õ\82ª\95Ç\82Ì\8cü\82±\82¤\82ð\8c©\82é\82±\82Æ\82ª\82Å\82«\82é\81B</dd>\r
+</dl>\r
+\r
+<a name="toc20"></a>\r
+<h3>\r
+\97\9a\97ð\r
+</h3>\r
+<p>\r
+\8dÅ\8cã\82Ì\89E\89º\82Ì\83E\83B\83\93\83h\83E\82É\82Í\83Q\81[\83\80\92\86\82Ì\83\81\83b\83Z\81[\83W\82Ì\97\9a\97ð\82ª\95\\8e¦\82³\82ê\82é\81B\r
+</p>\r
+\r
+<a name="toc21"></a>\r
+<h2>\r
+ \83v\83\8c\83C\83\84\81[\82Ì\96½\97ß\r
+</h2>\r
+<p>\r
+\83}\83E\83X\82É\82Â\82¢\82½\8a¾\82ð\90@\82\82É\82Í\82æ\82¢\8b@\89ï\82¾ - \91S\82Ä\82Ì\96½\97ß\82Í\83L\81[\83{\81[\83h\82Å\93ü\97Í\82·\82é\81B\r
+\82±\82ê\82Í\93\96\91R\82Ì\82±\82Æ\82Å\82 \82é\81B\96¢\97\88\89i\8d\85\82É\81B\83A\81[\83\81\83\93\81B\r
+</p>\r
+<p>\r
+\92Ç\8bL:\r
+\83}\83E\83X\88¤\8dD\89Æ\82Í\91Î\8fÛ\82Ì\91I\91ð\82ð\83}\83E\83X\82Å\8ds\82¤\82±\82Æ\82à\82Å\82«\82é\81B\r
+\82µ\82©\82µ\83L\81[\83{\81[\83h\82Ì\82Ù\82¤\82ª\91\81\82¢\82Å\82 \82ë\82¤\81B\r
+</p>\r
+\r
+<a name="toc22"></a>\r
+<h3>\r
+\8aT\97v\r
+</h3>\r
+<dl>\r
+<dt><span class="key">\95û\8cü</span></dt>\r
+ <dd>\83e\83\93\83L\81[\82Ì8\95û\8cü\82Ì\93à\82Ì1\82Â</dd>\r
+<dt><span class="ph">\92\87\8aÔ</span></dt>\r
+ <dd>\92\87\8aÔ\82ð\88ê\97\97\82©\82ç\83e\83\93\83L\81[\82Å\91I\91ð\82µ<span class="key">ENTER</span>\82Ü\82½\82Í<span class="key">SPACE</span>\82ð\89\9f\82·</dd>\r
+<dt><span class="ph">\8e\9d\82¿\95¨</span></dt>\r
+ <dd>\8e\9d\82¿\95¨\82ð\88ê\97\97\82©\82ç\91I\91ð\82·\82é</dd>\r
+<dt><span class="ph">\8eô\95¶</span></dt>\r
+ <dd>\8eô\95¶\82ð\88ê\97\97\82©\82ç\91I\91ð\82·\82é</dd>\r
+<dt><span class="key">SPACE</span></dt>\r
+ <dd>SPACE\83o\81[</dd>\r
+<dt><span class="ph">\91Î\8fÛ</span></dt>\r
+ <dd>\90í\93¬\82Ì\91Î\8fÛ\82ð\83J\81[\83\\83\8b\82ð\93®\82©\82µ\r
+ <span class="key">ENTER</span>\82Ü\82½\82Í<span class="key">SPACE</span>\82ð\89\9f\82µ\82Ä\91I\91ð\82·\82é (\82Ü\82½\82Í\83}\83E\83X\82Ì\8d¶\83N\83\8a\83b\83N)</dd>\r
+<dt><span class="ph">*</span></dt>\r
+ <dd>\95¶\96¬\82É\82æ\82Á\82Ä\88Ù\82È\82é</dd>\r
+</dl>\r
+\r
+<a name="toc23"></a>\r
+<h3>\r
+\92Ê\8fí\82Ì\96½\97ß\r
+</h3>\r
+<dl>\r
+<dt><span class="key">\95û\8cü</span></dt>\r
+ <dd>\96½\97ß\82µ\82½\95û\8cü\82É\88Ú\93®\82·\82é</dd>\r
+<dt>A-<span class="key">\95û\8cü</span></dt>\r
+ <dd>\90í\93¬\82ð\8aJ\8en\82·\82é (Attack)</dd>\r
+<dt>B</dt>\r
+ <dd>\91D\82â\94n\82Ì\82æ\82¤\82È\8fæ\82è\95¨\82É\8fæ\82é/\82©\82ç\8d~\82è\82é (Board)</dd>\r
+<dt>C-<span class="ph">\92\87\8aÔ</span>-<span class="ph">\8eô\95¶</span>-<span class="ph">*</span></dt>\r
+ <dd>\8eô\95¶\82ð\8f¥\82¦\82é(\8fI\82í\82è\82Ì\95\94\95ª\82Í\8eô\95¶\82É\88Ë\91¶\82·\82é) (Cast)</dd>\r
+<dt>E</dt>\r
+ <dd>\93ü\82é\81B\82Í\82µ\82²\82Ì\8fã\82è\89º\82è\82à\8aÜ\82Ü\82ê\82é (Enter)</dd>\r
+<dt>F-<span class="key">\95û\8cü</span></dt>\r
+ <dd>\8fæ\82è\95¨\82Ì\95\90\8aí\82ð\94\8eË\82·\82é(\97á\82¦\82Î\91D\82Ì\91å\96C) (Fire)</dd>\r
+<dt>G-<span class="key">\95û\8cü</span></dt>\r
+ <dd>\92u\82¢\82Ä\82 \82é\95¨\82ð\8eæ\82é (Get)</dd>\r
+<dt>H-<span class="ph">\92\87\8aÔ</span>-<span class="key">\95û\8cü</span></dt>\r
+ <dd>\83X\83C\83b\83`\82â\83\8c\83o\81[\82ð\91\80\8dì\82·\82é (Handle)</dd>\r
+<dt>L-<span class="ph">0-9\8e\9e\8aÔ</span></dt>\r
+ <dd>\90\94\8e\9e\8aÔ\82¤\82ë\82Â\82 (Loiter)</dd>\r
+<dt>N-<span class="ph">\92\87\8aÔ</span>-<span class="ph">\92\87\8aÔ</span></dt>\r
+ <dd>\92\87\8aÔ\82Ì\8f\87\94Ô\82ð\95Ï\8dX\82·\82é (New-order)</dd>\r
+<dt>O-<span class="key">\95û\8cü</span></dt>\r
+ <dd>\93ü\82ê\95¨\82â\94à\82ð\8aJ\82¯\82é (Open)</dd>\r
+<dt>Q</dt>\r
+ <dd>\8fI\97¹\82µ\95Û\91¶\82·\82é\81A\82Ü\82½\82Í\82µ\82È\82¢ (Quit)</dd>\r
+<dt>R-<span class="ph">\92\87\8aÔ</span>-<span class="ph">\8e\9d\82¿\95¨</span></dt>\r
+ <dd>\95\90\8aí\82â\8f\82\82È\82Ç\82ð\91\95\94õ\82·\82é (Ready)</dd>\r
+<dt>S-<span class="key">\95û\8cü</span></dt>\r
+ <dd>\92\8d\88Ó\90[\82\8c©\82é (Search)</dd>\r
+<dt>T-<span class="ph">\91Î\8fÛ</span></dt>\r
+ <dd>NPC\82Æ\98b\82· (Talk)</dd>\r
+<dt>U-<span class="ph">\92\87\8aÔ</span>-<span class="ph">\8e\9d\82¿\95¨</span></dt>\r
+ <dd>\8f¼\96¾\82â\96ò\82Ì\82æ\82¤\82È\82à\82Ì\82ð\8eg\82¤ (Use)</dd>\r
+<dt>X-<span class="ph">\91Î\8fÛ</span></dt>\r
+ <dd>\92n\90}\8fã\82Ì\82à\82Ì\82ð\92²\82×\82é (eXamine)</dd>\r
+<dt>Z</dt>\r
+ <dd>\92\87\8aÔ\82Ì\8e\9d\82¿\95¨\82â\91\95\94õ\82È\82Ç\82ð\8c©\82é (Ztats)</dd>\r
+<dt>@</dt>\r
+ <dd>\8c»\8dÝ\82Ç\82±\82É\82¢\82é\82©\82È\82Ç\82ð\95\\8e¦\82·\82é (at)</dd>\r
+<dt><span class="key">SPACE</span></dt>\r
+ <dd>\89½\82à\82µ\82È\82¢</dd>\r
+<dt>CTRL-S</dt>\r
+ <dd>\83Q\81[\83\80\82ð\95Û\91¶\82·\82é (Save)</dd>\r
+<dt>CTRL-R)eload</dt>\r
+ <dd>\83Q\81[\83\80\82ð\93Ç\82Ý\8d\9e\82Þ (Reload)</dd>\r
+</dl>\r
+\r
+<a name="toc24"></a>\r
+<h3>\r
+\8dr\96ì\82Ì\82Ý\82Ì\96½\97ß\r
+</h3>\r
+<dl>\r
+<dt>K-<span class="ph">0-9/\96é\96¾\82¯</span>-<span class="ph">Y/N</span>-<span class="ph">\92\87\8aÔ</span></dt>\r
+ <dd>\8dr\96ì\82Å(\91Ì\97Í\82Æ\96\82\97Í\82ð\89ñ\95\9c\82³\82¹\82é\82½\82ß)\81A\82Ü\82½\82Í\91D\82Ì\8fã\82Å(\91D\82ð\8fC\97\9d\82·\82é\82½\82ß)\8bx\91§\82ð\8eæ\82é (Kamp)</dd>\r
+</dl>\r
+\r
+<a name="toc25"></a>\r
+<h3>\r
+\92¬/\96À\8b{/\90í\93¬\82Ì\82Ý\82Ì\96½\97ß\r
+</h3>\r
+<dl>\r
+<dt>A-<span class="ph">\91Î\8fÛ</span></dt>\r
+ <dd>\91Î\8fÛ\82ð\8dU\8c\82\82·\82é (Attack)</dd>\r
+<dt>C-<span class="ph">\8eô\95¶</span>-<span class="ph">*</span></dt>\r
+ <dd>\8eô\95¶\82ð\8f¥\82¦\82é (Cast)</dd>\r
+<dt>F</dt>\r
+ <dd>\81u\92Ç\90Õ\81v(\92\87\8aÔ\82½\82¿\82Í\90æ\93ª\82Ì\8eÒ\82ð\8e©\93®\93I\82É\92Ç\82¤)\82Æ\81u\8f\87\94Ô\81v(\8f\87\94Ô\82ª\89ñ\82Á\82Ä\82«\82½\82Æ\82«\92\87\8aÔ\82ð\8cÂ\81X\82É\91\80\8dì\82·\82é)\82ð\90Ø\82è\91Ö\82¦\82é (Follow)</dd>\r
+<dt>1\81`9</dt>\r
+ <dd>\81u\92P\93Æ\81v\82É\82·\82é\92\87\8aÔ\82ð\91I\82Ô</dd>\r
+<dt>0</dt>\r
+ <dd>\81u\8f\87\94Ô\81v\82É\82·\82é</dd>\r
+<dt>K-<span class="ph">0-9/\96é\96¾\82¯</span></dt>\r
+ <dd>\83x\83b\83h\82Å\96°\82é (Kamp)</dd> \r
+</dl>\r
+\r
+<a name="toc26"></a>\r
+<h3>\r
+\93Á\8eê\82È\96½\97ß\r
+</h3>\r
+<dl>\r
+<dt><span class="key">ESC</span></dt>\r
+ <dd>\96½\97ß\82ð\92\86\92f\82·\82é</dd>\r
+<dt><span class="key">Tab</span></dt>\r
+ <dd>\89ï\98b\92\86\82É\83\8d\81[\83}\8e\9a\82Æ\83A\83\8b\83t\83@\83x\83b\83g\82ð\90Ø\82è\91Ö\82¦\82é (\93ú\96{\8cê\94Å\82Ì\82Ý)</dd>\r
+</dl>\r
+\r
+<a name="toc27"></a>\r
+<h3>\r
+\92Z\8fk\r
+</h3>\r
+<dl>\r
+<dt><span class="key">+/=</span></dt>\r
+ <dd>\8dU\8c\82\82Ì\91Î\8fÛ\82ð\91I\91ð\82·\82é\82Æ\82«\81A\8e\9f\82Ì\93G\91Î\93I\82ÈNPC\82ð\91I\91ð\82·\82é</dd>\r
+<dt><span class="key">-</span></dt>\r
+ <dd>\8dU\8c\82\82Ì\91Î\8fÛ\82ð\91I\91ð\82·\82é\82Æ\82«\81A\91O\82Ì\93G\91Î\93I\82ÈNPC\82ð\91I\91ð\82·\82é</dd>\r
+<dt><span class="key"><</span></dt>\r
+ <dd>\8dr\96ì\82Å\82Ì\90í\93¬\82ª\8fI\82í\82Á\82½\8cã\81A\8dr\96ì\82Ì\92n\90}\82É\96ß\82é</dd>\r
+</dl>\r
+\r
+<a name="toc28"></a>\r
+<h3>\r
+\83f\83o\83b\83O\96½\97ß\r
+</h3>\r
+<dl>\r
+<dt>CTRL-T)erraform</dt>\r
+ <dd>
\92n
\8c`
\82ð
\95Ï
\82¦
\82é<sup><a class="footnote" href="#f1">1</a></sup> (Terraform)</dd>
\r+<dt>CTRL-Z)oom</dt>\r
+ <dd>\8ag\91å\8fk\8f¬\82·\82é(\95ó\90Î\82Æ\93¯\82¶\82±\82Æ\82ð\95ó\90Î\82È\82µ\82Å\8ds\82¤) (Zoom)</dd>\r
+\r
+<a name="toc29"></a>\r
+<h2>\r
+ \88Ú\93®\r
+</h2>\r
+<a name="toc30"></a>\r
+<h3>\r
+\91S\88õ(\8dr\96ì)\r
+</h3>\r
+<p>\r
+\91S\88õ\82Í\89æ\96Ê\82Ì\92\86\89\9b\82Ì1\82Â\82Ì\83A\83C\83R\83\93\82Æ\82µ\82Ä\95\\8e¦\82³\82ê\82é\81B\r
+</p>\r
+\r
+<a name="toc31"></a>\r
+<h3>\r
+\92Ç\90Õ(\92¬/\90í\93¬/\96À\8b{)\r
+</h3>\r
+<p>\r
+\90æ\93ª\82Ì\8eÒ\82ð\91\80\8dì\82µ\81A\91¼\82Ì\92\87\8aÔ\82½\82¿\82Í\90æ\93ª\82ð\92Ç\82¤\81B\r
+\8dU\8c\82\82·\82é\82Æ\8e©\93®\93I\82É\81u\8f\87\94Ô\81v\82É\82È\82é\81B\r
+\90æ\93ª\82É\82È\82é\82Ì\82Í\8fí\82É\92n\90}\8fã\82É\82¢\82Ä\90¶\82«\82Ä\82¢\82é\88ê\97\97\82Ì\88ê\94Ô\8fã\82Ì\8eÒ\82Å\82 \82é\81B\r
+\81u\92Ç\90Õ\81v\82©\82ç\81u\8f\87\94Ô\81v\82É\82·\82é\82½\82ß\82É\82ÍF\82ð\89\9f\82·\81B\r
+</p>\r
+\r
+<a name="toc32"></a>\r
+<h3>\r
+\92P\93Æ(\92¬/\90í\93¬/\96À\8b{)\r
+</h3>\r
+<P>\r
+\92\87\8aÔ\82Ì\93à\82Ì1\90l\82ð\91\80\8dì\82·\82é\81B\r
+\91¼\82Ì\8eÒ\82Í\89½\82à\82¹\82¸\8c©\82Ä\82¢\82é\81B\r
+\90\94\8e\9a\83L\81[\82ð\89\9f\82·\82Æ\81A\92\87\8aÔ\82Ì\88ê\97\97\82Ì\91Î\89\9e\82µ\82½\8eÒ\82ª\92P\93Æ\82Å\8ds\93®\82·\82é\81B\r
+1\82ª\88ê\97\97\82Ì\8dÅ\82à\8fã\82Å\82 \82é\81B\r
+</p>\r
+<p>\r
+\83\81\83\82:\r
+\81u\92P\93Æ\81v\82Í\92\87\8aÔ\82Ì\93à\82Ì1\90l\82ª\91¼\82æ\82è\82à\8d\82\82¢\94\\97Í\82ð\8e\9d\82Á\82Ä\82¢\82é\8fê\8d\87\82É\95Ö\97\98\82Å\82 \82é\81B\r
+\97á\82¦\82Î\81A\83Q\83C\83U\81[\82ª\92\87\8aÔ\82É\89Á\82í\82Á\82Ä\82¢\82ê\82Î\81A\94Þ\82ð\90\85\97\82è\82Ì\8cü\82±\82¤\82Ö\8ds\82©\82¹\82é\82±\82Æ\82ª\82Å\82«\82é\81B\r
+\97H\97ì\82ª\92\87\8aÔ\82É\82È\82Á\82½\82ç\82Ç\82¤\82©\91z\91\9c\82µ\82Ä\82Ý\82æ\82¤\81B\r
+</p>\r
+\r
+<a name="toc33"></a>\r
+<h3>\r
+\8f\87\94Ô(\92¬/\90í\93¬/\96À\8b{)\r
+</h3>\r
+<p>\r
+\92\87\8aÔ\82½\82¿\82ð\8f\87\94Ô\82É\91\80\8dì\82·\82é\81B\r
+\82±\82ê\82Í\90í\93¬\82ª\8en\82Ü\82Á\82½\82ç\82±\82Ì\8fó\91Ô\82É\82È\82é\81B\r
+\81u\92P\93Æ\81v\82©\82ç\81u\8f\87\94Ô\81v\82É\82·\82é\82½\82ß\82É\82Í0\82ð\89\9f\82·\81B\r
+\81u\92Ç\90Õ\81v\82©\82ç\82ÍF\82ð\89\9f\82·\81B\r
+\82»\82¤\81A\8d¬\97\90\82µ\82»\82¤\82¾\82ª2\82Â\82Ì\95û\96@\82ª\82 \82é\81B\r
+\82±\82ê\82Í\82¢\82Â\82©\8fC\90³\82·\82é\82Â\82à\82è\82¾\81B\r
+\88Ó\8c©\82ª\82 \82ê\82Î\95·\82©\82¹\82Ä\97~\82µ\82¢\81B\r
+</p>\r
+\r
+<a name="toc34"></a>\r
+<h2>\r
+ \8fê\8f\8a\r
+</h2>\r
+\r
+<a name="toc35"></a>\r
+<h3>\r
+\8dr\96ì\r
+</h3>\r
+<p>\r
+\92¬\82Ì\8aO\82â\8dr\96ì\82Å\82Í\91S\88õ\82ª1\82Â\82Ì\8fW\92c\82Æ\82µ\82Ä\8ds\93®\82·\82é\81B\r
+\93G\82ÌNPC\82Æ\82Ô\82Â\82©\82é\81A\82Ü\82½\82Í\93G\82ª\8dU\8c\82\82·\82é\82Ì\82ð\91Ò\82Â\82Æ\90í\93¬\82É\82È\82é\81B\r
+\93¯\97l\82É\92¬\81A\96À\8b{\81A\8c\8e\82Ì\96å\82É\82Í\81A\92P\82É\82»\82Ì\95û\8cü\82É\88Ú\93®\82·\82é\82Æ\93ü\82é\82±\82Æ\82ª\82Å\82«\82é\81B\r
+</p>\r
+\r
+<a name="toc36"></a>\r
+<h3>\r
+\8dr\96ì\82Å\82Ì\90í\93¬\r
+</h3>\r
+<p>\r
+\8dr\96ì\82Å\93G\82ÌNPC\82Ì\8fW\92c\82Æ\89ï\82¤\82Æ\81A\93Á\95Ê\82È\90í\93¬\97p\82Ì\92n\90}\82É\90Ø\82è\91Ö\82í\82é\81B\r
+\82±\82±\82Å\82Í\8cÂ\81X\82ð\8f\87\94Ô\82É\91\80\8dì\82·\82é\81B\r
+\90¶\82«\82Ä\82¢\82é\8eÒ\82ª\91S\82Ä\92n\90}\82Ì\92[\82©\82ç\8aO\82É\8fo\82é\82Æ\8dr\96ì\82É\96ß\82ê\82é\81B\r
+(\83\81\83\82: \90í\93¬\82ª\8fI\82í\82Á\82½\82ç<span class="key"><\83L\81[</span>\82Å\91f\91\81\82\90í\93¬\82Ì\92n\90}\82©\82ç\97£\82ê\82é\82±\82Æ\82ª\82Å\82«\82é\81B)\r
+</p>\r
+\r
+<a name="toc37"></a>\r
+<h3>\r
+\92¬/\96À\8b{\r
+</h3>\r
+<p>\r
+\92¬\82â\96À\8b{\82Å\82Ì\88Ú\93®\82Í\90í\93¬\82Æ\93¯\82¶\82Å\82 \82é\81B\r
+\8cÂ\81X\82ð\8f\87\94Ô\82É\91\80\8dì\82Å\82«\81A\81u\92P\93Æ\81v\82È\82ç1\90l\82Å\82 \82½\82è\82ð\92²\82×\82é\82±\82Æ\82ª\82Å\82«\82é\81B\r
+\82Ü\82½\82Í\81A\90æ\93ª\82ð\91\80\8dì\82µ\82Ä\91¼\82Ì\8eÒ\82ð\92Ç\82í\82¹\82é\82±\82Æ\82à\82Å\82«\82é\81B\r
+</p>\r
+\r
+<a name="toc38"></a>\r
+<h2>\r
+\90í\93¬\r
+</h2>\r
+<p>\r
+\89½\82©\8c¾\82¤\82×\82«\82±\82Æ\82ª\82 \82é\82¾\82ë\82¤\82©?\r
+U5\82Æ\82Ù\82Æ\82ñ\82Ç\93¯\82¶\82Å\82 \82é\81B\r
+\89Î\89\8a\83r\83\93\82ð\96é\92\86\82â\92n\89º\82É\93\8a\82°\82Ä\82Ý\82æ\82¤\81B\r
+\82 \82 \81A\83Q\83C\83U\81[\82É\92\8d\88Ó\82µ\82ë\81B\r
+\94Þ\82ç\82Í\82 \82È\82½\82ð\97¸\82É\82·\82é\82±\82Æ\82ª\82Å\82«\82é\81B\r
+\82·\82®\82É\94Þ\82ç\82ð\93|\82·\82©\81A\97¸\82É\82µ\82ë\81B\r
+</p>\r
+\r
+<a name="toc39"></a>\r
+<h2>\r
+\83\8c\83x\83\8b\8fã\8f¸\r
+</h2>\r
+<p>\r
+\92Ê\8fí\81A\8f\\95ª\82È\8co\8c±\92l\82ð\93¾\82é\82Æ\83\8c\83x\83\8b\82ª\8fã\82ª\82é\81B\r
+\83\8c\83x\83\8b\82É\8fã\8cÀ\82Í\82È\82¢\81B\r
+\91Ì\97Í\82Æ\96\82\97Í\82Ì\8dÅ\91å\92l\82Ì\8fã\8f¸\82Í\81A\90E\8bÆ\81A\8eí\91°\81A\8cÂ\90l\82Ì\93Á\8e¿\82Å\8c\88\82Ü\82é\81B\r
+\83\8c\83x\83\8b\82ª\8fã\82ª\82é\82Æ\91Ì\97Í\82Æ\96\82\97Í\82ª\89ñ\95\9c\82µ\90V\82µ\82¢\83\8c\83x\83\8b\82Å\82Ì\8dÅ\91å\92l\82É\82È\82é\81B\r
+</p>\r
+\r
+<a name="toc40"></a>\r
+<h3>\r
+\83\8c\83x\83\8b\8fã\8f¸\82É\95K\97v\82È\8co\8c±\r
+</h3>\r
+<table>\r
+<tr class="header">\r
+ <td>\r
+ \83\8c\83x\83\8b\r
+ </td><td>\r
+ \8co\8c±\92l\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ 1\r
+ </td><td>\r
+ 0\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ 2\r
+ </td><td>\r
+ 32\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ 3\r
+ </td><td>\r
+ 64\r
+ </td>\r
+</tr><tr>\r
+ <td> \r
+ 4\r
+ </td><td>\r
+ 128 \r
+ </td>\r
+</tr><tr>\r
+ <td> \r
+ 5\r
+ </td><td>\r
+ 256\r
+ </td>\r
+</tr><tr>\r
+ <td> \r
+ 6\r
+ </td><td>\r
+ 512\r
+ </td>\r
+</tr><tr>\r
+ <td> \r
+ n\r
+ </td><td>\r
+ 2^(n+5)\r
+ </td>\r
+</tr>\r
+</table>\r
+\r
+<a name="toc41"></a>\r
+<h2>\r
+ \93Á\90«\r
+</h2>\r
+<p>\r
+\90l\95¨\82É\82Í3\82Â\82Ì\8aî\96{\93I\82È\93Á\90«\81A\98r\97Í\81A\95q\8f·\82³\81A\82»\82µ\82Ä\92m\94\\82ª\82 \82é\81B\r
+\82±\82ê\82ç\82Ì\92l\82Í\8cÅ\92è\82Å\81A\88ê\93x\8c\88\82ß\82é\82Æ\83Q\81[\83\80\92\86\82Í\95Ï\89»\82µ\82È\82¢\81B\r
+</p>\r
+\r
+<a name="toc42"></a>\r
+<h3>\r
+\98r\97Í\r
+</h3>\r
+<p>\r
+\98r\97Í\82Í\89Â\94\\82È\95\90\8aí\82Æ\8aZ\82Ì\8fd\97Ê\82Ì\8fã\8cÀ\82ð\8c\88\82ß\82é\81B\r
+\98r\97Í\82ª\8d\82\82¢\82Æ\97^\82¦\82é\83_\83\81\81[\83W\82ª\91\9d\82µ\81A\8fd\82¢\95\90\8aí\82Ì\96½\92\86\97¦\82ª\8fã\82ª\82é\81B\r
+\83N\83\82\82Ì\91\83\82ð\94j\82è\92E\8fo\82·\82é\82Æ\82«\82à\98r\97Í\82ª\8eg\82í\82ê\82é(\82Ù\82Æ\82ñ\82Ç\82Ì\83g\83\8d\83\8b\82Í\92·\82¢\8aÔ\95ß\82ç\82¦\82é\82±\82Æ\82ª\82Å\82«\82È\82¢\81c)\81B\r
+</p>\r
+<a name="toc43"></a>\r
+<h3>\r
+\95q\8f·\82³\r
+</h3>\r
+<p>\r
+\95q\8f·\82³\82Í\94ò\82Ñ\93¹\8bï\82Æ\8cy\82¢\95\90\8aí\82Å\82Ì\8dU\8c\82\82É\8eg\82í\82ê\81A\93G\82Ì\8dU\8c\82\82ð\94ð\82¯\82é\8f\95\82¯\82É\82È\82é\81B\r
+\8fù\91O\82ð\82±\82¶\8aJ\82¯\82é\82Æ\82«\82â\81A\94 \82Ìã©\82ð\89ð\8f\9c\82·\82é\82½\82ß\82É\82à\95K\97v\82Å\82 \82é\81B\r
+</p>\r
+<a name="toc44"></a>\r
+<h3>\r
+\92m\94\\r
+</h3>\r
+<P>\r
+\92m\94\\82Í\8eô\95¶\82Ì\8cø\89Ê\82ð\8d\82\82ß\81A\90¬\8c÷\82µ\82â\82·\82\82·\82é\81B\r
+</p>\r
+\r
+<a name="toc45"></a>\r
+<h2>\r
+\96\82\96@\r
+</h2>\r
+<p>\r
+\82±\82Ì\83Q\81[\83\80\82É\82Í\8a®\91S\82È\96\82\96@\82ª\82 \82é\81B\r
+\96\82\96@\82Ì\91Ì\8cn\82ÍUltima 5\82âUltima 6\82Æ\8e\97\82Ä\82¢\82Ä\81A\82 \82È\82½\82Í\96\82\96@\82Í\8eô\95¶\82Ì\89¹\82ð\93ü\97Í\82·\82é\81B\r
+\8eô\95¶\82Ì\96¼\91O\82Í1\82Â\82©\82ç4\82Â\82Ì\89¹\82Ì\91g\82Ý\8d\87\82í\82¹\82Å\82 \82é\81B\r
+</p>\r
+<p>\r
+\82±\82Ì\83Q\81[\83\80\82Ì\89¹\81A\8eô\95¶\81A\82»\82µ\82Ä\94é\96ò\82Ì\92²\8d\87\82Í\91S\82ÄUltima 5\82Ì\82à\82Ì\82Å\82 \82é\81B\r
+\82à\82µU5\82Ì\90à\96¾\8f\91\82ð\8e\9d\82Á\82Ä\82¢\82È\82¯\82ê\82Î\81A\88È\89º\82Ì\95\\82ª\8f\95\82¯\82É\82È\82é\82¾\82ë\82¤\81B\r
+</p>\r
+\r
+<a name="toc46"></a>\r
+<h3>\r
+\95\1: \94é\96ò\r
+</h3>\r
+<table>\r
+<tr class="header">\r
+ <td>\r
+ \96¼\8fÌ\r
+ </td><td>\r
+ \8eô\95¶\95\\82Å\82Ì\97ª\8fÌ\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \8d\95\90^\8eì\r
+ </td><td>\r
+ \8d\95\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \8c\8c\82Ì\91Û\r
+ </td><td>\r
+ \8c\8c\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \91å\95f\r
+ </td><td>\r
+ \91å\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \90l\8eQ\r
+ </td><td>\r
+ \90l\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \83}\83\93\83h\83\8c\83C\83N\r
+ </td><td>\r
+ \83}\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \83i\83C\83g\83V\83F\83C\83h\r
+ </td><td>\r
+ \83i\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \92wå\81\82Ì\8e\85\r
+ </td><td>\r
+ \92w\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \97°\89©\82Ì\8aD\r
+ </td><td>\r
+ \97°\r
+ </td>\r
+</tr>\r
+</table>\r
+\r
+<a name="toc47"></a>\r
+<h3>\r
+ \95\2: \8eô\95¶\r
+</h3>\r
+<table>\r
+<tr class="header">\r
+ <td>\r
+ \8eô\95¶\r
+ </td><td>\r
+ \8cø\89Ê\r
+ </td><td>\r
+ \94é\96ò\r
+ </td><td>\r
+ \91S\88õ/\90í\93¬\r
+ </td>\r
+</tr><tr class="breaker">\r
+ <td colspan="4">\r
+ <span>1</span>\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ An Nox\r
+ </td><td>\r
+ \89ð\93Å\r
+ </td><td>\r
+ \90l \91å\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ An Zu\r
+ </td><td>\r
+ \8ao\90Á\r
+ </td><td>\r
+ \90l \91å\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Grav Por\r
+ </td><td>\r
+ \96\82\96@\82Ì\96î\r
+ </td><td>\r
+ \97° \8d\95\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Lor\r
+ </td><td>\r
+ \8cõ\r
+ </td><td>\r
+ \97°\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Mani\r
+ </td><td>\r
+ \8f¬\89ñ\95\9c\r
+ </td><td>\r
+ \90l \92w\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Wis Sanct\r
+ </td><td>\r
+ ã©\92T\92m\r
+ </td><td>\r
+ \97°\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ An Sanct Ylem\r
+ </td><td>\r
+ ã©\89ð\8f\9c\r
+ </td><td>\r
+ \8c\8c\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr class="breaker">\r
+ <td colspan="4">\r
+ <span>2</span>\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ An Sanct\r
+ </td><td>\r
+ \8aJ\8fù\r
+ </td><td>\r
+ \97° \8c\8c\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ An Xen Corp\r
+ </td><td>\r
+ \95s\8e\80\8aÒ\r
+ </td><td>\r
+ \91å \97°\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Wis\r
+ </td><td>\r
+ \88Ê\92u\r
+ </td><td>\r
+ \83i\r
+ </td><td>\r
+ \91S\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Rel Hur\r
+ </td><td>\r
+ \95\97\95Ï\89»\r
+ </td><td>\r
+ \97° \8c\8c\r
+ </td><td>\r
+ \91S\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Nox Por\r
+ </td><td>\r
+ \93Å\8c\82\r
+ </td><td>\r
+ \83i \8c\8c \8d\95\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Bet Xen\r
+ </td><td>\r
+ \92\8e\8f¢\8aÒ\r
+ </td><td>\r
+ \92w \8c\8c \97°\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr class="breaker">\r
+ <td colspan="4">\r
+ <span>3</span>\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Flam Grav\r
+ </td><td>\r
+ \89Î\89\8a\8fê\r
+ </td><td>\r
+ \97° \8d\95 \92w\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Zu Grav\r
+ </td><td>\r
+ \8dÃ\96°\8fê\r
+ </td><td>\r
+ \90l \8d\95 \92w\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Nox Grav\r
+ </td><td>\r
+ \93Å\8fê\r
+ </td><td>\r
+ \83i \8d\95 \92w\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Vas Flam\r
+ </td><td>\r
+ \89Î\8b\85\r
+ </td><td>\r
+ \8d\95 \97°\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Vas Lor\r
+ </td><td>\r
+ \8b\8cõ\r
+ </td><td>\r
+ \97° \83}\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr class="breaker">\r
+ <td colspan="4">\r
+ <span>4</span>\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ An Grav\r
+ </td><td>\r
+ \92E\96\82\96@\8fê\r
+ </td><td>\r
+ \8d\95 \97°\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Sanct Grav\r
+ </td><td>\r
+ \8fá\95Ç\r
+ </td><td>\r
+ \83} \8d\95 \92w\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Sanct\r
+ </td><td>\r
+ \95Û\8cì\r
+ </td><td>\r
+ \97° \90l \91å\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Wis Quas\r
+ </td><td>\r
+ \89Â\8e\8b\r
+ </td><td>\r
+ \83i \97°\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Bet Por\r
+ </td><td>\r
+ \92µ\96ô\r
+ </td><td>\r
+ \8d\95 \8c\8c\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr class="breaker">\r
+ <td colspan="4">\r
+ <span>5</span>\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Ex Por\r
+ </td><td>\r
+ \95\95\88ó\89ð\8f\9c\r
+ </td><td>\r
+ \97° \8c\8c\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ An Ex Por\r
+ </td><td>\r
+ \95\95\88ó\r
+ </td><td>\r
+ \97° \8c\8c \91å\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Kal Xen\r
+ </td><td>\r
+ \8fb\8f¢\8aÒ\r
+ </td><td>\r
+ \92w \83}\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Zu\r
+ </td><td>\r
+ \91S\8dÃ\96°\r
+ </td><td>\r
+ \90l \8d\95 \92w\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Vas Mani\r
+ </td><td>\r
+ \91å\89ñ\95\9c\r
+ </td><td>\r
+ \90l \92w \83}\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Rel Tym\r
+ </td><td>\r
+ \8d\82\91¬\89»\r
+ </td><td>\r
+ \97° \8c\8c \83}\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr class="breaker">\r
+ <td colspan="4">\r
+ <span>6</span>\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ An Xen Ex\r
+ </td><td>\r
+ \96£\97¹\r
+ </td><td>\r
+ \8d\95 \83i \92w\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In An\r
+ </td><td>\r
+ \92¾\96Ù\r
+ </td><td>\r
+ \91å \83} \97°\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Vas Por Ylem\r
+ </td><td>\r
+ \92n\90k\r
+ </td><td>\r
+ \8c\8c \83} \97°\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Quas An Wis\r
+ </td><td>\r
+ \8d¬\97\90\r
+ </td><td>\r
+ \83} \83i\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Wis An Ylen\r
+ </td><td>\r
+ \93§\8e\8b\r
+ </td><td>\r
+ \83} \97°\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Rel Por\r
+ </td><td>\r
+ \94O\97Í\r
+ </td><td>\r
+ \8d\95 \8c\8c \92w\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Vas Por\r
+ </td><td>\r
+ \8fu\8aÔ\88Ú\93®\r
+ </td><td>\r
+ \83} \8d\95 \8c\8c\r
+ </td><td>\r
+ \91S\r
+ </td>\r
+</tr><tr class="breaker">\r
+ <td colspan="4">\r
+ <span>7</span>\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Nox Hur\r
+ </td><td>\r
+ \93Å\95\97\r
+ </td><td>\r
+ \83i \97° \8c\8c\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Quas Corp\r
+ </td><td>\r
+ \8b°\95|\r
+ </td><td>\r
+ \83i \83} \91å\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Quas Wis\r
+ </td><td>\r
+ \90ç\97¢\8aá\r
+ </td><td>\r
+ \83i \83}\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Quas Xen\r
+ </td><td>\r
+ \95¡\90»\r
+ </td><td>\r
+ \83i \83} \97° \92w \8c\8c \90l\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Sanct Lor\r
+ </td><td>\r
+ \95s\89Â\8e\8b\r
+ </td><td>\r
+ \83i \83} \8c\8c\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Xen Corp\r
+ </td><td>\r
+ \8e\80\r
+ </td><td>\r
+ \83i \8d\95\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr class="breaker">\r
+ <td colspan="4">\r
+ <span>8</span>\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ An Tym\r
+ </td><td>\r
+ \8e\9e\8aÔ\92â\8e~\r
+ </td><td>\r
+ \83} \91å \8c\8c\r
+ </td><td>\r
+ WC\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Flam Hur\r
+ </td><td>\r
+ \89\8a\95\97\r
+ </td><td>\r
+ \83} \97° \8c\8c\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Vas Grav Corp\r
+ </td><td>\r
+ \8e\80\95\97\r
+ </td><td>\r
+ \83} \97° \83i\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ In Mani Corp\r
+ </td><td>\r
+ \91h\90¶\r
+ </td><td>\r
+ \91å \90l \92w \97° \8c\8c \83}\r
+ </td><td>\r
+ \91S/\90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Kal Xen Corp\r
+ </td><td>\r
+ \95s\8e\80\8f¢\8aÒ\r
+ </td><td>\r
+ \92w \83} \83i\r
+ </td><td>\r
+ \90í\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ Vas Rel Por\r
+ </td><td>\r
+ \96å\r
+ </td><td>\r
+ \97° \83} \8d\95\r
+ </td><td>\r
+ \91S\r
+ </td>\r
+</tr>\r
+</table>\r
+<p>\r
+[1]\r
+\92¬\82â\96À\8b{\82Å\82Ì\8fu\8aÔ\88Ú\93®\82Ì\8eô\95¶\82Í\81A\90í\93¬\82ª\8fI\97¹\82µ\81u\92Ç\90Õ\81v\82É\82È\82Á\82Ä\82¢\82È\82¯\82ê\82Î\8e¸\94s\82·\82é\81B\r
+</p>\r
+\r
+<a name="toc48"></a>\r
+<h2>\r
+\8cø\89Ê\r
+</h2>\r
+<p>\r
+\8e\9e\82É\82Í\96\82\96@\82É\82æ\82é\8dU\8c\82\81A\8e©\91R\8dÐ\8aQ\81A\82Ü\82½\82Í\8e©\90g\82Ì\8eð\82Ì\8eã\82³\82É\82æ\82è\8f¬\82³\82È\96â\91è\82ð\95ø\82¦\82é\82¾\82ë\82¤\81B\r
+\82 \82í\82Ä\82é\82È\81B\r
+\91½\82\82Ì\8cø\89Ê\82Í\92v\96½\93I\82Å\82Í\82È\82¢\81B\r
+\82¾\82ª\81A\82¢\82Â\82\82©\82Í\82»\82¤\82Å\82 \82é\81B\r
+</p>\r
+<dl>\r
+<dt>\r
+<img src="doc/null.gif" class="icon" style="background: black url('haxima/effects.png') -39px 0;">\r
+\90\87\96°\r
+</dt>\r
+<dd>\r
+\96°\82Á\82Ä\82¢\82é\8eÒ\82Í\82¢\82¸\82ê\82Í\8e©\95ª\82Å\96Ú\8ao\82ß\82é\81B\r
+\82à\82µ\91Ò\82Ä\82È\82¯\82ê\82ÎAn Zu\82Ì\8eô\95¶\82ð\8eg\82¦\82Î\82æ\82¢\81B\r
+</dd>\r
+<dt>\r
+<img src="doc/null.gif" class="icon" style="background: black url('haxima/effects.png') -55px 0;">\r
+\96£\97¹\r
+</dt>\r
+<dd>\r
+\93G\82Ì\96\82\8fp\8et\82É\96£\97¹\82³\82ê\82½\8eÒ\82Í\92\87\8aÔ\82ð\8dU\8c\82\82·\82é\81B\r
+\96£\97¹\82Ì\8cø\89Ê\82Í10\95ª\82Å\90Ø\82ê\82é\81B\r
+</dd>\r
+<dt>\r
+<img src="doc/null.gif" class="icon" style="background: black url('haxima/effects.png') -23px 0;">\r
+\95a\8bC\r
+</dt>\r
+<dd>\r
+\82¢\82\82Â\82©\82Ì\89ö\95¨\82Í\92\87\8aÔ\82ð\95a\8bC\82É\82·\82é\81B\r
+\95a\8bC\82Å\8e\80\82Ê\82±\82Æ\82Í\82È\82¢\82ª\81A\91Ì\97Í\82ª\82È\82\82È\82é\90¡\91O\82Ü\82Å\8e¡\82é\82±\82Æ\82Í\82È\82¢\81B\r
+</dd>\r
+<dt>\r
+<img src="doc/null.gif" class="icon" style="background: black url('haxima/effects.png') -79px 0;">\r
+çÇçÂ\r
+</dt>\r
+<dd>\r
+\8eð\82ð\94\83\82¤\82©\81A\92u\82¢\82Ä\82 \82é\8eð\82ð\8eæ\82é\82Æ\90\8c\82¤\81B\r
+\90\8c\82¢\82Í1\8e\9e\8aÔ\91±\82«\81A\95à\82¢\82Ä\82¢\82é\82Æ\82«\95¨\82É\82Ô\82Â\82©\82é\82±\82Æ\82ª\82 \82é\81B\r
+</dd>\r
+<dt>\r
+<img src="doc/null.gif" class="icon" style="background: black url('haxima/effects.png') -95px 0;">\r
+\97\8d\82Ü\82è\r
+</dt>\r
+<dd>\r
+\83N\83\82\82Ì\91\83\82É\97\8d\82Ü\82é\82Æ\81A\91\83\82ð\94j\82ë\82¤\82Æ\82à\82ª\82\82±\82Æ\82É\82È\82é\81B\r
+\95K\97v\82È\8e\9e\8aÔ\82Í\98r\97Í\82É\82æ\82Á\82Ä\8c\88\82Ü\82é\81B\r
+</dd>\r
+<dt>\r
+<img src="doc/null.gif" class="icon" style="background: black url('haxima/effects.png') -15px -16px;">\r
+\96\83á\83\r
+</dt>\r
+<dd>\r
+\83N\83\82\82Í\91\8a\8eè\82ð\90H\82×\82é\82½\82ß\96\83á\83\82Ì\93Å\82ð\92\8d\93ü\82·\82é\81B\r
+\96\83á\83\82Í\92Z\82¢\83\89\83\93\83_\83\80\82È\8e\9e\8aÔ\82Å\89ñ\95\9c\82·\82é\81B\r
+</dd>\r
+<dt>\r
+<img src="doc/null.gif" class="icon" style="background: black url('haxima/effects.png') -15px 0;">\r
+\93Å\r
+</dt>\r
+<dd>\r
+\83K\83X\82Ü\82½\82Í\8eô\95¶\82Å\93Å\82É\94Æ\82³\82ê\82é\82Æ\81A\96\82\96@\82©\96ò\82Å\89ñ\95\9c\82·\82é\82Ü\82Å\8f\87\94Ô\82ª\89ñ\82Á\82Ä\82\82é\93x\82É\91Ì\97Í\82ª\8e¸\82í\82ê\82é\81B\r
+\93Å\82Í\92v\96½\8f\9d\82É\82È\82è\82¤\82é!\r
+\95a\8bC\82Ì\82æ\82¤\82É\8e©\91R\82É\82Í\89ñ\95\9c\82µ\82È\82¢\81B\r
+</dd>\r
+</dl>\r
+\r
+<a name="toc49"></a>\r
+<h2>\r
+\89ï\98b\r
+</h2>\r
+<p>\r
+NPC\82Æ\82Ì\89ï\98b\82ð\8en\82ß\82é\82½\82ß\82É\82ÍT\82ð\89\9f\82·\81B\r
+\89ï\98b\82Ì\8dÅ\92\86\82Å\82Í\81A\8aÈ\92P\82È\8e¿\96â\82ð\93ü\97Í\82·\82é\82ÆNPC\82ª\82»\82ê\82É\93\9a\82¦\82é\82ª\81A\91\8a\8eè\82ª\8e¿\96â\82µ\82Ä\82\82é\82±\82Æ\82à\82 \82é\81B\r
+\93X\88õ\82Æ\82Ì\82Å\82Í\95¨\82Ì\94\84\82è\94\83\82¢\82ª\82Å\82«\82é\81B\r
+\82Ù\82Æ\82ñ\82Ç\82ÌNPC\82Í\81u\96¼\91O\81v\82â\81u\8ed\8e\96\81v\81A\8fZ\82ñ\82Å\82¢\82é\92¬\82â\92¬\82Ì\91¼\82Ì\90l\95¨\82É\82Â\82¢\82Ä\93\9a\82¦\82é\81B\r
+\91½\82\82Ì\94½\89\9e\82É\82Í\90V\82µ\82¢\8e¿\96â\82Ì\8eè\82ª\82©\82è\82ª\8aÜ\82Ü\82ê\82Ä\82¢\82é\81B\r
+\82Ü\82½\81A\81u\92\87\8aÔ\81v\82ÅNPC\82ª\82 \82È\82½\82Ì\92\87\8aÔ\82É\89Á\82í\82ê\82é\82©\82ð\96â\82¤\82±\82Æ\82ª\82Å\82«\82é(\92\87\8aÔ\82É\82È\82é\8eÒ\82à\82¢\82é\82ª\81A\82 \82È\82½\82ª\82»\82¤\8c¾\82í\82È\82¢\81A\82Ü\82½\82Í\94Þ\82ç\82ð\93®\82©\82·\82æ\82¤\82È\82±\82Æ\82ð\8c¾\82í\82È\82¢\8cÀ\82è\92\87\8aÔ\82É\82Í\82È\82ç\82È\82¢)\81B\r
+</p>\r
+\r
+<a name="toc50"></a>\r
+<h2>\r
+\82»\82Ì\91¼\r
+</h2>\r
+<p>\r
+\90H\97¿\82Í1\93ú\82É3\89ñ\81A\90¶\82«\82Ä\82¢\82é\92\87\8aÔ\82Ì\95ª\82ª\8fÁ\94ï\82³\82ê\82é\81B\r
+\82à\82µ\90H\97¿\82ª\82È\82¯\82ê\82Î\81A\92\87\8aÔ\82Í\90H\8e\96\82Ì\8e\9e\8aÔ\82Ì\82½\82Ñ\82É\91Ì\97Í\82ª\8c¸\82é\81B\r
+</p>\r
+\r
+<a name="toc51"></a>\r
+<h2>\r
+\95t\98^A: \92n\90}\82Ì\8dì\90¬\r
+</h2>\r
+<p>\r
+
\91½
\82
\82Ì
\83Q
\81[
\83\80\82Æ
\93¯
\97l
\82É
\81A"nazghul"
\82Í
\83Q
\81[
\83\80\83G
\83\93\83W
\83\93<sup><a class="footnote"href="#f2">2</a></sup>
\82Æ
\83f
\81[
\83^
\82ª
\95ª
\97£
\82³
\82ê
\82Ä
\82¢
\82é
\81B
\r+\83f\81[\83^\83t\83@\83C\83\8b\82Í\83v\83\8d\83O\83\89\83\80\8c¾\8cê\82ÌScheme\82Å\8f\91\82©\82ê\82Ä\82¢\82é\81B\r
+\8dÅ\8f\89\82É\8eÀ\8ds\82·\82é\83t\83@\83C\83\8b\82Í'session.scm'\82Å\81A\82»\82±\82É\82Í\93Ç\82Ý\8d\9e\82Ü\82ê\82éScheme\82Ì\91¼\82Ì\83t\83@\83C\83\8b\82Æ\8f\89\8aú\89»\82Ì\97l\81X\82È\92è\8b`\82ª\8f\91\82©\82ê\82Ä\82¢\82é\81B\r
+</p>\r
+<p>\r
+\8e©\95ª\8e©\90g\82Ì\83Q\81[\83\80\82ð\8dì\90¬\82·\82é\82½\82ß\81A\82±\82Ì\83T\83\93\83v\83\8b\83t\83@\83C\83\8b\82Ì\89ü\91¢\82µ\8aî\91b\82Æ\82·\82é\82±\82Æ\82ð\90\84\8f§\82·\82é\81B\r
+\83T\83\93\83v\83\8b\82Ì\83R\81[\83h\82Í\91S\82Ä\83p\83u\83\8a\83b\83N\81E\83h\83\81\83C\83\93\82Æ\82·\82é\81B\r
+\89æ\91\9c\82Æ\89¹\90º\82Í\97l\81X\82È\8f\8a\82©\82ç\97\88\82½\82à\82Ì\82Å\82 \82é\81B\r
+COPYING\83t\83@\83C\83\8b\82É\82Í\82Ç\82±\82©\82ç\97\88\82½\82Ì\82©\8fÚ\8d×\82ª\8f\91\82©\82ê\82Ä\82¢\82é\81B\r
+</p>\r
+<p>\r
+\82à\82µ\83T\83\93\83v\83\8b\82Ì\83R\81[\83h\82ð\8eg\97p\82µ\82Ä(\8f¤\97p\83\\83t\83g\93\99\82Ì)\90§\8cÀ\82Ì\82 \82é\83Q\81[\83\80\82ð\8dì\82è\82½\82¢\8fê\8d\87\82Í\81A\8e©\95ª\82Å\89æ\91\9c\82Æ\89¹\90º\83t\83@\83C\83\8b\82ð\91¼\82Ì\83I\81[\83v\83\93\83\\81[\83X\82â\83t\83\8a\81[\83E\83F\83A\83v\83\8d\83W\83F\83N\83g\81A\82»\82µ\82Ä\92\98\8dì\8c \8eÒ\82ª\8c \97\98\82ð\97L\82·\82é\82à\82Ì\82©\82ç\97p\88Ó\82µ\82È\82¯\82ê\82Î\82È\82ç\82È\82¢\82¾\82ë\82¤\81B\r
+</p>\r
+\r
+<a name="toc52"></a>\r
+<h2>\r
+\95t\98^B: \83l\83^\83o\83\8c\r
+</h2>\r
+<p>\r
+\82±\82ê\82ç\82ÍHaxima\82É\93Á\89»\82µ\82Ä\82¢\82Ä\81A\91¼\82ÌNazghul\82Å\8dì\82ç\82ê\82½\83Q\81[\83\80\82Å\82Í\95K\97v\82È\82¢\81B\r
+</p>\r
+\r
+<a name="toc53"></a>\r
+<h3>\r
+\94ò\82Ñ\93¹\8bï\r
+</h3>\r
+<table>\r
+<tr class="header">\r
+ <td>\r
+ \96¼\8fÌ\r
+ </td><td>\r
+ \96½\92\86\r
+ </td><td>\r
+ \91Å\8c\82\r
+ </td><td>\r
+ \89ñ\94ð\r
+ </td><td>\r
+ \8eè\r
+ </td><td>\r
+ \8eË\92ö\r
+ </td><td>\r
+ \92e\r
+ </td><td>\r
+ \8fd\97Ê\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \93\8a\90Î\95R\r
+ </td><td>\r
+ 1d2-2\r
+ </td><td>\r
+ 1d4\r
+ </td><td>\r
+ -1\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 4\r
+ </td><td>\r
+
\90Î <sup><a href="#misf1">1</a></sup>
\r+ </td><td>\r
+ 0\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +4 \93\8a\90Î\95R\r
+ </td><td>\r
+ 3\r
+ </td><td>\r
+ 1d4+4\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 6\r
+ </td><td>\r
+
\90Î <sup><a href="#misf1">1</a></sup>
\r+ </td><td>\r
+ 0\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \8b|\r
+ </td><td>\r
+ 1d3-2\r
+ </td><td>\r
+ 2d4\r
+ </td><td>\r
+ -2\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 6\r
+ </td><td>\r
+ \96î\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \83N\83\8d\83X\83{\83E\r
+ </td><td>\r
+ 1d4-2\r
+ </td><td>\r
+ 4d4\r
+ </td><td>\r
+ -1\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 4\r
+ </td><td>\r
+ \83N\83\8d\83X\83{\83E\82Ì\96î\r
+ </td><td>\r
+ 3\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+
\94j
\96Å
\82Ì
\8fñ <sup><a href="#misf2">2</a></sup>
\r+ </td><td>\r
+ 1d4\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ +2\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 6\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+
\8fÕ
\8c\82\82Ì
\96_ <sup><a href="#misf3">3</a></sup>
\r+ </td><td>\r
+ -2\r
+ </td><td>\r
+ 1d4\r
+ </td><td>\r
+ -1\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 6\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr>\r
+</table>\r
+<p>\r
+<a name="misf1"></a>\r
+[1] \81u\82Ç\82±\82É\82Å\82à\82 \82é\81v\82±\82Æ\82É\92\8d\88Ó (\8c¾\82¢\8a·\82¦\82é\82Æ\8fí\82É\8f\\95ª\82È\92e\82ª\82 \82é)\r
+</p>\r
+<p>\r
+<a name="misf2"></a>\r
+[2] \89\8a\82É\82æ\82é\83_\83\81\81[\83W\82ª\92Ç\89Á\82³\82ê\82é\r
+</p>\r
+<p>\r
+<a name="misf3"></a>\r
+[3] \88ê\8e\9e\93I\82É\91Î\8fÛ\82ð\96\83á\83\82³\82¹\82é\r
+</p>\r
+\r
+<a name="toc54"></a>\r
+<h3>\r
+\93\8a\9d±\95\90\8aí\r
+</h3>\r
+<table>\r
+<tr class="header">\r
+ <td>\r
+ \96¼\8fÌ\r
+ </td><td>\r
+ \96½\92\86\r
+ </td><td>\r
+ \91Å\8c\82\r
+ </td><td>\r
+ \89ñ\94ð\r
+ </td><td>\r
+ \8eè\r
+ </td><td>\r
+ \8eË\92ö\r
+ </td><td>\r
+ \8fd\97Ê\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+
\89Î
\89\8a\83r
\83\93 <sup><a href="#throwf1">1</a></sup>
\r+ </td><td>\r
+ -1\r
+ </td><td>\r
+ 1d6\r
+ </td><td>\r
+ -2\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 4\r
+ </td><td>\r
+ 1\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \93\8a\91\84\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ 1d8\r
+ </td><td>\r
+ +1\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 4\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \89s\82¢\90Î\r
+ </td><td>\r
+ -2\r
+ </td><td>\r
+ 3d4+1\r
+ </td><td>\r
+ -2\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 5\r
+ </td><td>\r
+ 10\r
+ </td>\r
+</tr>\r
+</table>\r
+<p>\r
+<a name="throwf1"></a>\r
+[1] \88ê\8e\9e\93I\82É\92n\96Ê\82É\89\8a\82ð\8ec\82·\r
+</p>\r
+\r
+<a name="toc55"></a>\r
+<h3>\r
+\90Ú\8bß\90í\97p\95\90\8aí\r
+</h3>\r
+<table>\r
+<tr class="header">\r
+ <td>\r
+ \96¼\8fÌ\r
+ </td><td>\r
+ \96½\92\86\r
+ </td><td>\r
+ \91Å\8c\82\r
+ </td><td>\r
+ \89ñ\94ð\r
+ </td><td>\r
+ \8eè\r
+ </td><td>\r
+ \8eË\92ö\r
+ </td><td>\r
+ \8fd\97Ê\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \92Z\8c\95\r
+ </td><td>\r
+ 1d4\r
+ </td><td>\r
+ 1d4\r
+ </td><td>\r
+ 1d2\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 0\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +4 \92Z\8c\95\r
+ </td><td>\r
+ 1d4+4\r
+ </td><td>\r
+ 1d4+4\r
+ </td><td>\r
+ 1d2+4\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 0\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \92Æ\96µ\r
+ </td><td>\r
+ 1d4\r
+ </td><td>\r
+ 1d6+2\r
+ </td><td>\r
+ +0\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 3\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \95\80\r
+ </td><td>\r
+ 1d2\r
+ </td><td>\r
+ 2d3+2\r
+ </td><td>\r
+ +0\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 3\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \8c\95\r
+ </td><td>\r
+ 1d2\r
+ </td><td>\r
+ 1d8+1\r
+ </td><td>\r
+ 1d2\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +2 \8c\95\r
+ </td><td>\r
+ 1d2+2\r
+ </td><td>\r
+ 1d8+3\r
+ </td><td>\r
+ 1d2+2\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +4 \8c\95\r
+ </td><td>\r
+ 1d2+4\r
+ </td><td>\r
+ 1d8+5\r
+ </td><td>\r
+ 1d2+4\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \97¼\8eè\95\80\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ 4d3+2\r
+ </td><td>\r
+ -2\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 4\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \97¼\8eè\8c\95\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ 2d8+2\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 4\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \8eh\95t\82«\93S\8b\85\r
+ </td><td>\r
+ 1d2+2\r
+ </td><td>\r
+ 1d6+1\r
+ </td><td>\r
+ -1\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 3\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +2 \8eh\95t\82«\93S\8b\85\r
+ </td><td>\r
+ 1d2+4\r
+ </td><td>\r
+ 1d6+3\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 3\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \95\80\91\84\r
+ </td><td>\r
+ 1d3+1\r
+ </td><td>\r
+ 2d8-2\r
+ </td><td>\r
+ 1d2\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 4\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \8fñ\r
+ </td><td>\r
+ 1d3\r
+ </td><td>\r
+ 1d4\r
+ </td><td>\r
+ 1d3\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \95s\8bC\96¡\82È\90n\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 2d8+5\r
+ </td><td>\r
+ +0\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \90_\94é\82Ì\8c\95\r
+ </td><td>\r
+ +3\r
+ </td><td>\r
+ 1d10+5\r
+ </td><td>\r
+ +2\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 1\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \89\8a\82Ì\8c\95\r
+ </td><td>\r
+ 1d2\r
+ </td><td>\r
+ 1d10+3\r
+ </td><td>\r
+ 1d2\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr>\r
+</table>\r
+\r
+<a name="toc56"></a>\r
+<h3>\r
+\96h\8bï\r
+</h3>\r
+<table>\r
+<tr class="header">\r
+ <td>\r
+ \96¼\8fÌ\r
+ </td><td>\r
+ \96½\92\86\r
+ </td><td>\r
+ \91Å\8c\82\r
+ </td><td>\r
+ \96h\8cä\r
+ </td><td>\r
+ \89ñ\94ð\r
+ </td><td>\r
+ \8fd\97Ê\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \94ç\8a\95\r
+ </td><td>\r
+ -1\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 1d2\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 0\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +2 \94ç\8a\95\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 1d2+2\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 0\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +4 \94ç\8a\95\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 1d2+4\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 0\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \8d½\93ª\8bÐ\r
+ </td><td>\r
+ -1\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 1d3\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 1\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +4 \8d½\93ª\8bÐ\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 1d3+4\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 1\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \93S\8a\95\r
+ </td><td>\r
+ -1\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 1d4\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +4 \93S\8a\95\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 1d4+4\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \94ç\8aZ\r
+ </td><td>\r
+ -1\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 1d4\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +2 \94ç\8aZ\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 1d4+2\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +4 \94ç\8aZ\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 1d4+4\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \8d½\82©\82ç\82Ñ\82ç\r
+ </td><td>\r
+ -2\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 2d4\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 4\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +4 \8d½\82©\82ç\82Ñ\82ç\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 2d4+4\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 4\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \8db\99h\r
+ </td><td>\r
+ -4\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 4d4\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 8\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +4 \8db\99h\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 4d4+4\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 8\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \8f¬\8c^\82Ì\8f\82\r
+ </td><td>\r
+ -1\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ 2\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ +4 \8f¬\8c^\82Ì\8f\82\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ -\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ 6\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \8eh\95t\82«\8f\82\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ 1d5\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ 1\r
+ </td><td>\r
+ 3\r
+ </td>\r
+</tr><tr>\r
+ <td>\r
+ \8eh\95t\82«\8a\95\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ 1d4\r
+ </td><td>\r
+ 3\r
+ </td><td>\r
+ 0\r
+ </td><td>\r
+ 2\r
+ </td>\r
+</tr> \r
+</table>\r
+\r
+<a name="toc57"></a>\r
+<h2>\r
+\92\8d\8eß\r
+</h2>\r
+<p>\r
+<a name="f1"></a>\r
+[1] \82 \82 \81A\82¾\82ª\81A\82Ü\82¾\8eÀ\91\95\82³\82ê\82Ä\82¢\82È\82¢\81B\r
+</p>\r
+<a name="f2"></a>\r
+<p>\r
+[2] \8e\84\82Í\81u\83J\81[\83l\83\8b\81v\82Æ\82¢\82¤\8cÄ\82Ñ\96¼\82ð\8dD\82Þ\81B\r
+\82±\82¿\82ç\82Ì\95û\82ª\8ai\8dD\82ª\82æ\82\81A\83\8a\81[\83i\83X\81E\83g\81[\83o\83\8b\83X\82à\8e\84\82à\93¯\82¶\90¢\91ã\82Å\81A\83J\81[\83l\83\8b\82ð\8dì\82Á\82½\82Æ\82¢\82¤\93_\82Å\8e\84\82à\95\89\82¯\82Ä\82¢\82È\82¢\8bC\82ª\82·\82é\81B\r
+</p>\r
+<p>\r
+--gmcnutt (gmcnutt@cableone.net)\r
+</p>\r
+</body>\r
+</html>\r
+++ /dev/null
-/advancement.rogue.txt/1.1/Thu Sep 2 05:52:22 2004//
-/advancement.warrior.txt/1.1/Thu Sep 2 05:52:22 2004//
-/advancement.wizard.txt/1.1/Thu Sep 2 05:52:22 2004//
-/advancement.wright.txt/1.1/Thu Sep 2 05:52:22 2004//
-/being_tile_media.txt/1.3/Thu Sep 2 05:52:22 2004//
-/music_loop_media.txt/1.2/Thu Sep 2 05:52:22 2004//
-/sound_sample_media.txt/1.3/Tue Jan 23 08:32:14 2007//
-/town_scale_tile_media.txt/1.2/Thu Sep 2 05:52:22 2004//
-/wilderness_scale_tile_media.txt/1.2/Thu Sep 2 05:52:22 2004//
-D
+++ /dev/null
-nazghul/doc/world_building
+++ /dev/null
-:ext:gmcnutt@nazghul.cvs.sourceforge.net:/cvsroot/nazghul
[Desktop Entry]
Encoding=UTF-8
-Name=Haxima
+Name=Haxima日本語版
GenericName=Role Playing Game
-Comment=An old school role playing game
+Comment=昔懐かしいロールプレイングゲーム
Exec=haxima
Icon=haxima.png
Terminal=false
+++ /dev/null
-/haxima.ico/1.2/Fri Jan 26 22:42:48 2007//
-/haxima.png/1.2/Fri Jan 26 22:42:48 2007//
-/haxima.xcf/1.2/Fri Jan 26 22:42:48 2007//
-D
+++ /dev/null
-nazghul/icons
+++ /dev/null
-:ext:gmcnutt@nazghul.cvs.sourceforge.net:/cvsroot/nazghul
if (!missile->hitTarget() || !missile->getStruck())
return false;
- log_begin("%s hit ", getName());
+ log_begin("%s¤Ï", getName());
missile->getStruck()->describe();
- log_end("!");
+ log_end("¤ËÌ¿Ã椷¤¿¡ª");
// Reference the object while damaging it, since damage can remove it
// from the map.
missile->getStruck()->damage(dice_roll(damageDice));
if (missile->getStruck()->isDestroyed()) {
- log_begin("%s destroyed ", getName());
+ log_begin("%s¤Ï", getName());
missile->getStruck()->describe();
- log_end("!");
+ log_end("¤òÅݤ·¤¿¡ª");
mapSetDirty();
}
{
assert(Session->subject);
const char *diplstr = diplomacy_string(this, Session->subject);
- if (isvowel(diplstr[0]))
- log_continue("an ");
- else
- log_continue("a ");
-
- log_continue("%s %s", diplstr, getName());
-
if (vehicle) {
- log_continue(" in ");
vehicle->describe();
+ log_continue("¤Ë¾è¤Ã¤¿¡£");
}
+ log_continue("%s¤Ê%s", diplstr, getName());
}
static bool member_examine(class Character *member, void *data)
}
// The player has to choose. Poke the list into the status state.
- statusSetGenericList("Choose Speaker", list_sz, statlist);
+ statusSetGenericList("Ïä¹Áê¼ê", list_sz, statlist);
// Switch the status mode over to list selection.
statusSetMode(GenericList);
// Push the handler and wait for the player to make a selection.
eventPushKeyHandler(&kh);
- cmdwin_spush("<select>");
+ cmdwin_spush("<ÁªÂò>");
eventHandle();
cmdwin_pop();
eventPopKeyHandler();
Uint32 color; /* active color */
} Ascii;
+static struct ascii Kanji;
+
static Uint32 asciiDecodeColor(char clr)
{
switch (clr) {
int asciiInit(void)
{
char *fname = cfg_get("ascii-image-filename");
+ char *kanji_fname = cfg_get("kanji-image-filename");
/* This lib might be unitialized twice: once early in startup so that
* error messages can be displayed, and again later after the
Ascii.state = ASCII_STATE_DEF;
Ascii.i_color = 0;
Ascii.color = ASCII_DEF_CLR;
+
+ if (Kanji.images) {
+ images_del(Kanji.images);
+ Kanji.images = 0;
+ }
+ if (kanji_fname) {
+ Kanji.images = images_new(0, 16, 16, 94, 94, 0, 0, kanji_fname);
+ } else {
+ Kanji.images = ascii_load_fixed_charset();
+ }
+ assert(Kanji.images);
return 0;
}
return len;
}
+
+static void kanjiPaintColored(int jis, int x, int y,
+ SDL_Surface *surf, Uint32 color)
+{
+ SDL_Rect dest;
+ SDL_Rect src;
+ int row;
+ int col;
+
+ assert(Kanji.images);
+
+ col = (jis & 0xff) - 0x21;
+ row = (jis >> 8) - 0x21;
+
+ src.x = (col * ASCII_W * 2) + Kanji.images->offx;
+ src.y = (row * ASCII_H) + Kanji.images->offy;
+ src.w = ASCII_W * 2;
+ src.h = ASCII_H;
+
+ dest.x = x;
+ dest.y = y;
+ dest.w = ASCII_W * 2;
+ dest.h = ASCII_H;
+
+ asciiBlitColored(Kanji.images->images, &src,
+ surf, &dest,
+ color);
+}
+
+static void kanjiPaintDefault(int jis, int x, int y,
+ SDL_Surface * surf)
+{
+ SDL_Rect dest;
+ SDL_Rect src;
+ int row;
+ int col;
+
+ assert(Kanji.images);
+
+ col = (jis & 0xff) - 0x21;
+ row = (jis >> 8) - 0x21;
+
+ src.x = (col * ASCII_W * 2) + Kanji.images->offx;
+ src.y = (row * ASCII_H) + Kanji.images->offy;
+ src.w = ASCII_W * 2;
+ src.h = ASCII_H;
+
+ dest.x = x;
+ dest.y = y;
+ dest.w = ASCII_W * 2;
+ dest.h = ASCII_H;
+
+ SDL_BlitSurface(Kanji.images->images, &src, surf, &dest);
+}
+
+int kanjiPaint(int c, int x, int y, SDL_Surface * surf)
+{
+ unsigned int jis;
+ int ret = 0;
+
+ switch (Ascii.state) {
+
+ case ASCII_STATE_CLR:
+ asciiSetColor(c);
+ Ascii.state = ('+'==c?ASCII_STATE_CLRPUSH:ASCII_STATE_DEF);
+ break;
+
+ case ASCII_STATE_CLRPUSH:
+ asciiSetColor(c);
+ Ascii.state = ASCII_STATE_DEF;
+ break;
+
+ case ASCII_STATE_ESC:
+ if (c == 'c') {
+ Ascii.state = ASCII_STATE_CLR;
+ }
+ break;
+
+ case ASCII_STATE_DEF:
+ default:
+ if (c == '^') {
+ Ascii.state = ASCII_STATE_ESC;
+ } else {
+ jis = c & 0x7f7f;
+
+ if(ASCII_DEF_CLR==Ascii.color) {
+ kanjiPaintDefault(jis, x, y, surf);
+ } else {
+ kanjiPaintColored(jis, x, y, surf, Ascii.color);
+ }
+ ret = 1;
+ }
+ }
+
+ return ret;
+}
* sequence
*/
extern int asciiPaint(char c, int x, int y, SDL_Surface * surface);
+extern int kanjiPaint(int c, int x, int y, SDL_Surface * surface);
/**
* Get the length of a string NOT including the font and color control
void Character::taskPromptToAbort()
{
cmdwin_clear();
- log_continue("^c+y%s damaged - abort task?^c-\n", getName());
+ log_continue("^c+y%s¤ÏÉé½ý¤·¤¿ - ºî¶È¤òÃæÃǤ¹¤ë¤«¡©^c-\n", getName());
log_flush();
- cmdwin_spush("Abort");
- cmdwin_spush("(Y/N/Ignore)");
+ cmdwin_spush("̾̂");
+ cmdwin_spush("(Y/N/I:̵»ë)");
int key;
getkey(&key, yes_no_ignore);
cmdwin_pop();
switch (key) {
case 'y':
taskAbort();
- cmdwin_spush("abort!");
+ cmdwin_spush("ÃæÃÇ¡ª");
break;
case 'i':
taskInterruptOnDamage = false;
- cmdwin_spush("ignore");
+ cmdwin_spush("̵»ë");
break;
case 'n':
default:
- cmdwin_spush("no");
+ cmdwin_spush("¤¤¤¤¤¨");
break;
}
}
const char *Character::getWoundDescription()
{
static const char *desc[] = {
- "Critical",
- "Heavily wounded",
- "Moderately wounded",
- "Barely wounded",
- "Unscathed"
+ "Éλà¤Î¾õÂÖ¤À",
+ "½Å½ý¤òÉé¤Ã¤Æ¤¤¤ë",
+ "Éé½ý¤·¤Æ¤¤¤ë",
+ "·Ú½ý¤òÉé¤Ã¤Æ¤¤¤ë",
+ "̵½ý¤À"
};
if (isDead())
- return "Killed";
+ return "¤È¤É¤á¤ò»É¤·¤¿";
if (isFleeing())
- return "Fleeing";
+ return "ƨ¤²½Ð¤·¤¿";
return desc[(getHp() * 4) / getMaxHp()];
return desc[(getHp() * 4) / getMaxHp()];
&& ! isResting()
&& ! isDead()) {
changeSleep(false);
- log_msg("%s wakes up!", getName());
+ log_msg("%s¤ÏÌܤ¬³Ð¤á¤¿¡ª", getName());
}
}
}
if (isPlayerControlled()) {
- log_msg("%s has fallen!!", getName());
+ log_msg("%s¤ÏÅݤ줿¡ª¡ª", getName());
}
hp = 0;
assert(ie->ref <= ie->count);
if (ie->ref == ie->count) {
unready(weapon);
- log_msg("%s : %s now out of ammo\n",
+ log_msg("%s : %s¤ÏÃÆÀÚ¤ì\n",
getName(), weapon->getName());
}
takeOut(weapon, 1);
xp += amount;
if (xp >= getXpForLevel(getLevel()+1)) {
lvl++;
- log_banner("^c+b%s^c- gains level ^c+g%d^c-!", getName(), lvl);
+ log_banner("^c+b%s^c-¤Î¥ì¥Ù¥ë¤¬^c+g%d^c-¤Ë¾å¤¬¤Ã¤¿¡ª", getName(), lvl);
if (isPlayerControlled()) {
mapFlash(1000);
}
{
if (Session->subject) {
const char *diplstr = diplomacy_string(this, Session->subject);
- if (isvowel(diplstr[0]))
- log_continue("an");
- else
- log_continue("a");
- log_continue(" %s", diplstr);
- } else {
- log_continue("an");
+ log_continue("%s¤Ê", diplstr);
}
- log_continue(" L%d", getLevel());
+ log_continue("¥ì¥Ù¥ë%d¤Î", getLevel());
if (isKnown()) {
- log_continue(" %s", getName());
+ log_continue("%s", getName());
} else {
if (species && species->name) {
- log_continue(" %s", species->name);
+ log_continue("%s", species->name);
+ if (occ && occ->name) {
+ log_continue("¤Î");
+ }
}
if (occ && occ->name) {
- log_continue(" %s", occ->name);
+ log_continue("%s", occ->name);
}
}
if (!isVisible())
- log_continue(" (invisible)");
+ log_continue("(ÉԲĻë)");
if (isSubmerged()) {
- log_continue(" (submerged)");
+ log_continue("(±£ÊÃ)");
}
}
int n = 0;
const char *diplstr = diplomacy_string(this, Session->subject);
- log_continue("%s level %d", diplstr, getLevel());
+ log_continue("%s¤Ê¥ì¥Ù¥ë%d¤Î", diplstr, getLevel());
if (isKnown()) {
- log_continue(" %s,", getName());
+ log_continue("%s", getName());
} else {
if (species && species->name) {
- log_continue(" %s", species->name);
+ log_continue("%s", species->name);
+ if (occ && occ->name) {
+ log_continue("¤Î");
+ }
}
if (occ && occ->name) {
- log_continue(" %s", occ->name);
+ log_continue("%s", occ->name);
}
}
- log_continue(" %s [", getWoundDescription());
+ log_continue("¡¢%s¡£[", getWoundDescription());
for (ArmsType *arms = enumerateArms(&i); arms;
arms = getNextArms(&i)) {
if (n > 0) {
- log_continue(", ");
+ log_continue("¡¢");
}
log_continue("%s", arms->getName());
n++;
}
if (!n) {
- log_continue("no arms");
+ log_continue("ÉðÁõ¤·¤Æ¤¤¤Ê¤¤");
}
log_continue("]");
void Character::burn()
{
damage(DAMAGE_FIRE);
- log_msg("%s burning-%s!", getName(), getWoundDescription());
+ log_msg("%s¤Ï±ê¤ËÊñ¤Þ¤ì¤Æ¤¤¤ë-%s!", getName(), getWoundDescription());
}
void Character::sleep()
return;
changeSleep(true);
- log_msg("%s sleeping!", getName());
+ log_msg("%s¤Ï̲¤Ã¤Æ¤¤¤ë¡ª", getName());
}
bool Character::canSee(class Object *obj)
{
struct appt *curAppt = &sched->appts[appt];
- log_msg("Kicked out of bed!");
+ log_msg("¤¿¤¿¤µ¯¤³¤µ¤ì¤¿¡ª");
player_party->throw_out_of_bed();
// now switch places with whoever is in bed
endResting();
} else {
log_begin_group();
- log_msg("Done resting...");
+ log_msg("µÙ©¤ò½ª¤¨¤¿¡Ä");
endResting();
if (player_party->isCamping())
vehicle->getMaxHp() /
10);
foogodRepaint();
- log_begin("%s repairs ", getName());
+ log_begin("%s¤Ï", getName());
vehicle->describe();
- log_end(".");
+ log_end("¤ò½¤Íý¤·¤¿¡£");
}
clock_alarm_set(&rest_alarm, 60);
}
endLoitering();
} else {
log_begin_group();
- log_msg("Done loitering...");
+ log_msg("¤¦¤í¤Ä¤¯¤Î¤ò»ß¤á¤¿¡Ä");
endLoitering();
if (player_party->isLoitering())
// Update name in foogod window
if (PARTY_CONTROL_ROUND_ROBIN == player_party->getPartyControlMode()) {
- foogod_set_title("Round Robin: %s", getName());
+ foogod_set_title("%s: %s", "½çÈÖ", getName());
foogodRepaint();
}
case CONTROL_MODE_TASK:
assert(taskproc);
if (isPlayerControlled()) {
- log_msg("%s continues %s...", getName(), getTaskName());
+ log_msg("%s¤Ï%s¤ò³¤±¤Æ¤¤¤ë¡Ä", getName(), getTaskName());
}
closure_exec(taskproc, "pl", this, taskgob->p);
break;
solo = val;
attachCamera(true);
setControlMode(CONTROL_MODE_PLAYER);
- log_msg("%s goes solo.", getName());
+ log_msg("%s¤ÏñÆȤǹÔÆ°¤¹¤ë¡£", getName());
mapCenterCamera(getX(), getY());
mapSetDirty();
} else {
unreadyAll();
player_party->removeMember(this);
- log_msg("%s leaves the party", getName());
+ log_msg("%s¤ÏÃç´Ö¤«¤éÎ¥¤ì¤¿¡£", getName());
if (wasLeader) {
player_party->enableFollowMode();
}
}
if (player_party->getPartyControlMode() != PARTY_CONTROL_FOLLOW) {
- log_msg("Exit - must be in follow mode!");
+ log_msg("æ½Ð - ÄÉÀ×Ãæ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡ª");
return false;
}
return false;
if (!player_party->rendezvous(getPlace(), getX(), getY())) {
- log_msg("Exit - party can't rendezvous!");
+ log_msg("æ½Ð - Ãç´Ö¤È½¸¹ç¤·¤Æ¤¤¤Ê¤¤¡ª");
return false;
}
void Character::taskAbort()
{
- log_msg("%s aborts %s!", getName(), getTaskName());
+ log_msg("%s¤Ï%s¤òÃæÃǤ·¤¿¡ª", getName(), getTaskName());
taskCleanup();
}
void Character::taskBegin(char *name_arg, struct closure *proc_arg, struct gob *gob_arg)
{
taskSetup(name_arg, proc_arg, gob_arg);
- log_msg("%s begins %s.", getName(), getTaskName());
+ log_msg("%s¤Ï%s¤ò»Ï¤á¤¿¡£", getName(), getTaskName());
endTurn();
}
void Character::taskContinue(char *name_arg, struct closure *proc_arg, struct gob *gob_arg)
{
if (isPlayerControlled()) {
- log_msg("%s continues %s.", getName(), getTaskName());
+ log_msg("%s¤Ï%s¤ò³¤±¤Æ¤¤¤ë¡£", getName(), getTaskName());
}
taskSetup(name_arg, proc_arg, gob_arg);
void Character::taskEnd()
{
- log_msg("%s completes %s!", getName(), getTaskName());
+ log_msg("%s¤Ï%s¤ò½ª¤¨¤¿¡ª", getName(), getTaskName());
taskCleanup();
}
char *time_HHMM_as_string(void)
{
- static char str[] = "HH:MMPM";
- static int maxlen = strlen("HH:MMPM") + 1;
+ static char str[] = "¸á¸åHH»þMMʬ";
+ static int maxlen = strlen("¸áÁ°HH»þMMʬ") + 1;
int hr = Clock.hour;
int min = Clock.min;
int n;
hr = (hr > 12) ? (hr - 12) : hr;
hr = (hr == 0) ? 12 : hr;
- n = snprintf(str, maxlen, "%2d:%02d%2s",
- hr, min, (Clock.hour >= 12) ? "PM" : "AM");
+ n = snprintf(str, maxlen, "%s%2d»þ%2dʬ",
+ (Clock.hour >= 12) ? "¸á¸å": "¸áÁ°", hr, min);
assert(n != -1);
return str;
} // time_HHMM_as_string()
char *vague_time_as_string(void)
{
- static char str[] = "late afternoon";
- static int maxlen = strlen("late afternoon") + 1;
+ static char str[] = "ͼÊý";
+ static int maxlen = strlen("ͼÊý") + 1;
int hr = Clock.hour;
int n;
if (hr < 4)
{
- n = snprintf(str, maxlen, "night");
+ n = snprintf(str, maxlen, "Ìë");
}
else if (hr < 7)
{
- n = snprintf(str, maxlen, "early morning");
+ n = snprintf(str, maxlen, "ÁáÄ«");
}
else if (hr < 11)
{
- n = snprintf(str, maxlen, "morning");
+ n = snprintf(str, maxlen, "ī");
}
else if (hr < 13)
{
- n = snprintf(str, maxlen, "noon");
+ n = snprintf(str, maxlen, "¸áÁ°");
}
else if (hr < 15)
{
- n = snprintf(str, maxlen, "afternoon");
+ n = snprintf(str, maxlen, "¸á¸å");
}
else if (hr < 18)
{
- n = snprintf(str, maxlen, "late afternoon");
+ n = snprintf(str, maxlen, "ͼÊý");
}
else if (hr < 20)
{
- n = snprintf(str, maxlen, "evening");
+ n = snprintf(str, maxlen, "ÈÕ");
}
else
{
- n = snprintf(str, maxlen, "night");
+ n = snprintf(str, maxlen, "Ìë");
}
assert(n != -1);
return str;
int month = Clock.month;
switch (month) {
case 0:
- return "1st Month";
+ return "1·î";
case 1:
- return "2nd Month";
+ return "2·î";
case 2:
- return "3rd Month";
+ return "3·î";
case 3:
- return "4th Month";
+ return "4·î";
case 4:
- return "5th Month";
+ return "5·î";
case 5:
- return "6th Month";
+ return "6·î";
case 6:
- return "7th Month";
+ return "7·î";
case 7:
- return "8th Month";
+ return "8·î";
case 8:
- return "9th Month";
+ return "9·î";
case 9:
- return "10th Month";
+ return "10·î";
case 10:
- return "11th Month";
+ return "11·î";
case 11:
- return "12th Month";
+ return "12·î";
default:
assert(0);
}
int week = Clock.week;
switch (week) {
case 0:
- return "1st Week";
+ return "Âè1½µ";
case 1:
- return "2nd Week";
+ return "Âè2½µ";
case 2:
- return "3rd Week";
+ return "Âè3½µ";
case 3:
- return "4th Week";
+ return "Âè4½µ";
default:
assert(0);
}
int day = Clock.day;
switch (day) {
case 0:
- return "1st Day";
+ return "Âè1ÍËÆü";
case 1:
- return "2nd Day";
+ return "Âè2ÍËÆü";
case 2:
- return "3rd Day";
+ return "Âè3ÍËÆü";
case 3:
- return "4th Day";
+ return "Âè4ÍËÆü";
case 4:
- return "5th Day";
+ return "Âè5ÍËÆü";
case 5:
- return "6th Day";
+ return "Âè6ÍËÆü";
case 6:
- return "7th Day";
+ return "Âè7ÍËÆü";
default:
assert(0);
}
kh.data = ≻
eventPushKeyHandler(&kh);
- cmdwin_push("<select>");
+ cmdwin_push("<ÁªÂò>");
eventHandle();
cmdwin_pop();
eventPopKeyHandler();
ie = (struct inv_entry *) sc.selection;
if (ie == NULL) {
- cmdwin_push("none!");
+ cmdwin_push("²¿¤â¤·¤Ê¤¤¡ª");
return NULL;
}
kh.data = ≻
eventPushKeyHandler(&kh);
- cmdwin_push("<select>");
+ cmdwin_push("<ÁªÂò>");
eventHandle();
cmdwin_pop();
eventPopKeyHandler();
character = (class Character *) sc.selection;
if (character == NULL) {
- cmdwin_push("none!"); /* fixme: move to cmd_front_end? */
+ cmdwin_push("²¿¤â¤·¤Ê¤¤¡ª"); /* fixme: move to cmd_front_end? */
/* Hack alert: this saves the caller from having to remember to
* do this. Doing it unconditionally is undesirable because it
* can cause status screen flashes if the old mode requires a
int ui_get_direction(void)
{
int dir;
- cmdwin_push("<direction>");
+ cmdwin_push("<Êý¸þ>");
getkey(&dir, dirkey);
cmdwin_pop();
if (dir == CANCEL) {
- cmdwin_push("none!");
+ cmdwin_push("²¿¤â¤·¤Ê¤¤¡ª");
} else {
cmdwin_spush(directionToString(dir));
}
struct place *place = 0;
cmdwin_clear();
- cmdwin_spush("Search");
+ cmdwin_spush("õ¤¹");
/* FIXME: this is duplicated in cmdHandle(), these command functions
* all need to be cleaned up to ensure consistency. */
place_for_each_object_at(place, x2, y2, search_visitor, pc);
obj_dec_ref(pc);
- log_begin("You find ");
+ log_begin("");
old_reveal = Reveal;
Reveal = true;
place_describe(place, x2, y2, PLACE_DESCRIBE_ALL);
- log_end(".");
+ log_end("¤ò¸«¤Ä¤±¤¿¡£");
Reveal = old_reveal;
pc->decActionPoints(kern_intvar_get("AP_COST:search")); // SAM: We may want a '-1' value here, to signify "all remaining AP"...
int x, y;
cmdwin_clear();
- cmdwin_spush("Get");
+ cmdwin_spush("¼è¤ë");
dir = ui_get_direction();
item = place_get_filtered_object(actor->getPlace(), x, y,
cmdGetFilter);
if (!item) {
- log_msg("Get - nothing there!");
+ log_msg("¼è¤ë - ²¿¤â¤Ê¤¤¡ª");
return false;
}
class Container *container;
cmdwin_clear();
- cmdwin_spush("Open");
+ cmdwin_spush("³«¤¯");
// Get the party member who will open the container (in combat mode
// this is passed in as a parameter).
struct KeyHandler kh;
struct ScrollerContext data;
- cmdwin_push("<select>");
+ cmdwin_push("<ÁªÂò>");
statlist[0].sprite = mech->getSprite();
snprintf(statlist[0].line1, sizeof(statlist[0].line1), "%s",
foogodSetHintText(SCROLLER_HINT);
foogodSetMode(FOOGOD_HINT);
omode = statusGetMode();
- statusSetGenericList("Choose Target", 2, statlist);
+ statusSetGenericList("ÂоÝ", 2, statlist);
statusSetMode(GenericList);
data.selection = NULL;
/* Nothing to open */
if (NULL == container) {
- cmdwin_push("abort!");
- log_msg("Open - nothing there!");
+ cmdwin_push("Ãæ»ß¡ª");
+ log_msg("³«¤¯ - ²¿¤â¤Ê¤¤¡ª");
return false;
}
cmdwin_push("%s!", container->getName());
// Describe the contents of the container.
- log_msg("You find:");
+ log_msg("¸«¤Ä¤±¤¿¤â¤Î:");
container->forEach(cmd_describe_inv_entry, NULL);
// Open the container (automagically spills all the contents onto the
eventPushQuitHandler(&qh);
cmdwin_clear();
- cmdwin_spush("Quit");
+ cmdwin_spush("½ªÎ»¤¹¤ë");
cmdwin_spush("<y/n>");
getkey(&yesno, yesnokey);
cmdwin_pop();
/* Cancel quit? */
if (yesno == 'n') {
- cmdwin_spush("abort!");
+ cmdwin_spush("Ãæ»ß¡ª");
Quit = false;
goto pop_qh;
}
- cmdwin_spush("save");
+ cmdwin_spush("Êݸ¤¹¤ë");
cmdwin_spush("<y/n>");
getkey(&yesno, yesnokey);
cmdwin_pop();
/* Don't save? */
if (yesno == 'n') {
- cmdwin_spush("not saving!");
+ cmdwin_spush("Êݸ¤·¤Ê¤¤¡ª");
Quit = true;
goto pop_qh;
}
if (cmdSave()) {
- cmdwin_spush("saved!");
- log_msg("Goodbye!\n");
+ cmdwin_spush("Êݸ¤·¤¿¡ª");
+ log_msg("¤µ¤è¤¦¤Ê¤é¡ª\n");
Quit = true;
} else {
Quit = false;
// Get the direction
cmdwin_clear();
- cmdwin_spush("Attack");
- cmdwin_spush("<direction>");
+ cmdwin_spush("¹¶·â¤¹¤ë");
+ cmdwin_spush("<Êý¸þ>");
getkey(&dir, cardinaldirkey);
cmdwin_pop();
if (dir == CANCEL) {
- cmdwin_spush("none!");
+ cmdwin_spush("²¿¤â¤·¤Ê¤¤¡ª");
return;
}
cmdwin_spush("%s", directionToString(dir));
info.npc_party = place_get_Party(info.place, info.x, info.y);
if (info.npc_party == NULL) {
- cmdwin_spush("nobody there!");
- log_msg("Attack - nobody there!");
+ cmdwin_spush("ï¤â¤¤¤Ê¤¤¡ª");
+ log_msg("¹¶·â¤¹¤ë - ï¤â¤¤¤Ê¤¤¡ª");
return;
}
info.px = player_party->getX();
// If the npc is not hostile then get player confirmation.
if (! are_hostile(info.npc_party, player_party)) {
int yesno;
- cmdwin_spush("attack non-hostile");
+ cmdwin_spush("Ũ¤Ç¤Ê¤¤¼Ô¤ò¹¶·â¤¹¤ë");
cmdwin_spush("<y/n>");
getkey(&yesno, yesnokey);
cmdwin_pop();
if (yesno == 'n') {
- cmdwin_spush("no");
+ cmdwin_spush("¤¤¤¤¤¨");
return;
}
- cmdwin_spush("yes");
+ cmdwin_spush("¤Ï¤¤");
make_hostile(info.npc_party, player_party);
}
// Log the attack.
- log_begin("You attack ");
+ log_begin("");
info.npc_party->describe();
- log_end(".");
+ log_end("¤ò¹¶·â¤·¤¿¡£");
// Enter combat
combat_enter(&cinfo);
int dir;
cmdwin_clear();
- cmdwin_spush("Fire");
+ cmdwin_spush("ˤ·â¤¹¤ë");
class Vehicle *vehicle = player_party->getVehicle();
if ((!vehicle ||
// SAM:
// In future, we may check for adjacent "cannon"
// mechanisms here (as in U5).
- cmdwin_spush("No cannons available!");
- log_msg("Fire - no cannons!");
+ cmdwin_spush("ˤ·â¤Ç¤¤Ê¤¤¡ª");
+ log_msg("ˤ·â¤¹¤ë - Âçˤ¤¬¤Ê¤¤¡ª");
return;
}
cmdwin_spush("%s", vehicle->getOrdnance()->getName());
- cmdwin_spush("<direction>");
+ cmdwin_spush("<Êý¸þ>");
getkey(&dir, dirkey);
cmdwin_pop();
if (dir == CANCEL) {
- cmdwin_spush("none!");
+ cmdwin_spush("²¿¤â¤·¤Ê¤¤¡ª");
return;
}
if (! vehicle->fire_weapon(directionToDx(dir),
directionToDy(dir),
player_party)) {
- cmdwin_spush("Not a broadside!");
- log_msg("Fire - not a broadside!");
+ cmdwin_spush("¦ÌÌÊý¸þ¤Ç¤Ê¤¤¡ª");
+ log_msg("ˤ·â¤¹¤ë - ¦ÌÌÊý¸þ¤Ç¤Ê¤¤¡ª");
return;
}
}
const char *msg = 0;
cmdwin_clear();
- cmdwin_spush("Ready");
+ cmdwin_spush("ÁõÈ÷¤¹¤ë");
// Select user
if (member) {
return false;
if (member->isCharmed()) {
- cmdwin_push("Charmed!");
- log_msg("Ready - charmed!");
+ cmdwin_push("ËâË¡¤¬¤«¤±¤é¤ì¤Æ¤¤¤ë¡ª");
+ log_msg("ÁõÈ÷¤¹¤ë - ËâË¡¤¬¤«¤±¤é¤ì¤Æ¤¤¤ë¡ª");
return false;
}
}
log_begin_group();
- log_msg("%s readies arms:", member->getName());
+ log_msg("%s¤ÎÁõÈ÷:", member->getName());
statusSelectCharacter(member->getOrder());
kh.data = ≻
eventPushKeyHandler(&kh);
- cmdwin_spush("<select/ESC>");
+ cmdwin_spush("<ÁªÂò/ESC>");
for (;;) {
ie = (struct inv_entry *) sc.selection;
if (ie == NULL) {
- cmdwin_spush("done!");
+ cmdwin_spush("½ª¤¨¤¿¡ª");
break;
}
log_begin("%s - ", arms->getName());
if (ie->ref && member->unready(arms)) {
- msg = "unreadied!";
+ msg = "³°¤·¤¿¡ª";
member->decActionPoints(arms->getRequiredActionPoints());
statusRepaint();
} else {
switch (member->ready(arms)) {
case Character::Readied:
statusRepaint();
- msg = "readied!";
+ msg = "ÁõÈ÷¤·¤¿¡ª";
member->decActionPoints(arms->getRequiredActionPoints());
/* Move the readied item to the front of the
* list for easy access next time, and to
//statusSetMode(Ready);
break;
case Character::NoAvailableSlot:
- msg = "all full!";
+ msg = "»ý¤Á¤¤ì¤Ê¤¤¡ª";
break;
case Character::WrongType:
- msg = "can't use!";
+ msg = "»È¤¨¤Ê¤¤¡ª";
break;
case Character::TooHeavy:
- msg = "too heavy!";
+ msg = "½Å¤¹¤®¤ë¡ª";
break;
default:
assert(false);
eventPushMouseButtonHandler(&mbh);
eventPushKeyHandler(&kh);
- cmdwin_spush("<target> (ESC to exit)");
+ cmdwin_spush("<ÂоÝ> (ESC¤ÇÃæ»ß)");
eventHandle();
cmdwin_pop();
eventPopKeyHandler();
mapSetDirty();
if (data.abort) {
- cmdwin_spush("Done.");
+ cmdwin_spush("½ª¤¨¤¿¡£");
return -1;
}
int y;
cmdwin_clear();
- cmdwin_spush("Handle");
+ cmdwin_spush("Áàºî¤¹¤ë");
if (pc) {
// A party member was specified as a parameter, so this must be
|| ! mech->getObjectType()->canHandle()
|| (! mech->isVisible()
&& ! Reveal)) {
- cmdwin_spush("nothing!");
- log_msg("Handle - nothing there to handle!");
+ cmdwin_spush("²¿¤â¤Ê¤¤¡ª");
+ log_msg("Áàºî¤¹¤ë - ²¿¤â¤Ê¤¤¡ª");
return false;
}
// remain hidden from x)amine and s)earch commands)
const char *mechName=mech->getName();
if (!mechName) {
- mechName = "a hidden mechanism";
+ mechName = "±£¤µ¤ì¤¿ÁõÃÖ";
}
cmdwin_spush("%s", mechName);
- log_msg("%s handles %s", pc->getName(), mechName);
+ log_msg("%s¤Ï%s¤òÁàºî¤·¤¿¡£", pc->getName(), mechName);
mech->getObjectType()->handle(mech, pc);
pc->runHook(OBJ_HOOK_HANDLE_DONE, "p", mech);
pc->decActionPoints(kern_intvar_get("AP_COST:handle_mechanism"));
int result;
cmdwin_clear();
- cmdwin_spush("Use");
+ cmdwin_spush("»È¤¦");
// Select user
if (flags & CMD_SELECT_MEMBER) {
assert(0);
break;
case 1:
- log_msg("New Order - only one party member!");
+ log_msg("½ç½ø - ¤¢¤Ê¤¿¤·¤«¤¤¤Ê¤¤¡ª");
return;
case 2:
pc1 = player_party->getMemberByOrder(0);
}
cmdwin_clear();
- cmdwin_spush("Switch");
+ cmdwin_spush("Æþ¤ìÂؤï¤ë");
// Set the mode now - before calling select_party_member - so that the
// screen will not flash back to a short status window between the two
return;
}
- cmdwin_spush("with");
+ cmdwin_spush("¤È");
pc2 = select_party_member();
if (pc2 == NULL) {
swap:
player_party->switchOrder(pc1, pc2);
- log_msg("New Order: %s switched with %s\n", pc1->getName(),
+ log_msg("½ç½ø: %s¤Ï%s¤ÈÆþ¤ìÂؤï¤Ã¤¿¡£", pc1->getName(),
pc2->getName());
// If one of the switched members was the party leader then make the
// *** Prompt user & check if valid ***
cmdwin_clear();
- cmdwin_spush("Talk");
+ cmdwin_spush("Ïä¹");
if (! member) {
member = select_party_member();
obj = place_get_object(Place, x, y, being_layer);
if (!obj) {
- cmdwin_spush("nobody there!");
- log_msg("Try talking to a PERSON.");
+ cmdwin_spush("ï¤â¤¤¤Ê¤¤¡ª");
+ log_msg("¿Í¤ÈÏ乤褦¤Ë¡ª");
goto cleanup;
}
// speaker is not the party itself.
obj = obj->getSpeaker();
if (! obj) {
- cmdwin_spush("cancel");
+ cmdwin_spush("̾ȧ");
goto cleanup;
}
if (TimeStop && !obj->isPlayerPartyMember()) {
- cmdwin_spush("time stopped!");
- log_msg("This person seems frozen in time.");
+ cmdwin_spush("»þ¤¬»ß¤Þ¤Ã¤Æ¤¤¤ë¡ª");
+ log_msg("¤³¤Î¿Í¤Ï¤Þ¤ë¤ÇÅà¤Ã¤Æ¤¤¤ë¤è¤¦¤À¡£");
goto cleanup;
}
conv = obj->getConversation();
if (!conv) {
- cmdwin_spush("no response!");
- log_begin("No response from ");
+ cmdwin_spush("È¿±þ¤¬¤Ê¤¤¡ª");
+ log_begin("");
obj->describe();
- log_end(".");
+ log_end("¤«¤é¤Ï²¿¤ÎÈ¿±þ¤â¤Ê¤«¤Ã¤¿¡£");
goto cleanup;
}
struct get_char_info info;
if (allow_sunrise) {
- cmdwin_spush("<hours[0-9]/[s]unrise>");
+ cmdwin_spush("<[0-9]»þ´Ö/[s]ÌëÌÀ¤±>");
info.string = "0123456789sS";
} else {
- cmdwin_spush("<hours[0-9]>");
+ cmdwin_spush("<[0-9]»þ´Ö>");
info.string = "0123456789";
}
if (! info.c || info.c == '0') {
cmdwin_pop();
- cmdwin_spush("none!");
+ cmdwin_spush("²¿¤â¤·¤Ê¤¤¡ª");
return 0;
}
else if (allow_sunrise
int sunrise;
cmdwin_pop();
- cmdwin_push("until sunrise");
+ cmdwin_push("ÌëÌÀ¤±¤Þ¤Ç");
hour = clock_time_of_day() / 60;
sunrise = SUNRISE_HOUR + 1;
if (hour < sunrise)
return HOURS_PER_DAY - hour + sunrise;
}
else if (info.c == '1') {
- cmdwin_push(" hour");
+ cmdwin_push("»þ´Ö");
return 1;
}
else {
- cmdwin_push(" hours");
+ cmdwin_push("»þ´Ö");
return info.c - '0';
}
}
/* Push the prompt but remember it for use within getnum() */
if (max == -1) {
- snprintf(prompt, sizeof(prompt), "<quantity>");
+ snprintf(prompt, sizeof(prompt), "<¿ôÎÌ>");
} else {
snprintf(prompt, sizeof(prompt),
- "<quantity[0-%d]/RET=%d>", max, max);
+ "<¿ôÎÌ[0-%d]/ENT=%d>", max, max);
}
info.digit = 0;
info.digit = 0;
else
info.digit = max;
- } else if (info.state == GN_CANCEL)
- cmdwin_spush("none!");
+ } else if (info.state == GN_CANCEL) {
+ cmdwin_spush("²¿¤â¤·¤Ê¤¤¡ª");
+ }
return info.digit;
}
class Character *guard = 0;
cmdwin_clear();
- cmdwin_spush("Camp");
+ cmdwin_spush("µÙ©¤ò¼è¤ë");
if (!place_is_passable(camper->getPlace(), camper->getX(),
camper->getY(), camper, PFLAG_IGNOREVEHICLES)) {
- cmdwin_spush("not here!");
- log_msg("Camp - not here!");
+ cmdwin_spush("¤³¤³¤Ç¤Ï¤Ç¤¤Ê¤¤¡ª");
+ log_msg("µÙ©¤ò¼è¤ë - ¤³¤³¤Ç¤Ï¤Ç¤¤Ê¤¤¡ª");
return 0;
}
if (place_get_subplace(camper->getPlace(),
camper->getX(),
camper->getY())) {
- cmdwin_spush("not here!");
- log_msg("Camp - not here!");
+ cmdwin_spush("¤³¤³¤Ç¤Ï¤Ç¤¤Ê¤¤¡ª");
+ log_msg("µÙ©¤ò¼è¤ë - ¤³¤³¤Ç¤Ï¤Ç¤¤Ê¤¤¡ª");
return 0;
}
return 0;
cmdwin_spush(""); /* for the '-' */
- cmdwin_spush("set a watch");
+ cmdwin_spush("¸«Ä¥¤ê¤òÃÖ¤¯");
cmdwin_spush("<y/n>");
getkey(&yesno, &yesnokey);
guard = select_party_member();
if (!guard) {
cmdwin_pop();
- cmdwin_push("no watch");
+ cmdwin_push("¸«Ä¥¤ê¤Ê¤·");
}
else if (guard->isDead()) {
- log_msg("You prop up the corpse and wave off "
- "the flies...");
+ log_msg("°äÂΤòΩ¤Æ¤«¤±¡¢Çè¤òʧ¤¤¤Î¤±¤¿¡Ä");
}
// else select_party_member() prints the name
} else {
cmdwin_pop();
- cmdwin_spush("no watch");
+ cmdwin_spush("¸«Ä¥¤ê¤Ê¤·");
}
player_party->beginCamping(guard, hours);
int hours = 0;
cmdwin_clear();
- cmdwin_spush("Loiter");
+ cmdwin_spush("¤¦¤í¤Ä¤¯");
/* Check if enemies are around. */
if (place_contains_hostiles(subject->getPlace(), subject)) {
- cmdwin_spush("foes nearby!");
- log_msg("Loiter - foes nearby!");
+ cmdwin_spush("Ũ¤¬¶á¤¯¤Ë¤¤¤ë¡ª");
+ log_msg("¤¦¤í¤Ä¤¯ - Ũ¤¬¶á¤¯¤Ë¤¤¤ë¡ª");
return;
}
/* Check if any party members are engaged in a task. */
class Character *pc;
if ((pc = cmdAnyPartyMemberEngagedInTask())) {
- log_msg("Loiter - %s engaged in task!", pc->getName());
- cmdwin_spush("busy with tasks!");
- return;
+ log_msg("¤¦¤í¤Ä¤¯ - %s¤ÏÊ̤Τ³¤È¤ò¤·¤Æ¤¤¤ë¡ª", pc->getName());
+ cmdwin_spush("Ë»¤·¤¤¡ª");
+ return;
}
/* Prompt for the number of hours. */
}
/* Tell the party to start loitering. */
- cmdwin_spush("loitering...");
+ cmdwin_spush("¤¦¤í¤Ä¤¤¤Æ¤¤¤ë¡Ä");
player_party->beginLoitering(hours);
/* End the turn. */
int hours;
cmdwin_clear();
- cmdwin_spush("Rest");
+ cmdwin_spush("µÙ©¤ò¼è¤ë");
// Party must be in follow mode.
if (player_party->getPartyControlMode() != PARTY_CONTROL_FOLLOW) {
cmdwin_spush("must be in follow mode!");
log_begin_group();
- log_msg("Camp - party not in follow mode!");
- log_msg("(Hint: hit 'f' to enter follow mode)");
+ log_msg("µÙ©¤ò¼è¤ë - ÄÉÀ×Ãæ¤Ç¤Ê¤¤¡ª");
+ log_msg("¥Ò¥ó¥È: 'f'¤ò²¡¤¹¤ÈÄÉÀפ¹¤ë¡£");
log_end_group();
return 0;
}
// Check for an object that will serve as a bed.
if (place_get_object(camper->getPlace(), camper->getX(),
camper->getY(), bed_layer) == NULL) {
- cmdwin_spush("no bed!");
- log_msg("Camp - no bed here!");
+ cmdwin_spush("¥Ù¥Ã¥É¤¬¤Ê¤¤¡ª");
+ log_msg("µÙ©¤ò¼è¤ë - ¥Ù¥Ã¥É¤¬¤Ê¤¤¡ª");
return 0;
}
// Rendezvous the party around the bed.
if (! player_party->rendezvous(camper->getPlace(), camper->getX(),
camper->getY())) {
- log_msg("Camp - party can't rendezvous!");
+ log_msg("µÙ©¤ò¼è¤ë - Ãç´Ö¤È½¸¹ç¤·¤Æ¤¤¤Ê¤¤¡ª");
return 0;
}
// Put the party in "sleep" mode before returning back to the main
// event loop.
- cmdwin_spush("resting...");
+ cmdwin_spush("µÙ©Ãæ¡Ä");
player_party->beginResting(hours);
camper->endTurn();
memset(context, 0, sizeof(*context));
context->ptr = context->spell_name;
- context->prompt = "<spell name>";
+ context->prompt = "<¼öʸ>";
context->state = GN_ZERO;
kh.fx = get_spell_name;
eventPopKeyHandler();
if (strlen(context->spell_name) == 0) {
- cmdwin_spush("none!");
+ cmdwin_spush("²¿¤â¤·¤Ê¤¤¡ª");
return -1;
}
const char *string;
int success;
} tbl[] = {
- { "^c+gok^c-!", 1 },
- { "^c+Gno target^c-!", 0 },
- { "^c+yno effect^c-!", 1 },
- { "^c+yno hostiles here^c-!", 1 },
- { "^c+Glacks skill^c-!", 0 },
- { "^c+rfailed^c-!", 1 },
- { "^c+Gnot here^c-!", 0 },
- { "^c+rcritical fail^c-!!!", 1 },
- { "^c+ynot now^c-!", 0 },
+ { "^c+gÀ®¸ù^c-¡ª", 1 },
+ { "^c+GÂоݤ¬¤Ê¤¤^c-¡ª", 0 },
+ { "^c+y¸ú²Ì¤¬¤Ê¤¤^c-¡ª", 1 },
+ { "^c+yŨ¤¬¤¤¤Ê¤¤^c-¡ª", 1 },
+ { "^c+GǽÎϤ¬Â¤ê¤Ê¤¤^c-¡ª", 0 },
+ { "^c+r¼ºÇÔ^c-¡ª", 1 },
+ { "^c+G¤³¤³¤Ç¤Ï¤Ç¤¤Ê¤¤^c-¡ª", 0 },
+ { "^c+rÃ×̿Ū¤Ê¼ºÇÔ^c-¡ª¡ª¡ª", 1 },
+ { "^c+yº£¤Ï¤Ç¤¤Ê¤¤^c-¡ª", 0 },
};
if (result < 0 || result >= array_sz(tbl)) {
char spell_name[MAX_SPELL_NAME_LENGTH];
if (MagicNegated) {
- log_msg("Cast - magic negated!\n");
+ log_msg("¾§¤¨¤ë - ÂǤÁ¾Ã¤µ¤ì¤¿¡ª\n");
return false;
}
cmdwin_clear();
- cmdwin_spush("Cast");
+ cmdwin_spush("¾§¤¨¤ë");
/* If the pc is null then we are in non-combat mode and need to promp
* the user. */
/* Make sure the PC is not asleep, dead, etc. */
if (pc->isDead()) {
- cmdwin_spush("unable right now!");
- log_msg("Cast - %s is too dead!", pc->getName());
+ cmdwin_spush("º£¤Ï¤Ç¤¤Ê¤¤¡ª");
+ log_msg("¾§¤¨¤ë - %s¤Ï»à¤ó¤Ç¤¤¤ë¡ª", pc->getName());
return false;
}
if (pc->isAsleep()) {
- cmdwin_spush("unable right now!");
- log_msg("Cast - %s is asleep!", pc->getName());
+ cmdwin_spush("º£¤Ï¤Ç¤¤Ê¤¤¡ª");
+ log_msg("¾§¤¨¤ë - %s¤Ï̲¤Ã¤Æ¤¤¤ë¡ª", pc->getName());
return false;
}
spell = magic_lookup_spell(&Session->magic, context.spell_name);
if (!spell) {
/* Bugfix for SF1564255: don't let player guess at spells. */
- cmdwin_spush("none mixed!");
- log_end("none mixed!");
+ cmdwin_spush("Ä´¹ç¤·¤Æ¤¤¤Ê¤¤¡ª");
+ log_end("Ä´¹ç¤·¤Æ¤¤¤Ê¤¤¡ª");
return false;
}
/* Check if the spell can be used in this context. */
if (!(player_party->getContext() & spell->context)) {
- cmdwin_spush("not here!");
- log_end("not here!");
+ cmdwin_spush("¤³¤³¤Ç¤Ï»È¤¨¤Ê¤¤¡ª");
+ log_end("¤³¤³¤Ç¤Ï»È¤¨¤Ê¤¤¡ª");
return false;
}
* try to cast In Nox Por to see what I mean...
*/
if (!natural && pc->getLevel() < spell->level) {
- cmdwin_spush("need more experience!");
- log_end("must be level %d!", spell->level);
+ cmdwin_spush("¤â¤Ã¤È·Ð¸³¤¬É¬Íסª");
+ log_end("¥ì¥Ù¥ë%d°Ê¾åɬÍפÀ¡ª", spell->level);
return false;
}
}
if (!natural && !mixed) {
- cmdwin_spush("none mixed!");
- log_end("none mixed!");
+ cmdwin_spush("Ä´¹ç¤·¤Æ¤¤¤Ê¤¤¡ª");
+ log_end("Ä´¹ç¤·¤Æ¤¤¤Ê¤¤¡ª");
return false;
}
/* Check if the character has enough mana to cast the spell. */
if (pc->getMana() < spell->cost) {
- cmdwin_spush("need more mana!");
- log_end("need more mana!");
+ cmdwin_spush("¤â¤Ã¤ÈËâÎϤ¬É¬Íסª");
+ log_end("¤â¤Ã¤ÈËâÎϤ¬É¬ÍפÀ¡ª");
return false;
}
if (mixed) {
int count = ie->count - 1;
player_party->takeOut(ie->type, 1);
- log_msg("%d %s remaining", count, spell_name);
+ if (count) {
+ log_msg("¸å%d²ó»Ä¤Ã¤Æ¤¤¤ë¡£", count);
+ } else {
+ log_msg("¤â¤¦»Ä¤Ã¤Æ¤¤¤Ê¤¤¡£");
+ }
}
/* Some spells have status in the foogod window, so repaint it now. */
list_init(&reagents);
cmdwin_clear();
- cmdwin_spush("Mix");
+ cmdwin_spush("Ä´¹ç¤¹¤ë");
// Select a spell...
if (select_spell(&context) == -1)
ie_spell = player_party->inventory->search(spell->type);
}
if (ie_spell && ie_spell->count) {
- cmdwin_spush("%d mixed", ie_spell->count);
+ cmdwin_spush("%d¤ÄÄ´¹ç¤µ¤ì¤Æ¤¤¤ë", ie_spell->count);
} else {
- cmdwin_spush("0 mixed");
+ cmdwin_spush("Ä´¹ç¤µ¤ì¤Æ¤¤¤Ê¤¤");
}
// Prompt for reagents
- cmdwin_spush("<select, then M)ix>");
+ cmdwin_spush("<ÁªÂò¤·¤¿¸å'm'¤ÇÄ´¹ç>");
- foogodSetHintText("\005\006=scroll ENT=add/remove ESC=abort M=done");
+ foogodSetHintText("\005\006=ÁªÂò ENT=²Ã¤¨¤ë/¼è¤ê½ü¤¯ ESC=ÃæÃÇ M=Ä´¹ç");
foogodSetMode(FOOGOD_HINT);
// Show the reagents in the status window
// u5 silently aborts here
cmdwin_pop();
eventPopKeyHandler();
- cmdwin_spush("none!");
+ cmdwin_spush("²¿¤â¤·¤Ê¤¤¡ª");
goto done;
}
* whatsoever. */
cmdwin_pop();
eventPopKeyHandler();
- cmdwin_spush("none!");
+ cmdwin_spush("¤Ê¤Ë¤â¤·¤Ê¤¤¡ª");
goto done;
}
eventPopKeyHandler();
if (list_empty(&reagents)) {
- cmdwin_spush("none!");
+ cmdwin_spush("²¿¤â¤·¤Ê¤¤¡ª");
goto done;
}
break;
cmdwin_spush(0); /* for the '-' after the quantity */
- cmdwin_spush("not enough reagents!");
+ cmdwin_spush("ÈëÌô¤¬Â¤ê¤Ê¤¤¡ª");
getkey(&dummy, anykey);
cmdwin_pop_to_mark();
}
cmdwin_push("-");
- log_begin("Mix: %s - ", spell_name);
+ log_begin("Ä´¹ç¤¹¤ë: %s - ", spell_name);
// For each reagent required by the spell, check if it is in the list
// of reagents given by the player. If not then remember this fact. If
// If the spell is invalid or the reagents are incorrect then punish
// the player.
if (!spell) {
- cmdwin_spush("oops!");
+ cmdwin_spush("¤ª¤ª¤Ã¤È¡ª");
player_party->damage(DAMAGE_ACID);
- log_end("ACID!");
+ log_end("»À¤À¡ª");
goto done;
} else if (mistake) {
- cmdwin_spush("ouch!");
+ cmdwin_spush("¤¦¤ï¤¢¤Ã¡ª");
player_party->damage(DAMAGE_BOMB);
- log_end("BOMB!");
+ log_end("Çúȯ¡ª");
goto done;
}
// All is well. Add the spell to player inventory.
- cmdwin_spush("ok");
+ cmdwin_spush("À®¸ù");
player_party->add(spell->type, quantity);
- log_end("ok!");
+ log_end("À®¸ù¡ª");
done:
// In case of cancellation I need to unselect all the reagents.
if ( mapTileIsVisible(x, y) ) {
if (mapTileLightLevel(x,y) < MIN_XAMINE_LIGHT_LEVEL) {
- log_continue("Too dark!");
+ log_continue("°Å¤¹¤®¤ë¡ª");
} else {
- log_continue("You see ");
place_describe(place, x, y, PLACE_DESCRIBE_ALL);
+ log_continue("¤¬¸«¤¨¤ë¡£");
}
} else if (ShowAllTerrain || XrayVision) {
- log_continue("You see (via xray) ");
place_describe(place, x, y, PLACE_DESCRIBE_TERRAIN);
+ log_continue("¤¬Æ©»ë¤Ç¤¤ë¡£");
} else {
- log_continue("You can't see!");
+ log_continue("¸«¤¨¤Ê¤¤¡ª");
}
log_end(NULL);
int detailed_examine_XY(struct place *place, int x, int y, void *unused)
{
if (DeveloperMode) {
- log_begin("At XY=(%d,%d): ", x, y);
+ log_begin("At XY=(%d,%d): ", x, y);
} else {
- log_begin("");
+ log_begin("");
}
if ( mapTileIsVisible(x, y) ) {
- if (mapTileLightLevel(x,y) < MIN_XAMINE_LIGHT_LEVEL) {
- log_continue("You can't see!");
- } else {
- log_continue("You see:\n");
- place_examine(place, x, y);
- }
- } else if (ShowAllTerrain || XrayVision) {
- log_continue("You see (via xray):\n");
+ if (mapTileLightLevel(x,y) < MIN_XAMINE_LIGHT_LEVEL) {
+ log_continue("¸«¤¨¤Ê¤¤¡ª");
+ } else {
+ log_continue("¼¡¤Î¤â¤Î¤¬¸«¤¨¤ë¡£\n");
place_examine(place, x, y);
+ }
+ } else if (ShowAllTerrain || XrayVision) {
+ log_continue("¼¡¤Î¤â¤Î¤¬Æ©»ë¤Ç¸«¤¨¤ë¡£\n");
+ place_examine(place, x, y);
} else {
- log_continue("You can't see!");
+ log_continue("¸«¤¨¤Ê¤¤¡ª");
}
#if 0
bool ret = true;
cmdwin_clear();
- cmdwin_spush("Xamine");
+ cmdwin_spush("Ä´¤Ù¤ë");
x = pc->getX();
y = pc->getY();
log_begin_group();
if (pc)
- log_msg("%s examines around...", pc->getName());
+ log_msg("%s¤Ï¤¢¤¿¤ê¤òÄ´¤Ù¤¿¡Ä", pc->getName());
else
- log_msg("You examine around...");
+ log_msg("¤¢¤Ê¤¿¤Ï¤¢¤¿¤ê¤òÄ´¤Ù¤¿¡Ä");
look_at_XY(pc->getPlace(), x, y, 0); // First look at the current tile
if (select_target_with_doing(x, y, &x, &y, pc->getVisionRadius(),
// SAM: Perhaps this function belongs in common.c?
switch (player_party->getContext()) {
case CONTEXT_WILDERNESS:
- return "Party Context";
+ return "Á´°÷¤Î¾õÂÖ";
break;
default:
- return "Character Context";
+ return "¸Ä¿Í¤Î¾õÂÖ";
break;
}
} // name_of_context()
else {
// Must be party mode.
// Use the player party's location as the origin.
- who = "The party";
+ who = "Á´°÷";
place_name = player_party->getPlace()->name;
x = player_party->getX();
y = player_party->getY();
// place_name = player_party->getPlace()->name;
log_begin_group();
- log_msg("This is %s.", name_of_context() );
- log_msg("%s is in %s.", who, place_name);
- if (Place->underground) {
- log_msg("It is %s, %s of %s in the year %d.",
- day_name(), week_name(), month_name(), Session->clock.year );
- }
- else
- {
- log_msg("It is %s on %s, "
- "%s of %s in the year %d.",
- vague_time_as_string(), day_name(),
- week_name(), month_name(), Session->clock.year );
- }
+ log_msg("¤³¤ì¤Ï%s¤Ç¤¢¤ë¡£", name_of_context() );
+ log_msg("%s¤Ï%s¤Ë¤¤¤ë¡£", who, place_name);
+ if (Place->underground) {
+ log_msg("º£¤Ï%dǯ %s %s %s¤À¡£",
+ Session->clock.year, month_name(), week_name(), day_name() );
+ } else {
+ log_msg("º£¤Ï%dǯ %s %s "
+ "%s¤Î%s¤À¡£",
+ Session->clock.year, month_name(), week_name(),
+ day_name(), vague_time_as_string() );
+ }
// SAM: Is this really interesting though, I wonder?
- log_msg("%d game turns have passed.", Turn);
+ log_msg("%d²ó¤¬·Ð²á¤·¤¿¡£", Turn);
- log_msg("The wind is blowing from the %s.",
+ log_msg("É÷¤Ï%s¤«¤é¿á¤¤¤Æ¤¤¤ë¡£",
directionToString(windGetDirection()) );
if (Place->underground) {
- log_msg("%s is underground, and cannot see the sky.",
+ log_msg("%s¤ÏÃϲ¼¤Ë¤¤¤Æ¶õ¤Ï¸«¤¨¤Ê¤¤¡£",
who);
} // underground
else {
// This message won't be true if you are under
// a roof in a town. In future there should be
// logic querying the (future) roof-ripping code here.
- log_msg("%s is beneath the open sky.", who);
+ log_msg("%s¤Ï¶õ¤Î¸«¤¨¤ë¾ì½ê¤Ë¤¤¤ë¡£", who);
// The kernel no longer has any special knowledge about which
// astral body is the sun, so we have to deal with all astral
// bodies generically now. I mean, a game may have two or even
// more suns. The time runs independently and isn't cued off
// the sun.
- if (is_noon())
- log_msg("It is noon.");
- else if (is_midnight())
- log_msg("It is midnight.");
+ if (is_noon()) {
+ log_msg("Æü¤¬¾º¤Ã¤Æ¤¤¤ë¡£");
+ } else if (is_midnight()) {
+ log_msg("Æü¤ÏÄÀ¤ó¤Ç¤¤¤ë¡£");
+ }
// Report on each astral body generically.
list_for_each(&Session->sky.bodies, elem) {
struct astral_body *body;
body = outcast(elem, struct astral_body, list);
if (astral_body_is_visible(body->arc)) {
- log_begin("%s is up at arc %d", body->name,
+ log_begin("%s¤Î¹â¤µ¤Ï%dÅÙ", body->name,
body->arc);
if (body->n_phases > 1) {
char *phase_name =
body->phases[body->phase].
name;
- if (phase_name)
- log_continue(" in its %s "
- "phase",
+ if (phase_name) {
+ log_continue("¡¢%s",
phase_name);
- else
- log_continue(" in phase %d",
+ } else {
+ log_continue("¡¢·îÁê¤Ï%d",
body->phase);
+ }
}
- log_end(".");
+ log_end("¤À¡£");
}
}
} // open air, under the sky
if (player_party->getVehicle()) {
- log_msg("%s is %s a %s.",
- who, "using", player_party->getVehicle()->getName() );
+ log_msg("%s¤Ï%s¤Ë¾è¤Ã¤Æ¤¤¤ë¡£",
+ who, player_party->getVehicle()->getName() );
// SAM:
// In future, we shall want GhulScript to specify
// whether one is to be
// SAM: Not true for a party of Gazers or Nixies.
// Similar GhulScript for party / character movement mode
// descriptions and gerunds?
- log_msg("%s is on foot.", who);
+ log_msg("%s¤ÏÊ⤤¤Æ¤¤¤ë¡£", who);
}
log_end_group();
// Standing over a subplace. Try to enter with no
// direction, this will prompt the player to provide a
// direction.
- log_msg("Enter-%s", subplace->name);
+ log_msg("Æþ¤ë-%s", subplace->name);
player_party->try_to_enter_subplace_from_edge(subplace,
0, 0);
} else {
- log_msg("Enter-Use a side entrance!");
+ log_msg("Æþ¤ë-Æþ¤ê¸ý¤«¤éÆþ¤Ã¤¿¡ª");
}
} else if (!place_is_passable(player_party->getPlace(),
place_get_terrain(player_party->getPlace(),
player_party->getX(),
player_party->getY() );
- log_msg("Enter-Cannot zoom-in to %s!", tt->name);
+ log_msg("Æþ¤ë-%s¤Ë¤ÏÆþ¤ì¤Ê¤¤¡ª", tt->name);
} else {
// If standing on ordinary terrain, zoom in:
struct terrain * tt =
place_get_terrain(player_party->getPlace(),
player_party->getX(),
player_party->getY() );
- log_msg("Enter-%s", tt->name);
+ log_msg("Æþ¤ë-%s", tt->name);
run_combat(false, 0, 0, NULL);
}
}
bool ret = true;
class Character *pc;
if ((pc = cmdAnyPartyMemberEngagedInTask())) {
- log_msg("Denied - %s engaged in task!", pc->getName());
+ log_msg("µñÈÝ - %s¤ÏÊ̤Τ³¤È¤ò¤·¤Æ¤¤¤ë¡ª", pc->getName());
cmdwin_spush("busy with tasks!");
return false;
}
char *fname = save_game_menu();
if (!fname) {
- cmdwin_spush("abort!");
+ cmdwin_spush("Ãæ»ß¡ª");
return false;
}
- log_begin("Saving to %s...", fname);
+ log_begin("%s¤ËÊݸÃæ¡Ä", fname);
if (session_save(fname)) {
- log_end("^c+rfailed!^c-");
- cmdwin_spush("failed!");
+ log_end("^c+r¼ºÇÔ¡ª^c-");
+ cmdwin_spush("¼ºÇÔ¡ª");
ret = false;
} else {
cmdwin_spush("ok!");
- log_end("^c+gok!^c-");
+ log_end("^c+g´°Î»¡ª^c-");
}
session_save(fname);
free(fname);
{
int yesno;
cmdwin_clear();
- cmdwin_spush("Reply");
+ cmdwin_spush("ÊÖÅú");
cmdwin_spush("<y/n>");
getkey(&yesno, yesnokey);
cmdwin_pop();
if (yesno == 'y') {
- cmdwin_spush("yes");
- log_msg("^c+%c%s:^c- Yes", CONV_PC_COLOR, name);
+ cmdwin_spush("¤Ï¤¤");
+ log_msg("^c+%c%s:^c- ¤Ï¤¤", CONV_PC_COLOR, name);
return 1;
} else {
- cmdwin_spush("no");
- log_msg("^c+%c%s:^c- No", CONV_PC_COLOR, name);
+ cmdwin_spush("¤¤¤¤¤¨");
+ log_msg("^c+%c%s:^c- ¤¤¤¤¤¨", CONV_PC_COLOR, name);
return 0;
}
}
static int ui_getline_handler(struct KeyHandler *kh, int key, int keymod)
{
getline_t *data = (getline_t*)kh->data;
+ char kana_buf[128];
+ int kana_len;
+ int i;
if (key == CANCEL) {
while (data->ptr > data->buf) {
cmdwin_pop();
data->room++;
}
+ alpha_to_kana(0, NULL);
return 1;
}
if (key == '\n') {
+ alpha_to_kana(0, NULL);
return 1;
}
if (key == '\b') {
if (data->ptr != data->buf) {
- data->ptr--;
- *data->ptr = 0;
- data->room++;
- cmdwin_pop();
+ if (*(data->ptr - 1) & 0x80) {
+ data->ptr -= 2;
+ *data->ptr = 0;
+ data->room += 2;
+ cmdwin_pop();
+ cmdwin_pop();
+ } else {
+ data->ptr--;
+ *data->ptr = 0;
+ data->room++;
+ cmdwin_pop();
+ }
}
+ alpha_to_kana(0, NULL);
return 0;
}
if (data->filter
&& data->filter(key)) {
+ alpha_to_kana(0, NULL);
return 0;
}
- if (isprintable(key)
+ if ((isprintable(key) || (key & 0x80))
&& data->room) {
cmdwin_push("%c", key);
*data->ptr++ = key;
data->room--;
}
+ kana_len = alpha_to_kana (key, kana_buf);
+ if (kana_len) {
+ for (i = 0; i < kana_len; i++) {
+ ui_getline_handler (kh, kana_buf[i], keymod);
+ }
+ }
+
return 0;
}
int ui_getline(char *buf, int len)
{
cmdwin_clear();
- cmdwin_push("Say: ");
+ cmdwin_push("¸À¤¦: ");
return ui_getline_plain(buf, len);
}
sc.selection = NULL;
cmdwin_clear();
- cmdwin_spush("Buy");
- cmdwin_spush("<select/ESC>");
+ cmdwin_spush("Ç㤦");
+ cmdwin_spush("<ÁªÂò/ESC>");
eventPushKeyHandler(&kh);
eventHandle();
eventPopKeyHandler();
trade = (struct trade_info *) sc.selection;
if (!trade) {
- cmdwin_spush("none!");
+ cmdwin_spush("²¿¤â¤·¤Ê¤¤¡ª");
break;
}
if (player_party->gold < trade->cost) {
int dummy;
- cmdwin_spush("not enough gold! <hit any key>");
+ cmdwin_spush("¶â²ß¤¬Â¤ê¤Ê¤¤¡ª <¥¡¼¤ò²¡¤¹>");
getkey(&dummy, anykey);
continue;
}
cmdwin_pop_to_mark();
if (quantity == 0) {
- cmdwin_spush("none!");
+ cmdwin_spush("²¿¤â¤·¤Ê¤¤¡ª");
continue;
}
// *** trade ***
class ObjectType *type = (class ObjectType*)trade->data;
- cmdwin_spush("ok");
- log_msg("You buy %d %s%s for %d gold\n", quantity,
- trade->name, quantity > 1 ? "s" : "", cost);
+ cmdwin_spush("Çã¤Ã¤¿");
+ log_msg("¤¢¤Ê¤¿¤Ï%s¤ò¶â²ß%dËç¤Ç%d¤ÄÇã¤Ã¤¿¡£\n", trade->name,
+ cost, quantity);
player_party->gold -= cost;
if (type->canBuy()) {
// Allocate the trade list.
trades = new struct trade_info[merch->n_trades];
if (!trades) {
- log_msg("^c+%c%s:^c- I don't need anything.\n",
+ log_msg("^c+%c%s:^c- ¤½¤ì¤Ï¤¤¤é¤Ê¤¤¡£\n",
CONV_NPC_COLOR, merch->name);
return 0;
}
sc.selection = NULL;
cmdwin_clear();
- cmdwin_spush("Sell");
- cmdwin_spush("<select or ESC>");
+ cmdwin_spush("Çä¤ë");
+ cmdwin_spush("<ÁªÂò/ESC>");
eventPushKeyHandler(&kh);
eventHandle();
eventPopKeyHandler();
trade = (struct trade_info *) sc.selection;
if (!trade) {
- cmdwin_spush("none!");
+ cmdwin_spush("²¿¤â¤·¤Ê¤¤¡ª");
break;
}
cmdwin_pop_to_mark();
if (quantity == 0) {
- cmdwin_spush("none!");
+ cmdwin_spush("²¿¤â¤·¤Ê¤¤¡ª");
continue;
}
foogodRepaint();
cmdwin_spush("ok");
- log_msg("You sell %d %s%s for %d gold\n", quantity,
- trade->name, quantity > 1 ? "s" : "",
- quantity * trade->cost);
+ log_msg("¤¢¤Ê¤¿¤Ï%s¤ò¶â²ß%dËç¤Ç%d¤ÄÇä¤Ã¤¿¡£\n", trade->name,
+ quantity * trade->cost, quantity);
// refresh the sell list
n_trades = fill_sell_list(merch, trades);
for (;;) {
cmdwin_clear();
- cmdwin_spush("Buy or sell");
- cmdwin_spush("<B/S/ESC>");
+ cmdwin_spush("Ç㤦/Çä¤ë¡©");
+ cmdwin_spush("<B:Ç㤦/S:Çä¤ë/ESC>");
getkey(&key, get_buy_or_sell_key);
switch (key) {
}
static const char *cmd_help_text =
-"Use the arrow keys to indicate direction.\n"
-"Use the ESC key to cancel commands.\n"
-"Use the first letter to start a command.\n"
+"Êý¸þ¤ÏÌð°õ¥¡¼(¥Æ¥ó¥¡¼)¤Ç¼¨¤¹¡£\n"
+"ESC¤ò²¡¤¹¤ÈÌ¿Îá¤òÃæÃǤ¹¤ë¡£\n"
+"Ì¿Îá¤Ï¼¡¤ÎÄ̤ê¤Ç¤¢¤ë¡£\n"
"\n"
-"A)ttack something\n"
-"B)oard a ship or other vehicle\n"
-"C)ast a spell\n"
-"E)nter a town or dungeon\n"
-"F)ire a ship's cannon or other ordnance\n"
-"G)et something on the ground\n"
-"H)andle a lever or mechanism\n"
-"K)amp in a bed or the wilderness\n"
-"L)oiter for a while\n"
-"N)ew-Order (rearrange party order)\n"
-"O)pen a chest, door or other closed object\n"
-"Q)uit and save the game\n"
-"R)eady weapons or armor\n"
-"S)earch for hidden stuff\n"
-"T)alk to somebody\n"
-"U)se an item in inventory\n"
-"Z)tats (show party status)\n"
-"X)amine around\n"
-"@)AT (info about place & time)\n"
-"<space> (pass a turn)\n"
-"CTRL-Q)uit without saving\n"
-"CTRL-S)ave without quitting\n"
-"CTRL-R)eload the last saved game\n"
+"A)²¿¤«¤ò¹¶·â¤¹¤ë\n"
+"B)Á¥¤Ê¤É¤Ë¾è¤ë\n"
+"C)¼öʸ¤ò¾§¤¨¤ë\n"
+"E)Ä®¤äƶ·¢¤ËÆþ¤ë\n"
+"F)Á¥¤ÎÂçˤ¤Ê¤É¤Çˤ·â¤¹¤ë\n"
+"G)ÃÖ¤«¤ì¤¿¤â¤Î¤ò¼è¤ë\n"
+"H)¥ì¥Ð¡¼¤äµ¡³£¤òÁàºî¤¹¤ë\n"
+"K)¥Ù¥Ã¥É¤ä¹ÓÌî¤ÇµÙ©¤ò¼è¤ë\n"
+"L)¤·¤Ð¤é¤¯¤¦¤í¤Ä¤¯\n"
+"N)½ç½ø¤òÊѹ¹¤¹¤ë\n"
+"O)È¢¤äÈâ¤Ê¤É¤ò³«¤¯\n"
+"Q)¥²¡¼¥à¤ò½ªÎ»¤¹¤ë\n"
+"R)Éð´ï¤äËɶñ¤òÁõÈ÷¤¹¤ë\n"
+"S)±£¤µ¤ì¤¿¤â¤Î¤òõ¤¹\n"
+"T)狼¤ÈÏä¹\n"
+"U)»ý¤Áʪ¤ò»È¤¦\n"
+#ifdef USE_SKILLS
+"Y)ǽÎϤò»È¤¦\n"
+#endif
+"Z)¾õÂÖ¤òɽ¼¨¤¹¤ë\n"
+"X)¤¢¤¿¤ê¤òÄ´¤Ù¤ë\n"
+"@)¾ì½ê¤ä»þ´Ö¤Ë¤Ä¤¤¤Æɽ¼¨¤¹¤ë\n"
+"<space> ²¿¤â¤·¤Ê¤¤\n"
+"CTRL-Q)Êݸ¤»¤º¥²¡¼¥à¤ò½ªÎ»¤¹¤ë\n"
+"CTRL-S)½ªÎ»¤»¤º¥²¡¼¥à¤òÊݸ¤¹¤ë\n"
+"CTRL-R)ºÇ¸å¤ËÊݸ¤·¤¿¾õÂÖ¤òÆɤ߹þ¤à\n"
+"²ñÏÃÃæ¤Ë<Tab>¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È¡¦¥í¡¼¥Þ»ú¤ÎÀÚÂØ\n"
"\n"
-"When talking to people, enter a keyword.\n"
-"Most people reply to NAME, JOB, TRADE and\n"
-"JOIN. Their replies will give you hints\n"
-"about more keywords.\n"
+"²ñÏÃÃæ¤Ï¥¡¼¥ï¡¼¥É¤òÆþÎϤ¹¤ë¡£Â¿¤¯¤Î¿Íʪ¤Ï¡¢\n"
+"̾Á°¡¢»Å»ö¡¢¼è°ú¡¢Ãç´Ö¤ËÂФ·¤ÆÈ¿±þ¤¹¤ë¡£¤³¤¿\n"
+"¤¨¤Ë¤Ï¹¹¤Ê¤ë¥¡¼¥ï¡¼¥É¤Î¼ê¤¬¤«¤ê¤¬´Þ¤Þ¤ì¤Æ¤¤\n"
+"¤ë¤³¤È¤¬¤¢¤ë¡£\n"
;
void cmdHelp(void)
foogodSetHintText(PAGER_HINT);
foogodSetMode(FOOGOD_HINT);
- statusSetPageText("Commands", cmd_help_text);
+ statusSetPageText("Ì¿Îá", cmd_help_text);
statusSetMode(Page);
kh.fx = scroller;
int yesno;
char buf[64];
- log_begin("Do you want to name your ");
+ log_begin("¤¢¤Ê¤¿¤Î");
vehicle->describe();
- log_end("?");
+ log_end("¤Ë̾Á°¤ò¤Ä¤±¤ë¤«¡©");
+ cmdwin_spush("̾¤Å¤±¤ë");
- cmdwin_spush("Name");
cmdwin_spush("<y/n>");
getkey(&yesno, yesnokey);
cmdwin_pop();
cmdwin_pop();
if (yesno == 'n') {
- cmdwin_spush("no!");
- log_msg("It's likely to be stolen!");
+ cmdwin_spush("¤¤¤¤¤¨¡ª");
+ log_msg("¤Þ¤ë¤ÇÅð¤ó¤À¤â¤Î¤Î¤è¤¦¤À¡ª");
return;
}
if (!ui_getline(buf, sizeof(buf))) {
- log_msg("It's likely to be stolen!");
+ log_msg("¤Þ¤ë¤ÇÅð¤ó¤À¤â¤Î¤Î¤è¤¦¤À¡ª");
return;
}
vehicle->setName(buf);
- log_begin("You christen ");
+ log_begin("¤¢¤Ê¤¿¤Ï");
vehicle->describe();
- log_end(".");
+ log_end("¤È̾¤Å¤±¤¿¡£");
}
void cmdSettings(void)
assert(actor);
cmdwin_clear();
- cmdwin_spush("Drop");
+ cmdwin_spush("ÃÖ¤¯");
omode = statusGetMode();
- statusBrowseContainer(actor->getInventoryContainer(), "Drop");
+ statusBrowseContainer(actor->getInventoryContainer(), "ÃÖ¤¯");
ie = ui_select_item();
statusSetMode(omode);
/* Don't drop quest items in temporary places! */
if (place_is_wilderness_combat(actor->getPlace())
&& ie->type->isQuestItem()) {
- log_msg("%s seems important, it might get lost here!",
+ log_msg("%s¤Ï½ÅÍפ½¤¦¤À¡£¤³¤³¤ËÃÖ¤¯¤È¼º¤¦¤Ë°ã¤¤¤Ê¤¤¡ª",
ie->type->getName());
return;
}
NULL);
actor->takeOut(ie->type, quantity);
actor->runHook(OBJ_HOOK_DROP_DONE, "pd", ie->type, quantity);
- log_msg("%s wouldnt fit!", ie->type->getName());
+ log_msg("%s¤Ï¹ç¤ï¤Ê¤¤¡ª", ie->type->getName());
}
else
{
- log_msg("Couldnt drop %s!", ie->type->getName());
+ log_msg("%s¤òÃÖ¤±¤Ê¤¤¡ª", ie->type->getName());
}
/* remove from party inventory */
actor->decActionPoints(kern_intvar_get("AP_COST:drop_item"));
kh.data = ≻
eventPushKeyHandler(&kh);
- cmdwin_push("<select>");
+ cmdwin_push("<ÁªÂò>");
eventHandle();
cmdwin_pop();
eventPopKeyHandler();
/* dead actor? */
if (pc->isDead()) {
- log_msg("%s - %s is too dead!", cmdstr, pc->getName());
- cmdwin_push("can't!");
+ log_msg("%s - %s¤Ï»à¤ó¤Ç¤¤¤ë¡ª", cmdstr, pc->getName());
+ cmdwin_push("¤Ç¤¤Ê¤¤¡ª");
return 0;
}
/* sleeping actor? */
if (pc->isAsleep()) {
- log_msg("%s - %s rolls over and snores!", cmdstr,
+ log_msg("%s - %s¤Ï¤Ò¤Ã¤¯¤êÊ֤äƤ¤¤Ó¤¤ò¤«¤¤¤Æ¤¤¤ë¡ª", cmdstr,
pc->getName());
- cmdwin_push("can't!");
+ cmdwin_push("¤Ç¤¤Ê¤¤¡ª");
return 0;
}
/* level, ap, mp */
screenPrint(rect, SP_RIGHTJUSTIFIED,
- "^c+GLvl:^c+y%d^c- MP:^c+b%d^c- AP:^c+r%d^c-^c-",
+ "^c+G¥ì¥Ù¥ë:^c+y%d^c- ËâÎÏ:^c+b%d^c- ¹ÔÆ°:^c+r%d^c-^c-",
ssent->level,
skill->mp,
skill->ap);
/* setup the status browser data */
memset(&data, 0, sizeof(data));
cmd_build_skill_list(&data.list, pc);
- data.title = "Yuse";
+ data.title = "ǽÎÏ";
data.paint = cmd_paint_skill;
data.unref = cmd_skill_list_unref;
cmdwin_push(ssent->skill->name);
} else {
ssent = 0;
- cmdwin_push("none");
+ cmdwin_push("²¿¤â¤·¤Ê¤¤");
}
/* restore browser status mode */
int cant = 0, result = 0, yused = 0;
/* select/verify the actor */
- if (!(actor = cmd_front_end(actor, "Yuse"))) {
+ if (!(actor = cmd_front_end(actor, "ǽÎÏ"))) {
return;
}
if (! skill->wilderness_ok
&& place_is_wilderness(actor->getPlace())) {
cant = 1;
- log_msg("Not in the wilderness!");
+ log_msg("¹ÓÌî¤Ç¤Ï»È¤¨¤Ê¤¤¡ª");
}
/* check level */
if (actor->getLevel() < ssent->level) {
cant = 1;
- log_msg("Must be level %d!", ssent->level);
+ log_msg("¥ì¥Ù¥ë%d°Ê¾åɬÍפÀ¡ª", ssent->level);
}
/* check mana */
if (actor->getMana() < skill->mp) {
cant = 1;
- log_msg("Not enough mana!");
+ log_msg("ËâÎϤ¬Â¤ê¤Ê¤¤¡ª");
}
/* check tools */
struct inv_entry *ie=player_party->inventory->
search(tool);
if (!ie || !ie->count) {
- log_msg("Need %s!", tool->getName());
+ log_msg("%s¤¬É¬ÍפÀ¡ª", tool->getName());
cant = 1;
}
}
ie = player_party->inventory->search(objtype);
if (!ie || ie->count < mat->quantity) {
cant = 1;
- log_msg("Need %d %s!", mat->quantity,
+ log_msg("%d¤Ä¤Î%s¤¬É¬ÍפÀ¡ª", mat->quantity,
objtype->getName());
}
}
/* cant? */
if (cant) {
- cmdwin_push("failed!");
- log_end("^c+rFailed!^c-");
+ cmdwin_push("¼ºÇÔ¡ª");
+ log_end("^c+r¼ºÇÔ¡ª^c-");
return;
}
) {
if (solo_member->engagedInTask()) {
- log_msg("%s is engaged in %s, abort?", solo_member->getName(), solo_member->getTaskName());
+ log_msg("%s¤Ï%s¤·¤Æ¤¤¤ë¡£ÃæÃǤ¹¤ë¤«¡©", solo_member->getName(), solo_member->getTaskName());
if (! ui_get_yes_no(solo_member->getName())) {
return false;
}
bool cmdToggleFollowMode(void)
{
- log_begin("Follow mode ");
+ log_begin("ÄÉÀ×");
if (player_party->getPartyControlMode() == PARTY_CONTROL_FOLLOW) {
- log_end("OFF");
+ log_end("¤·¤Ê¤¤¡£");
player_party->enableRoundRobinMode();
return false;
} else {
- log_end("ON");
+ log_end("¤¹¤ë¡£");
player_party->enableFollowMode();
return true;
}
} ui_select_target_req_t;
-#define SCROLLER_HINT "\005\006=scroll ENT=select ESC=exit"
-#define PAGER_HINT "\005\006=scroll ESC=exit"
+#define SCROLLER_HINT "\005\006=ÁªÂò ENT=·èÄê ESC=Ìá¤ë"
+#define PAGER_HINT "\005\006=ɽ¼¨ ESC=Ìá¤ë"
extern int dirkey(struct KeyHandler *kh, int key, int keymod);
extern int cardinaldirkey(struct KeyHandler *kh, int key, int keymod);
static FILE *log = NULL;
#endif
+struct dictionary *dictionary = NULL;
+
static inline void cmdwin_clear_no_repaint()
{
memset(cmdwin.buf, 0, cmdwin.blen);
log_msg("%s\n", cmdwin.buf);
cmdwin_clear();
}
+
+int kana_to_english(char *kana, char *english, char *kanji)
+{
+ int i;
+
+ for (i = 0; dictionary[i].kana != NULL; i++) {
+ if (!strcmp(kana, dictionary[i].kana)) {
+ if (english) {
+ strcpy(english, dictionary[i].english);
+ }
+ if (kanji) {
+ strcpy(kanji, dictionary[i].kanji);
+ }
+ return true;
+ }
+ }
+
+ if (english) {
+ strcpy(english, kana);
+ }
+ if (kanji) {
+ strcpy(kanji, kana);
+ }
+ return false;
+}
+
+int alpha_to_kana(int key, char *buf)
+{
+ const static struct {
+ const char *alpha;
+ const char *kana;
+ } kana[] = {
+ { "ayb", "¥Ó¥ã" },
+ { "iyb", "¥Ó¥£" },
+ { "uyb", "¥Ó¥å" },
+ { "eyb", "¥Ó¥§" },
+ { "oyb", "¥Ó¥ç" },
+ { "ayc", "¥Á¥ã" },
+ { "iyc", "¥Á¥£" },
+ { "uyc", "¥Á¥å" },
+ { "eyc", "¥Á¥§" },
+ { "oyc", "¥Á¥ç" },
+ { "ayd", "¥Â¥ã" },
+ { "iyd", "¥Â¥£" },
+ { "uyd", "¥Â¥å" },
+ { "eyd", "¥Â¥§" },
+ { "oyd", "¥Â¥ç" },
+ { "ayf", "¥Õ¥ã" },
+ { "iyf", "¥Õ¥£" },
+ { "uyf", "¥Õ¥å" },
+ { "eyf", "¥Õ¥§" },
+ { "oyf", "¥Õ¥ç" },
+ { "ayg", "¥®¥ã" },
+ { "iyg", "¥®¥£" },
+ { "uyg", "¥®¥å" },
+ { "eyg", "¥®¥§" },
+ { "oyg", "¥®¥ç" },
+ { "ayh", "¥Ò¥ã" },
+ { "iyh", "¥Ò¥£" },
+ { "uyh", "¥Ò¥å" },
+ { "eyh", "¥Ò¥§" },
+ { "oyh", "¥Ò¥ç" },
+ { "ayj", "¥¸¥ã" },
+ { "iyj", "¥¸¥£" },
+ { "uyj", "¥¸¥å" },
+ { "eyj", "¥¸¥§" },
+ { "oyj", "¥¸¥ç" },
+ { "ayk", "¥¥ã" },
+ { "iyk", "¥¥£" },
+ { "uyk", "¥¥å" },
+ { "eyk", "¥¥§" },
+ { "oyk", "¥¥ç" },
+ { "aym", "¥ß¥ã" },
+ { "iym", "¥ß¥£" },
+ { "uym", "¥ß¥å" },
+ { "eym", "¥ß¥§" },
+ { "oym", "¥ß¥ç" },
+ { "ayn", "¥Ë¥ã" },
+ { "iyn", "¥Ë¥£" },
+ { "uyn", "¥Ë¥å" },
+ { "eyn", "¥Ë¥§" },
+ { "oyn", "¥Ë¥ç" },
+ { "ayp", "¥Ô¥ã" },
+ { "iyp", "¥Ô¥£" },
+ { "uyp", "¥Ô¥å" },
+ { "eyp", "¥Ô¥§" },
+ { "oyp", "¥Ô¥ç" },
+ { "ayq", "¥¯¥¡" },
+ { "iyq", "¥¯¥£" },
+ { "uyq", "¥¯¥¥" },
+ { "eyq", "¥¯¥§" },
+ { "oyq", "¥¯¥©" },
+ { "ayr", "¥ê¥ã" },
+ { "iyr", "¥ê¥£" },
+ { "uyr", "¥ê¥å" },
+ { "eyr", "¥ê¥§" },
+ { "oyr", "¥ê¥ç" },
+ { "ays", "¥·¥ã" },
+ { "iys", "¥·¥£" },
+ { "uys", "¥·¥å" },
+ { "eys", "¥·¥§" },
+ { "oys", "¥·¥ç" },
+ { "ayt", "¥Á¥ã" },
+ { "iyt", "¥Á¥£" },
+ { "uyt", "¥Á¥å" },
+ { "eyt", "¥Á¥§" },
+ { "oyt", "¥Á¥ç" },
+ { "ayv", "¥ô¥ã" },
+ { "iyv", "¥ô¥£" },
+ { "uyv", "¥ô¥å" },
+ { "eyv", "¥ô¥§" },
+ { "oyv", "¥ô¥ç" },
+ { "ayx", "¥ã" },
+ { "iyx", "¥£" },
+ { "uyx", "¥å" },
+ { "eyx", "¥§" },
+ { "oyx", "¥ç" },
+ { "ayz", "¥¸¥ã" },
+ { "iyz", "¥¸¥£" },
+ { "uyz", "¥¸¥å" },
+ { "eyz", "¥¸¥§" },
+ { "oyz", "¥¸¥ç" },
+ { "ahc", "¥Á¥ã" },
+ { "ihc", "¥Á" },
+ { "uhc", "¥Á¥å" },
+ { "ehc", "¥Á¥§" },
+ { "ohc", "¥Á¥ç" },
+ { "ahd", "¥Ç¥ã" },
+ { "ihd", "¥Ç¥£" },
+ { "uhd", "¥Ç¥å" },
+ { "ehd", "¥Ç¥§" },
+ { "ohd", "¥Ç¥ç" },
+ { "ahp", "¥Õ¥¡" },
+ { "ihp", "¥Õ¥£" },
+ { "uhp", "¥Õ" },
+ { "ehp", "¥Õ¥§" },
+ { "ohp", "¥Õ¥©" },
+ { "ahs", "¥·¥ã" },
+ { "ihs", "¥·" },
+ { "uhs", "¥·¥å" },
+ { "ehs", "¥·¥§" },
+ { "ohs", "¥·¥ç" },
+ { "aht", "¥Æ¥ã" },
+ { "iht", "¥Æ¥£" },
+ { "uht", "¥Æ¥å" },
+ { "eht", "¥Æ¥§" },
+ { "oht", "¥Æ¥ç" },
+ { "ahw", "¥¦¥¡" },
+ { "ihw", "¥¦¥£" },
+ { "uhw", "¥¦" },
+ { "ehw", "¥¦¥§" },
+ { "ohw", "¥¦¥©" },
+ { "ast", "¥Ä¥¡" },
+ { "ist", "¥Ä¥£" },
+ { "ust", "¥Ä" },
+ { "est", "¥Ä¥§" },
+ { "ost", "¥Ä¥©" },
+ { "ab", "¥Ð" },
+ { "ib", "¥Ó" },
+ { "ub", "¥Ö" },
+ { "eb", "¥Ù" },
+ { "ob", "¥Ü" },
+ { "ac", "¥«" },
+ { "ic", "¥" },
+ { "uc", "¥¯" },
+ { "ec", "¥±" },
+ { "oc", "¥³" },
+ { "ad", "¥À" },
+ { "id", "¥Â" },
+ { "ud", "¥Å" },
+ { "ed", "¥Ç" },
+ { "od", "¥É" },
+ { "af", "¥Õ¥¡" },
+ { "if", "¥Õ¥£" },
+ { "uf", "¥Õ" },
+ { "ef", "¥Õ¥§" },
+ { "of", "¥Õ¥©" },
+ { "ag", "¥¬" },
+ { "ig", "¥®" },
+ { "ug", "¥°" },
+ { "eg", "¥²" },
+ { "og", "¥´" },
+ { "ah", "¥Ï" },
+ { "ih", "¥Ò" },
+ { "uh", "¥Õ" },
+ { "eh", "¥Ø" },
+ { "oh", "¥Û" },
+ { "aj", "¥¸¥ã" },
+ { "ij", "¥¸" },
+ { "uj", "¥¸¥å" },
+ { "ej", "¥¸¥§" },
+ { "oj", "¥¸¥ç" },
+ { "ak", "¥«" },
+ { "ik", "¥" },
+ { "uk", "¥¯" },
+ { "ek", "¥±" },
+ { "ok", "¥³" },
+ { "al", "¥¡" },
+ { "il", "¥£" },
+ { "ul", "¥¥" },
+ { "el", "¥§" },
+ { "ol", "¥©" },
+ { "am", "¥Þ" },
+ { "im", "¥ß" },
+ { "um", "¥à" },
+ { "em", "¥á" },
+ { "om", "¥â" },
+ { "an", "¥Ê" },
+ { "in", "¥Ë" },
+ { "un", "¥Ì" },
+ { "en", "¥Í" },
+ { "on", "¥Î" },
+ { "nn", "¥ó" },
+ { "ap", "¥Ñ" },
+ { "ip", "¥Ô" },
+ { "up", "¥×" },
+ { "ep", "¥Ú" },
+ { "op", "¥Ý" },
+ { "aq", "¥¯¥¡" },
+ { "iq", "¥¯¥£" },
+ { "uq", "¥¯¥¥" },
+ { "eq", "¥¯¥§" },
+ { "oq", "¥¯¥©" },
+ { "ar", "¥é" },
+ { "ir", "¥ê" },
+ { "ur", "¥ë" },
+ { "er", "¥ì" },
+ { "or", "¥í" },
+ { "as", "¥µ" },
+ { "is", "¥·" },
+ { "us", "¥¹" },
+ { "es", "¥»" },
+ { "os", "¥½" },
+ { "at", "¥¿" },
+ { "it", "¥Á" },
+ { "ut", "¥Ä" },
+ { "et", "¥Æ" },
+ { "ot", "¥È" },
+ { "av", "¥ô¥¡" },
+ { "iv", "¥ô¥£" },
+ { "uv", "¥ô" },
+ { "ev", "¥ô¥§" },
+ { "ov", "¥ô¥©" },
+ { "aw", "¥ï" },
+ { "iw", "¥ð" },
+ { "uw", "¥¦" },
+ { "ew", "¥¦¥§" },
+ { "ow", "¥ò" },
+ { "ax", "¥¡" },
+ { "ix", "¥£" },
+ { "ux", "¥¥" },
+ { "ex", "¥§" },
+ { "ox", "¥©" },
+ { "ay", "¥ä" },
+ { "iy", "¥¤" },
+ { "uy", "¥æ" },
+ { "ey", "¥¤¥§" },
+ { "oy", "¥è" },
+ { "az", "¥¶" },
+ { "iz", "¥¸" },
+ { "uz", "¥º" },
+ { "ez", "¥¼" },
+ { "oz", "¥¾" },
+ { "'n", "¥ó" },
+ { "a", "¥¢" },
+ { "i", "¥¤" },
+ { "u", "¥¦" },
+ { "e", "¥¨" },
+ { "o", "¥ª" },
+ { " ", "¡¡" },
+ { "!", "¡ª" },
+ { "\"", "¡É" },
+ { "#", "¡ô" },
+ { "$", "¡ð" },
+ { "%", "¡ó" },
+ { "&", "¡õ" },
+ { "'", "¡Ç" },
+ { "(", "¡Ê" },
+ { ")", "¡Ë" },
+ { "*", "¡ö" },
+ { "+", "¡Ü" },
+ { ",", "¡¢" },
+ { "-", "¡¼" },
+ { ".", "¡£" },
+ { "/", "¡¦" },
+ { "0", "£°" },
+ { "1", "£±" },
+ { "2", "£²" },
+ { "3", "£³" },
+ { "4", "£´" },
+ { "5", "£µ" },
+ { "6", "£¶" },
+ { "7", "£·" },
+ { "8", "£¸" },
+ { "9", "£¹" },
+ { ":", "¡§" },
+ { ";", "¡¨" },
+ { "<", "¡ã" },
+ { "=", "¡á" },
+ { ">", "¡ä" },
+ { "?", "¡©" },
+ { "@", "¡÷" },
+ { "[", "¡Ö" },
+ { "\\", "¡ï" },
+ { "]", "¡×" },
+ { "^", "¡°" },
+ { "_", "¡²" },
+ { "`", "¡Æ" },
+ { "{", "¡Ð" },
+ { "|", "¡Ã" },
+ { "}", "¡Ñ" },
+ { "~", "¡Á" },
+ { NULL, NULL }
+ };
+ static int roman = true;
+ static char roman_buf[] = { "\0\0\0\0\0" };
+ int i;
+ int len;
+ int n;
+ int soku;
+
+ if (key == 0) { /* Clear roman buffer */
+ memset(roman_buf, 0, sizeof(roman_buf));
+ return 0;
+ }
+ if (key == -1) { /* Roman mode off */
+ roman = false;
+ return 0;
+ }
+ if (key == '\t') { /* Toggle roman mode */
+ roman = !roman;
+ memset(roman_buf, 0, sizeof(roman_buf));
+ return 0;
+ }
+
+ if (!roman || (key & 0x80) || !isprint(key)) {
+ memset(roman_buf, 0, sizeof(roman_buf));
+ return 0;
+ }
+
+ memmove(roman_buf + 1, roman_buf, sizeof (roman_buf) - 1);
+ roman_buf[0] = key;
+
+ for (i = 0; kana[i].alpha != NULL; i++) {
+ len = strlen(kana[i].alpha);
+
+ if (!strncasecmp(roman_buf, kana[i].alpha, len)) {
+ soku = (roman_buf[len - 1] == roman_buf[len]);
+
+ if(soku)
+ n = (roman_buf[len + 1] == 'n');
+ else
+ n = (roman_buf[len] == 'n');
+
+ sprintf (buf, "%.*s%s%s%s", len + n + soku, "\b\b\b\b\b", (n ? "¥ó": ""), (soku ? "¥Ã": ""), kana[i].kana);
+
+ memset(roman_buf, 0, sizeof (roman_buf));
+ return strlen(buf);
+ }
+ }
+ return 0;
+}
* does not pop the mark itself (use cmdwin_pop for that). */
extern void cmdwin_pop_to_mark();
+struct dictionary {
+ char *kana;
+ char *english;
+ char *kanji;
+};
+extern struct dictionary *dictionary;
+extern int alpha_to_kana(int, char *);
+extern int kana_to_english(char *, char *, char *);
+
#endif
case COMBAT_STATE_DONE:
switch (new_state) {
case COMBAT_STATE_FIGHTING:
- log_banner("^c+mCOMBAT^c-");
+ log_banner("^c+mÀïÆ®^c-");
sound_play(Combat.sound_enter, SOUND_MAX_VOLUME);
break;
case COMBAT_STATE_LOOTING:
break;
case COMBAT_STATE_CAMPING:
- log_banner("CAMPING");
+ log_banner("µÙ©");
break;
default:
assert(false);
case COMBAT_STATE_FIGHTING:
switch (new_state) {
case COMBAT_STATE_LOOTING:
- log_banner("^c+gVICTORY^c-");
+ log_banner("^c+g¾¡Íø^c-");
sound_play(Combat.sound_victory, SOUND_MAX_VOLUME);
player_party->addExperience(COMBAT_VICTORY_XP);
break;
case COMBAT_STATE_DONE:
- log_banner("^c+rDEFEAT^c-");
+ log_banner("^c+rÇÔËÌ^c-");
sound_play(Combat.sound_defeat, SOUND_MAX_VOLUME);
break;
default:
case COMBAT_STATE_LOOTING:
switch (new_state) {
case COMBAT_STATE_FIGHTING:
- log_banner("^c+mCOMBAT^c-");
+ log_banner("^c+mÀïÆ®^c-");
sound_play(Combat.sound_enter, SOUND_MAX_VOLUME);
break;
case COMBAT_STATE_DONE:
case COMBAT_STATE_CAMPING:
switch (new_state) {
case COMBAT_STATE_FIGHTING:
- log_banner("^c+mCOMBAT^c-");
+ log_banner("^c+mÀïÆ®^c-");
sound_play(Combat.sound_enter, SOUND_MAX_VOLUME);
break;
case COMBAT_STATE_LOOTING:
if (!combat_position_enemy(info->move->npc_party,
info->move->dx, info->move->dy,
!info->defend, Place)) {
- log_begin("*** FORFEIT ***");
- log_msg("Your opponent slips away!");
+ log_begin("*** ÁÓ¼º ***");
+ log_msg("Áê¼ê¤ò¸«¼º¤Ã¤¿¡ª");
log_end(NULL);
combat_set_state(COMBAT_STATE_LOOTING);
}
// fixme -- obsolete, use the next one
static const char *dir_str[] = {
- "Northwest", "North", "Northeast",
- "West", "Here", "East",
- "Southwest", "South", "Southeast",
- "Up", "Down"
+ "ËÌÀ¾", "ËÌ", "ËÌÅì",
+ "À¾", "¤³¤³", "Åì",
+ "ÆîÀ¾", "Æî", "ÆîÅì",
+ "¾å", "²¼"
};
static unsigned char dir_facing[] = {
}
// Print the repeat notice for the first time.
snprintf(Console.lines[Console.line], CONSOLE_MAX_MSG_SZ,
- "[again]");
+ "[·«¤êÊÖ¤·]");
Console.room -= strlen(Console.lines[Console.line]);
Console.cursor += strlen(Console.lines[Console.line]);
// with the updated repeat count.
memset(Console.lines[Console.line], 0, CONSOLE_MAX_MSG_SZ + 1);
snprintf(Console.lines[Console.line], CONSOLE_MAX_MSG_SZ,
- "[%d times]", Console.repeat);
+ "[%d²óÌÜ]", Console.repeat);
}
consoleRepaint();
if (Console.room == CONSOLE_MAX_MSG_SZ) {
/* Rule 2 */
- while (isspace(*ptr) && printed) {
+ while (isspace((unsigned char )*ptr) && printed) {
if (!wrapped) {
if (*ptr == '\n') {
}
/* Rule 3 */
- while (!isspace(*ptr) && printed && Console.room) {
-
- /* copy the char */
- *Console.cursor = *ptr;
+ if ((*ptr & 0x80) && printed >= 2 && Console.room >= 2) {
+ /* copy the char (kanji) */
+ *(Console.cursor + 0) = *(ptr + 0);
+ *(Console.cursor + 1) = *(ptr + 1);
/* advance source and destination */
- printed--;
- ptr++;
- Console.room--;
- Console.cursor++;
+ printed -= 2;
+ ptr += 2;
+ Console.room -= 2;
+ Console.cursor += 2;
+ } else {
+ while (!isspace((unsigned char )*ptr) && !(*ptr & 0x80) && printed && Console.room) {
+ /* copy the char */
+ *Console.cursor = *ptr;
+
+ /* advance source and destination */
+ printed--;
+ ptr++;
+ Console.room--;
+ Console.cursor++;
+ }
}
words++;
/* Check for end-of-line */
- if (!Console.room) {
+ if (!Console.room || Console.room == 1) {
wrapped = 1;
goto newline;
}
wrapped = 0;
- while (isspace(*ptr) && Console.room && printed) {
+ while (isspace((unsigned char )*ptr) && Console.room && printed) {
if (*ptr == '\n') {
ptr++;
Console.cursor++;
}
- if (!Console.room) {
+ if (!Console.room || ((*ptr & 0x80) && Console.room == 1)) {
wrapped = 1;
goto newline;
}
/* All right. At this point I know I have space left and
* another word to print. Rule 5. */
- eow = strpbrk(ptr, " \t\n\r");
- if (eow)
+ if (*ptr & 0x80)
+ wlen = 2;
+ else {
+ for (eow = ptr; *eow != 0 && *eow != ' ' && *eow != '\t' && *eow != '\n' && *eow != '\r' && !(*eow & 0x80); eow++)
+ ;
wlen = eow - ptr;
- else
- wlen = printed;
+ }
if (wlen > Console.room) {
wrapped = 1;
*/
static int conv_get_player_query(struct KeyHandler *kh, int key, int keymod)
{
+ char kana_buf[128];
+ int kana_len;
+ int i;
+
if (key == CANCEL) {
while (conv_ptr > conv_query) {
conv_ptr--;
cmdwin_pop();
conv_room++;
}
+ alpha_to_kana(key, NULL);
return 1;
}
if (key == '\n') {
+ alpha_to_kana(key, NULL);
return 1;
}
if (key == '\b') {
if (conv_ptr != conv_query) {
- conv_ptr--;
- *conv_ptr = 0;
- conv_room++;
- cmdwin_pop();
+ if (*(conv_ptr - 1) & 0x80) {
+ conv_ptr -= 2;
+ *conv_ptr = 0;
+ conv_room += 2;
+ cmdwin_pop();
+ cmdwin_pop();
+ } else {
+ conv_ptr--;
+ *conv_ptr = 0;
+ conv_room++;
+ cmdwin_pop();
+ }
}
+ alpha_to_kana(key, NULL);
return 0;
}
- if (isprintable(key)
+ if ((isprintable(key) || (key & 0x80))
&& conv_room) {
cmdwin_push("%c", key);
*conv_ptr++ = key;
conv_room--;
}
+ kana_len = alpha_to_kana (key, kana_buf);
+ if (kana_len) {
+ for (i = 0; i < kana_len; i++) {
+ conv_get_player_query (kh, kana_buf[i], keymod);
+ }
+ }
+
return 0;
}
void conv_enter(Object *npc, Object *pc, struct conv *conv)
{
struct KeyHandler kh;
+ char english[MAX_KEYWORD_SZ];
+ char kanji[MAX_KEYWORD_SZ];
assert(conv);
Session->subject = (class Being*)pc;
}
- log_banner("^c+yCONVERSATION^c-");
+ log_banner("^c+y²ñÏÃ^c-");
session_run_hook(Session, conv_start_hook, "pp", pc, npc);
conv_ptr = conv_query;
cmdwin_clear();
- cmdwin_push("Say: ");
+ cmdwin_push("¸À¤¦: ");
/*** Get next query ***/
conv_query[MAX_KEYWORD_SZ] = 0;
conv_len = strlen(conv_query);
if (! conv_len)
- sprintf(conv_query, "bye");
- log_msg("^c+%c%s:^c- %s", CONV_PC_COLOR,
- pc->getName(), conv_query);
+ sprintf(conv_query, "¥µ¥è¥Ê¥é");
+ kana_to_english(conv_query, english, kanji);
+ strcpy(conv_query, english);
+ log_msg("^c+%c%s: ^c-%s", CONV_PC_COLOR,
+ pc->getName(), kanji);
/*** Check if player ended conversation ***/
);
}
+int iskanji(int c)
+{
+ return c & 0x80;
+}
+
+int conv_lookup_dictionary(char *word, struct dictionary **dic)
+{
+ size_t found_len = 0;
+ size_t kanji_len;
+ int i;
+
+ *dic = NULL;
+
+ for(i = 0; dictionary[i].kana != NULL; i++) {
+ kanji_len = strlen(dictionary[i].kanji);
+ if (kanji_len > found_len && !strncmp(word, dictionary[i].kanji, kanji_len)) {
+ found_len = kanji_len;
+ *dic = &dictionary[i];
+ }
+ }
+
+ return (int )found_len;
+}
+
int conv_get_word(char *instr, char **beg, char **end)
{
+ struct dictionary *dic;
+ int len;
char *inp = instr;
- while (*inp && !isalpha(*inp)) {
- inp++;
+ if (iskanji(*inp)) {
+ *beg = instr;
+
+ if((len = conv_lookup_dictionary(instr, &dic)) <= 0) {
+ len = 2;
+ }
+
+ *end = instr + len;
+
+ return 1;
}
if (!*inp) {
*beg = inp;
- while (*inp && isalpha(*inp)) {
- inp++;
+ if (isalpha(*inp)) {
+ while (*inp && isalpha(*inp)) {
+ inp++;
+ }
+ } else {
+ while(*inp && !isalpha(*inp) && !iskanji(*inp)) {
+ inp++;
+ }
}
*end = inp;
int conv_is_keyword(struct conv *conv, char *word)
{
+ struct dictionary *dic;
int index;
if (! conv_keyword_highlighting) {
return 0;
}
+ if(iskanji(*word)) {
+ if(conv_lookup_dictionary(word, &dic) > 0) {
+ word = dic->english;
+ }
+ }
+
index = conv_lookup_keyword(conv, word);
if (index == -1) {
return 0;
ca->conv_ptr = ca->conv_query;
cmdwin_clear();
- cmdwin_push("Say: ");
+ cmdwin_push("¸À¤¦¡§");
/*** Get next query ***/
break;
case ' ':
party->endTurn();
- log_msg("Pass");
+ log_msg("²¿¤â¤·¤Ê¤¤¡£");
break;
case '>':
// This key was chosen to be a cognate for '>' in
/* Return true when done processing commands. */
if(!party->isTurnEnded())
- cmdwin_push("Party [%d ap]:",party->getActionPoints());
+ cmdwin_push("Á´°÷ [¹ÔÆ°%d]:",party->getActionPoints());
return party->isTurnEnded();
int attackBonus = character->getAttackBonus(weapon);
int val = base + weaponBonus + attackBonus + penalty;
- log_continue("to-hit: %d=%d+%d+%d", val, base, weaponBonus,
+ log_continue("Ì¿Ãæ: %d=%d+%d+%d", val, base, weaponBonus,
attackBonus);
if (penalty >= 0) {
log_continue("+");
int bonus = target->getAvoidBonus();
int val = base + bonus;
- log_continue("to-def: %d=%d+%d\n", val, base, bonus);
+ log_continue("²óÈò: %d=%d+%d\n", val, base, bonus);
return val;
}
int val = weaponDamage + characterBonus + criticalBonus + memberBonus;
- log_continue("damage: %d=%d+%d", val, weaponDamage, characterBonus);
+ log_continue("ÂÇ·â: %d=%d+%d", val, weaponDamage, characterBonus);
if (memberBonus) {
log_continue("+%d", memberBonus);
}
armor = target->getArmor();
}
- log_continue(" armor: %d\n", armor);
+ log_continue("Ëɸæ: %d\n", armor);
return armor;
}
* factions */
harm_relations(character, target);
- log_begin("^c%c%s^cw attacks ^c%c%s^cw with %s: "
+ log_begin("^c%c%s^cw¤Ï%s¤Ç^c%c%s^cw¤ò¹¶·â:"
, (are_hostile(character, player_party)?'r':'g')
, character->getName()
+ , weapon->getName()
, (are_hostile(target, player_party)?'r':'g')
, target->getName()
- , weapon->getName()
);
if (weapon->canOnAttack())
if (miss)
{
- log_end("obstructed!");
+ log_end("¾¤ËÅö¤¿¤Ã¤¿¡ª");
weapon->fireHitLoc(character, NULL, character->getPlace(),misx,misy,-1);
return;
}
def = ctrl_calc_to_defend(target);
if (hit < def)
{
- log_end("evaded!");
+ log_end("Ì¿Ã椷¤Ê¤«¤Ã¤¿¡ª");
weapon->fireHitLoc(character, NULL, character->getPlace(),misx,misy,-1);
return;
}
if (20 <= (dice_roll("1d20")
+ logBase2(character->getBaseAttackBonus(weapon)))) {
critical = 1;
- log_continue("^c+yCritical hit!^c-\n");
+ log_continue("^c+yµÞ½ê¤ËÌ¿Ã椷¤¿¡ª^c-\n");
}
/* roll for damage */
if (damage <= 0)
{
- log_end("blocked!");
+ log_end("Ëɸ椷¤¿¡ª");
weapon->fireHitLoc(character, target, character->getPlace(),misx,misy,0);
return;
}
// turn-based mode.
if (player_party->getPartyControlMode() == PARTY_CONTROL_FOLLOW &&
player_party->getSize() > 1) {
- log_msg("Switching from Follow to Round Robin Mode.\n");
+ log_msg("¡ÖÄÉÀספ«¤é¡Ö½çÈ֡פËÀÚ¤êÂؤï¤Ã¤¿¡£\n");
player_party->enableRoundRobinMode();
}
// prompt the user
cmdwin_clear();
- cmdwin_spush("Attack");
+ cmdwin_spush("¹¶·â¤¹¤ë");
// Determine AP for this (potential) attack,
// as a discount may be applied for dual weapon attacks and such,
if (weapon->isMissileWeapon()) {
// SAM: It would be nice to get ammo name, too...
- cmdwin_spush("%s (%d AP, range %d, %d ammo)",
+ cmdwin_spush("%s(¹ÔÆ°%d, ¼ÍÄø%d, »Ä%d)",
weapon->getName(),
this_wpn_AP,
weapon->getRange(),
}
else if (weapon->isThrownWeapon()) {
// SAM: It would be nice to get ammo name, too...
- cmdwin_spush("%s (%d AP, range %d, %d left)",
+ cmdwin_spush("%s(¹ÔÆ°%d, ¼ÍÄø%d, »Ä%d)",
weapon->getName(),
this_wpn_AP,
weapon->getRange(),
character->hasAmmo(weapon));
}
else {
- cmdwin_spush("%s (%d AP, reach %d)",
+ cmdwin_spush("%s(¹ÔÆ°%d, ¼ÍÄø%d)",
weapon->getName(),
this_wpn_AP,
weapon->getRange() );
// Check ammo
if (!character->hasAmmo(weapon)) {
- cmdwin_spush("no ammo!");
- log_msg("%s: %s - no ammo!\n",
+ cmdwin_spush("ÃƤ¬¤Ê¤¤¡ª");
+ log_msg("%s: %s - ÃƤ¬¤Ê¤¤¡ª\n",
character->getName(),
weapon->getName());
continue;
class Character *near;
near = ctrl_get_interfering_hostile(character);
if (near) {
- cmdwin_spush("blocked!");
- log_msg("%s: %s - blocked by %s!\n",
+ cmdwin_spush("˸³²¡ª");
+ log_msg("%s: %s - %s¤Ë˸³²¤µ¤ì¤¿¡ª\n",
character->getName(),
weapon->getName(),
near->getName());
&x, &y,
weapon->getRange(),
&info.suggest)) {
- cmdwin_spush("abort!");
+ cmdwin_spush("ÃæÃÇ¡ª");
continue;
}
if (miss)
{
- log_end("obstructed!");
+ log_end("Ëɸ桪");
}
weapon->fireHitLoc(character, NULL, character->getPlace(),misx,misy,-1);
mech = place_get_object(character->getPlace(), x, y,
mech_layer);
if (mech && mech->getName()) {
- log_end("%s hit!", mech->getName());
+ log_end("%s¤ËÌ¿Ã椷¤¿¡ª", mech->getName());
mech->attack(character);
} else {
- log_end("%s hit!", terrain->name);
+ log_end("%s¤ËÌ¿Ã椷¤¿¡ª", terrain->name);
}
}
* next weapon". This allows players to quickly jump to
* the next weapon if no target is in range and they
* aren't interested in attacking the ground. */
- cmdwin_spush("skip weapon!");
+ cmdwin_spush("¼¡¤ÎÉð´ï¤Ø¡ª");
// no attack made, so don't increment this_is_nth_attack
continue;
} else {
// If the npc is not hostile then get player confirmation.
if (! are_hostile(character, target)) {
int yesno;
- cmdwin_spush("attack non-hostile");
+ cmdwin_spush("Ũ¤Ç¤Ê¤¤¼Ô¤ò¹¶·â¤¹¤ë");
cmdwin_spush("<y/n>");
getkey(&yesno, yesnokey);
cmdwin_pop();
if (yesno == 'n') {
- cmdwin_spush("no");
+ cmdwin_spush("¤¤¤¤¤¨");
continue;
}
- cmdwin_spush("yes");
+ cmdwin_spush("¤Ï¤¤");
}
// Strike the target
* still be okay now that getToHitPenalty() is outside of this
* loop, but not sure why it' would be preferred. */
if (! character->hasAmmo(weapon))
- log_msg("%s : %s now out of ammo\n",
+ log_msg("%s : %s¤ÏÃÆÀÚ¤ì\n",
character->getName(), weapon->getName());
character->decActionPoints(this_wpn_AP);
switch (move_result) {
case OffMap:
- result = "no place to go!";
+ result = "¹Ô¤±¤ë¾ì½ê¤¬¤Ê¤¤¡ª";
break;
case ExitedMap:
- result = "exit!";
+ result = "æ½Ð¡ª";
character->endTurn();
break;
case EngagedEnemy:
- cmdwin_spush("enter combat!");
+ cmdwin_spush("ÀïÆ®¾õÂÖ¡ª");
break;
case WasOccupied:
- result = "occupied!";
+ result = "¿Ê¤á¤Ê¤¤¡ª";
break;
case WasImpassable:
{
mech->getObjectType()->handle(mech, character);
character->decActionPoints(kern_intvar_get("AP_COST:handle_mechanism"));
mapSetDirty();
- result = "handled!";
+ result = "Áàºî¤·¤¿¡ª";
}
else if (mech && mech->getObjectType()->canBump())
{
}
else
{
- result = "impassable!";
+ result = "Ä̤ì¤Ê¤¤¡ª";
}
}
break;
case SlowProgress:
- result = "slow progress!";
+ result = "ÃÙ¤¤¡ª";
break;
case SwitchedOccupants:
- result = "switch!";
+ result = "Æþ¤ìÂؤï¤Ã¤¿!";
break;
case NotFollowMode:
- result = "must be in follow mode!";
+ result = "ÄÉÀ×Ãæ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡ª";
break;
case CantRendezvous:
- result = "party can't rendezvous!";
+ result = "Ãç´Ö¤È½¸¹ç¤·¤Æ¤¤¤Ê¤¤¡ª";
break;
case CouldNotSwitchOccupants:
- result = "can't switch places!";
+ result = "Æþ¤ìÂؤï¤ì¤Ê¤¤¡ª";
break;
default:
break;
character->endTurn();
}
} else {
- foogod_set_title("Round Robin: %s", character->getName());
+ foogod_set_title("%s: %s", "½çÈÖ", character->getName());
foogodRepaint();
}
break;
cmdAT(character);
break;
case ' ':
- log_msg("Pass");
+ log_msg("²¿¤â¤·¤Ê¤¤¡£");
character->endTurn();
break;
case '?':
// log_msg("");
break;
}
- log_msg("To exit this combat map, use '<', \nor walk off the edge of the map.");
+ log_msg("'<'¤ò²¡¤¹¤«¡¢¤³¤ÎÃϿޤγ°¤Ë°ÜÆ°¤¹¤ë¤ÈÀïÆ®¤«¤éÈ´¤±¤é¤ì¤ë¡£");
break;
case '<':
if (!place_is_wilderness_combat(character->getPlace()))
{
- log_msg("Must use an exit!");
+ log_msg("ÀïÆ®Ãæ¤Ç¤Ê¤¤¡ª");
break;
}
if (place_contains_hostiles(character->getPlace(),
character))
{
- log_msg("Not while foes remain!");
+ log_msg("Ũ¤¬¤Þ¤À¤¤¤ë¡ª");
break;
}
/* ready the cmdwin prompt */
cmdwin_clear();
- cmdwin_push("Party [%d ap]:",party->getActionPoints());
+ cmdwin_push("Á´°÷ [¹ÔÆ°%d]:",party->getActionPoints());
kh.fx = &ctrl_party_key_handler;
kh.data = party;
int level = dtable_get(dtable, f1, f2);
if (level <= dtable->hostile)
- return "hostile";
+ return "ŨÂÐŪ";
else if (level >= dtable->allies)
- return "allied";
+ return "ͧ¹¥Åª";
else
- return "neutral";
+ return "ÃæΩŪ";
}
static void esc_help(void)
{
- log_begin("F)ollow mode\n");
- log_continue("Q)uit\n");
- log_continue("[1-9] Solo mode\n");
- log_continue("CTRL-R)eload\n");
- log_continue("CTRL-S)ave\n");
- log_end("ESC to continue game\n");
+ log_begin("F)ÄÉÀ×\n");
+ log_continue("Q)½ªÎ»\n");
+ log_continue("1-9)ñÆÈ\n");
+ log_continue("CTRL-R)Æɹþ\n");
+ log_continue("CTRL-S)Êݸ\n");
+ log_end("ESC¤Ç³¤±¤ë\n");
}
static int esc_menu_key_fx(struct KeyHandler *kh, int key, int keymod)
cmdSettings();
break;
case SDLK_ESCAPE:
- log_msg("Continue");
+ log_msg("³¤±¤ë¡£");
return 1;
case '?':
esc_help();
return 0;
}
- log_banner("ESC mode - press '?' for help");
+ log_banner("ESC¾õÂÖ - '?'¤ÇÀâÌÀ¤òɽ¼¨¤¹¤ë¡£");
kh.fx = esc_menu_key_fx;
eventPushKeyHandler(&kh);
/* If the key has a UNICODE representation and its from the default
* Basic Latin code page then return it as an ASCII character. */
/* fixme: unicode is messing up ctrl+key sequences */
- if (keysym->unicode) {
+ if (keysym->unicode && !(key >= SDLK_KP0 && key <= SDLK_KP9)) {
/* Map CR to LF (legacy code expects this) */
if (keysym->unicode == 0x000d)
static void foogodPaintSessionInfo()
{
- screenPrint(&Foogod.turnRect, 0, "Turn: %d", session_get_turn_count());
+ screenPrint(&Foogod.turnRect, 0, "²ó¿ô: %d", session_get_turn_count());
foogodPaintEffects();
if (player_party) {
- screenPrint(&Foogod.foodRect, 0, "Food: %d",
+ screenPrint(&Foogod.foodRect, 0, "¿©ÎÁ: %d",
player_party->food);
- screenPrint(&Foogod.goldRect, SP_RIGHTJUSTIFIED, "Gold: %d",
+ screenPrint(&Foogod.goldRect, SP_RIGHTJUSTIFIED, "¶â: %d",
player_party->gold);
if (player_party->getVehicle()) {
- screenPrint(&Foogod.hullRect, 0, "Hull: %d",
+ screenPrint(&Foogod.hullRect, 0, "Á¥ÂÎ: %d",
player_party->getVehicle()->getHp());
}
}
if (Session) {
foogodPaintSessionInfo();
}
+ const char *combat_state_jp;
+ switch (combatGetState()) {
+ case 'N': combat_state_jp = "̵"; break;
+ case 'Y': combat_state_jp = "Àï"; break;
+ case 'V': combat_state_jp = "¾¡"; break;
+ default: combat_state_jp = "";
+ }
screenPrint(&Foogod.combatRect, SP_RIGHTJUSTIFIED,
- "Combat: %c", combatGetState());
+ "ÀïÆ®¾õÂÖ: %s", combat_state_jp);
break;
case FOOGOD_HINT:
}
if (speaker->isKnown()) {
- log_begin("^c+%c%s:^c- ", CONV_NPC_COLOR, speaker->getName());
+ log_begin("^c+%c%s: ^c-", CONV_NPC_COLOR, speaker->getName());
} else {
log_begin("^c+%c", CONV_NPC_COLOR);
speaker->describe();
- log_continue(":^c- ");
+ log_continue(": ^c-");
}
args = scm_car(sc, args);
static pointer kern_conv_get_amount(scheme *sc, pointer args)
{
cmdwin_clear();
- cmdwin_spush("How much");
+ cmdwin_spush("¤¤¤¯¤é");
return scm_mk_integer(sc, ui_get_quantity(-1));
}
return sc->F;
}
- log_begin("You are accosted by ");
+ log_begin("");
Session->subject = player_party;
npc->describe();
Session->subject = NULL;
- log_end(".");
+ log_end("¤¬Ïä·¤«¤±¤Æ¤¤¿¡£");
conv_enter(npc, member, conv);
foogodSetMode(FOOGOD_HINT);
statusSetPageText(title, text);
statusSetMode(Page);
- consolePrint("[Hit ESC to continue]\n");
+ consolePrint("[ESC¥¡¼¤ò²¡¤¹¤È³¤±¤ë]\n");
kh.fx = scroller;
kh.data = NULL;
KERN_OBSOLETE_CALL(kern_set_frame);
KERN_OBSOLETE_CALL(kern_set_cursor);
+static int cmp_dictionary(const void *a, const void *b)
+{
+ int a_len = strlen(((struct dictionary *)a)->kana);
+ int b_len = strlen(((struct dictionary *)b)->kana);
+
+ if (a_len > b_len) {
+ return 1;
+ } else if (a_len < b_len) {
+ return -1;
+ } else {
+ return 0;
+ }
+}
+
+static int find_dictionary(const char *kana)
+{
+ int i;
+
+ for (i = 0; dictionary[i].kana != NULL; i++)
+ if (strcmp(dictionary[i].kana, kana) == 0)
+ return i;
+ return -1;
+}
+
+static void kern_dictionary(scheme *sc, pointer pp)
+{
+ int i, j;
+ char *kana, *english, *kanji;
+
+ if (dictionary == NULL) {
+ dictionary = (struct dictionary *)malloc(sizeof (struct dictionary));
+ dictionary[0].kana = NULL;
+ }
+
+ for (i = 0; scm_is_pair(sc, pp); i++) {
+ unpack(sc, &pp, "sss", &kana, &english, &kanji);
+
+ if ((j = find_dictionary(kana)) < 0) {
+ for(j = 0; dictionary[j].kana != NULL; j++)
+ ;
+ dictionary = (struct dictionary *)realloc(dictionary, sizeof(struct dictionary) * (j + 2));
+
+ dictionary[j].kana = (char *)malloc(strlen(kana) + 1);
+ dictionary[j].english = (char *)malloc(strlen(english) + 1);
+ dictionary[j].kanji = (char *)malloc(strlen(kanji) + 1);
+
+ strcpy(dictionary[j].kana, kana);
+ strcpy(dictionary[j].english, english);
+ strcpy(dictionary[j].kanji, kanji);
+ dictionary[j + 1].kana = NULL;
+ }
+ }
+
+ for(j = 0; dictionary[j].kana != NULL; j++)
+ ;
+ qsort(dictionary, j, sizeof(struct dictionary), cmp_dictionary);
+}
+
static int fincount=0; /* for debug */
static void kern_finalize(scheme *sc, pointer pp)
{
API_DECL(sc, "kern-set-cursor", kern_set_cursor);
API_DECL(sc, "kern-set-ascii", kern_set_ascii);
+ /* kern-dictionary api */
+ API_DECL(sc, "kern-dictionary", kern_dictionary);
/* Revisit: probably want to provide some kind of custom port here. */
scheme_set_output_port_file(sc, stderr);
#include <sys/types.h>
#include <unistd.h>
-#define LOADSAVE_HINT "\005\006=scroll ENT=select DEL=delete ESC=exit"
+#define LOADSAVE_HINT "\005\006=ÁªÂò ENT=·èÄê DEL=ºï½ü ESC=Ìá¤ë"
/**
* Enable this option to have the a "L)oad Game" menu item in addition to the
/**
* This is what the Save Game menu shows for the new game option.
*/
-static const char *MENU_NEW_GAME_STR = "N)ew Saved Game";
+static const char *MENU_NEW_GAME_STR = "N)¿·¤·¤¤Êݸ¥Õ¥¡¥¤¥ë";
/**
* This is a hack added to support demo mode. I'll try to explain, because it's
static void show_credits(void)
{
struct KeyHandler kh;
- const char *title = "Credits";
+ const char *title = "À©ºî¼Ô";
const char *text =
"Engine Programming\n"\
"...Gordon McNutt\n"\
statusSetPageText(title, text);
statusSetMode(Page);
- consolePrint("[Hit ESC to continue]\n");
+ consolePrint("[ESC¤ò²¡¤¹¤ÈÌá¤ë]\n");
kh.fx = scroller;
kh.data = NULL;
static int confirm_selection()
{
int yesno;
- log_msg("Existing saved game will be overwritten! Are you sure?");
+ log_msg("º£¤¢¤ëÊݸ¥Õ¥¡¥¤¥ë¤ò¾å½ñ¤¤·¤Æ¤è¤¤¤«¡©");
cmdwin_clear();
- cmdwin_spush("Confirm");
+ cmdwin_spush("³Îǧ");
cmdwin_spush("<y/n>");
getkey(&yesno, yesnokey);
cmdwin_pop();
if (yesno=='y') {
- cmdwin_spush("yes!");
- log_msg("Ok!");
+ cmdwin_spush("¤Ï¤¤¡ª");
+ log_msg("¾å½ñ¤¡ª");
return 1;
} else {
- cmdwin_spush("no!");
- log_msg("Canceled!");
+ cmdwin_spush("¤¤¤¤¤¨¡ª");
+ log_msg("¼è¤ê¾Ã¤·¡ª");
return 0;
}
}
*/
static void menu_show_screenshot(SDL_Surface *screenshot)
{
- static const char *MENU_SCREEN_SHOT_STR = "^c+ySCREEN SHOT^c-";
+ static const char *MENU_SCREEN_SHOT_STR = "^c+y»£¤é¤ì¤¿²èÌÌ^c-";
SDL_Rect rect;
mapSetImage(screenshot);
return;
/* Prompt to confirm. */
- log_begin("Delete %s?", save->fname);
+ log_begin("%s¤òºï½ü¤¹¤ë¤«¡©", save->fname);
log_flush();
cmdwin_clear();
- cmdwin_push("Delete-");
+ cmdwin_push("ºï½ü-");
cmdwin_push("<y/n>");
getkey(&yesno, yesnokey);
cmdwin_pop();
/* If confirmation denied then cancel. */
if (yesno == 'n') {
- cmdwin_spush("abort!");
- log_end(" Canceled!");
+ cmdwin_spush("¼è¤ê¾Ã¤·¡ª");
+ log_end(" ¼è¤ê¾Ã¤·¡ª");
return;
}
/* Confirmed, try to delete the save file. Abort if it doesn't work. */
- cmdwin_push("yes!");
+ cmdwin_push("¤Ï¤¤¡ª");
statusFlashSelected(Red);
if (unlink(save->path)) {
- log_continue(" WARNING! Failed to delete save file %s: %s",
+ log_continue(" ·Ù¹ð¡ªÊݸ¥Õ¥¡¥¤¥ë%s¤Îºï½ü¤Ë¼ºÇÔ¤·¤¿: %s",
save->path, strerror(errno));
}
if (save->screenshot) {
char *scr_fname = saved_game_mk_screenshot_fname(save);
if (unlink(scr_fname)) {
- log_continue(" WARNING! Failed to delete screenshot "\
- "file %s: %s:", scr_fname,
- strerror(errno));
+ log_continue(" ·Ù¹ð¡ª¥¹¥¯¥ê¡¼¥ó¥·¥ç¥Ã¥È%s¤Îºï½ü¤Ë¼ºÇÔ¤·¤¿: %s:",
+ scr_fname, strerror(errno));
}
free(scr_fname);
}
statusSetSelectedIndex(i1 ? (i1 - 1) : 0);
/*statusRepaint();*/
- log_end(" Removed!");
+ log_end(" ºï½ü¤·¤¿¡ª");
}
/**
assert(data.hotkeys);
data.menu = menu;
data.n_menu = n;
- data.title = "Load Game";
+ data.title = "Æɤ߹þ¤ß";
/* Add each saved game to the menu list. */
menubufptr = menubuf;
*/
static int menu_fname_filter(int key)
{
+ if (key == '\t') {
+ return 0;
+ }
+ if (key & 0x80) {
+ return 1;
+ }
if (isalnum(key)
|| (key=='_')
|| (key=='-')
{
char buf[32];
- log_msg("Enter the new filename.");
+ log_msg("¿·¤·¤¤¥Õ¥¡¥¤¥ë̾¤Ï¡©");
cmdwin_clear();
- cmdwin_push("Filename: ");
+ cmdwin_push("¥Õ¥¡¥¤¥ë̾: ");
+ alpha_to_kana(-1, NULL); /* No roman mode. */
if (ui_getline_filtered(buf, sizeof(buf), menu_fname_filter)) {
+ alpha_to_kana('\t', NULL); /* Roman mode */
return strdup(buf);
}
+ alpha_to_kana('\t', NULL); /* Roman mode */
return 0;
}
assert(data.hotkeys);
data.menu = menu;
data.n_menu = n;
- data.title = "Save Game";
+ data.title = "Êݸ";
/* Prepare to fill in the menu list. */
i = 0;
char * main_menu(void)
{
- static const char *START_NEW_GAME="S)tart New Game";
- static const char *JOURNEY_ONWARD="J)ourney Onward";
- static const char *LOAD_GAME="L)oad Game";
- static const char *CREDITS="C)redits";
- static const char *QUIT="Q)uit";
- static const char *TUTORIAL="T)utorial";
- static const char *SETTINGS = "S(e)ttings";
- static const char *DEMO = "Show (I)ntro";
+ static const char *START_NEW_GAME="S)»Ï¤á¤«¤é";
+ static const char *JOURNEY_ONWARD="J)ι¤ò³¤±¤ë";
+ static const char *LOAD_GAME="L)¥²¡¼¥à¤òÆɤ߹þ¤à";
+ static const char *CREDITS="C)À½ºî¼Ô";
+ static const char *QUIT="Q)½ªÎ»";
+ static const char *TUTORIAL="T)¥Á¥å¡¼¥È¥ê¥¢¥ë";
+ static const char *SETTINGS = "E)ÀßÄê";
+ static const char *DEMO = "I)¥Ç¥â";
const char *menu[8];
char hotkeys[8+1];
int n_items = 0;
hotkeys[n_items] = 0;
- foogodSetHintText("\005\006=scroll ENT=select");
+ foogodSetHintText("\005\006=ÁªÂò ENT=·èÄê");
foogodSetMode(FOOGOD_HINT);
- statusSetStringList("Main Menu", n_items, menu);
+ statusSetStringList("ÁªÂò", n_items, menu);
statusSetMode(StringList);
data.hotkeys = hotkeys;
{ name, comment, key, 0, 0, 0, handler, ctrl, 0, 0, roo }
static struct option options[OPTION_NUMOPTIONS] = {
- DECL_OPTION("Screen Size", "Set the dimensions of the game screen.",
+ DECL_OPTION("²èÌ̤ÎÂ礤µ", "²èÌ̤ÎÂ礤µ¤ò·è¤á¤ë¡£",
"screen-dims", option_screen_dims),
- DECL_YESNO_OPTION("Sound", "Turn sound on or off.",
+ DECL_YESNO_OPTION("¸ú²Ì²»", "¸ú²Ì²»¤ò½Ð¤¹/½Ð¤µ¤Ê¤¤¡£",
"sound-enabled", option_yes_no, sound_enable, 1),
- DECL_OPTION("Music Volume", "Adjust volume of builtin music.",
+ DECL_OPTION("²»³Ú¤Î²»ÎÌ", "²»³Ú¤Î²»Î̤òÄ´À°¤¹¤ë¡£",
"music-volume", option_music),
- DECL_YESNO_OPTION("Keyword Highlighting",
- "Highlight keywords in conversations with NPC's.",
+ DECL_YESNO_OPTION("¥¡¼¥ï¡¼¥É¤Î¶¯Ä´",
+ "NPC¤È¤Î²ñÏäǥ¡¼¥ï¡¼¥É¤ò¶¯Ä´¤·¤Æɽ¼¨¤¹¤ë¡£",
"keyword-highlighting", option_yes_no,
conv_enable_keyword_highlighting, 0),
};
struct KeyHandler kh;
struct ScrollerContext data;
- log_msg("Choose your screen size");
+ log_msg("²èÌ̤ÎÂ礤µ¤Ï¡©");
cmdwin_clear();
- cmdwin_spush("Screen size");
- cmdwin_spush("<select>");
+ cmdwin_spush("²èÌ̤ÎÂ礤µ");
+ cmdwin_spush("<ÁªÂò>");
- statusSetStringList("Screen Dimensions", array_sz(menu), menu);
+ statusSetStringList("²èÌ̤ÎÂ礤µ", array_sz(menu), menu);
statusSetMode(StringList);
data.selection = NULL;
data.selector = String;
struct KeyHandler kh;
struct ScrollerContext data;
- log_msg("Choose music volume");
+ log_msg("²»³Ú¤Î²»Î̤ϡ©");
cmdwin_clear();
- cmdwin_spush("Volume");
- cmdwin_spush("<select>");
+ cmdwin_spush("²»³Ú¤Î²»ÎÌ");
+ cmdwin_spush("<ÁªÂò>");
- statusSetStringList("Music Volume", array_sz(menu), menu);
+ statusSetStringList("²»ÎÌ", array_sz(menu), menu);
statusSetMode(StringList);
data.selection = NULL;
data.selector = String;
/* Setup status browser (do this every time through the loop,
* as the handler functions might change things) */
cmdwin_clear();
- cmdwin_spush("Settings");
- cmdwin_push("<select/ESC>");
+ cmdwin_spush("ÀßÄê");
+ cmdwin_push("<ÁªÂò/ESC>");
foogodSetHintText(SCROLLER_HINT);
foogodSetMode(FOOGOD_HINT);
- statusSetStringList("Settings", OPTION_NUMOPTIONS,
+ statusSetStringList("ÀßÄê", OPTION_NUMOPTIONS,
(const char**)menu);
statusSetMode(StringList);
data.selection = NULL;
options[i].name,
options[i].val,
options[i].changed ? '*' : ' ',
- options[i].restart ? "(restart)" : ""
+ options[i].restart ? "(ºÆµ¯Æ°)" : ""
);
break;
}
/* Prompt to save */
- log_msg("Save settings?");
- cmdwin_spush("Save");
+ log_msg("ÀßÄê¤òÊݸ¤¹¤ë¤«¡©");
+ cmdwin_spush("Êݸ");
cmdwin_push("<y/n>");
getkey(&yesno, yesnokey);
cmdwin_pop();
cfg_set(options[i].key, options[i].val);
}
if (options_save()) {
- log_msg("Error while saving!");
+ log_msg("ÊݸÃæ¤Ë°Û¾ï¤¬È¯À¸¤·¤¿¡ª");
} else {
- log_msg("Settings saved!");
+ log_msg("Êݸ¤·¤¿¡ª");
if (any_restart) {
- log_msg("NOTE: some of your changes won't "
- "take effect until you Quit and "
- "restart the program. Sorry for the "
- "inconvenience.");
+ log_msg("Ãí°Õ: ¤¤¤¯¤Ä¤«¤ÎÊѹ¹¤Ï½ªÎ»¤·ºÆµ¯Æ°"
+ "¤·¤Ê¤¤¤È͸ú¤Ë¤Ê¤é¤Ê¤¤¡£");
}
}
} else {
- log_msg("Settings unchanged.");
- }
+ log_msg("ÀßÄê¤ÏÊѹ¹¤µ¤ì¤Æ¤¤¤Ê¤¤¡£");
+ }
}
void menu_startup_error(const char *fmt, ...)
/* The first time we start print the vesrsion info. */
if (print_version) {
print_version = 0;
- log_banner("^c+bNazghul version^c- ^c+G%s^c-", PACKAGE_VERSION );
+ log_banner("^c+bNazghul^c- ^c+G%s ÆüËܸìÈÇ^c-", PACKAGE_VERSION );
}
/* paint the border for the first time */
void ObjectType::describeType(int count)
{
- if (1 == count) {
- if (isvowel(name[0]))
- log_continue("an ");
- else
- log_continue("a ");
- log_continue("%s", getName());
- } else if (getPluralName()) {
- log_continue("some %s (%d)", getPluralName(), count);
+ if (1 == count) {
+ log_continue("%s", getName());
} else {
- if (endsWith(name, "s")
- || endsWith(name, "sh"))
- log_continue("some %ses (%d)", getName(), count);
- else
- log_continue("some %ss (%d)", getName(), count);
- }
+ log_continue("%s(%d)", getName(), count);
+ }
}
void ObjectType::describe(Object *obj)
assert(getObjectType()); // else implement this method in subclass
getObjectType()->describe(this);
if (!isVisible()) {
- log_continue(" (invisible)");
+ log_continue("(ÉԲĻë)");
}
if (isSubmerged()) {
- log_continue(" (submerged)");
+ log_continue("(±£ÊÃ)");
}
}
// there are no objects on the tile, but I don't think the
// 'ands' and commas are correct if there are.
// ------------------------------------------------------------
- log_continue(" and the entrance to %s", tile->subplace->name);
+ log_continue("¤È%s¤ÎÆþ¤ê¸ý", tile->subplace->name);
}
node_for_each(&tile->objstack, l) {
first_thing_listed = 0;
} else {
if (n_types == 1)
- log_continue(" and ");
+ log_continue("¡¢¤½¤·¤Æ");
else
- log_continue(", ");
+ log_continue("¡¢");
}
prev_obj->describe();
prev_obj->isShaded())) {
if (!first_thing_listed) {
if (n_types == 1)
- log_continue(" and ");
+ log_continue("¡¢¤½¤·¤Æ");
else
- log_continue(", ");
+ log_continue("¡¢");
}
prev_obj->describe();
if (tile->vehicle && (tile->vehicle->isVisible() || Reveal ||
obj->isShaded())) {
if (n_types == 1)
- log_continue(" and ");
+ log_continue("¡¢¤½¤·¤Æ");
else
- log_continue(", ");
+ log_continue("¡¢");
tile->vehicle->describe();
n_described++;
n_types--;
return;
if (tile->subplace) {
- log_continue("\nthe entrance to %s", tile->subplace->name);
+ log_continue("\n%s¤ÎÆþ¤ê¸ý", tile->subplace->name);
}
node_for_each(&tile->objstack, l) {
WRAP_COORDS(place, x, y);
if (place_off_map(place, x, y)) {
- log_continue("nothing!");
+ log_continue("²¿¤â¤Ê¤¤¡ª");
return;
}
if (flags & PLACE_DESCRIBE_TERRAIN) {
count += place_describe_objects(place, x, y,
(flags & PLACE_DESCRIBE_TERRAIN) == 0);
if (!count)
- log_continue("nothing!");
+ log_continue("²¿¤â¤Ê¤¤¡ª");
}
void place_examine(struct place *place, int x, int y)
WRAP_COORDS(place, x, y);
if (place_off_map(place, x, y)) {
- log_continue("nothing!");
+ log_continue("²¿¤â¤Ê¤¤¡ª");
return;
}
static void play_print_end_of_game_prompt()
{
- log_msg("\n\n^c+r*** YOU HAVE DIED ***^c-\n\n");
- log_msg("No one is left alive in your party!");
- log_msg("Press any key to exit.\n");
+ log_msg("\n\n^x+r*** ¤¢¤Ê¤¿¤Ï»à¤ó¤À¡£ ***^c-\n\n");
+ log_msg("À¸¤»Ä¤Ã¤¿¼Ô¤Ïï¤â¤¤¤Ê¤¤¡ª");
+ log_msg("²¿¤«¥¡¼¤ò²¡¤¹¤È½ªÎ»¤·¤Þ¤¹¡£");
getkey(NULL, anykey);
}
return -1;
}
- log_msg("'?' for help.");
+ log_msg("'?'¤ÇÀâÌÀ¤òɽ¼¨¤¹¤ë¡£");
foogodSetMode(FOOGOD_DEFAULT);
static int play_load_session(char *fname)
{
int error = 0;
- log_begin("Loading from %s...", fname);
+ log_begin("%s¤òÆɤ߹þ¤ßÃæ¡Ä", fname);
log_flush();
log_disable();
kern_intvar_init(); // SAM: Clear the kern_invar hash for the new session
}
return -1;
}
- log_end("^c+gok^c-!");
+ log_end("^c+g´°Î»^c-¡ª");
assert(Session);
- log_msg("Save file version is %u.%u.%u", Session->major, Session->minor, Session->release);
+ log_msg("¥Õ¥¡¥¤¥ë¤Î¥Ð¡¼¥¸¥ç¥ó¤Ï%u.%u.%u", Session->major, Session->minor, Session->release);
foogodSetMode(FOOGOD_DEFAULT);
session_run_hook(Session, new_game_start_hook, "p", Session->player);
return 0;
return false;
}
- log_msg("Starving!");
+ log_msg("µ²¤¨»à¤Ë¤·¤½¤¦¤À¡ª");
/* Partial fix for SF BUG [ 1526910 ] "starvation is lame". Instead of
* a fixed amount of damage, make damage proportional to existing
mapSetPlace(place);
Place = place;
place_enter(place);
- log_banner("Entering %s", Place->name);
+ log_banner("%s¤Ë¤òƧ¤ßÆþ¤ì¤¿", Place->name);
// --------------------------------------------------------------------
// If the party is relocating to a non-wilderness place then I have to
distributeMembers(place, x, y, dx, dy);
return;
} else {
- foogod_set_title("Wilderness Travel");
- foogodRepaint();
+ foogod_set_title("¹ÓÌî¤Îι");
+ foogodRepaint();
}
}
if (!quantity)
return true;
- log_begin("You get ");
+ log_begin("");
type->describeType(quantity);
- log_end(NULL);
+ log_end("¤ò¼ê¤ËÆþ¤ì¤¿¡£");
return inventory->add(type, quantity);
}
bool PlayerParty::takeOut(ObjectType *type, int q)
{
// Some types can be in more than one category, so remove from all.
- log_begin("You lose ");
+ log_begin("");
type->describeType(q);
- log_end(NULL);
+ log_end("¤ò¼º¤Ã¤¿¡£");
return inventory->takeOut(type, q);
}
// already in a vehicle so exit
if (vehicle) {
- log_begin("You exit ");
+ log_begin("");
vehicle->describe();
- log_end(".");
+ log_end("¤«¤é¹ß¤ê¤¿¡£");
vehicle->setOccupant(0);
vehicle->relocate(getPlace(), getX(), getY());
obj_dec_ref(vehicle);
obj_inc_ref(vehicle);
- log_begin("You board ");
+ log_begin("");
vehicle->describe();
- log_end(".");
+ log_end("¤Ë¾è¤Ã¤¿¡£");
vehicle->setOccupant(this);
vehicle->remove();
const char *PlayerParty::getName()
{
- return "player party";
+ return "Á´°÷";
}
bool PlayerParty::isVisible()
void PlayerParty::describe()
{
- log_continue("the %s", getName());
+ log_continue("%s", getName());
}
struct formation *PlayerParty::get_formation()
assert(hours > 0);
log_begin_group();
- log_msg("Loitering...");
+ log_msg("¤¦¤í¤¦¤í¤·¤Æ¤¤¤ë¡Ä");
FOR_EACH_MEMBER(entry, member) {
member->beginLoitering(hours);
}
assert(hours > 0);
log_begin_group();
- log_msg("Begin resting...");
+ log_msg("µÙ©¤ò»Ï¤á¤¿¡Ä");
forEachMember(member_begin_resting, &hours);
log_end_group();
enableRoundRobinMode();
} else {
control_mode = PARTY_CONTROL_FOLLOW;
- foogod_set_title("Follow: %s", leader->getName());
+ foogod_set_title("ÄÉÀ×: %s", leader->getName());
foogodRepaint();
}
disableCurrentMode();
forEachMember(member_set_control_mode, &mode);
control_mode = PARTY_CONTROL_ROUND_ROBIN;
- foogod_set_title("Round Robin: <pending>");
+ foogod_set_title("ÄÉÀ×: <̤Äê>");
foogodRepaint();
}
solo->setSolo(true);
solo_member = solo;
control_mode = PARTY_CONTROL_SOLO;
- foogod_set_title("Solo: %s", solo->getName());
+ foogod_set_title("ñÆÈ: %s", solo->getName());
foogodRepaint();
}
if (NULL != leader) {
leader->setLeader(true);
if (PARTY_CONTROL_FOLLOW == control_mode) {
- foogod_set_title("Follow: %s", leader->getName());
+ foogod_set_title("ÄÉÀ×: %s", leader->getName());
foogodRepaint();
}
}
member);
if (!member->cachedPath) {
- log_msg("%s cannot make the rendezvous!",
+ log_msg("%s¤Ï½¸¹ç¤Ç¤¤Ê¤¤¡ª",
member->getName());
abort = true;
}
else if (max_path_len > 0 &&
member->cachedPath->len > max_path_len) {
- log_msg("%s is too far away!",
+ log_msg("%s¤Ï±ó¤¹¤®¤ë¡ª",
member->getName());
abort = true;
}
return true;
if (amount > 0)
- log_msg("You get %d food.", amount);
+ log_msg("%d¤Î¿©ÎÁ¤ò¼ê¤ËÆþ¤ì¤¿¡£", amount);
else
- log_msg("You lose %d food.", -amount);
+ log_msg("%d¤Î¿©ÎÁ¤ò¼º¤Ã¤¿¡£", amount);
food += amount;
if (food < 0)
return true;
if (amount > 0)
- log_msg("You get %d gold.", amount);
+ log_msg("%d¤Î¶â¤òÆÀ¤¿¡£", amount);
else
- log_msg("You lose %d gold.", -amount);
+ log_msg("%d¤Î¶â¤ò¼º¤Ã¤¿¡£", -amount);
gold += amount;
if (gold < 0)
/* Paint the characters until we run out or hit the end of the
* region. */
- for (i = 0; i < slen && x < stop; i++) {
+ for (i = 0; i < slen && x < stop; i += (screen_buf[i] & 0x80 ? 2: 1)) {
- if (asciiPaint(screen_buf[i], x, y, Screen)) {
+ if ((screen_buf[i] & 0x80) && kanjiPaint((int )((unsigned char )screen_buf[i]) << 8 | (unsigned char )screen_buf[i + 1], x, y, Screen)) { /* if Kanji */
+
+ /* Move right twice. */
+ x += ASCII_W * 2;
+ } else if (asciiPaint(screen_buf[i], x, y, Screen)) {
/* Move right. */
x += ASCII_W;
va_list args;
va_start(args, fmt);
save_vwrite(save, fmt, args);
- va_end(args);
+ va_end(args);
}
static void save_append(save_t *save, const char *fmt, ...)
}
save->write(save, ";; Progress bar\n");
- save->write(save, "(kern-progress-bar-start \"Loading\" %d)\n",
+ save->write(save, "(kern-progress-bar-start \"Æɤ߹þ¤ßÃæ\" %d)\n",
Session->num_kern_includes + object_saves);
/* Generate code to advance the progress bar as each file is loaded. */
char *armor = arms->getArmorDice();
screenPrint(rect, 0,
- "^c+%cHit:^c%c%s ^c%cDmg:^c%c%s ^c%cDef:^c%c%s ^c%cArm:^c%c%s^c-",
+ "^c+%cÌ¿Ãæ:^c%c%s ^c%cÂÇ·â:^c%c%s ^c%c²óÈò:^c%c%s ^c%cËɸæ:^c%c%s^c-",
STAT_LABEL_CLR,
status_arms_stat_color(hit), hit,
/* Show the xp, hp and mp */
/* Note that getXpForLevel(2) - getXpForLevel(1) != getXpForLevel(1)*/
screenPrint(rect, 0,
- "^c+%cHP:^c%c%d^cw/%d "
- "^c%cMP:^c%c%d^cw/%d "
- "^c%cAP:^c%c%d^cw/%d "
+ "^c+%cÂÎ:^c%c%d^cw/%d "
+ "^c%cËâ:^c%c%d^cw/%d "
+ "^c%c¹Ô:^c%c%d^cw/%d "
"^c%cLvl:^cw%d^c%c(%d%%)^c-"
, STAT_LABEL_CLR
, status_range_color(pm->getHp(), pm->getMaxHp())
ptr++;
continue;
}
+ if (*ptr & 0x80) /* if Kanji */
+ {
+ if (kanjiPaint(((unsigned char )*ptr << 8) | (unsigned char )*(ptr + 1), c * ASCII_W, y * ASCII_H,
+ Status.pg_surf)) {
+ c += 2;
+ ptr += 2;
+ }
+ continue;
+ }
if (asciiPaint(*ptr++, c * ASCII_W, y * ASCII_H,
Status.pg_surf))
{
// Clear the cmdwin and print instructions for exiting page mode.
cmdwin_clear();
- cmdwin_push("(Hit ESC when done reading)");
+ cmdwin_push("(Æɤ߽ª¤ï¤Ã¤¿¤éESC¤ò²¡¤·¤ÆÌá¤ë)");
}
static void myPaintTrade(void)
// quantity
if (Status.trades[i].show_quantity) {
- screenPrint(&qrect, 0, "[You have %d]",
- Status.trades[i].quantity);
+ screenPrint(&qrect, 0, "[%d¤Ä»ý¤Ã¤Æ¤¤¤ë]",
+ Status.trades[i].quantity);
}
// price
screenPrint(&prect, SP_RIGHTJUSTIFIED, "%dgp",
case ShowParty:
switch_to_short_mode();
- status_set_title("Party");
+ status_set_title("Ãç´Ö¤¿¤Á");
Status.pcIndex = -1;
Status.scroll = 0;
Status.paint = myShowParty;
case SelectCharacter:
switch_to_tall_mode();
- status_set_title("Select Member");
+ status_set_title("¿Í¤òÁªÂò");
Status.scroll = myScrollParty;
Status.paint = myShowParty;
Status.pcIndex = 0;
case Use:
switch_to_tall_mode();
- status_set_title("Use");
+ status_set_title("»È¤¦");
Status.topLine = 0;
Status.curLine = 0;
Status.container = player_party->inventory;
case Trade:
switch_to_tall_mode();
- status_set_title("Trade");
+ status_set_title("¼è°ú");
Status.topLine = 0;
Status.curLine = 0;
Status.maxLine = Status.list_sz - Status.numLines;
case MixReagents:
switch_to_tall_mode();
- status_set_title("Select Reagents");
+ status_set_title("ÈëÌô¤òÁªÂò");
Status.topLine = 0;
Status.curLine = 0;
Status.container = player_party->inventory;
/* check for empty list */
if (!node)
{
- screenPrint(&rect, 0, "No Skills!");
+ screenPrint(&rect, 0, "ǽÎϤ¬¤Ê¤¤¡ª");
return;
}
void Vehicle::describe()
{
if (name) {
- log_continue("the %s", name);
+ log_continue("%s", name);
} else {
Object::describe();
}
}
if (dir != windDirection) {
- log_msg("The wind shifts to the %s", directionToString(dir));
+ log_msg("É÷¸þ¤¤¬%s¤ËÊѤï¤Ã¤¿¡£", directionToString(dir));
}
windDirection = dir;
void windRepaint(void)
{
screenErase(&windRect);
- screenPrint(&windRect, SP_CENTERED, "Wind:%s",
+ screenPrint(&windRect, SP_CENTERED, "É÷¸þ¤:%s",
directionToString(windDirection));
screenUpdate(&windRect);
}
}
cmdwin_clear();
- cmdwin_spush("Stats");
- cmdwin_spush("<ESC to exit>");
- foogodSetHintText("\200\201=scroll ESC=exit");
+ cmdwin_spush("¾õÂÖ");
+ cmdwin_spush("<ESC¤ÇÌá¤ë>");
+ foogodSetHintText("\200\201=ÁªÂò ESC=Ìá¤ë");
foogodSetMode(FOOGOD_HINT);
applet->dims = *dims;
foogodSetMode(FOOGOD_DEFAULT);
cmdwin_pop();
- cmdwin_spush("ok");
+ cmdwin_spush("´°Î»");
/* Reset to NULL; else if the current pane removes itself during a
* session teardown it will trigger a scroll action, which will
/* quantity and name */
if (ie->ref) {
- screenPrint(rect, 0, "%2d %s ^c+%c[%d in use]^c-", ie->count, arms->getName(), STAT_INUSE_CLR, ie->ref);
+ screenPrint(rect, 0, "%2d %s ^c+%c[%d »ÈÍÑÃæ]^c-", ie->count, arms->getName(), STAT_INUSE_CLR, ie->ref);
} else {
screenPrint(rect, 0, "%2d %s", ie->count, arms->getName());
}
NULL
};
- ztats_container_pane_init(&pane, "Armaments", &filter, &ops);
+ ztats_container_pane_init(&pane, "ÉðÁõ", &filter, &ops);
ztats_add_pane(&pane.base);
}
NULL
};
- ztats_container_pane_init(&pane, "Usable Items", &filter, &ops);
+ ztats_container_pane_init(&pane, "»ÈÍѲÄǽ¤Ê»ý¤Áʪ", &filter, &ops);
ztats_add_pane(&pane.base);
}
NULL
};
- ztats_container_pane_init(&pane, "Miscellaneous", &filter, &ops);
+ ztats_container_pane_init(&pane, "¤½¤Î¾", &filter, &ops);
ztats_add_pane(&pane.base);
}
// SAM: I don't like cluttering the name line, but the range and AP
// are essential information, and previous attempts at multi-line
// status entries foundered. So, until the thing can be re-written...
- screenPrint(rect, 0, "%s (Rng:%d, AP:%d, Spd:%d)",
+ screenPrint(rect, 0, "%s (¼ÍÄø:%d¡¢¹ÔÆ°:%d¡¢Â®ÅÙ:%d)",
arms->getName(), arms->getRange(), arms->getRequiredActionPoints(), arms->get_AP_mod() );
rect->y += ASCII_H;
if (EFFECT_NONDETERMINISTIC == entry->effect->duration) {
screenPrint(rect, 0, " %s", entry->effect->name);
} else if (EFFECT_PERMANENT == entry->effect->duration) {
- screenPrint(rect, 0, " %s (permanent)", entry->effect->name);
+ screenPrint(rect, 0, " %s (̵À©¸Â)", entry->effect->name);
} else {
- screenPrint(rect, 0, " %s [%d min]", entry->effect->name,
+ screenPrint(rect, 0, " %s [%dʬ]", entry->effect->name,
clock_alarm_remaining(&entry->expiration));
}
rect->x -= ASCII_W; /* back up to start next effect at column 0 */
SDL_Rect rect = pane->dims;
if (! pane->party->getSize()) {
- screenPrint(&rect, 0, "Empty party!");
+ screenPrint(&rect, 0, "ï¤â¤¤¤Ê¤¤¡ª");
return;
}
// Show experience level and XP information:
screenPrint(&rect, 0,
- "^c%cLevel:^cw%d "
- "^c%cXP:^cw%d "
- "^c%cNext Level:^cw%d ",
+ "^c%c¥ì¥Ù¥ë:^cw%d "
+ "^c%c·Ð¸³:^cw%d "
+ "^c%c¼¡¤Î¥ì¥Ù¥ë:^cw%d ",
STAT_LABEL_CLR,ch->getLevel(),
STAT_LABEL_CLR,ch->getExperience(),
// Show the basic character attributes:
screenPrint(&rect, 0,
- "^c%cStr:^cw%d "
- "^c%cInt:^cw%d "
- "^c%cDex:^cw%d ",
+ "^c%cÏÓÎÏ:^cw%d "
+ "^c%cÃÎǽ:^cw%d "
+ "^c%cÉÒ¾¹:^cw%d ",
STAT_LABEL_CLR, ch->getStrength(),
STAT_LABEL_CLR, ch->getIntelligence(),
// Show highly variable information such as HP/max, MP/max, and AP/max
screenPrint(&rect, 0,
- "^c%cHP:^c%c%d^cw/%d "
- "^c%cMP:^c%c%d^cw/%d "
- "^c%cAP:^c%c%d^cw/%d ",
+ "^c%cÂÎÎÏ:^c%c%d^cw/%d "
+ "^c%cËâÎÏ:^c%c%d^cw/%d "
+ "^c%c¹ÔÆ°:^c%c%d^cw/%d ",
STAT_LABEL_CLR,
status_range_color(ch->getHp(), ch->getMaxHp()),
mmode = ch->getMovementMode();
assert(mmode);
screenPrint(&rect, 0,
- "^c%cSpecies: ^cw%s",
- STAT_LABEL_CLR, ch->species ? ch->species->name:"Unknown");
+ "^c%c¼ï²: ^cw%s",
+ STAT_LABEL_CLR, ch->species ? ch->species->name:"ÉÔÌÀ");
rect.y += ASCII_H;
screenPrint(&rect, 0,
- "^c%cOccupation: ^cw%s",
- STAT_LABEL_CLR, ch->occ ? ch->occ->name : "None");
+ "^c%c¿¦¶È: ^cw%s",
+ STAT_LABEL_CLR, ch->occ ? ch->occ->name : "¤Ê¤·");
rect.y += ASCII_H;
screenPrint(&rect, 0,
- "^c%cMovement: ^cw%s",
+ "^c%c°ÜÆ°: ^cw%s",
STAT_LABEL_CLR, mmode->name);
rect.y += ASCII_H;
rect.y += ASCII_H;
/* Show effects */
- screenPrint(&rect, 0 /*SP_CENTERED*/ , "^c%c*** Effects ***^cw",
+ screenPrint(&rect, 0 /*SP_CENTERED*/ , "^c%c*** ¸ú²Ì ***^cw",
STAT_LABEL_CLR);
rect.y += ASCII_H;
for (i = 0; i < OBJ_NUM_HOOKS; i++) {
rect.y += ASCII_H;
/* Show arms */
- screenPrint(&rect, 0 /*SP_CENTERED*/ , "^c%c*** Arms ***^cw", STAT_LABEL_CLR);
+ screenPrint(&rect, 0 /*SP_CENTERED*/ , "^c%c*** ÁõÈ÷ ***^cw", STAT_LABEL_CLR);
rect.y += ASCII_H;
#if 1
status_show_member_arms(&rect, i, arms);
} else {
rect.x += TILE_W;
- screenPrint(&rect, 0, "^c+y%d:^cG(empty)^c-", i);
+ screenPrint(&rect, 0, "^c+y%d:^cG(¶õ)^c-", i);
rect.x -= TILE_W;
rect.y += ASCII_H;
}
NULL
};
- ztats_container_pane_init(&pane, "Reagents", &filter, &ops);
+ ztats_container_pane_init(&pane, "ÈëÌô", &filter, &ops);
ztats_add_pane(&pane.base);
}
/* Print info only available in the spell struct. */
if (spell) {
screenPrint(rect, 0,
- "^c+GLvl:^c+y%d^c- MP:^c+b%d^c- AP:^c+r%d^c-^c-",
+ "^c+G¥ì¥Ù¥ë:^c+y%d^c- ËâÎÏ:^c+b%d^c- ¹ÔÆ°:^c+r%d^c-^c-",
spell->level,
spell->cost, spell->action_points);
}
NULL
};
- ztats_container_pane_init(&pane, "Spells", &filter, &ops);
+ ztats_container_pane_init(&pane, "¼öʸ", &filter, &ops);
ztats_add_pane(&pane.base);
}
;;----------------------------------------------------------------------------
-;; Cellar of Abandoned Farm
+;; ¹Ó¤ì²Ì¤Æ¤¿ÇÀÃϤÎÃϲ¼¼¼
;;
;; This is the root cellar where Ilya his when the trolls attacked her farm.
;; She left Puska - a quest item - here in her hiding place. Initially it is
)
(kern-mk-place 'p_abandoned_cellar ; tag
- "Musty Cellar" ; name
+ "¤«¤Ó½¤¤Ãϲ¼¼¼" ; name
nil ; sprite
m_abandoned_cellar ; map
#f ; wraps
;;----------------------------------------------------------------------------
-;; Abandoned Farm
+;; ¹Ó¤ì²Ì¤Æ¤¿ÇÀÃÏ
;;
;; The abandoned farm is a wrecked homestead. Not long ago (weeks or at most
;; months) renegade trolls attacked, killing the husband and wife who lived
(kern-mk-place 'p_abandoned_farm ; tag
- "Abandoned Farm" ; name
+ "¹Ó¤ì²Ì¤Æ¤¿ÇÀÃÏ" ; name
s_hamlet ; sprite
m_abandoned_farm ; map
#f ; wraps
(list (mk-door-in-rock) 13 17)
(list (mk-door-in-rock) 7 25)
(list (mk-ladder-down 'p_abandoned_cellar 6 25) 6 25)
- (list (mk-broken-clock s_clock_hand_s s_clock_hand_ne "The clock reads 6:12") 6 23)
+ (list (mk-broken-clock s_clock_hand_s s_clock_hand_ne "»þ·×¤Ï6»þ12ʬ¤À¡£") 6 23)
)
(list 'on-entry-to-dungeon-room) ; hooks
nil ; edge entrances
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Green Tower
+;; ÎФÎÅã
;;----------------------------------------------------------------------------
(define abe-bed gt-abe-bed)
(define abe-mealplace gt-ws-tbl2)
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Abe is a scholar who knows much of the runes.
-;; He fled from Absalot with the Alchemist, and now lives in Green Tower.
+;; ¥¨¥¤¥Ö¤ÏÀÐÈǤΤ³¤È¤ò¤è¤¯ÃΤë³Ø¼Ô¤Ç¤¢¤ë¡£
+;; Èà¤ÏÏ£¶â½Ñ»Õ¤È¤È¤â¤Ë¥¢¥Ö¥µ¥í¥Ã¥È¤«¤éƨ¤ì¡¢º£¤ÏÎФÎÅã¤Ë½»¤ó¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (abe-hail knpc kpc)
- (kern-print "You meet a young, bookish-looking fellow.\n")
+ (kern-print "¤¢¤Ê¤¿¤Ï¼ã¤¤³Ø¼ÔÉ÷¤ÎÃˤȲñ¤Ã¤¿¡£\n")
(if (abe-met? (gob knpc))
- (say knpc "Hello again.")
+ (say knpc "¤Þ¤¿²ñ¤¤¤Þ¤·¤¿¤Í¡£")
(begin
(abe-met! (gob knpc))
- (say knpc "Hello. Say, aren't you a Wanderer?")
+ (say knpc "¤³¤ó¤Ë¤Á¤Ï¡£¤¢¤Î¡¢¤â¤·¤«¤·¤Æ̤¤¿Í¡©")
(if (yes? kpc)
- (say knpc "I am most honored! I can't believe my good fortune. "
- "I have so many questions for you. When you get the time. "
- "If you don't mind.")
- (say knpc "Oh, of course not. Sorry. I just thought... never mind.")))))
+ (say knpc "¤¢¤¨¤Æ¸÷±É¤Ç¤¹¡ª¼«Ê¬¤Î¹¬±¿¤¬¿®¤¸¤é¤ì¤Ê¤¤¡ª"
+ "¤¿¤¯¤µ¤óʹ¤¤¿¤¤¤³¤È¤¬¤¢¤ë¤ó¤Ç¤¹¡£"
+ "¤â¤·¤è¤«¤Ã¤¿¤é»þ´Ö¤¬¤¢¤ë¤È¤¤Ëʹ¤«¤»¤Æ¤¯¤À¤µ¤¤¡£")
+ (say knpc "¤¢¤¢¡¢¤½¤ì¤Ï¤½¤¦¤À¡£¤¹¤ß¤Þ¤»¤ó¡£¤Ä¤¤¡Äµ¤¤Ë¤·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£")))))
(define (abe-default knpc kpc)
- (say knpc "I'll look that up in the archives when I get a chance."))
+ (say knpc "µ¡²ñ¤¬¤¢¤Ã¤¿¤éÄ´¤Ù¤Æ¤ª¤¤Þ¤¹¡£"))
(define (abe-name knpc kpc)
- (say knpc "Oh. Yes. I'm Abe."))
+ (say knpc "¤¢¤¢¡¢¤½¤¦¡¢Ëͤϥ¨¥¤¥Ö¡£"))
(define (abe-join knpc kpc)
- (say knpc "Oh, no, I couldn't possibly... I'm not really that sort of person."))
+ (say knpc "¤¢¡¢¤¤¤ä¡¢¤½¤ì¤Ï¤Ç¤¤Þ¤»¤ó¡ÄËͤϤ½¤¦¤¤¤¦¿Í¤Ç¤Ï¤Ê¤¤¤Î¤Ç¡£"))
(define (abe-job knpc kpc)
- (say knpc "I'm a scholar. I'm studying the ruins here in Green Tower. Have you examined them?")
+ (say knpc "ËͤϳؼԤǤ¹¡£ÎФÎÅã¤Ë¤¢¤ë°äÀפòÄ´¤Ù¤Æ¤¤¤Þ¤¹¡£¤â¤¦¸«¤Þ¤·¤¿¤«¡©")
(if (no? kpc)
- (say knpc "They're in the southwest corner of town. Fascinating.")
+ (say knpc "°äÀפÏÄ®¤ÎÆîÀ¾¤Ë¤¢¤ê¤Þ¤¹¡£¶½Ì£¿¼¤¤¤â¤Î¤Ç¤¹¡£")
(begin
- (say knpc "Did you know there are more below the surface?")
+ (say knpc "Ãϲ¼¤Ë¤Ï¤â¤Ã¤È¤¢¤ë¤³¤È¤òÃΤäƤ¤¤Þ¤¹¤«¡©")
(yes? kpc)
- (say knpc "Yes, just like Absalot!"))))
+ (say knpc "¤½¤¦¡¢¥¢¥Ö¥µ¥í¥Ã¥È¤Î¤è¤¦¤Ë¡ª"))))
(define (abe-absa knpc kpc)
- (say knpc "Not many know that beneath Absalot is an older city. "
- "The ruins beneath Absalot are very similar to the ruins here in Green Tower. "
- "I am certain they were built by the same civilization!"))
+ (say knpc "¿¤¯¤Î¿Í¤Ï¥¢¥Ö¥µ¥í¥Ã¥È¤Î²¼¤Ë¸Å¤¤Ä®¤¬¤¢¤ë¤³¤È¤òÃΤê¤Þ¤»¤ó¡£"
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÃϲ¼¤Î°äÀפϡ¢¤³¤ÎÎФÎÅã¤Î°äÀפȤȤƤâ¤è¤¯»÷¤Æ¤¤¤Þ¤¹¡£"
+ "ËͤÏƱ¤¸Ê¸ÌÀ¤Î¿Í¡¹¤¬·ú¤Æ¤¿¤Ë°ã¤¤¤Ê¤¤¤È³Î¿®¤·¤Æ¤¤¤Þ¤¹¡ª"))
(define (abe-rune knpc kpc)
(if (any-in-inventory? kpc rune-types)
(begin
- (say knpc "\n[He whistles softly]\n"
- "You have some of the Eight Keys to the Demon Gate?\n"
- "I shall examine them for you!")
+ (say knpc "¡ÎÈà¤ÏÀŤ«¤Ë¤µ¤µ¤ä¤¤¤¿¡£¡Ï"
+ "°Ëâ¤ÎÌç¤ÎȬ¤Ä¤Î¸°¤ò»ý¤Ã¤Æ¤¤¤ë¤Î¤Ç¤¹¤«¡©"
+ "Ä´¤Ù¤µ¤»¤Æ¤¯¤À¤µ¤¤¡ª")
(quest-data-update 'questentry-runeinfo 'abe 1)
(quest-data-update-with 'questentry-runeinfo 'keys 1 (quest-notify (grant-party-xp-fn 20)))
(if (any-in-inventory? kpc (list t_rune_k))
- (say knpc "[He examines a rune] This is the Rune of Knowledge!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤ÏÃ챤ÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_p))
- (say knpc "[He examines a rune] This is the Rune of Power!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤ÏÎϤÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_s))
- (say knpc "[He examines a rune] This is the Rune of Skill!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤Ïµ»Ç½¤ÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_c))
- (say knpc "[He examines a rune] This is the Rune of Curiousity!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤Ï»×θ¤ÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_f))
- (say knpc "[He examines a rune] This is the Rune of Freedom!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤Ï¼«Í³¤ÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_w))
- (say knpc "[He examines a rune] This is the Rune of Wisdom!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤ÏÍýÀ¤ÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_d))
- (say knpc "[He examines a rune] This is the Rune of Discretion!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤ÏʬÊ̤ÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_l))
- (say knpc "[He examines a rune] This is the Rune of Leadership!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤ÏÅýÀ©¤ÎÀÐÈǤǤ¹¡ª")
)
(if (has-all-runes? kpc)
- (say knpc "This is incredible!\n"
- "You have all of the Eight Keys to the Demon Gate!!!\n"
- "What do you intend to do with them?")
+ (say knpc "¿®¤¸¤é¤ì¤Ê¤¤¡ª"
+ "Ȭ¤Ä¤Î°Ëâ¤ÎÌç¤Î¸°¤¬Á´¤Æ·¤Ã¤Æ¤¤¤Þ¤¹¡ª"
+ "¤³¤ì¤ò°ìÂΤɤ¦¤¹¤ë¤Ä¤â¤ê¤Ç¤¹¤«¡©")
)
)
- (say knpc "There are many runes. Perhaps if you brought me an example...?")))
+ (say knpc "¤¿¤¯¤µ¤ó¤ÎÀÐÈǤ¬¤¢¤ë¤½¤¦¤Ç¤¹¡£¼ÂºÝ¤Ë¸«¤ë¤³¤È¤¬¤Ç¤¤ì¤Ð¡Ä¡£")))
(define (abe-demo knpc kpc)
- (say knpc "The Demon Gate was sealed shut by the Wise long ago. "
- "Its location was blotted from all records, but legend puts it somewhere to the north. ")
+ (say knpc "°Ëâ¤ÎÌç¤Ï±ó¤¤ÀΡ¢¸¼Ô¤Ë¤è¤Ã¤ÆÉõ°õ¤µ¤ì¤Þ¤·¤¿¡£"
+ "¤½¤Î¾ì½ê¤Ï¤¢¤é¤æ¤ëµÏ¿¤«¤é¾Ã¤µ¤ì¤Þ¤·¤¿¡£¤·¤«¤·¡¢¸À¤¤ÅÁ¤¨¤Ç¤Ï¤É¤³¤«Ë̤Τۤ¦¤Ë¤¢¤ë¤½¤¦¤Ç¤¹¡£")
(quest-data-update 'questentry-runeinfo 'abe 1)
(quest-data-update 'questentry-runeinfo 'keys 1)
(quest-data-update-with 'questentry-runeinfo 'gate 1 (quest-notify (grant-party-xp-fn 30)))
)
(define (abe-keys knpc kpc)
- (say knpc "Yes, the Demon Gate was locked with eight locks and the keys separated. "
- "Each takes the form of a powerful rune. "
- "They've been lost or hidden since then."))
+ (say knpc "¤Ï¤¤¡£°Ëâ¤ÎÌç¤ÏÉõ°õ¤µ¤ì¡¢¸°¤ÏȬ¤Ä¤Ëʬ¤±¤é¤ì¤Þ¤·¤¿¡£"
+ "¤½¤ì¤¾¤ì¤¬ÎϤòÈë¤á¤¿ÀÐÈǤǤ¹¡£"
+ "¤½¤Î¸å¤½¤ì¤é¤Ï¼º¤ï¤ì¤¿¤«¡¢±£¤µ¤ì¤Þ¤·¤¿¡£"))
(define (abe-eigh knpc kpc)
- (say knpc "Legend says that there are eight runes in all, are you seeking the others?")
+ (say knpc "¸À¤¤ÅÁ¤¨¤Ç¤ÏÀÐÈǤÏȬ¤Ä¤¢¤ë¤½¤¦¤Ç¤¹¡£Â¾¤ÎÀÐÈǤâõ¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¤«¡©")
(if (yes? kpc)
- (say knpc "The old stories speak of some, such as King Clovis' charm, or the void temple.")
- (say knpc "Just idle curiosity? Believe me, I understand.")))
+ (say knpc "¸Å¤¤ÏäǤϡ¢¥¯¥í¡¼¥Ó¥¹²¦¤Î¸îÉä¤Ç¤¢¤Ã¤¿¤À¤È¤«¡¢µõ¶õ¤Î»û±¡¤Ë¤¢¤ë¤Ê¤É¤È¸À¤ï¤ì¤Æ¤¤¤Þ¤¹¡£")
+ (say knpc "¹¥´ñ¿´¤Ï¤Ê¤¤¤Î¤Ç¤¹¤«¡©¿®¤¸¤Æ¤¯¤À¤µ¤¤¡£»ä¤ÏÃΤäƤ¤¤Þ¤¹¡£")))
(define (abe-clov knpc kpc)
- (say knpc "There's a legend that King Clovis carried one as a charm. "
- "He fell in battle during the goblin wars, but it was never found on his body. "
- "Perhaps someone (perhaps a ^c+mgoblin^c-!) looted his corpse and took it.")
+ (say knpc "ÅÁÀâ¤Ç¤Ï¥¯¥í¡¼¥Ó¥¹²¦¤¬¸îÉä¤È¤·¤Æ»ý¤Ã¤Æ¤¤¤¿¤½¤¦¤Ç¤¹¡£"
+ "Èà¤Ï¥´¥Ö¥ê¥ó¤È¤ÎÀïÁè¤ÇÌ¿¤òÍî¤È¤·¤Þ¤·¤¿¡£¤·¤«¤·¡¢¤½¤ÎË´³¼¤«¤é¤Ï¸«¤Ä¤«¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£"
+ "狼¤¬(¤â¤·¤«¤¹¤ë¤È^c+m¥´¥Ö¥ê¥ó¤¬^c-¡ª)Ã¥¤Ã¤¿¤Î¤«¤â¤·¤ì¤Þ¤»¤ó¡£")
(quest-data-assign-once 'questentry-rune-f)
)
(define (abe-temp knpc kpc)
- (say knpc "Northwest of Oparine, there is a temple floating in the void. No one can reach it,"
- " but legends say that a rune was sealed up there by the ancients.")
+ (say knpc "¥ª¥Ñ¡¼¥ê¥ó¤ÎËÌÀ¾¤Ç¤½¤Î»û±¡¤Ïµõ¶õ¤ÎÃæ¤ËÉ⤫¤ó¤Ç¤¤¤Þ¤¹¡£Ã¯¤â¤¿¤É¤êÃ夯¤³¤È¤¬¤Ç¤¤Þ¤»¤ó¤¬¡¢"
+ "ÅÁÀâ¤Ç¤Ï¤º¤Ã¤ÈÀΡ¢ÀÐÈǤ¬Éõ°õ¤µ¤ì¤¿¤È¤µ¤ì¤Æ¤¤¤Þ¤¹¡£")
(quest-data-assign-once 'questentry-rune-d)
)
(define (abe-void knpc kpc)
- (say knpc "The Shard, the moons and the stars all habitate a great void. "
- "The ancients could sail across the void in ships, the way we sail across a sea!")
+ (say knpc "¤³¤Î¥·¥ã¥ë¥É¡¢·î¡¢À±¡¹¤ÏÁ´¤Æ¹Âç¤Êµõ¶õ¤ÎÃæ¤Ë¤¢¤ë¤Î¤Ç¤¹¡£"
+ "¤«¤Ä¤Æµõ¶õ¤ò¹Ò¹Ô¤¹¤ëÁ¥¤¬¤¢¤ê¡¢³¤¤òÅϤë¤è¤¦¤Ëµõ¶õ¤òÅϤ俤½¤¦¤Ç¤¹¡ª")
(quest-data-update 'questentry-whereami 'shard 2)
)
(define (abe-ship knpc kpc)
- (say knpc "I know of the void ships, but not how they worked. "
- "Even the Master Wrights have lost the technique for making them."
+ (say knpc "µõ¶õÁ¥¤Î¤³¤È¤Ïʹ¤¤¤¿¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£¤·¤«¤·¡¢¾Ü¤·¤¤¤³¤È¤Ï¤ï¤«¤ê¤Þ¤»¤ó¡£"
+ "¿¦¿Í¤ÎĺÅÀ¤Ê¤é¤½¤Î¼º¤ï¤ì¤¿Â¤¤êÊý¤¬¤ï¤«¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¡£")
(quest-data-update 'questentry-whereami 'shard 2)
- ))
+ )
(define (abe-wrig knpc kpc)
- (say knpc "Wrights specialize in the making of things. "
- "The Engineer is the greatest living Wright."))
+ (say knpc "¿¦¿Í¤Ïʪ¤òºî¤ë¤³¤È¤ËŤ±¤¿¼Ô¤¿¤Á¤Ç¤¹¡£"
+ "µ»»Õ¤Ïº£Æü¤ÇºÇ¤â°ÎÂç¤Ê¿¦¿Í¤Ç¤¹¡£"))
(define (abe-quee knpc kpc)
- (say knpc "I'm not sure what you're insinuating."))
+ (say knpc "²¿¤Î¤³¤È¤«¤è¤¯¤ï¤«¤ê¤Þ¤»¤ó¡£"))
(define (abe-civi knpc kpc)
- (say knpc "I don't know much about the civilization that built the ruins, but clues indicate it was quite wicked by our standards! Do you know what I mean?")
+ (say knpc "¤³¤Î°äÀפò·ú¤Æ¤¿Ê¸ÌÀ¤Î¤³¤È¤Ï¤è¤¯¤ï¤«¤ê¤Þ¤»¤ó¡£¤Ç¤â¤½¤Î¼ê¤¬¤«¤ê¤Ï¡¢¤½¤ì¤¬»ä¤¿¤Á¤Î´ð½à¤Ç¸«¤Æ¤È¤Æ¤â½¹¤¤¤³¤È¤Ë¤¢¤ê¤Þ¤¹¡£²¿¤ò°ÕÌ£¤¹¤ë¤«¤ï¤«¤ê¤Þ¤¹¤«¡©")
(if (yes? kpc)
- (say knpc "Then I won't mention it!")
- (say knpc "Human sacrifice, cannibalism, demon worship. Accursed practices!")))
+ (say knpc "¤Ê¤é¤Ð¸À¤ï¤Ê¤¤¤Ç¤ª¤¤Þ¤·¤ç¤¦¡ª")
+ (say knpc "¿Í¤ÎÀ¸ìÓ¡¢¿ÍÆù¿©¤¤¡¢°¤·¤¼Ô¤Ø¤Î¿òÇÒ¡£¼ö¤ï¤ì¤¿¼Ô¤Î½¬´·¤Ç¤¹¡ª")))
(define (abe-accu knpc kpc)
- (say knpc "Yes, the Accursed have a long history. They may be a convenient political bogeyman, "
- "but there is enough evidence to suggest they do, or did, exist."))
+ (say knpc "¤Ï¤¤¡£¼ö¤ï¤ì¤¿¼Ô¤Ë¤ÏŤ¤Îò»Ë¤¬¤¢¤ê¤Þ¤¹¡£Èà¤é¤ÏÊØÍø¤ÊÀ¯¼£Åª¤Ê°Ìò¤«¤â¤·¤ì¤Þ¤»¤ó¡£"
+ "¤·¤«¤·¡¢Èà¤é¤¬¹Ô¤¤¤ä¹Ô¤Ã¤¿¤³¤È¡¢¤¢¤ë¤¤¤Ï¸ºß¤Î¾Úµò¤Ï½½Ê¬¤Ë¤¢¤ê¤Þ¤¹¡£"))
(define (abe-bye knpc kpc)
- (say knpc "Let me know if you find any more ruins!"))
+ (say knpc "°äÀפˤĤ¤¤Æ²¿¤«¤ï¤«¤Ã¤¿¤é¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡ª"))
(define (abe-alch knpc kpc)
- (say knpc "Ah, how is the secretive old rascal? I haven't seen him since we were neighbors."))
+ (say knpc "¤¢¤¢¡¢¤¢¤Î¸Å¥À¥Ì¥¤Ç¤¹¤«¡©ÎÙ¿ÍƱ»Î¤Ç¤·¤¿¤¬ºÇ¶á¤Ï²ñ¤Ã¤Æ¤¤¤Þ¤»¤ó¡£"))
(define (abe-neig knpc kpc)
- (say knpc "In Absalot. Before we had to flee."))
+ (say knpc "¥¢¥Ö¥µ¥í¥Ã¥È¤Ç¡£Æ¨¤²¤ëÁ°¤Ï¤½¤³¤Ë¤¤¤Þ¤·¤¿¡£"))
(define (abe-flee knpc kpc)
- (say knpc "[He sighs] It's a long story. Ask around. It doesn't matter anymore."))
+ (say knpc "¡Î¤¿¤á©¡ÏÏ乤ÈŤ¯¤Ê¤ê¤Þ¤¹¡£¼þ¤ê¤Î¿Í¤Ëʹ¤¤¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£¤â¤¦¤É¤¦¤Ç¤â¤¤¤¤¤³¤È¤Ç¤¹¡£"))
(define (abe-gobl knpc kpc)
- (say knpc "Ask Deric or Gen about goblins, they have a lot of experience with them."))
+ (say knpc "¥Ç¥ê¥Ã¥¯Â⍫¥¸¥§¥ó¤Ëʹ¤¤¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£Èà¤é¤Ï¿¤¯¤Î¤³¤È¤òÃΤäƤ¤¤Þ¤¹¡£"))
(define abe-conv
(ifc green-tower-conv
(method 'alch abe-alch)
(method 'neig abe-neig)
(method 'flee abe-flee)
+ (method 'esca abe-flee)
(method 'gobl abe-gobl)
))
(bind
(kern-mk-char
'ch_abe ; tag
- "Abe" ; name
+ "¥¨¥¤¥Ö" ; name
abe-species ; species
abe-occ ; occ
s_companion_wizard ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Green Tower
+;; ÎФÎÅã
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_abigail
(list 0 0 abigail-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Abigail is a female goblin child, who lives in Green Tower.
+;; ¥¢¥Ó¥¬¥¤¥ë¤Ï¥´¥Ö¥ê¥ó¤Î¾¯½÷¤Ç¡¢ÎФÎÅã¤Ë¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (abigail-hail knpc kpc)
- (kern-log-msg "You meet a goblin child.")
- (say knpc "Hi.")
+ (kern-log-msg "¤¢¤Ê¤¿¤Ï¥´¥Ö¥ê¥ó¤Î»Ò¶¡¤Ë²ñ¤Ã¤¿¡£")
+ (say knpc "¥Ï¡¼¥¤¡£")
)
(define (abigail-default knpc kpc)
- (say knpc "[She shrugs]")
+ (say knpc "¡ÎÈà½÷¤Ï¸ª¤ò¤¹¤Ü¤á¤¿¡£¡Ï")
)
(define (abigail-name knpc kpc)
- (say knpc "Guto says my name is Abigail.")
+ (say knpc "¥°¥È¤Ï»ä¤Î̾Á°¤Ï¥¢¥Ó¥¬¥¤¥ë¤À¤Ã¤Æ¸À¤Ã¤Æ¤¿¡£")
)
(define (abigail-bye knpc kpc)
- (say knpc "Bye-bye!")
+ (say knpc "¥Ð¥¤¥Ð¥¤¡ª")
)
(define (abigail-guto knpc kpc)
- (say knpc "Doris is my guto."))
+ (say knpc "¥É¥ê¥¹¤Ï»ä¤Î¥°¥È¤Ê¤Î¡£"))
(define (abigail-dori knpc kpc)
- (say knpc "That's my guto!"))
+ (say knpc "¤½¤ì¤Ï»ä¤Î¥°¥È¤è¡ª"))
(define (abigail-gobl knpc kpc)
- (say knpc "The green people, like me. I'm both!"))
+ (say knpc "»ä¤Î¤è¤¦¤ÊÎФΤҤȡ£»ä¤ÏξÊý¤è¡ª"))
(define (abigail-both knpc kpc)
- (say knpc "I talk to goblins. I talk to people. See? Both!"))
+ (say knpc "¥´¥Ö¥ê¥ó¤È¤âÏ乡£¿Í¤È¤âÏ乡£¤ï¤«¤ë¡©Î¾Êý¤è¡ª"))
(define abigail-conv
(ifc nil
(bind
(kern-mk-char
'ch_abigail ; tag
- "Abigail" ; name
+ "¥¢¥Ó¥¬¥¤¥ë" ; name
abigail-species ; species
abigail-occ ; occ
s_goblin_child ; sprite
)
)
(if (<= (kern-char-get-mana kchar) 0)
- (kern-log-msg (kern-obj-get-name kchar) " is exhausted!"))
+ (kern-log-msg (kern-obj-get-name kchar) "¤ÏǽÎϤò»È¤¤²Ì¤¿¤·¤¿¡ª"))
result))
(kern-obj-apply-damage ktarg "life drained" amount)
(kern-obj-heal kchar amount)
(kern-log-msg (kern-obj-get-name kchar)
- " drains life from "
+ "¤Ï"
(kern-obj-get-name ktarg)
- "!")
+ "¤ÎÀ¸Ì¿¤òµÛ¤¤¼è¤Ã¤¿¡ª")
(kern-obj-dec-ref ktarg))
#t)
(define (disease-touch-proc kchar ktarg)
(if (kern-obj-add-effect ktarg ef_disease nil)
(kern-log-msg (kern-obj-get-name kchar)
- " inflicts "
+ "¤Ï"
(kern-obj-get-name ktarg)
- " with Disease!"))
+ "¤òØí´µ¤µ¤»¤¿¡ª"))
#t)
(define (disarm kchar ktarg)
(kern-char-get-level ktarg)))
(let ((ktype (random-select readied)))
(kern-log-msg (kern-obj-get-name kchar)
- " disarms "
- (kern-obj-get-name ktarg))
+ "¤Ï"
+ (kern-obj-get-name ktarg)
+ "¤ÎÁõÈ÷¤ò³°¤·¤¿¡£")
(kern-char-unready ktarg ktype)
(kern-obj-remove-from-inventory ktarg ktype 1)
(kern-obj-put-at (kern-mk-obj ktype 1)
(kern-obj-get-location ktarg))
)
(kern-log-msg (kern-obj-get-name kchar)
- " fails to disarm "
- (kern-obj-get-name ktarg))
+ "¤Ï"
+ (kern-obj-get-name ktarg)
+ "¤ÎÁõÈ÷¤ò³°¤»¤Ê¤«¤Ã¤¿¡£")
#t))))
(define (heal-proc kchar ktarg)
(kern-log-msg (kern-obj-get-name kchar)
- " casts a healing spell on "
+ "¤Ï²óÉü¤Î¼öʸ¤ò"
(if (eqv? kchar ktarg)
- "self"
- (kern-obj-get-name ktarg)))
+ "¼«Ê¬"
+ (kern-obj-get-name ktarg))
+ "¤Ë¤«¤±¤¿¡£")
(kern-obj-heal ktarg
(+ 2 (kern-dice-roll "1d10")
(kern-dice-roll (string-append "2d" (number->string (occ-ability-whitemagic kchar)))))))
(define (great-heal-proc kchar ktarg)
(kern-log-msg (kern-obj-get-name kchar)
- " casts a great healing spell on "
+ "¤ÏÂç²óÉü¤Î¼öʸ¤ò"
(if (eqv? kchar ktarg)
- "self"
- (kern-obj-get-name ktarg)))
+ "¼«Ê¬"
+ (kern-obj-get-name ktarg))
+ "¤Ë¤«¤±¤¿¡£")
(kern-obj-heal ktarg (kern-dice-roll "4d20+20")))
;;----------------------------------------------------------------------------
;; field spells
(define (cast-field-proc kchar loc ktype)
(kern-log-msg (kern-obj-get-name kchar)
- " casts "(kern-type-get-name ktype) "!")
+ "¤Ï"(kern-type-get-name ktype) "¤Î¼öʸ¤ò¤«¤±¤¿¡ª")
(kern-obj-put-at (kern-mk-obj ktype 1) loc))
(define (cast-fire-field-proc kchar ktarg)
(define (cast-kill-proc kchar ktarg)
(kern-log-msg (kern-obj-get-name kchar)
- " casts kill at "
- (kern-obj-get-name ktarg))
+ "¤Ï"
+ (kern-obj-get-name ktarg)
+ "¤Ë»à¤Î¼öʸ¤ò¤«¤±¤¿¡£")
(cast-missile-proc kchar ktarg t_deathball))
(define (cast-acid-missile-proc kchar ktarg)
(kern-log-msg (kern-obj-get-name kchar)
- " hurls acid missile at "
- (kern-obj-get-name ktarg))
+ "¤Ï"
+ (kern-obj-get-name ktarg)
+ "¤Ë»À¤òÍá¤Ó¤»¤¿¡£")
(cast-missile-proc kchar ktarg t_acid_bolt))
(define (web-spew-proc kchar ktarg)
(kern-log-msg (kern-obj-get-name kchar)
- " spews web at "
- (kern-obj-get-name ktarg))
+ "¤Ï"
+ (kern-obj-get-name ktarg)
+ "¤ËÌÖ¤òÊü¤Ã¤¿¡£")
(define (spew-in-dir dir)
(define (ensnare-loc loc)
(kern-obj-put-at (kern-mk-obj web-type 1) loc))
(define (teleport-proc kchar loc)
(kern-log-msg (kern-obj-get-name kchar)
- " teleports")
+ "¤Ï½Ö´Ö°ÜÆ°¤·¤¿¡£")
(kern-obj-relocate kchar loc nil))
(define (fire-wind-proc3 kchar ktarg)
(kern-log-msg (kern-obj-get-name kchar)
- " blasts fire at "
- (kern-obj-get-name ktarg))
+ "¤Ï"
+ (kern-obj-get-name ktarg)
+ "¤Ë¸þ¤«¤Ã¤Æ±ê¤ÎÉ÷¤òÊü¤Ã¤¿¡£")
(define (spew-in-dir dir)
(define (ensnare-loc loc)
(kern-obj-put-at (kern-mk-obj F_fire 1) loc))
(begin
;;(println "flamewind2")
(kern-log-msg (kern-obj-get-name kchar)
- " blasts fire at "
- (kern-obj-get-name ktarg))
+ "¤Ï"
+ (kern-obj-get-name ktarg)
+ "¤Ë¸þ¤«¤Ã¤Æ±ê¤ÎÉ÷¤òÊü¤Ã¤¿¡£")
(powers-cone-fire kchar target power)
))
))
(power (occ-ability-blackmagic kchar)))
(and (powers-lightning-collateral-check kchar target power)
(begin (kern-log-msg (kern-obj-get-name kchar)
- " streams lightning at "
- (kern-obj-get-name ktarg))
+ "¤Ï"
+ (kern-obj-get-name ktarg)
+ "¤Ë°ðºÊ¤òÊü¤Ã¤¿¡£")
(powers-lightning kchar target power)
))
))
(+ 1 (run-loop (- count 1)))))))))
(cond ((> (run-loop quantity)
0)
- (kern-log-msg (kern-obj-get-name kchar) " summons help")
+ (kern-log-msg (kern-obj-get-name kchar) "¤ÏÃç´Ö¤ò¾¤´Ô¤·¤¿¡£")
#t)
(else
- (kern-log-msg (kern-obj-get-name kchar) " fails to summon help")
+ (kern-log-msg (kern-obj-get-name kchar) "¤Ï¾¤´Ô¤Ë¼ºÇÔ¤·¤¿¡£")
#f)))
(define (summon-skeleton-proc kchar)
;; enslave -- aka charm
(define (enslave-proc kchar ktarg)
(kern-log-msg (kern-obj-get-name kchar)
- " enslaves "
- (kern-obj-get-name ktarg))
+ "¤Ï"
+ (kern-obj-get-name ktarg)
+ "¤òÅÛÎì¤Ë¤·¤¿¡£")
(kern-obj-add-effect ktarg
ef_charm
(charm-mk (kern-being-get-current-faction kchar))))
((not (null? (get-being-at loc))) #f)
(else
(kern-place-set-terrain loc t_shallow)
- (msg-log-visible (kern-obj-get-location kchar) (kern-obj-get-name kchar) " chomps through the deck!")
+ (msg-log-visible (kern-obj-get-location kchar) (kern-obj-get-name kchar) "¤Ï¹ÃÈĤò´Ó¤¤¤¿¡ª")
(map kern-obj-remove
(kern-get-objects-at loc))
(if (kern-place-is-combat-map? (loc-place loc))
(cond ((not (is-deck? (kern-place-get-terrain loc))) #f)
(else
(kern-place-set-terrain loc t_shallow_sludge)
- (kern-log-msg (kern-obj-get-name kchar) " chomps through the deck!")
+ (kern-log-msg (kern-obj-get-name kchar) "¤Ï¹ÃÈĤò´Ó¤¤¤¿¡ª")
#t)))
;;----------------------------------------------------------------------------
(cond ((null? hostiles) #f)
(else
(kern-log-msg (kern-obj-get-name kchar)
- " beckons slumber to its foes")
+ "¤Ï´ñ̯¤Ê¼ê¿¶¤ê¤ÇŨ¤ò̲¤é¤»¤è¤¦¤È¤·¤¿¡£")
(map (lambda (ktarg)
(if (> (- (+ (kern-dice-roll "1d20")
(kern-char-get-level kchar))
12)
(begin
(apply-sleep ktarg)
- (kern-log-msg (kern-obj-get-name ktarg) " succumbs!")
+ (kern-log-msg (kern-obj-get-name ktarg) "¤Ï̲¤Ã¤¿¡ª")
)
- (kern-log-msg (kern-obj-get-name ktarg) " resists!")))
+ (kern-log-msg (kern-obj-get-name ktarg) "¤ÏÄñ¹³¤·¤¿¡ª")))
hostiles)
#t))))
;; turn invisible
(define (turn-invisible-proc kchar)
(kern-log-msg (kern-obj-get-name kchar)
- " vanishes!")
+ "¤Ï¾Ã¤¨¤¿¡ª")
(kern-obj-add-effect kchar ef_invisibility nil))
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
(kern-mk-place
'p_absalot ; tag
- "Absalot" ; name
+ "¥¢¥Ö¥µ¥í¥Ã¥È" ; name
s_ruin ; sprite
m_absalot ; map
#f ; wraps
(put (mk-ladder-down 'p_old_absalot 11 27) 2 2)
(put (mk-clock) 12 4)
- (put (mk-broken-clock s_clock_stopped s_clock_stopped "The clock is broken beyond repair") 34 8)
+ (put (mk-broken-clock s_clock_stopped s_clock_stopped "»þ·×¤Ï½¤Íý¤Ç¤¤Ê¤¤¤Û¤É¤Ë²õ¤ì¤Æ¤¤¤ë¡£") 34 8)
)
(define bandit-taunts
(list
- "Yer money or yer life!"
- "Have at 'cher!"
- "Yer a dead man, ye are!"
- "Oy! You! Gerrout!"
- "'Ave at 'im, boys!"
- "Circle round, we've got a dead one!"
- "Dibs on 'is boots!"
- "Stranger, meetcha couple my friends..."
+ "¶â¤«Ì¿¤«¤À¡ª"
+ "Á᤯¤è¤³¤»¡ª"
+ "»à¤Í¡ª"
+ "¥¯¥½¥Ã¡ªÌîϺ¡ª½Ð¤Æ¹Ô¤±¡ª"
+ "¤È¤Ã¤È¤È½Ð¤»¡¢¥¬¥¡ª"
+ "°Ï¤á¡ª»¦¤·¤Æ¤Ç¤âÃ¥¤¨¡ª"
+ "·¤¤Ï²¶¤Îʬ¤±Á°¤À¡ª"
+ "ï¤À¤«ÃΤé¤Í¤¨¤¬²¶¤Î¥À¥Á¤Ë²ñ¤ï¤»¤Æ¤ä¤ë¡Ä"
))
(define (bandit-taunt kbandit ktarg)
(spell-sword-ai kchar)))
(define (flee kchar)
- (println (kern-obj-get-name kchar) " flees")
+ (println (kern-obj-get-name kchar) "¤Ïƨ¤²½Ð¤·¤¿¡£")
(kern-char-set-fleeing kchar #t)
)
(cond ((null? ratlings) #f)
(else
(kern-log-msg (kern-obj-get-name kchar)
- " eats "
- (kern-obj-get-name (car ratlings)))
+ "¤Ï"
+ (kern-obj-get-name (car ratlings))
+ "¤ò¿©¤Ù¤¿¡£")
(kern-obj-remove (car ratlings))
(kern-obj-heal kchar 2)
#t
(else
(cond ((loc-equal? (kern-obj-get-location kchar)
(kern-obj-get-location kcorpse))
- (kern-log-msg (kern-obj-get-name kchar) " eats " (kern-obj-get-name kcorpse))
+ (kern-log-msg (kern-obj-get-name kchar) "¤Ï" (kern-obj-get-name kcorpse) "¤ò¿©¤Ù¤¿¡£")
(kern-obj-remove kcorpse)
(kern-obj-heal kchar (kern-dice-roll "1d10+2"))
#t)
;;----------------------------------------------------------------------------
-;; The Alchemist is numbered among the Wise, but he's not a very nice person.
-;; He's very clever, very greedy and likes to trick people. He is also very
-;; knowledgeable. He knows there is a rune buried in trigrave, and that the
-;; enchanter knows what the runes are for. He also knows that one of then
-;; entrances to the MAN's hideout is in the northwest.
+;; Ï£¶â½Ñ»Õ¤Ï¸¼Ô¤Î°ì¿Í¤È¤·¤Æ¿ô¤¨¤é¤ì¤ë¡£¤·¤«¤·¡¢Èà¤Ï¤¢¤Þ¤ê¤è¤¤¿Í¤Ç¤Ï¤Ê¤¤¡£Èà
+;; ¤Ï¤È¤Æ¤âÍǽ¤Ç¡¢¤È¤Æ¤âÍß¿¼¤¯¡¢¤½¤·¤Æ¿Í¤ò¤À¤Þ¤¹¤³¤È¤ò¹¥¤à¡£¤Þ¤¿Èà¤Ë¤Ï¿¤¯¤Î
+;; Ã챤¬¤¢¤ë¡£Èà¤Ï¥È¥ê¥°¥ì¥¤¥Ö¤Î˺¤ì¤é¤ì¤¿ÀÐÈǤΤ¢¤ê¤«¤òÃΤäƤ¤¤ë¡£¤½¤·¤ÆËâ
+;; Æ»»Õ¤ÏÀÐÈǤϲ¿¤Î¤¿¤á¤Ë¤¢¤ë¤«ÃΤäƤ¤¤ë¡£Èà¤ÏËÌÀ¾¤Î¤Ë¤ó¤²¤ó¤Î±£¤ì²È¤Î¾ì½ê¤ò
+;; ÃΤäƤ¤¤ë¡£
;;
-;; The Alchemist would be very happy to obtain the blood of a hydra, dragon and
-;; lich. He will also teach the player how to make potions for gold?
+;; Ï£¶â½Ñ»Õ¤Ï¥Ò¥É¥é¡¢Îµ¡¢¤½¤·¤Æ¥ê¥Ã¥Á¤Î·ì¤ò¼ê¤ËÆþ¤ì¤ë¤È¤È¤Æ¤â´î¤Ö¡£Èà¤Ï¶â¤òʧ
+;; ¤¨¤ÐÌô¤Îºî¤êÊý¤ò¶µ¤¨¤ë¤«¤â¤·¤ì¤Ê¤¤?
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Constants
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Oparine
+;; ¥ª¥Ñ¡¼¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_alch
(list 0 0 alkemist-shop "idle")
(define alch-catalog
(list
- (list t_heal_potion 18 "When you run out of Mani or mana in the pitch of battle, these will save your life!")
- (list t_cure_potion 18 "An Nox may be cheaper, but nothing works better than my cure potions!")
- (list t_mana_potion 18 "No other potions rejuvenate your mana like mine do!")
+ (list t_heal_potion 18 "À襤¤Î¿¿¤ÃÂþÃæ¤Ç¥Þ¥Ë<Mani>¤äËâÎϤ¬¤Ê¤¯¤Ê¤Ã¤Æ¤â¡¢¤³¤ì¤¬¤¢¤ì¤Ð½õ¤«¤ë¤À¤í¤¦¡ª")
+ (list t_cure_potion 18 "¥¢¥ó¡¦¥Î¥¯¥¹<An Nox>¤ÎÊý¤¬°Â¾å¤¬¤ê¤À¡£¤À¤¬»ä¤Î¼£Ìþ¤ÎÌô¤è¤ê¸ú¤¯¤â¤Î¤Ï¤Ê¤¤¤À¤í¤¦¡ª")
+ (list t_mana_potion 18 "¾¤ÎÌô¤Ç¤Ï»ä¤Î¤â¤Î¤Î¤è¤¦¤ËËâÎϤò¼è¤êÌ᤻¤Ê¤¤¤Ç¤¢¤í¤¦¡ª")
- (list t_poison_immunity_potion 18 "Prevention is better than a cure! With my immunity potions you need never fear poison again!")
- (list t_invisibility_potion 100 "One quaff of this and your enemies will never find you!")
- (list t_str_potion 999 "The strength of a troll will be yours with this potion!" ) ;; limited stock would be nice...
- (list t_dex_potion 999 "Your arrows will fly straight as truth when you drink this potion!") ;; limited stock would be nice...
- (list t_int_potion 999 "The wise man seeks more wisdom! With this potion, it can be yours for a very reasonable price!") ;; limited stock would be nice...
- (list t_info_potion 150 "The sage said to 'Know thyself'. This potion will help!")
+ (list t_poison_immunity_potion 18 "ͽËɤϼ£Ìþ¤Ë¾¡¤ë¡ª»ä¤ÎÌȱ֤ÎÌô¤¬¤¢¤ì¤Ð¤â¤¦ÆǤò¶²¤ì¤ëɬÍפϤʤ¤¡ª")
+ (list t_invisibility_potion 100 "¤³¤ì¤ò°û¤ó¤À¼Ô¤ÏŨ¤Ë¸«¤Ä¤«¤ë¤³¤È¤Ï¤Ê¤¤¤À¤í¤¦¡ª")
+ (list t_str_potion 999 "¤³¤ÎÌô¤Ç¥È¥í¥ë¤ÎÏÓÎϤϷ¯¤Î¤â¤Î¤À¡ª" ) ;; limited stock would be nice...
+ (list t_dex_potion 999 "¤³¤ÎÌô¤ò°û¤á¤Ð¡¢·¯¤ÎÌð¤Ï¿¿¼Â¤Î¤è¤¦¤Ë¤Þ¤Ã¤¹¤°¤ËÈô¤Ö¤À¤í¤¦¡ª") ;; limited stock would be nice...
+ (list t_int_potion 999 "ÃΤΤ¢¤ë¼Ô¤Ï¤è¤êÃΤòµá¤á¤ë¡ª¤³¤ÎÌô¤Ï¤ª¼ê¤´¤í²Á³Ê¤Ç¤½¤ó¤Ê·¯¤Ë¤Ê¤ì¤ë¤À¤í¤¦¡ª") ;; limited stock would be nice...
+ (list t_info_potion 150 "À»¿Í¤Ï¸À¤Ã¤¿¡£Æò¼«¿È¤òÃΤ졣¤³¤ÎÌô¤Ï¤½¤Î½õ¤±¤È¤Ê¤ë¤À¤í¤¦¡ª")
- (list t_oil 6 "Hurl fire at your foes! Protect your flanks or cover your retreat with flaming fields of death!")
- (list t_slime_vial 25 "More fun than a barrel of monkeys! Confound your foes with a multiplying army of slimes!")
+ (list t_oil 6 "Ũ¤Ë±ê¤òÍá¤Ó¤»¤í¡ª·¯¤Î¦Ì̤ò¼é¤ê¡¢»à¤Î±ê¤Î°Ï¤ß¤Ëƨ¤²¹þ¤á¡ª")
+ (list t_slime_vial 25 "¤³¤ì¤ÏºÇ¹â¤Ë³Ú¤·¤¤¡ªÊ¬Îö¤¹¤ëÇ´±Õ¤ÎÉôÂâ¤ÇŨ¤ò¤«¤¯Íð¤·¤í¡ª")
))
(define alch-merch-msgs
- (list "I'm afraid my shop is closed now. Come by between 9:00AM to 5:00PM."
- "I'm sure I have something you'll like! [He rubs his hands briskly]"
- "I sometimes buy used goods... at a discount of course."
- "Yes, let's get down to business!"
- "You'll be back for more when you see for yourself how good my potions are!"
- "I hope you don't regret passing up these fine potions."
- "I can probably find some use for these."
- "I doubt you'll find a better offer anywhere else."
- "A pleasure doing business with you!"
- "Perhaps next time."
+ (list "»ÄÇ°¤À¤¬»ä¤ÎŹ¤Ïº£¤Ï³«¤¤¤Æ¤¤¤Ê¤¤¡£¸áÁ°9»þ¤«¤é¸á¸å5»þ¤Î´Ö¤ËÍè¤Æ¤¯¤ì¤¿¤Þ¤¨¡£"
+ "¤â¤Á¤í¤ó·¯¤¬¹¥¤¤½¤¦¤Êʪ¤â¤¢¤ë¤¾¡ª¡ÎÈà¤Ï¤â¤ß¼ê¤ò¤·¤¿¡£¡Ï"
+ "»È¤Ã¤¿Êª¤âÇ㤤¼è¤ë¤¾¡Ä¤â¤Á¤í¤óÃͤϲ¼¤¬¤ë¤¬¡£"
+ "¤½¤¦¤À¡£¤µ¤¢¾¦Çä¤ò»Ï¤á¤è¤¦¡ª"
+ "»ä¤ÎÌô¤¬¤É¤ì¤Û¤ÉÎɤ¤¤«¤ï¤«¤Ã¤¿¤é¡¢¤â¤Ã¤È¼ê¤ËÆþ¤ì¤ë¤¿¤á¤Ë¤³¤³¤ËÍè¤ë¤À¤í¤¦¡ª"
+ "¤³¤Î¤¹¤Ð¤é¤·¤¤Ìô¤òÇã¤ï¤Ê¤«¤Ã¤¿¤³¤È¤ò¸å²ù¤¹¤ë¤³¤È¤¬¤Ê¤±¤ì¤Ð¤è¤¤¤¬¡£"
+ "»È¤¤Æ»¤¬¤¢¤ê¤½¤¦¤À¡£"
+ "Ê̤Τâ¤Ã¤È¤¤¤¤Ç㤤¼ê¤¬¤¤¤ë¤È¤Ï»×¤¨¤Ê¤¤¤¬¡£"
+ "¤¤¤¤¼è¤ê°ú¤¤¬¤Ç¤¤¿¤Ê¡ª"
+ "¼¡¤Ï¤¿¤Î¤à¤¾¡£"
))
;; Basics...
(define (alch-hail knpc kpc)
- (say knpc "[You meet a short, fat old man with a long nose] "
- "Hello and welcome, Traveler!"))
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÏÇؤ¬Ä㤯¡¢Ä¹¤¤É¡¤ÎÂÀ¤Ã¤¿Ï·¿Í¤È²ñ¤Ã¤¿¡£¡Ï"
+ "¤³¤ó¤Ë¤Á¤Ï¡£¤½¤·¤Æ¤¤¤é¤Ã¤·¤ã¤¤¡¢Î¹¤ÎÊý¡ª"))
(define (alch-default knpc kpc)
- (say knpc "I'm afraid I can't help you with that."))
+ (say knpc "»ÄÇ°¤À¤¬½õ¸À¤Ï¤Ç¤¤Ê¤¤¤Ê¡£"))
(define (alch-name knpc kpc)
- (say knpc "I'm known as the Alchemist.")
+ (say knpc "Ï£¶â½Ñ»Õ¤È¤·¤ÆÃΤé¤ì¤Æ¤¤¤ë¡£")
(quest-data-update 'questentry-alchemist 'found 1)
(quest-data-complete 'questentry-alchemist)
)
(define (alch-join knpc kpc)
- (say knpc "Too busy! And far too old for adventures."))
+ (say knpc "Ë»¤·¤¹¤®¤ë¡ª¤½¤·¤ÆËÁ¸±¤Ë¤ÏºÐ¤ò¤È¤ê²á¤®¤Æ¤¤¤ë¡£"))
(define (alch-job knpc kpc)
- (say knpc "I make potions, dabble in mysteries, that sort of thing. "
- "If you want to buy something just say so!"))
+ (say knpc "Ìô¤òºî¤ë¡¢Æ»³Ú¤ÇÆæ¤ò²ò¤¤¤Æ¤ß¤ë¡¢¤½¤ó¤Ê¤È¤³¤í¤À¡£"
+ "²¿¤«Íߤ·¤¤¤â¤Î¤¬¤¢¤ì¤Ð¸À¤Ã¤Æ¤¯¤ì¡ª"))
(define (alch-bye knpc kpc)
- (say knpc "Farewell! Come back again soon!"))
+ (say knpc "¤µ¤è¤¦¤Ê¤é¡ª¡ª¤Þ¤¿Íè¤Ê¤µ¤¤¡ª"))
;; Trade...
(define (alch-trade knpc kpc) (conv-trade knpc kpc "trade" alch-merch-msgs alch-catalog))
;; accepted: sent to find p rune
;; done: known to have found p rune
(define (alch-dragon-reward knpc kpc)
- (say knpc "Oh, yes, the rune...")
+ (say knpc "¤¢¤¢¡¢¤½¤¦¤À¡¢ÀÐÈǤϡÄ")
(prompt-for-key)
(say knpc
- "The paladins have built several fortifications in the "
- "deeps of Kurpolis. One of the runes was buried in the "
- "foundations of the deepest fort.")
+ "À»µ³»Î¤Ï¥¯¥í¥Ý¥ê¥¹¤ÎÃϲ¼¤Ë¤¤¤¯¤Ä¤«¤ÎºÖ¤òÃÛ¤¤¤Æ¤¤¤ë¡£"
+ "ÀÐÈǤΰì¤Ä¤¬ºÇ¤â¿¼¤¤ºÖ¤ËËä¤â¤ì¤Æ¤¤¤ë¤Î¤À¡£")
(prompt-for-key)
(say knpc
- "A pick and shovel may be enough to get it out again, "
- "but it might be difficult with a dozen paladins breathing "
- "down your neck.")
+ "¤Ä¤ë¤Ï¤·¤È¥·¥ã¥Ù¥ë¤¬¤¢¤ì¤Ð·¡¤ê½Ð¤»¤ë¤À¤í¤¦¡£"
+ "¤À¤¬¡¢ÌäÂê¤Ê¤Î¤Ï·¯¤ËÉÕ¤¤Þ¤È¤¦²¿¿Í¤â¤ÎÀ»µ³»Î¤¬¤¤¤ë¤³¤È¤À¡£")
(quest-data-assign-once 'questentry-rune-p)
(quest-rune-p-update)
)
(define (alch-dragon-done knpc kpc)
- (say knpc "I am afraid I dont know the locations of the other "
- "runes. Try asking the rest of the Wise."))
+ (say knpc "»ÄÇ°¤À¤¬Â¾¤ÎÀÐÈǤΤ¢¤ê¤«¤Ï¤ï¤«¤é¤Ê¤¤¡£"
+ "Ê̤θ¼Ô¤Ëʹ¤¤¤Æ¤ß¤ë¤È¤è¤¤¤À¤í¤¦¡£"))
(define (alch-dragon-quest knpc kpc qstat)
(if (kern-conv-get-yes-no? kpc)
)
((in-inventory? kpc t_rune_p)
(quest-done! qstat #t)
- (say knpc "I see you have collected the Rune of Power.")
+ (say knpc "¤É¤¦¤ä¤éÎϤÎÀÐÈǤò¸«¤Ä¤±¤¿¤è¤¦¤À¤Ê¡£")
(alch-dragon-done knpc kpc)
)
((quest-accepted? qstat)
)
((in-inventory? kpc t_dragons_blood 1)
(begin
- (say knpc "I know where ones is buried, "
- "and I'll tell you in exchange for that vial of "
- "dragon's blood you're carrying. Deal?")
+ (say knpc "¤½¤Î°ì¤Ä¤¬¤É¤³¤Ë±£¤µ¤ì¤Æ¤¤¤ë¤«ÃΤäƤ¤¤ë¡£"
+ "ε¤Î·ì¤ò1¥Ó¥ó»ý¤Ã¤Æ¤¯¤ì¤Ð¡¢¸ò´¹¤Ç¶µ¤¨¤è¤¦¡£"
+ "¤É¤¦¤¹¤ë¤«¤Í¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
(quest-accepted! qstat #t)
(kern-obj-add-to-inventory knpc
t_dragons_blood
1)
- (say knpc "[He eyes the vial hungrily] "
- "Yes! It's just what I need!")
+ (say knpc "¡ÎÈà¤Ïµ²¤¨¤¿Ìܤǥӥó¤ò¸«¤¿¡£¡Ï"
+ "¤½¤¦¤À¡¢¤³¤ì¤³¤½¤¬»ä¤¬µá¤á¤Æ¤¤¤¿¤â¤Î¤À¡ª")
(quest-data-update 'questentry-dragon 'done 1)
(quest-data-complete 'questentry-dragon)
(quest-data-assign-once 'questentry-dragon)
(alch-dragon-reward knpc kpc))
(begin
- (say knpc "Well, I suppose if you dig up the "
- "whole Shard you'll someday find it without "
- "my help. Good luck!")
+ (say knpc "¤¦¤¦¤à¡¢»ä¤Î½õ¤±¤¬¤Ê¤¯¤Æ¤â¡¢¥·¥ã¥ë¥ÉÃæ¤ò·¡¤êÊÖ¤»¤Ð¤¤¤Ä¤«¤Ï¸«¤Ä¤«¤ë¤À¤í¤¦¡£"
+ "¤¬¤ó¤Ð¤ê¤¿¤Þ¤¨¡ª")
(quest-data-assign-once 'questentry-dragon)
))
))
(#t
- (say knpc "Then perhaps we can exchange favors. "
- "I happen to know where one of these runes "
- "is buried. I'll tell you its location if you "
- "bring me a vial of dragon's blood. ")
+ (say knpc "¤Ê¤é¤Ð¸ò´¹¤À¡£"
+ "¤½¤Î°ì¤Ä¤¬¤¢¤ë°äÀפËËä¤â¤ì¤Æ¤¤¤ë¤È¶öÁ³Ê¹¤¤¤¿¡£"
+ "ε¤Î·ì¤ò1¥Ó¥ó»ý¤Ã¤Æ¤¯¤ì¤Ð¡¢¤½¤Î¾ì½ê¤ò¶µ¤¨¤è¤¦¡£")
(quest-data-assign-once 'questentry-dragon)))
- (say knpc "Well, if you are, I happen to know where one is "
- "hidden.")))
+ (say knpc "¤¦¤¦¤à¡¢¤Ê¤é¤Ð¤è¤¤¡£¤½¤Î°ì¤Ä¤Î±£¤·¾ì½ê¤òÃΤäƤ¤¤ë¤Î¤À¤¬¡£")))
(define (alch-more knpc kpc)
(let ((qstat (alchq-dragon (gob knpc))))
- (say knpc "Abe knows more about the runes themselves. Are you "
- "interested in finding the others?")
+ (say knpc "¥¨¥¤¥Ö¤ÏÀÐÈǤΤ³¤È¤ò¤è¤¯ÃΤäƤ¤¤ë¡£"
+ "Ê̤ÎÀÐÈǤâõ¤·¤Æ¤ß¤¿¤¤¤È¤Ï»×¤ï¤ó¤«¤Í¡©")
(quest-data-update-with 'questentry-runeinfo 'abe 1 (quest-notify nil))
(alch-dragon-quest knpc kpc qstat)
))
(if (not (null? (quest-data-getvalue 'questentry-dragon 'rerune)))
(alch-more knpc kpc)
(begin
- (say knpc "[He gets a canny look] Runes, eh? I've seen a few in my time. "
- "Have you one to look at?")
+ (say knpc "¡ÎÈà¤Ï¿§¤á¤Î©¤Ã¤¿¡£¡ÏÀÐÈǤÀ¤È¡©º£¤Þ¤Ç¤Ë²¿ÅÙ¤«¸«¤¿¤³¤È¤¬¤¢¤ë¡£"
+ "·¯¤Î¤ò¸«¤»¤Æ¤¯¤ì¤Ê¤¤¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(if (in-inventory? kpc t_rune_k 1)
(begin
- (say knpc "Yes, I see. This once belonged to the Enchanter, "
- "I believe. I hope you didn't steal it! "
- "I have seen several more like it, "
- "but the person you really should speak to "
- "is Abe.")
+ (say knpc "¤ä¤Ï¤ê¤½¤¦¤À¡£¤³¤ì¤Ï¤«¤Ä¤ÆËâÆ»»Õ¤¬»ý¤Ã¤Æ¤¤¤¿¤â¤Î¤À¤È»×¤¦¡£"
+ "Åð¤ó¤À¤â¤Î¤Ç¤Ï¤Ê¤¤¤È»×¤¤¤¿¤¤¤Ê¡ª"
+ "Ʊ¤¸¤è¤¦¤Ê¤â¤Î¤ò¤¤¤¯¤Ä¤«¤ß¤¿¤³¤È¤¬¤¢¤ë¡£"
+ "·¯¤¬ËÜÅö¤Ë²ñ¤Ã¤ÆÏ䵤ʤ±¤ì¤Ð¤Ê¤é¤Ê¤¤¤Î¤Ï¥¨¥¤¥Ö¤À¡£")
(quest-data-update 'questentry-dragon 'rerune 1)
(quest-data-update-with 'questentry-runeinfo 'abe 1 (quest-notify nil))
)
- (say knpc "I don't see it. Perhaps you dropped it?"))
- (say knpc "I might be able to help if you could show me.")))
+ (say knpc "¤É¤³¤Ë¤â¤Ê¤¤¤¾¡£¤â¤·¤ä¤Ê¤¯¤·¤¿¤Î¤«¡©"))
+ (say knpc "¸«¤»¤Æ¤¯¤ì¤ì¤Ð¼ê½õ¤±¤Ç¤¤ë¤«¤â¤·¤ì¤Ê¤¤¡£")))
))
(define (alch-abe knpc kpc)
- (say knpc "An old acquaintance of mine. "
- "Last I heard he was studying the ruins at Green Tower."))
+ (say knpc "»ä¤Î¸Å¤¯¤«¤é¤ÎÃΤê¹ç¤¤¤À¡£"
+ "º£¤ÏÎФÎÅã¤Ç°äÀפòÄ´¤Ù¤Æ¤¤¤ë¤Èʹ¤¤¤Æ¤¤¤ë¡£"))
(define (alch-drag knpc kpc)
- (say knpc "I've never done it personally, but if one wants to obtain some "
- "dragon's blood my understanding is that one must kill a dragon! "
- "I hear they're common as cows in the regions of the Fire Sea."
+ (say knpc "¼ÂºÝ¤Ë¤Ï¸«¤¿¤³¤È¤¬¤Ê¤¤¡£"
+ "¤·¤«¤·¡¢Îµ¤Î·ì¤ò¼ê¤ËÆþ¤ì¤ë¤¿¤á¤Ë¤Ï¡¢Îµ¤òÅݤµ¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤À¤í¤¦¡ª"
+ "²Ð¤Î³¤¤Î¤¢¤¿¤ê¤Ç¤Ïµí¤Î¤è¤¦¤Ë¤¢¤ê¤¤¿¤ê¤Î¤â¤Î¤À¤Èʹ¤¤¤¿¡£"
)
(quest-data-update-with 'questentry-dragon 'sea 1 (quest-notify nil)))
;; The Wise...
(define (alch-necr knpc kpc)
- (say knpc "The Necromancer is an old acquaintance of mine. "
- "Since the razing of Absalot he's retired to the underworld. "
- "'Tis a pity, but we've lost touch."))
+ (say knpc "»àÎî½Ñ»Õ¤È¤Ï¸Å¤¯¤«¤é¤ÎÃΤê¹ç¤¤¤À¡£"
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤¬Êø²õ¤·¤Æ°ÊÍè¡¢Ãϲ¼À¤³¦¤Ë°ú¤¤³¤â¤Ã¤Æ¤¤¤ë¡£"
+ "°¥¤ì¤Ê¤³¤È¤À¡£¤À¤¬¡¢¤¢¤ì¤«¤é²ñ¤Ã¤Æ¤¤¤Ê¤¤¡£"))
(define (alch-ench knpc kpc)
- (say knpc "The Enchanter is a great and knowledgable Wizard. "
- "I'm afraid we don't always see eye-to-eye. "
- "Lately he's been pre-occupied with the Accursed."
+ (say knpc "ËâÆ»»Õ¤Ï°ÎÂç¤ÇÃμ±¤Î¤¢¤ëËâ½Ñ»Õ¤À¡£"
+ "»ÄÇ°¤À¤¬Èà¤È¤Ï°Õ¸«¤¬¹ç¤ï¤Ê¤¤¤³¤È¤¬Â¿¤¤¡£"
+ "ºÇ¶á¤Ï¼ö¤ï¤ì¤¿¼Ô¤Î¤³¤È¤Ð¤«¤êµ¤¤Ë¤·¤Æ¤¤¤ë¡£"
))
(define (alch-man-reward knpc kpc)
- (say knpc "In the mountains of "
- "the northeast, along their southern face, "
- "there is a secret passage. It is near coordinates "
- "[92 10]."))
+ (say knpc "ËÌÅì¤Î»³Ì®¤Ë¡¢ÆËÌ̤·¤¿ÈëÌ©¤ÎÆþ¤ê¸ý¤¬¤¢¤ë¡£ºÂɸ¤Ï[92,10]¤À¡£"))
(define (alch-man knpc kpc)
(let ((qstat (gob knpc)))
- (say knpc "I've never met the MAN. "
- "Being the most accomplished of Wrogues, "
- "he probably has a fortune stashed in his hideout. "
- "If I were the adventurous type I might go seek it out myself. "
- "What about you?")
+ (say knpc "¤Ë¤ó¤²¤ó¤È¤Ï²ñ¤Ã¤¿¤³¤È¤¬¤Ê¤¤¡£"
+ "ºÇ¤âÏ·à֤ʤʤ餺¼Ô¤È¤¤¤¦Â¸ºß¤À¡£"
+ "¶²¤é¤¯ÁêÅö¤ÊÉÙ¤ò±£¤ì²È¤ËÃߤ¨¤Æ¤¤¤ë¤Ï¤º¤À¡£"
+ "¤â¤·»ä¤¬ËÁ¸±¼Ô¤Ê¤é¡¢¼«Ê¬¼«¿È¤Çõ¤·½Ð¤½¤¦¤È¤¹¤ë¤À¤í¤¦¡£"
+ "·¯¤Ï¤É¤¦¤À¡©")
(if (kern-conv-get-yes-no? kpc)
(cond
((alchq-hydra? qstat)
- (say knpc "I've heard, from a reliable source, of an entrance "
- "to the MAN's secret hideout.")
+ (say knpc "¿®ÍѤǤ¤ë¼Ô¤¬¤Ë¤ó¤²¤ó¤Î±£¤ì²È¤ÎÆþ¤ê¸ý¤¬¤É¤³¤Ë¤¢¤ë¤«¶µ¤¨¤Æ¤¯¤ì¤¿¡£")
(alch-man-reward knpc kpc))
((in-inventory? kpc t_hydras_blood 1)
(begin
- (say knpc "I've heard, from a reliable source, of an entrance "
- "to the MAN's secret hideout. I'll tell you in exchange "
- "for that vial of hydra's blood in your pack. Yes?")
+ (say knpc "¿®ÍѤǤ¤ë¼Ô¤¬¤Ë¤ó¤²¤ó¤Î±£¤ì²È¤ÎÆþ¤ê¸ý¤¬¤É¤³¤Ë¤¢¤ë¤«¶µ¤¨¤Æ¤¯¤ì¤¿¡£"
+ "¤½¤ì¤Ï·¯¤Î»ý¤Ã¤Æ¤¤¤ë1¥Ó¥ó¤Î¥Ò¥É¥é¤Î·ì¤È¸ò´¹¤Ç¶µ¤¨¤è¤¦¡£¤è¤¤¤Ê¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
(alchq-hydra! qstat #t)
(kern-obj-add-to-inventory knpc
t_hydras_blood
1)
- (say knpc "[He fairly drools over the noxious stuff] "
- "Oh, lovely... lovely!")
- (say knpc "Ahem.")
+ (say knpc "¡ÎÈà¤Ï¤½¤ÎÆÇʪ¤¬Íߤ·¤¯¤Æ¤¿¤Þ¤é¤Ê¤«¤Ã¤¿¤è¤¦¤À¡£¡Ï"
+ "¤ª¤ª¡¢¤«¤ï¤¤¤¤¡Ä¤«¤ï¤¤¤¤¡ª")
+ (say knpc "¥´¥Û¥ó¡£")
(alch-man-reward knpc kpc))
- (say knpc "'Tis a pity. You have no use for the "
- "vial, and I am too old to go treasure-hunting."))))
+ (say knpc "»ÄÇ°¤À¡£·¯¤¬»ý¤Ã¤Æ¤¤¤Æ¤â²¿¤ÎÌò¤Ë¤â¤¿¤¿¤Ê¤¤¡£"
+ "¤½¤·¤Æ»ä¤Ï¼è¤ê¤Ë¹Ô¤¯¤Ë¤Ïǯ¤ò¼è¤ê¤¹¤®¤Æ¤¤¤ë¡£"))))
(#t
- (say knpc "Well, I do hear many things, many of which are only "
- "rumour. But a reliable source has told me of where to find "
- "an entrance to the MAN's hideout. If you bring me a vial of "
- "hydra's blood I'll disclose it to you.")))
- (say knpc "For fie, Wanderer! "
- "I thought you were the adventurous type."))))
+ (say knpc "¤¦¤¦¤à¡¢Â¿¤¯¤Î¤³¤È¤òʹ¤¤¤¿¤³¤È¤¬¤¢¤ë¤¬¡¢¤Û¤È¤ó¤É¤Ï¤¿¤À¤Î¤¦¤ï¤µ¤À¡£"
+ "¤À¤¬¡¢¿®ÍѤǤ¤ë¼Ô¤¬¤Ë¤ó¤²¤ó¤Î±£¤ì²È¤ÎÆþ¤ê¸ý¤¬¤É¤³¤Ë¤¢¤ë¤«¶µ¤¨¤Æ¤¯¤ì¤¿¡£"
+ "¤â¤·1¥Ó¥ó¤Î¥Ò¥É¥é¤Î·ì¤ò»ý¤Ã¤Æ¤¯¤ë¤Ê¤é¡¢¤½¤ÎÈëÌ©¤ò·¯¤ËÌÀ¤«¤½¤¦¡£")))
+ (say knpc "²¿¤È¤¤¤¦¤³¤È¤À¡¢Ì¤¤¿Í¤è¡ª"
+ "·¯¤ÏËÁ¸±¼Ô¤À¤È»×¤Ã¤Æ¤¤¤¿¤è¡£"))))
(define (alch-hydr knpc kpc)
- (say knpc "The hydra is a most difficult foe. "
- "I understand that striking them only increases their strength! "
- "But if you do succeed in killing one their blood is quite useful "
- "to the arcane arts."))
+ (say knpc "¥Ò¥É¥é¤ÏºÇ¤âº¤Æñ¤ÊŨ¤À¡£"
+ "¤¿¤ÀÀÚ¤ê¤Ä¤±¤ë¤È¡¢¤½¤ì¤Ï¤è¤ê¶¯¤¯¤Ê¤ë¤À¤±¤À¤Èʹ¤¤¤¿¡ª"
+ "¤À¤¬¡¢»¦¤¹¤³¤È¤¬¤Ç¤¤ì¤Ð¡¢¤½¤Î·ì¤Ë¤ÏÃΤë¿Í¤¾ÃΤ뤹¤Ð¤é¤·¤¤²ÁÃͤ¬¤¢¤ë¡£"))
(define (alch-warr knpc kpc)
- (say knpc "On a few occasions I have met the Warritrix. "
- "Her ferocity is legendary, "
- "but I found her to be very calm and gracious in her demeanor. "
- "I understand she refused to take part in the destruction of "
- "Absalot."))
+ (say knpc "Æ®»Î¤È¤Ï¿ô²ó²ñ¤Ã¤¿¤³¤È¤¬¤¢¤ë¡£"
+ "Èà½÷¤Î»ÄǦ¤µ¤ÏÅÁÀâŪ¤À¡£"
+ "¤À¤¬¡¢¸«¤¿ÌܤˤϤȤƤâʪÀŤ«¤ÇÍ¥²í¤À¡£"
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÇ˲õ¤Ë»²²Ã¤¹¤ë¤Î¤òµñ¤ó¤À¤Èʹ¤¤¤¿¡£"))
(define (alch-engi knpc kpc)
- (say knpc "I've never met the Engineer, "
- "I understand he is quite the recluse."))
+ (say knpc "µ»»Õ¤È¤Ï²ñ¤Ã¤¿¤³¤È¤¬¤Ê¤¤¡£"
+ "ËÜʪ¤Î±£ÆÛ¼Ô¤À¤Èʹ¤¤¤¿¡£"))
(define (alch-alch knpc kpc)
- (say knpc "Yes, that's me. I am the Alchemist.")
+ (say knpc "¤½¤¦¡¢¤½¤ì¤Ï»ä¤À¡£»ä¤¬Ï£¶â½Ñ»Õ¤À¡£")
(quest-data-update 'questentry-alchemist 'found 1)
(quest-data-complete 'questentry-alchemist)
)
;; Absalot...
(define (alch-absa-reward knpc kpc)
- (say knpc "There was a fortress overlooking a river of fire. "
- "Pity it wasn't manned, it might have turned Glasdrin's invasion. "
- "It will make a perilous crossing if monsters have taken it over.")
+ (say knpc "²Ð¤ÎÀî¤ò¸«ÅϤ»¤ë¾ì½ê¤ËºÖ¤¬¤¢¤Ã¤¿¡£"
+ "¥°¥é¥¹¥É¥ê¥ó¤Ë¿¯¹¶¤µ¤ì¡¢»ÄÇ°¤À¤¬¤½¤³¤Ë¤Ï¿Í¤Ï¤¤¤Ê¤¤¡£"
+ "²øʪ¤É¤â¤¬µïºÂ¤Ã¤Æ¤¤¤ì¤Ð¡¢¤½¤³¤òÄ̤ë¤Î¤Ï´í¸±¤À¡£")
(prompt-for-key)
(say knpc
- "There is, however, an older route that bypasses the fortress. "
- "Probe the east wall of the first cavern, "
- "you will find a hidden passage.")
+ "¤À¤¬¡¢ºÖ¤Ø¤Î¸Å¤¤±ª²óÏ©¤¬¤¢¤ë¤Î¤À¡£"
+ "ºÇ½é¤Îƶ·¢¤ÎÅ즤ÎÊɤòÄ´¤Ù¤í¡£"
+ "±£¤·ÄÌÏ©¤¬¸«¤Ä¤«¤ë¤Ï¤º¤À¡£")
(prompt-for-key)
(say knpc
- "You will still need to cross the river of fire. "
- "There is a statue upon the river. Speak the password 'ONUS' to pass unharmed. "
- "Write that password down!")
+ "¤½¤ì¤Ç¤â²Ð¤ÎÀî¤òÅϤëɬÍפ¬¤¢¤ë¡£"
+ "Àî¤ËÀÐÁü¤¬¤¢¤ë¡£¤½¤ì¤Ë¹ç¸ÀÍÕ¡ÖÀÕǤ¡×¤È¸À¤¨¤Ð°ÂÁ´¤ËÅϤì¤ë¡£"
+ "¹ç¸ÀÍÕ¤ò½ñ¤¤È¤á¤Æ¤ª¤±¡ª")
(prompt-for-key)
(say knpc
- "The passage rejoins the main route near the stairway which leads up to "
- "the lost city. You won't escape all the hazards of the journey, "
- "but it should make your life somewhat easier."))
+ "±£¤·ÄÌÏ©¤Ï¼º¤ï¤ì¤¿Ä®¤Î¶á¤¯¤ÎºäÆ»¤ÇÄ̾ï¤ÎÆ»¤ÈºÆ¤Ó¹çή¤¹¤ë¡£"
+ "ÅÓÃæ¤É¤ó¤Ê´í¸±¤¬¤¢¤Ã¤Æ¤âƨ¤²¤é¤ì¤Ê¤¤¤¬¡¢¤³¤ÎÊýË¡¤Ê¤é¤è¤ê´Êñ¤Ë¤¿¤É¤êÃ失¤ë¤Ï¤º¤À¡£"))
(define (alch-absa knpc kpc)
(let ((qstat (gob knpc)))
- (say knpc "The passage to Absalot was always dangerous even when it was maintained. "
- "You wouldn't happen to be thinking of going there?")
+ (say knpc "¥¢¥Ö¥µ¥í¥Ã¥È¤Ø¤ÎÆ»¤Î¤ê¤Ï¡¢Êø²õ¤ÎÁ°¤Ç¤µ¤¨¾ï¤Ë´í¸±¤À¤Ã¤¿¡£"
+ "¤½¤³¤Ø¹Ô¤Ã¤Æ¤ß¤è¤¦¤È»×¤¦¤«¤Í¡©")
(if (kern-conv-get-yes-no? kpc)
(cond
((alchq-lich? qstat)
(alch-absa-reward knpc kpc))
((in-inventory? kpc t_lichs_blood 1)
- (say knpc "In exchange for that vial of lich's blood I'd be "
- "happy to tell you of a back door. What do you say?")
+ (say knpc "¤½¤Î1¥Ó¥ó¤Î¥ê¥Ã¥Á¤Î·ì¤È¸ò´¹¤Ç¡¢´î¤ó¤Ç΢ƻ¤ò¶µ¤¨¤è¤¦¡£"
+ "¤É¤¦¤¹¤ë¤«¤Í¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
(alchq-lich! qstat #t)
(kern-obj-add-to-inventory knpc
t_lichs_blood
1)
- (say knpc "[He grins and winks] Just the stuff I need!")
+ (say knpc "¡ÎÈà¤Ï¥¦¥£¥ó¥¯¤·¡¢¤Û¤Û¤¨¤ó¤À¡£¡Ï¤Þ¤µ¤Ë¤³¤ì¤¬µá¤á¤Æ¤¤¤¿¤â¤Î¤À¡ª")
(alch-absa-reward knpc kpc))
- (say knpc "I see. No doubt you have IMPORTANT plans for "
- "that lich's blood. I can always get some from "
- "another adventurer.")))
+ (say knpc "¤ï¤«¤Ã¤¿¡£"
+ "´Ö°ã¤¤¤Ê¤¯·¯¤Ë¤Ï¤½¤Î·ì¤ò»È¤Ã¤¿½ÅÍפʷײ褬¤¢¤ë¤Î¤À¤Ê¡£"
+ "»ä¤Ï¾ï¤ËÊ̤ÎËÁ¸±¼Ô¤«¤é¼ê¤ËÆþ¤ì¤ë¤³¤È¤¬¤Ç¤¤ë¡£")))
(else
- (say knpc "Bring me a vial of lich's blood and I'll tell you "
- "a secret way.")))
- (say knpc "It's just a ruin now anyways. Everything was destroyed "
- "when it was sacked."))))
+ (say knpc "1¥Ó¥ó¤Î¥ê¥Ã¥Á¤Î·ì¤ò»ý¤Ã¤Æ¤¯¤ë¤Î¤À¡£"
+ "¤½¤¦¤¹¤ì¤ÐÈëÌ©¤ÎÄÌÏ©¤ò¶µ¤¨¤è¤¦¡£")))
+ (say knpc "º£¤È¤Ê¤Ã¤Æ¤Ï¤¿¤À¤ÎÇÑÔÒ¤À¡£"
+ "άå¤Ë¤¢¤Ã¤¿¤È¤¡¢Á´¤Æ¤¬Êø²õ¤·¤¿¡£"))))
(define (alch-sack knpc kpc)
- (say knpc "Oh yes, didn't you know? Absalot was sacked by the armies "
- "of Glasdrin, Green Tower and Oparine. Destroyed for its wickedness, "
- "they say. [He chuckles without humour]"))
+ (say knpc "¤¢¤¢¤½¤¦¤À¡£ÃΤäƤ¤¤ë¤«¡©"
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤Ï¥°¥é¥¹¥É¥ê¥ó¡¢ÎФÎÅã¡¢¤½¤·¤Æ¥ª¥Ñ¡¼¥ê¥ó¤Î·³Ââ¤Ë¤è¤Ã¤Æά夵¤ì¤¿¡£"
+ "Èà¤é¤¬¸À¤¦¤Ë¤Ï¡¢¥¢¥Ö¥µ¥í¥Ã¥È¤Ï¤½¤Î¼Ù°¤µ¤ÇÊø²õ¤·¤¿¤Î¤À¤½¤¦¤À¡£¡ÎÈà¤ÏÎä¤ä¤ä¤«¤Ë¾Ð¤Ã¤¿¡£¡Ï"))
(define (alch-esca knpc kpc)
- (say knpc "Er... did I say that? I can't imagine why. Anyone who escaped "
- "from Absalot would have the death sentence on their head."))
+ (say knpc "²¿¡Ä»ä¤¬¤½¤¦¸À¤Ã¤¿¤Î¤«¡©"
+ "¤Ê¤¼¤½¤ó¤Ê¤³¤È¤ò¸À¤Ã¤¿¤Î¤À¤í¤¦¤«¡£"
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤«¤éƨ¤²¤è¤¦¤È¤·¤¿¼Ô¤Ï¡¢¼ó¤òÀÚ¤êÍî¤È¤µ¤ì½è·º¤µ¤ì¤¿¡£"))
(define (alch-wick knpc kpc)
- (say knpc "Yes, Absalot was so wicked that every man, woman and child "
- "who dwelt there had to be put to the sword. Lucky for us to have "
- "paladins willing to carry out this righteous work! "
- "[You detect a hint of irony in his raised eyebrows and innocent "
- "expression]"))
+ (say knpc "¤½¤¦¡¢¥¢¥Ö¥µ¥í¥Ã¥È¤ÏÈó¾ï¤Ë¼Ù°¤À¤Ã¤¿¤Î¤Ç¡¢Á´¤Æ¤ÎÃË¡¢½÷¡¢»Ò¶¡¤¬·õ¤ÇÀڤ껦¤µ¤ì¤¿¡£"
+ "²æ¡¹¤Ë¤È¤Ã¤Æ¹¬±¿¤À¤Ã¤¿¤Î¤Ï¡¢À»µ³»Î¤¿¤Á¤Ï¤½¤ì¤òÀµµÁ¤Î¤¿¤á¤Î¹Ô¤¤¤À¤È¿®¤¸¤Æ¤¤¤¿¤³¤È¤À¡ª"
+ "¡Î¤¢¤Ê¤¿¤ÏÈà¤Î¤Ä¤ê¤¢¤¬¤Ã¤¿Èý¤ÈΨľ¤Ê¸À¤¤Êý¤Ë¡¢È¿¸ìŪ¤Ê¤Û¤Î¤á¤«¤·¤ò´¶¤¸¼è¤Ã¤¿¡£¡Ï"))
(define (alch-lich knpc kpc)
- (say knpc "A lich is an undead wizard. This foul thing corrupts all it "
- "touches and commands armies of the dead. Its blood has many uses "
- "in necromancy, which is not my specialty."))
+ (say knpc "¥ê¥Ã¥Á¤ÏÉÔ»à¤ÎËâ½Ñ»Õ¤À¡£¤³¤Î¶ØÃǤθºß¤Ï¡¢¿¨¤ì¤¿¤â¤ÎÁ´¤Æ¤òÊø²õ¤µ¤»¤ë¤³¤È¤¬¤Ç¤¡¢"
+ "¤½¤·¤ÆÉÔ»à¤Î·³ÃĤòÁà¤ë¤³¤È¤¬¤Ç¤¤ë¡£¤½¤Î·ì¤Ï»àÎî½Ñ¤Ë¤ª¤¤¤Æ¿¤¯¤Î»È¤¤Æ»¤¬¤¢¤ë¡£"
+ "¤½¤ì¤Ï»ä¤ÎÀìÌç¤Ç¤Ï¤Ê¤¤¤¬¤Ê¡£"))
;; The Accursed...
(define (alch-accu knpc kpc)
- (say knpc "The so-called Accursed are a secret society blamed for "
- "many heinous deeds, but who can say how much of that is rumour?"))
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¤È¤µ¤ì¤Æ¤¤¤ë¤Î¤Ï¡¢Â¿¤¯¤ÎÁþ¤à¤Ù¤¤â¤Î¤´¤È¤Î¸¶°ø¤È¤µ¤ì¤Æ¤¤¤ëÈëÌ©¤Î½¸ÃĤÀ¡£"
+ "¤À¤¬¡¢¤É¤³¤Þ¤Ç¤¬¤¦¤ï¤µ¤À¤È郎¸À¤¨¤ë¤Î¤À¤í¤¦¤«¡©"))
;; Townsfolk
(define (alch-lia knpc kpc)
- (say knpc "A bewitching creature! "
- "If I could, I would break her curse. In fact, I would do it for free. "
- "Call me an old fool!"))
+ (say knpc "Ì¥ÎÏŪ¤Ê¸ºß¤À¡ª"
+ "¤â¤·²Äǽ¤Ê¤é¤Ð¡¢Èà½÷¤Î¼ö¤¤¤ò²ò¤¤¤Æ¤ä¤ê¤¿¤¤¡£¤â¤Ã¤È¸À¤¨¤Ð¡¢¥¿¥À¤Ç¤·¤Æ¤â¤è¤¤¡£"
+ "¤ª¤í¤«¤Êǯ´ó¤ê¤È¸À¤Ã¤Æ¤¯¤ì¡ª"))
(define alch-conv
(ifc basic-conv
(kern-char-arm-self
(kern-mk-char
'ch_alchemist ;;.....tag
- "Alchemist" ;;.......name
+ "Ï£¶â½Ñ»Õ" ;;.......name
sp_human ;;.....species
oc_wright ;;...occupation
s_companion_tinker ;;......sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Paladin's Hold, in the Keep guarding Kurpolis.
+;; ¥¯¥í¥Ý¥ê¥¹¤ÎÀ»µ³»Î¤ÎºÖ
;;----------------------------------------------------------------------------
(define alex-bed ph-bed3)
(define alex-mealplace ph-tbl3)
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Alex is a Captain in the Glasdrin Militia,
-;; serving in the second garrison which guards
-;; the undead-filled prison level of Kurpolis.
+;; ¥¢¥ì¥Ã¥¯¥¹¤Ï¥°¥é¥¹¥É¥ê¥ó·³¤ÎÂâĹ¤Ç¡¢¥¯¥í¥Ý¥ê¥¹¤ÎÉÔ»à¤Î¼Ô¤Î³¬¤ò¼é¤ëÂèÆóÁØÃó
+;; ÆÖÃϤÇǤ̳¤Ë¤Ä¤¤¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (alex-hail knpc kpc)
- (say knpc "Welcome, adventurer, and find some measure of safety behind our walls."))
+ (say knpc "¤è¤¦¤³¤½¡¢ËÁ¸±¼Ô¤è¡£²æ¡¹¤ÎÊɤθå¤í¦¤Ï¾¯¤·¤Ï°ÂÁ´¤À¡£"))
(define (alex-name knpc kpc)
- (say knpc "I am Captain Alex of the Glasdrin militia."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó·³¤Î¥¢¥ì¥Ã¥¯¥¹ÂâŤÀ¡£"))
(define (alex-job knpc kpc)
- (say knpc "I am a warmage, and commander of this garrison. Do you mean to pass through our gates?")
+ (say knpc "ÀïÆ®Ëâ½Ñ»Õ¡¢¤½¤·¤Æ¤³¤ÎÃóÆÖÃϤλشø´±¤À¡£²æ¡¹¤ÎÌç¤òÄ̤ꤿ¤¤¤Î¤«¤Í¡©")
(if (yes? kpc)
(alex-pass knpc kpc)
- (say knpc "If you change your mind and need the password come ask me.")))
+ (say knpc "µ¤¤¬ÊѤï¤Ã¤¿¤é¹ç¸ÀÍդˤĤ¤¤Æ¿Ò¤Í¤Æ¤¯¤ì¡£")))
(define (alex-bye knpc kpc)
- (say knpc "Watch your back out there."))
+ (say knpc "Êɤγ°¤Ç¤ÏÇظå¤Ëµ¤¤ò¤Ä¤±¤í¡£"))
(define (alex-warm knpc kpc)
- (say knpc "A warmage specializes in combat spells. You know what my biggest problem is?")
+ (say knpc "ÀïÆ®Ëâ½Ñ»Õ¤Ï¡¢ÀïÆ®ËâË¡¤ÎÀìÌç²È¤À¡£»ä¤ÎºÇÂç¤Î¤Ê¤ä¤ß¤¬¤ï¤«¤ë¤«¤Í¡©")
(yes? kpc)
- (say knpc "Finding reagents. Be sure and stock up before traveling any deeper!"))
+ (say knpc "ÈëÌô¤ò¤É¤¦¸«¤Ä¤±¤ë¤«¤À¡£±ü¤Ë¹Ô¤¯Á°¤ËÈ÷¤¨¤ë¤Î¤ò˺¤ì¤ë¤Ê¡ª"))
(define (alex-garr knpc kpc)
- (say knpc "This is one of three garrisons the militia keeps in Kurpolis. "
- "The first garrison guards the entrance to Kurpolis to keep monsters from getting to the surface. ")
+ (say knpc "¤³¤³¤Ï¥¯¥í¥Ý¥ê¥¹¤Ë¤ª¤±¤ë·³¤Î»°¤Ä¤ÎÃóÆÖÃϤΰì¤Ä¤À¡£"
+ "Âè°ìÁØÃóÆÖÃϤϲøʪ¤¬ÃϾå¤Ø½Ð¤Ê¤¤¤è¤¦¤Ë¥¯¥í¥Ý¥ê¥¹¤ÎÆþ¤ê¸ý¤ò¼é¤Ã¤Æ¤¤¤ë¡£")
(prompt-for-key)
- (say knpc "This, the second garrison, manages the prison below and keeps the undead at bay.")
+ (say knpc "¤³¤ÎÂèÆóÁØÃóÆÖÃϤϲ¼¤Î¼ýÍƽê¤ò´ÉÍý¤·¡¢ÉÔ»à¤Î¼Ô¤ò¿©¤¤»ß¤á¤ë¡£")
(prompt-for-key)
- (say knpc "The third garrison guards the way to... well, to someplace no one has any business going. ")
+ (say knpc "Âè»°ÁØÃóÆÖÃϤϡĤɤ³¤Ø³¤¯¤«¤ï¤«¤é¤Ê¤¤Æ»¤ò¼é¤Ã¤Æ¤¤¤ë¡£")
)
(define (alex-unde knpc kpc)
- (say knpc "This level of Kurpolis is an ancient keep, mostly controlled by the undead. Do you want to know what I think?")
+ (say knpc "¥¯¥í¥Ý¥ê¥¹¤Î¤³¤ÎÁؤˤϡ¢ÉÔ»à¤Î¼Ô¤¬»ÙÇÛ¤¹¤ë¸Å¤¤ºÖ¤¬¤¢¤ë¡£»ä¤Î¹Í¤¨¤òÃΤꤿ¤¤¤«¡©")
(if (yes? kpc)
- (say knpc "I think the undead are in the service of a lich.")
- (say knpc "Then I won't trouble you with my opinion!")))
+ (say knpc "ÉÔ»à¤Î¼Ô¤É¤â¤Ï¥ê¥Ã¥Á¤Ë»Å¤¨¤Æ¤¤¤ë¤Î¤À¤È¹Í¤¨¤Æ¤¤¤ë¡£")
+ (say knpc "¤Ê¤é¤Ð·¯¤òº®Í𤵤»¤Ê¤¤¤¿¤á²¿¤â¸À¤ï¤Ê¤¤¤Ç¤ª¤³¤¦¡ª")))
(define (alex-lich knpc kpc)
- (say knpc "What is a lich? Why, it's an undead wizard. A lich can command the dead as well as cast all manner of spells. A most troublesome foe."))
+ (say knpc "¥ê¥Ã¥Á¤È¤Ï²¿¤«¡©¤½¤ì¤ÏÉÔ»à¤ÎËâ½Ñ»Õ¤Ç¤¢¤ë¡£¥ê¥Ã¥Á¤Ï¼öʸ¤ÈƱ¤¸¤è¤¦¤Ë»à¼Ô¤òÁà¤ë¤³¤È¤¬¤Ç¤¤ë¡£ºÇ¤â¶²¤í¤·¤¤Å¨¤À¡£"))
(define (alex-pass knpc kpc)
- (say knpc "The password is deep."))
+ (say knpc "¹ç¸ÀÍդϡֿ¼Ê¥¡×¤À¡£"))
(define (alex-thir knpc kpc)
- (say knpc "We've lost contact with the third garrison. "
- "One of the soldiers from that regiment is in our prison below. "
- "I'm afraid he is quite insane. The deep places can do that to a man."))
+ (say knpc "Âè»°ÁØÃóÆÖÃϤȤÏÏ¢Íí¤¬¼è¤ì¤Ê¤¯¤Ê¤Ã¤Æ¤¤¤ë¡£"
+ "Ï¢Ââ¤ÎÀï»Î¤Î°ì¿Í¤¬²¼¤Î¼ýÍƽê¤Ë¤¤¤ë¡£"
+ "»ä¤ÏÈबËÜÅö¤Ë¤ª¤«¤·¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿¤Î¤Ç¤Ï¤Ê¤¤¤«¤È¶²¤ì¤Æ¤¤¤ë¡£¿¼¤¤¾ì½ê¤Ï¿Í¤ò¤½¤Î¤è¤¦¤Ë¤·¤Æ¤·¤Þ¤¦¡£"))
(define (alex-pris knpc kpc)
- (say knpc "If you want to visit the prison take the ladder down."))
+ (say knpc "¼ýÍƽê¤Ø¹Ô¤¤¿¤±¤ì¤Ð¡¢¤Ï¤·¤´¤ò²¼¤ê¤Ê¤µ¤¤¡£"))
(define (alex-firs knpc kpc)
- (say knpc "If you want to visit the first garrison take the ladder up, then travel north and then west."))
+ (say knpc "Âè°ìÁØÃóÆÖÃϤعԤ¤¿¤±¤ì¤Ð¡¢¤Ï¤·¤´¤ò¾å¤ê¡¢Ë̤عԤ¡¢¤½¤Î¸åÀ¾¤Ø¹Ô¤¤Ê¤µ¤¤¡£"))
(define alex-conv
(ifc kurpolis-conv
(bind
(kern-mk-char
'ch_alex ; tag
- "Alex" ; name
+ "¥¢¥ì¥Ã¥¯¥¹" ; name
alex-species ; species
alex-occ ; occ
s_companion_wizard ; sprite
(mk-dungeon-room
- 'p_altar_room "Altar Room"
+ 'p_altar_room "º×ÃŤÎÉô²°"
(list
"xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
"xx xx xx xx xx xx xx pp ,, ,, ,, pp xx xx xx xx xx xx xx "
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In the Poor House (at least until such time as she joins the Wanderer).
+;; µßÉϱ¡(̤¤¿Í¤ÎÃç´Ö¤Ë¤Ê¤ë¤Þ¤Ç)
;;----------------------------------------------------------------------------
(define amy-bed poorh-bed2)
(define amy-mealplace poorh-sup2)
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Amy is a female tinker, fallen upon hard times.
-;; She currently dwells in the Poor House.
-;; Amy is a potential party member.
+;; ¥¨¥¤¥ß¡¼¤Ï¿¦¿Í¤Î½÷À¤À¤¬¡¢¿¦¤ò¼º¤Ã¤Æ¤¤¤ë¡£
+;; Èà½÷¤ÏµßÉϱ¡¤Ë¤¤¤ë¡£
+;; ¥¨¥¤¥ß¡¼¤ÏÃç´Ö¤Ë¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (amy-hail knpc kpc)
- (meet "You meet a practical-looking tinker woman.")
- (say knpc "Hello.")
+ (meet "¤¢¤Ê¤¿¤Ï·Ð¸³Ë¤«¤½¤¦¤Ê¿¦¿Í¤Î½÷À¤È²ñ¤Ã¤¿¡£")
+ (say knpc "¤³¤ó¤Ë¤Á¤Ï¡£")
)
(define (amy-name knpc kpc)
- (say knpc "You can call me Amy.")
+ (say knpc "¥¨¥¤¥ß¡¼¤È¸Æ¤ó¤Ç¤¯¤À¤µ¤¤¡£")
)
(define (amy-join knpc kpc)
(if (is-player-party-member? knpc)
- (say knpc "I already joined you!")
+ (say knpc "¤â¤¦Ãç´Ö¤Ë²Ã¤ï¤Ã¤Æ¤¤¤Þ¤¹¡ª")
(begin
- (say knpc "I thought you'd never ask!")
+ (say knpc "¤½¤¦¸À¤Ã¤Æ¤¯¤ì¤ë¤È¤Ï»×¤Ã¤Æ¤Ê¤«¤Ã¤¿¤ï¡ª")
(join-player knpc)
(kern-conv-end)
)))
(define (amy-job knpc kpc)
- (say knpc "Well, I'm a tinker by trade, "
- "but I haven't had much luck finding work lately.")
+ (say knpc "¤¨¤¨¡Ä¡¢½¤Íý²°¤òÀ¸¶È¤È¤·¤Æ¤¤¤ë¤Î¤À¤±¤ì¤É¡¢"
+ "ºÇ¶á¤Ï¤¢¤Þ¤ê»Å»ö¤¬¤Ê¤¤¤Î¤è¡£")
)
(define (amy-bye knpc kpc)
- (say knpc "So long.")
+ (say knpc "¤µ¤è¤¦¤Ê¤é¡£")
)
(define (amy-mean knpc kpc)
- (say knpc "He's great. "
- "I don't know where I'd go if it weren't for the poor house. "
- "He doesn't even stare at my boobs all that much.")
+ (say knpc "Èà¤Ï¤¹¤Ð¤é¤·¤¤¿Í¤Ç¤¹¡£"
+ "¤³¤ÎµßÉϱ¡¤Ë¤¤¤Ê¤±¤ì¤Ð¡¢»ä¤Ï¤É¤¦¤Ê¤Ã¤Æ¤¤¤¿¤«¤ï¤«¤ê¤Þ¤»¤ó¡£"
+ "»ä¤Î¶»¤ò¥¸¥í¥¸¥í¸«¤ë¤³¤È¤â¤Ê¤¤¤Ç¤¹¤·¡£")
)
(define (amy-tink knpc kpc)
- (say knpc "A tinker is a wandering wright. "
- "We travel from town to town, fixing things up for people.")
+ (say knpc "½¤Íý²°¤ÏÅϤêÊ⤯¿¦¿Í¤Ç¤¹¡£"
+ "Ä®¤«¤éÄ®¤Ø¤Èι¤·¡¢¿§¡¹¤Ê¿Í¤Î¤â¤Î¤ò½¤Íý¤·¤Þ¤¹¡£")
)
(define (amy-luck knpc kpc)
- (say knpc "People are nervous of strangers now, "
- "what with the Accursed and all.")
+ (say knpc "¿Í¡¹¤Ï¸«ÃΤé¤Ì¼Ô¤Ë¿À·Ð¼Á¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£"
+ "¤ß¤ó¤Ê¼ö¤ï¤ì¤¿¼Ô¤Î¤»¤¤¤Ç¤¹¡£")
)
(define (amy-accu knpc kpc)
- (say knpc "The Accursed are a secret cult who "
- "follow evil ways.")
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¤È¤¤¤¦¤Î¤Ï°¤ò¿òÇÒ¤¹¤ëÈëÌ©¤Î¼Ù¶µ¤Î¿®¼Ô¤¿¤Á¤Ç¤¹¡£")
)
;; Quest-related
(bind
(kern-mk-char
'ch_amy ; tag
- "Amy" ; name
+ "¥¨¥¤¥ß¡¼" ; name
amy-species ; species
amy-occ ; occ
s_companion_tinker ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; No schedule (Cave Shrine within Brundegart).
+;; ¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤Îƶ·¢¤Î¿ÀÅÂ
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Anaxes is the lich/shade of a long-dead wizard, who once served
-;; Luximene and later rebelled against him.
-;; Anaxes abides in the Cave Shrine within the lost realm of Brundegart.
+;; ¥¢¥Ê¥¯¥·¥º¤Ï±ó¤¤Àλà¤ó¤ÀËâ½Ñ»Õ¤Î¥ê¥Ã¥Á/±Æ¤Ç¡¢¤«¤Ä¤Æ¥é¥¯¥·¥Þ¥Ë¤Ë»Å¤¨¤Æ¤¤¤¿
+;; ¤¬¡¢¸å¤ËΥȿ¤·¤¿¡£
+;; ¥¢¥Ê¥¯¥·¥º¤Ï¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤Î¼º¤ï¤ì¤¿Îΰ衢ƶ·¢¤Î¿ÀŤˤ¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (anaxes-hail knpc kpc)
- (meet "[You meet the proud shade of a long-dead wizard]")
- (say knpc "Art thou the agent of Luximene?")
+ (meet "¡Î¤¢¤Ê¤¿¤Ï¸Ø¤é¤·¤²¤Ê¡¢±ó¤¤ÀΤ˻à¤ó¤À¤Ç¤¢¤í¤¦Ëâ½Ñ»Õ¤Î±Æ¤È²ñ¤Ã¤¿¡£¡Ï")
+ (say knpc "¤ª¤Ì¤·¡¢¥é¥¯¥·¥Þ¥Ë¤Î»È¤¤¤«¡©")
(if (yes? kpc)
- (say knpc "But who else? [He chuckles grimly] "
- "Thou hast broken through the defenses, "
- "but thy foul master will not find me toothless!")
- (say knpc "Deny it not, I know he seeks to slay me for my rebellion!"))
+ (say knpc "¾¤Îï¤À¤È¡©¡ÎÈà¤Ï»ÄµÔ¤½¤¦¤Ê¾Ð¤¤¤òÉ⤫¤Ù¤¿¡£¡Ï"
+ "¤ª¤Ì¤·¤Ï»ä¤ÎÉõ°õ¤òÇˤä¿¡£"
+ "¤·¤«¤·»ä¤ò½¾¤ï¤»¤ë¤³¤È¤Ï¤Ç¤¤Ì¡ª")
+ (say knpc "µ¶¤ë¤Ê¡£ÅÛ¤¬»ä¤òÈ¿µÕ¤Îºá¤Çõ¤·¤Æ¤¤¤ë¤³¤È¤ÏÃΤäƤ¤¤ë¡ª"))
(aside kpc 'ch_nate
- "[Whispering] Milord, Luximene has been dead for ages!")
+ "¡Î¤µ¤µ¤ä¤¡ÏöÆá¡¢¥é¥¯¥·¥Þ¥Ë¤Ï±ó¤¤ÀΤ˻à¤ó¤À¤Ï¤º¤Ç¤¹¤¼¡ª")
)
(define (anaxes-default knpc kpc)
- (say knpc "[He silently regards you]"))
+ (say knpc "¡ÎÈà¤ÏÌۤäƤ¢¤Ê¤¿¤ò¸«¤Æ¤¤¤ë¡£¡Ï"))
(define (anaxes-name knpc kpc)
- (say knpc "I am Anaxes, formerly of the Twelve."))
+ (say knpc "»ä¤Ï¥¢¥Ê¥¯¥·¥º¡¢¤«¤Ä¤Æ¤Ï½½Æó¿Í¤ÎÆâ¤Î°ì¿Í¤Ç¤¢¤Ã¤¿¡£"))
(define (anaxes-luxi knpc kpc)
- (say knpc "Luximene is not a man, but a demon in a mask! "
- "He hath sown dissent and conquered in its wake, "
- "and now seeks to dethrone the gods.")
+ (say knpc "¥é¥¯¥·¥Þ¥Ë¤Ï¿Í¤Ç¤Ï¤Ê¤¤¡£²¾Ì̤ò¤·¤¿°Ëâ¤Ç¤¢¤ë¡ª"
+ "È¿Íð¤Î¼ï¤ò¤Þ¤¡¢²ê¤¬½Ð¤ì¤Ð¤½¤ì¤ò´¢¤ê¼è¤Ã¤Æ¤¤¿¡£"
+ "¤½¤·¤Æº£¤Ç¤Ï¿À¤òÂफ¤»¤ëÊýË¡¤òõ¤Ã¤Æ¤¤¤ë¡£")
(prompt-for-key)
- (say knpc "He hath ordered his own image to be erected in the shrines. "
- "This is too much! Now his perfidy is made plain! ")
+ (say knpc "ÅۤϤ³¤Î¿ÀŤˤª¤Î¤ì¤ÎÁü¤ò·ú¤Æ¤ë¤è¤¦Ì¿¤¸¤¿¡£"
+ "½Ð²á¤®¤¿¤³¤È¤À¡ªº£¤äÅÛ¤ÎÇØ¿®¤ÏÌÀ¤é¤«¤Ë¤Ê¤Ã¤¿¡£")
(prompt-for-key)
- (say knpc "So long as I draw breath, the Shrine of Brune will not be defiled!")
- (aside kpc 'ch_nate "Ah! The name of the god at last! I feared it was forgotten forever!")
+ (say knpc "»ä¤¬À¸¤¤Æ¤¤¤ë´Ö¤Ï¡¢¤³¤Î¥Ö¥ë¥Ì¤Î¿ÀŤ¬±ø¤µ¤ì¤ë¤³¤È¤Ï¤Ê¤¤¡ª")
+ (aside kpc 'ch_nate "¤¢¤¢¡ªºÇ¸å¤Î¿À¤Î̾¡ª±Ê±ó¤Ë˺¤ì¤é¤ì¤¿¤«¤È»×¤Ã¤Æ¤¤¤¿¡ª")
(cond ((has? kpc t_lich_skull 1)
- (say knpc "Wait! What have you there? [He points to Luximene's skull] What doth this mean? Is Luximene then dead?")
+ (say knpc "ÂԤơª¤½¤ì¤Ï²¿¤À¡©¡ÎÈà¤Ï¥é¥¯¥·¥Þ¥Ë¤ÎƬ³¸¹ü¤ò»Øº¹¤·¤¿¡£¡Ï¤É¤¦¤¤¤¦¤³¤È¤À¡©¥é¥¯¥·¥Þ¥Ë¤Ï»à¤ó¤À¤Î¤«¡©")
(yes? kpc)
- (say knpc "[He ignores you. The light in his eyes begins to fade and his voice grows weak] It is over...")
+ (say knpc "¡ÎÈà¤Ï¤¢¤Ê¤¿¤ò̵»ë¤·¤¿¡£Èà¤ÎÌܤθ÷¤¬¾Ã¤¨»Ï¤á¡¢À¼¤Ï¤À¤ó¤À¤ó¤È¼å¤¯¤Ê¤Ã¤¿¡£¡Ï½ª¤ï¤Ã¤¿¤Î¤À¡Ä")
(prompt-for-key kpc)
- (say knpc "[He collapses in a heap] ...Isin! ...Isin...")
- (aside kpc 'ch_nate "Dibs on his boots.")
+ (say knpc "¡ÎÈà¤ÏÊø¤ìÍî¤Á¤¿¡£¡Ï¡Ä¥¤¥·¥ó¡ª¡Ä¥¤¥·¥ó")
+ (aside kpc 'ch_nate "¤¢¤¤¤Ä¤Î·¤¤Ï²¶¤Îʪ¤À¡£")
(kern-conv-end)
(kern-char-kill knpc))))
(define (anaxes-gods knpc kpc)
- (say knpc "The gods will take a terrible vengeance on the Shard for its "
- "faithlessness! Luximene and his followers will be consumed by fire and "
- "drowned in blood at the last battle! "
- "Vigilance to the faithful!"))
+ (say knpc "¿À¡¹¤Ï²æ¡¹¤ÎÉÔÀ¿¼Â¤µ¤ËÅܤꥷ¥ã¥ë¥É¤ËÉü½²¤¹¤ë¤À¤í¤¦¡ª"
+ "¥é¥¯¥·¥Þ¥Ë¤ÈÅÛ¤ÎÄÉ¿ï¼Ô¤Ï¡¢ºÇ¸å¤ÎÀ襤¤Ç¾Æ¤¿Ô¤¯¤µ¤ì·ì¤Î³¤¤ÇÅ®¤ì¤ë¤Ç¤¢¤í¤¦¡ª"
+ "²ü¤á¤ËÀ¿¼Â¤Ç¤¢¤ì¡ª"))
(define (anaxes-brun knpc kpc)
- (say knpc "This is the Shrine of Brune, god of vigilance. "
- "I rebelled against Luximene's order to disgrace it with his image. "
- "I ordered the entrace to Brune-Guard sealed, and awaited the siege. ")
+ (say knpc "¤³¤³¤Ï²ü¤á¤Î¿À¡¢¥Ö¥ë¥Ì¤Î¿ÀŤǤ¢¤ë¡£"
+ "»ä¤Ï¤³¤³¤Ë¥é¥¯¥·¥Þ¥Ë¤ÎÁü¤ò·ú¤Æ¤ë¤È¤¤¤¦ÃѤ¸¤ë¤Ù¤Ì¿Îá¤ËÈ¿¤·¤¿¡£"
+ "¤½¤·¤Æ¥Ö¥ë¥Ì¤Î¼é¤òÉõ°õ¤·¹¶·â¤ËÈ÷¤¨¤Æ¤¤¤ë¤Î¤À¡£")
)
(define (anaxes-vigi knpc kpc)
- (say knpc "We have failed in our vigilance! "
- "Luximene has deceived us all, and now we must pay the price for failure."))
+ (say knpc "²æ¡¹¤Ï²ü¤á¤ò˺¤ì¤Æ¤¤¤¿¤Î¤À¡ª"
+ "¥é¥¯¥·¥Þ¥Ë¤Ï³§¤òµ½¤Â³¤±¤¿¡£¤½¤·¤Æ²æ¡¹¤Ïº£¤½¤ÎÂå½þ¤òʧ¤ï¤Í¤Ð¤Ê¤é¤Ì¤Î¤À¡£"))
(define (anaxes-fail knpc kpc)
- (say knpc "We have failed the gods, it is no wonder they have forsaken us!"))
+ (say knpc "²æ¡¹¤Ï¿À¤ò΢Àڤä¿¡£´Ö°ã¤¤¤Ê¤¯¿À¤Ï²æ¡¹¤ò¸«¼Î¤Æ¤ë¤À¤í¤¦¡ª"))
(define (anaxes-twel knpc kpc)
- (say knpc "I was among the Twelve Counselors of Luximene. "
- "To my shame I helped him achieve his empire. "
- "I thought a strong ruler would bring order to the Shard, "
- "and rein in the heresies of the Accursed. "
- "Alas! We were all deceived!"))
+ (say knpc "»ä¤Ï¥é¥¯¥·¥Þ¥Ë¤Î½½Æó¿Í¤Î½õ¸À¼Ô¤Î°ì¿Í¤À¤Ã¤¿¡£"
+ "ÃѤ¹¤Ù¤¤³¤È¤Ë¡¢»ä¤ÏÅÛ¤ÎÄë¹ñ¤òÃÛ¤¯¼ê½õ¤±¤ò¤·¤Æ¤·¤Þ¤Ã¤¿¤Î¤À¡£"
+ "¶¯¤»ÙÇÛ¼Ô¤¬¥·¥ã¥ë¥É¤ËÃá½ø¤ò¤â¤¿¤é¤·¡¢"
+ "¤½¤·¤Æ¼ö¤ï¤ì¤¿¼Ô¤Î¼Ù¶µ¤ò²¡¤µ¤¨¹þ¤à¤³¤È¤¬¤Ç¤¤ë¤È¹Í¤¨¤Æ¤¤¤¿¡£"
+ "¤¢¤¢¡ª²æ¤é¤Ï΢ÀÚ¤é¤ì¤¿¤Î¤À¡ª"))
(define (anaxes-accu knpc kpc)
- (say knpc "In the years that followed the Sundering, "
- "the priesthood became corrupted. "
- "All manner of wretched men claimed to speak on behalf of the gods, "
- "polluting the worship of the gods with their foul practices. ")
+ (say knpc "¥µ¥ó¥À¥ê¥ó¥°¤Î¸å¡¢"
+ "À»¿¦¼Ô¤¿¤Á¤ÏÂÄÍ¤¿¡£"
+ "¤½¤Î¼Ô¤¿¤Á¤Ï¿À¤ÎÂåÊۼԤǤ¢¤ë¤È¼çÄ¥¤·¡¢¤½¤Î¶ò¤«¤Ê¹Ô°Ù¤Ç¿À¤Ø¤Î¿®¶Ä¤ò±ø¤·¤¿¡£")
(prompt-for-key)
- (say knpc "Under Luximene we waged war on the heretics. "
- "We burned the false priests at the stake and put their "
- "verminous followers to the sword. "))
+ (say knpc "¥é¥¯¥·¥Þ¥Ë¤Î²¼¤Ç²æ¡¹¤Ï¤½¤Î¼Ù¶µÅ̤¿¤Á¤ÈÀï¤Ã¤¿¡£"
+ "¤½¤·¤Æ¡¢µ¶¤ê¤Î»Êº×¤¿¤Á¤ò²Ð·º¤Ë½è¤·¡¢¤½¤Î´óÀ¸Ãî¤Î¤è¤¦¤Ê»Ù»ý¼Ô¤ò¿Ï¤Ë¤«¤±¤¿¡£"))
(define (anaxes-bye knpc kpc)
- (say knpc "On thy guard, defiler of the holy! I shall resist you; "
- "and should I fall in battle, I will strike from beyond the grave!")
- (aside kpc 'ch_nate "[Muttering] Methinks he is ahead of schedule.")
+ (say knpc "Æò¤ÏËÁƤ¹¤ë¼Ô¤Ê¤ê¡ª»ä¤ÏÄñ¹³¤¹¤ë¡£"
+ "¤¿¤È¤¨¤³¤ÎÀ襤¤Çµà¤Á¤Æ¤â¡¢Êè¤Î¸þ¤³¤¦¤«¤éÂǤÁ³¤±¤ë¤Ç¤¢¤í¤¦¡ª")
+ (aside kpc 'ch_nate "¡Î¤Ä¤Ö¤ä¤¡Ï´û¤Ë¤½¤¦¤·¤Æ¤¤¤ë¡ª")
(kern-being-set-base-faction knpc faction-monster)
)
(define (anaxes-job knpc kpc)
- (say knpc "I was one of Luximene's Twelve, trusted with the command of "
- "this fortress and its watch-tower. "
- "But Luximene has ordered the desecration of the shrines, "
- "and I have rebelled!")
+ (say knpc "»ä¤Ï¥é¥¯¥·¥Þ¥Ë¤Î½½Æó¿Í¤Î°ì¿Í¤Ç¡¢"
+ "¤³¤³¤Ë¤¢¤ëºÖ¤È´Æ»ëÅã¤Ç¤Î»Ø´ø¤òǤ¤µ¤ì¤Æ¤¤¤¿¡£"
+ "¤·¤«¤·¥é¥¯¥·¥Þ¥Ë¤Ï¤³¤Î¿ÀŤÎËÁƤòÌ¿¤¸¤¿¡£"
+ "¤æ¤¨¤Ë»ä¤ÏÈ¿µÕ¤·¤¿¤Î¤Ç¤¢¤ë¡ª")
(aside kpc 'ch_nate
- "[Whispering] This lich thinks himself a wizard living in the time of Luximene. Can it be that he once was?")
+ "¡Î¤µ¤µ¤ä¤¡Ï¤³¤Î¥ê¥Ã¥Á¤Ï¼«Ê¬¤¬¥é¥¯¥·¥Þ¥Ë¤Î»þÂå¤ËÀ¸¤¤Æ¤¤¤ë¤È»×¤Ã¤Æ¤¤¤Þ¤¹¤¼¡£")
)
(define (anaxes-fort knpc kpc)
- (say knpc "This fortress is Brune-Guard, so-called for this Shrine of Brune, "
- "and for the vigilance of the tower. It is virtually impregnable to siege."))
+ (say knpc "¤³¤Î¥Ö¥ë¥Ì¤Î¿ÀŤȴƻëÅã¤Ï¡¢¥Ö¥ë¥Ì¤Î¼é¤È¸Æ¤Ð¤ì¤Æ¤¤¤ë¡£"
+ "¤³¤ÎºÖ¤ò¹¶¤áÍî¤È¤¹¤³¤È¤Ï¤Ç¤¤Ì¤Ç¤¢¤í¤¦¡£"))
(define (anaxes-towe knpc kpc)
- (say knpc "The watch-tower of Brune-Guard looks far over the sea, the forest, "
- "the mountains, and deep into the sky. From time beyond memory, "
- "from before the Sundering, the vigilant have kept lookout here for "
- "danger below or signs from above."))
+ (say knpc "¥Ö¥ë¥Ì¤Î¼é¤Î´Æ»ëÅã¤Ï¡¢³¤¡¢¿¹¡¢»³¡¢¿¼Ê¥¡¢¤½¤·¤Æ¶õ¤ò¸«Ä¥¤Ã¤Æ¤¤¤ë¡£"
+ "µ²±¤ÎÁ°¡¢¥µ¥ó¥À¥ê¥ó¥°¤ÎÁ°¤«¤é¡¢¤³¤³¤Ç²¼¤Î´í¸±¤È¾å¤ÎÃû¸õ¤ò´Æ»ë¤·Â³¤±¤Æ¤¤¤ë¤Î¤À¡£"))
(define (anaxes-sund knpc kpc)
- (say knpc "The Sundering is the cataclysm that nearly destroyed this world. "
- "Surely thou dost know this! "
- "Unless thou art a demon from beyond the void..."))
+ (say knpc "¥µ¥ó¥À¥ê¥ó¥°¤È¤ÏÀ¤³¦¤¬Êø²õ¤¹¤ë¤Û¤É¤ÎÂçÊÑÆ°¤Î¤³¤È¤Ç¤¢¤ë¡£"
+ "̵ÏÀ¤ª¤Ì¤·¤ÏÃΤé¤Ì¤Ç¤¢¤í¤¦¡ª"
+ "µõ¶õ¤ò±Û¤¨¤ÆÍ褿°Ëâ¤Ç¤â¤Ê¤¤¸Â¤ê¤Ï¡Ä"))
(define anaxes-conv
(ifc nil
(kern-char-force-drop
(kern-mk-char
'ch_lux ; tag
- "Anaxes" ; name
+ "¥¢¥Ê¥¯¥·¥º" ; name
anaxes-species ; species
anaxes-occ ; occ
s_lich ; sprite
;;----------------------------------------------------------------------------
(kern-mk-place
'p_ancient_derelict ; tag
- "Ancient Derelict" ; name
+ "¸ÅÂå¤Î°ä´þÁ¥" ; name
s_void_ship ; sprite
m_ancient_derelict ; map
#f ; wraps
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Angela is a female innkeeper, who runs the Palisades Inn in Glasdrin.
-;; She is a gracious, mysterious woman.
+;; ¥¨¥ó¥¸¥§¥é¤Ï½É²°¡Ö¾ëÊɡפμç¤Î½÷À¤Ç¡¢¾ëºÉÅÔ»Ô¥°¥é¥¹¥É¥ê¥ó¤Ë½»¤ó¤Ç¤¤¤ë¡£
+;; Èà½÷¤Ï¾åÉʤÀ¤¬Ææ¤Î¿¤¤½÷À¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (ange-hail knpc kpc)
- (say knpc "[You meet a charming lady] Welcome, traveler."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÏÌ¥ÎÏŪ¤Ê½÷À¤È²ñ¤Ã¤¿¡£¡Ï¤è¤¦¤³¤½¤¤¤é¤Ã¤·¤ã¤¤¤Þ¤·¤¿¡£Î¹¤ÎÊý¡£"))
(define (ange-default knpc kpc)
- (say knpc "I'm afraid I don't know."))
+ (say knpc "»ÄÇ°¤Ç¤¹¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£"))
(define (ange-name knpc kpc)
- (say knpc "I am Angela. And you are?")
+ (say knpc "»ä¤Ï¥¨¥ó¥¸¥§¥é¤Ç¤¹¡£¤¢¤Ê¤¿¤Ï¡©")
(let ((name (kern-conv-get-string kpc)))
- (say knpc "I am most pleased to meet you, " name
- ". I hope you enjoy your stay in Glasdrin.")))
+ (say knpc "²ñ¤¨¤Æ¤¦¤ì¤·¤¤¤Ç¤¹¡¢" name
+ "ÍÍ¡£¥°¥é¥¹¥É¥ê¥ó¤ÎÂںߤò³Ú¤·¤ó¤Ç¤¯¤À¤µ¤¤¡£")))
(define (ange-join knpc kpc)
- (say knpc "You flatter me! It's been years since I've had a good adventure, "
- "but I must decline."))
+ (say knpc "¤ªÀ¤¼¤Ï¤è¤·¤Æ¤¯¤À¤µ¤¤¡ª²¿Ç¯¤âÁ°¤Ï¤è¤ËÁ¸±¼Ô¤Ç¤·¤¿¤¬¡¢"
+ "¤â¤¦¼¤á¤¿¤Î¤Ç¤¹¡£"))
(define (ange-job knpc kpc)
- (say knpc "I'm the Innkeeper of Glasdrin. "
- "If you'd like a room just ask!"))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Î½É²°¤ò¤·¤Æ¤ª¤ê¤Þ¤¹¡£"
+ "Éô²°¤¬É¬Íפʤ餪¿½¤·ÉÕ¤±¤¯¤À¤µ¤¤¡ª"))
(define (ange-bye knpc kpc)
- (say knpc "Farewell, traveler, I do hope you come back soon!"))
+ (say knpc "¤µ¤è¤¦¤Ê¤é¡¢Î¹¤ÎÊý¡£¤Þ¤¿¤¤¤é¤·¤Æ¤¯¤À¤µ¤¤¡ª"))
;; Trade...
(define (ange-trade knpc kpc)
(if (not (string=? "working" (kern-obj-get-activity knpc)))
- (say knpc "Oh, do please stop by when I'm at my counter! "
- "The Palisades is open from 7:00AM to 11:00PM. "
- "I hope to see you then!")
+ (say knpc "¤¢¤¢¡¢»ä¤¬½É¤Ë¤¤¤ë¤È¤¤ËÇñ¤Þ¤ê¤ËÍè¤Æ¤¯¤À¤µ¤¤¡ª"
+ "¡Ö¾ëÊɡפϸáÁ°7»þ¤«¤é¸á¸å11»þ¤Þ¤Ç³«¤¤¤Æ¤¤¤Þ¤¹¡£"
+ "¤Þ¤¿¸å¤Ç²ñ¤¤¤Þ¤·¤ç¤¦¡ª")
(let ((door (eval 'glasdrin-inn-room-1-door)))
;; is the room still open?
(if (not (door-locked? (kobj-gob door)))
;; yes - remind player
- (say knpc "Room 1 is yours until you leave town!")
+ (say knpc "1¹æ¼¼¤ÏÄ®¤òÎ¥¤ì¤ë¤Þ¤Ç¤Ï¤¢¤Ê¤¿¤ÎÉô²°¤Ç¤¹¡ª")
;; no - ask if player needs a room
(begin
- (say knpc "Do you need a room?")
+ (say knpc "¤ªÉô²°¤¬É¬ÍפǤ¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player wants a room
(begin
(say knpc
- "That will be " glasdrin-inn-room-price " gold. "
- "The room is yours until you leave town. "
- "Is this to your liking?")
+ "¶â²ß" glasdrin-inn-room-price "Ëç¤Ç¤¹¡£"
+ "Ä®¤ò½Ð¤ë¤Þ¤Ç¤Ï¤¢¤Ê¤¿¤ÎÉô²°¤Ç¤¹¡£"
+ "¤è¤í¤·¤¤¤Ç¤¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player agrees to the price
(let ((gold (kern-player-get-gold)))
(if (>= gold glasdrin-inn-room-price)
;; yes - player has enough gold
(begin
- (say knpc "Wonderful! You're in room 1, "
- "our very best! Enjoy your stay.")
+ (say knpc "¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª¤ªÉô²°¤Ï1¹æ¼¼¤Ç¤¹¡£"
+ "¤´¤æ¤Ã¤¯¤ê¤É¤¦¤¾¡£")
(kern-player-set-gold
(- gold
glasdrin-inn-room-price))
(kern-conv-end)
)
;; no - player does not have enouvh gold)
- (say knpc "Oh dear, I'm afraid you don't have "
- "enough gold! I do hope when your fortunes "
- "improve you'll come back and stay." )))
+ (say knpc "¤¢¤¢¡¢»ÄÇ°¤Ç¤¹¤¬ÎÁ¶â¤¬Â¤ê¤Þ¤»¤ó¡ª"
+ "¤ª¶â¤ò²Ô¤¤¤À¤é¤¼¤Ò¤ª¤³¤·¤¯¤À¤µ¤¤¡£" )))
;; no - player does not agree to the price
- (say knpc "I do wish you would stay, "
- "I rarely get such intriguing guests!")))
+ (say knpc "Çñ¤Þ¤Ã¤Æ¤¤¤¿¤À¤±¤ë¤È¤¦¤ì¤·¤¤¤Î¤Ç¤¹¤¬¡£"
+ "ÄÁ¤·¤¤¤ªµÒÍͤǤ¹¤Í¡ª")))
;; no - player does not want a room
- (say knpc "Oh, I am so disappointed, "
- "you seem like a very interesting guest! "
- "Perhaps another time.")))))))
+ (say knpc "¤¢¤¢¡¢»ÄÇ°¤Ç¤¹¡£"
+ "ÊѤï¤Ã¤¿¤ªµÒÍͤǤ¹¤Í¡ª"
+ "¤Þ¤¿¤Îµ¡²ñ¤Ë¤É¤¦¤¾¡£")))))))
;; Inn...
(define (ange-inn knpc kpc)
- (say knpc "The Palisades is a very fine inn, if I say so myself."))
+ (say knpc "¾ëÊɤϤ¹¤Ð¤é¤·¤¤½É¤È»×¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£"))
(define (ange-adve knpc kpc)
- (say knpc "As you may know, all citizens of Glasdrin must serve a tour of "
- "duty. I was a quartermaster, and once I even went with the paladins "
- "on patrol."))
+ (say knpc "ÃΤäƤ¤¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢Á´¤Æ¤Î¥°¥é¥¹¥É¥ê¥ó»Ô̱¤Ë¤ÏʼÌò¤ÎµÁ̳¤¬¤¢¤ê¤Þ¤¹¡£"
+ "»ä¤Ï¤«¤Ä¤ÆÊäµëÉôÂâ¤Ë½ê°¤·¤Æ¤¤¤Æ¡¢·ÙÈ÷¤ÎÀ»µ³»Î¤ÈƱ¹Ô¤·¤Æ¤¤¤Þ¤·¤¿¡£"))
(define (ange-patr knpc kpc)
- (say knpc "It was a lovely walk, and camping under the stars was grand. "
- "But then gints attacked and ruined the whole mood."))
+ (say knpc "¤è¤¤Ç¤Ì³¤Ç¤·¤¿¡£À±¤Î²¼¤Î¿Ø¤Ï¤¹¤Ð¤é¤·¤¤¤â¤Î¤Ç¤·¤¿¡£"
+ "¤Ç¤â¡¢µð¿Í¤Î½±·â¤ÇÁ´¤Æ¤¬Âæ̵¤·¤Ë¤µ¤ì¤Þ¤·¤¿¡£"))
(define (ange-gint knpc kpc)
- (say knpc "Gints are like stocky men but enormous and two-headed. "
- "They once were common in the mountains, but the vigilance of Glasdrin "
- "has driven them into caves. They are most fearsome brutes. "
- "I've seen them hurl grown, heavily armored men like missiles at their "
- "own comrades!"))
+ (say knpc "µð¿Í¤Ï»Ñ¤Ï¿Í´Ö¤È»÷¤Æ¤¤¤Þ¤¹¤¬¡¢µðÂç¤ÇƬ¤¬Æó¤Ä¤¢¤ê¤Þ¤¹¡£"
+ "¤«¤Ä¤Æ»³¤Ë¤ÏÉáÄ̤ˤ¤¤Þ¤·¤¿¤¬¡¢¥°¥é¥¹¥É¥ê¥ó¤Î·ÙÈ÷¤Î¤ª¤«¤²¤Çƶ·¢¤ËÄɤ¤¤ä¤ë¤³¤È¤¬¤Ç¤¤Þ¤·¤¿¡£"
+ "Èà¤é¤ÏºÇ¤â¶§Ë½¤Ç¶²¤ë¤Ù¤Â¸ºß¤Ç¤¹¡£"
+ "µð¿Í¤¬½ÅÁõÈ÷¤ÎÀï»Î¤òÀФ³¤í¤Î¤è¤¦¤ËÅꤲ¤Ä¤±¤ë¤Î¤ò¸«¤¿¤³¤È¤¬¤¢¤ê¤Þ¤¹¡ª"))
;; Townspeople...
(define (ange-glas knpc kpc)
- (say knpc "Glasdrin is a fair city, do you not think so?")
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Ï¤¹¤Ð¤é¤·¤¤Ä®¤Ç¤¹¡£¤½¤¦»×¤¤¤Þ¤»¤ó¤«¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "Indeed.")
- (say knpc "No doubt you have seen magnificent cities in your travels. "
- "I suppose I love it because it is home.")))
+ (say knpc "¤Þ¤Ã¤¿¤¯¤Ç¤¹¡£")
+ (say knpc "ι¤ÎÃæ¤Ç¤¹¤Ð¤é¤·¤¤Ä®¤ò¤¤¤¯¤Ä¤â¸«¤Æ¤¤¿¤Î¤Ç¤·¤ç¤¦¤Í¡£"
+ "»ä¤Ï¤³¤ÎÄ®¤ò°¦¤·¤Æ¤¤¤Þ¤¹¡£¤³¤³¤Ï»ä¤Î²È¤Ç¤¹¡£")))
(define (ange-patc knpc kpc)
- (say knpc "Patch is the best healer around. "
- "He can even call back the recently deceased, "
- "if their wounds are not too grievous."))
+ (say knpc "´ãÂÓÀèÀ¸¤Ï¤³¤Î¤¢¤¿¤ê¤ÇºÇ¤âÍ¥¤ì¤¿°å»Õ¤Ç¤¹¡£"
+ "½ý¤¬¤Ò¤É¤¯¤Ê¤±¤ì¤Ð¡¢ºÇ¶áË´¤¯¤Ê¤Ã¤¿¿Í¤òÁÉÀ¸¤¹¤ë¤³¤È¤â¤Ç¤¤Þ¤¹¡£"))
(define ange-conv
(ifc glasdrin-conv
(define (mk-angela)
(bind
(kern-mk-char 'ch_angela ; tag
- "Angela" ; name
+ "¥¨¥ó¥¸¥§¥é" ; name
sp_human ; species
nil ; occ
s_townswoman ; sprite
;;----------------------------------------------------------------------------
(kern-mk-place
'p_angriss_lair ; tag
- "Entrance to Angriss's Lair" ; name
+ "¥¢¥ó¥°¥ê¥¹¤Î½»¤ß²È¤ÎÆþ¤ê¸ý" ; name
s_spider_web ; sprite
m_angriss_lair ; map
#f ; wraps
(kern-load "angriss.scm")
(mk-dungeon-room
- 'p_angriss_throne_room "Angriss's Throne Room"
+ 'p_angriss_throne_room "¥¢¥ó¥°¥ê¥¹¤Î±Ú¸«¼¼"
(list
"rn rn rn rn r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 rn rn rn rn rn "
"rn rn r8 r4 .. .. .. .. .. .. .. .. .. .. r2 rn r8 rn rn "
(mk-dungeon-room
- 'p_spider_cave "Spider Cave"
+ 'p_spider_cave "¥¯¥â¤Îƶ·¢"
(list
"rn r8 r8 r8 r8 r8 rc .. .. .. .. .. r2 rn r8 r8 r8 r8 rn "
"r4 bb .. .. .. .. .. .. .. .. .. .. r2 rc bb .. bb bb r2 "
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; No schedule. (Angriss' Lair)
+;; ¥¢¥ó¥°¥ê¥¹¤Î½»¤ß²È
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Angriss is Queen of the Spiders, dwelling in Angriss' Lair.
-;; Suspicious, jealous, alien.
+;; ¥¢¥ó¥°¥ê¥¹¤Ï¥¯¥â¤¿¤Á¤Î½÷²¦¤Ç¡¢¥¢¥ó¥°¥ê¥¹¤Î½»¤ß²È¤Ë¤¤¤ë¡£
+;; µ¿¤ê¿¼¤¯¡¢¼»ÅÊ¿¼¤¤¡¢°Û·Á¤Î¤â¤Î¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (angriss-hail knpc kpc)
- (say knpc "Hideous Soft One, who\n"
- "comes uninvited, be quick\n"
- "in honor, or die."))
+ (say knpc "¤ª¤¾¤Þ¤·¤¯½À¤é¤«¤Ê\n"
+ "¾·¤«¤¶¤ë¤â¤Î¤è¡¡º£¤¹¤°·è¤á¤è\n"
+ "¿òÇÒ¤«»à¤«"))
(define (angriss-default knpc kpc)
- (say knpc "[Still as a statue in her web, she gives no response]"))
+ (say knpc "¡ÎÌÖ¤ÎÃæ¤ÎÈà½÷¤ÏÁü¤Î¤è¤¦¤ËÈ¿±þ¤·¤Ê¤«¤Ã¤¿¡£¡Ï"))
(define (angriss-name knpc kpc)
- (say knpc "To Men, Angriss; to\n"
- "the Goblins, Ruka; to the\n"
- "Trolls, Hibliminos."))
+ (say knpc "¿Í¤Ë¤Ï¥¢¥ó¥°¥ê¥¹\n"
+ "¥´¥Ö¥ê¥ó¤Ë¤Ï¥ë¥«\n"
+ "¥È¥í¥ë¤Ë¤Ï¥Ò¥Ö¥ê¥ß¥Î¥¹\n"))
(define (angriss-join knpc kpc)
- (say knpc "Do lips join a cup\n"
- "but to drain it dry? My kind\n"
- "to Men join the same."))
+ (say knpc "¿°¤¬´ï¤È²ñ¤¨¤É¤â\n"
+ "´¥¤¤¤¿¤â¤Î¤ÏµÛ¤¨¤Ì\n"
+ "¾ª¤È¿Í¤Ï¤½¤Î¤è¤¦¤Ê¤â¤Î"))
(define (angriss-job knpc kpc)
- (say knpc "Hunger."))
+ (say knpc "µ²¤¨"))
(define (angriss-bye knpc kpc)
- (say knpc "The empire of light\n"
- "Calls you back. Ascend the stair\n"
- "if you can reach it.\n"))
+ (say knpc "Æò¤Ï¸÷¤Î»ÙÇÛ¤Ë\n"
+ "¸Æ¤Ó½Ð¤µ¤ì¤·¤â¤Î¡¡¤¿¤É¤êÃ失¤ë¤Î¤Ç¤¢¤ì¤Ð\n"
+ "¾å¤êÌá¤ë¤¬¤è¤¤\n"))
(define (angriss-soft knpc kpc)
- (say knpc "To drink the dark wine\n"
- "Men crush the grape. I drink the\n"
- "wine that's crushed from Men."))
+ (say knpc "°Å¤¥ï¥¤¥ó¤ò°û¤à¤È¤\n"
+ "¿Í¤ÏÉòƺ¤òÄÙ¤¹¡¡¾ª¤Ï¿Í¤ò\n"
+ "ÄÙ¤·¤¿¥ï¥¤¥ó¤ò°û¤à"))
(define (angriss-hung knpc kpc)
- (say knpc "A river of blood\n"
- "flows down to my lair, a pile\n"
- "of bones waxes there."))
+ (say knpc "·ì¤ÎÀ\n"
+ "¾ª¤ÎÁã¤Ëή¤ì¹þ¤à\n"
+ "¹üϹ¤Î»³¤È¤È¤â¤Ë"))
(define (angriss-men knpc kpc)
- (say knpc "So proud in armor\n"
- "so soft in hidden aspect\n"
- "so sweet in folly."))
+ (say knpc "²¿¤È¸Ø¤é¤·¤¤³»\n"
+ "²¿¤È½À¤é¤«¤¤Ãæ¿È\n"
+ "²¿¤È´Å¤¤¶ò¤«¤µ"))
(define (angriss-gobl knpc kpc)
- (say knpc "A stealthy hunt, a\n"
- "terrible struggle, in the\n"
- "end the longest rest."))
+ (say knpc "Ǧ¤Ó¤μí¿Í\n"
+ "ÉÔÌû²÷¤Ê¤â¤¬¤\n"
+ "¤Ä¤¤¤Ë¤ÏĹ¤Ì²¤ê"))
(define (angriss-trol knpc kpc)
- (say knpc "Stone-thrower and rock\n"
- "beater, your fearsome bellow\n"
- "will become a scream."))
+ (say knpc "ÀФòÅꤲ¡¡´ä¤ÇÂǤÄ\n"
+ "¶²¤í¤·¤¤ÅÜÌĤêÀ¼¤Ï\n"
+ "ÈáÌĤؤÈÊѤï¤ë"))
(define (angriss-choose knpc kpc)
- (say knpc "Choose whom you will give to me.")
+ (say knpc "¾ª¤Ø¤ÎÊû¤²¤â¤Î¤òÁª¤Ù")
(let ((kchar (kern-ui-select-party-member))
(quest (angriss-quest (kobj-gob-data knpc))))
(if (null? kchar)
(begin
- (say knpc "You toy with a monster, now flee.")
+ (say knpc "¾ª¤ò¤â¤Æ¤¢¤½¤Ö¤«¡¡¾Ã¤¨¤è")
(harm-relations knpc kpc)
(harm-relations knpc kpc)
(kern-conv-end))
(if (is-dead? kchar)
(begin
- (say knpc "FRESH meat I require!\n"
- "Poison! Foul, is that dead blood!\n"
- "Bring me another.")
+ (say knpc "¿·¤·¤Æù¤ò¾ª¤Ïµá¤à¡ª\n"
+ "ÆÇ¡ªÉåÇÔ¡ª¤³¤ì¤Ï»à¤·¤¿·ì¡ª\n"
+ "¾¤òÊû¤²¤è")
(kern-conv-end))
(begin
- (say knpc "Honor is satisfied.\n")
+ (say knpc "¾ª¤ÏËþ¤¿¤µ¤ì¤¿\n")
(if (not (quest-done? quest))
(quest-done! quest #t))
(kern-char-leave-player kchar)
(let ((quest (angriss-quest (kobj-gob-data knpc))))
(if (quest-done? quest)
(begin
- (say knpc "The ancient secret,\n"
- "The key to a lock of hell.\n"
- "Take it, it is thine.")
+ (say knpc "ÂÀ¸Å¤ÎÈëÌ©\n"
+ "ÃϹö¤Ø¤Î¸°\n"
+ "Æò¤Î¤â¤Î¤Ê¤ê")
(kern-obj-remove-from-inventory knpc t_rune_f 1)
(kern-obj-add-to-inventory kpc t_rune_f 1)
(rune-basic-quest 'questentry-rune-f s_runestone_f)
)
- (say knpc "I know what you seek.\n"
- "But I wonder, do you? First,\n"
- "satisfy honor."))))
+ (say knpc "Æò¤Îõ¤·Êª¤ò¾ª¤ÏÃΤë\n"
+ "¤À¤¬¤Þ¤º¤Ï\n"
+ "µ¾À·¤Ç¾ª¤òËþ¤¿¤»"))))
(define (angriss-sacr knpc kpc)
(let ((quest (angriss-quest (kobj-gob-data knpc))))
(define (refused)
- (say knpc "Flee from my presence.\n"
- "You may escape my wrath, but\n"
- "You will not return.")
+ (say knpc "¾ª¤ÎÁ°¤«¤é¾Ã¤¨¤è\n"
+ "¾ª¤ÎÅܤ꤫¤é¤Ïƨ¤²¤é¤ì¤è¤¦\n"
+ "¤À¤¬¡¡Ìá¤ë¤³¤È¤Ï¤Ç¤¤Ì¤Ç¤¢¤í¤¦")
(harm-relations knpc kpc)
(harm-relations knpc kpc)
(kern-conv-end))
(display "offer-quest")(newline)
(if (player-alone?)
(begin
- (say knpc "You will find, if you\n"
- "seek, a fool to join you. Bring\n"
- "that fool unto me.\n"
- "...Agreed?")
+ (say knpc "¸«¤Ä¤±¤è¡¡µá¤á¤ë¤Ê¤é\n"
+ "¶ò¤«¼Ô¤ò°ú¤¹þ¤ß¡¡º¹¤·½Ð¤»\n"
+ "Æò¤è¤ê¶ò¤«¤Ê¤â¤Î¤ò\n"
+ "¡Î¡Ä¤É¤¦¤¹¤ë¡©¡Ï")
(if (kern-conv-get-yes-no? kpc)
(begin
(quest-accepted! quest)
(improve-relations knpc kpc))
(refused)))
(begin
- (say knpc "Among your party\n"
- "Choose one as a sacrifice\n"
- "and you will go free.\n"
- "...Agreed?")
+ (say knpc "Æò¤é¤ÎÃ椫¤é\n"
+ "°ì¿Í¤Îµ¾À·¤òÁª¤Ù\n"
+ "¤µ¤ì¤Ð¼«Í³¤Ë¤Ê¤í¤¦\n"
+ "¡Î¡Ä¤É¤¦¤¹¤ë¡©¡Ï")
(if (kern-conv-get-yes-no? kpc)
(angriss-choose knpc kpc)
(refused)))))
(if (quest-done? quest)
- (say knpc "It is done.")
+ (say knpc "¤½¤ì¤ÏÀ®¤·¿ë¤²¤é¤ì¤¿")
(if (quest-accepted? quest)
(if (player-alone?)
- (say knpc "Alone you come back.\n"
- "Where is the sacrifice that\n"
- "will keep you from doom?")
+ (say knpc "Æò¤Ï°ì¿Í¤Ê¤ê\n"
+ "Êá¤é¤¨¤·»à¤¹¤Ù¤Äê¤á¤Î\n"
+ "µ¾À·¤Ï¤¤¤º¤³")
(choose-victim))
(offer-quest)))))
(define (angriss-hono knpc kpc)
- (say knpc "I demand honor\n"
- "and sacrifice. Give them to\n"
- "me, or flee, or die."))
+ (say knpc "¾ª¤Ï¿òÇÒ¤òµá¤à\n"
+ "¤½¤·¤Æµ¾À·¤ò¡¡¾ª¤ËÍ¿¤¨¤è\n"
+ "¤·¤«¤é¤º¤Ðƨ˴¤«»à¤«"))
(define angriss-conv
(ifc basic-conv
(kern-char-force-drop
(kern-mk-char
'ch_angriss ; tag
- "Angriss" ; name
+ "¥¢¥ó¥°¥ê¥¹" ; name
sp_queen_spider ; species
nil ; occ
s_purple_spider ; sprite
;;----------------------------------------------------------------------------
(kern-mk-place
'p_ankh_shrine ; tag
- "Ankh Shrine" ; name
+ "¥¢¥ó¥¯¤Î»û±¡" ; name
s_shrine ; sprite
m_ankh_shrine ; map
#f ; wraps
(kern-mk-place
'p_demon_gate ; tag
- "Demon Gate" ; name
+ "°Ëâ¤ÎÌç" ; name
nil ; sprite
m_demon_gate ; map
#f ; wraps
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Paladin's Hold, in the Keep guarding Kurpolis.
+;; ¥¯¥í¥Ý¥ê¥¹¤ÎÀ»µ³»Î¤ÎºÖ
;;----------------------------------------------------------------------------
(define anne-bed ph-bed2)
(define anne-mealplace ph-tbl2)
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Anne is a female White Magick mage serving as a medik
-;; in the service of Glasdrin.
-;; She currently serves in the Paladin's Hold of the Keep guarding Kurpolis.
+;; ¥¢¥ó¥Í¤ÏÇòËâ½Ñ»Õ¤Î½÷À¤Ç¡¢°å»Õ¤È¤·¤Æ¥°¥é¥¹¥É¥ê¥ó¤ÇƯ¤¤¤Æ¤¤¤ë¡£
+;; Èà½÷¤Ï¸½ºß¤Ï¥¯¥í¥Ý¥ê¥¹¤ÎÀ»µ³»Î¤ÎºÖ¤ÎǤ̳¤Ë¤Ä¤¤¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (anne-name knpc kpc)
- (say knpc "I am called Anne."))
+ (say knpc "¥¢¥ó¥Í¤È¸Æ¤Ð¤ì¤Æ¤¤¤Þ¤¹¡£"))
(define (anne-job knpc kpc)
- (say knpc "I am a medik in the service of Glasdrin. Are you in need of healing?")
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Î°å»Õ¤Ç¤¹¡£¼£ÎŤ¬É¬ÍפǤ¹¤«¡©")
(if (yes? kpc)
(anne-trade knpc kpc)))
(define (anne-trade knpc kpc)
(if (trade-services knpc kpc
(list
- (svc-mk "Heal" 30 heal-service)
- (svc-mk "Cure" 30 cure-service)
- (svc-mk "Resurrect" 100 resurrect-service)))
+ (svc-mk "²óÉü" 30 heal-service)
+ (svc-mk "¼£Ìþ" 30 cure-service)
+ (svc-mk "ÁÉÀ¸" 100 resurrect-service)))
(begin
- (say knpc "What else can I do for you?")
+ (say knpc "¾¤Ë²¿¤«É¬ÍפǤ¹¤«¡©")
(anne-trade knpc kpc))
(begin
- (say knpc "Will there be anything else?")
+ (say knpc "¾¤Ë²¿¤«É¬ÍפǤ¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(anne-trade knpc kpc)
- (say knpc "Very well.")))))
+ (say knpc "¤ªÂç»ö¤Ë¡£")))))
(define (anne-medik knpc kpc)
- (say knpc "I heal paladins who are wounded in combat. I will heal others, too, for a price."))
+ (say knpc "À襤¤Ç½ý¤Ä¤¤¤¿À»µ³»Î¤ò¼£ÎŤ·¤Æ¤¤¤Þ¤¹¡£Â¾¤Î¿Í¤Î¼£ÎŤâ¹Ô¤¤¤Þ¤¹¡£ÎÁ¶â¤ÏɬÍפǤ¹¤¬¡£"))
(define (anne-kurp knpc kpc)
- (say knpc "This is a savage place, not for the inexperienced. It gets worse the deeper you go."))
+ (say knpc "¤³¤³¤Ï·Ð¸³¤ÎÀõ¤¤¿Í¤Ë¤Ï¤Ä¤é¤¤¾ì½ê¤Ç¤¹¡£¿Ê¤á¤Ð¿Ê¤à¤Û¤É¤Ò¤É¤¯¤Ê¤ê¤Þ¤¹¡£"))
(define anne-conv
(ifc kurpolis-conv
(method 'heal anne-trade)
(method 'pric anne-trade)
- (method 'medik anne-medik)
+ (method 'medi anne-medik)
(method 'kurp anne-kurp)
))
(bind
(kern-mk-char
'ch_anne ; tag
- "Anne" ; name
+ "¥¢¥ó¥Í" ; name
anne-species ; species
anne-occ ; occ
s_companion_wizard ; sprite
(if (and setfire (terrain-ok-for-field? loc))
(kern-obj-put-at (kern-mk-field F_fire (kern-dice-roll "1d5")) loc))
(if (not havemana)
- (kern-log-msg "Attack fizzles!"))
+ (kern-log-msg "¹¶·â¤Ï¾Ã¤¨µî¤Ã¤¿¡ª"))
(on-hit-target ktarget dam
(lambda (obj) (generic-burn obj targdamage))
)
nil nil))
)))
(if (not havemana)
- (kern-log-msg "Attack fizzles!")
+ (kern-log-msg "¹¶·â¤Ï¾Ã¤¨µî¤Ã¤¿¡ª")
(begin
(if (not (null? (car proclist)))
((car proclist) loc))
(method 'hit-loc
(lambda (kmissile kuser ktarget kplace x y dam)
(kern-fire-missile (eval 't_returning_axe_p) (mk-loc kplace x y) (kern-obj-get-location kuser))
- (kern-log-msg "Magic axe returns!")
+ (kern-log-msg "ËâË¡¤ÎÉबÌá¤Ã¤Æ¤¤¿¡ª")
)
))
)
;; ==================================================================================================
;; tag | name | sprite | gifc | movement_mode | beam
;; ====================================================================================================
- (list 't_slingstone "sling stone" s_sling_stone obj-ifc mmode-missile #f)
- (list 't_arrow_p "arrow" s_arrow (mk-drop-proj-ifc 't_arrow 5)
+ (list 't_slingstone "ÀÐ" s_sling_stone obj-ifc mmode-missile #f)
+ (list 't_arrow_p "Ìð" s_arrow (mk-drop-proj-ifc 't_arrow 5)
mmode-missile #f )
- (list 't_bolt_p "bolt" s_bolt (mk-drop-proj-ifc 't_bolt 5)
+ (list 't_bolt_p "¥¯¥í¥¹¥Ü¥¦¤ÎÌð" s_bolt (mk-drop-proj-ifc 't_bolt 5)
mmode-missile #f )
- (list 't_warhead_p "warhead" s_warhead warhead-ifc mmode-missile #f )
- (list 't_cannonball_p "cannonball" s_cannonball obj-ifc mmode-missile #f )
+ (list 't_warhead_p "ÃÆƬ" s_warhead warhead-ifc mmode-missile #f )
+ (list 't_cannonball_p "ˤÃÆ" s_cannonball obj-ifc mmode-missile #f )
- (list 't_poison_bolt "poison bolt" s_poison_bolt poison-bolt-ifc mmode-missile #f )
- (list 't_acid_bolt "acid bolt" s_acid_bolt acid-bolt-ifc mmode-missile #f )
- (list 't_fireball "fireball" s_fireball fireball-ifc mmode-missile #f )
- (list 't_deathball "deathball" s_deathball deathball-ifc mmode-missile #f )
- (list 't_slimeglob "slime glob" s_acid_bolt obj-ifc mmode-missile #f )
- (list 't_mfireball "fireball" s_fireball temp-ifc mmode-missile #f )
- (list 't_mpoison_bolt "poison bolt" s_poison_bolt temp-ifc mmode-missile #f )
- (list 't_prismatic_bolt "prismatic bolt" s_prismatic_bolt prismatic-bolt-ifc mmode-missile #f )
- (list 't_stunball "stun ball" s_lightning stunball-ifc mmode-missile #f )
- (list 't_lightning_bolt "lightning bolt" s_lightning lightningbolt-ifc mmode-missile #t )
- (list 't_magicarrow_p "arrow" s_arrow obj-ifc mmode-missile #f )
+ (list 't_poison_bolt "ÆDZÕ" s_poison_bolt poison-bolt-ifc mmode-missile #f )
+ (list 't_acid_bolt "»À" s_acid_bolt acid-bolt-ifc mmode-missile #f )
+ (list 't_fireball "²Ð¤Î¶Ì" s_fireball fireball-ifc mmode-missile #f )
+ (list 't_deathball "»à¤Î¶Ì" s_deathball deathball-ifc mmode-missile #f )
+ (list 't_slimeglob "Ç´±Õ¤Î²ô" s_acid_bolt obj-ifc mmode-missile #f )
+ (list 't_mfireball "²Ð¤Î¶Ì" s_fireball temp-ifc mmode-missile #f )
+ (list 't_mpoison_bolt "ÆDZÕ" s_poison_bolt temp-ifc mmode-missile #f )
+ (list 't_prismatic_bolt "¼·¿§¤ÎÁ®¸÷" s_prismatic_bolt prismatic-bolt-ifc mmode-missile #f )
+ (list 't_stunball "¾×·â¤Î¶Ì" s_lightning stunball-ifc mmode-missile #f )
+ (list 't_lightning_bolt "Íë·â" s_lightning lightningbolt-ifc mmode-missile #t )
+ (list 't_magicarrow_p "ËâË¡¤ÎÌð" s_arrow obj-ifc mmode-missile #f )
- (list 't_mweb "web" s_thrownweb temp-ifc mmode-missile #f )
- (list 't_oil_p "flaming oil" s_flaming_oil flaming-oil-ifc mmode-missile #f )
- (list 't_smoke_bomb_p "smoke bomb" s_smoke_bomb smoke-bomb-ifc mmode-missile #f )
- (list 't_spear_p "spear" s_spear (mk-drop-proj-ifc 't_spear 25)
+ (list 't_mweb "ÌÖ" s_thrownweb temp-ifc mmode-missile #f )
+ (list 't_oil_p "²Ð±ê¥Ó¥ó" s_flaming_oil flaming-oil-ifc mmode-missile #f )
+ (list 't_smoke_bomb_p "±ìËëÃÆ" s_smoke_bomb smoke-bomb-ifc mmode-missile #f )
+ (list 't_spear_p "ÅêÁä" s_spear (mk-drop-proj-ifc 't_spear 25)
mmode-missile #f )
- (list 't_thrown_axe_p "thrown axe" s_thrown_axe magicaxe-ifc mmode-missile #f )
- (list 't_returning_axe_p "thrown axe" s_thrown_axe obj-ifc mmode-return #f )
- (list 't_thrown_rock_p "thrown rock" s_cannonball (mk-drop-proj-ifc 't_thrown_rock 80)
+ (list 't_thrown_axe_p "¼êÅꤲÉà" s_thrown_axe magicaxe-ifc mmode-missile #f )
+ (list 't_returning_axe_p "¼êÅꤲÉà" s_thrown_axe obj-ifc mmode-return #f )
+ (list 't_thrown_rock_p "Åꤲ¤é¤ì¤¿´ä" s_cannonball (mk-drop-proj-ifc 't_thrown_rock 80)
mmode-missile #f )
- (list 't_thrown_boulder_p "hurled boulder" s_thrown_boulder (mk-drop-proj-ifc 't_thrown_boulder 80)
+ (list 't_thrown_boulder_p "Åꤲ¤é¤ì¤¿ÀÐ" s_thrown_boulder (mk-drop-proj-ifc 't_thrown_boulder 80)
mmode-missile #f )
- (list 't_slime_vial_p "vial of slime" s_thrown_green_potion vial-of-slime-ifc mmode-missile #f )
+ (list 't_slime_vial_p "Ç´±Õ¤ÎÆþ¤Ã¤¿¥Ó¥ó" s_thrown_green_potion vial-of-slime-ifc mmode-missile #f )
))
;; tag | name | sprite | gifc | movement_mode
;; ===========================================================================================
- (list 't_arrow "arrow" s_arrowobj obj-ifc mmode-smallobj )
- (list 't_bolt "bolt" s_boltobj obj-ifc mmode-smallobj )
- (list 't_warhead "warhead" s_warhead warhead-ifc mmode-smallobj )
- (list 't_cannonball "cannonball" s_cannonball obj-ifc mmode-smallobj )
+ (list 't_arrow "Ìð" s_arrowobj obj-ifc mmode-smallobj )
+ (list 't_bolt "¥¯¥í¥¹¥Ü¥¦¤ÎÌð" s_boltobj obj-ifc mmode-smallobj )
+ (list 't_warhead "ÃÆƬ" s_warhead warhead-ifc mmode-smallobj )
+ (list 't_cannonball "ˤÃÆ" s_cannonball obj-ifc mmode-smallobj )
))
;; =========================================================================================================================================================================================
;; tag | name | sprite | to-hit | damage | to-def | AP_cost | AP_mod | slots | hnds | rng | missile | ammo | ubiq | weight | stratt | dexatt | dammod | avoid | ifc
;; =========================================================================================================================================================================================
- (list 't_sling "sling" s_sling "1d2-2" "1d4" "-1" (weap-ap 1) 0 slot-weapon 1 4 t_slingstone nil #t 0 10 60 30 0.9 proj-ifc)
- (list 't_sling_4 "+4 sling" s_sling "+3" "1d4+4" "+0" (weap-ap 1) 0 slot-weapon 1 6 t_slingstone nil #t 0 10 60 30 0.9 proj-ifc)
-
- (list 't_self_bow "self bow" s_bow "+1" "1d6" "-2" (weap-ap 0.8) 0 slot-weapon 2 4 t_arrow_p t_arrow #f 2 10 70 20 0.9 proj-ifc)
- (list 't_bow "bow" s_bow "1d3-2" "2d4" "-2" (weap-ap 1) 0 slot-weapon 2 5 t_arrow_p t_arrow #f 2 10 70 20 0.9 proj-ifc)
- (list 't_long_bow "longbow" s_bow "1d3-2" "2d6+1" "-2" (weap-ap 1.2) 0 slot-weapon 2 6 t_arrow_p t_arrow #f 2 10 70 20 0.9 proj-ifc)
- (list 't_great_bow "great bow" s_bow "1d3-2" "2d6+3" "-2" (weap-ap 1.34) 0 slot-weapon 2 7 t_arrow_p t_arrow #f 2 10 70 20 0.9 proj-ifc)
-
- (list 't_lt_crossbow "light crossbow" s_crossbow "1d4-2" "2d5" "-1" (weap-ap 1) 0 slot-weapon 2 5 t_bolt_p t_bolt #f 3 0 80 0 0.95 proj-ifc)
- (list 't_crossbow "crossbow" s_crossbow "1d4-2" "4d4" "-1" (weap-ap 1) 0 slot-weapon 2 6 t_bolt_p t_bolt #f 3 0 80 0 0.95 proj-ifc)
- (list 't_hvy_crossbow "heavy crossbow" s_crossbow "1d4-2" "4d6+2" "-1" (weap-ap 2) 0 slot-weapon 2 7 t_bolt_p t_bolt #f 3 0 80 0 0.95 proj-ifc)
- (list 't_trpl_crossbow "triple crossbow" s_crossbow "1d4-2" "2d5" "-1" (weap-ap 0.67) 0 slot-weapon 2 5 t_bolt_p t_bolt #f 3 0 80 0 0.95 proj-ifc)
-
- (list 't_doom_staff "doom staff" s_doom_staff "1d4" "1d2" "+2" (weap-ap 1) 0 slot-weapon 2 5 t_fireball nil #t 2 0 50 0 1.0 proj-ifc)
- (list 't_acid_spray "acid spray" nil "-7" "1d6" "+0" (weap-ap 1) 0 slot-nil 2 2 t_slimeglob nil #t 0 10 50 20 1.0 proj-ifc)
- (list 't_fire_glob "fire glob" nil "-8" "1d6" "+0" (weap-ap 1) 0 slot-nil 2 2 t_fireball nil #t 0 10 50 20 1.0 proj-ifc)
- (list 't_stun_wand "stun wand" s_stun_wand "-2" "1d4" "-1" (weap-ap 1) 0 slot-weapon 1 6 t_stunball nil #t 2 0 80 0 1.0 proj-ifc)
- (list 't_acid_wand "acid wand" s_stun_wand "-2" "1d4" "-1" (weap-ap 1) 0 slot-weapon 1 6 t_acid_bolt nil #t 2 0 80 0 1.0 proj-ifc)
- (list 't_prismatic_gaze "prismatic gaze" nil "1d4" "0" "+0" (weap-ap 1) 0 slot-nil 1 3 t_prismatic_bolt nil #t 0 0 0 0 0.85 proj-ifc)
+ (list 't_sling "ÅêÀÐɳ" s_sling "1d2-2" "1d4" "-1" (weap-ap 1) 0 slot-weapon 1 4 t_slingstone nil #t 0 10 60 30 0.9 proj-ifc)
+ (list 't_sling_4 "+4 ÅêÀÐɳ" s_sling "+3" "1d4+4" "+0" (weap-ap 1) 0 slot-weapon 1 6 t_slingstone nil #t 0 10 60 30 0.9 proj-ifc)
+
+ (list 't_self_bow "ûµÝ" s_bow "+1" "1d6" "-2" (weap-ap 0.8) 0 slot-weapon 2 4 t_arrow_p t_arrow #f 2 10 70 20 0.9 proj-ifc)
+ (list 't_bow "µÝ" s_bow "1d3-2" "2d4" "-2" (weap-ap 1) 0 slot-weapon 2 5 t_arrow_p t_arrow #f 2 10 70 20 0.9 proj-ifc)
+ (list 't_long_bow "ŵÝ" s_bow "1d3-2" "2d6+1" "-2" (weap-ap 1.2) 0 slot-weapon 2 6 t_arrow_p t_arrow #f 2 10 70 20 0.9 proj-ifc)
+ (list 't_great_bow "µðÂç¤ÊµÝ" s_bow "1d3-2" "2d6+3" "-2" (weap-ap 1.34) 0 slot-weapon 2 7 t_arrow_p t_arrow #f 2 10 70 20 0.9 proj-ifc)
+
+ (list 't_lt_crossbow "·Ú¥¯¥í¥¹¥Ü¥¦" s_crossbow "1d4-2" "2d5" "-1" (weap-ap 1) 0 slot-weapon 2 5 t_bolt_p t_bolt #f 3 0 80 0 0.95 proj-ifc)
+ (list 't_crossbow "¥¯¥í¥¹¥Ü¥¦" s_crossbow "1d4-2" "4d4" "-1" (weap-ap 1) 0 slot-weapon 2 6 t_bolt_p t_bolt #f 3 0 80 0 0.95 proj-ifc)
+ (list 't_hvy_crossbow "½Å¥¯¥í¥¹¥Ü¥¦" s_crossbow "1d4-2" "4d6+2" "-1" (weap-ap 2) 0 slot-weapon 2 7 t_bolt_p t_bolt #f 3 0 80 0 0.95 proj-ifc)
+ (list 't_trpl_crossbow "»°Ï¢¥¯¥í¥¹¥Ü¥¦" s_crossbow "1d4-2" "2d5" "-1" (weap-ap 0.67) 0 slot-weapon 2 5 t_bolt_p t_bolt #f 3 0 80 0 0.95 proj-ifc)
+
+ (list 't_doom_staff "ÇËÌǤξó" s_doom_staff "1d4" "1d2" "+2" (weap-ap 1) 0 slot-weapon 2 5 t_fireball nil #t 2 0 50 0 1.0 proj-ifc)
+ (list 't_acid_spray "»À" nil "-7" "1d6" "+0" (weap-ap 1) 0 slot-nil 2 2 t_slimeglob nil #t 0 10 50 20 1.0 proj-ifc)
+ (list 't_fire_glob "±ê¤Î²ô" nil "-8" "1d6" "+0" (weap-ap 1) 0 slot-nil 2 2 t_fireball nil #t 0 10 50 20 1.0 proj-ifc)
+ (list 't_stun_wand "¾×·â¤ÎËÀ" s_stun_wand "-2" "1d4" "-1" (weap-ap 1) 0 slot-weapon 1 6 t_stunball nil #t 2 0 80 0 1.0 proj-ifc)
+ (list 't_acid_wand "»À¤ÎËÀ" s_stun_wand "-2" "1d4" "-1" (weap-ap 1) 0 slot-weapon 1 6 t_acid_bolt nil #t 2 0 80 0 1.0 proj-ifc)
+ (list 't_prismatic_gaze "¼·¿§¤Î´ã¸÷" nil "1d4" "0" "+0" (weap-ap 1) 0 slot-nil 1 3 t_prismatic_bolt nil #t 0 0 0 0 0.85 proj-ifc)
))
;; ============================================================================
;; =================================================================================================================================================================================================================
;; tag | name | sprite | to-hit | dmg | to-def | AP_cost | AP_mod | slots | hnds | rng | missile | ubiq | ifc | weight | stratt | dexatt | dammod | avoid
;; =================================================================================================================================================================================================================
- (list 't_thrown_rock "small rock" s_cannonball "-2" "1d2" "-2" (weap-ap 1.33) 0 slot-weapon 1 4 t_thrown_rock_p #t obj-ifc 1 20 20 0 0.9 )
- (list 't_thrown_boulder "loose boulder" s_thrown_boulder "-2" "3d4+1" "-2" (weap-ap 2) 0 slot-weapon 2 5 t_thrown_boulder_p #f obj-ifc 10 40 20 60 0.9 )
+ (list 't_thrown_rock "¾®¤µ¤Ê´ä" s_cannonball "-2" "1d2" "-2" (weap-ap 1.33) 0 slot-weapon 1 4 t_thrown_rock_p #t obj-ifc 1 20 20 0 0.9 )
+ (list 't_thrown_boulder "±Ô¤¤ÀÐ" s_thrown_boulder "-2" "3d4+1" "-2" (weap-ap 2) 0 slot-weapon 2 5 t_thrown_boulder_p #f obj-ifc 10 40 20 60 0.9 )
- (list 't_spear "spear" s_spearobj "+1" "1d8+1" "+1" (weap-ap 1) 0 slot-weapon 1 4 t_spear_p #f obj-ifc 2 30 60 40 1.0 )
- (list 't_magic_axe "magical axe" s_throwing_axe "+2" "2d4+2" "+0" (weap-ap 1) 0 slot-weapon 1 4 t_thrown_axe_p #t obj-ifc 2 30 60 40 1.0 )
+ (list 't_spear "ÅêÁä" s_spearobj "+1" "1d8+1" "+1" (weap-ap 1) 0 slot-weapon 1 4 t_spear_p #f obj-ifc 2 30 60 40 1.0 )
+ (list 't_magic_axe "ËâË¡¤ÎÉà" s_throwing_axe "+2" "2d4+2" "+0" (weap-ap 1) 0 slot-weapon 1 4 t_thrown_axe_p #t obj-ifc 2 30 60 40 1.0 )
- (list 't_oil "flaming oil" s_oil_potion "-1" "1d6" "-2" (weap-ap 1.2) 0 slot-weapon 1 4 t_oil_p #f flaming-oil-ifc 1 20 30 0 0.9 )
- (list 't_slime_vial "vial of slime" s_squat_bubbly_green_potion "-1" "1d2" "-2" (weap-ap 1.2) 0 slot-weapon 1 4 t_slime_vial_p #f vial-of-slime-ifc 1 20 30 0 1.0 )
- (list 't_smoke_bomb "smoke bomb" s_smoke_potion "-1" "1" "-2" (weap-ap 1.2) 0 slot-weapon 1 6 t_smoke_bomb_p #f smoke-bomb-ifc 1 20 30 0 0.9 )
+ (list 't_oil "²Ð±ê¥Ó¥ó" s_oil_potion "-1" "1d6" "-2" (weap-ap 1.2) 0 slot-weapon 1 4 t_oil_p #f flaming-oil-ifc 1 20 30 0 0.9 )
+ (list 't_slime_vial "Ç´±Õ¤ÎÆþ¤Ã¤¿¥Ó¥ó" s_squat_bubbly_green_potion "-1" "1d2" "-2" (weap-ap 1.2) 0 slot-weapon 1 4 t_slime_vial_p #f vial-of-slime-ifc 1 20 30 0 1.0 )
+ (list 't_smoke_bomb "±ìËëÃÆ" s_smoke_potion "-1" "1" "-2" (weap-ap 1.2) 0 slot-weapon 1 6 t_smoke_bomb_p #f smoke-bomb-ifc 1 20 30 0 0.9 )
))
(map (lambda (type) (apply mk-thrown-arms-type type)) thrown-arms-types)
;; ===================================================================================================================================================
;; tag | name | sprite | to-hit | damage | to-def | AP_cost | AP_mod | slots | hnds | rng | weight | dxmod | stmod | dammod | avoid
;; ===================================================================================================================================================
- (list 't_hands "bare hands" nil "1d2" "1d2" "1d2" (weap-ap 0.67) 0 slot-nil 1 1 0 50 20 10 1.0 )
- (list 't_F_fangs "fangs" nil "1d2" "1d4" "+0" (weap-ap 0.67) 0 slot-nil 1 1 0 50 20 30 1.0 )
- (list 't_fangs "fangs" nil "1d2" "1d6" "+0" (weap-ap 1) 0 slot-nil 1 1 0 50 20 30 1.0 )
- (list 't_G_fangs "great fangs" nil "1d2" "1d10" "+0" (weap-ap 1.34) 0 slot-nil 1 1 0 50 20 30 1.0 )
- (list 't_horns "horns" nil "1d2" "1d8" "1d2" (weap-ap 0.67) 0 slot-nil 1 1 0 30 40 60 1.0 )
- (list 't_stinger "stinger" nil "1d2" "1d2" "+0" (weap-ap 0.67) 0 slot-nil 1 1 0 50 20 10 1.0 )
- (list 't_tentacles "tentacles" nil "1d3" "4d4" "4d2" (weap-ap 1) 0 slot-nil 1 1 0 70 20 60 1.0 )
- (list 't_beak "beak" nil "+0" "2d4" "+0" (weap-ap 1) 0 slot-nil 1 1 0 50 30 30 1.0 )
- (list 't_pincers "pincers" nil "-1" "4d4" "4d2" (weap-ap 1.2) 0 slot-nil 1 1 0 50 30 30 1.0 )
-
- (list 't_dagger "dagger" s_dagger "1d4" "1d4" "1d2" (weap-ap 0.8) 0 slot-weapon 1 1 0 80 10 10 1.0 )
- (list 't_dagger_4 "+4 dagger" s_dagger "1d4+4" "1d4+4" "1d2+4" (weap-ap 0.8) 0 slot-weapon 1 1 0 80 10 10 1.0 )
- (list 't_mace "mace" s_mace "1d4" "1d6+2" "+0" (weap-ap 1) 0 slot-weapon 1 1 3 20 60 80 0.95 )
- (list 't_axe "axe" s_axe "1d2" "2d4+2" "+0" (weap-ap 1.2) 0 slot-weapon 1 1 3 30 50 90 0.95 )
- (list 't_sword "sword" s_sword "1d2" "1d8+1" "1d2" (weap-ap 1) 0 slot-weapon 1 1 2 50 20 70 1.0 )
- (list 't_sword_2 "+2 sword" s_sword "1d2+2" "1d8+3" "1d2+2" (weap-ap 1) 0 slot-weapon 1 1 2 50 20 70 1.0 )
- (list 't_sword_4 "+4 sword" s_sword "1d2+4" "1d8+5" "1d2+4" (weap-ap 1) 0 slot-weapon 1 1 2 50 20 70 1.0 )
- (list 't_2H_axe "2H axe" s_2h_axe "+0" "4d4+4" "-2" (weap-ap 1.34) 0 slot-weapon 2 1 4 20 60 100 0.9 )
- (list 't_2H_sword "2H sword" s_2h_sword "+0" "2d8+2" "+1" (weap-ap 1.2) 0 slot-weapon 2 1 4 40 40 90 0.95 )
- (list 't_morning_star "morning star" s_morning_star "1d2+2" "1d6+1" "-1" (weap-ap 1) 0 slot-weapon 1 2 3 20 40 70 0.9 )
- (list 't_morning_star_2 "+2 morning star" s_morning_star "1d2+4" "1d6+3" "+2" (weap-ap 1) 0 slot-weapon 1 2 3 20 40 70 0.9 )
- (list 't_halberd "halberd" s_halberd "1d3+1" "2d8-2" "1d2" (weap-ap 1) 0 slot-weapon 2 2 4 30 30 100 0.9 )
- (list 't_staff "staff" s_staff "1d3" "1d4" "1d3" (weap-ap 0.8) 0 slot-weapon 2 2 2 60 30 40 1.0 )
- (list 't_eldritch_blade "eldritch blade" s_eldritch_blade "+2" "3d7+5" "+0" (weap-ap 1.34) 0 slot-weapon 2 1 2 50 20 70 1.0 )
- (list 't_mystic_sword "mystic sword" s_mystic_sword "+3" "1d10+5" "+2" (weap-ap 1) 0 slot-weapon 1 1 1 60 20 70 1.0 )
+ (list 't_hands "ÁǼê" nil "1d2" "1d2" "1d2" (weap-ap 0.67) 0 slot-nil 1 1 0 50 20 10 1.0 )
+ (list 't_F_fangs "²ç" nil "1d2" "1d4" "+0" (weap-ap 0.67) 0 slot-nil 1 1 0 50 20 30 1.0 )
+ (list 't_fangs "²ç" nil "1d2" "1d6" "+0" (weap-ap 1) 0 slot-nil 1 1 0 50 20 30 1.0 )
+ (list 't_G_fangs "µðÂç¤Ê²ç" nil "1d2" "1d10" "+0" (weap-ap 1.34) 0 slot-nil 1 1 0 50 20 30 1.0 )
+ (list 't_horns "³Ñ" nil "1d2" "1d8" "1d2" (weap-ap 0.67) 0 slot-nil 1 1 0 30 40 60 1.0 )
+ (list 't_stinger "¿Ë" nil "1d2" "1d2" "+0" (weap-ap 0.67) 0 slot-nil 1 1 0 50 20 10 1.0 )
+ (list 't_tentacles "¿¨¼ê" nil "1d3" "4d4" "4d2" (weap-ap 1) 0 slot-nil 1 1 0 70 20 60 1.0 )
+ (list 't_beak "¤¯¤Á¤Ð¤·" nil "+0" "2d4" "+0" (weap-ap 1) 0 slot-nil 1 1 0 50 30 30 1.0 )
+ (list 't_pincers "¥Ï¥µ¥ß" nil "-1" "4d4" "4d2" (weap-ap 1.2) 0 slot-nil 1 1 0 50 30 30 1.0 )
+
+ (list 't_dagger "û·õ" s_dagger "1d4" "1d4" "1d2" (weap-ap 0.8) 0 slot-weapon 1 1 0 80 10 10 1.0 )
+ (list 't_dagger_4 "+4 û·õ" s_dagger "1d4+4" "1d4+4" "1d2+4" (weap-ap 0.8) 0 slot-weapon 1 1 0 80 10 10 1.0 )
+ (list 't_mace "ÄÊÌ·" s_mace "1d4" "1d6+2" "+0" (weap-ap 1) 0 slot-weapon 1 1 3 20 60 80 0.95 )
+ (list 't_axe "Éà" s_axe "1d2" "2d4+2" "+0" (weap-ap 1.2) 0 slot-weapon 1 1 3 30 50 90 0.95 )
+ (list 't_sword "·õ" s_sword "1d2" "1d8+1" "1d2" (weap-ap 1) 0 slot-weapon 1 1 2 50 20 70 1.0 )
+ (list 't_sword_2 "+2 ·õ" s_sword "1d2+2" "1d8+3" "1d2+2" (weap-ap 1) 0 slot-weapon 1 1 2 50 20 70 1.0 )
+ (list 't_sword_4 "+4 ·õ" s_sword "1d2+4" "1d8+5" "1d2+4" (weap-ap 1) 0 slot-weapon 1 1 2 50 20 70 1.0 )
+ (list 't_2H_axe "ξ¼êÉà" s_2h_axe "+0" "4d4+4" "-2" (weap-ap 1.34) 0 slot-weapon 2 1 4 20 60 100 0.9 )
+ (list 't_2H_sword "ξ¼ê·õ" s_2h_sword "+0" "2d8+2" "+1" (weap-ap 1.2) 0 slot-weapon 2 1 4 40 40 90 0.95 )
+ (list 't_morning_star "»ÉÉդŴµå" s_morning_star "1d2+2" "1d6+1" "-1" (weap-ap 1) 0 slot-weapon 1 2 3 20 40 70 0.9 )
+ (list 't_morning_star_2 "+2 »ÉÉդŴµå" s_morning_star "1d2+4" "1d6+3" "+2" (weap-ap 1) 0 slot-weapon 1 2 3 20 40 70 0.9 )
+ (list 't_halberd "ÉàÁä" s_halberd "1d3+1" "2d8-2" "1d2" (weap-ap 1) 0 slot-weapon 2 2 4 30 30 100 0.9 )
+ (list 't_staff "¾ó" s_staff "1d3" "1d4" "1d3" (weap-ap 0.8) 0 slot-weapon 2 2 2 60 30 40 1.0 )
+ (list 't_eldritch_blade "ÉÔµ¤Ì£¤Ê¿Ï" s_eldritch_blade "+2" "3d7+5" "+0" (weap-ap 1.34) 0 slot-weapon 2 1 2 50 20 70 1.0 )
+ (list 't_mystic_sword "¿ÀÈë¤Î·õ" s_mystic_sword "+3" "1d10+5" "+2" (weap-ap 1) 0 slot-weapon 1 1 1 60 20 70 1.0 )
))
(kern-mk-sprite 's_leather_helm ss_arms 1 48 #f 0)
;; ===============================================================================================================
;; tag | name | sprite | to-hit | armor | slots | equip_AP | AP_mod | weight | avoid
;; ===============================================================================================================
- (list 't_leather_helm "leather helm" s_leather_helm "-1" "1d2" slot-helm (weap-ap 1) -0 0 1.0 )
- (list 't_leather_helm_2 "+2 leather helm" s_leather_helm "+0" "1d2+2" slot-helm (weap-ap 1) -0 0 1.0 )
- (list 't_leather_helm_4 "+4 leather helm" s_leather_helm "+0" "1d2+4" slot-helm (weap-ap 1) -0 0 1.0 )
+ (list 't_leather_helm "Èé³õ" s_leather_helm "-1" "1d2" slot-helm (weap-ap 1) -0 0 1.0 )
+ (list 't_leather_helm_2 "+2 Èé³õ" s_leather_helm "+0" "1d2+2" slot-helm (weap-ap 1) -0 0 1.0 )
+ (list 't_leather_helm_4 "+4 Èé³õ" s_leather_helm "+0" "1d2+4" slot-helm (weap-ap 1) -0 0 1.0 )
- (list 't_chain_coif "chain coif" s_chain_coif "-1" "1d3" slot-helm (weap-ap 1) (armour-ap -1) 1 0.9 )
- (list 't_chain_coif_4 "+4 chain coif" s_chain_coif "+0" "1d3+4" slot-helm (weap-ap 1) (armour-ap -1) 1 0.9 )
+ (list 't_chain_coif "º¿Æ¬¶Ò" s_chain_coif "-1" "1d3" slot-helm (weap-ap 1) (armour-ap -1) 1 0.9 )
+ (list 't_chain_coif_4 "+4 º¿Æ¬¶Ò" s_chain_coif "+0" "1d3+4" slot-helm (weap-ap 1) (armour-ap -1) 1 0.9 )
- (list 't_iron_helm "iron helm" s_iron_helm "-1" "1d4" slot-helm (weap-ap 1) (armour-ap -2) 2 0.9 )
- (list 't_iron_helm_4 "+4 iron helm" s_iron_helm "+0" "1d4+4" slot-helm (weap-ap 1) (armour-ap -2) 2 0.9 )
+ (list 't_iron_helm "Å´³õ" s_iron_helm "-1" "1d4" slot-helm (weap-ap 1) (armour-ap -2) 2 0.9 )
+ (list 't_iron_helm_4 "+4 Å´³õ" s_iron_helm "+0" "1d4+4" slot-helm (weap-ap 1) (armour-ap -2) 2 0.9 )
- (list 't_armor_leather "leather armor" s_leather_armor "-1" "1d4" slot-armor (weap-ap 2) (armour-ap -1) 2 0.85 )
- (list 't_armor_leather_2 "+2 leather armor" s_leather_armor "+0" "1d4+2" slot-armor (weap-ap 2) (armour-ap -1) 2 0.85 )
- (list 't_armor_leather_4 "+4 leather armor" s_leather_armor "+0" "1d4+4" slot-armor (weap-ap 2) (armour-ap -1) 2 0.9 )
+ (list 't_armor_leather "Èé³»" s_leather_armor "-1" "1d4" slot-armor (weap-ap 2) (armour-ap -1) 2 0.85 )
+ (list 't_armor_leather_2 "+2 Èé³»" s_leather_armor "+0" "1d4+2" slot-armor (weap-ap 2) (armour-ap -1) 2 0.85 )
+ (list 't_armor_leather_4 "+4 Èé³»" s_leather_armor "+0" "1d4+4" slot-armor (weap-ap 2) (armour-ap -1) 2 0.9 )
- (list 't_armor_chain "chain armor" s_chain_armor "-2" "2d4" slot-armor (weap-ap 2) (armour-ap -5) 4 0.7 )
- (list 't_armor_chain_4 "+4 chain armor" s_chain_armor "+0" "2d4+4" slot-armor (weap-ap 2) (armour-ap -5) 4 0.8 )
+ (list 't_armor_chain "º¿¤«¤é¤Ó¤é" s_chain_armor "-2" "2d4" slot-armor (weap-ap 2) (armour-ap -5) 4 0.7 )
+ (list 't_armor_chain_4 "+4 º¿¤«¤é¤Ó¤é" s_chain_armor "+0" "2d4+4" slot-armor (weap-ap 2) (armour-ap -5) 4 0.8 )
- (list 't_armor_plate "plate armor" s_plate_armor "-4" "4d4" slot-armor (weap-ap 5) (armour-ap -10) 8 0.6 )
- (list 't_armor_plate_4 "+4 plate armor" s_plate_armor "+0" "4d4+4" slot-armor (weap-ap 5) (armour-ap -10) 8 0.7 )
+ (list 't_armor_plate "¹ÃÑÉ" s_plate_armor "-4" "4d4" slot-armor (weap-ap 5) (armour-ap -10) 8 0.6 )
+ (list 't_armor_plate_4 "+4 ¹ÃÑÉ" s_plate_armor "+0" "4d4+4" slot-armor (weap-ap 5) (armour-ap -10) 8 0.7 )
))
(kern-mk-sprite 's_shield ss_arms 1 54 #f 0)
;; ============================================================================================================
;; tag | name | sprite | to-hit | deflect | AP_mod | slots | weight | avoid
;; ============================================================================================================
- (list 't_shield "small shield" s_shield "-1" "5" -0 slot-shield 2 0.9 )
- (list 't_shield_4 "+4 small shield" s_shield "+0" "9" -0 slot-shield 2 0.95 )
- (list 't_scratched_shield "scratched shield" s_scratched_shield "+0" "7" -0 slot-shield 2 0.9 )
+ (list 't_shield "¾®·¿¤Î½â" s_shield "-1" "5" -0 slot-shield 2 0.9 )
+ (list 't_shield_4 "+4 ¾®·¿¤Î½â" s_shield "+0" "9" -0 slot-shield 2 0.95 )
+ (list 't_scratched_shield "½ý¤Î¤¢¤ë½â" s_scratched_shield "+0" "7" -0 slot-shield 2 0.9 )
))
(kern-mk-sprite 's_spiked_helm ss_arms 1 46 #f 0)
(kern-mk-sprite 's_spiked_shield ss_arms 1 47 #f 0)
-(kern-mk-arms-type 't_spiked_helm "spiked helm" s_spiked_helm
+(kern-mk-arms-type 't_spiked_helm "»ÉÉÕ¤³õ" s_spiked_helm
"0" "1d4" "3" "0"
slot-helm 1 1 (weap-ap 2) -0
nil nil #f #f
nil obj-ifc-cap obj-ifc
30 10 20 0.9 mmode-smallobj)
-(kern-mk-arms-type 't_spiked_shield "spiked shield" s_spiked_shield
+(kern-mk-arms-type 't_spiked_shield "»ÉÉÕ¤½â" s_spiked_shield
"0" "1d5" "0" "5"
slot-shield 1 1 (weap-ap 2) -0
nil nil #f #f
))
)))
-(kern-mk-arms-type 't_flaming_sword "flaming sword" s_flaming_sword "1d2" "1d8+2" "0" "1d2" slot-weapon 1 1 (weap-ap 1) 0 nil nil #f #f 2 nil
+(kern-mk-arms-type 't_flaming_sword "±ê¤Î·õ" s_flaming_sword "1d2" "1d8+2" "0" "1d2" slot-weapon 1 1 (weap-ap 1) 0 nil nil #f #f 2 nil
(ifc-cap flaming-sword-ifc) flaming-sword-ifc 50 20 70 1.0 mmode-smallobj)
(kern-mk-arms-type 't_cannon ; tag
- "cannon" ; name
+ "Âçˤ" ; name
nil ; sprite
"+1" ;; to-hit : to-hit attack bonus (dice expr)
"1d10+4" ;; damage : attack damage (dice expr)
(if (not (null? ktarget))
(
begin
- (kern-log-msg (kern-obj-get-name ktarget) " hit by cannonball!")
- (kern-obj-apply-damage ktarget "cannon" (kern-dice-roll "1d10+4"))
+ (kern-log-msg "ˤÃƤÏ" (kern-obj-get-name ktarget) "¤ËÌ¿Ã椷¤¿¡£")
+ (kern-obj-apply-damage ktarget "Âçˤ" (kern-dice-roll "1d10+4"))
)
)
))
)))
-(mk-missile-arms-type 't_localcannonball "cannonball" s_cannonball localcannonball-ifc mmode-cannon #f)
+(mk-missile-arms-type 't_localcannonball "ˤÃÆ" s_cannonball localcannonball-ifc mmode-cannon #f)
(define cannon-ifc
(ifc '()
(method 'xamine
(lambda (kcannon kuser)
(let ((ready (cadr (gob kcannon))))
- (kern-log-msg "The cannon is "
+ (kern-log-msg "Âçˤ¤Ï"
(cond ((equal? ready 2)
- "ready to fire")
+ "ȯ¼Í½àÈ÷¤¬¤Ç¤¤Æ¤¤¤ë¡£")
((equal? ready 1)
- "loaded but unready")
- (else "unloaded")))
+ "ÃƤÏÆþ¤Ã¤Æ¤¤¤ë¤¬¡¢È¯¼Í½àÈ÷¤¬¤Ç¤¤Æ¤¤¤Ê¤¤¡£")
+ (else "ÃƤ¬Æþ¤Ã¤Æ¤¤¤Ê¤¤¡£")))
result-ok
))
)
(cadr loc) (caddr loc)
(car aimdir) (cadr aimdir))))
(kern-sound-play sound-cannon-fire)
- (kern-log-msg "BOOOM")
+ (kern-log-msg "¥É¡¼¡¼¡¼¥ó¡ª")
(kern-fire-missile t_localcannonball loc (mk-loc (car loc) (car targetloc) (cadr targetloc)))
)
(bind kcannon (list facing 0)))
((equal? ready 1)
- (kern-log-msg "Cannon ready to fire")
+ (kern-log-msg "Âçˤ¤Ïȯ¼Í¤Ç¤¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£")
(bind kcannon (list facing 2)))
(else
- (kern-log-msg "Cannon loaded")
+ (kern-log-msg "Âçˤ¤ËÃƤò¹þ¤á¤¿¡£")
(bind kcannon (list facing 1)))
)
))
))
))
-(mk-obj-type 't_cannonobj "cannon" s_cannon layer-mechanism cannon-ifc)
+(mk-obj-type 't_cannonobj "Âçˤ" s_cannon layer-mechanism cannon-ifc)
(define (arms-mk-cannon facing)
(let ((kcannon (kern-mk-obj t_cannonobj 1)))
(kern-load "nate.scm")
(mk-19x19-town
- 'p_bandit_hideout_l1 "Bandit Stockade" s_ruin
+ 'p_bandit_hideout_l1 "Åð±¤Î±£¤ì²È" s_ruin
(list
"tt tt tt tt t5 t3 tt tt tt tt tt tt tt tt tc rr rr rr rr "
"tt tt tt tt tt tt tt tt tt tt tt tt tc rr rr rr ~7 rr rr "
(mk-place-music p_bandit_hideout_l1 'ml-outdoor-adventure)
(mk-dungeon-room
- 'p_bandit_hideout_l2a "Stockade Barracks"
+ 'p_bandit_hideout_l2a "±£¤ì²È¤ÎÃϲ¼"
(list
"rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
"rr rr bb dd dd dd dd dd dd dd dd dd dd dd dd dd dd rr rr "
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Oparine.
+;; ¥ª¥Ñ¡¼¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_bart
(list 0 0 black-barts-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Bart is a hard-drinking goblin shipwright who dwells in Oparine.
+;; ¥Ð¡¼¥È¤Ï°û¤ó¤À¤¯¤ì¤Î¥´¥Ö¥ê¥ó¤Î¤Á¥¿¦¿Í¤Ç¡¢¥ª¥Ñ¡¼¥ê¥ó¤Ë½»¤ó¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (bart-hail knpc kpc)
- (say knpc "[You meet a taciturn goblin who smells of whiskey] "
- "Unh."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï¸ý¿ô¤Î¾¯¤Ê¤½¤¦¤Ê¡¢¥¦¥£¥¹¥¡¼¤Î½¤¤¤Î¤¹¤ë¥´¥Ö¥ê¥ó¤È²ñ¤Ã¤¿¡£¡Ï"
+ "¥¦¥ó¡£"))
(define (bart-default knpc kpc)
- (say knpc "Eh?"))
+ (say knpc "¥¨¡¼¡©"))
(define (bart-name knpc kpc)
- (say knpc "Bart."))
+ (say knpc "¥Ð¡¼¥È¡£"))
(define (bart-join knpc kpc)
- (say knpc "[He looks at you oddly and shakes his head]"))
+ (say knpc "¡ÎÈà¤Ï¤¢¤Ê¤¿¤ò´ñ̯¤½¤¦¤Ë¤ß¤Æ¡¢Æ¬¤ò¿¶¤Ã¤¿¡£¡Ï"))
(define (bart-job knpc kpc)
- (say knpc "Bart make ship. Good ship."))
+ (say knpc "¥Ð¡¼¥È¤ÏÁ¥¤òºî¤ë¡£¤è¤¤Á¥¡£"))
(define (bart-bye knpc kpc)
- (say knpc "Ja."))
+ (say knpc "¥¸¥ã¡£"))
;; Trade...
(define (bart-trade knpc kpc)
(town-loc (kern-place-get-location town))
(ship-loc (loc-offset town-loc east)))
(if (ship-at? ship-loc)
- (say knpc "Hunh. No room at dock. Somebody need move ship first.")
+ (say knpc "¥à¡£Á¥Ãå¾ì¡¢¾ì½ê¤Ê¤¤¡£¤Þ¤ºÁ¥Æ°¤«¤»¡£")
(begin
(kern-obj-relocate (mk-ship) ship-loc nil)
(take-player-gold oparine-ship-price)
- (say knpc "Ship ready ready outside town.")
+ (say knpc "Á¥¡¢³°¤Ë¤¢¤ë¡£")
))))
(define (sell-ship)
(ship-loc (loc-offset town-loc east))
(kship (kern-place-get-vehicle ship-loc)))
(if (null? kship)
- (say knpc "Bart no see ship. Park at dock, come back.")
+ (say knpc "¥Ð¡¼¥ÈÁ¥¸«¤¨¤Ê¤¤¡£Á¥Ãå¾ì»ß¤á¤í¡£¤Þ¤¿Í褤¡£")
(begin
- (say knpc "You want sell that junk ship? Bart give "
+ (say knpc "¤³¤Î¥Ü¥íÁ¥Çä¤ë¡©¥Ð¡¼¥È¶â²ß"
oparine-ship-tradein-price
- ". Ok?")
+ "ËçÅϤ¹¡£¤¤¤¤¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "Bart too generous, you lucky.")
+ (say knpc "¥Ð¡¼¥Èµ¤Á°¤¤¤¤¡£¤¢¤ó¤¿±¿¤¤¤¤¡£")
(kern-obj-remove kship)
(give-player-gold oparine-ship-tradein-price))
- (say knpc "Hunh. That ship sink soon."))))))
+ (say knpc "¥à¡£Á¥¤¹¤°ÄÀ¤à¡£"))))))
(if (not (string=? "working" (kern-obj-get-activity knpc)))
- (say knpc "Not work now. Now drink!")
+ (say knpc "º£Æ¯¤«¤Ê¤¤¡£º£°û¤à¡ª")
(begin
- (say knpc "You want buy ship?")
+ (say knpc "Á¥¡¢Ç㤦¡©")
(if (yes? kpc)
(begin
- (say knpc "Ship " oparine-ship-price " gold. Want ship?")
+ (say knpc "Á¥¡¢¶â²ß" oparine-ship-price "Ëç¡£Á¥Íߤ·¤¤¡©")
(if (kern-conv-get-yes-no? kpc)
(if (player-has-gold? oparine-ship-price)
(buy-ship)
(begin
- (say knpc "You not have gold! You try cheat Bart? "
- "[He spits on the ground]")
+ (say knpc "¶â²ß¤ê¤Ê¤¤¡£¥Ð¡¼¥È¤À¤Þ¤¹¡©"
+ "¡ÎÈà¤ÏÃÏÌ̤ËÂäòÅǤ¤¤¿¡£¡Ï")
(kern-conv-end)))
- (say knpc "Fine. You swim.")))
+ (say knpc "¤¤¤¤¡£±Ë¤²¡£")))
(begin
- (say knpc "You want sell ship?")
+ (say knpc "Á¥¡¢Çä¤ë¡©")
(if (yes? kpc)
(sell-ship)
(begin
- (say knpc "Then what hell you bother Bart for?")
+ (say knpc "¤Ê¤é¤Ð¡¢¥Ð¡¼¥È²¿¤¹¤ë¡©")
(kern-conv-end))))))))
;; Drink...
(define (bart-drink knpc kpc)
(if (not (string=? "working" (kern-obj-get-activity knpc)))
- (say knpc "Let's drink!")
- (say knpc "Work now. Drink later.")))
+ (say knpc "°û¤à¡ª")
+ (say knpc "º£Æ¯¤¯¡£¸å°û¤à¡£")))
;; Townspeople...
(define (bart-opar knpc kpc)
- (say knpc "Smells like fish."))
+ (say knpc "µû¤Î½¤¤¤¹¤ë¡£"))
(define (bart-gher knpc kpc)
- (say knpc "Tu-gu. Bad ghost.[He makes a strange sign in the air]"))
+ (say knpc "¥Ä¡¦¥°¡£°¤¤º²¡£¡ÎÈà¤Ï¶õÃæ¤Ë´ñ̯¤Ê¿Þ·Á¤òÉÁ¤¤¤¿¡£¡Ï"))
(define (bart-alch knpc kpc)
- (say knpc "Hi-lu-to. He take low road from burning city. "
- "Goblins cousins remember."))
+ (say knpc "¥Ò¡¦¥ê¥å¡¦¥È¡£Ç³¤¨¤ëÄ®¤«¤éÍ褿¡£"
+ "°ì²¤ª¤Ü¤¨¤Æ¤ë¡£"))
(define (bart-seaw knpc kpc)
- (say knpc "She smell like fish."))
+ (say knpc "µû¤Î½¤¤¤¹¤ë¡£"))
(define (bart-osca knpc kpc)
- (say knpc "Tu-to. Bart not know man-words."))
+ (say knpc "¥Ä¡¦¥È¡£¥Ð¡¼¥È¤è¤¤ÏÃÃΤé¤Ê¤¤¡£"))
(define (bart-henr knpc kpc)
- (say knpc "Bart friend. Make good drink! Bart love drink."))
+ (say knpc "¥Ð¡¼¥Èͧ¤À¤Á¡£¤è¤¤¼òºî¤ë¡ª¥Ð¡¼¥È°û¤à¹¥¤¡£"))
(define bart-conv
(ifc basic-conv
(method 'alch bart-alch)
(method 'gher bart-gher)
(method 'witc bart-seaw)
+ (method 'lia bart-seaw)
(method 'osca bart-osca)
(method 'henr bart-henr)
(method 'ja bart-bye)
(define (mk-bart)
(bind
(kern-mk-char 'ch_bart ; tag
- "Bart" ; name
+ "¥Ð¡¼¥È" ; name
sp_forest_goblin ; species
nil ; occ
s_fgob_civilian ; sprite
;; ----------------------------------------------------------------------------
(mk-obj-type 't_bed ;; tag
- "bed" ;; name
+ "¥Ù¥Ã¥É" ;; name
s_bed ;; sprite
layer-bed ;; layer
nil ;; interface
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Bole.
+;; ¥Ü¥ì
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_bill
(list 0 0 bole-bed-bill "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Bill is a woodcutter who lives in Bole.
-;; Not the sharpest tool in the shed.
+;; ¥Ó¥ë¤ÏÌÚ¤³¤ê¤Ç¡¢¥Ü¥ì¤Ë½»¤ó¤Ç¤¤¤ë¡£
+;; ¤¢¤Þ¤ê¸¤¯¤Ê¤¤¼Ô¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
(define bill-catalog
(list
- (list t_staff 10 "It's hard tuh find branches straight enought to make a staff.") ;; rather cheap
- (list t_torch 3 "Ah always like tuh see at night, so I make torches.") ;; rather cheap
- (list t_arrow 3 "The rangers from Green Tower sometimes buy my arrows.")
- (list t_bolt 4 "Not many folks use crossbows 'round here.")
+ (list t_staff 10 "¾ó¤òºî¤ì¤ë¤¯¤é¤¤¤Þ¤Ã¤¹¤°¤Ê»Þ¤Ï¤Ê¤«¤Ê¤«¸«¤Ä¤«¤é¤Ê¤¤¡£") ;; rather cheap
+ (list t_torch 3 "Ìë½ÐÊ⤯¤Î¤¬¹¥¤¤À¡£¤À¤«¤é¾¾ÌÀ¤òºî¤Ã¤Æ¤ë¡£") ;; rather cheap
+ (list t_arrow 3 "ÎФÎÅã¤Î·ÙÈ÷Ââ¤â¤¿¤Þ¤Ë²¶¤ÎÌð¤òÇã¤Ã¤Æ¤ë¡£")
+ (list t_bolt 4 "¤³¤Î¤¢¤¿¤ê¤Ç¥¯¥í¥¹¥Ü¥¦¤ò»È¤Ã¤Æ¤ë¥ä¥Ä¤Ï¾¯¤Ê¤¤¡£")
))
(define bill-merch-msgs
(list nil ;; closed
- "I make all this stuff my self." ;; buy
+ "Á´Éô²¶¤¬ºî¤Ã¤¿¤ó¤À¡£" ;; buy
nil ;; sell
nil ;; trade
- "I hope they work ok for you." ;; sold-something
- "If ye change yer mind ah'll be around." ;; sold-nothing
+ "µ¤¤ËÆþ¤Ã¤Æ¤¯¤ì¤ê¤ã¤¤¤¤¤±¤É¡£" ;; sold-something
+ "µ¤¤¬ÊѤï¤Ã¤¿¤é¤Þ¤¿Íè¤Ê¤è¡£" ;; sold-nothing
nil ;; bought-something
nil ;; bought-nothing
nil ;; traded-something
(define (bill-buy knpc kpc) (conv-trade knpc kpc "buy" bill-merch-msgs bill-catalog))
(define (bill-goods knpc kpc)
- (say knpc "Want to buy some?")
+ (say knpc "²¿¤«Ç㤦¡©")
(if (kern-conv-get-yes-no? kpc)
(bill-buy knpc kpc)
- (say knpc "Just ask if you ever do.")))
+ (say knpc "Íߤ·¤¯¤Ê¤Ã¤¿¤é¸À¤Ã¤Æ¤¯¤ì¡£")))
(define (bill-may knpc kpc)
- (say knpc "She runs the tavern in town an' is a good lady."))
+ (say knpc "Ä®¤Î¼ò¾ì¤ò¤ä¤Ã¤Æ¤ë¡£¤¤¤¤½÷¤À¡£"))
(define (bill-lady knpc kpc)
- (say knpc "There's uh lady in town now. She's real pretty. But she has "
- "a big, mean boyfrien'."))
+ (say knpc "º£¡¢Ä®¤Ë½÷¤¬¤¤¤ë¤ó¤À¤è¡£ËÜÅö¤Ë¤¤ì¤¤¤Ê¡£"
+ "¤Ç¤â¡¢¤Ç¤«¤¤¡¢¤¤¿¤Í¤¨Ãˤ¬ÉÕ¤¤¤Æ¤ë¤ó¤À¡£"))
(define (bill-bole knpc kpc)
- (say knpc "Yeah, Ah like Bole. "
- "There's uh tavern, where Ah eat an' get shit-faced. "
- "An' muh house is there."))
+ (say knpc "¤¢¤¢¡¢²¶¤Ï¥Ü¥ì¤¬¹¥¤¤À¡£"
+ "¼ò¾ì¤¬¤¢¤Ã¤Æ¡¢¤½¤³¤ÇÈÓ¿©¤Ã¤Æ¡¢¥¯¥½¤Û¤É¿ì¤Ãʧ¤¦¡£"
+ "¼ò¾ì¤Ï²¶¤Î²È¤À¡£"))
(define (bill-wolves knpc kpc)
- (say knpc "I hafta wach out for them. "
- "They stays mostly inna south, away from town."))
+ (say knpc "¤¤¤Ä¤âÃí°Õ¤·¤Æ¤ë¡£"
+ "Ä®¤Î¤º¤Ã¤ÈÆî¤Ë¤Ï¤¿¤¯¤µ¤ó¤¤¤ë¤Ê¡£"))
(define (bill-scared knpc kpc)
- (say knpc "Ah wuz west o' the town, "
- "where's I hardly never go on account o' the wulves. "
- "There was a great big, old, dead oak. "
- "I sez to myself, that's a good-un! "
- "Well, no sooner had muh axe bit into the bark "
- "but it wakes up!"))
+ (say knpc "Ä®¤ÎÀ¾¤Ë¤¤¤¿¤È¤¤è¡£"
+ "ϵ¤¬¤¤¤Æ¤Ê¤«¤Ê¤«¹Ô¤±¤Ê¤¤¾ì½ê¤À¡£"
+ "¤½¤³¤ËÂ礤ʡ¢¸Å¤¤¡¢»à¤ó¤À¥«¥·¤ÎÌÚ¤¬¤¢¤Ã¤¿¤ó¤À¡£"
+ "¤³¤¤¤Ä¤Ï¤¤¤¤¤È»×¤Ã¤¿¤è¡£"
+ "¤Ç¡¢¤³¤¤¤Ä¤òÀÚ¤í¤¦¤È¤·¤¿¤é¡¢²¿¤ÈÆ°¤½Ð¤·¤¿¤ó¤À¤è¡ª"))
(define (bill-thie knpc kpc)
- (say knpc "There wuz a right nervous feller at the tavern not long ago. "
- "He had some words with the pretty lady. I think they got in uh "
- "argument over somethin'. I saw him go into the hills in the "
- "northeast cornah uh town, you know? And he never came out. I "
- "don' know where he went! Them hills is uh dead-end! Plumb strange "
- "if'n you ask me."))
+ (say knpc "¾¯¤·Á°¤Ë¥«¥ê¥«¥ê¤·¤¿¥ä¥Ä¤¬¼ò¾ì¤Ë¤¤¤¿¤Ê¡£"
+ "¤¤ì¤¤¤Ê½÷¤ÈÏ䷤Ƥ¿¡£²¿¤«¤Ë¤Ä¤¤¤Æ¥±¥ó¥«¤·¤Æ¤¿¤È»×¤¦¡£¤½¤¤¤Ä¤¬Ä®¤ÎËÌÅì¤ÎµÖ¡¢¤É¤³¤«¤ï¤«¤ë¤«¡©¡¢¤Ø¹Ô¤¯¤Î¤ò¸«¤¿¡£"
+ "¤½¤ì¤«¤éÌá¤Ã¤Æ¤³¤Ê¤«¤Ã¤¿¡£¤É¤³¤Ø¹Ô¤Ã¤¿¤«¤Ï¤ï¤«¤é¤Í¤¨¡ª¤½¤ÎµÖ¤Ï¹Ô¤»ß¤Þ¤ê¤À¡ª"
+ "ËÜÅö¤ËÊѤÊÏ䵡£"))
(define (bill-mous knpc kpc)
- (say knpc "Therez mice all over. Jus' the other day I saw a man what "
- "scurried lak a mouse!"))
+ (say knpc "¥Í¥º¥ß¤Ï¤É¤³¤Ë¤Ç¤â¤¤¤ë¡£¥Í¥º¥ß¤ß¤Æ¤¨¤ËÁö¤ê²ó¤Ã¤Æ¤ë¥ä¥Ä¤â¸«¤¿¤è¡ª"))
+
+(define (bill-tree knpc kpc)
+ (say knpc "¿¹¤Ë¤Ï¿§¤ó¤ÊÌÚ¤¬¤¢¤ë¡£"
+ "¤Ç¤â¤è¡¢¤³¤ÎÁ°Í©ÎîÌÚ¤ò¸«¤¿¤ó¤À¤è¡ª"))
(define bill-conv
(ifc nil
- (method 'default (lambda (knpc kpc) (say knpc "[He shrugs]")))
- (method 'hail (lambda (knpc kpc) (say knpc "Hi-dee.")))
- (method 'bye (lambda (knpc kpc) (say knpc "Fare thee well.")))
+ (method 'default (lambda (knpc kpc) (say knpc "¡ÎÈà¤Ï¸ª¤ò¤¹¤¯¤á¤¿¡£¡Ï")))
+ (method 'hail (lambda (knpc kpc) (say knpc "¤è¡¼¤ª¡£")))
+ (method 'bye (lambda (knpc kpc) (say knpc "¤¸¤ã¤Þ¤¿¡£")))
(method 'job (lambda (knpc kpc)
- (say knpc "I's a woodcutter.")))
- (method 'name (lambda (knpc kpc) (say knpc "Called Bill.")))
+ (say knpc "¤ª¤ê¤ã¤¢ÌÚ¤³¤ê¤À¡£")))
+ (method 'name (lambda (knpc kpc) (say knpc "¥Ó¥ë¤È¸Æ¤Ð¤ì¤Æ¤ë¡£")))
(method 'join (lambda (knpc kpc)
- (say knpc "No, sirree! Yousa ass-kicker, "
- "and I'sa woodcutter. Not a good match, no "
- "offense.")))
+ (say knpc "¤¤¤ó¤ä¡ª¤¢¤ó¤¿¤ÏÈô¤Ó²ó¤Ã¤Æ¤ë¡¢²¶¤ÏÌÚ¤³¤ê¡£"
+ "¹ç¤ï¤Í¤¨¤è¡£°¤¯»×¤ï¤ó¤Ç¤¯¤ì¡£")))
(method 'arro bill-goods)
(method 'axe
(lambda (knpc kpc)
- (say knpc "It works better than muh knife on most trees.")))
+ (say knpc "ÌÚ¤£ÀÚ¤ë¤È¤¤ãûÅá¤è¤«¤¤¤¤¡£")))
(method 'buy bill-buy)
(method 'bole bill-bole)
(method 'chop
(lambda (knpc kpc)
- (say knpc "Ah use muh axe.")))
+ (say knpc "Éà»È¤Ã¤Æ¡£")))
(method 'fore
(lambda (knpc kpc)
- (say knpc "Yeah, the forest is plumb full o' trees. "
- "And wolves, too.")))
+ (say knpc "¤½¤¦¤µ¤¢¡¢¿¹¤Ë¤Ï¤Û¤ó¤È¤Ë¤¿¤¯¤µ¤óÌÚ¤¬¤¢¤ë¡£"
+ "¤½¤·¤Æϵ¤â¤Ê¡£")))
(method 'haun
(lambda (knpc kpc)
- (say knpc "[He leans in close and whispers] "
- "Thar's a haunted tree west o' the town. "
- "Scared the jinkins outta me! Har!")))
+ (say knpc "¡ÎÈà¤Ï¤¢¤Ê¤¿¤Ë´ó¤ê¤«¤«¤ê¡¢¾®À¼¤Ç¸À¤Ã¤¿¡£¡Ï"
+ "¤³¤ÎÄ®¤ÎÀ¾¤Ç¤â½Ð¤ë¤ó¤À¤è¡£"
+ "¤Ó¤Ó¤Ã¤Æƨ¤²¤Á¤Þ¤Ã¤¿¤è¡£¥Ï¥Ï¡ª")))
(method 'jink bill-scared)
(method 'ladi bill-lady)
(method 'lady bill-lady)
(method 'wood
(lambda (knpc kpc)
- (say knpc "I cuts down trees and chops 'em into firewood. "
- "Sometimes Ah make torches or arrows, too. Um-hm.")))
+ (say knpc "ÌÚ¤£Àڤäơ¢³ä¤Ã¤Æ¡¢¿Å¤òºî¤ë¡£"
+ "¤¢¤¢¡¢¤¢¤È¾¾ÌÀ¤äÌð¤â¡£")))
(method 'shit
(lambda (knpc kpc)
- (say knpc "Oops! Sorry. I's not supposed to say that. "
- "May's alwiz tellin' me not tuh say words lak shit and "
- "damn. Ladies don' lak that, you know.")))
+ (say knpc "¤ª¤ª¡ª¼ºÎé¡£¤½¤ó¤Ê¤³¤È¸À¤¦¤Ä¤â¤ê¤Ï¤Ê¤«¤Ã¤¿¤ó¤À¡£"
+ "¥á¥¤¤Ï¤¤¤Ä¤â²¶¤Ë¥¯¥½¤À¤ÎÃÜÀ¸¤À¤Î¸À¤¦¤Ê¤È¸À¤Ã¤Æ¤ë¡£"
+ "½÷¤Ï¤½¤¦¤¤¤¦¤Î¤Ï·ù¤¤¤À¤«¤é¤Ê¡£")))
(method 'scar bill-scared)
(method 'thie bill-thie)
(method 'mous bill-mous)
(method 'torc bill-goods)
(method 'town bill-bole)
(method 'trad bill-buy)
- (method 'tree
- (lambda (knpc kpc)
- (say knpc "There be all kinds uh trees in this forest. "
- "Why, t'other day I even came me across a haunted "
- "tree!")))
+ (method 'tree bill-tree)
+ (method 'ki bill-tree) ; ¡ÖÌڡפȡ֥(¥´¥Ö¥ê¥ó¸ì)¡×¤Î²»¤¬Æ±¤¸¤Ç¤¢¤ë¤¿¤á
(method 'wake
(lambda (knpc kpc)
- (say knpc "Aye! That old dead oak came alive! "
- "It bellered like a bull and two great eyes opened "
- "und stared right at me! Uh jumped out of my britches!"
- "I dropped muh axe and ran like nothing!")))
+ (say knpc "¤½¤¦¡ª»à¤ó¤À¸Å¤¤³ß¤ÎÌÚ¤¬À¸¤Ê֤ä¿¡ª"
+ "µí¤ß¤Æ¤¨¤Ê³Ñ¤ÈÆó¤Ä¤Î¤Ç¤Ã¤±¤¨Ìܤ¬¤¢¤Ã¤Æ¡¢²¶¤òâˤó¤Ç¤¿¡ª"
+ "¥º¥Ü¥ó¤«¤éÈô¤Ó½Ð¤·¤Æ¡¢"
+ "Éà¤âÃÖ¤¤¤Æ»à¤Ì¤Û¤ÉÁö¤Ã¤Æƨ¤²¤¿¤è¡ª")))
(method 'wolv bill-wolves)
(method 'wulv bill-wolves)
))
(kern-char-arm-self
(kern-mk-char
'ch_bill ;;......tag
- "Bill" ;;.......name
+ "¥Ó¥ë" ;;.......name
sp_human ;;.....species
nil ;;..........occupation
s_townsman ;;...sprite
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "water" pclass-deep
+ (kern-mk-terrain tag "¿å" pclass-deep
(mk-composite-sprite (cons s_shallow sprites))
trn 0 nil))
(mk-blend-terrain 't_wshore_c s_grass_se s_grass_sw s_grass_ne s_grass_nw)
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "deep water" pclass-deep
+ (kern-mk-terrain tag "¿¼¤¤¿å" pclass-deep
(mk-composite-sprite (cons s_deep sprites))
trn 0 nil))
(mk-blend-terrain 't_dshore_wes s_grass_se s_grass_sw)
(mk-blend-terrain 't_dshore_c s_grass_se s_grass_sw s_grass_ne s_grass_nw)
-(kern-mk-terrain 't_water_rocks "boulder" pclass-waterboulder
+(kern-mk-terrain 't_water_rocks "ÀÐ" pclass-waterboulder
(mk-composite-sprite (list s_shoals s_boulder_over))
lgt 0 nil)
;; Water edges
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "grass" pclass-grass
+ (kern-mk-terrain tag "ÁðÃÏ" pclass-grass
(mk-composite-sprite (cons s_shoals (cons s_grassi_c sprites)))
trn 0 nil))
(mk-blend-terrain 't_grassw_nws s_grasso_se s_grasso_ne)
(mk-blend-terrain 't_grassw_wes s_grasso_ne s_grasso_nw)
-(kern-mk-terrain 't_grassw_c "grass" pclass-shoals
+(kern-mk-terrain 't_grassw_c "ÁðÃÏ" pclass-shoals
(mk-composite-sprite (list s_shoals s_grassi_c))
trn 0 nil)
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "trees" pclass-trees
+ (kern-mk-terrain tag "ÌÚ¡¹" pclass-trees
(mk-composite-sprite (cons s_shoals (cons s_trees_c sprites)))
lgt 0 nil))
(mk-blend-terrain 't_treew_nws s_trees_se s_trees_ne)
(mk-blend-terrain 't_treew_wes s_trees_ne s_trees_nw)
-(kern-mk-terrain 't_treew_c "trees" pclass-trees
+(kern-mk-terrain 't_treew_c "ÌÚ¡¹" pclass-trees
(mk-composite-sprite (list s_shoals s_trees_c))
lgt 0 nil)
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "hills" pclass-hills
+ (kern-mk-terrain tag "µÖ" pclass-hills
(mk-composite-sprite (cons s_shoals (cons s_hills_c sprites)))
dns 0 nil))
(mk-blend-terrain 't_hillw_nws s_hills_se s_hills_ne)
(mk-blend-terrain 't_hillw_wes s_hills_ne s_hills_nw)
-(kern-mk-terrain 't_hillw_c "hills" pclass-trees
+(kern-mk-terrain 't_hillw_c "µÖ" pclass-trees
(mk-composite-sprite (list s_shoals s_hills_c))
dns 0 nil)
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "mountains" pclass-mountains
+ (kern-mk-terrain tag "»³Ì®" pclass-mountains
(mk-composite-sprite (cons s_shoals (cons s_mount_c sprites)))
opq 0 nil))
(mk-blend-terrain 't_mountw_nws s_mount_se s_mount_ne)
(mk-blend-terrain 't_mountw_wes s_mount_ne s_mount_nw)
-(kern-mk-terrain 't_mountw_c "mountains" pclass-mountains
+(kern-mk-terrain 't_mountw_c "»³Ì®" pclass-mountains
(mk-composite-sprite (list s_shoals s_mount_c))
opq 0 nil)
;; Some blended hill terrain types
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "grass" pclass-grass
+ (kern-mk-terrain tag "ÁðÃÏ" pclass-grass
(mk-composite-sprite (cons s_grass sprites))
trn 0 nil))
;; inner hill corners
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "hills" pclass-hills
+ (kern-mk-terrain tag "µÖ" pclass-hills
(mk-composite-sprite (cons s_grass (cons s_hills_c sprites)))
dns 0 nil))
(mk-blend-terrain 't_hilli_nws s_hills_se s_hills_ne)
(mk-blend-terrain 't_hilli_wes s_hills_ne s_hills_nw)
-(kern-mk-terrain 't_hilli_c "hills" pclass-trees
+(kern-mk-terrain 't_hilli_c "µÖ" pclass-trees
(mk-composite-sprite (list s_grass s_hills_c))
1 0 nil)
;; swamp corners
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "bog" pclass-hills
+ (kern-mk-terrain tag "¾ÂÃÏ" pclass-hills
(mk-composite-sprite (cons s_bog sprites))
trn 0 'terrain-effect-swamp))
;; mountain corners
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "mountains" pclass-mountains
+ (kern-mk-terrain tag "»³Ì®" pclass-mountains
(mk-composite-sprite (cons s_grass (cons s_mount_c sprites)))
opq 0 nil))
(mk-blend-terrain 't_mountg_nws s_mount_se s_mount_ne)
(mk-blend-terrain 't_mountg_wes s_mount_ne s_mount_nw)
-(kern-mk-terrain 't_mountg_c "mountains" pclass-mountains
+(kern-mk-terrain 't_mountg_c "»³Ì®" pclass-mountains
(mk-composite-sprite (list s_grass s_mount_c))
0 0 nil)
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "forest" pclass-forest
+ (kern-mk-terrain tag "¿¹" pclass-forest
(mk-composite-sprite (cons s_grass (cons s_forest_c sprites)))
hvy 0 nil))
;; void *
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "cliff edge" pclass-space
+ (kern-mk-terrain tag "Ãdz³" pclass-space
(mk-composite-sprite (cons s_null sprites))
trn 0 nil))
(mk-blend-terrain 't_voids_c s_grass_se s_grass_sw s_grass_ne s_grass_nw)
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "grass" pclass-grass
+ (kern-mk-terrain tag "ÁðÃÏ" pclass-grass
(mk-composite-sprite (cons s_null (cons s_grassi_c sprites)))
trn 0 nil))
(mk-blend-terrain 't_grassv_wes s_grasso_ne s_grasso_nw)
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "hills" pclass-hills
+ (kern-mk-terrain tag "µÖ" pclass-hills
(mk-composite-sprite (cons s_null (cons s_hills_c sprites)))
dns 0 nil))
(mk-blend-terrain 't_hillv_wes s_hills_ne s_hills_nw)
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "mountains" pclass-mountains
+ (kern-mk-terrain tag "»³Ì®" pclass-mountains
(mk-composite-sprite (cons s_null (cons s_mount_c sprites)))
opq 0 nil))
;; tree corners
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "trees" pclass-trees
+ (kern-mk-terrain tag "ÌÚ¡¹" pclass-trees
(mk-composite-sprite (cons s_trees sprites))
lgt 0 nil))
;; grass with tree corners
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "grass" pclass-grass
+ (kern-mk-terrain tag "ÁðÃÏ" pclass-grass
(mk-composite-sprite (cons s_grass sprites))
trn 0 nil))
;; lava corners
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "lava" pclass-hills
+ (kern-mk-terrain tag "ÍÏ´ä" pclass-hills
(mk-composite-sprite (cons s_lava sprites))
trn 0 'terrain-effect-lava))
;; natural stone edges
(define (mk-blend-terrain tag . sprites)
- (kern-mk-terrain tag "natural stone wall" pclass-wall
+ (kern-mk-terrain tag "¼«Á³ÀФÎÊÉ" pclass-wall
(mk-composite-sprite (cons s_nat_rock sprites))
opq 0 nil))
;;----------------------------------------------------------------------------
(kern-mk-place
'p_bole ; tag
- "Bole" ; name
+ "¥Ü¥ì" ; name
s_hamlet ; sprite
m_bole ; map
#f ; wraps
)
(kern-mk-place
'p_dryad_grove ; tag
- "Dryad Grove" ; name
+ "ÌÚ¤ÎÀº¤ÎÎÓ" ; name
nil ; sprite
m_dryad_grove ; map
#f ; wraps
;; ----------------------------------------------------------------------------
-;; books.scm -- reading material
+;; books.scm -- Æɤá¤ë¤â¤Î
;; ----------------------------------------------------------------------------
(kern-mk-sprite-set 'ss_books 32 32 2 2 0 0 "books.png")
;; player manual
(define (basic-survival-manual-commands)
(kern-ui-page-text
- "Command Summary"
- "Use the arrow keys to indicate direction."
- "Use the ESC key to cancel commands."
- "Use the first letter to start a command."
- "For detailed info see the Users Guide."
+ "Ì¿Îá°ìÍ÷"
+ "Êý¸þ¤ÏÌð°õ¥¡¼(¥Æ¥ó¥¡¼)¤Ç¼¨¤¹¡£"
+ "ESC¤ò²¡¤¹¤ÈÌ¿Îá¤òÃæÃǤ¹¤ë¡£"
+ "ÀèƬ¤Îʸ»ú¤Î¥¡¼¤ò²¡¤¹¤ÈÌ¿Îá¤ò¼Â¹Ô¤¹¤ë¡£"
+ "¾ÜºÙ¤Ï¥Þ¥Ë¥å¥¢¥ë¤òÆɤळ¤È¡£"
""
- "A)ttack something"
- "B)oard a ship or other vehicle"
- "C)ast a spell"
- "E)nter a town or dungeon"
- "F)ire a ship's cannon or other ordnance"
- "G)et something on the ground"
- "H)andle a lever or other mechanism"
- "L)oiter a few hours"
- "N)ew-Order (rearrange party order)"
- "O)pen a chest, door or other closed object"
- "Q)uit and optionally save the game"
- "R)eady arms for a party member"
- "S)earch for hidden stuff"
- "T)alk to somebody"
- "U)se an item in inventory"
- "Z)tats (show party status)"
- "X)amine around"
- "@)AT (info about place & time)"
- "<space> (pass a turn)"
- "CTRL-S)ave the game"
- "CTRL-R)eload a game"
- "SHIFT+ARROWKEY pan viewer"
+ "A)²¿¤«¤ò¹¶·â¤¹¤ë"
+ "B)Á¥¤Ê¤É¤Ë¾è¤ë"
+ "C)¼öʸ¤ò¾§¤¨¤ë"
+ "E)Ä®¤äƶ·¢¤ËÆþ¤ë"
+ "F)Á¥¤ÎÂçˤ¤Ê¤É¤Çˤ·â¤¹¤ë"
+ "G)ÃÖ¤«¤ì¤¿¤â¤Î¤ò¼è¤ë"
+ "H)¥ì¥Ð¡¼¤äµ¡³£¤òÁàºî¤¹¤ë"
+ "K)¥Ù¥Ã¥É¤ä¹ÓÌî¤ÇµÙ©¤ò¼è¤ë"
+ "L)¤·¤Ð¤é¤¯¤¦¤í¤Ä¤¯"
+ "N)½ç½ø¤òÊѹ¹¤¹¤ë"
+ "O)È¢¤äÈâ¤Ê¤É¤ò³«¤¯"
+ "Q)¥²¡¼¥à¤ò½ªÎ»¤¹¤ë"
+ "R)Éð´ï¤äËɶñ¤òÁõÈ÷¤¹¤ë"
+ "S)±£¤µ¤ì¤¿¤â¤Î¤òõ¤¹"
+ "T)狼¤ÈÏä¹"
+ "U)»ý¤Áʪ¤ò»È¤¦"
+ "Y)ǽÎϤò»È¤¦"
+ "Z)¾õÂÖ¤òɽ¼¨¤¹¤ë"
+ "X)¤¢¤¿¤ê¤òÄ´¤Ù¤ë"
+ "@)¾ì½ê¤ä»þ´Ö¤Ë¤Ä¤¤¤Æɽ¼¨¤¹¤ë"
+ "<space> ²¿¤â¤·¤Ê¤¤"
+ "CTRL-S)½ªÎ»¤»¤º¥²¡¼¥à¤òÊݸ¤¹¤ë"
+ "CTRL-R)ºÇ¸å¤ËÊݸ¤·¤¿¾õÂÖ¤òÆɤ߹þ¤à"
+ "SHIFT+¥«¡¼¥½¥ë¥¡¼ ²èÌ̤ò¥¹¥¯¥í¡¼¥ë¤¹¤ë"
+ "²ñÏÃÃæ¤Ë<Tab>¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È¡¦¥í¡¼¥Þ»ú¤ÎÀÚÂØ"
)
result-ok)
-(mk-reusable-item 't_manual "Basic Survival Manual" s_manual (/ norm 3)
+(mk-reusable-item 't_manual "À¸¤±ä¤Ó¤ë¤¿¤á¤Î¼ê°ú½ñ" s_manual (/ norm 3)
basic-survival-manual-commands)
;;----------------------------------------------------------------------------
-;; letter from enchanter
+;; ËâÆ»»Õ¤«¤é¤Î¼ê»æ
(mk-reusable-item
- 't_letter_from_enchanter "Important Letter" s_lexicon norm
+ 't_letter_from_enchanter "½ÅÍפʼê»æ" s_lexicon norm
(lambda (klexicon kuser)
(kern-ui-page-text
- "To the Wanderer -- IMPORTANT"
+ "̤¤¿Í¤Ø ¡Ý ½ÅÍ×"
""
- "It is most ^c+rcritical^c- that you FIND ME. "
- "The peasant who cares for this shrine can "
- "point the way. Beware."
+ "ºÇ¤â^c+r½ÅÍ×^c-¤Ê¤Î¤Ï¡¢»ä¤ò¸«¤Ä¤±¤ë¤³¤È¤À¡£"
+ "º×ÃŤδÉÍý¤ò¤·¤Æ¤¤¤ë¼Ô¤¬Æ»¤ò¶µ¤¨¤Æ¤¯¤ì¤ë¤À¤í"
+ "¤¦¡£"
+ "µ¤¤ò¤Ä¤±¤Æ¡£"
""
- "--Enchanter\n"
+ "¡ÝËâÆ»»Õ\n"
)
(quest-data-assign-once 'questentry-calltoarms)
result-ok))
;;----------------------------------------------------------------------------
;; book of the demon gate
(mk-reusable-item
- 't_demon_gate_book "Ragged Text" s_scroll v-hard
+ 't_demon_gate_book "¥Ü¥í¥Ü¥í¤Îʸ½ñ" s_scroll v-hard
(lambda (kbook kuser)
(kern-ui-page-text
- "THE DEMON GATE"
+ "°Ëâ¤ÎÌç"
""
- "...the Wise of old locked the Demon Gate and scattered the keys... "
- "the Shrine of the Demon Gate was not to be revealed again until the world is made ANEW... "
- "they concealed the road to the Shrine with an illusion... "
- "where there is a path, the unwise see only a mountain... "
+ "¡Ä¸Å¤¸¼Ô¤¬°Ëâ¤ÎÌç¤òÉõ°õ¤·¡¢¤½¤·¤Æ¸°¤òʬ¤±"
+ "¤¿¡Ä"
+ "°Ëâ¤ÎÌç¤Î»û±¡¤¬¸½¤ì¤ë¤³¤È¤Ï¤Ê¤¤¡£À¤³¦¤¬ºÆÀ¸¤¹"
+ "¤ë¤Þ¤Ç¤Ï¡Ä"
+ "Èà¤é¤Ï¿ÀŤؤÎÆ»¤ò¸¸³Ð¤ÇÉõ°õ¤·¤¿¡Ä"
+ "¤½¤ÎÆ»¤Ï¡¢¶ò¤«¤Ê¼Ô¤Ë¤Ï»³¡¹¤Ç¤¢¤ë¤«¤Î¤è¤¦¤Ë¸«¤¨"
+ "¤ë¡Ä"
""
- "... the River of Stars, and follow it to its source... "
+ "¡ÄÀ±¤ÎÀî¤ò¸»Î®¤Ø¤È¤¿¤É¤ì¡Ä"
""
- "...to he who opens the Gate, power unimaginable..."
+ "¡ÄÌç¤ò³«¤±¤¿¼Ô¤Ï¡¢ÁÛÁü¤òĶ¤¨¤¿ÎϤ¬¡Ä"
""
- "...Nossifer awaits."
+ "¡Ä¥Î¥·¥Õ¥¡¡¼¤¬ÂԤäƤ¤¤ë¡£"
""
- "--Fildex the Unclean\n"
+ "¡ÝÉÔ¾ô¤Ê¥Õ¥£¥ë¥Ç¥Ã¥¯¥¹\n"
)
result-ok))
;;----------------------------------------------------------------------------
-;; Kathryn's Letter
+;; ¥¥ã¥¹¥ê¥ó¤Î¼ê»æ
(mk-reusable-item
- 't_kathryns_letter "Letter" s_scroll norm
+ 't_kathryns_letter "¼ê»æ" s_scroll norm
(lambda (kletter kuser)
(kern-ui-page-text
- "Letter"
- "K,"
- "The Enchanter has one of the Runes. Acquire "
- "it by any means necessary, and leave no one "
- "to tell the tale. Not even a ghost."
- "--S")
+ "¼ê»æ"
+ "£Ë¤Ø"
+ "ËâÆ»»Õ¤ÏÀÐÈǤΰì¤Ä¤ò»ý¤Ã¤Æ¤¤¤ë¡£¤¢¤é¤æ¤ë°ÕÌ£"
+ "¤Ç¤½¤ì¤¬É¬ÍפÀ¡£¤³¤ÎÏäòÃΤäƤ¤¤ë¤â¤Î¤òÀ¸¤«"
+ "¤·¤Æ¤ª¤¤¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£Ë´Îî¤Ç¤µ¤¨¤â¤À¡£"
+ "¡Ý£Ó¤è¤ê")
result-ok))
;;----------------------------------------------------------------------------
;; The soliloquy from Hamlet:
(mk-reusable-item
- 't_playbook_hamlet "Playbook" s_scroll norm
+ 't_playbook_hamlet "µÓËÜ" s_scroll norm
(lambda (kletter kuser)
(kern-ui-page-text
- "A partial playbook"
+ "µÓËܤΰìÉô"
"To be, or not to be: that is the question:"
"Whether 'tis nobler in the mind to suffer"
;;----------------------------------------------------------------------------
;; Spell books
(mk-reusable-item
- 't_ylem_an_ex_book "spell book: YAE" s_manual hard
+ 't_ylem_an_ex_book "¼öʸ½ñ: YAE" s_manual hard
(lambda (kletter kuser)
(kern-ui-page-text
- "Web Spell- Ylem An Ex"
+ "ÌÖ - Ylem An Ex"
""
- "A useful spell for beginning spellcasters, "
- "web allows a distant opponent to be "
- "entangled and made helpless for a short "
- "period of time."
+ "½é¿´¼Ô¤Î¤¿¤á¤ÎÊØÍø¤Ê¼öʸ"
+ "Ì֤DZ󤯤ÎŨ¤òÊá¤é¤¨¡¢¾¯¤·¤Î´Ö¿ÈÆ°¤¤¬¼è¤ì¤Ê"
+ "¤¤¤è¤¦¤Ë¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£"
""
- "If used correctly, it can also block an "
- "area with webs temporarily, although this is "
- "hard for novices to achieve."
+ "¤¦¤Þ¤¯»È¤¨¤Ð¡¢Ì֤ǰì»þŪ¤ËÄÌÏ©¤òºÉ¤°¤³¤È¤â¤Ç"
+ "¤¤ë¡£½é¿´¼Ô¤Ë¤ÏÆñ¤·¤¤¤«¤â¤·¤ì¤Ê¤¤¤¬¡£"
""
- "The spell requires spider silk, of course, "
- "and also black pearl, to project the web at "
- "the desired target."
+ "¤³¤Î¼öʸ¤Ë¤Ï¡¢¤â¤Á¤í¤óÃØéá¤Î»å¤¬É¬ÍפÀ¤¬¡¢ÌÜ"
+ "ɸ¤Ë¸þ¤«¤Ã¤ÆÈô¤Ð¤¹¤¿¤á¤Ë¹õ¿¿¼î¤âɬÍפǤ¢¤ë¡£"
""
- "With the appropriate mixture, intone "
- "Ylem An Ex (Matter to Negate Freedom) and "
- "hurl the net of web at your foe."
+ "Àµ¤·¤¯Ä´¹ç¤·¤¿¤é¡¢Ylem An Ex(ʪÂΡ¦µÕ¡¦¼«Í³)"
+ "¤È¾§¤¨¡¢ÌÖ¤òŨ¤Ë¸þ¤«¤Ã¤Æȯ¼Í¤¹¤ë¤³¤È¡£"
)
result-ok))
(mk-reusable-item
- 't_bet_flam_hur_book "spell book: BFH" s_manual hard
+ 't_bet_flam_hur_book "¼öʸ½ñ: BFH" s_manual hard
(lambda (kletter kuser)
(kern-ui-page-text
- "Fire Spray- Bet Flam Hur"
+ "²Ð̸ - Bet Flam Hur"
""
- "While the effectiveness of the Flame Wind spell is renowned, it is difficult to cast, exhausting, and well beyond the means of all but the greatest mages."
+ "±êÉ÷¤Î¼öʸ¤Î¸ú²Ì¤ÏÀäÂç¤À¤¬¡¢¾§¤¨¤ë¤Î¤¬Æñ¤·¤¯"
+ "¤Þ¤¿¾ÃÌפ¬·ã¤·¤¤¤¿¤á¡¢°ìÉô¤ò½ü¤¯¤Û¤È¤ó¤É¤ÎËâ"
+ "½Ñ»Õ¤ÎǽÎϤòĶ¤¨¤ë¤â¤Î¤Ç¤¢¤ë¡£"
""
- "The Fire Spray spell is an adaption of the Flame Wind spell to more modest requirements. While it cannot be cast by an absolute beginner, it requires minimal ability. The effectiveness of the spell increases, of course, with the caster's ability."
+ "¤³¤Î²Ð̸¤Î¼öʸ¤Ï¡¢±êÉ÷¤Î¼öʸ¤ò´ÊÁǤ˺ƹ½À®¤·"
+ "¤¿¤â¤Î¤Ç¤¢¤ë¡£¤â¤Á¤í¤ó¾§¤¨¤ë¼Ô¤ÎǽÎϤ¬¹â¤¤¤Û"
+ "¤É¸ú²Ì¤¬Áý¤¹¡£"
""
- "The Fire Spray spell has a limited range- not much greater than a polearm- and does not have sufficient power to leave the blazing fields associated with the Flame Wind spell."
+ "²Ð̸¤Î¼öʸ¤ÎÈϰϤÏĹÊÁÉð´ï¤ÈÈæ¤Ù¤Æ¤â¤½¤ì¤Û¤É"
+ "¹¤¯¤Ï¤Ê¤¤¡£¤µ¤é¤Ë±êÉ÷¤Î¼öʸ¤Î¤è¤¦¤Ë¾ì¤Ë±ê¤Î"
+ "ÎϤò»Ä¤¹¤³¤È¤Ï¤Ç¤¤Ê¤¤¡£"
""
- "The spell requires sulphurous ash to power the flame. The initial launch of the spell is provided by black pearl, and blood moss instills the motion of the spreading cone of fire."
+ "¤³¤Î¼öʸ¤Ë¤Ï¡¢±ê¤ÎÎϤΤ¿¤á¤Îⲫ¤Î³¥¡¢ºÇ½é¤Î"
+ "ȯư¤Î¤¿¤á¤Î¹õ¿¿¼î¡¢¤½¤·¤Æ±ê¤ò±ß¿í¾õ¤Ë¹¤²¤ë"
+ "¤¿¤á¤Î·ì¤ÎÂݤ¬É¬ÍפǤ¢¤ë¡£"
""
- "With this mixture, intone Bet Flam Hur (Small Fire Wind) and direct the cone to engulf your foes."
+ "Ä´¹ç¤·¤¿¤é¡¢Bet Flam Hur(¾®¡¦²Ð¡¦É÷)¤È¾§¤¨¡¢"
+ "Ũ¤ò´¬¤¹þ¤à±ß¿í¤ÎÊý¸þ¤ò»Ø¼¨¤¹¤ë¤³¤È¡£"
)
result-ok))
(mk-reusable-item
- 't_ranger_orders "Ranger orders" s_scroll norm
+ 't_ranger_orders "·ÙÈ÷ÂâĹ̿Îá½ñ" s_scroll norm
(lambda (kletter kuser)
(kern-ui-page-text
- "Ranger Orders"
+ "·ÙÈ÷ÂâĹ̿Îá"
""
- "The bearer of this letter may conscript "
- "one (1) ranger into limited temporary "
- "service.")
+ "¤³¤ÎÌ¿Îá½ñ¤ò»ý¤Ä¼Ô¤Ï¡¢·ÙÈ÷Ââ°÷°ì̾¤ò°ì»þŪ¤Ë»Ø"
+ "´ø²¼¤ËÃÖ¤¯¤³¤È¤¬¤Ç¤¤ë¡£")
result-ok))
(mk-reusable-item
- 't_prisoner_receipt "Prisoner Receipt" s_scroll norm
+ 't_prisoner_receipt "¼ýÍƾÚÌÀ½ñ" s_scroll norm
(lambda (kletter kuser)
(kern-ui-page-text
- "Prisoner Receipt"
+ "¼ýÍƾÚÌÀ½ñ"
""
- "The bearer of this letter has delivered "
- "one (1) prisoner to the gaoler.")
+ "¤³¤Î¾ÚÌÀ½ñ¤Ï°ì¿Í¤Î¼ü¿Í¤ò´Ç¼é¤ËÅϤ·¤¿¤³¤È¤ò¾ÚÌÀ"
+ "¤¹¤ë¤â¤Î¤Ç¤¢¤ë¡£")
result-ok))
;;;;;;;;;;;;;;;;;;;; White Magick ;;;;;;;;;;;;;;;;;;;;
(mk-reusable-item
- 't_spell_book_white_magick_1 "White Magick: Booke I" s_manual (/ norm 3)
+ 't_spell_book_white_magick_1 "ÇòËâË¡: Âè°ì´¬" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "White Magick: Booke I"
- "Spells of Healing, of the First Circle"
- "+-----------------------------------------+"
- "| M)ix thy reagents to craft a spell, |"
- "| then C)ast it in thine hour of need. |"
- "| Through lore of WHITE shall ye HEAL, |"
- "| though as ye MEND be ye yet WISE! |"
- "+-----------------------------------------+"
- "- Mix Ginseng and Garlic"
- ""
- "- Mix Ginseng and Garlic"
- ""
- "Minor Healing <MANI>"
- "- Mix Ginseng and Spider Silk"
+ "ÇòËâË¡: Âè°ì´¬"
+ "¼£Ìþ¤Î¼öʸ¡¢Âè°ì¿Ø"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡¡¡¡¡¡¡¡¡¡¡M¤ÇÈëÌô¤òÄ´¹ç¤»¤è¡¡¡¡¡¡¡¡¡¡ ¨¢"
+ "¨¢¡¡¡¡¡¡¡¡¤·¤«¤ë¤Ù¤¤È¤¤ËC¤Ç¾§¤¨¤è¡¡¡¡¡¡ ¨¢"
+ "¨¢¡¡¡¡¡¡¡¡¡¡Çò¤ÏÆò¤òÌþ¤¹¤Ç¤¢¤í¤¦¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡ ¤µ¤Û¤É¤ÎÃ챤ÏÍפé¤Ì¡ª¡¡¡¡¡¡¡¡ ¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "- ¿Í»²¡¢ÂçÉÇ"
+ ""
+ "- ¿Í»²¡¢ÂçÉÇ"
+ ""
+ "¾®²óÉü <MANI>"
+ "- ¿Í»²¡¢ÃØéá¤Î»å"
)
result-ok))
(mk-reusable-item
- 't_spell_book_white_magick_2 "White Magick: Booke II" s_manual (/ norm 3)
+ 't_spell_book_white_magick_2 "ÇòËâË¡: Âè¥Ë´¬" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "White Magick: Booke II"
- "Spells of Healing and Protection"
- "+-----------------------------------------+"
- "| The Lore ye know to Mix and Cast. |"
- "| Well-served by these chants be. |"
- "| Yet forget not, oh Wise, of Duty, |"
- "| to Heal all which come to thee. |"
- "+-----------------------------------------+"
- "Poison Ward <SANCT NOX>"
- "- Mix Garlic, Nightshade and Royal Cape"
- ""
- "Fire Ward <IN FLAM SANCT>"
- "- Mix Sulphurous Ash, Garlic, "
- "- and forget ye not: [SMUDGED WORD]"
- ""
- "Dispel Magic <An Ort Xen>"
- "- Mix Sulphurous Ash, Garlic, Mandrake"
- ""
- "Protection <IN SANCT>"
- "- Mix Sulphurous Ash, Garlic, Ginseng"
- ""
- "Mass Cure Poison <VAS AN NOX>"
- "- Mix Garlic, Ginseng, Mandrake"
- ""
- "Great Heal <VAS MANI>"
- "- Mix Ginseng, Spider Silk, Mandrake"
+ "ÇòËâË¡: ÂèÆó´¬"
+ "¼£Ìþ¤ÈÊݸî¤Î¼öʸ"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡¡¡¡¡Ä´¹ç¤È±Ó¾§¤Î¸À¤¤ÅÁ¤¨¤òÃΤ졡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¾§¤¨¤ì¤Ð¿¤¯¤Î±×¤¬ÆÀ¤é¤ì¤ë¤Ç¤¢¤í¤¦¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¤À¤¬Ëº¤ì¤ë¤Ê¡¡»×θ¤ÈÀÕ̳¤ò¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡Íè¤ë¤â¤ÎÁ´¤Æ¤ËÌþ¤·¤òÍ¿¤¨¤è¡¡¡¡¡¡¡¡¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "ÂÑÆÇ <Sanct Nox>"
+ "- ÂçÉÇ¡¢¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥í¥¤¥ä¥ë¥±¡¼¥×Âû"
+ ""
+ "ÂѲР<In Flam Sanct>"
+ "- ⲫ¤Î³¥¡¢ÂçÉÇ¡¢[±ø¤ì]"
+ ""
+ "æËâË¡ <An Ort Xen>"
+ "- ⲫ¤Î³¥¡¢ÂçÉÇ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "Êݸî <IN SANCT>"
+ "- ⲫ¤Î³¥¡¢ÂçÉÇ¡¢¿Í»²"
+ ""
+ "Á´²òÆÇ <VAS AN NOX>"
+ "- ÂçÉÇ¡¢¿Í»²¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "Âç²óÉü <VAS MANI>"
+ "- ¿Í»²¡¢ÃØéá¤Î»å¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
)
result-ok))
(mk-reusable-item
- 't_spell_book_white_magick_3 "White Magick: Booke III" s_manual (/ norm 3)
+ 't_spell_book_white_magick_3 "ÇòËâË¡: Âè»°´¬" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "White Magick: Booke III"
- "Spells of Healing, of High Magick"
- "+-----------------------------------------+"
- "| Mix ye now, and Crowned Master, Cast! |"
- "| But beckon, Power to thee hastens! |"
- "| If ye be Wise, then act ye thus: |"
- "| KAL WIS - IN MANI - AN CORP - ZU QUAS |"
- "+-----------------------------------------+"
- "Mass Cure Poison <VAS AN NOX>"
- "- Mix Ginseng, Garlic, Mandrake"
+ "ÇòËâË¡: Âè»°´¬"
+ "¹â°Ì¤Î¼£Ìþ¤ÎËâË¡"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡º£Ä´¹ç¤»¤è¡¡¤½¤·¤Æ´§¤Î¼ç¤è¡¡¾§¤¨¤è¡ª¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¤À¤¬¾·¤´ó¤»¤è¡¡ÁÇÁᤤÎϤò¡ª¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡Æò¤¬¸¤±¤ì¤Ð¤Ç¤¤ë¤Ç¤¢¤í¤¦¡¡¡¡¡¡¡¡¨¢"
+ "¨¢ KAL WIS - IN MANI - AN CORP - ZU QUAS ¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "Á´²òÆÇ <VAS AN NOX>"
+ "- ¿Í»²¡¢ÂçÉÇ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
""
- "Mass Poison Ward <VAS SANCT NOX>"
- "- Mix Garlic, Nightshade, Mandrake and Royal Cape"
+ "Á´ÂÑÆÇ <VAS SANCT NOX>"
+ "- ÂçÉÇ¡¢¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯¡¢"
+ " ¥í¥¤¥ä¥ë¥±¡¼¥×Âû"
""
- "Great Heal <VAS MANI>"
- "- Mix Ginseng, Spider Silk, Mandrake"
+ "Âç²óÉü <VAS MANI>"
+ "- ¿Í»²¡¢ÃØéá¤Î»å¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
""
""
- "--------------- HIGH MAGICK --------------"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡ ¹â°Ì¤ÎËâË¡ ¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
""
- "Resurrection <IN MANI CORP>"
- "- Mix Ginseng, Garlic, Spider Silk"
- "- Sulphurous Ash, Blood Moss, Mandrake"
+ "ÁÉÀ¸ <IN MANI CORP>"
+ "- ¿Í»²¡¢ÂçÉÇ¡¢ÃØéá¤Î»å¡¢Î²²«¤Î³¥¡¢·ì¤ÎÂÝ¡¢"
+ " ¥Þ¥ó¥É¥ì¥¤¥¯"
""
- " -- Slay not that which should live! -- "
- " -- Raise not that which ought rest! -- "
+ " ¡ÝÀ¸¤¤ë¤Ù¤¼Ô¤ò»¦¤·¤Æ¤Ï¤Ê¤é¤Ì¡ª¡Ý"
+ " ¡ÝµÙ¤à¤Ù¤¼Ô¤òÁɤ餻¤Æ¤Ï¤Ê¤é¤Ì¡ª¡Ý"
)
result-ok))
;;;;;;;;;;;;;;;;;;;; Force Magick ;;;;;;;;;;;;;;;;;;;;
(mk-reusable-item
- 't_spell_book_force_magick_12 "Magick of Force: Booke I" s_manual (/ norm 3)
+ 't_spell_book_force_magick_12 "°ÒÎÏ: Âè°ì´¬" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Magick of Force: Booke I"
- "Spells of Might, of the Circles I, II "
- "+-----------------------------------------+"
- "| M)ix thy reagents to craft a spell, |"
- "| then C)ast it in thine hour of need. |"
- "| By FORCE shall thy foes know FEAR, |"
- "| yet FOOLS thus casting shall know WOE! |"
- "+-----------------------------------------+"
- "Spells of the Circle I:"
- "-----------------------"
- "Magic Missile <GRAV POR>"
- "- Mix Sulphurous Ash and Black Pearl"
- ""
- "Light <IN LOR>"
- "- Mix Sulphurous Ash"
- ""
- "------------------------"
- "Spells of the Circle II:"
- "------------------------"
- "Change Wind <REL HUR>"
- "- Mix Sulphurous Ash and Blood Moss"
- ""
- "Fire Spray <BET FLAM HUR>"
- "- Mix Sulphurous Ash, Blood Moss, "
- "- and Black Pearl"
- ""
- "Poison Bolt <IN NOX POR>"
- "- Mix Nightshade, Blood Moss, "
- "- and Black Pearl"
+ "°ÒÎÏ: Âè°ì´¬"
+ "ÎϤμöʸ¡¢Âè°ì¿Ø¡¢ÂèÆó¿Ø"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢ M¤ÇÈëÌô¤òÄ´¹ç¤»¤è ¨¢"
+ "¨¢ ¤·¤«¤ë¤Ù¤¤È¤¤ËC¤Ç¾§¤¨¤è ¨¢"
+ "¨¢ ÎϤÏŨ¤Ë¶²ÉݤòÃΤ餷¤á¤ë ¨¢"
+ "¨¢ Æò¤¬¶ò¤«¤Ç¤â¼öʸ¤Ï¶ìÄˤòÍ¿¤¨¤ë¡ª ¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "Âè°ì¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "ËâË¡¤ÎÌð <GRAV POR>"
+ "- ⲫ¤Î³¥¡¢¹õ¿¿¼î"
+ ""
+ "¸÷ <IN LOR>"
+ "- ⲫ¤Î³¥"
+ ""
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "ÂèÆó¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "É÷ÊѲ½ <REL HUR>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ"
+ ""
+ "²Ð̸ <BET FLAM HUR>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ¡¢¹õ¿¿¼î"
+ ""
+ "ÆÇ·â <IN NOX POR>"
+ "- ¥Ê¥¤¥È¥·¥§¥¤¥É¡¢·ì¤ÎÂÝ¡¢¹õ¿¿¼î"
)
result-ok))
(mk-reusable-item
- 't_spell_book_force_magick_battle "Magick of Force: Of Battle" s_manual (/ norm 3)
+ 't_spell_book_force_magick_battle "°ÒÎÏ: ÀïÆ®" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Magick of Force: Of Battle"
- "+-----------------------------------------+"
- "| Battle near: Chant runes and Mix |"
- "| Battle on: Cast and hurl |"
- "| Thy foes know pain, and death indeed |"
- "| Yet wield ye but Might, or be ye Wise? |"
- "+-----------------------------------------+"
- "Spells of the Circle I:"
- "-----------------------"
- "Magic Missile <GRAV POR>"
- "- Mix Sulphurous Ash and Black Pearl"
- ""
- "Lightning Bolt <ORT GRAV>"
- "- Mix Sulphurous Ash, Black Pearl, Mandrake"
- ""
- "-------------------------"
- "Spells of the Circle III:"
- "-------------------------"
- "Fire Ball <VAS FLAM>"
- "- Mix Sulphurous Ash, Black Pearl"
- ""
- "Fire Ward <IN FLAM SANCT>"
- "- Mix Sulphurous Ash, [CHARRED WORD], "
- "- and forget ye not: Royal [ASHY SMUDGE]"
- ""
- "------------------------"
- "Spells of the Circle VI:"
- "------------------------"
- "Tremor <IN VAS POR YLEM>"
- "- Mix Sulphurous Ash, Blood Moss, Mandrake"
+ "°ÒÎÏ: ÀïÆ®"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡¡¡¡¡¡¡ÀïÆ®½àÈ÷¡¡±Ó¾§¤·Ä´¹ç¤»¤è¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡ÀïÆ®³«»Ï¡¡¾§¤¨Íá¤Ó¤»¤è¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡Å¨¤Ï¶ìÌå¤Î¤¦¤Á¤Ë»à¤Ì¤Ç¤¢¤í¤¦¡¡¡¡¡¡¨¢"
+ "¨¢¶¯ÎϤÀ¤¬Æò¤Ë¤Ïº¤Æñ¤«¡¡¤½¤ì¤È¤âÆò¤ÏÁïÌÀ¤«¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "Âè°ì¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "ËâË¡¤ÎÌð <GRAV POR>"
+ "- ⲫ¤Î³¥¡¢¹õ¿¿¼î"
+ ""
+ "Íë·â <ORT GRAV>"
+ "- ⲫ¤Î³¥¡¢¹õ¿¿¼î¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "Âè»°¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "²Ðµå <VAS FLAM>"
+ "- ⲫ¤Î³¥¡¢¹õ¿¿¼î"
+ ""
+ "ÂѲР<IN FLAM SANCT>"
+ "- ⲫ¤Î³¥¡¢[¾Ç¤²]¡¢¥í¥¤¥ä¥ë[³¥¤Î±ø¤ì]"
+ ""
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "ÂèÏ»¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "ÃÏ¿Ì <IN VAS POR YLEM>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
)
result-ok))
(mk-reusable-item
-'t_spell_book_force_magick_winds "Magick of Force: Deadly Winds" s_manual (/ norm 3)
+'t_spell_book_force_magick_winds "°ÒÎÏ: »à¤ÎÉ÷" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Magick of Force: Deadly Winds"
- "+-----------------------------------------+"
- "| For Wind ye shall Mix, for Wind Cast! |"
- "| Thy foe, sleeping, shall know naught, |"
- "| Thy foe, struck, shall burn or fester, |"
- "| Yet, can ye Change the Wind? |"
- "| For what Wind changes not, blows not. |"
- "| Shall ye then have Changed it? |"
- "+-----------------------------------------+"
- "Spells of the Circle I and II:"
- "------------------------------"
- "Conjure Smoke <Bet Ylem Hur>"
- "- Mix Sulphurous Ash"
- ""
- "Change Wind <REL HUR>"
- "- Mix Sulphurous Ash, Blood Moss"
- ""
- "Fire Spray <BET FLAM HUR>"
- "- Mix Sulphurous Ash, Blood Moss, "
- "- and Black Pearl"
- ""
- "-------------------------"
- "Spells of the Circle VII:"
- "-------------------------"
- "Wind of Sleep <IN ZU HUR>"
- "- Mix Ginseng, Blood Moss, Mandrake"
- ""
- "Poison Wind <IN NOX HUR>"
- "- Mix Sulphurous Ash, Blood Moss, "
- "- and Nightshade"
- ""
- "--------------------------"
- "Spells of the Circle VIII:"
- "--------------------------"
- "Flame Wind <IN FLAM HUR>"
- "- Mix Sulphurous Ash, Blood Moss, "
- "- and Mandrake"
+ "°ÒÎÏ: »à¤ÎÉ÷"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡É÷¤Î¤¿¤á¤ËÄ´¹ç¤»¤è¡¡É÷¤Î¤¿¤á¤Ë¾§¤¨¤è¡ª¨¢"
+ "¨¢¡¡Æò¤ÎŨ¤Ï̲¤ê¡¡ÌµÎϤµ¤òÃΤë¤Ç¤¢¤í¤¦¡¡¡¡¨¢"
+ "¨¢¡¡Æò¤ÎŨ¤ÏÂǤ¿¤ì¡¡¾Æ¤«¤ì¡¡¶ì¤·¤à¤Ç¤¢¤í¤¦¨¢"
+ "¨¢¡¡¡¡¤À¤¬¡¡Æò¤ÏÉ÷¤Î¸þ¤¤òÊѤ¨¤ë¤Ù¤¤«¡©¡¡¨¢"
+ "¨¢É÷¤Î¸þ¤¤òÊѤ¨¤ëɬÍפ¬¤Ê¤±¤ì¤Ð¡¡ÊѤï¤é¤º¨¢"
+ "¨¢¡¡¡¡¡¡¡¡¡¡¤½¤ì¤Ç¤âÊѤ¨¤ë¤«¡©¡¡¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "Âè°ì¿Ø¡¢ÂèÆó¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "±ìËë <BET YLEM HUR>"
+ "- ⲫ¤Î³¥"
+ ""
+ "É÷ÊѲ½ <REL HUR>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ"
+ ""
+ "²Ð̸ <BET FLAM HUR>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ¡¢¹õ¿¿¼î"
+ ""
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "Âè¼·¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "ºÅ̲É÷ <IN ZU HUR>"
+ "- ¿Í»²¡¢·ì¤ÎÂÝ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "ÆÇÉ÷ <IN NOX HUR>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ¡¢¥Ê¥¤¥È¥·¥§¥¤¥É"
+ ""
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "ÂèȬ¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "±êÉ÷ <IN FLAM HUR>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
)
result-ok))
(mk-reusable-item
-'t_spell_book_force_magick_matter "Magick of Force: Upon Matter" s_manual (/ norm 3)
+'t_spell_book_force_magick_matter "°ÒÎÏ: ÌäÂê²ò·è" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Magick of Force: Upon Matter"
- "+-----------------------------------------+"
- "| Mix and Cast, by Force control Matter. |"
- "| Powers subtle and grand both wield. |"
- "| If ye be wise then riddle this rede: |"
- "| What secret, steel? (Flesh is soft) |"
- "| What sound, one hand? (Butterfly) |"
- "+-----------------------------------------+"
- "Spells of the Circles I and II:"
- "-------------------------------"
- "
Disarm Trap <AN SANCT YLEM>"
- "- Mix Blood Moss"
- ""
- "- Mix Sulphurous Ash, Blood Modd"
- ""
- "Lock <SANCT>"
- "- Mix Sulphurous Ash, Spider Silk"
- ""
- "Change Wind <REL HUR>"
- "- Mix Sulphurous Ash, Blood Moss"
- ""
- "------------------------"
- "Spells of the Circle VI:"
- "------------------------"
- "Tremor <IN VAS POR YLEM>"
- "- Mix Sulphurous Ash, Blood Moss, Mandrake"
- ""
- "Telekinesis <IN REL POR>"
- "- Mix Spider Silk, Blood Moss, Black Pearl"
- ""
- "----------------"
- "[Scrawled Notes]"
- "----------------"
- "Raise Matter Above Water <VAS UUS YLEM>"
- "- Trial 1: Mix Ash, Pearl, Mandrake ???"
- "- Trial 2: Mix [CHARRED], Eye of Newt ?"
- "- Gazer eyes? Dragon spleen? Ogre spittle?"
+ "°ÒÎÏ: ÌäÂê²ò·è"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡¡¡Ä´¹ç¤·¾§¤¨¤è¡¡ÎϤÏÌäÂê¤ò»ÙÇÛ¤¹¤ë¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡ÎϤϾ®¤«¤éÂç¤Þ¤Ç°·¤¨¤ë¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢Æò¤¬ÁïÌÀ¤Ê¤é¡¡¤³¤ÎÃé¹ð¤¬¤ï¤«¤ë¤Ç¤¢¤í¤¦¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡Å´¤ÎÈëÌ©¤Ï¡©¡Ê½À¤é¤«¤ÊÆù¡Ë¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡ÊÒÏӤβ»¤Ï¡©¡Êij¡Ë¡¡¡¡¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "Âè°ì¿Ø¡¢ÂèÆó¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "
櫲ò½ü <AN SANCT YLEM>"
+ "- ·ì¤ÎÂÝ"
+ ""
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ"
+ ""
+ "»Ü¾û <SANCT>"
+ "- ⲫ¤Î³¥¡¢ÃØéá¤Î»å"
+ ""
+ "É÷ÊѲ½ <REL HUR>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ"
+ ""
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "ÂèÏ»¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "ÃÏ¿Ì <IN VAS POR YLEM>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "Ç°ÎÏ <IN REL POR>"
+ "- ÃØéá¤Î»å¡¢·ì¤ÎÂÝ¡¢¹õ¿¿¼î"
+ ""
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "[Áö¤ê½ñ¤]"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "°úÍÈ <VAS UUS YLEM>"
+ "- »î¤ß£±¡§³¥¡¢¿¿¼î¡¢¥Þ¥ó¥É¥ì¥¤¥¯¡©¡©¡©"
+ "- »î¤ß£²¡§[¾Ç¤²]¡¢¥¤¥â¥ê¤ÎÌÜ¡©"
+ "- ¥²¥¤¥¶¡¼¤ÎÌÜ¡©Îµ¤Îç£Â¡¡©¥ª¡¼¥¬¤ÎÂá©"
)
result-ok))
(mk-reusable-item
-'t_spell_book_force_magick_mechanismus "Magick of Force: Mechanismus" s_manual (/ norm 3)
+'t_spell_book_force_magick_mechanismus "°ÒÎÏ: µ¡³£¡¦ÁõÃÖ" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Magick of Force: Mechanismus"
- "+-----------------------------------------+"
- "| Knowing, Mix, and with craft, Cast! |"
- "| Fear ye luggage? Chest dangers, past! |"
- "| Keys bereft? Claviger be thou despite! |"
- "| Glowing portal bar not this wight! |"
- "| Keep in tempo, keep in vogue |"
- "| Keep in Time (or its Lord) |"
- "| With such runes, let no wrogue |"
- "| snatch the closing [MISSING WORD] |"
- "+-----------------------------------------+"
- "Spells of the Circles I and II:"
- "-------------------------------"
- "
Disarm Trap <An Sanct Ylem>"
- "- Mix Blood Moss"
- ""
- "- Mix Sulphurous Ash, Blood Moss"
- ""
- "Lock <Sanct>"
- "- Mix Sulphurous Ash, Spider Silk"
- ""
- "-----------------------"
- "Spells of the Circle V:"
- "-----------------------"
- "Magic Unlock <In Ex Por>"
- "- Mix Sulphurous Ash, Blood Moss"
- ""
- "
Magic Lock <An Ex Por>"
- "- Mix Sulphurous Ash, Garlic, Blood Moss"
+ "°ÒÎÏ: µ¡³£¡¦ÁõÃÖ"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡¡¡¡¡¡¡¡¡ÃΡ¡Ä´¹ç¡¡Êª¡¡±Ó¾§¡ª¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¶²¤ë¤Ù¤æ«¡©¤½¤Î¶¼°Ò¤Ï²á¤®µî¤ë¡ª¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡¸°¤¬¤Ê¤¤¡©¤À¤¬¤½¤ì¤Ï³«¤¯¡ª¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¸÷¤òÊü¤Ä¤«¤ó¤Ì¤¤Ï̵ÎϤǤ¢¤ë¡ª¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡¡¡Â®¤µ¤òÊݤơ¡Î®¹Ô¤òÊݤơ¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡»þ´Ö¤òÊݤÆ(¤¢¤ë¤¤¤Ï¤½¤Î·¯¼ç¤ò)¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¤³¤Î¼öʸ¤¬¤¢¤ì¤Ð¡¡ÊĤ¸¤¿¡©¡©¡©¤ò¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡¡¡Ã¥¤¦¤Ê¤é¤º¼Ô¤Ï¤¤¤Ê¤¤¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "Âè°ì¿Ø¡¢ÂèÆó¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "
櫲ò½ü <An Sanct Ylem>"
+ "- ·ì¤ÎÂÝ"
+ ""
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ"
+ ""
+ "»Ü¾û <Sanct>"
+ "- ⲫ¤Î³¥¡¢ÃØéá¤Î»å"
+ ""
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "Âè¸Þ¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "Éõ°õ²ò½ü <In Ex Por>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ"
+ ""
+ "- ⲫ¤Î³¥¡¢ÂçÉÇ¡¢·ì¤ÎÂÝ"
)
result-ok))
(mk-reusable-item
-'t_spell_book_force_magick_fields "Magick of Force: Upon Fields" s_manual (/ norm 3)
+'t_spell_book_force_magick_fields "°ÒÎÏ: Îΰè" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Magick of Force: Upon Fields"
- "+-----------------------------------------+"
- "| Mix and Cast, by powers form Fields. |"
- "| Conjure Sleep, Poison, Fire, or Force, |"
- "| or should such bar ye, then Dispel. |"
- "| IN GRAV - AN POR - AN GRAV - EX POR |"
- "+-----------------------------------------+"
- "Spells of the Circle III:"
- "-------------------------"
- "Sleep Field <In Zu Grav>"
- "- Mix Ginseng, Spider Silk, Black Pearl"
- ""
- "Poison Field <In Nox Grav>"
- "- Mix Spider Silk, Black Pearl, Nightshade"
- ""
- "Fire Field <In Flam Grav>"
- "- Mix Sulphurous Ash, Spider Silk, "
- "- Black Pearl"
- ""
- "------------------------"
- "Spells of the Circle IV:"
- "------------------------"
- "Force Field <In Sanct Grav>"
- "- Mix Spider Silk, Black Pearl, Mandrake"
- ""
- "Dispel Field <An Grav>"
- "- Mix Sulphurous Ash, Black Pearl"
+ "°ÒÎÏ: Îΰè"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡¡¡¡¡¡¡¡¡Ä´¹ç¤·¾§¤¨¤è¡¡¾ì¤ËÎϤò¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡¡¡¡¡Ì²¤ê¡¡ÆÇ¡¡±ê¡¡Íë¡¡¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¤¢¤ë¤¤¤ÏÆò¤òÁˤà¾ì¤ò¾Ã¤·µî¤ì¡¡¡¡¡¡¨¢"
+ "¨¢ IN GRAV - AN POR - AN GRAV - EX POR ¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "Âè»°¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "ºÅ̲¾ì <In Zu Grav>"
+ "- ¿Í»²¡¢ÃØéá¤Î»å¡¢¹õ¿¿¼î"
+ ""
+ "ÆǾì <In Nox Grav>"
+ "- ÃØéá¤Î»å¡¢¹õ¿¿¼î¡¢¥Ê¥¤¥È¥·¥§¥¤¥É"
+ ""
+ "²Ð±ê¾ì <In Flam Grav>"
+ "- ⲫ¤Î³¥¡¢ÃØéá¤Î»å¡¢¹õ¿¿¼î"
+ ""
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "Âè»Í¿Ø:"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "¾ãÊÉ <In Sanct Grav>"
+ "- ÃØéá¤Î»å¡¢¹õ¿¿¼î¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "æËâË¡¾ì <An Grav>"
+ "- ⲫ¤Î³¥¡¢¹õ¿¿¼î"
)
result-ok))
(mk-reusable-item
-'t_spell_book_force_magick_high_magick "Magick of Force: High Magick" s_manual (/ norm 3)
+'t_spell_book_force_magick_high_magick "°ÒÎÏ: ¾åµéËâË¡" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Magick of Force: High Magick"
- "+-----------------------------------------+"
- "| BE WARE, be ye not Mighty in deed! |"
- "| BEWARE, be ye not Wise indeed! |"
- "| Written here are runes of HIGH MAGICK |"
- "| If ye be a FOOL, ye shall know DEATH |"
- "| Yet if you would, here is graven POWER |"
- "+-----------------------------------------+"
- "Circle VI - Negate Magic <In An>"
- "- Mix Sulphurous Ash, Garlic, Mandrake"
- ""
- "Circle VII - Death Bolt <Xen Corp>"
- "- Mix Black Pearl, Mandrake"
- ""
- "Circle VIII - Death Wind <In Vas Grav Corp>"
- "- Mix Sulphurous Ash, Nighthsade, Mandrake"
- ""
- "
Circle VIII - Time Stop <An Tym>"
- "- Mix Garlic, Blood Moss, Mandrake"
+ "°ÒÎÏ: ¾åµéËâË¡"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡¡¡ÍÑ¿´¤»¤è¡¡Æò¤Ï¤½¤ì¤Û¤É¶¯¤¯¤Ê¤¤¡ª¡¡¡¡¨¢"
+ "¨¢¡¡¡¡ÍÑ¿´¤»¤è¡¡Æò¤ÏËÜÅö¤Ï¸¤¯¤Ê¤¤¡ª¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¤³¤³¤Ë½ñ¤«¤ì¤·¤Ï¹â°Ì¤ÎËâË¡¤Ç¤¢¤ë¡¡¡¡¨¢"
+ "¨¢¡¡¡¡Æò¤¬¶ò¤«¤Ê¤é¡¡Æò¤Ï»à¤Ì¤Ç¤¢¤í¤¦¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¤À¤¬¤³¤³¤Ëµ¤¹¡¡¶²¤ë¤Ù¤ÎϤò¡¡¡¡¡¡¡¡¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "ÂèÏ»¿Ø - ̵Îϲ½ <In An>"
+ "- ⲫ¤Î³¥¡¢ÂçÉÇ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "Âè¼·¿Ø - »à <Xen Corp>"
+ "- ¹õ¿¿¼î¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "ÂèȬ¿Ø - »àÉ÷ <In Vas Grav Corp>"
+ "- ⲫ¤Î³¥¡¢¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "
ÂèȬ¿Ø - »þ´ÖÄä»ß <An Tym>"
+ "- ÂçÉÇ¡¢·ì¤ÎÂÝ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
)
result-ok))
;;;;;;;;;;;;;;;;;;;; Necromancy ;;;;;;;;;;;;;;;;;;;;
(mk-reusable-item
- 't_spell_book_necromancy "Mysteries of Death and Undeath" s_manual (/ norm 3)
+ 't_spell_book_necromancy "»à¤ÈÉÔ»à¤ÎÈëµ·" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Mysteries of DEATH and UNDEATH "
- "+-----------------------------------------+"
- "| Sanctus Corporem ex Nihilo, Rel Oculume |"
- "| De Vermiis Mysteriis, Astralis Sangrem |"
- "+-----------------------------------------+"
- "
II - Turn Undead <An Xen Corp>"
- "- Mix Sulphurous Ash, Garlic"
+ "»à¤ÈÉÔ»à¤ÎÈëµ·"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢Sanctus Corporem ex Nihilo, Rel Oculume ¨¢"
+ "¨¢De Vermiis Mysteriis, Astralis Sangrem ¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "
ÂèÆó¿Ø - ÉÔ»à´Ô <An Xen Corp>"
+ "- ⲫ¤Î³¥¡¢ÂçÉÇ"
""
- "VIII - Summon Undead <Kal Xen Corp>"
- "- Mix Spider Silk, Nightshade, Mandrake"
+ "ÂèȬ¿Ø - ÉԻྤ´Ô <Kal Xen Corp>"
+ "- ÃØéá¤Î»å¡¢¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
""
- "II - Poison Bolt <In Nox Por>"
- "- Mix Blood Moss, Black Pearl, Nightshade"
+ "ÂèÆó¿Ø - ÆÇ·â <In Nox Por>"
+ "- ·ì¤ÎÂÝ¡¢¹õ¿¿¼î¡¢¥Ê¥¤¥È¥·¥§¥¤¥É"
""
- "VII - Poison Wind <In Nox Hur>"
- "- Mix Sulphrous Ash, Blood Moss, Nightshade"
+ "Âè¼·¿Ø - ÆÇÉ÷ <In Nox Hur>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ¡¢¥Ê¥¤¥È¥·¥§¥¤¥É"
""
- "VII - Death Bolt <Xen Corp>"
- "- Mix Black Pearl, Nightshade"
+ "Âè¼·¿Ø - »à <Xen Corp>"
+ "- ¹õ¿¿¼î¡¢¥Ê¥¤¥È¥·¥§¥¤¥É"
""
- "VII - Clone <In Quas Xen>"
- "- Mix Sulphurous Ash, Ginseng, Spider Silk,"
- "- Blood Moss, Nightshade, Mandrake"
+ "Âè¼·¿Ø - Ê£À½ <In Quas Xen>"
+ "- ⲫ¤Î³¥¡¢¿Í»²¡¢ÃØéá¤Î»å¡¢·ì¤ÎÂÝ¡¢"
+ " ¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
""
- "VIII - Resurrection <In Mani Corp>"
- "- Mix Sulphurous Ash, Ginseng, Garlic, "
- "- Spider Silk, Blood Moss, Mandrake"
+ "ÂèȬ¿Ø - ÁÉÀ¸ <In Mani Corp>"
+ "- ⲫ¤Î³¥¡¢¿Í»²¡¢ÂçÉÇ¡¢ÃØéá¤Î»å¡¢·ì¤ÎÂÝ¡¢"
+ " ¥Þ¥ó¥É¥ì¥¤¥¯"
)
result-ok))
;;;;;;;;;;;;;;;;;;;; Summoning ;;;;;;;;;;;;;;;;;;;;
(mk-reusable-item
- 't_spell_book_summoning "Summoning: Beasts and Entities" s_manual (/ norm 3)
+ 't_spell_book_summoning "¾¤´Ô: ½Ã¤È¸ºß" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Summoning: Beasts and Entities"
- "+-----------------------------------------+"
- "| KAL To the Summoner - BEWARE KAL |"
- "| CORP Lest ye Call Up, XEN |"
- "| BET That which ye cannot Send Back ORT |"
- "| SANCT [ABRAD] - [ACAD] - [ABRA] YLEM |"
- "+-----------------------------------------+"
- "II - Summon Vermin <In Bet Xen>"
- "- Mix Sulphurous Ash, Blood Moss, "
- "- Spider Silk"
- ""
- "V - Summon Beast <Kal Xen>"
- "- Mix Spider Silk, Mandrake"
- ""
- "VIII - Summon Slime <Kal Xen Nox>"
- "- Mix Spider Silk, Nightshade, Mandrake"
- ""
- "VIII - Summon Undead <Kal Xen Corp>"
- "- Mix Spider Silk, Nightshade, Mandrake"
+ "¾¤´Ô: ½Ã¤È¸ºß"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢KAL ¾¤´»Õ¤Ø - Ãí°Õ¤»¤è KAL ¨¢"
+ "¨¢CORP ¸Æ¤Ó½Ð¤·¤¿¼Ô¤Ï XEN ¨¢"
+ "¨¢BET Á÷¤êÊÖ¤¹¤³¤È¤Ï¤Ç¤¤Ì ORT ¨¢"
+ "¨¢SANCT [ABRAD] - [ACAD] - [ABRA] YLEM ¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "ÂèÆó¿Ø - Ã´Ô <In Bet Xen>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ¡¢ÃØéá¤Î»å"
+ ""
+ "Âè¸Þ¿Ø - ½Ã¾¤´Ô <Kal Xen>"
+ "- ÃØéá¤Î»å¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "ÂèȬ¿Ø - Í»²ò <Kal Xen Nox>"
+ "- ÃØéá¤Î»å¡¢¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "ÂèȬ¿Ø - ÉԻྤ´Ô <Kal Xen Corp>"
+ "- ÃØéá¤Î»å¡¢¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
)
result-ok))
;;;;;;;;;;;;;;;;;;;; Dimensions and Gate Magick ;;;;;;;;;;;;;;;;;;;;
(mk-reusable-item
- 't_spell_book_gate_magick "Upon Dimensions: Gates" s_manual (/ norm 3)
+ 't_spell_book_gate_magick "¼¡¸µ: Ìç" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Upon Dimensions: Gates"
- "+-----------------------------------------+"
- "| In Travel, is Freedom indeed, oh Seeker |"
- "| IN POR - IN WIS - EX POR WIS |"
- "| |"
- "| The Lore of Moons - Controls the Gates! |"
- "| SUN - FYER Radiant 24 (12,12) |"
- "| MOON - LUMIS Yellow 60, (5)x8 |"
- "| MOON - ORD Blue 36, (9)x8 |"
- "| |"
- "| If ye be Wise Watch Wax and Wane |"
- "+-----------------------------------------+"
- "Locate <In Wis>"
- "- Mix Nightshade"
- ""
- "Vision <In Quas Wis>"
- "- Mix Nightshade, Mandrake"
- ""
- "Blink <Bet Por>"
- "- Mix Blood Moss, Black Pearl"
- ""
- "Ascend <Uus Por>"
- "- Mix it not, cast it not! Space tears!"
- ""
- "Descend <Des Por>"
- "- Beware the warp! Seek ye not this lore!"
- ""
- "Quickness <Rel Tym>"
- "- Mix Sulphurous Ash, Blood Moss, Mandrake"
- ""
- "Teleport Party <Vas Por>"
- "- Mix Blood Moss, Black Pearl, Mandrake"
- ""
- "Gate <Vas Rel Por>"
- "- Mix Sulphurous Ash, Black Pearl, Mandrake"
+ "¼¡¸µ: Ìç"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡Ó˸ơ¡Ãµµá¼Ô¤è¡¡Î¹¤Ï¡¡¿¿¤Ë¼«Í³¤Ç¤¢¤ë¡¡¨¢"
+ "¨¢ IN POR - IN WIS - EX POR WIS ¨¢"
+ "¨¢¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡·î¤Î¸À¤¤ÅÁ¤¨¤¬¡¡Ìç¤ò»ÙÇÛ¤¹¤ë¡ª¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡ÂÀÍÛ¡Ý¥Õ¥£¥¢¡¡µ±¤¡¡24¡¡(12,12) ¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡·î¡Ý¥ë¥ß¥¹¡¡²«¡¡¡¡60¡¡(5)x8 ¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡·î¡Ý¥ª¡¼¥É¡¡ÀÄ¡¡¡¡36¡¡(9)x8 ¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢Æò¤¬ÁïÌÀ¤Ê¤é¡¡¡¡¡¡¡¡¡¡¡¡¡¡Ëþ¤Á·ç¤±¤ò¸«¤è¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "°ÌÃÖ <In Wis>"
+ "- ¥Ê¥¤¥È¥·¥§¥¤¥É"
+ ""
+ "ÀéΤ´ã <In Quas Wis>"
+ "- ¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "Ä·Ìö <Bet Por>"
+ "- ·ì¤ÎÂÝ¡¢¹õ¿¿¼î"
+ ""
+ "¾å¾º <Uus Por>"
+ "- Ä´¹ç¤¹¤Ù¤«¤é¤º¡¢¾§¤¨¤ë¤Ù¤«¤é¤º¡ª"
+ " Çˤêµî¤ê¶õÇò¤È¤¹¤ë¡ª"
+ ""
+ "²¼¹ß <Des Por>"
+ "- 櫤ËÃí°Õ¤»¤è¡ª"
+ " ¤³¤Î¸À¤¤ÅÁ¤¨¤òõ¤ë¤Ù¤«¤é¤º¡ª"
+ ""
+ "¹â®²½ <Rel Tym>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "½Ö´Ö°ÜÆ° <Vas Por>"
+ "- ·ì¤ÎÂÝ¡¢¹õ¿¿¼î¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "Ìç <Vas Rel Por>"
+ "- ⲫ¤Î³¥¡¢¹õ¿¿¼î¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
)
result-ok))
;;;;;;;;;;;;;;;;;;;; Enchantment ;;;;;;;;;;;;;;;;;;;;
(mk-reusable-item
- 't_spell_book_enchantment_wards "Enchantment: Wards" s_manual (/ norm 3)
+ 't_spell_book_enchantment_wards "·ë³¦: Ëɸæ" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Enchantment: Wards"
- "+-----------------------------------------+"
- "| SANCT - Protect Thyself! - SANCT |"
- "| Mix Wards! Cast spells of Protection! |"
- "| Surround thyself with Fields of Force |"
- "| Seeker - Ye are in Danger! - Beware! |"
- "+-----------------------------------------+"
- "Poison Ward <Sanct Nox>"
- "- Mix Garlic, Nightshade, Royal Cape"
- ""
- "Fire Ward <In Flam Sanct>"
- "- Mix [BLURRED], [SMEARED],"
- " and the Cap of the Coastal Prince"
- ""
- "Mass Poison Ward <Vas Sanct Nox>"
- "- Mix Garlic, Nightshade, Mandrake, Royal Cape"
- ""
- "Protection <In Sanct>"
- "- Mix Sulphurous Ash, Ginseng, Garlic"
- ""
- "
Dispel Magic <An Ort Xen>"
- "- Mix Sulphurous Ash, Garlic, Mandrake"
- ""
- "Negate Magic <In An>"
- "- Mix Sulphurous Ash, Garlic, Mandrake"
- ""
- "Force Field <In Sanct Grav>"
- "- Mix Spider Silk, Black Pearl, Mandrake"
+ "·ë³¦: Ëɸæ"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢SANCT - Æò¼«¿È¤ò¼é¤ì¡ª - SANCT ¨¢"
+ "¨¢¡¡¡¡Ä´¹ç¤»¤è¡ª¼é¤ê¤Î¼öʸ¤ò¾§¤¨¤è¡ª¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡Æò¤Î¼þ¤ê¤òÎϤξ줬ʤ¤¦¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢Ãµµá¼Ô¤è-Æò¤Ï´íµ¡¤ÎºÇÃæ¤Ë¤¢¤ê¡ª-Ãí°Õ¤»¤è¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "ÂÑÆÇ <Sanct Nox>"
+ "- ÂçÉÇ¡¢¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥í¥¤¥ä¥ë¥±¡¼¥×Âû"
+ ""
+ "ÂѲР<In Flam Sanct>"
+ "- [ÉÔÌÀÎÆ]¡¢[±ø¤ì]¡¢±è´ß¤Î²¦»Ò¤Î´§"
+ ""
+ "Á´ÂÑÆÇ <Vas Sanct Nox>"
+ "- ÂçÉÇ¡¢¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯¡¢"
+ " ¥í¥¤¥ä¥ë¥±¡¼¥×Âû"
+ ""
+ "Êݸî <In Sanct>"
+ "- ⲫ¤Î³¥¡¢¿Í»²¡¢ÂçÉÇ"
+ ""
+ "- ⲫ¤Î³¥¡¢ÂçÉÇ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "̵Îϲ½ <In An>"
+ "- ⲫ¤Î³¥¡¢ÂçÉÇ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "¾ãÊÉ <In Sanct Grav>"
+ "- ÃØéá¤Î»å¡¢¹õ¿¿¼î¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
)
result-ok))
(mk-reusable-item
- 't_spell_book_enchantment_curses "Enchantment: Curses" s_manual (/ norm 3)
+ 't_spell_book_enchantment_curses "·ë³¦: ¼öëÇ" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Enchantment: Curses"
- "+-----------------------------------------+"
- "| To the Reader |"
- "| Be ye ACCURSED, I strike ye BLIND! |"
- "| ---------------------------------- |"
- "| Gentle Reader - Be ye Wise |"
- "| Mix and Cast these Runes at Need |"
- "+-----------------------------------------+"
- "Web <Ylem An Ex>"
- "- Mix Spider Silk, Black Pearl"
- ""
- "
Calm Spiders <An Xen Bet>"
- "- Mix Garlic, Spider Silk"
- ""
- "Sleep <Xen Zu>"
- "- Mix Ginseng, Spider Silk"
- ""
- "
Charm Monster <An Xen Ex>"
- "- Mix Spider Silk, Black Pearl, Nightshade"
- ""
- "Confusion <Quas An Wis>"
- "- Mix Nightshade, Mandrake"
- ""
- "Fear <In Quas Corp>"
- "- Mix Garlic, Nightshade, Mandrake"
+ "·ë³¦: ¼öëÇ"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡¡¡¡¡¡¡¡¡¡¡¤³¤ì¤òÆɤà¼Ô¤Ø¡¡¡¡¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¼ö¤ï¤ì¤è¡¡²æ¤ÏÆò¤Î¸÷¤òÃ¥¤¦¡ª¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¤³¤ì¤òÆɤà¼Ô¤Ø¡¡¡Ý¡¡¸¤¯¤¢¤ì¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡É¬ÍפȤ¢¤é¤Ð¡¡Ä´¹ç¤·¾§¤¨¤è¡¡¡¡¡¡¡¡¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "ÌÖ <Ylem An Ex>"
+ "- ÃØéá¤Î»å¡¢¹õ¿¿¼î"
+ ""
+ "- ÂçÉÇ¡¢ÃØéá¤Î»å"
+ ""
+ "ºÅ̲ <Xen Zu>"
+ "- ¿Í»²¡¢ÃØéá¤Î»å"
+ ""
+ "- ÃØéá¤Î»å¡¢¹õ¿¿¼î¡¢¥Ê¥¤¥È¥·¥§¥¤¥É"
+ ""
+ "º®Íð <Quas An Wis>"
+ "- ¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "¶²ÉÝ <In Quas Corp>"
+ "- ÂçÉÇ¡¢¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
)
result-ok))
(mk-reusable-item
- 't_spell_book_enchantment_miscellanea "Enchantment: Miscellanea" s_manual (/ norm 3)
+ 't_spell_book_enchantment_miscellanea "·ë³¦: »¨Ï¿" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Enchantment: Miscellanea"
- "+-----------------------------------------+"
- "| [SMUDGED TEXT] the Secrets! [BLURRED] |"
- "| Conceal the [STAIN] from [SMEARED WORD] |"
- "| AN EX WIS - - KAL QUAS |"
- "+-----------------------------------------+"
- "Quickness <Rel Tym>"
- "- Mix Sulphurous Ash, Blood Moss, Mandrake"
+ "·ë³¦: »¨Ï¿"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡¡¡[¤Ü¤ä¤±¤¿Ê¸»ú]¤ÎÈë½Ñ¡ª[¤Ë¤¸¤ß]¡¡¡¡¡¡¨¢"
+ "¨¢¡¡[°ÕÌ£ÉÔÌÀ¤Êʸ»ú]¤«¤é±£¤µ¤ì¤¿[À÷¤ß]¡¡¡¡¨¢"
+ "¨¢AN EX WIS - - KAL QUAS ¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "¹â®²½ <Rel Tym>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
""
- "X-Ray Vision <Wis An Ylem>"
- "- Mix Sulphurous Ash, Mandrake"
+ "Æ©»ë <Wis An Ylem>"
+ "- ⲫ¤Î³¥¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
""
- "Invisibility <Sanct Lor>"
- "- Mix Blood Moss, Nightshade, Mandrake"
+ "ÉԲĻë <Sanct Lor>"
+ "- ·ì¤ÎÂÝ¡¢¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
""
- "Telekinesis <In Rel Por>"
- "- Mix Spider Silk, Blood Moss, Black Pearl"
+ "Ç°ÎÏ <In Rel Por>"
+ "- ÃØéá¤Î»å¡¢·ì¤ÎÂÝ¡¢¹õ¿¿¼î"
""
- "Poison Wind <In Nox Hur>"
- "- Mix Sulphurous Ash,Blood Moss, Nightshade"
+ "ÆÇÉ÷ <In Nox Hur>"
+ "- ⲫ¤Î³¥¡¢·ì¤ÎÂÝ¡¢¥Ê¥¤¥È¥·¥§¥¤¥É"
""
- "Wind of Sleep <In Zu Hur>"
- "- Mix Ginseng, Blood Moss, Mandrake"
+ "ºÅ̲É÷ <In Zu Hur>"
+ "- ¿Í»²¡¢·ì¤ÎÂÝ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
""
- "- Mix Garlic, Blood Moss, Mandrake"
+ "- ÂçÉÇ¡¢·ì¤ÎÂÝ¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
)
result-ok))
;;;;;;;;;;;;;;;;;;;; Illusions, Misdirections, and Schemes ;;;;;;;;;;;;;;;;;;;;
(mk-reusable-item
- 't_spell_book_illusion_1 "Illusions: Lesser Secrets" s_manual (/ norm 3)
+ 't_spell_book_illusion_1 "¸¸³Ð: ²¼µéÈëÅÁ" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Illusions: Lesser Secrets"
- "+-----------------------------------------+"
- "| Be ye Wrogue, or Mage? |"
- "| By Artifice, by Cunning, ye Survive |"
- "| Use well these Runes, Mix and Cast them |"
- "+-----------------------------------------+"
- "Conjure Smoke <Bet Ylem Hur>"
- "- Mix Sulphurous Ash"
- ""
- "Detect Traps <Wis Sanct>"
- "- Mix Sulphurous Ash"
- ""
- "Sleep <Xen Zu>"
- "- Mix Ginseng, Spider Silk"
- ""
- "
Calm Spiders <An Xen Bet>"
- "- Mix Garlic, Spider Silk"
+ "¸¸³Ð: ²¼µéÈëÅÁ"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡¡¡¡¡¡¡Æò¤Ï¤Ê¤é¤º¼Ô¤«Ëâ½Ñ»Õ¤«¡©¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡ºöά¤¬¡¡àÄàѤµ¤¬¡¡Æò¤òÀ¸¤«¤¹¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¤³¤ì¤é¤Î¼öʸ¤ò»È¤¦¤Ù¤·¡¡Ä´¹ç¤·¾§¤¨¤è¡¡¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "±ìËë <Bet Ylem Hur>"
+ "- ⲫ¤Î³¥"
+ ""
+ "æ«ÃµÃÎ <Wis Sanct>"
+ "- ⲫ¤Î³¥"
+ ""
+ "ºÅ̲ <Xen Zu>"
+ "- ¿Í»²¡¢ÃØéá¤Î»å"
+ ""
+ "- ÂçÉÇ¡¢ÃØéá¤Î»å"
)
result-ok))
(mk-reusable-item
-'t_spell_book_illusion_2 "Illusions: Greater Secrets" s_manual (/ norm 3)
+'t_spell_book_illusion_2 "¸¸³Ð: ¾åµéÈëÅÁ" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Illusions: Greater Secrets"
- "+-----------------------------------------+"
- "| Be ye Master Thief, or Cloaked Mage? |"
- "| Artifice Superlative |"
- "| Cunning Extraordinary |"
- "| Survival Quotidian |"
- "| Mix and Cast the Runes |"
- "| CAVEAT LECTOR |"
- "| NON CARBORUNDUM ILLEGITEMI |"
- "+-----------------------------------------+"
- "Confusion <Quas An Wis>"
- "- Mix Nightshade, Mandrake"
- ""
- "
Charm Monster <An Xen Ex>"
- "- Mix Spider Silk, Black Pearl, Nightshade"
- ""
- "Fear <In Quas Corp>"
- "- Mix Garlic, Nightshade, Mandrake"
- ""
- "Invisibility <Sanct Lor>"
- "- Mix Blood Moss, Nightshade, Mandrake"
+ "¸¸³Ð: ¾åµéÈëÅÁ"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢Æò¤ÏÅ¥ËÀ¤Î²¦¤«¡¡Ê¤¤¤±£¤µ¤ì¤¿Ëâ½Ñ»Õ¤«¡©¡¡¨¢"
+ "¨¢ºÇ¹â¤Îºöά¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¤¿¤°¤¤¤Þ¤ì¤ÊàÄàѤµ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡Æü¡¹¤òÀ¸¤±ä¤Ó¤ë¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡¡¡¡¡Ä´¹ç¤·¼öʸ¤ò¾§¤¨¤è¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡·Ù¹ð¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¶ò¤«¼Ô¤ËÆò¤ò¶ì¤·¤á¤µ¤»¤ë¤Ê¡¡¡¡¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "º®Íð <Quas An Wis>"
+ "- ¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "- ÃØéá¤Î»å¡¢¹õ¿¿¼î¡¢¥Ê¥¤¥È¥·¥§¥¤¥É"
+ ""
+ "¶²ÉÝ <In Quas Corp>"
+ "- ÂçÉÇ¡¢¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "ÉԲĻë <Sanct Lor>"
+ "- ·ì¤ÎÂÝ¡¢¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
)
result-ok))
;;;;;;;;;;;;;;;;;;;; Divination Magick ;;;;;;;;;;;;;;;;;;;;
(mk-reusable-item
-'t_spell_book_divination "Mysteries of Divination" s_manual (/ norm 3)
+'t_spell_book_divination "ͽÃΤÎÈëµ·" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Mysteries of Divination"
- "+-----------------------------------------+"
- "| IN WIS - AN QUAS - VAS KAL EX WIS |"
- "| Oh Seeker, are ye Wise? Riddle me then |"
- "| I Seek the Seeker, I Slay the Slayer |"
- "| I Wreak the Wrogue, I Work the Wright |"
- "| What then am I? |"
- "+-----------------------------------------+"
- "Detect Traps <Wis Sanct>"
- "- Mix Sulphurous Ash"
- ""
- "
Disarm Trap <An Sanct Ylem>"
- "- Mix Blood Moss"
- ""
- "Locate <In Wis>"
- "- Mix Nightshade"
- ""
- "Vision <In Quas Wis>"
- "- Mix Nightshade Mandrake"
- ""
- "Reveal <Wis Quas>"
- "- Mix Sulphurous Ash, Nightshade"
- ""
- "X-Ray Vision <Wis An Ylem>"
- "- Mix Sulphurous Ash, Mandrake"
+ "ͽÃΤÎÈëµ·"
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢ IN WIS - AN QUAS - VAS KAL EX WIS ¨¢"
+ "¨¢¤¢¤¢Ãµµá¼Ô¤èÆò¤Ï¸¤¤â¤Î¤«¡©¤ï¤¬Ææ¤ò²ò¤±¨¢"
+ "¨¢²æ¤Ïõµá¼Ô¤òõµá¤¹¤ë¡¡²æ¤ÏÅݤ¹¤â¤Î¤òÅݤ¹¨¢"
+ "¨¢²æ¤Ï¤Ê¤é¤º¼Ô¤òñÙ¤¹¡¡¡¡²æ¤Ï¿¦¿Í¤òºî¤ë¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡²æ¤Ïï¡©¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
+ "æ«ÃµÃÎ <Wis Sanct>"
+ "- ⲫ¤Î³¥"
+ ""
+ "
櫲ò½ü <An Sanct Ylem>"
+ "- ·ì¤ÎÂÝ"
+ ""
+ "°ÌÃÖ <In Wis>"
+ "- ¥Ê¥¤¥È¥·¥§¥¤¥É"
+ ""
+ "ÀéΤ´ã <In Quas Wis>"
+ "- ¥Ê¥¤¥È¥·¥§¥¤¥É¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
+ ""
+ "²Ä»ë <Wis Quas>"
+ "- ⲫ¤Î³¥¡¢¥Ê¥¤¥È¥·¥§¥¤¥É"
+ ""
+ "Æ©»ë <Wis An Ylem>"
+ "- ⲫ¤Î³¥¡¢¥Þ¥ó¥É¥ì¥¤¥¯"
)
result-ok))
;;;;;;;;;;;;;;;;;;;; Master Spellbook ;;;;;;;;;;;;;;;;;;;;
(mk-reusable-item
- 't_basic_spell_book "Spell Book" s_manual (/ norm 3)
+ 't_basic_spell_book "¼öʸ½ñ" s_manual (/ norm 3)
(lambda (kbook kuser)
(kern-ui-page-text
- "Spell Book"
- ""
- "+-----------------------------------------+"
- "| M)ix thy reagents to craft a spell, |"
- "| then C)ast it in thine hour of need. |"
- "| This tome will always serve thee well |"
- "| but oh so carefully thou must read! |"
- "+-----------------------------------------+"
+ "¼öʸ½ñ"
+ ""
+ "¨£¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¤"
+ "¨¢¡¡¡¡¡¡ M¤ÇÈëÌô¤òÄ´¹ç¤·¼öʸ¤òºî¤ì¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡ C¤Ç¤·¤«¤ë¤Ù¤¤È¤¤Ë¾§¤¨¤è¡¡¡¡¡¡¡¡¨¢"
+ "¨¢¡¡¡¡¡¡¤³¤ÎÈê¤ÏÆò¤ÎÌò¤ËΩ¤Ä¤Ç¤¢¤í¤¦¡¡¡¡¡¡¨¢"
+ "¨¢¡¡Ó˸ơ¡¤À¤¬¡¡Æɤà¤È¤¤ÏÃí°Õ¤¹¤Ù¤·¡ª¡¡¡¡¨¢"
+ "¨¦¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¥"
" "
- "................ Reagents ................."
- "GI Ginseng SS Spider Silk"
- "GA Garlic BP Black Pearl"
- "SA Sulphurous Ash BM Blood Moss "
- "NI Nightshade MA Mandrake "
- "................. Spells .................."
- "-------------- First Circle ---------------"
- "An Nox Cure Poison GI, GA "
- "An Zu Awaken GI, GA "
- "Grav Por Magic Missile SA, BP "
- "In Lor Light SA "
- "Mani Heal GI, SS "
- "Wis Sanct Detect Trap SA "
- "An Sanct Ylem Disarm Trap BM "
- "-------------- Second Circle --------------"
- "An Sanct Unlock SA, BM "
- "An Xen Corp Repel Undead GA, SA "
- "In Wis Locate NI "
- "Rel Hur Change Wind SA, BM "
- "In Nox Por Poison Missile NI, BM, BP "
- "In Bet Xen Summon Vermin SS, BM, SA "
- "-------------- Third Circle ---------------"
- "In Flam Grav Fire Field SA, BP, SS "
- "In Zu Grav Sleep Field GI, BP, SS "
- "In Nox Grav Poison Field NI, BP, SS "
- "Vas Flam Fire Ball BP, SA "
- "Vas Lor Great Light SA, MA "
- "-------------- Fourth Circle --------------"
- "An Grav Dispel Field BP, SA "
- "In Sanct Grav Energy Field MA, BP, SS "
- "In Sanct Protection SA, GI, GA "
- "Wis Quas Reveal Hidden NI, SA "
- "Bet Por Blink (Caster) BP, BM "
- "-------------- Fifth Circle ---------------"
- "In Ex Por Unlock Magic SA, BM "
- "An Ex Por Magic Lock SA, BM, GA "
- "In Zu Sleep GI, NI, SS "
- "Vas Mani Great Heal GI, SS, MA "
- "Rel Tym Quickness SA, BM, MA "
- "Kal Xen Summon Beast SS, MA "
- "-------------- Sixth Circle ---------------"
- "An Xen Ex Charm BP, NI, SS "
- "In An Negate Magic GA, MA, SA "
- "In Vas Por Ylem Earthquake BM, MA, SA "
- "Quas An Wis Confuse MA, NI "
- "Wis An Ylen Xray Vision MA, SA "
- "In Rel Por Telekinesis BP, BM, SS "
- "Vas Por Teleport Party MA, BP, BM "
- "------------- Seventh Circle --------------"
- "In Nox Hur Poison Wind NI, SA, BM "
- "In Quas Corp Fear NI, MA, GA "
- "In Quas Wis Peer NI, MA "
- "In Quas Xen Clone NI, MA, SA,"
- "... ... SS, BM, GI "
- "Sanct Lor Invisibility NI, MA, BM "
- "Xen Corp Kill NI, BP "
- "-------------- Eighth Circle --------------"
- "An Tym Time Stop MA, GA, BM "
- "In Flam Hur Flame Wind MA, SA, BM "
- "In Vas Grav Corp Energy Wind MA, SA, NI "
- "In Mani Corp Resurrect GA, GI, SS,"
- "... ... SA, BM, MA "
- "Kal Xen Corp Summon Undead SS, MA, NI "
- "Vas Rel Por Gate Travel SA, MA, BP "
+ "¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡¡ÈëÌô¡¡¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä"
+ "¿Í ¿Í»² ÃØ ÃØéá¤Î»å "
+ "Âç ÂçÉÇ ¹õ ¹õ¿¿¼î "
+ "β ⲫ¤Î³¥ ·ì ·ì¤ÎÂÝ "
+ "¥Ê ¥Ê¥¤¥È¥·¥§¥¤¥É ¥Þ ¥Þ¥ó¥É¥ì¥¤¥¯"
+ "¥í ¥í¥¤¥ä¥ë¥±¡¼¥×Âû "
+ "¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡¡¼öʸ¡¡¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä¡Ä"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡ Âè°ì¿Ø ¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "An Nox ²òÆÇ ¿Í Âç "
+ "An Zu ³ÐÀà ¿Í Âç "
+ "Grav Por ËâË¡¤ÎÌð β ¹õ "
+ "In Lor ¸÷ β "
+ "Mani ¾®²óÉü ¿Í ÃØ "
+ "Wis Sanct æ«ÃµÃΠβ "
+ "An Sanct Ylem 櫲ò½ü ·ì "
+ "Ylem An Ex ÌÖ ÃØ ¹õ "
+ "Bet Ylem Hur ±ìËë β "
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡ Âè¥Ë¿Ø ¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "Sanct Nox ÂÑÆÇ ¥Ê Âç ¥í "
+ "An Sanct ³«¾û β ·ì "
+ "Sanct »Ü¾û β ÃØ "
+ "An Xen Corp ÉÔ»à´Ô Âç β "
+ "In Wis °ÌÃÖ ¥Ê "
+ "In Bet Xen Ã´Ô ÃØ ·ì β "
+ "Rel Hur É÷ÊѲ½ β ·ì "
+ "In Nox Por ÆÇ·â ¥Ê ·ì ¹õ "
+ "An Xen Bet ÂÐÃØéá ÃØ Âç "
+ "Bet Flam Hur ²Ð̸ ¹õ β ·ì "
+ "In Quas Wis ÀéΤ´ã ¥Ê ¥Þ "
+ "Xen Zu ºÅ̲ ÃØ Âç "
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡ Âè»°¿Ø ¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "In Flam Grav ²Ð±ê¾ì β ¹õ ÃØ "
+ "In Nox Grav ÆÇ¾ì ¥Ê ¹õ ÃØ "
+ "In Zu Grav ºÅ̲¾ì ¿Í ¹õ ÃØ "
+ "Vas Flam ²Ðµå ¹õ β "
+ "Vas Lor ¶¯¸÷ β ¥Þ "
+ "In Flam Sanct ÂѲРÂç β ¥í "
+ "Vas An Nox Á´²òÆÇ ¥Þ Âç ¿Í "
+ "An Ort Xen æËâË¡ Âç ¥Þ Î² "
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡ Âè»Í¿Ø ¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "An Grav æËâË¡¾ì ¹õ β "
+ "In Sanct Grav ¾ãÊÉ ¥Þ ¹õ ÃØ "
+ "In Sanct Êݸî β ¿Í Âç "
+ "Wis Quas ²Ä»ë ¥Ê β "
+ "Bet Por Ä·Ìö ¹õ ·ì "
+ "Vas Sanct Nox Á´ÂÑÆÇ ¥Þ ¥Ê Âç ¥í"
+ "Ort Grav Íë·â ¹õ ¥Þ β "
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡ Âè¸Þ¿Ø ¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "In Ex Por Éõ°õ²ò½ü β ·ì "
+ "An Ex Por Éõ°õ β ·ì Âç "
+ "In Zu Á´ºÅ̲ ¿Í ¥Ê ÃØ "
+ "Vas Mani Âç²óÉü ¿Í ÃØ ¥Þ "
+ "Rel Tym ¹â®²½ β ·ì ¥Þ "
+ "Kal Xen ½Ã¾¤´Ô ÃØ ¥Þ "
+ "Rel Xen Quas ½Ã¸¸»ë ¥Ê ·ì "
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡ ÂèÏ»¿Ø ¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "In An ÄÀÌÛ Âç ¥Þ Î² "
+ "Wis An Ylen Æ©»ë ¥Þ β "
+ "An Xen Ex ̥λ ¹õ ¥Ê ÃØ "
+ "In Vas Por Ylem ÃÏ¿Ì ·ì ¥Þ β "
+ "Quas An Wis º®Íð ¥Þ ¥Ê "
+ "Vas Uus Ylem °úÍÈ ¥Þ ·ì ÃØ "
+ "In Rel Por Ç°ÎÏ ¹õ ·ì ÃØ "
+ "Vas Por ½Ö´Ö°ÜÆ° ¥Þ ¹õ ·ì "
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡ Âè¼·¿Ø ¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "In Nox Hur ÆÇÉ÷ ¥Ê β, ·ì "
+ "In Zu Hur ºÅ̲É÷ ¥Þ ¿Í ·ì "
+ "In Quas Corp ¶²ÉÝ ¥Ê ¥Þ Âç "
+ "Sanct Lor ÉÔ²Ä»ë ¥Ê ¥Þ ·ì "
+ "Xen Corp »à ¥Ê ¹õ "
+ "In Quas Xen Ê£À½ ¥Ê¥ÞβÃØ·ì¿Í"
+ "¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡ ÂèȬ¿Ø ¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡¨¡"
+ "Kal Xen Nox Í»²ò ÃØ ¥Þ ¥Ê "
+ "In Flam Hur ±êÉ÷ ¥Þ β ·ì "
+ "In Vas Grav Corp »àÉ÷ ¥Þ β ¥Ê "
+ "An Tym »þ´ÖÄä»ß ¥Þ Âç ·ì "
+ "Kal Xen Corp ÉԻྤ´Ô ÃØ ¥Þ ¥Ê "
+ "In Mani Corp ÁÉÀ¸ Âç¿ÍÃØβ·ì¥Þ"
+ "Vas Rel Por Ìç β ¥Þ ¹õ "
)
result-ok))
;;----------------------------------------------------------------------------
;; Anaxes letters
(mk-reusable-item
- 't_anaxes_letter "Letter to Anaxes" s_scroll v-hard
+ 't_anaxes_letter "¥¢¥Ê¥¯¥·¥º°¸¤Æ¤Î¼ê»æ" s_scroll v-hard
(lambda (kletter kuser)
(kern-ui-page-text
- "Letter"
- ""
- "Anaxes, "
- " "
- "My dearest love. The Twelve have cast you out"
- "(Luximene has them thoroughly cowed). He hath"
- "issued an edict that the old religion is "
- "illegal, and all who show piety to any god "
- "but he are Accursed. "
- " "
- "As I write, the legions of Glasdrin and "
- "Tulemane march on Brundegardt. I go to "
- "destroy them before they reach you. Seal the "
- "entrance lest my sacrifice be in vain. "
- " "
- "Know, my love, that I never betrayed you. May"
- "our spirits meet in the void, and Vale exact "
- "his price from our enemies. "
- " "
- "Love, "
- " Isin "
- " "
- "P.S. The Titans are safe. I have seen that "
- "those who knew of them were slain. "
+ "¼ê»æ"
+ ""
+ "¥¢¥Ê¥¯¥·¥º¡¢"
+ ""
+ "»ä¤ÎºÇ°¦¤Î¿Í¤Ø¡£½½Æó¿Í¤Ï¤¢¤Ê¤¿¤òÄÉÊü¤·¤Þ¤·¤¿¡£"
+ "(¥é¥¯¥·¥Þ¥Ë¤ÏÈà¤é¤òÅ°ÄìŪ¤Ë¶¼¤·¤Æ¤¤¤Þ¤·¤¿¡£)"
+ "Èà¤Ï¸Å¤¤¿®¶Ä¤ò¶Ø»ß¤¹¤ëÌ¿Îá¤òȯÎᤷ¤Þ¤·¤¿¡£¤½¤·"
+ "¤ÆÈà°Ê³°¤Î¿À¤ò¿®¤¸¤ë¤â¤Î¤Ï¡¢¤ß¤Ê¼ö¤ï¤ì¤¿¼Ô¤À¤È"
+ "¸À¤Ã¤Æ¤¤¤Þ¤¹¡£"
+ ""
+ "¤³¤ì¤ò½ñ¤¤¤Æ¤¤¤ëº£¡¢¥°¥é¥¹¥É¥ê¥ó¤È¥È¥¥¡¼¥ì¥Þ¥ó"
+ "¤ÎÂç·³¤¬¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤òÌܻؤ·¤Æ¤¤¤Þ¤¹¡£»ä¤ÏÈà"
+ "¤é¤¬¤¢¤Ê¤¿¤Î¤â¤È¤ËÅþÃ夹¤ëÁ°¤ËÅݤ·¤Ë¹Ô¤¤Þ¤¹¡£"
+ "Æþ¤ê¸ý¤òÉõ°õ¤·¡¢»ä¤Îµ¾À·¤¬ÌµÂ̤ˤʤé¤Ê¤¤¤è¤¦¤Ë"
+ "¤·¤Æ¤¯¤À¤µ¤¤¡£"
+ ""
+ "°¦¤¹¤ë¿Í¡¢¤ª¤Ü¤¨¤Æ¤¤¤Æ¤¯¤À¤µ¤¤¡£»ä¤Ï¤¢¤Ê¤¿¤ò·è"
+ "¤·¤Æ΢ÀÚ¤ê¤Þ¤»¤ó¡£Îî¤È¤Ê¤Ã¤Æµõ¶õ¤Ç²ñ¤¤¤Þ¤·¤ç"
+ "¤¦¡£¤½¤·¤Æ¥ô¥¡¥ì¤¬»ä¤¿¤Á¤ÎŨ¤Ë¤½¤ÎÂå½þ¤òʧ¤ï¤»"
+ "¤Þ¤¹¤è¤¦¤Ë¡£"
+ ""
+ "°¦¤¹¤ë¡¢"
+ "¡¡¥¤¥·¥ó"
+ ""
+ "ÄÉ¿¡¡¥¿¥¤¥¿¥ó¤Ï°ÂÁ´¤Ç¤¹¡£Èà¤é¤ò¸«¤¿¤â¤Î¤Ï¤ß¤Ê"
+ "Åݤµ¤ì¤Þ¤·¤¿¡£"
)
result-ok))
;; Journal should not be updated if stolen by wanderer (This would also destroy its applicability as evidence)
;;
(mk-reusable-item
- 't_stewardess_journal "Victoria's Journal" s_lexicon norm
+ 't_stewardess_journal "¥ô¥£¥¯¥È¥ê¥¢¤ÎÆüµ" s_lexicon norm
(lambda (klexicon kuser)
(kern-ui-page-text
- "Victoria's Journal"
- ""
- "1.3.1610"
- "I fear that if the Warritrix grows more "
- "popular, then the next time she defies me it "
- "will lead to open revolt. Extreme measures "
- "must be taken, I fear. I must be most "
- "careful. Perhaps 'our friends' can help us. "
- "They owe us a large debt. Not that they can "
- "be trusted. "
- ""
- "..."
- ""
- "11.13.1610"
- "I finally managed to get that pest Valus "
- "out of the way. A little evidence in the "
- "right place, a few nasty rumours, and the "
- "people are ready to accept that he has become"
- "a deviant drunkard. I believe the desperate "
- "fool would have had the temerity to strike "
- "the statue if I had not detained him in a "
- "cell. The statue's powers are probably a "
- "myth, but I see no point in taking chances. "
- ""
- "..."
- ""
- "4.1.1611"
- "S. has warned me that rumours of a Wanderer "
- "are afoot. S. is such a useful tool. I do "
- "wonder where he gets his information. I don't"
- "know why he is worked up about a Wanderer, "
- "anyway. I'm sure the legends about them are "
- "greatly exaggerated. The last time a Wanderer"
- "appeared, the Old Gods still walked the "
- "Shard, if the myths are true. "
- ""
- "..."
- ""
- "6.12.1611"
- "I have received word from S. All is prepared."
- "I will suggest to Jeffries that the rumours "
- "of feral gints occupying the Lost Halls must "
- "be investigated, and will insist on the "
- "Warritrix leading the expedition. They will "
- "expect gint riff-raff, not sorcery, and S. "
- "will ensure the way is shut behind them. "
- "There will be no escape, and if there is, I "
- "am not culpable. If anything, that fool "
- "Jeffries will go down for incompetence. "
- ""
- "The only thing that could condemn me is this "
- "journal. But no one will ever find it, and "
- "when I am queen of all the Shard the scribes "
- "will need it for their histories. "
- ""
- "..."
+ "¥ô¥£¥¯¥È¥ê¥¢¤ÎÆüµ"
+ ""
+ "1610ǯ1·î3Æü"
+ "¤â¤·Æ®»Î¤¬¤â¤Ã¤ÈÍ̾¤Ë¤Ê¤Ã¤¿¤é¡¢Èà½÷¤Ï¸øÁ³¤È»ä"
+ "¤òÈãȽ¤¹¤ë¤À¤í¤¦¡£²á·ã¤Ê¼êÃʤò¼è¤ë¤«¤â¤·¤ì¤Ê"
+ "¤¤¡£¶²¤í¤·¤¤¤³¤È¤À¡£Ãí°Õ¤·¤Ê¤¯¤Æ¤Ï¡£¤â¤·¤«¤¹¤ë"
+ "¤È¡Ö²æ¤é¤Îͧ¡×¤¬½õ¤±¤Ë¤Ê¤ë¤«¤â¤·¤ì¤Ê¤¤¡£Èà¤é¤Ë"
+ "¤ÏÂ礤ÊÂߤ·¤¬¤¢¤ë¡£¿®ÍѤǤ¤ë¤«¤Ï¤ï¤«¤é¤Ê¤¤"
+ "¤¬¡£"
+ ""
+ "¡Ä"
+ ""
+ "1610ǯ11·î13Æü"
+ "¤Ä¤¤¤Ë¥ô¥¡¥ë¥¹¤È¤¤¤¦±ÖɤòÄɤ¤¤ä¤ë¤³¤È¤¬¤Ç¤"
+ "¤¿¡£¤¦¤Ã¤Æ¤Ä¤±¤Î¾¯¤·¤Î¾Úµò¡¢¤¤¤¯¤Ä¤«¤ÎÉÔ²÷¤Ê¤¦"
+ "¤ï¤µ¡£Èब°ï椷¤¿Âç¼ò¤Î¤ß¤Ç¤¢¤ë¤È¤¤¤¦¤³¤È¤òÂç"
+ "½°¤¬¼õ¤±Æþ¤ì¤ë½àÈ÷¤¬À°¤Ã¤¿¤Î¤À¡£¤â¤·Èà¤òÆÈ˼¤Ë"
+ "¹´Î±¤·¤Ê¤±¤ì¤Ð¡¢Àä˾¤·¤¿¶ò¤«¼Ô¤¬¸þ¤³¤¦¸«¤º¤Ë¤â"
+ "Áü¤òÂǤ俤Ǥ¢¤í¤¦¡£Áü¤ÎÎϤϿÀÏ䫤⤷¤ì¤Ê¤¤¡£"
+ "¤·¤«¤·ÅÒ¤±¤Îµ¡²ñ¤òÍ¿¤¨¤ë¤Ù¤¤Ç¤Ï¤Ê¤¤¡£"
+ ""
+ "¡Ä"
+ ""
+ "1611ǯ4·î1Æü"
+ "£Ó¤¬Ì¤¤¿Í¤Î¤¦¤ï¤µ¤¬¹¤Þ¤Ã¤Æ¤¤¤ë¤ÈÃΤ餻¤Æ¤"
+ "¤¿¡££Ó¤ÏËÜÅö¤ËÊØÍø¤ÊÆ»¶ñ¤À¡£Èब¤É¤³¤Ç¾ðÊó¤òÆÀ"
+ "¤Æ¤¤¤ë¤Î¤«ÃΤꤿ¤¤¤â¤Î¤À¡£¤·¤«¤·¤Ê¤¼Èà¤Ï̤¤¿Í"
+ "¤Î¤³¤È¤ò¤½¤ó¤Ê¤Ëµ¤¤Ë¤·¤Æ¤¤¤ë¤Î¤À¤í¤¦¤«¡£Èà¤é¤Î"
+ "ÅÁÀâ¤Ï¸ØÄ¥¤µ¤ì¤¿¤â¤Î¤Ë°ã¤¤¤Ê¤¤¡£ºÇ¸å¤Ë̤¤¿Í¤¬"
+ "¸½¤ì¤¿¤Î¤Ï¸Å¤¤¿À¡¹¤«¤³¤Î¥·¥ã¥ë¥É¤òïèÊ⤷¤Æ¤¤¤¿"
+ "¤È¤¤À¡£¤â¤·¿ÀÏ䬻ö¼Â¤Ê¤é¤Ð¡¢¤À¤¬¡£"
+ ""
+ "¡Ä"
+ ""
+ "1611ǯ6·î12Æü"
+ "£Ó¤«¤é½àÈ÷¤ÏÁ´¤ÆÀ°¤Ã¤¿¤È¤Î¸ÀÍÕ¤ò¼õ¤±¼è¤Ã¤¿¡£"
+ "¥¸¥§¥Õ¥ê¡¼¥º¤Ë¡¢¼º¤ï¤ì¤¿ÅÂƲ¤òÀêµò¤·¤Æ¤¤¤ëÄ´ºº"
+ "¤¹¤Ù¤¶§Ë½¤Êµð¿Í¤¬¤¤¤ë¡¢¤È¤¤¤¦¤¦¤ï¤µ¤òÄó°Æ¤¹¤ë"
+ "¤Ä¤â¤ê¤À¡£¤½¤¦¤¹¤ì¤ÐÆ®»Î¤¬Ì¾¾è¤ê½Ð¤ë¤À¤í¤¦¡£Èà"
+ "½÷¤é¤ÏÍŽѻդǤϤʤ¯¡¢µð¿Í¤Î¥¯¥º¤É¤â¤¬¤¤¤ë¤Èͽ"
+ "ÁÛ¤¹¤ë¤Ï¤º¤À¡££Ó¤ÏÈà½÷¤é¤ÎÇظå¤ÎÆ»¤òÉõº¿¤¹¤ë¤³"
+ "¤È¤òÌ󫤷¤Æ¤¯¤ì¤¿¡£Æ¨¤²Æ»¤Ï¤Ê¤¤¡£²¾¤Ë¤¢¤Ã¤¿¤È"
+ "¤·¤Æ¤â¡¢»ä¤Îºá¤¬Ìä¤ï¤ì¤ë¤³¤È¤Ï¤Ê¤¤¡£¤½¤Î¤È¤¤Ï"
+ "¶ò¤«¤Ê¥¸¥§¥Õ¥ê¡¼¥º¤¬²òǤ¤µ¤ì¤ë¤À¤±¤À¡£"
+ ""
+ "»ä¤òÈãȽ¤·¤¦¤ë¤Î¤Ï¤³¤ÎÆüµ¤À¤±¤À¡£¤·¤«¤·Ã¯¤â¸«"
+ "¤Ä¤±¤ë¤³¤È¤Ï¤Ç¤¤Ê¤¤¤À¤í¤¦¡£¤½¤·¤Æ¤â¤·»ä¤¬¤³¤Î"
+ "¥·¥ã¥ë¥ÉÁ´Åڤν÷²¦¤Ë¤Ê¤Ã¤¿¤È¤¤Ë¤Ï¡¢Îò»Ë²È¤Ï¤³"
+ "¤ÎÆüµ¤òɬÍפȤ¹¤ë¤À¤í¤¦¡£"
+ ""
+ "¡Ä"
)
result-ok))
;; Make an object type. This is like a "class" in OO languages.
(mk-obj-type 'TF_ew_bridge ;; tag
- "bridge" ;; name
+ "¶¶" ;; name
s_ew_bridge ;; sprite
layer-tfeat ;; stacking layer
bridge-ifc ;; interface
)
(mk-obj-type 'TF_ns_bridge ;; tag
- "bridge" ;; name
+ "¶¶" ;; name
s_ns_bridge ;; sprite
layer-tfeat ;; stacking layer
bridge-ifc ;; interface
;; Entrance to Brundegardt
(kern-mk-place
'p_brundegardt ; tag
- "Brundegardt" ; name
+ "¥Ö¥ë¥ó¥Ç¥¬¡¼¥É" ; name
s_dungeon ; sprite
(kern-mk-map
nil 19 19 pal_expanded
(put (mk-monman) 0 0)
(put (spawn-pt 'troll) 12 14)
(put (spawn-pt 'troll) 11 15)
- (put (let ((kriddle (mk-riddle 'noor 't_doorway 18 3 1 1 #t
- "All who would pass must speak the password!")))
+ (put (let ((kriddle (mk-riddle "¥Î¥¢" 't_doorway 18 3 1 1 #t
+ "¤³¤³¤òÄ̤ë¼Ô¤Ï¹ç¸ÀÍÕ¤ò½Ò¤Ù¤è¡ª")))
(riddle-set-rm-on-wrong! (gob kriddle) #f)
kriddle)
17 3)
;; Brundegardt Keep
(kern-mk-place
'p_brundegardt_keep ; tag
- "Brundegardt Keep" ; name
+ "¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤ÎÁÒ¸Ë" ; name
nil
(kern-mk-map
nil 25 25 pal_expanded
;;----------------------------------------------------------------------------
;; Cave Shrine
(mk-dungeon-room
- 'p_cave_shrine "Cave Shrine"
+ 'p_cave_shrine "ƶ·¢¤Î¿ÀÅÂ"
(list
"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
"rn rn rn rn rn ,V ,I ,G ,I ,L ,A ,N ,C ,E rn rn rn rn rn "
;; Ratling Warren
(kern-mk-place
'p_ratling_warren ; tag
- "Ratling Warren" ; name
+ "¥Í¥º¥ß¿Í´Ö¤ÎÁã·ê" ; name
nil
(kern-mk-map
nil 25 25 pal_expanded
(put (mk-corpse) 23 3)
(put (kern-mk-obj t_int_potion 1) 18 4)
- (put (mk-broken-clock s_clock_hand_s s_clock_hand_n "The clock reads 6:00") 19 4)
+ (put (mk-broken-clock s_clock_hand_s s_clock_hand_n "»þ·×¤Ï6»þ00ʬ¤À¡£") 19 4)
(put (kern-mk-obj t_mana_potion 1) 20 4)
(put (kern-mk-obj t_gem 1) 21 4)
(put (kern-mk-obj t_gold_coins 2) 22 4)
;;----------------------------------------------------------------------------
;; Tunnel Turn
(kern-mk-place
- 'p_tunnel_turn "Tunnel Turn"
+ 'p_tunnel_turn "¶Ê¤¬¤ê³Ñ"
nil
(kern-mk-map
nil 19 19 pal_expanded
;;----------------------------------------------------------------------------
;; Black River
(mk-dungeon-room
- 'p_black_canal "Black Canal"
+ 'p_black_canal "¹õ¤¤ÍÑ¿åÏ©"
(list
"rn rn r8 r8 r8 rn rn r8 r8 r8 r8 r8 rn rn rn rn rn rn rn "
"rn rc gg gg gg ra rc bb ~s _s _s _s ra rn rn rn rn rn rn "
;;----------------------------------------------------------------------------
;; Tunnels
(mk-dungeon-room
- 'p_tunnels "Tunnels"
+ 'p_tunnels "²£·ê"
(list
"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
;;----------------------------------------------------------------------------
;; Chasm Drawbridge
(mk-dungeon-room
- 'p_wide_chasm "Wide Chasm"
+ 'p_wide_chasm "¹¤¤Îö¤±ÌÜ"
(list
"rn rn rn rn rn rn rn r8 r8 r8 r8 r8 rn rn rn rn rn rn rn "
"rn rn rn rn rn rn rc *3 *1 *1 *1 *5 ra rn rn rn rn rn rn "
;;----------------------------------------------------------------------------
;; Tower L1
(mk-dungeon-room
- 'p_brundegardt_tower_1 "BrundeGardt Tower L1"
+ 'p_brundegardt_tower_1 "¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤ÎÅã1³¬"
(list
"rn rn rn rn rn xx xx xx xx xx xx xx xx xx rn rn rn rn rn "
"rn rn rn xx xx xx xx xx cc cc cc xx xx xx xx xx rn rn rn "
;;----------------------------------------------------------------------------
;; Tower L2
(mk-dungeon-room
- 'p_brundegardt_tower_2 "BrundeGardt Tower L2"
+ 'p_brundegardt_tower_2 "¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤ÎÅã2³¬"
(list
"rn rn r8 r8 rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
"rn rc bb bb ra r8 xx xx xx xx xx xx xx rn rn rn rn rn rn "
;;----------------------------------------------------------------------------
;; Tower L3
(mk-dungeon-room
- 'p_brundegardt_tower_3 "BrundeGardt Tower L3"
+ 'p_brundegardt_tower_3 "¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤ÎÅã3³¬"
(list
"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
;; Tower L4
(kern-load "tim.scm")
(mk-19x19-town
- 'p_brundegardt_tower_4 "BrundeGardt Tower L4" nil
+ 'p_brundegardt_tower_4 "¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤ÎÅã4³¬" nil
(list
"^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. "
"^. ^. ^. ^. ^. bb {1 {5 {{ {{ {3 {1 {1 bb ^. ^. ^. ^. ^. "
;; Tower L5
(kern-load "eye-of-brune.scm")
(mk-19x19-town
- 'p_brundegardt_tower_5 "BrundeGardt Tower L5" nil
+ 'p_brundegardt_tower_5 "¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤ÎÅã5³¬" nil
(list
"^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. ^. "
"^. ^. ^. ^. ^. bb {1 {5 {{ {{ {3 {1 {1 bb ^. ^. ^. ^. ^. "
;;----------------------------------------------------------------------------
;; Griffin Peak
(mk-19x19-town
- 'p_griffin_peak_s "South Face of Griffin Peak" nil
+ 'p_griffin_peak_s "¥°¥ê¥Õ¥£¥ó¤Î»³Äº¤ÎÆîÌÌ" nil
(list
"^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {2 .. {4 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
"^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {2 .. {4 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
(mk-19x19-town
- 'p_griffin_peak_se "Southeast Face of Griffin Peak" nil
+ 'p_griffin_peak_se "¥°¥ê¥Õ¥£¥ó¤Î»³Äº¤ÎÆîÅìÌÌ" nil
(list
"^^ ^^ ^^ ^^ ^^ ^^ ^^ ^. {a .. .. ^v ^v ^v ^v ^v ^v ^v ^v "
"^^ ^^ ^^ ^^ ^^ ^^ ^^ ^. ^. {a .. ^v ^v ^v ^v ^v ^v ^v ^v "
5)
(mk-19x19-town
- 'p_griffin_peak_ne "Northeast Face of Griffin Peak" nil
+ 'p_griffin_peak_ne "¥°¥ê¥Õ¥£¥ó¤Î»³Äº¤ÎËÌÅìÌÌ" nil
(list
"^v ^v ^v {{ ta |. |. |. tc {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
"^v ^v ^v ^v {% ta |. tc {# ^. ^. ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
(mk-place-music p_griffin_peak_ne 'ml-outdoor-adventure)
(mk-19x19-town
- 'p_griffin_peak_n "North Face of Griffin Peak" nil
+ 'p_griffin_peak_n "¥°¥ê¥Õ¥£¥ó¤Î»³Äº¤ÎËÌÌÌ" nil
(list
"^v ta |. ~a ~5 tt ^v ^v ^. ^. ^. ^^ ^^ ^^ ^^ ^^ ^^ ^. ^. "
"^v ^v tt |. ~~ |. t5 ^v ^v ^. ^. ^. ^. ^^ ^^ ^^ ^. ^. ^. "
;; will vary at runtime and may break the illusion, but try to initialize
;; object placement the same at the start of play.
(mk-19x19-town
- 'p_griffin_peak "Griffin Peak" nil
+ 'p_griffin_peak "¥°¥ê¥Õ¥£¥ó¤Î»³Äº" nil
(list
"^. ^. ^. ^. ^v ^v ^v ^v {2 .. {4 ^v ^v ^v ^v ^. ^. ^. ^. "
"^. ^. ^. ^v ^v ^v ^v ^v {2 .. {4 ^v ^v ^v ^v ^. ^. ^. ^. "
(define (ui-get-adjacent origin pred)
(define (select-from seq)
(cond ((null? seq)
- (kern-print "Nothing!\n")
+ (kern-print "²¿¤â¤Ê¤¤¡ª\n")
nil)
(else
(car seq))))
(define (cast-teleport-spell caster dir)
(let ((coords (loc-offset (kern-obj-get-location caster) dir)))
- (cond ((null? coords) (kern-print "You sense nothing there!\n"))
- ((not (passable? coords caster)) (kern-print "You sense it is impassable!\n"))
+ (cond ((null? coords) (kern-print "²¿¤â¤Ê¤¤¡ª\n"))
+ ((not (passable? coords caster)) (kern-print "ÉÔ²Äǽ¤À¡ª\n"))
(else (kern-obj-relocate caster coords nil)))))
(define (cast-signal-spell caster signal target)
;; a result-* codee)
(effect caster target power))
(else
- (kern-log-msg "Not in LOS!")
+ (kern-log-msg "¸«¤¨¤Ê¤¤¡ª")
result-no-target)))
((kern-in-los? (kern-obj-get-location caster) target)
(effect caster target power))
(else
- (kern-log-msg "Not in LOS!")
+ (kern-log-msg "¸«¤¨¤Ê¤¤¡ª")
result-no-target)))
(define (cast-ui-dospell-nolos target effect caster power)
(effect caster target power)
result-ok)
(else
- (kern-log-msg "Not in LOS!")
+ (kern-log-msg "¸«¤¨¤Ê¤¤¡ª")
result-no-target))))
(define (cast-ui-wall effect caster range power)
(let ((target (kern-ui-target (kern-obj-get-location caster) range)))
(cond ((null? target) result-no-target)
- ((not (kern-in-los? (kern-obj-get-location caster) target)) (kern-log-msg "Not in LOS!") result-no-target)
+ ((not (kern-in-los? (kern-obj-get-location caster) target)) (kern-log-msg "¸«¤¨¤Ê¤¤¡ª") result-no-target)
(else
(let ((targetb (kern-ui-target (kern-obj-get-location caster) range)))
- (cond ((and (not (null? targetb)) (not (kern-in-los? (kern-obj-get-location caster) target))) (kern-log-msg "Not in LOS!") result-no-target)
+ (cond ((and (not (null? targetb)) (not (kern-in-los? (kern-obj-get-location caster) target))) (kern-log-msg "¸«¤¨¤Ê¤¤¡ª") result-no-target)
(else
(effect caster target (if (null? targetb) target targetb) power)
result-ok
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; The schedule below is for the place "Trigrave"
+;; ¥È¥ê¥°¥ì¥¤¥Ö
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_chant
(list 0 0 trigrave-east-west-road "drunk")
1)))
;; ----------------------------------------------------------------------------
-;; Chanticleer
-;;
-;; Chanticleer is a roaming bard who spends most of his time in Trigrave. He's
-;; a confident, easy-going fellow who is also an unstoppable showman. He
-;; possesses a great deal of knowledge about the region, loves rumours and
-;; gossip, has friends in low and high places (uncluding the reclusive
-;; Enchanter) and is probably a spy for *somebody* but it isn't clear who.
+;; ¥ª¥ó¥É¥ê
;;
+;; ¥ª¥ó¥É¥ê¤Ïι¤Î¶ãÍ·»í¿Í¤Ç¿¤¯¤Î»þ´Ö¤ò¥È¥ê¥°¥ì¥¤¥Ö¤Ç²á¤´¤·¤Æ¤¤¤ë¡£Èà¤Ï¤ª¤ª¤é¤«
+;; ¤Ê¼«¿®²È¤Ç¡¢À©»ß¤Ç¤¤Ê¤¤·Ý¿Í¤Ç¤â¤¢¤ë¡£Èà¤Ë¤Ï¿¤¯¤ÎÃÏÍý¤ÎÃ챤¬¤¢¤ê¡¢¤¦¤ï¤µ¤È
+;; ½¹Ê¹¤ò°¦¤·¤Æ¤¤¤Æ¡¢ÍÍ¡¹¤Ê¿Èʬ¤Îͧ¿Í(¿ÍÁ°¤Ë¸½¤ì¤Ê¤¤ËâÆ»»Õ¤ò´Þ¤à)¤¬¤¤¤ë¡£¤½¤·¤Æ
+;; ¤â¤·¤«¤¹¤ë¤È¡Ö狼¤Î¡×¥¹¥Ñ¥¤¤«¤â¤·¤ì¤Ê¤¤¤¬¡¢¤½¤ì¤Ï¤ï¤«¤é¤Ê¤¤¡£
;; ----------------------------------------------------------------------------
(define (chant-song knpc kpc)
(if (isdrunk? knpc)
- (say knpc "All together now! Row, row, row your boat! [Hee hee hee!]")
+ (say knpc "¤µ¤¢¤ß¤ó¤Ê¤Ç¡ª¢ö¤«¡Á¤â¡Á¤á¡Á¤Î¿åʼ¤µ¤ó¡ª¡Î¥Ò¥Ã¥Ò¥Ã¥Ò¡Ï")
(begin
- (say knpc "A thousand songs wait caged behind the bars of my dry "
- "throat! Perhaps a little coin to whet the pipes? [He looks at "
- "you expectantly. Do you give him some gold?]")
+ (say knpc "Àé¤Î²Î¤¬Ëͤ䥤¤¤¿¹¢¤È¤¤¤¦Ý£¤Î¸þ¤³¤¦¤ÇÂԤäƤ¤¤ë¡ª"
+ "¤â¤·¤«¤¹¤ë¤È¾¯¤·¤Î¶â²ß¤ÇÝ£¤ò²õ¤»¤ë¤«¤â¡©"
+ "¡ÎÈà¤Ï´üÂÔ¤¹¤ë¤è¤¦¤Ë¤¢¤Ê¤¿¤ò¸«¤Æ¤¤¤ë¡£Èà¤Ë¤¤¤¯¤é¤«¤Î¶â²ß¤òÍ¿¤¨¤ë¡©¡Ï")
(if (kern-conv-get-yes-no? kpc)
;; yes - give chant some gold
(let ((amount (kern-conv-get-amount)))
(display "amount=")(display amount)(newline)
(cond ((= 0 amount)
- (say knpc "An imaginary song then, for your imaginary "
- "gold! [He pretends to play his lute]"))
+ (say knpc "¸«¤¨¤Ê¤¤¶â²ß¤Ë¤Ïʹ¤³¤¨¤Ê¤¤²Î¤ò¡ª"
+ "¡ÎÈà¤Ï¥ê¥å¡¼¥È¤òÃƤ¯¤Þ¤Í¤ò¤·¤¿¡£¡Ï"))
((< amount 2)
- (say knpc "Yes... I see. Here goes:\n"
- "There was a Wanderer oh so cheap\n"
- "He wanted all his gold to keep\n"
- "And when he mocked poor Chanticleer\n"
- "The sound of discord filled his ear!\n"
- " [He strikes a loud, brash, chord and bows]"))
+ (say knpc "¤¢¤¢¡Ä¤ï¤«¤ê¤Þ¤·¤¿¡£¤¤¤¤Þ¤¹¤è¡£\n"
+ "\n"
+ "¡¡¢ö ¤È¤Ã¤Æ¤â¥±¥Á¤Ê̤¤¿Í\n"
+ "¡¡¤ª¶â¤ò¤¤¤Ã¤Ñ¤¤Ãù¤á¤È¤¤¿¤¤\n"
+ "¡¡°¥¤ì¤Ê¥ª¥ó¥É¥ê¤ò¤¢¤¶¾Ð¤Ã¤¿¤Î¤Ç\n"
+ "¡¡¤Ò¤É¤¤²»¤Ç¼ª¤ò¤¤¤Ã¤Ñ¤¤¤Ë¤·¤Æ¤ä¤ë¡ª\n"
+ "\n"
+ "¡ÎÈà¤Ï¹Ó¡¹¤·¤¯ÂçÀ¼¤Ç²Î¤¤¡¢¤ª¤¸¤®¤ò¤·¤¿¡£¡Ï"))
(else
- (say knpc "That will fill my yearning mug! "
- "Now, of what would you hear? Of Fen, Forest "
- "or Forgotten places?")
+ (say knpc "Ëͤο´¤ÏËþ¤¿¤µ¤ì¤¿¡ª"
+ "¤µ¤¢¡¢¤É¤³¤¬¤¤¤¤¡©¾Â¡¢¿¹¡¢"
+ "¤½¤ì¤È¤â˺¤ì¤é¤ì¤¿¾ì½ê¡©")
(chant-set-gold! knpc amount))))
;; no -- don't give him some gold
- (say knpc "A sober bard doesn't do anybody any good!")))))
+ (say knpc "¥·¥é¥Õ¤Î»í¿Í¤Ïï¤Ë¤â²¿¤â¤·¤Ê¤¤¤Î¤µ¡ª")))))
(define (chant-fen knpc kpc)
(if (isdrunk? knpc)
- (say knpc "Nazzty place! [Hic]")
+ (say knpc "±ø¤Í¤¨¤È¤³¤í¡ª¡Î¥Ò¥Ã¥¯¡Ï")
(if (not (chant-has-gold? knpc))
(chant-song knpc kpc)
(begin
(chant-dec-gold! knpc)
(say knpc
- "THE FENS\n"
+ "¼¾ÃÏÂÓ\n"
"\n"
- " If you like...\n"
- " biting flies, and farting bogs,\n"
- " dismal skies, man-sized frogs,\n"
- " evil altars, muck-filled boots,\n"
- " mislaid rangers (wary of strangers),\n"
- " trackless wastes,\n"
- " lichs, wraiths,\n"
- " and skeletal warriors, too...\n"
- " then, my friend,\n"
- " to the northern Fen!\n"
- " For that's the place for you.\n")))))
+ "¡¡¢ö ¤â¤·¤â¤¢¤Ê¤¿¤¬¤ª¹¥¤¤Ê¤é\n"
+ "¡¡·ì¤òµÛ¤¦Ã¡¡½¤¤¾Â¤¬\n"
+ "¡¡Í«Ýµ¤Ê¶õ¤¬¡¡¿Í¤°¤é¤¤¤Î¥«¥¨¥ë¤¬\n"
+ "¡¡°Ëâ¤Îº×ÃŤ¬¡¡Å¥¤¬µÍ¤Þ¤Ã¤¿·¤¤¬\n"
+ "¡¡Ëº¤ì¤é¤ì¤¿·ÙÈ÷Â⤬(¤è¤½¼Ô¤ò·Ù²ü¤·¤Æ¤¤¤ë)\n"
+ "¡¡Æ»¤Ê¤¹ÓÃϤ¬\n"
+ "¡¡¥ê¥Ã¥Á¤¬¡¡Í©Î\n"
+ "¡¡³¼¹ü¤ÎÀï»Î¤¬¡Ä\n"
+ "¡¡¤½¤¦¤Ê¤é¤Ð¡¡Í§¤è\n"
+ "¡¡Ë̤ξÂÃϤعԤ¯¤¬¤¤¤¤¡ª\n"
+ "¡¡¤½¤³¤Ï¤¢¤Ê¤¿¤Î¾ì½ê¤À")))))
(define (chant-forest knpc kpc)
(if (isdrunk? knpc)
- (say knpc "Run, Forest, run! [Hee-hee]")
+ (say knpc "Áö¤ì¡Á¡¢¿¹¤ò¡Á¡¢Áö¤ì¡Á¡Î¥Ò¥Ã¥Ò¥Ã¥Ò¡Ï")
(if (not (chant-has-gold? knpc))
(chant-song knpc kpc)
(begin
(chant-dec-gold! knpc)
(say knpc
- "THE EASTERN WOODS\n"
+ "Åì¤Î¿¹\n"
"\n"
- "The woods are lovely, dark and deep\n"
- "and always hungry, too!\n"
- "They've eaten many travelers\n"
- "and gulped a king or two.\n"
+ "¡¡¢ö ¿¹¤ÏÁÇŨ¤Ê¤È¤³¤í¡¡°Å¤¯¤Æ¿¼¤¯¤Æ\n"
+ "¡¡¤¤¤Ä¤Ç¤âµ²¤¨¤Æ¤¤¤ë¡ª\n"
+ "¡¡Î¹¿Í¤ò¤¿¤¯¤µ¤ó¿©¤Ù¤Æ\n"
+ "¡¡¤½¤·¤Æ²¦Íͤâ°û¤ß¹þ¤ó¤À\n"
"\n"
- "There goblins lurk and bandits hide\n"
- "and giant spiders drool,\n"
- "So if you go there don't forget\n"
- "to bring a slower fool!\n"
+ "¡¡¥´¥Ö¥ê¥ó¤Î½»¤ß²È¤ÈÅð±¤Î±£¤ì²È\n"
+ "¡¡¤½¤·¤ÆµðÂ祯¥â¤ÎÁã\n"
+ "¡¡¿¹¤Ë¹Ô¤¯¤È¤¤Ï˺¤ì¤ë¤Ê\n"
+ "¡¡¥Î¥í¥Þ¤Ê¥Ð¥«¤òÏ¢¤ì¤Æ¹Ô¤¯¤Î¤ò¡ª\n"
)))))
(define (chant-forgotten knpc kpc)
(if (isdrunk? knpc)
- (say knpc "I don't remember! [he weeps with laughter]")
+ (say knpc "˺¤ì¤¿¡ª¡ÎÈà¤Ïµã¤¤Ê¤¬¤é¾Ð¤Ã¤¿¡£¡Ï")
(if (not (chant-has-gold? knpc))
(chant-song knpc kpc)
(begin
(chant-dec-gold! knpc)
(say knpc
- "LOST HALLS\n"
- "\n"
- "Delving ever deeper,\n"
- "They woke the ancient sleeper,\n"
- "You know the tale\n"
- "(The moral's stale)\n"
- "So I won't bore you with detail!\n"
- "\n"
- "[stops playing] If you simply MUST go investigate, "
- "search the southern coast.")
+ "¼º¤ï¤ì¤¿ÅÂƲ \n"
+ "\n "
+ "¡¡¢ö ¿¼¤¯¿¼¤¤¤È¤³¤í¤Ç\n"
+ "¡¡¸Å¤¼Ô¤¬Ìܤò³Ð¤Þ¤¹\n"
+ "¡¡¤³¤Îʪ¸ì¤òÃΤäƤ뤫\n"
+ "¡¡(ʪ¸ì¤Ï¸ì¤é¤ì¤Ê¤«¤Ã¤¿¡£)\n"
+ "¡¡Ë°¤¤â¤»¤ºËͤϸì¤ë¡ª\n"
+ "\n "
+ "¡Î±éÁÕ¤ò»ß¤á¤¿¡£¡ÏÄ´¤Ù¤Ë¹Ô¤«¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¯¤Ê¤Ã¤¿¤é¡¢"
+ "Æî¤Î±è´ß¤Ø¹Ô¤±¤Ð¤¤¤¤¡£")
(if (null? (quest-data-getvalue 'questentry-rune-l 'know-hall))
(quest-data-update-with 'questentry-rune-l 'approx-hall 1 (quest-notify nil))
)
(define (chant-thie knpc kpc)
(if (isdrunk? knpc)
(say knpc
- "Hey diddle riddle,\n"
- "You're in the middle!\n"
- "When Kalcifax jumped through moon\n"
- "The Necromage laughed to see such sport\n"
- "And the Thief ran away with the Rune!")
- (say knpc "So Enchy has you looking too? The thief must have avoided this "
- "town, but travelers may have crossed his path. Ask Gwen.")))
+ "¡¡¥Ø¥¤¡¢¤à¤º¤¤¤Ê¤¾¤Ê¤¾\n"
+ "¡¡·¯¤Ï¤Þ¤ó¤Ê¤«¤Ë¤¤¤ë¡ª\n"
+ "¡¡¥«¥ë¥·¥Õ¥¡¥¯¥¹¤¬·î¤Ë¸þ¤«¤Ã¤ÆÈô¤ÓÄ·¤Í¤ë\n"
+ "¡¡¤½¤ì¸«¤Æ»àÎî½Ñ»Õ¤¬¾Ð¤¦\n"
+ "¡¡¤½¤·¤ÆÅ¥ËÀ¤ÏÀÐÈǤòÅð¤ó¤ÇÁö¤ê½Ð¤¹¡ª")
+ (say knpc "¤Þ¡¼¤Á¤ã¤ó¤Ï·¯¤Ëõ¤µ¤»¤¿¡©Å¥ËÀ¤Ï¤³¤ÎÄ®¤òÈò¤±¤Æ¤¤¤Ã¤¿¤Ï¤º¤À¡£"
+ "¤Ç¤â¡¢Î¹¿Í¤Ï¸«¤¿¤«¤â¤·¤ì¤Ê¤¤¡£¥°¥Ù¥ó¤Ëʹ¤¤¤Æ¤ß¤Ê¤è¡£")))
(define (chant-man knpc kpc)
(if (isdrunk? knpc)
(begin
- (say knpc "HEY! Can you keep a zecret?")
+ (say knpc "¤Ê¤¢¡ªÈëÌ©¤ò¼é¤ì¤ë¤«¤¡¡©")
(if (yes? knpc)
(begin
- (say knpc "The MAN haz a zecret cave. You know where it iz?")
+ (say knpc "¤Ë¤ó¤²¤ó¤ÏÈëÌ©¤Îƶ·¢¤Ë¤¤¤ë¡£¤É¤³¤«ÃΤäƤ뤫¤¡¡©")
(if (yes? kpc)
- (say knpc "Me too! [Hee-hee!]")
- (say knpc "The mountain at ["
- (loc-x the-mans-hideout-loc) " "
+ (say knpc "²¶Íͤâ¤À¤¡¡ª¡Î¥Ò¥Ã¥Ò¥Ã¥Ò¡ª¡Ï")
+ (say knpc "["
+ (loc-x the-mans-hideout-loc) ","
(loc-y the-mans-hideout-loc)
- "] izn't really a mountain! Go zurprize him!")))
- (say knpc "Me neither! [He snorts]")))
- (say knpc "The MAN? I don't know anything about the MAN. Why are you asking me?")))
+ "]¤Î»³¤ÏËÜÅö¤Î»³¤¸¤ã¤Í¤¨¡ª¹Ô¤Ã¤Æ¤Ó¤Ó¤é¤»¤Æ¤ä¤ì¡ª")))
+ (say knpc "²¶Íͤâ¤Ç¤¤Í¤§¡ª¡ÎÈà¤ÏÉ¡¤òÌĤ餷¤¿¡£¡Ï")))
+ (say knpc "¤Ë¤ó¤²¤ó¡©¤Ë¤ó¤²¤ó¤Î¤³¤È¤ÏÃΤé¤Ê¤¤¤Ê¤¢¡£¤Ê¤¼ËͤËʹ¤¯¤Î¡©")))
(define chant-conv
(ifc basic-conv
(method 'default
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "I's drunk... [hic]")
- (say knpc "I am at a loss."))))
+ (say knpc "¿ì¤Ã¤Æ¤¤¤ë¤ó¤À¤¡¡Ä¡Î¥Ò¥Ã¥¯¡Ï")
+ (say knpc "º¤¤Ã¤¿¤Ê¤¢¡£"))))
(method 'hail
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "[Saluting drunkenly] Hail to the cheese!")
- (say knpc "Well met, my fine fellow!"))))
+ (say knpc "¡Î¿ì¤Ã¤Ñ¤é¤¤¤Ê¤¬¤é¡Ï¾Ð¤Ã¤Æ¡¢¥Á¡Á¥º¡ª")
+ (say knpc "¤è¤¦¤³¤½¡¢¤ï¤¬Í§¤è¡ª"))))
(method 'bye
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "Buhhhh-bye [snicker]")
- (say knpc "May the road kiss your feet!"))))
+ (say knpc "¥Ð¥Ð¥Ð¥Ð¥¤¥Ð¥¤¡Î¾Ð¤¤¤Ê¤¬¤é¡Ï")
+ (say knpc "Æ»¤¬·¯¤Î¤˥¥¹¤·¤Þ¤¹¤è¤¦¤Ë¡ª"))))
(method 'job
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "[Overdramatically, he points to his eyes, "
- "then his ears, then makes a zipping motion on his "
- "mouth, nods sagely and winks]")
- (say knpc "I am a very vessel of wit and song!"))))
+ (say knpc "¡Î¤ª¤ª¤²¤µ¤Ê¿È¿¶¤ê¤Ç¡¢Èà¤Ï¼«Ê¬¤ÎÌܤò»Øº¹¤·¡¢"
+ "¼ª¤ò»Øº¹¤·¡¢¤½¤·¤Æ¸ý¤òºÉ¤°Æ°ºî¤ò¤·¤Æ¡¢"
+ "¤¹¤Þ¤·´é¤Ç¤¦¤Ê¤º¤¡¢¥¦¥£¥ó¥¯¤·¤¿¡£¡Ï")
+ (say knpc "ÃηäȲΤα¿¤Ó¼ê¤µ¡ª"))))
(method 'name
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "Chantibard! [He tries to bow but falls down]")
- (say knpc "Chanticleer the Bard, at your service "
- "[He bows and flourishes]"))))
+ (say knpc "¥ª¥ó¥É¥ê¡ª¡Î¤ª¤¸¤®¤ò¤·¤è¤¦¤È¤·¤ÆÅݤ줿¡£¡Ï")
+ (say knpc "¶ãÍ·»í¿Í¤Î¥ª¥ó¥É¥ê¡¢¤Ê¤ó¤Ç¤â¤É¤¦¤¾¡£"
+ "¡Î¤ª¤¸¤®¤ò¤·¤¿¤¢¤ÈÉñ¤Ã¤¿¡£¡Ï"))))
(method 'join
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "Join you for a drink? "
- "I thought you'd never azzk!")
- (say knpc "Some bards adventure, others are wise. "
- "I am among the latter."))))
+ (say knpc "°û¤ßÃç´Ö¤«¤¡¡©"
+ "ÂԤäƤޤ·¤¿¤¡¡ª")
+ (say knpc "ι¤ò¤¹¤ë»í¿Í¤¬¤¤¤ì¤Ð¡¢Çî³Ø¤Ê¼Ô¤â¤¤¤ë¡£"
+ "Ëͤϸå¤ÎÊý¤Ê¤Î¤µ¡£"))))
(method 'chan
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "[Hic!] Whooze that maudlin, drunken fool,\n"
- "Who plaize the tung like beast made man...")
+ (say knpc "¡Î¥Ò¥Ã¥¯¡ª¡Ï¢öµã¤¤¸¤ç¤¦¤´¤Î¡¢°û¤ó¤À¤¯¤ì¤Î¡¢¥Ð¥«ÌîϺ¤Ï¤À¤¢¤ì¤À¤¡\n"
+ "郎½Ã¤Î»Ò¤òË«¤á¤ë¤â¤Î¤«¡Ä")
(say knpc "\n"
"\n"
- " Who is that wise, enchanting bard,\n"
- " Who plays the lute like song made flesh\n"
- " And tells tales Fate herself would tell\n"
- " If Fate could only lie so well?"))))
+ "¡¡¢ö ¤«¤·¤³¤¤¡¢¤¹¤Æ¤¤Ê»í¿Í¤Ï¤À¤¢¤ì¡©\n"
+ "¡¡²Î¤¦¤è¤Ë¥ê¥å¡¼¥È¤òÃƤ¯¤Î¤Ï¤À¤¢¤ì¡©\n"
+ "¡¡Èà½÷¤Î±¿Ì¿¤Î¤ªÏäòÏ乤À¤í¤¦¤«¡¢\n"
+ "¡¡»à¤¹¤Ù¤±¿Ì¿¤¬¾å¼ê¤Ê±³¤Ê¤é¡©"))))
(method 'earl
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "e's furgotten mor' 'an I'll ever know!")
+ (say knpc "¤¢¤ó¤Ê¥Ü¥±¤¿Åۤϸ«¤¿¤³¤È¤Í¤§¡ª")
(say knpc
- "Our distinguished shopkeeper...\n"
+ "Ëͤé¤Î¤¹¤Ð¤é¤·¤¤Å¹¼ç¡Ä\n"
"\n"
- " There once was a master of flame\n"
- " As a warmage he gathered great fame\n"
- " But as you can tell\n"
- " He tried a bad spell\n"
- " And now can't remember his name!\n"
+ "¡¡¢ö ÀΤϱê¤Î¼ç¤À¤Ã¤¿ \n"
+ "¡¡Àï¤Ç̾¤ò¾å¤²¤¿ \n"
+ "¡¡¤Ç¤â¡¢¸«¤Æ¤ÎÄ̤ê \n"
+ "¡¡°¤¤ËâË¡¤Ë¼ê¤ò½Ð¤·¤Æ \n"
+ "¡¡º£¤¸¤ã̾Á°¤â»×¤¤½Ð¤»¤Ê¤¤¡ª"
))))
(method 'ench
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "Enchy! Sits in his comfy tower, giving "
- "orders, while Chant has to make the rounds!")
+ (say knpc "¤Þ¡¼¤Á¤ã¤ó¡ªÅã¤ÎÃæ¤ÇºÂ¤Ã¤Æ¡¢"
+ "ËâË¡¿Ø¤òÉÁ¤¤Ê¤¬¤éÌ¿Îᤷ¤Æ¤¤¤¿¤Ê¤¡¡ª")
(say knpc
- "My travels sometimes take me to the "
- "Enchanter's Tower."))))
+ "ËâÆ»»Õ¤ÎÅã¤Ëι¤¹¤ë¤³¤È¤â¤¢¤ê¤Þ¤¹¤è¡£"))))
(method 'gwen
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "[He leans in close and whispers loudly] "
- "Ever seen a witch carry a sword?")
+ (say knpc "¡ÎÈà¤Ï¤¢¤Ê¤¿¤Ë¤â¤¿¤ì¤«¤«¤ê¡¢ÂçÀ¼¤Ç¸À¤Ã¤¿¡£¡Ï"
+ "²¿¤ÇËâ½÷¤Ï·õ¤ò»ý¤Ã¤Æ¤ë¤ó¤À¤í¤¦¤Í¤§¡©")
(say knpc
- "Ah, our mysterious innkeeper...\n"
+ "¤¢¤¢¡¢Æ濤½É²°¤Î½÷¼ç¿Í¡Ä\n"
"\n"
- " When the gray dove is weeping\n"
- " And the whole world is sleeping\n"
- " When ghosts rise like mist from the sea\n"
- " The owl in the moonlight\n"
- " Inquires of the still night\n"
- " The question we all ask of she!\n"))))
+ "¡¡¢ö ³¥¿§¤ÎÈ·¤¬ÎÞ¤òή¤¹¤È¤\n"
+ "¡¡À¤³¦¤¬¤ß¤Ê̲¤ë\n"
+ "¡¡³¤¤«¤é̸¤Î¤è¤¦¤ËË´Î¸½¤ì¤ë¤È¤\n"
+ "¡¡¥Õ¥¯¥í¥¦¤Ï·îÌÀ¤«¤ê¤ÎÃæ\n"
+ "¡¡ÀŤ«¤ÊÌë¤Ë¿Ò¤Í¤è\n"
+ "¡¡Åú¤¨¤ÏÈà½÷¤¬ÃΤäƤ¤¤ë¡ª"))))
(method 'fen chant-fen)
(method 'fore chant-forest)
+ (method 'wood chant-forest)
(method 'forg chant-forgotten)
(method 'jim
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "A knight turned inside out! [Burp!]")
+ (say knpc "µ³»Î¤Î΢ÊÖ¤·¤µ¤¡¡ª¡Î¥²¥Ã¥×¡ª¡Ï")
(say knpc
- "Ha! Here's a bit of gossip!\n"
+ "¤ª¤Ã¤È¡ª¤³¤ó¤Ê¤¦¤ï¤µ¤â¤¢¤ê¤Þ¤¹¤è¡ª\n"
"\n"
- " Full fell and grim\n"
- " the righteous Jim,\n"
- " His armour slicked in gore,\n"
- " Slew his master on the field,\n"
- " Scratched the emblem from his shield\n"
- " And fled that cursed shore."
+ "¡¡¢ö »ÄµÔ¤ÈàØÌÔ\n"
+ "¡¡¤½¤ì¤¬¤¹¤Ð¤é¤·¤¥¸¥à\n"
+ "¡¡³»¤Ï·ì¤ÇǨ¤ì¤Æ¤¤¤ë\n"
+ "¡¡¸Ê¤¬¼ç¤òÂǤÁÅݤ·\n"
+ "¡¡½â¤ÎÌæ¾Ï¤ò¤«¤¾Ã¤¹\n"
+ "¡¡¤½¤·¤Æ¼ö¤ï¤ì¤¿Å¹¤Ë¾Ã¤¨¤¦¤»¤ë\n"
))))
(method 'roun
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "Azzright! I watches the roads, "
- "watching for them...")
- (say knpc "What a strange thing to inquire about!"))))
+ (say knpc "¤½¤¦¡ª²¶Íͤϸ«Ä¥¤Ã¤Æ¤¤¤¿¡£"
+ "¤¢¤¤¤Ä¤é¤Ëµ¤¤ò¤Ä¤±¤í¡Ä")
+ (say knpc "²¿¤Ç¤½¤ó¤Ê¤³¤È¤òʹ¤¯¤Î¡ª¡©"))))
(method 'song chant-song)
(method 'them
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "[Hissing] THEM! The Enemy of the Wise! Shhh!")
- (say knpc "[Looking at you with mock suspicion] "
- "Are you sure you're not paranoid?"))))
+ (say knpc "¡Î¤µ¤µ¤ä¤¡Ï¤¢¤¤¤Ä¤é¡ª¸¼Ô¤ÎŨ¤µ¤¡¡ª¥·¡¼¥Ã¡ª")
+ (say knpc "¡Îµ¿¤¦¤è¤¦¤Ë¤¢¤Ê¤¿¤ò¸«¤¿¡£¡Ï"
+ "¤À¤¤¤¸¤ç¤¦¤Ö¤«¤¤¡©"))))
(method 'thie chant-thie)
(method 'towe
(lambda (knpc kpc)
(if (isdrunk? knpc)
- (say knpc "Deprezzing place!")
+ (say knpc "Í«¤¦¤Ä¤Ê¤È¤³¤í¤µ¤¡¡ª")
(say knpc
- "It watches the Fen to the north, "
- "but if you're thinking of going there, "
- "know that the Enchanter does not like visitors!"))))
+ "Ë̤μ¾ÃÏÂӤǸ«¤é¤ì¤Þ¤¹¤è¡£"
+ "¤Ç¤â¤½¤³¤Ø¹Ô¤¤¿¤¤¤Î¤Ê¤é¡¢"
+ "ËâÆ»»Õ¤ÏÍèµÒ¤ò¹¥¤Þ¤Ê¤¤¤³¤È¤ò³Ð¤¨¤Æ¤ª¤¤¤Æ¤¯¤À¤µ¤¤¡ª"))))
(method 'wit
(lambda (knpc kpc)
- (say knpc "Well, gossip really. Give me a name, I'll give "
- "you the dirt.")))
+ (say knpc "¤¦¡¼¤ó¡¢ËÜÅö¤Ï¤¿¤À¤Î¤¦¤ï¤µÏ䵡£"
+ "̾Á°¤ò¸À¤¨¤Ð¡¢¤½¤Î¿Í¤Î¤¦¤ï¤µ¤òʹ¤«¤»¤Þ¤¹¤è¡£")))
(method 'lost
(lambda (knpc kpc)
- (say knpc "Well, I wouldn't be a bard if I didn't know a song about the fabled Lost Halls!")))
+ (say knpc "¤¨¤¨¡¢¤³¤ÎÅÁÀâŪ¤Ê¼º¤ï¤ì¤¿ÅÂƲ¤Î²Î¤òÃΤé¤Ê¤±¤ì¤Ð¡¢Ëͤ϶ãÍ·»í¿Í¤Ë¤Ï¤Ê¤é¤Ê¤«¤Ã¤¿¤Ç¤·¤ç¤¦¤Í¡ª")))
(method 'man chant-man)
(method 'wrog chant-man)
))
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Glasdrin.
+;; ¥°¥é¥¹¥É¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_ches
(list 0 0 gc-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Chester is a burly weaponsmith who lives in Glasdrin.
+;; ¥Á¥§¥¹¥¿¡¼¤ÏÉð´ï²°¤ÎÂçÃˤǡ¢¥°¥é¥¹¥É¥ê¥ó¤Ë½»¤ó¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (ches-hail knpc kpc)
- (say knpc "[You meet an enormous man with arms like tree trunks] "
- "Hail, warrior!"))
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÏÌڤδ´¤Î¤è¤¦¤ÊÏÓ¤ÎÂçÃˤȲñ¤Ã¤¿¡£¡Ï"
+ "¤è¤ª¡¢Àï»Î¤µ¤ó¡ª"))
(define (ches-default knpc kpc)
- (say knpc "'Tis beyond my ken."))
+ (say knpc "¤½¤ì¤Ï²¶¤ÎÃ챤òĶ¤¨¤Æ¤¤¤ë¡£"))
(define (ches-name knpc kpc)
- (say knpc "I'm Chester, of the Axe and Shield. "
- "You look like a serious character, "
- "in need of some serious weaponry. "
- "Perhaps I can interest you in something?")
+ (say knpc "¡ÖÉà¤È½â¡×¤Î¥Á¥§¥¹¥¿¡¼¤À¡£"
+ "¸·½Í¤Ê¿Íʪ¤È¸«¤é¤ì¤ë¤¿¤á¤Ë¤Ï¡¢¸·½Í¤ÊÉð´ï¤¬É¬ÍפÀ¡£"
+ "²¿¤«¶½Ì£¤Î¤¢¤ëʪ¤Ï¤¢¤ë¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(ches-trade knpc kpc)))
(define (ches-join knpc kpc)
- (say knpc "Nay, friend, somebody has to keep you adventurers provisioned!"))
+ (say knpc "ÈÝ¡¢Í§¤è¡£ËÁ¸±¼Ô¤Ë¤ÏÁõÈ÷¤ò¶¡µë¤¹¤ë狼¤¬É¬ÍפÀ¡ª"))
(define (ches-job knpc kpc)
- (say knpc "I sell the finest weapons and armor in the land. "
- "Care to have a look?")
+ (say knpc "¤³¤ÎÃϤǺǤâÎɤ¤Éð´ï¤È³»¤òÇä¤Ã¤Æ¤¤¤ë¡£"
+ "¸«¤Æ¤¤¤¯¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(ches-trade knpc kpc)
- (say knpc "As you like it. You'll find none better, "
- "I assure you.")))
+ (say knpc "¤Þ¤¢¤¤¤¤¤À¤í¤¦¡£¤³¤³¤è¤ê¤¤¤¤Êª¤Ï¤Ê¤¤¡£"
+ "ÃǸÀ¤¹¤ë¡£")))
(define (ches-bye knpc kpc)
- (say knpc "Farewell, and tell your friends about my shop!"))
+ (say knpc "¤µ¤é¤Ð¡£Í§¤Ë²¶¤ÎŹ¤Î¤³¤È¤òÏ䷤Ƥ¯¤ì¡ª"))
(define ches-catalog
(list
- (list t_staff 20 "Equip your mages with staffs so they can feel useful.")
- (list t_dagger 65 "Always keep an extra dagger or two in your boots.")
- (list t_mace 80 "The mace is a fine weapon for crushing skulls and breaking bones.")
- (list t_axe 85 "That axe is just the thing for splitting shields.")
- (list t_sword 85 "The sword is the workhorse of the fighting class.")
- (list t_2H_axe 90 "You'll mow down your enemies like grass with my two-handed axes.")
- (list t_2H_sword 100 "Ah yes, my personal favorite is the mighty the two-handed sword.")
- (list t_morning_star 105 "Your foes will give you plenty of room when you whip out a morning star.")
- (list t_halberd 150 "With the halberd your back ranks can reinforce your front.")
+ (list t_staff 20 "Ãç´Ö¤ÎËâ½Ñ»Õ¤Ë¾ó¤ò»ý¤¿¤»¤ì¤Ð¡¢¤½¤ÎÊØÍø¤µ¤¬¤ï¤«¤ë¤Ï¤º¤À¡£")
+ (list t_dagger 65 "·¤¤ÎÃæ¤Ë°ì¤Ä¤«Æó¤Ä¤Îû·õ¤ò¾ï¤ËǦ¤Ð¤»¤Æ¤ª¤±¡£")
+ (list t_mace 80 "ÄÈÌ·¤ÏƬ³¸¹ü¤òºÕ¤¹ü¤ò²õ¤¹¤Ë¤Ï¤¤¤¤Éð´ï¤À¡£")
+ (list t_axe 85 "¤³¤ÎÉà¤Ï¤Þ¤µ¤Ë½â¤ò³ä¤ë¤¿¤á¤Î¤â¤Î¤À¡£")
+ (list t_sword 85 "·õ¤ÏÀï»Î¤Î¼çÎϤÎÉð´ï¤À¡£")
+ (list t_2H_axe 90 "¤³¤Îξ¼êÉब¤¢¤ì¤ÐÁð¤ò´¢¤ê¼è¤ë¤è¤¦¤ËŨ¤ò¤Ê¤®Åݤ»¤ë¡£")
+ (list t_2H_sword 100 "¤½¤¦¤À¡£¸Ä¿ÍŪ¤Ë¤Ï¤³¤Î¶¯ÎϤÊξ¼ê·õ¤¬¹¥¤ß¤À¡£")
+ (list t_morning_star 105 "¤³¤Î»ÉÉդŴµå¤ò¼è¤ê½Ð¤»¤Ð¡¢¤½¤ì¤À¤±¤ÇŨ¤ÏÂय¤À¤í¤¦¡£")
+ (list t_halberd 150 "ÉàÁä¤ò»ý¤Ä¼Ô¤¬¸å¤í¤Ë¤¤¤ì¤Ð¡¢Á°Ì̤϶¯²½¤µ¤ì¤ë¤À¤í¤¦¡£")
- (list t_sling 50 "If you have any children a sling will make a fine starter weapon.")
- (list t_spear 15 "The spear is quite popular with goblins and other savages.")
+ (list t_sling 50 "¤â¤·»Ò¶¡¤¬¤¤¤ë¤Ê¤é¡¢ÅêÀÐɳ¤ÏºÇ½é¤ÎÉð´ï¤È¤·¤Æ¤Ï¤¤¤¤¤À¤í¤¦¡£")
+ (list t_spear 15 "ÅêÁä¤Ï¥´¥Ö¥ê¥ó¤äÈÚ²¤¬¤è¤¯»È¤Ã¤Æ¤¤¤ëÉð´ï¤À¡£")
- (list t_self_bow 120 "These little bows are perfect for hunting small animals.")
- (list t_bow 200 "The rangers like to skulk about in the woods with bows like this.")
- (list t_arrow 1 "If you don't wish to face your enemies in manly combat, be sure to carry plenty of arrows.")
+ (list t_self_bow 120 "¤³¤Î¾®¤µ¤ÊµÝ¤Ï¾®¤µ¤Êưʪ¤ò¼í¤ë¤Ë¤Ï¤â¤Ã¤Æ¤³¤¤¤À¡£")
+ (list t_bow 200 "·ÙÈ÷Ââ¤Î¤è¤¦¤Ë¿¹¤ÎÃæ¤òÇ礤²ó¤ë¼Ô¤Ë¤Ï¤³¤ÎµÝ¤¬¤¤¤¤¡£")
+ (list t_arrow 1 "¤â¤·Å¨¤ÈľÌ̤·¤¿¤¯¤Ê¤±¤ì¤Ð¡¢Ìð¤òÂçÎ̤˻ý¤Ã¤Æ¤ª¤¯¤Ù¤¤À¡£")
- (list t_crossbow 380 "When your enemies flee from your blade, drop them with a crossbow.")
- (list t_hvy_crossbow 600 "When besieged, the manly warrior turns to one of these beauties.")
- (list t_bolt 1 "The Glasdrin militia demands the best arms, and I am their sole supplier for bolts.")
+ (list t_crossbow 380 "¤â¤·Å¨¤¬¿Ï¤«¤éƨ¤²½Ð¤·¤¿¤Ê¤é¡¢¤³¤Î¥¯¥í¥¹¥Ü¥¦¤ÇÅݤ»¡ª")
+ (list t_hvy_crossbow 600 "Ũ¤Ë°Ï¤Þ¤ì¤¿¤é¡¢Í¦¤Þ¤·¤¤Àï»Î¤â¤³¤ÎÈþ½÷¤À¤±¤¬Íê¤ê¤À¡£")
+ (list t_bolt 1 "¥°¥é¥¹¥É¥ê¥ó¤Î·³¤ÏºÇ¹â¤ÎÉð´ï¤òµá¤á¤Æ¤¤¤ë¡£¤½¤·¤ÆÍ£°ì²¶¤¬¥¯¥í¥¹¥Ü¥¦¤ÎÌð¤ò¶¡µë¤·¤Æ¤¤¤ë¡£")
- (list t_leather_helm 50 "The light helm is perfect for any pencil-necked wrogues in your party.")
- (list t_chain_coif 100 "The chain coif will protect your neck without obstructing your vision.")
- (list t_iron_helm 150 "With an iron helm you can charge head first into the thickest melee.")
- (list t_armor_leather 150 "Leather armour won't slow you down, but it only gives minimal protection.")
- (list t_armor_chain 330 "Chain is the preferred armour of paladins, and they know their stuff.")
- (list t_armor_plate 1000 "With plate armour you will be invincible in battle.")
+ (list t_leather_helm 50 "·Ú¤¤³õ¤Ï±ôÉ®¤Î¤è¤¦¤Ê¼ó¤Î¤Ê¤é¤º¼Ô¤Ë¤Ï¤Ô¤Ã¤¿¤ê¤À¡£")
+ (list t_chain_coif 100 "º¿Æ¬¶Ò¤Ï»ë³¦¤ò¼×¤é¤º¤Ë¼ó¤ò¼é¤ì¤ë¡£")
+ (list t_iron_helm 150 "¤³¤ÎÅ´³õ¤Ï¤ª¤Þ¤¨¤ÎƬ¤òºÇ¤â¸Ç¤¤¥À¥¤¥ä¤ËÊѤ¨¤ë¤À¤í¤¦¡£")
+ (list t_armor_leather 150 "Èé¤Î³»¤ÏÆ°¤¤Î¤¸¤ã¤Þ¤Ë¤Ê¤é¤Ê¤¤¤¬¡¢ºÇÄã¸Â¤ÎËɸæÎϤ·¤«¤Ê¤¤¡£")
+ (list t_armor_chain 330 "º¿¤«¤¿¤Ó¤é¤ÏÀ»µ³»Î¤ËºÇŬ¤Î³»¤À¡£¤½¤·¤ÆÈà¤é¤Ï¤½¤Î¤³¤È¤ò¤è¤¯¤ï¤«¤Ã¤Æ¤¤¤ë¡£")
+ (list t_armor_plate 1000 "¹ÃÑɤòÃå¤ì¤ÐÉÔ»à¿È¤ÎÀï»Î¤Ë¤Ê¤ì¤ë¡£")
- (list t_shield 30 "A sturdy shield will save you from craven foes who shoot from afar.")
+ (list t_shield 30 "¾æÉפʽ⤬¤¢¤ì¤Ð±ó¤¯¤«¤é·â¤Ã¤Æ¤¯¤ë²²É¼ԤÎŨ¤«¤é¿È¤ò¼é¤ì¤ë¡£")
- (list t_spiked_helm 250 "The best defense is a good offense! This spiked helm will prove my point. No pun intended.")
- (list t_spiked_shield 250 "With the spiked shield you practically don't need a weapon.")
+ (list t_spiked_helm 250 "¹¶·â¤ÏºÇÂç¤ÎËɸæ¤À¡ª¤³¤Î»ÉÉÕ¤³õ¤¬¾ÚÌÀ¤·¤Æ¤¯¤ì¤ë¤À¤í¤¦¡£¾éÃ̤ǤϤʤ¯¡£")
+ (list t_spiked_shield 250 "¤³¤Î»ÉÉÕ¤½â¤¬¤¢¤ì¤ÐÉð´ï¤Ï¤Û¤È¤ó¤É¤¤¤é¤Ê¤¤¤À¤í¤¦¡£")
))
(define ches-merch-msgs
- (list "Come by the Axe and Shield when I'm working, and I'll ply you with the best weapons and armor money can buy between 9:00AM and 6:00PM."
- "Come have a look at my armory!" ;; buy
- "I'll offer you some trade-in value on your used arms." ;; sell
- "I equip the finest warriors in the land. What can I do for you?" ;; trade
- "Now go bash some skulls! And come back when you need an upgrade." ;; sold-something
- "Your equipment is looking a bit shabby, you should reconsider." ;; sold-nothing
- "Now you should buy something to replace that old junk." ;; bought-something
- "I was only trying to help. I don't think anyone else will want that rubbish." ;; bought-nothing
- "Now you're ready to storm Gintspar!" ;; traded-something
- "Browse all you like." ;; traded-nothing
+ (list "²¶¤¬Å¹¤Ë¤¤¤ë¤È¤¤Ë¡ÖÉà¤È½â¡×¤ËÍè¤Æ¤¯¤ì¡£ºÇ¹â¤ÎÉð´ï¤ÈËɶñ¤ò¤ª¸«¤»¤·¤è¤¦¡£¸áÁ°9»þ¤«¤é¸á¸å6»þ¤Þ¤Ç¤ä¤Ã¤Æ¤ë¡£"
+ "¤µ¤¢²¶¤ÎÉð´ï¡¦³»¤ò¸«¤Æ¤¯¤ì¡ª" ;; buy
+ "»È¤Ã¤¿Éð´ï¡¦³»¤â²¼¼è¤ê¤¹¤ë¤¾¡£" ;; sell
+ "¤³¤ÎÃϤǺǹâ¤ÎÀï»Î¤¿¤Á¤ËÁõÈ÷¤ò¶¡µë¤·¤Æ¤¤¤ë¡£¤Ê¤Ë¤¬Íߤ·¤¤¡©" ;; trade
+ "¤µ¤¢Å¨¤ÎƬ³¸¹ü¤òºÕ¤±¡ª¤â¤Ã¤È¤¤¤¤¤Î¤¬Íߤ·¤¯¤Ê¤Ã¤¿¤é¤Þ¤¿Íè¤Æ¤¯¤ì¡£" ;; sold-something
+ "¤ª¤Þ¤¨¤ÎÁõÈ÷¤Ï¾¯¤·¸Å¤Ó¤Æ¤¤¤ë¤Ê¡£¹Í¤¨¤Ê¤ª¤·¤¿¤Û¤¦¤¬¤¤¤¤¡£" ;; sold-nothing
+ "¤³¤Î¥ª¥ó¥Ü¥í¤ÎÂå¤ï¤ê¤ò²¿¤«Çã¤Ã¤Æ¤¤¤¤Ê¡£" ;; bought-something
+ "¤½¤Î¥¬¥é¥¯¥¿¤¬Íߤ·¤¤ÅÛ¤¬Â¾¤Ë¤¤¤ë¤È¤Ï»×¤¨¤Ê¤¤¡£" ;; bought-nothing
+ "µð¿Í¤ò½³»¶¤é¤¹½àÈ÷¤¬¤Ç¤¤¿¤Ê¡ª" ;; traded-something
+ "¹¥¤¤Ê¤À¤±¸«¤Æ¤¤¤¤Ê¤è¡£" ;; traded-nothing
))
;; Trade...
;; Paladins...
(define (ches-pala knpc kpc)
- (say knpc "I served several tours with the paladins, but that's no way "
- "to make a fortune, so I retired and opened my shop."))
+ (say knpc "ʼÌò¤Ç¤Ï²¿ÅÙ¤«À»µ³»Î¤ÈƱ¹Ô¤·¤¿¡£¤Ç¤â²Ô¤°ÊýË¡¤¬¤Ê¤«¤Ã¤¿¡£"
+ "¤À¤«¤éÂàÌò¸å¤Ï¤³¤ÎŹ¤ò³«¤¤¤¿¤ó¤À¡£"))
;; Townspeople...
(define (ches-glas knpc kpc)
- (say knpc "Not a bad town. Business is good here, "
- "with the paladins and all."))
+ (say knpc "°¤¯¤Ê¤¤Ä®¤À¡£À»µ³»Î¤Ê¤ó¤«¤òÁê¼ê¤Ë¤·¤¿¾¦Çä¤Ë¤Ï¤â¤Ã¤Æ¤³¤¤¤À¡£"))
(define (ches-ange knpc kpc)
- (say knpc "Nice-looking woman. But I prefer them a bit more wild."))
+ (say knpc "Èþ¿Í¤À¡£¤±¤É²¶¤Ï¤â¤Ã¤È¹Ó¡¹¤·¤¤¤Î¤¬¹¥¤ß¤À¤Ê¡£"))
(define (ches-patc knpc kpc)
- (say knpc "I've never been sick, but word is he's a good healer."))
+ (say knpc "²¶¤Ïɵ¤¤Ë¤Ê¤Ã¤¿¤³¤È¤¬¤Ê¤¤¡£¤À¤¬¤¤¤¤ÏÓ¤À¤Èʹ¤¤¤¿¡£"))
(define (ches-jess knpc kpc)
- (say knpc "Now there's a fine piece of woman flesh! "
- "Too bad about that scar, "
- "but in the dark it's all the same, eh?"))
+ (say knpc "º£¤Ï¼ã¤¤½÷¤Î¤¤¤ë¤¤¤¤¾ì½ê¤À¡ª"
+ "½ý¤¬»ÄÇ°¤À¤¬¡¢¿¿¤Ã°Å¤Ê¤éƱ¤¸¤À¤í¤¦¡©"))
(define ches-conv
(ifc glasdrin-conv
(define (mk-chester)
(bind
(kern-mk-char 'ch_chester ; tag
- "Chester" ; name
+ "¥Á¥§¥¹¥¿¡¼" ; name
sp_human ; species
oc_warrior ; occ
s_townsman ; sprite
(ifc nil
(method 'search corpse-search)))
-(mk-obj-type 't_corpse "corpse" s_corpse layer-item corpse-ifc)
+(mk-obj-type 't_corpse "°äÂÎ" s_corpse layer-item corpse-ifc)
(define (mk-corpse)
(bind (kern-mk-obj t_corpse 1)
(cond
((container-magic-locked? container)
- (kern-log-msg "Magically locked!\n")
+ (kern-log-msg "ËâË¡¤ÇÉõ°õ¤µ¤ì¤Æ¤¤¤ë¡ª\n")
#f)
((container-locked? container)
- (kern-log-msg "Locked!\n")
+ (kern-log-msg "»Ü¾û¤µ¤ì¤Æ¤¤¤ë¡ª\n")
#f)
(else
;; Searching can trigger traps, which can destroy both kobj and kchar
(kern-obj-inc-ref kobj)
(kern-obj-inc-ref kchar)
- (kern-log-begin "Searching chest...")
+ (kern-log-begin "ÊõÈ¢¤òÄ´¤Ù¤¿¡Ä")
(let ((container (gob kobj)))
(if (foldr (lambda (detected? trap)
(trap-search trap kobj kchar)
(or detected? (trap-detected? trap)))
#f
(container-traps container))
- (kern-log-end "Trap detected!")
- (kern-log-end "No traps detected!")
+ (kern-log-end "櫤¬»Å³Ý¤±¤é¤ì¤Æ¤¤¤ë¡ª")
+ (kern-log-end "櫤Ϥʤ¤¤è¤¦¤À¡ª")
))
;; Done with references
(kern-obj-dec-ref kobj)
(define (kcontainer-describe kcontainer count)
(let ((container (gob kcontainer)))
- (kern-log-continue "a ")
+ (kern-log-continue "")
(if (container-magic-locked? container)
- (kern-log-continue "magically locked, "))
+ (kern-log-continue "ËâË¡¤ÇÉõ°õ¤µ¤ì¤¿"))
(if (container-locked? container)
(if (container-needs-key? container)
- (kern-log-continue "locked (with a key), ")
- (kern-log-continue "padlocked, ")))
+ (kern-log-continue "»Ü¾û¤µ¤ì¤¿")
+ (kern-log-continue "Æîµþ¾û¤Î³Ý¤±¤é¤ì¤¿")))
(if (container-open? container)
- (kern-log-continue "open container ")
- (kern-log-continue "closed container "))
+ (kern-log-continue "³«¤¤¤¿È¢")
+ (kern-log-continue "ÊĤ¸¤¿È¢"))
(kern-log-continue "(")
(if (foldr (lambda (described? trap)
(cond ((trap-detected? trap)
(if described?
- (kern-log-continue ", "))
+ (kern-log-continue "¡¢"))
(kern-log-continue (trap-name trap))
(if (trap-tripped? trap)
- (kern-log-continue "[disarmed]"))
+ (kern-log-continue "[²ò½üºÑ]"))
#t)
(else
described?)))
#f
(container-traps container))
- (kern-log-continue " trap(s) detected")
- (kern-log-continue "no traps detected")
+ (kern-log-continue "櫤¬¤¢¤ë")
+ (kern-log-continue "櫤Ϥʤ¤¤è¤¦¤À")
)
(kern-log-continue ")")
))
(define (kcontainer-lock kcontainer khandler)
(let ((container (gob kcontainer)))
(println "container-lock: " container)
- (cond ((container-open? container) (kern-log-msg "Not closed!\n") #f)
- ((container-locked? container) (kern-log-msg "Already locked!\n") #f)
+ (cond ((container-open? container) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª\n") #f)
+ ((container-locked? container) (kern-log-msg "´û¤Ë»Ü¾û¤µ¤ì¤Æ¤¤¤ë¡ª\n") #f)
(else
(container-set-locked! container #t)
(kcontainer-update-sprite kcontainer)
(define (kcontainer-unlock kcontainer khandler)
(let ((container (gob kcontainer)))
- (cond ((container-open? container) (kern-log-msg "Not closed!\n") #f)
- ((not (container-locked? container)) (kern-log-msg "Not locked!\n") #f)
- ((container-needs-key? container) (kern-log-msg "Needs the key!\n") #f)
+ (cond ((container-open? container) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª\n") #f)
+ ((not (container-locked? container)) (kern-log-msg "»Ü¾û¤µ¤ì¤Æ¤¤¤Ê¤¤¡ª\n") #f)
+ ((container-needs-key? container) (kern-log-msg "¸°¤¬É¬ÍפÀ¡ª\n") #f)
(else
(container-set-locked! container #f)
(kcontainer-update-sprite kcontainer)
(define (kcontainer-magic-lock kcontainer khandler)
(let ((container (gob kcontainer)))
- (cond ((container-open? container) (kern-log-msg "Not closed!\n") #f)
+ (cond ((container-open? container) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª\n") #f)
((container-magic-locked? container)
- (kern-log-msg "Already magically locked!\n") #f)
+ (kern-log-msg "´û¤ËËâË¡¤ÇÉõ°õ¤µ¤ì¤Æ¤¤¤ë¡ª\n") #f)
(else
(container-set-magic-locked! container #t)
(kcontainer-update-sprite kcontainer)
(define (kcontainer-magic-unlock kcontainer khandler)
(let ((container (gob kcontainer)))
(println "container-magic-unlock: " container)
- (cond ((container-open? container) (kern-log-msg "Not closed!\n") #f)
+ (cond ((container-open? container) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª\n") #f)
((not (container-magic-locked? container))
- (kern-log-msg "Not magically locked!\n") #f)
+ (kern-log-msg "ËâË¡¤ÇÉõ°õ¤µ¤ì¤Æ¤¤¤Ê¤¤¡ª\n") #f)
(else
(container-set-magic-locked! container #f)
(kcontainer-update-sprite kcontainer)
(define (kcontainer-use-key kcontainer key-type)
(let ((container (gob kcontainer)))
(println "container-use-key: " container)
- (cond ((container-open? container) (kern-log-msg "Not closed!"))
- ((not (container-key-fits? container key-type)) (kern-log-msg "Key won't fit!"))
+ (cond ((container-open? container) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª"))
+ ((not (container-key-fits? container key-type)) (kern-log-msg "¤³¤Î¸°¤Ï¹ç¤ï¤Ê¤¤¡ª"))
((container-locked? container)
(container-set-locked! container #f)
(kcontainer-update-sprite kcontainer)
(define (kcontainer-lock-with-key kcontainer ktype)
(let ((container (gob kcontainer)))
(println "container-lock-with-key: " container " " ktype)
- (cond ((container-open? container) (kern-log-msg "Not closed!"))
- ((container-locked? container) (kern-log-msg "Already locked!"))
+ (cond ((container-open? container) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª"))
+ ((container-locked? container) (kern-log-msg "´û¤Ë»Ü¾û¤µ¤ì¤Æ¤¤¤ë¡ª"))
(else
(container-set-key! container ktype)
(container-set-locked! container #t)
(mk-obj-type tag name sprite layer-mechanism container-ifc))
;; Test it out. First, make a new chest type.
-(mk-container-type 't_chest "chest" s_chest)
+(mk-container-type 't_chest "ÊõÈ¢" s_chest)
;; Define a constructor for an object of the new chest type. Example usage:
;;
(method 'butcher animal-corpse-butcher)
))
-(mk-obj-type 't_animal_corpse "animal corpse" s_corpse layer-item animal-corpse-ifc)
\ No newline at end of file
+(mk-obj-type 't_animal_corpse "ưʪ¤Î»àÂÎ" s_corpse layer-item animal-corpse-ifc)
\ No newline at end of file
;;----------------------------------------------------------------------------
-;; Generic conversation
+;; °ìÈÌŪ¤Ê²ñÏÃ
;;----------------------------------------------------------------------------
-;; fundamentals
+;; ´ðËÜ
(define (generic-hail knpc kpc)
- (say knpc "Well met"))
+ (say knpc "¤³¤ó¤Ë¤Á¤Ï¡£"))
(define (generic-unknown knpc kpc)
- (say knpc "I can't help you with that"))
+ (say knpc "¤½¤ì¤Ï¸À¤¨¤Ê¤¤¡£"))
(define (generic-bye knpc kpc)
- (say knpc "Farewell")
+ (say knpc "¤µ¤è¤¦¤Ê¤é¡£")
(kern-conv-end))
(define (generic-join knpc kpc)
- (say knpc "I cannot join you."))
+ (say knpc "Ãç´Ö¤Ë¤Ï¤Ê¤ì¤Ê¤¤¡£"))
(define (generic-leav knpc kpc)
(cond ((is-player-party-member? knpc)
(cond ((is-only-living-party-member? knpc)
- (say knpc "Maybe I should resurrect the Wanderer first... "
- "or sell his body parts to a thaumaturge, at least."))
+ (say knpc "¤Þ¤ºÌ¤¤¿Í¤òÁÉÀ¸¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡Ä"
+ "¤½¤ì¤È¤â»àÂΤò´ñ½Ñ»Õ¤ËÇä¤Ã¤Æ¤·¤Þ¤ª¤¦¤«¡©"))
(else
- (say knpc "Do you want me to leave your party now?")
+ (say knpc "Ãç´Ö¤«¤é³°¤ì¤ÆÍߤ·¤¤¡©")
(cond ((yes? kpc)
(cond ((kern-char-leave-player knpc)
- (say knpc "If you change your mind I'll be here waiting.")
+ (say knpc "¤³¤³¤ÇÂԤäƤ¤¤ë¤Î¤Ç¡¢µ¤¤¬ÊѤï¤Ã¤¿¤éÏä·¤«¤±¤ÆÍߤ·¤¤¡£")
(kern-conv-end)
)
(else
- (say knpc "I can't leave right now!"))))
+ (say knpc "º£¤ÏÊ̤ì¤é¤ì¤Ê¤¤¡ª"))))
(else
- (say knpc "You made me nervous there for a minute."))))))
+ (say knpc "µ¤¤¬Æ°Å¾¤·¤¿¤è¡£"))))))
(else
- (say knpc "I'm not a member of your party!"))))
+ (say knpc "¤¢¤Ê¤¿Ã£¤Î°ì°÷¤Ç¤Ï¤Ê¤¤¡ª"))))
-;; wise
+;; ¸¼Ô
(define (basic-ench knpc kpc)
- (say knpc "The Enchanter is the Wise Wizard. "
- "He lives in a tower by the Fens, do you need directions?")
+ (say knpc "ËâÆ»»Õ¤ÏËâË¡»È¤¤¤Î¸¼Ô¤À¡£"
+ "¼¾ÃÏÂÓ¤ÎÅã¤Ë½»¤ó¤Ç¤¤¤ë¡£Êý¸þ¤òÃΤꤿ¤¤¤«¡©")
(quest-wise-subinit 'questentry-enchanter)
(quest-data-update 'questentry-enchanter 'general-loc 1)
(if (yes? kpc)
(let ((kplace (get-place knpc)))
(cond ((equal? kplace p_westpass)
- (say knpc "Take the ladder down. You'll come out in Eastpass. "
- "The knights can help you from there."))
+ (say knpc "¤Ï¤·¤´¤ò²¼¤ê¤ë¤ÈÅ즤ؤÎÆ»¤Ë¹Ô¤±¤ë¡£"
+ "¤½¤³¤Ë¤¤¤ëµ³»Î¤¬Æ»¤òÃΤäƤ¤¤ë¤À¤í¤¦¡£"))
((equal? kplace p_eastpass)
- (say knpc "Take the road west to Trigrave and ask around there."))
+ (say knpc "Æ»¤òÅì¤Ë¿Ê¤à¤È¥È¥ê¥°¥ì¥¤¥Ö¤À¡£¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_trigrave)
- (quest-data-update 'questentry-calltoarms 'directions 1)
- (say knpc "Take the road north to The Fen."))
+ (quest-data-update 'questentry-calltoarms 'directions 1)
+ (say knpc "Æ»¤òË̤عԤ¯¤È¼¾ÃÏÂÓ¤À¡£"))
(else
- (say knpc "The Fens are somewhere in the northwest."))
+ (say knpc "¼¾ÃÏÂÓ¤ÏËÌÀ¾¤Ë¤¢¤ë¡£"))
))))
-;; towns
+;; Į
(define (basic-trig knpc kpc)
- (say knpc "Trigrave is a small town in the west, "
- "settled where two rivers meet."))
+ (say knpc "¥È¥ê¥°¥ì¥¤¥Ö¤ÏÀ¾¤ÎÆó¤Ä¤ÎÀ¹çή¤¹¤ë¾ì½ê¤Ë¤¢¤ë¾®¤µ¤ÊÄ®¤À¡£"))
(define (basic-gree knpc kpc)
- (say knpc "Green Tower, home of the Rangers, lies deep in the Great Forest. "
- "Do you need directions?")
+ (say knpc "·ÙÈ÷ÂâËÜÉô¤ÎÎФÎÅã¤Ï¿¹¤Î±ü¿¼¤¯¤Ë¤¢¤ë¡£"
+ "Êý¸þ¤òÃΤꤿ¤¤¤«¡©")
(if (yes? kpc)
(let ((kplace (get-place knpc)))
(cond ((equal? kplace p_westpass)
- (say knpc "Take the road east into the forest. "
- "Eventually it turns into a trail, follow it as best you can."))
+ (say knpc "Æ»¤òÅì¤Ë¿Ê¤ß¡¢¿¹¤ËÆþ¤ë¡£"
+ "¾®Æ»¤¬¸«¤¨¤¿¤é¡¢¤½¤ì¤ò¤¿¤É¤Ã¤Æ¤¤¤±¤Ð¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_eastpass)
- (say knpc "Take the ladder down to Westpass and ask the Rangers there."))
+ (say knpc "¤³¤Î¤Ï¤·¤´¤ò²¼¤ê¡¢À¾Â¦¤Ø¤ÎÆ»¤Ç·ÙÈ÷Ââ°÷¤Ë¿Ò¤Í¤Ê¤µ¤¤¡£"))
((equal? kplace p_trigrave)
- (say knpc "Take the road east to the mountains and go through Eastpass. "
- "After that, you'll have to ask around."))
+ (say knpc "Æ»¤òÅì¤Ë¿Ê¤ß»³¤ËÆþ¤ë¤ÈÅ즤ؤÎÆ»¤À¡£"
+ "¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_enchanters_tower)
- (say knpc "Go south to Trigrave and ask there."))
+ (say knpc "Æî¤Ø¹Ô¤¯¤È¥È¥ê¥°¥ì¥¤¥Ö¤À¡£¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_oparine)
- (say knpc "Take the road north to Trigrave and ask there."))
+ (say knpc "Ë̤عԤ¯¤È¥È¥ê¥°¥ì¥¤¥Ö¤À¡£¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_moongate_clearing)
- (say knpc "Follow the road south to the junction, then travel east. "
- "When the road bends north keep going east into the woods."))
+ (say knpc "Æ»¤òÆî¤Ø¿Ê¤à¤È¸òº¹ÅÀ¤¬¤¢¤ë¤Î¤Ç¡¢À¾¤Ø¿Ê¤à¡£"
+ "Æ»¤¬Ë̤ظþ¤«¤Ã¤¿¤é¤½¤Î¤Þ¤Þ¿Ê¤ß¡¢Åì¤Î¿¹¤ØÆþ¤ë¤È¤è¤¤¤À¤í¤¦¡£"))
(else
- (say knpc "It's in the middle of the Great Forest."))
+ (say knpc "¿¹¤ÎÃæ±û¤Ë¤¢¤ë¡£"))
))))
(define (basic-bole knpc kpc)
- (say knpc "The hamlet of Bole sits in a canyon in the mountains north of "
- "the Great Wood. Do you need directions?")
+ (say knpc "¥Ü¥ì¤Î¼¤Ï¿¹¤ÎË̤ˤ¢¤ë»³Ì®¤Îë´Ö¤Ë¤¢¤ë¡£"
+ "Êý¸þ¤òÃΤꤿ¤¤¤«¡©")
(if (yes? kpc)
(let ((kplace (get-place knpc)))
(cond ((equal? kplace p_westpass)
- (say knpc "It's northeast of here. Follow the mountains."))
+ (say knpc "¤³¤³¤«¤éËÌÅì¤Ë¤¢¤ë¡£»³Ì®¤ò¤¿¤É¤Ã¤Æ¹Ô¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_eastpass)
- (say knpc "Take the ladder down to Westpass and ask the Rangers there."))
+ (say knpc "¤³¤Î¤Ï¤·¤´¤ò²¼¤ê¡¢À¾Â¦¤Ø¤ÎÆ»¤Ç·ÙÈ÷Ââ°÷¤Ë¿Ò¤Í¤Ê¤µ¤¤¡£"))
((equal? kplace p_trigrave)
- (say knpc "Take the road east to the mountains and go through Eastpass. "
- "After that, you'll have to ask around."))
+ (say knpc "Æ»¤òÅì¤Ë¿Ê¤ß»³¤ËÆþ¤ë¤ÈÅ즤ؤÎÆ»¤À¡£"
+ "¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_green_tower)
- (say knpc "Go north through the forest until you hit the mountains, "
- "then follow them east a short while."))
+ (say knpc "Ë̤ο¹¤òÈ´¤±¡¢»³Ì®¤Î¤Õ¤â¤È¤Þ¤Ç¿Ê¤à¡£"
+ "¤½¤Î¸å¡¢¾¯¤·Åì¤Ø¸þ¤«¤¦¤È¹Ô¤±¤ë¤À¤í¤¦¡£"))
((equal? kplace p_enchanters_tower)
- (say knpc "Go south to Trigrave and ask there."))
+ (say knpc "Æî¤Ø¹Ô¤¯¤È¥È¥ê¥°¥ì¥¤¥Ö¤À¡£¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
(else
- (say knpc "I think it's by the mountains north of the Great Wood."))
+ (say knpc "¿¹¤ÎË̤ˤ¢¤ë»³Ì®¤Î¤Õ¤â¤È¤Ë¤¢¤ë¤È»×¤¦¡£"))
))))
(define (basic-absa knpc kpc)
- (say knpc "Absalot, a great and wicked city, was destroyed for its sins."))
+ (say knpc "µðÂç¤ÇÂÄÍ¤¿Ä®¥¢¥Ö¥µ¥í¥Ã¥È¤Ï¡¢¤½¤Îºá¤ÇÊø²õ¤·¤¿¡£"))
(define (basic-opar knpc kpc)
- (say knpc "The city of Oparine can be found in the southwest by a "
- "deep harbor. Do you need directions?")
+ (say knpc "¥ª¥Ñ¡¼¥ê¥ó¤ÏÆîÀ¾¤Î¿¼¤¤ÏѤζ᤯¤Ë¤¢¤ë¡£"
+ "Êý¸þ¤òÃΤꤿ¤¤¤«¡©")
(if (yes? kpc)
(let ((kplace (get-place knpc)))
(cond ((equal? kplace p_westpass)
- (say knpc "Take the ladder down to Eastpass and follow the road west."))
+ (say knpc "¤Ï¤·¤´¤ò²¼¤ê¡¢Æ»¤òÀ¾¤Ë¤¿¤É¤ë¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_eastpass)
- (say knpc "Follow the road west."))
+ (say knpc "Æ»¤òÀ¾¤Ë¤¿¤É¤ë¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_trigrave)
- (say knpc "Follow the road west and south all the way to the sea."))
+ (say knpc "Æ»¤òÀ¾¤Ë¤¿¤É¤ê¡¢¤½¤Î¤¢¤È³¤¤Þ¤Ç¤º¤Ã¤ÈÆî¤Ë¿Ê¤à¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_green_tower)
- (say knpc "Follow the trail south and west to Westpass and ask the rangers when you get there."))
+ (say knpc "Æî¤ÎÆ»¤ò¤¿¤É¤ê¡¢¤½¤Î¤¢¤ÈÀ¾¤Ø¹Ô¤¯¤ÈÀ¾Â¦¤Ø¤ÎÆ»¤À¡£¤½¤³¤Ç·ÙÈ÷Ââ°÷¤Ë¿Ò¤Í¤ë¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_enchanters_tower)
- (say knpc "Go south to Trigrave and ask there."))
+ (say knpc "Æî¤Ë¥È¥ê¥°¥ì¥¤¥Ö¤¬¤¢¤ë¡£¤½¤³¤Ç¿Ò¤Í¤ë¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_glasdrin)
- (say knpc "Take the road south."))
+ (say knpc "Æî¤Ë¿Ê¤à¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_oparine)
- (say knpc "Well, here you are already!"))
+ (say knpc "¤³¤³¤¬¤½¤¦¤À¡ª"))
(else
- (say knpc "It's on the southern coast somewhere."))
+ (say knpc "Æ´ß¤Î¤É¤³¤«¤Ë¤¢¤ë¡£"))
))))
(define (basic-east knpc kpc)
))))
(define (basic-glas knpc kpc)
- (say knpc "Glasdrin is the fortified city of the Paladins. Do you need directions?")
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÏÀ»µ³»Î¤¿¤Á¤Î¾ëºÉÅÔ»Ô¤À¡£Êý¸þ¤òÃΤꤿ¤¤¤«¡©")
(if (yes? kpc)
(let ((kplace (get-place knpc)))
(cond ((equal? kplace p_westpass)
- (say knpc "Follow the road east and north."))
+ (say knpc "¤³¤ÎÆ»¤òÅì¤Ø¹Ô¤¡¢¤½¤Î¤¢¤ÈË̤عԤ±¤Ð¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_eastpass)
- (say knpc "Go east to Westpass and ask there."))
+ (say knpc "Åì¤Ø¹Ô¤¡¢À¾Â¦¤Ø¤ÎÆ»¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_trigrave)
- (say knpc "Go east to Eastpass and ask there."))
+ (say knpc "Åì¤Ø¹Ô¤¡¢Å즤ؤÎÆ»¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_green_tower)
- (say knpc "Go west through the woods until you hit the road, then follow it north."))
+ (say knpc "À¾¤Î¿¹¤òÈ´¤±¤ë¤ÈÆ»¤¬¸«¤¨¤ë¡£¤½¤ì¤òË̤˿ʤà¤È¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_enchanters_tower)
- (say knpc "Go east through the pass and follow the river."))
+ (say knpc "Åì¤Ø¿Ê¤ß»³Æ»¤òÈ´¤±¡¢Àî¤ò¤¿¤É¤ì¤Ð¤è¤¤¤À¤í¤¦¡£"))
((equal? kplace p_oparine)
- (say knpc "Follow the road north to Trigave and ask there, or take a ship and follow the coastline all the way north."))
+ (say knpc "Ë̤ÎÆ»¤ò¿Ê¤à¤È¥È¥ê¥°¥ì¥¤¥Ö¤À¡£¤½¤³¤Çʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£Á¥¤¬¤¢¤ì¤Ð³¤´ßÀþ¤òË̤˿ʤà¤È¹Ô¤±¤ë¤À¤í¤¦¡£"))
(else
- (say knpc "It's up near the northeast coast on an island."))
+ (say knpc "ËÌÀ¾¤ÎÅç¤Î³¤´ß¤Î¶á¤¯¤Ë¤¢¤ë¡£"))
))))
(define (basic-fens knpc kpc)
- (say knpc "The Fens are a swampy area in the northwest."))
+ (say knpc "¼¾ÃÏÂÓ¤ÏËÌÀ¾¤Ë¤¢¤ë¡£"))
(define (basic-kurp knpc kpc)
- (say knpc "Kurpolis is an ancient underground ruin. "
- "The entrance is somewhere in the northern mountains."))
+ (say knpc "¥¯¥í¥Ý¥ê¥¹¤ÏÃϲ¼¤Î¸ÅÂå°äÀפÀ¡£"
+ "Æþ¤ê¸ý¤ÏË̤λ³Ì®¤Î¤É¤³¤«¤Ë¤¢¤ë¡£"))
(define (basic-lost knpc kpc)
- (say knpc "The Lost Halls? I've only heard them mentioned in bard's songs. "
- "I didn't know they really existed."))
+ (say knpc "¼º¤ï¤ì¤¿ÅÂƲ¡©¶ãÍ·»í¿Í¤Î²Î¤ÎÃæ¤Ç¤·¤«Ê¹¤¤¤¿¤³¤È¤¬¤Ê¤¤¡£"
+ "ËÜÅö¤Ï¤É¤³¤Ë¤¢¤ë¤Î¤«¤ÏÃΤé¤Ê¤¤¡£"))
;; establishments
(define (basic-whit knpc kpc)
- (say knpc "The White Stag is in Green Tower."))
+ (say knpc "Çò¤²´¼¯Áñ¤ÏÎФÎÅã¤Ë¤¢¤ë¡£"))
;; quests
(define (basic-thie knpc kpc)
- (say knpc "No, I don't know anything about a thief."))
+ (say knpc "Å¥ËÀ¤Î¤³¤È¤Ï¤ï¤«¤é¤Ê¤¤¡£"))
(define (basic-rune knpc kpc)
- (say knpc "I don't know much about runes. Try asking one of the Wise."))
+ (say knpc "ÀÐÈǤΤ³¤È¤Ï¤è¤¯ÃΤé¤Ê¤¤¡£¸¼Ô¤Ëʹ¤±¤Ð¤è¤¤¤«¤â¤·¤ì¤Ê¤¤¡£"))
(define (basic-wise knpc kpc)
- (say knpc "The Wise have great influence over affairs in the Shard. Do you want to know their names?")
+ (say knpc "¸¼Ô¤Ï¤³¤Î¥·¥ã¥ë¥É¤ËÂ礤ʱƶÁ¤òÍ¿¤¨¤Æ¤¤¤ë¼Ô¤¿¤Á¤À¡£Èà¤é¤Î̾Á°¤òÃΤꤿ¤¤¤«¡©")
(if (yes? kpc)
(begin
- (say knpc "There's the Enchanter, the Necromancer, the Alchemist, the MAN, the Engineer and the Warritrix.")
+ (say knpc "ËâÆ»»Õ¡¢»àÎî½Ñ»Õ¡¢Ï£¶â½Ñ»Õ¡¢¤Ë¤ó¤²¤ó¡¢µ»»Õ¡¢¤½¤·¤ÆÆ®»Î¤À¡£")
(map quest-wise-subinit
(list 'questentry-enchanter 'questentry-warritrix 'questentry-alchemist
'questentry-the-man 'questentry-engineer 'questentry-necromancer)
))
(define (basic-shar knpc kpc)
- (say knpc "The Shard is what we call our world.")
+ (say knpc "¥·¥ã¥ë¥É¤È¤Ï¤³¤ÎÀ¤³¦¤Î¸Æ¤Ó̾¤À¡£")
(quest-data-update 'questentry-whereami 'shard 1)
)
(define (basic-peni knpc kpc)
- (say knpc "The Peninsula is our little corner of the Shard."))
+ (say knpc "ȾÅç¤È¤Ï²æ¡¹¤Î¤¤¤ë¥·¥ã¥ë¥É¤Îü¤Î¤³¤È¤À¡£"))
(define (basic-warr knpc kpc)
- (say knpc "The Warritrix is the Wise Warrior. If you're looking for her try Glasdrin.")
+ (say knpc "Æ®»Î¤ÏÀï»Î¤Î¸¼Ô¤À¡£²ñ¤¤¤¿¤¤¤Î¤Ç¤¢¤ì¤Ð¥°¥é¥¹¥É¥ê¥ó¤Ø¹Ô¤±¤Ð¤è¤¤¤À¤í¤¦¡£")
(quest-wise-subinit 'questentry-warritrix)
(quest-data-update 'questentry-warritrix 'general-loc 1)
)
(define (basic-engi knpc kpc)
- (say knpc "I've heard the Engineer is the greatest Wright in the land, "
- "but I don't know much about him.")
+ (say knpc "µ»»Õ¤Ï¤³¤ÎÃϤǺǤâÍ¥¤ì¤¿¿¦¿Í¤À¤Èʹ¤¤¤¿¤³¤È¤¬¤¢¤ë¡£"
+ "¤·¤«¤·¡¢¤½¤ì°Ê¾å¤Î¤³¤È¤ÏÃΤé¤Ê¤¤¡£")
(quest-wise-subinit 'questentry-engineer)
(quest-data-update 'questentry-engineer 'common 1)
)
(define (basic-man knpc kpc)
- (say knpc "The MAN is a master wrogue. Nobody knows where his hideout is. "
- "It's rumoured that he travels in disguise.")
+ (say knpc "¤Ë¤ó¤²¤ó¤Ï¤Ê¤é¤º¼Ô¤ÎĺÅÀ¤À¡£¤É¤³¤Ë¤¤¤ë¤Î¤«Ã¯¤âÃΤé¤Ê¤¤¡£"
+ "ÊÑÁõ¤·¤Æι¤ò¤·¤Æ¤¤¤ë¤È¤¦¤ï¤µ¤µ¤ì¤Æ¤¤¤ë¡£")
(quest-wise-subinit 'questentry-the-man)
(quest-data-update 'questentry-the-man 'common 1)
)
(define (basic-alch knpc kpc)
- (say knpc "The Alchemist is a Wise Wright who specializes in potions. "
- "You'll find his shop in Oparine.")
+ (say knpc "Ï£¶â½Ñ»Õ¤Ï¸¼Ô¤Î¿¦¿Í¤Ç¡¢Ìô¤Î¤³¤È¤Ï²¿¤Ç¤âÃΤäƤ¤¤ë¡£"
+ "¥ª¥Ñ¡¼¥ê¥ó¤Ç²ñ¤¨¤ë¤À¤í¤¦¡£")
(quest-wise-subinit 'questentry-alchemist)
(quest-data-update 'questentry-alchemist 'general-loc 1)
)
(define (basic-necr knpc kpc)
- (say knpc "The Necromancer is a Wise Wizard who specializes in death magic. "
- "I've heard he lives in a hidden cave.")
+ (say knpc "»àÎî½Ñ»Õ¤Ï»à¤ÎËâË¡¤òÁà¤ë¸¼Ô¤ÎËâË¡»È¤¤¤À¡£"
+ "Èà¤Ï±£¤µ¤ì¤¿Æ¶·¢¤Ë½»¤ó¤Ç¤¤¤ë¤é¤·¤¤¡£")
(quest-wise-subinit 'questentry-necromancer)
(quest-data-update 'questentry-necromancer 'general-loc 1)
)
(define (basic-drag knpc kpc)
- (say knpc "Stories say a mighty dragon is terrorizing shipping on the "
- "east coast."))
+ (say knpc "¶§Ë½¤Ê夬Åì¤Î³¤´ß¶á¤¯¤òÄ̤ëÁ¥¤ò¶¼¤«¤·¤Æ¤¤¤ë¤Èʹ¤¤¤¿¡£"))
(define (basic-fire knpc kpc)
- (say knpc "The Fire Sea? That's a volcano on an island off the east coast."))
+ (say knpc "²Ð¤Î³¤¡©Åì¤Î²Ð»³¤Î¤¢¤ëÅç¤Î¤³¤È¤À¡£"))
(define basic-conv
(ifc '()
(kern-conv-say knpc msg)
(kern-conv-get-yes-no? kpc))
(define (prompt-for-key)
- (kern-log-msg "<Hit any key to continue>")
+ (kern-log-msg "<²¿¤«¥¡¼¤ò²¡¤¹¤È³¤±¤ë>")
(kern-ui-waitkey))
(define (meet msg)
(kern-log-msg msg))
(let ((give (kern-conv-get-amount kpc))
(have (kern-player-get-gold)))
(cond ((> give have)
- (say knpc "You don't have that much!")
+ (say knpc "Âå¶â¤¬Â¤ê¤Ê¤¤¡ª")
0)
(else
(kern-player-set-gold (- have give))
(let ((give (kern-conv-get-amount kpc))
(have (kern-player-get-food)))
(cond ((> give have)
- (say knpc "You don't have that much!")
+ (say knpc "Âå¶â¤¬Â¤ê¤Ê¤¤¡ª")
0)
(else
(kern-player-set-food (- have give))
))
;;----------------------------------------------------------------------------
-;; Quests
+;; ËÁ¸±
;;----------------------------------------------------------------------------
(define (mk-quest) (list #f #f #f))
(define (quest-offered? qst) (car qst))
;;----------------------------------------------------------------------------
-;; Ranger Conversation
+;; ·ÙÈ÷Ââ°÷¤È¤Î²ñÏÃ
;;----------------------------------------------------------------------------
(define (ranger-ranger knpc kpc)
- (say knpc "Rangers guard the borders between wilderness and "
- "civilization. We patrol the frontier and give aid where we can to the "
- "Wise."))
+ (say knpc "·ÙÈ÷Ââ¤ÏÄ®¤È¹ÓÌî¤Î¶³¦¤ò¼é¤Ã¤Æ¤¤¤ë¡£"
+ "²æ¡¹¤ÏÁ°Àþ¤ò´Æ»ë¤·¡¢¤Ç¤¤ë¤«¤®¤ê¸¼Ô¤ò½õÎϤ·¤Æ¤¤¤ë¡£"))
(define (ranger-wise knpc kpc)
- (say knpc "Rangers have an informal alliance with the Wise. They give us "
- "aid and hospitality. In return we give them news. Sometimes we serve "
- "them as messengers and scouts."))
+ (say knpc "·ÙÈ÷Ââ¤Ï¸¼Ô¤ÈÈó¸ø¼°¤ÊÄó·È¤ò·ë¤ó¤Ç¤¤¤ë¡£"
+ "¸¼Ôã¤Ï²æ¡¹¤Ë±ç½õ¤È¤â¤Æ¤Ê¤·¤òÍ¿¤¨¡¢¤½¤Î¤«¤ï¤ê¤Ë²æ¡¹¤Ï¾ðÊó¤òÄ󶡤·¤Æ¤¤¤ë¡£"
+ "»þ¤Ë¤Ï²æ¡¹¤Ï¸¼Ôã¤ÎÅÁ¸À¤äÄ廡¤ÎǤ̳¤ò¼õ¤±¤ë¡£"))
(define (ranger-join knpc kpc)
(cond ((has? kpc t_ranger_orders 1)
- (say knpc "Let's see those orders... ok. Looks like we're partners "
- "for a while.")
+ (say knpc "Ì¿Îá½ñ¤ò¸«¤»¤Æ¤¯¤À¤µ¤¤¡Äλ²ò¡£¤·¤Ð¤é¤¯¤Î´Ö¡¢Æ±¹Ô¤¤¤¿¤·¤Þ¤¹¡£")
(take kpc t_ranger_orders 1)
(join-player knpc)
;; NOTE: the following only permits one ranger at a time to join the
(kern-conv-end)
)
(else
- (say knpc "Sorry, I've got to get back to my patrol."))))
+ (say knpc "»ÄÇ°¤Ç¤¹¤¬·ÙÈ÷¤Î»Å»ö¤¬¤¢¤ê¤Þ¤¹¡£"))))
(define (ranger-band knpc kpc)
- (say knpc "When men get in trouble with the law, they flee to the woods. "
- "There are always bandits in the forest."))
+ (say knpc "ÌäÂê¤òµ¯¤³¤·¤¿¼Ô¤¿¤Á¤¬¿¹¤Ëƨ¤²¹þ¤à¤Î¤À¡£"
+ "¿¹¤Ë¤Ï¾ï¤Ë̵ˡ¼Ô¤¬¤¤¤ë¡£"))
(define ranger-conv
(ifc basic-conv
;; Knight conversation -- used by Lord Froederick's troops
(define knight-conv basic-conv)
-;; Glasdrin
+;; ¥°¥é¥¹¥É¥ê¥ó
(define (glasdrin-warr knpc kpc)
(if (player-found-warritrix?)
- (say knpc "We all mourn her loss.")
- (say knpc "The Warritrix is the most cunning warrior of the age. I'm not sure where she is right now, ask the Steward or Commander Jeffries.")
+ (say knpc "¤ß¤ÊÈà½÷¤Î»à¤òÈᤷ¤ó¤Ç¤¤¤ë¡£")
+ (say knpc "Æ®»Î¤Ï¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÊÀï»Î¤À¡£Èà½÷¤¬º£¤É¤³¤Ë¤¤¤ë¤Î¤«¤ÏÃΤé¤Ê¤¤¡£Åý¼£¼Ô¤«¥¸¥§¥Õ¥ê¡¼¥º»ÊÎá´±¤Ëʹ¤±¤Ð¤è¤¤¤À¤í¤¦¡£")
)
(quest-data-update 'questentry-warritrix 'general-loc 1)
)
(define (glasdrin-stew knpc kpc)
(if (player-stewardess-trial-done?)
- (say knpc "Her name of the Stewardess is a curse among us now. The new Steward is Valus, a former commander.")
- (say knpc "The Steward is the keeper of the city and realms of Glasdrin. You can usually find her in the Citadel.")))
+ (say knpc "Åý¼£¼Ô¤À¤Ã¤¿Èà½÷¤Î̾¤Ï¼ö¤ï¤ì¤¿¤â¤Î¤È¤Ê¤Ã¤¿¡£¿·¤·¤¤Åý¼£¼Ô¤Ï¤«¤Ä¤Æ¤Î»ÊÎá´±¥ô¥¡¥ë¥¹¤À¡£")
+ (say knpc "Åý¼£¼Ô¤Ï¤³¤ÎÄ®¤È¥°¥é¥¹¥É¥ê¥ó¤ÎÎÎÅÚ¤ò¼é¤Ã¤Æ¤¤¤ë¡£ÉáÃʤÏËÜÉô¤Ë¤¤¤ë¡£")))
(define (glasdrin-jeff knpc kpc)
(if (player-stewardess-trial-done?)
- (say knpc "At best Jeffries failed in his duties as commander to protect those under his command. "
- "At worst, he was an accomplice in the betrayal of the Warritrix. "
- "Our new commander is Janice.")
- (say knpc "Jeffries is the commander of the Glasdrin militia. He's usually at work in the Citadel.")
+ (say knpc "¤è¤¯¸À¤Ã¤Æ¤â¡¢¥¸¥§¥Õ¥ê¡¼¥º¤¬»ÊÎá´±¤È¤·¤Æ»Ø´ø²¼¤Î¼Ô¤ò¼é¤ëµÁ̳¤òÂդä¿¡£"
+ "°¤¯¸À¤¨¤ÐÈà¤ÏÆ®»Î¤Ø¤Î΢ÀÚ¤ê¤Ë¶¨ÎϤ·¤¿¡£"
+ "²æ¡¹¤Î¿·¤·¤¤»ÊÎá´±¤Ï¥¸¥ã¥Ë¥¹¤À¡£")
+ (say knpc "¥¸¥§¥Õ¥ê¡¼¥º¤Ï¥°¥é¥¹¥É¥ê¥ó¤Î·³¤Î»ÊÎá´±¤À¡£ÉáÃʤÏËÜÉô¤Ë¤¤¤ë¡£")
))
(define (glasdrin-kurp knpc kpc)
- (say knpc "Take the bridge north across the river then follow the "
- "mountains east and north into a canyon."))
+ (say knpc "Ë̤涤òÅϤꡢ»³Ì®¤òÅì¤Ë±è¤Ã¤Æ¹Ô¤¯¤È¡¢"
+ "Ë̤Îë´Ö¤Ë¸«¤¨¤ë¤À¤í¤¦¡£"))
(define (glasdrin-cita knpc kpc)
- (say knpc "The Citadel is the inner keep in the north part of the castle."))
+ (say knpc "ËÜÉô¤ÏË̦¤ÎºÖ¤ÎÃæ¤Ë¤¢¤ë¡£"))
(define (glasdrin-ghol knpc kpc)
- (say knpc "I seem to recall a man named Gholet was arrested for theft. You might check the Citadel's dungeon.")
+ (say knpc "ÂáÊᤵ¤ì¤¿Å¥ËÀ¤¬¥´¥ì¥Ã¥È¤È¤¤¤¦Ì¾Á°¤À¤Ã¤¿¤È»×¤¦¡£ºÖ¤ÎÃϲ¼¤Î´Æ¹ö¤Ç³Î¤«¤á¤ë¤È¤è¤¤¤À¤í¤¦¡£")
(quest-data-update 'questentry-ghertie 'gholet-dungeon 1)
)
(define (glasdrin-kurp knpc kpc)
- (say knpc "The dungeon Kurpolis is where most of our troops are now. Follow the mountains west, you'll find the entrance in a canyon."))
+ (say knpc "¸½ºß¥¯¥í¥Ý¥ê¥¹¤Î̵ܤˤÏÉôÂâ¤Î¤Û¤È¤ó¤É¤¬¤¤¤ë¡£»³Ì®¤ò¤¿¤É¤Ã¤ÆÀ¾¤Ø¹Ô¤¯¤È¶®Ã«¤ËÆþ¤ê¸ý¤¬¸«¤Ä¤«¤ë¤À¤í¤¦¡£"))
(define (glasdrin-glas knpc kpc)
- (say knpc "Glasdrin is the city of the Paladins."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÏÀ»µ³»Î¤ÎÄ®¤À¡£"))
(define (glasdrin-pala knpc kpc)
- (say knpc "The Paladins of Glasdrin are the greatest military force in the realm."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÎÀ»µ³»Î¤Ï¤³¤Î¤¢¤¿¤ê¤ÇºÇ¤â¶¯ÎϤʷ³Ââ¤À¡£"))
(define glasdrin-conv
(ifc basic-conv
(method 'jani
(lambda (knpc kpc)
(if (player-stewardess-trial-done?)
- (say knpc "The military council has elected Janice to replace Jeffries as commander of the militia.")
- (say knpc "Jeffries is an able leader, but everyone knows that his assistant Janice has the brains."))))
+ (say knpc "·³É¾µÄ²ñ¤Ï¥¸¥ã¥Ë¥¹¤ò¥¸¥§¥Õ¥ê¡¼¥º¤Î¸åǤ¤È¤·¤Æ»ÊÎá´±¤ËÁª½Ð¤·¤¿¡£")
+ (say knpc "¥¸¥§¥Õ¥ê¡¼¥º¤ÏÍǽ¤Ê»ÊÎá´±¤À¡£¤À¤¬¡¢¤½¤ì¤ÏÊ亴¤Î¥¸¥ã¥Ë¥¹¤Î¤ª¤«¤²¤À¤È¤¤¤¦¤Î¤Ïï¤Ç¤âÃΤäƤ¤¤ë¡£"))))
(method 'valu
(lambda (knpc kpc)
(if (player-stewardess-trial-done?)
- (say knpc "Valus was exonerated by the Stewardess's journal. "
- "It is a shame we ever believed such lies about him. "
- "We have elected him to be the new Steward.")
- (say knpc "Valus has been imprisoned for shameful indecency. "
- "It's a pity, really. He was a well-respected general."))))
+ (say knpc "¥ô¥¡¥ë¥¹¤Î·éÇò¤¬Á°Åý¼£¼Ô¤ÎÆüµ¤ÇÌÀ¤é¤«¤Ë¤Ê¤Ã¤¿¡£"
+ "Èà¤Ë´Ø¤¹¤ë±³¤ò¿®¤¸¤Æ¤·¤Þ¤Ã¤¿¤³¤È¤ÏÃѤº¤«¤·¤¤¤³¤È¤À¡£"
+ "»ä¤¿¤Á¤ÏÈà¤ò¿·¤·¤¤Åý¼£¼Ô¤ËÁª½Ð¤·¤¿¡£")
+ (say knpc "¥ô¥¡¥ë¥¹¤ÏÃѤ¸¤ë¤Ù¤¹Ô¤¤¤ÇÅê¹ö¤µ¤ì¤¿¡£"
+ "ËÜÅö¤Ë»ÄÇ°¤À¡£Èà¤Ïº·É¤µ¤ì¤ë¾¹»¤À¤Ã¤¿¡£"))))
))
;; Kurpolis
;; Green Tower
(define (gt-gobl knpc kpc)
- (say knpc "Since the goblin wars there's been an uneasy truce. Sometimes they trade here in town, but if you meet them in the forest be careful."))
+ (say knpc "¥´¥Ö¥ê¥óÀïÁè°Ê¹ß¡¢¤º¤Ã¤ÈÉÔ°ÂÄê¤ÊµÙÀï¾õÂ֤ˤ¢¤ë¡£Èà¤é¤Ï»þ¡¹¾¦Çä¤Î¤¿¤á¤³¤ÎÄ®¤ËÍè¤ë¡£¤À¤¬¡¢¿¹¤Ç²ñ¤Ã¤¿¤È¤¤Ïµ¤¤ò¤Ä¤±¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£"))
(define (gt-towe knpc kpc)
- (say knpc "The tower that gives this town its name is now the Ranger headquarters."))
+ (say knpc "¤³¤ÎÄ®¤Î̾Á°¤ÏÃæ±û¤Ë¤¢¤ë¸Å¤¤Å㤫¤é¤È¤Ã¤¿¤â¤Î¤Ç¡¢º£¤Ï·ÙÈ÷Ââ¤ÎËÜÉô¤À¡£"))
(define (gt-ruin knpc kpc)
- (say knpc "The old ruins are in the southwest corner of town."))
+ (say knpc "¸Å¤¤°äÀפϤ³¤ÎÄ®¤ÎÆîÀ¾¤Î³Ñ¤Ë¤¢¤ë¡£"))
(define (gt-band knpc kpc)
- (say knpc "Ask Deric about bandits. "
- "He's the one who should be dealing with them."))
+ (say knpc "Åð±¤Î¤³¤È¤Ï¥Ç¥ê¥Ã¥¯ÂâŤËʹ¤±¤Ð¤è¤¤¤À¤í¤¦¡£"
+ "¤½¤ÎÌäÂê¤Ë¼è¤êÁȤó¤Ç¤¤¤ë¼Ô¤Î°ì¿Í¤À¡£"))
(define green-tower-conv
(ifc basic-conv
(method 'gree
(lambda (knpc kpc)
- (say knpc "Yes, this town gets its name from the old tower in its center.")))
+ (say knpc "¤½¤¦¡¢¤³¤ÎÄ®¤Î̾Á°¤ÏÃæ±û¤Ë¤¢¤ë¸Å¤¤Å㤫¤é¤È¤Ã¤¿¤â¤Î¤À¡£")))
(method 'gobl gt-gobl)
(method 'towe gt-towe)
(method 'ruin gt-ruin)
(ifc basic-conv
(method 'thie
(lambda (knpc kpc)
- (say knpc "I don't know anything about a thief. Ask Gwen, maybe a traveler told her something.")))
+ (say knpc "Å¥ËÀ¤Î¤³¤È¤Ï¤ï¤«¤é¤Ê¤¤¡£¥°¥Ù¥ó¤Ïι¿Í¤È¤è¤¯Ï䷤Ƥ¤¤ë¤Î¤Ç²¿¤«ÃΤäƤ¤¤ë¤«¤â¤·¤ì¤Ê¤¤¡£")))
))
;;----------------------------------------------------------------------------
-;; Merchant
+;; Ź°÷
;; Indices into the merchant message list
(define merch-closed 0)
(if (and (not (string=? "working" (kern-obj-get-activity knpc)))
(not (null? (list-ref msgs merch-closed))))
(say knpc (list-ref msgs merch-closed)
- " I'm " (kern-obj-get-activity knpc) " right now.")
+ "º£¤Ï"
+ (cond ((string=? (kern-obj-get-activity knpc) "idle") "µÙ·Æ")
+ ((string=? (kern-obj-get-activity knpc) "eating") "¿©»ö")
+ ((string=? (kern-obj-get-activity knpc) "drunk") "°û¤ó¤Ç¤¤¤ëºÇ")
+ ((string=? (kern-obj-get-activity knpc) "commuting") "°ÜÆ°")
+ (else (kern-obj-get-activity knpc)))
+ "Ãæ¤À¡£")
(cond ((string=? menu "buy")
(say knpc (list-ref msgs merch-buy))
(if (kern-conv-trade knpc kpc "buy" catalog)
(say knpc (list-ref msgs merch-traded-nothing))))
)))
+;; ¼½ñ
+(kern-dictionary
+ "£²¤Ä" "two" "£²¤Ä"
+ "£¶¥Ë¥ó" "six" "£¶¿Í"
+ "£¸¥Ä" "eigh" "£¸¤Ä"
+ "¥¢¥¤" "love" "°¦"
+ "¥¢¥¤¥³¥È¥Ð" "pass" "¹ç¸ÀÍÕ"
+ "¥¢¥¤¥Ä¥é" "them" "¤¢¤¤¤Ä¤é"
+ "¥¢¥¤¥Ê¥´" "inag" "¥¢¥¤¥Ê¥´"
+ "¥¢¥«" "red" "ÀÖ"
+ "¥¢¥¯" "evil" "°"
+ "¥¢¥¯¥Þ" "demo" "°Ëâ"
+ "¥¢¥±" "open" "³«¤±"
+ "¥¢¥±¥ë" "open" "³«¤±¤ë"
+ "¥¢¥·" "leg" "Â"
+ "¥¢¥½¥Ö" "play" "Í·¤Ö"
+ "¥¢¥½¥ó¥Ç" "play" "Í·¤ó¤Ç"
+ "¥¢¥¿¥ê" "loca" "¤¢¤¿¤ê"
+ "¥¢¥Ä¥á¥ë" "coll" "½¸¤á¤ë"
+ "¥¢¥Ê" "hole" "·ê"
+ "¥¢¥Ó¥¬¥¤¥ë" "abig" "¥¢¥Ó¥¬¥¤¥ë"
+ "¥¢¥Ö¥µ¥í¥Ã¥È" "absa" "¥¢¥Ö¥µ¥í¥Ã¥È"
+ "¥¢¥é¥ï¥¹" "reve" "ɽ¤¹"
+ "¥¢¥ì" "that" "¤¢¤ì"
+ "¥¢¥í¥Ú¥¯¥¹" "alop" "¥¢¥í¥Ú¥¯¥¹"
+ "¥¢¥ó¥°¥ê¥¹" "angr" "¥¢¥ó¥°¥ê¥¹"
+ "¥¢¥ó¥µ¥Ä¥·¥ã" "assa" "°Å»¦¼Ô"
+ "¥¤¥¢¥ë" "earl" "¥¤¥¢¥ë"
+ "¥¤¥" "iki" "¥¤¥"
+ "¥¤¥¥«¥¿" "ways" "À¸¤Êý"
+ "¥¤¥¯¥Ä¥«" "more" "¤¤¤¯¤Ä¤«"
+ "¥¤¥±¥Ë¥¨" "sacr" "À¸ìÓ"
+ "¥¤¥·" "medi" "°å»Õ"
+ "¥¤¥·¥ó" "isin" "¥¤¥·¥ó"
+ "¥¤¥»¥" "ruin" "°äÀ×"
+ "¥¤¥Ë" "ini" "¥¤¥Ë"
+ "¥¤¥Ì" "dog" "¸¤"
+ "¥¤¥Î¥Á" "life" "Ì¿"
+ "¥¤¥Þ¥·¥á" "vigi" "²ü¤á"
+ "¥¤¥ê¥¢" "ilya" "¥¤¥ê¥¢"
+ "¥¤¥ê¥°¥Á" "entr" "Æþ¤ê¸ý"
+ "¥¦¥¨" "hung" "µ²¤¨"
+ "¥¦¥´¥¥À¥·¥¿" "wake" "Æ°¤½Ð¤·¤¿"
+ "¥¦¥¿" "song" "²Î"
+ "¥¦¥Ç" "arm" "ÏÓ"
+ "¥¦¥ß" "sea" "³¤"
+ "¥¦¥ß¥Ø¥Ó" "sea" "³¤¥Ø¥Ó"
+ "¥¦¥é¥®¥é¥ì" "betr" "΢ÀÚ¤é¤ì"
+ "¥¦¥é¥®¥é¥ì¥¿" "betr" "΢ÀÚ¤é¤ì¤¿"
+ "¥¦¥é¥®¥ê" "betr" "΢ÀÚ¤ê"
+ "¥¦¥ë" "sell" "Çä¤ë"
+ "¥¦¥í¥Ä¥¤¥Æ¥¤¥¿" "skul" "¤¦¤í¤Ä¤¤¤Æ¤¤¤¿"
+ "¥¦¥ó" "luck" "±¿"
+ "¥¨¡¼" "eh" "¥¨¡¼"
+ "¥¨¥¤¥Ö" "abe" "¥¨¥¤¥Ö"
+ "¥¨¥ó¥¸¥§¥é" "ange" "¥¨¥ó¥¸¥§¥é"
+ "¥ª¡¼¥É" "ord" "¥ª¡¼¥É"
+ "¥ª¥ª¥«¥ß" "wolf" "ϵ"
+ "¥ª¥ª¥¶¥±" "drun" "Âç¼ò"
+ "¥ª¥«" "hill" "µÖ"
+ "¥ª¥«¥¢¥µ¥ó" "momm" "¤ªÊ줵¤ó"
+ "¥ª¥«¥·¥¯" "stra" "¤ª¤«¤·¤¯"
+ "¥ª¥«¥·¥Ê" "woma" "¤ª¤«¤·¤Ê"
+ "¥ª¥¸¥¤¥µ¥ó" "gran" "¤ª¤¸¤¤¤µ¤ó"
+ "¥ª¥¸¥«" "stag" "²´¼¯"
+ "¥ª¥¹¥«¡¼" "osca" "¥ª¥¹¥«¡¼"
+ "¥ª¥½¥ì" "afra" "¶²¤ì"
+ "¥ª¥Ã¥«¥µ¥ó" "gher" "¤ª¤Ã¤«¤µ¤ó"
+ "¥ª¥Ã¥È" "husb" "É×"
+ "¥ª¥È¥¦¥µ¥ó" "dadd" "¤ªÉ㤵¤ó"
+ "¥ª¥È¥á" "maid" "²µ½÷"
+ "¥ª¥Î" "axe" "Éà"
+ "¥ª¥Ñ¡¼¥ê¥ó" "opar" "¥ª¥Ñ¡¼¥ê¥ó"
+ "¥ª¥ó¥É¥ê" "chan" "¥ª¥ó¥É¥ê"
+ "¥ª¥ó¥Ê" "lady" "½÷"
+ "¥«" "ka" "¥«"
+ "¥«¥¤" "stor" "³¬"
+ "¥«¥¤¥·¥å¥¦¥·¥ã" "conv" "²þ½¡¼Ô"
+ "¥«¥¤¥¾¥¯" "pira" "³¤Â±"
+ "¥«¥¤¥Ö¥Ä" "mons" "²øʪ"
+ "¥«¥¦" "buy" "Ç㤦"
+ "¥«¥®" "key" "¸°"
+ "¥«¥®¥¢¥±¥É¥¦¥°" "pick" "¸°³«¤±Æ»¶ñ"
+ "¥«¥±¥Æ¥¤¥Þ¥·¥¿" "wore" "³Ý¤±¤Æ¤¤¤Þ¤·¤¿"
+ "¥«¥Ê¥â¥Î" "iron" "¶âʪ"
+ "¥«¥Þ" "kama" "¥«¥Þ"
+ "¥«¥ß" "god" "¿À"
+ "¥«¥ß¥¬¥ß" "gods" "¿À¡¹"
+ "¥«¥ë¥·¥Õ¥¡¥¯¥¹" "kalc" "¥«¥ë¥·¥Õ¥¡¥¯¥¹"
+ "¥«¥ë¥Ó¥ó" "calv" "¥«¥ë¥Ó¥ó"
+ "¥«¥ë¥ô¥£¥ó" "calv" "¥«¥ë¥ô¥£¥ó"
+ "¥«¥ï¥ë" "chan" "ÊѤï¤ë"
+ "¥«¥ó¥·¥å" "jail" "´Ç¼é"
+ "¥¬¡¼¥Æ¥£¡¼" "gher" "¥¬¡¼¥Æ¥£¡¼"
+ "¥¬¥ó¥¿¥¤" "patc" "´ãÂÓ"
+ "¥" "ki" "¥"
+ "¥¥¨¥¿" "vani" "¾Ã¤¨¤¿"
+ "¥¥±¥ó" "dang" "´í¸±"
+ "¥¥³¥ê" "wood" "ÌÚ¤³¤ê"
+ "¥¥·" "shor" "´ß"
+ "¥¥º" "scar" "½ý"
+ "¥¥½¥¯" "rule" "µ¬Â§"
+ "¥¥Î¥³" "shro" "¥¥Î¥³"
+ "¥¥ã¥¯" "clie" "µÒ"
+ "¥¥ã¥¹¥ê¥ó" "kath" "¥¥ã¥¹¥ê¥ó"
+ "¥¥å¥¦¥½¥¯" "camp" "µÙ©"
+ "¥¥ç¥¦¥«¥¤" "bord" "¶³¦"
+ "¥¥ç¥¦¥¯¥ó" "less" "¶µ·±"
+ "¥¥ç¥¦¥Ü¥¦" "sava" "¶§Ë½"
+ "¥¥ç¥¸¥ó" "gint" "µð¿Í"
+ "¥¥é¥¤" "hate" "·ù¤¤"
+ "¥®¥·" "engi" "µ»»Õ"
+ "¥®¥»¥¤" "sacr" "µ¾À·"
+ "¥¯¥¹¥ê" "poti" "Ìô"
+ "¥¯¥½" "shit" "¥¯¥½"
+ "¥¯¥â" "spid" "¥¯¥â"
+ "¥¯¥ë¥Ã¥Æ¥¤¥ë" "mad" "¶¸¤Ã¤Æ¤¤¤ë"
+ "¥¯¥í¡¼¥Ó¥¹" "clov" "¥¯¥í¡¼¥Ó¥¹"
+ "¥¯¥í¥·¥ó¥¸¥å" "blac" "¹õ¿¿¼î"
+ "¥¯¥í¥Ý¥ê¥¹" "kurp" "¥¯¥í¥Ý¥ê¥¹"
+ "¥°" "gu" "¥°"
+ "¥°¥È" "guto" "¥°¥È"
+ "¥°¥Î¥À¥Þ" "guno" "¥°¥Î¥À¥Þ"
+ "¥°¥Ù¥ó" "gwen" "¥°¥Ù¥ó"
+ "¥°¥é¥¹¥É¥ê¥ó" "glas" "¥°¥é¥¹¥É¥ê¥ó"
+ "¥°¥ì¥´¡¼¥ë" "greg" "¥°¥ì¥´¡¼¥ë"
+ "¥°¥ó" "mili" "·³"
+ "¥±¥¤¥Ó" "patr" "·ÙÈ÷"
+ "¥±¥¤¥Ó¥¿¥¤" "rang" "·ÙÈ÷Ââ"
+ "¥±¥¤¥à¥·¥ç" "pris" "·ºÌ³½ê"
+ "¥±¥¬" "affl" "²ø²æ"
+ "¥±¥â¥Î" "brut" "½Ã"
+ "¥±¥ó" "swor" "·õ"
+ "¥±¥ó¥¸¥ã" "wise" "¸¼Ô"
+ "¥²¥¤¥¶¡¼" "gaze" "¥²¥¤¥¶¡¼"
+ "¥²¥ó¥´" "lang" "¸À¸ì"
+ "¥²¥ó¥·¥Æ¥" "prim" "¸¶»ÏŪ"
+ "¥³¥¦¥³¥¦" "sail" "¹Ò¹Ô"
+ "¥³¥¦¥Ë¥ó" "repl" "¸åǤ"
+ "¥³¥¯¥¦" "void" "µõ¶õ"
+ "¥³¥¯¥¦¥»¥ó" "void" "µõ¶õÁ¥"
+ "¥³¥¸" "orph" "¸É»ù"
+ "¥³¥Ã¥¥ç¥¦" "bord" "¹ñ¶"
+ "¥³¥ä" "hut" "¾®²°"
+ "¥³¥ì" "this" "¤³¤ì"
+ "¥³¥í¥¹" "kill" "»¦¤¹"
+ "¥³¥í¥½¥¦" "kill" "»¦¤½¤¦"
+ "¥³¥ï¥¬¥é¥Ê¥¤" "afra" "Éݤ¬¤é¤Ê¤¤"
+ "¥´¥Õ" "char" "¸îÉä"
+ "¥´¥Ö¥ê¥ó" "gobl" "¥´¥Ö¥ê¥ó"
+ "¥´¥Û¥¦¥·" "blow" "¤´Êô»Å"
+ "¥´¥Û¥ó" "coug" "¥´¥Û¥ó"
+ "¥´¥ì¥Ã¥È" "ghol" "¥´¥ì¥Ã¥È"
+ "¥µ¥¤¥¢¥¯" "wors" "ºÇ°"
+ "¥µ¥¤¥·¥ç" "firs" "ºÇ½é"
+ "¥µ¥¤¥À¥ó" "shri" "º×ÃÅ"
+ "¥µ¥¤¥À¥ó" "shri" "º×ÃÅ"
+ "¥µ¥¤¥é¥¹" "sila" "¥µ¥¤¥é¥¹"
+ "¥µ¥«¥º¥" "jugs" "ÇÕ"
+ "¥µ¥«¥Ð" "tave" "¼ò¾ì"
+ "¥µ¥¬¥·¥¿" "sear" "õ¤·¤¿"
+ "¥µ¥è¥Ê¥é" "bye" "¤µ¤è¤Ê¤é"
+ "¥µ¥ó¥À¥ê¥ó¥°" "sund" "¥µ¥ó¥À¥ê¥ó¥°"
+ "¥·" "dead" "»à"
+ "¥·¥§¡¼¥¯¥¹¥Ô¥¢" "shak" "¥·¥§¡¼¥¯¥¹¥Ô¥¢"
+ "¥·¥§¥¤¥¯¥¹¥Ô¥¢" "shak" "¥·¥§¥¤¥¯¥¹¥Ô¥¢"
+ "¥·¥" "comm" "»Ø´ø"
+ "¥·¥´¥È" "job" "»Å»ö"
+ "¥·¥´¥È¥¬¥Ê¥¤" "luck" "»Å»ö¤¬¤Ê¤¤"
+ "¥·¥·" "lion" "»â»Ò"
+ "¥·¥¸¥ó" "bard" "»í¿Í"
+ "¥·¥¿¥¤" "want" "¤·¤¿¤¤"
+ "¥·¥Ã¥Á" "fens" "¼¾ÃÏ"
+ "¥·¥Ã¥Á¥¿¥¤" "fens" "¼¾ÃÏÂÓ"
+ "¥·¥Ì" "die" "»à¤Ì"
+ "¥·¥Ï¥¤" "domi" "»ÙÇÛ"
+ "¥·¥ß¥ó" "civi" "»Ô̱"
+ "¥·¥ã¥ë¥É" "shar" "¥·¥ã¥ë¥É"
+ "¥·¥å¥¦¥¸¥ó" "pris" "¼ü¿Í"
+ "¥·¥å¥¦¥É¥¦¥¸¥ç" "num" "½¤Æ»½÷"
+ "¥·¥å¥¦¥É¥¦¥½¥¦" "brot" "½¤Æ»ÁÎ"
+ "¥·¥å¥¦¥è¥¦¥·¥ç" "pris" "¼ýÍƽê"
+ "¥·¥å¥¦¥è¥¦¥¸¥ç" "pris" "¼ýÍƽê"
+ "¥·¥å¥¦¥ê¥ä" "tink" "½¤Íý²°"
+ "¥·¥å¥´" "ward" "¼é¸î"
+ "¥·¥å¥´¥Î¥¸¥å¥â¥ó" "ward" "¼é¸î¤Î¼öʸ"
+ "¥·¥å¥´¥·¥ã" "keep" "¼é¸î¼Ô"
+ "¥·¥å¥¸¥ó" "innk" "¼ç¿Í"
+ "¥·¥å¥ë¡¼¥à" "shro" "¥·¥å¥ë¡¼¥à"
+ "¥·¥ç¥¦¥«¥¯" "prom" "¾º³Ê"
+ "¥·¥ç¥¦¥³" "evid" "¾Úµò"
+ "¥·¥ç¥¦¥Ð¥¤" "deal" "¾¦Çä"
+ "¥·¥ç¥¯¥¸" "supp" "¿©»ö"
+ "¥·¥ç¥¯¥Ë¥ó" "wrig" "¿¦¿Í"
+ "¥·¥ç¥¯¥Ë¥ó" "wrig" "¿¦¿Í"
+ "¥·¥ç¥¯¥ê¥ç¥¦" "food" "¿©ÎÁ"
+ "¥·¥ê¥ç¥¦¥¸¥å¥Ä¥·" "necr" "»àÎî½Ñ»Õ"
+ "¥·¥ì¥¤¥«¥ó" "comm" "»ÊÎá´±"
+ "¥·¥í¥" "whit" "Çò¤"
+ "¥·¥í¥¥ª¥¸¥«" "whit" "Çò¤²´¼¯"
+ "¥·¥ó¥¨¥ó" "deep" "¿¼Ê¥"
+ "¥·¥ó¥¸¥Ä" "trut" "¿¿¼Â"
+ "¥·¥ó¥»¥" "cous" "¿ÆÀÌ"
+ "¥·¥ó¥Ç" "dead" "»à¤ó¤Ç"
+ "¥·¥ó¥Ç¥ó" "shri" "¿ÀÅÂ"
+ "¥·¥ó¥è¥¦" "trus" "¿®ÍÑ"
+ "¥¸¥¤¥ó" "temp" "»û±¡"
+ "¥¸¥§¥¤¥¯" "jake" "¥¸¥§¥¤¥¯"
+ "¥¸¥§¥¹" "jess" "¥¸¥§¥¹"
+ "¥¸¥§¥Õ¥ê¡¼¥º" "jeff" "¥¸¥§¥Õ¥ê¡¼¥º"
+ "¥¸¥§¥ó" "gen" "¥¸¥§¥ó"
+ "¥¸¥´¥¯" "hell" "ÃϹö"
+ "¥¸¥À¥¤" "age" "»þÂå"
+ "¥¸¥Ò" "merc" "»üÈá"
+ "¥¸¥à" "jim" "¥¸¥à"
+ "¥¸¥ã" "ja" "¥¸¥ã"
+ "¥¸¥ã¥¢¥¯" "wick" "¼Ù°"
+ "¥¸¥ã¥Ë¥¹" "jani" "¥¸¥ã¥Ë¥¹"
+ "¥¸¥å¥¦¥Ë" "twel" "½½Æó"
+ "¥¸¥å¥¦¥Ë¥ó" "inha" "½»¿Í"
+ "¥¸¥å¥â¥ó" "spel" "¼öʸ"
+ "¥¸¥ç" "jo" "¥¸¥ç"
+ "¥¸¥ç¡¼¥ó" "jorn" "¥¸¥ç¡¼¥ó"
+ "¥¸¥ç¥¦¥Û¥¦" "news" "¾ðÊó"
+ "¥¹¥¦¥Ï¥¤" "hono" "¿òÇÒ"
+ "¥¹¥Ù¥¥³¥È" "ques" "¤¹¤Ù¤¤³¤È"
+ "¥¹¥ß¥ä¥" "char" "ú¾Æ¤"
+ "¥º" "zu" "¥º"
+ "¥º¥«¥¥°¥ë" "zuka" "¥º¥«¥¥°¥ë"
+ "¥»¥¤¥¥·" "pala" "À»µ³»Î"
+ "¥»¥¤¥®" "just" "ÀµµÁ"
+ "¥»¥¤¥µ¥ó" "sacr" "À»»Á"
+ "¥»¥¤¥È" "stud" "À¸ÅÌ"
+ "¥»¥¤¥Ï¥¤" "holy" "À»ÇÕ"
+ "¥»¥¥Ë¥ó" "onus" "ÀÕǤ"
+ "¥»¥¥Ð¥ó" "rune" "ÀÐÈÇ"
+ "¥»¥ì¥Í" "sele" "¥»¥ì¥Í"
+ "¥»¥ó¥»¥¤" "doc" "ÀèÀ¸"
+ "¥»¥ó¥½¥¦" "wars" "ÀïÁè"
+ "¥»¥ó¥Á¥ç¥¦" "capt" "Á¥Ä¹"
+ "¥»¥ó¥È¥¦" "warm" "ÀïÆ®"
+ "¥¼¥ó" "good" "Á±"
+ "¥¼¥ó¥»¥ó" "outp" "Á°Àþ"
+ "¥½¥¦¥Ó" "equi" "ÁõÈ÷"
+ "¥½¥Ê¥¨¥â¥Î" "offe" "¶¡¤¨Êª"
+ "¥¿¥¤¥¨¥" "reti" "ÂàÌò"
+ "¥¿¥¤¥Þ¥Ä" "torc" "¾¾ÌÀ"
+ "¥¿¥«¥é" "fort" "Êõ"
+ "¥¿¥¹¥±" "help" "½õ¤±"
+ "¥¿¥¿¥«¥Ã¥Æ" "batt" "Àï¤Ã¤Æ"
+ "¥¿¥Æ" "shie" "½â"
+ "¥¿¥Î¥·¥¤" "fun" "³Ú¤·¤¤"
+ "¥¿¥Ó¥Î¥¥·" "knig" "ι¤Îµ³»Î"
+ "¥¿¥Ó¥Ó¥È" "trav" "ι¿Í"
+ "¥¿¥Ù¥â¥Î" "food" "¿©¤Ùʪ"
+ "¥¿¥á¥Ë" "reas" "¤¿¤á¤Ë"
+ "¥¿¥ó¥±¥ó" "dagg" "û·õ"
+ "¥À" "da" "¥À"
+ "¥À¥¤£±" "firs" "Â裱"
+ "¥À¥¤£²" "seco" "Â裲"
+ "¥À¥¤£³" "thir" "Â裳"
+ "¥À¥¤¥¤¥Á" "firs" "Âè°ì"
+ "¥À¥¤¥¥ó" "pay" "Âå¶â"
+ "¥À¥¤¥µ¥ó" "thir" "Âè»°"
+ "¥À¥¤¥·¥ç¥¦" "fail" "Âå½þ"
+ "¥À¥¤¥¹¥" "love" "Âç¹¥¤"
+ "¥À¥¤¥Ë" "seco" "ÂèÆó"
+ "¥À¥·¥Æ" "free" "½Ð¤·¤Æ"
+ "¥À¥ó¥Ê" "husb" "öÆá"
+ "¥Á¥§¥¹¥¿¡¼" "ches" "¥Á¥§¥¹¥¿¡¼"
+ "¥Á¥¨" "wit" "ÃηÃ"
+ "¥Á¥«" "unde" "Ãϲ¼"
+ "¥Á¥«¥é" "powe" "ÎÏ"
+ "¥Á¥·¥" "know" "Ãμ±"
+ "¥Á¥Á" "dadd" "Éã"
+ "¥Á¥Î¥¦" "int" "ÃÎǽ"
+ "¥Á¥å¥¦¥È¥ó¥Á" "garr" "ÃóÆÖÃÏ"
+ "¥Á¥ç" "cho" "¥Á¥ç"
+ "¥Á¥ê¥ç¥¦" "heal" "¼£ÎÅ"
+ "¥Ä" "tu" "¥Ä"
+ "¥Ä¥" "moon" "·î"
+ "¥Ä¥¥µ¥¹" "spit" "Æͤ»É¤¹"
+ "¥Ä¥¯¥ë" "make" "ºî¤ë"
+ "¥Ä¥°¥Ê¥¤" "pena" "½þ¤¤"
+ "¥Ä¥ß¥Î¥Ê¥¤" "inno" "ºá¤Î¤Ê¤¤"
+ "¥Ä¥ì" "thin" "Ï¢¤ì"
+ "¥Æ" "hand" "¼ê"
+ "¥Æ¥" "enem" "Ũ"
+ "¥Æ¥·¥¿" "crew" "¼ê²¼"
+ "¥Æ¥Ä¥À¥¤" "chor" "¼êÅÁ¤¤"
+ "¥Æ¥ó¥·¥ç¥¯" "voca" "Å·¿¦"
+ "¥Ç¥Ë¥¹" "denn" "¥Ç¥Ë¥¹"
+ "¥Ç¥ê¥Ã¥¯" "deri" "¥Ç¥ê¥Ã¥¯"
+ "¥Ç¥ó¥É¥¦" "lost" "ÅÂƲ"
+ "¥È" "to" "¥È"
+ "¥È¥¦" "towe" "Åã"
+ "¥È¥¦¥·" "warr" "Æ®»Î"
+ "¥È¥¦¥¾¥¯" "band" "Åð±"
+ "¥È¥¦¥Á¥·¥ã" "stew" "Åý¼£¼Ô"
+ "¥È¥³¥í" "plac" "½ê"
+ "¥È¥·" "civi" "ÅÔ»Ô"
+ "¥È¥Ã¥Æ" "get" "¼è¤Ã¤Æ"
+ "¥È¥â" "kind" "ͧ"
+ "¥È¥ê¥°¥ì¥¤¥Ö" "trig" "¥È¥ê¥°¥ì¥¤¥Ö"
+ "¥È¥ê¥Ç" "fort" "ºÖ"
+ "¥È¥ê¥Ò¥" "trad" "¼è¤ê°ú¤"
+ "¥È¥ë" "get" "¼è¤ë"
+ "¥È¥í¥ë" "trol" "¥È¥í¥ë"
+ "¥É¥¦¥¥ç¥Ë¥ó" "inn" "Ʊµï¿Í"
+ "¥É¥¦¥¯¥Ä" "cave" "ƶ·¢"
+ "¥É¥¦¥Ö¥Ä" "anim" "ưʪ"
+ "¥É¥¯" "pois" "ÆÇ"
+ "¥É¥Á¥ã¥¯" "nati" "ÅÚÃå"
+ "¥É¥ê¥¹" "dori" "¥É¥ê¥¹"
+ "¥É¥ì¥¤" "slav" "ÅÛÎì"
+ "¥É¥í¥Ü¥¦" "thie" "Å¥ËÀ"
+ "¥É¥ó" "thud" "¥É¥ó"
+ "¥Ê" "na" "¥Ê"
+ "¥Ê¥«¥Þ" "join" "Ãç´Ö"
+ "¥Ê¥Þ¥¨" "name" "̾Á°"
+ "¥Ê¥é¥º¥â¥Î" "wrog" "¤Ê¤é¤º¼Ô"
+ "¥Ë¥¯¥ó¥Ç" "hate" "Áþ¤ó¤Ç"
+ "¥Ë¥²" "jink" "ƨ¤²"
+ "¥Ë¥²¥é¥ì¥Ê¥¤" "esca" "ƨ¤²¤é¤ì¤Ê¤¤"
+ "¥Ë¥²¥ë" "esca" "ƨ¤²¤ë"
+ "¥Ë¥Ã¥" "diar" "Æüµ"
+ "¥Ë¥ó" "nin" "¥Ë¥ó"
+ "¥Ë¥ó¥²¥ó" "man" "¤Ë¤ó¤²¤ó"
+ "¥Ë¥ó¥à" "erra" "Ǥ̳"
+ "¥Ì" "nu" "¥Ì"
+ "¥Ì¥" "nuki" "¥Ì¥"
+ "¥Ì¥Þ" "fen" "¾Â"
+ "¥Í¥º¥ß" "mous" "¥Í¥º¥ß"
+ "¥Î" "no" "¥Î"
+ "¥Î¥¢" "noor" "¥Î¥¢"
+ "¥Î¥¦¥Õ" "farm" "ÇÀÉ×"
+ "¥Î¥¦¥ê¥ç¥¯" "skil" "ǽÎÏ"
+ "¥Î¥¬¥ì¥ë" "esca" "ƨ¤ì¤ë"
+ "¥Î¥·¥Õ¥¡¡¼" "noss" "¥Î¥·¥Õ¥¡¡¼"
+ "¥Î¥ß¥â¥Î" "drin" "°û¤ßʪ"
+ "¥Î¥à" "drin" "°û¤à"
+ "¥Î¥í¥¤" "curs" "¼ö¤¤"
+ "¥Î¥í¥ï¥ì¥¿¥â¥Î" "accu" "¼ö¤ï¤ì¤¿¼Ô"
+ "¥Ï" "ha" "¥Ï"
+ "¥Ï¥«" "grav" "Êè"
+ "¥Ï¥³" "ches" "È¢"
+ "¥Ï¥·¥ê" "run" "Áö¤ê"
+ "¥Ï¥¸" "sham" "ÃѤ¸"
+ "¥Ï¥Ã¥¯¥ë" "hack" "¥Ï¥Ã¥¯¥ë"
+ "¥Ï¥Ê¥·" "stor" "ÏÃ"
+ "¥Ï¥Ê¥¹" "talk" "Ïä¹"
+ "¥Ï¥à¥ì¥Ã¥È" "haml" "¥Ï¥à¥ì¥Ã¥È"
+ "¥Ï¥á¥ê¥å¥È" "hame" "¥Ï¥á¥ê¥å¥È"
+ "¥Ï¥ó¥®¥ã¥¯" "rebe" "È¿µÕ"
+ "¥Ï¥ó¥·¥¿" "rebe" "È¿¤·¤¿"
+ "¥Ï¥ó¥È¥¦" "peni" "ȾÅç"
+ "¥Ð¡¼¥È" "bart" "¥Ð¡¼¥È"
+ "¥Ð¥¤¥Ë¥ó" "sell" "Çä¿Í"
+ "¥Ð¥ë¥¹" "valu" "¥Ð¥ë¥¹"
+ "¥Ð¥ì" "vale" "¥Ð¥ì"
+ "¥Ñ¡¼¥·¡¼" "perc" "¥Ñ¡¼¥·¡¼"
+ "¥Ñ¡¼¥·¥Ð¥ë" "perc" "¥Ñ¡¼¥·¥Ð¥ë"
+ "¥Ñ¥¹¥«" "pusk" "¥Ñ¥¹¥«"
+ "¥Ò" "hi" "¥Ò"
+ "¥Ò¥«¥ê" "enli" "¸÷"
+ "¥Ò¥Ä¥¸" "shee" "ÍÓ"
+ "¥Ò¥È" "men" "¿Í"
+ "¥Ò¥È¥Ó¥È" "peop" "¿Í¡¹"
+ "¥Ò¥È¥ê" "alon" "ÆȤê"
+ "¥Ò¥É¥¤" "nast" "¹ó¤¤"
+ "¥Ò¥É¥é" "hydr" "¥Ò¥É¥é"
+ "¥Ò¥Î¥¦¥ß" "fire" "²Ð¤Î³¤"
+ "¥Ò¥ß¥Ä" "secr" "ÈëÌ©"
+ "¥Ò¥ä¥¯" "reag" "ÈëÌô"
+ "¥Ó¥¯¥È¥ê¥¢" "vict" "¥Ó¥¯¥È¥ê¥¢"
+ "¥Ó¥ç¥¦¥¤¥ó" "hosp" "ɱ¡"
+ "¥Ó¥ë" "bill" "¥Ó¥ë"
+ "¥Ó¥ó¥·¥ç¥¦" "dex" "ÉÒ¾¹"
+ "¥Õ¥£¥ó" "fing" "¥Õ¥£¥ó"
+ "¥Õ¥¯¥·¥å¥¦" "reve" "Éü½²"
+ "¥Õ¥·" "unde" "ÉÔ»à"
+ "¥Õ¥·¥ç¥¦" "crip" "Éé½ý"
+ "¥Õ¥»¥¤¥¸¥Ä" "fail" "ÉÔÀ¿¼Â"
+ "¥Õ¥»¥°" "guar" "Ëɤ°"
+ "¥Õ¥¿¥Ä" "two" "Æó¤Ä"
+ "¥Õ¥Æ¥¥»¥Ä" "unna" "ÉÔŬÀÚ"
+ "¥Õ¥Í" "ship" "Á¥"
+ "¥Õ¥ë¥¤" "old" "¸Å¤¤"
+ "¥Ö¥ë¥Ì" "brun" "¥Ö¥ë¥Ì"
+ "¥Ö¥ë¥ó¥Ç¥¬¡¼¥É" "brun" "¥Ö¥ë¥ó¥Ç¥¬¡¼¥É"
+ "¥Ö¥ó¥«" "cult" "ʸ²½"
+ "¥Ö¥ó¥á¥¤" "civi" "ʸÌÀ"
+ "¥Ø¥¤¥¨¥" "tour" "ʼÌò"
+ "¥Ø¥¤¥ï" "peac" "Ê¿ÏÂ"
+ "¥Ø¥Ã¥¿" "hung" "¸º¤Ã¤¿"
+ "¥Ø¥ä" "room" "Éô²°"
+ "¥Ø¥ó¥ê¡¼" "henr" "¥Ø¥ó¥ê¡¼"
+ "¥Û¡¼¥ë" "hole" "¥Û¡¼¥ë"
+ "¥Û¥¦¥«¥¤" "ruin" "Êø²õ"
+ "¥Û¥ó¥Ö" "cita" "ËÜÉô"
+ "¥Ü" "bo" "¥Ü"
+ "¥Ü¥¦¥±¥ó¥·¥ã" "adve" "ËÁ¸±¼Ô"
+ "¥Ü¥¦¥ì¥¤" "ghos" "Ë´Îî"
+ "¥Ü¥Ê¥Ï" "bona" "¥Ü¥Ê¥Ï"
+ "¥Ü¥ì" "bole" "¥Ü¥ì"
+ "¥Þ" "ma" "¥Þ"
+ "¥Þ¥¥â¥Î" "scro" "´¬Êª"
+ "¥Þ¥´¥à¥¹¥á" "gran" "¹̼"
+ "¥Þ¥¸¥å¥Ä¥·" "wiza" "Ëâ½Ñ»Õ"
+ "¥Þ¥¸¥ç" "witc" "Ëâ½÷"
+ "¥Þ¥º¥·¥¤" "poor" "ÉϤ·¤¤"
+ "¥Þ¥Á" "town" "Ä®"
+ "¥Þ¥Ã¥Æ" "expe" "ÂԤäÆ"
+ "¥Þ¥É¥¦¥·" "ench" "ËâÆ»»Õ"
+ "¥Þ¥Û¥¦" "mage" "ËâË¡"
+ "¥Þ¥Û¥¦¥¸¥ó" "roun" "ËâË¡¿Ø"
+ "¥Þ¥Û¥¦¥Ä¥«¥¤" "wiza" "ËâË¡»È¤¤"
+ "¥Þ¥è¥¤¥Ó¥È" "wand" "̤¤¿Í"
+ "¥Þ¥è¥Ê¥«" "nigh" "¿¿ÌëÃæ"
+ "¥ß¡¼¥Ë¡¼" "mean" "¥ß¡¼¥Ë¡¼"
+ "¥ß¥Ä¥±¥ë" "find" "¸«¤Ä¤±¤ë"
+ "¥ß¥É¥ê¥Î¥È¥¦" "gree" "ÎФÎÅã"
+ "¥à¥«¥·" "old" "ÀÎ"
+ "¥à¥¹¥á" "daug" "̼"
+ "¥à¥é" "folk" "¼"
+ "¥à¥ì" "hord" "·²¤ì"
+ "¥á" "me" "¥á"
+ "¥á¥¤" "may" "¥á¥¤"
+ "¥á¥¤¥¥å¥¦" "dung" "̵Ü"
+ "¥á¥ê¥å¥" "melu" "¥á¥ê¥å¥"
+ "¥á¥ë¥Ó¥ó" "melv" "¥á¥ë¥ô¥£¥ó"
+ "¥á¥ë¥ô¥£¥ó" "melv" "¥á¥ë¥ô¥£¥ó"
+ "¥â¥¦¥â¥¯" "blin" "ÌÕÌÜ"
+ "¥â¥¯¥Æ¥" "aspi" "ÌÜŪ"
+ "¥â¥Î" "stuf" "ʪ"
+ "¥â¥ê" "wood" "¿¹"
+ "¥â¥ó" "gate" "Ìç"
+ "¥ä" "arro" "Ìð"
+ "¥ä¥¢" "hail" "¤ä¤¢"
+ "¥ä¥·¥ó" "ambi" "Ìî¿´"
+ "¥ä¥Ã¥«¥¤" "trou" "¤ä¤Ã¤«¤¤"
+ "¥ä¥Ã¥Ä" "eigh" "Ȭ¤Ä"
+ "¥ä¥Þ¥¤" "sick" "ÉÂ"
+ "¥ä¥á¥ë" "quit" "¼¤á¤ë"
+ "¥ä¥ï¥é¥«" "soft" "½À¤é¤«"
+ "¥æ¥¦¥ì¥¤" "haun" "Í©Îî"
+ "¥æ¥Ó¥ï" "ring" "»ØÎØ"
+ "¥è¥¯¥Ü¥¦" "desi" "Íß˾"
+ "¥é¥¯¥·¥Þ¥Ë" "luxi" "¥é¥¯¥·¥Þ¥Ë"
+ "¥ê¥¢" "lia" "¥ê¥¢"
+ "¥ê¥Ã¥Á" "lich" "¥ê¥Ã¥Á"
+ "¥ê¥ã¥¯¥À¥Ä" "sack" "άå"
+ "¥ê¥å" "lu" "¥ê¥å"
+ "¥ê¥å¥¦" "drag" "ε"
+ "¥ê¥ç¥¦¥¤¥" "real" "Îΰè"
+ "¥ê¥ç¥¦¥·¥ó" "pare" "ξ¿Æ"
+ "¥ê¥ç¥¦¥É" "real" "ÎÎÅÚ"
+ "¥ê¥ç¥¦¥Û¥¦" "both" "ξÊý"
+ "¥ê¥ç¥¦¥ê" "cook" "ÎÁÍý"
+ "¥ê¥ç¥¦¥ê¥Ë¥ó" "cook" "ÎÁÍý¿Í"
+ "¥ê¥ó¥¸¥ó" "neig" "ÎÙ¿Í"
+ "¥ë" "ru" "¥ë"
+ "¥ë¥«" "ruka" "¥ë¥«"
+ "¥ë¥ß¥¹" "lumi" "¥ë¥ß¥¹"
+ "¥ì¥¤" "spir" "Îî"
+ "¥ì¥¥·" "hist" "Îò»Ë"
+ "¥ì¥ó¥¥ó¥¸¥å¥Ä¥·" "alch" "Ï£¶â½Ñ»Õ"
+ "¥ì¥ó¥·¥å¥¦" "prac" "Îý½¬"
+ "¥í¥¤¥ä¥ë¥±¡¼¥×" "cape" "¥í¥¤¥ä¥ë¥±¡¼¥×"
+ "¥í¥¦" "cell" "Ï´"
+ "¥í¥¯¥Ë¥ó" "six" "Ï»¿Í"
+ "¥ï¥«¥ì¥ë" "leav" "Ê̤ì¤ë"
+ "¥ï¥¹¥ì¥é¥ì¥¿" "forg" "˺¤ì¤é¤ì¤¿"
+ "¥ï¥Ã¥Æ" "chop" "³ä¤Ã¤Æ"
+ "¥ï¥ó¥ê¥ç¥¯" "stre" "ÏÓÎÏ"
+ "¥ô¥¡¥ë¥¹" "valu" "¥ô¥¡¥ë¥¹"
+ "¥ô¥¡¥ì" "vale" "¥ô¥¡¥ì"
+ "¥ô¥£¥¯¥È¥ê¥¢" "vict" "¥ô¥£¥¯¥È¥ê¥¢"
+ "ÌÚ" "tree" "ÌÚ"
+ "ÌÜ" "eye" "ÌÜ"
+ "²Ð" "fire" "²Ð"
+)
(kern-load "keep_crypt_mech.scm")
(mk-dungeon-room
- 'p_crypt "Crypt"
+ 'p_crypt "°äÂÎÃÖ¤¾ì"
(list
"xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
"xx xx xx ,, ,, ,, xx x! ,, ,, ,, x! xx ,, ,, ,, xx ,, xx "
-;; Aka, reagent cave -- generate rare reagents here
+;; ÊÌ̾: ÈëÌô¤Îƶ·¢ - ÄÁ¤·¤¤ÈëÌô¤¬¼«À¸¤·¤Æ¤¤¤ë
(mk-dungeon-room
- 'p_dank_cave "Dank Cave"
+ 'p_dank_cave "°Å¤¤Æ¶·¢"
(list
"rn rn rn rn rn rn rn rn r8 r8 r8 rn rn rn rn rn rn rn rn "
"rn rn rn rn r8 rn rn r4 .. .. .. r2 rn rn r8 rn rn rn rn "
;; Setup progress bar stuff. The number 44 should be the total number of files
;; we're going to load.
-(kern-progress-bar-start "Loading" 44)
+(kern-progress-bar-start "Æɤ߹þ¤ßÃæ" 44)
;; Wrap the original definition of (load ...) with one that advances the
;; progress bar.
(kern-map-repaint)
)
- (kern-log-msg "VAS AN EX REL POR!")
+ (kern-log-msg "VAS AN EX REL POR! (¥ô¥¡¥¹ ¥¢¥ó ¥¤¥¯¥¹ ¥ì¥ë ¥Ý¡¼¡ª)")
;; we need a better rumbling thunder/ earthquake type noise
(kern-sound-play sound-lightning)
(shake-map 15)
)
(define (scene-mgr-start-days-pass kobj)
- (kern-log-msg "Days pass...")
+ (kern-log-msg "´öÆü¤¬²á¤®¡Ä")
(set-car! flee-gate #f)
(let ((kplace (loc-place (kern-obj-get-location kobj))))
(define (wolf-mk from-loc to-xy)
))
(define (scene-mgr-years-pass kobj)
- (kern-log-msg "Then years...")
+ (kern-log-msg "´öǯ¤¬²á¤®¡Ä")
(let ((kplace (loc-place (kern-obj-get-location kobj))))
(define (mk-troll loc)
(let ((kchar (mk-npc 'troll 9)))
(define (scene-mgr-ages-pass kobj)
- (kern-log-msg "Then ages...")
+ (kern-log-msg "´öÀ¤Â夬²á¤®¡Ä")
(let ((kplace (loc-place (kern-obj-get-location kobj))))
(kern-blit-map (kern-place-map kplace) 0 0
(kern-mk-map
(define (scene-mgr-conclude kobj)
- (kern-log-msg "Until what was closed and locked by magic has been forgotten.")
+ (kern-log-msg "²¿¤¬ÊĤ¸¤é¤ì¡¢²¿¤¬Éõ°õ¤µ¤ì¤¿¤Î¤«¤Ï¡¢Ëº¤ìµî¤é¤ì¤¿¡£")
(let ((kplace (loc-place (kern-obj-get-location kobj))))
(kern-blit-map (kern-place-map kplace) 0 0
(kern-mk-map
(kern-mk-place
'p_demo_scene ; tag
- "Demo Scene" ; name
+ "¥×¥í¥í¡¼¥°" ; name
nil ; sprite
m_demo_scene ; map
#f ; wraps
(let ((kchar (kern-mk-char
'ch_wanderer
- "John the Mute" ; name
+ "̵¸À¤Î¥¸¥ç¥ó" ; name
sp_human ; species
oc_wanderer ; occ
s_beggar ; sprite
;; demon gate procs
(define (summon-nossifer kplace)
- (kern-log-msg "SOMETHING EMERGES")
+ (kern-log-msg "²¿¼Ô¤«¤¬»Ñ¤ò¸½¤·¤¿¡£")
(let ((knpc (mk-nossifer)))
(kern-obj-put-at knpc
(mk-loc kplace
(list s_blackgate_full 128))))
(kern-map-flash 100)
(kern-sleep 2000)
- (kern-log-msg "A DARK GATE OPENS")
+ (kern-log-msg "°Å¤¤Ì礬³«¤¤¤¿¡£")
(kern-obj-put-at gate loc)
(moongate-animate gate stages)
(kern-sleep 2000)
(kern-map-repaint)
(kern-log-msg "**************************")
(kern-sleep 2000)
- (kern-log-msg "Nossifer and his minions are defeated.")
+ (kern-log-msg "¥Î¥·¥Õ¥¡¡¼¤È¤½¤Î¼êÀè¤ÏÂǤÁÅݤµ¤ì¤¿¡£")
(kern-sleep 2000)
- (kern-log-msg "The Demon Gate is closed.")
+ (kern-log-msg "°Ëâ¤ÎÌç¤ÏÊĤ¸¤¿¡£")
(kern-sleep 2000)
- (kern-log-msg "Will it open again?")
+ (kern-log-msg "¤½¤ì¤ÏºÆ¤Ó³«¤«¤ì¤ë¤Î¤À¤í¤¦¤«¡©")
(kern-sleep 2000)
- (kern-log-msg "Is the Wanderer trapped on the Shard forever?")
+ (kern-log-msg "̤¤¿Í¤Ï¥·¥ã¥ë¥É¤Ë±Ê±ó¤ËÊá¤é¤ï¤ì¤¿¤Þ¤Þ¤Ê¤Î¤«¡©")
(kern-sleep 2000)
- (kern-log-msg "Is he, perhaps, a Wanderer no more?")
+ (kern-log-msg "Èà¤Ï¡¢¤â¤·¤«¤¹¤ë¤È¡¢¤â¤Ï¤ä̤¤¿Í¤Ç¤Ï¤Ê¤¤¤Î¤«¡©")
(kern-sleep 2000)
- (kern-log-msg "Is it time he became...")
+ (kern-log-msg "Èब¡Ä")
(kern-sleep 4000)
- (kern-log-msg "...a Conquerer?")
+ (kern-log-msg "¡ÄÀ¬Éþ¼Ô¤Ë¤Ê¤ë»þ¤¬Í褿¤Î¤À¤í¤¦¤«¡©")
(kern-sleep 2000)
- (kern-log-msg "Find out in Haxima II: Conquerer")
+ (kern-log-msg "¤½¤ÎÅú¤¨¤Ï¡¡Haxima II: À¬Éþ¼Ô¡¡¤Ë¤¢¤ë¡£")
(kern-log-msg "**************************")
- (kern-log-msg "*** CONGRATULATIONS ***")
- (kern-log-msg "You have finished the game!")
- (kern-log-msg "Press any key to exit.")
+ (kern-log-msg "*** ¤ª¤á¤Ç¤È¤¦ ***")
+ (kern-log-msg "¤¢¤Ê¤¿¤Ï¤³¤Î¥²¡¼¥à¤ò´°Î»¤·¤¿¡ª")
+ (kern-log-msg "²¿¤«¥¡¼¤ò²¡¤¹¤È½ªÎ»¤¹¤ë¡£")
(kern-ui-waitkey)
(kern-end-game)
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Old Absalot.
+;; ¸Å¥¢¥Ö¥µ¥í¥Ã¥È
;;----------------------------------------------------------------------------
(define dennis-bed oa-bed2)
(define dennis-mealplace oa-tbl1)
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Dennis is an acolyte of the Accursed, who lives in Old Absalot.
-;; He is somewhat naive, but not yet wholly corrupt.
+;; ¥Ç¥Ë¥¹¤Ï¼ö¤ï¤ì¤¿¼Ô¤Î¿®Êô¼Ô¤Ç¡¢¸Å¥¢¥Ö¥µ¥í¥Ã¥È¤Ë½»¤ó¤Ç¤¤¤ë¡£
+;; Èà¤Ï¿®¤¸¤ä¤¹¤¤¤¬¡¢¤Þ¤À´°Á´¤Ë¤ÏÀ÷¤Þ¤Ã¤Æ¤¤¤Ê¤¤¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (dennis-hail knpc kpc)
- (say knpc "Hello."))
+ (say knpc "¤³¤ó¤Ë¤Á¤Ï¡£"))
(define (dennis-default knpc kpc)
- (say knpc "I don't know about that sort of thing."))
+ (say knpc "¤½¤Î¤¢¤¿¤ê¤Î¤³¤È¤Ï¤ï¤«¤ê¤Þ¤»¤ó¡£"))
(define (dennis-name knpc kpc)
- (say knpc "I'm Dennis."))
+ (say knpc "¥Ç¥Ë¥¹¤Ç¤¹¡£"))
(define (dennis-join knpc kpc)
- (say knpc "[He scoffs] I don't think so, wayfarer."))
+ (say knpc "¡ÎÈà¤Ï¤¢¤¶¾Ð¤Ã¤¿¡£¡Ï¤½¤¦¤Ï»×¤¤¤Þ¤»¤ó¡£Î¹¤Î¿Í¡£"))
(define (dennis-job knpc kpc)
- (say knpc "I am a student of Master Silas."))
+ (say knpc "¥µ¥¤¥é¥¹»Õ¤ÎÀ¸Å̤Ǥ¹¡£"))
(define (dennis-bye knpc kpc)
- (say knpc "Goodbye."))
+ (say knpc "¤µ¤è¤¦¤Ê¤é¡£"))
;; Tier 2
(define (dennis-stud knpc kpc)
- (say knpc "Master Silas teaches that by focusing my will, and by sacrificing things which impede my progess, I can achieve anything I desire. Or, at least, I will be able to once I have mastered the ways of the Accursed."))
+ (say knpc "¥µ¥¤¥é¥¹»Õ¤«¤é¡¢¼«Ê¬¤Î°Õ»×¤Ë½¸Ã椹¤ë¤³¤È¡¢¤½¤·¤Æ»ä¤ÎÁ°¿Ê¤Î˸¤²¤Ë¤Ê¤ë¤â¤Î¤òµ¾À·¤Ë¤¹¤ë¤³¤È¤ò¶µ¤ï¤Ã¤Æ¤¤¤Þ¤¹¡£»ä¤Ï¼«Ê¬¤ÎÍß˾¤ËÅþã¤Ç¤¤ë¤³¤È¤Ç¤·¤ç¤¦¡£¤½¤¦¤Ç¤Ê¤¯¤Æ¤â¡¢¾¯¤Ê¤¯¤È¤â¼ö¤ï¤ì¤¿¼Ô¤ÎÀ¸¤Êý¤ò¶Ë¤á¤ë¤³¤È¤¬¤Ç¤¤ë¤Ç¤·¤ç¤¦¡£"))
(define (dennis-accu knpc kpc)
- (say knpc "The Accursed are misunderstood. It is not evil to pursue one's desires, it is good! Why can't our enemies see that?"))
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¤Ï¸í²ò¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¸Ê¤ÎÍß˾¤òÄɤ¤µá¤á¤ë¤Î¤Ï¡¢°¤Ç¤Ï¤Ê¤¯Á±¤Ê¤Î¤Ç¤¹¡ª¤Ê¤¼²æ¡¹¤ÎŨ¤Ï¤½¤ì¤¬¤ï¤«¤é¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©"))
(define (dennis-enem knpc kpc)
- (say knpc "The butchers of Glasdrin and that old fool the Enchanter have more blood on their hands than anyone!"))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÎµÔ»¦¼Ô¤È¶ò¤«¤Êǯ´ó¤ê¤ÎËâÆ»»Õ¤Ï¤µ¤é¤Ê¤ë·ì¤òµá¤á¤Æ¤¤¤ë¤Î¤Ç¤¹¡ª"))
(define (dennis-ways knpc kpc)
- (say knpc "The ways of the Accursed are revealed to students in phases. At each phase, an acolyte gains more power. To advance to the next phase the student must master the rites and perform a suitable sacrifice."))
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¤ÎÀ¸¤Êý¤ÏÃʳ¬Åª¤ËÀ¸Å̤ËÌÀ¤«¤µ¤ì¤Æ¤¤¤¤Þ¤¹¡£¤½¤ì¤¾¤ì¤ÎÃʳ¬¤Ç¿®Êô¼Ô¤ÏÎϤòÆÀ¤Æ¤¤¤¤Þ¤¹¡£¼¡¤ÎÃʳ¬¤Ë㤹¤ë¤¿¤á¤Ë¤Ï¡¢À¸Å̤Ϥդµ¤ï¤·¤¤µ¾À·¤ò¤µ¤µ¤²¤ëµ·¼°¤ò¹Ô¤ï¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£"))
(define (dennis-sacr knpc kpc)
- (say knpc "The sacrificial rites are secret. I cannot speak of them with an uninitiate like yourself."))
+ (say knpc "µ¾À·¤Îµ·¼°¤ÏÈëÌ©¤Ë¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¤¢¤Ê¤¿¤Î¤è¤¦¤Ê²¿¤âÃΤé¤Ê¤¤¿Í¤Ë¤ÏÏ令ޤ»¤ó¡£"))
(define (dennis-powe knpc kpc)
- (say knpc "Power unimaginable awaits those who have the will to grasp it."))
+ (say knpc "ÁÛÁü¤â¤Ç¤¤Ê¤¤¤è¤¦¤ÊÎϤ¬¡¢¤½¤ì¤ò¤Ä¤«¤ß¼è¤ë°Õ»Ö¤Î¤¢¤ë¼Ô¤òÂԤäƤ¤¤Þ¤¹¡£"))
(define (dennis-sila knpc kpc)
- (say knpc "Master Silas is a powerful wizard and a wise teacher."))
+ (say knpc "¥µ¥¤¥é¥¹»Õ¤ÏÎϤΤ¢¤ëËâ½Ñ»Õ¡¢¤½¤·¤Æ¸ÌÀ¤ÊÀèÀ¸¤Ç¤¹¡£"))
(define (dennis-absa knpc kpc)
- (say knpc "Those fools destroyed Absalot, thinking we were there! But they didn't know about Old Absalot, a city beneath the city."))
+ (say knpc "¤¢¤Î¶ò¤«¼Ô¤¿¤Á¤Ï¡¢²æ¡¹¤¬¤½¤³¤Ë¤¤¤ë¤È¹Í¤¨¤Æ¥¢¥Ö¥µ¥í¥Ã¥È¤òÇ˲õ¤·¤Þ¤·¤¿¡ª¤·¤«¤·Èà¤é¤ÏÄ®¤Î¿¿²¼¤Ë¤¢¤ë¤³¤Î¸Å¤¤¥¢¥Ö¥µ¥í¥Ã¥È¤Î¤³¤È¤òÃΤê¤Þ¤»¤ó¤Ç¤·¤¿¡£"))
(define (dennis-old knpc kpc)
- (say knpc "I can't help but feel awed when I walk among these ruins. But they are a bit creepy. The ancients had some strange beliefs!"))
+ (say knpc "¤³¤Î°äÀפòÊ⤤¤Æ¤¤¤ë¤È¡¢°Ú·É¤ÎÇ°¤Ë¶î¤é¤ì¤Þ¤¹¡£¾¯¤·ÉÔµ¤Ì£¤Ç¤¹¤¬¡£¸ÅÂå¤Î¿Í¡¹¤Ï´ñ̯¤Ê¿®¶Ä¤ò»ý¤Ã¤Æ¤¤¤¿¤Î¤Ç¤¹¤Í¡ª"))
(define (dennis-sele knpc kpc)
- (say knpc "[He blushes] If you know what's good for you, you will stay away from her!")
+ (say knpc "¡ÎÈà¤Ï´é¤òÀÖ¤¯¤·¤¿¡£¡Ï°¤¤¤³¤È¤Ï¸À¤¤¤Þ¤»¤ó¡£Èà½÷¤Ë¤Ï¶á¤Å¤«¤Ê¤¤¤Û¤¦¤¬¤¤¤¤¤Ç¤¹¤è¡ª")
(kern-conv-end)
)
(bind
(kern-mk-char
'ch_dennis ; tag
- "Dennis" ; name
+ "¥Ç¥Ë¥¹" ; name
dennis-species ; species
dennis-occ ; occ
s_townsman ; sprite
;;----------------------------------------------------------------------------
-;; Sched
+;; Schedule
;;
-;; In Green Tower.
+;; ÎФÎÅã
;;----------------------------------------------------------------------------
(define (mk-zone x y w h) (list 'p_green_tower x y w h))
(kern-mk-sched 'sch_deric
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Deric is a Captain of the Rangers in Green Tower.
+;; ¥Ç¥ê¥Ã¥¯¤ÏÎФÎÅã¤Î·ÙÈ÷ÂâŤǤ¢¤ë¡£
;;----------------------------------------------------------------------------
(define (deric-name knpc kpc)
- (say knpc "I am Captain Deric, commander of the Rangers, at your service."))
+ (say knpc "»ä¤Ï¥Ç¥ê¥Ã¥¯ÂâĹ¡¢·ÙÈ÷Ââ¤Î»ÊÎá´±¤Ç¤¢¤ë¡£²¿¤Ê¤ê¤È¿½¤¹¤¬¤è¤¤¡£"))
(define (deric-job knpc kpc)
- (say knpc "I command the Rangers, though I aspire to greater things. I "
- "think I have proved myself quite well as a leader, but around here "
- "you have to wait for someone to die before you get promoted!"))
+ (say knpc "·ÙÈ÷Ââ¤ò»Ø´ø¤¹¤ë¤³¤È¤Ç¤¢¤ë¡£¤½¤·¤Æ»ä¤Ë¤Ï¤è¤êÂ礤ÊÌÜŪ¤¬¤¢¤ë¡£"
+ "»ä¤Ï¼«Ê¬¤ÎǽÎϤǻشø´±¤ÎÃϰ̤˾å¤êµÍ¤á¤¿¡£¤À¤¬¡¢·¯¤¬¾º¿Ê¤¹¤ë¤¿¤á¤Ë¤Ï¡¢"
+ "狼¤¬»à¤Ì¤Î¤òÂÔ¤¿¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤À¤í¤¦¡ª"))
(define (deric-health knpc kpc)
- (say knpc "I am the very definition of good health!"))
+ (say knpc "»ä¤Ï·ò¹¯¤½¤Î¤â¤Î¤Ç¤¢¤ë¡ª"))
(define (deric-rangers knpc kpc)
- (say knpc "Right then! The Rangers are charged with keeping the peace in "
- "the Great Wood. We enforce the law, keep an eye on the goblins, that "
- "sort of thing. We're also charged with maintenance of the forest and "
- "keeping the roads in and out clear. If I say so myself, we have done "
- "an amazing job under my leadership. Thanks to the hard work of my "
- "people, of course. Ahem."))
+ (say knpc "¤½¤¦¡ª·ÙÈ÷Ââ¤Ï¤³¤Î¹Âç¤Ê¿¹¤ÎʿϤò¼é¤ëÀÕ̳¤òÉé¤Ã¤Æ¤¤¤ë¡£"
+ "Ë¡¤ò¼é¤é¤»¡¢¥´¥Ö¥ê¥ó¤É¤â¤ò´Æ»ë¤¹¤ë¤Ê¤É¤À¡£"
+ "¿¹¤ò´ÉÍý¤·¡¢ÄÌÏ©¤ò°Ý»ý¤¹¤ë¤Î¤â²æ¡¹¤Î»Å»ö¤À¡£"
+ "¼«Ê¬¼«¿È¤Î¤³¤È¤ò¸À¤¨¤Ð¡¢²æ¡¹¤Ï»ä¤ÎÅýΨ¤Î¤â¤È¤¹¤Ð¤é¤·¤¤»Å»ö¤ò¤·¤Æ¤¤¤ë¡£"
+ "¤â¤Á¤í¤ó»ä¤ÏÉô²¼¤ÎƯ¤¤Ë´¶¼Õ¤·¤Æ¤¤¤ë¡£¡Î³±¤Ð¤é¤¤¡Ï"))
(define (deric-two knpc kpc)
- (say knpc "The upper level of the tower is mostly fortifications. The lower "
- "level is where the council chamber, barracks, kitchen and other "
- "facilities are. We also have a prison down there. Some think the "
- "lower level is haunted."))
+ (say knpc "¾å¤Î³¬¤Î¤Û¤È¤ó¤É¤ÏËɸæÀßÈ÷¤À¡£"
+ "²¼¤Î³¬¤Ï²ñµÄ¼¼¡¢Ê¼¼Ë¡¢¿ß˼¤Ê¤É¤À¡£"
+ "º£¤Ï·ºÌ³½ê¤Ë¤Ê¤Ã¤Æ¤¤¤ë¡£"
+ "²¼¤Î³¬¤Ë¤ÏÍ©Î¤¤¤ë¤È¹Í¤¨¤Æ¤¤¤ë¼Ô¤â¤¤¤ë¤è¤¦¤À¡£"))
(define (deric-haunted knpc kpc)
- (say knpc "They say the lower level is haunted, and I for one have heard "
- "some strange noises. They sound like they're coming from deep within "
- "the walls - chanting, or shrieking. But I've never seen any ghosts. "
- "And of course I am not afraid of such things!"))
+ (say knpc "²¼¤Î³¬¤Ë¤ÏÍ©Î¤¤¤ë¤È¸À¤¦¼Ô¤¬¤¤¤ë¡£»ä¤â´ñ̯¤Êʪ²»¤òʹ¤¤¤¿¤³¤È¤¬¤¢¤ë¡£"
+ "Êɤαü¿¼¤¯¤«¤é¡¢µ§¤ë¤è¤¦¤Ê¡¢ÈáÌĤΤ褦¤ÊÀ¼¤¬¤·¤¿¡£"
+ "¤À¤¬Í©Îî¤Ê¤É¸«¤¿¤³¤È¤¬¤Ê¤¤¡£"
+ "¤â¤Á¤í¤ó»ä¤Ï¤½¤ó¤Ê¤â¤Î¤Ï¶²¤ì¤Ê¤¤¡ª"))
(define (deric-gen knpc kpc)
- (say knpc "A splendid old chap, if a bit daft. He's a legend among the "
- "Rangers for his efforts during the Goblin War, and one of the last "
- "surviving veterans. Still looks to be in good shape physically, but "
- "he's gone a bit native, if you know what I mean."))
+ (say knpc "̾¹â¤¾¡¼Ô¡¢¾¯¤·Àµµ¤¤Ç¤Ê¤¤¤¬¤Ê¡£"
+ "Èà¤Î¥´¥Ö¥ê¥óÀïÁè¤Ç¤Î³èÌö¤Ï·ÙÈ÷Ââ¤Î´Ö¤Ç¤ÏÅÁÀâ¤È¤Ê¤Ã¤Æ¤¤¤ë¡£¤½¤·¤Æ¸Å¶¯¼Ô¤ÎºÇ¸å¤ÎÀ¸¤»Ä¤ê¤Î°ì¿Í¤Ç¤â¤¢¤ë¡£"
+ "º£¤Ç¤âÂΤÎÄ´»Ò¤Ï¤è¤µ¤½¤¦¤À¤¬¡¢"
+ "Èà¤ÏÅÚÃå¤Î¼Ô¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿¡£¤É¤¦¤¤¤¦°ÕÌ£¤«¤ï¤«¤ë¤À¤í¤¦¤«¡£"))
(define (deric-native knpc kpc)
- (say knpc "Yes, he's adopted some of the habits of the Wood Folk - the "
- "forest goblins. But I don't suspect him of conspiring against us - if "
- "I did I would turn him in and perhaps get a promotion! But alas, 'tis "
- "not the case."))
+ (say knpc "¤½¤¦¡¢Èà¤Ï¿¹¤Î̱¡¢¤Ä¤Þ¤ê¿¹¥´¥Ö¥ê¥ó¤Î½¬´·¤ò¼õ¤±Æþ¤ì¤Æ¤¤¤ë¡£"
+ "¤·¤«¤·Èब²æ¡¹¤ËÈ¿µÕ¿´¤ò»ý¤Ã¤Æ¤¤¤ë¤Èµ¿¤Ã¤Æ¤¤¤ë¤Î¤Ç¤Ï¤Ê¤¤¡£"
+ "¤â¤·¤Ç¤¤ë¤Ê¤é¡¢»ä¤ÏÈà¤ò²þ¿´¤µ¤»¡¢¾º³Ê¤µ¤»¤¿¤¤¤È¤¹¤é»×¤Ã¤Æ¤¤¤ë¡£"
+ "¤¢¤¢¡¢¤À¤¬¤½¤ì¤ÏÉÔ²Äǽ¤À¤í¤¦¡£"
+ ))
(define (deric-shroom knpc kpc)
- (say knpc "A nice old hag. Bit of a witch, but not any trouble. Keeps a "
- "reagent shop in the northeast corner of town."))
+ (say knpc "µ¤Æñ¤·¤¤Ç̤µ¤ó¤À¡£Ëâ½÷¤ÎǽÎϤ¬¾¯¤·¤¢¤ë¤¬¡¢²¿¤ÎÌäÂê¤â¤Ê¤¤¡£"
+ "¤³¤ÎÄ®¤ÎËÌÅì¤ÇÌô²°¤ò¤·¤Æ¤¤¤ë¡£"))
(define (deric-abe knpc kpc)
- (say knpc "A queer young man. Queer as in strange, you know, not that "
- "other... well, maybe... it's hard to say. Anyway, he studies the "
- "ruins in the southwest corner. Working for the Royal Library or some "
- "such."))
+ (say knpc "¼ã¤¤ÊѤï¤Ã¤¿ÃˤÀ¡£ÊѤï¤ê¼Ô¤È¤¤¤¦¤è¤ê¡¢´ñ̯¤Ê¡Ä¡¢Ê̤θÀ¤¤Êý¤ò¤¹¤ë¤È¡Ä¤¦¤Þ¤¯¸À¤¨¤ó¤Ê¡£"
+ "¤È¤Ë¤«¤¯¡¢¤½¤¤¤Ä¤ÏÄ®¤ÎÆîÀ¾¤Î°äÀפòÄ´¤Ù¤Æ¤¤¤ë¡£"
+ "²¦Î©¿Þ½ñ´Û¤«¤É¤³¤«¤ÇƯ¤¤¤Æ¤¤¤ë¤Î¤À¤í¤¦¡£"))
(define (deric-tower knpc kpc)
- (say knpc "Yes, the Tower itself which gives Green Tower its name is "
- "located in the center of town. It is my command post and headquarters "
- "for the Rangers. A fascinating building! Did you know it is built on "
- "the ruins of an older tower?")
+ (say knpc "¤½¤¦¡¢¤³¤ÎÄ®¤ÎÃæ±û¤Ë¤¢¤ë¡¢ÎФÎÅã¤È¸Æ¤Ð¤ì¤ëÅã¤À¡£"
+ "¤³¤³¤¬»ä¤Î»Ø´ø½ê¤Ç¤¢¤ê¡¢·ÙÈ÷Ââ¤ÎËÜÉô¤Ç¤¢¤ë¡£"
+ "¤¹¤Ð¤é¤·¤¤·úʪ¤À¡ª"
+ "¤³¤ì¤¬¸Å¤¤Åã¤Î°äÀפξå¤Ë·ú¤Æ¤é¤ì¤¿¤â¤Î¤À¤ÈÃΤäƤ¤¤ë¤«¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "Interesting, eh? Not that I'm an expert on such things. "
- "You'd have to talk with old Abe, or perhaps Shroom, to learn "
- "more.")
- (say knpc "'Tis true! What is now the Tower was once only the central "
- "spire of a very great structure that reached much higher! And "
- "much lower as well, if young Abe is to be believed. Currently "
- "there are only two stories.")))
+ (say knpc "ÌÌÇò¤¤¤È»×¤ï¤ó¤«¡©»ä¤Ë¤Ï¾Ü¤·¤¯¤Ï¤ï¤«¤é¤Ê¤¤¤¬¡£"
+ "¤â¤Ã¤ÈÃΤꤿ¤¤¤Ê¤é¡¢¥¨¥¤¥Ö¤«¡¢¤â¤·¤«¤¹¤ë¤È¥·¥å¥ë¡¼¥à¤ÈÏ乤Ȥ褤¤«¤â¤·¤ì¤ó¡£")
+ (say knpc "¤½¤¦¤«¡ªº£¤ÎÅã¤Ï¡¢¤«¤Ä¤Æ¤¢¤Ã¤¿µðÂç¤ÊÀíÅã¤Î°ìÉô¤Ë¤¹¤®¤Ê¤¤¡ª"
+ "¥¨¥¤¥Ö¤È¤¤¤¦¼ã¼Ô¤Î¤³¤È¤ò¿®¤¸¤ë¤Ê¤é¡¢ÄÀ¤ó¤Ç¤·¤Þ¤Ã¤¿¤½¤¦¤À¡£"
+ "º£¤Ç¤ÏÆó¤Ä¤Î³¬¤·¤«»Ä¤Ã¤Æ¤¤¤Ê¤¤¡£")))
(define (deric-ambition knpc kpc)
- (say knpc "Yes, I am quite ambitious and not afraid to admit it! No point "
- "sneaking about when one is ambitious, it just makes people nervous. "
- "I wouldn't do anything immoral to advance my position, of course, "
- "I believe too firmly in the principles of our great society. Do you "
- "have any ambitions?")
+ (say knpc "¤½¤ÎÄ̤ꡣ»ä¤Ë¤ÏÌî¿´¤¬¤¢¤ê¡¢¤½¤ì¤òǧ¤á¤ë¤³¤È¤ò¶²¤ì¤Ê¤¤¡ª"
+ "¿Í¤ÏÌî¿´¤ò»ý¤Ä¼Ô¤òÉ԰¤˻פ¦¤¬¡¢¤ä¤Þ¤·¤¤ÅÀ¤Ê¤É¤Ê¤Ë¤â¤Ê¤¤¡£"
+ "̵ÏÀ»ä¤Ïº£¤ÎÃϰ̤ˤ¿¤É¤êÃ夯¤¿¤á¤ËÉÔÀµ¤Ê¤³¤È¤Ï²¿¤â¤·¤Æ¤¤¤Ê¤¤¡£"
+ "»ä¤Ï¤³¤Î°ÎÂç¤ÊÁÈ¿¥¤Î¿®¾ò¤ò¸Ç¤¯¿®¤¸¤Æ¤¤¤ë¡£·¯¤Ë¤ÏÌî¿´¤¬¤¢¤ë¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "Well, enough about you! I hope someday to be a Lord. "
- "Do you think I have a chance?")
+ (say knpc "¤¢¤¢¡¢·¯¤Î»ö¤Ï¤è¤¤¡£»ä¤Ï¤¤¤Ä¤ÎÆü¤«²¦¤Ë¤Ê¤ê¤¿¤¤¡£"
+ "»ä¤Ë¤Ï¤½¤Îµ¡²ñ¤¬¤¢¤ë¤È»×¤¦¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "I knew it! You know, I wasn't sure if I could trust "
- "you, but you're obviously a person of insight, so I'll "
- "let you in on a secret.")
+ (say knpc "¤ï¤«¤Ã¤Æ¤¤¤ë¡ª·¯¤Î¤³¤È¤ò¿®ÍѤ·¤Æ¤¤¤ë¤ï¤±¤Ç¤Ï¤Ê¤¤¤¬¡¢"
+ "±Ô¤¤Æ¶»¡ÎϤò»ý¤Ä¼Ô¤Î¤è¤¦¤À¡£"
+ "·¯¤Ë¤¢¤ëÈëÌ©¤ò¶µ¤¨¤è¤¦¡£")
(deric-set-tell-secret! (kobj-gob-data knpc)))
- (say knpc "[laughing] I'm sorry if I must disagree! People of "
- "destiny are never appreciated by their fellows.")))
- (say knpc "[sigh] So many people lead worthless, wasted lives. I'm glad "
- "I'm not one of them!")))
+ (say knpc "¡Î¾Ð¤¤¡Ï¤¹¤Þ¤Ê¤¤¤¬°Õ¸«¤¬¹ç¤ï¤Ê¤¤¤è¤¦¤À¤Ê¡ª"
+ "Áª¤Ð¤ì¤·¼Ô¤Ï¤è¤¯»×¤ï¤ì¤Ê¤¤¤â¤Î¤À¡£")))
+ (say knpc "¡Î¤¿¤á©¡Ï¿¤¯¤Î¼Ô¤É¤â¤Ï̵²ÁÃͤ˿ÍÀ¸¤òϲÈñ¤·¤Æ¤¤¤ë¡£"
+ "»ä¤ÏÈà¤é¤ÎÆâ¤Î°ì¿Í¤Ç¤Ê¤¤¤³¤È¤ò´î¤ó¤Ç¤¤¤ë¡ª")))
(define (deric-secret knpc kpc)
(if (deric-tell-secret? (kobj-gob-data knpc))
- (say knpc "In the lower level of the Tower there is a hidden passage. "
- "Go down the ladder and enter the southeast supply room. "
- "On the east wall is a secret door! "
- "I have no idea what it was for.")
- (say knpc "Nothing I want to tell a stranger like you!")))
+ (say knpc "Åã¤ÎÃϲ¼¤Ë¤Ï±£¤µ¤ì¤¿ÄÌÏ©¤¬¤¢¤ë¡£"
+ "¤³¤Î¤Ï¤·¤´¤ò¹ß¤ê¤Æ¡¢ÆîÅì¤Î½àÈ÷¼¼¤ËÆþ¤ì¡£"
+ "Åì¤ÎÊɤËÈëÌ©¤ÎÈ⤬¤¢¤ë¡ª"
+ "²¿¤Î¤¿¤á¤«¤Ï¤ï¤«¤é¤Ê¤¤¤¬¤Ê¡£")
+ (say knpc "·¯¤ÎÍͤʤ褽¼Ô¤ËÏ乤³¤È¤Ï²¿¤â¤Ê¤¤¡ª")))
(define (deric-afraid knpc kpc)
- (say knpc "Of course not! Fear is the hobgoblin of little minds. "
- "Or is it hobgoblins are the fear of little minds? "
- "Damn, I can never remember that silly saying."))
+ (say knpc "¤â¤Á¤í¤ó¤À¡ª¶²¤ì¤Ï¾®Êª¤Î¥Û¥Ö¥´¥Ö¥ê¥ó¤À¡£"
+ "¤¤¤ä¡¢¥Û¥Ö¥´¥Ö¥ê¥ó¤¬¾®Êª¤Î¶²¤ì¤«¡©"
+ "¤Á¤¯¤·¤ç¤¦¤á¡¢¤Ð¤«¤²¤¿¸À¤¤²ó¤·¤¬»×¤¤½Ð¤»¤Ê¤¤¡£"))
(define (deric-prison knpc kpc)
- (say knpc "Yes. Very secure. We currently only have one prisoner, "
- "a forest goblin we caught skulking around here. "
- "A quite vicious-looking brute, I must say. "
- "Not that I am afraid of him. Ahem."))
+ (say knpc "¤½¤¦¤À¡£¤È¤Æ¤â¶¯¸Ç¤Ê¡£¸½ºß¡¢¼ü¿Í¤Ï°ì¿Í¤·¤«¤¤¤Ê¤¤¡£"
+ "¤³¤Î¤¢¤¿¤ê¤ò¤¦¤í¤Ä¤¤¤Æ¤¤¤¿¿¹¥´¥Ö¥ê¥ó¤À¡£"
+ "¶§Ë½¤Ê½Ã¤È¸À¤¦¤Û¤«¤Ë¤Ê¤¤¡£"
+ "»ä¤Ï¤½¤¤¤Ä¤ò¶²¤ì¤¿¤ê¤Ï¤·¤Ê¤¤¡£¡Î³±¤Ð¤é¤¤¡Ï"))
(define (deric-gobl knpc kpc)
- (say knpc "Sneaky fellows! Why, just the other day I caught one here in town and had him thrown into prison."))
+ (say knpc "ÈÜÎô¤Ê¤ä¤Ä¤é¤À¡ª¤Þ¤¢¡¢¾¯¤·Á°¤Ë¤ä¤Ä¤òÄ®¤ÎÃæ¤ÇÊá¤Þ¤¨¤Æ¡¢·ºÌ³½ê¤ËÊü¤ê¹þ¤ó¤Ç¤ä¤Ã¤¿¤¬¤Ê¡£"))
(define (deric-brute knpc kpc)
- (say knpc "Very suspicious. He obviously did not come to trade, "
- "for he carried no merchandise. And he speaks not a lick of Common. "
- "In fact, he refuses to say anything! Well, some time spent "
- "underground should loosen his tongue. I'll find out what he's "
- "scheming."))
+ (say knpc "¤È¤Æ¤âµ¿¤ï¤·¤¤¼Ô¤À¡£²¿¤âÉÊʪ¤ò»ý¤Ã¤Æ¤¤¤Ê¤«¤Ã¤¿¤Î¤Ç¡¢ÌÀ¤é¤«¤Ë¾¦Çä¤ËÍ褿¤Î¤Ç¤Ï¤Ê¤¤¡£"
+ "¤½¤·¤Æ¶¦Ä̸줬Á´¤¯Ï令ʤ«¤Ã¤¿¡£"
+ "¤¤¤ä¡¢¤½¤ì¤É¤³¤í¤«²¿¤âÏ佤¦¤È¤·¤Ê¤«¤Ã¤¿¡£¤¦¤¦¤à¡¢Ãϲ¼¤Ë¤¤¤ì¤Ð¾¯¤·¤ÏÏ乤褦¤Ë¤Ê¤ê¤½¤¦¤Ê¤â¤Î¤À¤¬¡£"
+ "²¿¤ò¤¿¤¯¤é¤ó¤Ç¤¤¤ë¤Î¤«Æͤ»ß¤á¤Ê¤±¤ì¤Ð¡£"))
(define (deric-default knpc kpc)
- (say knpc "You must ask another of that!"))
+ (say knpc "Ê̤Τ³¤È¤òʹ¤¤¤Æ¤¯¤ì¡ª"))
;; Scan the player party looking for mercs
(if (not (null? kmerc))
(begin
(prompt-for-key)
- (say knpc "I'll need to re-assign that ranger to a patrol.")
+ (say knpc "»ä¤Ï½ä²ó¤¹¤ë·ÙÈ÷Ââ°÷¤òºÆ¹½À®¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£")
(kern-char-leave-player kmerc)
))))
(cond ((in-player-party? 'ch_nate)
- (say knpc "I see you have apprehended the bandit leader! "
- "Deliver him downstairs to the jailer and I will give you the "
- "reward.")
+ (say knpc "Åð±¤ÎƬ¤òÊá¤é¤¨¤¿¤è¤¦¤À¤Ê¡ª"
+ "Ãϲ¼¤Î·ºÌ³½ê¤Î´Ç¼é¤ËÅϤ·¡¢¼ýÍƾÚÌÀ½ñ¤ò¼õ¤±¼è¤Ã¤Æ¤¯¤ë¤Î¤À¡£")
(rm-ranger-merc)
(quest-data-update-with 'questentry-bandits 'captured-nate-and-talked-to-deric 1 (quest-notify nil))
)
((has? kpc t_prisoner_receipt 1)
- (say knpc "Putting that bandit behind bars will look very good on my "
- "record! Here is your reward.")
+ (say knpc "Åð±¤òÝ£¤Î¸þ¤³¤¦Â¦¤ËÄɤ¤¤ä¤Ã¤¿¤³¤È¤Ï¡¢»ä¤Îµ±¤«¤·¤¤µÏ¿¤Ë¤Ê¤ë¤Ç¤¢¤í¤¦¡ª"
+ "·¯¤ËÊó½·¤òÅϤ½¤¦¡£")
(give-player-gold 100)
(kern-char-add-experience kpc 64)
(take kpc t_prisoner_receipt 1)
(quest-data-complete 'questentry-bandits)
)
(else
- (say knpc "Well met, indeed!")
+ (say knpc "¤è¤¯Í褿¤Ê¡ª")
)))
(define (deric-bye knpc kpc)
- (say knpc "Until next time"))
+ (say knpc "¤Þ¤¿²ñ¤ª¤¦¡£"))
(define (deric-thie knpc kpc)
- (say knpc "Hm. The goblin brute we have locked up below may be a thief. But "
- "he's been in our prison for some time. Now, our rangers did report "
- "a lone man traveling north through the forest, but we know not "
- "whence. The only thing to the north is Bole.")
+ (say knpc "¤Õ¤à¡£Êá¤Þ¤¨¤¿½Ã¤Î¤è¤¦¤Ê¥´¥Ö¥ê¥ó¤ÏÅ¥ËÀ¤À¤Ã¤¿¤Ë°ã¤¤¤Ê¤¤¡£"
+ "¤À¤¬¡¢ÅۤϷºÌ³½ê¤ÎÃæ¤À¡£¿¹¤òÄ̤äÆË̤ذì¿Í¤Ç¸þ¤«¤¦¼Ô¤¬¤¤¤¿¤È¤¤¤¦Êó¹ð¤Ï¤¢¤Ã¤¿¤¬¡¢ÌÜŪÃϤϤ狼¤é¤ó¡£"
+ "Ë̤ˤϥܥ줷¤«¤Ê¤¤¤¬¤Ê¡£")
(quest-data-update 'questentry-thiefrune 'tower 1)
(quest-data-update-with 'questentry-thiefrune 'bole 1 (quest-notify (grant-party-xp-fn 10)))
)
(define (deric-accu knpc kpc)
- (say knpc "I assure you, my good man, there are no Accursed around here."))
+ (say knpc "¤ª¤¤¡£ÃǸÀ¤¹¤ë¤¬¡¢¤³¤Î¤¢¤¿¤ê¤Ë¼ö¤ï¤ì¤¿¼Ô¤Ï¤¤¤Ê¤¤¡£"))
(define (deric-band knpc kpc)
(let ((quest (deric-bandit-quest (kobj-gob-data knpc))))
(cond ((quest-done? quest)
- (say knpc "I don't expect any more trouble from bandits since I "
- "had their leader apprehended. "
- "By you, of course. "
- "But I had it done. "
- "Ahem."))
+ (say knpc "»ä¤¬Åð±¤ÎƬ¤òÊá¤é¤¨¤¿¤«¤é¤Ë¤Ï¡¢¤³¤ì°Ê¾å¤ÎÌäÂê¤Ïµ¯¤³¤é¤Ê¤¤¤Ç¤¢¤í¤¦¡£"
+ "¤â¤Á¤í¤ó·¯¤Î¤ª¤«¤²¤À¡£"
+ "¤À¤¬¡¢Ì¿¤¸¤¿¤Î¤Ï¤³¤Î»ä¤À¡£"
+ "¡Î³±Ê§¤¤¡Ï"))
((quest-accepted? quest)
- (say knpc "The bandits have a hideout somewhere in these "
- "woods. Keep searching! And bring me their leader "
- "back alive.")
+ (say knpc "¤³¤Î¿¹¤Î¤É¤³¤«¤ËÅð±¤Î±£¤ì²È¤¬¤¢¤ë¡£"
+ "õ¤·Â³¤±¤ë¤³¤È¤À¡ª¤½¤·¤ÆƬ¤òÀ¸¤±Êá¤ê¤Ë¤·¤ÆÏ¢¤ì¤Æ¤¯¤ë¤Î¤À¡£")
)
(else
- (say knpc "So you've heard of our bandit problem. "
- "Yes, they have a secret hideout somewhere in these woods. "
- "I would have flushed them out long ago, "
- "but I haven't the men to spare. You understand. ")
+ (say knpc "Åð±¤ÎÌäÂê¤òʹ¤¤¤¿¤Î¤À¤Ê¡£"
+ "¤½¤¦¡¢¤ä¤Ä¤é¤Î±£¤ì²È¤Ï¤³¤Î¿¹¤Î¤É¤³¤«¤Ë¤¢¤ë¡£"
+ "¤º¤Ã¤È°ÊÁ°¤Ê¤é»ä¤¬¤ä¤Ä¤é¤ò°ìÁݤ·¤Ë¹Ô¤¯¤À¤í¤¦¡£"
+ "¤·¤«¤·¡¢ÃΤäƤΤȤª¤ê¡¢»ä¤ÎÂå¤ï¤ê¤Ï¤¤¤Ê¤¤¡£")
(prompt-for-key)
(say knpc
- "Say, you seem like a plucky sort. "
- "If you capture the bandit leader and bring him here I'll "
- "gladly reward you for your trouble. What do you say?")
+ "Åú¤¨¤Æ¤¯¤ì¡£·¯¤Ïͦ´º¤½¤¦¤À¡£"
+ "¤â¤·Åð±¤ÎƬ¤òÊá¤é¤¨¡¢¤³¤³¤ËÏ¢¤ì¤ÆÍ褿¤Ê¤é¡¢´î¤ó¤Ç·¯¤Ë¾Þ¶â¤òÍ¿¤¨¤è¤¦¡£"
+ "¤É¤¦¤À¤í¤¦¤«¡©")
(if (yes? kpc)
(begin
(quest-accepted! quest #t)
- (say knpc "Good! You may need some help. "
- "[He gives you a parchment]."
- "These orders will temporarily assign one of my Rangers "
- "to you. Just ask one to join your party.")
+ (say knpc "¤¹¤Ð¤é¤·¤¤¡ª·¯¤Ë¤Ï½õ¤±¤¬É¬ÍפÀ¤í¤¦¡£\n"
+ "¡ÎÈà¤Ï¤¢¤Ê¤¿¤ËÍÓÈé»æ¤Îʸ½ñ¤òÅϤ·¤¿¡£¡Ï\n"
+ "¤³¤ÎÌ¿Îá½ñ¤Ï¡¢·ÙÈ÷Ââ¤Î»Ø´ø¸¢¤ò·¯¤Ë°ì»þŪ¤Ë¾ùÅϤ¹¤ë¤â¤Î¤À¡£"
+ "·ÙÈ÷Ââ¤Î°ì¿Í¤ËÃç´Ö¤Ë²Ã¤ï¤ë¤è¤¦¤Ë¸À¤¤¤¿¤Þ¤¨¡£")
(give kpc t_ranger_orders 1)
(quest-data-update-with 'questentry-bandits 'talked-to-deric 1 (quest-notify nil))
)
- (say knpc "You'll never gain a reputation that way!")))
+ (say knpc "¤½¤Î¤è¤¦¤ÊÂÖÅ٤Ǥϡ¢±É¸÷¤Ï·è¤·¤ÆÆÀ¤é¤ì¤Ê¤¤¤Ç¤¢¤í¤¦¡ª")))
)))
(define (mk-deric tag)
(bind
(kern-mk-char tag ; tag
- "Deric" ; name
+ "¥Ç¥ê¥Ã¥¯" ; name
sp_human ; species
nil ; occ
s_ranger_captain ; sprite
(kern-char-task-end kchar)
)
((not (handles? ktarg 'rm-traps))
- (kern-log-msg "Traps can't be removed!")
+ (kern-log-msg "¤³¤Î櫤ϳ°¤»¤Ê¤¤¡ª")
(kern-char-task-abort kchar)
)
(else
(> (+ roll bonus) dc)
)
;; Success - disarm the trap
- (kern-log-msg (kern-obj-get-name kchar) " ^c+gdisarms^c- a " (trap-name trap) " trap!")
+ (kern-log-msg (kern-obj-get-name kchar) "¤Ï" (trap-name trap) "¤Î櫤ò^c+g³°¤·¤¿^c-¡ª")
(trap-set-tripped! trap #t)
)
(else
)
(else
;; Start a task to disarm the traps
- (kern-char-task-begin kactor "disarming a trap" 'disarm-task ktarg)
+ (kern-char-task-begin kactor "櫤βò½ü" 'disarm-task ktarg)
result-ok
))))
(let ((door (kobj-gob kdoor)))
(cond
((door-magic-locked? door)
- (kern-log-msg "Magically locked!\n")
+ (kern-log-msg "ËâË¡¤ÇÉõ°õ¤µ¤ì¤Æ¤¤¤ë¡ª\n")
#f)
((door-locked? door)
- (kern-log-msg "Locked!\n")
+ (kern-log-msg "»Ü¾û¤µ¤ì¤Æ¤¤¤ë¡ª\n")
#f)
((door-trapped? door)
(door-trip-traps kdoor khandler)
(define (door-lock kdoor khandler)
(let ((door (kobj-gob kdoor)))
;;(display "door-lock:")(display door)(newline)
- (cond ((door-open? door) (kern-log-msg "Not closed!\n") #f)
- ((door-locked? door) (kern-log-msg "Already locked!\n") #f)
+ (cond ((door-open? door) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª\n") #f)
+ ((door-locked? door) (kern-log-msg "´û¤Ë»Ü¾û¤µ¤ì¤Æ¤¤¤ë¡ª\n") #f)
(else
(door-set-locked! door #t)
(door-update-kstate kdoor)
(define (door-unlock kdoor khandler)
(let ((door (kobj-gob kdoor)))
;;(display "door-unlock:")(display door)(newline)
- (cond ((door-open? door) (kern-log-msg "Not closed!\n") #f)
- ((not (door-locked? door)) (kern-log-msg "Not locked!\n") #f)
- ((door-needs-key? door) (kern-log-msg "Needs the key!\n") #f)
+ (cond ((door-open? door) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª\n") #f)
+ ((not (door-locked? door)) (kern-log-msg "»Ü¾û¤µ¤ì¤Æ¤¤¤Ê¤¤¡ª\n") #f)
+ ((door-needs-key? door) (kern-log-msg "¸°¤¬É¬ÍפÀ¡ª\n") #f)
(else
(door-set-locked! door #f)
(door-update-kstate kdoor)
(define (door-magic-lock kdoor khandler)
(let ((door (kobj-gob kdoor)))
;;(display "door-magic-lock:")(display door)(newline)
- (cond ((door-open? door) (kern-log-msg "Not closed!\n") #f)
+ (cond ((door-open? door) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª\n") #f)
((door-magic-locked? door)
- (kern-log-msg "Already magically locked!\n") #f)
+ (kern-log-msg "´û¤ËËâË¡¤ÇÉõ°õ¤µ¤ì¤Æ¤¤¤ë¡ª\n") #f)
(else
(door-set-magic-locked! door #t)
(door-update-kstate kdoor)
(define (door-magic-unlock kdoor khandler)
(let ((door (kobj-gob kdoor)))
;;(display "door-magic-unlock:")(display door)(newline)
- (cond ((door-open? door) (kern-log-msg "Not closed!\n") #f)
+ (cond ((door-open? door) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª\n") #f)
((not (door-magic-locked? door))
- (kern-log-msg "Not magically locked!\n") #f)
+ (kern-log-msg "ËâË¡¤ÇÉõ°õ¤µ¤ì¤Æ¤¤¤Ê¤¤¡ª\n") #f)
(else
(door-set-magic-locked! door #f)
(door-update-kstate kdoor)
(define (door-use-key kdoor key-type)
(let ((door (kobj-gob kdoor)))
- (cond ((door-open? door) (kern-log-msg "Not closed!"))
- ((not (door-key-fits? door key-type)) (kern-log-msg "Key won't fit!"))
+ (cond ((door-open? door) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª"))
+ ((not (door-key-fits? door key-type)) (kern-log-msg "¸°¤¬¹ç¤ï¤Ê¤¤¡ª"))
((door-locked? door)
(door-set-locked! door #f)
(door-update-kstate kdoor))
(door-update-kstate kdoor)))))
(define (door-search kdoor kchar)
- (kern-log-begin "Searching door...")
+ (kern-log-begin "Èâ¤òÄ´¤Ù¤¿¡Ä")
(let ((door (kobj-gob kdoor)))
(if (foldr (lambda (detected? trap)
(trap-search trap kdoor kchar)
(or detected? (trap-detected? trap)))
#f
(door-traps door))
- (kern-log-end "Trap detected!")
- (kern-log-end "No traps detected!")
+ (kern-log-end "櫤¬»Å³Ý¤±¤é¤ì¤Æ¤¤¤ë¡ª")
+ (kern-log-end "櫤Ϥʤ¤¤è¤¦¤À¡ª")
)))
(define (door-describe kdoor count)
(let ((door (kobj-gob kdoor)))
- (kern-log-continue "a ")
+ (kern-log-continue "")
(if (door-magic-locked? door)
- (kern-log-continue "magically locked, "))
+ (kern-log-continue "ËâË¡¤ÇÉõ°õ¤µ¤ì¤¿"))
(if (door-locked? door)
(if (door-needs-key? door)
- (kern-log-continue "locked (with a key), ")
- (kern-log-continue "padlocked, ")))
+ (kern-log-continue "»Ü¾û¤µ¤ì¤¿")
+ (kern-log-continue "Æîµþ¾û¤Î³Ý¤±¤é¤ì¤¿")))
(if (door-open? door)
- (kern-log-continue "open door ")
- (kern-log-continue "closed door "))
+ (kern-log-continue "³«¤¤¤¿Èâ")
+ (kern-log-continue "ÊĤ¸¤¿Èâ"))
(kern-log-continue "(")
(if (foldr (lambda (described? trap)
(cond ((trap-detected? trap)
(if described?
- (kern-log-continue ", "))
+ (kern-log-continue "¡¢"))
(kern-log-continue (trap-name trap))
(if (trap-tripped? trap)
- (kern-log-continue "[disarmed]"))
+ (kern-log-continue "[²ò½üºÑ]"))
#t)
(else described?)))
#f
(door-traps door))
- (kern-log-continue " trap(s) detected")
- (kern-log-continue "no traps detected")
+ (kern-log-continue "¤Î櫤¬»Å³Ý¤±¤é¤ì¤Æ¤¤¤ë")
+ (kern-log-continue "櫤Ϥʤ¤¤è¤¦¤À")
)
(kern-log-continue ")")
))
))
;; Create the kernel "door" type
-(mk-obj-type 't_door "door" s_stone_arch layer-mechanism
+(mk-obj-type 't_door "Èâ" s_stone_arch layer-mechanism
door-ifc)
(define (door-state-factory
kdoor
)
-(mk-obj-type 't_archway_rock "archway" s_rock_arch layer-mechanism
+(mk-obj-type 't_archway_rock "ÙÊÏ©" s_rock_arch layer-mechanism
nil)
-(mk-obj-type 't_archway_stone "archway" s_stone_arch layer-mechanism
+(mk-obj-type 't_archway_stone "ÙÊÏ©" s_stone_arch layer-mechanism
nil)
(define (mk-archway-rock) (kern-mk-obj t_archway_rock 1))
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Green Tower.
+;; ÎФÎÅã
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_doris
(list 0 0 doris-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Doris is the female innkeeper of the White Stag Lodge in Green Tower.
+;; ¥É¥ê¥¹¤ÏÎФÎÅã¤Ë¤¢¤ëÇò¤²´¼¯Áñ¤Î½÷¼ç¿Í¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
(define (doris-name kdoris kplayer)
- (say kdoris "Hi, I'm Doris, innkeeper of the White Stag Lodge."))
+ (say kdoris "»ä¤Ï¥É¥ê¥¹¡¢¤³¤ÎÇò¤²´¼¯Áñ¤Î¼ç¿Í¤è¡£"))
(define (doris-default)
- (say kdoris "Let me think... nope, can't help you there."))
+ (say kdoris "¤Á¤ç¤Ã¤ÈÂԤäơĤ¤¤¨¡¢¤É¤¦¤¹¤ë¤³¤È¤â¤Ç¤¤Ê¤¤¤ï¡£"))
(define (doris-join kdoris kplayer)
- (say kdoris "[laughing] No thanks! I've got my hands full with the lodge."))
+ (say kdoris "¡Î¾Ð¤¤¡Ï¤ªÃǤê¤è¡ª½É¤Î¤³¤È¤ÇÀº°ìÇÕ¤À¤ï¡£"))
(define (doris-doris knpc kpc)
- (say knpc "Yep. That's me."))
+ (say knpc "¤¨¤¨¡£»ä¤Î¤³¤È¤è¡£"))
(define (doris-trade knpc kpc)
(let ((door (eval 'white-stag-door))
;; is the room still open?
(if (not (door-locked? (kobj-gob door)))
;; yes - remind player
- (say knpc "Your room is still open, silly! You can use it as long as "
- "you're in town.")
+ (say knpc "¥Ð¥«¤Í¤¨¡¢Éô²°¤Ï¤â¤¦³«¤¤¤Æ¤¤¤ë¤ï¡ª"
+ "Ä®¤òµî¤ë¤Þ¤Ç½ÐÆþ¤ê¤Ç¤¤ë¤Î¤è¡£")
;; no - ask if player needs a room
(begin
- (say knpc "My room is " price " gold. I'll unlock the door and you "
- "can use it for as long as you are in town. Agreed?")
+ (say knpc "Éô²°¤Ï¶â²ß" price "Ëç¡¢¤³¤ÎÄ®¤ò½Ð¤ë¤Þ¤Ç²¿Å٤Ǥâ½ÐÆþ¤ê¤Ç¤¤Þ¤¹¡£"
+ "¤è¤í¤·¤¤¤Ç¤¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player agrees to the price
(let ((gold (kern-player-get-gold)))
;; yes - player has enough gold
(begin
(kern-player-set-gold (- gold price))
- (say knpc "Very well. Take the west passage. First room "
- "at the end of the hall.")
+ (say knpc "¾µÃΤ·¤Þ¤·¤¿¡£À¾Â¦¤Îϲ¼¤ò¿Ê¤ó¤Ç¤¯¤À¤µ¤¤¡£"
+ "¹´Ö¤Îü¤ÎºÇ½é¤ÎÉô²°¤è¡£")
(send-signal knpc door 'unlock)
(kern-conv-end)
)
;; no - player does not have enouvh gold)
- (say knpc "Seems you're short of funds. Why don't you "
- "walk around and kill things until you loot enough "
- "corpses? Or whatever you bold adventurers do. [She "
- "smiles a bit too sweetly]")))
+ (say knpc "¤ª¶â¤¬Â¤ê¤Ê¤¤¤è¤¦¤Í¡£"
+ "¤ê¤ë¤Þ¤Ç¤³¤Î¤¢¤¿¤ê¤òÊ⤲ó¤Ã¤Æ¡¢Ã¯¤«¤ò»¦¤·¤Æ»àÂΤò¤¢¤µ¤Ã¤Æ¤¤Æ¤Ï¡©"
+ "ͦ´º¤ÊËÁ¸±¼Ô¤Ï³§¤½¤¦¤·¤Æ¤¤¤Þ¤¹¤è¡£"
+ "¡ÎÈà½÷¤ÏÌ¥ÎÏŪ¤ËÈù¾Ð¤ó¤À¡£¡Ï")))
;; no - player does not want the room
- (say knpc "Maybe some other time, then"))))))
+ (say knpc "¤Ç¤Ï¤Þ¤¿¤Îµ¡²ñ¤Ë¡£"))))))
(define (doris-lodge knpc kpc)
- (say knpc "Yep. It's all mine. It used to belong to my Daddy, God rest his "
- "soul. Most of my customers are local folk, woodsman or travellers "
- "wandering through."))
+ (say knpc "¤¨¤¨¡£»ä¤ÎÁ´¤Æ¤è¡£¤«¤Ä¤Æ¤ÏÉã¤Î¤â¤Î¤À¤Ã¤¿¤±¤É¡¢Å·¤Ë¾¤¤µ¤ì¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£"
+ "¤ªµÒ¤Î¤Û¤È¤ó¤É¤Ï¤³¤Î¤¢¤¿¤ê¤Î¿¹¿Í¤äι¿Í¤è¡£"))
(define (doris-daddy knpc kpc)
- (say knpc "Daddy hunted and trapped his way to a small fortune then he "
- "built this lodge. When he died, I got the lodge."))
+ (say knpc "Éã¤Ï¼í¤ê¤ÇÆÀ¤¿¾¯¤·¤ÎÉ٤Ǥ³¤Î½É¤òΩ¤Æ¤Þ¤·¤¿¡£É㤬»à¤ó¤Ç¤«¤é¤Ï»ä¤¬°ú¤·Ñ¤¤¤À¤Î¤Ç¤¹¡£"))
(define (doris-local knpc kpc)
- (say knpc "The people here are varied, odd and secretive. They are also "
- "trustworthy, competent and interesting. You will not find better "
- "friends or worse enemies then the ones you make here."))
+ (say knpc "¤³¤Î¤¢¤¿¤ê¤Ë¤Ï¡¢ÊѤï¤ê¼Ô¤«¤éÈëÌ©¤Î¤¢¤ê¤½¤¦¤Ê¿Í¤Þ¤Ç¿§¡¹¤¤¤ë¤ï¡£"
+ "³§¡¢¿®ÍѤǤ¤ëÍǽ¤ÇÌÌÇò¤¤¿Í¤Ç¤â¤¢¤ë¤±¤ì¤É¡£"
+ "¤¢¤Ê¤¿¤Ï¡¢¤³¤³¤Î¿Íã¤è¤êÎɤ¤Í§¤â¡¢°¤¤Å¨¤â¸«¤Ä¤±¤ë¤³¤È¤Ï¤Ç¤¤Ê¤¤¤Ç¤·¤ç¤¦¤Í¡£"))
(define (doris-woodsman knpc kpc)
- (say knpc "Hunters, lumberjacks and foragers usually pass through here if "
- "they are in the area. Wealthier sport hunters from the city take "
- "lodging here, but usually those who work in the woods camp in the "
- "woods. They come here for a bit of drink, company and a decent meal."))
+ (say knpc "¼í¿Í¡¢ÌÚ¤³¤ê¡¢¿©ÎÁ¤òºÎ¼è¤¹¤ë¿Íã¤Ï¡¢¤³¤Î¤¢¤¿¤ê¤ËÍè¤Æ¤âÉáÄ̤³¤³¤òÄ̤ê²á¤®¤Æ¹Ô¤¤Þ¤¹¡£"
+ "Ä®¤Î¤ª¶â»ý¤Á¤Ï¼í¤ê¤ÇÍ·¤Ó¤ËÍè¤ì¤Ð¤³¤³¤ËÇñ¤Þ¤ê¤Þ¤¹¡£"
+ "¤Ç¤â¡¢¤³¤Î¿¹¤ÇƯ¤¯¼Ô¤ÏÉáÄ̤Ͽ¹¤ÎÃæ¤Ç¥¥ã¥ó¥×¤·¤Þ¤¹¡£"
+ "¤³¤³¤ËÍè¤ë¤Î¤Ï¾¯¤·°û¤à¡¢½¸²ñ¡¢¤Á¤ã¤ó¤È¤·¤¿¿©»ö¤Î¤¿¤á¤Ç¤¹¡£"))
(define (doris-travelers knpc kpc)
- (say knpc "Yes, folk like yourself."))
+ (say knpc "¤½¤¦¡£¤¢¤Ê¤¿¤Î¤è¤¦¤Ê¿Í¤è¡£"))
(define (doris-gen knpc kpc)
- (say knpc "An old goblin-fighter. Something of a local legend. You can "
- "find him pottering around in the woods, and he usually stops in at "
- "night for a drink."))
+ (say knpc "ÀΤΥ´¥Ö¥ê¥óÀïÁè¤ÎÀï»Î¡¢¤³¤Î¤¢¤¿¤ê¤Ç¤ÏÅÁÀâ¤ß¤¿¤¤¤Ê¿Í¤è¡£"
+ "ÌÚ¡¹¤Î´Ö¤Ç¤¦¤í¤¦¤í¤·¤Æ¤¤¤ë¤Î¤¬¸«¤Ä¤«¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¤Í¡£Ìë¤Ï¤è¤¯°û¤ß¤ËÍè¤Æ¤¤¤Þ¤¹¤è¡£"))
(define (doris-deric knpc kpc)
- (say knpc "Yes, Deric. Well, if you've met Deric then you know Deric. He's "
- "competent enough but doesn't want to spend his life in the obscurity "
- "of a frontier post."))
+ (say knpc "¤¨¤¨¡¢¥Ç¥ê¥Ã¥¯¡Ä¡Ä¡£²ñ¤¨¤Ð¤É¤ó¤Ê¿Í¤«¤ï¤«¤ë¤ï¡£"
+ "Èà¤ÏΩÇɤÀ¤±¤É¡¢¤³¤ÎÊÕ¶¤ÎÃϰ̤˿ÍÀ¸¤òÈñ¤ä¤¹¤Ä¤â¤ê¤Ï¤Ê¤¤¤è¤¦¤Í¡£"))
(define (doris-shroom knpc kpc)
- (say knpc "Some say she is a witch, and that she knows some goblin magic. "
- "She certainly is handy when anyone falls ill. She often takes her "
- "meals here."))
+ (say knpc "Èà½÷¤ÏËâ½÷¤Ç¡¢¥´¥Ö¥ê¥ó¤ÎËâ½Ñ¤âÃΤäƤ¤¤ë¤È¸À¤¦¼Ô¤â¤¤¤Þ¤¹¡£"
+ "Èà½÷¤Ï狼¤¬Éµ¤¤Ë¤Ê¤Ã¤¿¤È¤¤ÏËÜÅö¤ËÍê¤ê¤Ë¤Ê¤ë¤Î¤è¡£"
+ "¤³¤³¤Ë¤â¤è¤¯¿©¤Ù¤ËÍè¤Þ¤¹¤è¡£"))
(define (doris-abe knpc kpc)
- (say knpc "Some kind of scholar from Glasdrin. He spends all his time "
- "studying the ruins. Bookish fellow."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Î³Ø¼Ô¤Î¤è¤¦¤Í¡£°äÀפÎÄ´ºº¤Ë¤Û¤È¤ó¤É¤Î»þ´Ö¤òÈñ¤ä¤·¤Æ¤¤¤ë¤ï¡£"
+ "ËܤÎÃî¤ß¤¿¤¤¤Ê¿Í¤è¡£"))
(define (doris-abigail knpc kpc)
- (say knpc "She was orphaned, so I adopted her. I always wanted a child, "
- "but that was not to be. I worry about her future... I know she "
- "belongs among her own kind but I can't bear the thought of losing "
- "her."))
+ (say knpc "Èà½÷¤Ï¸É»ù¤Ê¤Î¡£¤½¤ì¤Ç»ä¤¬ÍܻҤˤ·¤¿¤Î¤è¡£¤º¤Ã¤È¼«Ê¬¤Î»Ò¶¡¤¬Íߤ·¤«¤Ã¤¿¤±¤É¡¢"
+ "¤Ç¤¤Ê¤«¤Ã¤¿¡£¤¢¤Î»Ò¤Î¾Í褬É԰¡ġ£"
+ "»ä¤Ë¤Ï¤¢¤Î»Ò¤¬¼º¤Ã¤¿¤â¤Î¤ÎÂå¤ï¤ê¤Ï¤Ç¤¤Ê¤¤¤ï¡£"))
(define (doris-goblins knpc kpc)
- (say knpc "They trade with the townsfolk, I even have one as a customer "
- "from time-to-time. But they are forbidden by law to enter cities in "
- "large numbers, so they're always outnumbered. Most of them are hasty "
- "to conclude their business and get back into the woods."))
+ (say knpc "Èà¤é¤ÏÄ®¤Î¿Í¤È¸ò°×¤ò¤·¤Æ¤¤¤ë¤ï¡£"
+ "»ä¤â»þ¡¹Èà¤é¤«¤éÇ㤤¤Þ¤¹¡£"
+ "¤Ç¤â¡¢Èà¤é¤Ï¤¤¤Ä¤â·²¤ì¤Æ¤¤¤ë¤«¤é¡¢ÂçÀª¤ÇÄ®¤ËÆþ¤ë¤³¤È¤ÏË¡¤Ç¶Ø»ß¤µ¤ì¤Æ¤¤¤ë¤Î¡£"
+ "Èà¤é¤Î¤Û¤È¤ó¤É¤Ï¾¦Çä¤ò¤¹¤°¤ËÀÚ¤ê¾å¤²¤Æ¡¢¿¹¤Ø¤ÈÌá¤Ã¤Æ¹Ô¤¯¤ï¡£"))
(define (doris-orphaned knpc kpc)
- (say knpc "Shroom brought her to me when she was just a baby. Said she "
- "found her in the woods besides her dead parents. I don't know what - "
- "or who - killed them, Shroom wouldn't say. Perhaps I don't want to "
- "know."))
+ (say knpc "¥·¥å¥ë¡¼¥à¤¬»ä¤Î¤È¤³¤í¤Ë¤¢¤Î»Ò¤òÏ¢¤ì¤Æ¤¤¿¤È¤¡¢¤Þ¤ÀÀÖ¤Á¤ã¤ó¤À¤Ã¤¿¡£"
+ "¿¹¤ÎÃæ¤Ç¸«¤Ä¤±¤¿¤È¤¡¢Â¦¤Ë¤¤¤¿Î¾¿Æ¤Ï»à¤ó¤Ç¤¤¤¿¤È¸À¤Ã¤Æ¤¿¡£"
+ "¤Ê¤¼»à¤ó¤Ç¤¤¤¿¤Î¤«¡¢¤½¤ì¤È¤â»¦¤µ¤ì¤¿¤Î¤«¡£¥·¥å¥ë¡¼¥à¤Ï²¿¤â¸À¤ï¤Ê¤«¤Ã¤¿¡£"
+ "¤â¤·¤«¤·¤¿¤é»ä¤¬ÃΤꤿ¤¯¤Ê¤¤¤Î¤«¤â¤·¤ì¤Ê¤¤¡£"))
(define (doris-hail knpc kpc)
- (say knpc "Welcome to the White Stag"))
+ (say knpc "Çò¤²´¼¯Áñ¤Ø¤è¤¦¤³¤½¡£"))
(define (doris-bye knpc kpc)
- (say knpc "Come back anytime"))
+ (say knpc "¤Þ¤¿¤É¤¦¤¾¡£"))
(define (doris-default knpc kpc)
- (say knpc "Can't help you there"))
+ (say knpc "¤É¤¦¤¹¤ë¤³¤È¤â¤Ç¤¤Ê¤¤¤ï¡£"))
(define (doris-thie knpc kpc)
- (say knpc "I haven't had any odd guests lately. Check with Deric, who gets "
- "reports from ranger patrols. And Gen may have seen something in his "
- "wanderings, too."))
+ (say knpc "ºÇ¶á¤Ï²ø¤·¤¤¿Í¤Ï¸«¤Æ¤ª¤ê¤Þ¤»¤ó¡£¥Ç¥ê¥Ã¥¯Â⍬·ÙÈ÷Ââ°÷¤ÎÊó¹ð¤òʹ¤¤¤Æ¤¤¤ë¤«¤âÃΤì¤Þ¤»¤ó¡£"
+ "¥¸¥§¥ó¤â³°¤Ç²¿¤«¸«¤Æ¤¤¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¤Í¡£"))
(define (doris-band knpc kpc)
- (say knpc "Travelers have been complaining about them! "
- "I wish Deric would do something, they're bad for business!"))
+ (say knpc "ι¿Í¤Ï¤ß¤ó¤Êº¤¤Ã¤Æ¤¤¤ë¡ª"
+ "¥Ç¥ê¥Ã¥¯¤Ë¤É¤¦¤Ë¤«¤·¤ÆÍߤ·¤¤¡£¤³¤Î¤Þ¤Þ¤Ç¤Ï¾¦Çä¤Ë¤Ê¤ê¤Þ¤»¤ó¡ª"))
(define doris-conv
(ifc green-tower-conv
(define (mk-doris tag)
(bind
(kern-mk-char tag ; tag
- "Doris" ; name
+ "¥É¥ê¥¹" ; name
sp_human ; species
nil ; occ
s_townswoman ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In the Entrance to Kurpolis.
+;; ¥¯¥í¥Ý¥ê¥¹¤ÎÆþ¤ê¸ý
;;----------------------------------------------------------------------------
(define doug-bed ke-bed1)
(define doug-mealplace ke-tbl1)
(list 12 0 doug-workplace "working")
(list 18 0 doug-mealplace "eating")
(list 19 0 doug-leisureplace "idle")
- (list 24 0 doug-workplace "working")
+ (list 24 0 doug-workplace "working")
)
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Douglas is the Commander of the First Kurpolis Garrison,
-;; stationed at the Entrance to Kurpolis, guarding the Goblin Kingdoms level.
+;; ¥À¥°¥é¥¹¤Ï¥¯¥í¥Ý¥ê¥¹¤ÎÂè°ìÁØÃóÆÖÃϤλشø´±¤Ç¡¢¥´¥Ö¥ê¥ó¤Î²¦¹ñ¤Î³¬¤Î¥¯¥í¥Ý¥ê
+;; ¥¹¤ÎÆþ¤ê¸ý¤Ë¿Ø¤òÃÖ¤¤¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (doug-hail knpc kpc)
- (say knpc "[You meet a grim paladin] Welcome to hell's doorstep, traveler.")
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï¸·¤·¤¤´é¤Ä¤¤ÎÀ»µ³»Î¤È²ñ¤Ã¤¿¡£¡ÏÃϹö¤ÎÆþ¤ê¸ý¤Ø¤è¤¦¤³¤½¡¢Î¹¿Í¤è¡£")
(if (and (in-player-party? 'ch_mesmeme)
(is-alive? ch_mesmeme))
(begin
- (say knpc "[He points at Mesmeme] Are you taking that to the dungeon?")
+ (say knpc "¡ÎÈà¤Ï¥á¥¹¥á¥á¤ò¸«¤¿¡£¡Ï¤³¤Î̵ܤÇÊá¤é¤¨¤¿¤Î¤«¡©")
(if (yes? kpc)
- (say knpc "It's on the third level, below Paladin's Hold. "
- "But I don't think a prison will hold a gazer, "
- "it would be better to slay it.")
- (say knpc "I've never seen a tame one. Beware it doesn't betray you.")))))
+ (say knpc "¤½¤ì¤ÏÂè»°ÁؤÎÀ»µ³»Î¤ÎºÖ¤Î²¼¤Ë¤¤¤ë¡£"
+ "¤À¤¬¡¢¼ýÍƽê¤Ë¤½¤ì¤¬¤¤¤ë¤È¤Ï»×¤¨¤Ê¤¤¡£"
+ "¤½¤¤¤Ä¤ÏÁ᤯»¦¤·¤¿¤Û¤¦¤¬¤è¤¤¡£")
+ (say knpc "¤³¤ó¤Ê¤Ë»ô¤¤¤Ê¤é¤µ¤ì¤¿¤â¤Î¤Ï¸«¤¿¤³¤È¤¬¤Ê¤¤¡£Î¢ÀÚ¤ê¤Ëµ¤¤ò¤Ä¤±¤í¡£")))))
(define (doug-default knpc kpc)
- (say knpc "I cannot help you with that."))
+ (say knpc "¤½¤ì¤Ï¤ï¤«¤é¤ó¡£"))
(define (doug-name knpc kpc)
- (say knpc "I am Captain Douglas, commander of the First Kurpolis Garrison."))
+ (say knpc "»ä¤Ï¥À¥°¥é¥¹ÂâĹ¡¢¤³¤Î¥¯¥í¥Ý¥ê¥¹Âè°ìÁØÃóÆÖÃϤλشø´±¤À¡£"))
(define (doug-join knpc kpc)
- (say knpc "And desert my post? I think not, and don't be asking my troopers, or I'll have you expelled back to the surface."))
+ (say knpc "¤½¤·¤Æ¤³¤³¤òÊü´þ¤·¤í¤È¡©¤½¤Î¤è¤¦¤Ê¹Í¤¨¤Ï¤Ê¤¤¡£»ä¤ÎÉô²¼¤Ë¤â¤½¤Î¤è¤¦¤Ê¤³¤È¤ò¿Ò¤Í¤ë¤Ê¡£¤µ¤â¤Ê¤¤¤ÈÃϾå¤Ø¤ÈÊü¤ê½Ð¤¹¤¾¡£"))
(define (doug-job knpc kpc)
- (say knpc "I command this Garrison."))
+ (say knpc "¤³¤ÎÃóÆÖÃϤǻشø¤·¤Æ¤¤¤ë¡£"))
(define (doug-bye knpc kpc)
- (say knpc "Be careful when traveling the deeps."))
+ (say knpc "¿¼¤¤½ê¤Ë¹Ô¤¯¤È¤¤Ïµ¤¤ò¤Ä¤±¤í¡£"))
;; Special
(define (doug-garr knpc kpc)
- (say knpc "Glasdrin keeps this garrison here to suppress the monsters of Kurpolis. There's a second garrison deeper down."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Ï¥¯¥í¥Ý¥ê¥¹¤Î²øʪ¤ò²¡¤µ¤¨¤ë¤¿¤á¡¢¤³¤³¤ËÃóÆÖÃϤòÃÖ¤¤¤Æ¤¤¤ë¡£¤³¤Î²¼¤Ë¤ÏÂèÆóÁØÃóÆÖÃϤ¬¤¢¤ë¡£"))
(define (doug-mons knpc kpc)
- (say knpc "At this level you find mostly goblins and trolls. Occasionally something worse comes up from the deeps."))
+ (say knpc "¤³¤ÎÁؤˤ¤¤ë¤Î¤Ï¡¢¤Û¤È¤ó¤É¤¬¥´¥Ö¥ê¥ó¤È¥È¥í¥ë¤À¡£¿¼¤¤¤È¤³¤í¤Ç¤ÏÆÍÁ³ºÇ°¤Î¼Ô¤¬¸½¤ì¤ë¤³¤È¤¬¤¢¤ë¡£"))
(define (doug-gobl knpc kpc)
- (say knpc "The cave goblins dominate this level. They are savage but ill-equipped. "
- "There is also a grotto where you can find some forest goblins who are usually not as hostile. "
- "The forest and cave goblins do not get along, which helps keep them under control."))
+ (say knpc "ƶ·¢¥´¥Ö¥ê¥ó¤¬¤³¤ÎÁؤò»ÙÇÛ¤·¤Æ¤¤¤ë¡£ÅÛ¤é¤Ï¶§Ë½¤À¤¬ÁõÈ÷¤ÏÁÆËö¤À¡£"
+ "ƶ·ê¤ÎÃæ¤Ë¤ÏÉáÄÌ¤Ï´í¸±¤Ç¤Ï¤Ê¤¤¿¹¥´¥Ö¥ê¥ó¤â¤¤¤ë¡£"
+ "¿¹¤Èƶ·¢¤Î¥´¥Ö¥ê¥ó¤ÏÃ礬°¤¯¡¢¤½¤ì¤¬²æ¡¹¤Î»ÙÇۤνõ¤±¤Ë¤Ê¤Ã¤Æ¤¤¤ë¡£"))
(define (doug-trol knpc kpc)
- (say knpc "The filthy creatures have a cave beyond the goblin village. "
- "We clean them out from time to time but they just come back. "
- "Sometimes I swear the rocks themselves must be giving birth to trolls."))
+ (say knpc "¥´¥Ö¥ê¥ó¤Î¼¤Î¸þ¤³¤¦Â¦¤Ë¤¤¤ë±ø¤¤Ï¢Ãæ¤À¡£"
+ "Èà¤é¤ò²¿ÅÙ°ìÁݤ·¤Æ¤â¡¢¤¹¤°¤Ë¸µÄ̤ê¤Ë¤Ê¤ë¡£"
+ "¤Þ¤ë¤Ç´ä¤«¤éÀ¸¤Þ¤ì¤Æ¤¤¤ë¤«¤Î¤è¤¦¤À¡£"))
(define (doug-wors knpc kpc)
- (say knpc "The worst I've ever seen? The gazer. It had a clutch of slaves, some of them paladins. Men I once knew. [He shudders and turns away]")
+ (say knpc "»ä¤¬²ñ¤Ã¤¿Ãæ¤ÇºÇ°¤Î¤â¤Î¡©¥²¥¤¥¶¡¼¤À¡£Åۤϴö¿Í¤«¤ÎÅÛÎì¤ò»ý¤Ã¤Æ¤¤¤ë¡£¤½¤ÎÃæ¤Ë¤ÏÀ»µ³»Î¤â¤¤¤ë¡£»×¤¤½Ð¤·¤¿¤è¡£¡ÎÈà¤Ï¿Ì¤¨¤Ê¤¬¤éÇؤò¸þ¤±¤¿¡£¡Ï")
(kern-conv-end)
)
(define (doug-kurp knpc kpc)
- (say knpc "Kurpolis is a breeding ground for monsters. We can't wipe them out, but we can keep a lid on things."))
+ (say knpc "¥¯¥í¥Ý¥ê¥¹¤Ï²øʪ¤É¤â¤ÎÀ¸¤Þ¤ì¤ëÃϤÀ¡£ÅÛ¤é¤ò°ìÁݤ¹¤ë¤³¤È¤Ï¤Ç¤¤Ì¤¬¡¢²æ¡¹¤Ï¤½¤ÎÀò¤È¤Ê¤ë¤³¤È¤Ï¤Ç¤¤ë¡£"))
(define (doug-seco knpc kpc)
- (say knpc "To get to the Second Garrison go east from here to the crossroads, then south and take the ladder down."))
+ (say knpc "ÂèÆóÁØÃóÆÖÃϤؤϡ¢Åì¤Î¸òº¹ÅÀ¤òÆî¤Ø¿Ê¤ß¡¢¤Ï¤·¤´¤ò²¼¤ê¤ì¤Ð¹Ô¤±¤ë¡£"))
(define (doug-gaze knpc kpc)
- (say knpc "A gazer is a creature from a nightmare. The old ones have the power to enslave other beings and force them to fight on their behalf."))
+ (say knpc "¥²¥¤¥¶¡¼¤Ï°Ì´¤«¤éÀ¸¤Þ¤ì¤¿¤è¤¦¤Ê²øʪ¤À¡£À®Ä¹¤·¤¿¼Ô¤Ï¾¤ÎÀ¸¤Êª¤òÅÛÎì¤Ë¤·¡¢¼«Ê¬¤ÎÂå¤ï¤ê¤ËÀï¤ï¤»¤ëǽÎϤ¬¤¢¤ë¡£"))
(define doug-conv
(ifc kurpolis-conv
(define (mk-douglas)
(bind
(kern-mk-char 'ch_douglas ; tag
- "Douglas" ; name
+ "¥À¥°¥é¥¹" ; name
sp_human ; species
oc_warrior ; occ
s_companion_paladin ; sprite
))
;; Make a kernel drawbridge type
-(mk-obj-type 'TF_drawbridge "drawbridge" nil layer-tfeat drawbridge-ifc)
+(mk-obj-type 'TF_drawbridge "Ä·¤Í¶¶" nil layer-tfeat drawbridge-ifc)
;; Define a constructor
(define (mk-drawbridge dir)
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; The schedule below is for the place "Trigrave"
+;; ¥È¥ê¥°¥ì¥¤¥Ö
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_earl
(list 0 0 trigrave-earls-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Earl is a merchant, and will trade with the player if he's at work.
-;; ...(removed some text which seems to have come from Jim.scm)...
+;; ¥¤¥¢¥ë¤ÏŹ¼ç¤Ç¡¢»Å»ö¤ò¤·¤Æ¤¤¤ë»þ´Ö¤Ê¤é¤Ð¼è¤ê°ú¤¤Ç¤¤ë¡£
;;----------------------------------------------------------------------------
(define earl-merch-msgs
- (list "Come by my shop when I'm open. It's the Dry Goods store in the southwest corner, open from 6:00AM to 6:00PM."
- "Here's what I have in stock right now."
- "Well, ok, let me see what you have to offer."
- "Step right up to the counter."
- "Tell 'em you got it at Earl's."
- "Just window-shopping? All right."
- "I'll put this in the back and clean it up later."
- "Come back later when you've got something else to offer, then."
- "Finished already? Suit yourself."
- "Let me know if there's anything else."
+ (list "³«¤¤¤Æ¤ë¤È¤¤ËŹ¤ËÍè¤È¤¯¤ì¡£²¶¤Î¾®´Öʪ²°¤ÏÆîÀ¾¤Î³Ñ¤Ë¤¢¤Ã¤Æ¡¢¸áÁ°6»þ¤«¤é¸á¸å6»þ¤Þ¤Ç¤ä¤Ã¤Æ¤ë¡£"
+ "ÃÖ¤¤¤Æ¤ëʪ¤ò¸«¤»¤Æ¤ä¤í¤¦¡£"
+ "¤¨¡¼¡¢¤¢¤¢¡¢Çä¤ê¤¿¤¤Êª¤ò¸«¤»¤È¤¯¤ì¡£"
+ "¤³¤Ã¤Á¤ËÍè¤Æ¸«¤Æ¤¯¤ì¡£"
+ "¥¤¥¢¥ë¤ÎŹ¤ÇÇã¤Ã¤¿¤â¤Î¤À¤Èͧã¤Ë¸À¤Ã¤È¤¤¤Æ¤¯¤ì¡£"
+ "¸«¤ë¤À¤±¤«¤¤¡©¤Þ¤¢¤¤¤¤¤ä¡£"
+ "ÃÖ¤¤¤È¤¤¤Æ¸å¤Ç¤¤ì¤¤¤Ë¤¹¤ë¤è¡£"
+ "Çä¤ê¤¿¤¤Êª¤¬¤¢¤Ã¤¿¤é¤Þ¤¿Íè¤È¤¯¤ì¡£"
+ "¤â¤¦¤¤¤¤¤Î¤«¤¤¡©¤Þ¤¢¹¥¤¤Ë¤·¤Ê¤è¡£"
+ "¤Þ¤À²¿¤«¤¢¤Ã¤¿¤é¸À¤Ã¤È¤¯¤ì¡£"
))
(define earl-catalog
(list
- (list t_torch 5 "You don't want to run out of torches at the bottom of a dungeon.")
- (list t_sling 50 "The sling is just the thing for cheapskates who don't want to buy ammo.")
- (list t_staff 25 "A mage without a staff is like a dog without a bark.")
+ (list t_torch 5 "̵ܤαü¤Ç¾¾ÌÀ¤òÀڤ餻¤¿¤¯¤Ê¤¤¤À¤í¤¦¡©")
+ (list t_sling 50 "ÅêÀÐɳ¤ÏÃƤòÇ㤤¤¿¤¯¤Ê¤¤¥±¥Á¤ÊÅۤˤԤ俤ê¤À¡£")
+ (list t_staff 25 "¾ó¤Î¤Ê¤¤ËâË¡»È¤¤¤ÏËʤ¨¤Ê¤¤¸¤¤ß¤¿¤¤¤Ê¤â¤ó¤À¡£")
- (list t_heal_potion 22 "You want to keep plenty of these in your emergency kit.")
- (list t_cure_potion 22 "Headed north? You'll want some of these when travelling the Fens.")
- (list t_mana_potion 22 "This is just the thing when you're in a spot where you can't camp and your mages are exhausted.")
+ (list t_heal_potion 22 "±þµÞÍѤȤ·¤Æ¤¿¤¯¤µ¤ó¤¤¤ë¤Ï¤º¤À¡£")
+ (list t_cure_potion 22 "Ë̤ظþ¤«¤¦¡©¼¾ÃÏÂӤ˹Ԥ¯¤È¤¤Ï¤¤¤¯¤Ä¤«»ý¤Ã¤Æ¤ª¤¤¤¿¤Û¤¦¤¬¤¤¤¤¡£")
+ (list t_mana_potion 22 "ËâÎϤò»È¤¤²Ì¤¿¤·¤ÆµÙ·Æ¤â¤Ç¤¤Ê¤¤¤È¤¤Ï¤³¤ì¤À¡£")
- (list t_arrow 1 "If you've got a bow then you can't have too many arrows.")
- (list t_bolt 1 "I've got the least expensive bolts anywhere around.")
- (list t_smoke_bomb 3 "Just throw these smoke bombs at enemy archers and they won't be able to see you.")
+ (list t_arrow 1 "µÝ¤ò»ý¤Ã¤Æ¤¤¤ì¤Ð¡¢Ìð¤¬Â¿¤¹¤®¤ë¤È¤¤¤¦¤³¤È¤Ï¤Ê¤¤¡£")
+ (list t_bolt 1 "¤³¤Î¤¢¤¿¤ê¤Ç°ìÈְ¤¤¥¯¥í¥¹¥Ü¥¦¤ÎÌð¤À¡£")
+ (list t_smoke_bomb 3 "¤³¤Î±ìËëÃƤòŨ¤Î¼Í¼ê¤ËÅꤲ¤ì¤Ð¡¢Áê¼ê¤Ï¤³¤Á¤é¤¬¸«¤¨¤Ê¤¯¤Ê¤ë¤À¤í¤¦¡£")
- (list t_shovel 50 "When you find that buried treasure you'll want a shovel to dig it up.")
- (list t_pick 50 "A pick is essential for busting up boulders that block your path.")
+ (list t_shovel 50 "Ëä¤â¤ì¤¿Êõ¤ò¸«¤Ä¤±¤¿¤é¤³¤Î¥·¥ã¥Ù¥ë¤¬¤¤¤ë¤À¤í¤¦¡£")
+ (list t_pick 50 "¤Ä¤ë¤Ï¤·¤ÏÆ»¤òºÉ¤°´ä¤ò²õ¤¹¤¿¤á¤Ë¤ÏÀäÂФËɬÍפÀ¡£")
- (list t_sextant 500 "You can figure your location anywhere in the wilderness with one of these without wasting any reagents or scrolls.")
- (list t_chrono 300 "This little timepiece is invaluable when there aren't any clocks around.")
- (list t_grease 23 "Wrogues seem to like this stuff. I'm afraid to ask why.")
+ (list t_sextant 500 "ÈëÌô¤ä´¬Êª¤Ê¤·¤Ç¹ÓÌî¤Ç¤Îµï¾ì½ê¤¬¤ï¤«¤ë¡£")
+ (list t_chrono 300 "¤³¤Î¾®¤µ¤Ê»þ·×¤¬¤¢¤ì¤Ð¡¢Ãì»þ·×¤¬¤Ê¤¤½ê¤Ç¤â»þ¹ï¤¬¤ï¤«¤ë¡£")
+ (list t_grease 23 "¤Ê¤é¤º¼Ô¤Ï¤³¤ì¤¬¹¥¤¤À¡£¤Ê¤¼¤«¤Ïʹ¤¯¤Ê¡£")
))
(define (earl-trade knpc kpc) (conv-trade knpc kpc "trade" earl-merch-msgs earl-catalog))
;; 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 "I forgot.")))
- (method 'hail (lambda (knpc kpc) (say knpc "Welcome, stranger.")))
- (method 'bye (lambda (knpc kpc) (say knpc "Oh, were we talking? Bye.")))
- (method 'job (lambda (knpc kpc) (say knpc "I keep the store. Need something?")
+ (method 'default (lambda (knpc kpc) (say knpc "˺¤ì¤¿¤Ê¤¢¡£")))
+ (method 'hail (lambda (knpc kpc) (say knpc "¤¤¤é¤Ã¤·¤ã¤¤¡¢¸«ÃΤé¤ÌÊý¡£")))
+ (method 'bye (lambda (knpc kpc) (say knpc "¤¢¤¢¡¢¤¢¤ó¤¿¤ÈÏ䷤Ƥ¿¤ó¤À¤Ã¤±¡©")))
+ (method 'job (lambda (knpc kpc) (say knpc "¤³¤ÎŹ¤ò¤ä¤Ã¤Æ¤ë¡£²¿¤«¤¤¤ë¤«¤¤¡©")
(if (kern-conv-get-yes-no? kpc)
(earl-trade knpc kpc)
- (say knpc "Okay."))))
- (method 'name (lambda (knpc kpc) (say knpc "[He thinks for a minute] Earl! That's it!")))
+ (say knpc "¤½¤¦¡£"))))
+ (method 'name (lambda (knpc kpc) (say knpc "¡ÎÈà¤Ï¤·¤Ð¤é¤¯¹Í¤¨¹þ¤ó¤À¡£¡Ï¥¤¥¢¥ë¡ª¤½¤¦¡ª")))
(method 'buy (lambda (knpc kpc) (conv-trade knpc kpc "buy" earl-merch-msgs earl-catalog)))
(method 'sell (lambda (knpc kpc) (conv-trade knpc kpc "sell" earl-merch-msgs earl-catalog)))
(method 'trad earl-trade)
- (method 'join (lambda (knpc kpc) (say knpc "You're too late! I forgot all my spells.")))
+ (method 'join (lambda (knpc kpc) (say knpc "ÃÙ¤¹¤®¤ë¤è¡ª¼öʸ¤Ï¤ß¤ó¤Ê˺¤ì¤Á¤Þ¤Ã¤¿¡£")))
(method 'batt
(lambda (knpc kpc)
- (say knpc "Yep. I fought with Lord Calvin against the "
- "Goblin Horde!")))
+ (say knpc "¤½¤¦¤À¡£¥ª¥ì¤Ï¥«¥ë¥ô¥£¥ó²¦¤È°ì½ï¤Ë¥´¥Ö¥ê¥ó¤É¤â¤Î·²¤ì¤ÈÀï¤Ã¤¿¤Î¤µ¡ª")))
(method 'calv
(lambda (knpc kpc)
- (say knpc "Now there was a warlord! Calvin conquered "
- "everything from the Gray Sea to the Northern Rim!")))
+ (say knpc "¤«¤Ä¤Æ¤ÎÉ𾡪"
+ "¥«¥ë¥ô¥£¥ó¤Ï³¥¿§¤Î³¤¤«¤éË̤Îü¤Þ¤ÇÁ´¤Æ¤òÀ¬Éþ¤·¤¿¤ó¤À¡ª")))
(method 'hord
(lambda (knpc kpc)
- (say knpc "In those days the Goblins were united under one "
- "chieftain, and threatened the whole Peninsula! By the "
- "time Lord Calvin was done with them they were scattered "
- "and hiding in the hills. They've never recovered!")))
+ (say knpc "¤¢¤Î¤³¤í¥´¥Ö¥ê¥ó¤É¤â¤Ï°ì¿Í¤Î¼óĹ¤Î²¼¤Ç·ë«¤·¤Æ¤¤¤¿¡£"
+ "¤½¤·¤Æ¡¢¤³¤ÎȾÅç¤Ç˽¤ì¤Æ¤¤¤¿¡ª"
+ "¥«¥ë¥ô¥£¥ó²¦¤¬¥ä¥Ä¤é¤òÅݤ·¤Æ¤«¤é¤Ï¥Ð¥é¥Ð¥é¤Ë¤Ê¤ê¡¢µÖ¤Ë±£¤ì¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£"
+ "Îò»Ë¤Ë¤Ï»Ä¤Ã¤Æ¤Ê¤¤¤¬¤Ê¡ª")))
(method 'mage
(lambda (knpc kpc)
- (say knpc "I've forgotten all my magic. I even lost my wand! "
- "I once knew spells that would slay whole armies.")))
+ (say knpc "ËâË¡¤Ï¤ß¤ó¤Ê˺¤ì¤¿¡£¾ó¤â¤Ê¤¯¤·¤¿¡ª"
+ "ÀΤϷ³Ââ¤ò´Ý¤´¤ÈÅݤ»¤ë¼öʸ¤òÃΤäƤ¿¤µ¡£")))
(method 'spel
(lambda (knpc kpc)
- (say knpc "I was a battle mage once. Long ago.")))
+ (say knpc "ËâË¡»È¤¤¤È¤·¤ÆÀï¤Ã¤Æ¤¿¤ó¤À¤è¡£ÂçÀΤµ¡£")))
(method 'thie
(lambda (knpc kpc)
- (say knpc "I saw a stranger fleeing west! No, south! No... Oh, drat, I can't remember.")))
+ (say knpc "²ø¤·¤¤¥ä¥Ä¤¬À¾¤Øƨ¤²¤Æ¤Ã¤¿¡ª¤¤¤ä¡¢Æî¤À¡ª¤¤¤ä¡Ä¡¢¤¢¤¢¡¢¥¯¥½¥Ã¡¢»×¤¤½Ð¤»¤Í¤¨¡£")))
))
(mk-tower
- 'p_eastpass "Eastpass"
+ 'p_eastpass "Å즤ؤÎÆ»"
(list
".. {4 {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
".. {4 {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In the dungeons below Green Tower.
+;; ÎФÎÅã¤ÎÃϲ¼
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_edward
(list 0 0 gtl-jailor-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Edward is a old blind man, serving as the jailor
-;; in the dungeons below Green Tower.
+;; ¥¨¥É¥ï¡¼¥É¤ÏÌÕÌܤÎÏ·¿Í¤Ç¡¢ÎФÎÅã¤ÎÃϲ¼¤Ç´Ç¼é¤Î»Å»ö¤ò¤·¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
(define (edward-hail knpc kpc)
- (meet "You meet a pale old man whose eyes are milky white.")
+ (meet "¤¢¤Ê¤¿¤Ï¿§Çò¤ÇÌܤÎÂù¤Ã¤¿Ï·¿Í¤È²ñ¤Ã¤¿¡£")
(let ((edward (kobj-gob-data knpc)))
(cond ((not (edward-met? edward))
- (say knpc "Who goes there?")
+ (say knpc "狼¤¤¤ë¤Î¤«¡©Ì¾¾è¤ì¡ª")
(reply? kpc)
(edward-meet! edward)
- (say knpc "I don't know you. Are you hear to make a jail-break?")
+ (say knpc "ÃΤé¤Ê¤¤¤ä¤Ä¤À¡£Ã¦¹ö¤·¤¿¤Î¤«¡©")
(if (yes? kpc)
- (say knpc "Well get on with it! I'm too old to stop you.")
- (say knpc "That's a relief. I'd have no-one to talk to.")
+ (say knpc "¤µ¤Ã¤µ¤È¹Ô¤±¡ª¤¢¤ó¤¿¤ò»ß¤á¤ë¤Ë¤Ïǯ¤ò¼è¤ê¤¹¤®¤Æ¤¤¤ë¡£")
+ (say knpc "°Â¿´¤·¤¿¡£Ã¯¤âÏä¹Áê¼ê¤¬¤¤¤Ê¤¤¤Î¤Ç¤Í¡£")
)
)
(else
- (say knpc "Welcome back. I remember your footfalls.")
+ (say knpc "¤Þ¤¿Í褿¤Í¡£Â²»¤Ç¤ï¤«¤Ã¤¿¤è¡£")
))))
(define (edward-give-nate knpc kpc)
- (say knpc "Are you delivering a prisoner?")
+ (say knpc "¼ü¿Í¤òÏ¢¤ì¤Æ¤¤¿¤Î¤«¡©")
(cond ((yes? kpc)
(cond ((is-only-living-party-member? ch_nate)
- (say knpc "Turn yourself in if you like, "
- "but get rid of that dead body first! "
- "This isn't a morgue.")
+ (say knpc "¤â¤·¤½¤¦¤·¤¿¤¤¤Ê¤é¡¢¼«¼ó¤·¤Ê¤µ¤¤¡£"
+ "¤À¤¬¡¢¤½¤Î»àÂΤò²¿¤È¤«¤·¤Æ¤«¤é¤À¡ª"
+ "¤³¤³¤Ï»àÂÎÃÖ¤¾ì¤Ç¤Ï¤Ê¤¤¡£")
)
(else
- (say knpc "Oh, good. More company. [He takes Nate into custody and "
- "locks him in a cell]")
+ (say knpc "¤ª¤ª¡¢¤½¤¦¤«¡£Ãç´Ö¤¬Áý¤¨¤¿¤ï¤¤¡£¡ÎÈà¤Ï¥Í¥¤¥È¤ò°ú¤¼è¤ê¡¢ÆÈ˼¤ËÆþ¤ì¸°¤ò¤«¤±¤¿¡£¡Ï")
(kern-char-leave-player ch_nate)
(kern-obj-relocate ch_nate (mk-loc p_green_tower_lower 9 10) nil)
(prompt-for-key)
- (say knpc "Here's your receipt, in case the Captain wants it.")
+ (say knpc "¤³¤ì¤¬¾ÚÌÀ½ñ¤À¡£ÂâŤËÅϤ·¤Ê¤µ¤¤¡£")
(give (kern-get-player) t_prisoner_receipt 1)
(edward-has-nate! (kobj-gob-data knpc))
(quest-data-update-with 'questentry-bandits 'nate-given-to-jailor 1 (quest-notify nil))
)))
(else
- (say knpc "Hokay. [He gives Nate a look, then shrugs]")
+ (say knpc "¤½¤¦¤«¤¤¡£¡ÎÈà¤Ï¥Í¥¤¥È¤ÎÊý¤ò¸þ¤¡¢¸ª¤ò¤¹¤¯¤á¤¿¡£¡Ï")
)))
(define (edward-pris knpc kpc)
(else
(let ((edward (kobj-gob-data knpc)))
(if (edward-has-nate? edward)
- (say knpc "I've got a forest goblin and that fellow you brought in.")
- (say knpc "I've just got a forest goblin right now. "
- "He and I can't understand each other, "
- "but that doesn't stop us from swapping stories."))))
+ (say knpc "º£¤Ï¿¹¥´¥Ö¥ê¥ó¤È¡¢¤¢¤ó¤¿¤¬Ï¢¤ì¤Æ¤¤¿ÅÛ¤¬¤¤¤ë¡£")
+ (say knpc "ºÇ¶á¿¹¥´¥Ö¥ê¥ó¤¬Æþ¤Ã¤¿¡£"
+ "¤ä¤Ä¤È¤Ï¸ß¤¤¤ËÍý²ò¤·¤¢¤¨¤Ê¤¤¤¬¡¢¤À¤«¤é¤È¤¤¤Ã¤ÆÏäò¤·¤Ê¤¤¤ï¤±¤Ç¤Ï¤Ê¤¤¡£"))))
))
(define (edward-gobl knpc kpc)
- (say knpc "I'm not afraid of them. They never done me no harm."))
+ (say knpc "¶²¤í¤·¤¤¤³¤È¤Ï¤Ê¤¤¡£¤ä¤Ä¤é¤Ï´í³²¤ò²Ã¤¨¤Ê¤¤¡£"))
(define (edward-stor knpc kpc)
- (say knpc "Have you heard the one about Will-o-the-Woods?")
+ (say knpc "ÌÚÎî¤Ë¤Ä¤¤¤Æʹ¤¤¤¿¤³¤È¤¬¤¢¤ë¤«¡©")
(cond ((no? kpc)
- (say knpc "Will-o-the-Woods was a spirit that used to haunt these woods, "
- "in the old days when the gates worked and the gods were honored. ")
+ (say knpc "ÌÚÎî¤Ï¤«¤Ä¤Æ¤³¤Î¿¹¤Ë¸½¤ì¤¿¡£"
+ "Ì礬³«¤¡¢¿À¡¹¤¬¿ò¤á¤é¤ì¤Æ¤¤¤¿ÀΤΤ³¤È¤À¡£")
(prompt-for-key kpc)
- (say knpc "If a pretty maiden ventured into the woods alone, "
- "he would appear as a handsome woodsman or ranger, "
- "and entice her back to his sacred grove. "
- "There, he would turn her into a tree. ")
+ (say knpc "¤¢¤ëÆüÈþ¤·¤¤²µ½÷¤¬¤³¤Î¿¹¤Ë°ì¿Í¤Ç̤¤¹þ¤ó¤À¤È¤¡¢"
+ "ÌÚÎî¤Ï´éΩ¤Á¤Î¤è¤¤¿¹¿Í¤È¤·¤Æ»Ñ¤ò¸½¤·¤¿¡£"
+ "̼¤Ï¿¹¤Î±ü¤Ø¤ÈͶ¤¤¹þ¤Þ¤ì¡¢¤Ä¤¤¤ËÌڤˤʤäƤ·¤Þ¤Ã¤¿¡£")
(prompt-for-key kpc)
- (say knpc "That's how the Great Wood got its beginning, in his grove. "
- "And that's why you find so many haunted trees in the woods even to this day.")
+ (say knpc "¤½¤ì¤¬¤³¤Î¹Âç¤ÊÈà¤Î¿¹¤Î»Ï¤Þ¤ê¤À¡£"
+ "¤½¤·¤Æº£¤Ç¤â¿¤¯¤ÎÍ©Îî¤Î¤è¤¦¤ÊÌÚ¡¹¤¬¤¢¤ëÍýͳ¤À¡£")
)
(else
- (say knpc "No one knows what become of Will-o-the-Woods. "
- "Passed into legend like the other gods, I suppose.")
+ (say knpc "ÌÚÎî¤È¤Ï²¿¤Ê¤Î¤«¡¢Ã¯¤âÃΤé¤Ê¤¤¡£"
+ "¾¤Î¿À¡¹¤ÈƱ¤¸¤è¤¦¤ÊÅÁÀâ¤À¤í¤¦¡£")
)))
(define (edward-gate knpc kpc)
- (say knpc "I don't know anything about them. They used to work, that's all I know."))
+ (say knpc "Ìç¤Î¤³¤È¤Ï¤ï¤«¤é¤Ê¤¤¡£¤«¤Ä¤Æ¤½¤ì¤Ï¤¢¤Ã¤¿¡¢ÃΤäƤ¤¤ë¤Î¤Ï¤½¤ì¤À¤±¤À¡£"))
(define (edward-gods knpc kpc)
- (say knpc "It's not a good idea to talk about the old gods. "
- "Folks might think us Accursed if they were to overhear."))
+ (say knpc "¸Å¤¿À¡¹¤ÎÏäò¤¹¤ë¤Î¤Ï¤è¤¯¤Ê¤¤¡£"
+ "¤½¤ì¤òʹ¤«¤ì¤ë¤È¼ö¤ï¤ì¤ë¤È¸À¤ï¤ì¤Æ¤¤¤ë¡£"))
(define (edward-accu knpc kpc)
- (say knpc "The Accursed seek power from the old gods... and other things. "
- "I've had a few in my jail."))
+ (say knpc "¸Å¤¿À¡¹¤Î¼ö¤ï¤ì¤¿ÎÏ¡Ä¡Ä"
+ "¤³¤ÎÏ´¹ö¤Ë¤â¤½¤ì¤Ï¤¢¤ë¡£"))
(define (edward-talk knpc kpc)
- (say knpc "The prisoners are the only ones I can talk to down here."))
+ (say knpc "¤³¤³¤Ç¤Ï¼ü¿Í¤·¤«Ïä¹Áê¼ê¤¬¤¤¤Ê¤¤¡£"))
(define (edward-blin knpc kpc)
- (say knpc "The dark doesn't bother me. Neither does the light, for that matter. "
- "It's all the same to me."))
+ (say knpc "°Å°Ç¤Ï²¿¤Ç¤â¤Ê¤¤¡£¤µ¤é¤Ë¸À¤¨¤Ð¸÷¤â²¿¤Ç¤â¤Ê¤¤¡£"
+ "¤É¤Á¤é¤âƱ¤¸¤³¤È¤À¡£"))
(define (edward-guar knpc kpc)
- (say knpc "Truth be told, I'm not much of a guard."))
+ (say knpc "ÀµÄ¾¤Ë¸À¤¦¤È¡¢Êá¤Þ¤¨¤é¤ì¤ë¤È¤Ï»×¤¨¤Ê¤¤¡£"))
(define (edward-jail knpc kpc)
(cond ((in-player-party? 'ch_nate) (edward-give-nate knpc kpc))
(else
- (say knpc "I feed the prisoners and swap stories with them. "
- "I'm supposed to guard them, too. Prevent escapes.")
+ (say knpc "¼ü¿Í¤Ë¿©»ö¤òÍ¿¤¨¡¢Ïä·¤ò¤¹¤ë¡£"
+ "¤ä¤Ä¤é¤¬Æ¨¤²¤ë¤Î¤òËɤ°ÌòÌܤ⤢¤ë¡£")
)))
(define edward-conv
;; on the other hand, is a feature of the ifc mechanism (see ifc.scm).
(method 'default
(lambda (knpc kpc)
- (say knpc "[He shrugs]")))
+ (say knpc "¡ÎÈà¤Ï¸ª¤ò¤¹¤¯¤á¤¿¡£¡Ï")))
(method 'hail edward-hail)
(method 'bye
(lambda (knpc kpc)
- (say knpc "Watch your step in the dark!")))
+ (say knpc "°Å¤¤¤«¤éµ¤¤ò¤Ä¤±¤Æ¡ª")))
(method 'job
(lambda (knpc kpc)
- (say knpc "I'm the jailor.")))
+ (say knpc "´Ç¼é¤À¡£")))
(method 'name
(lambda (knpc kpc)
- (say knpc "I am Edward. And you already told me your name.")))
+ (say knpc "¥¨¥É¥ï¡¼¥É¤À¡£¤¢¤ó¤¿¤Î̾Á°¤Ïʹ¤¤¤Æ¤¤¤ë¡£")))
(method 'join
(lambda (knpc kpc)
- (say knpc "Love to. [But he doesn't]")))
+ (say knpc "¤½¤¦¤·¤¿¤¤¤Í¡£¡Î¤À¤¬¤Ç¤¤Ê¤¤¡£¡Ï")))
(method 'accu edward-accu)
(method 'blin edward-blin)
(method 'esca edward-guar)
(kern-char-arm-self
(kern-mk-char
'ch_edward ;;..........tag
- "Edward" ;;.......name
+ "¥¨¥É¥ï¡¼¥É" ;;.......name
sp_human ;;.....species
oc_ranger ;;.. .occupation
s_old_townsman ;;..sprite
(not (species-is-immune-to-paralyze? (kern-char-get-species kobj)))))
(define (paralyze-apply fgob kobj)
- (kern-log-msg (kern-obj-get-name kobj) " paralyzed!"))
+ (kern-log-msg (kern-obj-get-name kobj) "¤ÏËãá㤷¤¿¡ª"))
(define (paralyze-exec fgob kobj)
(if (not (obj-is-char? kobj))
(> droll
dc-escape-paralyze))
(begin
- (kern-log-msg "Paralysis wears off of " (kern-obj-get-name kchar))
+ (kern-log-msg (kern-obj-get-name kchar) "¤ÎËãáã¤Ï¤Ê¤¯¤Ê¤Ã¤¿¡£")
(kern-obj-remove-effect kchar ef_paralyze)
(if (is-player-party-member? kobj)
(kern-char-set-player-controlled kobj #t))
#f)
(begin
- (kern-log-msg "** " (kern-obj-get-name kchar) " remains paralyzed! **")
+ (kern-log-msg "** " (kern-obj-get-name kchar) "¤Ë¤Ï¤Þ¤ÀËãá㤬»Ä¤Ã¤Æ¤¤¤ë¡ª **")
(kern-obj-set-ap kchar 0)
#f)))))
(maxdmg (- (kern-char-get-hp kchar)
(kern-dice-roll "1d10"))))
(cond ((> dmgroll maxdmg)
- (kern-log-msg (kern-obj-get-name kchar) " fights off Disease")
+ (kern-log-msg (kern-obj-get-name kchar) "¤Ïɤ«¤é²óÉü¤·¤¿¡£")
(kern-obj-apply-damage kchar "disease" maxdmg)
(kern-obj-remove-effect kchar ef_disease)
)
(not (species-is-immune-to-ensnare? (kern-char-get-species kobj)))))
(define (ensnare-apply fgob kobj)
- (kern-log-msg (kern-obj-get-name kobj) " stuck in web!"))
+ (kern-log-msg (kern-obj-get-name kobj) "¤ÏÌÖ¤ËÊá¤é¤ï¤ì¤¿¡ª"))
(define (ensnare-exec fgob kobj)
(println "ensnare-exec")
droll)
dc-escape-ensnare))
(let ((loc (kern-obj-get-location kobj)))
- (kern-log-msg (kern-obj-get-name kchar) " breaks free of web!")
+ (kern-log-msg (kern-obj-get-name kchar) "¤ÏÌÖ¤«¤éÈ´¤±½Ð¤·¤¿¡ª")
(kern-obj-remove-effect kchar ef_ensnare)
(map kern-obj-remove-web (find-object-types-at loc web-type))
(map kern-obj-remove-web (find-object-types-at loc F_web_perm))
#t)
(begin
- (kern-log-msg (kern-obj-get-name kchar) " struggles in the web!")
+ (kern-log-msg (kern-obj-get-name kchar) "¤ÏÌÖ¤ÎÃæ¤Ç¤â¤¬¤¤¤¿¡ª")
(kern-obj-set-ap kchar 0)
#f))))))
;; free. This was added as a risk balance for the wriggle skill.
;; ----------------------------------------------------------------------------
(define (stuck-apply fgob kobj)
- (kern-log-msg (kern-obj-get-name kobj) " stuck!"))
+ (kern-log-msg (kern-obj-get-name kobj) "¤ÏÊá¤Þ¤Ã¤¿¡ª"))
(define (stuck-exec fgob kobj)
(cond ((check-roll dc-escape-stuck (occ-thief-dice-roll kobj))
- (kern-log-msg (kern-obj-get-name kobj) " wriggles free!")
+ (kern-log-msg (kern-obj-get-name kobj) "¤Ïƨ¤ì¤¿¡ª")
(kern-obj-remove-effect kobj ef_stuck)
#t
)
(else
- (kern-log-msg (kern-obj-get-name kobj) " struggles!")
+ (kern-log-msg (kern-obj-get-name kobj) "¤Ï¤â¤¬¤¤¤¿¡ª")
(kern-obj-set-ap kobj 0)
#f
)))
(set-car! temp-light-power power))
(define (light-rm fgob kobj)
- (kern-log-msg "Light spell wore off")
+ (kern-log-msg "¸÷¤Î¼öʸ¤¬¾Ã¤¨µî¤Ã¤¿¡£")
(kern-obj-dec-light kobj (caar fgob))
(temp-light-power-set (caar fgob)))
(define torchlight-amount 1024)
(define (torchlight-rm fgob kobj)
- (kern-log-msg "A torch flickers out!")
+ (kern-log-msg "¾¾ÌÀ¤¬Ç³¤¨¿Ô¤¤¿¡ª")
(kern-obj-dec-light kobj torchlight-amount))
(define (torchlight-apply fgob kobj)
(kern-being-set-current-faction kchar (kern-being-get-base-faction kchar))
(if (is-player-party-member? kchar)
(kern-char-set-player-controlled kchar #t))
- (kern-log-msg (kern-obj-get-name kchar) " recovers from charm!")
+ (kern-log-msg (kern-obj-get-name kchar) "¤Ï²æ¤ËÊ֤ä¿¡ª")
)))
(define (charm-apply charm kchar)
(cond ((obj-is-char? kchar)
- (kern-log-msg (kern-obj-get-name kchar) " is charmed!")
+ (kern-log-msg (kern-obj-get-name kchar) "¤Ï̥뤵¤ì¤¿¡ª")
(kern-char-set-player-controlled kchar #f)
(kern-being-set-current-faction kchar (charm-faction charm))
)))
stealth-co-effects)
;; And treat yuse as a special case
(kern-obj-remove-effect kobj ef_stealth_yuse)
- (kern-log-msg (kern-obj-get-name kobj) " goes out of stealth mode!")
+ (kern-log-msg (kern-obj-get-name kobj) "¤ÏºÆ¤Ó¸½¤ì¤¿¡ª")
)
;; At basic skill levels any movement will undo stealth mode. As the character
(kern-being-get-base-faction kobj))
(if hurtclone
(kern-char-set-hp clone orighp))
- (kern-log-msg (kern-obj-get-name kobj) " divides!")
+ (kern-log-msg (kern-obj-get-name kobj) "¤ÏʬÎö¤·¤¿¡ª")
(kern-obj-put-at clone (pick-loc loc clone)))
)))))
(define (spider-calm-rm fgob kchar)
(kern-dtable-dec (kern-being-get-current-faction kchar)
faction-spider)
- (kern-log-msg (kern-obj-get-name kchar) " seems less friendly to spiders"))
+ (kern-log-msg (kern-obj-get-name kchar) "¤Î¥¯¥â¤«¤é¤Î½±¤ï¤ì¤Ë¤¯¤µ¤Ï¾Ã¤¨¤¿¡£"))
(define (spider-calm-apply fgob kchar)
(kern-dtable-inc (kern-being-get-current-faction kchar)
faction-spider)
- (kern-log-msg (kern-obj-get-name kchar) " makes spiders seem friendlier"))
+ (kern-log-msg (kern-obj-get-name kchar) "¤Ï¥¯¥â¤Ë½±¤ï¤ì¤Ë¤¯¤¯¤Ê¤Ã¤¿¤è¤¦¤À¡£"))
;;----------------------------------------------------------------------------
;; Drunk
(if (> (kern-dice-roll "1d20") 16)
(if (stagger kchar)
(begin
- (kern-log-msg (kern-obj-get-name kchar) " staggers!")
+ (kern-log-msg (kern-obj-get-name kchar) "¤Ï¿ì¤Ã¤Æ¤¤¤ë¡ª")
(end-turn kchar)))))
(define (drunk-apply fgob kchar)
- (kern-log-msg (kern-obj-get-name kchar) " feels tipsy!"))
+ (kern-log-msg (kern-obj-get-name kchar) "¤Ï¿ì¤Ã¤¿¡ª"))
(define (drunk-rm fgob kchar)
- (kern-log-msg (kern-obj-get-name kchar) " has a hangover!"))
+ (kern-log-msg (kern-obj-get-name kchar) "¤Î¿ì¤¤¤Ï¤µ¤á¤¿¡ª"))
;;-----------------------------------------------------------------
;; Graphics update
;; ----------------------------------------------------------------------------
;; Start-of-turn hooks
-(mk-effect 'ef_poison "Poison" s_poison 'poison-exec nil nil nil start-of-turn-hook "P" 0 #f -1)
-(mk-effect 'ef_sleep "Sleep" s_sleep 'sleep-exec nil 'sleep-rm 'sleep-reset start-of-turn-hook "S" 0 #f 60)
-(mk-effect 'ef_light "Magical light" s_light 'light-exec 'light-apply 'light-rm 'light-apply start-of-turn-hook "L" 0 #t -2)
-(mk-effect 'ef_torchlight "Torchlight" s_torchlight nil 'torchlight-apply 'torchlight-rm 'torchlight-apply start-of-turn-hook "T" 0 #f 60)
-(mk-effect 'ef_weaklight "Torchlight" s_torchlight nil 'weaklight-apply 'weaklight-rm 'weaklight-apply start-of-turn-hook "T" 0 #f 60)
-(mk-effect 'ef_protection "Protection" s_protect nil 'protection-apply 'protection-rm 'protection-apply start-of-turn-hook "p" 0 #f 10)
-(mk-effect 'ef_charm "Charm" s_charm nil 'charm-apply 'charm-rm 'charm-apply start-of-turn-hook "C" 0 #f 5)
-(mk-effect 'ef_invisibility "Invisible" s_invis nil 'invisibility-apply 'invisibility-rm 'invisibility-apply start-of-turn-hook "N" 0 #t 10)
-(mk-effect 'ef_permanent_invisibility "Invisible" s_invis nil 'invisibility-apply 'invisibility-rm 'invisibility-apply start-of-turn-hook "N" 0 #t -1)
-(mk-effect 'ef_spider_calm "Spider calm" s_spider_calm nil 'spider-calm-apply 'spider-calm-rm nil start-of-turn-hook "" 0 #f 60)
-(mk-effect 'ef_disease "Diseased" s_disease 'disease-exec nil nil nil start-of-turn-hook "D" 0 #f -2)
+(mk-effect 'ef_poison "ÆÇ" s_poison 'poison-exec nil nil nil start-of-turn-hook "P" 0 #f -1)
+(mk-effect 'ef_sleep "¿ç̲" s_sleep 'sleep-exec nil 'sleep-rm 'sleep-reset start-of-turn-hook "S" 0 #f 60)
+(mk-effect 'ef_light "ËâÎϤθ÷" s_light 'light-exec 'light-apply 'light-rm 'light-apply start-of-turn-hook "L" 0 #t -2)
+(mk-effect 'ef_torchlight "¾¾ÌÀ" s_torchlight nil 'torchlight-apply 'torchlight-rm 'torchlight-apply start-of-turn-hook "T" 0 #f 60)
+(mk-effect 'ef_weaklight "¾¾ÌÀ" s_torchlight nil 'weaklight-apply 'weaklight-rm 'weaklight-apply start-of-turn-hook "T" 0 #f 60)
+(mk-effect 'ef_protection "Êݸî" s_protect nil 'protection-apply 'protection-rm 'protection-apply start-of-turn-hook "p" 0 #f 10)
+(mk-effect 'ef_charm "̥λ" s_charm nil 'charm-apply 'charm-rm 'charm-apply start-of-turn-hook "C" 0 #f 5)
+(mk-effect 'ef_invisibility "Æ©ÌÀ" s_invis nil 'invisibility-apply 'invisibility-rm 'invisibility-apply start-of-turn-hook "N" 0 #t 10)
+(mk-effect 'ef_permanent_invisibility "Æ©ÌÀ" s_invis nil 'invisibility-apply 'invisibility-rm 'invisibility-apply start-of-turn-hook "N" 0 #t -1)
+(mk-effect 'ef_spider_calm "¥¯¥âÈò¤±" s_spider_calm nil 'spider-calm-apply 'spider-calm-rm nil start-of-turn-hook "" 0 #f 60)
+(mk-effect 'ef_disease "ɵ¤" s_disease 'disease-exec nil nil nil start-of-turn-hook "D" 0 #f -2)
(mk-effect 'ef_graphics_update nil nil 'update-graphics nil nil 'update-graphics start-of-turn-hook "" 0 #f -1)
-(mk-effect 'ef_stealth "Stealth" nil 'stealth-exec 'stealth-apply 'stealth-rm 'stealth-apply start-of-turn-hook "" 0 #f -1)
+(mk-effect 'ef_stealth "±£Ì©" nil 'stealth-exec 'stealth-apply 'stealth-rm 'stealth-apply start-of-turn-hook "" 0 #f -1)
;; Add-hook hooks
-(mk-effect 'ef_poison_immunity "Poison immunity" s_im_poison 'poison-immunity-exec nil nil nil add-hook-hook "I" 0 #f -1)
-(mk-effect 'ef_temporary_poison_immunity "Poison immunity" s_im_poison 'poison-immunity-exec nil nil nil add-hook-hook "I" 0 #f 60)
-(mk-effect 'ef_disease_immunity "Disease immunity" s_im_disease 'disease-immunity-exec nil nil nil add-hook-hook "E" 0 #f -1)
-(mk-effect 'ef_temporary_disease_immunity "Disease immunity" s_im_disease 'disease-immunity-exec nil nil nil add-hook-hook "E" 0 #f 60)
-(mk-effect 'ef_paralysis_immunity "Paralysis immunity" s_im_paralyse 'paralysis-immunity-exec nil nil nil add-hook-hook "z" 0 #f -1)
-(mk-effect 'ef_temporary_paralysis_immunity "Paralysis immunity" s_im_paralyse 'paralysis-immunity-exec nil nil nil add-hook-hook "z" 0 #f 60)
-(mk-effect 'ef_charm_immunity "Charm immunity" s_im_charm 'charm-immunity-exec nil nil nil add-hook-hook "c" 0 #f -1)
-(mk-effect 'ef_temporary_charm_immunity "Charm immunity" s_im_charm 'charm-immunity-exec nil nil nil add-hook-hook "c" 0 #f 60)
-(mk-effect 'ef_sleep_immunity "Sleep immunity" s_im_sleep 'sleep-immunity-exec nil nil nil add-hook-hook "s" 0 #f -1)
-(mk-effect 'ef_temporary_sleep_immunity "Sleep immunity" s_im_sleep 'sleep-immunity-exec nil nil nil add-hook-hook "s" 0 #f 60)
+(mk-effect 'ef_poison_immunity "ÆǤؤÎÂÑÀ" s_im_poison 'poison-immunity-exec nil nil nil add-hook-hook "I" 0 #f -1)
+(mk-effect 'ef_temporary_poison_immunity "ÆǤؤÎÂÑÀ" s_im_poison 'poison-immunity-exec nil nil nil add-hook-hook "I" 0 #f 60)
+(mk-effect 'ef_disease_immunity "ɵ¤¤Ø¤ÎÂÑÀ" s_im_disease 'disease-immunity-exec nil nil nil add-hook-hook "E" 0 #f -1)
+(mk-effect 'ef_temporary_disease_immunity "ɵ¤¤Ø¤ÎÂÑÀ" s_im_disease 'disease-immunity-exec nil nil nil add-hook-hook "E" 0 #f 60)
+(mk-effect 'ef_paralysis_immunity "Ëãáã¤Ø¤ÎÂÑÀ" s_im_paralyse 'paralysis-immunity-exec nil nil nil add-hook-hook "z" 0 #f -1)
+(mk-effect 'ef_temporary_paralysis_immunity "Ëãáã¤Ø¤ÎÂÑÀ" s_im_paralyse 'paralysis-immunity-exec nil nil nil add-hook-hook "z" 0 #f 60)
+(mk-effect 'ef_charm_immunity "̥λ¤Ø¤ÎÂÑÀ" s_im_charm 'charm-immunity-exec nil nil nil add-hook-hook "c" 0 #f -1)
+(mk-effect 'ef_temporary_charm_immunity "̥λ¤Ø¤ÎÂÑÀ" s_im_charm 'charm-immunity-exec nil nil nil add-hook-hook "c" 0 #f 60)
+(mk-effect 'ef_sleep_immunity "¿ç̲¤Ø¤ÎÂÑÀ" s_im_sleep 'sleep-immunity-exec nil nil nil add-hook-hook "s" 0 #f -1)
+(mk-effect 'ef_temporary_sleep_immunity "¿ç̲¤Ø¤ÎÂÑÀ" s_im_sleep 'sleep-immunity-exec nil nil nil add-hook-hook "s" 0 #f 60)
;; Nil hooks
-(mk-effect 'ef_fire_immunity "Fire immunity" s_im_fire nil nil nil nil nil-hook "F" 0 #f -1)
-(mk-effect 'ef_temporary_fire_immunity "Fire immunity" s_im_fire nil nil nil nil nil-hook "F" 0 #f 15)
-(mk-effect 'ef_magical_kill_immunity "Magic kill immunity" s_im_death nil nil nil nil nil-hook "K" 0 #f -1)
-(mk-effect 'ef_temporary_magical_kill_immunity "Magic kill immunity" s_im_death nil nil nil nil nil-hook "K" 0 #f 15)
-(mk-effect 'ef_fatigue "Fatigue" s_unrest nil nil nil nil nil-hook "F" 0 #f 1)
-(mk-effect 'ef_unrest_curse "Curse of Unrest" s_unrest nil 'unrest-curse-apply 'unrest-curse-rm 'unrest-curse-apply nil-hook "P" 0 #f (* 60 24))
+(mk-effect 'ef_fire_immunity "²Ð¤Ø¤ÎÂÑÀ" s_im_fire nil nil nil nil nil-hook "F" 0 #f -1)
+(mk-effect 'ef_temporary_fire_immunity "²Ð¤Ø¤ÎÂÑÀ" s_im_fire nil nil nil nil nil-hook "F" 0 #f 15)
+(mk-effect 'ef_magical_kill_immunity "¨»àËâË¡¤Ø¤ÎÂÑÀ" s_im_death nil nil nil nil nil-hook "K" 0 #f -1)
+(mk-effect 'ef_temporary_magical_kill_immunity "¨»àËâË¡¤Ø¤ÎÂÑÀ" s_im_death nil nil nil nil nil-hook "K" 0 #f 15)
+(mk-effect 'ef_fatigue "ÈèÏ«" s_unrest nil nil nil nil nil-hook "F" 0 #f 1)
+(mk-effect 'ef_unrest_curse "ÉÔ̲¤Î¼ö¤¤" s_unrest nil 'unrest-curse-apply 'unrest-curse-rm 'unrest-curse-apply nil-hook "P" 0 #f (* 60 24))
;; Keystroke hooks
-(mk-effect 'ef_drunk "Drunk" s_drunk 'drunk-exec 'drunk-apply 'drunk-rm nil keystroke-hook "A" 0 #t 60)
-(mk-effect 'ef_paralyze "Paralyzed" s_paralyse 'paralyze-exec 'paralyze-apply nil 'paralyze-apply start-of-turn-hook "Z" 0 #f 15)
-(mk-effect 'ef_ensnare "Ensnared" s_tangle 'ensnare-exec 'ensnare-apply nil 'ensnare-apply keystroke-hook "E" 0 #f 15)
-(mk-effect 'ef_stuck "Stuck" s_tangle 'stuck-exec 'stuck-apply nil 'stuck-apply keystroke-hook "E" 0 #f 15)
+(mk-effect 'ef_drunk "îÉîÄ" s_drunk 'drunk-exec 'drunk-apply 'drunk-rm nil keystroke-hook "A" 0 #t 60)
+(mk-effect 'ef_paralyze "Ëãáã" s_paralyse 'paralyze-exec 'paralyze-apply nil 'paralyze-apply start-of-turn-hook "Z" 0 #f 15)
+(mk-effect 'ef_ensnare "Íí¤Þ¤ê" s_tangle 'ensnare-exec 'ensnare-apply nil 'ensnare-apply keystroke-hook "E" 0 #f 15)
+(mk-effect 'ef_stuck "¹Åľ" s_tangle 'stuck-exec 'stuck-apply nil 'stuck-apply keystroke-hook "E" 0 #f 15)
;; On-damage hooks
-(mk-effect 'ef_split "Split" nil 'split-exec nil nil nil on-damage-hook "" 0 #f -1)
-(mk-effect 'ef_grow_head "XP from damage" nil 'grow-head-exec nil nil 'grow-head-exec on-damage-hook "H" 0 #f -1)
-(mk-effect 'ef_temporary_grow_head "XP from damage" nil 'grow-head-exec nil nil 'grow-head-exec on-damage-hook "H" 0 #f 15)
+(mk-effect 'ef_split "ʬÎö" nil 'split-exec nil nil nil on-damage-hook "" 0 #f -1)
+(mk-effect 'ef_grow_head "À®Ä¹" nil 'grow-head-exec nil nil 'grow-head-exec on-damage-hook "H" 0 #f -1)
+(mk-effect 'ef_temporary_grow_head "À®Ä¹" nil 'grow-head-exec nil nil 'grow-head-exec on-damage-hook "H" 0 #f 15)
;; Ready-equip hooks
(define (apply-poison obj)
(if (obj-is-char? obj)
(cond ((not (has-poison-immunity? obj))
- (kern-log-msg (kern-obj-get-name obj) " poisoned!")
+ (kern-log-msg (kern-obj-get-name obj) "¤ÏÆǤËÈȤµ¤ì¤¿¡ª")
(kern-obj-add-effect obj ef_poison nil))
(else
- (kern-log-msg (kern-obj-get-name obj) " immune to poison!"))))
+ (kern-log-msg (kern-obj-get-name obj) "¤ÏÆǤؤÎÂÑÀ¤¬¤¢¤ë¡ª"))))
obj)
;; Used by species that are inherently immune:
(if (obj-is-char? kchar)
(let ((arms (kern-char-get-arms kchar)))
(if (null? arms)
- (kern-log-msg "Acid has no effect!")
+ (kern-log-msg "»À¤Ï¸ú¤«¤Ê¤«¤Ã¤¿¡ª")
(let ((ktype (random-select arms)))
(if (in-list? ktype arms-immune-to-acid)
- (kern-log-msg "Acid hits " (kern-type-get-name ktype) " but has no effect!")
+ (kern-log-msg "»À¤Ï" (kern-type-get-name ktype) "¤ËÌ¿Ã椷¤¿¤¬¸ú¤«¤Ê¤«¤Ã¤¿¡ª")
(begin
- (kern-log-msg "Acid dissolves 1 " (kern-type-get-name ktype)
- " held by " (kern-obj-get-name kchar))
+ (kern-log-msg "»À¤Ï" (kern-obj-get-name kchar)
+ "¤Î»ý¤Ä" (kern-type-get-name ktype) "¤òÍϤ«¤·¤¿¡ª")
(kern-char-unready kchar ktype)
(kern-obj-remove-from-inventory kchar ktype 1))))))))
(begin
(if (kern-obj-is-being? obj)
(begin
- (kern-log-msg (kern-obj-get-name obj) " burned!")
+ (kern-log-msg (kern-obj-get-name obj) "¤Ï±ê¤ËÊñ¤Þ¤ì¤¿¡ª")
(kern-obj-apply-damage obj "burning" damage)
)
))
(not (kern-obj-is-being? kobj)))
(not (and (obj-is-char? kobj) (kchar-in-vehicle? kobj)))
(eqv? pclass-space (kern-terrain-get-pclass (kern-place-get-terrain (kern-obj-get-location kobj)))))
- (kern-log-msg (kern-obj-get-name kobj) " drops into the abyss!")
+ (kern-log-msg (kern-obj-get-name kobj) "¤ÏÃϤÎÄì¤Ø¤ÈžÍ¤¿¡ª")
(if (obj-is-char? kobj)
(kern-char-kill kobj)
(kern-obj-remove kobj)))))
(= 0 (cadr dir))))
(begin
(kern-obj-move obj (- (car dir)) (- (cadr dir)))
- (kern-log-msg "Slipped!")
+ (kern-log-msg "³ê¤Ã¤¿¡ª")
(kern-obj-apply-damage obj "slipped" (kern-dice-roll "1d4")))))))))
;; TODO: multiply damage by kern-ticks-per-turn?
(define (apply-lightning obj)
(if (kern-obj-is-being? obj)
(begin
- (kern-log-msg (kern-obj-get-name obj) " shocked!")
+ (kern-log-msg (kern-obj-get-name obj) "¤Ï´¶ÅŤ·¤¿¡ª")
(kern-obj-apply-damage obj "shocked" (kern-dice-roll "2d8")))
))
(kern-obj-remove-effect ktarg ef_torchlight))
(define (wind-trap ktarg)
- (kern-log-msg "A gust of wind!")
+ (kern-log-msg "ÆÍÉ÷¤¬¿á¤¤¤¿¡ª")
(douse ktarg)
#f ;; prevents removal of trigger
)
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; The schedule below is for the place "Enchanter's Tower Ground Floor"
+;; ËâÆ»»Õ¤ÎÅã¤Î1³¬
;;
-;; (The fact that he never visits the second floor of his own tower
-;; should serve as an incentive for us to eventually get multi-place
-;; schedules working :-)
+;; (Èà¤Ï¼«Ê¬¤ÎÅã¤Î2³¬¤òˬ¤ì¤ë¤³¤È¤Ï¤Ê¤¤¤¬¡¢¤½¤ì¤Ï»ä¤¿¤Á¤ËÊ£¿ô¤Î¾ì½ê¤Î¥¹¥±¥¸¥å
+;; ¡¼¥ë¤ò¤¤¤º¤ì¤Ïºî¤é¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤È»×¤ï¤»¤ëÆ°µ¡ÉÕ¤±¤Ë¤Ê¤Ã¤Æ¤¤¤ë :-)
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_enchanter
(list 0 0 enchtwr-ench-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; The Enchanter is a powerful Mage, and one of the Wise.
-;; He lives in the Enchanter's Tower.
-;; He plays an important role in multiple stages of the main quest.
+;; ËâÆ»»Õ¤ÏÎϤΤ¢¤ëËâ½Ñ»Õ¤Ç¡¢¸¼Ô¤Î°ì¿Í¤Ç¤¢¤ë¡£
+;; Èà¤ÏËâÆ»»Õ¤ÎÅã¤Ë½»¤ó¤Ç¤¤¤ë¡£
+;; Èà¤Ï¼çÍפÊËÁ¸±¤Î¿¤¯¤Ç½ÅÍפÊÌò³ä¤ò±é¤¸¤ë¡£
;;----------------------------------------------------------------------------
(define (ench-hail knpc kpc)
(let ((ench (gob knpc)))
;; Fourth Quest -- open the demon gate
(define (check-fourth-quest)
- (say knpc "Have you found the location of the Demon Gate?")
+ (say knpc "°Ëâ¤ÎÌç¤Î¾ì½ê¤Ï¤ï¤«¤Ã¤¿¤«¡©")
(if (yes? kpc)
(begin
- (say knpc "And have you found the locks which the Rune-keys will open?")
+ (say knpc "¤Ê¤é¤ÐÀÐÈǤθ°¤Ç³«¤±¤ë¾û¤Ï¸«¤Ä¤«¤Ã¤¿¤«¡©")
(if (yes? kpc)
- (say knpc "So you are just fooling around, wasting time. I see.")
- (say knpc "I would expect them to appear as altars in a shrine. "
- "The shrine may be hidden, perhaps revealing itself with a "
- "password. Find and search the Accursed, "
- "they must have had a clue.")))
- (say knpc "Search well the library at Absalot.")))
+ (say knpc "¤Ê¤Î¤Ë¤³¤Î¤¢¤¿¤ê¤ò¤¦¤í¤Ä¤¤¤Æ»þ´Ö¤ò̵Â̤ˤ·¤Æ¤¤¤ë¤Î¤«¡£")
+ (say knpc "¤½¤ì¤Ï¶²¤é¤¯»û±¡¤Îº×ÃŤΤ褦¤Ê¤â¤Î¤Ç¤¢¤í¤¦¡£"
+ "»û±¡¤Ï±£¤µ¤ì¡¢¤â¤·¤«¤¹¤ë¤È°Å¹æ¤Ç»Ñ¤ò¸½¤¹¤«¤â¤·¤ì¤Ê¤¤¡£"
+ "¼ö¤ï¤ì¤¿¼Ô¤òõ¤·Ä´¤Ù¤è¡£Èà¤é¤Ï¼ê¤¬¤«¤ê¤òÃΤäƤ¤¤ë¤Ë°ã¤¤¤Ê¤¤¡£")))
+ (say knpc "¥¢¥Ö¥µ¥í¥Ã¥È¤Î¿Þ½ñ´Û¤ò¤è¤¯Ãµ¤¹¤Î¤À¡£")))
;; Third Quest -- find all the Runes
(define (finish-third-quest)
- (say knpc "You have found all the Runes! "
- "Well, it couldn't have been all that hard. ")
+ (say knpc "ÀÐÈǤòÁ´¤Æ¸«¤Ä¤±¤¿¤Î¤À¤Ê¡ª"
+ "¤¦¤à¡¢¤³¤Î¾å¤Ê¤¯º¤Æñ¤À¤Ã¤¿¤Ç¤¢¤í¤¦¡£")
(prompt-for-key)
- (say knpc "I have one last task for you. "
- "You must find the Demon Gate and re-open it. "
- "Do you know where to find it?")
+ (say knpc "ºÇ¸å¤ÎǤ̳¤À¡£"
+ "°Ëâ¤ÎÌç¤òõ¤·½Ð¤·¡¢¤½¤ì¤òºÆ¤Ó³«¤«¤Í¤Ð¤Ê¤é¤Ê¤¤¡£"
+ "¾ì½ê¤Ï¤ï¤«¤Ã¤Æ¤¤¤ë¤«¡©")
(if (yes? kpc)
- (say knpc
- "I don't know what you will face, "
- "so prepare yourself well, "
- "and take anyone foolish enough to join you. "
- )
- (say knpc "The Accursed must have some idea, "
- "and the library of Absalot may yet hold some clue. "
- "Search well.")
+ (say knpc "Æò¤¬²¿¤ÈľÌ̤¹¤ë¤«¤Ï¤ï¤«¤é¤Ì¡£"
+ "¼«¿È¤Ç¤è¤¯È÷¤¨¤è¡£"
+ "¤½¤·¤ÆÆò¤ÎÃç´Ö¤Ë¤Ê¤ë¤Û¤É¤Î¶ò¤«¼Ô¤òÏ¢¤ì¤Æ¤æ¤±¡£")
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¤¬²¿¤«ÃΤäƤ¤¤¿¤Ë°ã¤¤¤Ê¤¤¡£"
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤Î¿Þ½ñ´Û¤Ë¤Ï¤Þ¤À¼ê¤¬¤«¤ê¤¬»Ä¤Ã¤Æ¤¤¤ë¤«¤âÃΤì¤Ì¡£"
+ "¤è¤¯Ä´¤Ù¤ë¤Î¤À¡£")
)
(quest-done! (ench-quest ench 3) #t)
(kern-char-add-experience kpc 100)
(not (eqv? ktype t_rune_s)))
rune-types)))
(cond
- ((missing-only-s-rune?)
- (say knpc "You appear to have found most of the Runes now.")
+ ((has-all-runes? kpc)
+ (finish-third-quest)
+ )
+
+ ((missing-only-s-rune? kpc)
+ (say knpc "¤Û¤È¤ó¤É¤ÎÀÐÈǤò¸«¤Ä¤±¤¿¤è¤¦¤À¤Ê¡£")
(prompt-for-key)
- (say knpc "Hmmm.")
+ (say knpc "¤¦¤à¡Ä¡£")
(prompt-for-key)
- (say knpc "I hesitated to raise this before, but it may be within your abilities after all.")
+ (say knpc "¤³¤Î¤³¤È¤ò¸À¤¦¤Î¤Ïí´í°¤·¤Æ¤¤¤¿¡£¤À¤¬¡¢Æò¤ÎǽÎϤʤé¤Ç¤¤ë¤Ç¤¢¤í¤¦¡£")
(prompt-for-key)
- (say knpc "We know that the Accursed also seek the runes. We should consider ourselves fortunate if only one has fallen into their clutches.")
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¤¿¤Á¤â¤Þ¤¿ÀÐÈǤòõ¤·¤Æ¤¤¤ë¡£Èà¤é¤Î¼ê¤ÎÃæ¤Ë¤Ï¤¿¤Ã¤¿°ì¤Ä¤·¤«¤Ê¤¤¤³¤È¤ò¹¬±¿¤Ë»×¤ï¤Í¤Ð¤Ê¤ë¤Þ¤¤¡£")
(prompt-for-key)
- (say knpc "You will need to seek it in the very lair of our enemies: the ruins of Absalot.")
+ (say knpc "²æ¤é¤ÎŨ¤ÎÃæ¿´ÃÏ¡¢¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÇÑÔÒ¤òÄ´¤Ù¤Í¤Ð¤Ê¤é¤Ì¤Ç¤¢¤í¤¦¡£")
(quest-data-assign-once 'questentry-rune-s)
)
- ((has-all-runes? kpc)
- (finish-third-quest)
- (say knpc "Return when you have found all the Runes. "
- "Consult with the other Wise, they may have clues about where to find the Runes.")
- ))
- )
+ (else
+ (say knpc "Á´¤Æ¤ÎÀÐÈǤò¸«¤Ä¤±¤¿¤éÌá¤Ã¤ÆÍ褿¤Þ¤¨¡£"
+ "¾¤Î¸¼Ô¤Ë½õ¸À¤òµá¤á¤è¡£Èà¤é¤ÏÀÐÈǤξì½ê¤Î¼ê¤¬¤«¤ê¤ò»ý¤Ã¤Æ¤¤¤ë¤«¤âÃΤì¤Ì¡£")
+ )
+ )
+ )
;; Second Quest -- find out what the Runes are for
(define (second-quest-spurned)
- (say knpc "It is the duty of all good men to stand up to evil. I "
- "don't have time for sluggards or cynics. Now give me my rune, "
- "take your reward and get out!")
+ (say knpc "¤³¤ì¤Ï°¤ÈΩ¤Á¸þ¤«¤¦Á±¤Ê¤ë¼Ô¤ÎµÁ̳¤Ç¤¢¤ë¡£"
+ "ÂÕÂƤÈÎä¾Ð¤ËÈñ¤ä¤¹»þ´Ö¤Ï¤Ê¤¤¡£»ä¤ÎÀÐÈǤòÅϤ·¤Ê¤µ¤¤¡£"
+ "Êó½·¤ò¼õ¤±¼è¤Ã¤¿¤é½Ð¤Æ¹Ô¤¤¿¤Þ¤¨¡ª")
(kern-obj-remove-from-inventory kpc t_rune_k 1)
(kern-obj-add-to-inventory knpc t_rune_k 1)
(quest-accepted! (ench-second-quest ench) #f)
(define (start-second-quest)
(quest-accepted! (ench-second-quest ench) #t)
- (say knpc "Good! First, keep my rune, and guard it well. ")
+ (say knpc "¤è¤í¤·¤¤¡ªÂè°ì¤Ë»ä¤ÎÀÐÈǤò»ý¤Á¡¢¤½¤·¤Æ¼é¤ë¤Î¤À¡£")
(quest-data-update 'questentry-rune-k 'entrusted-with-rune 1)
(prompt-for-key)
- (say knpc "Second, find the other Wise and ask them of the RUNE. "
- "You might start with the Alchemist near Oparine. "
- "Although obscenely greedy, "
- "he has devoted his life to the acquisition of secrets.")
+ (say knpc "ÂèÆó¤Ë¡¢Â¾¤Î¸¼Ô¤¿¤Á¤È²ñ¤¤¡¢ÀÐÈǤˤĤ¤¤Æ¿Ò¤Í¤ë¤Î¤À¡£"
+ "¥ª¥Ñ¡¼¥ê¥ó¤Ë¤¤¤ëÏ£¶â½Ñ»Õ¤«¤é»Ï¤á¤ë¤Î¤¬¤è¤¤¤À¤í¤¦¡£"
+ "¿¿¤ËìÅÍߤʼԤÀ¤¬¡¢"
+ "Ææ¤ò²ò¤ÌÀ¤«¤¹¤³¤È¤Ë¿ÍÀ¸¤òÈñ¤ä¤·¤Æ¤¤¤ë¡£")
(quest-data-assign-once 'questentry-runeinfo)
(quest-wise-subinit 'questentry-alchemist)
(quest-wise-init)
)
(define (offer-second-quest-again)
- (say knpc "You're back. Perhaps you've had an attack of conscience. "
- "It happens to the worst of us. "
- "Now, are you ready to help me thwart the Accursed?")
+ (say knpc "Ìá¤Ã¤Æ¤¤¿¤Ê¡£ÎÉ¿´¤ÎÒêÀÕ¤ò´¶¤¸¤¿¤Î¤«¤â¤·¤ì¤Ì¤Ê¡£"
+ "¤½¤ì¤Ï²æ¡¹¤Ë¤È¤Ã¤ÆºÇ¤â°¤¤¤³¤È¤À¡£"
+ "¤µ¤Æ¡¢¼ö¤ï¤ì¤¿¼Ô¤«¤é»ä¤ò½õ¤±¤ë½àÈ÷¤Ï¤Ç¤¤¿¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
(kern-obj-remove-from-inventory knpc t_rune_k 1)
(kern-obj-add-to-inventory kpc t_rune_k 1)
(start-second-quest))
(begin
- (say knpc "Like a pig to the trough, "
- "a fool returns to his own folly. "
- "Go back to filling your belly!")
+ (say knpc "¤Þ¤ë¤Ç±Â¤Ë¸þ¤«¤¦ÆڤΤ褦¤À¡£"
+ "¶ò¼Ô¤Ï¼«¤é¤Î¶ò¤«¤µ¤Ëµ¢¤ë¡£"
+ "¼«¤é¤ÎÍߤòËþ¤¿¤·¤Ëµ¢¤ë¤¬¤è¤¤¡ª")
(kern-conv-end)))
)
(define (finish-second-quest)
- (say knpc "[He looks very grave] "
- "So my Rune is one of eight keys to the Demon Gate. "
- "Very well, you must find the rest. "
- "The Accursed have a head start on us. "
- "No doubt they already have some of the Runes. "
- "When you have found all the Runes return to me.")
+ (say knpc "¡ÎÈà¤Ï½Å¡¹¤·¤¤ÍͻҤÀ¡£¡Ï"
+ "¤Ä¤Þ¤ê»ä¤ÎÀÐÈǤϰËâ¤ÎÌç¤òÉõ°õ¤¹¤ëȬ¤Ä¤Î¸°¤Î°ì¤Ä¤Ê¤Î¤À¤Ê¡£"
+ "¤è¤í¤·¤¤¡£Æò¤Ï»Ä¤ê¤òõ¤µ¤Í¤Ð¤Ê¤é¤Ì¡£"
+ "¼ö¤ï¤ì¤¿¼Ô¤Ï²æ¡¹¤ÎÀè¤ò¹Ô¤Ã¤Æ¤¤¤ë¡£"
+ "¤¤¤¯¤Ä¤«¤ÎÀÐÈǤò¼ê¤ËÆþ¤ì¤Æ¤¤¤ë¤Î¤Ïµ¿¤¤¤Î;ÃϤâ¤Ê¤¤¡£"
+ "Á´¤Æ¤ÎÀÐÈǤò¸«¤Ä¤±¤¿¤é¡¢»ä¤Î¸µ¤ËÌá¤Ã¤Æ¤¤ÆÍߤ·¤¤¡£")
(quest-done! (ench-second-quest ench) #t)
(quest-data-update 'questentry-runeinfo 'abe 1)
(quest-data-update 'questentry-runeinfo 'keys 1)
)
(define (check-second-quest)
- (say knpc "Have you learned what the Rune is for?")
+ (say knpc "ÀÐÈǤΤ³¤È¤Ï¤ï¤«¤Ã¤¿¤«¤Í¡©")
(if (yes? kpc)
(begin
- (say knpc "Well, what?")
- (let ((reply (kern-conv-get-reply kpc)))
- (if (or (equal? reply 'demo) (equal? reply 'gate) (equal? reply 'key))
+ (say knpc "¤¦¤à¡¢¤½¤ì¤Ï²¿¤«¡©")
+ (let ((reply (kern-conv-get-string kpc)))
+ (if (or (string=? reply "demon") (string=? reply "gate") (string=? reply "key") (string=? reply "¥¢¥¯¥Þ") (string=? reply "¥â¥ó") (string=? reply "¥«¥®"))
(finish-second-quest)
(begin
- (say knpc "I don't think so. Have you asked all of the Wise about the ^c+mrune^c-?")
+ (say knpc "»ä¤Ï¤½¤¦¤Ï»×¤ï¤Ì¡£Á´¤Æ¤Î¸¼Ô¤Ë^c+mÀÐÈÇ^c-¤Ë¤Ä¤¤¤Æ¿Ò¤Í¤¿¤«¡©")
(if (yes? kpc)
- (say knpc "Surely one of them must have given you some clue!")
- (say knpc "Seek them all."))))))
- (say knpc "Ask all the Wise about the ^c+mrune^c-.")))
+ (say knpc "¤Ê¤é¤Ð¤½¤Î¤¦¤Á¤Î°ì¿Í¤¬¼ê¤¬¤«¤ê¤òÍ¿¤¨¤¿¤Ï¤º¤À¡ª")
+ (say knpc "Èà¤éÁ´¤Æ¤òõ¤¹¤Î¤À¡£"))))))
+ (say knpc "Á´¤Æ¤Î¸¼Ô¤Ë^c+mÀÐÈÇ^c-¤Î¤³¤È¤ò¿Ò¤Í¤ë¤Î¤À¡£")))
;; First Quest -- find the stolen Rune
(define (finish-first-quest)
- (say knpc "Ah, I see you've found my Rune at last!")
+ (say knpc "¤ª¤ª¡¢¤Ä¤¤¤Ë»ä¤ÎÀÐÈǤò¸«¤Ä¤±¤¿¤è¤¦¤À¤Ê¡ª")
(kern-obj-add-gold kpc 200)
(quest-data-update-with 'questentry-thiefrune 'done 1 (grant-party-xp-fn 20))
(quest-data-complete 'questentry-thiefrune)
- (say knpc "Perhaps your are not completely useless. "
- "Did you encounter any... resistance?")
+ (say knpc "¾¯¤·¤ÏÌò¤ËΩ¤Ä¤è¤¦¤À¤Ê¡£"
+ "²¿¤«¤Î¡Ä¡ÄÄñ¹³¤Ë²ñ¤Ã¤¿¤«¤Ê¡©")
(kern-conv-get-yes-no? kpc)
- (say knpc "The Accursed were behind this theft. "
- "We must find out what the Rune is for. "
- "Will you help?")
+ (say knpc "Å¥ËÀ¤Î¸å¤í¤Ë¤Ï¼ö¤ï¤ì¤¿¼Ô¤¬¤¤¤ë¡£"
+ "¤³¤ÎÀÐÈǤ¬²¿¤Ê¤Î¤«Ä´¤Ù¤Í¤Ð¤Ê¤é¤Ì¡£"
+ "¼ê¤òÂߤ·¤Æ¤¯¤ì¤ë¤«¡©")
(quest-offered! (ench-second-quest ench) #t)
(if (kern-conv-get-yes-no? kpc)
(start-second-quest)
(define (check-first-quest)
(if (in-inventory? kpc t_rune_k)
(finish-first-quest)
- (say knpc "Hmph. I see you still haven't found my item yet!"
- " [He mutters something about Wanderers and Rogues]")
+ (say knpc "¤à¤à¡£¤Þ¤À¤â¤Î¤ò¸«¤Ä¤±¤Æ¤ª¤é¤Ì¤è¤¦¤À¤Ê¡ª"
+ "¡ÎÈà¤Ï̤¤¿Í¤ÈÃç´Ö¤ò¸«¤ÆÉÔËþ¤²¤Ë¤Ä¤Ö¤ä¤¤¤¿¡£¡Ï")
))
;; Main
(if (ench-met? ench)
(if (quest-done? (ench-quest ench 4))
- (say knpc "Welcome, friend of the Wise")
+ (say knpc "¤è¤¦¤³¤½¡£¸¼Ô¤Îͧ¤è¡£")
(if (quest-accepted? (ench-quest ench 4))
(check-fourth-quest)
(if (quest-accepted? (ench-quest ench 3))
(offer-second-quest-again))
(if (quest-accepted? (ench-first-quest ench))
(check-first-quest)
- (say knpc "Yes, what is it this time?"))))))
+ (say knpc "¤¦¤à¡£º£Å٤ϲ¿¤«¡©"))))))
(begin
(quest-data-update-with 'questentry-calltoarms 'talked 1 (quest-notify (grant-xp-fn 10)))
- (kern-log-msg "This ageless mage looks unsurprised to see you.")
- (say knpc "I was wondering when you would get here. "
- "It took you long enough!")
+ (kern-log-msg "¤³¤ÎǯϷ¤¤¤ë¤³¤È¤¬¤Ê¤¤¤«¤Î¤è¤¦¤ÊËâ½Ñ»Õ¤Ï¡¢¤¢¤Ê¤¿¤ò¸«¤Æ¤â¶Ã¤«¤Ê¤«¤Ã¤¿¡£")
+ (say knpc "¤è¤¯¤¾»²¤é¤ì¤¿¡£"
+ "ÂԤäƤª¤Ã¤¿¤¾¡ª")
(ench-met! ench #t)))))
(define (ench-name knpc kpc)
- (say knpc "I am known as the Enchanter."))
+ (say knpc "ËâÆ»»Õ¤È¤·¤ÆÃΤé¤ì¤Æ¤¤¤ë¡£"))
(define (ench-job knpc kpc)
- (say knpc "I help as I can in the struggle against evil."))
+ (say knpc "²Äǽ¤Ê¸Â¤ê°¤ÈÀ臘¤³¤È¤ò¼ê½õ¤±¤¹¤ë¤³¤È¤Ç¤¢¤ë¡£"))
(define (ench-default knpc kpc)
- (say knpc "I cannot help you with that"))
+ (say knpc "¤½¤ì¤Ï½õ¤±¤é¤ì¤Ì¡£"))
(define (ench-bye knpc kpc)
- (say knpc "Beware the Accursed!"))
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¤Ëµ¤¤ò¤Ä¤±¤è¡ª"))
(define (ench-join knpc kpc)
- (say knpc "No, I belong here. Seek the Warritrix if you desire a powerful "
- "companion."))
+ (say knpc "ÈÝ¡£¤³¤³¤¬»ä¤Î¤¤¤ë¤Ù¤¾ì½ê¤Ç¤¢¤ë¡£"
+ "¶¯¤Ãç´Ö¤òµá¤á¤ë¤Ê¤é¡¢Æ®»Î¤òõ¤¹¤Î¤¬¤è¤¤¤À¤í¤¦¡£"))
(define (ench-warr knpc kpc)
- (say knpc "The Warritrix is Wise and fierce, "
- "and like yourself prone to Wandering. "
- "In fact, at the moment I don't know where she is. "
- "Try Glasdrin.")
+ (say knpc "Æ®»Î¤Ï¹Ó¡¹¤·¤¤¸¼Ô¤Ç¤¢¤ë¡£"
+ "¤½¤·¤ÆÆò¤Î¤è¤¦¤ËÊüϲ¤·¤Æ¤¤¤ë¡£"
+ "¼ÂºÝ¤Î¤È¤³¤í¡¢º£¤É¤³¤ËÈà½÷¤¬¤¤¤ë¤Î¤«¤ÏÃΤé¤Ì¡£"
+ "¥°¥é¥¹¥É¥ê¥ó¤Øʹ¤±¤Ð¤è¤«¤í¤¦¡£")
(quest-wise-subinit 'questentry-warritrix)
(quest-data-update 'questentry-warritrix 'general-loc 1)
)
(define (ench-wand knpc kpc)
- (say knpc "Yes, I've met your type before. Unpredictable. "
- "And as to whether you are good or evil, that depends upon you."))
+ (say knpc "Á³¤ê¡£¤«¤Ä¤Æ²ñ¤Ã¤¿¤³¤È¤¬¤¢¤ë¡£Í½´ü¤»¤Ì¤³¤È¤Ç¤¢¤Ã¤¿¡£"
+ "Æò¤¬Á±¤È¤Ê¤ë¤«°¤È¤Ê¤ë¤«¤Ï¡¢Æò¤·¤À¤¤¤Ç¤¢¤ë¡£"))
(define (ench-offer-first-quest knpc kpc)
- (say knpc "I do not quibble over definitions of good and evil. "
- "They are easily recognized when encountered. "
- "Do you intend to do good while you are here?")
+ (say knpc "Á±¤È¤Ï¡¢°¤È¤Ï²¿¤«¡£¤½¤ÎÄêµÁ¤ò¤´¤Þ¤«¤·¤¿¤ê¤Ï¤·¤Ê¤¤¡£"
+ "¤½¤ì¤Ï½Ð²ñ¤¨¤ÐÍưפ˶èÊ̤Ǥ¤ë¡£"
+ "Æò¤Ï¤³¤ÎÃϤÇÁ±¤¹Ô¤¤¤ò¤Ê¤¹¤Ä¤â¤ê¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player intends to do good
(begin
- (say knpc "Then you will find me to be your ally. "
- "But beware! Many who claim to be good are not, "
- "or fail when put to the test. Are you ready to be tested?")
+ (say knpc "¤Ê¤é¤ÐÆò¤ÎÎÏ¤È¤Ê¤í¤¦¡£"
+ "¤À¤¬µ¤¤ò¤Ä¤±¤è¡ªÂ¿¤¯¤ÎÁ±¤ò¼çÄ¥¤¹¤ë¼Ô¤Ï¡¢¼ÂºÝ¤Ë¤Ï¤½¤¦¤Ç¤Ê¤¤¡£"
+ "¤½¤·¤Æ»îÎý¤ÇæÍ¤ë¡£Æò¤Ë¤Ï»îÎý¤ò¼õ¤±¤ë³Ð¸ç¤¬¤¢¤ë¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player is ready to be tested
(begin
- (say knpc "Very well. An item was recently stolen from me. "
- "I need someone to find the thief, "
- "recover the item and return it to me. Are you willing?")
+ (say knpc "¤è¤í¤·¤¤¡£ºÇ¶á¤¢¤ë¤â¤Î¤òÅð¤Þ¤ì¤¿¡£"
+ "Å¥ËÀ¤ò¸«¤Ä¤±½Ð¤·¡¢¤½¤ì¤ò¼è¤êÌ᤹¼Ô¤ò¸«¤Ä¤±¤Í¤Ð¤Ê¤é¤Ê¤«¤Ã¤¿¤Î¤À¡£"
+ "°ú¤¼õ¤±¤ë¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes -- player is willing
(begin
- (say knpc "Good! Rangers have tracked the thief to "
- "Trigrave. Go there and inquire about a ^c+mthief^c-.")
+ (say knpc "¤è¤í¤·¤¤¡ª·ÙÈ÷Ââ¤ÏÅ¥ËÀ¤òÄɤäƥȥꥰ¥ì¥¤¥Ö¤Ø¤È¸þ¤«¤Ã¤¿¡£"
+ "¤½¤³¤Ø¹Ô¤^c+mÅ¥ËÀ^c-¤Ë¤Ä¤¤¤Æ¿Ò¤Í¤ë¤È¤è¤¤¤À¤í¤¦¡£")
(quest-data-assign-once 'questentry-thiefrune)
(quest-data-complete 'questentry-calltoarms)
;; if you dont read the letter, you might not get the quest till now!
(quest-accepted! (ench-first-quest (gob knpc)) #t)
)
;; no -- player is not willing
- (say knpc "Perhaps I misjudged you.")))
+ (say knpc "Æò¤ò¸«¸í¤Ã¤¿¤«¤â¤·¤ì¤Ì¡£")))
;; no -- player is not ready
- (say knpc "It is not enough to speak of doing good, one cannot "
- "BE good without DOING good.")))
+ (say knpc "Á±¤ò¤Ê¤¹¤³¤È¤Ë¤Ä¤¤¤ÆÏ乤À¤±¤Ç¤ÏÉÔ½½Ê¬¤Ç¤¢¤ë¡£"
+ "Á±¤ò¤Ê¤¹¤³¤È¤Ê¤·¤Ë¡¢Á±¤Ë¤Ê¤ë¤³¤È¤Ï¤Ç¤¤Ì¡£")))
;; no -- player does not intend to do good
- (say knpc "We shall see. Evil men can do good without meaning to, "
- "and men who would be callous find they can't ignore their "
- "conscience.")))
+ (say knpc "¤ï¤«¤Ã¤¿¡£°¤·¤¼Ô¤ÏÁ±¤ò¤½¤Î°ÕÌ£¤ò¤ï¤«¤é¤º¤Ê¤¹¤³¤È¤¬¤Ç¤¤ë¡£"
+ "¤½¤·¤ÆÎäø¤Ê¼Ô¤Ï¤½¤ÎÎÉ¿´¤ò̵»ë¤Ç¤¤Ì¤³¤È¤Ëµ¤¤Å¤¯¤À¤í¤¦¡£")))
(define (ench-good knpc kpc)
(if (quest-accepted? (ench-first-quest (gob knpc)))
- (say knpc "The wicked flee when no one pursues, but the righteous are "
- "bold as dragons.")
+ (say knpc "°¤ÏÄɤ¦¼Ô¤¬¤¤¤Ê¤±¤ì¤Ðƨ¤²¤ë¤â¤Î¤Ç¤¢¤ë¡£"
+ "¤À¤¬¡¢Á±¤Ïε¤Î¤´¤È¤¯¶¯¤¤¡£")
(ench-offer-first-quest knpc kpc)))
(define (ench-gate knpc kpc)
- (say knpc "There are many gates in the land which connect to "
- "one another and appear with the moons. "
- "But the Shrine Gate is the only one I know of for certain that connects with "
- "other worlds."))
+ (say knpc "¤³¤ÎÃϤˤϷî¤È¶¦¤Ë¸½¤ì¤ë¾Êý¤È¤Ä¤Ê¤¬¤Ã¤¿Â¿¿ô¤ÎÌ礬¤¢¤ë¡£"
+ "¤À¤¬¡¢º×ÃŤÎÌç¤Ï°ì¤Ä¤·¤«¤Ê¤¯¡¢»ä¤¬ÃΤäƤ¤¤ë³Î¼Â¤Ê¤³¤È¤Ï¡¢Ê̤ÎÀ¤³¦¤È¤Ä¤Ê¤¬¤Ã¤Æ¤¤¤ë¤È¤¤¤¦¤³¤È¤À¤±¤À¡£"))
(define (ench-wise knpc kpc)
- (say knpc "The Wise are the most powerful Warriors, Wizards, Wrights and "
- "Wrogues in the land. Although they function to protect the Shard, "
- "they are not all good."))
+ (say knpc "¸¼Ô¤Ï¤³¤ÎÃϤǺǤâÎϤΤ¢¤ëÀï»Î¡¢Ëâ½Ñ»Õ¡¢¿¦¿Í¡¢¤½¤·¤Æ¤Ê¤é¤º¼Ô¤Ç¤¢¤ë¡£"
+ "¤½¤ÎÌòÌܤϥ·¥ã¥ë¥É¤ò¼é¤ë¤³¤È¤Ç¤¢¤ë¤Ë¤â¤«¤«¤ï¤é¤º¡¢Á´¤Æ¤¬Á±¤¼Ô¤Ç¤¢¤ë¤ï¤±¤Ç¤Ï¤Ê¤¤¡£"))
(define (ench-accu knpc kpc)
- (say knpc "The Accursed are an evil secret society, responsible for many "
- "crimes and atrocities. With the destruction of Absalot I thought "
- "they were finished. I was wrong. I fear now their number and "
- "strength is greater than ever before."))
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¤Ï°¤Î½¸ÃĤǡ¢¿ô¿¤¯¤ÎÈȺá¤È»ÄµÔ¹Ô°Ù¤Ë´Ø¤ï¤Ã¤Æ¤¤¤ë¡£"
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÊø²õ¤ÇÈà¤é¤Ï½ªßᤷ¤¿¤Ï¤º¤À¤Ã¤¿¡£"
+ "¤À¤¬°ã¤Ã¤¿¡£"
+ "»ä¤ÏÈà¤é¤ÎÎϤ¬¤è¤ê¶¯Âç¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤³¤È¤ò¶²¤ì¤Æ¤¤¤ë¡£"))
(define (ench-moon knpc kpc)
- (say knpc "Ask Kalcifax the Traveler of moongates. "
- "She is quite the expert."))
+ (say knpc "·î¤ÎÌç¤Î¤³¤È¤Ï¥«¥ë¥·¥Õ¥¡¥¯¥¹¤Ë¿Ò¤Í¤è¡£"
+ "Èà½÷¤Ï¤è¤¯ÃΤäƤ¤¤ë¡£"))
(define (ench-shri knpc kpc)
- (say knpc "The Shrine Gate opens unpredictably, and only for a short time. "
- "Those who enter never return, "
- "and those who emerge are strangers and Wanderers like yourself."))
+ (say knpc "º×ÃŤÎÌç¤Ï¤¤¤Ä³«¤¯¤Î¤«¡¢¤½¤ì¤Ïͽ¬¤Ç¤¤Ê¤¤¡£¤½¤·¤Æ³«¤¯¤Î¤Ï¾¯¤·¤Î´Ö¤À¤±¤À¡£"
+ "¤½¤³¤ËÆþ¤Ã¤¿¤â¤Î¤Ï·è¤·¤ÆÌá¤Ã¤Æ¤³¤Ê¤¤¡£"
+ "¤½¤·¤ÆÆò¤Î¤è¤¦¤Ê̤¤¿Í¤¬»Ñ¤ò¸½¤¹¤³¤È¤¬¤¢¤ë¡£"))
(define (ench-rune knpc kpc)
- (say knpc "The rune was passed to me by my master long ago. "
- "He did not know what it was for, and for all my research I never "
- "found its purpose, either. I decided it was an unimportant old relic. "
- "Why else would it not be mentioned in any of the arcane tomes or "
- "histories?"))
+ (say knpc "¤³¤ÎÀÐÈǤϱó¤¤Àλվ¢¤«¤é¼õ¤±¼è¤Ã¤¿Êª¤À¡£"
+ "»Õ¾¢¤Ï¤³¤ì¤¬²¿¤Î¤¿¤á¤Ë¤¢¤ë¤«ÃΤé¤Ê¤«¤Ã¤¿¡£»ä¤âÄ´¤Ù¤¿¤¬¤½¤ÎÌÜŪ¤ÏÁ´¤¯¤ï¤«¤é¤Ê¤«¤Ã¤¿¡£"
+ "¤³¤ì¤Ï½ÅÍפǤϤʤ¤°äʪ¤È»×¤Ã¤Æ¤¤¤¿¡£"
+ "¤Ê¤¼ËܤäÎò»Ë¤Ë¤Ï¤³¤ì¤Ë´Ø¤¹¤ëµ½Ò¤¬Á´¤¯¤Ê¤¤¤Î¤À¤í¤¦¤«¡©"))
(define (ench-wiza knpc kpc)
- (say knpc "The Warrior, Wright and Wrogue all derive some power from their "
- "knowledge of the physical world. But a Wizard's power comes from his "
- "knowledge of the magical world."))
+ (say knpc "Àï»Î¡¢¿¦¿Í¡¢¤Ê¤é¤º¼Ô¤ÎÎϤϤߤʿÈÂÎÀ¤³¦¤ÎÃ챤«¤éÍè¤ë¤â¤Î¤Ç¤¢¤ë¡£"
+ "¤À¤¬¡¢Ëâ½Ñ»Õ¤ÎÎϤÏËâ½ÑÀ¤³¦¤«¤éÍè¤ë¤â¤Î¤Ç¤¢¤ë¡£"))
(define (ench-know knpc kpc)
- (say knpc "Just as a blind man cannot perceive colors, those without the "
- "Inner Eye cannot perceive the forces of magic. But those who have "
- "opened the Eye perceive causes and effects invisible to others."))
+ (say knpc "Ìܤ諤¨¤Ì¼Ô¤Ï¿§¤òÍý²ò¤¹¤ë¤³¤È¤Ï¤Ç¤¤Ê¤¤¤è¤¦¤Ë¡¢"
+ "Æâ¤Ê¤ëÌܤΤʤ¼Ô¤ÏËâ½Ñ¤ÎÎϤòÍý²ò¤¹¤ë¤³¤È¤Ï¤Ç¤¤Ì¡£"
+ "¤À¤¬¡¢¤½¤ÎÌܤò³«¤¤¤¿¼Ô¤Ï¡¢Ìܤ˸«¤¨¤Ì¸¶°ø¤È·ë²Ì¤òÍý²ò¤¹¤ë¤³¤È¤¬¤Ç¤¤è¤¦¡£"))
(define (ench-wrog knpc kpc)
- (say knpc "The Wisest of Wrogues is The MAN, who comes and goes as if on "
- "the wind. If the MAN has a home, it is well-hidden. Ask around, "
- "perhaps your inquiries will prompt a meeting.")
+ (say knpc "ºÇ¤â¸¤¤Ê¤é¤º¼Ô¤Ï¤Ë¤ó¤²¤ó¤Ç¡¢É÷¤Ë¿á¤«¤ì¤Æ¹Ô¤µ¢¤ê¤·¤Æ¤¤¤ë¡£"
+ "¤Ë¤ó¤²¤ó¤Ëµ¢¤ë¤Ù¤¾ì½ê¤¬¤¢¤ë¤È¤¹¤ì¤Ð¡¢¤½¤ì¤Ï¹ªÌ¯¤Ë±£¤µ¤ì¤Æ¤¤¤ë¤À¤í¤¦¡£"
+ "¼þ¤ê¤Î¼Ô¤Ë¿Ò¤Í¤è¡£Íߤ¹¤ë¼Ô¤È¤Ï´û¤Ë²ñ¤Ã¤Æ¤¤¤ë¤«¤âÃΤì¤Ì¡£")
(quest-wise-subinit 'questentry-the-man)
(quest-data-update 'questentry-the-man 'common 1)
)
(define (ench-wrig knpc kpc)
- (say knpc "The Wisest Wright prefers to work in isolation. You may find him "
- "if you are persistent, but not in any city. "
- "Seek the mage Kalcifax, I think she knows the Engineer well.")
+ (say knpc "ºÇ¤â¸¤¿¦¿Í¤Ï¸ÉÆȤò¹¥¤à¡£"
+ "¤¤¤º¤ìÈà¤ò¸«¤Ä¤±¤ë¤³¤È¤¬¤Ç¤¤è¤¦¤¬¡¢¤½¤ì¤ÏÄ®¤ÎÃæ¤Ç¤Ï¤Ê¤¤¤À¤í¤¦¡£"
+ "Ëâ½Ñ»Õ¤Î¥«¥ë¥·¥Õ¥¡¥¯¥¹¤òõ¤»¡£Èà½÷¤Ïµ»»Õ¤Î¤³¤È¤ò¤è¤¯ÃΤäƤ¤¤ë¡£")
(quest-wise-subinit 'questentry-engineer)
(quest-data-update 'questentry-engineer 'kalcifax 1)
)
(define (ench-necr knpc kpc)
- (say knpc "The most depraved and wicked of all the Wise, "
- "my nemesis the Necromancer abides somewhere in the underworld. "
- "He is powerful, deceitful and corrupt beyond redemption.")
+ (say knpc "Á´¤Æ¤Î¸¼Ô¤ÎÃæ¤ÇºÇ¤âÂÄÍ¤¿¼Ù°¤Ê¼Ô¤À¡£"
+ "¤ï¤¬½ÉŨ¡¢»àÎî½Ñ»Õ¤ÏÃϲ¼¤ÎÀ¤³¦¤ËÀø¤ó¤Ç¤¤¤ë¡£"
+ "Èà¤Ï¶¯Âç¤Ç¡¢µ¶¤ê¤ÈÉåÇÔ¤ò¼õ¤±Æþ¤ì¤¿¼Ô¤À¡£")
(quest-wise-subinit 'questentry-necromancer)
(quest-data-update 'questentry-necromancer 'general-loc 1)
)
(define (ench-alch knpc kpc)
- (say knpc "The Alchemist keeps a lab near Oparine. "
- "He is greedy and very cunning, so be wary of him.")
+ (say knpc "Ï£¶â½Ñ»Õ¤Ï¥ª¥Ñ¡¼¥ê¥ó¤Ë¤¤¤ë¡£"
+ "Èà¤ÏÍß¿¼¤¯¡¢¤È¤Æ¤âàÄàѤÀ¡£Èà¤Ë¤Ïµ¤¤ò¤Ä¤±¤Í¤Ð¤Ê¤é¤Ì¡£")
(quest-wise-subinit 'questentry-alchemist)
(quest-data-update 'questentry-alchemist 'oparine 1)
)
;;in case quest generated once in progress
(quest-data-assign-once 'questentry-thiefrune)
(if (quest-done? (ench-first-quest (gob knpc)))
- (say knpc "Although a nuisance, he was only a middleman. "
- "I hope you did not treat him too harshly.")
- (say knpc "The thief who stole my item must be very clever. The rangers "
- "lost his trail in Trigrave. Inquire among everyone there if they "
- "have seen the ^c+mthief^c-.")))
+ (say knpc "ÌÂÏǤʤâ¤Î¤À¤¬¡¢Èà¤Ïñ¤Ê¤ëÃç²ð¼Ô¤Ç¤¢¤í¤¦¡£"
+ "Èà¤ò¤¢¤Þ¤ê¤Ë¸·¤·¤¯°·¤ï¤Ê¤¤¤³¤È¤ò˾¤à¡£")
+ (say knpc "¤â¤Î¤òÅð¤ó¤À¤½¤ÎÅ¥ËÀ¤ÏÈó¾ï¤Ë¹ª¤ß¤Ç¤¢¤í¤¦¡£"
+ "·ÙÈ÷Ââ°÷¤Ï¥È¥ê¥°¥ì¥¤¥Ö¤Ç¸«¼º¤Ã¤¿¡£"
+ "²ñ¤Ã¤¿¼Ô¤Ë^c+mÅ¥ËÀ^c-¤Ë¤Ä¤¤¤Æ¿Ò¤Í¤è¡£")))
(define (ench-kalc knpc kpc)
- (say knpc "Kalcifax? She's rather hard to keep track of I'm afraid."))
+ (say knpc "¥«¥ë¥·¥Õ¥¡¥¯¥¹¡©»ÄÇ°¤À¤¬Èà½÷¤Îµï¾ì½ê¤Ï¤ï¤«¤é¤Ê¤¤¡£"))
(define (ench-demo knpc kpc)
- (say knpc "The Demon Gate is a legendary gate that wizards of old used to cross into other worlds. "
- "Then, for reasons that vary in the telling, it was lost or sealed or forgotten or destroyed. "
- "I always thought it a fiction."))
+ (say knpc "°Ëâ¤ÎÌç¤Ï¸Å¤Ëâ½Ñ»Õ¤¬Ê̤ÎÀ¤³¦¤Ø¤ÈÅϤ뤿¤á¤Ë»È¤Ã¤¿¤È¤µ¤ì¤ëÅÁÀâ¾å¤ÎÌç¤À¡£"
+ "¤½¤Î¸å¤ÏÍÍ¡¹¤Ê¸À¤¤ÅÁ¤¨¤¬¤¢¤ë¡£¤½¤ì¤Ï¼º¤ï¤ì¤¿¡¢Éõ°õ¤µ¤ì¤¿¡¢Ëº¤ì¤é¤ì¤¿¡¢Ç˲õ¤µ¤ì¤¿¤Ê¤É¤À¡£"
+ "»ä¤Ï¤º¤Ã¤Èºî¤êÏäÀ¤È¹Í¤¨¤Æ¤¤¤¿¡£"))
(define (ench-ench knpc kpc)
- (say knpc "Yes?"))
+ (say knpc "²¿¤«¡©"))
(define enchanter-conv
(ifc basic-conv
(kern-char-arm-self
(kern-mk-char
tag ;;..........tag
- "Enchanter" ;;.......name
+ "ËâÆ»»Õ" ;;.......name
sp_human ;;.....species
oc_wizard ;;.. .occupation
s_old_mage ;;..sprite
))
))
-(mk-obj-type 't_mag_mirror "mirror"
+(mk-obj-type 't_mag_mirror "¶À"
'()
layer-mechanism mag-mirror-ifc)
(lambda (kmirror kuser)
(if (mag-mirror-active? kmirror)
(let ((target-loc (mag-mirror-target-loc kmirror)))
- (kern-log-msg (kern-obj-get-name kuser) " steps through the mirror!")
+ (kern-log-msg (kern-obj-get-name kuser) "¤¬¶À¤«¤é½Ð¤Æ¤¤¿¡ª")
(kern-obj-relocate kuser target-loc nil))
(let ((target-loc (kern-obj-get-location kmirror))
(clone (kern-obj-clone kuser)))
(kern-being-set-base-faction clone faction-monster)
(kern-char-set-ai clone 'spell-sword-ai)
(kern-obj-put-at clone target-loc)
- (kern-log-msg (kern-obj-get-name kuser) "'s reflection steps through the mirror!")
+ (kern-log-msg "¶À¤ÎÃ椫¤é" (kern-obj-get-name kuser) "¤¬½Ð¤Æ¤¤¿¡ª")
)
)))
(define testmirhandler
(lambda (kmirror kuser)
- (kern-log-msg (kern-obj-get-name kuser) " spots "
+ (kern-log-msg (kern-obj-get-name kuser) "¤Ï¶À¤ÎÃæ¤Ë"
(if (mag-mirror-active? kmirror)
(let* ((target-loc (mag-mirror-target-loc kmirror))
(character (get-char-at target-loc)))
(if (null? character)
- "nothing"
+ "²¿¤â¤Ê¤¤¤Î"
(kern-obj-get-name character)
))
(kern-obj-get-name kuser))
- " in the mirror"
- (if (mag-mirror-active? kmirror) "!" "")
+ "¤ò¸«¤Ä¤±¤¿"
+ (if (mag-mirror-active? kmirror) "¡ª" "")
)
))
(define moving-shelf-ifc
(ifc '() (method 'search
(lambda (shelf)
- (kern-log-msg "You find a hidden mechanism!")
+ (kern-log-msg "±£¤µ¤ì¤¿»Å³Ý¤±¤ò¸«¤Ä¤±¤¿¡ª")
))
(method 'handle
(lambda (shelf kuser)
- (kern-log-msg "The shelf moves!")
+ (kern-log-msg "꤬ư¤¤¤¿¡ª")
(let ((data (gob shelf)))
(set-car! data (not (car data)))
(send-signal kuser (eval (list-ref data 3))
))
))
-(mk-obj-type 't_moving_shelf "set of shelves"
+(mk-obj-type 't_moving_shelf "ê"
s_bookshelf layer-mechanism moving-shelf-ifc)
(define (mk-moving-shelf loc-open loc-closed trigger)
(list #f loc-open loc-closed trigger)))
(mk-reusable-item
- 't_mans_note "note" s_scroll norm
+ 't_mans_note "¥á¥â" s_scroll norm
(lambda (kletter kuser)
(kern-ui-page-text
- "Short Note"
- "Hey Enchanter:"
+ "û¤¤¥á¥â"
+ "ËâÆ»»Õ¤µ¤ó¡§"
""
- "This room is _awfully_ dusty..."
- "Clean up more often!"
- " -- the MAN"
+ "¤³¤ÎÉô²°¤Ï±ø¤¹¤®¤ë¤ï¡Ä"
+ "¤â¤Ã¤È¤³¤Þ¤á¤ËÁݽü¤·¤Ê¤µ¤¤¡ª"
+ "¡Ý¤Ë¤ó¤²¤ó"
)))
(ifc '()
(method 'handle
(lambda (kclock kuser)
- (kern-log-msg "The clock hands stop moving!")
+ (kern-log-msg "»þ·×¤ÏÆ°¤«¤Ê¤¯¤Ê¤Ã¤¿¡ª")
(powers-timestop kuser kuser 30)
))
(method 'xamine
(min (if (> min 5)
"00"
(number->string (* 10 min)))))
- (kern-log-msg "The clock reads " hour ":" min)
+ (kern-log-msg "»þ·×¤Ï" hour "»þ" min "ʬ¤À¡£")
)))
(method 'step
(lambda (kmirror kuser)
))
)))
-(mk-obj-type 't_mag_clock "clock"
+(mk-obj-type 't_mag_clock "»þ·×"
(mk-composite-sprite (list s_clock_body s_clock_hand_n s_clock_spin))
layer-mechanism mag-clock-ifc)
;;----------------------------------------------------------------------------
(kern-mk-place
'p_enchanters_tower ; tag
- "Enchanters Tower" ; name
+ "ËâÆ»»Õ¤ÎÅã" ; name
s_tower ; sprite
m_enchanters_tower ; map
#f ; wraps
(kern-mk-place
'p_enchanters_tower_l2 ; tag
- "Enchanters Tower" ; name
+ "ËâÆ»»Õ¤ÎÅã" ; name
s_keep ; sprite
m_enchanters_tower_l2 ; map
#f ; wraps
(kern-mk-place
'p_enchanters_tower_l3 ; tag
- "Enchanters Tower Roof" ; name
+ "ËâÆ»»Õ¤ÎÅã¤Î²°¾å" ; name
s_keep ; sprite
m_enchanters_tower_l3 ; map
#f ; wraps
;; Plot type stuff
(mk-reusable-item
- 't_garrison_log "Garrison Log" s_lexicon v-hard
+ 't_garrison_log "¼éÈ÷ÂâÆü»ï" s_lexicon v-hard
(lambda (klexicon kuser)
(kern-ui-page-text
- "Garrison Log"
+ "¼éÈ÷ÂâÆü»ï"
""
(string-append
- "The log details events at the garrison "
- "while it was still in operation. Early "
- "entries detail several attempts to "
- "clear the surrounding caverns.")
+ "Æü»ï¤Ë¤ÏÃóÆÖÃϤ¬¤Þ¤À¤¢¤Ã¤¿º¢¤Î½ÐÍè»ö¤¬½ñ¤«¤ì¤Æ\n"
+ "¤¤¤¿¡£ºÇ½é¤ÎÊý¤Ë¤Ï¡¢¼þ°Ï¤Îƶ·¢¤òÁÝƤ¤¹¤ë¤¤¤¯¤Ä\n"
+ "¤«¤Î»î¤ß¤Ë¤Ä¤¤¤Æ¾ÜºÙ¤Ë½ñ¤«¤ì¤Æ¤¤¤¿¡£")
""
(string-append
- "However, the paladins were "
- "unable to even determine how "
- "large the dungeon is, and "
- "eventually settled on a policy "
- "of containment by fortifying "
- "this bottleneck position.")
+ "¤·¤«¤·¡¢À»µ³»Î¤¿¤Á¤Ï̵ܤϤ¢¤Þ¤ê¤Ë¤â¹¤¯¡¢ÁÝƤ\n"
+ "¤ÏÉÔ²Äǽ¤ÈȽÃǤ·¤¿¡£¤½¤·¤ÆºÇ½ªÅª¤Ë¤³¤Î¥Ó¥ó¼ó¤Î\n"
+ "¾ì½ê¤ËºÖ¤òÃÛ¤ÊĤ¸¹þ¤á¤ëÊý¿Ë¤Ë¤·¤¿¤è¤¦¤À¡£")
)))
(kern-mk-place
'p_lost_garrison
- "Deep Fortress"
+ "¿¼Ê¥¤ÎºÖ"
nil ; sprite
(kern-mk-map nil 38 38 pal_expanded
(list
(put (mk-bed) 30 24)
(put (mk-bed) 32 22)
- (put (mk-broken-clock s_clock_hand_sw s_clock_hand_se "The clock reads 8:27") 4 22)
+ (put (mk-broken-clock s_clock_hand_sw s_clock_hand_se "»þ·×¤Ï8»þ27ʬ¤À¡£") 4 22)
(put (kern-mk-obj t_garrison_log 1) 4 23)
(put (kern-mk-obj t_food 21) 33 27)
(put (kern-mk-obj t_food 1) 22 29)
(kern-mk-place
'p_deeps_1
- "endless deepness"
+ "²Ì¤Æ¤·¤Ê¤¤¿¼Ê¥"
nil ; sprite
(kern-mk-map nil 19 19 pal_expanded
(list
(kern-mk-place
'p_deeps_2
- "endless deepness"
+ "²Ì¤Æ¤·¤Ê¤¤¿¼Ê¥"
nil ; sprite
(kern-mk-map nil 19 19 pal_expanded
(list
(kern-mk-place
'p_deeps_3
- "endless deepness"
+ "²Ì¤Æ¤·¤Ê¤¤¿¼Ê¥"
nil ; sprite
(kern-mk-map nil 19 19 pal_expanded
(list
(kern-mk-place
'p_deeps_4
- "endless deepness"
+ "²Ì¤Æ¤·¤Ê¤¤¿¼Ê¥"
nil ; sprite
(kern-mk-map nil 19 19 pal_expanded
(list
(kern-mk-place
'p_deeps_5
- "endless deepness"
+ "²Ì¤Æ¤·¤Ê¤¤¿¼Ê¥"
nil ; sprite
(kern-mk-map nil 19 19 pal_expanded
(list
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; The schedule below is for the place "Engineer's Tower Ground Floor"
+;; µ»»Õ¤Î¾®²°
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_engineer
(list 0 0 eng-workshop "working")
;; Voidship plans
;; ----------------------------------------------------------------------------
(mk-reusable-item
- 't_voidship_plans "Voidship Plans" s_lexicon norm
+ 't_voidship_plans "µõ¶õÁ¥·×²è½ñ" s_lexicon norm
(lambda (klexicon kuser)
(kern-ui-page-text
- "Voidship Plans"
- "Parts List:"
- " Sulphurous Ash (20)"
- " Gems (10)"
- " Power Core (1)"
+ "µõ¶õÁ¥·×²è½ñ"
+ "ÉôÉÊ°ìÍ÷:"
+ "¡¡Î²²«¤Î³¥ (20)"
+ "¡¡ÊõÀÐ (10)"
+ "¡¡Ï§¿´ (1)"
)))
;;----------------------------------------------------------------------------
;; Conv
;;
-;; The Engineer is a Wright of great knowledge, and one of the Wise.
-;; He dwells in an isolated workshop on a nearly inaccessible
-;; void-mesa (or void-island) off the edge of the Shard.
+;; µ»»Õ¤ÏÃμ±¤Î¤¢¤ë°ÎÂç¤Ê¿¦¿Í¤Ç¡¢¸¼Ô¤Î°ì¿Í¤Ç¤¢¤ë¡£
+;; Èà¤Ï¥·¥ã¥ë¥É¤Îü¤Î¤¿¤É¤êÃ夯¤Î¤¬º¤Æñ¤Êµõ¶õ¤Î¹â¸¶(µõ¶õ¤ÎÅç)¤¢¤ëºî¶È¾ì¤Ë½»¤ó
+;; ¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------
(define (eng-hail knpc kpc)
- (say knpc "[You meet a thin man with wild, white hair. "
- "He doesn't seem to notice you at first] Oh, hello."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï¤ä¤»¤¿¡¢Çò¤¯¥Ü¥µ¥Ü¥µ¤Îȱ¤ÎÃˤȲñ¤Ã¤¿¡£"
+ "Èà¤ÏºÇ½é¤Ï¤¢¤Ê¤¿¤Ëµ¤¤Å¤¤¤Æ¤¤¤Ê¤¤¤è¤¦¤À¤Ã¤¿¡£¡Ï¤ª¤Ã¤È¡¢¤³¤ó¤Ë¤Á¤Ï¡£"))
(define (eng-name knpc kpc)
- (say knpc "Rudolph. I'm better known as the Engineer."))
+ (say knpc "¥ë¥É¥ë¥Õ¤À¡£µ»»Õ¤È¸À¤Ã¤¿Êý¤¬¤ï¤«¤ê¤ä¤¹¤¤¤À¤í¤¦¡£"))
(define (eng-job knpc kpc)
- (say knpc "Oh, this and that. I like to make things."))
+ (say knpc "¤¢¤¢¡¢¤³¤ì¤È¤¢¤ì¤À¡£¤â¤Î¤òºî¤ë¤Î¤¬¹¥¤¤Ê¤ó¤À¤è¡£"))
(define (eng-default knpc kpc)
- (say knpc "I don't know. Ask the Enchanter."))
+ (say knpc "¤ï¤«¤é¤Ê¤¤¤Ê¡£ËâÆ»»Õ¤Ëʹ¤¤¤Æ¤¯¤ì¡£"))
(define (eng-bye knpc kpc)
- (say knpc "[He seems to have forgotten about you already]"))
+ (say knpc "¡ÎÈà¤Ï¤¹¤Ç¤Ë¤¢¤Ê¤¿¤Î¤³¤È¤òµ¤¤Ë¤«¤±¤Æ¤¤¤Ê¤¤¤è¤¦¤À¡£¡Ï"))
(define (eng-join knpc kpc)
- (say knpc "Too busy. Try the Warritrix, she likes adventures."))
+ (say knpc "Ë»¤·¤¹¤®¤ë¤Ê¡£Æ®»Î¤ËÍê¤ó¤Ç¤ß¤Ê¤µ¤¤¡£Èà½÷¤ÏËÁ¸±¤¬¹¥¤¤À¤«¤é¡£"))
(define (eng-warr knpc kpc)
- (say knpc "I understand she's one of the finest warriors to ever live, "
- "but I know for a fact she's one of the most noble. When she isn't "
- "off doing something incredibly brave and stupid you can find her "
- "at Glasdrin.")
+ (say knpc "Èà½÷¤Ï¤³¤ì¤Þ¤Ç¤ÇºÇ¤âÍ¥¤ì¤¿Àï»Î¤Î°ì¿Í¤À¤È¹Í¤¨¤Æ¤¤¤ë¡£"
+ "¤À¤¬¡¢ºÇ¤âµ¤¹â¤¼Ô¤Î°ì¿Í¤À¤È¤¤¤¦¤³¤È¤âÃΤäƤ¤¤ë¡£"
+ "Èà½÷¤¬¿®¤¸¤é¤ì¤Ê¤¤¤è¤¦¤Êͦµ¤¤¢¤ë¡¢¤½¤·¤Æ¶ò¤«¤Ê¤³¤È¤ò¤·¤¿¤Î¤Ç¤Ê¤±¤ì¤Ð"
+ "¥°¥é¥¹¥É¥ê¥ó¤Ç²ñ¤¨¤ë¤À¤í¤¦¡£")
(quest-wise-subinit 'questentry-warritrix)
(quest-data-update 'questentry-warritrix 'general-loc 1)
)
(define (eng-make knpc kpc)
- (say knpc "I work on all kinds of different things. Lately I've been "
- "interested in devices for traveling: gates, voidships, etc. "
- "Inventing is an obsession of mine."))
+ (say knpc "»ä¤Ï¤É¤ó¤Ê¼ïÎà¤Î¤â¤Î¤Ç¤âºî¤ë¡£ºÇ¶á¤Ïι¤¹¤ë¤â¤Î¤Ë¶½Ì£¤¬¤¢¤ë¤Ê¡£"
+ "Î㤨¤Ð¡¢Ìç¡¢µõ¶õÁ¥¤Ê¤É¤À¡£"
+ "¹½ÁÛ¤ÇƬ¤ÎÃ椬¤¤¤Ã¤Ñ¤¤¤À¤è¡£"))
(define (eng-wand knpc kpc)
- (say knpc "You're a Wanderer? I've always wanted to meet one. "
- "Did you build your own gate?")
- (kern-conv-get-reply kpc)
- (say knpc "I've always wondered how it could be done. "
- "I have some theories, and I've designed a voidship "
- "to test some of them, but it isn't finished yet."))
+ (say knpc "·¯¤Ï̤¤¿Í¤«¡©¤º¤Ã¤È²ñ¤¤¤¿¤¤¤È»×¤Ã¤Æ¤¤¤¿¤ó¤À¡£"
+ "Ìç¤Ï¼«Ê¬¤Çºî¤Ã¤¿¤Î¤«¡©")
+ (kern-conv-get-yes-no? kpc)
+ (say knpc "¤º¤Ã¤È¤½¤ì¤¬¤É¤¦¤Ê¤Ã¤Æ¤¤¤ë¤Î¤«¹Í¤¨¤Æ¤¤¤ë¡£"
+ "¤¤¤¯¤Ä¤«¤ÎÍýÏÀ¤ò¹Í¤¨¤¿¡£¤½¤·¤Æ¤½¤ì¤ò»î¤¹¤¿¤á¤Ëµõ¶õÁ¥¤òÀ߷פ·¤¿¤Î¤À¡£"
+ "¤À¤¬¤Þ¤À·ëÏÀ¤Ï½Ð¤Æ¤¤¤Ê¤¤¡£"))
(define (eng-void knpc kpc)
(let* ((eng (kobj-gob-data knpc))
(cond
((> nrem 1)
(begin
- (say knpc "We still need " nrem " " (kern-type-get-name (car ktype)) "s")
+ (say knpc "¤Þ¤À" nrem "¤Î" (kern-type-get-name (car ktype)) "¤¬É¬ÍפÀ¡£")
#t))
((> nrem 0)
(begin
- (say knpc "We still need the " (kern-type-get-name (car ktype)))
+ (say knpc "¤Þ¤À" (kern-type-get-name (car ktype)) "¤¬É¬ÍפÀ¡£")
#t))
(else #f))))
voidship-parts)))
#f)))
(define (build-ship)
- (say knpc "Yes, it looks like you have everything. "
- "Well, let's get to work...")
+ (say knpc "¤è¤·¡£Á´¤Æ¤½¤í¤Ã¤¿¤è¤¦¤À¤Ê¡£"
+ "¤Ç¤Ï¼è¤ê³Ý¤«¤ë¤È¤·¤è¤¦¡£")
(remove-stuff)
- (kern-log-msg "[After a good deal of effort, cursing, trying, failing...]")
+ (kern-log-msg "¡Î¿ô¿¤¯¤ÎÅØÎÏ¡¢¶ìÏ«¡¢»î¹Ô¡¢¼ºÇԤθå¡Ä¡Ï")
(prompt-for-key)
- (kern-log-msg "[retrying, refailing, pacing up and down, tearing out "
- "fistfuls of hair...]")
+ (kern-log-msg "¡ÎºÆ»î¹Ô¡¢ºÆ¼ºÇÔ¡¢¿Ê¤ó¤ÇÌá¤Ã¤Æ¡¢È±¤¬È´¤±Íî¤Á¤ë¡Ä¡Ï")
(prompt-for-key)
- (kern-log-msg "[more cursing, arguing, starting over, failing again...]")
+ (kern-log-msg "¡Î¤µ¤é¤Ë¶ìÏ«¡¢µÄÏÀ¡¢¤ä¤êľ¤·¡¢¤Þ¤¿¼ºÇÔ¡Ä¡Ï")
(prompt-for-key)
- (kern-log-msg "[retrying, refailing, weeping, gnashing of teeth...]")
+ (kern-log-msg "¡ÎºÆ»î¹Ô¡¢ºÆ¼ºÇÔ¡¢ÎÞ¡¢»õ¤®¤·¤ê¡Ä¡Ï")
(prompt-for-key)
- (kern-log-msg "[...and so on and so forth...]")
+ (kern-log-msg "¡ÎÅù¡¹¡¢Åù¡¹¡Ä¡Ï")
(prompt-for-key)
- (kern-log-msg "[...finally...]")
+ (kern-log-msg "¡Î¡Ä¤Ä¤¤¤Ë¡Ä¡Ï")
(prompt-for-key)
- (kern-log-msg "[...oh, hell, now what?...]")
+ (kern-log-msg "¡Î¡Ä¤ª¤Ã¤È¡¢¤Á¤¯¤·¤ç¤¦¡¢º£Å٤ϲ¿¤À¡©¡Ä¡Ï")
+ (prompt-for-key)
+ (kern-log-msg "¡Î¡Ä¤À¤¬¡¢¤Þ¤â¤Ê¤¯¡Ä¡Ï")
(prompt-for-key)
- (kern-log-msg "[...but then...]")
(kern-obj-relocate (mk-voidship) (eval-loc voidship-loc) nil)
- (kern-log-msg "[You both collapse with exhaustion] ")
+ (kern-log-msg "¡ÎÆó¿Í¤È¤âÈè¤ì¤Æ¥Ü¥í¥Ü¥í¤À¡£¡Ï")
(say knpc
- "Well. That wasn't so bad. She's all yours now, waiting "
- "for you outside at the end of the dock. Good luck! ")
- (kern-log-msg "[He starts to snore]")
+ "¤¦¤à¡Ä¡£°¤¯¤Ê¤¤½ÐÍè¤À¡£Èà½÷¤ÏÁ´¤Æ·¯¤Î¤â¤Î¤À¡£"
+ "³°¤ÎÁ¥Ãå¾ì¤ÇÂԤäƤ¤¤ë¤¾¡£¹¬±¿¤òµ§¤ë¡ª")
+ (kern-log-msg "¡ÎÈà¤Ï¤¤¤Ó¤¤ò¤«¤»Ï¤á¤¿¡£¡Ï")
(kern-obj-add-effect knpc ef_sleep nil)
(quest-done! quest #t)
(kern-conv-end))
(not (in-inventory? kpc t_power_core)))
(define (has-plans)
- (say knpc "Ah, you've found the plans for my voidship! "
- "Do you have all the parts we need?")
+ (say knpc "¤ª¤ª¡¢¤½¤ì¤¬»ä¤Îµõ¶õÁ¥¤Î·×²è½ñ¤À¡ª"
+ "ɬÍפÊÉôÉʤÏÁ´¤Æ¤¢¤ë¤«¤Í¡©")
(if (kern-conv-get-yes-no? kpc)
(if (really-has-parts?)
(build-ship))
(if (missing-power-core?)
- (say knpc "Somewhere across the chasm to the south lies a wrecked voidship. "
- "If you can find a way to cross the chasm it might have a power core "
- "you can salvage.")
- (say knpc "Well, what are you waiting for? Go get them.")
+ (say knpc "Æî¤Î¿¼¤¤Îö¤±ÌܤòÅϤ俾ì½ê¤Î¤É¤³¤«¤Ë°ú¤¾å¤²¤é¤ì¤¿µõ¶õÁ¥¤¬¤¢¤ë¡£"
+ "Îö¤±ÌܤòÅϤëÊýË¡¤ò¸«¤Ä¤±¤ì¤Ð¡¢¤½¤³¤«¤éϧ¿´¤ò¼è¤ê½Ð¤¹¤³¤È¤¬¤Ç¤¤ë¤À¤í¤¦¡£")
+ (say knpc "¤¦¤¦¤à¡¢²¿¤òÂԤäƤ¤¤ë¤Î¤«¤Ê¡©¤½¤ì¤é¤ò»ý¤Ã¤Æ¤¤Ê¤µ¤¤¡£")
)))
(define (no-plans)
- (say knpc "A great void surrounds the Shard. I've designed a ship "
- "which should be able to cross the void, but it isn't "
- "finished yet. I've got the plans around here someplace. "
- "If you find them let me know.")
+ (say knpc "¥·¥ã¥ë¥É¤Î¼þ¤ê¤Ë¤Ï¹Âç¤Êµõ¶õ¤¬¹¤¬¤Ã¤Æ¤¤¤ë¡£"
+ "»ä¤Ïµõ¶õ¤òÅϤëÁ¥¤ÎÀ߷פò¤·¤¿¡£¤À¤¬¤Þ¤À´°À®¤·¤Æ¤¤¤Ê¤¤¡£"
+ "¤É¤³¤«¤Ë·×²è½ñ¤¬¤¢¤ë¡£¸«¤Ä¤±¤Æ¤¤¿¤é¶µ¤¨¤Æ¤ä¤í¤¦¡£")
(quest-data-update 'questentry-whereami 'shard 2)
)
(if (quest-done? quest)
- (say knpc "It's all finished.")
+ (say knpc "Á´¤Æ´°À®¤·¤¿¡£")
(if (in-inventory? kpc t_voidship_plans)
(has-plans)
(no-plans)))))
(define (eng-gate knpc kpc)
- (say knpc "The moongates and Shrine Gate are a mystery. I'd love to figure "
- "them out. You know about the Demon Gate, right?")
+ (say knpc "·î¤ÎÌç¤Èº×ÃŤÎÌç¤ÏÆæ¤ËËþ¤Á¤Æ¤¤¤ë¡£"
+ "»ä¤Ï¤½¤ÎÆæ¤ò²ò¤ÌÀ¤«¤·¤¿¤¤¡£"
+ "°Ëâ¤ÎÌç¤ÏÃΤäƤ¤¤ë¤«¤Í¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "I wish I knew if it really existed or not.")
- (say knpc "It's a legend. The Demon Gate opened from this world to "
- "others. Then somebody got paranoid, locked it shut, and "
- "threw away the key. Pity if it's true.")))
+ (say knpc "¤½¤ì¤ÏËÜÅö¤Ë¤¢¤ë¤Î¤«¡¢¤½¤¦¤Ç¤Ï¤Ê¤¤¤Î¤«¡£»ä¤ÏÃΤꤿ¤¤¤Î¤À¡£")
+ (say knpc "¤³¤ó¤Ê¸À¤¤ÅÁ¤¨¤¬¤¢¤ë¡£"
+ "°Ëâ¤ÎÌç¤Ï¡¢¤³¤ÎÀ¤³¦¤«¤éÊ̤ÎÀ¤³¦¤Ø¤È¤Ä¤Ê¤¬¤Ã¤Æ¤¤¤ë¡£"
+ "¤½¤·¤ÆÌÑÁÛ¤ËÊá¤é¤ï¤ì¤¿¼Ô¤¬¡¢¤½¤ì¤òÊĤ¶¤·¡¢¸°¤ò¤É¤³¤«¤ØÅꤲ¼Î¤Æ¤¿¡£"
+ "¤â¤·¤½¤ì¤¬ËÜÅö¤Ê¤é»ÄÇ°¤Ê¤³¤È¤À¡£")))
(define (eng-key knpc kpc)
- (say knpc "Supposedly the key is a set of Runes that were subsequently "
- "lost or scattered. Typical fairy-tale nonsense. But there may be "
- "a kernel of truth to it."))
+ (say knpc "¸°¤Ï¤¤¤¯¤Ä¤«¤ÎÀÐÈǤǡ¢¤½¤ì¤Ï¼º¤ï¤ì¤¿¤«¡¢¥Ð¥é¥Ð¥é¤Ë¤Ê¤Ã¤¿¤È¤µ¤ì¤Æ¤¤¤ë¡£"
+ "¤è¤¯¤¢¤ë¤Ä¤Þ¤é¤Ê¤¤¤ª¤È¤®ÏäÀ¡£¤À¤¬¡¢¤â¤·¤«¤¹¤ë¤È¤½¤³¤Ë¿¿¼Â¤Î³Ë¤¬¤¢¤ë¤Î¤«¤â¤·¤ì¤Ê¤¤¡£"))
(define (eng-wise knpc kpc)
- (say knpc "Anyone with the arrogance to call themselves Wise is probably "
- "an ass. Take the Stewardess of Glasdrin, for example."))
+ (say knpc "¼«¤é¤ò¸¼Ô¤È¸Æ¤ÖÐþËý¤Ê¼Ô¤Ï¡¢¤Û¤Ü´Ö°ã¤¤¤Ê¤¯¶ò¤«¤Ê¼Ô¤À¡£"
+ "Îã¤òµó¤²¤ì¤Ð¥°¥é¥¹¥É¥ê¥ó¤ÎÅý¼£¼Ô¤À¡£"))
(define (eng-stew knpc kpc)
- (say knpc "She longs to be counted among the Wise, and doesn't care how "
- "much blood she has to spill to do it. You've heard of Absalot, I "
- "assume?")
+ (say knpc "Èà½÷¤ÏŤ¤´Ö¡¢¸¼Ô¤Î°ì¿Í¤È¤·¤Æ¿ô¤¨¤é¤ì¤Æ¤¤¤¿¡£"
+ "¤½¤·¤Æ¡¢¤½¤Î¤³¤È¤Ç¤É¤ì¤À¤±¤Î·ì¤¬Î®¤µ¤ì¤¿¤Î¤«¤ï¤«¤é¤Ê¤¤¡£"
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤Î¤³¤È¤Ïʹ¤¤¤¿¤Ê¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "A perfect example of abusive power. Sad.")
- (say knpc "The Stewardess conned the other cities and the Enchanter "
- "into massacring the citizens of Absalot. "
- "Supposedly Absalot was a hotbed of Accursed insurgency. If there "
- "was any evidence of the Accursed being there, they burned it to "
- "the ground with the rest of the city.")))
+ (say knpc "ÎϤΰÍѤδ°àú¤ÊÎã¤À¡£²¿¤ÈÈᤷ¤¤¤³¤È¤«¡£")
+ (say knpc "Åý¼£¼Ô¤Ï¾¤ÎÄ®¤ÈËâÆ»»Õ¤òñÙ¤·¡¢¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÄ®¤ÇÂçµÔ»¦¤ò¹Ô¤Ã¤¿¤Î¤À¡£"
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤Ï¼ö¤ï¤ì¤¿¼Ô¤Î²¹¾²¤È¤µ¤ì¤Æ¤¤¤¿¡£"
+ "¤â¤·¼ö¤ï¤ì¤¿¼Ô¤¬¤¤¤ë¤ï¤º¤«¤Ê¾Úµò¤Ç¤â¤¢¤ì¤Ð¡¢»Ä¤ê¤ÎÄ®¤âƱ¤¸¤è¤¦¤Ë¾Æ¤Ê§¤Ã¤¿¤À¤í¤¦¡£")))
(define (eng-accu knpc kpc)
- (say knpc "Supposedly they're a cult of some sort engaging in evil "
- "practices. People who make it their business to meddle are very "
- "upset about them. I don't really give a fig."))
+ (say knpc "Èà¤é¤Ï°¤È·ÀÌó¤·¤¿¼Ô¤¿¤Á¤Î½¸ÃĤȤµ¤ì¤Æ¤¤¤ë¡£"
+ ";·×¤Ê¤³¤È¤Ð¤«¤êµ¤¤Ë¤·¤Æ¤¤¤ë¼Ô¤¿¤Á¤Ï¡¢Èà¤é¤ËÉâ¤ÂΩ¤Ã¤Æ¤¤¤ë¡£"
+ "»ä¤ÏÁ´¤¯µ¤¤Ë¤·¤Æ¤¤¤Ê¤¤¡£"))
(define (eng-shri knpc kpc)
- (say knpc "I've studied the records about the Shrine Gate and investigated "
- "the site, of course. But there's nothing to indicate how it works or "
- "how to control it. I think the last time it opened was over one "
- "hundred years ago."))
+ (say knpc "¤â¤Á¤í¤óº×ÃŤÎÌç¤ÎµÏ¿¤ä¤½¤Î¾ì½ê¤ò¤è¤¯Ä´¤Ù¤Æ¤ß¤¿¡£"
+ "¤À¤¬¡¢¤½¤ì¤¬¤É¤¦¤Ê¤Ã¤Æ¤¤¤ë¤Î¤«¡¢¤É¤¦¤¹¤ì¤ÐÀ©¸æ¤Ç¤¤ë¤Î¤«¡¢¤½¤ì¤ò¼¨¤¹¤â¤Î¤Ï²¿¤â¤Ê¤«¤Ã¤¿¡£"
+ "ºÇ¸å¤Ë¤½¤ì¤¬³«¤¤¤¿¤Î¤Ïɴǯ°Ê¾åÁ°¤Î¤³¤È¤À¤È»ä¤Ï¹Í¤¨¤Æ¤¤¤ë¡£"))
(define (eng-rune knpc kpc)
- (say knpc "The legend of the Demon Gate insists that it was locked by a set "
- "of Runes. Some versions say the Runes were scattered so they could "
- "not be reassambled to open the Gate, others say they were lost "
- "through simple incompetence and bad luck. Of course, there's no "
- "telling if the Runes or even the Gate ever existed!"))
+ (say knpc "¸À¤¤ÅÁ¤¨¤Ç¤Ï°Ëâ¤ÎÌç¤Ï¤¤¤¯¤Ä¤«¤ÎÀÐÈǤÇÉõ°õ¤µ¤ì¤¿¤È¸À¤ï¤ì¤Æ¤¤¤ë¡£"
+ "Ê̤ÎÏäǤÏÀÐÈǤÏÆóÅÙ¤ÈÌç¤ò³«¤±¤é¤ì¤Ê¤¤¤è¤¦¥Ð¥é¥Ð¥é¤Ë¤µ¤ì¤¿¤È¤â¡¢"
+ "¤¿¤Àñ¤Ë±¿°¤¯¼º¤ï¤ì¤¿¤È¤â¸À¤ï¤ì¤Æ¤¤¤ë¡£"
+ "¤â¤Á¤í¤ó¤½¤ì¤Ï¤¿¤À¤Î¸À¤¤ÅÁ¤¨¤Ç¡¢¤½¤Î¤è¤¦¤ÊÀÐÈǤ䡢Ìç¤Î¸ºß¤¹¤é¤ï¤«¤é¤Ê¤¤¤Î¤À¡ª"))
(define (eng-wiza knpc kpc)
- (say knpc "Wizards as a rule tend to be obsessed with power."))
+ (say knpc "Ëâ½Ñ»Õ¤ÏÎϤ˿´¤òÃ¥¤ï¤ì¤¬¤Á¤À¡£"))
(define (eng-wrog knpc kpc)
- (say knpc "Mosts Wrogues are simply pests. They're into everything."))
+ (say knpc "¤Û¤È¤ó¤É¤Î¤Ê¤é¤º¼Ô¤Ï¤¿¤À¤ÎɤΤ褦¤Ê¤â¤Î¤À¡£Èà¤é¤Ï¤¢¤é¤æ¤ë½ê¤Ë¤¤¤ë¡£"))
(define (eng-wrig knpc kpc)
- (say knpc "Wrights are my kind of people. They like to make things, to "
- "figure out how things work, and just want the freedom to follow "
- "their own interests."))
+ (say knpc "¿¦¿Í¤Ï»ä¤Î¤è¤¦¤Ê¼Ô¤¿¤Á¤À¡£"
+ "ʪ¤òºî¤ë¤³¤È¤ò¹¥¤ß¡¢Êª¤Î»ÅÁȤߤò¸«¤Ä¤±½Ð¤¹¡£"
+ "¤½¤·¤Æ¼«Í³¤Ë¶½Ì£¤Î¤¢¤ëʪ»ö¤òÄɤ¤µá¤á¤è¤¦¤È¤¹¤ë¡£"))
(define (eng-necr knpc kpc)
- (say knpc "Not a bad sort. I've conferred with him a time or two.")
+ (say knpc "°¤¤¼Ô¤Ç¤Ï¤Ê¤¤¡£°ìÅÙ¤«ÆóÅÙ¡¢Èà¤ÈµÄÏÀ¤·¤¿¤³¤È¤¬¤¢¤ë¡£")
(quest-data-update 'questentry-necromancer 'nonevil 1)
)
(define (eng-alch knpc kpc)
- (say knpc "A tricky bastard but I have to respect him."))
+ (say knpc "ÌýÃǤǤ¤Ê¤¤¥í¥¯¥Ç¥Ê¥·¤À¡£¤À¤¬¡¢Âº·É¤¹¤Ù¤¤È¤³¤í¤â¤¢¤ë¡£"))
(define (eng-man knpc kpc)
- (say knpc "A Wrogue, but a helpful one. We get along."))
+ (say knpc "¤Ê¤é¤º¼Ô¡¢¤À¤¬½õ¤±¤Ë¤Ê¤ë¼Ô¤À¡£²¿¤È¤«¤¦¤Þ¤¯¤ä¤Ã¤Æ¤¤¤ë¤è¡£"))
(define (eng-ench knpc kpc)
- (say knpc "Bit of a fanatic if you ask me. But it takes all kinds."))
+ (say knpc "»ä¤Ë¸À¤ï¤»¤ì¤Ð¾¯¤·¶¸¿®Åª¤Ê¤È¤³¤í¤¬¤¢¤ë¡£¿Í¤Ï³§¤½¤¦¤À¤¬¡£"))
(define eng-merch-msgs
- (list "Not now."
- "Let me show you some of my inventions..."
+ (list "º£¤Ï¥À¥á¤À¡£"
+ "»ä¤¬³«È¯¤·¤¿Êª¤Î°ìÉô¤ò¸«¤»¤Æ¤ä¤í¤¦¡Ä"
nil
nil
- "Always glad to help out a fellow tinkerer."
- "No problem."
+ "¤¤¤Ä¤âÃç´Ö¤Î½¤Íý²°¤Ë´¶¼Õ¤µ¤ì¤Æ¤¤¤ë¤è¡£"
+ "¤¤¤¤¤µ¡£"
))
(define eng-catalog
(list
;; Various tools and devices
- (list t_picklock 10 "I happen to have some spare picklocks. They're handy for all kinds of things.") ;; high prices, not his specialty
- (list t_shovel 100 "I hate to part with my shovel, you never know when it might come in handy.") ;; high prices, not his specialty
- (list t_pick 100 "I've actually used this pick. Once. I suppose I can part with it.") ;; high prices, not his specialty
- (list t_sextant 200 "This is one of my most successful inventions. With this sextant you don't neet the In Wis spell to find your location on the surface.")
- (list t_chrono 200 "It's a little PORTABLE CLOCK! Isn't it amazing? [He giggles with glee]")
+ (list t_picklock 10 "ÆÍÁ³¤¤¤¯¤Ä¤«¤ÎͽÈ÷¤Î¸°¤¬É¬Íפˤʤä¿¡£¤É¤ó¤Ê¾û¤Ë¤â¹ç¤¦ÊØÍø¤Ê¤â¤Î¤À¡£") ;; high prices, not his specialty
+ (list t_shovel 100 "¤³¤Î¥·¥ã¥Ù¥ë¤Ï¼êÊü¤·¤¿¤¯¤Ê¤¤¤Ê¡£¤É¤ì¤À¤±Ìò¤ËΩ¤Ä¤«·¯¤Ë¤Ï¤ï¤«¤é¤Ê¤¤¤À¤í¤¦¡£") ;; high prices, not his specialty
+ (list t_pick 100 "¤³¤Î¤Ä¤ë¤Ï¤·¤Ï»È¤Ã¤¿¤â¤Î¤À¡£°ìÅÙ¤À¤±¡£¤³¤ì¤Ï¼êÊü¤·¤Æ¤â¤¤¤¤¤À¤í¤¦¡£") ;; high prices, not his specialty
+ (list t_sextant 200 "¤³¤ì¤Ï»ä¤ÎºÇ¹â·æºî¤Î°ì¤Ä¤À¡£¤³¤Îϻʬµ·¤¬¤¢¤ì¤Ð¡¢¥¤¥ó¡¦¥¦¥£¥¹<In Wis>¤Î¼öʸ¤Ê¤·¤ÇÃϾå¤Ç¤Î°ÌÃÖ¤¬¤ï¤«¤ë¡£")
+ (list t_chrono 200 "¤³¤ì¤Ï¾®¤µ¤Ê¡¢»ý¤Á±¿¤Ù¤ë»þ·×¤À¡ªÌÌÇò¤¤¤À¤í¤¦¡©¡ÎÈà¤Ï³Ú¤·¤µ¤Î¤¢¤Þ¤ê¾Ð¤Ã¤¿¡£¡Ï")
;; A bit of oil and grease, for a grease-monkey:
- (list t_grease 20 "I've got plenty of grease. I use it for everything.")
- (list t_oil 10 "If I could figure out how to harness the explosive power of this oil, I'm sure I could make a useful engine.") ;; high prices, not his specialty
+ (list t_grease 20 "»é¤Ï¤¿¤¯¤µ¤ó¤¢¤ë¡£¿§¡¹¤Ê¤³¤È¤Ë»È¤Ã¤Æ¤¤¤ë¡£")
+ (list t_oil 10 "¤³¤ÎÌý¤ÎÇúȯÎϤλȤ¤Æ»¤Ï¤¤¤¯¤é¤Ç¤â¤¢¤ë¡£¤³¤ì¤Ï¶²¤é¤¯Æ°Îϸ»¤Ë¤â¤Ê¤ë¤À¤í¤¦¡£") ;; high prices, not his specialty
;; Crossbows and bolts, as he likes intricate devices
- (list t_lt_crossbow 50 "Isn't this little crossbow cute? The little levers and actions are quite clever.")
- (list t_crossbow 100 "I'm a terrible shot, but I wanted to study crossbows to see if I could figure out how to shoot myself safely across the void.")
- (list t_hvy_crossbow 300 "I couldn't help making some improvements on the standard crossbow. This one works best if you mount it on something first.")
- (list t_trpl_crossbow 500 "What if a crossbow could fire more than one bolt at a time? I had to try it out, so I made this.") ;; a mechanism of his devising
- (list t_bolt 2 "I went through a lot of bolts while testing crossbows modifications, and I have a few crates left over.")
+ (list t_lt_crossbow 50 "¤«¤ï¤¤¤é¤·¤¤¾®¤µ¤Ê¥¯¥í¥¹¥Ü¥¦¤À¤í¤¦¡©¤³¤Î¾®¤µ¤Ê¥ì¥Ð¡¼¤Èµ¡³£¤ÏËÜÅö¤Ë¤è¤¯¤Ç¤¤Æ¤¤¤ë¡£")
+ (list t_crossbow 100 "»ä¤Ï·â¤Ä¤Î¤Ï¶ì¼ê¤À¡£¤·¤«¤·¡¢µõ¶õ¤Ë¸þ¤«¤Ã¤Æ¼«Ê¬¤Ç°ÂÁ´¤Ê·â¤ÁÊý¤ò¶µ¤¨¤ë¤³¤È¤¬¤Ç¤¤¿¤«¤È»×¤¦¤È¡¢ÂǤÁÊý¤ò³Ø¤ó¤Ç¤ª¤±¤Ð¤è¤«¤Ã¤¿¤È»×¤¦¤è¡£")
+ (list t_hvy_crossbow 300 "ɸ½àŪ¤Ê¥¯¥í¥¹¥Ü¥¦¤ò²þÎɤ»¤º¤Ë¤Ï¤¤¤é¤ì¤Ê¤«¤Ã¤¿¡£¼è¤êÉÕ¤±¤Æ¤ß¤ì¤Ð¤¹¤°¤Ë·æºî¤À¤È¤ï¤«¤ë¤À¤í¤¦¡£")
+ (list t_trpl_crossbow 500 "¤â¤·°ìÅ٤˰ìȯ¤è¤ê¿¤¯·â¤Æ¤ë¥¯¥í¥¹¥Ü¥¦¤¬¤¢¤Ã¤¿¤é¡©»ä¤ÏÄ©À路¤Æ¤ß¤¿¡£¤½¤·¤Æ¤³¤ì¤òºî¤Ã¤¿¡£") ;; a mechanism of his devising
+ (list t_bolt 2 "¥¯¥í¥¹¥Ü¥¦¤ò²þÎɤ·¤Æ¤¤¤ë¤È¤¡¢Â¿¤¯¤ÎÌð¤¬É¬ÍפÀ¤Ã¤¿¡£º£¤Ç¤â²¿È¢¤«»Ä¤Ã¤Æ¤¤¤ë¡£")
))
(define (eng-trade knpc kpc) (conv-trade knpc kpc "buy" eng-merch-msgs eng-catalog))
(method 'name eng-name)
(method 'bye eng-bye)
(method 'job eng-job)
+ (method 'engi eng-job)
(method 'join eng-join)
(method 'trad eng-trade)
(method 'alch eng-alch)
(method 'man eng-man)
(method 'ench eng-ench)
+ (method 'warr eng-warr)
))
(define (mk-engineer)
(kern-char-arm-self
(kern-mk-char
'ch_engineer ;;..........tag
- "Engineer" ;;.......name
+ "µ»»Õ" ;;.......name
sp_human ;;.....species
oc_wright ;;.. .occupation
s_companion_tinker ;;..sprite
;;----------------------------------------------------------------------------
(kern-mk-place
'p_engineers_hut ; tag
- "Engineers Hut" ; name
+ "µ»»Õ¤Î¾®²°" ; name
s_hamlet ; sprite
m_engineers_hut ; map
#f ; wraps
(put (mk-door) 9 5)
(put (mk-windowed-door) 2 12)
(put (mk-clock) 5 9)
- (put (mk-broken-clock s_clock_stopped s_clock_stopped "The internals of this clock are spread across the table") 8 7)
+ (put (mk-broken-clock s_clock_stopped s_clock_stopped "¤³¤Î»þ·×¤ÎÉôÉʤϸþ¤³¤¦¤Î´ù¤Î¾å¤Ë»¶¤é¤Ð¤Ã¤Æ¤¤¤ë¡£") 8 7)
(put (kern-mk-obj t_voidship_plans 1) 16 7)
)
(define (eye-of-brune-handle keye khandler)
(kern-obj-set-sprite keye s_eye_open)
- (kern-log-msg "*** STENTORIAN VOICE ***")
- (kern-log-msg "WHAT WOULDST THOU BE?")
- (let ((answer (kern-conv-get-reply khandler)))
- (cond ((eq? answer 'vigi)
- (kern-log-msg "THEN SEE!")
+ (kern-log-msg "*** Â礤ÊÀ¼¤¬Ê¹¤³¤¨¤¿ ***")
+ (kern-log-msg "Æò¤Ï²¿¤ò°Ù¤¹¼Ô¤«¡©")
+ (let ((answer (kern-conv-get-string khandler)))
+ (cond ((string=? answer "¥«¥ó¥·")
+ (kern-log-msg "¸«¤ë¤¬¤è¤¤¡ª")
(let ((kimage (kern-image-load "map.png")))
(kern-map-set-image kimage)
- (kern-print "Hit a key when done gazing...\n")
+ (kern-print "¤è¤¯¸«¤¿¤é¥¡¼¤ò²¡¤»¡Ä\n")
(ui-waitkey)
(kern-map-set-image nil)
(kern-image-free kimage)))
(else
- (kern-log-msg "WOE TO THE CARELESS, THE FORGETFUL AND THE IMPIOUS!")
+ (kern-log-msg "²¿¤È·ÚΨ¡¢ÂÕËý¡¢ÉԷɤʼԤ衪")
(apply-lightning khandler)
(kern-char-set-intelligence khandler
(- (kern-char-get-base-intelligence khandler)
1))
- (kern-log-msg (kern-obj-get-name khandler) " loses intelligence!")
+ (kern-log-msg (kern-obj-get-name khandler) "¤ÏÃÎǽ¤ò¼º¤Ã¤¿¡ª")
)))
(kern-obj-set-sprite keye s_eye_closed)
)
(method 'handle eye-of-brune-handle)
))
-(mk-obj-type 't_eye_of_brune "Eye of Brune" s_eye_closed layer-mechanism eye-of-brune-ifc)
+(mk-obj-type 't_eye_of_brune "¥Ö¥ë¥Ì¤ÎÌÜ" s_eye_closed layer-mechanism eye-of-brune-ifc)
;; field. See effects.scm.
;;----------------------------------------------------------------------------
-(kern-mk-field-type 'F_illum "glowing mote" s_magic 1024 5 pclass-none nil mmode-field)
-(kern-mk-field-type 'F_fire "fire field" s_field_fire 512 20 pclass-none 'burn mmode-field)
-(kern-mk-field-type 'F_poison "poison field" s_field_poison 256 20 pclass-none 'apply-poison mmode-field)
-(kern-mk-field-type 'F_sleep "sleep field" s_field_sleep 256 20 pclass-none 'apply-field-sleep mmode-field)
-(kern-mk-field-type 'F_energy "energy field" s_field_energy 512 20 pclass-repel 'apply-lightning mmode-field)
-(kern-mk-field-type 'F_acid "acid field" s_field_acid 256 20 pclass-none 'apply-acid mmode-field)
-(kern-mk-field-type 'web-type "spider web" s_spider_web 0 20 pclass-none 'ensnare mmode-field)
-
-(kern-mk-field-type 'F_poison_perm "poison field" s_field_poison 256 -1 pclass-none 'apply-poison mmode-field)
-(kern-mk-field-type 'F_sleep_perm "sleep field" s_field_sleep 256 -1 pclass-none 'apply-field-sleep mmode-field)
-(kern-mk-field-type 'F_energy_perm "energy field" s_field_energy 512 -1 pclass-repel 'apply-lightning mmode-field)
-(kern-mk-field-type 'F_fire_perm "fire field" s_field_fire 512 -1 pclass-none 'burn mmode-field)
-(kern-mk-field-type 'F_acid_perm "acid field" s_field_acid 256 -1 pclass-none 'apply-acid mmode-field)
-(kern-mk-field-type 'F_web_perm "spider web" s_spider_web 0 -1 pclass-none 'ensnare mmode-field)
+(kern-mk-field-type 'F_illum "µ±¤¯¿Ð" s_magic 1024 5 pclass-none nil mmode-field)
+(kern-mk-field-type 'F_fire "±ê" s_field_fire 512 20 pclass-none 'burn mmode-field)
+(kern-mk-field-type 'F_poison "ÆÇ̸" s_field_poison 256 20 pclass-none 'apply-poison mmode-field)
+(kern-mk-field-type 'F_sleep "ºÅ̲¥¬¥¹" s_field_sleep 256 20 pclass-none 'apply-field-sleep mmode-field)
+(kern-mk-field-type 'F_energy "¥¨¥Í¥ë¥®¡¼¾ì" s_field_energy 512 20 pclass-repel 'apply-lightning mmode-field)
+(kern-mk-field-type 'F_acid "»À" s_field_acid 256 20 pclass-none 'apply-acid mmode-field)
+(kern-mk-field-type 'web-type "¥¯¥â¤ÎÁã" s_spider_web 0 20 pclass-none 'ensnare mmode-field)
+
+(kern-mk-field-type 'F_poison_perm "ÆÇ̸" s_field_poison 256 -1 pclass-none 'apply-poison mmode-field)
+(kern-mk-field-type 'F_sleep_perm "ºÅ̲¥¬¥¹" s_field_sleep 256 -1 pclass-none 'apply-field-sleep mmode-field)
+(kern-mk-field-type 'F_energy_perm "¥¨¥Í¥ë¥®¡¼¾ì" s_field_energy 512 -1 pclass-repel 'apply-lightning mmode-field)
+(kern-mk-field-type 'F_fire_perm "±ê" s_field_fire 512 -1 pclass-none 'burn mmode-field)
+(kern-mk-field-type 'F_acid_perm "»À" s_field_acid 256 -1 pclass-none 'apply-acid mmode-field)
+(kern-mk-field-type 'F_web_perm "¥¯¥â¤ÎÁã" s_spider_web 0 -1 pclass-none 'ensnare mmode-field)
(kern-mk-field-type 'F_illum_perm nil nil 256 -1 pclass-none nil mmode-field)
(define all-field-types
))))))))))
-(mk-obj-type 't_smoke_cloud "smoke" s_smoke layer-projectile smoke-ifc)
+(mk-obj-type 't_smoke_cloud "±ì" s_smoke layer-projectile smoke-ifc)
(define (fields-smoke-apply kplace x y power)
(define (tryput loc)
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Oparine.
+;; ¥ª¥Ñ¡¼¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_fing
(list 0 0 sea-witch-bay "idle")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Fing is a male Nixie, who is a Prince among his people.
-;; He dwells in Oparine, to be close to his true love, the human woman Lia.
+;; ¥Õ¥£¥ó¤Ï¥Ë¥¥·¡¼¤ÎÃËÀ¤Ç¡¢°ì²¤Î²¦»Ò¤Ç¤¢¤ë¡£
+;; Èà¤Ï¡¢°¦¤¹¤ë¿Í´Ö¤Î½÷À¥ê¥¢¤Î¶á¤¯¤Ë¤¤¤ë¤¿¤á¡¢¥ª¥Ñ¡¼¥ê¥ó¤Ë½»¤ó¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (fing-hail knpc kpc)
- (say knpc "[You meet a nixie] Hail, Landman."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï¥Ë¥¥·¡¼¤È²ñ¤Ã¤¿¡£¡Ï¤³¤ó¤Ë¤Á¤Ï¡£Î¦¤Î¿Í¡£"))
(define (fing-default knpc kpc)
- (say knpc "Perhaps another Landman would know about that."))
+ (say knpc "¤â¤·¤«¤¹¤ë¤È¡¢Ê̤ÎΦ¤Î¿Í¤Ê¤éÃΤäƤ¤¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¡£"))
(define (fing-name knpc kpc)
- (say knpc "I am Fing."))
+ (say knpc "»ä¤Ï¥Õ¥£¥ó¤Ç¤¹¡£"))
(define (fing-join knpc kpc)
- (say knpc "I cannot stray far from these shores."))
+ (say knpc "¤³¤Î´ß¤«¤éÎ¥¤ì¤ë¤³¤È¤Ï¤Ç¤¤Ê¤¤¤Î¤Ç¤¹¡£"))
(define (fing-job knpc kpc)
- (say knpc "I am a prince among the Seamen of this valley... er, bay."))
+ (say knpc "»ä¤Ï¤³¤Îë¡Ä¤¤¤¨¡¢³¤¤Î¿Í¤Î²¦»Ò¤Ç¤¹¡£"))
(define (fing-bye knpc kpc)
- (say knpc "Farewell, Landman."))
+ (say knpc "¤µ¤è¤¦¤Ê¤é¡¢Î¦¤Î¿Í¡£"))
;; Shores...
(define (fing-shor knpc kpc)
- (say knpc "I must stay by the shore so I can be near my love."))
+ (say knpc "»ä¤Ï°¦¤¹¤ë¿Í¤Î¦¤Ë¤¤¤ë¤¿¤á¡¢¤³¤Î´ß¤òÎ¥¤ì¤ë¤ï¤±¤Ë¤Ï¤¤¤«¤Ê¤¤¤Î¤Ç¤¹¡£"))
(define (fing-love knpc kpc)
- (say knpc "Although my beloved cannot leave the land, "
- "she is a princess among the Sea People. "
- "She is kind and true, and has not despaired even with her curse."))
+ (say knpc "¤·¤«¤·¤Ê¤¬¤é¡¢»ä¤Î°¦¤¹¤ë¿Í¤ÏΦ¤òÎ¥¤ì¤ë¤³¤È¤¬¤Ç¤¤Ê¤¤¤Î¤Ç¤¹¡£"
+ "Èà½÷¤Ï³¤¤Î¿Í¤Î²¦½÷¤Ç¤¹¡£"
+ "¿ÆÀÚ¤ÇÀ¿¼Â¡¢¤½¤·¤Æ¼«¿È¤Î¼ö¤¤¤Ë¤â¤«¤«¤ï¤é¤º´õ˾¤ò¼Î¤Æ¤Æ¤¤¤Ê¤¤¤Î¤Ç¤¹¡£"))
(define (fing-sea knpc kpc)
- (say knpc "There are many kingdoms under the sea, many ruins, and caves, "
- "sunken ships and great treasures. There are magicians, "
- "and warriors, and mighty beasts! No offense, but the dry land "
- "must be very dull in comparison."
+ (say knpc "³¤¤Î²¼¤Ë¤Ï¤¿¤¯¤µ¤ó¤Î²¦¹ñ¡¢¤¿¤¯¤µ¤ó¤Î°äÀס¢Æ¶·¢¡¢"
+ "ÄÀ¤ó¤ÀÁ¥¡¢¤½¤·¤Æ¤¹¤Ð¤é¤·¤¤ºâÊõ¤¬¤¢¤ê¤Þ¤¹¡£ËâË¡»È¤¤¡¢"
+ "ʼ»Î¤ÈÎ϶¯¤¤À¸¤Êª¤¬¤¤¤Þ¤¹¡ªµ¤Ê¬¤ò³²¤¹¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢"
+ "¤½¤ì¤ËÈæ¤Ù¤ë¤È´¥¤¤¤¿ÃϤϤȤƤâÂà¶þ¤Ç¤·¤ç¤¦¤Í¡£"
))
(define (fing-curs knpc kpc)
- (say knpc "It is a matter for the Sea People."))
+ (say knpc "¤½¤ì¤Ï³¤¤Î¿Í¤ÎÌäÂê¤Ç¤¹¡£"))
;; Townspeople...
(define (fing-opar knpc kpc)
- (say knpc "It's okay for you Landman, I suppose."))
+ (say knpc "¤¢¤Ê¤¿Êý¤Î¤è¤¦¤ÊΦ¤Î¿Í¤Ë¤Ï¤è¤¤½ê¤À¤È»×¤¤¤Þ¤¹¡£"))
(define (fing-gher knpc kpc)
- (say knpc "We admired her from below! So quick, so brutal! "
- "Like a tempest disguised as a woman. Her crew, it seems, came to "
- "a bad end."))
+ (say knpc "»ä¤¿¤Á¤ÏÈà½÷¤ò²¼¤«¤é¾Þ»¿¤·¤Æ¤¤¤Þ¤·¤¿¡ª"
+ "²¿¤ÈÁÇÁ᤯¡¢²¿¤È¹Ó¡¹¤·¤¤¤«¡ª"
+ "Íò¤È¸«¤Þ¤¬¤¦¤è¤¦¤Ê½÷À¤Ç¤·¤¿¡£"
+ "Èà½÷¤Î¼ê²¼¤Ï¡¢¤É¤¦¤ä¤éÈá»´¤ÊºÇ´ü¤ò¿ë¤²¤¿¤è¤¦¤Ç¤¹¡£"))
(define (fing-crew knpc kpc)
- (say knpc "Ghertie's crew sailed east to an island, went ashore, and never "
- "returned. Her ship is no more."))
+ (say knpc "¥¬¡¼¥Æ¥£¡¼¤Î¼ê²¼¤ÏÅì¤ÎÅç¤Ø¤ÈÁ¥¤ò¿Ê¤á¤Þ¤·¤¿¡£"
+ "¤½¤·¤Æ¾åΦ¤·¡¢ÆóÅÙ¤ÈÌá¤Ã¤Æ¤¯¤ë¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£"
+ "Èà½÷¤ÎÁ¥¤â¼º¤ï¤ì¤Þ¤·¤¿¡£"))
(define (fing-alch knpc kpc)
- (say knpc "He speaks to my love but I am not jealous. "
- "He is too old and fat for any love potion to decieve her eyes!"))
+ (say knpc "»ä¤Î°¦¤·¤¤¿Í¤È¤è¤¯Ï䷤Ƥ¤¤Þ¤¹¤¬¡¢¼»ÅʤϤ·¤Æ¤¤¤Þ¤»¤ó¡£"
+ "Èà¤Ï¤¢¤Þ¤ê¤Ë¤âºÐ¤ò¤È¤êÂÀ¤Ã¤Æ¤¤¤Æ¡¢¤É¤ó¤Ê¤Û¤ìÌô¤âÈà½÷¤Îµ¿¤¤¤ÎÌܤˤϸú¤«¤Ê¤¤¤«¤é¤Ç¤¹¡ª"))
(define (fing-osca knpc kpc)
- (say knpc "I know him not."))
+ (say knpc "Èà¤Î¤³¤È¤ÏÃΤê¤Þ¤»¤ó¡£"))
(define (fing-henr knpc kpc)
- (say knpc "A brave Landman, from what I hear."))
+ (say knpc "ͦ´º¤ÊΦ¤Î¿Í¤À¤Èʹ¤¤Þ¤·¤¿¡£"))
(define (fing-bart knpc kpc)
- (say knpc "I have not seen many goblins. I think they fear the sea. "
- "He is an oddity among them."))
+ (say knpc "¥´¥Ö¥ê¥ó¤Ï¤¢¤Þ¤ê¸«¤¿¤³¤È¤¬¤¢¤ê¤Þ¤»¤ó¡£Èà¤é¤Ï³¤¤ò¶²¤ì¤Æ¤¤¤ë¤È»×¤¤¤Þ¤¹¡£"
+ "Èà¤Ï¥´¥Ö¥ê¥ó¤Î´Ö¤Ç¤ÏÊѤï¤ê¼Ô¤Ç¤·¤ç¤¦¡£"))
(define fing-conv
(define (mk-fing)
(bind
(kern-mk-char 'ch_fing ; tag
- "Fing" ; name
+ "¥Õ¥£¥ó" ; name
sp_nixie ; species
oc_warrior ; occ
s_nixie_civilian ; sprite
(mk-dungeon-room
- 'p_fire_sea "Fire Sea"
+ 'p_fire_sea "²Ð¤Î³¤"
(list
"rn r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 rn rn rn "
"r4 !_ !_ !! {A {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ ra rn rn "
(mk-place-music p_fire_sea 'ml-dungeon-adventure)
(mk-dungeon-room
- 'p_smoldering_cave "Smoldering Cave"
+ 'p_smoldering_cave "¤¯¤¹¤Ö¤ëƶ·¢"
(list
"rn rn rn rn rn rn rn r4 .. .. .. r2 rn rn rn rn rn rn rn "
"rn rn rn rn rn r8 r8 r4 {8 .. {8 r2 r8 r8 rn rn rn rn rn "
(mk-19x19-town
- 'p_florinth_wharf "Wharf of Florinth" s_town
+ 'p_florinth_wharf "¥Õ¥í¡¼¥ê¥ó¥¹¤ÎÉÖƬ" s_town
(list
".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
)
(mk-19x19-town
- 'p_florinth_n_tower "North Watchtower of Florinth" s_town
+ 'p_florinth_n_tower "¥Õ¥í¡¼¥ê¥ó¥¹¤ÎËÌ´Æ»ëÅã" s_town
(list
".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
)
(mk-19x19-town
- 'p_florinth_s_tower "South Watchtower of Florinth" s_town
+ 'p_florinth_s_tower "¥Õ¥í¡¼¥ê¥ó¥¹¤ÎÆî´Æ»ëÅã" s_town
(list
".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
)
(mk-19x19-town
- 'p_florinth_bazaar "Bazaar of Florinth" s_town
+ 'p_florinth_bazaar "¥Õ¥í¡¼¥ê¥ó¥¹¤Î»Ô¾ì" s_town
(list
".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
))
-(mk-obj-type 't_food (list "food" "food") s_food layer-item food-ifc)
-(mk-obj-type 't_beer "beer" s_beer layer-item alcohol-ifc)
-(mk-obj-type 't_wine (list "wine" "wine") s_wine layer-item alcohol-ifc)
+(mk-obj-type 't_food (list "¿©ÎÁ" "¿©ÎÁ") s_food layer-item food-ifc)
+(mk-obj-type 't_beer "¥Ó¡¼¥ë" s_beer layer-item alcohol-ifc)
+(mk-obj-type 't_wine (list "¥ï¥¤¥ó" "¥ï¥¤¥ó") s_wine layer-item alcohol-ifc)
(mk-dungeon-room
- 'p_forsaken_prison "Forsaken Prison"
+ 'p_forsaken_prison "¸«¼Î¤Æ¤é¤ì¤¿¼ýÍƽê"
(list
"rn rn rn rn xx xx xx xx xx xx xx xx xx xx xx rn rn rn rn "
"rn rn rn rn xx ,, ,, xx ,, ,, ,, xx ,, ,, xx rn rn rn rn "
;; Movement modes
(define mmodes
(list
- (list 'mmode-walk "walking" 0)
- (list 'mmode-hover "hovering" 1)
- (list 'mmode-ship "sailing" 2)
- (list 'mmode-phase "phasing" 3)
- (list 'mmode-fly "flying" 4)
- (list 'mmode-skiff "rowing" 5)
- (list 'mmode-fish "swimming" 6)
- (list 'mmode-crawl "crawling" 7) ;; spiders, can cross boulders
- (list 'mmode-voidship "sailing" 8)
- (list 'mmode-ranger "stalking" 9)
- (list 'mmode-none "stationary" 10)
- (list 'mmode-wriggle "wriggle" 11) ;; rogue special move
- (list 'mmode-missile "missile" 12)
- (list 'mmode-fastfly "flying" 13)
- (list 'mmode-fastrun "running" 14)
- (list 'mmode-fastcrawl "crawling" 15)
- (list 'mmode-smallobj "smallobj" 16) ;; for determining dropability of small objects
- (list 'mmode-largeobj "largeobj" 17) ;; for determining dropability of big objects- basically, stuff that wont fit through bars/windows
- (list 'mmode-field "field" 18) ;; for determining dropability of fields
- (list 'mmode-return "return" 19) ;; return path for magic axe (for now assume it always returns)
- (list 'mmode-cannon "cannon" 20) ;; enhanced missile passibility for cannon shells
- (list 'mmode-large "striding" 21) ;; big critters
+ (list 'mmode-walk "Ê⤤¤Æ¤¤¤ë" 0)
+ (list 'mmode-hover "É⤤¤Æ¤¤¤ë" 1)
+ (list 'mmode-ship "¹Ò¹Ô¤·¤Æ¤¤¤ë" 2)
+ (list 'mmode-phase "ÊÑ·Á¤·¤Æ¤¤¤ë" 3)
+ (list 'mmode-fly "Èô¹Ô¤·¤Æ¤¤¤ë" 4)
+ (list 'mmode-skiff "Á椤¤Ç¤¤¤ë" 5)
+ (list 'mmode-fish "±Ë¤¤¤Ç¤¤¤ë" 6)
+ (list 'mmode-crawl "Çç¤Ã¤Æ¤¤¤ë" 7) ;; spiders, can cross boulders
+ (list 'mmode-voidship "¹Ò¹Ô¤·¤Æ¤¤¤ë" 8)
+ (list 'mmode-ranger "ÄÉÀפ·¤Æ¤¤¤ë" 9)
+ (list 'mmode-none "Æ°¤«¤Ê¤¤" 10)
+ (list 'mmode-wriggle "Ǧ¤Ó¹þ¤ó¤Ç¤¤¤ë" 11) ;; rogue special move
+ (list 'mmode-missile "Èô¤ó¤Ç¤¤¤ë" 12)
+ (list 'mmode-fastfly "Èô¹Ô¤·¤Æ¤¤¤ë" 13)
+ (list 'mmode-fastrun "Áö¤Ã¤Æ¤¤¤ë" 14)
+ (list 'mmode-fastcrawl "Çç¤Ã¤Æ¤¤¤ë" 15)
+ (list 'mmode-smallobj "¾®¤µ¤¤¤â¤Î" 16) ;; for determining dropability of small objects
+ (list 'mmode-largeobj "Â礤¤¤â¤Î" 17) ;; for determining dropability of big objects- basically, stuff that wont fit through bars/windows
+ (list 'mmode-field "¾ì" 18) ;; for determining dropability of fields
+ (list 'mmode-return "Ìá¤Ã¤Æ¤¤¤ë" 19) ;; return path for magic axe (for now assume it always returns)
+ (list 'mmode-cannon "ˤ" 20) ;; enhanced missile passibility for cannon shells
+ (list 'mmode-large "µðÂç¤Ê¤â¤Î" 21) ;; big critters
))
(map (lambda (mmode) (apply kern-mk-mmode mmode)) mmodes)
(load "quest-sys.scm")
;; Miscellaneous crap
-(mk-obj-type 't_crosshair "crosshair" s_crosshair layer-crosshair nil)
+(mk-obj-type 't_crosshair "¾È½àÀþ" s_crosshair layer-crosshair nil)
(kern-set-crosshair t_crosshair)
(kern-set-frame s_frame_ulc
s_frame_urc
(define (get-player-name kbeing)
(begin
- (kern-log-msg "Speak your name, Seeker")
+ (kern-log-msg "̾¾è¤ì¡¢Ãµµá¼Ô¤è¡£")
(let
((reply (kern-conv-get-string kbeing)))
(if (equal? reply "")
nil
(begin
- (kern-log-msg (string-append "Hail, " reply "!"))
+ (kern-log-msg (string-append "¤è¤¦¤³¤½¡¢" reply "¡ª"))
(kern-being-set-name kbeing reply)
(kern-map-flash 1)
)
(define (gamestart-statue-speak kbeing speaker messageid)
(if (is-player-party-member? kbeing)
(begin
- (kern-log-msg "A statue suddenly speaks to you!")
+ (kern-log-msg "ÆÍÁ³¡¢Áü¤¬Ïä·¤«¤±¤Æ¤¤¿¡ª")
(kern-conv-begin (eval speaker))
))
#f
(kern-char-set-dexterity kbeing (/ (- (+ 12 (list-ref rdata 0)) (list-ref rdata 2)) 2))
(kern-char-set-intelligence kbeing (/ (+ (list-ref rdata 1) (list-ref rdata 2)) 2))
- (kern-log-msg "Strength: " (number->string (kern-char-get-strength kbeing)) ", "
- "Dexterity: " (number->string (kern-char-get-dexterity kbeing)) ", "
- "Intelligence: " (number->string (kern-char-get-intelligence kbeing))
+ (kern-log-msg "ÏÓÎÏ: " (number->string (kern-char-get-strength kbeing)) "¡¢"
+ "ÉÒ¾¹: " (number->string (kern-char-get-dexterity kbeing)) "¡¢"
+ "ÃÎǽ: " (number->string (kern-char-get-intelligence kbeing))
)
))
#f
)
-(mk-obj-type 't_start_portal "path forward" s_blackgate_full layer-mechanism step-trig-ifc)
+(mk-obj-type 't_start_portal "¿Ê¤à¤Ù¤Æ»" s_blackgate_full layer-mechanism step-trig-ifc)
(define (mk-start-portal proc-tag . args)
(bind (kern-mk-obj t_start_portal 1)
(define (start-cutscene kplayer startgate)
(kern-char-set-sleep ch_wanderer #t)
(kern-log-enable #t)
- (kern-log-msg "A dark gate rises in a quiet clearing...")
+ (kern-log-msg "°Å¤¤Ì礬²¿¤â¤Ê¤¤½ê¤«¤éÉ⤫¤Ó¾å¤¬¤ê¡Ä")
(moongate-animate black-gate blackgate-stages)
(kern-sleep 2000)
(kern-log-enable #f)
(kern-obj-relocate kplayer (list p_moongate_clearing 11 12) (mk-start-cutscene kplayer (get-gamestart-data kplayer 3)))
(kern-log-enable #t)
- (kern-log-msg "Then closes without a trace...")
+ (kern-log-msg "¤½¤·¤ÆÀ×·Á¤â¤Ê¤¯¾Ã¤¨µî¤Ã¤¿¡Ä")
(moongate-animate black-gate (reverse blackgate-stages))
(kern-sleep 1000)
- (kern-log-msg "You lie dreaming for a while, of another life...")
+ (kern-log-msg "¤·¤Ð¤é¤¯¤Î´Ö¡¢Ê̤οÍÀ¸¤ÎÌ´¤ò¸«¤Æ¤¤¤¿¤è¤¦¤À¡Ä")
(kern-sleep 2000)
(kern-log-enable #f)
(kern-char-set-sleep ch_wanderer #f)
(kern-player-set-follow-mode)
(kern-log-enable #t)
- (kern-log-msg "...then awaken to a strange new world.")
- (kern-log-msg "To the southwest you see a cave.")
+ (kern-log-msg "¡ÄÌܳФá¤ë¤È¤½¤³¤Ï´ñ̯¤Ê¿·¤·¤¤À¤³¦¤À¤Ã¤¿¡£")
+ (kern-log-msg "ÆîÀ¾¤Ëƶ·¢¤¬¸«¤¨¤ë¡£")
(quest-remove (quest-data-get 'questentry-charcreate))
(quest-assign (quest-data-get 'questentry-whereami))
)
-
\ No newline at end of file
+
(define (gsstatue-unknown knpc kpc)
- (say knpc "[The statue remains silent]"))
+ (say knpc "¡ÎÁü¤ÏÄÀÌÛ¤·¤¿¤Þ¤Þ¤À¡Ï"))
(define (gsstatue-hail knpc kpc)
- (say knpc "[A statue speaks to you]")
+ (say knpc "¡ÎÁü¤¬Ïä·¤«¤±¤Æ¤¤¿¡Ï")
(gamestart-statue-clean knpc "statspeak")
)
(define (gs-check-upper value)
(if (> value 11)
(begin
- (say knpc "I cannot raise your " iname " further")
+ (say knpc "¤³¤ì°Ê¾å¡¢Æò¤Î" iname "¤ò¾å¤²¤ë¤³¤È¤Ï¤Ç¤¤Ì¡£")
#t
)
#f))
(define (gs-check-lower value)
(if (< value 1)
(begin
- (say knpc "You must not abuse your " dname " further")
+ (say knpc "¤³¤ì°Ê¾å¡¢Æò¤Î" dname "¤ò²¼¤²¤ë¤Ù¤¤Ç¤Ï¤Ê¤¤¡£")
#t
)
#f))
(define (gs-initialcheck)
- (say knpc "Do you wish to convert " dname " into " iname "?")
+ (say knpc dname "¤ò" iname "¤Ë´¹¤¨¤ë¤«¡©")
(if (kern-conv-get-yes-no? kpc)
#f #t)
)
(define (gs-repeatcheck)
- (say knpc "Continue?")
+ (say knpc "³¤±¤ë¤«¡©")
(if (kern-conv-get-yes-no? kpc)
#f #t)
)
)
(cond ((gs-check-upper ival))
((gs-check-lower dval))
- ((and initial (gs-initialcheck)) (say knpc "As you wish"))
- ((and (not initial) (gs-repeatcheck)) (say knpc "As you wish"))
+ ((and initial (gs-initialcheck)) (say knpc "Æò¤Î°Õ¤Î¤Þ¤Þ¤Ë¡£"))
+ ((and (not initial) (gs-repeatcheck)) (say knpc "Æò¤Î°Õ¤Î¤Þ¤Þ¤Ë¡£"))
(#t
(iset kpc (+ ival 1))
(dset kpc (- dval 1))
- (say knpc "[Your " iname " increases]")
- (say knpc "[Your " dname
- (cond ((< dval 3) " withers!]")
- ((< dval 9) " diminishes]")
+ (say knpc "[¤¢¤Ê¤¿¤Î" iname "¤¬¾å¤¬¤Ã¤¿]")
+ (say knpc "[¤¢¤Ê¤¿¤Î" dname
+ (cond ((< dval 3) "¤¬¼å¤Þ¤Ã¤¿¡ª]")
+ ((< dval 9) "¤¬²¼¤¬¤Ã¤¿]")
(#t " wanes]")
)
)
;; Statue of intelligence
(define (gs-int-hail knpc kpc)
- (say knpc "Welcome, Seeker. I give wisdom to those who ask for it.")
+ (say knpc "¤è¤¦¤³¤½¡¢Ãµµá¼Ô¤è¡£µá¤á¤ë¤â¤Î¤Ë¤ÏÃÎǽ¤òÍ¿¤¨¤è¤¦¡£")
(gamestart-statue-clean knpc "statspeak")
)
;; expand on this as other abilities become available
(define (gs-int-inte knpc kpc)
- (say knpc "The wise weave spells of power, and resist malignant magicks, but fools are ensnared and easily deceived. "
- "Beware, Seeker! Evil beings of vast intelligence lie in wait along your path. "
- "You will need wisdom to overcome them. Is this your wish?")
+ (say knpc "¸¤¼Ô¤ÏËâÎϤòÀ¸¤ß½Ð¤·¡¢°°Õ¤¢¤ë¼Ô¤Î½Ñ¤òÂǤÁ¾Ã¤¹¡£¤À¤¬¶ò¤«¤Ê¼Ô¤ÏÏǤ蘆¤ì¡¢Íưפ˵½¤«¤ì¤ë¡£"
+ "õµá¼Ô¤è¡¢µ¤¤ò¤Ä¤±¤ë¤¬¤è¤¤¡ª¼Ù°¤ÊÃÎǽ¤¢¤ë¼Ô¤ÏÆò¤Î¹Ô¤¯Æ»¤ÇÂÔ¤Á¹½¤¨¤Æ¤¤¤ë¡£"
+ "¤½¤Î¼Ô¤¿¤Á¤ò¾è¤ê±Û¤¨¤ë¤Ë¤ÏÃÎÎϤ¬É¬ÍפÀ¡£Æò¤Ï¤½¤ì¤òÍߤ¹¤ë¤«¡©")
(if (yes? kpc)
- (say knpc "To grow wise you must give up strength or dexterity.")
- (say knpc "He who turns away from wisdom is the delight of daemons.")
+ (say knpc "ÃÎÎϤòÆÀ¤ë¤¿¤á¤Ë¤Ï¡¢ÏÓÎϤÈÉÒ¾¹¤µ¤Î¤¤¤º¤ì¤«¤òº¹¤·½Ð¤µ¤Í¤Ð¤Ê¤é¤Ê¤¤¡£")
+ (say knpc "ÃÎÎϤò±ó¤¶¤±¤ë¼Ô¤Ï°Ëâ¤ò´¿´î¤µ¤»¤ë¤À¤í¤¦¡£")
)
)
(define (gs-int-stre knpc kpc)
- (say knpc "Take heed, Seeker! Physical strength will not avail you against the strongest of the dark powers.")
- (gsstatue-dostat knpc kpc "intelligence" kern-char-set-intelligence kern-char-get-base-intelligence
- "strength" kern-char-set-strength kern-char-get-base-strength #t)
+ (say knpc "ʹ¤±¡¢Ãµµá¼Ô¤è¡ªÏÓÎϤǤϰǤκǤ⶯¤ÎϤËΩ¤Á¸þ¤«¤¦¤³¤È¤Ï¤Ç¤¤Ì¤Ç¤¢¤í¤¦¡£")
+ (gsstatue-dostat knpc kpc "ÃÎǽ" kern-char-set-intelligence kern-char-get-base-intelligence
+ "ÏÓÎÏ" kern-char-set-strength kern-char-get-base-strength #t)
)
(define (gs-int-dext knpc kpc)
- (say knpc "Consider well, Seeker! The straightest arrow will miss the unclean warlock, "
- "and the doors of the deep are locked with spells that cannot be picked.")
- (gsstatue-dostat knpc kpc "intelligence" kern-char-set-intelligence kern-char-get-base-intelligence
- "dexterity" kern-char-set-dexterity kern-char-get-base-dexterity #t)
+ (say knpc "¹Í¤¨¤è¡¢Ãµµá¼Ô¡ªºÇ¤â®¤Ìð¤Î°ì·â¤â¡¢¼Ù°¤Ê¹õËâ½Ñ»Õ¤Ë¤ÏÅö¤¿¤é¤Ì¤À¤í¤¦¡£"
+ "¤½¤·¤ÆËâÎϤÇÉõ°õ¤µ¤ì¤¿Èâ¤Ï¤³¤¸³«¤±¤ë¤³¤È¤¬¤Ç¤¤Ê¤¤¡£")
+ (gsstatue-dostat knpc kpc "ÃÎǽ" kern-char-set-intelligence kern-char-get-base-intelligence
+ "ÉÒ¾¹¤µ" kern-char-set-dexterity kern-char-get-base-dexterity #t)
)
(define (gs-int-bye knpc kpc)
- (say knpc "Go now, Seeker. May your wards shield you, your summonings aid you, and your wrath rain fire and lightning on the unholy!")
+ (say knpc "¹Ô¤±¡¢Ãµµá¼Ô¤è¡£Æò¤ÎËâÎϤ¬Æò¼«¿È¤ò¼é¤ê¡¢¾¤´Ô¤µ¤ì¤¿¼Ô¤¿¤Á¤¬Æò¤ò½õ¤±¡¢ÉÔ¾ô¤Ê¼Ô¤Î¾å¤Ë±ê¤ÈÍë¤Î¹ë±«¤ò¹ß¤é¤»¤ó¤³¤È¤ò¡ª")
)
(define gs-int-conv
;; Statue of might
(define (gs-str-hail knpc kpc)
- (say knpc "Hail, Seeker. I give strength to those who would be mighty.")
+ (say knpc "¤è¤¦¤³¤½¡¢Ãµµá¼Ô¤è¡£¶¯¤µ¤òµá¤á¤ë¼Ô¤Ë¤ÏÏÓÎϤòÍ¿¤¨¤è¤¦¡£")
(gamestart-statue-clean knpc "statspeak")
)
;; expand on this as other abilities become available
(define (gs-str-stre knpc kpc)
- (say knpc "Gain strength, and you will split helms, crush bones, and batter the shields of your foes to splinters. "
- "You can bear the heaviest armour without staggering, and the blows of your enemies will glance off unheeded. "
- "Strength is not the most important thing to a warrior, it is the only thing! "
- "Would you be strong?")
+ (say knpc "ÏÓÎϤòÆÀ¤ì¤Ð¡¢Æò¤ÏŨ¤Î³õ¤ò³ä¤ê¡¢¹ü¤òºÕ¤¡¢½â¤òÊ´ºÕ¤Ç¤¤ë¤Ç¤¢¤í¤¦¡£"
+ "ºÇ¤â½Å¤¤³»¤ò¤âÃå¤ë¤³¤È¤¬¤Ç¤¡¢Å¨¤ÎÂÇ·â¤Ï°ÕÌ£¤ò¤Ê¤µ¤Ì¤Ç¤¢¤í¤¦¡£"
+ "ÏÓÎϤϺǤâ½ÅÍפʤâ¤Î¤Ç¤Ï¤Ê¤¤¡£Í£°ìɬÍפʤâ¤Î¤Ç¤¢¤ë¡ª"
+ "Æò¤ÏÎϤòµá¤á¤ë¤«¡©")
(if (yes? kpc)
- (say knpc "What will you sacrifice for strength: intelligence or dexterity?")
- (say knpc "Only the strong will survive where you must go.")
+ (say knpc "ÏÓÎϤΤ¿¤á¤ËÊû¤²¤è¡£ÃÎǽ¤«¡¢¤½¤ì¤È¤âÉÒ¾¹¤µ¤«¡©")
+ (say knpc "Æò¤Î¹Ô¤¯¼ê¤ÇÆò¼«¿È¤òµß¤¦¤Î¤ÏÎϤΤߤǤ¢¤ë¡£")
))
(define (gs-str-inte knpc kpc)
- (say knpc "A warrior needs some cunning, but might is paramount!")
- (gsstatue-dostat knpc kpc "strength" kern-char-set-strength kern-char-get-base-strength
- "intelligence" kern-char-set-intelligence kern-char-get-base-intelligence #t)
+ (say knpc "Àï»Î¤Ë¤ÏàÄàѤµ¤âɬÍפÀ¡£¤·¤«¤·ºÇ¤âɬÍפʤΤÏÏÓÎϤǤ¢¤ë¡ª")
+ (gsstatue-dostat knpc kpc "ÏÓÎÏ" kern-char-set-strength kern-char-get-base-strength
+ "ÃÎǽ" kern-char-set-intelligence kern-char-get-base-intelligence #t)
)
(define (gs-str-dext knpc kpc)
- (say knpc "Your friends may be impressed by feats of dexterity, "
- "but your foes will be persuaded by force of arms!")
- (gsstatue-dostat knpc kpc "strength" kern-char-set-strength kern-char-get-base-strength
- "dexterity" kern-char-set-dexterity kern-char-get-base-dexterity #t)
+ (say knpc "Æò¤Îͧ¤ÏÉÒ¾¹¤µ¤Î̯µ»¤ËÃíÌܤ¹¤ë¤À¤í¤¦¡£"
+ "¤·¤«¤·¡¢Æò¤ÎŨ¤ÏÎϤǤΤßÀâÆÀ¤Ç¤¤ë¤Ç¤¢¤í¤¦¡ª")
+ (gsstatue-dostat knpc kpc "ÏÓÎÏ" kern-char-set-strength kern-char-get-base-strength
+ "ÉÒ¾¹¤µ" kern-char-set-dexterity kern-char-get-base-dexterity #t)
)
(define (gs-str-bye knpc kpc)
- (say knpc "Go now and smite the wicked."))
+ (say knpc "¹Ô¤±¡¢¤½¤·¤Æ°¤Ë°ì·â¤òÍ¿¤¨¤ë¤Î¤À¡£"))
(define gs-str-conv
(ifc '()
;; Statue of agility
(define (gs-dex-hail knpc kpc)
- (say knpc "Well met, Seeker. Alas, I cannot make you a powerful brute nor an absent-minded mage like my adjacent cohorts, "
- "but allow me to profer dexterity.")
+ (say knpc "¤è¤¯¤¾»²¤Ã¤¿¡¢Ãµµá¼Ô¤è¡£¤¢¤¢¡¢²æ¤ÏÎ٤μԤ¿¤Á¤Î¤è¤¦¤Ë¡¢Æò¤Ë½Ã¤ÎÎϤ⡢¾å¤Î¶õ¤Î³Ø¼Ô¤ÎÃÎÎϤâÍ¿¤¨¤ë¤³¤È¤¬¤Ç¤¤Ì¡£"
+ "¤À¤¬ÉÒ¾¹¤µ¤ò¼ø¤±¤ë¤³¤È¤Ï¤Ç¤¤ë¡£")
(gamestart-statue-clean knpc "statspeak")
)
(define (gs-dex-dext knpc kpc)
- (say knpc "Dexterity is the attribute of the subtle adventurer. Why beat down a door when one can pick the lock?\n\n"
- "Why ruin the eyesite on musty grimoires when treasure is easily found by stealth and craft?\n\n"
- "Why risk mussing one's tastefully chosen accoutrements in a melee when foes can be shot from afar with aplomb?\n\n"
- "And indeed, should a momentary lapse in judgment leave one cornered, speed and quick thinking will save the day. "
- "Do you agree?")
+ (say knpc "ÉÒ¾¹¤µ¤ÏÍǽ¤ÊËÁ¸±¼Ô¤ËɬÍפǤ¢¤ë¡£¤É¤Î¤è¤¦¤Ë¸°¤Î³Ý¤«¤Ã¤¿Èâ¤òÂǤÁÇˤ롩\n\n"
+ "±£¤ì¿È¤È´ïÍѤµ¤ÇÊõ¤òÍưפ˸«¤Ä¤±¤¿¤È¤¡¢¤É¤Î¤è¤¦¤Ë¤«¤Ó½¤¤Ëâ½Ñ½ñ¤ÎÌܤòƨ¤ì¤ë¡©\n\n"
+ "Ũ¤¬±ó¤¯¤«¤éÎäÀŤ˷â¤Ã¤Æ¤¤¿¤È¤¡¢¤É¤Î¤è¤¦¤Ëº®Íð¤ÎÃæ¤Ç¤è¤¤Éð´ï¤òÁªÂò¤¹¤ë¡©\n\n"
+ "¿¿¤Ë¡¢º³ºÙ¤ÊȽÃǤÎÃÙ¤ì¤ÏµçÃϤò¾·¤¡¢ÁÇÁᤤ¿È¤Î¤³¤Ê¤·¤È·èÃǤϾ¡Íø¤ò¤â¤¿¤é¤¹¤Ç¤¢¤í¤¦¡£"
+ "Æò¤â¤½¤¦¹Í¤¨¤ë¤«¡©")
(if (yes? kpc)
- (say knpc "Indeed. Dexterity is well worth the sacrifice of crass strength or boorish intelligence.")
- (say knpc "Ah. Well. Mind your wallet, friend. Thieves love to prey on the clumsy.")
+ (say knpc "¤½¤ÎÄ̤ꡣÉÒ¾¹¤µ¤Ï¶òÆߤÊÏÓÎϤäÌîÈܤÊÃÎǽ¤òµ¾À·¤Ë¤¹¤ë²ÁÃͤ¬¤¢¤ë¡£")
+ (say knpc "¤¢¤¢¡£¤¦¤à¡£Í§¤è¡¢ºâÉۤ˵¤¤ò¤Ä¤±¤è¡£Åð¿Í¤Ï¤Î¤í¤Þ¤Êµ¾À·¼Ô¤ò¹¥¤à¤â¤Î¤À¡£")
)
)
(define (gs-dex-inte knpc kpc)
- (say knpc "If you ask me, intelligence is greatly overrated. "
- "I mean, who cares about raising the dead when one can loot their corpses?")
- (gsstatue-dostat knpc kpc "dexterity" kern-char-set-dexterity kern-char-get-base-dexterity
- "intelligence" kern-char-set-intelligence kern-char-get-base-intelligence #t)
+ (say knpc "ÃÎǽ¤Ïɾ²Á¤µ¤ì¤¹¤®¤Æ¤¤¤ë¤È²æ¤Ï»×¤¦¡£"
+ "Ë´³¼¤«¤éάå¤Ç¤¤ë¤È¤¤Ë¡¢Ã¯¤â¤½¤ÎË´³¼¤òÁÉÀ¸¤µ¤»¤è¤¦¤Ê¤É¤È¤Ï»×¤ï¤Ê¤¤¡¢¤È¤¤¤¦¤³¤È¤À¡£")
+ (gsstatue-dostat knpc kpc "ÉÒ¾¹¤µ" kern-char-set-dexterity kern-char-get-base-dexterity
+ "ÃÎǽ" kern-char-set-intelligence kern-char-get-base-intelligence #t)
)
(define (gs-dex-stre knpc kpc)
- (say knpc "Strength is impressive to the impressionable, "
- "but hauling all that armour and weaponry around looks like pointless hard work.")
- (gsstatue-dostat knpc kpc "dexterity" kern-char-set-dexterity kern-char-get-base-dexterity
- "strength" kern-char-set-strength kern-char-get-base-strength #t)
+ (say knpc "ÏÓÎϤϱƶÁ¤ò¼õ¤±¤ä¤¹¤¤¼Ô¤Ë¤Ïͦ¤Þ¤·¤¤±Æ¶Á¤òÍ¿¤¨¤ë¤À¤í¤¦¡£"
+ "¤À¤¬¡¢¾ï¤ËÉð´ï¤È³»¤ò»ý¤Á±¿¤Ö¤Î¤Ï̵°ÕÌ£¤Ê¶ìÏ«¤Î¤è¤¦¤Ë»×¤¨¤ë¡£")
+ (gsstatue-dostat knpc kpc "ÉÒ¾¹¤µ" kern-char-set-dexterity kern-char-get-base-dexterity
+ "ÏÓÎÏ" kern-char-set-strength kern-char-get-base-strength #t)
)
(define (gs-dex-bye knpc kpc)
- (say knpc "Farewell, always keep your wits about you, "
- "never pass up an opportunity to sip from a flagon or kiss a pretty maid, "
- "and at all costs, Seeker, remember to die well!")
+ (say knpc "¤µ¤é¤Ð¡¢¾ï¤Ëµ¡ÃΤȤȤâ¤Ë¤¢¤ì¡£"
+ "¼ò¤ò°û¤àµ¡²ñ¤â¡¢Èþ¤·¤¤²µ½÷¤ËÀÜʤ¹¤ëµ¡²ñ¤â¡¢Æ¨¤·¤Æ¤Ï¤Ê¤é¤Ì¡£"
+ "¤½¤·¤Æ¤¤¤«¤Ê¤ë¤È¤¤â¡¢Ãµµá¼Ô¤è¡¢¤è¤¤»à¤ËÊý¤ò¤¹¤ë¤³¤È¤ò˺¤ì¤Æ¤Ï¤Ê¤é¤Ì¡ª")
)
(define gs-dex-conv
(kern-load "gamestart-mech.scm")
(kern-load "gamestart-statues.scm")
-(kern-mk-place 'p_char_setup "the Path"
+(kern-mk-place 'p_char_setup "±¿Ì¿¤ÎÆ»"
s_shrine ;; sprite
(kern-mk-map 'm_char_setup 19 19 pal_expanded
(list
(set-roomdata p_char_setup (list 6 6 6 'start-gate))
(obj-line (lambda (unused)
- (mk-step-trig 'one-off-message "A portal beckons on the far side of the room" "intromes"))
+ (mk-step-trig 'one-off-message "Éô²°¤Î¸þ¤³¤¦Â¦¤ÎÌç¤Ï¡¢¤Þ¤ë¤Ç¤¢¤Ê¤¿¤ò¼ê¾·¤¤·¤Æ¤¤¤ë¤è¤¦¤À¡£" "intromes"))
15 8 10)
(obj-line (lambda (unused)
(kern-char-set-known kchar #t)
))
-(kern-obj-put-at (mk-start-statue 'str_statue "Statue of Might" s_str_statue 'gs-str-conv) (list p_char_setup 4 10))
-(kern-obj-put-at (mk-start-statue 'dex_statue "Statue of Agility" s_dex_statue 'gs-dex-conv) (list p_char_setup 9 8))
-(kern-obj-put-at (mk-start-statue 'int_statue "Statue of Wisdom" s_int_statue 'gs-int-conv) (list p_char_setup 14 10))
+(kern-obj-put-at (mk-start-statue 'str_statue "ÏÓÎϤÎÁü" s_str_statue 'gs-str-conv) (list p_char_setup 4 10))
+(kern-obj-put-at (mk-start-statue 'dex_statue "ÉÒ¾¹¤ÎÁü" s_dex_statue 'gs-dex-conv) (list p_char_setup 9 8))
+(kern-obj-put-at (mk-start-statue 'int_statue "ÃÎǽ¤ÎÁü" s_int_statue 'gs-int-conv) (list p_char_setup 14 10))
(obj-line (lambda (unused)
(mk-step-trig 'gamestart-statue-speak 'str_statue "statspeak"))
;;----------------------------------------------------------------------------
(define (gate-guard-default knpc kpc)
- (say knpc "[No reply]"))
+ (say knpc "¡ÎÊÖ»ö¤¬¤Ê¤«¤Ã¤¿¡£¡Ï"))
(define (gate-guard-hail knpc kpc)
- (say knpc "Halt! What is the password?")
- (let ((passwd (kern-conv-get-reply kpc)))
- (if (eq? passwd (gate-guard-passwd (gob knpc)))
+ (say knpc "ÂԤơª¹ç¸ÀÍդϡ©")
+ (let ((passwd (kern-conv-get-string kpc)))
+ (if (string=? passwd (gate-guard-passwd (gob knpc)))
(let* ((guard (kobj-gob-data knpc))
(gate (eval (gate-guard-gate-tag guard))))
(signal-kobj gate 'on gate nil)
(gate-guard-start-timer! guard)
- (say knpc "You may pass")
+ (say knpc "Ä̤äƤ褤¡£")
(kern-conv-end))
(begin
- (say knpc "That is not correct")
+ (say knpc "°ã¤¦¡ª")
(kern-conv-end)
))))
(if (and (need-more-troops? kchar)
(> (kern-char-get-mana kchar) 4))
(begin
- (kern-log-msg "The mage guard summons help!")
+ (kern-log-msg "Ëâ½Ñ»Õ¤Î±Òʼ¤Ï½õ¤±¤ò¸Æ¤ó¤À¡ª")
(summon (kern-obj-get-location ktarg)
mk-ranger
(kern-being-get-current-faction kchar)
(define (guard-close-gate! guard kgate)
(signal-kobj kgate 'off kgate nil)
(gate-guard-set-gate-timer! guard 0)
- (kern-log-msg "The guard closes the gate"))
+ (kern-log-msg "±Òʼ¤ÏÌç¤òÊĤ¸¤¿¡£"))
(define (guard-too-far-from-gate? kguard kgate)
(> (distance kguard kgate) 1))
(set-level
(kern-char-arm-self
(mk-stock-char
- "a guard captain" ;;......name
+ "±Òʼ" ;;......name
sp_human ;;.........species
oc_warrior ;;........occupation
s_companion_paladin ;;........sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Green Tower.
+;; ÎФÎÅã
;;----------------------------------------------------------------------------
(define (mk-zone x y w h) (list 'p_green_tower x y w h))
(kern-mk-sched 'sch_gen
)
;; ----------------------------------------------------------------------------
-;; Gen's Goblin Lexicon
+;; ¥¸¥§¥ó¤Î¥´¥Ö¥ê¥óñ¸ì½¸
;; ----------------------------------------------------------------------------
(mk-reusable-item
- 't_goblin_lexicon "Goblin Lexicon" s_lexicon norm
+ 't_goblin_lexicon "¥´¥Ö¥ê¥ó¸ìñ¸ì½¸" s_lexicon norm
(lambda (klexicon kuser)
(kern-ui-page-text
- "Goblin Lexicon"
- "I compiled these notes to help others learn the goblin language. "
- "I hope they are useful."
- "--Gen"
+ "¥´¥Ö¥ê¥ó¸ìñ¸ì½¸"
+ "¤³¤ì¤Ï¥´¥Ö¥ê¥ó¸ì¤ò³Ø¤Ö½õ¤±¤È¤¹¤ë¤¿¤á¤Ë½ñ¤«¤ì¤¿"
+ "¤â¤Î¤Ç¤¢¤ë¡£ÌòΩ¤Ä¤³¤È¤ò˾¤à¡£"
+ "¡Ý¥¸¥§¥ó"
""
- "Bo.....My, Myself"
- "Cho....Mankind"
- "Da.....Abode, World"
- "Eh.....'What?'"
- "Gu.....Spirit, Ancestor"
- "Ha.....Good, Yes, Skillful"
- "Hi.....Magic"
- "Iki....Go, At"
- "Jo.....Join"
- "Ka.....Kill, Destroy, End"
- "Ki.....Health, Life-Force, Power"
- "Lu.....Change, Metamorphosis, Transformation"
- "Ma.....Forest, Hidden Ways"
- "Me.....Duty, Job, Destiny"
- "Na.....Yours, Yourself"
- "Nu.....Give Birth, Create, Begin"
- "No.....Name"
- "Nin....Stealth"
- "Ru.....Ancient, Primordal, Deep, Cave"
- "To.....Individual"
- "Tu.....No, Bad"
- "Zu.....Watch, Seek"
+ "¥Ü¡Ä¡Ä»ä¤Î¡¢»ä¼«¿È"
+ "¥Á¥ç¡Ä¿Í´Ö"
+ "¥À¡Ä¡Ä²È¡¢À¤³¦"
+ "¥¨¡¼¡Ä¡Ö²¿¡©¡×"
+ "¥°¡Ä¡Äº²¡¢ÁÄÀè"
+ "¥Ï¡Ä¡ÄÎɤ¤¡¢¤Ï¤¤¡¢¹ª¤ß¤Ê"
+ "¥Ò¡Ä¡Ä¼ö½Ñ"
+ "¥¤¥¡Ä¹Ô¤¯¡¢¡Á¤Ç"
+ "¥¸¥ç¡Ä²Ã¤ï¤ë"
+ "¥«¡Ä¡Ä»¦¤¹¡¢²õ¤ì¤ë¡¢½ª¤ï¤ë"
+ "¥¡Ä¡Ä·ò¹¯¡¢À¸Ì¿ÎÏ¡¢ÎÏ"
+ "¥ê¥å¡Ä¸ò´¹¡¢ÊѲ½¡¢ÊÑ¿È"
+ "¥Þ¡Ä¡Ä¿¹¡¢±£¤µ¤ì¤¿Æ»"
+ "¥á¡Ä¡ÄÌòÌÜ¡¢»Å»ö¡¢±¿Ì¿"
+ "¥Ê¡Ä¡Ä¤¢¤Ê¤¿¤Î¡¢¤¢¤Ê¤¿¼«¿È"
+ "¥Ì¡Ä¡ÄÀ¸¤à¡¢ºî¤ë¡¢»Ï¤Þ¤ë"
+ "¥Î¡Ä¡Ä̾Á°"
+ "¥Ë¥ó¡Ä±£¤µ¤ì¤¿"
+ "¥ë¡Ä¡Ä¸ÅÂå¡¢¸¶»Ï¡¢¿¼¤¤¡¢Æ¶·¢"
+ "¥È¡Ä¡Ä¼Ô"
+ "¥Ä¡Ä¡Ä¤¤¤¤¤¨¡¢°¤¤"
+ "¥º¡Ä¡Ä¸«¤ë¡¢Ãµ¤¹"
)))
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Gen is a Ranger who dwells in Green Tower.
-;; He has much knowledge of Goblin kind, and is a friend of Kama.
-;; Gen is a potential party member.
+;; ¥¸¥§¥ó¤Ï·ÙÈ÷Ââ°÷¤ÇÎФÎÅã¤Ë½»¤ó¤Ç¤¤¤ë¡£
+;; Èà¤Ï¥´¥Ö¥ê¥ó¤ÎÃ챤¬¤¢¤ê¡¢¥«¥Þ¤Îͧ¿Í¤Ç¤â¤¢¤ë¡£
+;; ¥¸¥§¥ó¤ÏÃç´Ö¤Ë¤Ê¤ë¡£
;;----------------------------------------------------------------------------
-(define (gen-hail gen player) (say gen "Hail, Wanderer"))
-(define (gen-bye gen player) (say gen "Farewell"))
-(define (gen-default gen player) (say gen "I can't help you with that"))
-(define (gen-name gen player) (say gen "I am Gen." ))
-(define (gen-woodsman gen player) (say gen "Yes, some call me the Woodsman." ))
-(define (gen-job gen player) (say gen "Once I was a Ranger, but my duty now is done. I wander 'midst the woods for my own reasons." ))
-(define (gen-reasons gen player) (say gen "My reasons are my own." ))
+(define (gen-hail gen player) (say gen "¤³¤ó¤Ë¤Á¤Ï¡¢Ì¤¤¿Í¤µ¤ó¡£"))
+(define (gen-bye gen player) (say gen "¤µ¤è¤¦¤Ê¤é¡£"))
+(define (gen-default gen player) (say gen "¤½¤ì¤Ï¤ï¤«¤ê¤Þ¤»¤ó¡£"))
+(define (gen-name gen player) (say gen "»ä¤Ï¥¸¥§¥ó¡£"))
+(define (gen-woodsman gen player) (say gen "¤½¤¦¡¢»ä¤ò¿¹¿Í¤È¸Æ¤Ö¼Ô¤â¤¤¤Þ¤¹¡£" ))
+(define (gen-job gen player) (say gen "¤«¤Ä¤Æ»ä¤Ï·ÙÈ÷Ââ°÷¤Ç¤·¤¿¡£¤·¤«¤·¡¢¤½¤Î¶Ð¤á¤ò½ª¤¨¤Þ¤·¤¿¡£º£¤Ç¤Ï¼«Ê¬¤Î¤¿¤á¤Ë¿¹¤òÊ⤲ó¤Ã¤Æ¤¤¤Þ¤¹¡£" ))
+(define (gen-reasons gen player) (say gen "¼«Ê¬¤Î¤¿¤á¤Ë¤Ç¤¹¡£" ))
(define (gen-captain gen player)
- (say gen "Captain Deric commands the Rangers of Green Tower. Have you met him?")
+ (say gen "¥Ç¥ê¥Ã¥¯ÂâŤÏÎФÎÅã¤Ç·ÙÈ÷Ââ¤ò»Ø´ø¤·¤Æ¤¤¤Þ¤¹¡£¤â¤¦²ñ¤¤¤Þ¤·¤¿¤«¡©")
(if (kern-conv-get-yes-no? player)
- (say gen "A decent man, if somewhat ambitious.")
- (say gen "You can find him in the Tower. His office is on the second floor.")))
+ (say gen "Íǽ¤ÊÃˤǤ¹¤¬¡¢¾¯¡¹ÌŪ¤Ç¤¹¡£")
+ (say gen "Åã¤Ë¤¤¤Þ¤¹¡£Èà¤Î»ö̳½ê¤ÏÆ󳬤ˤ¢¤ê¤Þ¤¹¡£")))
-(define (gen-ambitious gen player) (say gen "In peace there's nothing so becomes a man as modest stillness and humility." ))
+(define (gen-ambitious gen player) (say gen "ʿϤʤȤ¤Ë¤Ï¡¢¿Í¤Ï¤Ä¤Ä¤Þ¤·¤¯¸¬µõ¤Ë¤Ï¤Ê¤é¤Ê¤¤¤â¤Î¤Ç¤¹¡£"))
(define (gen-culture gen player)
- (say gen "Though a culture their own, truly a culture they have, (unlike the trolls and headless)."
- "The truths of culture can be seen in Shakespeare, truths which hold across the gulfs between different folk."))
+ (say gen "Æȼ«¤Îʸ²½¤Ç¤¹¤¬¡¢ËÜÅö¤Îʸ²½¤ò»ý¤Ã¤Æ¤¤¤Þ¤¹(¥È¥í¥ë¤ä¼ó¤Ê¤·¤È¤Ï°ã¤Ã¤Æ)¡£"
+ "¥·¥§¥¤¥¯¥¹¥Ô¥¢¤ÎÃæ¤Ë¤¢¤ë¤è¤¦¤Ë¡¢¤½¤ì¤Ï°Û¤Ê¤ë¿Í¡¹¤òĶ¤¨¤Æ¸ºß¤¹¤ë¤â¤Î¤Ç¤¹¡£"))
(define (gen-shakespeare gen player)
- (say gen "You know of him! Very good! Some interesting conversation at last.")
+ (say gen "Èà¤òÃΤäƤ¤¤ë¤Î¤Ç¤¹¤«¡ª¤¹¤Ð¤é¤·¤¤¡ª")
(if (in-player-party? 'ch_kama)
- (say gen player "[He points at Kama] Another who knows of the Bard! You should hear his telling of Hamlet!")
+ (say gen "¡ÎÈà¤Ï¥«¥Þ¤ò¸«¤¿¡£¡ÏÈà¤Ï¤½¤Î»í¿Í¤òÃΤë¤â¤¦°ì¿Í¤Ç¤¹¡ªÈà¤Î¸ì¤ë¥Ï¥à¥ì¥Ã¥È¤Ï¤¼¤Òʹ¤¯¤Ù¤¤Ç¤¹¡ª")
))
-(define (gen-ranger gen player) (say gen "Rangers fought in these woods during the Goblin Wars. Now they maintain a token presence."))
-(define (gen-wars gen player) (say gen "Yes, I fought as a Ranger in the goblin wars. That was a generation ago, and people forget. "
- "They see the goblins as lesser beings, defeated and worthy of slow extinction."))
-(define (gen-goblin gen player) (say gen "An interesting species. Although they have their own language they have no writing. "
- "They are much like men, but more savage, more primal. "
- "Their warriors are beserkers, their shamans are ecstatic mystics."))
-(define (gen-primal gen player) (say gen "You can tell I admire them? But in the wars I fought them, not understanding what they were. "
- "I have friends among the wild forest goblins, now. The cave goblins, though, they are another story..." ))
-(define (gen-cave gen player) (say gen "The cave goblins, who are larger and stronger than their forest cousins, prefer to live in the deeps of the world. "
- "Their dark god demands living sacrifices. Beware them if you explore the caves, they burn with hatred for humankind." ))
+(define (gen-ranger gen player) (say gen "·ÙÈ÷Ââ¤Ï¥´¥Ö¥ê¥óÀïÁè¤Î´Ö¤³¤Î¿¹¤ÇÀ襤¤Þ¤·¤¿¤¬¡¢º£¤Ç¤Ï·Á¼°Åª¤Ê¸ºß¤Ç¤¹¡£"))
+(define (gen-wars gen player) (say gen "¤Ï¤¤¡£»ä¤Ï·ÙÈ÷Ââ°÷¤È¤·¤Æ¥´¥Ö¥ê¥óÀïÁè¤ÇÀ襤¤Þ¤·¤¿¡£°ìÀ¤ÂåÁ°¤Î¤³¤È¤Ç¡¢¿Í¡¹¤Ï˺¤ì¤Æ¤¤¤Þ¤¹¡£"
+ "¿Í¡¹¤Ï¥´¥Ö¥ê¥ó¤òÎô¤Ã¤¿Â¸ºß¡¢ÇÔ¤ìµî¤ê¾Ã¤¨¤ë¤Ù¤Â¸ºß¤È¤ß¤Ê¤·¤Æ¤¤¤Þ¤¹¡£"))
+(define (gen-goblin gen player) (say gen "¶½Ì£¿¼¤¤¼ï²¤Ç¤¹¡£Èà¤é¤ÏÆȼ«¤Î¸À¸ì¤ò»È¤¤¤Þ¤¹¤¬¡¢Ê¸»ú¤ò»ý¤Ã¤Æ¤¤¤Þ¤»¤ó¡£"
+ "¿Í¤È»÷¤Æ¤¤¤Þ¤¹¤¬¡¢¤è¤ê¶§Ë½¤Ç¡¢¤è¤ê¸¶»ÏŪ¤Ç¤¹¡£"
+ "Èà¤é¤Îʼ»Î¤Ï¶¸Àï»Î¤Ç¡¢¼ö½Ñ»Õ¤Ï×ò¹û¤È¤·¤Æ¤¤¤Þ¤¹¡£"))
+(define (gen-primal gen player) (say gen "»ä¤ÏÈà¤é¤òº·É¤·¤Æ¤¤¤Þ¤¹¡£¤·¤«¤·¡¢ÀïÁè¤Î¤³¤í¤ÏÈà¤é¤Î¤³¤È¤òÃΤê¤Þ¤»¤ó¤Ç¤·¤¿¡£"
+ "º£¤Ç¤Ï¿¹¥´¥Ö¥ê¥ó¤Îͧ¿Í¤¬¤¤¤Þ¤¹¡£Æ¶·¢¥´¥Ö¥ê¥ó¤Ï¤Þ¤¿Ê̤Ǥ¹¤¬¡Ä" ))
+(define (gen-cave gen player) (say gen "ƶ·¢¥´¥Ö¥ê¥ó¤Ï¡¢¿¹¤Î¼Ô¤è¤êÂ礤¯¤ÆÎϤ¬¶¯¤¯¡¢¤³¤ÎÀ¤³¦¤Î±ü¿¼¤¯¤ÇÀ¸¤¤ë¤³¤È¤ò¹¥¤à¼Ô¤¿¤Á¤Ç¤¹¡£"
+ "Èà¤é¤Î°Ç¤Î¿À¤ÏÀ¸ìÓ¤òµá¤á¤Þ¤¹¡£Æ¶·¢¤òõ¸¡¤¹¤ë¤È¤¤ÏÈà¤é¤Ëµ¤¤ò¤Ä¤±¤ë¤³¤È¤Ç¤¹¡£Èà¤é¤Î¿´¤Ï¿Í´Ö¤Ø¤ÎÁþ¤·¤ß¤Çdz¤¨¤Æ¤¤¤Þ¤¹¡£" ))
(define (gen-language kgen player)
(let ((gen (kobj-gob-data kgen)))
- (say kgen "Yes, I can speak a few words of goblin. Would you like to learn?")
+ (say kgen "¤½¤¦¤Ç¤¹¡£»ä¤Ï¾¯¤·¥´¥Ö¥ê¥ó¸ì¤òÏ令ޤ¹¡£ÃΤꤿ¤¤¤Ç¤¹¤«¡©")
(if (kern-conv-get-yes-no? player)
(if (gen-gave-notes? gen)
- (say kgen "Study the notes I gave you, and then practice on me.")
+ (say kgen "»ä¤Îñ¸ì½¸¤Ç³Ø¤ó¤Ç¤¯¤À¤µ¤¤¡£¤½¤·¤Æ»ä¤òÁê¼ê¤ËÎý½¬¤·¤Æ¤¯¤À¤µ¤¤¡£")
(begin
- (say kgen "Here are some notes I have made on their language. You may keep it. Feel free to practice with me.")
+ (say kgen "Èà¤é¤Î¸À¸ì¤Ë¤Ä¤¤¤Æ¤Þ¤È¤á¤¿¤â¤Î¤Ç¤¹¡£¼õ¤±¼è¤Ã¤Æ¤¯¤À¤µ¤¤¡£»ä¤òÁê¼ê¤Ë¼«Í³¤ËÎý½¬¤·¤Æ¤¯¤À¤µ¤¤¡£")
(kern-obj-add-to-inventory player t_goblin_lexicon 1)
(gen-set-gave-notes! gen #t)))
- (say kgen "Perhaps another time."))))
+ (say kgen "¤½¤ì¤Ç¤ÏÊ̤ε¡²ñ¤Ë¡£"))))
-(define (gen-practice gen player) (say gen "If you want to practice speaking goblin, just ask me something in goblin!" ))
+(define (gen-practice gen player) (say gen "¥´¥Ö¥ê¥ó¤ÈÏä¹Îý½¬¤ò¤·¤¿¤¤¤Î¤Ç¤¢¤ì¤Ð¡¢»ä¤Ë¥´¥Ö¥ê¥ó¸ì¤ÇÏä·¤«¤±¤Æ¤¯¤À¤µ¤¤¡ª" ))
(define (gen-join gen player)
(if (gen-will-join? (kobj-gob-data gen))
(begin
- (say gen "Yes, I will join you. "
- "I'll need my equipment from my chest, "
- "so let's go to my hut in the west part of town. "
- "Once more unto the breach, dear friends!")
+ (say gen "¤ï¤«¤ê¤Þ¤·¤¿¡£Ãç´Ö¤Ë²Ã¤ï¤ê¤Þ¤·¤ç¤¦¡£"
+ "ÁõÈ÷¤¬É¬ÍפǤ¹¡£¤³¤ÎÄ®¤ÎÀ¾¤Ë¤¢¤ë»ä¤Î¾®²°¤Ø¹Ô¤Ã¤Æ¡¢È¢¤ÎÃæ¤Î¤â¤Î¤ò¼è¤ê¤Ë¹Ô¤¤Þ¤·¤ç¤¦¡£"
+ "¤Ç¤Ï²þ¤á¤Æ¡£Í§¤è¡ª")
(join-player gen))
- (say gen "No, for the woods call my name.")))
+ (say gen "¤¤¤¤¤¨¡£¿¹¤Î¸ÀÍդǻä¤Î̾Á°¤ò¸À¤Ã¤Æ¤¯¤À¤µ¤¤¡£")))
;; SAM: Added a few words from the Lexicon which were not defined as responses.
;; These were (Iki, Lu, Nin)
;; Added responses having to do with the concepts of Wanderer, Warrior, Wizard, Rogue, Wright.
;; A bit of organization/tidying may still be wanted, to make sure there are no loose ends .
-(define (gen-da gen player) (say gen "Ha! Da-Ma-To means forest goblin." ))
-(define (gen-gu gen player) (say gen "Ha! Da-Gu means world." ))
-(define (gen-ru gen player) (say gen "Ha! Da-Ru-To means cave goblin." ))
-(define (gen-no gen player) (say gen "Bo-No-Gen. But the goblins call me Ma-Zu-To." ))
-(define (gen-ki gen player) (say gen "Bo-Ha-Ki! I am healthy." ))
-(define (gen-jo gen player) (say gen "Very good! If you befriend a goblin he may join you in your adventures."))
-(define (gen-cho gen player) (say gen "Ha! Cho-To means 'a man'." ))
-(define (gen-nu gen player) (say gen "Ha! Nu-Ki is the goblin word for 'food'" ))
-(define (gen-ha gen player) (say gen "Yes, Ha is a general affirmative term." ))
-(define (gen-tu gen player) (say gen "Right, Tu is a general negative term." ))
-(define (gen-bo gen player) (say gen "Yes, Bo-Gu means your spirit self, which is your altar ego in the spirit world." ))
-(define (gen-na gen player) (say gen "Yes, Bo-Na means 'us', or 'tribe'. Bo-Na-Ma refers to forest goblins in general." ))
-(define (gen-to gen player) (say gen "Right, To is a general suffix meaning person." ))
-(define (gen-ma gen player) (say gen "Yes, and Ka-Ma-To is their term for lumberjack." ))
-(define (gen-eh gen player) (say gen "Eh? Ah yes, Eh-Na-Me means what is your job, or duty." ))
-(define (gen-iki gen player) (say gen "Ha! Bo-Iki-Da means 'I go home'."))
+(define (gen-da gen player) (say gen "¥Ï¡ª¥À¡¦¥Þ¡¦¥È¤Ï¿¹¥´¥Ö¥ê¥ó¤ò°ÕÌ£¤·¤Þ¤¹¡£" ))
+(define (gen-gu gen player) (say gen "¥Ï¡ª¥À¡¦¥°¤ÏÀ¤³¦¤È¤¤¤¦°ÕÌ£¤Ç¤¹¡£" ))
+(define (gen-ru gen player) (say gen "¥Ï¡ª¥À¡¦¥ë¡¦¥È¤Ïƶ·¢¥´¥Ö¥ê¥ó¤ò°ÕÌ£¤·¤Þ¤¹¡£" ))
+(define (gen-no gen player) (say gen "¥Ü¡¦¥Î¡¦¥¸¥§¥ó¡£¤Ç¤â¥´¥Ö¥ê¥ó¤¿¤Á¤Ï»ä¤ò¥Þ¡¦¥º¡¦¥È¤È¸Æ¤Ó¤Þ¤¹¡£" ))
+(define (gen-ki gen player) (say gen "¥Ü¡¦¥Ï¡¦¥¡ª»ä¤Ï¸µµ¤¤Ç¤¹¡£" ))
+(define (gen-jo gen player) (say gen "¤È¤Æ¤â¤¹¤Ð¤é¤·¤¤¤³¤È¤Ç¤¹¡ª¥´¥Ö¥ê¥ó¤Î½õ¤±¤¬É¬Íפʤ顢Èà¤Ï¤¢¤Ê¤¿¤ÎËÁ¸±¤Ë²Ã¤ï¤ë¤Ç¤·¤ç¤¦¡£"))
+(define (gen-cho gen player) (say gen "¥Ï¡ª¥Á¥ç¡¦¥È¤Ï¿Í´Ö¤ò°ÕÌ£¤·¤Þ¤¹¡£" ))
+(define (gen-nu gen player) (say gen "¥Ï¡ª¥Ì¡¦¥¤Ï¥´¥Ö¥ê¥ó¤Î¸ÀÍդǡֿ©¤Ùʪ¡×¤Ç¤¹¡£" ))
+(define (gen-ha gen player) (say gen "¤¨¤¨¡£¥Ï¤Ï¹ÎÄê¤òɽ¤¹¸ÀÍդǤ¹¡£" ))
+(define (gen-tu gen player) (say gen "¤½¤ÎÄ̤ꡣ¥Ä¤ÏÈÝÄê¤Î¸ÀÍդǤ¹¡£" ))
+(define (gen-bo gen player) (say gen "¤½¤¦¡¢¥Ü¡¦¥°¤Ï¤¢¤Ê¤¿¤Îº²¡¢ÎîŪ¤ÊÀ¤³¦¤Î¤¢¤Ê¤¿¤ò°ÕÌ£¤·¤Þ¤¹¡£" ))
+(define (gen-na gen player) (say gen "¤Ï¤¤¡£¥Ü¡¦¥Ê¤Ï¡Ö»ä¤¿¤Á¡×¡¢¤Þ¤¿¤Ï¡Ö°ì²¡×¤Ç¤¹¡£¥Ü¡¦¥Ê¡¦¥Þ¤Ï¿¹¥´¥Ö¥ê¥ó°ìÈ̤ò»Ø¤·¤Þ¤¹¡£" ))
+(define (gen-to gen player) (say gen "¤½¤ÎÄ̤ꡣ¥È¤òÉÕ¤±¤ë¤È²¿¤«¤ò¤¹¤ë¼Ô¤òɽ¤·¤Þ¤¹¡£" ))
+(define (gen-ma gen player) (say gen "¤½¤¦¡¢¥«¡¦¥Þ¡¦¥È¤ÏÌÚ¤³¤ê¤òɽ¤¹¸ÀÍդǤ¹¡£" ))
+(define (gen-eh gen player) (say gen "¥¨¡¼¡©¤¢¤¢¡¢¤½¤¦¡¢¥¨¡¼¡¦¥Ê¡¦¥á¤Ï¤¢¤Ê¤¿¤Î»Å»ö¡¢¤Þ¤¿¤ÏÌò³ä¤Ï²¿¤Ç¤¹¤«¡©¤È¤¤¤¦°ÕÌ£¤Ç¤¹¡£" ))
+(define (gen-iki gen player) (say gen "¥Ï¡ª¥Ü¡¦¥¤¥¡¦¥À¤Ï¡Ö»ä¤Ï²È¤ØÌá¤ë¡×¤È¤¤¤¦°ÕÌ£¤Ç¤¹¡£"))
-(define (gen-me gen player) (say gen "Bo-Ma-Zu. I watch the forest, or I seek the hidden ways. Me-Lu-Ki is to grow, change, learn, explore. Such is the path of the Wanderer!"))
-(define (gen-ka gen player) (say gen "Ha! Ka-Ha-To means warrior. And Me-Ka-Ha is the path of the Warrior!"))
-(define (gen-hi gen player) (say gen "Ha! Hi-Ma-To is the word for 'shaman'. And Me-Ha-Zu-Ru is the path of the Wizard!"))
-(define (gen-nin gen player) (say gen "Ha! Nin-Ma-To is a Forest Stalker. And Me-Ha-Nin-Zu is the path of the Rogue!"))
-(define (gen-lu gen player) (say gen "Ha! Lu-Da-To is one who makes. And Me-Ha-Lu-Da is the path of the Wright!"))
+(define (gen-me gen player) (say gen "¥Ü¡¦¥Þ¡¦¥º¡¢»ä¤Ï¿¹¤ò´Æ»ë¤·¤Æ¤¤¤ë¡¢¤Þ¤¿¤Ï±£¤µ¤ì¤¿Æ»¤òõ¤·¤Æ¤¤¤ë¡£¥á¡¦¥ë¡¦¥¤ÏÀ®Ä¹¡¢ÊѲ½¡¢³Ø¤Ó¡¢Ãµµá¡¢¤½¤ì¤Ï̤¤¿Í¤ÎÆ»¤Ç¤¹¡ª"))
+(define (gen-ka gen player) (say gen "¥Ï¡ª¥«¡¦¥Ï¡¦¥È¤ÏÀï»Î¤ò¡¢¤½¤·¤Æ¥á¡¦¥«¡¦¥Ï¤ÏÀï»Î¤ÎÀ¸¤Íͤòɽ¤·¤Þ¤¹¡ª"))
+(define (gen-hi gen player) (say gen "¥Ï¡ª¥Ò¡¦¥Þ¡¦¥È¤Ï¡Ö¼ö½Ñ»Õ¡×¤Î¤³¤È¤Ç¤¹¡£¤½¤·¤Æ¡Ö¥á¡¦¥Ï¡¦¥º¡¦¥ë¡×¤ÏËâ½Ñ»Õ¤ÎÀ¸¤ÍͤǤ¹¡ª"))
+(define (gen-nin gen player) (say gen "¥Ï¡ª¥Ë¥ó¡¦¥Þ¡¦¥È¤Ï¿¹¤Î±£Ì©¤Ç¤¹¡£¤½¤·¤Æ¥á¡¦¥Ï¡¦¥Ë¥ó¡¦¥º¤Ï¤Ê¤é¤º¼Ô¤ÎÀ¸¤ÍͤǤ¹¡ª"))
+(define (gen-lu gen player) (say gen "¥Ï¡ª¥ê¥å¡¦¥À¡¦¥È¤Ïºî¤ë¼Ô¤Ç¤¹¡£¤½¤·¤Æ¥á¡¦¥Ï¡¦¥ê¥å¡¦¥À¤ÏÂ繩¤ÎÀ¸¤ÍͤǤ¹¡ª"))
-(define (gen-zu gen player) (say gen "Good! And Zu-To means seeker, or Wanderer. [He looks at you percingly.] Iki Meluki?"))
-(define (gen-meluki gen player) (say gen "So, you are a seeker indeed. I would join you, if you can master Gunodama"))
-(define (gen-gunodama gen player) (say gen "The names given by the ancestor spirits, to those who abide in the forest. In other words, the language of the Forest Goblins."))
+(define (gen-zu gen player) (say gen "¤¹¤Ð¤é¤·¤¤¡ª¤½¤·¤Æ¥º¡¦¥È¤Ïõµá¼Ô¡¢¤Þ¤¿¤Ï̤¤¿Í¤Î¤³¤È¤Ç¤¹¡£¡ÎÈà¤Ï±Ô¤¤ÌܤǤ¢¤Ê¤¿¤ò¸«¤¿¡£¡Ï¥¤¥¡¦¥á¥ê¥å¥¡©"))
+(define (gen-meluki gen player) (say gen "¤½¤¦¡£¤¢¤Ê¤¿¤Ïõµá¼Ô¤Ç¤¹¡£¤â¤·¤¢¤Ê¤¿¤¬¥°¥Î¥À¥Þ¤ò½¬ÆÀ¤·¤¿¤Ê¤éÃç´Ö¤Ë¤Ê¤ê¤Þ¤·¤ç¤¦¡£"))
+(define (gen-gunodama gen player) (say gen "¿¹¤Ë½»¤àÁÄÀè¤Îº²¤«¤éÍ¿¤¨¤é¤ì¤¿Ì¾Á°¡¢Ê̤θÀÍդǸÀ¤¨¤Ð¿¹¥´¥Ö¥ê¥ó¤Î¸ÀÍդΤ³¤È¤Ç¤¹¡£"))
(define (gen-nuki knpc kpc)
- (say knpc "That's goblinese for 'food'."))
+ (say knpc "¤½¤ì¤Ï¥´¥Ö¥ê¥ó¸ì¤Ç¡Ö¿©¤Ùʪ¡×¤Ç¤¹¡£"))
(define (gen-bonaha gen player)
- (say gen "Excellent! That is the goblin word for friend. You have come far in mastering their language.")
+ (say gen "¤¹¤Ð¤é¤·¤¤¡ª¤½¤ì¤Ï¥´¥Ö¥ê¥ó¤Î¸ÀÍÕ¤Çͧ¿Í¤Ç¤¹¡£¥´¥Ö¥ê¥ó¤Î¸ÀÍÕ¤¬¤ï¤«¤Ã¤Æ¤¤¿¤è¤¦¤Ç¤¹¤Í¡£")
(gen-set-will-join! (kobj-gob-data gen) #t))
-(define (gen-shroom gen player) (say gen "She is an old friend. Can you believe she was a war-maiden in the Goblin Wars?"))
-(define (gen-maiden gen player) (say gen "It's true! I can still remember her hand-axe flashing in the moonlight "
- "as she hacked her way through goblin war parties, chanting a battle-ward "
- "with ragged breath! She was a sight to see."))
+(define (gen-shroom gen player) (say gen "Èà½÷¤Ï¸Å¤¯¤«¤é¤Îͧ¿Í¤Ç¤¹¡£¥´¥Ö¥ê¥óÀïÁè¤Îº¢¤ÏÀï¾ì¤Î²µ½÷¤À¤Ã¤¿¤È¸À¤Ã¤¿¤é¿®¤¸¤Þ¤¹¤«¡©"))
+(define (gen-maiden gen player) (say gen "ËÜÅö¤Ç¤¹¡ªÈà½÷¤¬Â©¤òÀڤ餻¤Æ¼é¸î¤Î¼öʸ¤ò¾§¤¨¤Ê¤¬¤é¡¢·îÌÀ¤«¤ê¤Çµ±¤¯¼êÉà¤Ç¥´¥Ö¥ê¥ó¤ÎÉôÂâ¤ò¤Ê¤®Åݤ·Æ»¤òÀڤ곫¤¯»Ñ¤òº£¤Ç¤â³Ð¤¨¤Æ¤¤¤Þ¤¹¡£"
+ "Èà½÷¤Î³èÌö¤ÏÌܤò¸«Ä¥¤ë¤â¤Î¤¬¤¢¤ê¤Þ¤·¤¿¡£"))
(define (gen-thie knpc kpc)
- (say knpc "I've seen no one odd around here, but the goblins who live in "
- "the north wood recently saw a lone man traveling northeast toward "
- "Bole.")
+ (say knpc "¤³¤Î¤¢¤¿¤ê¤Ç¤Ï²ø¤·¤¤¼Ô¤Ï¸«¤Þ¤»¤ó¤Ç¤·¤¿¡£"
+ "¤Ç¤â¡¢Ë̤ο¹¤Ë½»¤à¥´¥Ö¥ê¥ó¤¬¡¢ºÇ¶áËÌÅì¤Î¥Ü¥ì¤Ë°ì¿Í¤Ç¸þ¤«¤¦¼Ô¤ò¸«¤¿¤½¤¦¤Ç¤¹¡£")
(quest-data-update 'questentry-thiefrune 'tower 1)
(quest-data-update-with 'questentry-thiefrune 'bole 1 (quest-notify (grant-party-xp-fn 10)))
)
(define (gen-kama knpc kpc)
(if (is-player-party-member? ch_kama)
(begin
- (say knpc "I see Kama has joined you. Bonaha Kama!")
- (say ch_kama "Unh. Bonaha Mazuto."))
+ (say knpc "¥«¥Þ¤Ï¤¢¤Ê¤¿¤Ë²Ã¤ï¤Ã¤¿¤è¤¦¤Ç¤¹¤Í¡£¥Ü¥Ê¥Ï¡¡¥«¥Þ¡ª")
+ (say ch_kama "¥¦¥ó¡£¡¡¥Ü¥Ê¥Ï¡¡¥Þ¥º¥È¡£"))
(begin
- (say knpc "Kama is a forest goblin hunter. He was supposed to meet me at the edge of town a few nights back but he never showed up. Have you seen him?")
+ (say knpc "¥«¥Þ¤Ï¥´¥Ö¥ê¥ó¤Î¼í¿Í¤Ç¤¹¡£Èà¤È¤Ï¤³¤ÎÄ®¤Î³Ñ¤Ç²¿Æü¤«Á°¤ÎÌë¤Ë²ñ¤¦¤³¤È¤Ë¤Ê¤Ã¤Æ¤¤¤¿¤Î¤Ç¤¹¤¬¡¢¸½¤ì¤Þ¤»¤ó¤Ç¤·¤¿¡£Èà¤È²ñ¤Ã¤¿¤³¤È¤¬¤¢¤ê¤Þ¤¹¤«¡©")
(if (yes? kpc)
(begin
- (say knpc "Is he in trouble?")
+ (say knpc "²¿¤«º¤¤Ã¤Æ¤¤¤Þ¤·¤¿¤«¡©")
(if (yes? kpc)
- (say knpc "We must help him if we can!")
- (say knpc "That is a relief!")))
- (say knpc "If you do, let me know. I'm a bit worried.")))))
+ (say knpc "¤Ç¤¤ë¤Ê¤é½õ¤±¤Ë¹Ô¤¤¿¤¤¡ª")
+ (say knpc "°Â¿´¤·¤Þ¤·¤¿¡ª")))
+ (say knpc "¤â¤·²ñ¤Ã¤¿¤éÃΤ餻¤Æ¤¯¤À¤µ¤¤¡£¾¯¤·¿´ÇۤǤ¹¡£")))))
(define (gen-ruka knpc kpc)
- (say knpc "Ruka is the goblin's name for Angriss, their god of death. "
- "The priests of Angriss were agitators during the goblin wars. "
- "Her cult has all but died out since their defeat. ")
+ (say knpc "¥ë¥«¤È¤Ï¥´¥Ö¥ê¥ó¤¿¤Á¤Î¥¢¥ó¥°¥ê¥¹¡¢»à¤Î½÷¿À¤Î¸Æ¤Ó̾¤Ç¤¹¡£"
+ "¥¢¥ó¥°¥ê¥¹¤Î¿À´±¤¿¤Á¤ÏÀïÁè¤Î´Ö¡¢¥´¥Ö¥ê¥ó¤ò»à¤Ø¤È¶î¤êΩ¤Æ¤Æ¤¤¤Þ¤·¤¿¡£"
+ "Èà½÷¤Ø¤Î¿®¶Ä¤ÏÀïÁè¤ËÉ餱¤Æ¤«¤éÇѤì¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£")
(prompt-for-key)
- (say knpc "Now, she is only a myth to keep children from straying into the woods, "
- "where more practical dangers still exist."))
+ (say knpc "º£¤Ç¤ÏÈà½÷¤Ï»Ò¶¡¤ò¿¹¤Ë¶á¤Å¤±¤µ¤»¤Ê¤¤¤¿¤á¤Îñ¤Ê¤ë¸À¤¤ÅÁ¤¨¤Ç¤¹¡£"
+ "¿¹¤Ë¤Ï¤â¤Ã¤È´í¸±¤Ê¤â¤Î¤¬¤¤¤Þ¤¹¤«¤é¤Í¡£"))
(define (gen-clov knpc kpc)
- (say knpc "King Clovis led the paladins in the Goblin War. "
- "If my friend Kama would ever show up we could ask him "
- "if the goblins ever recovered his body.")
+ (say knpc "¥¯¥í¡¼¥Ó¥¹²¦¤Ï¥´¥Ö¥ê¥óÀïÁè¤ÇÀ»µ³»Î¤¿¤Á¤òƳ¤¤¤¿¼Ô¤Ç¤¹¡£"
+ "¤â¤·Í§¿Í¤Î¥«¥Þ¤È²ñ¤¨¤ì¤Ð¡¢Èà¤ÎË´³¼¤¬¤É¤¦¤Ê¤Ã¤¿¤«Ê¹¤¯¤³¤È¤¬¤Ç¤¤Þ¤¹¡£")
(quest-data-update-with 'questentry-rune-f 'kama 1 (quest-notify nil))
)
(define (gen-band knpc kpc)
- (say knpc "The goblins report a bandit camp somewhere to the south and west. "
- "Perhaps Deric knows more."))
+ (say knpc "¥´¥Ö¥ê¥óã¤ÏÅð±¤Î¾®²°¤¬ÆÀ¾¤Î¤É¤³¤«¤Ë¤¢¤ë¤È¸À¤Ã¤Æ¤¤¤Þ¤·¤¿¡£"
+ "¥Ç¥ê¥Ã¥¯ÂâĹ¤Ï¤â¤Ã¤È¾Ü¤·¤¤¤³¤È¤òÃΤäƤ¤¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¡£"))
(define gen-conv
(ifc basic-conv
(method 'ambi gen-ambitious)
(method 'band gen-band)
(method 'capt gen-captain)
+ (method 'deri gen-captain)
(method 'cave gen-cave)
(method 'fore gen-job)
(method 'maid gen-maiden)
(define (mk-gen tag)
(bind
(kern-mk-char tag ; tag
- "Gen" ; name
+ "¥¸¥§¥ó" ; name
sp_human ; species
oc_ranger ; occ
s_old_ranger ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Oparine
+;; ¥ª¥Ñ¡¼¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_ghertie
(list 0 0 cheerful-room-3 "idle")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Ghertie is the vengeful ghost of a murdered female pirate captain.
-;; She haunts an inn room in Oparine.
+;; ¥¬¡¼¥Æ¥£¡¼¤Ï½÷À¤Î³¤Â±¤ÎÁ¥Ä¹¤Ç¡¢»¦¤µ¤ìÉü½²¿´¤Ëdz¤¨¤ëË´Îî¤È¤Ê¤Ã¤Æ¤¤¤ë¡£
+;; Èà½÷¤Ï¥ª¥Ñ¡¼¥ê¥ó¤Î½É¤Ë½Ð¤ë¡£
;;----------------------------------------------------------------------------
;; Quest...
(define (ghertie-give-instr knpc kpc)
- (say knpc "Each member of my crew wears a "
- "cursed ring, with a skull for a signet. It cannot be "
- "removed without the finger. Jorn, Gholet and Meaney still "
- "live. Bring me their rings to fulfil your part of the "
- "bargain, and I will then fulfill mine.")
+ (say knpc "¤¢¤¿¤¤¤Î¼ê²¼¤Ï¥É¥¯¥í¤Î°õ¤Î¤Ä¤¤¤¿¼ö¤ï¤ì¤¿»ØÎؤò¿È¤Ë¤Ä¤±¤Æ¤¤¤ë¡£"
+ "¤½¤ì¤ò³°¤¹¤³¤È¤Ï¤Ç¤¤Ê¤¤¡£"
+ "¥¸¥ç¡¼¥ó¡¢¥´¥ì¥Ã¥È¡¢¤½¤·¤Æ¥ß¡¼¥Ë¡¼¤Ï¤Þ¤ÀÀ¸¤¤Æ¤¤¤ë¡£"
+ "¤½¤Î»ØÎؤò»ý¤Ã¤ÆÍ褤¡£¤½¤ì¤¬¼è¤ê°ú¤¤Î¾ò·ï¤À¡£"
+ "¤½¤Î¸å¤³¤Á¤é¤â¼è¤ê°ú¤¤Ë±þ¤¸¤ë¡£")
(quest-data-update-with 'questentry-ghertie 'questinfo 1 (quest-notify nil))
)
(let ((nrem (- 3 (num-in-inventory kpc t_skull_ring))))
(if (= nrem 0)
(begin
- (say knpc "I am avenged! Now I can rest... the Merciful "
- "Death lies at [" merciful-death-x ", " merciful-death-y
- "] by the sextant. But how you will pillage her when "
- "she lies at the bottom of the sea is your problem! "
- "[She vanishes with a cruel laugh]")
+ (say knpc "Éü½²¤Ï¿ë¤²¤é¤ì¤¿¡ª¤³¤ì¤ÇµÙ¤á¤ë¡Ä¡Ä"
+ "»üÈῼ¤¤»à¹æ¤Ï[" merciful-death-x "," merciful-death-y "]¤Ë̲¤Ã¤Æ¤¤¤ë¡£"
+ "¤À¤¬Èà½÷¤Ï³¤¤ÎÄì¤Ë¤¤¤ë¡£¤É¤¦¤ä¤Ã¤ÆÊõ¤ò¼è¤ë¤Î¤«¤Ï¤ªÁ°¤ÎÌäÂê¤À¡ª"
+ "¡ÎÈà½÷¤ÏÎä¹ó¤Ê¾Ð¤¤¤È¶¦¤Ë¾Ã¤¨µî¤Ã¤¿¡£¡Ï")
(quest-data-update-with 'questentry-rune-c 'shiploc 1 (quest-notify nil))
(quest-data-assign-once 'questentry-ghertie)
(quest-data-update-with 'questentry-ghertie 'done 1 (grant-party-xp-fn 20))
(kern-obj-remove knpc)
(kern-map-set-dirty))
(begin
- (say knpc "You still have " nrem " rings to collect. "
- "Have you forgotten my instructions?")
+ (say knpc "¤Þ¤À»ØÎؤÏ" nrem "¤Ä¤ê¤Ê¤¤¡£"
+ "¤¢¤¿¤¤¤Î»Ø¼¨¤ò˺¤ì¤¿¤Î¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "If you were one of my crew I would have you "
- "flogged for your carelessness!")
+ (say knpc "¤ª¤Þ¤¨¤¬¼ê²¼¤À¤Ã¤¿¤é²¥¤ê»¦¤·¤Æ¤¤¤¿¤À¤í¤¦¤Ê¡ª")
(ghertie-give-instr knpc kpc))
- (say knpc "Then why have you returned empty-handed? "
- "If you fail in your oath I will flog your soul with my "
- "own hand!"))))))
+ (say knpc "¤Ê¤é¤Ê¤¼¼ê¤Ö¤é¤ÇÌá¤Ã¤Æ¤¯¤ë¡©"
+ "¤â¤·ÀÀ¤¤¤ò²Ì¤¿¤»¤Ê¤±¤ì¤Ð¡¢¤ªÁ°¤Îº²¤ò¤¢¤¿¤¤¤Î¼ê¤Ç²¥¤ê»¦¤·¤Æ¤ä¤ë¤«¤é¤Ê¡ª"))))))
;; Basics...
(define (ghertie-hail knpc kpc)
(display "quest:")(display quest)(newline)
(if (quest-accepted? quest)
(ghertie-update-quest knpc kpc)
- (say knpc "[You meet the ghost of a wild-looking woman] "
- "You dare disturb me? Be wary, I am in a black mood."))))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï¹Ó¡¹¤·¤¤»Ñ¤Î½÷À¤ÎÍ©Îî¤È²ñ¤Ã¤¿¡£¡Ï"
+ "¤¢¤¿¤¤¤ò¼ÙË⤹¤ë¤È¤Ï¤¤¤¤ÅÙ¶»¤À¡£º£¤Ïµ¡·ù¤¬°¤¤¤ó¤À¡£"))))
(define (ghertie-default knpc kpc)
- (say knpc "I care not for this line of talk."))
+ (say knpc "¤½¤ó¤Ê¤³¤È¤òÏ䷤Ƥë¤ó¤¸¤ã¤Í¤¨¡£"))
(define (ghertie-name knpc kpc)
(quest-data-update 'questentry-ghertie 'ghertieid 1)
- (say knpc "I am Ghertrude."))
+ (say knpc "¥¬¡¼¥È¥ë¡¼¥É¤À¡£"))
(define (ghertie-join knpc kpc)
- (say knpc "I am anchored here for eternity."))
+ (say knpc "¤¢¤¿¤¤¤Ï¤³¤³¤ò±Ê±ó¤ËÎ¥¤ì¤Ê¤¤¡£"))
(define (ghertie-job knpc kpc)
- (say knpc "I was a pirate when I was alive. Now I haunt this room."))
+ (say knpc "À¸¤¤Æ¤ë¤È¤¤Ï³¤Â±¤À¤Ã¤¿¡£º£¤Ï¤³¤ÎÉô²°¤ÎÍ©Îî¤À¡£"))
(define (ghertie-bye knpc kpc)
(if (quest-accepted? (ghertie-quest (kobj-gob-data knpc)))
- (say knpc "Avenge me without delay!")
- (say knpc "Trust not your crew!")))
+ (say knpc "Á᤯º¨¤ß¤òÀ²¤é¤·¤Æ¤¯¤ì¡ª")
+ (say knpc "¼«Ê¬¤Î¼ê²¼¤ò¿®¤¸¤ë¤Ê¡ª")))
;; Pirate...
(define (ghertie-pira knpc kpc)
- (say knpc "I plunderd this coastline for years and amassed a fortune. "
- "Then, on the eve of my retirement, my crew betrayed me. "
- "They were like sons to me, the wretches!"))
+ (say knpc "¤³¤Î³¤´ß¤Ç²¿Ç¯¤â³¤Â±¤ò¤ä¤Ã¤Æ¡¢¤ªÊõ¤òÃߤ¨¤¿¤µ¡£"
+ "¤À¤¬³¤Â±¤ò¼¤á¤ëÁ°Ìë¡¢¼ê²¼¤Ë΢ÀÚ¤é¤ì¤¿¡£"
+ "¤ß¤ó¤Ê¤¢¤¿¤¤¤Î©»Ò¤ß¤¿¤¤¤Ë»×¤Ã¤Æ¤¿¤Î¤Ë¤µ¡£ÃÑÃΤ餺¤á¡ª"))
(define (ghertie-betr knpc kpc)
- (say knpc "The cowards slew me in my sleep and stole my ship."))
+ (say knpc "¹øÈ´¤±¤¬¤¢¤¿¤¤¤ò¿²¤Æ¤¤¤ë´Ö¤Ë»¦¤·¡¢Á¥¤òÃ¥¤Ã¤Æ¤¤¤Ã¤¿¤Î¤µ¡£"))
(define (ghertie-ship knpc kpc)
- (say knpc "The Merciful Death was fast, limber and mean. "
- "I could not wish for a finer ship. My treasure was nothing, "
- "my life was doomed, but for stealing my ship I will never "
- "forgive my crew!"))
+ (say knpc "¡Ö»üÈῼ¤¤»à¡×¹æ¤Ï®¤¯¾®²ó¤ê¤Î¤¤¯Á¥¤À¤Ã¤¿¡£"
+ "¤¢¤ì¤è¤ê¤¤¤¤Á¥¤Ï¤Ê¤¤¤Í¡£Êõ¤ÏÁ´¤Æ¤Ê¤¯¤Ê¤ê¡¢¤â¤¦²¿¤â¤«¤â½ª¤ï¤ê¤À¡£"
+ "¤À¤¬¡¢¤¢¤¿¤¤¤ÎÁ¥¤òÃ¥¤Ã¤¿¼ê²¼¤ÏÀäÂФ˵ö¤µ¤Í¤¨¡ª"))
(define (ghertie-haun knpc kpc)
- (say knpc "I am bound to this spot. My first mate knew I would not rest "
- "in my grave, and with a curse he fixed me here so I could not "
- "pursue them with my vengeance! Ha! He did not know "
- "about the curse upon my ship!"))
+ (say knpc "¤³¤³¤òÎ¥¤ì¤é¤ì¤Ê¤¤¤Î¤µ¡£"
+ "΢Àڤ俼겼¤Ï¤¢¤¿¤¤¤¬ÀŤ«¤Ë»à¤ó¤Ç¤¤¤¿¤¯¤Ê¤¤¤È¹Í¤¨¤Æ¤¤¤¿¡£"
+ "¤À¤«¤éÅۤϼö¤¤¤Ç¤³¤³¤ËÁɤ餻¤¿¡£¤½¤ì¤ÇÅÛ¤òÄɤ¦¤³¤È¤¬¤Ç¤¤Ê¤¤¤Î¤µ¡£"
+ "¥Õ¥ó¡ªÅۤϤ¢¤¿¤¤¤ÎÁ¥¤Î¼ö¤¤¤òÃΤé¤Ê¤¤¤Î¤µ¡ª"))
(define (ghertie-curs knpc kpc)
- (say knpc "I had a curse put upon my ship. Should it ever be stolen it "
- "would steer itself to a particular place and sink! I alone know "
- "of its watery grave..."))
+ (say knpc "¤¢¤¿¤¤¤Ï¼«Ê¬¤ÎÁ¥¤Ë¼ö¤¤¤ò¤«¤±¤¿¡£"
+ "¤â¤·Åð¤Þ¤ì¤¿¤é¼«Ê¬¤ÇÆ°¤¡¢¤¢¤ë¾ì½ê¤ÇÄÀ¤à¤è¤¦¤Ë¤À¡ª"
+ "¤½¤Î³¤¤ÎÊè¤Ï¤¢¤¿¤¤¤À¤±¤¬ÃΤäƤ¤¤ë¡Ä¡£"))
(define (ghertie-grav knpc kpc)
- (say knpc "Why should I tell you?"))
+ (say knpc "¤Ê¤¼¸À¤ï¤Ê¤¤ã¤Ê¤é¤ó¡©"))
(define (ghertie-reve knpc kpc)
(let ((quest (ghertie-quest (kobj-gob-data knpc))))
(if (quest-accepted? quest)
- (say knpc "Yes, you have sworn to avenge me, "
- "why are you prattling?")
+ (say knpc "¤½¤¦¡¢¤ª¤Þ¤¨¤ÏÂå¤ï¤ê¤ËÉü½²¤¹¤ë¤ÈÀÀ¤Ã¤¿¡£"
+ "²¿¤ò¥´¥Á¥ã¥´¥Á¥ã¸À¤Ã¤Æ¤¤¤ë¡©")
(begin
- (say knpc "[She fixes you with an icy glare] "
- "You speak the word dearest to my dead heart. "
- "Are you offering to avenge me?")
+ (say knpc "¡ÎÈà½÷¤ÏÎ䤿¤¤ÌܤǤ¢¤Ê¤¿¤ò¸«¤¿¡£¡Ï"
+ "¤ª¤Þ¤¨¤Ï¤¢¤¿¤¤¤Î»à¤ó¤À¿´¤¬°ìÈÖÍߤ·¤¤¸ÀÍÕ¤ò¸À¤Ã¤¿¡£"
+ "º¨¤ß¤òÀ²¤é¤¹¤¿¤á¤Ë¼ê¤òÂߤ·¤Æ¤¯¤ì¤ë¤Î¤«¡©")
(quest-data-update 'questentry-ghertie 'revenge 1)
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "Not all of my crew went down with the ship. "
- "I have searched among the dead and found some missing. "
- "Find and punish the survivors, "
- "and I will tell you where my ship lies. "
- "Do we have an oath?")
+ (say knpc "¼ê²¼¤ÏÁ´°÷Á¥¤È°ì½ï¤ËÄÀ¤ó¤À¤ï¤±¤¸¤ã¤Í¤¨¡£"
+ "»à¤ó¤ÀÅÛ¤ÎÃæ¤òõ¤·¤¿¤¬¡¢²¿¿Í¤«¤¤¤Ê¤¤ÅÛ¤¬¤¤¤¿¡£"
+ "À¸¤»Ä¤Ã¤¿ÅÛ¤ò¸«¤Ä¤±½Ð¤·»¦¤»¡£"
+ "¤½¤¦¤¹¤ì¤Ð¤¢¤¿¤¤¤ÎÁ¥¤¬¤É¤³¤Ë¤¢¤ë¤«¶µ¤¨¤Æ¤ä¤í¤¦¡£"
+ "·ÀÌó¤Ï¤³¤¦¤À¡£¤¤¤¤¤Ê¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "Agreed then, mortal. ")
+ (say knpc "·ÀÌóÀ®Î©¤À¡£»à¤¹¤Ù¤¼Ô¤è¡£")
(quest-accepted! quest #t)
(ghertie-give-instr knpc kpc))
- (say knpc "It is wise you do not take such an oath "
- "lightly, for I await oath-breakers on this side "
- "of the divide.")))
+ (say knpc "´Êñ¤Ë·ÀÌ󤷤ʤ¤¤Î¤Ï¤¤¤¤¤³¤È¤À¡£"
+ "·ÀÌó¤òÇˤä¿ÅÛ¤ò¤³¤³¤ÇÂÔ¤Á³¤±¤ë¤³¤È¤Ë¤Ê¤ë¤«¤é¤Ê¡£")))
(begin
- (say knpc "Then do not toy with me, fool!")
+ (say knpc "¤Ê¤é·Ú¡¹¤·¤¯¸À¤¦¤Ê¡¢¥Ð¥«ÌîϺ¡ª")
(kern-conv-end)))))))
(define (ghertie-fort knpc kpc)
- (say knpc "Gold, gems, magical items, weapons armor and runes.")
+ (say knpc "¶â¡¢ÊõÀС¢ËâË¡¤Îʪ¡¢Éð´ï¤Ë³»¡¢¤½¤ì¤ËÀÐÈǤÀ¡£")
(quest-data-assign-once 'questentry-rune-c)
)
(define (mk-ghertie)
(bind
(kern-mk-char 'ch_ghertie ; tag
- "Ghertie" ; name
+ "¥¬¡¼¥Æ¥£¡¼" ; name
sp_ghast ; species
oc_warrior ; occ
s_ghost ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In the Prison level under Glasdrin
+;; ¥°¥é¥¹¥É¥ê¥ó¤ÎÃϲ¼¤Î´Æ¹ö
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Gholet is a former pirate, now imprisoned in the Prison below Glasdrin.
-;; He is one of the surviving crew of the Merciful Death,
-;; and is sought for vengeance by the ghost Ghertie.
+;; ¥´¥ì¥Ã¥È¤Ï¤«¤Ä¤Æ¤Ï³¤Â±¤Ç¡¢º£¤Ï¥°¥é¥¹¥É¥ê¥ó¤ÎÃϲ¼¤Î´Æ¹ö¤Ë¤¤¤ë¡£
+;; Èà¤Ï»üÈῼ¤¤»à¹æ¤Î¾èÁÈ°÷¤ÎÀ¸¤»Ä¤ê¤Î°ì¿Í¤Ç¡¢Ë´Îî¤È¤Ê¤Ã¤¿¥¬¡¼¥Æ¥£Á¥Ä¹¤ËÉü½²
+;; ¤Î¤¿¤áÄɤï¤ì¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (gholet-hail knpc kpc)
- (say knpc "'Ello, guv'nah"))
+ (say knpc "¤è¡¼¤ª¡¢Ã¶Æᤢ¡£"))
(define (gholet-default knpc kpc)
- (say knpc "Right you are, guv'nah, that's what I like about you!"))
+ (say knpc "¤½¤Î¤È¤ª¤ê¤Ç¤µ¤¡¡£¤½¤ì¤¬Ã¶Æá¤Î¤¤¤¤½ê¡ª"))
(define (gholet-name knpc kpc)
- (say knpc "Gholet's me 'andle, but take no account o' me, guv'nah")
+ (say knpc "¥´¥ì¥Ã¥È¤Ç¤µ¤¡¡£¤Ç¤âµ¤¤Ë¤·¤Ê¤¤¤Ç¤¯¤À¤»¤¨¡¢Ã¶Æá¡£")
(quest-data-update 'questentry-ghertie 'gholet-dungeon 1))
(define (gholet-join knpc kpc)
- (say knpc "And leave behind 'is 'ere life of luxury? Tosh!"))
+ (say knpc "¤½¤ó¤Ç¤³¤Ã¤«¤é½Ð¤ÆìÔÂô¤Ç¤¤ë¤Ã¤Æ¡©¥Ð¥«¥Ð¥«¤·¤¤¤ä¡ª"))
(define (gholet-job knpc kpc)
- (say knpc "Why, I's a cook. Or I was, at any rate, 'fore I took up the new "
- "vocation you see me at 'ere."))
+ (say knpc "¤ª¤Ã¤È¡¢²¶¤¡ÎÁÍý¿Í¤À¡¢¤¤¤ä¡¢¤À¤Ã¤¿¡£"
+ "²¿¤Ë¤»¤è¡¢¤³¤³¤Ç¸«¤Æ¤ÎÄ̤ê¤Î¿·¤·¤¤Å·¿¦¤òÆÀ¤¿¤ó¤Ç¤µ¤¡¡£"))
(define (gholet-bye knpc kpc)
- (say knpc "Nice chattin' with ya, guv'nah"))
+ (say knpc "ÌÌÇò¤¤¤ªÏäǡ¢Ã¶Æá¡£"))
;; Tier 2 replies
(define (gholet-cook knpc kpc)
- (say knpc "I was a cook on a famous luxury liner! The Merciful Death, "
- "ever 'ear of her?")
+ (say knpc "Í̾¤Ê¹ë²ÚµÒÁ¥¤ÎÎÁÍý¿Í¤À¤Ã¤¿¤ï¤±¤è¡ª"
+ "»üÈῼ¤¤»à¹æ¡¢Ê¹¤¤¤¿¤³¤È¤¢¤ë¤«¡©")
(if (yes? kpc)
- (say knpc "Oh. Well, I told you she was famous!")
- (say knpc "Oh, she was quite-well known in her time. "
- "Don't know what became of 'er.")))
+ (say knpc "¤ª¤ª¡¢¤½¤ê¤ã¤¢¤¤¤¤¡£Í̾¤À¤Ã¤Æ¸À¤Ã¤¿¤í¡ª")
+ (say knpc "¤ª¤ª¡¢ÀΤÏËÜÅö¤ËÍ̾¤À¤Ã¤¿¡£"
+ "º£¤É¤¦¤Ê¤Ã¤Æ¤ë¤«¤Ï¤ï¤«¤ó¤Í¤¨¡£")))
(define (gholet-merc knpc kpc)
- (say knpc "Oh, yeah, she was captained by a marvelous woman. "
- "Ghertie was her name."))
+ (say knpc "¤ª¤ª¡¢¤½¤¦¤µ¤¡¡¢¤ªÆ¬¤Ï¤¹¤Ð¤é¤·¤¤½÷¤À¤Ã¤¿¡£"
+ "¥¬¡¼¥Æ¥£¡¼¤Ã¤Æ¤ó¤À¡£"))
(define (gholet-gher knpc kpc)
- (say knpc "A real peach. Couldn't ask for a nicer boss."))
+ (say knpc "¤¤¤¤½÷¤À¤Ã¤¿¡£¤¢¤ì¤è¤ê¤¤¤¤Æ¬¤Ï¤¤¤Í¤¨¡£"))
(define (gholet-voca knpc kpc)
- (say knpc "Aye, this is the easiest job I ever had."))
+ (say knpc "¤ª¤¦¡¢¤³¤ì¤¬º£¤Þ¤Ç¤Ç°ìÈֳڤʻŻö¤Ç¤µ¤¡¡£"))
(define (gholet-mean knpc kpc)
- (say knpc "'Aven't seen old Meaney in ages. "
- "Last I 'eard 'e was running a poor 'ouse."))
+ (say knpc "¥ß¡¼¥Ë¡¼¤Î¥¸¥¸¥¤¤È¤ÏŤ²¤¨¤³¤È²ñ¤Ã¤Æ¤Í¤¨¤Ê¡£"
+ "µßÉϱ¡¤ò¤ä¤Ã¤Æ¤ë¤Èʹ¤¤¤¿¤¬¤Ê¤¢¡£"))
(define (gholet-jorn knpc kpc)
- (say knpc "Oh, now there's a right dangerous man, now guv'nah. "
- "Best let sleeping dogs lie, as I like to say. "))
+ (say knpc "¤ª¤ª¡¢¤¢¤¤¤Ä¤ÏËÜÅö¤Ë¤ä¤Ù¤¨¤è¡¢Ã¶Æá¡£"
+ "¿²¤¿¸¤¤Ï¤½¤Î¤Þ¤Þ¤Ë¤·¤Æ¤ª¤¤Ê¤è¡£"))
(define (gholet-dog knpc kpc)
- (say knpc "From what I 'ear, that dog lies at the White Stag.")
+ (say knpc "¸¤¤ÏÇò¤²´¼¯Áñ¤Ç¿²¤Æ¤ë¤Èʹ¤¤¤¿¤Ê¤¢¡£")
(quest-data-update 'questentry-ghertie 'jorn-loc 1))
;; Quest-related
(define (gholet-ring knpc kpc)
(if (not (in-inventory? knpc t_skull_ring_g))
- (say knpc "Ring? What ring?")
+ (say knpc "»ØÎØ¡©²¿¤Î»ØÎØ¡©")
(begin
(define (take-picklocks)
(if (< (num-in-inventory kpc t_picklock) 12)
(begin
(quest-data-update-with 'questentry-ghertie 'gholet-price 1 (quest-notify nil))
- (say knpc "Mmm. Bit of a problem, guv'nah, "
- "you don't have enough picklocks. "
- "But I'll keep the ring 'ere on layaway until you do.")
+ (say knpc "¤¦¡¼¤à¡¢¾¯¤·ÌäÂ꤬¤¢¤ë¤Ê¤¢¡¢Ã¶Æá¡£"
+ "¸°³«¤±Æ»¶ñ¤¬Â¤ê¤Í¤¨¤è¡£"
+ "¤Ç¤â¤³¤Î»ØÎؤϼè¤êÃÖ¤¤Ë¤·¤Æ¤ª¤¯¤è¡£")
)
(begin
- (say knpc "Right you are, 'ere you go, and there I go, "
- "right as rain, right as rain! Enjoy your new ring, "
- "guv'nah!")
+ (say knpc "¤½¤¦¤À¡£¤¢¤ó¤¿¤Ï»ý¤Ã¤Æ¤¯¡¢²¶¤Ï½Ð¤Æ¤¤¤¯¡¢"
+ "¤¦¤Þ¤¯¤¤¤Ã¤¿¡¢¤¦¤Þ¤¯¤¤¤Ã¤¿¡ª¿·¤·¤¤»ØÎؤò³Ú¤·¤ó¤Ç¤¯¤ì¡¢Ã¶Æᡪ")
(kern-obj-remove-from-inventory kpc t_picklock 12)
(kern-obj-add-to-inventory knpc t_picklock 12)
(kern-obj-remove-from-inventory knpc t_skull_ring_g 1)
(skullring-g-get nil kpc)
)))
- (say knpc "Oh, that old thing? It got to itchin', "
- "I must be allergic to it. "
- "So I took it off. 'Ad to take the whole finger, off, actually, "
- "bit of a mess. Would you like to see it?")
+ (say knpc "¤ª¤ª¡¢¤³¤Î¸Å¤¤¥Ö¥Ä¤«¡©áÚ¤¯¤Æ¤·¤ç¤¦¤¬¤Í¤¨¤ó¤À¡£"
+ "¥³¥¤¥Ä¤Î¤»¤¤¤Ë¤Á¤²¤¨¤Í¤¨¡£"
+ "¥³¥¤¥Ä¤Ï³°¤½¤¦¡£¤â¤Á¤í¤ó»Ø¤â°ì½ï¤Ë¤À¡£"
+ "¾¯¤·¤¤¿¤Í¤¨¤¬¡¢Íߤ·¤¤¤«¡©")
(if (yes? kpc)
(begin
- (say knpc "Don't blame you. Not at all. "
- "It's quite the curious item! "
- "But one good turn deserves another, "
- "don't you agree, guv'nah?")
+ (say knpc "µ¤¤Ë¤¹¤ó¤Ê¤è¡£Á´Á³¡£"
+ "¥³¥¤¥Ä¤ÏËÜÅö¤Ë¤¹¤²¤¨Âåʪ¤À¡ª"
+ "¤Ç¤â¡¢¤¤¤¤¤³¤È¤ò¤¹¤ì¤Ð¡¢¤¤¤¤¤³¤È¤Ë¤Ê¤Ã¤ÆÊ֤äƤ¤¤ë¡£"
+ "¤½¤¦¤À¤í¡¢Ã¶Æá¡©")
(if (yes? kpc)
(begin
- (say knpc "Of course you do! Youse a fair man, guv'nah! "
- "You know tit-for-tat, scratch each other's back! "
- "A dozen picklocks. A dozen picklocks and you can have the ring. "
- "Agreed?")
+ (say knpc "¤â¤Á¤í¤ó¤½¤¦¤¹¤ë¤è¤Ê¤¡¡¢Ã¶Æᡪ"
+ "»ý¤Á¤Ä»ý¤¿¤ì¤Ä¤Ã¤Æ¥ä¥Ä¤è¡ª"
+ "¸°³«¤±Æ»¶ñ¤¬1¥À¡¼¥¹¡£¸°³«¤±Æ»¶ñ¤¬1¥À¡¼¥¹¤¢¤ì¤Ð¥³¥¤¥Ä¤Ï¤¢¤ó¤¿¤Î¥â¥ó¤À¡£"
+ "¤É¤¦¤è¡©")
(if (yes? kpc)
(take-picklocks)
(begin
(quest-data-update-with 'questentry-ghertie 'gholet-price 1 (quest-notify nil))
- (say knpc "That's my price. "
- "Come back when you're ready to pay.")
+ (say knpc "¤½¤ì¤¬¤³¤Î»ØÎؤÎÃÍÃʤÀ¡£"
+ "ʧ¤¦µ¤¤Ë¤Ê¤Ã¤¿¤é¤Þ¤¿Íè¤Æ¤¯¤ì¡£")
(kern-conv-end))))
(begin
- (say knpc "Piss off, then.")
+ (say knpc "¤À¤Ã¤¿¤éµ¢¤ó¤Ê¤è¡£")
(kern-conv-end))))
- (say knpc "Don't screw with me. "
- "I know you're 'ere for the ring or you wouldn't "
- "'ave asked.")))))
+ (say knpc "¤´¤Á¤ã¤´¤Á¤ã¤¤¤¤¤ä¤¬¤Ã¤Æ¡£"
+ "¤³¤Î»ØÎؤΤ¿¤á¤Ë¤³¤³¤ËÍ褿¤Î¤ÏÃΤäƤë¤ó¤À¡£")))))
(define gholet-conv
(ifc basic-conv
(kern-char-force-drop
(kern-mk-char
'ch_my ; tag
- "Gholet" ; name
+ "¥´¥ì¥Ã¥È" ; name
gholet-species ; species
gholet-occ ; occ
s_brigand ; sprite
;;----------------------------------------------------------------------------
(kern-mk-place
'p_glasdrin ; tag
- "Glasdrin" ; name
+ "¥°¥é¥¹¥É¥ê¥ó" ; name
s_keep ; sprite
m_glasdrin ; map
#f ; wraps
;;
(mk-dungeon-room
- 'p_kurpolis_entrance "Entrance to Kurpolis"
+ 'p_kurpolis_entrance "¥¯¥í¥Ý¥ê¥¹¤ÎÆþ¤ê¸ý"
(list
"rr rr rr rr xx xx x! xx xx && xx xx x! xx xx rn rn rn rn "
"rr .. .. .. ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rn rn rn rn "
(mk-place-music p_kurpolis_entrance 'ml-castle)
(mk-dungeon-room
- 'p_goblin_crossroads "Goblin Crossroads"
+ 'p_goblin_crossroads "¥´¥Ö¥ê¥ó¤Î¸òº¹ÅÀ"
(list
"rn rn rn rn rn rn r4 {{ {{ ,, ,, {{ ra r8 r8 rn rn rn rn "
"rn rn rn rn rn rn rn r5 {{ ,, {# {{ {{ {{ {{ ra r8 rn rn "
(mk-place-music p_goblin_crossroads 'ml-dungeon-adventure)
(mk-dungeon-room
- 'p_cave_goblin_village "Cave Goblin Village"
+ 'p_cave_goblin_village "ƶ·¢¥´¥Ö¥ê¥ó¤Î¼"
(list
"rn rn rn rn rn rn r8 r8 r8 r8 r8 r8 rn rn rn rn rn rn rn "
"rn rn rn rn rn rc {{ {{ {{ {{ {{ {{ ra rn r8 r8 r8 rn rn "
(mk-place-music p_cave_goblin_village 'ml-dungeon-adventure)
(mk-dungeon-room
- 'p_trolls_den "Troll's Den"
+ 'p_trolls_den "¥È¥í¥ë¤Î½»¤ß²È"
(list
"rn r8 r8 r8 rn rn r4 {{ {2 ,, ,, {{ r2 rn rn rn rn rn rn "
"r4 {{ {{ {{ ra rn r4 {{ {2 ,, {B {{ r2 rn rn rn rn rn rn "
(mk-place-music p_trolls_den 'ml-dungeon-adventure)
(mk-dungeon-room
- 'p_shamans_grove "Shaman's Grove"
+ 'p_shamans_grove "¼ö½Ñ»Õ¤ÎÎÓ"
(list
"rn rn rn rn rn rn rn rn r8 r8 r8 rn rn rn rn rn rn rn rn "
"rn rn rn rn rn rn rn rc t7 bb t7 ra rn rn rn rn rn rn rn "
(mk-place-music p_shamans_grove 'ml-dungeon-adventure)
(mk-dungeon-room
- 'p_watchpoint "Watchpoint"
+ 'p_watchpoint "¸«Ä¥¤ê¾ì"
(list
"rn rn rn rn rn rn r4 {{ {C ,, ,, {{ r2 rn rn rn rn rn rn "
"rn rn rn rn rn rn rc {{ ,, ,, {4 {{ ra rn rn rn rn rn rn "
))
(kern-mk-place
- 'p_green_tower_lower "Beneath Green Tower" nil
+ 'p_green_tower_lower "ÎФÎÅã¤ÎÃϲ¼" nil
m_green_tower_lower
#f ;; is-wrapping?
#t ;; is-underground?
;; Place
;;----------------------------------------------------------------------------
(kern-mk-place
- 'p_green_tower "Green Tower" s_towertown_ruin m_green_tower #f #f #f #f
+ 'p_green_tower "ÎФÎÅã" s_towertown_ruin m_green_tower #f #f #f #f
nil ;; subplaces
nil ;; neighbors
;;----------------------------------------------------------------------------
-;; gregor.scm - read-only data for Gregor the Charcoal Burner
+;; gregor.scm - ú¾Æ¤¿Í¤Î¥°¥ì¥´¡¼¥ë
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; At the shrine gate (moongate-clearing.scm)
-;; His home is Gregor's Hut (gregors-hut.scm).
+;; ·î¤ÎÌç¤Îº×ÃÅ (moongate-clearing.scm)
+;; ¥°¥ì¥´¡¼¥ë¤Î¾®²° (gregors-hut.scm).
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_gregor
(list 0 0 gh-gregors-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Gregor is an elderly charcoal burner, living near the Shrine Gate.
-;; He tends the grounds of the shrine, and takes care of his grandaughter Ilya.
+;; ¥°¥ì¥´¡¼¥ë¤Ïú¾Æ¤¿Í¤ÎÏ·¿Í¤Ç¡¢Ìç¤Îº×ÃŤζ᤯¤Ë½»¤ó¤Ç¤¤¤ë¡£
+;; Èà¤Ïº×ÃŤζ᤯¤Ë¤è¤¯¤¤¤ë¡£¤½¤·¤Æ¹̼¤Î¥¤¥ê¥¢¤ÎÀ¤Ïäò¤·¤Æ¤¤¤ë¡£
;;
-;; Gregor is the first NPC which the player is likely to encounter,
-;; and has a variety of helpful responses for the starting character
-;; and the first-time player.
+;; ¥°¥ì¥´¡¼¥ë¤Ï¥×¥ì¥¤¥ä¡¼¤¬ºÇ½é¤Ë²ñ¤¦NPC¤Ç¤¢¤ë¡£¤½¤·¤Æ¡¢½é¤á¤Æ¥×¥ì¡¼¤¹¤ë¼Ô¤Ë¿
+;; ºÌ¤Ê½õ¤±¤Ë¤Ê¤ë±þÅú¤ò¤¹¤ë¡£
;;----------------------------------------------------------------------------
(define (gregor-kill-nate knpc kpc)
- (say knpc "[He points a trembling finger at Nate] I have something for you.")
- (aside kpc 'ch_nate "[Mumbling] What does this old fool want?")
+ (say knpc "¡Î¥°¥ì¥´¡¼¥ë¤Ï¿Ì¤¨¤ë»Ø¤ò¥Í¥¤¥È¤Ë¸þ¤±¤¿¡£¡Ï¤ªÁ°¤ËÅϤ¹¤â¤Î¤¬¤¢¤ë¡£")
+ (aside kpc 'ch_nate "¡Î¤Ä¤Ö¤ä¤¡Ï¤³¤ÎÏ·¤¤¤Ü¤ì¤Ï²¿¤ò¡Ä¡©")
(prompt-for-key)
- (say knpc "[He takes out a scroll] It cost me a lot. I can't read it, but she told me what it says when I bought it.")
- (aside kpc 'ch_nate "Wait... is that a...?")
+ (say knpc "¡ÎÈà¤Ï´¬Êª¤ò¼è¤ê½Ð¤·¤¿¡£¡Ï¤³¤ì¤Ë¤Ï¿¤¯¤ò»Ùʧ¤Ã¤¿¡£¥ï¥·¤Ë¤ÏÆɤá¤Ì¤¬¡¢¤É¤¦¸À¤¨¤Ð¤è¤¤¤«¤Ï¶µ¤ï¤Ã¤¿¡£")
+ (aside kpc 'ch_nate "ÂԤơĤ½¤ì¤Ï¡Ä¡©")
(prompt-for-key)
- (say knpc "XEN CORP!")
+ (say knpc "¥¼¥ó¡¦¥³¡¼¥×<Xen Corp>¡ª")
(cast-missile-proc knpc ch_nate t_deathball)
- (aside kpc 'ch_nate "Gack!")
+ (aside kpc 'ch_nate "¥°¥²¥§¥Ã¡ª")
(prompt-for-key)
(if (equal? kpc ch_nate)
(kern-conv-end)
- (say knpc "[He turns to you] You shouldn't travel with folks like that. People might get the wrong idea about you."))
+ (say knpc "¡ÎÈà¤Ï¿¶¤êÊ֤ä¿¡£¡Ï¤³¤Î¤è¤¦¤Ê¼Ô¤È¤¤¤ë¤Ù¤¤Ç¤Ï¤Ê¤«¤Ã¤¿¡£¿Í¡¹¤Ï¤¢¤Ê¤¿¤Ë¤Ä¤¤¤Æ¤è¤«¤é¤Ì¹Í¤¨¤òÊú¤¯¤À¤í¤¦¡£"))
)
(if (in-player-party? 'ch_nate)
(gregor-kill-nate knpc kpc)
(if (in-inventory? kpc t_letter_from_enchanter)
- (say knpc "I see you got your stuff, and that letter from the Enchanter. "
- "Don't forget to ready your weapons before leaving. "
- "It's dangerous out there!")
- (say knpc "[You meet a grizzled old peasant]"
- " Welcome, Wanderer. I've been watching for you."
- " There's some things that belong to you, over in yonder cave."
- " Go in where the chest is, open it, and get the things inside."
- " It's all for you."))
+ (say knpc "ʪ¤ò¼è¤Ã¤Æ¤¤¿¤è¤¦¤À¤Ê¡£¤½¤ÎÃæ¤ËËâÆ»»Õ¤«¤é¤Î¼ê»æ¤¬¤¢¤ë¡£"
+ "¤³¤³¤òµî¤ëÁ°¤ËÉð´ï¤òÁõÈ÷¤¹¤ë¤Î¤ò˺¤ì¤Æ¤Ï¤Ê¤é¤Ì¡£"
+ "³°¤Ï¤È¤Æ¤â´í¸±¤À¡ª")
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÏÇòȱ¤Þ¤¸¤ê¤ÎÇÀÉפÎÏ·¿Í¤È²ñ¤Ã¤¿¡£¡Ï\n"
+ "¤è¤¦¤³¤½¡¢Ì¤¤¿Í¤è¡£Íè¤ë¤È»×¤Ã¤Æ¤¤¤¿¡£"
+ "¤¢¤Ê¤¿¤Î»ý¤Áʪ¤Ï¡¢¤¢¤Îƶ·¢¤ÎÃæ¤Ë¤¢¤ë¡£"
+ "¹Ô¤Ã¤ÆÈ¢¤ò³«¤±¡¢Ãæ¤Îʪ¤ò¼è¤Ã¤Æ¤¯¤À¤µ¤ì¡£"
+ "Á´¤Æ¤¢¤Ê¤¿¤Î¤¿¤á¤Îʪ¤À¡£"))
))
;; Some prompting with initial commands:
;; Hmmm...perhaps it would be desirable to have game-UI promts
;; spoken out-of-character, so that the NPCs don't break the game fiction...
(define (gregor-open knpc kpc)
- (say knpc "Use the 'o' key to ^c+bopen^c- chests."))
+ (say knpc "È¢¤ò^c+b³«¤±¤ë^c-¤Î¤Ï'o'¥¡¼¤À¡£"))
(define (gregor-get knpc kpc)
- (say knpc "Use the 'g' key to ^c+bget^c- stuff that's on the ground."))
+ (say knpc "'g'¥¡¼¤ÇÃÖ¤«¤ì¤¿¤â¤Î¤ò^c+b¼è¤ë^c-¤³¤È¤¬¤Ç¤¤ë¡£"))
(define (gregor-read knpc kpc)
- (say knpc "Use the 'r' key to ^c+bready^c- weapons or armor. "
- "You can't use a weapon in combat until it's ready."))
+ (say knpc "Éð´ï¤äËɶñ¤Ï'r'¥¡¼¤Ç^c+bÁõÈ÷¤¹¤ë^c-¡£"
+ "Éð´ï¤ÏÁõÈ÷¤·¤Æ¤¤¤Ê¤±¤ì¤ÐÀ襤¤Ç»È¤¦¤³¤È¤¬¤Ç¤¤Ê¤¤¡£"))
(define (gregor-camp knpc kpc)
- (say knpc "Use the 'k' key to ^c+bkamp^c-, err...camp, in the wilderness and heal up."))
+ (say knpc "'k'¥¡¼¤Ç^c+bµÙ©^c-¡¢¹ÓÌî¤ÇÂÎÎϤò²óÉü¤Ç¤¤ë¡£"))
(define (gregor-dang knpc kpc)
- (say knpc "Very dangerous! If you need healing, a town inn is the safest place. "
- "You can camp in the wilderness but it's dangerous when you're alone and have no one to keep watch. "
- "Of course, there are spells and potions for healing, too."))
+ (say knpc "¤È¤Æ¤â´í¸±¤À¡ª¤â¤·²óÉü¤¬É¬Íפʤ顢Į¤Î½É¤¬°ÂÁ´¤Ê¾ì½ê¤À¡£"
+ "¹ÓÌî¤ÇµÙ©¤ò¼è¤ë¤³¤È¤â¤Ç¤¤ë¤¬¡¢°ì¿Í¤Ç¸«Ä¥¤ê¤òÃÖ¤«¤Ê¤¤¤Î¤Ï´í¸±¤À¡£"
+ "̵ÏÀ¡¢Ìô¤ä¼öʸ¤Ç²óÉü¤¹¤ë¤³¤È¤â¤Ç¤¤ë¡£"))
(define (gregor-dead knpc kpc)
- (say knpc "Aye, it's a shame. My daughter and her husband both - "
- "killed by trolls."))
+ (say knpc "¤½¤¦¡¢Èᤷ¤¤¤³¤È¤À¡£¥ï¥·¤Î̼¤È¤½¤ÎÉפ϶¦¤Ë¡Ä"
+ "¥È¥í¥ë¤É¤â¤Ë»¦¤µ¤ì¤¿¤Î¤À¡£"))
(define (gregor-charcoal knpc kpc)
- (say knpc "I take charcoal into town and sell it, "
- "and some folks come by my place to buy it."))
+ (say knpc "ú¤òÄ®¤Ø»ý¤Ã¤Æ¹Ô¤¡¢Çä¤ë¡£"
+ "¤½¤ì¤«¤é¼¤Î¼Ô¤¬¥ï¥·¤Î½ê¤ËÇ㤤¤ËÍè¤ë¡£"))
(define (gregor-hut knpc kpc)
- (say knpc "My hut's in the forest to the South and East. "
- "Just myself and my granddaughter living there now."))
+ (say knpc "¾®²°¤¬ÆîÅì¤Î¿¹¤Ë¤¢¤ë¡£"
+ "¤½¤³¤Ç¥ï¥·¤Ï¹̼¤È½»¤ó¤Ç¤ª¤ë¡£"))
(define (gregor-ench knpc kpc)
(quest-data-assign-once 'questentry-calltoarms)
- (say knpc "The Enchanter is one of the Wise. "
- "He told me to look out for a Wanderer like you. "
- "If I saw one I was to send him his way. You want directions? ")
+ (say knpc "ËâÆ»»Õ¤Ï¸¼Ô¤Î°ì¿Í¤À¡£"
+ "¥ï¥·¤Ë¤¢¤Ê¤¿¤Î¤è¤¦¤Ê̤¤¿Í¤òõ¤¹¤è¤¦¤Ë¸À¤Ã¤Æ¤¤¤¿¡£"
+ "ËâÆ»»Õ¤Î²¼¤ËƳ¤«¤Í¤Ð¤Ê¤é¤Ì¡£Æ»½ç¤òÃΤꤿ¤¤¤«¡©")
(quest-wise-subinit 'questentry-enchanter)
(quest-data-update 'questentry-enchanter 'common 1)
(cond ((yes? kpc)
(quest-data-update 'questentry-calltoarms 'directions 1)
(quest-data-update 'questentry-enchanter 'general-loc 1)
- (say knpc "He lives in a tower in a swamp, somewhere west over the mountains. "
- "Take the road south, then follow it west and ask the rangers at the keep.")
+ (say knpc "ËâÆ»»Õ¤ÏÀ¾¤Î»³¤Î¸þ¤³¤¦¤Ë¤¢¤ë¾Â¤ÎÅã¤Ë¤¤¤ë¡£"
+ "Æî¤Ø¿Ê¤ß¡¢À¾¤ÎÆ»¤ò¤¿¤É¤ê¡¢Åã¤Ë¤¤¤ë·ÙÈ÷Ââ°÷¤Ë¿Ò¤Í¤ë¤È¤è¤¤¤À¤í¤¦¡£")
+ )
(else
- (say knpc "As you wish. If you should want directions later, ask me of the Enchanter.")
- ))
+ (say knpc "¤½¤¦Ë¾¤à¤Ê¤é¡£¸å¤ÇÊý¸þ¤¬É¬Íפˤʤ俤顢¡ÖËâÆ»»Õ¡×¤È¿Ò¤Í¤Ê¤µ¤¤¡£")
+ )
))
(define (gregor-cave knpc kpc)
- (say knpc "There, that little trail that leads off the main path to the South and West. "
- "Follow it on in. Open the chest. Get the stuff. "
- "Come back and we'll talk again, if you have more questions."))
+ (say knpc "¤³¤ÎÆ»¤«¤éÆîÀ¾¤Ëʬ¤«¤ì¤¿ºÙ¤¤Æ»¤ò¤¿¤É¤Ã¤ÆÆþ¤ê¤Ê¤µ¤¤¡£"
+ "¤½¤³¤ÇÈ¢¤ò³«¤±¡¢Ãæ¤Îʪ¤ò¼è¤Ã¤Æ¤¯¤À¤µ¤ì¡£"
+ "¤Þ¤À²¿¤«Ê¹¤¤¿¤¤¤³¤È¤¬¤¢¤ì¤Ð¡¢Ìá¤Ã¤Æ¤«¤éÏ佤¦¡£"))
(define (gregor-ches knpc kpc)
- (say knpc "Go ahead and open it and get the stuff inside."))
+ (say knpc "¤½¤Î¤Þ¤Þ¿Ê¤ó¤Ç¡¢³«¤±¤ÆÃæ¤Îʪ¤ò¼è¤Ã¤Æ¤¯¤À¤µ¤ì¡£"))
(define (gregor-stuf knpc kpc)
- (say knpc "The common folk made offerings of such things, thinking one day a Wanderer might come again."))
+ (say knpc "¼¤Î¼Ô¤¬¶¡¤¨Êª¤ò¤·¤ËÍè¤ë¡£¤Þ¤¿¤¤¤Ä¤ÎÆü¤«Ì¤¤¿Í¤¬Íè¤ë¤È¹Í¤¨¤Æ¤Ê¡£"))
(define (gregor-leav knpc kpc)
- (say knpc "If you want to leave just follow the trail south and step off the map."))
+ (say knpc "¤³¤³¤òÎ¥¤ì¤¿¤¤¤Ê¤é¡¢¤³¤ÎÆ»¤òÆî¤Ø¿Ê¤á¤Ð¤è¤¤¡£"))
(define (gregor-band knpc kpc)
(let ((quest (gregor-quest (kobj-gob-data knpc))))
(cond ((quest-accepted? quest)
- (say knpc "Have you found the bandits?")
+ (say knpc "Åð±¤É¤â¤Î¤Í¤°¤é¤Ï¸«¤Ä¤«¤Ã¤¿¤«¡©")
(cond ((yes? kpc)
- (say knpc "The old gods be praised!")
+ (say knpc "¸Å¤¿À¡¹¤è¡¢´¶¼Õ¤·¤Þ¤¹¡ª")
(quest-done! quest #t)
)
(else
- (say knpc "Go to Green Tower and ask around about the bandits.")
+ (say knpc "ÎФÎÅã¤Ø¹Ô¤¡¢Åð±¤Ë¤Ä¤¤¤Æʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£")
)))
(else
- (say knpc "Bandits are in the woods. "
- "They robbed me in my own hut. "
- "I tried to fight them, "
- "and now I walk with a limp and a cane.")
+ (say knpc "Åð±¤É¤â¤¬¿¹¤ÎÃæ¤Ë¤¤¤ë¤Î¤À¡£"
+ "¤ä¤Ä¤é¤Ï¤«¤Ä¤Æ¥ï¥·¤Î¾®²°¤ò¹Ó¤é¤·¤ËÍ褿¤³¤È¤¬¤¢¤ë¡£"
+ "¥ï¥·¤Ï¤ä¤Ä¤é¤ÈÀï¤Ã¤¿¤¬¡¢"
+ "¤½¤Î¤»¤¤¤Ç¤¬°¤¯¤Ê¤ê¾ó¤¬¤¤¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£")
(prompt-for-key)
- (say knpc "I have a granddaughter living with me now. "
- "She's just a little girl, but sometimes bad men don't care about that. "
- "I am afraid of what they will do the next time.")
+ (say knpc "º£¡¢¥ï¥·¤Ë¤Ï°ì½ï¤Ë½»¤ó¤Ç¤¤¤ë¹̼¤¬¤¤¤ë¡£"
+ "¤Þ¤À¾®¤µ¤Ê»Ò¶¡¤À¤¬¡¢¤½¤ó¤Ê¤³¤È¤Ï°¤¤¤ä¤Ä¤é¤Ï¤ª¹½¤¤¤Ê¤·¤¿¡£"
+ "¤ä¤Ä¤é¤¬¤Þ¤¿Íè¤ë¤³¤È¤ò¶²¤ì¤Æ¤¤¤ë¡£")
(prompt-for-key)
- (say knpc "I hate to ask, but they say Wanderers used to help folks. Will you help me now?")
+ (say knpc "¤³¤Î¤è¤¦¤Ê¤³¤È¤ÏÍê¤ß¤¿¤¯¤Ï¤Ê¤¤¡£¤À¤¬¡¢¤«¤Ä¤Æ̤¤¿Í¤Ï¼¤Î¼Ô¤ò½õ¤±¤¿¤Èʹ¤¯¡£¥ï¥·¤ò½õ¤±¤Æ¤¯¤ì¤ó¤À¤í¤¦¤«¡©")
(cond ((yes? kpc)
- (say knpc "Thank you. "
- "When you get your equipment, go to Green Tower. "
- "Ask there about bandits. "
- "Someone may know where to find them.")
+ (say knpc "¤¢¤ê¤¬¤È¤¦¡£"
+ "ÁõÈ÷¤ò¼è¤Ã¤¿¤Ê¤é¡¢ÎФÎÅã¤Ø¹Ô¤¯¤È¤è¤¤¤À¤í¤¦¡£"
+ "¤½¤³¤ÇÅð±¤Î¤³¤È¤ò¿Ò¤Í¤ì¤Ð"
+ "µï¾ì½ê¤¬Ê¬¤«¤ë¤«¤â¤·¤ì¤ó¡£")
(quest-data-assign-once 'questentry-bandits)
(quest-accepted! quest #t)
)
(else
- (say knpc "[He turns away sadly]")
+ (say knpc "¡ÎÈà¤ÏÈᤷ¤½¤¦¤Ëµî¤Ã¤¿¡£¡Ï")
(kern-conv-end)
))))))
(define (gregor-bye knpc kpc)
(let ((quest (gregor-quest (kobj-gob-data knpc))))
(cond ((quest-accepted? quest)
- (say knpc "Farewell, and be careful."))
+ (say knpc "µ¤¤ò¤Ä¤±¤ë¤Î¤À¤¾¡£"))
(else
- (say knpc "Wait! Before you go, I have a favor to ask you.")
+ (say knpc "ÂԤäƤ¯¤ì¡ªÍê¤ß¤¬¤¢¤ë¤Î¤À¡£")
(prompt-for-key)
(gregor-band knpc kpc)
))))
+(define (gregor-fore knpc kpc)
+ (say knpc "¿¹¤Î¿¼¤¤¤È¤³¤í¤Ë¹Ô¤Ã¤Æ¤Ï¤Ê¤é¤Ì¡£Å𱡢¥¯¥â¡¢¶²¤í¤·¤¤¤â¤Î¤É¤â¤¬¤ª¤ë¡£"))
+
(define gregor-conv
(ifc basic-conv
;; default if the only "keyword" which may (indeed must!) be longer than
;; 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 "Can't help you there.")))
+ (method 'default (lambda (knpc kpc) (say knpc "¤½¤ì¤Ï¼ê½õ¤±¤Ç¤¤ó¤Ê¡£")))
(method 'hail gregor-hail)
- (method 'heal (lambda (knpc kpc) (say knpc "[cough] Well enough, my granddaughter helps take care of me.")))
+ ;;(method 'heal (lambda (knpc kpc) (say knpc "¡Î³±¤Ð¤é¤¤¡Ï¹̼¤Ï¤è¤¯¼êÅÁ¤Ã¤Æ¤¯¤ì¤Æ¤¤¤ë¡£")))
(method 'bye gregor-bye)
- (method 'job (lambda (knpc kpc) (say knpc "I'm a charcoal burner. I also care for this shrine.")))
- (method 'join (lambda (knpc kpc) (say knpc "Nope. Already got a job.")))
- (method 'name (lambda (knpc kpc) (say knpc "Gregor's my name.")))
+ (method 'job (lambda (knpc kpc) (say knpc "¥ï¥·¤Ïú¾Æ¤¿Í¤À¡£¤½¤·¤Æ¤³¤Îº×ÃŤδÉÍý¤â¤·¤Æ¤ª¤ë¡£")))
+ (method 'join (lambda (knpc kpc) (say knpc "¤¤¤¤¤ä¡¢¥ï¥·¤Ë¤ÏÊ̤λŻö¤¬¤¢¤ë¡£")))
+ (method 'name (lambda (knpc kpc) (say knpc "¥ï¥·¤Î̾¤Ï¥°¥ì¥´¡¼¥ë¤À¡£")))
(method 'open gregor-open)
(method 'get gregor-get)
(method 'char gregor-charcoal)
(method 'burn gregor-charcoal) ;; A synonym
- (method 'daug (lambda (knpc kpc) (say knpc "Aye, she was a near-witch like her mother. "
- "Had the knack, but not enough to be among the Wise.")))
+ (method 'daug (lambda (knpc kpc) (say knpc "¤½¤¦¡¢Ì¼¤Ï¤¢¤È¾¯¤·¤ÇÊì¿Æ¤Î¤è¤¦¤ÊËâ½÷¤Ë¤Ê¤ì¤¿¡£"
+ "ºÍǽ¤Ï¤¢¤Ã¤¿¤¬¡¢½½Ê¬¤Ë¸¼Ô¤È¤¤¤é¤ì¤Ê¤«¤Ã¤¿¡£")))
(method 'dead gregor-dead)
(method 'ench gregor-ench)
- (method 'folk (lambda (knpc kpc) (say knpc "There's homesteads scattered about in "
- "the woods and the foothills.")))
- (method 'fore (lambda (knpc kpc) (say knpc "Stay out of the deep woods. "
- "Bandits, spiders and worse live there.")))
- (method 'gate (lambda (knpc kpc) (say knpc "No one can predict when it will open, "
- "or if anything will come through if it does. "
- "I've heard of other gates in other parts of the land, "
- "and stories tell of others long forgotten now.")))
- (method 'gran (lambda (knpc kpc) (say knpc "I've a granddaughter name of Ilya.")))
- (method 'help (lambda (knpc kpc) (say knpc "There's always folks who need help. "
- "These are hard times in a hard land.")))
- (method 'hill (lambda (knpc kpc) (say knpc "Trolls are always a threat in the foothills, "
- "but more so of late.")))
- (method 'husb (lambda (knpc kpc) (say knpc "My son-in-law was a simple farmer. "
- "Why the trolls attacked I don't know. "
- "Maybe they were driven out of the hills "
- "by something else.")))
+ (method 'folk (lambda (knpc kpc) (say knpc "¿¹¤È»³¤ËÇÀ²È¤¬»¶¤é¤Ð¤Ã¤Æ¤ª¤ë¤Î¤À¡£")))
+ (method 'fore gregor-fore)
+ (method 'wood gregor-fore)
+ (method 'gate (lambda (knpc kpc) (say knpc "¤½¤ì¤¬¤¤¤Ä³«¤¯¤Î¤«¡¢"
+ "¤½¤·¤Æ¤½¤ÎÀè¤Ë²¿¤¬¤¢¤ë¤Î¤«¤Ï¡¢Ã¯¤âʬ¤«¤é¤Ì¡£"
+ "¤³¤ÎÀ¤³¦¤Ë¤ÏÊ̤ÎÌ礬¤¢¤ë¤Èʹ¤¤¤¿¤³¤È¤¬¤¢¤ë¡£"
+ "¤À¤¬¡¢¤½¤ì¤é¤ÎÏäϱó¤¤ÀΤË˺¤ì¤é¤ì¤Æ¤·¤Þ¤Ã¤¿¡£")))
+ (method 'gran (lambda (knpc kpc) (say knpc "¥ï¥·¤Ë¤Ï¥¤¥ê¥¢¤È¤¤¤¦Ì¾¤Î¹̼¤¬¤¤¤ë¡£")))
+ (method 'help (lambda (knpc kpc) (say knpc "¼¤Ë¤Ï¤¤¤Ä¤â½õ¤±¤òµá¤á¤Æ¤¤¤ë¼Ô¤¬¤¤¤ë¡£"
+ "¤³¤³¤ÏÂçÊѤʾì½ê¤Ç¡¢º£¤ÏÂçÊѤʻþ´ü¤À¡£")))
+ (method 'hill (lambda (knpc kpc) (say knpc "¥È¥í¥ë¤É¤â¤Ï¾ï¤ËµÖ¤ò¶¼¤«¤·¤Æ¤¤¤¿¡£"
+ "¤³¤Î¤È¤³¤í¤ÏÆäˤ½¤¦¤À¡£")))
+ (method 'husb (lambda (knpc kpc) (say knpc "̼̻¤Ï¤¿¤À¤ÎÇÀÉפÀ¤Ã¤¿¡£"
+ "¤Ê¤¼¥È¥í¥ë¤É¤â¤Ë½±¤ï¤ì¤¿¤Î¤«¤Ïʬ¤«¤é¤ó¡£"
+ "¤â¤·¤«¤¹¤ë¤È¤ä¤Ä¤é¤Ï²¿¼Ô¤«¤ËµÖ¤òÄɤï¤ì¤¿¤Î¤«¤âÃΤì¤Ì¡£")))
(method 'hut gregor-hut)
- (method 'ilya (lambda (knpc kpc) (say knpc "Yep. She lives at my place now "
- "that her parents are dead.")))
+ (method 'ilya (lambda (knpc kpc) (say knpc "¤½¤¦¡£º£¤Ï°ì½ï¤Ë½»¤ó¤Ç¤¤¤ë¡£"
+ "¤¢¤Î»Ò¤Îξ¿Æ¤Ï»à¤ó¤Ç¤·¤Þ¤Ã¤¿¡£")))
;; SAM: I dont' see any reference to this lake anywhere, commenting this one out for now...
;; (method 'lake (lambda (knpc kpc) (say knpc "Exit this shrine and ye'll find yourself in a "
;; "hidden valley. Head south and you'll see the Gray Lake "
;; "to the west.")))
- (method 'offe (lambda (knpc kpc) (say knpc "There in the cave you'll find a chest. "
- "Take what's inside. Wanderers enter this world with little, "
- "and in the past some have done great good, "
- "so folks leave stuff in good will for the next one.")
+ (method 'offe (lambda (knpc kpc) (say knpc "¤½¤Îƶ·¢¤ÎÃæ¤ËÈ¢¤¬¤¢¤ë¡£"
+ "¤½¤ÎÃ椫¤é¼è¤Ã¤Æ¤¯¤À¤µ¤ì¡£Ì¤¤¿Í¤Ï¤Û¤È¤ó¤Éʪ¤ò»ý¤¿¤º¤Ë¤³¤ÎÀ¤³¦¤Ë¤¯¤ë¡£"
+ "¤½¤·¤Æ´ö¿Í¤«¤Ï¤¹¤Ð¤é¤·¤¤¹Ô¤¤¤ò¤·¤¿¡£"
+ ""
+ "¤À¤«¤é¼¤Î¼Ô¤¿¤Á¤Ï¼¡¤Î¤¿¤á¤Ëʪ¤òÃÖ¤¤¤Æ¤¤¤¯¤Î¤À¡£")
(quest-data-update 'questentry-whereami 'wanderer 2)
))
(method 'pare gregor-dead)
(method 'plac gregor-hut)
- (method 'shar (lambda (knpc kpc) (say knpc "The Shard? That's what we call this land, Wanderer.")
+ (method 'shar (lambda (knpc kpc) (say knpc "¥·¥ã¥ë¥É¡©¤³¤ÎÃϤò¥ï¥·¤é¤Ï¤½¤¦¸Æ¤ó¤Ç¤¤¤ë¡£Ì¤¤¿Í¤è¡£")
(quest-data-update 'questentry-whereami 'shard 1)
))
- (method 'shri (lambda (knpc kpc) (say knpc "This shrine is for those who come through the gate. "
- "Wanderers like yourself. "
- "Folks leave simple offerings here to help you on "
- "your journey.")
+ (method 'shri (lambda (knpc kpc) (say knpc "¤³¤Îº×ÃŤÏÌç¤òÄ̤äƤ¯¤ë¼Ô¤Î¤¿¤á¤Ë¤¢¤ë¡£"
+ "¤¢¤Ê¤¿¤Î¤è¤¦¤Ê̤¤¿Í¤Î¤¿¤á¤Ë¤À¡£"
+ "¼¤Î¼Ô¤¿¤Á¤Ï¡¢¤¢¤Ê¤¿¤Îι¤ËɬÍפÊʪ¤ò¶¡¤¨Êª¤È¤·¤ÆÃÖ¤¤¤Æ¤¤¤¯¤Î¤À¡£")
(quest-data-update 'questentry-whereami 'wanderer 1)
))
- (method 'spid (lambda (knpc kpc) (say knpc "Some of the spiders in the deep parts "
- "of the woods are monstrous -- "
- " as big as oxen! "
- "Children of Angriss, we call those.")))
- (method 'angr (lambda (knpc kpc) (say knpc "Just a legend. "
- "Mother of all wood spiders. "
- "Scares the kids, keeps them out o' the woods "
- "where they can get lost.")))
-
- (method 'town (lambda (knpc kpc) (say knpc "Trigrave is the closest town. "
- "Follow the road South and you can't miss it.")))
-
- (method 'trol (lambda (knpc kpc) (say knpc "Trolls eat folks. "
- "Even crack the bones and suck the marrow. "
- "Nothing left to bury.")))
-
- (method 'wand (lambda (knpc kpc) (say knpc "We call those who come through the gate Wanderers. "
- "No one knows where they come from or where they go. "
- "You are the first to come through in a long, long time.")
+ (method 'spid (lambda (knpc kpc) (say knpc "¿¹¤Î±ü¤Ë¤Ï²øʪ¤Î¤è¤¦¤Ê¥¯¥â¤¬¤¤¤ë¡£¡Äͺµí¤Û¤É¤ÎÂ礤µ¤À¡ª"
+ "¥¢¥ó¥°¥ê¥¹¤Î»Ò¶¡¤¿¤Á¡¢¥ï¥·¤é¤Ï¤½¤¦¸Æ¤ó¤Ç¤¤¤ë¡£")))
+ (method 'angr (lambda (knpc kpc) (say knpc "¤¿¤À¤Î¸À¤¤ÅÁ¤¨¤À¡£"
+ "¿¹¤ÎÁ´¤Æ¤Î¥¯¥â¤ÎÊì¡¢"
+ "»Ò¶¡¤é¤òÉݤ¬¤é¤»¡¢»Ò¶¡¤¬¿¹¤ËÆþ¤é¤Ê¤¤Íͤˤ¹¤ë¤¿¤á¤Î¤â¤Î¤À¡£")))
+
+ (method 'town (lambda (knpc kpc) (say knpc "¥È¥ê¥°¥ì¥¤¥Ö¤¬°ìÈֶᤤĮ¤À¡£"
+ "Æî¤ÎÆ»¤Ë±è¤Ã¤Æ¤¤¤±¤Ð̤¦¤³¤È¤Ï¤Ê¤¤¤À¤í¤¦¡£")))
+
+ (method 'trol (lambda (knpc kpc) (say knpc "¥È¥í¥ë¤Ï¼¤Î¼Ô¤ò¿©¤¦¡£"
+ "¹ü¤ò³ä¤ê¡¢Ãæ¤Î¿ñ¤Þ¤Ç¿©¤Ã¤Æ¤·¤Þ¤¦¤Î¤À¡£"
+ "¸å¤Ë¤Ï²¿¤â»Ä¤µ¤ì¤Æ¤¤¤Ê¤«¤Ã¤¿¡£")))
+
+ (method 'wand (lambda (knpc kpc) (say knpc "¥ï¥·¤é¤ÏÌç¤òÄ̤äÆÍè¤ë¼Ô¤ò̤¤¿Í¤È¸Æ¤ó¤Ç¤ª¤ë¡£"
+ "¤½¤Î¼Ô¤¿¤Á¤¬¤É¤³¤«¤éÍè¤Æ¡¢¤É¤³¤Ø¹Ô¤¯¤Î¤«¤Ïï¤âÃΤé¤Ì¡£"
+ "¤¢¤Ê¤¿¤Ï¤½¤ÎŤ¤¡¢Ä¹¤¤Æ»¤Î¤ê¤Î½é¤á¤Ë¤¤¤ë¤Î¤À¡£")
(quest-data-update 'questentry-whereami 'wanderer 1)
))
- (method 'wise (lambda (knpc kpc) (say knpc "The Wise are both strong and -mostly- good. "
- "They help the land, as they can, "
- "and keep the Accursed at bay.")))
+ (method 'wise (lambda (knpc kpc) (say knpc "¸¼Ô¤Ï¶¯¤¯¡¢¤½¤·¤Æ¤Û¤È¤ó¤É¤ÏÁ±¤¤¼Ô¤À¡£"
+ "Èà¤é¤Ï¤Ç¤¤¦¤ë¸Â¤ê¤³¤ÎÃϤò½õ¤±¡¢"
+ "¤½¤·¤Æ¼ö¤ï¤ì¤¿¼Ô¤¿¤Á¤«¤é¼é¤Ã¤Æ¤¤¤ë¡£")))
(method 'accu (lambda (knpc kpc)
- (say knpc "The Accursed? Rumour has it they trade their souls for power. "
- "If not for the Wise they would overrun the Shard.")))
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¡©¤¦¤ï¤µ¤Ç¤ÏÎϤΤ¿¤á¤Ëº²¤òÇä¤Ã¤¿¤é¤·¤¤¡£"
+ "¤â¤·¸¼Ô¤¬¤¤¤Ê¤±¤ì¤Ð¡¢¤³¤Î¥·¥ã¥ë¥É¤Ï¤ä¤Ä¤é¤ËƧ¤ß¤Ë¤¸¤é¤ì¤ë¤Ë°ã¤¤¤Ê¤¤¡£")))
- (method 'witc (lambda (knpc kpc) (say knpc "Don't know of any witches in these parts any more.")))
+ (method 'witc (lambda (knpc kpc) (say knpc "º£¤Ç¤Ï¤³¤ÎÉÕ¶á¤Ç¤ÏËâ½÷¤Ï¤¤¤Ê¤¤¤è¤¦¤À¡£")))
))
;;----------------------------------------------------------------------------
(define (mk-gregor)
(bind
(kern-mk-char 'ch_gregor ; tag
- "Gregor" ; name
+ "¥°¥ì¥´¡¼¥ë" ; name
sp_human ; species
nil ; occ
s_old_townsman ; sprite
(bind
(kern-mk-char 'ch_ilya ; tag
- "Ilya" ; name
+ "¥¤¥ê¥¢" ; name
sp_human ; species
nil ; occ
s_child ; sprite
(kern-mk-place 'p_gregors_hut ; tag
- "Gregor's Hut" ; name
+ "¥°¥ì¥´¡¼¥ë¤Î¾®²°" ; name
s_hamlet ; sprite
m_gregors_hut ; map
#f ; wraps
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; The schedule below is for the place "Trigrave"
+;; ¥È¥ê¥°¥ì¥¤¥Ö
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_gwen
(list 0 0 trigrave-gwens-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Gwen is the innkeeper for Trigrave. She is a gracious, mysterious woman.
+;; ¥°¥Ù¥ó¤Ï½É²°¤Î¼ç¿Í¤Ç¡¢Í¥²í¤ÇÆæ¤Î¿¤¤½÷À¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
(define (gwen-trade knpc kpc)
(if (not (string=? "working" (kern-obj-get-activity knpc)))
- (say knpc "Come by my shop when I'm open. "
- "It's the Gray Dove Inn in the northwest corner of town. "
- "I open at 9:00AM and close the counter at midnight.")
+ (say knpc "»ä¤ÎŹ¤¬³«¤¤¤Æ¤¤¤ë¤È¤¤ËÍè¤Æ¤¯¤À¤µ¤¤¡£"
+ "½É²°¡Ö³¥¿§¤ÎÈ·¡×¤Ï¤³¤ÎÄ®¤ÎËÌÀ¾¤Ë¤¢¤ê¤Þ¤¹¡£"
+ "¸áÁ°9»þ¤Ë³«¤¤¤Æ¡¢¿¼Ìë¤ËÊÄŹ¤·¤Þ¤¹¡£")
(let ((door (eval 'trigrave-inn-room-1-door)))
;; is the room still open?
(if (not (door-locked? (kobj-gob door)))
;; yes - remind player
- (say knpc "Your room is still open!")
+ (say knpc "¤¢¤Ê¤¿¤Î¤ªÉô²°¤Ï¤â¤¦³«¤¤¤Æ¤¤¤Þ¤¹¡ª")
;; no - ask if player needs a room
(begin
- (say knpc "Do you need a room?")
+ (say knpc "¤ªÉô²°¤¬¸æÆþ¤êÍѤǤ¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player wants a room
(begin
(say knpc
- "It will be " trigrave-inn-room-price " gold, "
- "and you may use the room as "
- "long as you are in town. Agreed?")
+ "ÎÁ¶â¤Ï¶â²ß" trigrave-inn-room-price "Ëç¡¢"
+ "¤³¤ÎÄ®¤Ë¤¤¤ë´Ö¡¢²¿Å٤Ǥâ½ÐÆþ¤ê¤Ç¤¤Þ¤¹¡£"
+ "¤è¤í¤·¤¤¤Ç¤¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player agrees to the price
(let ((gold (kern-player-get-gold)))
(kern-player-set-gold
(- gold
trigrave-inn-room-price))
- (say knpc "You're in room 1. Enjoy your stay!")
+ (say knpc "1¹æ¼¼¤Ç¤¹¡£¤´¤æ¤Ã¤¯¤ê¤É¤¦¤¾¡ª")
(send-signal knpc door 'unlock)
(kern-conv-end)
)
;; no - player does not have enouvh gold)
- (say knpc "Sorry, but you need more gold!")))
+ (say knpc "»ÄÇ°¤Ç¤¹¤¬¤ª¶â¤¬Â¤ê¤Þ¤»¤ó¡ª")))
;; no - player does not agree to the price
(say knpc
- "You won't find a better deal in the Peninsula!")))
+ "¤³¤³¤è¤êÎɤ¤½É¤Ï¡¢¤³¤ÎȾÅç¤Ë¤Ï¤¢¤ê¤Þ¤»¤ó¤è¡ª")))
;; no - player does not want a room
- (say knpc "Perhaps another time.")))))))
+ (say knpc "¤Þ¤¿¤Îµ¡²ñ¤Ë¤É¤¦¤¾¡£")))))))
(define (gwen-thie knpc kpc)
- (say knpc "Some recent travelers from Green Tower met a man in great haste heading east through the pass. You might try asking around in Green Tower.")
+ (say knpc "ÎФÎÅ㤫¤éºÇ¶áÍ褿µÒ¤¬¡¢Åì¤Î»³Æ»¤Ç¤È¤Æ¤âµÞ¤¤¤Ç¤¤¤ë¿Í¤ò¸«¤¿¤½¤¦¤Ç¤¹¤è¡£ÎФÎÅã¤Î¤¢¤¿¤ê¤Çʹ¤¤¤Æ¤ß¤ì¤Ð¤è¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¡£")
(quest-data-update-with 'questentry-thiefrune 'tower 1 (quest-notify (grant-party-xp-fn 10)))
)
+(define (gwen-news knpc kpc)
+ (say knpc "ËâÆ»»Õ¤¬²¿¤«½ÅÍפʤâ¤Î¤ò¤Ê¤¯¤·¤¿¤½¤¦¤Ç¤¹¤è¡£"))
+
(define gwen-conv
(ifc basic-conv
;; default if the only "keyword" which may (indeed must!) be longer than
;; 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 "I cannot help you with that")))
+ (say knpc "»ÄÇ°¤Ê¤¬¤é¤ª¼êÅÁ¤¤¤Ç¤¤Þ¤»¤ó¡£")))
(method 'hail
(lambda (knpc kpc)
- (kern-print "[You see an enchanting woman dressed in "
- "gray. Belted to her waist is a long, thin "
- "sword.]")
- (say knpc "Welcome, traveler.")))
- (method 'bye (lambda (knpc kpc) (say knpc "Goodbye.")))
+ (kern-print "¡Î¤¢¤Ê¤¿¤Ï³¥¿§¤ÎÉþ¤òÃ夿̥ÎÏŪ¤Ê½÷À¤È²ñ¤Ã¤¿¡£"
+ "¹ø¤Î¥Ù¥ë¥È¤Ë¤ÏºÙ¤¯Ä¹¤¤^c+m·õ^c-¤¬¸«¤¨¤ë¡£¡Ï\n")
+ (say knpc "¤è¤¦¤³¤½¡£Î¹¤ÎÊý¡£")))
+ (method 'bye (lambda (knpc kpc) (say knpc "¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£")))
(method 'job
(lambda (knpc kpc)
- (say knpc "I'm the innkeeper of Trigrave.")
+ (say knpc "¥È¥ê¥°¥ì¥¤¥Ö¤Î½É²°¤ò¤·¤Æ¤ª¤ê¤Þ¤¹¡£")
(gwen-trade knpc kpc)))
- (method 'name (lambda (knpc kpc) (say knpc "I am Gwen.")))
+ (method 'name (lambda (knpc kpc) (say knpc "»ä¤Ï¥°¥Ù¥ó¤Ç¤¹¡£")))
(method 'trad gwen-trade)
(method 'join
(lambda (knpc kpc)
- (say knpc "My journeys are over, "
- "but thank you for the offer.")))
+ (say knpc "»ä¤Îι¤Ï¤â¤¦½ª¤ï¤ê¤Þ¤·¤¿¡£"
+ "¤Ç¤â¡¢¤ªÍ¶¤¤¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£")))
(method 'chan
(lambda (knpc kpc)
- (say knpc "That rapscallion is usually at the tavern. He "
- "stumbles back to his room here late at night, drunk as a sailor.")))
+ (say knpc "¤¢¤Î¤ªÄ´»Ò¼Ô¤ÏÉáÃʤϼò¾ì¤Ë¤¤¤Þ¤¹¡£"
+ "ÌëÃÙ¤¯¤Ê¤ë¤ÈÁ¥¾è¤ê¤ß¤¿¤¤¤Ë¿ì¤Ã¤ÆÉô²°¤ËÌá¤Ã¤Æ¤¤Þ¤¹¡£")))
(method 'civi
(lambda (knpc kpc)
- (say knpc "There is not much civilization to speak of around here.")))
+ (say knpc "¤³¤Î¤¢¤¿¤ê¤Î¤³¤È¤òÏä¹ÅԻԤοͤϤ¢¤Þ¤ê¤¤¤Þ¤»¤ó¡£")))
(method 'earl
(lambda (knpc kpc)
- (say knpc "A sweet but befuddled old man. He keeps the shop "
- "south of my Inn.")))
+ (say knpc "ÁÇŨ¤Ê¡¢¤Ç¤âʪ˺¤ì¤Î·ã¤·¤¤¤´Ï·¿Í¤Ç¤¹¡£"
+ "Èà¤Ï»ä¤Î½É¤ÎÆî¤ÇŹ¤òÀÚ¤êÀ¹¤ê¤·¤Æ¤Þ¤¹¡£")))
(method 'enem
- (lambda (knpc kpc) (say knpc "That is not your business.")))
+ (lambda (knpc kpc) (say knpc "¤¢¤Ê¤¿¤Ë¤Ï´Ø·¸¤Î¤Ê¤¤¤³¤È¤Ç¤¹¡£")))
(method 'esca
(lambda (knpc kpc)
- (say knpc "If one wishes to hide from an enemy or a "
- "shameful act there is no place better than this "
- "forgotten corner of the Shard.")))
+ (say knpc "¤â¤·¡¢Å¨¤äÃѤ¸¤ë¤Ù¤¹Ô¤¤¤«¤é¿È¤ò±£¤·¤¿¤¤¤Ê¤é¡¢"
+ "¤³¤Î¥·¥ã¥ë¥É¤Î˺¤ì¤é¤ì¤¿ÃϤè¤êÎɤ¤¾ì½ê¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¡£")))
(method 'inn
(lambda (knpc kpc)
- (say knpc "I enjoy running the Inn because I get to hear "
- "news from travelers.")))
+ (say knpc "½É²°¤Ï³Ú¤·¤¤»Å»ö¤Ç¤¹¡£"
+ "ι¿Í¤«¤é¿§¡¹¤ÊÏäòʹ¤±¤Þ¤¹¤«¤é¡£")))
(method 'jim
(lambda (knpc kpc)
- (say knpc "Handsome, but rather grim. He owns the "
- "blacksmith shop on the east end.")))
- (method 'news (lambda (knpc kpc)
- (say knpc "I've heard the Enchanter is missing something valuable.")))
+ (say knpc "¥Ï¥ó¥µ¥à¤Ê¡¢¤Ç¤â¾¯¤·¹Ó¤Ã¤Ý¤¤¿Í¤Ç¤¹¡£"
+ "Èà¤ÏÅì¤Îü¤ÇÃÃÌê²°¤ò±Ä¤ó¤Ç¤Þ¤¹¡£")))
+ (method 'news gwen-news)
+ (method 'stor gwen-news)
(method 'room gwen-trade)
(method 'sham
- (lambda (knpc kpc) (say knpc "That is not your business.")))
+ (lambda (knpc kpc) (say knpc "¤¢¤Ê¤¿¤Ë¤Ï´Ø·¸¤Î¤Ê¤¤¤³¤È¤Ç¤¹¡£")))
(method 'swor
(lambda (knpc kpc)
- (say knpc "It was a gift from a friend.")))
+ (say knpc "ͧ¿Í¤«¤é¾ù¤ê¼õ¤±¤¿¤â¤Î¤Ç¤¹¡£")))
(method 'tave
(lambda (knpc kpc)
- (say knpc "The Lusty Juggs is in the south part of town.")))
+ (say knpc "¡ÖÍÛµ¤¤ÊÇաפϤ³¤ÎÄ®¤ÎÆˤ¢¤ê¤Þ¤¹¡£")))
(method 'thie gwen-thie)
(method 'trig
(lambda (knpc kpc)
- (say knpc "This is a small town, far from civilization. "
- "Many come here to escape.")))
+ (say knpc "¤³¤³¤ÏÅÔ»Ô¤«¤éÎ¥¤ì¤¿¾®¤µ¤ÊÄ®¤Ç¤¹¡£"
+ "¤¿¤¯¤µ¤ó¤Î¿Í¤¬Æ¨¤ì¤ë¤¿¤á¤Ë¤³¤³¤Ë¤¤¤Þ¤¹¡£")))
))
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Bole.
+;; ¥Ü¥ì
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_hackle
(list 0 0 bole-hackles-hut "idle")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Hackle is a female hedge-witch dwelling in Bole.
-;; Her mind was shattered by some misadventure with Gazer(s),
-;; though she is still capable of serving as a healer.
+;; ¥Ï¥Ã¥¯¥ë¤ÏËâ½÷¤Ç¥Ü¥ì¤Ë½»¤ó¤Ç¤¤¤ë¡£
+;; Èà½÷¤ÎÀº¿À¤Ï±¿°¤¯½Ð²ñ¤Ã¤¿¥²¥¤¥¶¡¼¤Ë¤è¤Ã¤ÆÂǤÁºÕ¤«¤ì¤¿¡£
+;; ¤·¤«¤·¡¢Èà½÷¤Ë¤Ï¤Þ¤À¼£ÎŤÎǽÎϤ¬¤¢¤ë¡£
;;----------------------------------------------------------------------------
(define (hackle-trade knpc kpc)
- (say knpc "She can heal it, or one of its friends. She requires a piece of "
- "gold for each piece of life! Does it agree?")
+ (say knpc "Èà½÷¤Ï¤½¤ì¤«¡¢¤½¤ì¤Îͧ¤ò¼£ÎŤ¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£"
+ "Èà½÷¤ÏÀ¸Ì¿ÎϤ´¤È¤Ë¶â¤ÎÇËÊÒ¤òÍ׵᤹¤ë¡£¤½¤ì¤ÏƱ°Õ¤¹¤ë¤«¡©")
(define (hackle-heal)
- (say knpc "Which shall she heal?")
+ (say knpc "Èà½÷¤Ï¤É¤ì¤ò¼£ÎŤ¹¤ë¤«¡©")
(let ((kchar (kern-ui-select-party-member)))
(if (null? kchar)
- (say knpc "How else can she help it?")
+ (say knpc "Èà½÷¤Ï¤½¤ì¤ËÊ̤β¿¤ò¤¹¤ë¤«¡©")
(let* ((gold (kern-player-get-gold))
(pts (- (kern-char-get-max-hp kchar)
(kern-char-get-hp kchar))))
(if (= 0 gold)
- (say knpc "No gold, no life! It is the law of the world!")
+ (say knpc "¶â¤¬¤Ê¤±¤ì¤ÐÌ¿¤â¤Ê¤¤¡ª¤½¤ì¤¬¤³¤ÎÀ¤¤ÎË¡¡ª")
(begin
(if (= 0 pts)
- (say knpc "It is well! She can do nothing for it!")
+ (say knpc "¤½¤ì¤Ï¤è¤¯¤Ê¤Ã¤¿¡ªÈà½÷¤Ï¤½¤ì¤Ë¤¹¤ë¤³¤È¤Ï¤â¤¦¤Ê¤¤¡ª")
(let ((n (min gold pts)))
- (say knpc "She heals it!")
+ (say knpc "Èà½÷¤Ï¼£ÎŤ·¤¿¡ª")
(kern-obj-heal kchar n)
(kern-player-set-gold (- gold n))))
- (say knpc "Will it heal another?")
+ (say knpc "Ê̤Τ½¤ì¤ò¼£ÎŤ¹¤ë¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(hackle-heal)
- (say knpc "Then something else it wants.")
+ (say knpc "¤Ê¤é¤Ð¤½¤ì¤ÏÊ̤Τâ¤Î¤ò˾¤à¡£")
)))))))
(if (kern-conv-get-yes-no? kpc)
(hackle-heal)
- (say knpc "Have it its way!")))
+ (say knpc "¤½¤ì¤Ï¤½¤ì¤ÎÆ»¤ò¹Ô¤±¡ª")))
;; basics...
(define (hackle-default knpc kpc)
- (say knpc "She cannot help it with that."))
+ (say knpc "Èà½÷¤Ï¤½¤ì¤ò¼ê½õ¤±¤Ç¤¤Ê¤¤¡£"))
(define (hackle-hail knpc kpc)
(if (in-player-party? 'ch_mesmeme)
(begin
- (say knpc "[She shrinks back in horror at the sight of Mesmeme] AHHH! It frightens her!")
- (aside kpc 'ch_mesmeme "No frighten.")
+ (say knpc "¡ÎÈà½÷¤Ï¥á¥¹¥á¥á¤ò¸«¤ë¤È¶²Éݤǽ̤³¤Þ¤Ã¤¿¡Ï¤¢¤¢¤¢¡ª¤½¤ì¤ÏÈà½÷¤ÈÀï¤Ã¤¿¡ª")
+ (aside kpc 'ch_mesmeme "¶²¤ì¤ë¤Ê")
)
- (say knpc "[You meet a disheveled, middle-aged woman] It comes to her! "
- "It wants something!")
+ (say knpc "[¤¢¤Ê¤¿¤Ïȱ¤ÎÍð¤ì¤¿Ãæǯ¤Î½÷À¤È²ñ¤Ã¤¿¡£] ¤½¤ì¤ÏÈà½÷¤È²ñ¤Ã¤¿¡ª"
+ "²¿¤«¤òµá¤á¤Æ¤¤¤ë¡ª")
))
(define (hackle-name knpc kpc)
- (say knpc "She is Hackle."))
+ (say knpc "Èà½÷¤Ï¥Ï¥Ã¥¯¥ë¡£"))
(define (hackle-job knpc kpc)
- (say knpc "She is mad! But she can heal it!"))
+ (say knpc "Èà½÷¤Ï¶¸¤Ã¤Æ¤¤¤ë¡ª¤·¤«¤·Èà½÷¤Ï¼£ÎŤǤ¤ë¡ª"))
(define (hackle-join knpc kpc)
- (say knpc "She cannot join it! She must mind her sheep!"))
+ (say knpc "Èà½÷¤ÏÃç´Ö¤Ë¤Ï¤Ê¤ì¤Ê¤¤¡ªÈà½÷¤ÏÈà½÷¤ÎÍÓ¤òµ¤¤Ë¤«¤±¤Æ¤¤¤ë¡ª"))
(define (hackle-bye knpc kpc)
- (say knpc "She bids it farewell, but knows it will return!"))
+ (say knpc "Èà½÷¤Ï¤µ¤è¤¦¤Ê¤é¤È¸À¤Ã¤¿¡£¤·¤«¤·¡¢Èà½÷¤Ï¤½¤ì¤¬Ìá¤Ã¤Æ¤¯¤ë¤³¤È¤òÃΤäƤ¤¤ë¡ª"))
;; other characters & town...
(define (hackle-may knpc kpc)
- (say knpc "It is a hard woman, hard but kind to Hackle!"))
+ (say knpc "¤½¤ì¤Ï¤¤Ä¤¤½÷¡¢¤·¤«¤·¥Ï¥Ã¥¯¥ë¤Ë¤Ï¤¤Ä¤¤¤¬¿ÆÀڤǤ¢¤ë¡ª"))
(define (hackle-kath knpc kpc)
- (say knpc "A woman clothed in red! A fiend clothed in woman!"))
+ (say knpc "ÀÖ¤òÃ夿½÷¡ª½÷¤òÃ夿°Ë⡪"))
(define (hackle-bill knpc kpc)
- (say knpc "It is careless. Yes, the wood gods will have it for supper one "
- "day."))
+ (say knpc "·ÚΨ¡£¤½¤¦¡¢¤¤¤Ä¤ÎÆü¤«ÌڤοÀ¤Ï¤½¤ì¤òͼ¿©¤Ë¤¹¤ë¤À¤í¤¦¡£"))
(define (hackle-thud knpc kpc)
- (say knpc "[She laughs, a surprising, golden sound] That is no toy! They "
- "called for a servant, but summoned a demon!"))
+ (say knpc "¡ÎÈà½÷¤Ï¾Ð¤¤¡¢¶Ã¤¡¢¶«¤ó¤À¡£¡Ï¤¢¤ì¤Ï´á¶ñ¤Ç¤Ï¤Ê¤¤¡ª"
+ "²¼ËͤȤ·¤Æ¸Æ¤Ð¤ì¤¿¼Ô¡¢¤·¤«¤·°Ëâ¤Ç¤¢¤ë¡£"))
(define (hackle-melv knpc kpc)
- (say knpc "It is a good soul."))
+ (say knpc "¤½¤ì¤ÏÁ±¤¤º²¤Ç¤¢¤ë¡£"))
(define (hackle-bole knpc kpc)
- (say knpc "Not Bole! Hole! The keyhole to the deep! She knows it!"))
+ (say knpc "¥Ü¥ì(Bole)¤Ç¤Ï¤Ê¤¤¡ª¥Û¡¼¥ë(Hole)¤Ç¤¢¤ë¡ª¿¼±ó¤Ø¤Î¸°·ê¡ªÈà½÷¤ÏÃΤäƤ¤¤ë¡ª"))
;; misc...
(define (hackle-mesm knpc kpc)
- (say knpc "It is only a child. Deaf and dumb it is, to its own kind. "
- "But the pet will make a pet of its master.")
- (aside kpc 'ch_mesmeme "No pet")
+ (say knpc "¤½¤ì¤Ï¤¿¤À¤Î»Ò¶¡¤Ç¤¢¤ë¡£Æ±Â²¤Î¼Ô¤È¤Ï¸ý¤¬¤¤±¤º¡¢¼ª¤¬Ê¹¤³¤¨¤Ê¤¤¡£"
+ "¤·¤«¤·¡¢»ô¤¤¸¤¤Ï¤¤¤º¤ì¼ç¿Í¤ò»ô¤¤¸¤¤Ë¤¹¤ë¤À¤í¤¦¡£")
+ (aside kpc 'ch_mesmeme "»ô¤¤¸¤¤Ë¤¢¤é¤º")
)
(define (hackle-shee knpc kpc)
- (say knpc "The sheep hides in wolf's clothing! How it howls when it "
- "bleats!"))
+ (say knpc "ÍÓ¤ÎÈé¤òÈï¤Ã¤¿Ïµ¡ª"
+ "ÍÓ¤¬ÌĤ¯¤È¤¡¢¤É¤Î¤è¤¦¤Ëϵ¤¬Ëʤ¨¤ë¤«¡ª"))
(define (hackle-wood knpc kpc)
- (say knpc "She has seen them sleeping in the old oaks. She wakes them "
- "not! They do not like us, they do not like anyone! The goblins "
- "appease them but she does not know the words."))
+ (say knpc "Èà½÷¤Ï¸Å¤¤³ß¤ÎÌڤǤ½¤ì¤ò¸«¤¿¡£Èà½÷¤Ïµ¯¤³¤µ¤Ê¤«¤Ã¤¿¡ª"
+ "¤½¤ì¤é¤ÏÈà½÷¤é¤ò¹¥¤Þ¤Ê¤¤¡¢¤½¤ì¤é¤ÏÁ´¤Æ¤ò¹¥¤Þ¤Ê¤¤¡ª"
+ "¥´¥Ö¥ê¥ó¤Ï¤½¤ì¤é¤òÀŤ᤿¡£¤·¤«¤·Èà½÷¤Ï¤½¤Î¸ÀÍÕ¤òÃΤé¤Ê¤¤¡£"))
(define (hackle-mad knpc kpc)
- (say knpc "The gazers caught her as a girl! She escaped, but her mind did "
- "not!"))
+ (say knpc "¥²¥¤¥¶¡¼¤¬Èà½÷¤ò»Ò¶¡¤Î¤È¤Êá¤é¤¨¤¿¡ªÈà½÷¤Ïƨ¤²¤¿¡£"
+ "¤·¤«¤·¡¢Èà½÷¤Î¿´¤Ïƨ¤²Ã٤줿¡ª"))
(define (hackle-gaze knpc kpc)
- (say knpc "If it meets one, it should kill one without question! They know "
- "the answer to any question, and in the answer lies bondage!")
- (aside kpc 'ch_mesmeme "[Blinks nervously]")
+ (say knpc "¤â¤·²ñ¤Ã¤¿¤Ê¤é¡¢¤½¤ì¤Ï¤¤¤«¤Ê¤ë¾ì¹ç¤Ç¤â»¦¤µ¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡ª"
+ "¤½¤ì¤é¤Ï¤¤¤«¤Ê¤ëÌ䤤¤ÎÅú¤¨¤âÃΤäƤ¤¤ë¡£¤½¤·¤Æ¤½¤ÎÅú¤¨¤Ï¹´Â«¤¹¤ë¡ª")
+ (aside kpc 'ch_mesmeme "¡ÎÉ԰¤½¤¦¤Ë½Ö¤¤¤Æ¤¤¤ë¡£¡Ï")
)
;; thief quest...
(define (hackle-thie knpc kpc)
- (say knpc "It is a mighty wrogue indeed that robs a mighty wizard!"))
+ (say knpc "¤½¤ì¤Ï¿¿¤Ë¶¯¤¤Ê¤é¤º¼Ô¤¬¶¯¤Ëâ½Ñ»Õ¤«¤éÃ¥¤Ã¤¿¡ª"))
(define (hackle-robs knpc kpc)
- (say knpc "It robs and runs, down its little mouse-hole!"))
+ (say knpc "¤½¤ì¤ÏÃ¥¤¤¡¢¤½¤Î¾®¤µ¤Ê¥Í¥º¥ß¤Î·ê¤ËÁö¤êµî¤Ã¤¿¡ª"))
(define (hackle-hole knpc kpc)
- (say knpc "Does it like riddles?\n"
- " An 'o' has a hole!\n"
- " And hole has an 'o'!\n"
- " And a mouse has both!\n"
- " In the middle of the night\n"
- " Down it will go!\n"
- "Does it know what ^c+mreveals^c-?")
+ (say knpc "¤½¤ì¤ÏÆ椬¹¥¤¤À¤í¤¦¤«¡©\n"
+ "¡¡'o'¤Ë¤Ï·ê(hole)¤¬¤¢¤ë¡ª\n"
+ "¡¡¤½¤·¤Æ·ê¤Ë¤Ï'o'¤¬¤¢¤ë¡ª\n"
+ "¡¡¤½¤·¤Æ¥Í¥º¥ß(mouse)¤Ë¤ÏξÊý¤¢¤ë¡ª\n"
+ "¡¡¿¿ÌëÃæ¤Ë\n"
+ "¡¡¤½¤ì¤Ï¹Ô¤¯¤À¤í¤¦¡ª\n"
+ "²¿¤ò^c+mɽ¤¹^c-¤«¤ï¤«¤ë¤«¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "Then let it ^c+mreveal^c- and understand my riddle!")
+ (say knpc "¤Ê¤é¤Ð¤½¤ì¤ò^c+mɽ¤·^c-Ææ¤òÍý²ò¤»¤è¡ª")
(begin
- (say knpc "Wis Quas! The Red Bitch has a scroll, but has not the "
- "wisdom.")))
+ (say knpc "¥¦¥£¥¹¡¦¥¯¥¡¥¹<Wis Quas>¡ªÀÖ¤¤»ó¸Ñ¤Ï´¬Êª¤ò»ý¤Ã¤Æ¤¤¤ë¡£¤·¤«¤·ÍýÀ¤ò»ý¤Ã¤Æ¤¤¤Ê¤¤¡£")))
)
(define (hackle-reve knpc kpc)
- (say knpc "The Bill-boy knows where the mouse disappeared! "
- "Let it ^c+mreveal^c- there!"))
+ (say knpc "¥Ó¥ëË·¤Ï¥Í¥º¥ß¤¬¤É¤³¤Ë¾Ã¤¨¤¿¤«ÃΤäƤ¤¤ë¡ª"
+ "¤½¤ì¤ò^c+mɽ¤»^c-¡ª"))
(define (hackle-midd knpc kpc)
- (say knpc "Yes! The middle of the night!"))
+ (say knpc "¤½¤¦¡ª¿¿ÌëÃ桪"))
(define hackle-conv
(ifc basic-conv
(method 'default hackle-default)
(method 'hail hackle-hail)
(method 'bye hackle-bye)
- (method 'job hackle-job)
+ (method 'job hackle-job)
(method 'name hackle-name)
(method 'join hackle-join)
(define (mk-hackle)
(bind
(kern-mk-char 'ch_hackle ; tag
- "Hackle" ; name
+ "¥Ï¥Ã¥¯¥ë" ; name
sp_human ; species
nil ; occ
s_beggar ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Oparine.
+;; ¥ª¥Ñ¡¼¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_henry
(list 0 0 bilge-water-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Henry is a one-handed tavern-keeper, doing trade in Oparine.
-;; He was once a mighty mariner.
+;; ¥Ø¥ó¥ê¡¼¤Ï¥ª¥Ñ¡¼¥ê¥ó¤ÎÊÒ¼ê¤Î¼ò¾ì¤Î¼ç¤Ç¡¢¼è¤ê°ú¤¤Ç¤¤ë¡£
+;; Èà¤Ï¤«¤Ä¤Æ¶þ¶¯¤ÊÁ¥¾è¤ê¤Ç¤¢¤Ã¤¿¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (henry-hail knpc kpc)
- (say knpc "[You meet a cheery man with a hook for one hand] "
- "Welcome, matey!"))
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÏÍÛµ¤¤Ê¡¢ÊҼ꤬îì¤ÎÃˤȲñ¤Ã¤¿¡£¡Ï"
+ "¤è¤ª¡¢ÁêËÀ¡ª"))
(define (henry-default knpc kpc)
- (say knpc "Ye be askin' the wrong salt about that!"))
+ (say knpc "°¤¤±ö¤Ëʹ¤¤¤Æ¤¤¤ë¤è¤¦¤Ê¤â¤ó¤À¡ª"))
(define (henry-name knpc kpc)
- (say knpc "I's Henry! Henry the barkeep."))
+ (say knpc "¥ª¥ì¤Ï¥Ø¥ó¥ê¡¼¡ª¼ò¾ì¤Î¥Ø¥ó¥ê¡¼¤À¡£"))
(define (henry-join knpc kpc)
- (say knpc "I'd join ye in a 'eartbeat, lad, but oo's goin' to keep the "
- "tankards full 'round here if I be goin'? 'Twouldn't be right!"))
+ (say knpc "¿´¤¬ÍÙ¤ë¤Ê¡¢¼ã¤¤¤Î¡£"
+ "¤À¤¬¡¢¥ª¥ì¤¬½Ð¤Æ¹Ô¤Ã¤¿¤é郎¤³¤³¤Ç´ï¤òËþ¤¿¤¹¤ó¤À¡©¥à¥ê¤À¤Ê¡ª"))
(define (henry-job knpc kpc)
- (say knpc "Why I's a minister! I fills the mugs 'ith 'oly sacraments!"))
+ (say knpc "¤Ê¤¼¥ª¥ì¤¬Ëһդˤʤ俤«¡ª¤½¤ì¤Ï¤³¤Î´ï¤òÀ»»Á(¤»¤¤¤µ¤ó)¤ÇËþ¤¿¤¹¤¿¤á¤À¡ª"))
(define (henry-bye knpc kpc)
- (say knpc "Keep a weather eye!"))
+ (say knpc "Å·µ¤¤ËÃí°Õ¤·¤í¤è¡ª"))
(define henry-catalog
(list
- (list t_food 5 "My famous clam chowder will warm you to your toes.")
- (list t_beer 5 "Aye, drink and be merry, fer tomorro' mornin' you'll be wishin' you were dead!")
- (list t_wine 7 "I keep some o' the fancy-shmancy stuff fer the occasional gen'leman.")
+ (list t_food 5 "̾ʪ¤Î¥¯¥é¥à¥Á¥ã¥¦¥À¡¼¤Ï¤ޤDz¹¤«¤¯¤Ê¤ë¤¾¡£")
+ (list t_beer 5 "¤¢¤¢¡¢°û¤ó¤Ç³Ú¤·¤â¤¦¡£¤¿¤È¤¨ÌÀÆü¤ÎÄ«¤Ë»à¤Ì¤È¤·¤Æ¤â¡ª")
+ (list t_wine 7 "ÆÍÁ³¡¢¿Â»ÎÍͤ¬Í褿¤È¤¤Î¤¿¤á¤ËÍ¥²í¤Ê¥â¥Î¤âÍÑ°Õ¤·¤Æ¤¤¤ë¡£")
))
(define henry-merch-msgs
- (list "I'll serve ye when my hangover's gone."
- "Let the good times roll!"
- "I've no interest in used food or drink."
- "Now we're talkin'!"
- "Don't drink and sail!"
- "If yer just lookin' for someplace to loiter, there's a dock outside."
- "I suppose I can make stew from this."
- "Good. Fine."
- "Come back when you need a refill!"
- "If yer just lookin' for someplace to loiter, there's a dock outside."
+ (list "ÆóÆü¿ì¤¤¤¬¤ª¤µ¤Þ¤Ã¤¿¤é²¿¤«½Ð¤½¤¦¡£"
+ "ÍÛµ¤¤Ë¤¤¤³¤¦¡ª"
+ "¿©¤Ù¤«¤±¤ä°û¤ß¤«¤±¤Ï¤¤¤é¤ó¡£"
+ "º£Ï䷤Ƥ¤¤ë¡ª"
+ "°û¤ó¤À¤éÁ¥¤Ë¾è¤ë¤Ê¡ª"
+ "¤¿¤À¥Ö¥é¥Ö¥é¤·¤¿¤¤¤À¤±¤Ê¤éÁ¥Ãå¾ì¤¬¤¤¤¤¤À¤í¤¦¡£"
+ "¤³¤ì¤Ç¥·¥Á¥å¡¼¤¬¤Ç¤¤ë¤Ê¡£"
+ "¤Þ¤¢¤¤¤¤¡£"
+ "Ê¢¤¬¸º¤Ã¤¿¤éÌá¤Ã¤Æ¤¤Ê¡ª"
+ "¤¿¤À¥Ö¥é¥Ö¥é¤·¤¿¤¤¤À¤±¤Ê¤éÁ¥Ãå¾ì¤¬¤¤¤¤¤À¤í¤¦¡£"
))
;; Trade...
(define (henry-buy knpc kpc) (conv-trade knpc kpc "buy" henry-merch-msgs henry-catalog))
-(define (henry-sell knpc kpc) (say knpc "I've no use for solicitors."))
+(define (henry-sell knpc kpc) (say knpc "²¡¤·Çä¤ê¤Ï¤ªÃǤê¤À¡£"))
;; Hook...
(define (henry-hook knpc kpc)
- (say knpc "Oy, lost me arm, me did, fightin' fearsome monsters of "
- "the deep."))
+ (say knpc "¤ª¤ª¡¢¼ê¤Ï¤Ê¤¯¤Ê¤Ã¤Á¤Þ¤Ã¤¿¡£¿¼³¤¤Î¶²¤í¤·¤¤²øʪ¤ÈÀï¤Ã¤¿¤«¤é¤è¡ª"))
(define (henry-mons knpc kpc)
- (say knpc "The kraken took me arm, snapped it right off 'ith 'is nasty "
- "beak, 'e did! The kraken won't shoot from afar like the cowardly "
- "sea serpent. No, 'e likes to munch right through the decks and get "
- "in snugly!"))
+ (say knpc "¥¯¥é¡¼¥±¥ó¤Ï¥ª¥ì¤ÎÏÓ¤ò¤¢¤Ã¤È¸À¤¦´Ö¤Ë±ø¤Í¤¨¥¯¥Á¥Ð¥·¤Ç¤â¤®¼è¤Ã¤¿¡ª"
+ "¥ä¥Ä¤Ïͦµ¤¤Î¤Í¤¨³¤¥Ø¥Ó¤Î¤è¤¦¤Ë±ó¤¯¤«¤é¤Ï·â¤Ã¤Æ¤³¤Ê¤«¤Ã¤¿¡£"
+ "Á¥¤Ë¤Ô¤Ã¤¿¤ê¤ÈµÛ¤¤ÉÕ¤¤¤Æ¡¢¹ÃÈĤò¿©¤¤Çˤ俤ó¤À¡ª"))
(define (henry-serp knpc kpc)
- (say knpc "The sea serpent can crush a ship 'ith its coils, "
- "but it's a craven beast, and prefers to spit fireballs from afar."))
+ (say knpc "³¤¥Ø¥Ó¤¬´¬¤¤Ä¤¤¤ÆÁ¥¤ò²õ¤¹¤³¤È¤Ï¤¢¤ë¡£"
+ "¤À¤¬¡¢¥ä¥Ä¤é¤Ï²²É¤ǡ¢±ó¤¯¤«¤é²Ð¤Î¶Ì¤òÅǤ¯¤Î¤ò¹¥¤à¡£"))
;; Townspeople...
(define (henry-opar knpc kpc)
- (say knpc "It's a fair enough place."))
+ (say knpc "¤³¤³¤Ï¤¤¤¤½ê¤À¡£"))
(define (henry-gher knpc kpc)
- (say knpc "So ye've 'eard the legend o' Ghastly Ghertie! "
- "If ye don't mind a bit o' unsolicited advice from an old seabird, "
- "steer clear o' ghosts! 'ungry they is!")
+ (say knpc "¶²ÉݤΥ¬¡¼¥Æ¥£¡¼¤ÎÅÁÀâ¤òʹ¤¤¤¿¤ó¤À¤Ê¡ª"
+ "¸Å¤¤³¤Ä»¤¬¿Ò¤Í¤é¤ì¤Æ¤â¤¤¤Ê¤¤·Ù¹ð¤ò1¤Ä¤·¤Æ¤ª¤³¤¦¡£"
+ "Ë´Îî¤òÈò¤±¤è¡ª¥ä¥Ä¤é¤ÏÅܤê¤ËËþ¤Á¤Æ¤¤¤ë¡ª")
(quest-data-assign-once 'questentry-ghertie))
(define (henry-ghos knpc kpc)
- (say knpc "The sea is full of the dead, and Ghertie did her share o' "
- "puttin' 'em there. I've seen nights on full moons where they rise "
- "up an' prowl the waves like cats! Dreadful is the dead, "
- "an' Henry's in no 'urry to be joinin' 'em!")
+ (say knpc "³¤¤Ï»à¿Í¤Ç¤¤¤Ã¤Ñ¤¤¤À¡£¤½¤·¤Æ¤½¤ÎÆâ¤Î²¿¿Í¤«¤Ï¥¬¡¼¥Æ¥£¡¼¤Ë¤è¤ë¤â¤Î¤À¡£"
+ "Ëþ·î¤ÎÌë¡¢¥ä¥Ä¤é¤¬Ç¤Î¤è¤¦¤Ë²»¤â¤Ê¤¯³Íʪ¤òõ¤¹¤Î¤ò¸«¤¿¤³¤È¤¬¤¢¤ë¡ª"
+ "¶²¤ë¤Ù¤¼Ô¤Ï»à¤ó¤À¡£¤½¤·¤Æ¥Ø¥ó¥ê¡¼¤Î½É¤ËµïºÂ¤Ã¤¿¡ª")
(quest-data-assign-once 'questentry-ghertie))
(define (henry-alch knpc kpc)
- (say knpc "Aye, 'e's a queer one."))
+ (say knpc "¤¢¤¢¡¢¤ª¤«¤·¤Ê¥ä¥Ä¤À¡£"))
(define (henry-bart knpc kpc)
- (say knpc "[loudly] Bart's the finest shipwright on the Peninsula! "
- "[leaning in closer and more softly] And the only shipwright, too!"))
+ (say knpc "¡ÎÂçÀ¼¤Ç¡Ï¥Ð¡¼¥È¤Ï¤³¤ÎȾÅç¤ÇºÇ¹â¤Î¤Á¥¿¦¿Í¤À¡ª"
+ "¡Î´ó¤ê¤«¤«¤ê¡¢¾¯¤·¾®¤µ¤ÊÀ¼¤Ç¡Ï¤½¤·¤ÆÍ£°ì¤Î¤Á¥¿¦¿Í¤Ç¤â¤¢¤ë¡ª"))
(define (henry-seaw knpc kpc)
- (say knpc "A lovely lass, but strange as a fish on land!"))
+ (say knpc "¤«¤ï¤¤¤¤Ì¼¤À¤¬Î¦¤Îµû¤Î¤è¤¦¤ÊÊѤï¤ê¼Ô¤À¡ª"))
(define (henry-osca knpc kpc)
- (say knpc "A pathetic, misplaced soul, but 'e drinks 'is share."))
+ (say knpc "¤ß¤¸¤á¤Ç¡¢¤ª¤«¤·¤Ê¹Í¤¨¤Î¥ä¥Ä¤À¡£¤Ç¤â¤³¤³¤Ç¤Ï°ì½ï¤Ë°û¤ó¤Ç¤¤¤ë¡£"))
(define henry-conv
(ifc basic-conv
(method 'ghas henry-gher)
(method 'bart henry-bart)
(method 'witc henry-seaw)
+ (method 'lia henry-seaw)
(method 'osca henry-osca)
))
(define (mk-henry)
(bind
(kern-mk-char 'ch_henry ; tag
- "Henry" ; name
+ "¥Ø¥ó¥ê¡¼" ; name
sp_human ; species
nil ; occ
s_townsman ; sprite
(hidden-quan hidden))))
(kern-obj-put-at kobj
(kern-obj-get-location khidden))
- (kern-log-msg "You find something!")
+ (kern-log-msg "²¿¤«¤ò¸«¤Ä¤±¤¿¡ª")
(kern-obj-remove khidden)))
(define hidden-ifc
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; The schedule below is for the place "Gregor's Hut".
+;; ¥°¥ì¥´¡¼¥ë¤Î¾®²°
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_ilya
(list 0 0 gh-ilyas-bed "sleeping")
;;----------------------------------------------------------------------------
;; Gob
;;
-;; Ilya's quest is to find her stuffed horse, which she left behind at the
-;; homestead when she fled the trolls that killed her family. The quest flags
-;; are stored in her gob.
+;; ¥¤¥ê¥¢¤Ë´Ø¤¹¤ëËÁ¸±¤Ï¡¢Èà½÷¤Î²È²¤ò»¦¤·¤¿¥È¥í¥ë¤«¤éƨ¤²¤¿¤È¤¡¢²È¤ËÃ֤˺¤ì
+;; ¤¿ÇϤΤ̤¤¤°¤ë¤ß¤òõ¤¹¤³¤È¤Ç¤¢¤ë¡£ËÁ¸±¤Î¥Õ¥é¥°¤ÏÈà½÷¤Îgob¤Ë³ÊǼ¤µ¤ì¤ë¡£
;;----------------------------------------------------------------------------
(define (ilya-mk gave-quest? finished-quest?)
(list gave-quest? finished-quest?))
(define (ilya-finish-quest ilya) (set-car! (cdr ilya) #t))
;;----------------------------------------------------------------------------
-;; Puska
+;; ¥Ñ¥¹¥«
;;
;; Puska -- ilya's stuffed horse toy -- is a quest item. Nothing special about
;; it really but it is unique and needs its own object type. The object itself
(define puska-ifc
(ifc '()
(method 'get (lambda (kobj getter)
- (kern-log-msg "Some child probably misses this toy!")
+ (kern-log-msg "»Ò¶¡¤¬¤Ê¤¯¤·¤¿¤â¤Î¤Ë°ã¤¤¤Ê¤¤¡ª")
(kobj-get kobj getter)))))
-(mk-obj-type 't_puska "stuffed toy horse" s_toy_horse layer-item puska-ifc)
+(mk-obj-type 't_puska "ÇϤΤ̤¤¤°¤ë¤ß" s_toy_horse layer-item puska-ifc)
;;----------------------------------------------------------------------------
;; Quest
;; yes - gave quest already
(if (ilya-quest-done? ilya)
- (say knpc "Puska is happy now!")
+ (say knpc "¥Ñ¥¹¥«¤Ïº£¤È¤Ã¤Æ¤â¹¬¤»¡ª")
(begin
- (say knpc "Did you find Puska yet?")
+ (say knpc "¥Ñ¥¹¥«¤Ï¸«¤Ä¤«¤Ã¤¿¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - puska found
(begin
- (say knpc "May I have her please?")
+ (say knpc "ÊÖ¤·¤Æ¤¯¤ì¤ë¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - ilya may have puska
;; yes - player has puska
(begin
(kern-obj-remove-from-inventory kpc t_puska 1)
- (say knpc "There, there, puska. "
- "You're safe with me. [She turns to you] Thank you so much! I wish I could pay you. "
- "Wait, take these, Mommy said wizards use them, so I pick them whenever I can.")
+ (say knpc "¤³¤³¡¢¤³¤³¤è¡¢¥Ñ¥¹¥«¡£"
+ "¤â¤¦°Â¿´¤è¡£¡ÎÈà½÷¤Ï¿¶¤êÊ֤ä¿¡£¡Ï¤¢¤ê¤¬¤È¤¦¡ª¤ªÎ餬¤Ç¤¤ì¤Ð¤¤¤¤¤±¤ì¤É¡£"
+ "ÂԤäơ¢¤³¤ì¤ò»ý¤Ã¤Æ¤¤¤Ã¤Æ¡£ËâË¡»È¤¤¤¬»È¤¦¤â¤Î¤À¤Ã¤Æ¡¢¤ªÊ줵¤ó¤¬¸À¤Ã¤Æ¤¿¡£¸«¤Ä¤±¤¿¤È¤¤Ï¤¤¤Ä¤â¼è¤Ã¤Æ¤¤¤¿¤Î¡£")
(ilya-finish-quest ilya)
(kern-obj-add-to-inventory kpc nightshade 23)
)
;; no - puska not in player inventory
(begin
- (say knpc "[Sob] You don't have her!")
+ (say knpc "¡Îµã¤¤Ê¤¬¤é¡Ï¤¤¤Ê¤¤¤¸¤ã¤Ê¤¤¡ª")
(kern-conv-end)))
;; no - ilya can't have puska
(begin
- (say knpc "When I grow up I'll be a sorceress! "
- "And I'LL BURN YOU TO A CRISP!")
+ (say knpc "Âç¿Í¤Ë¤Ê¤Ã¤¿¤éËâË¡»È¤¤¤Ë¤Ê¤ë¡ª"
+ "¤½¤·¤Æ¤¢¤Ê¤¿¤ò¾Ã¤·Ãº¤Ë¤·¤Æ¤ä¤ë¤Î¡ª")
(kern-conv-end))))
;; no - didn't find her yet
(begin
- (say knpc "Do you remember where our farm was?")
+ (say knpc "ÇÀ¾ì¤Î¾ì½ê¤Ï¤ª¤Ü¤¨¤Æ¤ë¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "She must be there somewhere!")
- (say knpc "West through the pass, then north against the hills."))))))
+ (say knpc "¤¤Ã¤È¤½¤³¤Ë¤¤¤ë¤Î¡ª")
+ (say knpc "À¾¤Ø¹Ô¤Ã¤Æ»³Æ»¤òÄ̤ꡢË̤˵֤˹Ԥ±¤Ð¤¢¤ë¤Î¡£"))))))
;; no - didn't give quest yet
(begin
- (say knpc "Puska is my stuffed horse. But I lost her! "
- "If you find her will you tell me?")
+ (say knpc "¥Ñ¥¹¥«¤Ï»ä¤ÎÇϤΤ̤¤¤°¤ë¤ß¤Ê¤Î¡£¤Ç¤â¤Ê¤¯¤·¤Æ¤·¤Þ¤Ã¤¿¡ª"
+ "¸«¤Ä¤±¤¿¤é¶µ¤¨¤Æ¤¯¤ì¤ë¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "Our farm was west through the pass, then north against the hills. "
- "Watch out for the trolls!")
+ (say knpc "ÇÀ¾ì¤ÏÀ¾Â¦¤Ø¤ÎÆ»¤ÎË̤ε֤ˤ¢¤ë¤ï¡£"
+ "¥È¥í¥ë¤Ëµ¤¤ò¤Ä¤±¤Æ¡ª")
(ilya-give-quest ilya))
(begin
- (say knpc "If you keep her I will find you when I grow up.")
+ (say knpc "¥Ñ¥¹¥«¤ò¼è¤Ã¤¿¤ê¤·¤¿¤é¡¢Âç¿Í¤Ë¤Ê¤Ã¤¿¤È¤¡¢¤¢¤Ê¤¿¤ò¸«¤Ä¤±¤ë¤ï¡£")
(kern-conv-end)))))))
(define (ilya-join knpc kpc)
- (say knpc "I'm just a little girl, silly!")
+ (say knpc "»ä»Ò¶¡¤Ê¤Î¤Ë¡£ÊѤʤΡª")
)
;;----------------------------------------------------------------------------
-;; Animals
+;; ưʪ
;;
;; Ilya has an odd relationship with spiders. She'll teach the player a spell
;; to ward off spiders if he plays along. Spiders will dominate the woods
;; child - I'm not sure how I want to play that one out yet.
;;----------------------------------------------------------------------------
(define (ilya-animals knpc kpc)
- (say knpc "We have some sheep, and Charm the cat, and some chickens. "
- "Do you like animals?")
+ (say knpc "ÍӤȡ¢Ç¤Î¥Á¥ã¡¼¥à¤È¡¢·Ü¤ò»ô¤Ã¤Æ¤¤¤ë¤Î¡£"
+ "ưʪ¤Ï¹¥¤¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - the player likes animals
(begin
- (say knpc "What's your favorite animal?")
- (let ((fav (kern-conv-get-reply kpc)))
- (if (eq? fav 'spid)
+ (say knpc "¤É¤Îưʪ¤¬¹¥¤¡©")
+ (let ((fav (kern-conv-get-string kpc)))
+ (if (or (string=? fav "spider") (string=? fav "¥¯¥â"))
;; yes - the player's favorite animal is spiders
(begin
- (say knpc "Mine too! I know how to make them harmless. "
- "Want me to teach you?")
+ (say knpc "»ä¤â¡ª¤É¤¦¤¹¤ì¤Ð½±¤ï¤ì¤Ê¤¤¤«ÃΤäƤ¤¤ë¤Î¡£"
+ "¶µ¤¨¤ÆÍߤ·¤¤¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - the player wants to learn the spider ward
- (say knpc "It's easy! Mix spider silk and garlic, "
- "and chant An Xen Bet.")
+ (say knpc "´Êñ¡ªÃØéá¤Î»å¤ÈÂçÉǤòº®¤¼¤Æ¡¢"
+ "¥¢¥ó¡¦¥¼¥ó¡¦¥Ù¥Ã¥È<An Xen Bet>¤È¾§¤¨¤ë¤Î¡£")
;; no - the player does not want to learn the spider ward
- (say knpc "Ok, but they sometimes attack people.")))
+ (say knpc "¤½¤¦¡£¤Ç¤â»þ¡¹¿Í¤ò½±¤¦¤³¤È¤â¤¢¤ë¤Î¤è¡£")))
;; no - the player's favorite animal is NOT spiders
- (say knpc "Spiders are my favorite!"))))
+ (say knpc "»ä¤Ï¥¯¥â¤¬¹¥¤¡ª"))))
;; no - the player does not like animals
- (say knpc "Well don't hurt them!")))
+ (say knpc "Éݤ¯¤Ê¤¤¤è¡ª")))
(define (ilya-fire knpc kpc)
- (say knpc "Making fire is easy. Just mix black pearl and sulphos..."
- "surephous... that ashy stuff you know? "
- "And say Vas Flam!"))
+ (say knpc "²Ð¤ò¤ª¤³¤¹¤Î¤Ï´Êñ¤Ê¤Î¡£¹õ¿¿¼î¤Èⲫ¤òº®¤¼¤Æ¡Ä"
+ "ⲫ¡Ä³¥¤Ï¤É¤³¡©"
+ "¤½¤·¤Æ¥ô¥¡¥¹¡¦¥Õ¥é¥à<Vas Flam>¤È¸À¤¦¤Î¡ª"))
+
+(define (ilya-died knpc kpc)
+ (say knpc "¥È¥í¥ë¤¬ÇÀ¾ì¤ò½±¤Ã¤¿¤Î¡ª"
+ "¤ªÊ줵¤ó¤Ï»ä¤òÃϲ¼¼¼¤Ë±£¤·¤¿¡£"
+ "¤½¤·¤Æ¥È¥í¥ë¤¬¿²¤Æ¤¤¤ë´Ö¤ËÈ´¤±½Ð¤·¤¿¡£"
+ "¤Ç¤â¡¢¥Ñ¥¹¥«¤ò˺¤ì¤Æ¤·¤Þ¤Ã¤¿¡Ä¡£"))
;;----------------------------------------------------------------------------
;; 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 "I don't know.")))
- (method 'hail (lambda (knpc kpc) (say knpc "Hi.")))
- (method 'bye (lambda (knpc kpc) (say knpc "Bye-bye.")))
- (method 'job (lambda (knpc kpc) (say knpc "I help Grandpa with chores.")))
- (method 'name (lambda (knpc kpc) (say knpc "I'm Ilya.")))
- (method 'age (lambda (knpc kpc) (say knpc "I'm eight.")))
- (method 'chor (lambda (knpc kpc) (say knpc "I feed the animals, and keep the fire, and help cook.")))
+ (method 'default (lambda (knpc kpc) (say knpc "ÃΤé¤Ê¤¤¡£")))
+ (method 'hail (lambda (knpc kpc) (say knpc "¤³¤ó¤Ë¤Á¤Ï¡£")))
+ (method 'bye (lambda (knpc kpc) (say knpc "¥Ð¥¤¥Ð¥¤¡£")))
+ (method 'job (lambda (knpc kpc) (say knpc "¤ª¤¸¤¤¤µ¤ó¤Î¼êÅÁ¤¤¤ò¤·¤Æ¤¤¤ë¤Î¡£")))
+ (method 'name (lambda (knpc kpc) (say knpc "¥¤¥ê¥¢¡£")))
+ (method 'age (lambda (knpc kpc) (say knpc "8ºÐ¡£")))
+ (method 'chor (lambda (knpc kpc) (say knpc "ưʪ¤ÎÀ¤Ïäò¤·¤¿¤ê¡¢²Ð¤ò¤ª¤³¤·¤¿¤ê¡¢ÎÁÍý¤·¤¿¤ê¤¹¤ë¤Î¡£")))
(method 'anim ilya-animals)
- (method 'gran (lambda (knpc kpc) (say knpc "I live with Grandpa now because Mommy and Daddy died.")))
- (method 'died (lambda (knpc kpc) (say knpc "Trolls attacked our farm! "
- "Mommy hid me in the cellar, "
- "and I snuck out when the trolls were sleeping. "
- "But I lost my Puska...")))
- (method 'trol (lambda (knpc kpc) (say knpc "I hate them! When I grow up I want to kill them all.")))
- (method 'hate (lambda (knpc kpc) (say knpc "I will be a sorceress some day and I will kill anyone I hate! "
- "I won't be afraid of anything ever again!")))
- (method 'afra (lambda (knpc kpc) (say knpc "I was afraid in the cellar. "
- "I heard Mommy and Daddy crying when the trolls ate them... "
- "[sniffling] I thought they would find me and eat me too...")))
- (method 'momm (lambda (knpc kpc) (say knpc "I miss my Mommy. She taught me to make fire with my mind. "
- "She burned up one of the trolls when they attacked!")))
- (method 'dadd (lambda (knpc kpc) (say knpc "I miss daddy. He tried to fight the trolls but "
- "he was just a farmer.")))
+ (method 'gran (lambda (knpc kpc) (say knpc "¤ªÉ㤵¤ó¤È¤ªÊ줵¤ó¤¬»à¤ó¤Ç¤·¤Þ¤Ã¤¿¤«¤é¡¢¤ª¤¸¤¤¤µ¤ó¤È½»¤ó¤Ç¤¤¤ë¤Î¡£")))
+ (method 'died ilya-died)
+ (method 'dead ilya-died)
+ (method 'trol (lambda (knpc kpc) (say knpc "¥È¥í¥ë¤ÏÂç·ù¤¤¡ªÂç¿Í¤Ë¤Ê¤Ã¤¿¤é¤ß¤ó¤Ê»¦¤·¤Æ¤·¤Þ¤¤¤¿¤¤¡£")))
+ (method 'hate (lambda (knpc kpc) (say knpc "¤¤¤Ä¤«ËâË¡»È¤¤¤Ë¤Ê¤Ã¤Æ¡¢Âç·ù¤¤¤Ê¤¢¤¤¤Ä¤é¤ò»¦¤·¤Æ¤·¤Þ¤¤¤¿¤¤¡ª"
+ "¤Þ¤¿Æ±¤¸¤³¤È¤¬µ¯¤³¤Ã¤Æ¤âÉݤ¬¤é¤Ê¤¤¤ï¡ª")))
+ (method 'afra (lambda (knpc kpc) (say knpc "Ãϲ¼¼¼¤Ë¤¤¤ë¤È¤Éݤ«¤Ã¤¿¡£"
+ "¤ªÉ㤵¤ó¤È¤ªÊ줵¤ó¤¬¥È¥í¥ë¤Ë¿©¤Ù¤é¤ì¤¿¤È¤¡¢¶«¤ÓÀ¼¤¬Ê¹¤³¤¨¤¿¡Ä"
+ "¡ÎÎÞ¤°¤ó¤Ç¡Ï¤â¤·¸«¤Ä¤«¤Ã¤Æ¤¿¤é¡¢¤¤Ã¤ÈƱ¤¸¤è¤¦¤Ë¿©¤Ù¤é¤ì¤Æ¤¤¤¿¡Ä¡£")))
+ (method 'momm (lambda (knpc kpc) (say knpc "¤ªÊ줵¤ó¤Ï¤â¤¦¤¤¤Ê¤¤¡£²Ð¤Î¤ª¤³¤·Êý¤ò¶µ¤¨¤Æ¤¯¤ì¤¿¤³¤È¤ò»×¤¤½Ð¤¹¡£"
+ "¥È¥í¥ë¤¬½±¤Ã¤Æ¤¤¿¤È¤¡¢°ìɤ¤òdz¤ä¤·¤Æ¤¤¤¿¤ï¡ª")))
+ (method 'dadd (lambda (knpc kpc) (say knpc "¤ªÉ㤵¤ó¤Ï¤â¤¦¤¤¤Ê¤¤¡£"
+ "¥È¥í¥ë¤ÈÀï¤Ã¤¿¤±¤É¡¢¤É¤¦¤¹¤ë¤³¤È¤â¤Ç¤¤Ê¤«¤Ã¤¿¡£")))
(method 'pusk ilya-quest)
- (method 'home (lambda (knpc kpc) (say knpc "Our farm was north and south through the woods.")))
- (method 'spid (lambda (knpc kpc) (say knpc "There are lots of spiders in the woods around here.")))
- (method 'wood (lambda (knpc kpc) (say knpc "Grandpa says to stay out of the woods.")))
+ (method 'home (lambda (knpc kpc) (say knpc "»äã¤ÎÇÀ¾ì¤ÎË̤ÈÆî¤Ë¤Ï¿¹¤¬¤¢¤Ã¤¿¤Î¡£")))
+ (method 'spid (lambda (knpc kpc) (say knpc "¤³¤Î¤¢¤¿¤ê¤Î¿¹¤Ë¤Ï¥¯¥â¤¬¤¿¤¯¤µ¤ó¤¤¤ë¤Ã¤Æ¡¢¤ª¤¸¤¤¤µ¤ó¤¬¸À¤Ã¤Æ¤¿¡£")))
+ (method 'wood (lambda (knpc kpc) (say knpc "¿¹¤ËÆþ¤ë¤Ê¤Ã¤Æ¡¢¤ª¤¸¤¤¤µ¤ó¤¬¸À¤Ã¤Æ¤¿¡£")))
(method 'fire ilya-fire)
+ (method 'hi ilya-fire)
(method 'vas ilya-fire)
(method 'flam ilya-fire)
- (method 'greg (lambda (knpc kpc) (say knpc "He's my grandpa.")))
+ (method 'greg (lambda (knpc kpc) (say knpc "»ä¤Î¤ª¤¸¤¤¤µ¤ó¤è¡£")))
(method 'join ilya-join)
))
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Glasdrin.
+;; ¥°¥é¥¹¥É¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_ini
(list 0 0 gi-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Ini is a dispirited paladin, dwelling in Glasdrin.
-;; He is loyal to the ideals lived by the Warritrix,
-;; and offended by the corruption which produced her
-;; assassination.
-;; Ini is a potential party member.
+;; ¥¤¥Ë¤ÏÍîÃÀ¤·¤¿À»µ³»Î¤Ç¡¢¥°¥é¥¹¥É¥ê¥ó¤Ë½»¤ó¤Ç¤¤¤ë¡£
+;; Èà¤ÏÆ®»Î¤Î¹Í¤¨¤ËÃé¼Â¤Ç¡¢Èà½÷¤Î°Å»¦¤ò´ë¤Æ¤¿ÉåÇÔ¤ËÂФ·¤ÆÅܤê¤ò´¶¤¸¤Æ¤¤¤ë¡£
+;; ¥¤¥Ë¤ÏÃç´Ö¤Ë¤Ê¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (ini-hail knpc kpc)
- (say knpc "[You meet a morose paladin] Hi."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ïͫݵ¤½¤¦¤ÊÀ»µ³»Î¤È²ñ¤Ã¤¿¡£¡Ï¤ä¤¢¡£"))
(define (ini-default knpc kpc)
- (say knpc "I can't help you with that."))
+ (say knpc "¤ï¤«¤é¤Ì¡£"))
(define (ini-notyet knpc kpc)
- (say knpc "I probably shouldn't talk to civilians about that."))
+ (say knpc "°ìÈ̿ͤˤϤ½¤Î¤³¤È¤òÏ乤٤¤Ç¤Ê¤¤¤È¹Í¤¨¤Æ¤¤¤ë¡£"))
(define (ini-name knpc kpc)
- (say knpc "I am Inago, but everyone calls me Ini."))
+ (say knpc "¥¢¥¤¥Ê¥´¤À¡£¤À¤¬³§¤Ï¥¤¥Ë¤È¸Æ¤ó¤Ç¤¤¤ë¡£"))
(define (ini-join knpc kpc)
(if (is-player-party-member? knpc)
- (say knpc "I already joined you. Now let's go!")
+ (say knpc "¤¹¤Ç¤ËÃç´Ö¤À¡£¤µ¤¢¹Ô¤³¤¦¡ª")
(let ((ini (kobj-gob-data knpc)))
(if (ini-will-join? ini)
(begin
- (say knpc "I thank you! Let's not waste any time finding "
- "the Warritrix!")
+ (say knpc "¤¢¤ê¤¬¤È¤¦¡ª¤Î¤ó¤Ó¤ê¤·¤Æ¤¤¤ë»þ´Ö¤Ï¤Ê¤¤¡£Æ®»Î¤òõ¤·½Ð¤½¤¦¡ª")
(kern-conv-end)
(join-player knpc))
- (say knpc "[Sigh] My duty is with the paladins.")
+ (say knpc "¡Î¤¿¤á©¡ÏÀ»µ³»Î¤ÎǤ̳¤¬¤¢¤ë¤Î¤À¡£")
))))
(define (ini-lost knpc kpc)
(let ((ini (kobj-gob-data knpc)))
(if (ini-will-join? ini)
(begin
- (say knpc "The entrance to the Lost Halls is a cavern far to the southwest. "
- "Find a ship and sail to ["
+ (say knpc "¼º¤ï¤ì¤¿ÅÂƲ¤ÎÆþ¤ê¸ý¤ÏÆîÀ¾¤Ï¤ë¤«±ó¤¯¤Îƶ·¢¤À¡£"
+ "Á¥¤Ç["
(loc-x lost-halls-loc) ","
- (loc-y lost-halls-loc) "].")
+ (loc-y lost-halls-loc) "]¤Þ¤Ç¹Ò¹Ô¤¹¤ì¤Ð¸«¤Ä¤«¤ë¤À¤í¤¦¡£")
(quest-data-update-with 'questentry-rune-l 'know-hall 1 (quest-notify nil))
(quest-data-update 'questentry-warritrix 'lost-hall-loc 1)
)
- (say knpc "The Lost Halls are very dangerous. I'd advise you to stay clear!"))))
+ (say knpc "¼º¤ï¤ì¤¿ÅÂƲ¤Ï¤È¤Æ¤â´í¸±¤Ê¾ì½ê¤À¡£¶á¤Å¤«¤Ê¤¤¤Û¤¦¤¬¤¤¤¤¡£"))))
(define (ini-cave knpc kpc)
(let ((ini (kobj-gob-data knpc)))
(if (ini-will-join? ini)
(begin
- (say knpc "The Lost Halls themselves are deep within the caverns.")
- (say knpc (if (is-player-party-member? knpc) "We" "You") " will need to look for the great stairs, in the northern part of the caves.")
- (say knpc "Beware of the dungeon's inhabitants!")
+ (say knpc "¼º¤ï¤ì¤¿ÅÂƲ¤Ï¤½¤ì¼«ÂΤ¬¿¼¤¤Æ¶·¢¤ÎÃæ¤Ë¤¢¤ë¡£")
+ (say knpc (if (is-player-party-member? knpc) "" "") "ƶ·¢¤ÎË̤ˤ¢¤ëÂ糬Ãʤò¸«¤Ä¤±¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤À¤í¤¦¡£")
+ (say knpc "̵ܤν»¿Í¤Ë¤Ïµ¤¤ò¤Ä¤±¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡ª")
)
(ini-notyet knpc kpc))))
(let ((ini (kobj-gob-data knpc)))
(if (ini-will-join? ini)
(begin
- (say knpc "Everytime we try to clear the place out, another band of gints or trolls decides to move in.")
- (say knpc (if (is-player-party-member? knpc) "We" "You") "'d best be prepared for a long, hard battle.")
+ (say knpc "¿·¤·¤¤µð¿Í¤ä¥È¥í¥ë¤Î½¸ÃĤ¬¤½¤³¤ËÆþ¤ë¤¿¤Ó¤Ë¡¢²æ¡¹¤Ï¤½¤ì¤é¤ò°ìÁݤ·¤è¤¦¤È¤·¤Æ¤¤¿¡£")
+ (say knpc (if (is-player-party-member? knpc) "" "") "Ť¯¶ì¤·¤¤À襤¤ËÈ÷¤¨¤ë¤Ù¤¤À¤í¤¦¡£")
)
(ini-notyet knpc kpc))))
(let ((ini (kobj-gob-data knpc)))
(if (ini-will-join? ini)
(begin
- (say knpc "I know the stairs are somewhere in the north, but I'm afraid I've never been that far, so I don't know their precise location.")
+ (say knpc "Ë̤Τɤ³¤«¤Ë³¬Ãʤ¬¤¢¤ë¤³¤È¤òÃΤäƤ¤¤ë¡£¤À¤¬¡¢±ó¤¯¤«¤é¸«¤¿¤À¤±¤Ê¤Î¤Ç¡¢Àµ³Î¤Ê°ÌÃ֤Ϥ狼¤é¤Ê¤¤¡£")
)
(ini-notyet knpc kpc))))
(define (ini-job knpc kpc)
- (say knpc "I'm a paladin. But I don't like it very much."))
+ (say knpc "À»µ³»Î¤À¡£¤·¤«¤·¤¢¤Þ¤ê¤³¤Î»Å»ö¤¬¹¥¤¤Ç¤Ï¤Ê¤¤¡£"))
(define (ini-bye knpc kpc)
- (say knpc "So long."))
+ (say knpc "¤µ¤é¤Ð¤À¡£"))
(define (ini-warr knpc kpc)
(cond ((player-stewardess-trial-done?)
- (say knpc "Justice has been served, and now I can grieve her loss." ))
+ (say knpc "ÀµµÁ¤Ï²Ì¤¿¤µ¤ì¤¿¡£º£¤ä¤Ã¤ÈÈà½÷¤Î»à¤òÈᤷ¤à¤³¤È¤¬¤Ç¤¤ë¡£" ))
((player-found-warritrix?)
- (if (ask? knpc kpc "The Stewardess is powerful, but there is a way to see that justice is done. An ancient way. A dangerous way. Will you hear me?")
- (say knpc "There is a statue in the center of Glasdrin. "
- "If you strike it with your sword, you will invoke the oldest law of the city, and a trial will be held. "
- "But we dare not strike it until we have convincing evidence against the Stewardess, because if our evidence is lacking then judgment will be passed on us instead!")
- (say knpc "We can't let the Stewardess get away with this. Someone must call her to account!")))
+ (if (ask? knpc kpc "Åý¼£¼Ô¤ÎÎϤÏÀäÂç¤À¡£¤·¤«¤·¡¢ÀµµÁ¤òÄ̤¹Æ»¤¬¤¢¤ë¡£ÂÀ¸Å¤ÎÆ»¡£´í¸±¤ÊÆ»¤À¡£Ê¹¤¤¿¤¤¤«¡©")
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÎÃæ±û¤ËÀÐÁü¤¬¤¢¤ë¡£"
+ "¤½¤ÎÁü¤ò·õ¤ÇÂǤƤФ³¤ÎÄ®¤ÇºÇ¤â¸Å¤¤Ãá½ø¤ò¸Æ¤Ó½Ð¤¹¤³¤È¤¬¤Ç¤¤ë¡£¤½¤·¤ÆºÛ¤¤¬»Ï¤Þ¤ë¤Î¤À¡£"
+ "¤·¤«¤·Åý¼£¼Ô¤ËÂй³¤Ç¤¤ë¤À¤±¤Î¾Úµò¤Ê¤·¤ËÂǤäƤϤʤé¤Ê¤¤¡£¾Úµò¤¬¤Ê¤¯¤Æ¤ÏÂå¤ï¤ê¤Ë²æ¡¹¤¬ºÛ¤«¤ì¤ë¤À¤í¤¦¡ª")
+ (say knpc "Åý¼£¼Ô¤ò¤³¤Î¤Þ¤Þ¤Ë¤·¤Æ¤Ï¤ª¤±¤Ê¤¤¡£Ã¯¤«¤¬ºá¤òÌä¤ï¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡ª")))
((quest-data-assigned? 'questentry-wise)
- (say knpc "[He straightens up a bit] Something is amiss! The Warritrix has "
- "been gone too long with no word. The Commander should have sent out "
- "search parties by now. Instead he sits idly by, pretending to be "
- "distracted by other problems. I sense foul play. Will you search for "
- "her?")
+ (say knpc "¡ÎÈà¤Ï¾¯¤·Çضڤò¿¤Ð¤·¤¿¡£¡Ï²¿¤«¤¬¤ª¤«¤·¤¤¤Î¤À¡ª"
+ "Æ®»Î¤Ï¤º¤Ã¤ÈÁ°¤Ë²¿¤â¸À¤ï¤º¤Ë¹Ô¤Ã¤Æ¤·¤Þ¤Ã¤¿¡£"
+ "»ÊÎá´±¤Ïº£¤¹¤°Áܺ÷Ââ¤òÁ÷¤ë¤Ù¤¤À¡£¤À¤¬Èà¤Ï²¿¤â¤»¤º¡¢Ê̤ÎÌäÂê¤Ëµ¤¤ò¼è¤é¤ì¤Æ¤¤¤ë¡£"
+ "°¤¤Í½´¶¤¬¤¹¤ë¡£¤¢¤Ê¤¿¤ÏÈà½÷¤òõ¤·¤Æ¤¤¤ë¤Î¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "I would join you! I know the deeps well, and though my "
- "duty is here, I won't obey an order that leaves her to die.")
+ (say knpc "¤¼¤ÒÃç´Ö¤Ë²Ã¤¨¤ÆÍߤ·¤¤¡ª"
+ "¿¼Ê¥¤Î¤³¤È¤Ï¤è¤¯ÃΤäƤ¤¤ë¡£»ä¤Ï¤½¤ÎǤ̳¤Ë½¢¤¤¤Æ¤¤¤ë¤Î¤À¡£"
+ "Èà½÷¤¬»à¤·¤Æ¤½¤ÎÀÕ¤ò²Ì¤¿¤µ¤Ì¸Â¤ê¡¢Èà½÷°Ê³°¤ÎÌ¿Îá¤Ë½¾¤¦¤Ä¤â¤ê¤Ï¤Ê¤¤¡£")
(ini-will-join! (kobj-gob-data knpc)))
- (say knpc "Someone must do something! The realm owes her a great "
- "debt.")))
+ (say knpc "狼¤¬¤½¤ì¤ò¹Ô¤¦¤Ù¤¤À¡ª¤³¤³¤Ë¤¤¤ë¼Ô¤Ï³§Èà½÷¤ËÂ礤ʼڤ꤬¤¢¤ë¡£")))
(else
- (say knpc "Are you looking for the Warritrix?")
+ (say knpc "Æ®»Î¤Ë²ñ¤¤¤¿¤¤¤Î¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "She can be hard to find. I believe she is out on patrol right now. ")
- (say knpc "If you want come back later, I'll keep an eye out and let you know if she's back")
+ (say knpc "Èà½÷¤Ë²ñ¤¦¤Î¤Ïº¤Æñ¤À¡£º£¤Ï·ÙÈ÷¤Ë½Ð¤Æ¤¤¤ë¤Î¤À¤È»×¤¦¡£")
+ (say knpc "¤â¤·¤¢¤Ê¤¿¤¬¤Þ¤¿¤³¤³¤ËÍè¤ë¤Î¤Ç¤¢¤ì¤Ð¡¢Èà½÷¤¬Ìá¤Ã¤Æ¤¤¤¿¤éÃΤ餻¤è¤¦¡£")
)
))
))
;; Paladin...
(define (ini-pala knpc kpc)
- (say knpc "I've been a paladin my whole life. I'm not very good at it; "
- "I get sick before and after every battle. I'm surprised they "
- "let me stay in, but I guess they need the warm bodies. "
- "I would have quit long ago but I don't know what else to do."
- ))
+ (say knpc "»ä¤Ï¤³¤Î»Å»ö¤ËÌ¿¤ò¤«¤±¤Æ¤¤¿¡£¤À¤¬»ä¤ÏÎɤÀ»µ³»Î¤Ç¤Ï¤Ê¤¤¡£"
+ "À襤¤ÎÅ٤˵¤Ê¬¤¬°¤¯¤Ê¤ë¤Î¤À¡£À»µ³»Î¤È¤·¤Æα¤Þ¤ë¤è¤¦¤Ë¸À¤ï¤ì¤ë¤¬¡¢"
+ "¤¿¤À½â¤È¤Ê¤ëÌòΩ¤¿¤º¤¬Íߤ·¤¤¤«¤é¤Ç¤¢¤í¤¦¡£"
+ "¤¤¤º¤ì¼¤á¤ë¤Ç¤¢¤í¤¦¤¬¡¢Â¾¤Ë²¿¤¬¤Ç¤¤ë¤À¤í¤¦¤«¡©"))
(define (ini-quit knpc kpc)
- (say knpc "I've managed to save some pay. I'll retire soon, buy a farm "
- "near Trigrave, get away from this place. Just think: no more long "
- "marches, no more sleeping on stony ground in the lightless deep, "
- "no more waking up to monsters eating your squad for breakfast."
- ))
+ (say knpc "¤Ç¤¤ë¤À¤±¶â¤òÃù¤á¤ë¤è¤¦¤Ë¤·¤Æ¤¤¤ë¡£ÂàÌò¤·¤¿¤é¡¢¥È¥ê¥°¥ì¥¤¥Ö¤Î¶á¤¯¤ÎÇÀÃϤòÇ㤤¡¢¤³¤³¤òÎ¥¤ì¤è¤¦¤È»×¤Ã¤Æ¤¤¤ë¡£"
+ "¤³¤Î¤è¤¦¤Ê¤³¤È¤Ð¤«¤ê¹Í¤¨¤Æ¤¤¤ë¡£Ä¹¤¤¹Ô¿Ê¤â¤Ê¤¯¡¢ÀФ³¤í¤À¤é¤±¤Î¿¿¤Ã°Å¤Ê¿¼Ê¥¤Ç̲¤ë¤³¤È¤â¤Ê¤¯¡¢"
+ "ÉôÂâ¤ÎÃç´Ö¤¬²øʪ¤Ë¿©¤ï¤ì¤ÆÌܤ¬³Ð¤á¤ë¤³¤È¤â¤Ê¤¤¡£"))
;; Townspeople...
(define (ini-glas knpc kpc)
- (say knpc "Kind of a dreary place, don't you think?")
+ (say knpc "ͫݵ¤Ê½ê¤À¡£¤½¤¦»×¤ï¤Ì¤«¡©")
(kern-conv-get-yes-no? kpc)
- (say knpc "I've always wanted to visit Green Tower, see the trees."))
+ (say knpc "ÎФÎÅã¤Ø¹Ô¤¿¹¤ò¸«¤Æ¤¤¤¿¤¤¤È¤¤¤Ä¤â¹Í¤¨¤Æ¤¤¤ë¡£"))
(define (ini-ange knpc kpc)
- (say knpc "A modest lady. I once saw her spit a cave goblin with a dagger."))
+ (say knpc "¤¢¤Þ¤ê¸ì¤é¤Ê¤¤½÷À¤À¡£Æ¶·¢¥´¥Ö¥ê¥ó¤òû·õ¤ÇÆͤ»É¤¹¤Î¤ò°ìÅÙ¤À¤±¸«¤¿¤³¤È¤¬¤¢¤ë¡£"))
(define (ini-spit knpc kpc)
- (say knpc "She was assigned to my squad on a standard patrol in the "
- "hills. We'd just barely survived an encounter with gints when some "
- "cave goblins decided we looked like easy pickings. "
- "It was dicey there for a while."))
+ (say knpc "µÖ¤Ç¤ÎÄ̾ï·ÙÈ÷¤ÇÈà½÷¤ÈƱ¤¸ÉôÂâ¤À¤Ã¤¿¡£"
+ "ƶ·¢¥´¥Ö¥ê¥ó¤È¤ÎÀ襤¤Ç³Ú¾¡¤È»×¤Ã¤Æ¤¤¤¿¤È¤¡¢¸½¤ì¤¿µð¿Í¤«¤é¶¦¤Ë¿É¤¦¤¸¤ÆÀ¸¤±ä¤Ó¤¿¡£"
+ "¤¢¤Î¤È¤¤Ï´í¤Ê¤«¤Ã¤¿¡£"))
(define (ini-patc knpc kpc)
- (say knpc "I owe him my life."))
+ (say knpc "»ä¤ÎÌ¿¤Î²¸¿Í¤À¡£"))
(define (ini-life knpc kpc)
- (say knpc "I was killed once. We were in the deeps on patrol, dead tired "
- "after fleeing a party of death knights that killed our medik, "
- "and we camped right in the middle of a party of sleeping trolls. ")
+ (say knpc "»ä¤Ï°ìÅÙ»¦¤µ¤ì¤¿¤è¤¦¤Ê¤â¤Î¤À¡£¿¼Ê¥¤ò·ÙÈ÷¤·¤Æ¤¤¤¿¤È¤¤Î¤³¤È¤À¡£"
+ "²æ¡¹¤Î°å»Õ¤ò»¦¤·¤¿»à¤Îµ³»Î¤ÎÉôÂ⤫¤éÇÔÁö¤·¡¢¤Ä¤«¤ì¤¤Ã¤Æ¤¤¤¿¡£"
+ "¤½¤Î¤È¤¿ç̲Ãæ¤Î¥È¥í¥ë¤Î½¸ÃĤÎÃæ¤Ë̤¤¹þ¤ó¤Ç¤·¤Þ¤Ã¤¿¤Î¤À¡£")
(prompt-for-key)
- (say knpc
- "They woke up first. One minute I was fighting for my life, "
- "and the next I was in the hospital looking up at Doc Patch. "
- "Nobody else survived from my squad."
- ))
+ (say knpc "Èà¤é¤Ï¤¹¤°¤ËÌܳФ᤿¡£"
+ "»ä¤ÏÌ¿¤¬¤±¤ÇÀï¤Ã¤¿¤¬¡¢µ¤¤¬¤Ä¤¯¤Èɱ¡¤Ç´ãÂÓÀèÀ¸¤ò¸«¾å¤²¤Æ¤¤¤¿¡£"
+ "ÉôÂâ¤Ç¾¤ËÀ¸¤»Ä¤Ã¤¿¼Ô¤Ï¤¤¤Ê¤¤¡£"))
(define ini-conv
(ifc glasdrin-conv
(method 'entr ini-cave)
(method 'stai ini-stair)
(method 'nort ini-stair)
- (method 'deep ini-stair)
+ ;(method 'deep ini-stair)
+ (method 'deep ini-lost)
(method 'grea ini-stair)
(method 'inha ini-inha)
(method 'bewa ini-inha)
(define (mk-ini)
(bind
(kern-mk-char 'ch_ini ; tag
- "Ini" ; name
+ "¥¤¥Ë" ; name
sp_human ; species
oc_warrior ; occ
s_companion_paladin ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Kun.
+;; ¥¯¡¼¥ó
;;----------------------------------------------------------------------------
(define jake-bed )
(kern-mk-sched 'sch_jake
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Jake / Percy is a gint (two-headed giant)
-;; who lives in the monster village of Kun.
-;;
-;; Jake is the brutish left head,
-;; who acts as the bouncer for the tavern there.
-;;
-;; Percy is the refined right head,
-;; who is the barkeep and proprietor of the tavern there.
+;; ¥¸¥§¥¤¥¯¤È¥Ñ¡¼¥·¡¼¤Ïµð¿Í(2¤Ä¤ÎƬ¤Î¤¢¤ëµð¿Í)¤Ç¡¢²øʪ¤Î¼¥¯¡¼¥ó¤Ë½»¤ó¤Ç¤¤¤ë¡£
+;; ¥¸¥§¥¤¥¯¤ÏÌîÈڤʺ¸¤ÎƬ¤Ç¡¢¼ò¾ì¤ÎÍÑ¿´ËÀ¤ò¤·¤Æ¤¤¤ë¡£
+;; ¥Ñ¡¼¥·¡¼¤Ï¾åÉʤʱ¦Â¦¤ÎƬ¤Ç¡¢¼ò¾ì¤Î¼ç¿Í¤È¤·¤Æ·Ð±Ä¤ò¤·¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
(define (left-head? knpc)
(jake-left? (gob knpc)))
(define (left-head! knpc)
(jake-left! (gob knpc) #t)
- (say knpc "RIGHT HERE!"))
+ (say knpc "¤³¤³¤À¡ª"))
(define (right-head! knpc)
(jake-left! (gob knpc) #f)
- (say knpc "How may I be of service?"))
+ (say knpc "¤¤¤«¤¬¤Ê¤µ¤ê¤Þ¤·¤¿¤«¡©"))
;; Basics...
(define (jake-hail knpc kpc)
- (kern-log-msg "You meet an enormous figure with two heads. One is rough-looking, the other somewhat... "
- "well, prissy is probably not too strong a word.")
+ (kern-log-msg "¤¢¤Ê¤¿¤Ï2¤Ä¤ÎƬ¤Î¤¢¤ëµð¿Í¤È²ñ¤Ã¤¿¡£°ìÊý¤Ï¹Ó¡¹¤·¤¯¸«¤¨¡¢¤â¤¦°ìÊý¤Ï¡¢²¿¤È¸À¤¦¤«¡Ä¡Ä¡¢"
+ "¿À·Ð¼Á¤È¸À¤Ã¤Æ¤â¸À¤¤²á¤®¤Ç¤Ï¤Ê¤¤¤À¤í¤¦¡£")
(if (left-head? knpc)
- (say knpc "HAIL, MANLING!")
- (say knpc "Well met, little sir.")
+ (say knpc "¤è¤ª¡ªË·¤ä¡ª")
+ (say knpc "¤è¤¦¤³¤½¡¢¾®¤µ¤¤¤ªÊý¡£")
))
(define (jake-default knpc kpc)
(if (left-head? knpc)
- (say knpc "HELL, I DON'T KNOW! ASK PERCY!")
- (say knpc "A conundrum, to be sure.")
+ (say knpc "¥Õ¥ó¡¢ÃΤ뤫¤è¡ª¥Ñ¡¼¥·¡¼¤Ëʹ¤±¡ª")
+ (say knpc "Æñ¤·¤¤¤ªÏäǤ´¤¶¤¤¤Þ¤¹¡£")
))
(define (jake-name knpc kpc)
(if (left-head? knpc)
- (say knpc "I'M JAKE! AND THIS OTHER IS PERCY! [The left head jerks to indicate the right]")
- (say knpc "I am Percival. And my constant companion here likes to be called 'Jake'. [The left head nods to the right]")
+ (say knpc "¥¸¥§¥¤¥¯¤À¡ª¤½¤·¤Æ¤³¤Ã¤Á¤¬¥Ñ¡¼¥·¡¼¤À¡ª¡Îº¸¤ÎƬ¤Ï±¦¤ò¸þ¤¤¤¿¡£¡Ï")
+ (say knpc "¥Ñ¡¼¥·¥Ð¥ë¤Ç¤´¤¶¤¤¤Þ¤¹¡£¤½¤·¤Æ¤³¤Á¤é¤¬¤ï¤¿¤¯¤·¤Î±Ê±ó¤Îͧ¡¢¥¸¥§¥¤¥¯¤Ç¤´¤¶¤¤¤Þ¤¹¡£¡Îº¸¤ÎƬ¤¬±¦Â¦¤Ë¤¦¤Ê¤º¤¤¤¿¡£¡Ï")
))
(define (jake-join knpc kpc)
(if (left-head? knpc)
- (say knpc "HAR! HAR! HAR!")
- (say knpc "Oh, I'm afraid not. A most gracious offer, though, and all that.")
+ (say knpc "¥Ï¥Ã¡ª¥Ï¥Ã¡ª¥Ï¥Ã¡ª")
+ (say knpc "¤¢¤¢¡¢¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£¿È¤Ë;¤ë¤ªÍ¶¤¤¤Ç¤´¤¶¤¤¤Þ¤¹¡£")
))
(define (jake-job knpc kpc)
(if (left-head? knpc)
- (say knpc "I'M THE BOUNCER, OF COURSE! NOW DRINK SOMETHING OR GET OUT!")
+ (say knpc "¤â¤Á¤í¤óÍÑ¿´ËÀ¤À¡ª¤µ¤¢¡¢°û¤à¤«½Ð¤Æ¹Ô¤¯¤«¤À¡ª")
(begin
- (say knpc "I am the proprieter and bartender. Would you care for a drink?")
+ (say knpc "¤ï¤¿¤¯¤·¤ÏŹ¼ç·ó¥Ð¡¼¥Æ¥ó¥À¡¼¤Ç¤´¤¶¤¤¤Þ¤¹¡£²¿¤«¤ª°û¤ß¤Ë¤Ê¤ê¤Þ¤¹¤«¡©")
(if (yes? kpc)
(jake-trade knpc kpc)
- (say knpc "Please reconsider, I offer the finest.")
+ (say knpc "¹Í¤¨Ä¾¤·¤Æ¤¯¤À¤µ¤¤¤Þ¤»¡£ºÇ¹âµé¤Î¤â¤Î¤ò¤ª½Ð¤·¤¤¤¿¤·¤Þ¤¹¡£")
))))
(define (jake-bye knpc kpc)
(if (left-head? knpc)
- (say knpc "BYE!")
- (say knpc "Farewell, do come again.")
+ (say knpc "¤¸¤ã¤¢¤Ê¡ª")
+ (say knpc "¤µ¤è¤¦¤Ê¤é¡£¤Þ¤¿²ñ¤¤¤Þ¤·¤ç¤¦¡£")
))
(define (jake-jake knpc kpc)
(if (left-head? knpc)
- (say knpc "YEAH? WHADDAYA WANT?")
+ (say knpc "¤¢¤¡¡©²¿¤ÎÍѤÀ¡©")
(begin
- (say knpc "Do you actually WANT to talk to Jake?")
+ (say knpc "ËÜÅö¤Ë¥¸¥§¥¤¥¯¤ÈÏä·¤¿¤¤¤Î¤Ç¤¹¤«¡©")
(if (yes? kpc)
(left-head! knpc)))
))
(define (jake-perc knpc kpc)
(if (left-head? knpc)
(begin
- (say knpc "WHA? YOU WANNA TALK TO PERCY NOW?")
+ (say knpc "¤Ê¤Ë¡©¥Ñ¡¼¥·¡¼¤ÈÏä·¤¿¤¤¤Î¤«¡©")
(if (yes? kpc)
(right-head! knpc)
))
- (say knpc "Yes, that's me. Can I help you?")
+ (say knpc "¤Ï¤¤¡£¤½¤ì¤Ï¤ï¤¿¤¯¤·¤Ç¤¹¡£²¿¤Ê¤ê¤È¤ª¿½¤·ÉÕ¤±¤¯¤À¤µ¤¤¤Þ¤»¡£")
))
(define (jake-drin knpc kpc)
(if (left-head? knpc)
- (say knpc "TALK TO PERCY!")
+ (say knpc "¥Ñ¡¼¥·¡¼¤Ë¸À¤¨¡ª")
(jake-trade knpc kpc)))
;; Trade...
(define jake-merch-msgs
(list nil ;; closed
- "Let me show you a menu." ;; buy
+ "¥á¥Ë¥å¡¼¤Ç¤´¤¶¤¤¤Þ¤¹¡£" ;; buy
nil ;; sell
nil ;; trade
- "I'm delighted I could be of assistance." ;; bought-something
- "[sniff] Well, I shan't be offended." ;; bought-nothing
+ "¤ª¼êÅÁ¤¤¤Ç¤¤¿¤³¤È¤ò´î¤Ð¤·¤¯»×¤¤¤Þ¤¹¡£" ;; bought-something
+ "¡Î¤¿¤á©¡Ï¤¢¤¢¡¢¤ï¤¿¤¯¤·¤ÏÍîÃÀ¤¤¤¿¤·¤Þ¤·¤¿¡£" ;; bought-nothing
nil
nil
nil
(define jake-catalog
(list
- (list t_food 7 "My roast lamb is to die for! I'm afraid it's quite wasted on the usual riff-raff.")
- (list t_beer 4 "I import casks of lager all the way from the famous brewers of Gintspar.")
- (list t_wine 6 "We get some very good wine from a wrogue who specializes in pilfering wine cellars. I hope you don't recognize any of these bottles... Ahem")
+ (list t_food 7 "¤¹¤Ð¤é¤·¤¤»ÒÍÓ¥í¡¼¥¹¥È¤Ç¤´¤¶¤¤¤Þ¤¹¡ª¶²¤ì¤Ê¤¬¤é¡¢¿Í´Ö¤Ë¤Ï¤â¤Ã¤¿¤¤¤Ê¤¤¤â¤Î¤Ë¤´¤¶¤¤¤Þ¤¹¡£")
+ (list t_beer 4 "¤Ï¤ë¤«±ó¤¯¤ÎÍ̾¤Ê¥¸¥ã¥¤¥¢¥ó¥È¥¹¥Ñ¡¼¤Î¾ú¤¼Ô¤«¤é¼è¤ê´ó¤»¤¿¥é¥¬¡¼¥Ó¡¼¥ë¤Ç¤´¤¶¤¤¤Þ¤¹¡£")
+ (list t_wine 6 "¥ï¥¤¥óÀìÌç¤ÎÅ¥ËÀ¤«¤éÄ󶡤µ¤ì¤¿ºÇ¹â¤Î¥ï¥¤¥ó¤Ç¤´¤¶¤¤¤Þ¤¹¡£¥´¥Û¥ó¡Ä¸«³Ð¤¨¤Î¤Ê¤¤¥Ü¥È¥ë¤À¤È¤è¤¤¤Î¤Ç¤¹¤¬¡£")
))
(define (jake-trade knpc kpc) (conv-trade knpc kpc "buy" jake-merch-msgs jake-catalog))
(bind
(kern-mk-char
'ch_jake ; tag
- "Jake&Percival" ; name
+ "¥¸¥§¥¤¥¯¤È¥Ñ¡¼¥·¥Ð¥ë" ; name
jake-species ; species
jake-occ ; occ
s_gint ; sprite
;;----------------------------------------------------------------------------
-;; Janice
+;; ¥¸¥ã¥Ë¥¹
;;
-;; Initially Commander Jeffries's assistant, she will be elected to replace
-;; him after the trial.
+;; ºÇ½é¤Ï¥¸¥§¥Õ¥ê¡¼¥º»ÊÎá´±¤ÎÊ亴¤À¤¬¡¢¿³È½¤Î¸å¤ËÈà¤Î¸åǤ¤ËÁª½Ð¤µ¤ì¤ë¡£
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Basics...
(define (jan-hail knpc kpc)
- (say knpc "Hail, traveler.")
+ (say knpc "¤³¤ó¤Ë¤Á¤Ï¡¢Î¹¤ÎÊý¡£")
)
(define (jan-name knpc kpc)
(if (player-stewardess-trial-done?)
- (say knpc "I am Commander Janice.")
- (say knpc "I am Janice.")
+ (say knpc "»ÊÎá´±¤Î¥¸¥ã¥Ë¥¹¤Ç¤¹¡£")
+ (say knpc "¥¸¥ã¥Ë¥¹¤Ç¤¹¡£")
))
(define (jan-job knpc kpc)
(if (player-stewardess-trial-done?)
- (say knpc "I command Glasdrin's militia.")
- (say knpc "I am a strategic adviser to Commander Jeffries.")
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Î·³¤ò»Ø´ø¤·¤Æ¤¤¤Þ¤¹¡£")
+ (say knpc "¥¸¥§¥Õ¥ê¡¼¥º»ÊÎá´±¤ÎÊ亴¤ò¤·¤Æ¤ª¤ê¤Þ¤¹¡£")
))
;; Special
(define (jan-comm knpc kpc)
(if (player-stewardess-trial-done?)
- (say knpc "I was elected to replace Jeffries, the former Commander.")
- (say knpc "Commander Jeffries is a capable leader.")
+ (say knpc "»ä¤Ï¥¸¥§¥Õ¥ê¡¼¥ºÁ°»ÊÎá´±¤Î¸åǤ¤È¤·¤ÆÁª½Ð¤µ¤ì¤Þ¤·¤¿¡£")
+ (say knpc "¥¸¥§¥Õ¥ê¡¼¥º»ÊÎá´±¤ÏÍǽ¤Ê»ØƳ¼Ô¤Ç¤¹¡£")
))
(define (jan-repl knpc kpc)
(if (player-stewardess-trial-done?)
- (say knpc "It's a shame that his long history of good service to Glasdrin should end in such disgrace.")
- (say knpc "Why, whatever do you mean?")
+ (say knpc "Èà¤ÎŤ¤¥°¥é¥¹¥É¥ê¥ó¤Ç¤Î·ÐÎò¤¬¡¢¤³¤Î¤è¤¦¤ÊÉÔ̾ÍÀ¤Ç½ª¤ï¤Ã¤¿¤Î¤ÏÃѤº¤«¤·¤¤¤³¤È¤Ç¤¹¡£")
+ (say knpc "¤É¤¦¤¤¤¦°ÕÌ£¤Ç¤¹¤«¡©")
))
(define (jan-mili knpc kpc)
- (say knpc "Glasdrin's militia is currently engaged in Kurpolis and border patrols. "
- "We are not actively fighting any wars."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Î·³¤Ï¡¢¸½ºß¤Ï¥¯¥í¥Ý¥ê¥¹¤È¹ñ¶¤Î·ÙÈ÷¤ò¹Ô¤Ã¤Æ¤¤¤Þ¤¹¡£"
+ "¸½ºß¤ÏÀïÁè¾õÂ֤ǤϤ¢¤ê¤Þ¤»¤ó¡£"))
(define (jan-bord knpc kpc)
- (say knpc "Although we are currently at peace with Trigrave and Green Tower, we must never relax our vigilance.")
+ (say knpc "¸½ºß¤Ï¥È¥ê¥°¥ì¥¤¥Ö¤äÎФÎÅã¤È¤Î´Ø·¸¤ÏÎɹ¥¤Ç¤¹¤¬¡¢·Ù²ü¤òÂդ뤳¤È¤Ï¤Ç¤¤Þ¤»¤ó¡£")
)
;; Townspeople...
(method 'hail jan-hail)
(method 'job jan-job)
(method 'name jan-name)
+ (method 'jani jan-name)
(method 'comm jan-comm)
(method 'jeff jan-comm)
(define (mk-janice)
(bind
(kern-mk-char 'ch_janice ; tag
- "Janice" ; name
+ "¥¸¥ã¥Ë¥¹" ; name
sp_human ; species
oc_warrior ; occ
s_cloaked_female ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Glasdrin.
+;; ¥°¥é¥¹¥É¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_jeff
(list 0 0 gcj-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Jeffreys is the Commander of the Paladins of Glasdrin.
-;; He lives in Glasdrin, and reports directly to the ruler there,
-;; currently the Stewardess, Victoria.
+;; ¥¸¥§¥Õ¥ê¡¼¥º¤Ï¥°¥é¥¹¥É¥ê¥ó¤ÎÀ»µ³»Î¤¿¤Á¤Î»ÊÎá´±¤Ç¤¢¤ë¡£
+;; Èà¤Ï¥°¥é¥¹¥É¥ê¥ó¤Ë½»¤ó¤Ç¤¤¤Æ¡¢¤½¤³¤Ç»ØƳ¼Ô¡¢¸½ºß¤ÏÅý¼£¼Ô¤Î¥ô¥£¥¯¥È¥ê¥¢¤Ëľ
+;; ÀÜÊó¹ð¤·¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (jeff-hail knpc kpc)
(cond ((player-stewardess-trial-done?)
- (say knpc "I want you to know Wanderer, I did not betray the Warritrix. I did not know about the ambush. "
- "But I knew something was amiss, I should have acted on my suspicions. "
- "The Commander of Glasdrin must never fail in diligence. "
- "For that reason, I have resigned my post.")
- (aside kpc 'ch_ini "Don't pretend innocence, you corrupt old toad. "
- "Should we ever meet on the field it will be the end of one of us.")
+ (say knpc "̤¤¿Í¤è¡¢¤³¤Î¤³¤È¤Ï¤ï¤«¤Ã¤Æ¤¯¤ì¡£»ä¤ÏÆ®»Î¤ò΢ÀڤäƤϤ¤¤Ê¤¤¡£ÂÔ¤ÁÉú¤»¤Î¤³¤È¤Ï²¿¤âÃΤé¤Ê¤¤¤Î¤À¡£"
+ "¤À¤¬¡¢»ä¤Ï¤¤¤¯¤Ä¤«¤ÎÅÀ¤Ç´Ö°ã¤Ã¤Æ¤¤¤¿¤È»×¤¦¡£µ¿Ç°¤ò»ý¤Ã¤¿¤È¤¤Ë¹ÔÆ°¤¹¤Ù¤¤À¤Ã¤¿¡£"
+ "¥°¥é¥¹¥É¥ê¥ó¤Î»ÊÎá´±¤Ï·è¤·¤ÆÅØÎϤòÂդäƤϤʤé¤Ê¤¤¡£"
+ "¤æ¤¨¤Ë»ä¤Ï¼Ç¤¤·¤¿¤Î¤À¡£")
+ (aside kpc 'ch_ini "ÃΤé¤Ê¤«¤Ã¤¿¤Õ¤ê¤ò¤¹¤ë¤Ê¡¢¼êÀè¤Î¥Ò¥¥¬¥¨¥ë¤á¡£"
+ "¼¡¤Ë²ñ¤Ã¤¿¤È¤¤Ï¡¢¤É¤Á¤é¤«¤¬ÌǤӤë¤Þ¤ÇÀ臘¤³¤È¤Ë¤Ê¤ë¤À¤í¤¦¡£")
(kern-conv-end)
)
(else
- (say knpc "[You meet a splendid paladin] Well-met, sir.")
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÏΩÇɤʻѤÎÀ»µ³»Î¤È²ñ¤Ã¤¿¡£¡Ï¤è¤¯¤¾»²¤é¤ì¤¿¡£")
)))
(define (jeff-default knpc kpc)
- (say knpc "I cannot help you with that."))
+ (say knpc "¤½¤Î¤è¤¦¤Ê¤³¤È¤Ï¼ê½õ¤±¤Ç¤¤Ê¤¤¡£"))
(define (jeff-name knpc kpc)
- (say knpc "I am Commander Jeffreys."))
+ (say knpc "»ÊÎá´±¤Î¥¸¥§¥Õ¥ê¡¼¥º¤Ç¤¢¤ë¡£"))
(define (jeff-join knpc kpc)
- (say knpc "I already have a job."))
+ (say knpc "»ä¤Ë¤Ï¤¹¤Ç¤Ë»Å»ö¤¬¤¢¤ë¡£"))
(define (jeff-job knpc kpc)
- (say knpc "I command the paladins of Glasdrin."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÎÀ»µ³»Î¤ò»Ø´ø¤¹¤ë¤³¤È¤À¡£"))
(define (jeff-bye knpc kpc)
- (say knpc "Fare thee well."))
+ (say knpc "¤µ¤é¤Ð¤À¡£"))
;; Special
(define (jeff-comm knpc kpc)
- (say knpc "I am the highest-ranking official in Glasdrin, "
- "save the Stewardess. The military arm of Glasdrin reports to me."))
+ (say knpc "»ÊÎá´±¤Ï¥°¥é¥¹¥É¥ê¥ó¤Ç¤ÎºÇ¹â°Ì¤ÎÌò¿¦¤Ç¡¢Åý¼£¼Ô¤ò¼é¤ë¼Ô¤À¡£"
+ "¥°¥é¥¹¥É¥ê¥ó¤Î·³¤ÏÁ´¤Æ»ä¤Î»Ø´ø²¼¤Ë¤¢¤ë¡£"))
(define (jeff-mili knpc kpc)
- (say knpc "Glasdrin is unbeatable on land. All citizens of Glasdrin are "
- "required to serve a tour. Since everyone has received basic training "
- "they can be called to duty in a crisis."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÏÆñ¹¶ÉÔÍî¤ÎÅÔ»Ô¤À¡£"
+ "Á´¤Æ¤Î»Ô̱¤Ë¤ÏʼÌò¤ÎµÁ̳¤¬¤¢¤ë¡£Á´°÷¤¬´íµ¡¤Î¤È¤¤ËÀ廊¤ë¤è¤¦¡¢·³»ö·±Îý¤Î´ðÁäò¼õ¤±¤Æ¤¤¤ë¤Î¤À¡£"))
(define (jeff-pala knpc kpc)
- (say knpc "The paladins of Glasdrin are the finest warriors the Shard has "
- "ever seen. Individually their skills vary, of course, but their "
- "strength comes from fighting as a unit."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÎÀ»µ³»Î¤Ï¤³¤Î¥·¥ã¥ë¥É¤Ë¤ª¤¤¤Æº£Æü¤Þ¤Ç¤ÇÍ¥¤ì¤¿Àï»Î¤À¡£"
+ "¸Ä¿Í¤ÎǽÎϤϤâ¤Á¤í¤ó¤À¤¬¡¢¤½¤Î¶¯¤µ¤ÏÃÄ·ëÎϤ«¤éÀ¸¤Þ¤ì¤ë¤Î¤À¡£"))
(define (jeff-skil knpc kpc)
- (say knpc "Yes, whether they be a raw recruit or the Warritrix herself, "
- "when fighting with others in a unit the paladins of Glasdrin are "
- "nigh unbeatable."))
+ (say knpc "¤½¤¦¤À¡£"
+ "Ì¿Îá¤Î¤â¤È¿·Ê¼¤âÆ®»Î¤â°ì´Ý¤È¤Ê¤Ã¤ÆÀ臘¥°¥é¥¹¥É¥ê¥ó¤ÎÀ»µ³»Î¤¬ÇÔ¤ì¤ë¤³¤È¤Ï¤Ê¤¤¡£"))
(define (jeff-warr knpc kpc)
(cond ((player-found-warritrix?)
- (if (ask? knpc kpc "[Cough] Yes. Most unfortunate. We all mourn her loss. "
- "But to lose her whole squad like that she must have made some error in judgment. "
- "Don't you think so?")
- (say knpc "Yes. It happens to the best of us. Every military leader makes mistakes, "
- "and it costs lives. Now I'm afraid I'm very busy. Good day, sir.")
- (if (ask? knpc kpc "Are you implying that she was led into some kind of trap?")
- (say knpc "Ridiculous. I do not have to answer to you. "
- "Speak to the Stewardess if you have a complaint. "
- "And if you try to make trouble, the guards will expel you from the city. "
- "In fact, it might be best if you left now.")
- (say knpc "Good. Mistakes happen in war. Sometimes even friends are slain, "
- "when they are mistaken for foes. I hope you take care, friend. Good day.")
+ (if (ask? knpc kpc "¡Î¥´¥Û¥ó¡Ï¤½¤¦¤À¡£ÉÔ¹¬¤Ê¤³¤È¤À¡£²æ¡¹¤Ï¤ß¤ÊÈà½÷¤Î»à¤òÈᤷ¤ó¤Ç¤¤¤ë¡£"
+ "¤À¤¬¡¢ÉôÂ⤬Á´ÌǤ·¤¿¤Î¤ÏÈà½÷¤ÎȽÃǤˤ¤¤¯¤Ä¤â¤Î¸í¤ê¤¬¤¢¤Ã¤¿¤«¤é¤Ç¤Ï¤Ê¤¤¤À¤í¤¦¤«¡£"
+ "¤½¤¦»×¤ï¤Ì¤«¡©")
+ (say knpc "¤½¤ÎÄ̤ê¤À¡£¤½¤ì¤Ï²æ¡¹¤ÎÆâ¤ÎºÇ¹â¤Î¼Ô¤Ë¤âµ¯¤³¤ê¤¦¤ë¡£¤¢¤é¤æ¤ë·³¤Î»ØƳ¼Ô¤â¼ºÇÔ¤òÈȤ¹²ÄǽÀ¤¬¤¢¤ë¡£"
+ "¤½¤·¤Æ¤½¤ì¤ÏÌ¿¤Ë´Ø¤ï¤ë¤³¤È¤À¡£¤¹¤Þ¤Ì¤¬º£¤ÏË»¤·¤¤¤Î¤À¡£¤µ¤é¤Ð¤À¡£")
+ (if (ask? knpc kpc "²¿¤«¤Î櫤À¤Ã¤¿¤È¤Ç¤â¸À¤¤¤¿¤¤¤Î¤«¡©")
+ (say knpc "Ïäˤʤé¤Ì¡£²¿¤ÈÅú¤¨¤ì¤Ð¤è¤¤¤Î¤«¡£"
+ "¤â¤·ÉÔËþ¤¬¤¢¤ë¤Î¤Ç¤¢¤ì¤Ð¡¢Åý¼£¼Ô¤Ë¸À¤¦¤¬¤è¤¤¡£"
+ "¤½¤·¤ÆÌäÂê¤òµ¯¤³¤¹¤Î¤Ç¤¢¤ì¤Ð¡¢±Òʼ¤¬¤ª¤Þ¤¨¤ò¤³¤ÎÄ®¤«¤éÄɤ¤½Ð¤¹¤Ç¤¢¤í¤¦¡£"
+ "¼ÂºÝ¤Ë¤Ïº£¤¹¤°Î©¤Áµî¤ë¤Î¤¬ºÇ¤â¤è¤¤¤Î¤À¤¬¡£")
+ (say knpc "¤è¤í¤·¤¤¡£À襤¤Ç¤Ï´Ö°ã¤¤¤¬µ¯¤³¤ê¤¦¤ë¡£»þ¤Ë¤ÏŨ¤È¸«¸í¤Ã¤Æͧ¤ò»¦¤¹¤³¤È¤â¤¢¤ë¡£"
+ "µ¤¤ò¤Ä¤±¤ë¤³¤È¤À¤Ê¡¢Í§¤è¡£¤µ¤é¤Ð¤À¡£")
))
(kern-conv-end)
)
((quest-data-assigned? 'questentry-wise)
- (say knpc "The Warritrix is a living treasure; the most cunning, versatile "
- "warrior of the age. I've seen her beat men twice her size and "
- "slay fearsome beasts. At the moment she has been called away on an "
- "errand.")
+ (say knpc "Æ®»Î¡¢¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÇ¿ºÍ¤ÊÀï»Î¤ÏÀ¸¤±¤ëÊõ¤À¡£"
+ "»ä¤ÏÈà½÷¤¬¼«Ê¬¤ÎÇܤ⤢¤ëÃˤòÅݤ·¡¢¶²¤í¤·¤¤½Ã¤¿¤Á¤ò°µÅݤ¹¤ë»Ñ¤ò¸«¤¿¤³¤È¤¬¤¢¤ë¡£"
+ "¸½ºß¤Ï¤¢¤ëǤ̳¤Î¿ë¹ÔÃæ¤Ç¤¢¤ë¡£")
(quest-data-update 'questentry-warritrix 'assignment 1)
)
(else
- (say knpc "The Warritrix is a living treasure; the most cunning, versatile "
- "warrior of the age. I've seen her beat men twice her size and "
- "slay fearsome beasts. At the moment she is out on patrol.")
+ (say knpc "Æ®»Î¡¢¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÇ¿ºÍ¤ÊÀï»Î¡¢¤ÏÀ¸¤±¤ëÊõ¤À¡£"
+ "»ä¤ÏÈà½÷¤¬¼«Ê¬¤ÎÇܤ⤢¤ëÃˤòÅݤ·¡¢¶²¤í¤·¤¤½Ã¤¿¤Á¤ò°µÅݤ¹¤ë»Ñ¤ò¸«¤¿¤³¤È¤¬¤¢¤ë¡£"
+ "¸½ºß¤Ï·ÙÈ÷¤Ë½Ð¤Æ¤¤¤ë¡£")
(quest-data-update 'questentry-warritrix 'general-loc 1)
)
))
(define (jeff-erra knpc kpc)
(jeff-warr-ready (lambda ()
- (say knpc "[He looks a bit uneasy] Yes, she took a squad to the Lost Halls. "
- "It's odd that she hasn't reported back yet... "
- "Normally I would send a search party, "
- "but at the moment I haven't the troops to spare.")
+ (say knpc "¡ÎÈà¤Ï¾¯¤·Æñ¤·¤½¤¦¤Ê´é¤ò¤·¤¿¡£¡Ï"
+ "¤½¤¦¤À¡£Èà½÷¤ÏÉôÂâ¤ò°ú¤Ï¢¤ì¡¢¼º¤ï¤ì¤¿ÅÂƲ¤Ø¸þ¤«¤Ã¤¿¡£"
+ "´ñ̯¤Ê¤³¤È¤Ë¤¢¤ì¤«¤é²¿¤ÎÏ¢Íí¤â¤Þ¤À¤Ê¤¤¤Î¤À¡Ä"
+ "Ä̾ï¤Ê¤éÁܺ÷Ââ¤ò½Ð¤¹¤È¤³¤í¤À¤¬¡¢º£¤Ï¤½¤ì¤Ë³ä¤±¤ëÉôÂ⤬¤¤¤Ê¤¤¡£")
(quest-data-update-with 'questentry-rune-l 'located 1 (quest-notify nil))
(quest-data-update 'questentry-warritrix 'lost-hall 1)
)))
(define (jeff-sear knpc kpc)
(jeff-warr-ready (lambda ()
- (say knpc "[He grows exasperated] I can spare no one to search for the "
- "Warritrix! Now, if you don't mind, I'm a busy man...")
+ (say knpc "¡ÎÈà¤Ï¤¤¤éΩ¤Ã¤¿¡£¡ÏÆ®»Î¤ÎÁܺ÷¤Ë³ä¤±¤ëÉôÂâ¤Ï¤¤¤Ê¤¤¡ª"
+ "¼ºÎ餹¤ë¡£»ä¤ÏË»¤·¤¤¤Î¤À¡Ä")
(kern-conv-end)
(if (is-player-party-member? ch_ini)
- (say ch_ini "Something smells rotten in Denmark. "
- "We've got to find her!"))
+ (say ch_ini "ÉåÇԤΤˤª¤¤¤¬¤¹¤ë¡£"
+ "Èà½÷¤òõ¤µ¤Í¤Ð¡ª"))
)))
;; Townspeople...
(define (jeff-glas knpc kpc)
- (say knpc "A mighty city, Glasdrin has never fallen to invaders."))
+ (say knpc "¶¯¸Ç¤ÊÄ®¥°¥é¥¹¥É¥ê¥ó¤Ï¿¯Î¬¼Ô¤Ë¤è¤Ã¤Æ´ÙÍ¤ë¤³¤È¤Ï¤Ê¤¤¤Ç¤¢¤í¤¦¡£"))
(define (jeff-ange knpc kpc)
- (say knpc "Angela is a most gracious, hospitable woman."))
+ (say knpc "¥¨¥ó¥¸¥§¥é¤ÏºÇ¤âÎéµ·Àµ¤·¤¯¡¢¿´Í¥¤·¤¤½÷À¤À¡£"))
(define (jeff-patc knpc kpc)
- (say knpc "Doc Patch is an experienced medik and head of our hospital."))
+ (say knpc "´ãÂӤϷи³Ë¤«¤Ê°å»Õ¤Ç¡¢²æ¡¹¤Îɱ¡¤Î±¡Ä¹¤À¡£"))
(define (jeff-stew knpc kpc)
- (say knpc "The Stewardess bears the weight of leadership well."))
+ (say knpc "Åý¼£¼Ô¤Î¥ô¥£¥¯¥È¥ê¥¢¤Ï¤è¤¯¤½¤Î½Å¤ß¤ËÂѤ¨¤Æ¤¤¤ë¡£"))
(define (jeff-ini knpc kpc)
- (say knpc "Lt. Inago is a natural warrior and a fine officer."))
+ (say knpc "¥¢¥¤¥Ê¥´¾¯º´¤ÏÀ¸¤Þ¤ì¤Ê¤¬¤é¤ÎÀï»Î¤Ç¡¢Í¥¤ì¤¿»Î´±¤À¡£"))
(define (jeff-jess knpc kpc)
- (say knpc "Jess is a cheery lass, and a welcome sight at the end of a "
- "hard day as she pours a glass."))
+ (say knpc "¥¸¥§¥¹¤ÏÌÀ¤ë¤¤½÷À¤À¡£"
+ "¤½¤·¤Æ¶ì¤·¤¤Æü¡¹¤¬½ª¤ï¤ê¡¢¼ò¤òÃí¤°¤Î¤¬³Ú¤·¤¤¤è¤¦¤Ë¸«¤¨¤ë¡£"))
(define (jeff-ches knpc kpc)
- (say knpc "We miss his mighty arm in battle, but his weapons and armor "
- "serve us well, too."))
+ (say knpc "²æ¡¹¤ÏÈà¤ÎÎϤò¼º¤Ã¤Æ¤·¤Þ¤Ã¤¿¡£"
+ "¤À¤¬¡¢Èà¤ÎÉð´ï¤Ïº£¤Ç¤â²æ¡¹¤ò½õ¤±¤Æ¤¯¤ì¤ë¡£"))
(define (jeff-lost knpc kpc)
- (say knpc "The Lost Halls are very dangerous. No place for amateurs. "
- "I'd advise you to stay away! Now good day, sir!")
+ (say knpc "¼º¤ï¤ì¤¿ÅÂƲ¤Ï¤È¤Æ¤â´í¸±¤Ê½ê¤À¡£°ìÈ̿ͤιԤ¯¤È¤³¤í¤Ç¤Ï¤Ê¤¤¡£"
+ "¤½¤³¤Ë¶á¤Å¤¤¤Æ¤Ï¤Ê¤é¤Ì¤¾¡ª¤Ç¤Ï¼ºÎ餹¤ë¡ª")
(kern-conv-end)
(if (is-player-party-member? ch_ini)
(begin
- (say ch_ini "Don't worry. I know where to find the Lost Halls. "
- "We'll need to get a ship and sail to ["
- (loc-x lost-halls-loc) " "
- (loc-y lost-halls-loc) "].")
+ (say ch_ini "°Æ¤º¤ë¤Ê¡£¼º¤ï¤ì¤¿ÅÂƲ¤Î¾ì½ê¤ÏÃΤäƤ¤¤ë¡£"
+ "Á¥¤Ç["
+ (loc-x lost-halls-loc) ","
+ (loc-y lost-halls-loc) "]¤Þ¤Ç¹Ò¹Ô¤¹¤ì¤Ð¸«¤Ä¤«¤ë¤À¤í¤¦¡£")
(quest-data-update-with 'questentry-rune-l 'know-hall 1 (quest-notify nil))
(quest-data-update 'questentry-warritrix 'lost-hall-loc 1)
)
(method 'join jeff-join)
(method 'comm jeff-comm)
- (method 'jani (lambda (knpc kpc) (say knpc "My assistant Janice is invaluable as a tactician.")))
+ (method 'jeff jeff-comm)
+ (method 'jani (lambda (knpc kpc) (say knpc "»ä¤ÎÊ亴´±¤Î¥¸¥ã¥Ë¥¹¤ÏÀï½Ñ²È¤È¤·¤Æ·×¤êÃΤì¤Ê¤¤¤Û¤É½ÅÍפǤ¢¤ë¡£")))
(method 'mili jeff-mili)
(method 'pala jeff-pala)
(method 'warr jeff-warr)
(define (mk-jeffreys)
(bind
(kern-mk-char 'ch_jeffreys ; tag
- "Jeffreys" ; name
+ "¥¸¥§¥Õ¥ê¡¼¥º" ; name
sp_human ; species
oc_warrior ; occ
s_companion_paladin ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Glasdrin.
+;; ¥°¥é¥¹¥É¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_jess
(list 0 0 gj-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Jess is the female proprietress of the Holy Grail tavern in Glasdrin.
-;; Her face is scarred, the result of an encounter with goblins
-;; when serving as a crossbowman in the Glasdrin militia.
+;; ¥¸¥§¥¹¤Ï¥°¥é¥¹¥É¥ê¥ó¤Î¼ò¾ì¡ÖÀ»Çաפμç¤Î½÷À¤Ç¤¢¤ë¡£
+;; Èà½÷¤Î´é¤Ë¤Ï¡¢¥¯¥í¥¹¥Ü¥¦Ê¼¤È¤·¤Æ¥°¥é¥¹¥É¥ê¥ó¤ÎʼÌò¤Ë½¢¤¤¤Æ¤¤¤¿¤³¤í¡¢¥´¥Ö¥ê
+;; ¥ó¤«¤é¼õ¤±¤¿½ý¤¬¤¢¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (jess-hail knpc kpc)
(if (string=? "working" (kern-obj-get-activity knpc))
- (say knpc "[You meet an otherwise attractive young woman with a hideous "
- "scar on one side of her face]. Relax, gentlemen, you've finally "
- "found the Holy Grail!")
- (say knpc "[You meet an otherwise attractive young woman with a hideous "
- "scar on one side of her face]. Nice day, isn't it?")))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï¿Í¤ò°ú¤¤Ä¤±¤ë¤è¤¦¤Ê¼ã¤¤½÷À¤È²ñ¤Ã¤¿¡£´é¤ÎÊÒ¦¤Ë¿¼¤¤½ý¤¬¤¢¤ë¡£¡Ï"
+ "¤¯¤Ä¤í¤¤¤Ç¤¯¤À¤µ¤¤¡£¤Ä¤¤¤Ë¤¢¤Ê¤¿¤ÏÀ»ÇÕ¤ò¼ê¤Ë¤·¤Þ¤·¤¿¡ª")
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï¿Í¤ò°ú¤¤Ä¤±¤ë¤è¤¦¤Ê¼ã¤¤½÷À¤È²ñ¤Ã¤¿¡£´é¤ÎÊÒ¦¤Ë¿¼¤¤½ý¤¬¤¢¤ë¡£¡Ï"
+ "¤¤¤¤Å·µ¤¤Í¡£")))
(define (jess-default knpc kpc)
- (say knpc "Hm... I don't know."))
+ (say knpc "¤¦¡¼¤ó¡Ä¤ï¤«¤ê¤Þ¤»¤ó¡£"))
(define (jess-name knpc kpc)
(if (working? knpc)
- (say knpc "I'm Jess, proprieter of this here oasis.")
- (say knpc "I'm Jess, proprieter of the Holy Grail. "
- "Come by some time when you're thirsty.")))
+ (say knpc "»ä¤Ï¥¸¥§¥¹¡£¤³¤Î·Æ¤¤¤Î¾ì¤Î¼ç¤Ç¤¹¡£")
+ (say knpc "»ä¤Ï¥¸¥§¥¹¡£·Æ¤¤¤Î¾ì¡ÖÀ»Çաפμç¤Ç¤¹¡£"
+ "¹¢¤¬³é¤¤¤¿¤é¡¢³«¤¤¤Æ¤¤¤ë¤È¤¤ËÍè¤Æ¤¯¤À¤µ¤¤¤Ê¡£")))
(define (jess-join knpc kpc)
- (say knpc "No thanks, I get enough action throwing out drunks and "
- "breaking up fights."))
+ (say knpc "¤¤¤¤¤¨¡£¤³¤³¤Ç°û¤ßʪ¤ò½Ð¤¹¤Î¤ÇÀº°ìÇդǤ¹¡£¤½¤ì¤Ë»ä¤ÎʼÌò¤Ï¤â¤¦½ª¤ï¤ê¤Þ¤·¤¿¡£"))
(define (jess-job knpc kpc)
- (say knpc "I tempt the weak-minded with my wares. Care to see them?")
+ (say knpc "°û¤ßʪ¤¬Çä¤ì¤ë¤«¿´ÇۤǤ¹¡£¸«¤Æ¤â¤é¤¨¤Þ¤¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "[She winks] I thought you would!")
+ (say knpc "¡ÎÈà½÷¤Ï¥¦¥£¥ó¥¯¤·¤¿¡£¡Ï¤½¤¦¸À¤¦¤È»×¤Ã¤Æ¤Þ¤·¤¿¡ª")
(jess-trade knpc kpc))
- (say knpc "Too bad.")))
+ (say knpc "»ÄÇ°¤Í¡£")))
(define (jess-bye knpc kpc)
- (say knpc "So long, come back again!"))
+ (say knpc "¤µ¤è¤¦¤Ê¤é¡£¤Þ¤¿Íè¤Æ¤¯¤À¤µ¤¤¡ª"))
(define jess-catalog
(list
- (list t_food 7 "The paladins love my roast beef.")
- (list t_beer 12 "Have a grail-ful!")
+ (list t_food 7 "À»µ³»Î¤Î³§¤µ¤ó¤Ï¤¢¤Ö¤êÆù¤¬Âç¹¥¤¤Ç¤¹¡£")
+ (list t_beer 12 "À»ÇÕ¤òËþ¤¿¤·¤Þ¤·¤ç¤¦¡ª")
))
(define jess-merch-msgs
- (list "Come by the Holy Grail when I'm working. Breakfast is between 7:00AM and 9:00AM, lunch is 10:00AM to 1:00PM and I reopen at 2:00PM until midnight."
- "Here's a menu!"
+ (list "»ä¤¬¤¤¤ë¤È¤¤Ë¡ÖÀ»ÇաפËÍè¤Æ¤¯¤À¤µ¤¤¡£Ä«¿©¤Ï¸áÁ°7»þ¤«¤é9»þ¡¢Ãë¿©¤Ï10»þ¤«¤é¸á¸å1»þ¡¢¤½¤·¤Æ2»þ¤«¤é¿¼Ìë¤Þ¤ÇºÆ³«Å¹¤·¤Þ¤¹¡£"
+ "¥á¥Ë¥å¡¼¤Ç¤¹¡ª"
nil ;; sell
nil ;; trade
- "Enjoy!" ;; sold-something
- "Well, it beats hard-tack!" ;; sold-nothing
+ "³Ú¤·¤ó¤Ç¤¯¤À¤µ¤¤¡ª" ;; sold-something
+ "¤¢¤¢¡¢¸Ç¥Ñ¥ó¤Çᤫ¤ì¤¿¤ß¤¿¤¤¤Ç¤¹¡ª" ;; sold-nothing
nil ;; the rest are nil
))
;; Holy Grail
(define (jess-grai knpc kpc)
- (say knpc "According to legend, a Wanderer suggested the title. "
- "It was based on a popular story in his home-world."))
+ (say knpc "¸À¤¤ÅÁ¤¨¤Ç¤Ï̤¤¿Í¤¬¤³¤Î̾Á°¤Ë¤·¤¿¤È¤«¡£"
+ "Èà¤ÎÀ¤³¦¤Ç¤è¤¯ÃΤé¤ì¤¿Ï䬸µ¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤½¤¦¤Ç¤¹¤è¡£"))
;; Scar
(define (jess-scar knpc kpc)
- (say knpc "I got that courtesy of some cave goblins and a guard who "
- "couldn't stay awake. They ambushed us while we were sleeping, "
- "I caught the edge of an axe with my cheek, but my helmet took "
- "the worst of it. Do you like stories of battles?")
+ (say knpc "ƶ·¢¥´¥Ö¥ê¥ó¤È¡¢¿²¤Æ¤¤¤¿±Òʼ¤Î¤»¤¤¤Ç¤¹¡£"
+ "¿ç̲Ãæ¤ËÉÔ°ÕÂǤÁ¤ò¼õ¤±¡¢Éà¤Î¿Ï¤òËˤ˼õ¤±¤Þ¤·¤¿¡£"
+ "¤Ç¤â³õ¤Î¤ª¤«¤²¤ÇÃ×Ì¿½ý¤Ë¤Ï¤Ê¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£"
+ "À襤¤ÎÏäϹ¥¤¤Ç¤¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "Everyone in town has at least one. We've all served.")
- (say knpc "Too bad, because this is the place to hear them.")))
+ (say knpc "¤³¤ÎÄ®¤Î¿Í¤Ï¤³¤ó¤ÊÏäò°ì¤Ä¤¯¤é¤¤¤Ï»ý¤Ã¤Æ¤¤¤Þ¤¹¡£»ä¤¿¤Á¤Ï³§Ê¼Ìò¤Ë½¢¤¤Þ¤·¤¿¤«¤é¡£")
+ (say knpc "»ÄÇ°¤Ç¤¹¤Í¡£¤³¤³¤Ç¤Ï¤³¤ó¤ÊÏäФ«¤ê¤Ç¤¹¡£")))
(define (jess-serv knpc kpc)
- (say knpc "All citizens of Glasdrin must serve a tour of duty. "
- "I was a crossbowman, my job was to support the heavy armor from "
- "behind. My outfit served on the eastern marches of the Great Wood."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Î»Ô̱¤Ï¤ß¤ó¤ÊʼÌò¤ÎµÁ̳¤¬¤¢¤ê¤Þ¤¹¡£"
+ "»ä¤Ï¥¯¥í¥¹¥Ü¥¦Ê¼¤Ç¡¢½ÅÁõʼ¤òÇظ夫¤é»Ù±ç¤¹¤ë¤Î¤¬»Å»ö¤Ç¤·¤¿¡£"
+ "»ä¤ÎÉôÂâ¤Ï¿¹¤ÎÅ즤泦¤Ë¤¤¤Þ¤·¤¿¡£"))
(define (jess-wood knpc kpc)
- (say knpc "The rangers keep things pretty well in hand, but that year "
- "the cave goblins and trolls were coming out in force."))
+ (say knpc "·ÙÈ÷Ââ¤Ï¤è¤¯¼é¤Ã¤Æ¤¤¤ë¤È»×¤¤¤Þ¤¹¡£"
+ "¤Ç¤â¡¢¤¢¤Îǯ¤Ë¤Ïƶ·¢¥´¥Ö¥ê¥ó¤È¥È¥í¥ë¤ÎÂç·²¤¬²¡¤·´ó¤»¤Æ¤¤Þ¤·¤¿¡£"))
;; Townspeople...
(define (jess-glas knpc kpc)
- (say knpc "It's a nice enough place, considering its an armed camp."))
+ (say knpc "´ðÃϤǤ¢¤ë¤³¤È¤ò¹Í¤¨¤ì¤Ð¡¢½½Ê¬¤Ë¤è¤¤½ê¤Ç¤¹¡£"))
(define (jess-ange knpc kpc)
- (say knpc "A nice lady. Not exactly a fighter, but she does her part."))
+ (say knpc "¤¹¤Ð¤é¤·¤¤¿Í¤Ç¤¹¡£Àï»Î¤È¤·¤Æ¤Ï³èÌö¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¤¬¡¢Èà½÷¤Ë¤ÏÈà½÷¤ÎÌòÌܤ¬¤¢¤ê¤Þ¤¹¡£"))
(define (jess-patc knpc kpc)
- (say knpc "Dirty old man! No, I'm just teasing him."))
+ (say knpc "¤¢¤Î±ø¤ì¤¿Ç¯´ó¤ê¡ª¤¤¤¨¡¢¾éÃ̤Ǥ¹¤è¡£"))
(define jess-conv
(ifc glasdrin-conv
(method 'trade jess-buy)
(method 'scar jess-scar)
(method 'serv jess-serv)
+ (method 'tour jess-serv)
(method 'wood jess-wood)
;; town & people
(define (mk-jess)
(bind
(kern-mk-char 'ch_jess ; tag
- "Jess" ; name
+ "¥¸¥§¥¹" ; name
sp_human ; species
nil ; occ
s_townswoman ; sprite
(kern-mk-sprite 's_skull_ring ss_jewelry 1 0 #f 0)
-(mk-quest-obj-type 't_skull_ring "skull ring" s_skull_ring layer-item obj-ifc)
+(mk-quest-obj-type 't_skull_ring "¥É¥¯¥í¤Î»ØÎØ" s_skull_ring layer-item obj-ifc)
(define (skullring-basic-receive kchar questtag)
(define skullring-m-ifc
(ifc obj-ifc
(method 'get skullring-m-get)))
-(mk-quest-obj-type 't_skull_ring_m "skull ring" s_skull_ring layer-item skullring-m-ifc)
+(mk-quest-obj-type 't_skull_ring_m "¥É¥¯¥í¤Î»ØÎØ" s_skull_ring layer-item skullring-m-ifc)
(define (skullring-j-get kobj kchar)
(skullring-basic-get kobj kchar 'ring-jorn)
(define skullring-j-ifc
(ifc obj-ifc
(method 'get skullring-j-get)))
-(mk-quest-obj-type 't_skull_ring_j "skull ring" s_skull_ring layer-item skullring-j-ifc)
+(mk-quest-obj-type 't_skull_ring_j "¥É¥¯¥í¤Î»ØÎØ" s_skull_ring layer-item skullring-j-ifc)
(define (skullring-g-get kobj kchar)
(skullring-basic-get kobj kchar 'ring-gholet)
(ifc obj-ifc
(method 'get skullring-g-get)
(method 'receive skullring-g-receive)))
-(mk-quest-obj-type 't_skull_ring_g "skull ring" s_skull_ring layer-item skullring-g-ifc)
+(mk-quest-obj-type 't_skull_ring_g "¥É¥¯¥í¤Î»ØÎØ" s_skull_ring layer-item skullring-g-ifc)
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; The schedule below is for the place "Trigrave"
+;; ¥È¥ê¥°¥ì¥¤¥Ö
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_jim
(list 0 0 trigrave-jims-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Jim is a merchant, and will trade with the player if he's at work. He's a
-;; tall, wiry blacksmith with a very dry wit. If the town has a leader it would
-;; be him because the other townsfolk respect him and look to him in times of
-;; crises. He isn't interested in being a celebrity, however, and doesn't
-;; exercise any real ambition. He's not interested in adventures and considers
-;; (privately) that adventurers are fools. But he's happy to trade with
-;; them. He drinks hard, and probably had a very wild youth.
+;; ¥¸¥à¤ÏŹ¼ç¤Ç¡¢»Å»ö¤ò¤·¤Æ¤¤¤ë»þ´Ö¤Ê¤é¤Ð¼è¤ê°ú¤¤Ç¤¤ë¡£Èà¤ÏÇؤ¬¹â¤¯¡¢ÃÃÌê²°
+;; ¤ò¤·¤Æ¤¤¤Æ¡¢Ìµ°¦ÁۤǤ¢¤ë¡£¤â¤·Ä®¤Ë¥ê¡¼¥À¡¼¤¬¤¤¤ë¤È¤¹¤ì¤Ð¡¢¤½¤ì¤ÏÈà¤Ç¤¢¤ë¡£
+;; ¤Ê¤¼¤Ê¤é½»Ì±¤ÏÈà¤òº·É¤·¡¢´íµ¡¤Î¤È¤Íê¤ì¤ë¤È¹Í¤¨¤Æ¤¤¤ë¤«¤é¤Ç¤¢¤ë¡£¤·¤«¤·¡¢
+;; Èà¤Ï̾À¼¤Ë¤Ï¶½Ì£¤¬¤Ê¤¯¡¢Ìî¿´¤Î¤¿¤á¤Ë¹ÔÆ°¤¹¤ë¤³¤È¤Ï¤Ê¤¤¡£Èà¤ÏËÁ¸±¼Ô¤Ë¤Ï¶½Ì£
+;; ¤¬¤Ê¤¯¡¢(¸Ä¿ÍŪ¤Ë¤Ï)ËÁ¸±¼Ô¤Ï¶ò¤«¤À¤È¹Í¤¨¤Æ¤¤¤ë¡£¤·¤«¤·¡¢Èà¤é¤È¼è¤ê°ú¤¤¹¤ë
+;; ¤È´î¤Ö¡£Èà¤ÏÂç¼ò¤Î¤ß¤Ç¡¢¤ª¤½¤é¤¯¼ã¤¤¤³¤í¤Ï¹Ó¤¯¤ì¼Ô¤À¤Ã¤¿¡£
;;----------------------------------------------------------------------------
(define jim-merch-msgs
- (list "Come by my shop when I'm open. It's the Iron Works in the northeast corner. I'm open for business from 7:00AM til 6:00PM."
- "Let me know if you see something that interests you."
- "I'll buy back some items for salvage."
- "Let me know if you see something that interests you."
- "Strike hard, first and for the good, friend."
- "Maybe some other time."
- "I can melt down or re-use parts of this."
- "Fine."
- "Strike hard, first and for the good, friend."
- "Fine."
+ (list "Ź¤¬³«¤¤¤Æ¤ë¤È¤¤ËÍè¤Æ¤¯¤ì¡£ËÌÅì¤Î¶âʪ²°¤À¡£¸áÁ°7»þ¤«¤é¸á¸å6»þ¤Þ¤Ç¤ä¤Ã¤Æ¤¤¤ë¡£"
+ "Íߤ·¤¤Êª¤¬¤¢¤ì¤Ð¸À¤Ã¤Æ¤¯¤ì¡£"
+ "¤¤¤é¤Ê¤¯¤Ê¤Ã¤¿Êª¤¬¤¢¤ì¤ÐÇ㤤Ì᤹¤¾¡£"
+ "Íߤ·¤¤Êª¤¬¤¢¤ì¤Ð¸À¤Ã¤Æ¤¯¤ì¡£"
+ "¤Þ¤º¤Ï¶¯¤¯ÂǤơ¢¤è¤¤â¤Î¤Î¤¿¤á¤Ë¡¢Í§¤è¡£"
+ "¤Þ¤¿¤Îµ¡²ñ¤Ë¡£"
+ "ÍϤ«¤¹¤«¡¢ÉôÉʤˤ·¤Æ»È¤¦¤è¡£"
+ "¤É¤¦¤â¡£"
+ "¤Þ¤º¤Ï¶¯¤¯ÂǤơ¢¤è¤¤â¤Î¤Î¤¿¤á¤Ë¡¢Í§¤è¡£"
+ "¤É¤¦¤â¡£"
))
(define jim-catalog
(list
- (list t_dagger 40 "This is a good weapon for the non-fighting classes.")
- (list t_sword 80 "It's not fancy, but note the perfect balance on that sword.")
- (list t_axe 70 "An axe is necessary if you camp in the wild, but it can be tricky to keep ahold of in a fight.")
- (list t_mace 75 "The mace is a simple but effective weapon against lightly armoured foes.")
+ (list t_dagger 40 "Àï»Î¤Ç¤Ê¤¤¼Ô¤Ë¤Ï¤¤¤¤Éð´ï¤À¡£")
+ (list t_sword 80 "ÃÏÌ£¤À¤¬´°àú¤Ê¶Ñ¹Õ¤Î·õ¤À¡£")
+ (list t_axe 70 "Éà¤ÏÌî³°¤Î³èÆ°¤ÇɬÍפÀ¡£À襤¤Ç¤â»È¤¨¤ë¡£")
+ (list t_mace 75 "ÄÊÌ·¤Ïñ½ã¤À¤¬·ÚÁõ¤Î³»¤òÃ夿Ũ¤Ë¤Ï¸ú²Ì¤Î¤¢¤ëÉð´ï¤À¡£")
- (list t_2H_axe 240 "The battle-axe is made for cleaving armour and shields.")
- (list t_2H_sword 350 "If you are strong enough to wield it, a two-handed sword is an excellent offensive weapon.")
+ (list t_2H_axe 240 "³»¤ä½â¤òÀÚ¤êÎö¤¯¤¿¤á¤Ëºî¤é¤ì¤¿ÀïÉà¤À¡£")
+ (list t_2H_sword 350 "»ý¤Æ¤ë¤À¤±¤ÎÎϤ¬¤¢¤ì¤Ð¡¢Î¾¼ê·õ¤Ï¤È¤Æ¤â¶¯ÎϤÊÉð´ï¤À¡£")
- (list t_chain_coif 110 "The chain coif will protect your neck from decapitating strokes.")
- (list t_iron_helm 160 "With an iron helm you can survive a direct hit from a mace.")
- (list t_armor_chain 300 "Chain armor will turn aside most blades and arrows.")
- (list t_armor_plate 600 "Although heavy, plate armour will protect you from all but the mightiest blows or armour-piercing tips.")
+ (list t_chain_coif 110 "º¿Æ¬¶Ò¤ÏƬÉô¤Ø¤Î¹¶·â¤«¤é¼ó¤ò¼é¤ë¤À¤í¤¦¡£")
+ (list t_iron_helm 160 "Å´³õ¤¬¤¢¤ì¤ÐƬ¤Ø¤ÎÄÊÌ·¤Îľ·â¤âËɤ²¤ë¤À¤í¤¦¡£")
+ (list t_armor_chain 300 "º¿¤«¤¿¤Ó¤é¤¬¤¢¤ì¤ÐÂçÄñ¤Î¿Ï¤äÌð¤òÄ·¤ÍÊÖ¤»¤ë¡£")
+ (list t_armor_plate 600 "½Å¤¤¤¬¡¢¹ÃÑɤ϶ˤá¤Æ¶¯ÎϤʹ¶·â¤ä³»¤ò´ÓÄ̤¹¤ë¹¶·â¤ò½ü¤±¤ÐÁ´¤Æ¤«¤é¼é¤ë¤À¤í¤¦¡£")
- (list t_shield 45 "A shield is vital for close-in combat.")
+ (list t_shield 45 "½â¤ÏÀܶáÀï¤Ç¤ÏɬÍפÀ¡£")
- (list t_spiked_helm 150 "The spiked helm is favored by those with a more... direct style.")
- (list t_spiked_shield 150 "A spiked shield augments the footsoldier's basic thrust-and-push with extra damage.")
+ (list t_spiked_helm 150 "»ÉÉÕ¤³õ¤Ï¤â¤Ã¤È¹¶·âÎϤ¬Íߤ·¤¤¼Ô¤Ë¹¥¤Þ¤ì¤ë¡£")
+ (list t_spiked_shield 150 "»ÉÉÕ¤½â¤ÏÁÇÁᤤÀï»Î¤Î´ðËÜŪ¤Ê²¡¤·¤ÆÆͤ¯Æ°ºî¤ò¹¹¤Ê¤ë¹¶·â¤Ë¤Ç¤¤ë¡£")
))
(define (jim-trade knpc kpc) (conv-trade knpc kpc "trade" jim-merch-msgs jim-catalog))
;; 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 "I know not.")))
- (method 'hail (lambda (knpc kpc) (say knpc "Well met.")))
- (method 'bye (lambda (knpc kpc) (say knpc "Fare well.")))
+ (method 'default (lambda (knpc kpc) (say knpc "¤ï¤«¤é¤ó¤Ê¡£")))
+ (method 'hail (lambda (knpc kpc) (say knpc "¤¤¤é¤Ã¤·¤ã¤¤¡£")))
+ (method 'bye (lambda (knpc kpc) (say knpc "¤É¤¦¤â¡£")))
(method 'job
(lambda (knpc kpc)
- (say knpc "I'm the blacksmith of Trigrave. Need something?")
+ (say knpc "¥È¥ê¥°¥ì¥¤¥Ö¤ÎÃÃÌê²°¤À¡£²¿¤«¤¤¤ë¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(jim-trade knpc kpc)
- (say knpc "Look around all you like."))))
- (method 'name (lambda (knpc kpc) (say knpc "Folks call me Jim.")))
+ (say knpc "¤Þ¤¢¸«¤Æ¤¤¤¤Ê¡£"))))
+ (method 'name (lambda (knpc kpc) (say knpc "³§¥¸¥à¤È¸Æ¤ó¤Ç¤¤¤ë¡£")))
(method 'buy (lambda (knpc kpc) (conv-trade knpc kpc "buy" jim-merch-msgs jim-catalog)))
(method 'sell (lambda (knpc kpc) (conv-trade knpc kpc "sell" jim-merch-msgs jim-catalog)))
(method 'trad jim-trade)
(method 'join (lambda (knpc kpc)
- (say knpc "Here I make my stand, come what may.")))
+ (say knpc "²¿¤¬µ¯¤³¤í¤¦¤È¤â¡¢¤³¤³¤¬²¶¤Î¾ì½ê¤À¡£")))
(method 'chan (lambda (knpc kpc)
- (say knpc "Chanticleer the bard frequents the Trigrave "
- "tavern. He knows much of the region.")))
+ (say knpc "¥ª¥ó¥É¥ê¤Ï¥È¥ê¥°¥ì¥¤¥Ö¤Î¼ò¾ì¤Ë½ÐÆþ¤ê¤·¤Æ¤¤¤ë¶ãÍ·»í¿Í¤À¡£"
+ "¤³¤Î¤¢¤¿¤ê¤¸¤ãÍ̾¤À¡£")))
(method 'char
(lambda (knpc kpc)
- (say knpc "The charcoal burner who lives in the woods "
- "keeps my forges hot.")))
+ (say knpc "¿¹¤Îú¾Æ¤¿Í¤Î¤ª¤«¤²¤Ç²¶¤ÎÃÃÌê¾ì¤òÇ®¤¯¤Ç¤¤ë¡£")))
(method 'earl
(lambda (knpc kpc)
- (say knpc "Earl is the shopkeeper for the general store. "
- "He claims he was once a battle-mage.")))
+ (say knpc "¥¤¥¢¥ë¤Ï¾®´Öʪ²°¤ÎŹ¼ç¤À¡£"
+ "ÀΤÏËâ½Ñ»Õ¤À¤Ã¤¿¤È¸À¤¤Ä¥¤Ã¤Æ¤¤¤ë¡£")))
(method 'gwen
(lambda (knpc kpc)
- (say knpc "Gwen is our innkeeper. She is a beautiful but "
- "mysterious woman.")))
+ (say knpc "¥°¥Ù¥ó¤Ï½É²°¤ò¤ä¤Ã¤Æ¤¤¤ë¡£"
+ "Èþ¿Í¤À¤¬Ææ¤Î¿¤¤½÷¤À¡£")))
(method 'iron (lambda (knpc kpc)
- (say knpc "The hills are loaded with ore, yet so many "
- "battles have been fought in this valley that one "
- "need not visit them to find scrap.")))
+ (say knpc "µÖ¤Ë¤Ï¸¶ÀФ¬ËÉ٤ˤ¢¤ë¡£Ã«¤Ç¤Ï¿¤¯¤ÎÀ襤¤¬¤¢¤ë¤¬¡¢¤¯¤ºÅ´¤òõ¤·¤Ë¤½¤³¤Ë¹Ô¤¯É¬ÍפϤʤ¤¡£")))
(method 'shie
(lambda (knpc kpc)
- (say knpc "[he gives you a cold look] I have cast away the "
- "shield which bears the emblem of Glasdrin. I'll "
- "thank you to speak of this no more.")))
- (method 'thief
+ (say knpc "¡ÎÈà¤ÏÎ䤿¤¤ÌܤǤ¢¤Ê¤¿¤ò¸«¤¿¡£¡Ï"
+ "¥°¥é¥¹¥É¥ê¥ó¤ÎÌæ¾Ï¤Î½â¤Ï¤â¤¦¼Î¤Æ¤¿¡£"
+ "¤³¤ì°Ê¾åÏä·¤¿¤¯¤Ê¤¤¤Î¤À¤¬¡£")))
+ (method 'thie
(lambda (knpc kpc)
- (say knpc "I haven't seen anyone odd. But ask Gwen, she speaks to many travelers.")))
+ (say knpc "¤ª¤«¤·¤ÊÅۤϸ«¤Ê¤«¤Ã¤¿¤Ê¡£¥°¥Ù¥ó¤Ëʹ¤¤¤Æ¤ß¤ì¤Ð¤¤¤¤¡£½É²°¤ÇÂçÀª¤Îι¿Í¤ÈÏ䷤Ƥ¤¤ë¤À¤í¤¦¤«¤é¤Ê¡£")))
(method 'trig
(lambda (knpc kpc)
- (say knpc "Trigrave is not much to speak of.")))
+ (say knpc "¥È¥ê¥°¥ì¥¤¥Ö¤Ë¤ÏÏäˤʤë¤â¤Î¤Ï¤¢¤Þ¤ê¤Ê¤¤¡£")))
(method 'wood
(lambda (knpc kpc)
- (say knpc "The deep wood is home to beasts and bandits. "
- "You'll need short arms and light armour there, "
- "for the thicket is a hindrance to heavy arms "
- "and ranged weapons.")))
+ (say knpc "¿¹¤Ï½Ã¤ÈÅð±¤Î¤Í¤°¤é¤À¡£"
+ "û¤¤Éð´ï¤È·Ú¤¤³»¤¬É¬ÍפÀ¡£é®¤ÎÃæ¤Ç¤ÏŤ¤Éð´ï¤È½Å¤¤³»¤Ï¼ÙËâ¤Ë¤Ê¤ë¤À¤±¤À¡£")))
))
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In front of the Gate to Absalot.
+;; ¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÌç¤ÎÁ°
;;----------------------------------------------------------------------------
(define joel-bed (list 'p_gate_to_absalot 8 9 1 1))
(define joel-mealplace joel-bed)
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Joel is a simple cowherd, whose stock is grazing in front of
-;; the gates to the destroyed city of Absalot.
+;; ¥¸¥ç¥¨¥ë¤ÏÁÇËѤʵí»ô¤¤¤Ç¡¢¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÄ®¤ÎÇ˲õ¤µ¤ì¤¿Ìç¤ÎÁ°¤ÇÊüËÒ¤ò¤·¤ÆÊë
+;; ¤é¤·¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (joel-hail knpc kpc)
- (kern-log-msg "You meet a laconic herder.")
- (say knpc "Hi")
+ (kern-log-msg "¤¢¤Ê¤¿¤ÏÁÇËѤʵí»ô¤¤¤È²ñ¤Ã¤¿¡£")
+ (say knpc "¤è¤ª¡£")
)
(define (joel-default knpc kpc)
- (say knpc "Don't know, pardner."))
+ (say knpc "¤ï¤«¤é¤ó¤Ê¤¢¡¢ÁêËÀ¡£"))
(define (joel-name knpc kpc)
- (say knpc "Joel."))
+ (say knpc "¥¸¥ç¥¨¥ë¡£"))
(define (joel-join knpc kpc)
- (say knpc "Nope."))
+ (say knpc "¤¤¤ó¤ä¡£"))
(define (joel-job knpc kpc)
- (say knpc "I herd my cows here. Nice and peaceful."))
+ (say knpc "µí¤ò»ô¤Ã¤È¤ë¡£Ê¿Ï¤Ǥ¨¤¨¤³¤Ã¤¿¡£"))
(define (joel-peac knpc kpc)
- (say knpc "Yep. This is the old gate to Absalot."))
+ (say knpc "¤½¤¦¤µ¤¢¡£¤³¤³¤Ï¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÀΤÎÌç¤À¤¢¡£"))
(define (joel-absa knpc kpc)
- (say knpc "You're not thinking of going in there, are you?")
+ (say knpc "Ãæ¤ËÆþ¤ê¤¿¤¤¤Î¤±¡©")
(if (yes? kpc)
- (say knpc "Crazy. Theres nasty stuff down there.")
- (say knpc "Don't blame you.")))
+ (say knpc "¤ä¤á¤È¤±¡£²¼¤Ï¹ó¤¤ÅÛ¤¬¤¤¤Ã¤Ñ¤¤¤ª¤ë¡£")
+ (say knpc "¤½¤ì¤¬¤¨¤¨¡£")))
(define (joel-nast knpc kpc)
- (say knpc "Gazers? Undead? Who knows what else? The place was bad enough before "
- "the paladins sealed it up and left it to fester."))
+ (say knpc "¥²¥¤¥¶¡¼¡©ÉÔ»à¤Î¼Ô¡©¸å¤Ï¤ï¤«¤ó¤Í¤¨¡£"
+ "À»µ³»Î¤¿¤Á¤¬Ç¿¤ò»Ä¤·¤ÆÉõ°õ¤¹¤ëÁ°¤«¤é¡¢¤³¤³¤Ï¤Ò¤Ç¤¨½ê¤À¤Ã¤¿¡£"))
(define (joel-fest knpc kpc)
- (say knpc "Paladins from Glasdrin destroyed Absalot. And when humans get out of the way, "
- "monsters move in."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤«¤éÍ褿À»µ³»Î¤¿¤Á¤¬¥¢¥Ö¥µ¥í¥Ã¥È¤òÇ˲õ¤·¤¿¡£"
+ "¿Í¤¬¤¤¤Ê¤¯¤Ê¤Ã¤¿¤é²øʪ¤É¤â¤¬Æþ¤Ã¤Æ¤¤¿¤Î¤µ¤¢¡£"))
(define (joel-gaze knpc kpc)
- (say knpc "Mind-slavers. And whatever they're controlling. "
- "If you dont watch out you'll wind up their slaves too."))
+ (say knpc "Àº¿À¤ÎÅÛÎì¼ç¡£¤¤¤Ä¤Ç¤â¾¤ÎÅÛ¤ò»ÙÇۤǤ¤ë¤Î¤µ¤¢¡£"
+ "µ¤¤¤¤Ä¤±¤Ê¤¤¤È¡¢¤ª¤á¤¨¤âÅÛÎì¤Ë¤Ê¤ë¤¾¡£"))
(define (joel-unde knpc kpc)
- (say knpc "Ghosts, skeletons, and I'd rather not know what else."))
+ (say knpc "Í©Îî¡¢³¼¹ü¡¢¸å¤ÏÃΤꤿ¤¯¤Í¤¨¡£"))
(define (joel-bye knpc kpc)
- (say knpc "So long"))
+ (say knpc "¤¸¤ã¤¢¤Ê¤¢¡£"))
(define joel-conv
(ifc basic-conv
(bind
(kern-mk-char
'ch_joel ; tag
- "Joel" ; name
+ "¥¸¥ç¥¨¥ë" ; name
joel-species ; species
joel-occ ; occ
s_companion_shepherd ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In the Keep guarding Kurpolis.
+;; ¥¯¥í¥Ý¥ê¥¹¤ÎºÖ
;;----------------------------------------------------------------------------
(define jones-bed ph-bed1)
(define jones-mealplace ph-tbl1)
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Jones runs the supply depot for the Glasdrin militia.
-;; He is stationed in the Keep guarding Kurpolis.
+;; ¥¸¥ç¡¼¥ó¥¸¡¼¤Ï¥°¥é¥¹¥É¥ê¥ó·³¤ÎÊäµëÉôÂâ¤ÇƯ¤¤¤Æ¤¤¤ë¡£
+;; Èà¤Ï¥¯¥í¥Ý¥ê¥¹¤ÎºÖ¤Ë¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (jones-name knpc kpc)
- (say knpc "Jonesy at yer service."))
+ (say knpc "¥¸¥ç¡¼¥ó¥¸¡¼¤À¡£²¿¤Ç¤â¤É¤¦¤¾¡£"))
(define (jones-job knpc kpc)
- (say knpc "I run the Supply Depot for the Glasdrin militia. Would you like to buy some supplies?")
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó·³¤ÎÊäµëÉôÂâ¤ÇƯ¤¤¤Æ¤¤¤ë¡£²¿¤«Çã¤Ã¤Æ¤¤¤¯¤«¡©")
(if (yes? kpc)
(jones-trade knpc kpc)
- (say knpc "If you ever need any I'll be right here.")))
+ (say knpc "¤Ê¤Ë¤«¤¤¤ë¤â¤Î¤¬¤¢¤Ã¤¿¤éÍè¤Æ¤¯¤ì¡£")))
;; Trade...
(define jones-merch-msgs
- (list "Come by the Supply Depot between 9:00AM and 6:00PM."
- "I keep the basics in stock."
+ (list "¸áÁ°9»þ¤«¤é¸á¸å6»þ¤Î´Ö¤ËÊäµë´ðÃϤËÍè¤Æ¤¯¤ì¡£"
+ "´ðËÜŪ¤Êʪ¤Ï¤½¤í¤Ã¤Æ¤¤¤ë¡£"
nil
nil
- "Are you sure you have enough? You better get some more."
- "I hope you've got enough, for your sake."
+ "¤½¤ì¤Ç½½Ê¬¤«¡©¤â¤Ã¤È¤¢¤Ã¤¿Êý¤¬¤¤¤¤¤Î¤Ç¤Ï¡©"
+ "ÁõÈ÷¤Ï½½Ê¬¤Ë¤¢¤Ã¤¿Êý¤¬¤¤¤¤¤¾¡£"
))
(define jones-catalog
(list
- (list t_arrow 1 "Down here you'll go through arrows like a troll goes through grog!")
- (list t_bolt 1 "You can run out of bolts in the blink of a gazer's eye!")
- (list t_oil 6 "Yes, stock up on plenty of that flaming oil. It gets worse deeper down.")
- (list t_torch 6 "You don't want to run out of torches down here!")
- (list t_heal_potion 23 "Yes, they are spendy, but healing potions are hard to get and critical to have.")
- (list t_mana_potion 23 "You better buy extra mana potions. Your mages will be working overtime.")
- (list t_food 10 "There's nothing worse than runnning out of food when you're lost in the lower levels.")
+ (list t_arrow 1 "²¼¤Ç¤Ï¥È¥í¥ë¤¬¼ò¤ò°û¤à¤è¤¦¤ËÌð¤ò»È¤¦¤³¤È¤Ë¤Ê¤ë¤¾¡ª")
+ (list t_bolt 1 "¥²¥¤¥¶¡¼¤¬½Ö¤¤·¤Æ¤¤¤ë´Ö¤ËÃƤò»È¤¤²Ì¤¿¤·¤Æ¤·¤Þ¤¦¤À¤í¤¦¡ª")
+ (list t_oil 6 "¤½¤¦¡¢²Ð±ê¥Ó¥ó¤Ï¤¿¤¯¤µ¤ó»ý¤Ã¤Æ¤ª¤±¡£²¼¤Ï¤â¤Ã¤È¤Ò¤É¤¤¤¾¡£")
+ (list t_torch 6 "²¼¤Ç¾¾ÌÀ¤òÀڤ餻¤¿¤¯¤Ï¤Ê¤¤¤À¤í¤¦¡ª")
+ (list t_heal_potion 23 "¤½¤¦¡¢¾¯¤·¹â¤¤¡£¤À¤¬¡¢¤³¤³¤Ç¤Ï²óÉü¤ÎÌô¤Ï¼ê¤ËÆþ¤ê¤Ë¤¯¤¯¡¢¤½¤·¤ÆÀäÂФËɬÍפÀ¡£")
+ (list t_mana_potion 23 "ËâÎϤÎÌô¤Ï¿¤á¤ËÇã¤Ã¤¿¤Û¤¦¤¬¤è¤¤¡£Ãç´Ö¤ÎËâ½Ñ»Õ¤Ï¤¤¤Ä¤â¤è¤êƯ¤«¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤À¤í¤¦¡£")
+ (list t_food 10 "²¼¤ÎÁؤÇ̤俤Ȥ¡¢¿©ÎÁ¤¬¤Ê¤¯¤Ê¤Ã¤¿¤éºÇ°¤À¡£")
))
(define (jones-trade knpc kpc) (conv-trade knpc kpc "buy" jones-merch-msgs jones-catalog))
(bind
(kern-mk-char
'ch_jones ; tag
- "Jones" ; name
+ "¥¸¥ç¡¼¥ó¥¸¡¼" ; name
jones-species ; species
jones-occ ; occ
s_townsman ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Green Tower.
+;; ÎФÎÅã
;;----------------------------------------------------------------------------
(define jorn-bed gt-jorn-bed)
(define jorn-mealplace gt-ws-tbl1)
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Jorn is a bravo and former pirate, currently living in Green Tower.
-;; He was once a member of the crew of the Merciful Death,
-;; and is sought for vengeance by the ghost Ghertie.
+;; ¥¸¥ç¡¼¥ó¤Ï¸µ³¤Â±¤Î°Åޤǡ¢º£¤ÏÎФÎÅã¤Ë¤¤¤ë¡£
+;; Èà¤Ï¤«¤Ä¤Æ»üÈῼ¤¤»à¹æ¤Î¾èÁÈ°÷¤Ç¡¢Ë´Îî¤È¤Ê¤Ã¤¿¥¬¡¼¥Æ¥£Á¥Ä¹¤ËÉü½²¤Î¤¿¤áÄɤï
+;; ¤ì¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (jorn-hail knpc kpc)
- (say knpc "[You meet a rough-looking, surly man] What do you want?"))
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÏÍð˽¤½¤¦¤ÊÉÔµ¡·ù¤ÊÃˤȲñ¤Ã¤¿¡£¡Ï²¿¤À¡©"))
(define (jorn-default knpc kpc)
- (say knpc "Go bother someone else."))
+ (say knpc "¾¤òÅö¤¿¤Ã¤Æ¤¯¤ì¡£"))
(define (jorn-name knpc kpc)
- (say knpc "I'm Jorn. Heard of me?")
+ (say knpc "²¶¤Ï¥¸¥ç¡¼¥ó¤À¡£Ê¹¤¤¤¿¤³¤È¤¢¤ë¤«¡©")
(quest-data-update 'questentry-ghertie 'jorn-loc 1)
(if (yes? kpc)
- (say knpc "Good, then you've been warned.")
- (say knpc "Too bad. Don't make me make an example out of you.")))
+ (say knpc "¤½¤ê¤ã¤¤¤¤¡£·Ù¹ð¤µ¤ì¤¿¤À¤í¤¦¡©")
+ (say knpc "¤ªµ¤¤ÎÆǤˡ£²ø²æ¤·¤¿¤¯¤Ê¤¤¤À¤í¤¦¡©")))
(define (jorn-join knpc kpc)
- (say knpc "[He laughs coarsely]"))
+ (say knpc "¡ÎÈà¤ÏÎä¤ä¤ä¤«¤Ë¾Ð¤Ã¤¿¡£¡Ï"))
(define (jorn-job knpc kpc)
- (say knpc "None of your business."))
+ (say knpc "¤¢¤ó¤¿¤Ë¤Ï´Ø·¸¤Ê¤¤¤Í¡£"))
(define (jorn-bye knpc kpc)
- (say knpc "[He ignores your departure]"))
+ (say knpc "¡ÎÈà¤Ï¤¢¤Ê¤¿¤ò̵»ë¤·¤¿¡£¡Ï"))
;; Town & Townspeople
;; Quest-related
(define (jorn-pira knpc kpc)
- (say knpc "You're starting to get on my nerves."))
+ (say knpc "áû¤Ë¤µ¤ï¤ëÅÛ¤À¤Ê¡£"))
(define (jorn-ring knpc kpc)
(quest-data-update 'questentry-ghertie 'jorn-loc 1)
- (say knpc "[He gives you a cold look] What of it? Do you want it?")
+ (say knpc "¡ÎÈà¤ÏÎ䤿¤¤ÌܤǤ¢¤Ê¤¿¤ò¸«¤¿¡£¡Ï¤Ê¤Ë¡©¤³¤ì¤¬Íߤ·¤¤¤Î¤«¡©")
(if (no? kpc)
- (say knpc "Then quit staring at it.")
+ (say knpc "¤Ê¤éÌÛ¤Ã¤Æ¤í¡£")
(begin
- (say knpc "Well, you're going to have to cut it off my finger "
- "to get it. What do you think of that? Are you ready to "
- "try and cut it off my finger?")
+ (say knpc "¤Ê¤é¤Ð¤³¤Î»Ø¤òÀÚ¤é¤Í¤Ð¤Ê¤é¤ó¤Ê¡£"
+ "¤É¤¦¤À¡©ÀÚ¤ë½àÈ÷¤Ï¤Ç¤¤¿¤«¡©")
(if (no? kpc)
- (say knpc "[He sneers] I didn't think so.")
+ (say knpc "¡ÎÈà¤Ï¤¢¤¶¾Ð¤Ã¤¿¡£¡Ï¤½¤¦¤Ï»×¤ï¤Ê¤¤¤Í¡£")
(begin
- (say knpc "[With a roar, too fast for you to see, "
- "he draws his sword and thrusts at you in the same "
- "motion!]")
+ (say knpc "¡Î¶«¤ÓÀ¼¤ò¾å¤²¤ë¤È¡¢Èà¤Ï¸«¤¨¤Ê¤¤¤Û¤É¤Î®¤µ¤Ç·õ¤òÈ´¤¡¢¤¢¤Ê¤¿¤ÈƱ¤¸¤è¤¦¤ËÀÚ¤ê¤Ä¤±¤Æ¤¤¿¡ª¡Ï")
(kern-being-set-base-faction knpc faction-outlaw)
(kern-conv-end))))))
(let ((knpc
(kern-mk-char
'ch_jorn ; tag
- "Jorn" ; name
+ "¥¸¥ç¡¼¥ó" ; name
jorn-species ; species
jorn-occ ; occ
s_brigand ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; Kalcifax travels (notionally by the moon gates)
-;; to many places, carrying messages and such.
+;; ¥«¥ë¥·¥Õ¥¡¥¯¥¹¤Ï¿¤¯¤Î¾ì½ê¤ò(·î¤ÎÌç¤ò»È¤Ã¤Æ)ι¤·¡¢ÅÁ¸À¤Ê¤É¤ò±¿¤ó¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------
(define kalc-bed cheerful-bed-2)
(define kalc-mealplace )
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Kalcifax is a female wizard with considerable knowledge of the moon gates.
-;; She travels to many places (notionally by use of the gates),
-;; carrying messages and such.
-;; Kalcifax is a potential party member.
+;; ¥«¥ë¥·¥Õ¥¡¥¯¥¹¤Ï½÷À¤ÎËâ½Ñ»Õ¤Ç¡¢Â¿¤¯¤Î·î¤ÎÌç¤ÎÃ챤¬¤¢¤ë¡£
+;; Èà½÷¤Ï¿¤¯¤Î¾ì½ê¤ò(·î¤ÎÌç¤ò»È¤Ã¤Æ)ι¤·¡¢ÅÁ¸À¤Ê¤É¤ò±¿¤ó¤Ç¤¤¤ë¡£
+;; ¥«¥ë¥·¥Õ¥¡¥¯¥¹¤ÏÃç´Ö¤Ë¤Ê¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (kalc-hail knpc kpc)
- (meet "You meet a cute wizard.")
- (say knpc "Well met, fellow traveler.")
+ (meet "¡Î¤¢¤Ê¤¿¤Ï¤«¤ï¤¤¤é¤·¤¤Ëâ½Ñ»Õ¤È²ñ¤Ã¤¿¡£¡Ï")
+ (say knpc "¤³¤ó¤Ë¤Á¤Ï¡¢Î¹¿Í¤µ¤ó¡£")
)
(define (kalc-name knpc kpc)
- (say knpc "I'm Kalcifax. And you are...?")
+ (say knpc "¥«¥ë¥·¥Õ¥¡¥¯¥¹¤Ç¤¹¤ï¡£¤¢¤Ê¤¿¤Ï¡Ä¡©")
(kern-conv-get-reply kpc)
- (say knpc "It's nice to meet you.")
+ (say knpc "²ñ¤¨¤Æ¤¦¤ì¤·¤¤¤Ç¤¹¤ï¡£")
)
(define (kalc-join knpc kpc)
(if (is-player-party-member? knpc)
- (say knpc "I've already joined you!")
+ (say knpc "¤â¤¦Ãç´Ö¤Ç¤¹¤ï¡ª")
(begin
- (say knpc "Ok, this will be fun!")
+ (say knpc "¤¤¤¤¤Ç¤¹¤ï¡£³Ú¤·¤½¤¦¡ª")
(join-player knpc)
(kern-conv-end)
)
))
(define (kalc-job knpc kpc)
- (say knpc "I travel the gates, running errands for people.")
+ (say knpc "Ìç¤Çι¤ò¤·¤Æ¡¢¿Í¡¹¤Î´Ö¤òÁö¤ê²ó¤ë¤³¤È¤Ç¤¹¤ï¡£")
)
(define (kalc-bye knpc kpc)
- (say knpc "I'm sure we'll meet again!")
+ (say knpc "¤Þ¤¿²ñ¤¨¤ëµ¤¤¬¤·¤Þ¤¹¤ï¡ª")
)
(define (kalc-gate knpc kpc)
- (say knpc "The moongates! Do you know how they work?")
+ (say knpc "·î¤ÎÌç¤Ç¤¹¤ï¡£¤É¤¦¤Ê¤Ã¤Æ¤¤¤ë¤«¤´Â¸ÃΤ«¤·¤é¡©")
(if (yes? kpc)
- (say knpc "I don't know why more people don't do it.")
- (say knpc "The phase of Lumis decides where you can enter, "
- "the phase of Ord decides where you emerge!")))
+ (say knpc "¤É¤¦¤·¤Æ³§ÍͤâƱ¤¸¤è¤¦¤Ë¤·¤Ê¤¤¤Î¤«¤·¤é¡£")
+ (say knpc "¥ë¥ß¥¹¤ÎÁ꤬Æþ¤ê¸ý¤ò·è¤á¤Æ¡¢¥ª¡¼¥É¤ÎÁ꤬½Ð¸ý¤Î·è¤á¤ë¤Î¤Ç¤¹¤Î¤è¡ª")))
(define (kalc-lumi knpc kpc)
- (say knpc "Lumis is the yellow slow-moving moon."))
+ (say knpc "¥ë¥ß¥¹¤Ï²«¿§¤¯¤æ¤Ã¤¯¤êÆ°¤¯Êý¤Î·î¤Î¤³¤È¤Ç¤¹¤ï¡£"))
(define (kalc-ord knpc kpc)
- (say knpc "Ord is the blue fast-moving moon."))
+ (say knpc "¥ª¡¼¥É¤ÏÀĤ¯Â®¤¯Æ°¤¯Êý¤Î·î¤Ç¤¹¤ï¡£"))
(define (kalc-engi knpc kpc)
- (say knpc "I'm one of the only people who ever visits the Engineer! "
- "You have to use a moongate to get to his place. "
- "Enter when Ord has waxed almost full."))
+ (say knpc "»ä¤Ïµ»»Õ¤òˬÌ䤷¤¿¿ô¾¯¤Ê¤¤¼Ô¤Î°ì¿Í¤Ç¤¹¤ï¡ª"
+ "·î¤ÎÌç¤ò»È¤ï¤Ê¤±¤ì¤ÐÈà¤Î¾ì½ê¤Ë¤Ï¹Ô¤±¤Þ¤»¤ó¤Î¡£"
+ "¥ª¡¼¥É¤¬Ëþ·î¤Ë¶á¤¤¤È¤¤ËÆþ¤ì¤Ð¤è¤¤¤Î¤Ç¤¹¤ï¡£"))
(define (kalc-peop knpc kpc)
- (say knpc "I deliver messages and packages for the Engineer, the Enchanter, city officials. "
- "Anyone who needs something delivered safely and fast, and is willing to pay!"))
+ (say knpc "ËâÆ»»Õ¤äµ»»Õ¡¢Ä®¤ÎÌò¿Í¤ÎÅÁ¸À¤òÅÁ¤¨¤Æ¤¤¤Þ¤¹¤Î¡£"
+ "°ÂÁ´¤ÇÁ᤯²¿¤«¤ò±¿¤ÖɬÍפ¬¤¢¤ë¡¢Âå¶â¤ò»Ùʧ¤Ã¤Æ¤¯¤ì¤ëÊý¤Ê¤éï¤Ç¤â¤Ç¤¹¤ï¡ª"))
(define (kalc-pay knpc kpc)
- (say knpc "I do pretty good."))
+ (say knpc "¤Ê¤«¤Ê¤«¤Î²Ô¤®¤Ë¤Ê¤ê¤Þ¤¹¤ï¡£"))
(define kalc-conv
(ifc basic-conv
;; basics
+ (method 'default (lambda (knpc kpc) (say knpc "¤É¤¦¤«¤·¤é¡£")))
(method 'hail kalc-hail)
(method 'bye kalc-bye)
(method 'job kalc-job)
(bind
(kern-mk-char
'ch_kalc ; tag
- "Kalcifax" ; name
+ "¥«¥ë¥·¥Õ¥¡¥¯¥¹" ; name
kalc-species ; species
kalc-occ ; occ
s_blue_wizard
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In a prison cell in the dungeons below Green Tower.
+;; ÎФÎÅã¤ÎÃϲ¼¤ÎÆÈ˼
;;----------------------------------------------------------------------------
(define kama-cell gtl-cell1)
(kern-mk-sched 'sch_kama
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Kama is a male Forest Goblin ranger, currently imprisoned below Green Tower.
-;; A friend of Gen, Kama was enroute to a meeting, and detained due to
-;; some misadventure.
-;; Kama is a potential party member,
-;; if the player can learn a bit of the Goblin language.
+;; ¥«¥Þ¤Ï¿¹¥´¥Ö¥ê¥ó¤Î¼í¿Í¤ÎÃËÀ¤Ç¡¢º£¤ÏÎФÎÅã¤ÎÃϲ¼¤Ë¼ýÍƤµ¤ì¤Æ¤¤¤ë¡£
+;; ¥¸¥§¥ó¤Îͧ¿Í¤Ç¡¢¥«¥Þ¤Ï²ñ¤¤¤ËÍè¤ëÅÓÃæ¤ËÉÔ±¿¤Ë¤â¹´Â«¤µ¤ì¤¿¡£
+;; ¥´¥Ö¥ê¥ó¸ì¤¬¾¯¤·¤ï¤«¤ì¤Ð¡¢¥«¥Þ¤ÏÃç´Ö¤Ë¤Ê¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (kama-default knpc kpc)
- (say knpc "[no response]"))
+ (say knpc "¡ÎÈ¿±þ¤¬¤Ê¤¤¡£¡Ï"))
(define (kama-hail knpc kpc)
- (meet "You meet a calm goblin who regards you with a fearless, calculating gaze.")
+ (meet "¡Î¤¢¤Ê¤¿¤ÏÍî¤ÁÃ夤¤¿ÍͻҤΥ´¥Ö¥ê¥ó¤È²ñ¤Ã¤¿¡£¶²¤ì¤ëÍͻҤϤʤ¯¡¢¹Í¤¨¹þ¤ó¤Ç¤¤¤ë¤è¤¦¤ÊÌܤǤ³¤Á¤é¤ò¸«¤Æ¤¤¤ë¡£¡Ï")
(if (kama-gave-food? (gob knpc))
- (say knpc "Bonaha.")
- (say knpc "Nuki?")
+ (say knpc "¥Ü¥Ê¥Ï¡£")
+ (say knpc "¥Ì¥¡©")
))
(define (kama-bye knpc kpc)
- (say knpc "[his expression never changes]"))
+ (say knpc "¡ÎÈà¤Îɽ¾ð¤ÏÊѤï¤é¤Ê¤«¤Ã¤¿¡£¡Ï"))
;; No == Name
(define (kama-no knpc kpc)
(if (kama-gave-food? (gob knpc))
- (say knpc "[He points to himself] Kama.")
+ (say knpc "¡ÎÈà¤Ï¼«Ê¬¤ò»Øº¹¤·¤¿¡£¡Ï¥«¥Þ¡£")
(kama-default knpc kpc)))
;; Me == Job
(if (not (kama-gave-food? (gob knpc)))
(kama-default knpc kpc)
(begin
- (say knpc "Ninto. [He points to you] Zuto?")
+ (say knpc "¥Ë¥ó¥È¡£¡ÎÈà¤Ï¤¢¤Ê¤¿¤ò»Øº¹¤·¤¿¡£¡Ï¥º¥È¡©")
(if (yes? kpc)
- (say knpc "[He nods]")
- (say knpc "[He chuckles as if he disbelieves you]")))))
+ (say knpc "¡ÎÈà¤Ï¤¦¤Ê¤º¤¤¤¿¡£¡Ï")
+ (say knpc "¡ÎÈà¤Ï¤¢¤Ê¤¿¤òµ¿¤¦¤è¤¦¤ÊÌܤǾФä¿¡£¡Ï")))))
;; Jo == Join
(define (kama-jo knpc kpc)
(or (door-locked? gob)
(door-magic-locked? gob)))))))
(define (rejoin)
- (say knpc "Ha! Iki!")
+ (say knpc "¥Ï¡ª¥¤¥¡ª")
(join-player knpc)
(kern-conv-end)
)
- (define (join-first-time)
- (say knpc "Hajo! Bona ka ruka!")
- (say knpc "[On the ground, he scratches what looks to be a map of the Great Forest area. Where the southern edge of the forest meets the eastern mountains, he marks an X several times for emphasis.]")
- (quest-data-update-with 'questentry-rune-f 'angriss 1 (quest-notify nil))
+ (define (join-first-time)
+ (say knpc "¥Ï¥¸¥ç¡ª¥Ü¥Ê¡¡¥«¡¡¥ë¥«¡ª")
+ (say knpc "¡Î¾²¤Î¾å¤Ë¿¹¤ÎÊÕ¤ê¤ÎÃϿޤΤ褦¤Ê¤â¤Î¤òÉÁ¤¡¢¤½¤·¤Æ¿¹¤ÎÆîü¤¬Åì¤Î»³Ì®¤ÈÀܤ¹¤ë½ê¤ËÎϤò¹þ¤á¤Æ²¿ÅÙ¤â¥Ð¥Ä°õ¤òÉÁ¤¤¤¿¡£¡Ï")
+ (quest-data-update-with 'questentry-rune-f 'angriss 1 (quest-notify nil))
(kama-joined-once! (gob knpc))
(join-player knpc)
;; Improve the player's relations with forest goblins
(kern-conv-end)
)
(if (is-player-party-member? knpc)
- (say knpc "[He looks confused] Ha...")
+ (say knpc "¡ÎÈà¤Ïº¤ÏǤ·¤¿ÍͻҤÀ¡£¡Ï¥Ï¡Ä¡£")
(if (kama-joined-once? (gob knpc))
(rejoin)
(if (not (kama-gave-food? (gob knpc)))
(kama-default knpc kpc)
(if (door-still-locked?)
- (say knpc "[He points to the cell door and shrugs, maybe if you opened it...]")
+ (say knpc "¡ÎÈà¤ÏÆÈ˼¤ÎÈâ¤ò»Øº¹¤·¡¢¸ª¤ò¤¹¤¯¤á¤¿¡£¡Ï")
(join-first-time)
)))))
(define (kama-food knpc kpc)
- (kern-log-msg "[Do you give him some food?]")
+ (kern-log-msg "¡ÎÈà¤Ë¿©ÎÁ¤òÍ¿¤¨¤ë¡©¡Ï")
(define (no-food)
- (say knpc "[He grunts and turns away]")
+ (say knpc "¡ÎÈà¤Ï¤¦¤Ê¤êÀ¼¤ò¤¢¤²´é¤òÇؤ±¤¿¡£¡Ï")
(kern-conv-end))
(define (yes-food)
(kama-gave-food! (gob knpc))
- (say knpc "[He gobbles it down hungrily and smacks his lips] "
- "Ha nuki! [He points to you] Bonaha."))
+ (say knpc "¡ÎÈà¤Ï¤½¤ì¤ò¥¬¥Ä¥¬¥Ä¤È¿©¤Ù¤¿¡£¡Ï"
+ "¥Ï¡¡¥Ì¥¡ª¡ÎÈà¤Ï¤¢¤Ê¤¿¤ò»Øº¹¤·¤¿¡£¡Ï¥Ü¥Ê¥Ï¡£"))
(if (yes? kpc)
(if (> (get-food-donation knpc kpc) 0)
(yes-food)
(if (not (kama-gave-food? (gob knpc)))
(kama-default knpc kpc)
(if (any-in-inventory? kpc rune-types)
- (say knpc "[You show him a Rune. He nods uneasily] Ruka.")
- (say knpc "[He looks confused as you try to describe a Rune]"))))
+ (say knpc "¡Î¤¢¤Ê¤¿¤¬ÀÐÈǤò¸«¤»¤ë¤È¡¢Èà¤ÏÉ԰¤²¤Ë¤¦¤Ê¤º¤¤¤¿¡£¡Ï¥ë¥«¡£")
+ (say knpc "¡ÎÀÐÈǤˤĤ¤¤ÆÀâÌÀ¤·¤è¤¦¤È¤·¤¿¤¬¡¢Èà¤Ïº¤ÏǤ·¤Æ¤¤¤ë¤è¤¦¤À¡£¡Ï"))))
;; Ruka == Rune
;; Having a goblin spout out *sextant coordinates* is just daft. Changing to something descriptive
(define (kama-ruka knpc kpc)
(if (kama-joined-once? (gob knpc))
(begin
- (say knpc "Iki ruka.")
- (say knpc "[On the ground, he scratches what looks to be a map of the Great Forest area. Where the southern edge of the forest meets the eastern mountains, he marks an X several times for emphasis.]")
+ (say knpc "¥¤¥¡¡¥ë¥«¡£")
+ (say knpc "¡Î¾²¤Î¾å¤Ë¿¹¤ÎÊÕ¤ê¤ÎÃϿޤΤ褦¤Ê¤â¤Î¤òÉÁ¤¡¢¤½¤·¤Æ¿¹¤ÎÆîü¤¬Åì¤Î»³Ì®¤ÈÀܤ¹¤ë½ê¤ËÎϤò¹þ¤á¤Æ²¿ÅÙ¤â¥Ð¥Ä°õ¤òÉÁ¤¤¤¿¡£¡Ï")
(quest-data-update-with 'questentry-rune-f 'angriss 1 (quest-notify nil))
)
(begin
- (say knpc "[In the dust on the cell floor he draws a circle with jointed legs. A spider. He then points to you, himself, and then he scuffs out the spider.]")
+ (say knpc "¡ÎÈà¤ÏÆÈ˼¤Î¾²¤Î¤Û¤³¤ê¤Ë´Ý¤È¡¢¤½¤ì¤Ë¤Ä¤Ê¤¬¤Ã¤¿Àþ¤òÉÁ¤¤¤¿¡£¤½¤ì¤Ï¥¯¥â¤Î¤è¤¦¤À¤Ã¤¿¡£¤½¤ì¤«¤éÈà¤Ï¤¢¤Ê¤¿¤È¼«Ê¬¤ò»Øº¹¤·¡¢¥¯¥â¤Î³¨¤ò¾Ã¤·¤¿¡£¡Ï")
(prompt-for-key)
- (say knpc "[You get the impression he is proposing an alliance with you against the spider, or whatever it is.]"))))
+ (say knpc "¡Î¤É¤¦¤ä¤éÈà¤Ï¤¢¤Ê¤¿¤Ë²Ã¤ï¤ê¥¯¥â¤ÈÀ臘¤³¤È¤òÄó°Æ¤·¤Æ¤¤¤ë¤è¤¦¤À¡£¡Ï"))))
;; King Clovis (leader of the human forces in the war against the Goblins, one generation ago.
(define (kama-clov knpc kpc)
(if (not (kama-gave-food? (gob knpc)))
(kama-default knpc kpc)
- (say knpc "[He looks puzzled at first, but then nods] Ruka ka choto.")))
+ (say knpc "¡ÎÈà¤ÏºÇ½é¤Ï¤ï¤«¤é¤Ê¤¤¤è¤¦¤À¤Ã¤¿¡£¤À¤¬¡¢Èà¤Ï¤¦¤Ê¤º¤¤¤Æ¸À¤Ã¤¿¡£¡Ï¥ë¥«¡¡¥«¡¡¥Á¥ç¥È¡£")))
(define (kama-leav knpc kpc)
(if (is-player-party-member? knpc)
(begin
- (say knpc "Kama tujo?")
+ (say knpc "¥«¥Þ¡¡¥Ä¥¸¥ç¡©")
(if (yes? kpc)
(begin
(if (kern-char-leave-player knpc)
(begin
- (say knpc "Kama iki")
+ (say knpc "¥«¥Þ¡¡¥¤¥¡£")
(kern-conv-end))
- (say knpc "Kama tu iki")))
- (kern-log-msg "[He looks relieved]")))
- (kern-log-msg "[He looks confused]")))
+ (say knpc "¥«¥Þ¡¡¥Ä¡¡¥¤¥¡£")))
+ (kern-log-msg "¡ÎÈà¤Ï°Â¿´¤·¤¿¤è¤¦¤À¡£¡Ï")))
+ (kern-log-msg "¡ÎÈà¤Ïº®Í𤷤Ƥ¤¤ë¤è¤¦¤À¡£¡Ï")))
;; Shakespeare
(define (kama-zukakiguru knpc kpc)
(begin
- (say knpc "Ha! Zukakiguru!")
- (aside kpc 'ch_gen "We share a common interest, you see.")
- (say knpc "[He looks at your puzzled expression, and tries again, speaking slowly.] Zu-Ka Ki-Gi-Ru, Choguha Zuluma: Nu Hameluto!")
- (aside kpc 'ch_gen "Imagine my astonishment, when I learned of the true author!")
+ (say knpc "¥Ï¡ª¥º¥«¥¥°¥ë¡ª")
+ (aside kpc 'ch_gen "¤½¤¦¡¢»ä¤¿¤Á¤Î¶¦Ä̤δؿ´¤´¤È¤Ç¤¹¡£")
+ (say knpc "¡ÎÈà¤Ï¤¢¤Ê¤¿¤Îº¤¤Ã¤¿´é¤Ä¤¤ò¸«¤Æ¡¢¤æ¤Ã¤¯¤ê¤È¸À¤¤Ä¾¤·¤¿¡£¡Ï¥º¡¦¥«¡¡¥¡¦¥°¡¦¥ë¡¢¥Á¥ç¥°¥Ï¡¡¥º¥ê¥å¥Þ¡§¥Ì¡¡¥Ï¥á¥ê¥å¥È¡ª")
+ (aside kpc 'ch_gen "ËÜÅö¤Îºî¼Ô¤òÃΤ俤Ȥ¤Î¶Ã¤¤òÁÛÁü¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡ª")
))
;; Hameluto == Good/yes/skillful, Destiny change individual (Prince Hamlet)
(define (kama-hameluto knpc kpc)
(begin
- (say knpc "Hameluto? Ha! [Kama changes expression, and then again addresses you, with a serious aspect.]")
- (aside kpc 'ch_gen "You are in for a treat, to hear it in the original! [Gen watches with devoted interest.]")
+ (say knpc "¥Ï¥á¥ê¥å¥È¡©¥Ï¡ª¡Î¥«¥Þ¤Î¸À¤¤Êý¤¬ÊѤï¤Ã¤¿¡£¤½¤·¤Æ¿¿·õ¤Ê´é¤Ä¤¤ÇºÆ¤Ó¤¢¤Ê¤¿¤ÎÊý¤ò¸þ¤¤¤¿¡£¡Ï")
+ (aside kpc 'ch_gen "¤¢¤Ê¤¿¤Ëʹ¤«¤»¤Æ¤¯¤ì¤ë¤½¤¦¤Ç¤¹¤è¡ª¡Î¥¸¥§¥ó¤Ï¶½Ì£¿¼¤½¤¦¤Ë¸«¤Æ¤¤¤ë¡£¡Ï")
+ (prompt-for-key)
+ (say knpc "¥Ì¥Ü¥À¡©¥Ä¥Ü¥À¡©¥¨¡¼¥°¥ê¥å¡ª")
+ (aside kpc 'ch_gen "À¸¤¤ë¤Ù¤¤«¡¢»à¤Ì¤Ù¤¤«¡£¤½¤ì¤¬ÌäÂê¤À¡ª")
- (say knpc "Nuboda? Tuboda? Ehgulu!")
- (aside kpc 'ch_gen "To be, or not to be. That is the question!")
+ (say knpc "¥Ü¥°¡¡¥Ï¥Ò¥á¡¢¥Ê¥Ä¥À¡¢¥«¥Þ¥Ê¡¢¥ë¥ê¥å¥Þ¥À¡©")
+ (aside kpc 'ch_gen "¤É¤Á¤é¤¬µ¤¹â¤¤¤Ç¤¢¤í¤¦¤«¡©ÈóÆ»¤Ê±¿Ì¿¤Î¤Ä¤Ö¤Æ¤ÈÌð¤ËÂѤ¨¤ë¤«¡¢")
- (say knpc "Bogu Hahime, Natuda, Kamana, Rulumada?")
- (aside kpc 'ch_gen "Whether 'tis nobler in the mind, to suffer the slings and arrows of outrageous fortune?")
+ (say knpc "¥¨¡¼¡¢¥Ü¥á¥«¡¢¥¤¥¥«¥Á¥ç¡¢¥«¥Ä¥Á¥ç¡ª")
+ (aside kpc 'ch_gen "·õ¤ò¼è¤êº¤Æñ¤Î³¤¤ËΩ¤Á¸þ¤«¤¤¤³¤ì¤ò½ª¤¨¤ë¤«¡£")
- (say knpc "Eh, Bomeka Darutu, Ikikacho, Katucho!")
- (aside kpc 'ch_gen "Or to take arms against a sea of troubles, and by opposing end them?")
-
- (say knpc "[He seems prepared to go on at some length, do you wish to listen to the entire recital?]")
+ (say knpc "¡ÎÈà¤Ï¤½¤Î¤Þ¤ÞŤ¤´Ö¸ì¤ë¤Ä¤â¤ê¤Î¤è¤¦¤À¡£Ï¯ÆɤòºÇ¸å¤Þ¤Çʹ¤¯¤«¡©¡Ï")
(if (yes? kpc)
- (say knpc "[You listen in amazement, for quite some time.]")
- (say knpc "Bona iki? Ha! [He ceases, seemingly content to wait for a more opportune moment.]")
+ (say knpc "¡Î¤½¤Î¸å¡¢¶Ã¤¯¤Û¤ÉŤ¤´Ö¸ì¤ê³¤±¤¿¡£¡Ï")
+ (say knpc "¥Ü¥Ê¡¡¥¤¥¡©¥Ï¡ª¡ÎÈà¤Ï»ß¤á¤¿¤¬¡¢¤â¤Ã¤È¸ì¤ê¤¿¤¤¤è¤¦¤À¤Ã¤¿¡£¡Ï")
)
- (aside kpc 'ch_gen "The essence of the play comes through more clearly in the original, don't you think?")
+ (aside kpc 'ch_gen "¤³¤Î·à¤Î³Ë¿´¤ÎÉôʬ¤Ï¡¢¸µ¤è¤ê¤âÌÀÎƤˤʤäƤ¤¤ë¤È»×¤¤¤Þ¤»¤ó¤«¡©")
))
(define kama-conv
(bind
(kern-mk-char
'ch_kama ; tag
- "Kama" ; name
+ "¥«¥Þ" ; name
kama-species ; species
kama-occ ; occ
s_fgob_civilian ; sprite
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Kathryn is a female mercenary wizard, currently in Bole on a mission
-;; to retrieve the Rune of Knowledge from the thief (Mouse) contracted to
-;; purloin it from the Enchanter...and ensure he tells no tales.
-;; She is manipulative and ruthless.
+;; ¥¥ã¥¹¥ê¥ó¤Ï¶¯Íߤʽ÷À¤ÎËâ½Ñ»Õ¤Ç¡¢ËâÆ»»Õ¤«¤éÎϤÎÀÐÈǤòÅð¤à¤³¤È¤ò·ÀÌó¤·¤¿Å¥
+;; ËÀ(¥Í¥º¥ß)¤«¤é¤½¤ì¤ò¼è¤êÌ᤹¤¿¤á¥Ü¥ì¤Ë¤¤¤ë¡£¡Ä³Î¼Â¤ËËâÆ»»Õ¤Ï²¿¤âÏ䷤Ƥ¤¤Ê
+;; ¤¤¡£
+;; Èà½÷¤Ï¸ý¤¬¤¦¤Þ¤¯¡¢Îä¹ó¤Ç¤¢¤ë¡£
;;
-;; Kathryn is a potential party member (and an eventual betrayer).
-;; She is accompanied by the brute Thud, who will join the party if she does.
+;; ¥¥ã¥¹¥ê¥ó¤ÏÃç´Ö¤Ë¤Ê¤ë(¤½¤·¤ÆºÇ¸å¤Ë¤Ï΢ÀÚ¤ë)¡£
+;; Èà½÷¤Ë¤Ï¹Ó¡¹¤·¤¤¥É¥ó¤¬¤Ä¤¤¤Æ¤¤¤Æ¡¢Èà½÷¤¬Ãç´Ö¤Ë¤Ê¤ì¤ÐÈà¤âÃç´Ö¤Ë¤Ê¤ë¡£
;;----------------------------------------------------------------------------
(define (kathryn-hail knpc kpc)
- (say knpc "[You meet a lovely woman who regards you with contempt]. Yes?"))
+ (say knpc "¡Î¤¢¤Ê¤¿¤ò·ÚÊΤÎÌܤǸ«¤ë¤¤ì¤¤¤Ê½÷À¤È²ñ¤Ã¤¿¡£¡Ï¤Ï¤¤¡©"))
(define (kathryn-default knpc kpc)
- (say knpc "[She studiously ignores you]"))
+ (say knpc "¡ÎÈà½÷¤Ï¤¢¤Ê¤¿¤ò¤ï¤¶¤È̵»ë¤·¤¿¡£¡Ï"))
(define (kathryn-name knpc kpc)
- (say knpc "I don't give my name to vagabonds. Say, why don't you go PUMP "
- "one of the locals for information? I saw some farm animals on the "
- "way in..."))
+ (say knpc "¤è¤½¼Ô¤Ë¤Ï̾Á°¤ò¸À¤ï¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤¤¤ë¤Î¡£"
+ "¤½¤ì¤è¤ê¡¢ÃΤꤿ¤¤¤³¤È¤¬¤¢¤ì¤ÐÊ̤ÎÅۤˤ¤¤Ê¤µ¤¤¤è¡£"
+ "²ÈÃܤ¬¤¿¤¯¤µ¤ó¤¤¤ëÊÕ¤ê¤Î¡Ä¡£"))
(define (kathryn-join knpc kpc)
- (say knpc "[She chokes with laughter]"))
+ (say knpc "¡ÎÈà½÷¤Ï¤à¤»¤ë¤Û¤É¾Ð¤Ã¤¿¡£¡Ï"))
(define (kathryn-job knpc kpc)
- (say knpc "[Sneering] I'm a nun. Blowjobs are 500 gold."))
+ (say knpc "¡Î¤¢¤¶¾Ð¤¤¤Ê¤¬¤é¡Ï½¤Æ»½÷¤è¡£¶â²ß500Ëç¤Ç¤´Êô»Å¤·¤Þ¤·¤ç¤¦¤«¡©"))
(define (kathryn-blowjob knpc kpc)
- (say knpc "It's called SARCASM. Beat it, creep."))
+ (say knpc "·ùÌ£¤è¡£¤µ¤Ã¤µ¤È¾Ã¤¨¤Ê¤µ¤¤¡£"))
(define (kathryn-clients knpc kpc)
- (say knpc "My clients prefer to remain anonymous. All you need to know is "
- "that you don't want to piss them off."))
+ (say knpc "»ä¤ÎµÒ¤Ï̾Á°¤òÌÀ¤«¤µ¤Ê¤¤¤â¤Î¤è¡£"
+ "¤¿¤À°ì¤ÄÃΤäƤª¤¯¤Ù¤¤Ê¤Î¤Ï¡¢Èà¤é¤òÅܤ餻¤Æ¤Ï¤Ê¤é¤Ê¤¤¤È¤¤¤¦¤³¤È¤è¡£"))
(define (kathryn-things knpc kpc)
- (say knpc "I'm afraid a thug like you wouldn't understand."))
+ (say knpc "¤¢¤Ê¤¿¤Î¤è¤¦¤Ê¿Í¤Ë¤Ï¤ï¤«¤é¤Ê¤¤¥â¥Î¤è¡£"))
(define (kathryn-thief knpc kpc)
- (say knpc "[She gives you a cunning look] You know, perhaps we can help "
- "each other. I came here on behalf of my clients to purchase an item "
- "in good faith from an anonymous seller."))
+ (say knpc "¡ÎÈà½÷¤ÏàÄàѤÊÌܤǤ¢¤Ê¤¿¤ò¸«¤¿¡£¡Ï¤Ê¤ë¤Û¤É¤Í¡£¤â¤·¤«¤¹¤ë¤È¶¨ÎϤ·¹ç¤¨¤ë¤«¤â¤·¤ì¤Ê¤¤¡£"
+ "¤³¤³¤Ø¤ÏµÒ¤ÎÂå¤ï¤ê¤Ë̾Á°¤òÌÀ¤«¤µ¤Ê¤¤Çä¿Í¤«¤é¥â¥Î¤ò»ÅÆþ¤ì¤ë¤¿¤á¤ËÍ褿¤Î¡£"))
(define (kathryn-seller knpc kpc)
- (say knpc "Imagine my shock when I discovered the item was stolen! "
- "Of course, I demanded that he hand over the item immediately so I "
- "could return it to its rightful owner. No sooner did I make my "
- "intentions clear when he vanished before my eyes!"))
+ (say knpc "¥â¥Î¤¬Åð¤Þ¤ì¤¿¤È¤ï¤«¤Ã¤¿¤È¤¤Î¥·¥ç¥Ã¥¯¤òÁÛÁü¤·¤Æ¤ß¤Æ¡ª"
+ "¶â¤È°ú¤´¹¤¨¤Ë¥â¥Î¤òÍ׵ᤷ¤¿¤é¡¢¤¹¤°¤ËÌܤÎÁ°¤«¤é¾Ã¤¨¤¿¤Î¤è¡ª"))
(define (kathryn-vanish knpc kpc)
- (say knpc "Poof! Gone! The villian must have a ring of invisibility. "
- "Thud and I have been searching for him everywhere."))
+ (say knpc "¥Ñ¥Ã¤È¡ª¤¤¤Ê¤¯¤Ê¤Ã¤¿¡ªÆ©ÌÀ¤Î»ØÎؤò»ý¤Ã¤Æ¤¤¤¿¤Ë°ã¤¤¤Ê¤¤¡£"
+ "¥É¥ó¤È°ì½ï¤Ë¤½¤³¤é¤¸¤å¤¦¤òõ¤·¤¿¤ï¡£"))
(define (kathryn-search knpc kpc)
(define (do-join)
- (say knpc "Excellent! Let's see if anyone around here knows about a thief.")
+ (say knpc "¤¹¤Ð¤é¤·¤¤¡ª¤³¤Î¤¢¤¿¤ê¤ÇÅ¥ËÀ¤Ë¤Ä¤¤¤Æ²¿¤«ÃΤäƤ¤¤ë¤«Ê¹¤¤¤Æ¤ß¤Þ¤·¤ç¤¦¡£")
(if (in-inventory? knpc t_wis_quas_scroll)
(begin
- (say knpc "Oh, this scroll may come in handy. "
- "You take it, I really don't understand these magical "
- "thingies very well.")
+ (say knpc "¤¢¤¢¡¢¤³¤Î´¬Êª¤Ï¤¤Ã¤ÈÌò¤ËΩ¤Ä¤ï¡£"
+ "»ý¤Ã¤Æ¤ª¤¤¤Æ¡£¤³¤ÎËâË¡¤ÎÅۤϤ褯¤ï¤«¤é¤Ê¤¤¤±¤É¡£")
(kern-obj-remove-from-inventory knpc t_wis_quas_scroll 1)
(kern-obj-add-to-inventory kpc t_wis_quas_scroll 1)))
(kern-char-join-player knpc)
(if (and (defined? 'ch_thud)
(is-alive? ch_thud))
(begin
- (say knpc "You won't mind if my cousin Thud joins us. "
- "He's really such a child, and quite helpless without me.")
+ (say knpc "¿ÆÀ̤Υɥó¤â²Ã¤ï¤Ã¤Æ¤¤¤¤¤«¤·¤é¡£"
+ "¤³¤¤¤Ä¤Ï¥¬¥¤ß¤¿¤¤¤Ê¤â¤Î¤Ç¡¢»ä¤¬¤¤¤Ê¤¤¤È¤É¤¦¤·¤è¤¦¤â¤Ê¤¤¤«¤é¡£")
(kern-char-join-player ch_thud)))
(kern-conv-end))
- (say knpc "It seems we have a common goal. Join us, and when we catch the "
- "villian we'll all return the item. You can keep any reward. "
- "Knowing that we have done the right thing will "
- "be enough for me and Thud. What do you say, tough guy, will you join "
- "us?")
+ (say knpc "»ä¤¿¤Á¤ÎÌÜŪ¤ÏƱ¤¸¤è¤¦¤Í¡£¼ê¤òÁȤó¤Ç°ÅÞ¤òÊá¤Þ¤¨¤Æ¥â¥Î¤ò¼è¤êÊÖ¤·¤Þ¤·¤ç¤¦¡£"
+ "Ê󽷤ϽФ¹¤ï¡£"
+ "¤â¤·¥â¥Î¤ò¼è¤êÌ᤻¤ì¤Ð¡¢»ä¤È¥É¥ó¤Ë¤Ï½½Ê¬¤Ê³Û¤Ë¤Ê¤ë¤Î¡£"
+ "¤É¤¦¡©¥¿¥Õ¤ÊÊý¡£Ãç´Ö¤Ë²Ã¤ï¤é¤Ê¤¤¡©")
(if (kern-conv-get-yes-no? kpc)
(do-join)
(begin
- (say knpc "[She becomes distressed] Oh, please won't you help me! "
- "My masters are powerful and cruel! If I don't return with the "
- "item they seek there will be nowhere I can hide in this life "
- "or the next! Won't you please join me?")
+ (say knpc "¡ÎÈà½÷¤ÏÆ°Íɤ·¤¿¡£¡Ï¤¢¤¢¡¢¤É¤¦¤«½õ¤±¤Æ¡ª"
+ "»ä¤Î¥Ü¥¹¤Ï¶¯¤¯¤ÆÍð˽¤Ê¤Î¡ª"
+ "¤â¤·Ãµ¤·¤Æ¤¤¤ë¥â¥Î¤¬¼è¤êÊÖ¤»¤Ê¤±¤ì¤Ð¡¢°ìÀ¸±£¤ì¤ÆÀ¸¤¤Æ¤¤¤«¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡ª"
+ "¤É¤¦¤«Ãç´Ö¤Ë²Ã¤ï¤Ã¤Æ¡©")
(if (kern-conv-get-yes-no? kpc)
(do-join)
(begin
- (say knpc "[She leans close with parted lips and lidded eyes] "
- "Okay, tough guy, you win. I don't want the silly item. "
- "I just find you irresistible. Let me come with you, "
- "pretty-please? I can be oh... so... grateful...")
+ (say knpc "¡ÎÈà½÷¤Ï¿°¤È¤Þ¤Ä¤²¤ò¶á¤Å¤±¤¿¡£¡Ï"
+ "¤¨¤¨¡¢¥¿¥Õ¤ÊÊý¡£¤¢¤Ê¤¿¤Î¾¡¤Á¤è¡£¤¯¤À¤é¤Ê¤¤¥â¥Î¤Ï¤É¤¦¤Ç¤â¤¤¤¤¡£"
+ "¤¢¤Ê¤¿°Ê³°¤Ë¤Ï¤¤¤Ê¤¤¤Î¤è¡£°ì½ï¤Ëõ¤·¤Þ¤·¤ç¤¦¡£"
+ "¤É¤¦¤«¤ª´ê¤¤¡£¤ª´ê¤¤¤·¤Þ¤¹¡Ä¡£")
(if (kern-conv-get-yes-no? kpc)
(do-join)
- (say knpc "[She turns red and shrieks with rage] Fool! "
- "You have no idea who you are dealing with! What you "
- "seek draws the gaze of the darkest wizards in the "
- "land! That thief will know eternal torment when we "
- "catch him! And YOU HAD BETTER STAY OUT OF OUR WAY!")
+ (say knpc "¡ÎÈà½÷¤ÏÅܤê¤Ç´é¤òÀÖ¤¯¤·¡¢¶âÀÚ¤êÀ¼¤ò¾å¤²¤¿¡£¡Ï¥Ð¥«¡ª"
+ "²ò·è¤¹¤ëÊýË¡¤¬¤Ê¤¤¤¯¤»¤Ë¡ª"
+ "¤¢¤Ê¤¿¤¬Ãµ¤·¤Æ¤¤¤ë¤Î¤Ï¡¢¤³¤ÎÃϤǺǤâ°Å¤Ëâ½Ñ»Õ¤¬âˤó¤Ç¤¤¤ëʪ¤Ê¤Î¤è¡ª"
+ "Å¥ËÀ¤òÊá¤Þ¤¨¤Æ±Ê±ó¤Î¶ìÄˤòÍ¿¤¨¤Æ¤ä¤ë¤ï¡ª"
+ "¤¢¤Ê¤¿¤Ï´Ø¤ï¤é¤Ê¤¤¤Û¤¦¤¬¿È¤Î¤¿¤á¤è¡ª")
(kern-conv-end)))))))
(define (kathryn-tavern knpc kpc)
- (say knpc "Nice place. If you're a cockroach."))
+ (say knpc "¤¤¤¤½ê¤è¡£¤¢¤Ê¤¿¤¬¥´¥¥Ö¥ê¤Ê¤é¤Í¡£"))
(define (kathryn-companion knpc kpc)
- (say knpc "Thud? He's my... cousin."))
+ (say knpc "¥É¥ó¡©»ä¤Î¡Ä¿ÆÀ̤衣"))
(define (kathryn-cousin knpc kpc)
- (say knpc "A DISTANT cousin."))
+ (say knpc "±ó¤¤¿ÆÀÌ¡£"))
(define (kathryn-bill knpc kpc)
- (say knpc "The village idiot? He's probably out using his tool in the "
- "forest. Why don't you go give him a hand?"))
+ (say knpc "¤¢¤Î¼¤Î¥Ð¥«¡©¤¤Ã¤È¿¹¤ÇÆ»¶ñ¤ò»È¤¦¤¿¤á¤Ë½Ð¤Æ¹Ô¤Ã¤¿¤Î¤Ç¤·¤ç¤¦¡£"
+ "°ì½ï¤Ë¹Ô¤Ã¤Æ¤¤¿¤é¡©"))
(define (kathryn-hackle knpc kpc)
- (say knpc "Crazy bitch? Lives across the creek? I'm afraid she can't cure "
- "ugly. Sorry."))
+ (say knpc "¤¢¤Î¥¤¥«¥ì¤¿»ó¸Ñ¡©¾®À¸òº¹¤¹¤ë½ê¤Ë¤¤¤ë¡©"
+ "¤¢¤Î½¹¤µ¤Ï¼£¤é¤Ê¤¤¤Ç¤·¤ç¤¦¤Í¡£»ÄÇ°¤À¤±¤É¡£"))
(define (kathryn-may knpc kpc)
- (say knpc "The innkeeper? Nosy old crone. Obviously you don't have money, "
- "but if you did I'd warn you to sleep with it under your pillow."))
+ (say knpc "½É²°¤Î¡©Á§º÷¹¥¤¤Î¥Ð¥Ð¥¢¤è¡£¤¢¤Ê¤¿¤Ï¶â¤ò»ý¤Ã¤Æ¤Ê¤µ¤½¤¦¤À¤±¤É¡¢"
+ "¤â¤·»ý¤Ã¤Æ¤¤¤ì¤Ð¡¢¿²¤ë¤È¤¤ÏËí¤Î²¼¤Ë±£¤·¤Æ¤ª¤¯¤³¤È¤Í¡£"))
(define (kathryn-melvin knpc kpc)
- (say knpc "The cook? A dirty old man and a drunk."))
+ (say knpc "ÎÁÍý¿Í¤Î¡©±ø¤¤°û¤ó¤À¤¯¤ì¤Îǯ´ó¤ê¤è¡£"))
(define (kathryn-sorceress knpc kpc)
- (say knpc "[She covers her mouth in mock fright] Ooh! You guessed my dirty "
- "little secret! Now beat it or I'll use you as a torch."))
+ (say knpc "¡ÎÈà½÷¤Ï¶Ã¤¤¤¿¤Õ¤ê¤ò¤·¤Æ¼ê¤Ç¸ý¤òʤ¤Ã¤¿¡£¡Ï¤¢¤¢¡ª»ä¤Î¾®¤µ¤Ê±ø¤ì¤¿ÈëÌ©¤Ëµ¤¤Å¤¤¤¿¤ï¤Í¡ª"
+ "¾Ã¤¨¤¦¤»¤Ê¤µ¤¤¡£¤µ¤â¤Ê¤¤¤È¾¾ÌÀ¤Î¤è¤¦¤Ëdz¤ä¤¹¤ï¤è¡£"))
(define (kathryn-scro knpc kpc)
(if (is-player-party-member? knpc)
- (say knpc "But I already gave you the only one I had. "
- "I don't even know where I got it!")
- (say knpc "A scroll? [She laughs] Shall I turn out my pockets for you? "
- "Mind your own business.")))
+ (say knpc "»ý¤Ã¤Æ¤¤¤ë¤Î¤Ï¤¢¤Ê¤¿¤Ë¤¢¤²¤¿°ìËç¤À¤±¤è¡£"
+ "¤É¤³¤Ç¼ê¤ËÆþ¤ë¤Î¤«¤â¤ï¤«¤é¤Ê¤¤¤ï¡ª")
+ (say knpc "´¬Êª¡©¡ÎÈà½÷¤Ï¾Ð¤Ã¤¿¡£¡Ï»ä¤Î¥Ý¥±¥Ã¥È¤Ë¼ê¤òÆþ¤ì¤Æ¤ß¤ë¡©"
+ "¼«Ê¬¤Î¿´ÇÛ¤ò¤·¤Ê¤µ¤¤¤è¡£")))
(define kathryn-conv
(ifc nil
(method 'default kathryn-default)
(method 'hail kathryn-hail)
- (method 'bye (lambda (knpc kpc) (say knpc "Good riddance.")))
+ (method 'bye (lambda (knpc kpc) (say knpc "À¶¡¹¤·¤¿¤ï¡£")))
(method 'job kathryn-job)
(method 'name kathryn-name)
(method 'join kathryn-join)
(method 'sear kathryn-search)
(method 'sell kathryn-seller)
(method 'sorc kathryn-sorceress)
+ (method 'witc kathryn-sorceress)
(method 'tave kathryn-tavern)
(method 'thud kathryn-companion)
(method 'thie kathryn-thief)
(kern-char-arm-self
(kern-mk-char
'ch_kathryn ;;..tag
- "Kathryn" ;;....name
+ "¥¥ã¥¹¥ê¥ó" ;;....name
sp_human ;;.....species
oc_wizard ;;....occupation
s_wizard ;;.....sprite
(kern-load "alex.scm")
(mk-dungeon-room
- 'p_great_hall "Great Hall"
+ 'p_great_hall "Âç¹´Ö"
(list
"xx xx xx xx xx xx xx xx xx xx xx xx xx x! xx xx xx xx xx "
"xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
(mk-place-music p_great_hall 'ml-dungeon-adventure)
(mk-dungeon-room
- 'p_paladins_hold "Paladin's Hold"
+ 'p_paladins_hold "À»µ³»Î¤ÎºÖ"
(list
"rn rn xx xx xx rn rn rn rn xx xx xx xx && xx xx xx xx xx "
"rn xx xx ,, xx xx rn rn xx x! ,, ,, ,, ,, ,, ,, ,, x! xx "
(put (mk-jones) 9 9)
(put (mk-alex) 9 9)
- (put (custom-pt 'put-gate-guard 'php1 'deep) 11 9)
+ (put (custom-pt 'put-gate-guard 'php1 "¥·¥ó¥¨¥ó") 11 9)
;; inner guard
(put (guard-pt 'crossbowman) 13 8)
(mk-place-music p_paladins_hold 'ml-castle)
(mk-dungeon-room
- 'p_treasury "Treasury"
+ 'p_treasury "Êõʪ¸Ë"
(list
"xx xx xx xx xx rn xx xx xx xx xx xx xx rn xx xx xx xx xx "
"xx ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, xx "
(mk-dungeon-room
- 'p_death_knights_hold "Death Knight's Hold"
+ 'p_death_knights_hold "»à¤Îµ³»Î¤ÎºÖ"
(list
"xx xx xx xx xx xx xx xx xx xx xx r8 r8 r8 r8 r8 rn rn rn "
"xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. .. .. bb bb ra rn rn "
(define (change-corpse-to-skeleton loc)
;;(display "change-corpse-to-skeleton")(newline)
- (kern-log-msg "You have disturbed the dead!")
+ (kern-log-msg "»à¿Í¤¿¤Á¤¬ÌܳФ᤿¡ª")
(remove-corpse loc)
(put-skeleton loc))
;; These are the letters used by the console, etc, in the UI. The character
;; sprites need to be arranged in a specific order in this image.
"ascii-image-filename" "charset.png"
+ "kanji-image-filename" "kanji.png"
;; This is the cursor prompt used by the command window in the UI. It should
;; have four animation frames.
;; List all the key types. This doesn't *need* to be done here, but like any
;; type, it must be done in a file that is kern-loaded, which means it can't be
;; done in a place file. So by convention let's list them here.
-(mk-key-type 't_brundegardt_tower_4_key "weathered key" s_picklock)
-(mk-key-type 't_stewardess_chest_key "shiny key" s_picklock)
+(mk-key-type 't_brundegardt_tower_4_key "»¬¤Ó¤¿¸°" s_picklock)
+(mk-key-type 't_stewardess_chest_key "µ±¤¯¸°" s_picklock)
(mk-dungeon-room
- 'p_hydra_fen "Hydra Fen"
+ 'p_hydra_fen "¥Ò¥É¥é¤Î¼¾¸¶"
(list
"rn rn rn rn rn rn r8 r8 r8 r8 r8 r8 r8 rn rn rn rn rn rn "
"rn rn rn rn rn rc {{ {{ {{ {{ {{ {{ {{ ra rn rn rn rn rn "
(mk-place-music p_hydra_fen 'ml-dungeon-adventure)
(mk-dungeon-room
- 'p_pools "Pools"
+ 'p_pools "¿åÊÕ"
(list
"rn rn r4 .. .. .. .. bb dd dd dd .. .. .. .. .. ra rn rn "
"rn r8 r8 r5 .. .. .. .. dd dd dd bb .. .. .. .. .. ra rn "
(kern-mk-place
'p_deepness
- "The Deepness"
+ "¿¼¤ß"
nil ; sprite
(kern-mk-map
nil 38 38 pal_expanded
(put (guard-pt 'headless) 3 20)
(put (spawn-pt 'kraken) 5 9)
(put (spawn-pt 'sea-serpent) 18 11)
- (put (step-pt "A yellow slime oozes up!" (list 'yellow-slime 32 11)) 33 10)
- (put (step-pt "A yellow slime oozes up!" (list 'yellow-slime 26 3)) 26 5)
+ (put (step-pt "²«¿§¤¤Ç´¶Ý¤¬¤Ë¤¸¤ß½Ð¤Æ¤¤¿¡ª" (list 'yellow-slime 32 11)) 33 10)
+ (put (step-pt "²«¿§¤¤Ç´¶Ý¤¬¤Ë¤¸¤ß½Ð¤Æ¤¤¿¡ª" (list 'yellow-slime 26 3)) 26 5)
;; put a special step trigger on the footbridge across the cistern
(put (mk-step-trig 'spawn-kraken-lakes-sea-serpent nil) 31 31)
(kern-load "tetzl.scm")
(kern-mk-place
- 'p_kun "Kun" s_town
+ 'p_kun "¥¯¡¼¥ó" s_town
(kern-mk-map
nil 19 19 pal_expanded
(list
(cond ((and (not (can-fly? kbeing))
(not (can-phase? kbeing)))
(kern-log-msg (kern-obj-get-name kbeing)
- " hit by falling rock!")
+ "¤ÏÍî¤Á¤Æ¤¤¿´ä¤ËÅö¤¿¤Ã¤¿¡ª")
(kern-obj-apply-damage kbeing
"hit"
(kern-dice-roll "1d10")))
)))
(define (landslide kbeing x y w h)
- (kern-log-msg "LANDSLIDE!")
+ (kern-log-msg "ÃϤ¹¤Ù¤ê¤À¡ª")
(shake-map 10)
(foldr-rect (loc-place (kern-obj-get-location kbeing))
x
(method 'handle bim-toggle)
(method 'state lever-state)))
-(mk-obj-type 't_lever "lever" '() layer-mechanism lever-ifc)
+(mk-obj-type 't_lever "¥ì¥Ð¡¼" '() layer-mechanism lever-ifc)
(define (mk-lever dest-tag)
(bind (kern-mk-obj t_lever 1)
;;----------------------------------------------------------------------------
(mk-obj-type 't_hidden_mech ;; tag
- "hidden mechanism" ;; name
+ "±£¤µ¤ì¤¿»Å³Ý¤±" ;; name
s_blank ;; sprite
layer-tfeat ;; stacking layer
nil ;; interface
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Lia is a female wizard and reagent-seller who dwells in Oparine,
-;; so that she may remain in the proximity to her true love,
-;; the Nixie prince Fing.
+;; ¥ê¥¢¤Ï¥ª¥Ñ¡¼¥ê¥ó¤Ë½»¤à½÷À¤ÎËâ½Ñ»Õ¤Ç¡¢ÈëÌô¤òÇä¤Ã¤Æ¤¤¤ë¡£
+;; ¤½¤·¤ÆÈà½÷¤¬°¦¤¹¤ë¥Ë¥¥·¡¼¤Î²¦»Ò¤Î¥Õ¥£¥ó¤Î¶á¤¯¤Ë¤¤¤ë¡£
;;
-;; She is said to be under a curse, of obscure nature.
-;; One likely interpretation is that she is only in human form through
-;; having been transformed, being born a Nixie or some other water-folk.
+;; Èà½÷¤Ï¤è¤¯¤ï¤«¤é¤Ê¤¤¼ö¤¤¤ò¤«¤±¤é¤ì¤Æ¤¤¤ë¤È¸À¤ï¤ì¤Æ¤¤¤ë¡£
+;; Èà½÷¤Ï¥Ë¥¥·¡¼¤«Â¾¤Î³¤¤Î̱¤Ç¡¢¿Í´Ö¤Î»Ñ¤ËÊѿȤ·¤Æ¤¤¤ë¤À¤±¤«¤â¤·¤ì¤Ê¤¤¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (lia-hail knpc kpc)
- (say knpc "[You meet a haunting beauty] Welcome."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï˺¤ì¤é¤ì¤Ê¤¤¤è¤¦¤ÊÈþ¿Í¤È²ñ¤Ã¤¿¡£¡Ï¤¤¤é¤Ã¤·¤ã¤¤¤Þ¤»¡£"))
(define (lia-default knpc kpc)
- (say knpc "I cannot help you with that."))
+ (say knpc "¤½¤ì¤Ï¤ª¼êÅÁ¤¤¤Ç¤¤Þ¤»¤ó¡£"))
(define (lia-name knpc kpc)
- (say knpc "I am Lia."))
+ (say knpc "»ä¤Ï¥ê¥¢¤Ç¤¹¡£"))
(define (lia-join knpc kpc)
- (say knpc "I cannot leave these shores."))
+ (say knpc "¤³¤Î´ß¤òÎ¥¤ì¤ë¤³¤È¤Ï¤Ç¤¤Þ¤»¤ó¡£"))
(define (lia-job knpc kpc)
- (say knpc "I sell reagents, including the rare black pearl."))
+ (say knpc "ÈëÌô¤òÇä¤Ã¤Æ¤¤¤Þ¤¹¡£ÄÁ¤·¤¤¹õ¿¿¼î¤â¤¢¤ê¤Þ¤¹¤è¡£"))
(define (lia-bye knpc kpc)
- (say knpc "Goodbye, Wanderer."))
+ (say knpc "¤µ¤è¤¦¤Ê¤é¡¢Ì¤¤¿Í¤µ¤ó¡£"))
;; Trade...
(define lia-merch-msgs
- (list "My shop is open from 8:00AM to 8:00PM."
- "Here are my wares."
- "I will buy rare ingredients if they are a good value."
- "Do you wish to buy or do you have something to sell?"
- "A blessing on your magic."
- "Very well."
- "I will be happy to purchase more."
- "I only offer what is fair."
- "May the gods of the deep favour you."
- "As you wish."
+ (list "»ä¤ÎŹ¤Ï¸áÁ°8»þ¤«¤é¸á¸å8»þ¤Þ¤Ç³«¤¤¤Æ¤¤¤Þ¤¹¡£"
+ "¤³¤ì¤À¤±¤ÎÉʤ¬¤¢¤ê¤Þ¤¹¡£"
+ "¤è¤¤Êª¤¬¤¢¤ì¤ÐÇ㤤¼è¤ê¤Þ¤¹¡£"
+ "Ç㤤¤Þ¤¹¤«¡©¤½¤ì¤È¤âÇä¤ê¤¿¤¤Êª¤¬¤¢¤ê¤Þ¤¹¤«¡©"
+ "¤¢¤Ê¤¿¤ÎËâË¡¤Ë²Ã¸î¤¬¤¢¤ê¤Þ¤¹¤è¤¦¤Ë¡£"
+ "¤ï¤«¤ê¤Þ¤·¤¿¡£"
+ "²¿¤«Â¾¤ËɬÍפÊʪ¤Ï¤¢¤ê¤Þ¤¹¤«¡©"
+ "ŬÀµ¤Ê²Á³Ê¤òÄ󼨤·¤¿¤À¤±¤Ç¤¹¡£"
+ "¿¼¤¿À¤¬¤¢¤Ê¤¿¤ò½õ¤±¤ë¤Ç¤·¤ç¤¦¡£"
+ "¤½¤¦Ë¾¤à¤Ê¤é¡£"
))
(define lia-catalog
(list
- (list sulphorous_ash (* 2 reagent-price-mult) "This ash comes from the bed of dragons in the Fire Sea.")
- (list garlic (* 4 reagent-price-mult) "Garlic is a common enough herb, but useful in spells.")
- (list ginseng (* 4 reagent-price-mult) "I grow this ginseng myself alongside mandrake.")
- (list black_pearl (* 4 reagent-price-mult) "These come from my own special source. You will find no others like them.")
- (list blood_moss (* 6 reagent-price-mult) "It is difficult to get blood moss here.")
- (list nightshade (* 11 reagent-price-mult) "The nightshade is rare in these parts.")
- (list mandrake (* 11 reagent-price-mult) "I grow mandrake with my ginseng.")
+ (list sulphorous_ash (* 2 reagent-price-mult) "¤³¤Î³¥¤Ï²Ð¤Î³¤¤Ë¤¢¤ëε¤Î¿²¾²¤«¤é¼è¤Ã¤Æ¤¤¿¤â¤Î¤Ç¤¹¡£")
+ (list garlic (* 4 reagent-price-mult) "ÂçÉǤϤ褯¤¢¤ë¡¢¤Ç¤â¼öʸ¤Ç»È¤¤¤ä¤¹¤¤ÌôÁð¤Ç¤¹¡£")
+ (list ginseng (* 4 reagent-price-mult) "¤³¤Î¿Í»²¤Ï¥Þ¥ó¥É¥ì¥¤¥¯¤È°ì½ï¤Ë¼«Ê¬¤Ç°é¤Æ¤¿¤â¤Î¤Ç¤¹¡£")
+ (list black_pearl (* 4 reagent-price-mult) "»ä¤ÎÆÃÊ̤ʾì½ê¤Ç¼è¤Ã¤¿¤â¤Î¤Ç¤¹¡£Â¾¤Ç¤Ï¸«¤Ä¤«¤é¤Ê¤¤¤Ç¤·¤ç¤¦¡£")
+ (list blood_moss (* 6 reagent-price-mult) "¤³¤Î¤¢¤¿¤ê¤Ç¤Ï·ì¤ÎÂݤϤʤ«¤Ê¤«¸«¤Ä¤«¤ê¤Þ¤»¤ó¡£")
+ (list nightshade (* 11 reagent-price-mult) "¥Ê¥¤¥È¥·¥§¥¤¥É¤Ï¤³¤Î¤¢¤¿¤ê¤Ç¤ÏÄÁ¤·¤¤¤â¤Î¤Ç¤¹¡£")
+ (list mandrake (* 11 reagent-price-mult) "¥Þ¥ó¥É¥ì¥¤¥¯¤Ï¿Í»²¤È°ì½ï¤Ë°é¤Æ¤Æ¤¤¤Þ¤¹¡£")
- (list t_in_an_scroll (* 3 base-scroll-cost) "When faced with magic stronger than your own, use this to even the score.")
- (list t_in_mani_corp_scroll (* 8 base-scroll-cost) "You need not mourn a fallen companion when you carry one of these.")
- (list t_vas_rel_por_scroll (* 3 base-scroll-cost) "You can travel great distances or escape dire circumstances with this gate scroll.")
- (list t_vas_mani_scroll (* 2 base-scroll-cost) "When sorely wounded this will restore you to health.")
- (list t_wis_quas_scroll (* 2 base-scroll-cost) "This scroll will open your eyes to the invisible world.")
+ (list t_in_an_scroll (* 3 base-scroll-cost) "ËâÎϤǾ¡¤ë¼Ô¤ÈľÌ̤·¤Æ¤â¡¢¤³¤ì¤¬¤¢¤ì¤ÐƱ³Ê¤Ë¤Ê¤ê¤Þ¤¹¡£")
+ (list t_in_mani_corp_scroll (* 8 base-scroll-cost) "Ãç´Ö¤¬Åݤì¤Æ¤â¤³¤ì¤¬¤¢¤ì¤ÐÈᤷ¤à¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó¡£")
+ (list t_vas_rel_por_scroll (* 3 base-scroll-cost) "¤³¤ÎÌç¤Î´¬Êª¤¬¤¢¤ì¤Ð¡¢±ó¤¯¤Øι¤¹¤ë¤³¤È¤â¡¢Èá»´¤Ê¾õÂÖ¤«¤éƨ¤²¤ë¤³¤È¤â¤Ç¤¤Þ¤¹¡£")
+ (list t_vas_mani_scroll (* 2 base-scroll-cost) "¤Ò¤É¤¤½ý¤òÉé¤Ã¤Æ¤â¤³¤ì¤Ç²óÉü¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£")
+ (list t_wis_quas_scroll (* 2 base-scroll-cost) "¤³¤Î´¬Êª¤Ç¸«¤¨¤Ê¤¤À¤³¦¤Ø¤ÎÌܤ¬³«¤¯¤Ç¤·¤ç¤¦¡£")
))
(define (lia-trade knpc kpc) (conv-trade knpc kpc "trade" lia-merch-msgs lia-catalog))
;; Shores...
(define (lia-shor knpc kpc)
- (say knpc "I must stay by the shore so I can be near my love."))
+ (say knpc "°¦¤¹¤ë¿Í¤Î¶á¤¯¤Ë¤¤¤ë¤¿¤á¡¢»ä¤Ï¤³¤³¤Ë¤¤¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£"))
(define (lia-love knpc kpc)
- (say knpc "My beloved cannot leave the sea, "
- "he is a prince among the Sea People. "
- "He is bold and true, and has not left me despite my curse."
+ (say knpc "»ä¤Î°¦¤¹¤ë¿Í¤Ï³¤¤òÎ¥¤ì¤ë¤³¤È¤¬¤Ç¤¤Þ¤»¤ó¡£"
+ "Èà¤Ï³¤¤Î¿Í¤Î²¦»Ò¤Ê¤Î¤Ç¤¹¡£"
+ "ͦ´º¤ÇÀ¿¼Â¡¢¤½¤·¤Æ»ä¤Î¼ö¤¤¤Ë¤â¤«¤«¤ï¤é¤º»ä¤ò¸«¼Î¤Æ¤Ê¤¤¤Ç¤¤¤Þ¤¹¡£"
))
;; Sea
(define (lia-sea knpc kpc)
- (say knpc "How I long to return to my home! "
- "I miss the courtyards of the deep, "
- "and watching the ships cross my ceiling, "
- "and hearing the conversations of Men as only a distant murmur."))
+ (say knpc "Ť¤´Ö¡¢¸Î¶¿¤ËÌá¤Ã¤Æ¤¤¤Þ¤»¤ó¡ª"
+ "¿¼¤¾ì½ê¤ÎÃæÄí¤¬¡¢"
+ "Å·¤ò¤«¤±¤ëÁ¥¤¬¡¢"
+ "¤½¤·¤Æ±ó¤¯¤¶¤ï¤á¤¯¿Í¡¹¤Î²ñÏä¬Îø¤·¤¤¡£"))
(define (lia-curs knpc kpc)
- (say knpc "I'd prefer not to speak of it."))
+ (say knpc "¤½¤ì¤ÏÏä·¤¿¤¯¤¢¤ê¤Þ¤»¤ó¡£"))
;; Townspeople...
(define (lia-opar knpc kpc)
- (say knpc "All cities of Men are too dry for my liking."))
+ (say knpc "¤³¤ÎÄ®¤Î¿Í¡¹¤Ï»ä¤Ë¤Ï´¥¤¤¹¤®¤Æ¤¤¤Þ¤¹¡£"))
(define (lia-gher knpc kpc)
- (say knpc "The scavengers of the sea used to follow her ship. "
- "They were well-fed with her victims."))
+ (say knpc "³¤¤Î»àÆùµù¤ê¤¬Èà½÷¤ÎÁ¥¤ò¤è¤¯ÄɤäƤ¤¤Þ¤·¤¿¡£"
+ "Èà¤é¤ÏÈà½÷¤Îµ¾À·¼Ô¤Ç¤è¤¯È¤Æ¤¤¤Þ¤·¤¿¡£"))
(define (lia-alch knpc kpc)
- (say knpc "He sometimes visits me, and we discuss magic. "
- "I have few other friends among Men."))
+ (say knpc "Èà¤Ï»þ¡¹Íè¤Æ¡¢»ä¤ÈËâË¡¤ÎÏäò¤·¤Þ¤¹¡£"
+ "»ä¤Î¿Í´Ö¤Îͧã¤Î°ì¿Í¤Ç¤¹¡£"))
(define (lia-osca knpc kpc)
- (say knpc "I know little of him, except that he has never been to sea."))
+ (say knpc "Èà¤Î¤³¤È¤Ï¡¢³¤¤Ë¹Ô¤Ã¤¿¤³¤È¤¬¤Ê¤¤¤³¤È°Ê³°¤Ï¤è¤¯ÃΤê¤Þ¤»¤ó¡£"))
(define (lia-henr knpc kpc)
- (say knpc "He was a fine sailor once. The great ones of the deep sometimes "
- "spoke of his courage."))
+ (say knpc "Èà¤Ï¤«¤Ä¤Æ¤¹¤Ð¤é¤·¤¤Á¥¾è¤ê¤Ç¤·¤¿¡£"
+ "¿¼¤¾ì½ê¤Î°ÎÂç¤Ê¼Ô¤¬»þ¡¹¤½¤Îͦ´º¤µ¤ò¸ì¤Ã¤Æ¤¤¤Þ¤·¤¿¡£"))
(define (lia-bart knpc kpc)
- (say knpc "His ships are well-respected, but all ships are clumsy and "
- "ponderous in my sight."))
+ (say knpc "Èà¤ÎÁ¥¤Ï¹â¤¯É¾²Á¤µ¤ì¤Æ¤¤¤Þ¤¹¡£"
+ "¤Ç¤â¡¢»ä¤Ë¤È¤Ã¤ÆÁ¥¤ÏÉԳʹ¥¤Ç½Å¡¹¤·¤¤¤â¤Î¤Ç¤¹¡£"))
(define lia-conv
(ifc basic-conv
(define (mk-lia)
(bind
(kern-mk-char 'ch_lia ; tag
- "Lia" ; name
+ "¥ê¥¢" ; name
sp_human ; species
oc_wizard ; occ
s_townswoman ; sprite
(mk-dungeon-room
- 'p_lich_tomb "Lich Tomb"
+ 'p_lich_tomb "¥ê¥Ã¥Á¤ÎÊè"
(list
"xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
"xx %3 %% %% %5 pp ,, ,, ,, cc ,, ,, ,, pp %3 %% %% %5 xx "
(kern-mk-place
'p_lost_halls_entrance
- "Gate to the Lost Halls"
+ "¼º¤ï¤ì¤¿ÅÂƲ¤ÎÌç"
s_dungeon ; sprite
(kern-mk-map nil 21 21 pal_expanded
(list
(kern-mk-place
'p_lost_halls_r1
- "The Lost halls"
+ "¼º¤ï¤ì¤¿ÅÂƲ"
nil ; sprite
(kern-mk-map nil 21 21 pal_expanded
(list
(kern-mk-place
'p_lost_halls_r2
- "The Lost halls"
+ "¼º¤ï¤ì¤¿ÅÂƲ"
nil ; sprite
(kern-mk-map nil 21 21 pal_expanded
(list
(kern-mk-place
'p_lost_halls_r3
- "The Lost halls"
+ "¼º¤ï¤ì¤¿ÅÂƲ"
nil ; sprite
(kern-mk-map nil 21 21 pal_expanded
(list
(kern-mk-place
'p_lost_halls_r4
- "The Lost halls"
+ "¼º¤ï¤ì¤¿ÅÂƲ"
nil ; sprite
(kern-mk-map nil 21 21 pal_expanded
(list
(kern-mk-place
'p_lost_halls_r5
- "The Lost halls"
+ "¼º¤ï¤ì¤¿ÅÂƲ"
nil ; sprite
(kern-mk-map nil 21 21 pal_expanded
(list
(kern-mk-place
'p_lost_halls_staird
- "The Great Stair"
+ "Â糬ÃÊ"
nil ; sprite
(kern-mk-map nil 21 21 pal_expanded
(list
(put (mk-bump-door 'p_lost_halls_stairu 10 18) 9 7)
(put (mk-bump-door 'p_lost_halls_stairu 10 18) 10 7)
(put (mk-bump-door 'p_lost_halls_stairu 10 18) 11 7)
- (put (mk-step-trig 'one-off-message "A huge stairway leads down into the darkness" "losthalls_staird") 9 15)
- (put (mk-step-trig 'one-off-message "A huge stairway leads down into the darkness" "losthalls_staird") 10 15)
- (put (mk-step-trig 'one-off-message "A huge stairway leads down into the darkness" "losthalls_staird") 11 15)
+ (put (mk-step-trig 'one-off-message "µðÂç¤Ê²¼¤ê¤Î³¬ÃʤϰǤؤȸþ¤«¤Ã¤Æ¤¤¤ë¡£" "losthalls_staird") 9 15)
+ (put (mk-step-trig 'one-off-message "µðÂç¤Ê²¼¤ê¤Î³¬ÃʤϰǤؤȸþ¤«¤Ã¤Æ¤¤¤ë¡£" "losthalls_staird") 10 15)
+ (put (mk-step-trig 'one-off-message "µðÂç¤Ê²¼¤ê¤Î³¬ÃʤϰǤؤȸþ¤«¤Ã¤Æ¤¤¤ë¡£" "losthalls_staird") 11 15)
(put (spawn-pt 'giant-spider) 4 11)
(put (spawn-pt 'giant-spider) 5 10)
(put (spawn-pt 'giant-spider) 6 12)
(kern-mk-place
'p_lost_halls_stairu
- "The Great Stair"
+ "Â糬ÃÊ"
nil ; sprite
(kern-mk-map nil 21 21 pal_expanded
(list
(kern-mk-place
'p_lost_halls_graves
- "The Graveyard"
+ "ÊèÃÏ"
nil ; sprite
(kern-mk-map nil 21 21 pal_expanded
(list
(kern-mk-place
'p_lost_halls_rshrine
- "The Broken Sactuary"
+ "Ç˲õ¤µ¤ì¤¿º×ÃÅ"
nil ; sprite
(kern-mk-map nil 21 21 pal_expanded
(list
(kern-mk-place
'p_lost_halls_fountains
- "The Lost Halls"
+ "¼º¤ï¤ì¤¿ÅÂƲ"
nil ; sprite
(kern-mk-map nil 21 21 pal_expanded
(list
(kern-mk-place
'p_lost_halls_storage
- "The Lost Halls"
+ "¼º¤ï¤ì¤¿ÅÂƲ"
nil ; sprite
(kern-mk-map nil 21 21 pal_expanded
(list
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; No schedule (found in Green Tower Tombs)
+;; ÎФÎÅã¤ÎÊè
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Luximene is a lich (or later, a shade conjured up from his skull),
-;; sitting in rulership over the small realm of his treasury in
-;; ruined Kurpolis. In life, he was a great king who conquered and united
-;; the Shard, and was ultimately overthrown by a coalition of those who
-;; became known as the Wise.
+;; ¥é¥¯¥·¥Þ¥Ë¤Ï¥ê¥Ã¥Á(¸å¤ËÈà¤ÎƬ³¸¹ü¤«¤é±Æ¤¬¸Æ¤Ó½Ð¤µ¤ì¤ë)¤Ç¡¢¥¯¥í¥Ý¥ê¥¹¤Î°äÀ×
+;; ¤Ë¤¢¤ëÊõʪ¸Ë¤ò»ÙÇÛ¤·¤Æ¤¤¤ë¡£Èà¤Ï¥·¥ã¥ë¥É¤òÀ¬Éþ¡¢Åý°ì¤·¤¿°ÎÂç¤Ê²¦¤À¤Ã¤¿¡£¤½
+;; ¤·¤ÆºÇ¸å¤Ë¤Ï¸¼Ô¤È¤·¤ÆÃΤé¤ì¤ë¤è¤¦¤Ë¤Ê¤ë¼Ô¤¿¤Á¤Ë¤è¤Ã¤ÆÅݤµ¤ì¤¿¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (lux-hail knpc kpc)
- (say knpc "[You meet a shade who burns with malice] What do you want, "
- "mortal?"))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï»¦°Õ¤Ëdz¤¨¤ë±Æ¤È²ñ¤Ã¤¿¡£¡Ï²¿¤¬Ë¾¤ß¤À¡©"
+ "»à¤¹¤Ù¤¼Ô¤è¡£"))
(define (lux-default knpc kpc)
- (say knpc "Do not waste my time."))
+ (say knpc "²æ¤Î»þ´Ö¤ò̵Â̤ˤ¹¤ë¤Ê¡£"))
(define (lux-name knpc kpc)
- (say knpc "I am Luximene the Great, Lord of the Middle Realm."))
+ (say knpc "²æ¤Ï°ÎÂç¤Ê¥é¥¯¥·¥Þ¥Ë¡¢¤³¤ÎÃæ±û°è¤Î²¦¤Ç¤¢¤ë¡£"))
(define (lux-rune knpc kpc)
- (say knpc "[He suddenly looks disturbed] That is a key, one of eight, "
- "made by the Wise to lock the Demon Gate."))
+ (say knpc "¡ÎÈà¤ÏÆÍÁ³¤«¤Í𤵤줿¤è¤¦¤Ë¸«¤¨¤¿¡£¡Ï"
+ "¤½¤ì¤Ï°Ëâ¤ÎÌç¤òÉõ°õ¤¹¤ë¤¿¤á¡¢¸¼Ô¤Ë¤è¤Ã¤Æºî¤é¤ì¤¿È¬¤Ä¤Î¸°¤Î°ì¤Ä¤À¡£"))
(define (lux-gate knpc kpc)
- (say knpc "Each key was given to a Keeper, each Keeper was forbidden to meet with any other, "
- "and to pass their legacy on to an heir. Art thou a Keeper?")
+ (say knpc "¤½¤ì¤¾¤ì¤Î¸°¤Ë¤Ï¼é¸î¼Ô¤¬¤ª¤ê¡¢¸ß¤¤¤Ë²ñ¤¦¤³¤È¤ò¶Ø»ß¤µ¤ì¤Æ¤¤¤¿¡£"
+ "¤½¤·¤Æ¤½¤ÎÅÁÅý¤Ï°ú¤·Ñ¤¬¤ì¤Æ¤¤¿¡£Æò¤Ï¼é¸î¼Ô¤«¡©")
(if (yes? kpc)
(begin
- (say knpc "Then why dost thou ask me of this Rune? Did thy master not explain?")
+ (say knpc "¤Ê¤é¤Ð¤Ê¤¼Æò¤Ï¤³¤ÎÀÐÈǤΤ³¤È¤ò²æ¤Ëʹ¤¯¤Î¤À¡©Æò¤Î¼ç¤Ï²¿¤â¸À¤ï¤Ê¤«¤Ã¤¿¤Î¤«¡©")
(if (yes? kpc)
- (say knpc "[He chuckles malignantly] Thou thinkest me a fool, "
- "and art a fool for thinking so. The Rune will be thy undoing, "
- "and the undoing of thine Age!")
- (say knpc "Cursed is the Age wherein Men forget their vows.")))
+ (say knpc "¡ÎÈà¤Ï°°Õ¤ò¤³¤á¤Æ¾Ð¤Ã¤¿¡£¡ÏÆò¤Ï²æ¤ò¶ò¤«¤À¤È»×¤Ã¤Æ¤¤¤ë¤Î¤«¡£"
+ "¤½¤¦»×¤Ã¤Æ¤¤¤ë¼Ô¤¬¶ò¤«¤Ê¤Î¤À¡£¤³¤ÎÀÐÈǤÏÆò¤ÎÇËÌǤθµ¡¢¤³¤Î»þÂå¤ÎÇËÌǤθµ¤Ç¤¢¤ë¡ª")
+ (say knpc "ÇËÌǤϿͤ¬¤½¤ÎÀÀ¤¤¤ò˺¤ì¤¿»þÂ夫¤é»Ï¤Þ¤ë¡£")))
(begin
- (say knpc "Art thou a Thief?")
+ (say knpc "Åð¿Í¤«¡©")
(if (yes? kpc)
- (say knpc "Doomed is the Age where even thieves know not the value of what they steal.")
- (say knpc "Then thou hast acquired the Rune by chance, "
- "and the end of thine Age is nigh.")))))
+ (say knpc "¤³¤Î»à¤¹¤Ù¤»þÂå¤Ç¤ÏÅð¿Í¤µ¤¨¤â¼«¤é¤¬Åð¤ó¤À¤â¤Î¤Î²ÁÃͤòÃΤé¤Ê¤¤¡£")
+ (say knpc "¤Ê¤é¤ÐÆò¤Ï¶öÁ³ÀÐÈǤò¼ê¤Ë¤·¤¿¤È¤¤¤¦¤Î¤«¡£"
+ "Æò¤é¤Î»þÂå¤Î½ª¤ï¤ê¤Ï¶á¤¤¤À¤í¤¦¡£")))))
(define (lux-age knpc kpc)
- (say knpc "When the Demon Gate was sealed, the Age of Wizards ended. "
- "It was I who conquered and united the Shard, and The Age of Luximene began. "
- "After me each ruler was worse than the one before, and my empire fell into ruin, "
- "and the present age, the Lost Age, began. Do you wish to know a great secret?")
+ (say knpc "°Ëâ¤ÎÌ礬Éõ°õ¤µ¤ì¤¿¤È¤¡¢Ëâ½Ñ»Õ¤¿¤Á¤Î»þÂå¤Ï½ª¤ï¤Ã¤¿¡£"
+ "¤½¤ì¤¬²æ¡¢¤³¤Î¥·¥ã¥ë¥É¤òÀ¬Éþ¤·Åý°ì¤·¤¿¼Ô¡¢¥é¥¯¥·¥Þ¥Ë¤Î»þÂå¤Î»Ï¤Þ¤ê¤À¤Ã¤¿¡£"
+ "²æ¤Î¸å¤Î»ÙÇÛ¼Ô¤ÏÀ¤Âå¤ò±Û¤¹¤´¤È¤Ë°¤¯¤Ê¤ê¡¢¤Ä¤¤¤Ë²æ¤ÎÄë¹ñ¤ÏÇÑÔҤȤʤä¿¡£"
+ "¤½¤·¤Æ¼º¤ï¤ì¤¿»þÂå¡¢¤³¤Îº£¤¬»Ï¤Þ¤Ã¤¿¡£"
+ "Â礤¤Ê¤ëÈëÌ©¤òÃΤꤿ¤¤¤«¡©")
(if (yes? kpc)
- (say knpc "Then I will tell you, for you are the Last Keeper.")
- (say knpc "\n[The room fills with his terrible laughter]\n"
- "But it is thine to know,\n"
- "Last of the Keepers!"))
- (say knpc "The Lost Age will end when the Demon Gate is opened."))
+ (say knpc "¤Ê¤é¤ÐÅÁ¤¨¤è¤¦¡£ºÇ¸å¤Î¼é¸î¼Ô¤è¡£")
+ (say knpc "\n¡ÎÉô²°¤Ë¶²¤í¤·¤¤¾Ð¤¤À¼¤¬¶Á¤¤¤¿¡£¡Ï\n"
+ "¤À¤¬¡¢Æò¤ÏÃΤë¤Ç¤¢¤í¤¦¡£ºÇ¸å¤Î¼é¸î¼Ô¤è¡ª"))
+ (say knpc "°Ëâ¤ÎÌ礬³«¤«¤ì¤¿¤È¤¡¢¼º¤ï¤ì¤¿»þÂå¤Ï½ª¤ï¤ë¤Ç¤¢¤í¤¦¡£"))
(define (lux-keep knpc kpc)
- (say knpc "Thou art the Last Keeper. You have a Rune, and know its meaning. "
- "Now all the Runes are thine to Keep. Doest thou have them all?")
+ (say knpc "Æò¤ÏºÇ¸å¤Î¼é¸î¼Ô¤À¡£ÀÐÈǤò¼ê¤Ë¤·¡¢¤½¤Î°ÕÌ£¤òÃΤ롣"
+ "¤µ¤¢Á´¤Æ¤ÎÀÐÈǤÏÆò¤¬¼é¸î¤¹¤Ù¤¤â¤Î¤À¡£Á´¤Æ¤½¤Î¼ê¤ÎÃæ¤Ë¤¢¤ë¤«¡©")
(if (yes? kpc)
- (say knpc "Be thou certain, Keeper. The Gate will not open without them all.")
- (say knpc "Find them. One honorable man will save an Age from disgrace, "
- "though perhaps not himself.")))
+ (say knpc "¤½¤¦¤Ê¤Î¤À¤Ê¡£Á´¤Æ·¤ï¤Ê¤±¤ì¤ÐÌç¤Ï³«¤«¤Ê¤¤¡£")
+ (say knpc "õ¤·½Ð¤»¡£°ì¿Í¤Î̾ÍÀ¤¢¤ë¼Ô¤¬ÃÑ¿«¤«¤é»þÂå¤òµß¤¦¡£"
+ "¤â¤Á¤í¤óÈ༫¿È¤ò¡¢¤Ç¤Ï¤Ê¤¤¡£")))
(define (lux-wise knpc kpc)
- (say knpc "The Wise? [He laughs]\n"
- "Rebels against the ruler of an Age!\n"
+ (say knpc "¸¼Ô¡©¡ÎÈà¤Ï¾Ð¤Ã¤¿¡£¡Ï\n"
+ "»þÂå¤Î»ÙÇÛ¼Ô¤ËÈ¿µÕ¤¹¤ë¼Ô¤¿¤Á¤è¡ª\n"
"\n"
- "The Warrior Argus,\n"
- " who defeated my armies\n"
- " and led their expedition\n"
- "The Wizard Xileph,\n"
- " who counseled rebellion\n"
- " and countered my sorceries\n"
- "The Wrogue Narthax,\n"
- " whose thefts made bold mine enemies\n"
- " and found my secret passages\n"
- "The Wright Weilend,\n"
- " who outfitted the quest\n"
- " against my stronghold\n"
+ "Àï»Î¤Î¥¢¡¼¥¬¥¹¡¢\n"
+ "¡¡¤³¤Î¼Ô¤Ï²æ¤Î·³¤òÂǤÁÉ餫¤·\n"
+ "¡¡¤½¤·¤Æ¼«¤é¤Î·³¤òΨ¤¤¤¿\n"
+ "Ëâ½Ñ»Õ¤Î¥«¥¤¥ì¥Õ¡¢\n"
+ "¡¡¤³¤Î¼Ô¤ÏÈ¿µÕ¼Ô¤ò»Ø´ø¤·\n"
+ "¡¡¤½¤·¤Æ²æ¤ÎÍŽѻդ¿¤Á¤Ë»õ¸þ¤«¤Ã¤¿\n"
+ "¤Ê¤é¤º¼Ô¤Î¥Ê¡¼¥È¥Ï¥Ã¥¯¥¹¡¢\n"
+ "¡¡¤³¤Î¼Ô¤ÎÅð¿Í¤Ï¤ï¤¬Å¨¤ÈÄ̤¸\n"
+ "¡¡¤½¤·¤ÆÈëÌ©¤ÎÄÌÏ©¤ò¸«¤Ä¤±½Ð¤·¤¿\n"
+ "¿¦¿Í¤Î¥¦¥§¥¤¥ì¥ó¥É¡¢\n"
+ "¡¡¤³¤Î¼Ô¤Ï¤ï¤¬ºÖ¤òÁܺ÷¤¹¤ë¼Ô¤Î\n"
+ "¡¡ÁõÈ÷¤òÀ°¤¨¤¿\n"
"\n"
- "Yet in my defeat, was wrought their DOOM!"
+ "²æ¤ÎÇÔË̤ˤâ´Ø¤ï¤é¤º¡¢Èà¤é¤Ï»à¤¹¤Ù¤Äê¤á¤Ë¤¢¤Ã¤¿¡ª"
"\n")
- (say knpc "\n[He gazes at you in expectation]\n"
- "What? Know ye not these names?")
+ (say knpc "\n¡ÎÈà¤Ï¤¢¤Ê¤¿¤ò´üÂÔ¤ÎÌܤǸ«¤¿¡£¡Ï\n"
+ "²¿¡©Èà¤é¤Î̾¤òÃΤé¤Ì¤«¡©")
(if (yes? kpc)
- (say knpc "Then marvel, at my legend!")
+ (say knpc "¤Ê¤é¤Ð¶Ãò¤»¤è¡£¤ï¤¬ÅÁÀâ¤ò¡ª")
(begin
(say knpc
- "\n[His cold eyes glint in anger]\n"
- "Ah, rather you refer to those called Wise of this Age.\n"
- "I know nothing of such trifling matters.\n"
- "Begone, mortal!")
+ "\n¡ÎÈà¤ÎÎ䤿¤¤ÌܤÏÅܤê¤Çµ±¤¤¤¿¡£¡Ï\n"
+ "¤¢¤¢¡¢¤³¤Î»þÂå¤Î¸¼Ô¤È¸Æ¤Ð¤ì¤ë¼Ô¤¿¤Á¤ò»Ù»ý¤¹¤ëÊý¤ò¼è¤ë¤Î¤À¤Ê¡£\n"
+ "¤³¤Î¤è¤¦¤Ê¤Ä¤Þ¤é¤Ì¼Ô¤ÏÃΤé¤Ì¡£\n"
+ "µî¤ì¡¢»à¤¹¤Ù¤¤â¤Î¤è¡ª")
(kern-conv-end)
))
)
(define (lux-accu knpc kpc)
- (say knpc "Accursed?\n"
- "In each Age there are those who seek power, "
- "who will not be swayed from that search by warning or scruples.\n"
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¡©\n"
+ "¤½¤ì¤¾¤ì¤Î»þÂå¤Ë¤Ï¡¢¤½¤Î¤è¤¦¤ÊÎϤòµá¤á¤ë¼Ô¡¢"
+ "¤½¤Î¤è¤¦¤Ê·Ù¶ç¤äÆ»ÆÁ¤è¤Ã¤ÆÏǤ蘆¤ì¤Ê¤¤¼Ô¤¬¤¤¤ë¡£\n"
"\n"
- "Some will be destroyed by this search, "
- "while others land in thrall to those few who gain true power.\n"
+ "¤¢¤ë¼Ô¤ÏÌǤܤµ¤ì¡¢"
+ "¤Þ¤¿¤¢¤ë¼Ô¤Ï¿¿¤ÎÎϤòÆÀ¤Æ¾¤òÅÛÎì¤Ë¤¹¤ë¡£\n"
"\n"
- "Such must be, the worms of which you speak.")
+ "¤½¤ì¤Ï¤Þ¤µ¤Ë´óÀ¸Ãî¤Î¤è¤¦¤Ê¤â¤Î¤Ç¤¢¤ë¡£")
)
(bind
(kern-mk-char
'ch_lux ; tag
- "Luximene" ; name
+ "¥é¥¯¥·¥Þ¥Ë" ; name
lux-species ; species
lux-occ ; occ
s_ghost ; sprite
(kern-char-force-drop
(kern-mk-char
'ch_lich_king ; tag
- "Lich King" ; name
+ "¥ê¥Ã¥Á¤Î²¦" ; name
sp_lich ; species
oc_wizard ; occ
s_lich ; sprite
;;----------------------------------------------------------------------------
(kern-mk-place
'p_mans_hideout ; tag
- "The MAN's Hideout" ; name
+ "¤Ë¤ó¤²¤ó¤Î±£¤ì²È" ; name
s_dungeon ; sprite
m_mans_hideout ; map
#f ; wraps
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Bole.
+;; ¥Ü¥ì
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_may
(list 0 0 bole-bed-may "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; May is a female innkeeper, who lives in Bole.
-;; Melvin is her (seventh) husband.
+;; ¥á¥¤¤Ï½É²°¤Î¼ç¿Í¤Î½÷À¤Ç¡¢¥Ü¥ì¤Ë½»¤ó¤Ç¤¤¤ë¡£
+;; ¥á¥ë¥ô¥£¥ó¤ÏÈà½÷¤Î(7ÈÖÌܤÎ)ÉפǤ¢¤ë¡£
;;----------------------------------------------------------------------------
(define (may-trade knpc kpc)
- (say knpc "Talk to my husband Melvin in the kitchen."))
+ (say knpc "¿ß˼¤Ë¤¤¤ëöÆá¤Î¥á¥ë¥ô¥£¥ó¤Ë¸À¤Ã¤È¤¯¤ì¡£"))
(define (may-hail knpc kpc)
- (say knpc "[You meet a stout older woman who looks at you keenly] "
- "I know you are trouble, but I welcome thee."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÏÂÀ¤Ã¤¿¹âÎð¤Î½÷À¤È²ñ¤Ã¤¿¡£±Ô¤¤ÌܤǤ³¤Á¤é¤ò¸«¤Æ¤¤¤ë¡£¡Ï"
+ "¤ä¤Ã¤«¤¤¤½¤¦¤Ê¤Î¤¬Í褿¤Í¡£¤Ç¤â¤¤¤é¤Ã¤·¤ã¤¤¡£"))
(define (may-job knpc kpc)
- (say knpc "I run the tavern with my husband here in the Bole"))
+ (say knpc "¥Ü¥ì¤Î¤³¤Î¼ò¾ì¤òöÆá¤ÈÀÚ¤êÀ¹¤ê¤·¤Æ¤ë¤Î¤è¡£"))
(define (may-husband knpc kpc)
- (say knpc "My husband Melvin is a worthless drunk and a coward "
- "but he is a good enough cook. I have outlived six other husbands. "
- "I married him because I needed help running the inn, that is all."))
+ (say knpc "öÆá¤Î¥á¥ë¥ô¥£¥ó¤ÏÂç¼ò¤Î¤ß¤Î¥í¥¯¥Ç¥Ê¥·¤À¤±¤É¡¢ÎÁÍý¤ÎÏӤϤ¿¤¤¤·¤¿¤â¤Î¤è¡£"
+ "¾¤ËÏ»¿Í¤ÎöÆ᤬¤¤¤¿¤±¤É¡£"
+ "¤³¤Î½É¤ò¤ä¤Ã¤Æ¤¯¤¿¤á¤ËɬÍפÀ¤Ã¤¿¡£·ëº§¤·¤¿Íýͳ¤Ï¤½¤ì¤À¤±¤è¡£"))
(define (may-other-husbands knpc kpc)
- (say knpc "My other husbands were all fools! A few, indeed, I loved. "
- "But they were fools and each met his own foolish death. "
- "I see that you are a fool, too, and will meet your own foolish "
- "death some day."))
+ (say knpc "¤Û¤«¤ÎöÆá¤Ï¤½¤í¤Ã¤Æ¥Ð¥«¤À¤Ã¤¿¡ª³Î¤«¤Ë²¿¿Í¤«¤Ï¹¥¤¤À¤Ã¤¿¤µ¡£"
+ "¤Ç¤â¤ß¤ó¤Ê¼«Ê¬¤Î¥Ð¥«¤µ¤Î¤»¤¤¤Ç»à¤ó¤¸¤Þ¤Ã¤¿¡£"
+ "¤¢¤ó¤¿¤â¥Ð¥«¤ß¤¿¤¤¤À¤Í¡£¤¤¤Ä¤«¤½¤Î¥Ð¥«¤Î¤»¤¤¤Ç»à¤Ì¤è¡£"))
(define (may-tavern knpc kpc)
- (say knpc "Melvin is the cook and I serve the guests. "
- "Perhaps you would care to buy a drink or some supper, "
- "or a room where you may rest."))
+ (say knpc "¥á¥ë¥ô¥£¥ó¤¬ÎÁÍý¤·¤Æ¤¢¤¿¤·¤¬µÒ¤Ë½Ð¤¹¡£"
+ "²¿¤«°û¤ßʪ¤ä¿©»ö¤¬¤¤¤ë¤Î¡©¤½¤ì¤È¤âµÙ¤àÉô²°¡©"))
(define (may-guests knpc kpc)
- (say knpc "[She gives you a canny look] Aye, even now we have a strange "
- "woman and her... companion. But perhaps you were looking for "
- "someone else, eh?")
+ (say knpc "¡ÎÈà½÷¤Ï¤¢¤Ê¤¿¤ò±Ô¤¤ÌܤǸ«¤¿¡£¡Ï¤½¤¦¡¢º£¤¤¤ë¤ª¤«¤·¤Ê½÷¤È¤½¤Î¡ÄÏ¢¤ì¡£"
+ "¤Ç¤â¡¢¤¿¤Ö¤óÊ̤ÎÅÛ¤òõ¤·¤Æ¤ë¤ó¤¸¤ã¤Ê¤¤¡¢¤Í¤¨¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "Yes, I thought so. And perhaps this other person had "
- "something of interest to you?")
+ (say knpc "¤ä¤Ã¤Ñ¤ê¤Í¤¨¡£¤Ç¡¢¤½¤¤¤Ä¤Ï²¿¤«ÌÌÇò¤¤¤â¤Î¤ò»ý¤Ã¤Æ¤ë¤ó¤À¤í¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "How odd, because that item was also of interest to "
- "our current guests. Not that it is any of my business, "
- "but one suspects that the woman and he whom you seek "
- "arranged to meet here. Perhaps to make an... "
- "exchange."))
- (say knpc "Well, there was another man here briefly. But he "
- "left shortly before you arrived.")))
- (say knpc "Perhaps you are just out admiring the countryside then.")))
+ (say knpc "¤ª¤«¤·¤¤¤Í¤¨¡£º£¤¤¤ëµÒ¤â²¿¤«Ãµ¤·¤Æ¤ë¤ó¤À¤è¡£"
+ "¤¢¤¿¤·¤Ë¤Ï´Ø·¸¤Ê¤¤¤±¤É¡¢"
+ "¤â¤·¤«¤¹¤ë¤È¡¢¤¢¤Î½÷¤È¤¢¤ó¤¿¤¬Ãµ¤·¤Æ¤ëÅۤϲñ¤Ã¤Æ¤ë¤ó¤¸¤ã¤Ê¤¤¤«¤Í¡£"
+ "¿ʬ¡¢²¿¤«¤ò¡Ä¸ò´¹¤·¤Æ¤¿¡£"))
+ (say knpc "¤¦¡¼¤ó¡¢¤Á¤ç¤Ã¤ÈÁ°¤Þ¤ÇÊ̤ÎÃˤ¬¤¤¤¿¤ó¤À¤±¤É¡£"
+ "¤Ç¤â¤¢¤ó¤¿¤¬Íè¤ëÁ°¤Ë¤¹¤°¤Ë¹Ô¤Ã¤Æ¤·¤Þ¤Ã¤¿¤è¡£")))
+ (say knpc "¤â¤·¤«¤·¤ÆÅļˤò½Ð¤¿¤Ð¤Ã¤«¤ê¤Ê¤Î¤«¤¤¡©")))
(define (may-woman knpc kpc)
- (say knpc "Yes, we don't often get such beautiful people in these parts. "
- "Poor Bill is quite smitten. And my fool of a husband ogles here "
- "whenever he gets a chance. [She leans in close and whispers] But "
- "if she isn't a sorceress, or one in training, then I'm a goose!"))
+ (say knpc "¤½¤¦¤µ¡£¤³¤Î¤¢¤¿¤ê¤Ç¤Ï¤¢¤ó¤Ê¤¤ì¤¤¤Ê¿Í¤È¤Ï¤Û¤È¤ó¤É²ñ¤ï¤Ê¤¤¡£"
+ "¤«¤ï¤¤¤½¤¦¤Ê¥Ó¥ë¤Ï¹û¤ì¤³¤ó¤Ç¤¿¤è¡£"
+ "¤½¤·¤Æ¤¦¤Á¤Î¥Ð¥«Ã¶Æá¤Ï¤³¤È¤¢¤ë¤´¤È¤Ë¤¤¤ä¤é¤·¤¤ÌܤǸ«¤Æ¤¤¤ë¡£"
+ "¡ÎÈà½÷¤Ï¶á¤¯¤Ë¤è¤Ã¤Æ¤µ¤µ¤ä¤¤¤¿¡£¡Ï¤Ç¤â¡¢¤¢¤Î½÷¤ÏËâ½÷¤«¡¢Ëâ½÷¤Î½¤¹ÔÃæ¤À¤è¡ª"))
(define (may-companion knpc kpc)
- (say knpc "This woman travels with a great brute. I suspect he has ogre "
- "blood in his veins. Obviously he is her protector, though what bind "
- "she has over him I know not."))
+ (say knpc "¤¢¤Î½÷¤ÏÌîÈÚ¤ÊÅÛ¤ò°ú¤Ï¢¤ì¤Æ¤ë¡£¥ª¡¼¥¬¤Î·ì¤ò°ú¤¤¤Æ¤ë¤ó¤¸¤ã¤Ê¤¤¤«¤Í¡£"
+ "¿ʬ¤¢¤Î½÷¤ÎÍÑ¿´ËÀ¤À¡£¤Ç¤â²¿¤Ç¸À¤¦¤³¤È¤òʹ¤¤¤Æ¤¤¤ë¤Î¤«¤Ï¤ï¤«¤é¤Ê¤¤¤Í¡£"))
(define (may-bill knpc kpc)
- (say knpc "Aye, Bill is a local boy. Not too bright, but he makes an "
- "honest living as a woodcutter. He eats here, and sometimes talks "
- "to the guests."))
+ (say knpc "¤¢¤¢¡£¥Ó¥ë¤Ï¤³¤Î¤¢¤¿¤ê¤ÎÀÄǯ¤À¡£Æ¬¤Ï¤è¤¯¤Ê¤¤¤¬ÀµÄ¾¤Ç¡¢ÌÚ¤³¤ê¤ò¤ä¤Ã¤Æ¤¤¤ë¡£"
+ "¤è¤¯¤³¤³¤Ç¿©¤Ã¤Æ¤ë¤è¡£¤½¤·¤Æ»þ¡¹µÒ¤È¤·¤ã¤Ù¤Ã¤Æ¤ë¡£"))
(define (may-hackle knpc kpc)
- (say knpc "Hackle is a crazy but harmless old hedge-witch who lives across "
- "the stream. She has a knack for the healing arts but hasn't the wits "
- "for much else."))
+ (say knpc "¥Ï¥Ã¥¯¥ë¤Ï¤ª¤«¤·¤¤¤¬´í¸±¤Ç¤Ï¤Ê¤¤Ëâ½÷¤è¡£Àʬ¤«¤ì¤ë½ê¤Ë½»¤ó¤Ç¤ë¡£"
+ "¼£ÎŤε»¤¬¤¢¤ë¤±¤È¡¢Â¾¤Ï²¿¤â¤Ç¤¤Ê¤¤¡£"))
(define (may-room knpc kpc)
(if (not (string=? "working" (kern-obj-get-activity knpc)))
- (say knpc "The Inn is closed. Come back in the morning at 0600.")
+ (say knpc "½É¤Ï¤â¤¦ÊĤ¸¤¿¤è¡£ÌÀÆü¤Î6»þ¤Ë¤Þ¤¿Íè¤È¤¯¤ì¡£")
(let ((door (eval 'bole-inn-room-door)))
;; is the room still open?
(if (not (door-locked? (kobj-gob door)))
;; yes - remind player
- (say knpc "Your room is still open.")
+ (say knpc "Éô²°¤Ï¤â¤¦³«¤¤¤Æ¤ë¤è¡£")
;; no - ask if player needs a room
(begin
- (say knpc "Would ye like a room?")
+ (say knpc "Éô²°¤¬¤¤¤ë¤«¤¤¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player wants a room
(begin
(say knpc
- "It will be " inn-room-price " gold, "
- "and you may use the room as "
- "long as you are in town. Agreed?")
+ "¶â²ß" inn-room-price "Ëç¤Í¡£"
+ "¤³¤ÎÄ®¤Ë¤¤¤ë¸Â¤ê²¿Å٤Ǥâ½ÐÆþ¤ê¤Ç¤¤ë¡£"
+ "¤¤¤¤¤«¤¤¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player agrees to the price
(let ((gold (kern-player-get-gold)))
(kern-player-set-gold
(- gold
inn-room-price))
- (say knpc "Good. Your room is down the hall "
- "on the left.")
+ (say knpc "¤É¤¦¤â¡£Éô²°¤Ï±ü¤Îº¸¤è¡£")
(send-signal knpc door 'unlock)
(kern-conv-end)
)
;; no - player does not have enouvh gold)
- (say knpc "Ye have not the gold!")))
+ (say knpc "¶â¤¬Â¤ê¤Ê¤¤¤è¡ª")))
;; no - player does not agree to the price
(say knpc
- "Sleep on the ground then. Mind the wolves.")))
+ "¤Ê¤é¤½¤³¤é¤Ç¿²¤ì¤Ð¤¤¤¤¤µ¡£Ïµ¤Ëµ¤¤òÉÕ¤±¤Ê¡£")))
;; no - player does not want a room
- (say knpc "Even one such as you must sometimes rest!")))))))
+ (say knpc "¤¢¤ó¤¿¤Î¤è¤¦¤ÊÅۤ⤤¤Ä¤«¤ÏµÙ¤à¤ó¤À¤è¡ª")))))))
(define (may-thief knpc kpc)
- (say knpc "Ah... thou playest the thief-catcher. I suspected something of "
- "the kind. We HAVE had some odd guests here lately."))
+ (say knpc "¤ª¤ä¡Ä¤¢¤ó¤¿Êá¤êʪ¤«¤¤¡£"
+ "¤½¤ì¤Ã¤Ý¤¤ÅÛ¤¬¤¤¤¿¤è¡£ºÇ¶á²ø¤·¤¤µÒ¤¬Í褿¤ó¤À¡£"))
(define (may-trouble knpc kpc)
- (say knpc "Ye have the hard, pitiless visage like the men of the Old Era. "
- "But I sense that thou art not unjust."))
+ (say knpc "¤¢¤ó¤¿¡¢ÀΤÎÅۤߤ¿¤¤¤Ê¸±¤·¤¯¾ð¤±ÍƼϤʤ¤´é¤Ä¤¤ò¤·¤Æ¤ë¡£"
+ "¤Ç¤â¡¢¤¢¤ó¤¿¤Ï°¼Ô¤¸¤ã¤Ê¤¤¤À¤í¤¦¤Í¡£"))
(define may-conv
(ifc nil
- (method 'default (lambda (knpc kpc) (say knpc "I can't help thee.")))
+ (method 'default (lambda (knpc kpc) (say knpc "¤É¤¦¤·¤è¤¦¤â¤Ê¤¤¤Í¡£")))
(method 'hail may-hail)
- (method 'bye (lambda (knpc kpc) (say knpc "Begone then for now.")))
+ (method 'bye (lambda (knpc kpc) (say knpc "¤µ¤¢¡¢½Ð¤Æ¤¤¤Ã¤¿½Ð¤Æ¤¤¤Ã¤¿¡£")))
(method 'job may-job)
- (method 'name (lambda (knpc kpc) (say knpc "I am called May.")))
+ (method 'name (lambda (knpc kpc) (say knpc "¥á¥¤¤È¸Æ¤Ð¤ì¤Æ¤ë¡£")))
(method 'join (lambda (knpc kpc)
- (say knpc "Don't flatter me with your foolishness.")))
+ (say knpc "¤¢¤ó¤¿¤Î¥Ð¥«¤Ë´¬¤¹þ¤Þ¤Ê¤¤¤Ç¤ª¤¯¤ì¡£")))
(method 'buy may-trade)
(method 'food may-trade)
(method 'bill may-bill)
(method 'comp may-companion)
+ (method 'thin may-companion) ;; Ï¢¤ì
(method 'gues may-guests)
+ (method 'clie may-guests) ;; µÒ
(method 'hack may-hackle)
(method 'husb may-husband)
(method 'inn may-tavern)
(kern-char-arm-self
(kern-mk-char
'ch_may ;;......tag
- "May" ;;.......name
+ "¥á¥¤" ;;.......name
sp_human ;;.....species
nil ;;..........occupation
s_townswoman ;;...sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In the Poorhouse, near Oparine.
+;; ¥ª¥Ñ¡¼¥ê¥ó¤Î¶á¤¯¤ÎµßÉϱ¡
;;----------------------------------------------------------------------------
(define meaney-bed poorh-bed1)
(define meaney-mealplace poorh-sup1)
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Meaney is a monk of the Order of the Crossroad,
-;; living in the Poorhouse near Oparine.
-;; He was once a pirate, in the crew of the Merciful Death,
-;; and is sought for vengeance by the ghost captain Ghertie.
+;; ¥ß¡¼¥Ë¡¼¤Ï½½»úÏ©¶µÃĤÎÁÎη¤Ç¡¢¥ª¥Ñ¡¼¥ê¥ó¤Î¶á¤¯¤ÎµßÉϱ¡¤Ë½»¤ó¤Ç¤¤¤ë¡£
+;; Èà¤Ï¤«¤Ä¤Æ»üÈῼ¤¤»à¹æ¤Î¾èÁÈ°÷¤Î³¤Â±¤À¤Ã¤¿¡£
+;; ¤½¤·¤ÆË´Îî¤È¤Ê¤Ã¤¿¥¬¡¼¥Æ¥£Á¥Ä¹¤ËÉü½²¤Î¤¿¤áÄɤï¤ì¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
-;; Basics...
+;; ´ðËÜ
(define (meaney-hail knpc kpc)
- (say knpc "I greet thee, traveler."))
+ (say knpc "¤¢¤Ê¤¿¤ò´¿·Þ¤·¤Þ¤¹¡£Î¹¤ÎÊý¡£"))
(define (meaney-default knpc kpc)
- (say knpc "I cannot help thee with that."))
+ (say knpc "¤½¤ì¤Ï¤ª¼êÅÁ¤¤¤Ç¤¤Þ¤»¤ó¡£"))
(define (meaney-name knpc kpc)
- (say knpc "I am brother Meaney.")
+ (say knpc "½¤Æ»ÁΤΥߡ¼¥Ë¡¼¤Ç¤¹¡£")
(quest-data-update 'questentry-ghertie 'meaney-loc 1))
(define (meaney-join knpc kpc)
- (say knpc "My duty is to the poor and afflicted."))
+ (say knpc "»ä¤Ë¤ÏÉϤ·¤¤¼Ô¤È²ø²æ¤ò¤·¤¿¼Ô¤Ø¤ÎµÁ̳¤¬¤¢¤ê¤Þ¤¹¡£"))
(define (meaney-job knpc kpc)
- (say knpc "I run the poor house, "
- "where we care for the sick and destitute."))
+ (say knpc "¤³¤ÎµßÉϱ¡¤Ç"
+ "ɤμԡ¢ÉϤ·¤¤¼Ô¤Î¤¿¤á¤ËƯ¤¤¤Æ¤¤¤Þ¤¹¡£"))
(define (meaney-bye knpc kpc)
- (say knpc "Farewell."))
+ (say knpc "¤µ¤è¤¦¤Ê¤é¡£"))
;; Second-tier responses
(define (meaney-get-donation knpc kpc)
(define (rejected)
(cond ((> (kern-player-get-gold) 0)
- (say knpc "I see. Perhaps another time. [He turns away sadly]")
+ (say knpc "¤½¤¦¤Ç¤¹¤¬¡£¤Ç¤Ï¤Þ¤¿¤Î¤È¤¤Ë¡£¡ÎÈà¤ÏÈᤷ¤½¤¦¤ËÇؤò¸þ¤±¤¿¡£¡Ï")
(kern-conv-end))
(else
- (say knpc "Perhaps you also are in great need."))))
+ (say knpc "¤¢¤Ê¤¿¤âɬÍפ«¤â¤·¤ì¤Þ¤»¤ó¡£"))))
(let ((meaney (kobj-gob-data knpc)))
(if (not (meaney-donated? meaney))
(begin
- (say knpc "Wilt thou donate some gold to help the poor?")
+ (say knpc "ÉϤ·¤¤¼Ô¤Î¤¿¤á´óÉÕ¤ò¤ª´ê¤¤¤Ç¤¤Þ¤¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(let ((q (get-gold-donation knpc kpc)))
(if (> q 0)
(begin
- (say knpc "Bless you, stranger! "
- "Your kindness will be remembered.")
+ (say knpc "ι¤ÎÊý¤Ë½ËÊ¡¤¢¤ì¡ª"
+ "¤¢¤Ê¤¿¤Î¹Ô¤¤¤Ïµ²±¤µ¤ì¤ë¤Ç¤·¤ç¤¦¡£")
(meaney-donate! meaney q))
(rejected)))
(rejected))))))
(define (meaney-poor knpc kpc)
- (say knpc "At the poor house we aid widows and orphans mostly. "
- "Art thou in great need?")
+ (say knpc "¤³¤ÎµßÉϱ¡¤Ç¤Ï̤˴¿Í¤È¸É»ù¤ò»Ù±ç¤·¤Æ¤¤¤Þ¤¹¡£"
+ "¤¢¤Ê¤¿¤Ï½õ¤±¤¬É¬ÍפǤ¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "Then we gladly share what little food we have with thee.")
+ (say knpc "¤Ê¤é¤Ð´î¤ó¤Ç¿©ÎÁ¤ò¾¯¤·Ê¬¤±Í¿¤¨¤Þ¤·¤ç¤¦¡£")
(meaney-get-donation knpc kpc)))
(define (meaney-sick knpc kpc)
- (say knpc "We heal any who come here in need. Do you need healing?")
+ (say knpc "¤³¤³¤ËÍ褿¼Ô¤ÏɬÍפʤé¤Ðï¤Ç¤â¼£ÎŤ·¤Þ¤¹¡£¼£ÎŤ¬É¬ÍפǤ¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(meaney-trade knpc kpc)
(meaney-get-donation knpc kpc)))
(define (meaney-brot knpc kpc)
- (say knpc "I am a monk of the Order of the Crossroad. "
- "My order was founded by the Wanderer Davis over seven centuries ago "
- "to minister to the poor."))
+ (say knpc "»ä¤Ï½½»úÏ©¶µÃĤÎÁÎη¤Ç¤¹¡£"
+ "¤³¤Î¶µÃĤÏ̤¤¿Í¤Î¥Ç¡¼¥Ó¥¹¤Ë¤è¤ê¡¢7À¤µª°Ê¾åÁ°¤ËÉϤ·¤¤¿Í¡¹¤òµß¤¦¤¿¤á¤ËÀßΩ¤µ¤ì¤Þ¤·¤¿¡£"))
;; Trade...
(define (meaney-trade knpc kpc)
(if (trade-services knpc kpc
(list
- (svc-mk "Heal" 0 heal-service)
- (svc-mk "Cure" 0 cure-service)
+ (svc-mk "ÂÎÎϲóÉü" 0 heal-service)
+ (svc-mk "¼£Ìþ" 0 cure-service)
))
(begin
- (say knpc "How else can I aid you?")
+ (say knpc "¾¤Ë¼£ÎŤ¬É¬ÍפʿͤϤ¤¤Þ¤¹¤«¡©")
(meaney-trade knpc kpc))
(begin
- (say knpc "Will there be anything else?")
+ (say knpc "¾¤Ë²¿¤«É¬ÍפǤ¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(meaney-trade knpc kpc)
(meaney-get-donation knpc kpc)))))
;; Quest-related
(define (meaney-pira knpc kpc)
(quest-data-update 'questentry-ghertie 'meaney-loc 1)
- (say knpc "Yes, I was once a pirate, long ago. "
- "I sailed with Ma Ghertie on the Merciful Death. "
- "Now I spend my life in penance to the poor."))
+ (say knpc "¤½¤¦¡£»ä¤Ï¤«¤Ä¤Æ¤Ï³¤Â±¤Ç¤·¤¿¡£¤º¤Ã¤ÈÀΤΤ³¤È¤Ç¤¹¡£"
+ "¤ª¤Ã¤«¤µ¤ó¤Î¥¬¡¼¥Æ¥£¡¼¤È¶¦¤Ë»üÈῼ¤¤»à¹æ¤Ë¾è¤Ã¤Æ¤¤¤Þ¤·¤¿¡£"
+ "º£¤Ï¤½¤Î½þ¤¤¤È¤·¤ÆÉϤ·¤¤¿Í¤¿¤Á¤Ë¿ÍÀ¸¤òÊû¤²¤Æ¤¤¤Þ¤¹¡£"))
(define (meaney-gher knpc kpc)
- (say knpc "Ma Ghertie treated us crew like family. "
- "She was a ruthless brigand and thoroughly wicked. "
- "No doubt she deserved to die, "
- "but not at the hands of her own Bully Boys."))
+ (say knpc "¥¬¡¼¥Æ¥£¡¼¤Ï»ä¤¿¤Á¼ê²¼¤ò²È²¤Î¤è¤¦¤Ë¤¢¤Ä¤«¤Ã¤Æ¤¯¤ì¤Þ¤·¤¿¡£"
+ "Ʊ»þ¤ËÍƼϤʤ¤Î¬Ã¥¼Ô¤Ç¡¢Ê¶¤ì¤â¤Ê¤¤°ÅޤǤ⤢¤ê¤Þ¤·¤¿¡£"
+ "Èà½÷¤Ï»à¤Ì¤Ù¤¤À¤Ã¤¿¤Ç¤·¤ç¤¦¡£"
+ "¤·¤«¤·¡¢¤½¤ì¤ÏÈà½÷¤Î©»Ò¤¿¤Á¤Ë¤è¤Ã¤Æ¤Ê¤µ¤ì¤ë¤Ù¤¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£"))
(define (meaney-pena knpc kpc)
- (say knpc "I am guilty of many heinous crimes, "
- "and all the bloodletting was for naught. "
- "I betrayed my captain, and was betrayed in turn."))
+ (say knpc "»ä¤Ï¿ô¿¤¯¤Îºá¤òÈȤ·¡¢¤½¤·¤Æ¤¿¤¯¤µ¤ó¤Î¿Í¤Î·ì¤òή¤·¤Þ¤·¤¿¡£"
+ "»ä¤ÏÁ¥Ä¹¤ò΢Àڤꡢ¤½¤·¤ÆµÕ¤Ë΢ÀÚ¤é¤ì¤Þ¤·¤¿¡£"))
(define (meaney-betr knpc kpc)
- (say knpc "The whole crew conspired to murder our captain and divide the loot. "
- "We were certain she was going to murder us all first if we did not. "
- "The first mate, the cook and I did the deed while she lay drunk, "
- "but when we returned to the dock the ship had sailed without us."))
+ (say knpc "¼ê²¼Á´°÷¤Ç¶¦ËŤ·Á¥Ä¹¤ò»¦¤·¡¢Ã¥¤Ã¤¿¤â¤Î¤òʬ¤±¤Þ¤·¤¿¡£"
+ "¼«Ê¬¤¿¤Á¤¬¤½¤¦¤·¤Ê¤±¤ì¤Ð¡¢Èà½÷¤Ï¼«Ê¬¤¿¤ÁÁ´°÷¤ò»¦¤¹¤À¤í¤¦¤È»×¤¤¹þ¤ó¤Ç¤¤¤¿¤Î¤Ç¤¹¡£"
+ "ºÇ½é¤Îͧ¡¢ÎÁÍý¿Í¡¢¤½¤·¤Æ»ä¤Ï¼ò¤ò°û¤ó¤Ç²£¤Ë¤Ê¤Ã¤Æ¤¤¤ë´Ö¤ËÈà½÷¤ò»¦³²¤·¤Þ¤·¤¿¡£"
+ "¤·¤«¤·Á¥Ãå¾ì¤ËÌá¤Ã¤Æ¤ß¤ë¤È¡¢Á¥¤Ï»ä¤¿¤Á¤òÃÖ¤¤¤Æ¹Ô¤Ã¤Æ¤·¤Þ¤Ã¤¿¤Î¤Ç¤¹¡£"))
(define (meaney-firs knpc kpc)
- (say knpc "The first mate was an evil wretch named Jorn. "
- "I heard he is a bandit now, somewhere in the great forest to the east. "
- "You might ask around Green Tower.")
+ (say knpc "ºÇ½é¤Îͧ¤Ï¥¸¥ç¡¼¥ó¤È¤¤¤¦Ì¾¤Î°ÅޤǤ¹¡£"
+ "º£¤Ç¤âÅì¤Î¹Âç¤Ê¿¹¤Î¤É¤³¤«¤ÇÅð±¤ò¤ä¤Ã¤Æ¤¤¤ë¤Èʹ¤¤Þ¤·¤¿¡£"
+ "ÎФÎÅã¤Çʹ¤±¤Ð¤è¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¡£")
(quest-data-update 'questentry-ghertie 'jorn-forest 1))
(define (meaney-cook knpc kpc)
- (say knpc "Gholet is no doubt either dead or rotting in prison somewhere. "
- "The last time I saw him he stopped here for the night. "
- "When I awoke the next morning I found the lock on our donation box broken. "
- "The box was even more empty than usual.")
+ (say knpc "¥´¥ì¥Ã¥È¤Ï»à¤ó¤À¤«¡¢¤É¤³¤«¤ÎÏ´¹ö¤ËÊü¤ê¹þ¤Þ¤ì¤Æ¤¤¤ë¤Ç¤·¤ç¤¦¡£"
+ "ºÇ¸å¤Ë²ñ¤Ã¤¿¤Î¤Ï¿¿ÌëÃæ¤Ë¤³¤³¤òˬ¤ì¤¿¤È¤¤Ç¤·¤¿¡£"
+ "¼¡¤ÎÄ«¡¢Ìܤ¬³Ð¤á¤ë¤ÈÊç¶âÈ¢¤Î¸°¤¬²õ¤µ¤ì¤Æ¤¤¤Þ¤·¤¿¡£"
+ "¤â¤Á¤í¤óÈ¢¤ÎÃæ¤Ï¶õ¤Ç¤·¤¿¡£")
(quest-data-update 'questentry-ghertie 'gholet-prison 1)
)
(define (meaney-ring knpc kpc)
(if (not (meaney-has-ring (kobj-gob-data knpc)))
- (say knpc "I hope I never see that cursed thing again.")
+ (say knpc "¤â¤¦¤½¤Î¼ö¤ï¤ì¤¿»ØÎؤϸ«¤¿¤¯¤Ê¤¤¤â¤Î¤Ç¤¹¡£")
(begin
- (say knpc "Yes, I wear the ring of Ma Ghertie's Bully Boys, "
- "the crew of the Merciful Death. Yes, I am a murdering pirate. ")
+ (say knpc "¤Ï¤¤¡£»ä¤Ï¥¬¡¼¥Æ¥£¡¼¤Î©»Ò¡¢»üÈῼ¤¤»à¹æ¤Î»ØÎؤò¤Ä¤±¤Æ¤¤¤Þ¤¹¡£"
+ "¤½¤¦¡¢»ä¤Ï¿Í»¦¤·¤Î³¤Â±¤Ê¤Î¤Ç¤¹¡£")
(prompt-for-key)
- (say knpc "Legend says the Wanderer Luto traveled the countryside, "
- "dispensing justice at the point of his sword. Have you come to "
- "slay me for my crimes?")
+ (say knpc "¸À¤¤ÅÁ¤¨¤Ë¤è¤ë¤È¤³¤ÎÃϤËÍ褿̤¤¿Í¤Î¥ë¥È¤Ï¡¢¤½¤Î·õ¤Ë¤è¤Ã¤ÆÀµµÁ¤ò»Ü¤·¤¿¤½¤¦¤Ç¤¹¡£"
+ "»ä¤òÃǺᤷ¤Æ¤¯¤ì¤Þ¤¹¤«¡©")
(if (yes? kpc)
(begin
- (say knpc "Then be done with it, I am ready. [He stands with head bowed].")
+ (say knpc "¤½¤Î·õ¤Ç¹Ô¤Ã¤Æ¤¯¤À¤µ¤¤¡£³Ð¸ç¤Ï¤Ç¤¤Æ¤¤¤Þ¤¹¡£¡ÎÈà¤ÏƬ¤ò²¼¤²¤¿¡£¡Ï")
(kern-conv-end))
(begin
- (say knpc "You are merciful. "
- "But it is time I parted ways with this ring, "
- "which means I must part ways with this finger. "
- "I have not the courage to cut it off, "
- "will you do it?")
+ (say knpc "¤¢¤Ê¤¿¤Ï»üÈῼ¤¤Êý¤À¡£"
+ "¤·¤«¤·¡¢º£¤¬¤³¤Î»ØÎؤÈÊ̤ì¤ë¤È¤¡¢¤½¤Î¤¿¤á¤Ë¤Ï¤³¤Î»Ø¤ÈÊ̤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£"
+ "»ä¤Ë¤Ï¤³¤Î»Ø¤òÀÚ¤êÍî¤È¤¹Í¦µ¤¤Ï¤¢¤ê¤Þ¤»¤ó¡£¤¢¤Ê¤¿¤¬¤ä¤Ã¤Æ¤¯¤ì¤Þ¤¹¤«¡©")
(if (yes? kpc)
(begin
- (say knpc "[With a quick motion you grab his hand and hack off the "
- "finger] Ah! There, it is off, and I am free from its curse. "
- "I thank you, Wanderer. Know that if you ever need aid "
- "or healing, I will do what I can for you.")
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÏÈà¤Î¼ê¤ò¤Ä¤«¤ß¡¢ÁÇÁ᤯»Ø¤òÀÚ¤êÍî¤È¤·¤¿¡£¡Ï"
+ "¤¢¤¢¤¢¤Ã¡ª¤³¤ì¤Ç»ä¤Ï¼ö¤¤¤«¤é²ò¤Êü¤¿¤ì¤Þ¤·¤¿¡£"
+ "¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡¢Ì¤¤¿Í¡£"
+ "¤â¤·²¿¤«½õ¤±¤ä¼£ÎŤ¬É¬Íפʤ顢»ä¤Ï¤¢¤Ê¤¿¤Î¤¿¤á¤Ë¹Ô¤¤¤Þ¤¹¡£")
(skullring-m-get nil kpc)
(meaney-remove-ring (kobj-gob-data knpc))
)
- (say knpc "I wish I could be rid of the wretched thing!")))))))
+ (say knpc "»ä¤Ï¤³¤Î°¤·¤¤â¤Î¤«¤é²òÊü¤µ¤ì¤¿¤¤¤Î¤Ç¤¹¡ª")))))))
(define meaney-conv
(ifc basic-conv
;; pirate quest replies
(method 'pira meaney-pira)
(method 'gher meaney-gher)
- (method 'ma meaney-gher)
+ ;(method 'ma meaney-gher)
(method 'capt meaney-gher)
(method 'pena meaney-pena)
(method 'betr meaney-betr)
(let ((knpc
(kern-mk-char
'ch_meaney ; tag
- "Meaney" ; name
+ "¥ß¡¼¥Ë¡¼" ; name
meaney-species ; species
meaney-occ ; occ
s_companion_shepherd ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Bole.
+;; ¥Ü¥ì
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_melvin
(list 0 0 bole-bed-melvin "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Melvin is the cook at the Inn in Bole.
-;; He is the (seventh) husband to May.
+;; ¥á¥ë¥ô¥£¥ó¤Ï¥Ü¥ì¤Î½É¤ÎÎÁÍý¿Í¤Ç¤¢¤ë¡£
+;; Èà¤Ï¥á¥¤¤Î(7ÈÖÌܤÎ)ÉפǤ¢¤ë¡£
;;----------------------------------------------------------------------------
(define melv-merch-msgs
- (list "Come by the tavern when I'm open. I open at 7:00AM and close at midnight."
- "Try the daily special." ;; buy
+ (list "¼ò¾ì¤¬³«¤¤¤Æ¤ë¤È¤¤ËÍè¤Æ¤¯¤ì¡£¸áÁ°7»þ¤«¤é¿¼Ìë¤Þ¤Ç¤ä¤Ã¤Æ¤ë¡£"
+ "º£Æü¤Î¤´ÃÚÁö¤À¡£" ;; buy
nil ;; sell
nil ;; trade
- "Not bad, eh?" ;; sold-something
- "Now don't be shy." ;; sold-nothing
+ "°¤¯¤Ê¤¤¤À¤í¡©" ;; sold-something
+ "¤Þ¤¢¿©¤Ã¤Æ¤ß¤Ê¤è¡£" ;; sold-nothing
nil ;; bought-something
nil ;; bought-nothing
nil ;; traded-something
(define melv-catalog
(list
- (list t_beer 4 "Beer; it's what's for breakfast!")
- (list t_food 3 "Folks say I make the best jalapeno quiche in the Shard!")
+ (list t_beer 4 "¥Ó¡¼¥ë¡¢¤³¤ì¤ÏÄ«ÈÓ¤À¡ª")
+ (list t_food 3 "¤³¤Î¤¢¤¿¤ê¤¸¤ã¥·¥ã¥ë¥É¤¤¤Á¤Î¥Ñ¥é¥Ú¡¼¥Ë¥ç¡¦¥¥Ã¥·¥å¤ÈɾȽ¤À¡ª")
))
(define (melvin-buy knpc kpc) (conv-trade knpc kpc "buy" melv-merch-msgs melv-catalog))
;; basics...
(define (melvin-default knpc kpc)
- (say knpc "Ask May about that, I don't know."))
+ (say knpc "¥á¥¤¤Ëʹ¤¤¤Æ¤¯¤ì¡£²¶¤Ë¤Ï¤ï¤«¤é¤ó¡£"))
(define (melvin-hail knpc kpc)
- (say knpc "[You meet a hungover chef] Hello, partner."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÏÆóÆü¿ì¤¤¤ÎÎÁÍý¿Í¤È²ñ¤Ã¤¿¡£¡Ï¤¤¤é¤Ã¤·¤ã¤¤¡£"))
(define (melvin-name knpc kpc)
- (say knpc "I'm Melvin, the cook."))
+ (say knpc "ÎÁÍý¿Í¤Î¥á¥ë¥ô¥£¥ó¤À¡£"))
(define (melvin-job knpc kpc)
- (say knpc "I run the Bole Inn & Tavern with my wife, May. I cook, she "
- "serves."))
+ (say knpc "¥Ü¥ì¤Î¼ò¾ì¤È½É¤òºÊ¤Î¥á¥¤¤È¤ä¤Ã¤Æ¤¤¤ë¡£"
+ "²¶¤¬ÎÁÍý¤·¤Æ¡¢¥á¥¤¤¬½Ð¤¹¡£"))
(define (melvin-join knpc kpc)
- (say knpc "I wouldn't be much good to you, partner. Better leave me here "
- "to my kitchen where at least I can cook you some grub."))
+ (say knpc "¤¤Ã¤È¤¦¤Þ¤¯¤ä¤ì¤Í¤¨¤Ê¡£"
+ "¾¯¤Ê¤¯¤È¤â¤³¤³¤Ë¤¤¤¿Êý¤¬¤¤¤¤ÎÁÍý¤¬¤Ç¤¤ë¡£"))
(define (melvin-bye knpc kpc)
- (say knpc "Farewell, partner. Come back any time you're hungry."))
+ (say knpc "¤¢¤ê¤¬¤È¤¦¡£Ê¢¤¬¸º¤Ã¤¿¤é¤¤¤Ä¤Ç¤âÌá¤Ã¤Æ¤³¤¤¤è¡£"))
;; other characters & town...
(define (melvin-may knpc kpc)
- (say knpc "My wife May is an ornery woman, but sharp as a tack."))
+ (say knpc "ºÊ¤Î¥á¥¤¤ÏÊ¿Ëޤʽ÷¤À¡£¤À¤¬¿Ë¤Î¤è¤¦¤Ë±Ô¤¤¡£"))
(define (melvin-kath knpc kpc)
- (say knpc "That red lady is a wicked beauty! But I'm neither drunk nor "
- "fool enough to mingle with wizards business. Take my advice, stay "
- "far away from her and that thing she travels with!"))
+ (say knpc "¤¢¤ÎÀÖ¤¤¤¤ì¤¤¤Ê½÷¡ª"
+ "¤À¤¬¡¢²¶¤âËâË¡»È¤¤¤ÎÌñ²ð¤´¤È¤Ë¼ó¤òÆͤùþ¤à¤Û¤É°û¤ß¤¹¤®¤Æ¤â¤¤¤Ê¤¤¤·¡¢¥Ð¥«¤Ç¤â¤Ê¤¤¡£"
+ "°¤¤¤³¤È¤Ï¸À¤ï¤ó¡£¤¢¤Î½÷¤È¤½¤ÎÏ¢¤ì¤Ë¤Ï¶á¤Å¤¯¤Ê¡ª"))
(define (melvin-bill knpc kpc)
- (say knpc "He's missing a screw or two, but he's a good lad."))
+ (say knpc "¤¢¤¤¤Ä¤Ï¥Í¥¸¤¬1Ëܤ«2Ëܳ°¤ì¤Æ¤ë¡£¤Ç¤â¤¤¤¤ÅÛ¤À¡£"))
(define (melvin-thud knpc kpc)
- (say knpc "That's no man traveling with the red lady, but I've never seen a "
- "troll that could talk so well. I'm not sure what it is, but magic had "
- "a hand in making it."))
+ (say knpc "ÀÖ¤¤½÷¤È°ì½ï¤ËÍ褿¤Î¤Ï¿Í´Ö¤¸¤ã¤Ê¤¤¡£"
+ "¤Ç¤â¡¢¤¢¤ó¤Ê¤Ë¤¦¤Þ¤¯¤·¤ã¤Ù¤ì¤ë¥È¥í¥ë¤Ï¸«¤¿¤³¤È¤¬¤Ê¤¤¡£"
+ "¤è¤¯¤ï¤«¤é¤ó¤¬¡¢²¿¤«¤ÎËâË¡¤«¤â¤·¤ì¤ó¡£"))
(define (melvin-bole knpc kpc)
- (say knpc "It's a nice enough place."))
+ (say knpc "Á´¤¯¤¤¤¤½ê¤À¡£"))
(define (melvin-hack knpc kpc)
- (say knpc "Hackle lives in the northwest corner of town across the bridge. "
- "She's a crazy old hedge-witch but harmless."))
+ (say knpc "¥Ï¥Ã¥¯¥ë¤Ï¤³¤ÎÄ®¤ÎËÌÀ¾¤Î¶¶¤òÅϤ俽ê¤Ë¤¤¤ë¡£"
+ "¤ª¤«¤·¤ÊËâ½÷¤À¤¬¡¢´í¸±¤Ç¤Ï¤Ê¤¤¡£"))
;; thief quest...
(define (melvin-thie knpc kpc)
- (say knpc "There was a strange rogue who came in here not long ago, "
- "looking like he had demons hounding his trail. He left shortly after "
- "the red lady arrived. Spoke with Hackle before he left, I think. "
- "Most odd."))
+ (say knpc "ºÇ¶á²ø¤·¤¤ÅÛ¤¬¤³¤Î¤¢¤¿¤ê¤Ë¤¤¤¿¤Ê¡£ÃϹö¤ÎÎĸ¤¤ß¤¿¤¤¤ËÓ̤®¤Þ¤ï¤Ã¤Æ¤¤¤¿¤¬¡¢"
+ "¤¢¤ÎÀÖ¤¤½÷¤¬Íè¤Æ¤¹¤°¤Ë¤¤¤Ê¤¯¤Ê¤Ã¤¿¡£¤¤¤Ê¤¯¤Ê¤ëÁ°¤Ë¥Ï¥Ã¥¯¥ë¤ÈÏ䷤Ƥ¤¤¿¤È»×¤¦¡£"
+ "°ìÈÖ´ñ̯¤Ê¤³¤È¤À¡£"))
;; misc...
(define (melvin-wiza knpc kpc)
- (say knpc "There's foul business afoot! There's something going on between "
- "that red sorceress and that mysterious rogue, I know it."))
+ (say knpc "¤ª¤«¤·¤Ê¤³¤È¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤ó¤À¤è¡ª"
+ "ÀÖ¤¤ËâË¡»È¤¤¤ÈÊѤÊÅۤδ֤Dz¿¤«¤¬µ¯¤³¤Ã¤Æ¤¤¤ë¡£²¶¤Ë¤Ï¤ï¤«¤ë¤ó¤À¡£"))
(define (melvin-inn knpc kpc)
- (say knpc "If you need a room for the night or something cold to wash the "
- "dust from your throat, talk to May. But if you're hungry just say so "
- "and I'll fix you right up!"))
+ (say knpc "Éô²°¤¬¤¤¤ë¤«¡¢Î䤿¤¤°û¤ßʪ¤¬Íߤ·¤±¤ì¤Ð¥á¥¤¤Ë¸À¤Ã¤Æ¤¯¤ì¡£"
+ "¤À¤¬¡¢Ê¢¤¬¸º¤Ã¤¿¤é²¶¤Ë¤½¤¦¸À¤Ã¤Æ¤¯¤ì¡£"
+ "¤¹¤°¤Ë½Ð¤¹¤¾¡ª"))
(define (melvin-hung knpc kpc)
- (say knpc "Are you hungry?")
+ (say knpc "Ê¢¤Ï¸º¤Ã¤Æ¤¤¤ë¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(melvin-buy knpc kpc)
- (say knpc "Well if you get hungry just say so!")))
+ (say knpc "¤½¤¦¡£Ê¢¤¬¸º¤Ã¤¿¤é¤½¤¦¸À¤Ã¤Æ¤¯¤ì¡ª")))
(define melvin-conv
(ifc basic-conv
(method 'thie melvin-thie)
(method 'rogu melvin-thie)
(method 'char melvin-thie)
+
+ (method 'bole melvin-bole)
))
;;----------------------------------------------------------------------------
(define (mk-melvin)
(bind
(kern-mk-char 'ch_melvin ; tag
- "Melvin" ; name
+ "¥á¥ë¥ô¥£¥ó" ; name
sp_human ; species
nil ; occ
s_townsman ; sprite
;;----------------------------------------------------------------------------
(kern-mk-place
'p_merciful_death ; tag
- "Wreck of the Merciful Death (abovedecks)" ; name
+ "»üÈῼ¤¤»à¹æ¤Î»Ä³¼ (¹ÃÈĤξå)" ; name
s_ship ; sprite
m_merciful_death ; map
#f ; wraps
;;----------------------------------------------------------------------------
(kern-mk-place
'p_merciful_death_l2 ; tag
- "Wreck of the Merciful Death (belowdecks)" ; name
+ "»üÈῼ¤¤»à¹æ¤Î»Ä³¼ (¹ÃÈĤβ¼)" ; name
nil ; sprite
m_merciful_death_l2 ; map
#f ; wraps
;; Basics...
(define (mesmeme-hail knpc kpc)
- (kern-log-msg "You meet a battered gazer.")
- (say knpc "I see you.")
+ (kern-log-msg "¤¢¤Ê¤¿¤Ï½ý¤À¤é¤±¤Î¥²¥¤¥¶¡¼¤È²ñ¤Ã¤¿¡£")
+ (say knpc "²æ¡¢Æò¤ò¸«¤¿¤ê¡£")
)
(define (mesmeme-default knpc kpc)
- (say knpc "No knowing. No asking. Alone.")
+ (say knpc "ÃΤ餺¡£Åú¤¨¤Ê¤·¡£ÆȤê¤Ê¤ê¡£")
)
(define (mesmeme-name knpc kpc)
- (say knpc "I Mesmeme.")
+ (say knpc "²æ¡¢¥á¥¹¥á¥á¡£")
)
(define (mesmeme-leav knpc kpc)
(if (is-player-party-member? knpc)
(begin
- (say knpc "Be alone?")
+ (say knpc "ÆȤꡩ")
(if (yes? kpc)
(begin
(if (kern-char-leave-player knpc)
(begin
- (say knpc "Here waiting. Until void.")
+ (say knpc "²æ¡¢ÂԤġ£µõ¶õ¤Þ¤Ç¡£")
(kern-conv-end))
- (say knpc "Not now!")))
- (say knpc "Not alone!")))
+ (say knpc "¤³¤³¤Ë¤¢¤é¤º¡ª")))
+ (say knpc "ÆȤê¤Ë¤¢¤é¤º¡ª")))
(begin
- (say knpc "Until void.")
+ (say knpc "µõ¶õ¤Þ¤Ç¡£")
(kern-conv-end)))
)
(define (mesmeme-join knpc kpc)
- (say knpc "Yes! I alone.")
+ (say knpc "Á³¤ê¡ª²æ¡¢ÆȤê¤Ê¤ê¡£")
(join-player knpc)
(kern-conv-end)
)
(define (mesmeme-job knpc kpc)
- (say knpc "No job. No kindred. Alone.")
+ (say knpc "»Å»ö¤Ê¤·¡£Í§¤Ê¤·¡£ÆȤê¤Ê¤ê¡£")
)
(define (mesmeme-bye knpc kpc)
- (say knpc "Until void.")
+ (say knpc "µõ¶õ¤Þ¤Ç¡£")
)
(define (mesmeme-alon knpc kpc)
- (say knpc "I crippled. No... think voice? Mind voice? No talk kindred. Alone.")
+ (say knpc "²æ¡¢Éé½ý¤»¤ê¡£Ïá©Í§¡©ÈÝ¡£ÆȤê¤Ê¤ê¡£")
)
(define (mesmeme-kind knpc kpc)
- (say knpc "Kindred. Gazers. Swarm.")
+ (say knpc "ͧ¡£¥²¥¤¥¶¡¼¡£Ãî»È¤¤¡£")
)
(define (mesmeme-crip knpc kpc)
- (say knpc "Gint slave, mine. Too strong. Broke free, hurt!")
+ (say knpc "µð¿Í¤ÎÅÛÎì¤Ê¤ê¡£¶¯¤·¡£¹´Â«¡¢½ý¡ª")
)
(define (mesmeme-slav knpc kpc)
- (say knpc "Tools. Hands. One body too few!")
+ (say knpc "Æ»¶ñ¡¢¼êÀè¡£²æÆȤê¤Ç¤Ï¤ꤺ¡ª")
)
(define mesmeme-conv
(bind
(kern-mk-char
'ch_mesmeme ; tag
- "Mesmeme" ; name
+ "¥á¥¹¥á¥á" ; name
mesmeme-species ; species
mesmeme-occ ; occ
s_gazer ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; The schedule below is for the place "Trigrave"
+;; ¥È¥ê¥°¥ì¥¤¥Ö
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_miggs
(list 0 0 trigrave-miggs-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Miggs is the tavern-keeper.
+;; ¥á¥°¥¹¤Ï¼ò¾ì¤Î¼ç¿Í¤Ç¤¢¤ë
;;----------------------------------------------------------------------------
(define miggs-merch-msgs
- (list "Come by the tavern when I'm open. I open at 7:00AM and close at midnight."
- "[She silently points to a menu]"
+ (list "¼ò¾ì¤¬³«¤¤¤Æ¤¤¤ë¤È¤¤ËÍè¤Æ¤¯¤À¤µ¤¤¡£¸áÁ°7»þ¤«¤é¿¼Ìë¤Þ¤Ç¤Ç¤¹¡£"
+ "¡ÎÈà½÷¤ÏÌۤäƥá¥Ë¥å¡¼¤ò»Øº¹¤·¤¿¡£¡Ï"
nil
nil
- "Thank you."
- "Ok."
+ "¤¢¤ê¤¬¤È¤¦¡£"
+ "¤½¤¦¤Ç¤¹¤«¡£"
))
(define miggs-catalog
(list
- (list t_food 5 "[She ladles some delicious-smelling stew]")
- (list t_beer 3 "[She points to a cask labeled Fenmire's Finest]")
+ (list t_food 5 "¡ÎÈà½÷¤Ï¤ª¤¤¤·¤½¤¦¤Ê¤Ë¤ª¤¤¤Î¥·¥Á¥å¡¼¤ò¤¹¤¯¤Ã¤Æ¸«¤»¤¿¡£¡Ï")
+ (list t_beer 3 "¡ÎÈà½÷¤Ï¥Õ¥§¥ó¥Þ¥¤¥¢¤ÎÆõé¤È½ñ¤«¤ì¤¿¥é¥Ù¥ë¤Îî¤ò»Øº¹¤·¤¿¡£¡Ï")
))
(define (miggs-trade knpc kpc) (conv-trade knpc kpc "buy" miggs-merch-msgs miggs-catalog))
(define (miggs-hail knpc kpc)
- (kern-print "[You meet a large woman with a pretty face. She shyly avoids "
- "your gaze]\n"))
+ (kern-print "¡Î¤¢¤Ê¤¿¤ÏÂçÊÁ¤Ê¤«¤ï¤¤¤é¤·¤¤´éΩ¤Á¤Î½÷À¤È²ñ¤Ã¤¿¡£"
+ "Èà½÷¤ÏÃѤº¤«¤·¤½¤¦¤Ë»ëÀþ¤òÈò¤±¤¿¡£¡Ï\n"))
(define (miggs-job knpc kpc)
- (say knpc "I run the the Lusty Jugs."))
+ (say knpc "¤³¤Î¡ÖÍÛµ¤¤ÊÇաפò¤·¤Æ¤¤¤Þ¤¹¡£"))
(define (miggs-lust knpc kpc)
- (say knpc "It's a tavern. Want something?")
+ (say knpc "¤³¤³¤Ï¼ò¾ì¤Ç¤¹¡£²¿¤«¤¤¤ê¤Þ¤¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(miggs-trade knpc kpc)
- (say knpc "Ok")))
+ (say knpc "¤½¤¦¤Ç¤¹¤«¡£")))
(define miggs-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 "[She shrugs]")))
+ (method 'default (lambda (knpc kpc) (say knpc "¡ÎÈà½÷¤ÏÌۤ俤ޤޤÀ¡£¡Ï")))
(method 'hail miggs-hail)
- (method 'bye (lambda (knpc kpc) (say knpc "[She smiles slightly]")))
+ (method 'bye (lambda (knpc kpc) (say knpc "¡ÎÈà½÷¤Ï¾¯¤·Èù¾Ð¤ó¤À¡£¡Ï")))
(method 'job miggs-job)
- (method 'name (lambda (knpc kpc) (say knpc "Miggs")))
+ (method 'name (lambda (knpc kpc) (say knpc "¥á¥°¥¹¡£")))
(method 'trad miggs-trade)
(method 'buy miggs-trade)
(define (mk-miggs tag)
(bind
(kern-mk-char tag ; tag
- "Miggs" ; name
+ "¥á¥°¥¹" ; name
sp_human ; species
nil ; occ
s_fat_townswoman ; sprite
(method 'rm-traps mimic-rm-traps)
))
-(mk-obj-type 't_mimic "chest" s_chest layer-mechanism mimic-ifc)
+(mk-obj-type 't_mimic "ÊõÈ¢" s_chest layer-mechanism mimic-ifc)
(define (mk-mimic)
(kern-mk-obj t_mimic 1))
\ No newline at end of file
;; Setup progress bar for loading. I arrived at the number by printing the
;; current number of steps in src/foogod.c:foogod_progress_bar_finish().
-(kern-progress-bar-start "Loading" 205)
+(kern-progress-bar-start "Æɤ߹þ¤ßÃæ" 205)
;; Wrap the original definition of (load ...) with one that advances the
;; progress bar.
(kern-obj-get-count kobj)))
(kern-obj-dec-ref kobj)))))
-(mk-obj-type 't_gold_coins "gold coin" s_gold_coins layer-item money-ifc)
+(mk-obj-type 't_gold_coins "¶â²ß" s_gold_coins layer-item money-ifc)
;; phase sprites
(cond ((string=? color "yellow")
(list
- (list s_yellow_new_moon 0 "new")
- (list s_yellow_wax_quarter_moon 16 "1/4 waxing")
- (list s_yellow_wax_half_moon 32 "1/2 waxing")
- (list s_yellow_wax_three_quarter_moon 64 "3/4 waxing")
- (list s_yellow_full_moon 96 "full")
- (list s_yellow_wane_three_quarter_moon 64 "3/4 waning")
- (list s_yellow_wane_half_moon 32 "1/2 waning")
- (list s_yellow_wane_quarter_moon 16 "1/4 waning")))
+ (list s_yellow_new_moon 0 "¿··î")
+ (list s_yellow_wax_quarter_moon 16 "»°Æü·î")
+ (list s_yellow_wax_half_moon 32 "¾å¸¹")
+ (list s_yellow_wax_three_quarter_moon 64 "¶åÆü·î")
+ (list s_yellow_full_moon 96 "Ëþ·î")
+ (list s_yellow_wane_three_quarter_moon 64 "Æó½½Æü·î")
+ (list s_yellow_wane_half_moon 32 "²¼¸¹")
+ (list s_yellow_wane_quarter_moon 16 "Æó½½»°Æü·î")))
((string=? color "blue")
(list
- (list s_blue_new_moon 0 "new")
- (list s_blue_wax_quarter_moon 16 "1/4 waxing")
- (list s_blue_wax_half_moon 32 "1/2 waxing")
- (list s_blue_wax_three_quarter_moon 64 "3/4 waxing")
- (list s_blue_full_moon 96 "full")
- (list s_blue_wane_three_quarter_moon 64 "3/4 waning")
- (list s_blue_wane_half_moon 32 "1/2 waning")
- (list s_blue_wane_quarter_moon 16 "1/4 waning")))
+ (list s_blue_new_moon 0 "¿··î")
+ (list s_blue_wax_quarter_moon 16 "»°Æü·î")
+ (list s_blue_wax_half_moon 32 "¾å¸¹")
+ (list s_blue_wax_three_quarter_moon 64 "¶åÆü·î")
+ (list s_blue_full_moon 96 "Ëþ·î")
+ (list s_blue_wane_three_quarter_moon 64 "Æó½½Æü·î")
+ (list s_blue_wane_half_moon 32 "²¼¸¹")
+ (list s_blue_wane_quarter_moon 16 "Æó½½»°Æü·î")))
(else
(list
- (list s_new_moon 0 "new")
- (list s_wax_quarter_moon 16 "1/4 waxing")
- (list s_wax_half_moon 32 "1/2 waxing")
- (list s_wax_three_quarter_moon 64 "3/4 waxing")
- (list s_full_moon 96 "full")
- (list s_wane_three_quarter_moon 64 "3/4 waning")
- (list s_wane_half_moon 32 "1/2 waning")
- (list s_wane_quarter_moon 16 "1/4 waning")))))
+ (list s_new_moon 0 "¿··î")
+ (list s_wax_quarter_moon 16 "»°Æü·î")
+ (list s_wax_half_moon 32 "¾å¸¹")
+ (list s_wax_three_quarter_moon 64 "¶åÆü·î")
+ (list s_full_moon 96 "Ëþ·î")
+ (list s_wane_three_quarter_moon 64 "Æó½½Æü·î")
+ (list s_wane_half_moon 32 "²¼¸¹")
+ (list s_wane_quarter_moon 16 "Æó½½»°Æü·î")))))
gates))
(kern-load "gregor.scm")
;;-----------------------------------------------------------------------------
-;; Make some chests containing items to get the player started.
-;; These will be placed on the map in the shrine room in the SW.
+;; ¥×¥ì¥¤¥ä¡¼¤ÎºÇ½é¤Î»ý¤Áʪ¤¬Æþ¤Ã¤Æ¤¤¤ëÈ¢¤¬¤¢¤ë¡£
+;; ¤½¤ì¤ÏÆîÀ¾¤Îº×ÃŤˤ¢¤ë¡£
;;-----------------------------------------------------------------------------
(define supplies_chest
(mk-chest
;;----------------------------------------------------------------------------
-;; Moongate Clearing
+;; ·î¤ÎÌç¤Îº×ÃÅ
;;
-;; This is where the player starts out.
+;; ¤³¤³¤¬»Ï¤Þ¤ê¤Î¾ì½ê¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
-(kern-mk-place 'p_moongate_clearing "Moongate Clearing"
+(kern-mk-place 'p_moongate_clearing "·î¤ÎÌç¤Îº×ÃÅ"
s_shrine ;; sprite
(kern-mk-map 'm_moongate_clearing 23 28 pal_expanded
(list
(let ((gate (kobj-gob-data kgate)))
(if (moongate-open? gate)
(let ((kdest (moongate-kdest gate)))
- (cond ((null? kdest) (kern-print "Leads nowhere!\n"))
+ (cond ((null? kdest) (kern-print "¤É¤³¤Ø¤â¹Ô¤±¤Ê¤¤¡ª\n"))
(else
(kern-obj-relocate kstepper
(kern-obj-get-location kdest)
(method 'exec moongate-exec)
))
-(mk-obj-type 't_moongate "moongate" '() layer-mechanism moongate-ifc)
+(mk-obj-type 't_moongate "·î¤ÎÌç" '() layer-mechanism moongate-ifc)
(define (mk-moongate moontag)
(bind (kern-mk-obj t_moongate 1)
(define (mouse-meet-first-time knpc kpc)
(define (mouse-disappear)
- (say knpc "Oh, bother. Not again!")
+ (say knpc "¤ª¤Ã¤È·»Äï¤è¡¢¤â¤¦²ñ¤¤¤¿¤¯¤Ê¤«¤Ã¤¿¤Ê¡ª")
(kern-obj-add-effect knpc ef_invisibility nil)
(kern-conv-end kpc)
)
(define (mouse-query)
- (say knpc "Hi. You weren't sent by the Red Lady, were you?")
+ (say knpc "¤ä¤¢¡£ÀÖ¤¤½÷¤Î¥Ñ¥·¥ê¤«¤¤¡©")
(if (yes? kpc)
(mouse-disappear)
(begin
- (say knpc "Whew! You scared me for a minute.")
+ (say knpc "¥Ò¥§¡¼¡ª¤Ó¤Ã¤¯¤ê¤·¤¿¤è¡£")
(mouse-talked)
)
))
(define (mouse-gratitude)
- (say knpc "Praise be to Alopex! The Red Lady is dead! "
- "You've done me a great favor.")
+ (say knpc "¥¢¥í¥Ú¥¯¥¹¤è´¶¼Õ¤·¤Þ¤¹¡ªÀÖ¤¤½÷¤Ï»à¤ó¤À¡ª"
+ "¤¢¤ó¤¿¡¢¤è¤¯¤ä¤Ã¤Æ¤¯¤ì¤¿¤Ê¡£")
(mouse-talked)
)
(define (kathryn-speech)
- (say ch_kathryn "Fool, you have led me right to the thief!")
+ (say ch_kathryn "¥Ð¥«¤Ê¿Í¤Í¡ªÅ¥ËÀ¤Î½ê¤Þ¤Ç°ÆÆ⤷¤Æ¤¯¤ì¤ë¤Ê¤ó¤Æ¡ª")
(kern-obj-set-conv ch_kathryn nil)
(kern-being-set-base-faction ch_kathryn faction-monster))
(define (thud-speech)
- (say ch_thud "Thief here! Kill! Kill! Kill!")
+ (say ch_thud "Å¥ËÀ¤¬¡¡¤¤¤¿¡ª»¦¤¹¡ª»¦¤¹¡ª»¦¤¹¡ª")
(kern-obj-set-conv ch_thud nil)
(kern-being-set-base-faction ch_thud faction-monster))
(if (mouse-first-meeting? mouse)
(mouse-meet-first-time knpc kpc)
(begin
- (say knpc "Ah, hello. Heh.")
+ (say knpc "¤¢¡¢¤³¤ó¤Ë¤Á¤Ï¡£¤Ø¤Ø¤Ã¡£")
(mouse-talked)
)
)))
(define (mouse-default knpc kpc)
- (say knpc "Got me there."))
+ (say knpc "¤µ¤¢¤É¤¦¤«¤Ê¡£"))
(define (mouse-name knpc kpc)
- (say knpc "I'm the Mouse."))
+ (say knpc "¥Í¥º¥ß¤Ç¤¹¡£"))
(define (mouse-join knpc kpc)
- (say knpc "Sorry, I'm not a team player. Heh."))
+ (say knpc "°¤¤¤Ê¤¢¡£¶¦Æ±ºî¶È¤Ë¤Ï¸þ¤¤¤Æ¤Ê¤¤¤ó¤À¡£¤Ø¤Ø¡£"))
(define (mouse-job knpc kpc)
- (say knpc "I... uh... collect things."))
+ (say knpc "¤¨¡¼¡¢Êª¤ò¡Ä½¸¤á¤ë¤³¤È¡£"))
(define (mouse-coll knpc kpc)
- (say knpc "Some might even call me a thief."))
+ (say knpc "Å¥ËÀ¤È¸Æ¤Ö¿Í¤â¤¤¤ë¡£"))
(define (mouse-thie knpc kpc)
- (say knpc "Until recently it was a good business. Somebody wants "
- "something, they pay me to get it. But then I was hired by this "
- "strange lady in red."))
+ (say knpc "ºÇ¶á¤Þ¤Ç¤Ï¤¤¤¤»Å»ö¤À¤Ã¤¿¤Í¤¨¡£"
+ "²¿¤«Íߤ·¤¤Êª¤¬¤¢¤ì¤Ð¡¢¤½¤ì¤ò¼ê¤ËÆþ¤ì¤ë¤¿¤á¤Ë¤¢¤Ã¤·¤Ë¶â¤òʧ¤Ã¤¿¡£"
+ "¤Ç¡¢¤³¤ÎÊѤÊÀÖ¤¤½÷¤Ë¸Û¤ï¤ì¤¿¤ó¤À¡£"))
(define (mouse-lady knpc kpc)
- (say knpc "The lady hired me to get something and then meet her to "
- "exchange it for payment. All very typical, you know? But instead "
- "of paying me, she tried to kill me!"))
+ (say knpc "¤½¤ÎÀÖ¤¤½÷¤Ï¤¢¤Ã¤·¤ò¤¢¤ëʪ¤ò¼ê¤ËÆþ¤ì¤ë¤¿¤á¤Ë¸Û¤Ã¤¿¡£¤½¤Î¸å¡¢¶â¤È¸ò´¹¤¹¤ë¤¿¤á¤Ë²ñ¤Ã¤¿¡£"
+ "¤³¤³¤Þ¤Ç¤Ï¤è¤¯¤¢¤ë¤³¤È¤À¡£¤ï¤«¤ë¤À¤í¡©"
+ "¤Ç¤â¡¢¤³¤Î½÷¤Ï¶â¤òʧ¤¦¤«¤ï¤ê¤Ë¡¢¤¢¤Ã¤·¤ò»¦¤½¤¦¤È¤·¤¿¤ó¤À¡ª"))
(define (mouse-kill knpc kpc)
- (say knpc "That red lady and her brute were relentless! I can't thank you "
- "enough for getting rid of them, but I have a bad feeling they weren't "
- "working alone. I'll be hunted for the rest of my life unless I can "
- "get rid of this stupid rune!"))
+ (say knpc "ÀÖ¤¤½÷¤È¥´¥Ä¤¤¼ê²¼¤ÏÍƼϤʤ«¤Ã¤¿¡ª"
+ "¤³¤¤¤Ä¤é¤òÅݤ·¤¿¤³¤È¤À¤±¤Ï´¶¼Õ¤¹¤ë¤è¡£¤À¤¬¡¢¤³¤¤¤Ä¤é¤¬Ã±ÆȤǤä¤Ã¤¿¤Î¤Ç¤Ï¤Ê¤¤µ¤¤¬¤¹¤ë¡£"
+ "¤³¤Î¤¯¤À¤é¤Ê¤¤ÀÐÈǤȤª¤µ¤é¤Ð¤·¤Ê¤¤¸Â¤ê¤º¤Ã¤ÈÁÀ¤ï¤ì¤½¤¦¤À¡ª"))
(define (mouse-rune knpc kpc)
(if (not (in-inventory? knpc t_rune_k))
- (say knpc "It's your problem now, buddy!")
+ (say knpc "¤½¤ì¤Ï¤â¤¦¤¢¤ó¤¿¤ÎÌäÂê¤À¡¢¿Æͧ¤è¡ª")
(begin
(define (give-rune gold)
(if (> pgold gold)
(kern-obj-add-gold kpc (- 0 gold))
(let ((price (min pgold gold)))
- (say knpc "You don't have enough! Oh well, I'll just take "
- "whatever you can give me for it.")
+ (say knpc "¤ª¤Ã¤È¡¢¶â¤¬Â¤ê¤Ê¤¤¤Ê¡ª"
+ "ʧ¤¨¤ëʬ¤À¤±¼õ¤±¼è¤Ã¤Æ¤ª¤³¤¦¡£")
(kern-obj-add-gold kpc (- 0 price)))))
(kern-obj-remove-from-inventory knpc t_rune_k 1)
(kern-obj-add-to-inventory kpc t_rune_k 1)
(quest-data-update-with 'questentry-thiefrune 'recovered 1 (quest-notify (grant-party-xp-fn 50)))
)
- (say knpc "This rune I got for the red lady has been nothing but "
- "trouble since I first heard of it. I don't even know what "
- "it's good for! I'll give you a really good deal on it. Say, "
- "500 gold?")
+ (say knpc "ÀÖ¤¤½÷¤Î¤¿¤á¤Ë¼ê¤ËÆþ¤ì¤¿¤³¤ÎÀÐÈǤϡ¢ºÇ½é¤Ëʹ¤¤¤¿¤È¤¤«¤é¤º¤Ã¤È¤ä¤Ã¤«¤¤¤´¤È¤Ë²á¤®¤Ê¤«¤Ã¤¿¡£"
+ "¤³¤ì¤¬²¿¤Ê¤Î¤«¤â¤ï¤«¤é¤Ê¤¤¡ª"
+ "¤ªÇ㤤ÆÀ²Á³Ê¤Ç¤¢¤ó¤¿¤ËÇä¤Ã¤Æ¤ä¤í¤¦¡£¤É¤¦¡©¶â²ß500Ëç¤À¡£")
(if (kern-conv-get-yes-no? kpc)
(give-rune 500)
(begin
- (say knpc "Well, I guess I do owe you for saving me from "
- "that red lady. How about 250 gold?")
+ (say knpc "¤¦¡¼¤ó¡¢ÀÖ¤¤½÷¤«¤é½õ¤±¤Æ¤â¤é¤Ã¤¿¼Ú¤ê¤¬¤¢¤ë¤«¤é¤Ê¡£250Ëç¤Ï¤É¤¦¤À¡©")
(if (kern-conv-get-yes-no? kpc)
(give-rune 250)
(begin
- (say knpc "You drive a hard bargain, buddy. 100 gold?")
+ (say knpc "¾¦Çä¾å¼ê¤À¤Ê¤¢¡¢¿Æͧ¤è¡£100Ëç¡©")
(if (kern-conv-get-yes-no? kpc)
(give-rune 100)
(begin
- (say knpc "50?")
+ (say knpc "50¡©")
(if (kern-conv-get-yes-no? kpc)
(give-rune 50)
(begin
- (say knpc "Look, just take it ok?")
+ (say knpc "¤ï¤«¤Ã¤¿¡£»ý¤Ã¤Æ¤±¡£¤³¤ì¤Ç¤¤¤¤¤Ê¡©")
(if (kern-conv-get-yes-no? kpc)
(give-rune 0)
(begin
- (say knpc "I'm desperate! Here, "
- "I'll pay YOU to take it! "
- "Just get it away from me!")
+ (say knpc "¤¿¤Î¤à¤è¡ª"
+ "¶â¤ò½Ð¤¹¤«¤é»ý¤Ã¤Æ¹Ô¤Ã¤Æ¤¯¤ì¡ª"
+ "¤º¡¼¤Ã¤È±ó¤¯¤Ø¡ª")
(give-rune (- 0 100))))))
)))))))))
(define (mouse-bye knpc kpc)
- (say knpc "No offense, but I hope we never meet again."))
+ (say knpc "°µ¤¤Ï¤Ê¤¤¤¬¡¢¤â¤¦ÆóÅ٤Ȳñ¤¤¤¿¤¯¤Ê¤¤¤Í¡£"))
(define (mouse-alopex knpc kpc)
- (say knpc "Alopex? Oh, the old god of thieves. "
- "Or so I've heard."))
+ (say knpc "¥¢¥í¥Ú¥¯¥¹¡©¤¢¤¢¡¢¸Å¤¤Å¥ËÀ¤Î¿À¤À¡£"
+ "¤½¤¦Ê¹¤¤¤¿¡£"))
(define mouse-conv
(ifc nil
(kern-char-arm-self
(kern-mk-char
'ch_mouse ;;..tag
- "Mouse" ;;....name
+ "¥Í¥º¥ß" ;;....name
sp_human ;;.....species
nil ;;..........occupation
s_brigand ;;.....sprite
;; Map
;;----------------------------------------------------------------------------
(mk-dungeon-room
- 'p_mushroom_cave "Mushroom Cave"
+ 'p_mushroom_cave "¥¥Î¥³¤Îƶ·¢"
(list
"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
"rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn "
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Nate is a ranger of the Fens. He camps at the Enchanter's Tower.
+;; ¥Í¥¤¥È¤ÏÅð±¤ÎƬ¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
(define (nate-hail knpc kpc)
(let ((nate (kobj-gob-data knpc)))
(define (join)
- (say knpc "When it is convenient, ask me of the secret, milord. "
- "Meanwhile, you can trust me not to escape.")
+ (say knpc "ÅԹ礬¤¤¤¤¤È¤¤ËÈëÌ©¤Ë¤Ä¤¤¤Æʹ¤¤¤Æ¤¯¤À¤»¤¨¡¢Ã¶Æá¡£"
+ "¤½¤ì¤Þ¤ÇÀäÂФËƨ¤²¤¿¤ê¤·¤ä¤»¤ó¡£")
(join-player knpc)
(give kpc t_arrow 20)
(nate-caught! nate)
)
(nate-met! nate)
(cond ((nate-caught? nate)
- (say knpc "How can I be of service?")
+ (say knpc "²¿¤Ç¤â¸À¤Ã¤Æ¤¯¤À¤»¤¨¡£")
)
(else
- (say knpc "There's no need to kill me, adventurer. "
- "I may have robbed, but I have slain no one. "
- "Let me surrender, and I'll tell you a great secret. "
- "Agreed?")
+ (say knpc "ËÁ¸±¼Ô¤è¡¢²¶¤¬»¦¤µ¤ì¤ëÍýͳ¤Ï¤Ê¤¤¡£"
+ "Åð¤ß¤Ï¤ä¤Ã¤¿¡¢¤Ç¤â¿Í»¦¤·¤Ï¤·¤Æ¤Í¤¨¡£"
+ "¹ßÉú¤µ¤ì¤Æ¤¯¤ì¡£¤½¤¦¤¹¤ì¤Ð¤¹¤²¤¨ÈëÌ©¤ò¶µ¤¨¤Æ¤ä¤ë¡£"
+ "¤É¤¦¤À¡©")
(cond ((yes? kpc) (join))
(else
- (say knpc "Milord! Slay me and the secret will be lost with me. "
- "Spare me and I will join you, fight for you, and lead you to a source of ancient power. "
- "I will not try to escape. "
- "Afterwards, you can turn me in or set me free, as you like. "
- "Agreed?")
+ (say knpc "öÆᡪ²¶¤ò»¦¤»¤ÐÈëÌ©¤Ï²¶¤È°ì½ï¤Ë¾Ã¤¨¤Á¤Þ¤¦¤ó¤À¡£"
+ "Íê¤à¡¢²¶¤Ï¤¢¤ó¤¿¤ÎÃç´Ö¤Ë¤Ê¤Ã¤Æ¡¢¤¢¤ó¤¿¤Î¤¿¤á¤ËÀï¤Ã¤Æ¡¢¤¢¤ó¤¿¤ò¸Å¤ÎϤΤâ¤È¤ËƳ¤¤¿¤¤¤ó¤À¡ª"
+ "È´¤±½Ð¤·¤¿¤ê¤·¤Í¤¨¡£"
+ "¤½¤Î¸å¤Ç²¶¤ò¥Ö¥¿È¢¤ËÁ÷¤ë¤Ê¤ê¡¢Æ¨¤¬¤¹¤Ê¤ê¹¥¤¤Ê¤è¤¦¤Ë¤·¤Æ¤¯¤ì¡£"
+ "¤É¤¦¤À¡©")
(cond ((yes? kpc) (join))
(else
- (say knpc "It is a bloodthirsty fiend who slays those who have surrendered!")
+ (say knpc "¹ßÉú¤·¤¿ÅÛ¤ò»¦¤¹¤Ê¤ó¤Æ·ì¤âÎÞ¤â¤Ê¤¤ÅÛ¤À¡ª")
(kern-conv-end)
))))))))
(define (nate-secr knpc kpc)
(cond ((is-player-party-member? knpc)
(cond ((equal? (get-place knpc) p_shard)
- (say knpc "I will tell you where to find the hidden entrance to Brundegardt!"))
+ (say knpc "¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤Î±£¤µ¤ì¤¿Æþ¤ê¸ý¤ò¶µ¤¨¤·¤Þ¤¹¤¼¡ª"))
(else
- (say knpc "Merciful sir! It is not safe here! Let us escape to the wilderness and I will tell "
- "you there.")
+ (say knpc "öÆᡪ¤³¤³¤Ï°ÂÁ´¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¤¼¡ª¹ÓÌî¤Ø½Ð¤Æ¤½¤ì¤«¤éÏ䷤䤷¤ç¤¦¡£")
)))
(else
- (say knpc "The secret is safe with me.")
+ (say knpc "¤³¤³¤Ê¤éÈëÌ©¤Ï°ÂÁ´¤À¡£")
)))
(define (nate-brun knpc kpc)
(if (is-player-party-member? knpc)
- (say knpc "Milord, we must search for Brundegardt where the forest road passes north through the mountains. "
- "I'll tell you the password when we are there.")
- (say knpc "Mums the word!")))
+ (say knpc "öÆá¡¢¿¹¤ÎÆ»¤òË̤˿ʤó¤À»³¤Î½ê¤Ç¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤òõ¤·¤ä¤·¤ç¤¦¡£"
+ "¤½¤³¤Ç¹ç¸ÀÍÕ¤ò¶µ¤¨¤Þ¤¹¤¼¡£")
+ (say knpc "¤½¤Î¸ÀÍÕ¤ò¸À¤¦¤Ê¡ª")))
(define (nate-pass knpc kpc)
(if (is-player-party-member? knpc)
(cond ((equal? (get-place knpc) p_brundegardt)
- (say knpc "Yes, here we are. You've done well, milord. The password... "
- "[he clenches his teeth] "
- "...NOOR. [He sighs] It is NOOR.")
+ (say knpc "¤½¤¦¡¢¤³¤³¤À¡£¤è¤¯¸«¤Ä¤±¤ä¤·¤¿¤ÍöÆá¡£¹ç¸ÀÍդϡÄ"
+ "¡ÎÈà¤Ï»õ¤ò¤«¤ßÄù¤á¤¿¡Ï"
+ "¡Ä¥Î¥¢¡£¡ÎÈà¤Ï¤¿¤á©¤ò¤Ä¤¤¤¿¡£¡Ï¹ç¸ÀÍդϥΥ¢¤À¡£")
(prompt-for-key)
- (say knpc "Merciful sir, I beg of you a boon. "
- "Long have I yearned to enter Brundegardt and learn its "
- "secrets. Let us go together, and should we live, you "
- "may do with me as you see fit. Will you grant me this?")
+ (say knpc "öÆá¡¢¤ª´ê¤¤¤¬¤¢¤ê¤ä¤¹¡£"
+ "¤º¤Ã¤ÈŤ¤´Ö¡¢¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤ËÆþ¤ëÊýË¡¤òõ¤·¡¢¤ä¤Ã¤È¤Î¤³¤È¤ÇÈëÌ©¤ò¸«¤Ä¤±¤ä¤·¤¿¡£"
+ "°ì½ï¤ËÏ¢¤ì¤Æ¹Ô¤Ã¤Æ¤¯¤À¤»¤¨¡£¤½¤·¤ÆÀ¸¤±ä¤Ó¤ä¤·¤ç¤¦¡£²¿¤Ê¤ê¤È¿½¤·ÉÕ¤±¤Æ¤¯¤À¤»¤¨¡£"
+ "¤ª´ê¤²¤¨¤·¤ä¤¹¡£")
(cond ((yes? kpc)
- (say knpc "I am forever in your debt! But this place has "
- "lain hidden for ages. We know not what awaits within. "
- "We had best supply ourselves as best we can, with "
- "torches, food and lockpicks.")
+ (say knpc "¤´²¸¤Ï°ìÀ¸Ëº¤ì¤ä¤»¤ó¡ª¤Ç¤â¤³¤³¤ÏŤ¤¤³¤È±£¤µ¤ì¤Æ¤¤¤ä¤·¤¿¡£"
+ "Ãæ¤Ë²¿¤¬¤¤¤ë¤«Ê¬¤«¤ê¤ä¤»¤ó¡£"
+ "¾¾ÌÀ¡¢¿©ÎÁ¡¢¸°³«¤±Æ»¶ñ¤ò¤Ç¤¤ë¤À¤±»ý¤Ã¤Æ¹Ô¤¤ä¤·¤ç¤¦¡£")
(prompt-for-key)
- (say knpc "But most of all, we will need a goodly store of "
- "magical reagents for the mixing of spells. "
- "I hope you have some of the wizardly skill, "
- "for mark my words: we shall need it ere we are done."))
+ (say knpc "¤Ç¤â¡¢°ìÈÖÂçÀڤʤΤϡ¢¼öʸ¤òÄ´¹ç¤¹¤ë¤¿¤á¤ÎÈëÌô¤Ç¤ä¤¹¡£"
+ "öÆá¤ËËâ½Ñ»Õ¤ÎǽÎϤ¬¤¢¤ì¤Ð¤è¤¤¤Î¤Ç¤ä¤¹¤¬¡£"
+ "¤³¤Î¸ÀÍÕ¤ò³Ð¤¨¤Æ¤¤¤Æ¤¯¤À¤»¤¨¡£¡Ö¤½¤ì¤ò½ª¤¨¤ì¤Ð¡¢¤½¤ì¤¬É¬¤ºÉ¬Íפˤʤ롣¡×"))
(else
- (say knpc "I beg you to reconsider, but if you do not then heed "
- "my warning, for I bear you no ill will, "
- "you being a mere soldier of fortune like myself: "
- "do not enter Brundegardt alone, "
- "and take with you what supplies you can steal or purchase.")
+ (say knpc "¹Í¤¨¤Ê¤ª¤·¤Æ¤¯¤À¤»¤¨¡£¤Ç¤â¡¢¤â¤·²¶¤òÏ¢¤ì¤Æ¹Ô¤«¤Í¤¨¤Î¤Ê¤é¡¢"
+ "·Ù¹ð¤òʹ¤¤¤Æ¤¯¤À¤»¤¨¡£"
+ "öÆá¤Î¤è¤¦¤Ê¤Á¤ç¤Ã¤È¤·¤¿Àï»Î¤Ç¤â¡¢°ì¿Í¤Ç¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤ËÆþ¤Ã¤Æ¤Ï¤¤¤±¤ä¤»¤ó¡£"
+ "Åð¤ß¤ä¶¯Ã¥¤ÎǽÎϤ¬¤¢¤ë¼Ô¤òÏ¢¤ì¤Æ¤¤¤¯¤Ù¤¤Ç¤ä¤¹¡£")
)))
(else
- (say knpc "But sir! We have not reached Brundegardt!")
+ (say knpc "¤Ç¤âöÆᡪ¤³¤³¤Ï¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤Ç¤Ï¤¢¤ê¤ä¤»¤ó¡ª")
))
- (say knpc "Password? What password?")
+ (say knpc "¹ç¸ÀÍÕ¡©²¿¤Î¹ç¸ÀÍÕ¤À¡©")
))
(define nate-conv
(ifc basic-conv
- (method 'name (lambda (knpc kpc) (say knpc "I am called Nate.")))
+ (method 'name (lambda (knpc kpc) (say knpc "¥Í¥¤¥È¤È¸Æ¤Ð¤ì¤Æ¤¤¤ë¡£")))
(method 'brun nate-brun)
(method 'hail nate-hail)
(method 'pass nate-pass)
(define nate-greetings
(list
- "I surrender!"
- "Don't kill me!"
- "You've caught me!"
- "Please, take me prisoner!"
+ "¹ßÉú¤¹¤ë¡ª"
+ "»¦¤µ¤Ê¤¤¤Ç¤¯¤ì¡ª"
+ "Êá¤Þ¤¨¤Æ¤¯¤ì¡ª"
+ "¤¿¤Î¤à¡¢Ï´²°¤ËÏ¢¤ì¤Æ¹Ô¤Ã¤Æ¤¯¤ì¡ª"
))
(define (nate-ai knpc)
(kern-char-arm-self
(kern-mk-char
'ch_nate ;;..........tag
- "Nate" ;;.......name
+ "¥Í¥¤¥È" ;;.......name
sp_human ;;.....species
oc_wrogue ;;.. .occupation
s_companion_bard ;;..sprite
;;;(display "using")(newline)
(apply (kern-type-get-gifc ktype) (list 'use ktype kchar))
(kern-log-msg (kern-obj-get-name kchar)
- " uses 1 "
- (kern-type-get-name ktype))
+ "¤Ï"
+ (kern-type-get-name ktype)
+ "¤ò»È¤Ã¤¿¡£")
#t)
;;============================================================================
(begin
(if (not (is-player-party-member? kchar))
(kern-log-msg (kern-obj-get-name kchar)
- " gets "
- (kern-obj-get-name kobj)))
+ "¤Ï"
+ (kern-obj-get-name kobj)
+ "¤ò¼è¤Ã¤¿¡£"))
(kern-obj-inc-ref kobj)
(kern-obj-remove kobj)
(kern-obj-dec-ref kobj)
(kern-char-dec-mana kchar (spell-cost spell))
(kern-obj-dec-ap kchar (spell-ap spell))
(kern-log-msg (kern-obj-get-name kchar)
- " casts "
- (spell-name spell)))
+ "¤Ï"
+ (spell-name spell)
+ "¤ò¾§¤¨¤¿¡£"))
;; cast1 - cast a spell which requires one arg if possible, assumes kchar has
;; enough mana
(kern-char-dec-mana kchar (spell-cost spell))
(kern-obj-dec-ap kchar (spell-ap spell))
(kern-log-msg (kern-obj-get-name kchar)
- " casts "
+ "¤Ï"
(spell-name spell)
- " on "
+ "¤ò"
(kern-obj-get-name ktarg)
- "!"))
+ "¤Ë¾§¤¨¤¿¡ª"))
;; ----------------------------------------------------------------------------
;; terrain-ok-for-field? -- check if the terrain at a given location will allow
(pathfind kchar (kern-obj-get-location patient)))))))
(define (prompt-for-key)
- (kern-log-msg "<Hit any key to continue>")
+ (kern-log-msg "<²¿¤«¥¡¼¤ò²¡¤¹¤È³¤¯>")
(kern-ui-waitkey))
(define (ship-at? loc) (not (null? (kern-place-get-vehicle loc))))
(kern-char-get-hp kchar))))
(if (> hp 0)
(begin
- (say knpc "VAS MANI! Be healed, "
- (kern-obj-get-name kchar))
+ (say knpc "¥ô¥¡¥¹¡¦¥Þ¥Ë<VAS MANI>¡ª"
+ (kern-obj-get-name kchar) "¤ËÌþ¤·¤ò¡ª")
(kern-map-flash hp)
(kern-obj-heal kchar hp)
#t)
(begin
(say knpc (kern-obj-get-name kchar)
- " is not wounded!")
+ "¤Ï½ý¤Ä¤¤¤Æ¤¤¤Ê¤¤¡ª")
(prompt-for-key)
#f))))
;;(display "cure-service")(newline)
(if (is-poisoned? kchar)
(begin
- (say knpc "AN NOX! You are cured, "
- (kern-obj-get-name kchar))
+ (say knpc "¥¢¥ó¡¦¥Î¥¯¥¹<AN NOX>¡ª"
+ (kern-obj-get-name kchar) "¤Ï¼£Ìþ¤µ¤ì¤¿¡£")
(kern-map-flash 1)
(kern-obj-remove-effect kchar ef_poison))
(begin
(say knpc (kern-obj-get-name kchar)
- " is not poisoned!")
+ "¤ÏÆǤËÈȤµ¤ì¤Æ¤¤¤Ê¤¤¡ª")
(prompt-for-key)
#f)))
;;(display "resurrect-service")(newline)
(if (is-dead? kchar)
(begin
- (say knpc "IN MANI CORP! Arise, "
- (kern-obj-get-name kchar))
+ (say knpc "¥¤¥ó¡¦¥Þ¥Ë¡¦¥³¡¼¥×<IN MANI CORP>¡ª"
+ (kern-obj-get-name kchar) "¤è¡¢¤è¤ß¤¬¤¨¤ì¡ª")
(kern-map-flash 500)
(resurrect kchar)
(kern-obj-heal kchar 10))
(begin
(say knpc (kern-obj-get-name kchar)
- " is not dead!")
+ "¤Ï»à¤ó¤Ç¤¤¤Ê¤¤¡ª")
(prompt-for-key)
#f)))
(define (list-services)
(map (lambda (svc)
(string-append (svc-name svc)
- "..."
+ "...¶â²ß"
(number->string (svc-price svc))
- " gold"))
+ "Ëç"))
services))
;; line-name - convert a string like "Heal...30 gold" to "Heal"
(if (player-has-gold? (svc-price svc))
#t
(begin
- (say knpc "You don't have enough gold!")
+ (say knpc "ÎÁ¶â¤¬Â¤ê¤Ê¤¤¡ª")
#f)))
(define (apply-svc)
(in-inventory? kpc t_lich_skull)
)
(necr-meet-lich knpc kpc)
- (say knpc "[You meet a thin, pale wizard dressed all in black] "
- "(COUGH) Hello, Wanderer."))))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï¿§¤¬Çò¤¯Á餻¤¿¡¢Á´¿È¹õ¤º¤¯¤á¤ÎËâ½Ñ»Õ¤È²ñ¤Ã¤¿¡£¡Ï"
+ "(¥´¥Û¥ó)¤è¤¦¤³¤½¡¢Ì¤¤¿Í¤è¡£"))))
(define (necr-default knpc kpc)
- (say knpc "[He is seized by a fit of coughing]"))
+ (say knpc "¡ÎÈà¤Ï³±¤Ç¤à¤»¤Æ¤¤¤ë¡£¡Ï"))
(define (necr-heal knpc kpc)
(begin
- (say knpc "\n[He is seized by a fit of coughing]\n"
- "I'm fine [COUGH] [WHEEZE]")
+ (say knpc "\n¡ÎÈà¤Ï³±¤¹þ¤ó¤Ç¤¤¤ë¡£¡Ï\n"
+ "Âç¾æÉפÀ¡£¡Î¥´¥Û¥ó¡Ï¡Î¥¼¡¼¥¼¡¼¡Ï")
(prompt-for-key)
- (say knpc "Really.\n")
+ (say knpc "¤è¤¤¤«¡£\n")
(prompt-for-key)
- (say knpc "\nI am quite wel...[COUGH]")
+ (say knpc "\n¥ï¥·¤ÏÂç¾æ¡Ä¡Î¥´¥Û¥ó¡Ï")
(prompt-for-key)
- (say knpc "\n [WHEEZE]...")
+ (say knpc "\n¡Î¥¼¡¼¥¼¡¼¡Ï¡Ä")
(prompt-for-key)
- (say knpc "[CHOKE]")
+ (say knpc "¡Î¥¦¥°¥Ã¡Ï")
(kern-sleep 100)
- (say knpc "[the slight figure slumps]")
+ (say knpc "¡ÎÅݤ줿¡£¡Ï")
(kern-sleep 100)
- (say knpc "[GASP]")
+ (say knpc "¡Î¥Ï¡¼¥Ï¡¼¡Ï")
(kern-sleep 3000)
- (say knpc " ...")
+ (say knpc "¡Ä¡Ä¡Ä¡Ä")
(prompt-for-key)
- (say knpc "\n[All is silence]")
+ (say knpc "\n¡ÎÄÀÌÛ¤·¤¿¡£¡Ï")
(prompt-for-key)
(if (in-player-party? 'ch_mesmeme)
(begin
- (say knpc "\n[The silence stretches on...]")
+ (say knpc "\n¡ÎÄÀÌÛ¤¬Â³¤¤¤¿¡Ä¡Ï")
(kern-sleep 3000)
- (aside kpc 'ch_mesmeme "[Looks at the slumped figure]\nFood now?")
- (aside kpc 'ch_amy "EEEWWW! Bad Gazer!")
+ (aside kpc 'ch_mesmeme "¡ÎÅݤ줿»Ñ¤ò¸«¤¿¡£¡Ï\n¿©»ö¡©")
+ (aside kpc 'ch_amy "¤¦¤§¡¼¤Ã¡ª°¤¤¥²¥¤¥¶¡¼¤á¡ª")
(prompt-for-key)
)
)
(if (in-player-party? 'ch_nate)
(begin
- (say knpc "\n[The dead sound of the crypt presses on]")
+ (say knpc "\n¡Î»à¤Ë¤½¤¦¤Ê²»¤òΩ¤Æ¤Æ¤¤¤ë¡£¡Ï")
(kern-sleep 3000)
- (aside kpc 'ch_nate "Erm...")
+ (aside kpc 'ch_nate "¤¨¡¼¡Ä")
(kern-sleep 100)
- (aside kpc 'ch_nate " should we maybe...")
+ (aside kpc 'ch_nate "¤Þ¤º¤¤¤«¤Ê¡Ä")
(kern-sleep 1000)
- (aside kpc 'ch_nate " take his stuff?")
+ (aside kpc 'ch_nate "¡Ä¥³¥¤¥Ä¤Îʪ¤òÅð¤Ã¤Æ¤¤¤Ã¤¿¤é¡©")
(kern-sleep 500)
- (aside kpc 'ch_roland "Nay! 'Twould be dishonour!")
+ (aside kpc 'ch_roland "Çϼ¯¼Ô¡ªÉÔ̾ÍÀ¤Ê¤³¤È¤ò¡ª")
(prompt-for-key)
)
)
(if (in-player-party? 'ch_amy)
(begin
- (aside kpc 'ch_amy "I could maybe...dig a hole, somewhere?")
+ (aside kpc 'ch_amy "¤É¤³¤«¤Ë¡ÄÊè·ê¤ò·¡¤Ã¤¿¤Û¤¦¤¬¤¤¤¤¤«¤·¤é¡©")
(prompt-for-key)
)
)
(kern-sleep 3000)
(say knpc
- "\n[His still form twitches]\n"
- "[His arm gropes for his chest]\n"
- " ^c+bIN VAS MANI CORP XEN^c-\n"
+ "\n¡ÎÈà¤Ï¤Þ¤ÀáÛÚ»¤·¤Æ¤¤¤ë¡£¡Ï\n"
+ "¡ÎÈà¤Ï¶»¤Î¤¢¤¿¤ê¤ò¼êõ¤ê¤·¤¿¡£¡Ï\n"
+ "¡¡^c+b¥¤¥ó¡¦¥ô¥¡¥¹¡¦¥Þ¥Ë¡¦¥³¡¼¥×¡¦¥¼¥ó<IN VAS MANI CORP XEN>^c-\n"
"")
;; (vas-mani knpc) ;; SAM: Alas, this invoked UI, and emitted extra messages
(say knpc
- "\n[He straightens, and breathes deeply]\n"
- "As I was saying, I am quite well, thank you.")
+ "\n¡ÎÈà¤Ïµ¯¤¾å¤¬¤ê¡¢¿¼¤¯Â©¤òµÛ¤Ã¤¿¡£¡Ï\n"
+ "Âç¾æÉפȸÀ¤Ã¤Æ¤¤¤ë¤À¤í¤¦¡£¤¹¤Þ¤ó¤Ê¡£")
))
(define (necr-name knpc kpc)
- (say knpc "I am the Necromancer."))
+ (say knpc "¥ï¥·¤¬»àÎî½Ñ»Õ¤À¡£"))
(define (necr-join knpc kpc)
- (say knpc "I am not an adventurer."))
+ (say knpc "¥ï¥·¤ÏËÁ¸±¼Ô¤Ç¤Ï¤Ê¤¤¡£"))
(define (necr-job knpc kpc)
- (say knpc "I investigate the secrets of the dead."))
+ (say knpc "»à¤ÎÈëÌ©¤ò²ò¤ÌÀ¤«¤¹¤³¤È¤À¡£"))
(define (necr-bye knpc kpc)
- (say knpc "[He waves you off in a fit of coughing]"))
+ (say knpc "¡ÎÈà¤Ï³±¤ò¤·¤Ê¤¬¤é¤¢¤Ê¤¿¤òÄɤ¤Ê§¤Ã¤¿¡£¡Ï"))
;; L2
(define (necr-dead knpc kpc)
- (say knpc "Dead? No, not yet. You?")
+ (say knpc "»à¡©¤Þ¤À»à¤ó¤Ç¤ª¤é¤Ì¡£¤ª¤Þ¤¨¤Ï¤É¤¦¤À¡©")
(if (yes? knpc)
- (say knpc "You look a bit firm for a spirit.")
- (say knpc "I didn't think so, but I talk to so many spirits I can't "
- "really tell any more.")))
+ (say knpc "¶¯¤Îî¤ò»ý¤Ã¤Æ¤ª¤é¤Ì¤è¤¦¤Ë¸«¤¨¤ë¡£")
+ (say knpc "¤½¤¦¤Ï»×¤ï¤Ì¡£"
+ "¤À¤¬¡¢Â¿¤¯¤ÎÎî¤ÈÏ䷤Ƥ¤¿¤¬¡¢¤ª¤Þ¤¨¤ÎÎî¤È¤Ï¤³¤ì°Ê¾åÏ令ʤ¤¤è¤¦¤À¡£")))
(define (necr-coug knpc kpc)
- (say knpc "I smoked a pipe for years. Still do, sometimes."))
+ (say knpc "¤º¤Ã¤ÈÁ°¥¿¥Ð¥³¤ò¤ä¤Ã¤Æ¤¤¤¿¡£º£¤Ç¤â¤¿¤Þ¤ËµÛ¤¦¡£"))
(define (necr-spir knpc kpc)
- (say knpc "Some spirits are so old they remember things before recorded "
- "history. (COUGH) If you want to know something, there's a spirit "
- "somewhere that knows it."))
+ (say knpc "¤¤¤¯¤Ä¤«¤Î¤È¤Æ¤â¸Å¤¤Îî¤ÏÎò»Ë¤è¤êÁ°¤Î¤³¤È¤òÃΤäƤ¤¤ë¡£(¥´¥Û¥ó)"
+ "¤â¤·²¿¤«ÃΤꤿ¤¤¤³¤È¤¬¤¢¤ì¤Ð¡¢¤½¤ì¤òÃΤëÎ¤É¤³¤«¤Ë¤¤¤ë¤Ï¤º¤À¡£"))
;; Quest-related
(define (necr-meet-lich knpc kpc)
(if (quest-done? (necr-quest (kobj-gob-data knpc)))
(begin
- (say knpc "Ask the spirit of King Luximene! Can't you see him?")
+ (say knpc "¥é¥¯¥·¥Þ¥Ë²¦¤ÎÎî¤Ë¿Ò¤Í¤è¡ªÈब¸«¤¨¤ë¤«¡©")
(if (no? kpc)
(begin
- (say knpc "Oh, sorry. Let me fix that:\n"
- "[He intones words of magic]"
- " ^c+bWIS QUAS^c-!")
+ (say knpc "¤ª¤ª¡¢¼ºÎé¡£¤³¤ì¤Ç¤è¤¤¤À¤í¤¦¡£\n"
+ "¡ÎÈà¤ÏËâË¡¤Î¸ÀÍÕ¤ò¾§¤¨¤¿¡£¡Ï"
+ "¡¡^c+b¥¦¥£¥¹¡¦¥¯¥¡¥¹<WIS QUAS>^c-¡ª")
(wis-quas knpc))
- (say knpc "Well...")))
+ (say knpc "¤¦¤à¡Ä")))
(begin
- (say knpc "Ah! You have the skull of King Luximene! "
- "No doubt there's a good story to go along with this, "
- "but let's hear about that later. For now...")
+ (say knpc "¤ª¤ª¡ª¥é¥¯¥·¥Þ¥Ë²¦¤ÎƬ³¸¹ü¤ò»ý¤Ã¤Æ¤¤¿¤Ê¡ª"
+ "¤³¤ì¤Ç¤è¤¤Ïä¬Ê¹¤±¤ë¤Ë°ã¤¤¤Ê¤¤¡£"
+ "¤À¤¬¾¯¤·ÂԤơ£º£¤³¤³¤Ë¡Ä")
(kern-obj-remove-from-inventory kpc t_lich_skull 1)
- (say knpc "\n[He intones words of magic]\n"
- " ^c+bKAL AN XEN CORP^c-!\n"
- "Luximene, come forth!")
+ (say knpc "\n¡ÎÈà¤ÏËâË¡¤Î¸ÀÍÕ¤ò¾§¤¨¤¿¡£¡Ï\n"
+ "¡¡^c+b¥«¥ë¡¦¥¢¥ó¡¦¥¼¥ó¡¦¥³¡¼¥×<KAL AN XEN CORP>^c-¡ª"
+ "¥é¥¯¥·¥Þ¥Ë¤è¡¢¸½¤ì¤è¡ª")
(kern-obj-put-at (mk-luximene)
(loc-offset (kern-obj-get-location knpc)
south))
(quest-done! (necr-quest (kobj-gob-data knpc)) #t)
- (say knpc "There! Do you see him?")
+ (say knpc "¤³¤³¤À¡ªÈब¸«¤¨¤ë¤«¡©")
(if (no? kpc)
(begin
- (say knpc "Of course, his spirit is invisible to the uninitiated.\n"
- "Let me fix that:\n"
- "[He intones words of magic]"
- " ^c+bWIS QUAS^c-!")
+ (say knpc "̵ÏÀ¡¢Èà¤ÎÎî¤ÏÎϤΤʤ¤¼Ô¤Ë¤Ï¸«¤ë¤³¤È¤¬¤Ç¤¤Ì¡£\n"
+ "¤³¤ì¤Ç¤è¤¤¤À¤í¤¦¡£\n"
+ "¡ÎÈà¤ÏËâË¡¤Î¸ÀÍÕ¤ò¾§¤¨¤¿¡£¡Ï"
+ "¡¡^c+b¥¦¥£¥¹¡¦¥¯¥¡¥¹<WIS QUAS>^c-¡ª")
(wis-quas knpc))
- (say knpc "Ask him of the rune now.")))))
+ (say knpc "ÀÐÈǤΤ³¤È¤òʹ¤¤Ê¤µ¤¤¡£")))))
(define (necr-rune knpc kpc)
(let ((quest (necr-quest (kobj-gob-data knpc))))
(necr-meet-lich knpc kpc)
(if (quest-done? quest)
(begin
- (say knpc "Ask the spirit of King Luximene! Can't you see him?")
+ (say knpc "¥é¥¯¥·¥Þ¥Ë²¦¤ÎÎî¤Ë¿Ò¤Í¤è¡ªÈब¸«¤¨¤ë¤«¡©")
(if (no? kpc)
(begin
- (say knpc "Try a Reveal spell...\n"
- "[He intones words of magic]\n"
- " ^c+bWIS QUAS^c-\n"
- "Speak to his shade, ask of the RUNE.")
+ (say knpc "²Ä»ë¤Î¼öʸ¤ò»î¤·¤Æ¤ß¤è¤¦¡Ä\n"
+ "¡ÎÈà¤ÏËâË¡¤Î¸ÀÍÕ¤ò¾§¤¨¤¿¡£¡Ï\n"
+ "¡¡^c+b¥¦¥£¥¹¡¦¥¯¥¡¥¹<WIS QUAS>^c-\n"
+ "Èà¤Î±Æ¤ËÏä·¤«¤±¡¢ÀÐÈǤΤ³¤È¤ò¿Ò¤Í¤Ê¤µ¤¤¡£")
(wis-quas knpc)
(kern-conv-end)
)
(begin
- (say knpc "Well then, ask his shade.")
+ (say knpc "¤è¤í¤·¤¤¡£Èà¤Î±Æ¤Ë¿Ò¤Í¤Ê¤µ¤¤¡£")
(kern-conv-end)
)
))
- (say knpc "Bring me the skull of King Luximene the lich "
- "and we can learn more.")))
+ (say knpc "¥ê¥Ã¥Á¤È¤Ê¤Ã¤¿¥é¥¯¥·¥Þ¥Ë²¦¤ÎƬ³¸¹ü¤ò»ý¤Ã¤Æ¤¯¤ë¤Î¤À¡£"
+ "¤½¤ì¤Ç¿¤¯¤Î¤³¤È¤¬¤ï¤«¤ë¡£")))
(if (not (any-in-inventory? kpc rune-types))
- (say knpc "I've encountered many runes. (COUGH) Bring me an example "
- "of one and perhaps I can tell you of it.")
+ (say knpc "¿¤¯¤ÎÀÐÈǤò¸«¤Æ¤¤¿¡£(¥´¥Û¥ó)"
+ "²¿¤«°ì¤Ä»ý¤Ã¤Æ¤¯¤ì¤Ð¸ì¤ì¤ë¤«¤âÃΤì¤Ì¡£")
(begin
- (say knpc "Hm. Yes. This rune reminds me of writings I once saw in "
- "the tomb of King Luximene. (COUGH) If I could speak to his "
- "spirit perhaps it would tell us more. Are you brave, Wanderer?")
+ (say knpc "¤Õ¤à¡£¤½¤¦¤À¡£"
+ "¤³¤ÎÀÐÈǤ˽ñ¤«¤ì¤¿Ê¸»ú¤Ï¡¢¤«¤Ä¤Æ¥é¥¯¥·¥Þ¥Ë²¦¤ÎÊè¤Ç¸«¤¿¤â¤Î¤ÈƱ¤¸¤À¡£(¥´¥Û¥ó)"
+ "Èà¤ÎÎî¤Ë¿Ò¤Í¤ì¤Ð²¿¤«Åú¤¨¤Æ¤¯¤ì¤ë¤«¤â¤·¤ì¤Ì¡£"
+ "̤¤¿Í¤è¡¢¤ª¤Þ¤¨¤Ïͦ´º¤«¤Í¡©")
(if (no? kpc)
- (say knpc "Me neither. More's the pity, for I am most curious "
- "now about this rune. (COUGH)")
+ (say knpc "»ä¤â¤À¡£»ÄÇ°¤Ê¤¬¤é¡£"
+ "¤³¤ÎÀÐÈǤ϶½Ì£¤ò¤½¤½¤ë¤Î¤À¤¬¡£(¥´¥Û¥ó)")
(begin
- (say knpc "I thought so. King Luximene is a lich nowadays. "
- "Most unruly! His tomb is in a crypt beneath Green Tower. "
- "If you bring me his skull I can tame his spirit and speak "
- "with him. (COUGH) You'll have to defeat him first, "
- "of course, as well as his undead army. "
- "Do you know how to repel the undead?")
+ (say knpc "¤½¤¦¤À¤È»×¤Ã¤¿¡£"
+ "¥é¥¯¥·¥Þ¥Ë²¦¤Ïº£¤Ç¤Ï¥ê¥Ã¥Á¤È¤Ê¤Ã¤Æ¤¤¤ë¡£"
+ "ºÇ¤â¶§Ë½¤Ê¡ª"
+ "Èà¤ÎÊè¤ÏÎФÎÅã¤ÎÃϲ¼¤Ë¤¢¤ë°äÂΰÂÃÖ½ê¤ÎÃæ¤Ë¤¢¤ë¡£"
+ "¤â¤·Èà¤ÎƬ³¸¹ü¤ò»ý¤Ã¤Æ¤¯¤ì¤Ð¡¢Èà¤ÎÎî¤ò¤Ê¤À¤á¡¢Ï令ë¤À¤í¤¦¡£(¥´¥Û¥ó)"
+ "¤â¤Á¤í¤ó¤Þ¤ºÈà¤ò¡¢¤½¤Î¼ê²¼¤È¶¦¤ËÅݤµ¤Í¤Ð¤Ê¤é¤ó¡£"
+ "ÉÔ»à¤Î¼Ô¤ò¶á¤Å¤±¤µ¤»¤Ê¤¤ÊýË¡¤òÃΤäƤ뤫¤Í¡©")
(quest-offered! quest #t)
(if (yes? kpc)
- (say knpc "A most useful spell when dealing with the angry dead.")
- (say knpc "Learn ye [An Xen Corp].\n"
- "A most useful spell.\n"
- "Mix ^c+ggarlic^c- and ^c+gsulphurous ash^c-\n"
- "to make it.\n"
- "(COUGH)\n"
- "I probably have some "
- "around here.\n"
- "You may borrow it."))
+ (say knpc "Åܤì¤ëÉÔ»à¤Î¼Ô¤ò°·¤¦¤Ë¤ÏºÇ¤â¤è¤¤¼öʸ¤À¡£")
+ (say knpc "³Ð¤¨¤Æ¤ª¤±¡£¥¢¥ó¡¦¥¼¥ó¡¦¥³¡¼¥×<An Xen Corp>¤À¡£"
+ "ºÇ¤â͸ú¤Ê¼öʸ¤Ç¤¢¤ë¡£\n"
+ "^c+gÂçÉÇ^c-¤È^c+gⲫ¤Î³¥^c-¤òÄ´¹ç¤»¤è¡£\n"
+ "(¥´¥Û¥ó)\n"
+ "¤¤¤¯¤é¤«¤³¤Î¤¢¤¿¤ê¤Ë¤¢¤ë¤Ï¤º¤À¡£"
+ "»ý¤Ã¤Æ¹Ô¤Ã¤Æ¤è¤¤¤¾¡£"))
)))))))
(define (necr-absa knpc kpc)
- (say knpc "Ah, Absalot, ancient city of Wisdom, now fallen. "
- "Have you been there?")
+ (say knpc "¤¢¤¢¡¢¥¢¥Ö¥µ¥í¥Ã¥È¡¢¸Å¤ÃÎÀ¤ÎÅÔ¡¢º£¤Ï¼º¤ï¤ì¤¿¡£"
+ "¹Ô¤Ã¤¿¤³¤È¤Ï¤¢¤ë¤«¤Í¡©")
(if (yes? kpc)
- (say knpc "It is only a shameful ruin now.")
+ (say knpc "º£¤È¤Ê¤Ã¤Æ¤ÏÃÑ¿«¤Î°äÀפǤ·¤«¤Ê¤¤¡£")
(begin
- (say knpc "Are you an ally of Glasdrin?")
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Î¸À¤¤Ê¬¤ò»Ù»ý¤¹¤ë¤«¤Í¡©")
(if (yes? kpc)
- (say knpc "[He coughs and mutters] Well, "
- "there is nothing to see there now.")
- (say knpc "There is a secret way in. Ask the Alchemist, he knows.")))))
+ (say knpc "¡ÎÈà¤Ï³±Ê§¤¤¤ò¤·¤Æ¤Ä¤Ö¤ä¤¤¤¿¡£¡Ï"
+ "¤¦¤¦¤à¡Äº£¤Ç¤Ï¤½¤³¤Ë¤Ï¸«¤ë¤Ù¤¤â¤Î¤Ï²¿¤â¤Ê¤¤¡£")
+ (say knpc "ÈëÌ©¤ÎÆ»¤¬¤¢¤ë¡£Ï£¶â½Ñ»Õ¤Ë¿Ò¤Í¤Ê¤µ¤¤¡£ÈबÃΤäƤ¤¤ë¡£")))))
;; the wise
(define (necr-ench knpc kpc)
- (say knpc "The old fool thinks me one of the Accursed! "
- "He does not understand that his ways are not the only ways.")
+ (say knpc "¤¢¤Î¶ò¤«¤Êǯ´ó¤ê¤Ï¥ï¥·¤ò¼ö¤ï¤ì¤¿¼Ô¤Î°ìÌ£¤È¹Í¤¨¤Æ¤ª¤ë¡ª"
+ "Åۤϼ«Ê¬¤ÎÆ»¤¬Í£°ì¤ÎÆ»¤Ç¤Ï¤Ê¤¤¤³¤È¤¬¤ï¤«¤é¤Ê¤¤¤è¤¦¤À¡£")
)
(define (necr-man knpc kpc)
- (say knpc "She comes to me sometimes when she needs information... "
- "and in return she sometimes... acquires things for me.")
+ (say knpc "Èà½÷¤Ï¾ðÊó¤¬É¬ÍפʤȤ²ñ¤¤¤ËÍè¤ë¤³¤È¤¬¤¢¤ë¡Ä"
+ "¤½¤·¤Æ¥ï¥·¤Îʪ¤ò¼è¤Ã¤Æ¤¤¤¯¤³¤È¤¬¤¢¤ë¡Ä¡£")
(quest-data-update 'questentry-the-man 'common 1)
)
(define (necr-alch knpc kpc)
- (say knpc "A clever man. A deep man, good in his own way.")
+ (say knpc "¸¤¤ÃˤÀ¡£¿¼¤¯¡¢¤è¤¼«¤é¤ÎÆ»¤ò¿Ê¤ó¤Ç¤¤¤ë¡£")
(quest-data-update 'questentry-alchemist 'common 1)
)
(define (necr-engi knpc kpc)
- (say knpc "Smart fellow, and very curious, "
- "but always has to be making something. "
- "And as soon as he's done, he starts on another! "
- "(COUGH) Never time to reflect on anything worthy.")
+ (say knpc "¸ÌÀ¡¢¤½¤·¤Æ¹¥´ñ¿´¤ò˺¤ì¤Ê¤¤¤Ç¤¤¤ë¡£"
+ "¤·¤«¤·¡¢¤¤¤Ä¤â²¿¤«¤òºî¤Ã¤Æ¤¤¤ë¡£"
+ "ºî¤ê½ª¤¨¤¿¤È»×¤¨¤Ð¡¢¤¹¤°¤ËÊ̤Τâ¤Î¤òºî¤ê»Ï¤á¤ë¡ª(¥´¥Û¥ó)"
+ "²¿¤«²ÁÃͤ¢¤ë¤â¤Î¤È¸þ¤¹ç¤¦¤³¤È¤Ï·è¤·¤Æ¤Ê¤¤¤Ç¤¢¤í¤¦¡£")
(quest-data-update 'questentry-engineer 'common 1)
)
(define (necr-warr knpc kpc)
(if (quest-data-assigned? 'questentry-wise)
(begin
- (say knpc "Alas, she is fallen. I have met her spirit in the void. "
- "She was betrayed by the leadership of Glasdrin. "
- "Would that the gods had not abandoned us, "
- "and Vale, lord of vengeance, still stalked the Shard!")
+ (say knpc "¤¢¤¢¡¢Èà½÷¤Ïµà¤Á¤Æ¤·¤Þ¤Ã¤¿¡£"
+ "Èà½÷¤ÎÎî¤Èµõ¶õ¤ÎÃæ¤Ç²ñ¤Ã¤¿¡£"
+ "¥°¥é¥¹¥É¥ê¥ó¤Î»ØƳ¼Ô¤Ë»¦¤µ¤ì¤¿¤Î¤À¡£"
+ "¿À¤Ï²æ¤é¤ò¸«¼Î¤Æ¤¿¤Î¤«¡£¥ô¥¡¥ì¡¢Éü½²¤Î²¦¤è¡¢¤Þ¤À¤³¤Î¥·¥ã¥ë¥É¤Ë¤¤¤ë¤«¡ª")
(quest-data-update 'questentry-warritrix 'slain 1)
)
- (say knpc "The hasn't been another knight so noble and so strong in "
- "a long, long time.")
+ (say knpc "±ó¤¤²áµî¤«¤é¡¢¤¢¤ì¤Û¤Éµ¤¹â¤µ³»Î¤Ï¤¤¤Ê¤¤¤Ç¤¢¤í¤¦¡£")
))
(define (necr-vale knpc kpc)
- (say knpc "An ancient god, known only to the dead now."))
+ (say knpc "¸Å¤¿À¡¢º£¤Ï¤¿¤À»à¤ó¤À¤³¤È¤À¤±¤¬ÃΤé¤ì¤Æ¤¤¤ë¡£"))
(define (necr-wise knpc kpc)
- (say knpc "It is an ancient and worthy tradition that those "
- "who have mastered the ways of Warrior, Wizard, Wright "
- "and Wrogue should influence the affairs of the Shard. "
- "Long is the chain of that tradition, "
- "back to the oldest spirits in the void."))
+ (say knpc "¤½¤ì¤Ï±ó¤¤²áµî¤«¤é¤Î¤·¤¤¿¤ê¤Ç¡¢Àï»Î¡¢Ëâ½Ñ»Õ¡¢¤Ê¤é¤º¼Ô¤ÎÆ»¤òµæ¤á¤¿¼Ô¤¬¡¢"
+ "¤³¤Î¥·¥ã¥ë¥É¤òƳ¤¯¤Î¤À¡£"
+ "¤½¤ì¤ÏŤ¤¤·¤¤¿¤ê¤Îº¿¤Ç¡¢µõ¶õ¤ÎÃæ¤ÎºÇ¤â¸Å¤¤Îî¤Ë¤Þ¤Ç¤µ¤«¤Î¤Ü¤ë¤³¤È¤¬¤Ç¤¤ë¡£"))
(define (necr-accu knpc kpc)
- (say knpc "They are a wretched abomination! (COUGH) Their order "
- "began about 500 years ago, or at least those are the oldest "
- "spirits that speak of them. But I do not know their secrets "
- "because their spirits do not return to the void!")
+ (say knpc "Áþ¤à¤Ù¤¼Ô¤À¡ª(¥´¥Û¥ó)Èà¤é¤Î¿®¶Ä¤ÏÌó500ǯÁ°¡¢¤â¤·¤«¤¹¤ë¤È¤½¤ì°Ê¾åÁ°¤Ë»Ï¤Þ¤Ã¤Æ¤¤¤ë¤È¸Å¤¤ÎÏ䷤Ƥ¯¤ì¤¿¡£"
+ "¤À¤¬¡¢Èà¤é¤ÎÈëÌ©¤ÏÃΤé¤Ì¡£"
+ "¤Ê¤¼¤Ê¤éÈà¤é¤ÎÎî¤Ïµõ¶õ¤Ë¤Ïµ¢¤é¤Ê¤¤¤«¤é¤À¡ª")
(prompt-for-key)
- (say knpc "[He looks troubled] "
- "I cannot find any among the dead who were Accursed in life. "
- "It is a most disturbing conundrum."))
+ (say knpc "¡ÎÈà¤Ïº¤ÏǤ·¤Æ¤¤¤ë¤è¤¦¤À¡£¡Ï"
+ "¤³¤ì¤Þ¤Ç¤Î¿ÍÀ¸¤Ç¼ö¤ï¤ì¤¿¼Ô¤Î»à¼Ô¤ò¸«¤¿¤³¤È¤¬¤Ê¤¤¡£"
+ "¤½¤ì¤¬ºÇ¤â¤ï¤«¤é¤Ì¤Î¤À¡£"))
(define (necr-gate knpc kpc)
- (say knpc "Ah, the fabled Demon Gate. I thought it was only a legend. "
- "Ask the Enchanter, he surely knows more of it than I. "
- "Meanwhile I will confer with the dead to see what I can discover."))
+ (say knpc "¤ª¤ª¡¢¤¢¤Î°Ëâ¤ÎÌç¤Î¸À¤¤ÅÁ¤¨¤«¡£"
+ "¥ï¥·¤Ïñ¤Ê¤ëÅÁÀâ¤À¤È¹Í¤¨¤Æ¤¤¤ë¡£"
+ "ËâÆ»»Õ¤Ëʹ¤¤¤Æ¤ß¤Ê¤µ¤¤¡£Èà¤Ï¥ï¥·¤è¤ê¤è¤¯ÃΤäƤ¤¤ë¡£"
+ "¥ï¥·¤â»à¿Í¤È²ñ¤Ã¤¿¤éʹ¤¤¤Æ¤ß¤è¤¦¡£"))
(define (necr-necr knpc kpc)
- (say knpc "[Cough] I specialize in magic relating to the dead."))
+ (say knpc "¡Î¥´¥Û¥ó¡Ï¥ï¥·¤Ï»à¤È·ë¤Ó¤Ä¤¤¤¿ËâË¡¤ò¶Ë¤á¤Æ¤ª¤ë¡£"))
(define necr-conv
(ifc basic-conv
(bind
(kern-mk-char
'ch_necr ; tag
- "Necromancer" ; name
+ "»àÎî½Ñ»Õ" ; name
necr-species ; species
necr-occ ; occ
s_necromancer ; sprite
;;----------------------------------------------------------------------------
(kern-mk-place
'p_necromancers_lair ; tag
- "Necromancers Lair" ; name
+ "»àÎî½Ñ»Õ¤Î½»¤ß²È" ; name
nil ; sprite
m_necromancers_lair ; map
#f ; wraps
;; Basics...
(define (noss-hail knpc kpc)
- (say knpc "I am summoned at last! Whom shall I punish for this delay?"))
+ (say knpc "¤Ä¤¤¤Ë²æ¤Ï¸Æ¤Ó½Ð¤µ¤ì¤¿¡ª¤«¤¯¤âÃ٤줿ȳ¤òï¤ËÍ¿¤¨¤Æ¤¯¤ì¤è¤¦¤¾¡£"))
(define (noss-default knpc kpc)
- (say knpc "I slay fools who waste words with me."))
+ (say knpc "²æ¤Î¸ÀÍÕ¤ò̵Â̤ˤ¹¤ë¶ò¤«¼Ô¤Ï»à¤¹¤Ù¤·¡£"))
(define (noss-name knpc kpc)
- (say knpc "I am Nossifer, the Sleeper."))
+ (say knpc "̲¤ì¤ë¼Ô¡¢¥Î¥·¥Õ¥¡¡¼¤Ê¤ê¡£"))
(define (begin-last-battle knpc kpc)
- (say knpc "Your soul will never know the bliss of the Void. "
- "I will torment it FOREVER!")
+ (say knpc "Æò¤ÎÎµõ¶õ¤Ë¾¤¤µ¤ì¤ë¤³¤È¤Ï¤Ê¤¤¡£"
+ "²æ¤Î±Ê±ó¤ÎÀÕ¤á¶ì¤ò¼õ¤±¤ë¤Ç¤¢¤í¤¦¡ª")
(kern-being-set-base-faction knpc faction-demon)
(kern-conv-end))
(define (noss-job knpc kpc)
- (say knpc "I bring oblivion to worlds. You've heard of wizards who summon demons to do their bidding?")
+ (say knpc "²æ¤ÏÀ¤³¦¤Ë˺µÑ¤ò¤â¤¿¤é¤¹¼Ô¤Ê¤ê¡£Ì¿¤¸¤ë¤¿¤á°Ëâ¤ò¸Æ¤Ó½Ð¤¹Ëâ½Ñ»Õ¤Î¤³¤È¤Ïʹ¤¤¤¿¤³¤È¤¬¤¢¤í¤¦¡©")
(yes? kpc)
- (say knpc "I summon men to do mine. What do you think YOU are?")
- (kern-log-msg "He laughs, and the air reeks of sulphur.")
- (say knpc "You have opened the way, and served your purpose well. "
- "Now, receive your reward... ")
+ (say knpc "²æ¤Ï¤½¤Î¤¿¤á¤Ë¿Í¤ò¸Æ¤Ó½Ð¤·¤¿¡£¤½¤ì¤¬Æò¤À¤Ã¤¿¤È¤·¤¿¤é¡©")
+ (kern-log-msg "Èà¤Ï¾Ð¤Ã¤¿¡£¤¢¤¿¤ê¤Ëⲫ¤Î½¤¤¤¬Î©¤Á¹þ¤á¤¿¡£")
+ (say knpc "Æò¤ÏÆ»¤ò³«¤¡¢¤½¤ÎÌòÌܤò½ª¤¨¤¿¡£"
+ "º£¡¢Ë«Èþ¤òÍ¿¤¨¤è¤¦¡Ä")
(quest-data-update 'questentry-whereami 'nossifer 1)
(kern-being-set-base-faction knpc faction-demon)
(kern-conv-end))
(define (noss-bye knpc kpc)
- (say knpc "Not yet. We have unfinished business to discuss.")
+ (say knpc "¤Þ¤À¤À¡£ÏäϽª¤ï¤Ã¤Æ¤ª¤é¤Ì¡£")
(prompt-for-key)
(noss-job knpc kpc))
(let ((kchar (bind
(kern-mk-char
'ch_nossifer ; tag
- "Nossifer" ; name
+ "¥Î¥·¥Õ¥¡¡¼" ; name
noss-species ; species
noss-occ ; occ
s_balron ; sprite
;; npc types
;; scheme variable name species occup. sprite chest traps equipment effects ai faction
;; ====================== ========================== ================ ========== ================== ============ ====================== ============= ============== ========
-(define forest-goblin-shaman (mk-npct2 "forest goblin shaman" sp_forest_goblin oc_wizard s_fgob_shaman wizard-traps wizard-equip nil 'shaman-ai faction-forest-goblin nil 'drop-generic wizard-loot ))
-(define forest-goblin-hunter (mk-npct2 "forest goblin hunter" sp_forest_goblin oc_warrior s_fgob_archer basic-traps archer-equip nil 'generic-ai faction-forest-goblin nil 'drop-generic archer-loot ))
-(define forest-goblin-stalker (mk-npct2 "forest goblin stalker" sp_forest_goblin oc_warrior s_fgob_stalker basic-traps stalker-equip nil 'generic-ai faction-forest-goblin nil 'drop-generic stalker-loot))
+(define forest-goblin-shaman (mk-npct2 "¿¹¥´¥Ö¥ê¥ó¤Î¼ö½Ñ»Õ" sp_forest_goblin oc_wizard s_fgob_shaman wizard-traps wizard-equip nil 'shaman-ai faction-forest-goblin nil 'drop-generic wizard-loot ))
+(define forest-goblin-hunter (mk-npct2 "¿¹¥´¥Ö¥ê¥ó¤Î¼í¿Í" sp_forest_goblin oc_warrior s_fgob_archer basic-traps archer-equip nil 'generic-ai faction-forest-goblin nil 'drop-generic archer-loot ))
+(define forest-goblin-stalker (mk-npct2 "¿¹¥´¥Ö¥ê¥ó¤ÎÄÉ·â¼Ô" sp_forest_goblin oc_warrior s_fgob_stalker basic-traps stalker-equip nil 'generic-ai faction-forest-goblin nil 'drop-generic stalker-loot))
-(define cave-goblin-slinger (mk-npct2 "cave goblin slinger" sp_cave_goblin oc_warrior s_cgob_slinger basic-traps slinger-equip nil 'generic-ai faction-cave-goblin nil 'drop-generic slinger-loot))
-(define cave-goblin-berserker (mk-npct2 "cave goblin berserker" sp_cave_goblin oc_warrior s_cgob_berserk basic-traps berserker-equip nil 'generic-ai faction-cave-goblin nil 'drop-generic berserker-loot))
-(define cave-goblin-priest (mk-npct2 "cave goblin priest" sp_cave_goblin oc_wizard s_cgob_shaman wizard-traps wizard-equip nil 'priest-ai faction-cave-goblin nil 'drop-generic wizard-loot))
+(define cave-goblin-slinger (mk-npct2 "ƶ·¢¥´¥Ö¥ê¥ó¤ÎÅêÀÐʼ" sp_cave_goblin oc_warrior s_cgob_slinger basic-traps slinger-equip nil 'generic-ai faction-cave-goblin nil 'drop-generic slinger-loot))
+(define cave-goblin-berserker (mk-npct2 "ƶ·¢¥´¥Ö¥ê¥ó¤Î¶¸Àï»Î" sp_cave_goblin oc_warrior s_cgob_berserk basic-traps berserker-equip nil 'generic-ai faction-cave-goblin nil 'drop-generic berserker-loot))
+(define cave-goblin-priest (mk-npct2 "ƶ·¢¥´¥Ö¥ê¥ó¤ÎÁÎη" sp_cave_goblin oc_wizard s_cgob_shaman wizard-traps wizard-equip nil 'priest-ai faction-cave-goblin nil 'drop-generic wizard-loot))
-(define ranger (mk-npct2 "ranger" sp_human oc_ranger s_ranger basic-traps ranger-equip nil 'ranger-ai faction-men 'ranger-conv 'drop-generic ranger-loot))
+(define ranger (mk-npct2 "·ÙÈ÷Ââ°÷" sp_human oc_ranger s_ranger basic-traps ranger-equip nil 'ranger-ai faction-men 'ranger-conv 'drop-generic ranger-loot))
-(define skeletal-spear-thrower (mk-npct2 "skeletal spear-thrower" sp_skeleton oc_warrior s_spearskeleton basic-traps spear-thrower-equip undead-effects 'nolight-ai faction-monster nil 'drop-generic spear-thrower-loot))
-(define skeletal-warrior (mk-npct2 "skeletal warrior" sp_skeleton oc_warrior s_skeleton basic-traps skeletal-warrior-equip undead-effects 'nolight-ai faction-monster nil 'drop-generic skel-war-loot))
-(define skeletal-archer (mk-npct2 "skeletal archer" sp_skeleton oc_warrior s_skeletonarcher basic-traps archer-equip undead-effects 'nolight-ai faction-monster nil 'drop-generic archer-loot))
+(define skeletal-spear-thrower (mk-npct2 "³¼¹ü¤ÎÁäÅꤲ" sp_skeleton oc_warrior s_spearskeleton basic-traps spear-thrower-equip undead-effects 'nolight-ai faction-monster nil 'drop-generic spear-thrower-loot))
+(define skeletal-warrior (mk-npct2 "³¼¹ü¤ÎÀï»Î" sp_skeleton oc_warrior s_skeleton basic-traps skeletal-warrior-equip undead-effects 'nolight-ai faction-monster nil 'drop-generic skel-war-loot))
+(define skeletal-archer (mk-npct2 "³¼¹ü¤Î¼Í¼ê" sp_skeleton oc_warrior s_skeletonarcher basic-traps archer-equip undead-effects 'nolight-ai faction-monster nil 'drop-generic archer-loot))
-(define death-knight (mk-npct2 "death knight" sp_skeleton oc_warrior s_deathknight basic-traps death-knight-equip undead-effects 'death-knight-ai faction-monster nil 'drop-generic dea-kni-loot))
-(define craven-archer (mk-npct2 "craven archer" sp_skeleton oc_warrior s_deatharcher basic-traps craven-archer-equip nil 'craven-archer-ai faction-monster nil 'drop-generic cra-arch-loot))
+(define death-knight (mk-npct2 "»à¤Îµ³»Î" sp_skeleton oc_warrior s_deathknight basic-traps death-knight-equip undead-effects 'death-knight-ai faction-monster nil 'drop-generic dea-kni-loot))
+(define craven-archer (mk-npct2 "¶²Éݤμͼê" sp_skeleton oc_warrior s_deatharcher basic-traps craven-archer-equip nil 'craven-archer-ai faction-monster nil 'drop-generic cra-arch-loot))
-(define halberdier (mk-npct2 "halberdier" sp_human oc_warrior s_guard no-traps halberdier-equip nil 'guard-ai faction-men nil 'drop-generic halberdier-loot))
-(define crossbowman (mk-npct2 "crossbowman" sp_human oc_warrior s_xbowguard no-traps crossbowman-equip nil 'guard-ai faction-men nil 'drop-generic crossbowman-loot))
-(define medik (mk-npct2 "medik" sp_human oc_wizard s_blue_wizard no-traps medik-equip nil 'medik-ai faction-men nil 'drop-generic medik-loot))
-(define troll (mk-npct2 "troll" sp_troll oc_warrior s_troll no-traps troll-equip nil 'std-ai faction-troll nil 'drop-generic troll-loot))
-(define glasdrin-halberdier (mk-npct2 "halberdier" sp_human oc_warrior s_guard no-traps halberdier-equip nil 'guard-ai faction-glasdrin nil 'drop-generic halberdier-loot))
-(define glasdrin-crossbowman (mk-npct2 "crossbowman" sp_human oc_warrior s_xbowguard no-traps crossbowman-equip nil 'guard-ai faction-glasdrin nil 'drop-generic crossbowman-loot))
+(define halberdier (mk-npct2 "ÉàÁäʼ" sp_human oc_warrior s_guard no-traps halberdier-equip nil 'guard-ai faction-men nil 'drop-generic halberdier-loot))
+(define crossbowman (mk-npct2 "¥¯¥í¥¹¥Ü¥¦Ê¼" sp_human oc_warrior s_xbowguard no-traps crossbowman-equip nil 'guard-ai faction-men nil 'drop-generic crossbowman-loot))
+(define medik (mk-npct2 "°å»Õ" sp_human oc_wizard s_blue_wizard no-traps medik-equip nil 'medik-ai faction-men nil 'drop-generic medik-loot))
+(define troll (mk-npct2 "¥È¥í¥ë" sp_troll oc_warrior s_troll no-traps troll-equip nil 'std-ai faction-troll nil 'drop-generic troll-loot))
+(define glasdrin-halberdier (mk-npct2 "ÉàÁäʼ" sp_human oc_warrior s_guard no-traps halberdier-equip nil 'guard-ai faction-glasdrin nil 'drop-generic halberdier-loot))
+(define glasdrin-crossbowman (mk-npct2 "¥¯¥í¥¹¥Ü¥¦Ê¼" sp_human oc_warrior s_xbowguard no-traps crossbowman-equip nil 'guard-ai faction-glasdrin nil 'drop-generic crossbowman-loot))
;; Bandit types
-(define footpad (mk-npct2 "footpad" sp_human oc_wrogue s_brigand wrogue-traps wrogue-1-equip nil 'std-ai faction-outlaw nil 'drop-generic wrogue-1-loot))
-(define bandit (mk-npct2 "bandit" sp_human oc_wrogue s_brigand wrogue-traps wrogue-2-equip nil 'std-ai faction-outlaw nil 'drop-generic wrogue-2-loot))
-(define highwayman (mk-npct2 "highwayman" sp_human oc_wrogue s_brigand wrogue-traps wrogue-3-equip nil 'std-ai faction-outlaw nil 'drop-generic wrogue-3-loot))
-(define blackguard (mk-npct2 "blackguard" sp_human oc_wrogue s_brigand wrogue-traps wrogue-4-equip nil 'std-ai faction-outlaw nil 'drop-generic wrogue-4-loot))
-(define bomber (mk-npct2 "mad jester" sp_human oc_wrogue s_jester wrogue-traps bomber-equip nil 'std-ai faction-outlaw nil 'drop-generic bomber-loot))
-
-(define bat (mk-npct2 "bat" sp_bat nil s_bat nil nil nil 'animal-ai faction-monster nil 'drop-generic animal-loot))
-(define rat (mk-npct2 "dire rat" sp_rat nil s_rat nil nil nil 'rat-ai faction-monster nil 'drop-generic animal-loot))
-(define zorn (mk-npct2 "zorn" sp_zorn oc_wrogue s_zorn wrogue-traps nil nil 'animal-ai faction-monster nil 'drop-generic zorn-loot))
-(define bull (mk-npct "bull" sp_bull nil s_bull nil nil nil 'animal-ai faction-none nil 'drop-generic bull-loot))
-(define lich (mk-npct2 "lich" sp_lich oc_wizard s_lich wizard-traps wizard-equip undead-effects 'spell-sword-ai faction-monster nil 'drop-generic lich-loot))
-(define dryad (mk-npct2 "dryad" sp_dryad nil s_reaper nil nil nil 'dryad-ai faction-monster nil 'drop-generic dryad-loot))
-(define gazer (mk-npct2 "gazer" sp_gazer oc_wizard s_gazer wizard-traps nil nil 'gazer-ai faction-monster nil 'drop-generic wizard-loot))
-(define demon (mk-npct2 "demon" sp_demon nil s_demon basic-traps demon-equip demon-effects 'demon-ai faction-monster nil 'drop-generic demon-loot))
-(define ghast (mk-npct2 "ghast" sp_ghast nil s_ghost nil nil undead-effects 'std-ai faction-monster nil 'drop-generic ghast-loot))
-(define snake (mk-npct "snake" sp_snake nil s_snake nil nil nil 'snake-ai faction-monster nil 'drop-generic animal-loot))
-(define insect (mk-npct "insect swarm" sp_insect nil s_insects nil nil nil 'animal-ai faction-monster nil 'drop-generic animal-loot))
-(define dragon (mk-npct2 "dragon" sp_dragon nil s_dragon wizard-traps nil drag-effects 'dragon-ai faction-monster nil 'drop-generic dragon-loot))
-(define knight (mk-npct2 "knight" sp_human oc_warrior s_knight no-traps knight-equip nil 'guard-ai faction-trigrave 'knight-conv 'drop-generic knight-loot))
-(define paladin (mk-npct2 "paladin" sp_human oc_warrior s_companion_paladin no-traps knight-equip nil 'std-ai faction-men 'knight-conv 'drop-generic knight-loot))
-(define tinker (mk-npct2 "tinker" sp_human oc_warrior s_companion_tinker no-traps wrogue-4-equip nil 'std-ai faction-men nil 'drop-generic wrogue-4-loot))
-(define squire (mk-npct2 "squire" sp_human oc_warrior s_xbowguard no-traps squire-equip nil 'guard-ai faction-trigrave 'knight-conv 'drop-generic squire-loot))
-(define warlock (mk-npct2 "warlock" sp_human oc_wizard s_wizard wizard-traps wizard-equip nil 'warlock-ai faction-monster nil 'drop-generic wizard-loot))
-(define wizard (mk-npct2 "wizard" sp_human oc_wizard s_companion_wizard wizard-traps wizard-equip nil 'spell-sword-ai faction-men nil 'drop-generic wizard-loot))
-(define headless (mk-npct2 "headless" sp_headless oc_warrior s_headless basic-traps headless-equip nil 'animal-ai faction-monster nil 'drop-generic headless-loot))
-(define gint-mage (mk-npct2 "gint mage" sp_gint oc_wizard s_gint_mage wizard-traps wizard-equip nil 'shaman-ai faction-gint nil 'drop-generic wizard-loot))
-(define gint-warrior (mk-npct2 "gint warrior" sp_gint oc_warrior s_gint basic-traps gint-warrior-equip nil 'std-ai faction-gint nil 'drop-generic gint-loot))
-(define yellow-slime (mk-npct2 "yellow slime" sp_yellow_slime nil s_yellow_slime nil nil yellow-slime-effects 'yellow-slime-ai faction-monster nil 'drop-generic yellow-slime-loot))
-(define troll-geomancer (mk-npct2 "troll geomancer" sp_troll oc_wizard s_troll_geomancer no-traps geomancer-equip nil 'geomancer-ai faction-troll nil 'drop-generic geomancer-loot))
-(define corrupt-halberdier (mk-npct2 "halberdier" sp_human oc_warrior s_guard no-traps halberdier-equip nil 'guard-ai faction-monster nil 'drop-generic halberdier-loot))
-(define corrupt-crossbowman (mk-npct2 "crossbowman" sp_human oc_warrior s_guard no-traps crossbowman-equip nil 'guard-ai faction-monster nil 'drop-generic crossbowman-loot))
-(define giant-spider (mk-npct2 "giant spider" sp_spider nil s_spider nil nil nil 'spider-ai faction-monster nil 'drop-generic spider-loot))
-(define queen-spider (mk-npct2 "queen spider" sp_queen_spider nil s_queen_spider nil nil nil 'spider-ai faction-monster nil 'drop-generic queen-spider-loot))
-(define fire-slime (mk-npct2 "fire slime" sp_fire_slime nil s_red_slime nil nil fire-slime-effects 'animal-ai faction-monster nil 'drop-generic fire-slime-loot))
-(define hydra (mk-npct2 "hydra" sp_hydra nil s_hydra no-traps nil hydra-effects 'hydra-ai faction-monster nil 'drop-generic hydra-loot))
-(define mimic (mk-npct2 "mimic" sp_mimic nil s_mimic no-traps nil nil 'animal-ai faction-monster nil 'drop-generic zorn-loot))
-(define ratling-swarmer (mk-npct2 "ratling swarmer" sp_ratling nil s_mouse no-traps nil nil 'ratling-ai faction-monster nil 'drop-generic animal-loot))
-(define ratling-sorcerer (mk-npct2 "ratling sorcerer" sp_ratling oc_wizard s_ratling_sorcerer wizard-traps wizard-equip nil 'ratling-sorcerer-ai faction-monster nil 'drop-generic animal-loot))
-(define carabid (mk-npct2 "carabid" sp_carabid nil s_carabid nil nil nil 'carabid-ai faction-monster nil 'drop-generic animal-loot))
-(define deer (mk-npct2 "deer" sp_deer nil s_deer nil nil nil nil faction-none nil 'drop-generic deer-loot))
-(define chicken (mk-npct2 "chicken" sp_chicken nil s_chicken nil nil nil 'animal-ai faction-none nil 'drop-generic animal-loot))
+(define footpad (mk-npct2 "Äɤ¤¤Ï¤®" sp_human oc_wrogue s_brigand wrogue-traps wrogue-1-equip nil 'std-ai faction-outlaw nil 'drop-generic wrogue-1-loot))
+(define bandit (mk-npct2 "Åð±" sp_human oc_wrogue s_brigand wrogue-traps wrogue-2-equip nil 'std-ai faction-outlaw nil 'drop-generic wrogue-2-loot))
+(define highwayman (mk-npct2 "ÌîÅð" sp_human oc_wrogue s_brigand wrogue-traps wrogue-3-equip nil 'std-ai faction-outlaw nil 'drop-generic wrogue-3-loot))
+(define blackguard (mk-npct2 "¤´¤í¤Ä¤" sp_human oc_wrogue s_brigand wrogue-traps wrogue-4-equip nil 'std-ai faction-outlaw nil 'drop-generic wrogue-4-loot))
+(define bomber (mk-npct2 "¶¸¤Ã¤¿Æ»²½»Õ" sp_human oc_wrogue s_jester wrogue-traps bomber-equip nil 'std-ai faction-outlaw nil 'drop-generic bomber-loot))
+
+(define bat (mk-npct2 "¥³¥¦¥â¥ê" sp_bat nil s_bat nil nil nil 'animal-ai faction-monster nil 'drop-generic animal-loot))
+(define rat (mk-npct2 "ÉÔ·é¤Ê¥Í¥º¥ß" sp_rat nil s_rat nil nil nil 'rat-ai faction-monster nil 'drop-generic animal-loot))
+(define zorn (mk-npct2 "¥¾¡¼¥ó" sp_zorn oc_wrogue s_zorn wrogue-traps nil nil 'animal-ai faction-monster nil 'drop-generic zorn-loot))
+(define bull (mk-npct "µí" sp_bull nil s_bull nil nil nil 'animal-ai faction-none nil 'drop-generic bull-loot))
+(define lich (mk-npct2 "¥ê¥Ã¥Á" sp_lich oc_wizard s_lich wizard-traps wizard-equip undead-effects 'spell-sword-ai faction-monster nil 'drop-generic lich-loot))
+(define dryad (mk-npct2 "ÌÚ¤ÎÀº" sp_dryad nil s_reaper nil nil nil 'dryad-ai faction-monster nil 'drop-generic dryad-loot))
+(define gazer (mk-npct2 "¥²¥¤¥¶¡¼" sp_gazer oc_wizard s_gazer wizard-traps nil nil 'gazer-ai faction-monster nil 'drop-generic wizard-loot))
+(define demon (mk-npct2 "°Ëâ" sp_demon nil s_demon basic-traps demon-equip demon-effects 'demon-ai faction-monster nil 'drop-generic demon-loot))
+(define ghast (mk-npct2 "Ë´Îî" sp_ghast nil s_ghost nil nil undead-effects 'std-ai faction-monster nil 'drop-generic ghast-loot))
+(define snake (mk-npct "¥Ø¥Ó" sp_snake nil s_snake nil nil nil 'snake-ai faction-monster nil 'drop-generic animal-loot))
+(define insect (mk-npct "º«Ãî¤Î·²¤ì" sp_insect nil s_insects nil nil nil 'animal-ai faction-monster nil 'drop-generic animal-loot))
+(define dragon (mk-npct2 "ε" sp_dragon nil s_dragon wizard-traps nil drag-effects 'dragon-ai faction-monster nil 'drop-generic dragon-loot))
+(define knight (mk-npct2 "µ³»Î" sp_human oc_warrior s_knight no-traps knight-equip nil 'guard-ai faction-trigrave 'knight-conv 'drop-generic knight-loot))
+(define paladin (mk-npct2 "À»µ³»Î" sp_human oc_warrior s_companion_paladin no-traps knight-equip nil 'std-ai faction-men 'knight-conv 'drop-generic knight-loot))
+(define tinker (mk-npct2 "¿¦¿Í" sp_human oc_warrior s_companion_tinker no-traps wrogue-4-equip nil 'std-ai faction-men nil 'drop-generic wrogue-4-loot))
+(define squire (mk-npct2 "½¾¼Ô" sp_human oc_warrior s_xbowguard no-traps squire-equip nil 'guard-ai faction-trigrave 'knight-conv 'drop-generic squire-loot))
+(define warlock (mk-npct2 "¹õËâ½Ñ»Õ" sp_human oc_wizard s_wizard wizard-traps wizard-equip nil 'warlock-ai faction-monster nil 'drop-generic wizard-loot))
+(define wizard (mk-npct2 "Ëâ½Ñ»Õ" sp_human oc_wizard s_companion_wizard wizard-traps wizard-equip nil 'spell-sword-ai faction-men nil 'drop-generic wizard-loot))
+(define headless (mk-npct2 "¼ó¤Ê¤·" sp_headless oc_warrior s_headless basic-traps headless-equip nil 'animal-ai faction-monster nil 'drop-generic headless-loot))
+(define gint-mage (mk-npct2 "µð¿Í¤ÎËâ½Ñ»Õ" sp_gint oc_wizard s_gint_mage wizard-traps wizard-equip nil 'shaman-ai faction-gint nil 'drop-generic wizard-loot))
+(define gint-warrior (mk-npct2 "µð¿Í¤ÎÀï»Î" sp_gint oc_warrior s_gint basic-traps gint-warrior-equip nil 'std-ai faction-gint nil 'drop-generic gint-loot))
+(define yellow-slime (mk-npct2 "²«¿§¤¤Ç´¶Ý" sp_yellow_slime nil s_yellow_slime nil nil yellow-slime-effects 'yellow-slime-ai faction-monster nil 'drop-generic yellow-slime-loot))
+(define troll-geomancer (mk-npct2 "¥È¥í¥ë¤ÎÉ÷¿å»Õ" sp_troll oc_wizard s_troll_geomancer no-traps geomancer-equip nil 'geomancer-ai faction-troll nil 'drop-generic geomancer-loot))
+(define corrupt-halberdier (mk-npct2 "ÉàÁäʼ" sp_human oc_warrior s_guard no-traps halberdier-equip nil 'guard-ai faction-monster nil 'drop-generic halberdier-loot))
+(define corrupt-crossbowman (mk-npct2 "¥¯¥í¥¹¥Ü¥¦Ê¼" sp_human oc_warrior s_guard no-traps crossbowman-equip nil 'guard-ai faction-monster nil 'drop-generic crossbowman-loot))
+(define giant-spider (mk-npct2 "µðÂ祰¥â" sp_spider nil s_spider nil nil nil 'spider-ai faction-monster nil 'drop-generic spider-loot))
+(define queen-spider (mk-npct2 "½÷²¦¥°¥â" sp_queen_spider nil s_queen_spider nil nil nil 'spider-ai faction-monster nil 'drop-generic queen-spider-loot))
+(define fire-slime (mk-npct2 "±ê¤ÎÇ´¶Ý" sp_fire_slime nil s_red_slime nil nil fire-slime-effects 'animal-ai faction-monster nil 'drop-generic fire-slime-loot))
+(define hydra (mk-npct2 "¥Ò¥É¥é" sp_hydra nil s_hydra no-traps nil hydra-effects 'hydra-ai faction-monster nil 'drop-generic hydra-loot))
+(define mimic (mk-npct2 "µ¼ÂÖ" sp_mimic nil s_mimic no-traps nil nil 'animal-ai faction-monster nil 'drop-generic zorn-loot))
+(define ratling-swarmer (mk-npct2 "¥Í¥º¥ß¿Í´Ö¤ÎÃî»È¤¤" sp_ratling nil s_mouse no-traps nil nil 'ratling-ai faction-monster nil 'drop-generic animal-loot))
+(define ratling-sorcerer (mk-npct2 "¥Í¥º¥ß¿Í´Ö¤ÎÍŽѻÕ" sp_ratling oc_wizard s_ratling_sorcerer wizard-traps wizard-equip nil 'ratling-sorcerer-ai faction-monster nil 'drop-generic animal-loot))
+(define carabid (mk-npct2 "¥ª¥µ¥à¥·" sp_carabid nil s_carabid nil nil nil 'carabid-ai faction-monster nil 'drop-generic animal-loot))
+(define deer (mk-npct2 "¼¯" sp_deer nil s_deer nil nil nil nil faction-none nil 'drop-generic deer-loot))
+(define chicken (mk-npct2 "·Ü" sp_chicken nil s_chicken nil nil nil 'animal-ai faction-none nil 'drop-generic animal-loot))
;; NPC's with no drops
-(define green-slime (mk-npct "green slime" sp_green_slime nil s_slime nil nil slime-effects 'animal-ai faction-monster nil))
-(define kraken (mk-npct "kraken" sp_kraken nil s_kraken nil nil nil 'kraken-ai faction-monster nil))
-(define sea-serpent (mk-npct "sea serpent" sp_sea_serpent nil s_sea_serpent nil nil nil 'sea-serpent-ai faction-monster nil))
-(define wolf (mk-npct "wolf" sp_wolf nil s_wolf nil nil nil 'wolf-ai faction-monster nil))
-(define wisp (mk-npct "wisp" sp_wisp nil s_wisp nil nil wisp-effects 'wisp-ai faction-monster nil))
-(define nixie-spearman (mk-npct "nixie spearman" sp_nixie oc_warrior s_nixie_spear no-traps nixie-1-equip nil 'nixie-ai faction-monster nil))
-(define nixie-swordsman (mk-npct "nixie swordsman" sp_nixie oc_warrior s_nixie_sword no-traps nixie-2-equip nil 'nixie-ai faction-monster nil))
-(define sludge-kraken (mk-npct "sludge kraken" sp_great_kraken nil s_great_kraken nil nil sludge-kraken-effects 'sludge-kraken-ai faction-monster nil))
-(define sludge-tentacle (mk-npct "sludge kraken tentacle" sp_kraken_tentacle nil s_tentacle nil nil nil 'sludge-tentacle-ai faction-monster nil))
-(define griffin (mk-npct "griffin" sp_griffin nil s_griffin nil nil nil 'griffin-ai faction-monster nil))
-(define griffin-chick (mk-npct "griffin chick" sp_griffin_chick nil s_griffin_chick nil nil nil 'griffin-ai faction-monster nil))
+(define green-slime (mk-npct "Î理ÎÇ´¶Ý" sp_green_slime nil s_slime nil nil slime-effects 'animal-ai faction-monster nil))
+(define kraken (mk-npct "¥¯¥é¡¼¥±¥ó" sp_kraken nil s_kraken nil nil nil 'kraken-ai faction-monster nil))
+(define sea-serpent (mk-npct "³¤¥Ø¥Ó" sp_sea_serpent nil s_sea_serpent nil nil nil 'sea-serpent-ai faction-monster nil))
+(define wolf (mk-npct "ϵ" sp_wolf nil s_wolf nil nil nil 'wolf-ai faction-monster nil))
+(define wisp (mk-npct "¤¿¤Ê¤Ó¤¯¸÷" sp_wisp nil s_wisp nil nil wisp-effects 'wisp-ai faction-monster nil))
+(define nixie-spearman (mk-npct "¥Ë¥¥·¡¼¤ÎÁäʼ" sp_nixie oc_warrior s_nixie_spear no-traps nixie-1-equip nil 'nixie-ai faction-monster nil))
+(define nixie-swordsman (mk-npct "¥Ë¥¥·¡¼¤Î·õ»Î" sp_nixie oc_warrior s_nixie_sword no-traps nixie-2-equip nil 'nixie-ai faction-monster nil))
+(define sludge-kraken (mk-npct "Å¥¥¯¥é¡¼¥±¥ó" sp_great_kraken nil s_great_kraken nil nil sludge-kraken-effects 'sludge-kraken-ai faction-monster nil))
+(define sludge-tentacle (mk-npct "Å¥¥¯¥é¡¼¥±¥ó¤Î¿¨¼ê" sp_kraken_tentacle nil s_tentacle nil nil nil 'sludge-tentacle-ai faction-monster nil))
+(define griffin (mk-npct "¥°¥ê¥Õ¥£¥ó" sp_griffin nil s_griffin nil nil nil 'griffin-ai faction-monster nil))
+(define griffin-chick (mk-npct "¥°¥ê¥Õ¥£¥ó¤Î¿÷" sp_griffin_chick nil s_griffin_chick nil nil nil 'griffin-ai faction-monster nil))
;; accursed
-(define accursed-acolyte (mk-npct2 "an accursed acolyte" sp_human oc_wizard s_shepherd nil accursed-1-equip nil 'spell-sword-ai faction-accursed nil 'drop-generic accursed-1-loot))
-(define accursed-apprentice (mk-npct2 "an accursed apprentice" sp_human oc_wizard s_shepherd nil accursed-2-equip nil 'spell-sword-ai faction-accursed nil 'drop-generic accursed-1-loot))
-(define accursed-journeyman (mk-npct2 "an accursed journeyman" sp_human oc_wizard s_wizard nil accursed-3-equip nil 'spell-sword-ai faction-accursed nil 'drop-generic wizard-loot))
-(define accursed-master (mk-npct2 "an accursed master" sp_human oc_wizard s_wizard nil accursed-3-equip nil 'spell-sword-ai faction-accursed nil 'drop-generic wizard-loot))
-(define accursed-adept (mk-npct2 "an accursed adept" sp_human oc_wizard s_wizard nil accursed-3-equip nil 'spell-sword-ai faction-accursed nil 'drop-generic wizard-loot))
-(define accursed-guardian (mk-npct2 "an accursed guardian" sp_human oc_warrior s_fighter nil accursed-4-equip nil 'std-ai faction-accursed nil 'drop-generic wrogue-1-loot))
-(define accursed-defender (mk-npct2 "an accursed defender" sp_human oc_warrior s_knight nil accursed-5-equip nil 'std-ai faction-accursed nil 'drop-generic accursed-5-loot))
-(define accursed-templar (mk-npct2 "an accursed templar" sp_human oc_warrior s_avatar nil accursed-6-equip nil 'std-ai faction-accursed nil 'drop-generic wrogue-4-loot))
+(define accursed-acolyte (mk-npct2 "¼ö¤ï¤ì¤¿»ø¼Ô" sp_human oc_wizard s_shepherd nil accursed-1-equip nil 'spell-sword-ai faction-accursed nil 'drop-generic accursed-1-loot))
+(define accursed-apprentice (mk-npct2 "¼ö¤ï¤ì¤¿ÅÌÄï" sp_human oc_wizard s_shepherd nil accursed-2-equip nil 'spell-sword-ai faction-accursed nil 'drop-generic accursed-1-loot))
+(define accursed-journeyman (mk-npct2 "¼ö¤ï¤ì¤¿ËÒ»Õ" sp_human oc_wizard s_wizard nil accursed-3-equip nil 'spell-sword-ai faction-accursed nil 'drop-generic wizard-loot))
+(define accursed-master (mk-npct2 "¼ö¤ï¤ì¤¿Æ³»Õ" sp_human oc_wizard s_wizard nil accursed-3-equip nil 'spell-sword-ai faction-accursed nil 'drop-generic wizard-loot))
+(define accursed-adept (mk-npct2 "¼ö¤ï¤ì¤¿¾åµéƳ»Õ" sp_human oc_wizard s_wizard nil accursed-3-equip nil 'spell-sword-ai faction-accursed nil 'drop-generic wizard-loot))
+(define accursed-guardian (mk-npct2 "¼ö¤ï¤ì¤¿¼é¸î¼Ô" sp_human oc_warrior s_fighter nil accursed-4-equip nil 'std-ai faction-accursed nil 'drop-generic wrogue-1-loot))
+(define accursed-defender (mk-npct2 "¼ö¤ï¤ì¤¿ËɱҼÔ" sp_human oc_warrior s_knight nil accursed-5-equip nil 'std-ai faction-accursed nil 'drop-generic accursed-5-loot))
+(define accursed-templar (mk-npct2 "¼ö¤ï¤ì¤¿¿Àŵ³»Î" sp_human oc_warrior s_avatar nil accursed-6-equip nil 'std-ai faction-accursed nil 'drop-generic wrogue-4-loot))
;; npcs with odd alignments
-(define gint-warrior-m (mk-npct2 "gint warrior" sp_gint oc_warrior s_gint basic-traps gint-warrior-equip nil 'std-ai faction-monster nil 'drop-generic gint-loot))
-(define troll-m (mk-npct2 "troll" sp_troll oc_warrior s_troll no-traps troll-equip nil 'std-ai faction-monster nil 'drop-generic troll-loot))
-(define cave-goblin-slinger-m (mk-npct2 "cave goblin slinger" sp_cave_goblin oc_warrior s_cgob_slinger basic-traps slinger-equip nil 'generic-ai faction-monster nil 'drop-generic slinger-loot))
-(define cave-goblin-berserker-m (mk-npct2 "cave goblin berserker" sp_cave_goblin oc_warrior s_cgob_berserk basic-traps berserker-equip nil 'generic-ai faction-monster nil 'drop-generic berserker-loot))
-(define gint-mage-m (mk-npct2 "gint mage" sp_gint oc_wizard s_gint_mage wizard-traps wizard-equip nil 'shaman-ai faction-monster nil 'drop-generic wizard-loot))
-(define troll-geomancer-m (mk-npct2 "troll geomancer" sp_troll oc_wizard s_troll_geomancer no-traps geomancer-equip nil 'std-ai faction-monster nil 'drop-generic geomancer-loot))
+(define gint-warrior-m (mk-npct2 "µð¿Í¤ÎÀï»Î" sp_gint oc_warrior s_gint basic-traps gint-warrior-equip nil 'std-ai faction-monster nil 'drop-generic gint-loot))
+(define troll-m (mk-npct2 "¥È¥í¥ë" sp_troll oc_warrior s_troll no-traps troll-equip nil 'std-ai faction-monster nil 'drop-generic troll-loot))
+(define cave-goblin-slinger-m (mk-npct2 "ƶ·¢¥´¥Ö¥ê¥ó¤ÎÅêÀÐʼ" sp_cave_goblin oc_warrior s_cgob_slinger basic-traps slinger-equip nil 'generic-ai faction-monster nil 'drop-generic slinger-loot))
+(define cave-goblin-berserker-m (mk-npct2 "ƶ·¢¥´¥Ö¥ê¥ó¤Î¶¸Àï»Î" sp_cave_goblin oc_warrior s_cgob_berserk basic-traps berserker-equip nil 'generic-ai faction-monster nil 'drop-generic berserker-loot))
+(define gint-mage-m (mk-npct2 "µð¿Í¤ÎËâ½Ñ»Õ" sp_gint oc_wizard s_gint_mage wizard-traps wizard-equip nil 'shaman-ai faction-monster nil 'drop-generic wizard-loot))
+(define troll-geomancer-m (mk-npct2 "µð¿Í¤ÎÉ÷¿å»Õ" sp_troll oc_wizard s_troll_geomancer no-traps geomancer-equip nil 'std-ai faction-monster nil 'drop-generic geomancer-loot))
;;define (mk-npct " sp_ oc_ s_ nil nil nil 'std-ai ))
;; / g / m / - / - / m / m /
;; / a / a / o / o / a / r / p
;; / t / n / t / t / d / a / x
-(mk-occ 'oc_wizard "wizard" -1 -1 -1 -1 4 nil)
-(mk-occ 'oc_warrior "warrior" 1 0 1 0 4 sks_warrior)
-(mk-occ 'oc_wright "wright" 0 1 0 1 4 sks_wright)
-(mk-occ 'oc_wrogue "wrogue" 1 1 0 0 4 sks_wrogue)
-(mk-occ 'oc_wanderer "wanderer" 5 5 5 5 8 sks_wanderer)
-(mk-occ 'oc_ranger "ranger" 1 1 0 0 4 sks_ranger)
+(mk-occ 'oc_wizard "Ëâ½Ñ»Õ" -1 -1 -1 -1 4 nil)
+(mk-occ 'oc_warrior "Àï»Î" 1 0 1 0 4 sks_warrior)
+(mk-occ 'oc_wright "¿¦¿Í" 0 1 0 1 4 sks_wright)
+(mk-occ 'oc_wrogue "¤Ê¤é¤º¼Ô" 1 1 0 0 4 sks_wrogue)
+(mk-occ 'oc_wanderer "̤¤¿Í" 5 5 5 5 8 sks_wanderer)
+(mk-occ 'oc_ranger "·ÙÈ÷Ââ°÷" 1 1 0 0 4 sks_ranger)
(define (occ-get-abil kocc ability)
(if (null? kocc)
;;----------------------------------------------------------------------------
(kern-mk-place
'p_old_absalot ; tag
- "Old Absalot" ; name
+ "¸Å¥¢¥Ö¥µ¥í¥Ã¥È" ; name
nil ; sprite
m_old_absalot ; map
#f ; wraps
;;;;
(mk-dungeon-room
- 'p_old_mine "Old Mine"
+ 'p_old_mine "ÇѹÛ"
(list
"rn rn r8 r8 rn rn rn rn rn r8 r8 r8 r8 r8 r8 r8 r8 r8 rn "
"rn rc bb bb ra rn rn rn rc bb bb bb .. .. .. .. bb bb r2 "
;;----------------------------------------------------------------------------
-;; Oparine
+;; ¥ª¥Ñ¡¼¥ê¥ó
;;
-;; Main trade port for the peninsula.
+;; ȾÅç¤Î¼çÍפʹÁÄ®¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
(kern-mk-place
'p_oparine ; tag
- "Oparine" ; name
+ "¥ª¥Ñ¡¼¥ê¥ó" ; name
s_town ; sprite
m_oparine ; map
#f ; wraps
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Oparine
+;; ¥ª¥Ñ¡¼¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_oscar
(list 0 0 oparine-innkeepers-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Oscar is the innkeeper in Oparine. He is a glum fellow, with a wooden leg.
+;; ¥ª¥¹¥«¡¼¤Ï¥ª¥Ñ¡¼¥ê¥ó¤Î½É²°¤Ç¤¢¤ë¡£Èà¤Ï±¢µ¤¤ÇÌڤεÁ¤ò¤·¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (oscar-hail knpc kpc)
- (say knpc "[You meet a glum man with a wooden leg] Hello."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï±¢µ¤¤Ê¡¢ÌڤεÁ¤ÎÃˤȲñ¤Ã¤¿¡£¡Ï¤¤¤é¤Ã¤·¤ã¤¤¡Ä¡£"))
(define (oscar-default knpc kpc)
- (say knpc "I don't know."))
+ (say knpc "ÃΤê¤Þ¤»¤ó¤Í¡£"))
(define (oscar-name knpc kpc)
- (say knpc "I'm Oscar the Innkeeper."))
+ (say knpc "½É²°¤Î¥ª¥¹¥«¡¼¤À¡£"))
(define (oscar-join knpc kpc)
- (say knpc "I would just get in the way."))
+ (say knpc "»ä¤¬¤¤¤Æ¤â¤¸¤ã¤Þ¤Ë¤Ê¤ë¤À¤±¤À¤è¡Ä¡£"))
(define (oscar-job knpc kpc)
- (say knpc "I'm the Innkeeper. "
- "I doubt you want to rent a room, "
- "but if you do let me know."))
+ (say knpc "½É²°¤À¡£"
+ "Éô²°¤¬Íפë¤è¤¦¤Ë¤Ï¸«¤¨¤Ê¤¤¤¬¡¢"
+ "¤â¤·Íפë¤Ê¤é¸À¤Ã¤Æ¤¯¤ì¡£"))
(define (oscar-bye knpc kpc)
- (say knpc "Bye"))
+ (say knpc "¤É¤¦¤â¡£"))
;; Trade...
(define (oscar-trade knpc kpc)
(if (not (string=? "working" (kern-obj-get-activity knpc)))
- (say knpc "The inn is open from 9 to 9, and I do have to eat sometime, "
- "so try me later.")
+ (say knpc "½É²°¡ÖÌû²÷¤ÊƱµï¿Í¡×¤Ï¸áÁ°9»þ¤«¤é¸á¸å9»þ¤Þ¤Ç³«¤¤¤Æ¤¤¤ë¡£»þ¡¹¿©»ö¤Ç¤¤¤Ê¤¤¤¬¡¢"
+ "¤½¤Î¤È¤¤Ï¸å¤ÇÍè¤Æ¤¯¤ì¡£")
(let ((door (eval 'oparine-inn-room-1-door)))
;; is the room still open?
(if (not (door-locked? (kobj-gob door)))
;; yes - remind player
- (say knpc "Your room is still open.")
+ (say knpc "Éô²°¤Ï¤â¤¦³«¤¤¤Æ¤¤¤ë¡£")
;; no - ask if player needs a room
(begin
- (say knpc "Do you need a room?")
+ (say knpc "Éô²°¤¬Íפë¤Î¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player wants a room
(begin
(say knpc
- "That will be " oparine-inn-room-price " gold. "
- "You can have the room as long as you're in town. "
- "Do you still want it?")
+ "¶â²ß" oparine-inn-room-price "Ëç¤À¡£"
+ "¤³¤ÎÄ®¤Ë¤¤¤ë¸Â¤ê¡¢²¿Å٤Ǥâ½ÐÆþ¤ê¤Ç¤¤ë¡£"
+ "¤½¤ì¤Ç¤¤¤¤¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player agrees to the price
(let ((gold (kern-player-get-gold)))
(if (>= gold oparine-inn-room-price)
;; yes - player has enough gold
(begin
- (say knpc "Ok, you're in room 1, "
- "but you won't like it. "
- "Don't complain to me because I told you "
- "so.")
+ (say knpc "1¹æ¼¼¤À¡£"
+ "¤Ç¤âµ¤¤ËÆþ¤é¤Ê¤¤¤À¤í¤¦¤Í¡£"
+ "¤¢¤é¤«¤¸¤á¸À¤Ã¤Æ¤ª¤¤¤¿¤ó¤À¡£"
+ "ʸ¶ç¤Ï¸À¤ï¤Ê¤¤¤Ç¤¯¤ì¤è¡£")
(kern-player-set-gold
(- gold
oparine-inn-room-price))
(kern-conv-end)
)
;; no - player does not have enouvh gold)
- (say knpc "Sorry, but you don't have the gold. "
- "This isn't a poorhouse, you know." )))
+ (say knpc "»ÄÇ°¤À¤¬¶â²ß¤¬Â¤ê¤Ê¤¤¤Ê¡£"
+ "ÃΤäƤÎÄ̤ꡢ¤³¤³¤ÏµßÉϱ¡¤Ç¤Ï¤Ê¤¤¡£" )))
;; no - player does not agree to the price
(say knpc
- "I knew you wouldn't.")))
+ "¤ï¤«¤Ã¤Æ¤¿¤è¡£")))
;; no - player does not want a room
- (say knpc "I didn't think so. "
- "I was just being polite.")))))))
+ (say knpc "¤½¤¦¤À¤í¤¦¤Í¡£"
+ "¼Ò¸ò¼Îá¤Çʹ¤¤¤Æ¤ß¤¿¤À¤±¤À¡£")))))))
;; Inn...
(define (oscar-inn knpc kpc)
- (say knpc "The former owner gave it the name. "
- "I didn't feel like changing it. Besides, that would be bad luck."))
+ (say knpc "Á°¤ÎÅÛ¤¬¤³¤Î̾Á°¤Ë¤·¤¿¤ó¤À¡£"
+ "ÊѤ¨¤¿¤¤¤È¤Ï»×¤ï¤Ê¤¤¡£¤·¤«¤·¡¢¤½¤ì¤Ë¤·¤Æ¤â±¿¤¬°¤¤¡£"))
(define (oscar-luck knpc kpc)
- (say knpc "The ghost in room 3 likes the name. I don't want the ghost of "
- "a wicked pirate mad at me.")
+ (say knpc "¤³¤Î½É¤Î̾Á°¤Î¤è¤¦¤ÊË´Î3¹æ¼¼¤Ë¤¤¤ë¤ó¤À¡£"
+ "¶²¤í¤·¤¤³¤Â±¤ÎË´Îî¤òÅܤ餻¤¿¤¯¤Ê¤¤¡£")
(quest-data-assign-once 'questentry-ghertie)
(quest-data-update 'questentry-ghertie 'ghertieloc 1))
(define (oscar-ghost knpc kpc)
- (say knpc "Ghastly Ghertie was murdered by her crew in room 3. "
- "She still haunts it so I don't rent it out. "
- "I wish she would pay her bill.")
+ (say knpc "¥¬¡¼¥Æ¥£¡¼¤È¤¤¤¦µÒ¤¬3¹æ¼¼¤Ç¼«Ê¬¤Î¼ê²¼¤Ë»¦¤µ¤ì¤¿¡£"
+ "¤½¤ÎË´Î¤Þ¤À¤¤¤ë¤«¤é3¹æ¼¼¤ÏÂߤ·½Ð¤»¤Ê¤¤¤ó¤À¡£"
+ "½ÉÂå¤òʧ¤Ã¤ÆÍߤ·¤¤¤Í¡£")
(quest-data-update 'questentry-ghertie 'ghertieid 1)
(quest-data-update 'questentry-ghertie 'ghertieloc 1)
(quest-data-assign-once 'questentry-ghertie))
;; Leg...
(define (oscar-leg knpc kpc)
- (say knpc "I tried to be a sailor but nobody would take me. "
- "So I cut off my leg to make myself look like a sailor. "
- "They still wouldn't take me. I miss that leg."))
+ (say knpc "Á¥¾è¤ê¤Ë¤Ê¤ê¤¿¤«¤Ã¤¿¤ó¤À¡£¤Ç¤âï¤â¸Û¤Ã¤Æ¤¯¤ì¤Ê¤«¤Ã¤¿¡£"
+ "¤À¤«¤éÁ¥¾è¤ê¤é¤·¤¯¸«¤¨¤ë¤è¤¦¤Ë¡¢¼«Ê¬¤Ç¤òÀÚ¤êÍî¤È¤·¤¿¤ó¤À¡£"
+ "¤Ç¤â¸Û¤Ã¤Æ¤¯¤ì¤Ê¤«¤Ã¤¿¡£¤¿¤À¤ò¼º¤Ã¤¿¤À¤±¤À¡£"))
;; Townspeople...
(define (oscar-opar knpc kpc)
- (say knpc "This is a port city. Most of my customers are travelers who "
- "disembark here before traveling north."))
+ (say knpc "¤³¤³¤Ï¹ÁÄ®¤À¡£"
+ "µÒ¤Î¤Û¤È¤ó¤É¤ÏÁ¥¤ò¹ß¤ê¤¿¤¢¤ÈË̤ظþ¤«¤¦Î¹¿Í¤À¡£"))
(define (oscar-gher knpc kpc)
- (say knpc "Ghertie was a wicked pirate back before my time. "
- "Her own crew murdered her and left with her ship and her treasure.")
+ (say knpc "¥¬¡¼¥Æ¥£¡¼¤Ï¶²¤í¤·¤¤³¤Â±¤À¤Ã¤¿¡£"
+ "¼«Ê¬¤Î¼ê²¼¤Ë»¦¤µ¤ì¡¢Á¥¤ÈºâÊõ¤òÃ¥¤ï¤ì¤¿¤ó¤À¡£")
(quest-data-assign-once 'questentry-ghertie))
(define (oscar-alch knpc kpc)
- (say knpc "His shop is next to the tavern. He's always looking for weird "
- "stuff to use in his experiments."))
+ (say knpc "Èà¤ÎŹ¤Ï¼ò¾ì¤Î¤È¤Ê¤ê¤Ë¤¢¤ë¡£"
+ "¤¤¤Ä¤â¤è¤¯¤ï¤«¤é¤Ê¤¤¼Â¸³¤Ç»È¤¦Êª¤òõ¤·¤Æ¤¤¤ë¡£"))
(define (oscar-bart knpc kpc)
- (say knpc "Bart the shipwright has a shop just across the way. "
- "He usually gets pretty drunk at night. I can't keep up with him."))
+ (say knpc "¥Ð¡¼¥È¤Ï¤³¤ÎÆ»¤Î¤Á¤ç¤¦¤É¸þ¤«¤¤¤ÎŹ¤Î¤Á¥¿¦¿Í¤À¡£"
+ "Ìë¤Ë¤Ê¤ë¤È¤¤¤Ä¤âÂçÎ̤˰û¤ó¤Ç¤¤¤ë¡£¤È¤Æ¤â¤¸¤ã¤Ê¤¤¤¬¤Ä¤¤¤Æ¤¤¤±¤Ê¤¤¡£"))
(define (oscar-seaw knpc kpc)
- (say knpc "The sea witch is very beautiful but keeps to herself. "
- "She ignores me, of course."))
+ (say knpc "³¤¤ÎËâ½÷¤Ï¤È¤Æ¤â¤¤ì¤¤¤À¤¬¡¢¿Í¤òÈò¤±¤Æ¤¤¤ë¡£"
+ "Èà½÷¤Ï»ä¤ò̵»ë¤·¤Æ¤¤¤ë¡£ÅöÁ³¤À¡£"))
(define (oscar-henr knpc kpc)
- (say knpc "There's a real sailor. I'll never be like him."))
+ (say knpc "ËÜʪ¤ÎÁ¥¾è¤ê¤À¡£¤¢¤¤¤Ä¤Î¤è¤¦¤Ë¤ÏÀäÂФʤì¤Ê¤¤¡£"))
(define oscar-conv
(ifc basic-conv
(method 'bart oscar-bart)
(method 'sea oscar-seaw)
(method 'witc oscar-seaw)
+ (method 'lia oscar-seaw)
))
(define (mk-oscar)
(bind
(kern-mk-char 'ch_oscar ; tag
- "Oscar" ; name
+ "¥ª¥¹¥«¡¼" ; name
sp_human ; species
nil ; occ
s_townsman ; sprite
;;----------------------------------------------------------------------------
;; NPC PARTY TYPES
(define forest-goblin-party-l1
- (ptype-mk "goblin stalker" s_fgob_stalker faction-forest-goblin 1 2
+ (ptype-mk "¥´¥Ö¥ê¥ó¤ÎÄÉ·â¼Ô" s_fgob_stalker faction-forest-goblin 1 2
(pgroup-mk 'forest-goblin-stalker "1")
))
(define forest-goblin-party-l2
- (ptype-mk "goblin scouting party" s_fgob_archer faction-forest-goblin 2 2
+ (ptype-mk "¥´¥Ö¥ê¥ó¤ÎÄ廡Ââ" s_fgob_archer faction-forest-goblin 2 2
(pgroup-mk 'forest-goblin-stalker "1")
(pgroup-mk 'forest-goblin-hunter "1")
))
(define forest-goblin-party-l3
- (ptype-mk "goblin hunting party" s_fgob_archer faction-forest-goblin 3 2
+ (ptype-mk "¥´¥Ö¥ê¥ó¤Î¼íÎÄÂâ" s_fgob_archer faction-forest-goblin 3 2
(pgroup-mk 'forest-goblin-stalker "1d2")
(pgroup-mk 'forest-goblin-hunter "1d2")
(pgroup-mk 'wolf "1d2")
))
(define forest-goblin-party-l4
- (ptype-mk "goblin tribe" s_fgob_civilian faction-forest-goblin 4 2
+ (ptype-mk "¥´¥Ö¥ê¥ó¤Î°ì²" s_fgob_civilian faction-forest-goblin 4 2
(pgroup-mk 'forest-goblin-stalker "1d2")
(pgroup-mk 'forest-goblin-hunter "1d2")
(pgroup-mk 'wolf "1d2")
(pgroup-mk 'forest-goblin-shaman "1")
))
(define bandit-party-l1
- (ptype-mk "gang of footpads" s_brigand faction-outlaw 1 4
+ (ptype-mk "Äɤ¤¤Ï¤®¤Î½¸ÃÄ" s_brigand faction-outlaw 1 4
(pgroup-mk 'footpad "1d2")
))
(define bandit-party-l2
- (ptype-mk "gang of bandits" s_brigand faction-outlaw 2 4
+ (ptype-mk "Åð±ÃÄ" s_brigand faction-outlaw 2 4
(pgroup-mk 'bandit "1d2")
))
(define bandit-party-l3
- (ptype-mk "a gang of highwaymen" s_brigand faction-outlaw 3 4
+ (ptype-mk "ÌîÅð¤Î½¸ÃÄ" s_brigand faction-outlaw 3 4
(pgroup-mk 'highwayman "1d2")
))
(define bandit-party-l4
- (ptype-mk "a gang of blackguards" s_brigand faction-outlaw 4 4
+ (ptype-mk "¤´¤í¤Ä¤¤Î½¸ÃÄ" s_brigand faction-outlaw 4 4
(pgroup-mk 'blackguard "1d2")
))
(define bandit-party-l5
- (ptype-mk "a gang of sinister blackguards" s_brigand faction-outlaw 5 4
+ (ptype-mk "¶§°¤Ê¤´¤í¤Ä¤¤Î½¸ÃÄ" s_brigand faction-outlaw 5 4
(pgroup-mk 'blackguard "1d2")
(pgroup-mk 'bomber "1d2")
))
(define pirate-party-l3
- (ptype-mk "crew of pirates" s_brigand faction-outlaw 3 5
+ (ptype-mk "³¤Â±Á¥" s_brigand faction-outlaw 3 5
(pgroup-mk 'highwayman "1d2")
))
(ptype-set-vehicle-type-tag! pirate-party-l3 't_ship)
(define pirate-party-l4
- (ptype-mk "crew of pirates" s_brigand faction-outlaw 3 5
+ (ptype-mk "³¤Â±Á¥" s_brigand faction-outlaw 3 5
(pgroup-mk 'blackguard "1d2")
))
(ptype-set-vehicle-type-tag! pirate-party-l4 't_ship)
(define troll-party-l3
- (ptype-mk "band of trolls" s_troll faction-troll 3 5
+ (ptype-mk "¥È¥í¥ë¤Î½¸ÃÄ" s_troll faction-troll 3 5
(pgroup-mk 'troll "1")
))
(define troll-party-l4
- (ptype-mk "band of trolls with goblin slaves" s_troll faction-troll 4 5
+ (ptype-mk "¥´¥Ö¥ê¥ó¤ÎÅÛÎì¤ò½¾¤¨¤¿¥È¥í¥ë¤Î½¸ÃÄ" s_troll faction-troll 4 5
(pgroup-mk 'troll "1")
(pgroup-mk 'forest-goblin-stalker "1d3-1")
))
(define green-slime-party-l2
- (ptype-mk "ooze of slimes" s_slime faction-monster 2 3
+ (ptype-mk "Ç´¶Ý¤Î²ô" s_slime faction-monster 2 3
(pgroup-mk 'green-slime "1d3")
))
(define yellow-slime-party-l3
- (ptype-mk "yellow slime colony" s_yellow_slime faction-monster 3 3
+ (ptype-mk "²«¿§¤¤Ç´¶Ý¤Î³ô" s_yellow_slime faction-monster 3 3
(pgroup-mk 'green-slime "1d3")
(pgroup-mk 'yellow-slime "1")
))
(define fire-slime-party-l4
- (ptype-mk "fire slime colony" s_red_slime faction-monster 4 3
+ (ptype-mk "±ê¤ÎÇ´¶Ý¤Î³ô" s_red_slime faction-monster 4 3
(pgroup-mk 'fire-slime "1d2")
))
(define hydra-party-l5
- (ptype-mk "hydra with slimes" s_hydra faction-monster 5 3
+ (ptype-mk "¥Ò¥É¥é¤ÈÇ´¶Ý" s_hydra faction-monster 5 3
(pgroup-mk 'green-slime "1d3")
(pgroup-mk 'yellow-slime "1d2")
(pgroup-mk 'hydra "1")
))
(define dryad-party-l3
- (ptype-mk "dryad grove" s_reaper faction-monster 3 5
+ (ptype-mk "ÌÚ¤ÎÀº" s_reaper faction-monster 3 5
(pgroup-mk 'dryad "1")
))
(define dryad-party-l4
- (ptype-mk "dryad grove with wolves" s_reaper faction-monster 4 5
+ (ptype-mk "ÌÚ¤ÎÀº¤Èϵ" s_reaper faction-monster 4 5
(pgroup-mk 'dryad "1")
(pgroup-mk 'wolf "1d3")
))
(define dryad-party-l5
- (ptype-mk "dryad grove with shamans" s_reaper faction-monster 5 5
+ (ptype-mk "ÌÚ¤ÎÀº¤È¼ö½Ñ»Õ" s_reaper faction-monster 5 5
(pgroup-mk 'dryad "1")
(pgroup-mk 'forest-goblin-shaman "1d3")
))
(define wolf-party-l1
- (ptype-mk "wolf pack" s_wolf faction-monster 2 5
+ (ptype-mk "ϵ¤Î·²¤ì" s_wolf faction-monster 2 5
(pgroup-mk 'wolf "1")
))
(define wolf-party-l2
- (ptype-mk "wolf pack" s_wolf faction-monster 2 5
+ (ptype-mk "ϵ¤Î·²¤ì" s_wolf faction-monster 2 5
(pgroup-mk 'wolf "1d3")
))
(define skeleton-party-l2
- (ptype-mk "skeleton brigade" s_skeleton faction-monster 2 5
+ (ptype-mk "³¼¹ü¤ÎιÃÄ" s_skeleton faction-monster 2 5
(pgroup-mk 'skeletal-warrior "1")
))
(define skeleton-party-l3
- (ptype-mk "skeleton brigade" s_skeleton faction-monster 3 5
+ (ptype-mk "³¼¹ü¤ÎιÃÄ" s_skeleton faction-monster 3 5
(pgroup-mk 'skeletal-warrior "1")
(pgroup-mk 'skeletal-spear-thrower "1")
))
(define skeleton-party-l4
- (ptype-mk "skeleton brigade" s_skeleton faction-monster 4 5
+ (ptype-mk "³¼¹ü¤ÎιÃÄ" s_skeleton faction-monster 4 5
(pgroup-mk 'skeletal-warrior "1d2")
(pgroup-mk 'skeletal-spear-thrower "1d3")
))
(define skeleton-pirates-l4
- (ptype-mk "crew of cursed pirates" s_skeleton faction-monster 4 5
+ (ptype-mk "Í©ÎîÁ¥" s_skeleton faction-monster 4 5
(pgroup-mk 'skeletal-warrior "1d2")
(pgroup-mk 'skeletal-spear-thrower "1d3")
))
(ptype-set-vehicle-type-tag! skeleton-pirates-l4 't_ship)
(define lich-party-l5
- (ptype-mk "lich with undead servants" s_lich faction-monster 5 5
+ (ptype-mk "¥ê¥Ã¥Á¤ÈÉÔ»à¤Î¤·¤â¤Ù" s_lich faction-monster 5 5
(pgroup-mk 'lich "1")
(pgroup-mk 'skeletal-warrior "1d2")
(pgroup-mk 'skeletal-spear-thrower "1d3")
))
(define wisp-party-l5
- (ptype-mk "swarm of wisps" s_wisp faction-none 5 5
+ (ptype-mk "¤¿¤Ê¤Ó¤¯¸÷¤Î½¸¤Þ¤ê" s_wisp faction-none 5 5
(pgroup-mk 'wisp "1d3")
))
(define ghast-party
- (ptype-mk "haunt of ghasts" s_ghost faction-monster 1 2
+ (ptype-mk "Í©Îî" s_ghost faction-monster 1 2
(pgroup-mk 'ghast "1d3")
))
(define dragon-party-l6
- (ptype-mk "lone dragon" s_dragon_party faction-monster 6 1
+ (ptype-mk "¸ÉΩ¤·¤¿Îµ" s_dragon_party faction-monster 6 1
(pgroup-mk 'dragon "1")
))
(define dragon-party-l7
- (ptype-mk "dragon with cave goblins" s_dragon_party faction-monster 7 1
+ (ptype-mk "ε¤Èƶ·¢¥´¥Ö¥ê¥ó" s_dragon_party faction-monster 7 1
(pgroup-mk 'dragon "1")
(pgroup-mk 'cave-goblin-berserker "1d2")
(pgroup-mk 'cave-goblin-slinger "1d2")
))
(define dragon-party-l8
- (ptype-mk "flock of dragons" s_dragon_party faction-monster 8 1
+ (ptype-mk "ε¤Î·²¤ì" s_dragon_party faction-monster 8 1
(pgroup-mk 'dragon "1d3")
))
(define gint-party-l4
- (ptype-mk "gint scouting party" s_gint_party faction-gint 4 5
+ (ptype-mk "µð¿Í¤ÎÄ廡¼Ô" s_gint_party faction-gint 4 5
(pgroup-mk 'gint-warrior "1")
))
(define gint-party-l5
- (ptype-mk "gint hunting party" s_gint_party faction-gint 5 5
+ (ptype-mk "µð¿Í¤Î¼íÎÄÂâ" s_gint_party faction-gint 5 5
(pgroup-mk 'gint-warrior "1")
(pgroup-mk 'cave-goblin-slinger "1d2")
(pgroup-mk 'wolf "1d2")
))
(define gint-party-l6
- (ptype-mk "gint war party" s_gint_party faction-gint 6 3
+ (ptype-mk "µð¿Í¤ÎÀïÆ®Ââ" s_gint_party faction-gint 6 3
(pgroup-mk 'gint-warrior "1d2")
(pgroup-mk 'troll "1d2")
(pgroup-mk 'cave-goblin-slinger "1d3")
))
(define kraken-party-l3
- (ptype-mk "school of kraken" s_kraken faction-monster 3 5
+ (ptype-mk "¥¯¥é¡¼¥±¥ó¤Î·²¤ì" s_kraken faction-monster 3 5
(pgroup-mk 'kraken "1d2")
))
(define sea-serpent-party-l3
- (ptype-mk "school of sea serpents" s_sea_serpent faction-monster 3 5
+ (ptype-mk "³¤¥Ø¥Ó¤Î·²¤ì" s_sea_serpent faction-monster 3 5
(pgroup-mk 'sea-serpent "1d2")
))
(define nixie-party-l2
- (ptype-mk "school of nixies" s_nixie_spear faction-monster 2 3
+ (ptype-mk "¥Ë¥¥·¡¼¤Î½¸ÃÄ" s_nixie_spear faction-monster 2 3
(pgroup-mk 'nixie-swordsman "1d2")
(pgroup-mk 'nixie-spearman "1d2-1")
))
(define nixie-party-l3
- (ptype-mk "school of nixies with kraken" s_kraken faction-monster 3 5
+ (ptype-mk "¥¯¥é¡¼¥±¥ó¤ò½¾¤¨¤¿¥Ë¥¥·¡¼¤Î½¸ÃÄ" s_kraken faction-monster 3 5
(pgroup-mk 'nixie-swordsman "1d2")
(pgroup-mk 'nixie-spearman "1d2")
(pgroup-mk 'kraken "1")
))
(define nixie-party-l4
- (ptype-mk "school of nixies with kraken" s_kraken faction-monster 3 5
+ (ptype-mk "¥¯¥é¡¼¥±¥ó¤ò½¾¤¨¤¿¥Ë¥¥·¡¼¤Î½¸ÃÄ" s_kraken faction-monster 3 5
(pgroup-mk 'nixie-swordsman "1d2")
(pgroup-mk 'nixie-spearman "1d2")
(pgroup-mk 'kraken "1")
))
(define nixie-party-l5
- (ptype-mk "school of nixies with sea serpent" s_sea_serpent faction-monster 4 5
+ (ptype-mk "³¤¥Ø¥Ó¤ò½¾¤¨¤¿¥Ë¥¥·¡¼¤Î½¸ÃÄ" s_sea_serpent faction-monster 4 5
(pgroup-mk 'nixie-swordsman "1d2")
(pgroup-mk 'nixie-spearman "1d2")
(pgroup-mk 'sea-serpent "1")
))
(define spider-party-l3
- (ptype-mk "clutch of spiders" s_spider faction-spider 3 5
+ (ptype-mk "¥¯¥â¤Î·²¤ì" s_spider faction-spider 3 5
(pgroup-mk 'giant-spider "1d2")
))
(define spider-party-l4
- (ptype-mk "clutch of spiders" s_spider faction-spider 4 5
+ (ptype-mk "¥¯¥â¤Î·²¤ì" s_spider faction-spider 4 5
(pgroup-mk 'giant-spider "1d2")
(pgroup-mk 'queen-spider "1")
))
(define headless-party-l1
- (ptype-mk "headless horror" s_headless faction-monster 1 4
+ (ptype-mk "¼ó¤Ê¤·" s_headless faction-monster 1 4
(pgroup-mk 'headless "1")))
(define headless-party-l3
- (ptype-mk "mob of headless horrors" s_headless faction-monster 3 4
+ (ptype-mk "¼ó¤Ê¤·¤Î½¸ÃÄ" s_headless faction-monster 3 4
(pgroup-mk 'headless "1d2")))
(define headless-party-l5
- (ptype-mk "warlock with headless horrors" s_wizard faction-monster 5 4
+ (ptype-mk "¼ó¤Ê¤·¤ò½¾¤¨¤¿¹õËâ½Ñ»Õ" s_wizard faction-monster 5 4
(pgroup-mk 'headless "1d2")
(pgroup-mk 'warlock "1")
))
(define accursed-party-l4
- (ptype-mk "accursed master" s_wizard faction-accursed 4 2
+ (ptype-mk "¼ö¤ï¤ì¤¿Æ³»Õ" s_wizard faction-accursed 4 2
(pgroup-mk 'accursed-master "1")
(pgroup-mk 'accursed-apprentice "1d2-1")
(pgroup-mk 'accursed-guardian "1d2")
))
(define accursed-party-l5
- (ptype-mk "accursed master" s_wizard faction-accursed 5 2
+ (ptype-mk "¼ö¤ï¤ì¤¿Æ³»Õ" s_wizard faction-accursed 5 2
(pgroup-mk 'accursed-master "1")
(pgroup-mk 'accursed-defender "1d2")
))
(define accursed-party-l6
- (ptype-mk "accursed adept" s_wizard faction-accursed 6 2
+ (ptype-mk "¼ö¤ï¤ì¤¿¾åµéƳ»Õ" s_wizard faction-accursed 6 2
(pgroup-mk 'accursed-master "1")
(pgroup-mk 'accursed-defender "1d2")
(pgroup-mk 'accursed-templar "1d2")
))
(define militia-party-l4
- (ptype-mk "squad of deserters" s_guard faction-outlaw 4 4
+ (ptype-mk "æÁöÈÉ" s_guard faction-outlaw 4 4
(pgroup-mk 'halberdier "1d2")
(pgroup-mk 'crossbowman "1d2-1")
))
(define snake-party-l1
- (ptype-mk "rave of snakes" s_snake faction-monster 1 5
+ (ptype-mk "¤¦¤Ê¤ë¼Ø¤Î·²¤ì" s_snake faction-monster 1 5
(pgroup-mk 'snake "1d2")
))
(define bat-party-l1
- (ptype-mk "cloud of bats" s_bat faction-monster 1 1
+ (ptype-mk "¥³¥¦¥â¥ê¤Î±À" s_bat faction-monster 1 1
(pgroup-mk 'bat "1d2")
))
(define rat-party-l1
- (ptype-mk "pack of rats" s_rat faction-monster 5 5
+ (ptype-mk "¥Í¥º¥ß¤Î·²¤ì" s_rat faction-monster 5 5
(pgroup-mk 'rat "1d2")
))
(define griffin-party-l3
- (ptype-mk "pride of griffins" s_griffin faction-monster 3 5
+ (ptype-mk "¥°¥ê¥Õ¥£¥ó¤Î·²¤ì" s_griffin faction-monster 3 5
(pgroup-mk 'griffin "1d2")
))
(define insect-party-l1
- (ptype-mk "cloud of insects" s_insects faction-monster 1 5
+ (ptype-mk "º«Ãî¤Î±À" s_insects faction-monster 1 5
(pgroup-mk 'insect "1d3")
))
\ No newline at end of file
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Glasdrin
+;; ¥°¥é¥¹¥É¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_patch
(list 0 0 gdp-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; An old wizard living in Glasdrin, who works as a healer.
-;; He wears an eyepatch, and is known as "Doc Patch".
+;; ¥°¥é¥¹¥É¥ê¥ó¤Ë½»¤àÏ·¿Í¤ÎËâ½Ñ»Õ¤Ç¡¢°å»Õ¤È¤·¤ÆƯ¤¤¤Æ¤¤¤ë¡£
+;; Èà¤Ï´ãÂÓ¤ò¤·¤Æ¤¤¤Æ¡¢¡Ö´ãÂÓ¤ÎÀèÀ¸¡×¤È¤·¤ÆÃΤé¤ì¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (patch-hail knpc kpc)
- (say knpc "[You meet a sprightly old wizard with an eyepatch] "
- "Hail, traveler."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï´ãÂÓ¤ò¤·¤¿¸µµ¤¤ÊËâ½Ñ»Õ¤ÎÏ·¿Í¤È²ñ¤Ã¤¿¡£¡Ï"
+ "¤³¤ó¤Ë¤Á¤Ï¡¢Î¹¤ÎÊý¡£"))
(define (patch-default knpc kpc)
- (say knpc "I can't help you with that."))
+ (say knpc "¤½¤ì¤Ï¼ê½õ¤±¤Ç¤¤Ê¤¤¤Ê¡£"))
(define (patch-name knpc kpc)
- (say knpc "People call me Doc Patch."))
+ (say knpc "¿Í¡¹¤Ï»ä¤ò´ãÂÓ¤ÎÀèÀ¸¤È¸Æ¤ó¤Ç¤¤¤ë¡£"))
(define (patch-join knpc kpc)
- (say knpc "No, my duty is here, Wanderer."))
+ (say knpc "¤¤¤¤¤ä¡£¤³¤³¤Ë¤¤¤ë¤Î¤¬»ä¤Î̳¤á¤À¡¢Ì¤¤¿Í¤è¡£"))
(define (patch-job knpc kpc)
- (say knpc "I run the hospital. Do you need healing?")
+ (say knpc "¤³¤Îɱ¡¤ÇƯ¤¤¤Æ¤¤¤ë¡£¼£ÎŤ¬É¬Íפ«¤Í¡©")
(if (kern-conv-get-yes-no? kpc)
(patch-trade knpc kpc)
- (say knpc "Well if you ever do, I can fix you up.")))
+ (say knpc "ɬÍפʤȤ¤Ë¼£ÎŤ·¤è¤¦¡£")))
(define (patch-bye knpc kpc)
- (say knpc "Keep well!"))
+ (say knpc "¤ª¤À¤¤¤¸¤Ë¡ª"))
;; Trade...
(define (patch-trade knpc kpc)
(if (trade-services knpc kpc
(list
- (svc-mk "Heal" 30 heal-service)
- (svc-mk "Cure" 30 cure-service)
- (svc-mk "Resurrect" 100 resurrect-service)))
+ (svc-mk "²óÉü" 30 heal-service)
+ (svc-mk "¼£Ìþ" 30 cure-service)
+ (svc-mk "ÁÉÀ¸" 100 resurrect-service)))
(begin
- (say knpc "What else can I do for you?")
+ (say knpc "¾¤Ë²¿¤«¤¹¤ë¤³¤È¤¬¤¢¤ë¤«¤Í¡©")
(patch-trade knpc kpc))
(begin
- (say knpc "Will there be anything else?")
+ (say knpc "¾¤Ë²¿¤«¤¢¤ë¤«¤Í¡©")
(if (kern-conv-get-yes-no? kpc)
(patch-trade knpc kpc)
- (say knpc "Very well.")))))
+ (say knpc "¤è¤í¤·¤¤¡£")))))
;; Patch...
(define (patch-patc knpc kpc)
- (say knpc "I lost my eye in Kurpolis. It's so dark there I didn't really "
- "need it. [He winks. With his good eye.]"))
+ (say knpc "¥¯¥í¥Ý¥ê¥¹¤ÇÊÒÌܤò¼º¤Ã¤¿¡£¤½¤³¤Ï¤È¤Æ¤â°Å¤¤¤Î¤ÇËÜÅö¤ÏɬÍפʤ«¤Ã¤¿¤Î¤À¡£"
+ "¡ÎÈà¤Ï¸«¤¨¤ë¤Û¤¦¤ÎÌܤò¥¦¥£¥ó¥¯¤·¤¿¡£¡Ï"))
(define (patch-kurp knpc kpc)
- (say knpc "The paladins keep an outpost in the dungeon, and "
- "I did a tour of duty down there in my youth."))
+ (say knpc "À»µ³»Î¤Ï̵ܤÎÁ°Àþ¤ò¼é¤Ã¤Æ¤¤¤ë¡£"
+ "¤½¤·¤Æ¡¢¼ã¤¤¤³¤íʼÌò¤Ë½¢¤¤¤Æ¤¤¤¿¤È¤¤Ï¡¢¤½¤³¤Ë¤¤¤¿¤Î¤À¡£"))
(define (patch-tour knpc kpc)
- (say knpc "All citizens of Glasdrin are required to serve a tour of duty. "
- "I was a medik."))
+ (say knpc "Á´¤Æ¤Î¥°¥é¥¹¥É¥ê¥ó¤Î»Ô̱¤ÏʼÌò¤ÎµÁ̳¤¬¤¢¤ë¡£"
+ "»ä¤Ï°å»Õ¤À¤Ã¤¿¡£"))
(define (patch-medi knpc kpc)
- (say knpc "A medik is a mage that specializes in healing arts. Paladin "
- "squads are all assigned a medik to support them in battle. "
- "We get some basic combat training, but I only had to use my dagger "
- "once."))
+ (say knpc "°å»Õ¤Ï¼£ÎŤε»½Ñ¤ËŤ±¤¿Ëâ½Ñ»Õ¤À¡£"
+ "Á´¤Æ¤ÎÀ»µ³»Î¤ÎÉôÂâ¤Ë¤ÏÀ襤¤ò»Ù±ç¤¹¤ë¤¿¤á°å»Õ¤¬²Ã¤ï¤Ã¤Æ¤¤¤ë¡£"
+ "ÀïÆ®¤Î´ðÁ÷±Îý¤â¼õ¤±¤ë¡£¤·¤«¤·»ä¤Ïû·õ¤ò°ìÅٻȤ俤À¤±¤À¡£"))
(define (patch-dagg knpc kpc)
- (say knpc "Yep, I carried that dagger for six months and finally got to use "
- "it... peeling potatoes for kitchen duty."))
+ (say knpc "¤½¤¦¤À¡£Ã»·õ¤òÏ»¥ö·î»ý¤ÁÊ⤡¢¤Ä¤¤¤Ë¤½¤ì¤ò»È¤Ã¤¿¡Ä¡£"
+ "¿æ»ö¤ÎÈ֤ǥ¤¥â¤ÎÈé¤òÇí¤¤¤¿¤Î¤À¡£"))
(define (patch-dung knpc kpc)
- (say knpc "Monsters breed in the deeps, and it's better to stop them there "
- "before they can get to the surface. Don't you agree?")
+ (say knpc "²øʪ¤¿¤Á¤Ï¿¼Ê¥¤ÇÀ¸¤Þ¤ì¤ë¡£Åۤ餬ÃϾå¤ËÍè¤ëÁ°¤Ë»ß¤á¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£"
+ "¤½¤¦»×¤¦¤À¤í¤¦¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "You're damned tootin'! So the paladins keep a company there "
- "to patrol the middle levels. If you ever find yourself in need "
- "of help down there, seek them out. They'll have a medik.")
- (say knpc "Harumph! I suppose you'd rather let them run amok over "
- "the countryside!")))
+ (say knpc "¤½¤ÎÄ̤ꡪ¤À¤«¤éÀ»µ³»Î¤Ï¤½¤³¤ËÉôÂâ¤òÃÖ¤¡¢Ãæ´Ö¤ò·ÙÈ÷¤·¤Æ¤¤¤ë¤Î¤À¡£"
+ "̵ܤǽõ¤±¤¬É¬ÍפʤéÈà¤é¤òõ¤·¤Ê¤µ¤¤¡£ÉôÂâ¤Ë¤Ï°å»Õ¤¬¤¤¤ë¡£")
+ (say knpc "¥´¥Û¥ó¡ªÈà¤é¤¬ÅܤêÅļˤ˵¢¤Ã¤Æ¤·¤Þ¤¦¤¾¡ª")))
(define (patch-doc knpc kpc)
- (say knpc "I'm a medik. Are you in need of healing?")
+ (say knpc "»ä¤Ï°å»Õ¤À¡£¼£ÎŤ¬É¬Íפ«¤Í¡©")
(if (kern-conv-get-yes-no? kpc)
(patch-trade knpc kpc)
- (say knpc "Ok. Come by the hospital if you ever need assistance. "
- "I know how you adventurers get torn up in fights!")))
+ (say knpc "¤è¤í¤·¤¤¡£½õ¤±¤¬É¬Íפˤʤ俤餳¤Îɱ¡¤ËÍè¤Ê¤µ¤¤¡£"
+ "·¯¤Î¤è¤¦¤ÊËÁ¸±¼Ô¤ÏÀ襤¤Ç¤É¤ì¤À¤±¥Ü¥í¥Ü¥í¤Ë¤Ê¤ë¤«¡¢»ä¤ÏÃΤäƤ¤¤ë¡ª")))
(define (patch-hosp knpc kpc)
- (say knpc "Yep. The paladins of Glasdrin are always getting in scraps. "
- "I get the odd adventurer and sick villager in, too."))
+ (say knpc "¤½¤¦¤À¡£¥°¥é¥¹¥É¥ê¥ó¤ÎÀ»µ³»Î¤Ï¾ï¤ËÀï¤Ã¤Æ¤¤¤ë¡£"
+ "ÆÍÁ³Íè¤ëËÁ¸±¼Ô¤ä¼¤Îɵ¤¤Î¼Ô¤â¿Ç¤ë¡£"))
;; Townspeople...
(define (mk-patch)
(bind
(kern-mk-char 'ch_patch ; tag
- "Patch" ; name
+ "´ãÂÓ" ; name
sp_human ; species
oc_wizard ; occ
s_companion_wizard ; sprite
(> (+ roll bonus)
(pitfall-detect-dc pfall)))
(kern-log-msg (kern-obj-get-name kchar)
- " ^c+gavoids^c- "
+ "¤Ï"
(pitfall-name pfall)
- "!")
+ "¤ò^c+g¤«¤ï¤·¤¿^c-¡ª")
)
(else
- (kern-log-msg (kern-obj-get-name kchar) " ^c+rtrips^c- "
+ (kern-log-msg (kern-obj-get-name kchar) "¤Ï"
(pitfall-name pfall)
- "!")
+ "¤Ë^c+r¤«¤«¤Ã¤¿^c-¡ª")
(kern-obj-apply-damage
kchar
"ouch"
result-lacks-skill
(let ((loc (kern-ui-target (kern-obj-get-location kchar) 1)))
(cond ((null? loc)
- (kern-log-msg "Abort!")
+ (kern-log-msg "ÃæÃÇ¡ª")
result-no-target
)
((not (terrain-ok-for-pitfall? loc))
- (kern-log-msg "Wrong terrain type!")
+ (kern-log-msg "¤³¤ÎÃÏ·Á¤Ë¤Ï¤Ç¤¤Ê¤¤¡ª")
result-not-here
)
((occupied? loc)
- (kern-log-msg "Somebody is there!")
+ (kern-log-msg "狼¤¤¤ë¡ª")
result-not-here
)
(else
#f)
((not (check-roll (pitfall-use-dc pfall)
(occ-thief-dice-roll kchar)))
- (kern-log-msg "^c+rOOPS...^c- "
- (kern-obj-get-name kchar)
- " fumbles "
- (pitfall-name pfall) "!")
+ (kern-log-msg "^c+r¤ª¤ª¤Ã¤È¡Ä^c- "
+ (kern-obj-get-name kchar)
+ "¤Ï"
+ (pitfall-name pfall) "¤Ë¼ºÇÔ¤·¤¿¡ª")
(kpitfall-step-handler kobj kchar)
result-failed
)
(else
(kern-log-msg (kern-obj-get-name kchar)
- " plants "
+ "¤Ï"
(pitfall-name pfall)
- "!")
+ "¤ò»Å³Ý¤±¤¿¡ª")
(kern-obj-put-at kobj loc)
(kern-obj-remove-from-inventory kchar ktype 1)
(pitfall-set-known-to-npc! pfall #f)
(kern-mk-sprite 's_caltrops ss_pitfalls 1 0 #f 0)
(kern-mk-sprite 's_beartrap ss_pitfalls 1 1 #f 0)
-(mk-obj-type 't_caltrops "caltrops" s_caltrops layer-mechanism ktrap-ifc)
-(mk-obj-type 't_beartrap "beartrap" s_beartrap layer-mechanism ktrap-ifc)
+(mk-obj-type 't_caltrops "Ŵɩ" s_caltrops layer-mechanism ktrap-ifc)
+(mk-obj-type 't_beartrap "¥È¥é¥Ð¥µ¥ß" s_beartrap layer-mechanism ktrap-ifc)
(define (mk-caltrops)
(let ((kobj (kern-mk-obj t_caltrops 1)))
(kern-obj-add-effect kobj ef_permanent_invisibility nil)
- (bind kobj (mk-pitfall "a caltrops" 18 "1d10" dc-easy))))
+ (bind kobj (mk-pitfall "Ŵɩ" 18 "1d10" dc-easy))))
(define (mk-beartrap)
(let ((kobj (kern-mk-obj t_beartrap 1)))
(kern-obj-add-effect kobj ef_permanent_invisibility nil)
- (bind kobj (mk-pitfall "a beartrap" 16 "2d10" dc-challenging))))
+ (bind kobj (mk-pitfall "¥È¥é¥Ð¥µ¥ß" 16 "2d10" dc-challenging))))
;;----------------------------------------------------------------------------
(kern-mk-place
'p_poor_house ; tag
- "The Poor House" ; name
+ "µßÉϱ¡" ; name
s_hamlet ; sprite
m_poor_house ; map
#f ; wraps
;; relocates the stepper.
(define (prompt-portal-step kportal kstepper)
(kern-print "\n")
- (kern-print "Are you SURE you want to step there?\n")
+ (kern-print "¤½¤³¤ËƧ¤ß¹þ¤ß¤¿¤¤¤«¡©\n")
(if (kern-conv-get-yes-no? kstepper)
(begin
(kern-print "\n")
(kern-print "\n")
- (kern-print "Are you REALLY REALLY SURE?\n")
+ (kern-print "ËÜÅö¤ËËÜÅö¤Ë¤½¤¦¤Ê¤Î¤«¡©\n")
(if (kern-conv-get-yes-no? kstepper)
(begin
(kern-print "\n")
(kern-print "\n")
(kern-print "\n")
- (kern-print "Ok... you asked for it!\n")
+ (kern-print "¤ï¤«¤Ã¤¿¡Ä¤Ç¤Ï¤½¤¦¤·¤è¤¦¡ª\n")
(portal-step kportal kstepper))
- (kern-print "Wise move.\n")))
- (kern-print "Make up your mind.\n")))
+ (kern-print "¸¤¤ÁªÂò¤À¡£\n")))
+ (kern-print "·è¿´¤»¤è¡£\n")))
(define portal-ifc
;; "mechanisms" layer. These object "types" specify a name/label, sprite,
;; and a portal "interface" behavior. Instances are created by "portal
;; constructor" functions such as those below.
-(mk-obj-type 't_ladder_down "ladder leading down" s_ladder_down layer-mechanism portal-ifc)
-(mk-obj-type 't_ladder_up "ladder leading up" s_ladder_up layer-mechanism portal-ifc)
-(mk-obj-type 't_trap_door "trap door" '() layer-mechanism auto-portal-ifc)
+(mk-obj-type 't_ladder_down "²¼¤ê¤Î¤Ï¤·¤´" s_ladder_down layer-mechanism portal-ifc)
+(mk-obj-type 't_ladder_up "¾å¤ê¤Î¤Ï¤·¤´" s_ladder_up layer-mechanism portal-ifc)
+(mk-obj-type 't_trap_door "Íî¤È¤·¸Í" '() layer-mechanism auto-portal-ifc)
(mk-obj-type 't_bump_door nil '() layer-mechanism bump-portal-ifc)
-(mk-obj-type 't_teleporter "teleporter" s_floor_plate layer-mechanism prompting-auto-portal-ifc)
-(mk-obj-type 't_dungeon "dungeon" s_dungeon layer-mechanism auto-portal-ifc)
-(mk-obj-type 't_ship_relic "ship relic" s_ship layer-mechanism auto-portal-ifc)
+(mk-obj-type 't_teleporter "½Ö´Ö°ÜÆ°ÁõÃÖ" s_floor_plate layer-mechanism prompting-auto-portal-ifc)
+(mk-obj-type 't_dungeon "̵Ü" s_dungeon layer-mechanism auto-portal-ifc)
+(mk-obj-type 't_ship_relic "Á¥¤Î»Ä³¼" s_ship layer-mechanism auto-portal-ifc)
;; mk-portal -- generic helper constructor
(define (mk-portal type place-tag x y)
(ifc '()
(method 'step thief-door-step)))
-(mk-obj-type 't_thief_door "strange mark" s_O layer-mechanism thief-door-ifc)
+(mk-obj-type 't_thief_door "´ñ̯¤Ê¤·¤ë¤·" s_O layer-mechanism thief-door-ifc)
(define (mk-thief-door place-tag x y)
(make-invisible (mk-portal t_thief_door place-tag x y)))
;;----------------------------------------------------------------------------
;; Secret Path -- visible only when Reveal is in effect
;;----------------------------------------------------------------------------
-(mk-obj-type 't_secret_path "secret path" s_cobblestone layer-none nil)
+(mk-obj-type 't_secret_path "±£¤·ÄÌÏ©" s_cobblestone layer-none nil)
(define (mk-secret-path)
(make-invisible (kern-mk-obj t_secret_path 1)))
#t ;; rm-on-correct
#t ;; rm-on-wrong
))
-(define (riddle-ans riddle) (car riddle))
+;(define (riddle-ans riddle) (car riddle))
+(define (riddle-ans riddle) (list-ref riddle 0))
(define (riddle-terrain riddle) (eval (cadr riddle)))
(define (riddle-x riddle) (caddr riddle))
(define (riddle-y riddle) (list-ref riddle 3))
(define (riddle-step kmech kchar)
(if (is-player-party-member? kchar)
(let ((riddle (kobj-gob-data kmech)))
- (kern-log-msg "*** STENTORIAN VOICE ***")
+ (kern-log-msg "*** ´ñ̯¤ÊÀ¼¤¬Ê¹¤³¤¨¤¿ ***")
(apply kern-log-msg (riddle-msg riddle))
- (let ((guess (kern-conv-get-reply kchar)))
- (cond ((eq? guess (riddle-ans riddle))
- (kern-log-msg "YOU MAY PASS")
+ (let ((guess (kern-conv-get-string kchar)))
+ (cond ((string=? guess (riddle-ans riddle))
+ (kern-log-msg "Ä̤뤬¤è¤¤¡£")
(if (riddle-pos? riddle)
(riddle-trigger riddle kmech))
(if (riddle-rm-on-correct? riddle)
(kern-obj-remove kmech))
)
(else
- (kern-log-msg "WRONG!")
+ (kern-log-msg "ÈÝ¡ª")
(if (not (riddle-pos? riddle))
(riddle-trigger riddle kmech))
(if (riddle-rm-on-wrong? riddle)
(define (mk-riddle ans ter-tag x y w h pos? . msg)
(bind (kern-mk-obj t_step_riddle 1)
(riddle-mk ans ter-tag x y w h pos? msg)))
-
(state-mk 's_portcullis_down #f pclass-bars 0)))
(define (kportcullis-manual kobj khandler)
- (kern-log-msg "Portcullis won't budge!"))
+ (kern-log-msg "³Ê»Ò¸Í¤ÏÆ°¤«¤Ê¤«¤Ã¤¿¡ª"))
(define portcullis-ifc
(ifc bim-ifc
))
;; Make a kernel portcullis type
-(mk-obj-type 't_portcullis "portcullis" nil layer-mechanism portcullis-ifc)
+(mk-obj-type 't_portcullis "³Ê»Ò¸Í" nil layer-mechanism portcullis-ifc)
;; Define a constructor
(define (mk-connected-portcullis dest-tag)
(mk-usable-clingy-item tag name sprite norm drink-proc wants-it?))
;; healing (red) potion
-(mk-clingy-potion 't_heal_potion "healing potion" s_healing_potion
+(mk-clingy-potion 't_heal_potion "ÂÎÎϲóÉü¤ÎÌô" s_healing_potion
(lambda (kpotion kuser)
(kern-obj-heal kuser (kern-dice-roll "2d10"))
result-ok)
wants-healing?)
;; mana (blue) potion
-(mk-clingy-potion 't_mana_potion "mana potion" s_mana_potion
+(mk-clingy-potion 't_mana_potion "ËâÎϤÎÌô" s_mana_potion
(lambda (kpotion kuser)
(kern-char-dec-mana kuser (- 0 (kern-dice-roll "1d8+2")))
result-ok)
wants-mana?)
;; cure (green) potion
-(mk-potion 't_cure_potion "cure potion" s_cure_potion
+(mk-potion 't_cure_potion "¼£Ìþ¤ÎÌô" s_cure_potion
(lambda (kpotion kuser)
(kern-obj-remove-effect kuser ef_poison)
result-ok))
-(mk-potion 't_xp_potion "potion of gain level" s_cure_potion
+(mk-potion 't_xp_potion "¥ì¥Ù¥ë¾å¾º¤ÎÌô" s_cure_potion
(lambda (kpotion kuser)
(kern-char-add-experience kuser 500)
result-ok))
(define (potion-gain-stats kuser current-stat stat-name stat-setter)
(println "cur:" current-stat)
(cond ((< current-stat 20)
- (kern-log-msg (kern-obj-get-name kuser) " gains " stat-name "!")
+ (kern-log-msg (kern-obj-get-name kuser) "¤Ï" stat-name "¤òÆÀ¤¿¡ª")
(stat-setter kuser (+ current-stat (kern-dice-roll "1d3+1")))
result-ok)
((< current-stat 25)
- (kern-log-msg (kern-obj-get-name kuser) " gains a little " stat-name "!")
+ (kern-log-msg (kern-obj-get-name kuser) "¤Ï¾¯¤·¤Î" stat-name "¤òÆÀ¤¿¡ª")
(stat-setter kuser (+ current-stat (kern-dice-roll "1d3")))
result-ok)
((< current-stat 35)
(let ((droll (kern-dice-roll "1d2-1")))
(println "droll:" droll)
(cond ((> droll 0)
- (kern-log-msg (kern-obj-get-name kuser) " already has a lot of " stat-name ", but gets a wee bit more.")
+ (kern-log-msg (kern-obj-get-name kuser) "¤Ë¤Ï¤¹¤Ç¤Ë¿¤¯¤Î" stat-name "¤¬¤¢¤ë¤¬¡¢¤ï¤º¤«¤ËÆÀ¤é¤ì¤¿¡£")
(stat-setter kuser (+ current-stat 1))
result-ok)
(else
- (kern-log-msg (kern-obj-get-name kuser) " already has a lot of " stat-name " and now just feels a little sick.")
+ (kern-log-msg (kern-obj-get-name kuser) "¤Ë¤Ï¤¹¤Ç¤Ë¿¤¯¤Î" stat-name "¤¬¤¢¤ê¡¢º£¤Ï¾¯¤·µ¤Ê¬¤¬°¤¯¤Ê¤Ã¤¿¡£")
result-no-effect))))
(else
- (kern-log-msg (kern-obj-get-name kuser) " has too much " stat-name " and has become such an arrogant bore that potions have no more effect.")
+ (kern-log-msg (kern-obj-get-name kuser) "¤Ë¤Ï¤¢¤Þ¤ê¤Ë¿¤¯¤Î" stat-name "¤¬¤¢¤êºÂç¤ÇÂà¶þ¤Ê¼Ô¤Ê¤Î¤ÇÌô¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£")
result-no-effect)))
-(mk-potion 't_str_potion "potion of strength" s_round_bubbly_yellow
+(mk-potion 't_str_potion "ÏÓÎϤÎÌô" s_round_bubbly_yellow
(lambda (kpotion kuser)
(potion-gain-stats kuser (kern-char-get-base-strength kuser)
- "strength" kern-char-set-strength)))
+ "ÏÓÎÏ" kern-char-set-strength)))
-(mk-potion 't_dex_potion "potion of dexterity" s_round_bubbly_purple
+(mk-potion 't_dex_potion "ÉÒ¾¹¤ÎÌô" s_round_bubbly_purple
(lambda (kpotion kuser)
(potion-gain-stats kuser (kern-char-get-base-dexterity kuser)
- "dexterity" kern-char-set-dexterity)))
+ "ÉÒ¾¹À" kern-char-set-dexterity)))
-(mk-potion 't_int_potion "potion of intelligence" s_round_bubbly_lblue
+(mk-potion 't_int_potion "ÃÎǽ¤ÎÌô" s_round_bubbly_lblue
(lambda (kpotion kuser)
(potion-gain-stats kuser (kern-char-get-base-intelligence kuser)
- "intelligence" kern-char-set-intelligence)))
+ "ÃÎǽ" kern-char-set-intelligence)))
-(mk-potion 't_info_potion "potion of enlightenment" s_mana_potion
+(mk-potion 't_info_potion "·¼ÌؤÎÌô" s_mana_potion
(lambda (kpotion kuser)
- (kern-log-msg "Information about " (kern-obj-get-name kuser))
- (kern-log-msg "Thief skill: " (number->string (occ-ability-thief kuser)))
- (kern-log-msg "Offensive magic: " (number->string (occ-ability-blackmagic kuser)))
- (kern-log-msg "Utility magic: " (number->string (occ-ability-whitemagic kuser)))
- (kern-log-msg "Magic resistance: " (number->string (occ-ability-magicdef kuser)))
- (kern-log-msg "Combat strength: " (number->string (occ-ability-strattack kuser)))
- (kern-log-msg "Combat dexterity: " (number->string (occ-ability-dexattack kuser)))
- (kern-log-msg "Avoidance: " (number->string (occ-ability-dexdefend kuser)))
+ (kern-log-msg (kern-obj-get-name kuser) "¤ÎǽÎÏ")
+ (kern-log-msg "Åð±¤ÎǽÎÏ: " (number->string (occ-ability-thief kuser)))
+ (kern-log-msg "¹õËâË¡: " (number->string (occ-ability-blackmagic kuser)))
+ (kern-log-msg "ÇòËâË¡: " (number->string (occ-ability-whitemagic kuser)))
+ (kern-log-msg "ËâË¡¤ËÂФ¹¤ëÄñ¹³ÎÏ: " (number->string (occ-ability-magicdef kuser)))
+ (kern-log-msg "ÀïÆ®¤Ë¤ª¤±¤ëÏÓÎÏ: " (number->string (occ-ability-strattack kuser)))
+ (kern-log-msg "ÀïÆ®¤Ë¤ª¤±¤ëÉÒ¾¹À: " (number->string (occ-ability-dexattack kuser)))
+ (kern-log-msg "²óÈò: " (number->string (occ-ability-dexdefend kuser)))
result-ok))
;; posion immunity (bubbly yellow) potion
-(mk-potion 't_poison_immunity_potion "immunity potion" s_immunity_potion
+(mk-potion 't_poison_immunity_potion "Ìȱ֤ÎÌô" s_immunity_potion
(lambda (kpotion kuser)
(kern-obj-add-effect kuser ef_temporary_poison_immunity nil)
result-ok))
;; invisibility (black) potion
-(mk-potion 't_invisibility_potion "invisibility potion" s_invisibility_potion
+(mk-potion 't_invisibility_potion "ÉԲĻë¤ÎÌô" s_invisibility_potion
(lambda (kpotion kuser)
(kern-obj-add-effect kuser ef_invisibility nil)
result-ok))
;; FIXME: the following "blood" potions need to do stuff
-(mk-potion 't_dragons_blood "dragon's blood" s_red_bubbly_potion
+(mk-potion 't_dragons_blood "ε¤Î·ì" s_red_bubbly_potion
(lambda (kpotion kuser)
(kern-obj-add-effect kuser ef_temporary_fire_immunity nil)
result-ok))
;; hydra's blood -- turn arrows into poisoned arrows?
-(mk-potion 't_hydras_blood "hydra's blood" s_green_bubbly_potion
+(mk-potion 't_hydras_blood "¥Ò¥É¥é¤Î·ì" s_green_bubbly_potion
(lambda (kpotion kuser)
(kern-obj-add-effect kuser ef_temporary_grow_head nil)
result-ok))
;; lich's blood -- turn arrows into diseased arrows?
-(mk-potion 't_lichs_blood "lich's blood" s_yellow_bubbly_potion
+(mk-potion 't_lichs_blood "¥ê¥Ã¥Á¤Î·ì" s_yellow_bubbly_potion
(lambda (kpotion kuser)
(kern-obj-add-effect kuser ef_temporary_disease_immunity nil)
(kern-obj-add-effect kuser ef_temporary_poison_immunity nil)
(define (powers-blink caster ktarg power)
(if (kern-place-is-passable ktarg caster)
(kern-obj-relocate caster ktarg nil)
- (kern-log-msg "Blink Failed: Impassable terrain")
+ (kern-log-msg "°ÜÆ°¤Ç¤¤Ê¤¤¡§ÉÔ²Äǽ¤ÊÃÏ·Á")
)
result-ok)
(define (powers-blink-party caster ktarg power)
(if (kern-place-is-passable ktarg (kern-char-get-party caster))
(kern-obj-relocate (kern-char-get-party caster) ktarg nil)
- (kern-log-msg "Blink Failed: Impassable terrain")
+ (kern-log-msg "°ÜÆ°¤Ç¤¤Ê¤¤¡§ÉÔ²Äǽ¤ÊÃÏ·Á")
)
result-ok)
(define (powers-charm caster target power)
(cond
((has-charm-immunity? target)
- (msg-log-visible (kern-obj-get-location target) (kern-obj-get-name target) " immune to charm")
+ (msg-log-visible (kern-obj-get-location target) (kern-obj-get-name target) "¤Ï̥λ¤Ø¤ÎÂÑÀ¤¬¤¢¤ë¡£")
)
((contest-of-skill
(+ power 1)
ef_charm
(charm-mk (kern-being-get-current-faction caster)))
(kern-map-flash-sprite s_heart (loc-x tloc) (loc-y tloc))
- (msg-log-visible tloc (kern-obj-get-name target) " is charmed")
+ (msg-log-visible tloc (kern-obj-get-name target) "¤Ï̥뤵¤ì¤¿¡£")
)
)
(else
- (msg-log-visible (kern-obj-get-location target) (kern-obj-get-name target) " resists charm")
+ (msg-log-visible (kern-obj-get-location target) (kern-obj-get-name target) "¤Ï̥λ¤ËÄñ¹³¤·¤¿¡£")
(kern-harm-relations target caster)
)
)
;; use it against outlaws, cave goblins, etc.
(define (powers-beastly-illusion caster target power)
(cond ((has-charm-immunity? target)
- (msg-log-visible (kern-obj-get-location target) (kern-obj-get-name target) " resists illusion")
+ (msg-log-visible (kern-obj-get-location target) (kern-obj-get-name target) "¤Ï¸¸³Ð¤ËÄñ¹³¤·¤¿¡£")
)
((contest-of-skill (+ power 1) (occ-ability-magicdef target))
(let ((tloc (kern-obj-get-location target)))
(kern-obj-add-effect target ef_charm (charm-mk faction-monster))
(kern-map-flash-sprite s_heart (loc-x tloc) (loc-y tloc))
- (msg-log-visible tloc (kern-obj-get-name target) " is deluded")
+ (msg-log-visible tloc (kern-obj-get-name target) "¤Ï¸¸³Ð¤ËÊá¤é¤ï¤ì¤¿¡£")
))
- (else (msg-log-visible (kern-obj-get-location target) (kern-obj-get-name target) " resists illusion"))
+ (else (msg-log-visible (kern-obj-get-location target) (kern-obj-get-name target) "¤Ï¸¸³Ð¤ËÄñ¹³¤·¤¿¡£"))
)
(kern-harm-relations target caster)
result-ok
(let ((traps (ifccall ktarg 'get-traps)))
(cond ((null? traps)
(kern-log-msg (kern-obj-get-name caster)
- " does not detect any traps")
+ "¤Ï櫤ò¸«¤Ä¤±¤é¤ì¤Ê¤«¤Ã¤¿¡£")
)
(else
(map (lambda (trap)
(trap-set-detected! trap #t)
(kern-log-msg (kern-obj-get-name caster)
- " detects a " (trap-name trap) " trap!")
+ "¤Ï" (trap-name trap) "¤Î櫤ò¸«¤Ä¤±¤¿¡ª")
)
traps)
)))
;again, a bit of range for powerful users?
(define (powers-dispel-field caster ktarg power)
- (kern-print "Dispelled field!\n")
+ (kern-print "¾ì¤ÎËâË¡¤ò²ò¤¤¤¿¡ª\n")
(kern-obj-remove ktarg)
(kern-map-repaint)
result-ok)
result-no-effect
)
((not (handles? ktarg 'rm-traps))
- (kern-log-msg "Traps can't be removed!")
+ (kern-log-msg "¤³¤Î櫤ϳ°¤»¤Ê¤¤¡ª")
result-no-effect
)
(else
(> (+ roll bonus) dc)
)
;; Success - disarm the trap
- (kern-log-msg (kern-obj-get-name kchar) " ^c+gdisarms^c- a " (trap-name trap) " trap!")
+ (kern-log-msg (kern-obj-get-name kchar) "¤Ï" (trap-name trap) "¤Î櫤ò^c+g³°¤·¤¿^c-¡ª")
(trap-set-tripped! trap #t)
result-ok
)
;todo limit range?
(define (powers-fear caster unused power)
(define (repel kchar)
- (msg-log-visible (kern-obj-get-location kchar) (kern-obj-get-name kchar) " flees in terror!")
+ (msg-log-visible (kern-obj-get-location kchar) (kern-obj-get-name kchar) "¤Ï¶²ÉݤÇƨÁö¤·¤¿¡ª")
(kern-map-flash-sprite s_magicflash (loc-x tloc) (loc-y tloc))
(kern-char-set-fleeing kchar #t)
)
(define (fire-damage kobj)
(if (kern-obj-is-char? kobj)
(begin
- (kern-log-msg "Burning!")
+ (kern-log-msg "±ê¤ËÊñ¤Þ¤ì¤¿¡ª")
(if (not (has-fire-immunity? kobj))
(kern-obj-inflict-damage kobj "burning" (kern-dice-roll damdf) caster)
(if (not (null? damdi))
)
(if (null? targchar)
(kern-log-msg (kern-obj-get-name caster)
- " hurls a fireball")
+ "¤Ï²Ð¤Î¶Ì¤òÊü¤Ã¤¿¡£")
(kern-log-msg (kern-obj-get-name caster)
- " hurls a fireball at "
- (kern-obj-get-name targchar)))
+ "¤Ï"
+ (kern-obj-get-name targchar) "¤Ë²Ð¤Î¶Ì¤òÊü¤Ã¤¿¡£"))
(temp-ifc-set
(lambda (kmissile kuser ktarget kplace x y)
(do-fireball-effect kplace x y)
;todo should the messages be in the ui part?
(define (powers-great-heal kchar ktarg power)
(kern-log-msg (kern-obj-get-name kchar)
- " casts a great healing spell on "
+ "¤ÏÂç²óÉü¤Î¼öʸ¤ò"
(if (eqv? kchar ktarg)
- "self"
- (kern-obj-get-name ktarg)))
+ "¼«Ê¬"
+ (kern-obj-get-name ktarg))
+ "¤Ë¤«¤±¤¿¡£")
(kern-obj-heal ktarg
(+ 10 power (kern-dice-roll "2d20")
(kern-dice-roll (mkdice 4 power))))
;todo should the messages be in the ui part?
(define (powers-heal kchar ktarg power)
(kern-log-msg (kern-obj-get-name kchar)
- " casts a healing spell on "
+ "¤Ï²óÉü¤Î¼öʸ¤ò"
(if (eqv? kchar ktarg)
- "self"
- (kern-obj-get-name ktarg)))
+ "¼«Ê¬"
+ (kern-obj-get-name ktarg))
+ "¤Ë¤«¤±¤¿¡£")
(kern-obj-heal ktarg
(+ 2 (kern-dice-roll "1d10")
(kern-dice-roll (mkdice 2 power))))
;todo hack in something for xp & hostility
(define (powers-kill kchar ktarg)
(kern-log-msg (kern-obj-get-name kchar)
- " casts kill at "
- (kern-obj-get-name ktarg))
+ "¤Ï"
+ (kern-obj-get-name ktarg)
+ "¤Ë»à¤Î¼öʸ¤ò¤«¤±¤¿¡£")
(kern-sound-play-at sound-missile (kern-obj-get-location kchar))
(kern-sound-play-at sound-missile (kern-obj-get-location ktarg))
(cast-missile-proc kchar ktarg t_deathball)
(if (not (null? (car targets)))
(map
(lambda (zappee)
- (kern-log-msg (kern-obj-get-name zappee) " shocked!")
+ (kern-log-msg (kern-obj-get-name zappee) "¤Ï´¶ÅŤ·¤¿¡ª")
(kern-obj-inflict-damage zappee "shocked" (kern-dice-roll dam) caster)
)
(car targets)
(define (powers-locate caster ktarg power)
(let ((loc (kern-obj-get-location caster)))
- (kern-log-msg "You are in " (kern-place-get-name (car loc))
- " at [x=" (cadr loc) " y=" (caddr loc) "]"))
+ (kern-log-msg "¤¢¤Ê¤¿¤Ï" (kern-place-get-name (car loc))
+ "[x=" (cadr loc) " y=" (caddr loc) "]¤Ë¤¤¤ë¡£"))
result-ok)
(define (powers-magic-missile-range power)
(kern-sound-play-at sound-missile (kern-obj-get-location kchar))
(kern-sound-play-at sound-missile (kern-obj-get-location ktarg))
(kern-log-msg (kern-obj-get-name kchar)
- " fires magic missile at "
- (kern-obj-get-name ktarg))
+ "¤Ï"
+ (kern-obj-get-name ktarg)
+ "¤ËËâË¡¤ÎÌð¤òÊü¤Ã¤¿¡£")
(if (cast-missile-proc kchar ktarg t_magicarrow_p)
(let* (
(apower
power
(occ-ability-dexdefend ktarg))
(apply-poison ktarg)
- (kern-log-msg (kern-obj-get-name ktarg) " avoids poison!")
+ (kern-log-msg (kern-obj-get-name ktarg) "¤ÏÆǤòƨ¤ì¤¿¡ª")
)))
)
)
(temp-ifc-set do-poison-effect)
(kern-log-msg (kern-obj-get-name caster)
- " hurls poison missile at "
- (kern-obj-get-name ktarg))
+ "¤Ï"
+ (kern-obj-get-name ktarg)
+ "¤ËÆǤòÍá¤Ó¤»¤¿¡£")
(kern-harm-relations ktarg caster)
(kern-harm-relations ktarg caster)
(kern-harm-relations ktarg caster)
(define (powers-sleep-apply target power)
(if (contest-of-skill power (occ-ability-magicdef target))
(begin
- (msg-log-visible (kern-obj-get-location target) (kern-obj-get-name target) " slept")
+ (msg-log-visible (kern-obj-get-location target) (kern-obj-get-name target) "¤Ï̲¤Ã¤¿¡£")
(apply-sleep target))
(begin
- (msg-log-visible (kern-obj-get-location target) (kern-obj-get-name target) " resists sleep"))
+ (msg-log-visible (kern-obj-get-location target) (kern-obj-get-name target) "¤Ï̲¤ê¤ËÄñ¹³¤·¤¿¡£"))
))
(define (powers-sleep-target caster ktarg power)
(occ-ability-magicdef kchar))
(let ((tloc (kern-obj-get-location kchar)))
(kern-map-flash-sprite s_magicflash (loc-x tloc) (loc-y tloc))
- (msg-log-visible tloc (kern-obj-get-name kchar) " turned")
+ (msg-log-visible tloc (kern-obj-get-name kchar) "¤ÏÅڤ˵¢¤Ã¤¿¡£")
(kern-char-set-fleeing kchar #t)
)
(begin
- (msg-log-visible (kern-obj-get-location kchar) (kern-obj-get-name kchar) " resists")
+ (msg-log-visible (kern-obj-get-location kchar) (kern-obj-get-name kchar) "¤ÏÄñ¹³¤·¤¿¡£")
)
)
)
(kern-map-center-camera (kern-obj-get-location caster))
(kern-map-set-peering #t)
(kern-map-repaint)
- (kern-print "Hit a key when done gazing...\n")
+ (kern-print "¤è¤¯¸«¤¿¤é¥¡¼¤ò²¡¤»¡Ä\n")
(ui-waitkey)
(kern-map-set-peering #f)
(kern-map-repaint)
(let ((targchar (get-being-at target)))
(if (null? targchar)
(kern-log-msg (kern-obj-get-name caster)
- " hurls a web")
+ "¤ÏÌÖ¤òÊü¤Ã¤¿¡£")
(kern-log-msg (kern-obj-get-name caster)
- " hurls a web at "
- (kern-obj-get-name targchar)))
+ "¤Ï"
+ (kern-obj-get-name targchar) "¤ËÌÖ¤òÊü¤Ã¤¿¡£"))
(temp-ifc-set
(lambda (kmissile kplace x y)
(do-web-effect kplace x y)
;; special case: when jumping 1 (or fewer tiles) use normal movement mode
(define (jump-one)
(cond ((not (kern-place-move-is-passable? cloc ktarg caster))
- (kern-log-msg "Jump failed: blocked!")
+ (kern-log-msg "Ä·¤Ù¤Ê¤¤¡§Ë¸³²¤µ¤ì¤¿¡ª")
result-no-effect)
(else
(kern-obj-relocate caster ktarg nil)
result-ok)))
(cond ((not (kern-place-is-passable ktarg caster))
- (kern-log-msg "Jump Failed: Impassable terrain")
+ (kern-log-msg "Ä·¤Ù¤Ê¤¤¡§ÉÔ²Äǽ¤ÊÃÏ·Á")
result-no-effect)
(else
(let* ((vect (loc-diff cloc ktarg))
(+ (cdr vtt) (loc-y cloc)))
caster))))
#f vttjo)
- (kern-log-msg "Jump failed: blocked!")
+ (kern-log-msg "Ä·¤Ù¤Ê¤¤¡§Ë¸³²¤µ¤ì¤¿¡ª")
result-no-effect)
(else
(kern-obj-relocate caster ktarg nil)
(let ((loc (loc-mk kplace (car xy) (cdr xy))))
(cond ((or (not (passable? loc caster))
(occupied? loc))
- (println loc " impassable")
+ (println loc " Ä̤ì¤Ê¤¤")
#f
)
((not (kern-char-is-dead? caster))
(kern-obj-set-mmode caster mmode-wriggle)
(cond ((not (kern-place-move-is-passable? (kern-obj-get-location caster)
ktarg caster))
- (kern-log-msg "Wriggle failed: blocked!")
+ (kern-log-msg "Ç礤²ó¤ì¤Ê¤¤¡§Ë¸³²¤µ¤ì¤¿¡ª")
(kern-obj-set-mmode caster nil)
result-not-here)
(else
(kern-obj-relocate caster ktarg nil)
(kern-obj-set-mmode caster nil)
(cond ((passable? (kern-obj-get-location caster) caster)
- (kern-log-msg "(Was that really necessary?)")
+ (kern-log-msg "(ËÜÅö¤ËɬÍפ«¡©)")
result-ok
)
((not (check-roll dc-avoid-stuck (occ-thief-dice-roll caster)))
;;----------------------------------------------------------------------------
(kern-mk-place
'p_prison ; tag
- "Prison" ; name
+ "´Æ¹ö" ; name
s_hamlet ; sprite
m_prison ; map
#f ; wraps
(let* ((quest (quest-data-get 'questentry-bandits))
(quest-tbl (car (qst-payload quest)))
(header (kern-ui-paginate-text
- "Gregor, an old charcoal burner, has asked for your help in dealing with some troublesome bandits that have been plaguing the great forest."
+ "ú¾Æ¤¤ÎÏ·¿Í¥°¥ì¥´¡¼¥ë¤Ë¡¢¿¹¤ÎÌñ²ð»ö¤Ç¤¢¤ëÅð±"
+ "¤«¤é½õ¤±¤ÆÍߤ·¤¤¤ÈÍê¤Þ¤ì¤¿¡£"
"")))
(println "quest-tbl:" quest-tbl)
(define (tbl-flag? tag)
(qst-set-descr! quest
(cond ((tbl-flag? 'done)
(kern-ui-paginate-text
- "You have delivered Nate to the Rangers of Green Tower and he is now their problem."
+ "¥Í¥¤¥È¤òÎФÎÅã¤ËÁ÷¤ê¹þ¤ó¤À¡£¸å¤ÏÈà¤é¤ÎÌäÂê¤À¡£"
))
((tbl-flag? 'nate-given-to-jailor)
(append header
(kern-ui-paginate-text
- "Take the jailor's receipt back to Deric, the commander of the Green Tower rangers, to collect the reward."
+ "¼ýÍƾÚÌÀ½ñ¤òÎФÎÅã¤Î·ÙÈ÷ÂâÂâĹ¥Ç¥ê¥Ã¥¯¤ËÅϤ·¡¢"
+ "Êó½·¤ò¼õ¤±¼è¤Ã¤¿¡£"
)))
((tbl-flag? 'captured-nate-and-talked-to-deric)
(append header
(kern-ui-paginate-text
- "Deliver Nate to the jailor in Green Tower and he will give you a receipt."
+ "¥Í¥¤¥È¤òÎФÎÅã¤Î·ºÌ³½ê¤ËÏ¢¤ì¤Æ¹Ô¤¡¢¼ýÍƾÚÌÀ½ñ"
+ "¤ò¼õ¤±¼è¤é¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£"
)))
((tbl-flag? 'captured-nate)
(append header
(kern-ui-paginate-text
- "Take Nate back to Green Tower and talk to the Ranger commander."
+ "Åð±¤ÎƬ¥Í¥¤¥È¤òÊá¤é¤¨¤¿¡£ÎФÎÅã¤ØÏ¢¤ì¤Æ¹Ô¤¡¢"
+ "·ÙÈ÷ÂâŤËÊó¹ð¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£"
)))
((tbl-flag? 'talked-to-deric)
(append header
(kern-ui-paginate-text
- "Deric, commander of the rangers, was not much help. But he did give you signed orders to enlist one of his men."
+ "·ÙÈ÷ÂâÂâĹ¤Î¥Ç¥ê¥Ã¥¯¤Ï¤¢¤Þ¤ê½õ¤±¤Ë¤Ê¤é¤Ê¤«¤Ã"
+ "¤¿¡£¤·¤«¤·¡¢Èà¤ÏÉô²¼¤Ë¤¢¤Ê¤¿¤Ë²Ã¤ï¤ë¤è¤¦¤ËÌ¿Îá"
+ "¤·¤¿¡£"
)))
(else
(append header
(kern-ui-paginate-text
- "Gregor said to ask about the bandits in Green Tower."
+ "¥°¥ì¥´¡¼¥ë¤ÏÅð±¤Î¤³¤È¤òÎФÎÅã¤Ç¿Ò¤Í¤ë¤è¤¦¤Ë¤È"
+ "¸À¤Ã¤¿¡£"
)))
)
(if (not (null? (tbl-get quest-tbl 'nossifer)))
(kern-ui-paginate-text
- "You have found yourself on the Shard, a small fragment of a world, that floats surrounded by a great void."
+ "¤¢¤Ê¤¿¤Ï¥·¥ã¥ë¥É¤Ë¤¤¤ë¡£¤½¤³¤Ï¹Âç¤Êµõ¶õ¤ËÉ⤫"
+ "¤ÖÀ¤³¦¤Î¾®¤µ¤ÊÃÇÊÒ¤À¤Ã¤¿¡£"
""
- "The demon lord Nossifer arranged for your arrival, to set in motion events that would allow his own passage to the Shard."
+ "¤³¤ÎÃϤˤ¢¤Ê¤¿¤òƳ¤¤¤¿¤Î¤Ï°Ëâ¤Î²¦¥Î¥·¥Õ¥¡¡¼¤Ç"
+ "¤¢¤Ã¤¿¡£Èà¤Ï¿ô¡¹¤Î¸½¾Ý¤ò°ú¤µ¯¤³¤·¡¢¼«Ê¬¼«¿È¤ò"
+ "¥·¥ã¥ë¥É¤Ë¸Æ¤Ó½Ð¤¹Æ»¤òÃÛ¤¤¤¿¤Î¤Ç¤¢¤Ã¤¿¡£"
""
- "Now the Demon Gate is open, and the only thing left in Nossifer's way is you..."
+ "º£¡¢°Ëâ¤ÎÌ礬³«¤¤¤¿¡£¤½¤·¤Æ¥Î¥·¥Õ¥¡¡¼¤ÎÆ»¤ò¼×"
+ "¤ë¤Î¤Ï¤¢¤Ê¤¿¤À¤±¤À¡Ä"
)
(append
;;1 where
(cond ((null? qp-shard)
(kern-ui-paginate-text
- "You have found yourself in a world you have no knowledge of, with barest impressions of what might have gone before."
+ "µ¤¤¬¤Ä¤¯¤È¡¢¤¢¤Ê¤¿¤Ï²áµî¤Îµ²±¤â¤Ê¤¯¸«ÃΤé¤ÌÀ¤"
+ "³¦¤Ë¤¤¤¿¡£ "
""
))
((equal? 1 qp-shard)
(kern-ui-paginate-text
- "You have found yourself in a world you have no knowledge of. The inhabitants refer to it as the Shard."
+ "¤¢¤Ê¤¿¤Ï¸«ÃΤé¤ÌÀ¤³¦¤Ë¤¤¤ë¡£¿Í¡¹¤Ï¤³¤ÎÃϤò¥·¥ã"
+ "¥ë¥É¤È¸Æ¤ó¤Ç¤¤¤ë¡£"
""
))
(#t (kern-ui-paginate-text
- "You have found yourself on the Shard, a small fragment of a world, that floats surrounded by a great void."
+ "¤¢¤Ê¤¿¤Ï¥·¥ã¥ë¥É¤Ë¤¤¤ë¡£¤½¤³¤Ï¹Âç¤Êµõ¶õ¤ËÉ⤫"
+ "¤ÖÀ¤³¦¤Î¾®¤µ¤ÊÃÇÊÒ¤À¤Ã¤¿¡£"
""
))
)
;; how
(if (and (null? qp-wanderer) (null? qp-shard))
- (kern-ui-paginate-text "Where are you?")
+ (kern-ui-paginate-text "¤³¤³¤Ï¤É¤³¡©")
nil
)
(cond ((null? qp-wanderer)
(kern-ui-paginate-text
- "How and why are you here?"
- "And what are you going to do now?"
+ "¤É¤Î¤è¤¦¤Ë¤·¤Æ¡¢¤½¤·¤Æ¤Ê¤¼¤³¤³¤ËÍ褿¤Î¤«¡©"
+ "¤³¤ì¤«¤é¤É¤¦¤¹¤ì¤Ð¤è¤¤¤Î¤«¡©"
))
((equal? 1 qp-wanderer)
(kern-ui-paginate-text
- "Others like you have in the past been found stumbling into this world. The inhabitants know you as 'Wanderers'."
+ "°ÊÁ°¤Ë¤â¤¢¤Ê¤¿¤Î¤è¤¦¤Ë¤³¤ÎÀ¤³¦¤Ëž¤¬¤ê¹þ¤ó¤À¼Ô"
+ "¤¬¤¤¤¿¤è¤¦¤À¡£¿Í¡¹¤Ï¤¢¤Ê¤¿¤ò¡Ö̤¤¿Í¡×¤È¸Æ¤Ö¤é"
+ "¤·¤¤¡£"
""
- "Now you are here, what are you going to do?"
+ "º£¡¢¤¢¤Ê¤¿¤Ï¤³¤³¤Ë¤¤¤ë¡£¤³¤ì¤«¤é¤É¤¦¤¹¤ì¤Ð¤è¤¤"
+ "¤Î¤«¡©"
))
(#t (kern-ui-paginate-text
- "Wanderers like yourself, who have occasionally stumbled upon this world, have in the past been responsible for great deeds."
+ "¤¢¤Ê¤¿¤Î¤è¤¦¤ËÆÍÁ³¤³¤ÎÀ¤³¦¤Ëž¤¬¤ê¹þ¤ó¤À̤¤¿Í"
+ "¤Ï¡¢¤«¤Ä¤ÆÂ礤ʳèÌö¤ò¤·¤¿¤é¤·¤¤¡£"
""
- "How will you make your place?"
+ "¤¢¤Ê¤¿¤Ï¤³¤ÎÃϤDz¿¤ò¸«¤ë¤Î¤À¤í¤¦¤«¡©"
))
)
(let* ((quest (quest-data-get 'questentry-calltoarms))
(quest-tbl (car (qst-payload quest)))
(header (kern-ui-paginate-text
- "You have recieved an urgent message to contact someone called the Enchanter as soon as possible."
+ "¤¢¤Ê¤¿¤ÏËâÆ»»Õ¤È¸Æ¤Ð¤ì¤ë¼Ô¤«¤é¡¢¤Ç¤¤ë¤À¤±Á᤯"
+ "²ñ¤¤¤ËÍè¤ë¤è¤¦¤Ë¡¢¤È¤Î¸ÀÍÕ¤ò¼õ¤±¼è¤Ã¤¿¡£"
"")))
(define (tbl-flag? tag) (not (null? (tbl-get quest-tbl tag))))
(qst-set-descr! quest
(cond ((tbl-flag? 'done)
(kern-ui-paginate-text
- "You have allied yourself with the Enchanter, one of the Wise who watch over the shard."
+ "¥·¥ã¥ë¥É¤ÎÃϤò¸«¼é¤ë¸¼Ô¤Î°ì¿Í¤Ç¤¢¤ëËâÆ»»Õ¤Î¶¨"
+ "ÎϤòÆÀ¤é¤ì¤¿¡£"
))
((tbl-flag? 'talked)
(append header
(kern-ui-paginate-text
- "You have met with the Enchanter, but you and he did not come to any agreement."
+ "ËâÆ»»Õ¤È²ñ¤Ã¤¿¡£¤·¤«¤·¡¢Èफ¤é¤Ï²¿¤Î¶¨ÎϤâÆÀ¤é"
+ "¤ì¤Ê¤«¤Ã¤¿¡£"
)))
((tbl-flag? 'tower)
(append header
(kern-ui-paginate-text
- "You have found the Enchanter's Tower in the Fens. However, getting inside could be more difficult than reaching it."
+ "¼¾ÃÏÂÓ¤ÎËâÆ»»Õ¤ÎÅã¤Ë¤¿¤É¤êÃ夤¤¿¡£¤·¤«¤·¡¢Æþ¤ë"
+ "¤Î¤ÏÆñ¤·¤½¤¦¤À¡£"
)))
((tbl-flag? 'directions)
(append header
(kern-ui-paginate-text
- "The Enchanter's Tower may be found in the Fens, a swampland north of the town of Trigrave, in the western part of the Shard."
+ "ËâÆ»»Õ¤ÎÅã¤Ï¡¢¥È¥ê¥°¥ì¥¤¥Ö¤ÎËÌ¡¢¥·¥ã¥ë¥É¤ÎÀ¾Éô"
+ "¤Î¼¾ÃÏÂӤˤ¢¤ë¤½¤¦¤À¡£"
)))
(#t
(append header
(kern-ui-paginate-text
- "The message suggests that you ask the caretaker of the clearing that you arrived in for directions."
+ "¤¿¤É¤êÃ夯¤Þ¤Ç¤ÎÆ»¤Î¤ê¤Ïº×ÃŤò´ÉÍý¤·¤Æ¤¤¤ë¼Ô¤Ë"
+ "¿Ò¤Í¤ë¤È¤è¤¤¤è¤¦¤À¡£"
)))
)
(let* ((quest (quest-data-get 'questentry-thiefrune))
(quest-tbl (car (qst-payload quest)))
(header (kern-ui-paginate-text
- "The Enchanter has asked you to investigate a theft from his tower."
+ "ËâÆ»»Õ¤ÏÅ㤫¤éÅð¤ß½Ð¤·¤¿¼Ô¤òÄ´ºº¤¹¤ë¤è¤¦¤Ë¤¢¤Ê"
+ "¤¿¤ËÍê¤ó¤À¡£"
"")))
(define (tbl-flag? tag) (not (null? (tbl-get quest-tbl tag))))
(qst-set-descr! quest
(cond ((tbl-flag? 'recovered)
(append header
(kern-ui-paginate-text
- "You have tracked down the thief and retrieved a rune belonging to the Enchanter."
+ "Å¥ËÀ¤òÄɤ¤µÍ¤á¡¢ËâÆ»»Õ¤ÎÀÐÈǤò¼è¤êÌ᤹¤³¤È¤¬¤Ç"
+ "¤¤¿¡£"
)))
((tbl-flag? 'talked)
(append header
(kern-ui-paginate-text
- "The culprit, Mouse, seems to be willing to negotiate."
+ "Å¥ËÀ¤Î¥Í¥º¥ß¤È¤Ï¸ò¾Ä¤Ç¤¤½¤¦¤À¡£"
)))
((tbl-flag? 'den5)
(append header
(kern-ui-paginate-text
- "You have found the thief's hideout in Bole, and breached the defensive upper levels."
+ "Å¥ËÀ¤Î±£¤ì²È¤Ï¥Ü¥ì¤Ë¤¢¤Ã¤¿¡£ºÇ¸å¤Î櫤òÆÍÇˤ·"
+ "¤¿¡£"
)))
((tbl-flag? 'den4)
(append header
(kern-ui-paginate-text
- "You have found the thief's hideout in Bole, and have passed three levels of traps."
+ "Å¥ËÀ¤Î±£¤ì²È¤Ï¥Ü¥ì¤Ë¤¢¤Ã¤¿¡£¤Þ¤À3³¬¤òÆÍÇˤ·¤¿"
+ "¤Ë²á¤®¤Ê¤¤¡£"
)))
((tbl-flag? 'den3)
(append header
(kern-ui-paginate-text
- "You have found the thief's hideout in Bole, and have passed two levels of traps."
+ "Å¥ËÀ¤Î±£¤ì²È¤Ï¥Ü¥ì¤Ë¤¢¤Ã¤¿¡£¤Þ¤À2³¬¤òÆÍÇˤ·¤¿"
+ "¤Ë²á¤®¤Ê¤¤¡£"
)))
((tbl-flag? 'den2)
(append header
(kern-ui-paginate-text
- "You have found the thief's hideout in Bole, but have only passed the first level."
+ "Å¥ËÀ¤Î±£¤ì²È¤Ï¥Ü¥ì¤Ë¤¢¤Ã¤¿¡£¤Þ¤À1³¬¤òÆÍÇˤ·¤¿"
+ "¤Ë²á¤®¤Ê¤¤¡£"
)))
((tbl-flag? 'den1)
(append header
(kern-ui-paginate-text
- "You have found the thief's hideout in Bole, but have yet to breach its defenses."
+ "Å¥ËÀ¤Î±£¤ì²È¤Ï¥Ü¥ì¤Ë¤¢¤Ã¤¿¡£¤À¤¬¼é¤ê¤Ï¸Ç¤¤¡£"
)))
((tbl-flag? 'bole)
(append header
(kern-ui-paginate-text
- "The ^c+mthief^c- has been seen heading northeast through the Great Forest. Bole would be the most likely place to look."
+ "^c+mÅ¥ËÀ^c-¤Ï¿¹¤òË̤ؿʤó¤À¤è¤¦¤À¡£"
+ "¥Ü¥ì¤¬ºÇ¤â¤¢¤ê¤¦¤ë¾ì½ê¤À¡£"
)))
((tbl-flag? 'tower)
(append header
(kern-ui-paginate-text
- "The ^c+mthief^c- has been seen heading east through the mountain passes. The Green Tower would be the best place to start looking."
+ "^c+mÅ¥ËÀ^c-¤Ï»³Æ»¤òÅì¤Ë¸þ¤«¤Ã¤Æ¿Ê¤ó¤À¤è¤¦¤À¡£"
+ "¤Þ¤ºÎФÎÅã¤ÇÄ´¤Ù¤ë¤È¤è¤µ¤½¤¦¤À¡£"
)))
(#t
(append header
(kern-ui-paginate-text
- "The ^c+mthief^c- has been tracked as far as Trigrave. The townsfolk there may be able to give you further information."
+ "^c+mÅ¥ËÀ^c-¤Ï¥È¥ê¥°¥ì¥¤¥Ö¤Ø¤È¸þ¤«¤Ã¤¿¤è¤¦¤À¡£"
+ "Ä®¤Î¿Í¤¿¤Á¤¬²¿¤«ÃΤäƤ¤¤ë¤«¤â¤·¤ì¤Ê¤¤¡£"
)))
)
(let* ((quest (quest-data-get 'questentry-runeinfo))
(quest-tbl (car (qst-payload quest)))
(header (kern-ui-paginate-text
- "The stolen rune that you recovered must have great significance to prompt it's theft. The Enchanter has given you the task of seeking out this reason."
+ "Åð¤Þ¤ì¤¿ÀÐÈǤϡ¢Å¥ËÀ¤ÎÏ䫤餹¤ë¤È½ÅÂç¤Ê°ÕÌ£¤¬"
+ "¤¢¤ë¤è¤¦¤À¡£ËâÆ»»Õ¤Ï¤¢¤Ê¤¿¤Ë¤½¤Î°ÕÌ£¤òÄ´ºº¤¹¤ë"
+ "¤è¤¦¤ËÌ¿¤¸¤¿¡£"
""
)))
(define (tbl-flag? tag) (not (null? (tbl-get quest-tbl tag))))
(cond
((tbl-flag? 'done)
(kern-ui-paginate-text
- "The rune you carry is one of the Keys to the Demon Gate. The gate itself lies somewhere in the north. It was sealed by the wise in ages past, and the Keys were scattered and hidden."
+ "¤¢¤Ê¤¿¤Î»ý¤Ã¤Æ¤¤¤ëÀÐÈǤϰËâ¤ÎÌç¤Î¸°¤Î°ì¤Ä¤È¸À"
+ "¤ï¤ì¤Æ¤¤¤ë¡£Ìç¤ÏË̤Τɤ³¤«¤Ë¤¢¤ë¤½¤¦¤À¡£¤½¤ì¤Ï"
+ "±ó¤¤ÀΡ¢¸¼Ô¤Ë¤è¤Ã¤ÆÉõ°õ¤µ¤ì¡¢¸°¤ÏÊÌ¡¹¤Ë±£¤µ¤ì"
+ "¤¿¡£"
))
((tbl-flag? 'gate)
(append header
(kern-ui-paginate-text
- "The runes are also known as the Keys to the Demon Gate. The gate itself lies somewhere in the north. It was sealed by the wise in ages past, and the Keys were scattered and hidden."
+ "ÀÐÈǤϰËâ¤ÎÌç¤Î¸°¤È¤â¸À¤ï¤ì¤Æ¤¤¤ë¡£Ìç¤ÏË̤ΤÉ"
+ "¤³¤«¤Ë¤¢¤ë¤½¤¦¤À¡£¤½¤ì¤Ï±ó¤¤ÀΡ¢¸¼Ô¤Ë¤è¤Ã¤ÆÉõ"
+ "°õ¤µ¤ì¡¢¸°¤ÏÊÌ¡¹¤Ë±£¤µ¤ì¤¿¡£"
)))
((tbl-flag? 'keys)
(append header
(kern-ui-paginate-text
- "The runes are also known as the Keys to the Demon Gate. What that means remains unknown."
+ "ÀÐÈǤϰËâ¤ÎÌç¤Î¸°¤È¤â¸À¤ï¤ì¤Æ¤¤¤ë¡£¤À¤¬¡¢¤½¤ì"
+ "¤¬²¿¤ò°ÕÌ£¤¹¤ë¤Î¤«¤Ï¤ï¤«¤é¤Ê¤¤¡£"
)))
((tbl-flag? 'abe)
(append header
(kern-ui-paginate-text
- "The Alchemist has advised you that ^c+mAbe^c-, at the Green Tower, has studied the nature of the runes."
+ "Ï£¶â½Ñ»Õ¤Ï^c+m¥¨¥¤¥Ö^c-¤È²ñ¤¦¤³¤È¤ò´«¤á¤¿¡£Èà¤ÏÎФÎÅã"
+ "¤Ë¤¤¤Æ¡¢ÀÐÈǤΤ³¤È¤ò¸¦µæ¤·¤Æ¤¤¤ë¡£"
)))
(#t
(append header
(kern-ui-paginate-text
- "He suggests that you start with the ^c+mAlchemist^c-, who may be found at Oparine."
+ "Èà¤Ï»Ï¤á¤Ë¥ª¥Ñ¡¼¥ê¥ó¤Î^c+mÏ£¶â½Ñ»Õ^c-¤Ë²ñ¤¦¤È¤è¤¤¤«¤â"
+ "¤·¤ì¤Ê¤¤¤È¸À¤Ã¤¿¡£"
)))
)
(define (quest-dragon-update quest)
(let* ((quest-tbl (car (qst-payload quest)))
(header (kern-ui-paginate-text
- "The Alchemist has offered to trade you information on the wherabouts of a Rune, in exchange for the blood of a dragon."
+ "Ï£¶â½Ñ»Õ¤Ïε¤Î·ì¤ò»ý¤Ã¤Æ¤¯¤ì¤Ð¸ò´¹¤ÇÀÐÈǤΤ¢¤ê"
+ "¤«¤ò¶µ¤¨¤ë¤È¸À¤Ã¤¿¡£"
)))
(define (tbl-flag? tag) (not (null? (tbl-get quest-tbl tag))))
(qst-set-descr! quest
(cond
((tbl-flag? 'done)
(kern-ui-paginate-text
- "The Alchemist has traded you information on the wherabouts of a Rune, in exchange for the blood of a dragon."
+ "ε¤Î·ì¤È¸ò´¹¤ÇÏ£¶â½Ñ»Õ¤«¤éÀÐÈǤΤ¢¤ê¤«¤òʹ¤¤"
+ "¤¿¡£"
))
((in-inventory? (car (kern-party-get-members (kern-get-player))) t_dragons_blood 1)
(append header
(kern-ui-paginate-text
""
- "You have a vial of dragon's blood in your possession."
+ "1¥Ó¥ó¤Îε¤Î·ì¤¬¼ê¤ËÆþ¤Ã¤¿¡£"
)))
((tbl-flag? 'sea)
(append header
(kern-ui-paginate-text
""
- "He suggests that the Fire Sea may be the best place to seek them out."
+ "Èà¤Ï²Ð¤Î³¤¤Çõ¤¹¤Î¤¬ºÇ¤â¤è¤¤¤Ç¤¢¤í¤¦¤È¸À¤Ã¤¿¡£"
)))
(#t
header
(cond
((tbl-flag? 'done)
(kern-ui-paginate-text
- "A rune was found in the depths of Kurpolis."
+ "ÀÐÈǤϥ¯¥í¥Ý¥ê¥¹¤Î±ü¿¼¤¯¤Ë¤¢¤Ã¤¿¡£"
))
(#t
(kern-ui-paginate-text
- "The Alchemist provided you with information on a rune buried in the deeps of Kurpolis:"
+ "Ï£¶â½Ñ»Õ¤«¤é¥¯¥í¥Ý¥ê¥¹¤Î±ü¤ËËä¤â¤ì¤¿ÀÐÈǤÎÏäò"
+ "ʹ¤¤¤¿¡£"
""
- "\"The paladins have built several fortifications in the deeps of Kurpolis. One of the runes was buried in the foundations of the deepest fort.\""
- ""
- "\"A pick and shovel may be enough to get it out again, but it might be difficult with a dozen paladins breathing down your neck.\""
+ "¡ÖÀ»µ³»Î¤Ï¥¯¥í¥Ý¥ê¥¹¤ÎÃϲ¼¤Ë¤¤¤¯¤Ä¤«¤ÎºÖ¤òÃÛ¤¤"
+ "¤Æ¤¤¤ë¡£ÀÐÈǤΰì¤Ä¤¬ºÇ¤â¿¼¤¤ºÖ¤ËËä¤â¤ì¤Æ¤¤¤ë¤Î"
+ "¤À¡£¡×"
+ ""
+ "¡Ö¤Ä¤ë¤Ï¤·¤È¥·¥ã¥Ù¥ë¤¬¤¢¤ì¤Ð·¡¤ê½Ð¤»¤ë¤À¤í¤¦¡£"
+ "¤À¤¬¡¢ÌäÂê¤Ê¤Î¤Ï·¯¤ËÉÕ¤¤Þ¤È¤¦²¿¿Í¤â¤ÎÀ»µ³»Î¤¬"
+ "¤¤¤ë¤³¤È¤À¡£¡×"
))
)
(cond
((tbl-flag? 'done)
(kern-ui-paginate-text
- "The lost rune of King Clovis was retrieved from the Spider Queen Angriss."
+ "¥¯¥í¡¼¥Ó¥¹²¦¤Î¼º¤ï¤ì¤¿ÀÐÈǤò¥¯¥â¤Î½÷²¦¥¢¥ó¥°¥ê"
+ "¥¹¤«¤é¼ê¤ËÆþ¤ì¤¿¡£"
))
((and (tbl-flag? 'angrisslair) (tbl-flag? 'angriss))
(kern-ui-paginate-text
- "King Clovis once possessed a rune, but he fell during the Goblin Wars."
+ "¥¯¥í¡¼¥Ó¥¹²¦¤Ï¤«¤Ä¤ÆÀÐÈǤò»ý¤Ã¤Æ¤¤¤¿¡£¤·¤«¤·¤½"
+ "¤ì¤Ï¥´¥Ö¥ê¥óÀïÁè¤Î¤È¤¼º¤ï¤ì¤¿¡£"
""
- "Information from the goblins has lead you to Angriss' lair, which may be where the rune lies now."
- ))
+ "¥´¥Ö¥ê¥ó¤¿¤Á¤ÎÏäˤè¤ê¥¢¥ó¥°¥ê¥¹¤Î½»¤ß²È¤ËƳ¤«"
+ "¤ì¤¿¡£ÀÐÈǤϤ½¤³¤Ë¤¢¤ê¤½¤¦¤À¡£"
+ ))
((tbl-flag? 'angriss)
(kern-ui-paginate-text
- "King Clovis once possessed a rune, but he fell during the Goblin Wars."
+ "¥¯¥í¡¼¥Ó¥¹²¦¤Ï¤«¤Ä¤ÆÀÐÈǤò»ý¤Ã¤Æ¤¤¤¿¡£¤·¤«¤·¤½"
+ "¤ì¤Ï¥´¥Ö¥ê¥óÀïÁè¤Î¤È¤¼º¤ï¤ì¤¿¡£"
""
- "The goblin Kama has given you a clue to its location- Something (maybe a spider?) can be found where the southern edge of the Great Forest meets the mountains in the east."
- ))
+ "¥´¥Ö¥ê¥ó¤Î¥«¥Þ¤«¤é¤½¤Î¾ì½ê¤Î¼ê¤¬¤«¤ê¤òÆÀ¤¿¡£"
+ "²¿¤«(¥¯¥â?)¤¬¿¹¤ÎÆî¡¢Åì¤Î»³Ì®¤ÈÀܤ¹¤ë½ê¤Ë¤¢¤ê"
+ "¤½¤¦¤À¡£"
+ ))
((tbl-flag? 'kama)
(kern-ui-paginate-text
- "King Clovis once possessed a rune, but he fell during the Goblin Wars."
+ "¥¯¥í¡¼¥Ó¥¹²¦¤Ï¤«¤Ä¤ÆÀÐÈǤò»ý¤Ã¤Æ¤¤¤¿¡£¤·¤«¤·¤½"
+ "¤ì¤Ï¥´¥Ö¥ê¥óÀïÁè¤Î¤È¤¼º¤ï¤ì¤¿¡£"
""
- "The goblins may know what became of it. The goblin Kama may be able to help you, if you can find him."
- ))
+ "¥´¥Ö¥ê¥ó¤¿¤Á¤¬¤½¤Î¹ÔÊý¤òÃΤäƤ¤¤ë¤è¤¦¤À¡£¤â¤·"
+ "¥´¥Ö¥ê¥ó¤Î¥«¥Þ¤ò¸«¤Ä¤±¤ë¤³¤È¤¬¤Ç¤¤ì¤Ð¡¢½õ¤±¤Ë"
+ "¤Ê¤ë¤À¤í¤¦¡£"
+ ))
((tbl-flag? 'gen)
(kern-ui-paginate-text
- "King Clovis once possessed a rune, but he fell during the Goblin Wars."
+ "¥¯¥í¡¼¥Ó¥¹²¦¤Ï¤«¤Ä¤ÆÀÐÈǤò»ý¤Ã¤Æ¤¤¤¿¡£¤·¤«¤·¤½"
+ "¤ì¤Ï¥´¥Ö¥ê¥óÀïÁè¤Î¤È¤¼º¤ï¤ì¤¿¡£"
""
- "The goblins may know what became of it. Amongst humans, the ranger Gen has the greatest knowledge of their kind."
- ))
+ "¥´¥Ö¥ê¥ó¤¿¤Á¤¬¤½¤Î¹ÔÊý¤òÃΤäƤ¤¤ë¤è¤¦¤À¡£¿Í´Ö"
+ "¤ÎÃæ¤Ç¤Ï·ÙÈ÷Ââ°÷¤Î¥¸¥§¥ó¤¬°ìÈ֤褯ÃΤäƤ¤¤½¤¦"
+ "¤À¡£"
+ ))
(#t
(kern-ui-paginate-text
- "King Clovis once possessed a rune, but he fell during the Goblin Wars."
+ "¥¯¥í¡¼¥Ó¥¹²¦¤Ï¤«¤Ä¤ÆÀÐÈǤò»ý¤Ã¤Æ¤¤¤¿¡£¤·¤«¤·¤½"
+ "¤ì¤Ï¥´¥Ö¥ê¥óÀïÁè¤Î¤È¤¼º¤ï¤ì¤¿¡£"
""
- "The goblins may know what became of it, but would they tell you?"
+ "¥´¥Ö¥ê¥ó¤¿¤Á¤¬¤½¤Î¹ÔÊý¤òÃΤäƤ¤¤ë¤è¤¦¤À¡£¤À¤¬"
+ "¤É¤¦Ê¹¤½Ð¤»¤Ð¤¤¤¤¡©"
))
)
(cond
((tbl-flag? 'done)
(kern-ui-paginate-text
- "A rune was recovered from the Temple of the Void."
+ "µõ¶õ¤Î»û±¡¤ÎÀÐÈǤò¼ê¤ËÆþ¤ì¤¿¡£"
))
(#t
(kern-ui-paginate-text
- "Legends tell of a temple in the void, which housed a rune."
+ "¸À¤¤ÅÁ¤¨¤Ç¤Ïµõ¶õ¤ÎÃæ¤Ë»û±¡¤¬¤¢¤ê¡¢¤½¤³¤ËÀÐÈǤ¬"
+ "¶¡¤¨¤é¤ì¤Æ¤¤¤ë¤½¤¦¤À¡£"
))
)
(cond
((tbl-flag? 'done)
(kern-ui-paginate-text
- "A rune was recovered from the wreck of the Merciful Death."
+ "ÀÐÈǤò°ú¤¾å¤²¤é¤ì¤¿»üÈῼ¤¤»à¹æ¤ÎÃæ¤Ç¼ê¤ËÆþ¤ì"
+ "¤¿¡£"
))
((tbl-flag? 'shiploc)
(append
(kern-ui-paginate-text
- "The pirate captain Ghertie once held a rune aboard her ship, the Merciful Death."
+ "³¤Â±¤ÎƬ¥¬¡¼¥Æ¥£¡¼¤Ï¤«¤Ä¤ÆÀÐÈǤò»ý¤Ã¤Æ¤¤¤¿¡£"
""
)
- (kern-ui-paginate-text (string-append "Her ghost has revealed the location of the ship: [" (number->string merciful-death-x) ", " (number->string merciful-death-y) "]."))
+ (kern-ui-paginate-text (string-append "Èà½÷¤ÎÍ©Îî¤ÏÁ¥¤Î¾ì½ê[" (number->string merciful-death-x) "," (number->string merciful-death-y) "]¤òÌÀ¤«¤·¤¿¡£"))
(if (tbl-flag? 'shipraise)
(kern-ui-paginate-text
""
- "The ship may be raised with the Vas Uus Ylem spell, mixed using mandrake, blood moss and spider silk."
+ "Á¥¤Ï¡¢¥Þ¥ó¥É¥ì¥¤¥¯¡¢·ì¤ÎÂÝ¡¢¤½¤·¤ÆÃØéá¤Î»å¤òÄ´"
+ "¹ç¤·¡¢¥ô¥¡¥¹¡¦¥¦¡¼¥¹¡¦¥¤¥§¥à<Vas Uus Ylem>¤Î¼ö"
+ "ʸ¤ò»È¤¨¤Ð°ú¤¾å¤²¤é¤ì¤ë¡£"
)
nil
)
))
((tbl-flag? 'info)
(kern-ui-paginate-text
- "The pirate captain Ghertie once held a rune aboard her ship, the Merciful Death."
+ "³¤Â±¤ÎƬ¥¬¡¼¥Æ¥£¡¼¤Ï¤«¤Ä¤ÆÀÐÈǤò»ý¤Ã¤Æ¤¤¤¿¡£"
""
- "Her ghost now haunts Oparine, seeking ^c+mrevenge^c- upon her crew."
+ "º£¤Ï¥ª¥Ñ¡¼¥ê¥ó¤ÇÍ©Îî¤È¤Ê¤Ã¤Æ¼ê²¼¤ò^c+mÉü½²^c-¤Î¤¿¤áõ"
+ "¤·¤Æ¤¤¤ë¡£"
))
(#t
(kern-ui-paginate-text
- "The pirate captain Ghertie once held a rune."
+ "³¤Â±¤ÎƬ¥¬¡¼¥Æ¥£¡¼¤Ï¤«¤Ä¤ÆÀÐÈǤò»ý¤Ã¤Æ¤¤¤¿¡£"
))
)
(cond
((tbl-flag? 'done)
(kern-ui-paginate-text
- (string-append "The ghost of Ghertie the pirate once haunted the inn at Oparine. In exchange for her revenge, she revealed the location of her sunken ship: [" (number->string merciful-death-x) ", " (number->string merciful-death-y) "].")
+ "¤«¤Ä¤Æ³¤Â±¥¬¡¼¥Æ¥£¡¼¤ÎÍ©Î¥ª¥Ñ¡¼¥ê¥ó¤Î½É¤Ë¤¤"
+ "¤¿¡£Èà½÷¤ÎÉü½²¤È°ú¤´¹¤¨¤Ë¡¢ÄÀ¤ó¤ÀÁ¥¤Î¾ì½ê¤òÃÎ"
+ (string-append "¤ë¤³¤È¤¬¤Ç¤¤¿¡£¤½¤ì¤Ï[" (number->string merciful-death-x) "," (number->string merciful-death-y) "]¤Ë¤¢¤ë¡£")
))
((tbl-flag? 'questinfo)
(append
(kern-ui-paginate-text
- "The ghost of Ghertie the pirate haunts the inn at Oparine. She seeks revenge on the survivors of the crew that betrayed her."
+ "³¤Â±¥¬¡¼¥Æ¥£¡¼¤ÎÍ©Î¥ª¥Ñ¡¼¥ê¥ó¤Î½É¤Ë¤¤¤ë¡£Èà"
+ "½÷¤ÏÉü½²¤Î¤¿¤á¼«Ê¬¤ò΢Àڤ俼겼¤ÎÀ¸¤»Ä¤ê¤òõ"
+ "¤·¤Æ¤¤¤ë¡£"
""
- "Gholet, Jorn and Meaney each wear a ring marking them as Ghertie's crew. Ghertie will accept the rings as proof that you have hunted them down, in exchange for the location of her sunken treasure."
+ "¥´¥ì¥Ã¥È¡¢¥¸¥ç¡¼¥ó¡¢¤½¤·¤Æ¥ß¡¼¥Ë¡¼¤Ï¥¬¡¼¥Æ¥£¡¼"
+ "¤Î¼ê²¼¤Î¾Ú¤Ç¤¢¤ë»ØÎؤò¿È¤Ë¤Ä¤±¤Æ¤¤¤ë¡£¥¬¡¼¥Æ¥£"
+ "¡¼¤ÏÈà¤é¤òÅݤ·¤¿¾Úµò¤È¤·¤Æ»ØÎؤò¼õ¤±¼è¤ê¡¢¤½¤ì"
+ "¤È¸ò´¹¤ÇÄÀ¤ó¤ÀÊõ¤Î¾ì½ê¤ò¶µ¤¨¤ë¤È¸À¤Ã¤¿¡£"
)
(if (and (tbl-flag? 'ring-jorn)
(tbl-flag? 'ring-meaney)
(tbl-flag? 'ring-gholet))
(kern-ui-paginate-text
""
- "You have retrieved all three skull rings."
+ "¥É¥¯¥í¤Î»ØÎؤòÁ´¤Æ¼ê¤ËÆþ¤ì¤¿¡£"
)
(append
(cond
((tbl-flag? 'ring-gholet)
(kern-ui-paginate-text
""
- "You have retrieved a skull ring from Gholet."
+ "¥´¥ì¥Ã¥È¤Î¥É¥¯¥í¤Î»ØÎؤò¼ê¤ËÆþ¤ì¤¿¡£"
))
((tbl-flag? 'gholet-price)
(kern-ui-paginate-text
""
- "Gholet is held in the dungeons beneath Glasdrin, and will exchange the ring for a dozen lockpicks."
+ "¥´¥ì¥Ã¥È¤Ï¥°¥é¥¹¥É¥ê¥ó¤ÎÃϲ¼Ï´¤ËÊá¤é¤ï¤ì¤Æ¤¤"
+ "¤ë¡£Èà¤Ï1¥À¡¼¥¹¤Î¸°³«¤±Æ»¶ñ¤È»ØÎؤò¸ò´¹¤¹¤ë¤È"
+ "¸À¤Ã¤¿¡£"
))
((tbl-flag? 'gholet-dungeon)
(kern-ui-paginate-text
""
- "Gholet is held in the dungeons beneath Glasdrin."
+ "¥´¥ì¥Ã¥È¤Ï¥°¥é¥¹¥É¥ê¥ó¤ÎÃϲ¼Ï´¤ËÊá¤é¤ï¤ì¤Æ¤¤"
+ "¤ë¡£"
))
((tbl-flag? 'gholet-prison)
(kern-ui-paginate-text
""
- "If Gholet can be found anywhere it will be in some prison or another."
+ "¥´¥ì¥Ã¥È¤Ï¤â¤·À¸¤¤Æ¤¤¤ì¤Ð¤É¤³¤«¤ÎÏ´¹ö¤Ë¤¤¤ë¤À"
+ "¤í¤¦¡£"
))
(#t nil)
)
((tbl-flag? 'ring-jorn)
(kern-ui-paginate-text
""
- "You have retrieved a skull ring from Jorn."
+ "¥¸¥ç¡¼¥ó¤Î¥É¥¯¥í¤Î»ØÎؤò¼ê¤ËÆþ¤ì¤¿¡£"
))
((tbl-flag? 'jorn-loc)
(kern-ui-paginate-text
""
- "Jorn can be found at the Green Tower's White Stag Inn."
+ "¥¸¥ç¡¼¥ó¤ÏÎФÎÅã¤ÎÇò¤²´¼¯Áñ¤Ë¤¤¤ë¡£"
))
((tbl-flag? 'jorn-forest)
(kern-ui-paginate-text
""
- "Jorn is a bandit somewhere in the Great Forest."
+ "¥¸¥ç¡¼¥ó¤Ï¹Âç¤Ê¿¹¤Î¤É¤³¤«¤ÇÅð±¤ò¤ä¤Ã¤Æ¤¤¤ë¡£"
))
(#t nil)
)
((tbl-flag? 'ring-meaney)
(kern-ui-paginate-text
""
- "You have retrieved a skull ring from Meaney."
+ "¥ß¡¼¥Ë¡¼¤Î¥É¥¯¥í¤Î»ØÎؤò¼ê¤ËÆþ¤ì¤¿¡£"
))
((tbl-flag? 'meaney-loc)
(kern-ui-paginate-text
""
- "Meaney runs the Poor House, north of Oparine."
+ "¥ß¡¼¥Ë¡¼¤Ï¥ª¥Ñ¡¼¥ê¥ó¤ÎË̤ˤ¢¤ëµßÉϱ¡¤ÇƯ¤¤¤Æ¤¤"
+ "¤ë¡£"
))
(#t nil)
)
))
(#t
(kern-ui-paginate-text
- (string-append
- (if (tbl-flag? 'ghertieid)
- "The ghost of Ghertie the pirate"
- "A ghost")
+ (string-append(if (tbl-flag? 'ghertieid)
+ "³¤Â±¥¬¡¼¥Æ¥£¡¼¤ÎÍ©Îî"
+ "Í©Îî")
(if (tbl-flag? 'ghertieloc)
- "haunts the inn at Oparine. "
- "may be found in Oparine. ")
- (if (tbl-flag? 'revenge)
- "She seeks ^c+mrevenge^c-, and may aid you if you take care of her unfinished business."
- (string-append "Why does "
- (if (tbl-flag? 'ghertieid) "she" "it")
- "linger in undeath?"
- )
- ))
+ "¤¬¥ª¥Ñ¡¼¥ê¥ó¤Î½É¤Ë¤¤¤ë¡£"
+ "¤¬¥ª¥Ñ¡¼¥ê¥ó¤Ë¤¤¤ë¡£")
+ )
+ (if (tbl-flag? 'revenge)
+ "Èà½÷¤Ï^c+mÉü½²^c-¤ò˾¤ó¤Ç¤¤¤ë¡£¤½¤ì¤ò¼êÅÁ¤¨¤Ð¡¢Èà½÷¤Ï\n¤¢¤Ê¤¿¤Ë¶¨ÎϤ¹¤ë¤«¤â¤·¤ì¤Ê¤¤¡£"
+ (string-append "¤Ê¤¼"
+ (if (tbl-flag? 'ghertieid) "Èà½÷" "¤½¤ì")
+ "¤Ï»à¤ó¤Ç¤â¤½¤³¤ËµïºÂ¤Ã¤Æ¤¤¤ë¤Î¤«¡©"
+ )
+ )
))
)
(cond
((tbl-flag? 'done)
(kern-ui-paginate-text
- "A rune was recovered from the fallen Warritrix."
+ "ÀÐÈǤÏÆ®»Î¤ÎË´³¼¤¬»ý¤Ã¤Æ¤¤¤¿¡£"
))
((and (tbl-flag? 'located) (tbl-flag? 'know-hall))
(kern-ui-paginate-text
+ "ÀÐÈǤΰì¤Ä¤ÏÆ®»Î¤¬»ý¤ÁÊ⤤¤Æ¤¤¤ë¡£"
+ "Èà½÷¤Ï¥·¥ã¥ë¥É¤ÎÆ´ß¤Ë¤¢¤ë¼º¤ï¤ì¤¿ÅÂƲ¤Ç¸«¤Ä"
+ "¤«¤ë¤À¤í¤¦¡£"
(string-append
- "One of the runes is carried by the Warritrix. "
- "She may be found in the Lost Halls, at ["
+ "¤½¤ì¤Ï["
(number->string (loc-x lost-halls-loc)) "," (number->string (loc-y lost-halls-loc))
- "]."
+ "]¤Ë¤¢¤ë¡£"
)
))
((and (tbl-flag? 'located) (tbl-flag? 'approx-hall))
(kern-ui-paginate-text
- (string-append
- "One of the runes is carried by the Warritrix. "
- "She may be found in the Lost Halls, on the Shard's south coast."
- )
+ "ÀÐÈǤΰì¤Ä¤ÏÆ®»Î¤¬»ý¤ÁÊ⤤¤Æ¤¤¤ë¡£"
+ "Èà½÷¤Ï¥·¥ã¥ë¥É¤ÎÆ´ß¤Ë¤¢¤ë¼º¤ï¤ì¤¿ÅÂƲ¤Ç¸«¤Ä"
+ "¤«¤ë¤À¤í¤¦¡£"
))
((tbl-flag? 'located)
(kern-ui-paginate-text
- "One of the Runes is carried by the Warritrix, who may be found at the Lost Halls."
+ "ÀÐÈǤΰì¤Ä¤ÏÆ®»Î¤¬»ý¤ÁÊ⤤¤Æ¤¤¤ë¡£"
+ "Èà½÷¤Ï¼º¤ï¤ì¤¿ÅÂƲ¤Ç¸«¤Ä¤«¤ë¤À¤í¤¦¡£"
))
(#t
(kern-ui-paginate-text
- "One of the Runes is carried by the Warritrix."
+ "ÀÐÈǤΰì¤Ä¤ÏÆ®»Î¤¬»ý¤ÁÊ⤤¤Æ¤¤¤ë¡£"
))
)
(cond
((tbl-flag? 'done)
(kern-ui-paginate-text
- "A rune was recovered from the Absalot ruins."
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤Î°äÀפÎÀÐÈǤò¸«¤Ä¤±¤¿¡£"
))
((tbl-flag? 'silasinfo)
(kern-ui-paginate-text
- "Silas has a rune hidden in the Absalot ruins."
+ "¥µ¥¤¥é¥¹¤Ï¥¢¥Ö¥µ¥í¥Ã¥È¤Î°äÀפËÀÐÈǤò±£¤·¤Æ¤¤"
+ "¤ë¡£"
))
(#t
(kern-ui-paginate-text
- "A rune may be found somewhere in Absalot."
+ "ÀÐÈǤϥ¢¥Ö¥µ¥í¥Ã¥È¤Î¤É¤³¤«¤Ë¤¢¤ë¤À¤í¤¦¡£"
))
)
(cond
((tbl-flag? 'entrusted-with-rune)
(kern-ui-paginate-text
- "The Enchanter has entrusted the Rune of Knowledge into your care."
+ "ËâÆ»»Õ¤Ï¤¢¤Ê¤¿¤ËÃ챤ÎÀÐÈǤòͤ±¤¿¡£"
))
((tbl-flag? 'player-got-rune)
(kern-ui-paginate-text
- "The Rune of Knowledge belonged to the Enchanter, but has since fallen into your hands."
+ "Ã챤ÎÀÐÈǤÏËâÆ»»Õ¤Î¤â¤Î¤À¤¬¡¢º£¤Ï¤¢¤Ê¤¿¤Î¼ê¤Î"
+ "Ãæ¤Ë¤¢¤ë¡£"
))
((tbl-flag? 'ench-should-have-rune)
(kern-ui-paginate-text
- "The Rune of Knowledge belongs to the Enchanter. You may be able to convince him to turn it over to you."
+ "Ã챤ÎÀÐÈǤÏËâÆ»»Õ¤Î¤â¤Î¤À¡£¤½¤ì¤ò¼è¤êÌ᤻¤ÐËâ"
+ "Æ»»Õ¤Î¿®Íê¤òÆÀ¤é¤ì¤ë¤À¤í¤¦¡£"
))
(#t
(kern-ui-paginate-text
- "The Rune of Knowledge belonged to the Enchanter."
+ "Ã챤ÎÀÐÈǤÏËâÆ»»Õ¤Î¤â¤Î¤À¡£"
))
)
(cond
((tbl-flag? 'avenged)
(kern-ui-paginate-text
- "The Warritrix was the most cunning warrior of the age, but was slain in an ambush in the Lost Halls."
+ "Æ®»Î¤Ï¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÊÀï»Î¤À¤Ã¤¿¡£¤À¤¬¡¢Èà"
+ "½÷¤Ï¼º¤ï¤ì¤¿ÅÂƲ¤ÇÂÔ¤ÁÉú¤»¤Ë¤¢¤¤»¦¤µ¤ì¤Æ¤¤¤¿¡£"
""
- "You have since brought her betrayers to justice."
+ "Èà½÷¤ò΢Àڤ俼ԤÏÀµµÁ¤Î²¼¤ËºÛ¤«¤ì¤¿¡£"
))
((tbl-flag? 'found)
(kern-ui-paginate-text
- "The Warritrix was the most cunning warrior of the age, but was slain in an ambush in the Lost Halls."
+ "Æ®»Î¤Ï¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÊÀï»Î¤À¤Ã¤¿¡£¤À¤¬¡¢Èà"
+ "½÷¤Ï¼º¤ï¤ì¤¿ÅÂƲ¤ÇÂÔ¤ÁÉú¤»¤Ë¤¢¤¤»¦¤µ¤ì¤Æ¤¤¤¿¡£"
))
((tbl-flag? 'slain)
(cond
((tbl-flag? 'lost-hall-loc)
(kern-ui-paginate-text
- (string-append
- "The Warritrix was the most cunning warrior of the age, but her spirit has been seen in the Void."
+ "Æ®»Î¤Ï¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÊÀï»Î¤À¤Ã¤¿¡£¤À¤¬¡¢Èà"
+ "½÷¤Îº²¤Ïº£¤Ïµõ¶õ¤ÎÃæ¤Ë¤¢¤ë¡£"
""
- "Her mortal remains may still lie in the Lost Halls, at ["
+ "Èà½÷¤ÎË´³¼¤Ï¤¤¤Þ¤À¼º¤ï¤ì¤¿ÅÂƲ¤Ë¤¢¤ë¡£"
+ (string-append
+ "¤½¤ì¤Ï["
(number->string (loc-x lost-halls-loc)) "," (number->string (loc-y lost-halls-loc))
- "]."
+ "]¤Ë¤¢¤ë¡£"
)
))
((tbl-flag? 'lost-hall)
(kern-ui-paginate-text
- "The Warritrix was the most cunning warrior of the age, but her spirit has been seen in the Void."
+ "Æ®»Î¤Ï¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÊÀï»Î¤À¤Ã¤¿¡£¤À¤¬¡¢Èà"
+ "½÷¤Îº²¤Ïº£¤Ïµõ¶õ¤ÎÃæ¤Ë¤¢¤ë¡£"
""
- "Her mortal remains may still lie in the Lost Halls."
+ "Èà½÷¤ÎË´³¼¤Ï¤¤¤Þ¤À¼º¤ï¤ì¤¿ÅÂƲ¤Ë¤¢¤ë¡£"
))
(#t
(kern-ui-paginate-text
- "The Warritrix was the most cunning warrior of the age, but her spirit has been seen in the Void."
+ "Æ®»Î¤Ï¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÊÀï»Î¤À¤Ã¤¿¡£¤À¤¬¡¢Èà"
+ "½÷¤Îº²¤Ïº£¤Ïµõ¶õ¤ÎÃæ¤Ë¤¢¤ë¡£"
""
- "When alive, she served the city of Glasdrin."
+ "À¸¤¤Æ¤¤¤¿¤È¤¤Ï¥°¥é¥¹¥É¥ê¥ó¤ÎÄ®¤Ë»Å¤¨¤Æ¤¤¤¿¡£"
))
))
((tbl-flag? 'lost-hall-loc)
(kern-ui-paginate-text
+ "Æ®»Î¤Ï¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÊÀï»Î¤À¡£º£¤ÏºîÀï¤Ç¼º"
+ "¤ï¤ì¤¿ÅÂƲ¤Ë±óÀ¬¤·¤Æ¤¤¤ë¡£"
(string-append
- "The Warritrix is the most cunning warrior of the age. She is overdue from her mission the the Lost Halls, which can be found at ["
+ "¤½¤ì¤Ï["
(number->string (loc-x lost-halls-loc)) "," (number->string (loc-y lost-halls-loc))
- "]."
+ "]¤Ë¤¢¤ë¡£"
)
))
((tbl-flag? 'lost-hall)
(kern-ui-paginate-text
- "The Warritrix is the most cunning warrior of the age. A mission has taken her to the Lost Halls."
+ "Æ®»Î¤Ï¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÊÀï»Î¤À¡£º£¤ÏºîÀï¤Ç¼º"
+ "¤ï¤ì¤¿ÅÂƲ¤Ë±óÀ¬¤·¤Æ¤¤¤ë¡£"
))
((tbl-flag? 'assignment)
(kern-ui-paginate-text
- "The Warritrix is the most cunning warrior of the age. She is currently away from Glasdrin on a mission."
+ "Æ®»Î¤Ï¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÊÀï»Î¤À¡£º£¤ÏºîÀï¤Ç¥°"
+ "¥é¥¹¥É¥ê¥ó¤òÎ¥¤ì¤Æ¤¤¤ë¡£"
))
((tbl-flag? 'general-loc)
(kern-ui-paginate-text
- "The Warritrix is the most cunning warrior of the age. She can normally be found around Glasdrin."
+ "Æ®»Î¤Ï¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÊÀï»Î¤À¡£Èà½÷¤ÏÉáÃʤÏ"
+ "¥°¥é¥¹¥É¥ê¥ó¤Ë¤¤¤ë¡£"
))
((tbl-flag? 'common)
(kern-ui-paginate-text
- "The Warritrix is the most cunning warrior of the age."
+ "Æ®»Î¤Ï¤³¤Î»þÂå¤ÇºÇ¤âàÄàѤÊÀï»Î¤À¡£"
))
(#t
(kern-ui-paginate-text
- "The Warritrix is one of the wise."
+ "Æ®»Î¤Ï¸¼Ô¤Î°ì¿Í¤À¡£"
))
)
)
(questadd (qst-mk
- "Character Creation"
+ "¤¢¤Ê¤¿¼«¿È¤ÎºîÀ®"
'questentry-charcreate
(kern-ui-paginate-text
- "Move to the moongate at the north side of the room to begin the game."
+ "Éô²°¤ÎË̤ˤ¢¤ë·î¤ÎÌç¤ò¤¯¤°¤ë¤ÈËÁ¸±¤¬»Ï¤Þ¤ë¡£ "
""
- "Along the way you will be prompted for your characters name. You may also customize your attributes by talking to the statues in the room."
+ "ÅÓÃæ¤Ç¤¢¤Ê¤¿¤Î̾Á°¤òÆþÎϤ¹¤ë¡£Áü¤ËÏä·¤«¤±¤ë¤È"
+ "ǽÎϤòÄ´À°¤¹¤ë¤³¤È¤â¤Ç¤¤ë¡£ "
)
'quest-assign-notify
'quest-status-inprogress
0
))
-(questadd (qst-mk "Where am I?"
+(questadd (qst-mk "¤³¤³¤Ï¤É¤³¡©"
'questentry-whereami
(kern-ui-paginate-text
- "You have found yourself in a world you have no knowledge of, with barest impressions of what might have gone before."
+ "µ¤¤¬¤Ä¤¯¤È¡¢¤¢¤Ê¤¿¤Ï²áµî¤Îµ²±¤â¤Ê¤¯¸«ÃΤé¤ÌÀ¤"
+ "³¦¤Ë¤¤¤¿¡£ "
""
- "Where are you?"
- "How and why are you here?"
- "And what are you going to do now?"
+ "¤³¤³¤Ï¤É¤³¤Ê¤Î¤«¡© "
+ "¤É¤Î¤è¤¦¤Ë¡¢¤½¤·¤Æ¤Ê¤¼¤³¤³¤ËÍ褿¤Î¤«¡© "
+ "²¿¤ò¤¹¤Ù¤¤Ê¤Î¤«¡© "
)
'quest-assign-notify
'quest-status-inprogress
;; 'nossifer- pc knows about N's summoning(3)
))
-(questadd (qst-mk "A Call to Arms"
+(questadd (qst-mk "ËâÆ»»Õ¤Î¾·ÂÔ¾õ"
'questentry-calltoarms
(kern-ui-paginate-text
- "You have recieved an urgent message to contact someone called the Enchanter as soon as possible."
+ "¤¢¤Ê¤¿¤ÏËâÆ»»Õ¤È¸Æ¤Ð¤ì¤ë¼Ô¤«¤é¡¢¤Ç¤¤ë¤À¤±Á᤯"
+ "²ñ¤¤¤ËÍè¤ë¤è¤¦¤Ë¡¢¤È¤Î¸ÀÍÕ¤ò¼õ¤±¼è¤Ã¤¿¡£"
""
- "The message suggests that you ask the caretaker of the clearing that you arrived in for directions."
+ "¤¿¤É¤êÃ夯¤Þ¤Ç¤ÎÆ»¤Î¤ê¤Ïº×ÃŤò´ÉÍý¤·¤Æ¤¤¤ë¼Ô¤Ë"
+ "¿Ò¤Í¤ë¤È¤è¤¤¤è¤¦¤À¡£"
)
'quest-assign-notify
'quest-status-inprogress
;; 'done- pc has been enlisted
))
-(questadd (qst-mk "To Catch a Thief"
+(questadd (qst-mk "Å¥ËÀ¤òÄɤ¨"
'questentry-thiefrune
(kern-ui-paginate-text
- "The Enchanter has asked you to investigate a theft from his tower."
+ "ËâÆ»»Õ¤ÏÅ㤫¤éÅð¤ß½Ð¤·¤¿¼Ô¤òÄ´ºº¤¹¤ë¤è¤¦¤Ë¤¢¤Ê"
+ "¤¿¤ËÍê¤ó¤À¡£"
""
- "The ^c+mthief^c- has been tracked as far as Trigrave. The townsfolk there may be able to give you further information."
+ "^c+mÅ¥ËÀ^c-¤Ï¥È¥ê¥°¥ì¥¤¥Ö¤Ø¤È¸þ¤«¤Ã¤¿¤è¤¦¤À¡£"
+ "Ä®¤Î¿Í¤¿¤Á¤¬²¿¤«ÃΤäƤ¤¤ë¤«¤â¤·¤ì¤Ê¤¤¡£"
)
'quest-assign-notify
'quest-status-inprogress
;; 'done- pc has been enlisted
))
-(questadd (qst-mk "The Secret of the Runes"
+(questadd (qst-mk "ÀÐÈǤÎÈëÌ©"
'questentry-runeinfo
(kern-ui-paginate-text
- "The stolen rune that you recovered must have great significance to prompt it's theft. The Enchanter has given you the task of seeking out this reason."
+ "Åð¤Þ¤ì¤¿ÀÐÈǤϡ¢Å¥ËÀ¤ÎÏ䫤餹¤ë¤È½ÅÂç¤Ê°ÕÌ£¤¬"
+ "¤¢¤ë¤è¤¦¤À¡£ËâÆ»»Õ¤Ï¤¢¤Ê¤¿¤Ë¤½¤Î°ÕÌ£¤òÄ´ºº¤¹¤ë"
+ "¤è¤¦¤ËÌ¿¤¸¤¿¡£"
""
- "He suggests that you start with the ^c+mAlchemist^c-, who may be found at Oparine."
+ "Èà¤Ï»Ï¤á¤Ë¥ª¥Ñ¡¼¥ê¥ó¤Î^c+mÏ£¶â½Ñ»Õ^c-¤Ë²ñ¤¦¤È"
+ "¤è¤¤¤«¤â¤·¤ì¤Ê¤¤¤È¸À¤Ã¤¿¡£"
)
'quest-assign-notify
'quest-status-inprogress
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; runes questgroup
-(questadd (qst-mk "The Search for the Runes"
+(questadd (qst-mk "ÀÐÈǤòõ¤»"
'questentry-allrunes
(kern-ui-paginate-text
- "The Enchanter believes that the Accursed are seeking the runes for nefarious purposes. It is up to you to collect them first."
+ "ËâÆ»»Õ¤Ï¼ö¤ï¤ì¤¿¼Ô¤¬¶²¤í¤·¤¤ÌÜŪ¤Î¤¿¤á¤ËÀÐÈǤò"
+ "½¸¤á¤Æ¤¤¤ë¤È³Î¿®¤·¤¿¡£Àè¤Ë¸«¤Ä¤±¤é¤ì¤ë¤«¤Ï¤¢¤Ê"
+ "¤¿¤·¤À¤¤¤À¡£"
)
'quest-assign-notify
'quest-status-inprogress
))
;; TODO- alternate path in which the rune is lost?
-(questadd (qst-mk "A Rune in Hand"
+(questadd (qst-mk "¼ê¤ÎÃæ¤ÎÀÐÈÇ"
'questentry-rune-k
(kern-ui-paginate-text
- "The Rune of Knowledge belongs to the Enchanter. You may be able to convince him to turn it over to you."
+ "Ã챤ÎÀÐÈǤÏËâÆ»»Õ¤Î¤â¤Î¤À¡£¤½¤ì¤ò¼è¤êÌ᤻¤Ð"
+ "ËâÆ»»Õ¤Î¿®Íê¤òÆÀ¤é¤ì¤ë¤À¤í¤¦¡£"
)
'quest-assign-notify
'quest-status-inprogress
)
))
-(questadd (qst-mk "A Rune in the Deeps"
+(questadd (qst-mk "¿¼Ê¥¤ÎÀÐÈÇ"
'questentry-rune-p
(kern-ui-paginate-text
- "The Alchemist provided you with information on a rune buried in the deeps of Kurpolis."
+ "Ï£¶â½Ñ»Õ¤«¤é¥¯¥í¥Ý¥ê¥¹¤Î±ü¤ËËä¤â¤ì¤¿ÀÐÈǤÎÏÃ"
+ "¤òʹ¤¤¤¿¡£"
)
'quest-assign-notify
'quest-status-inprogress
)
))
-(questadd (qst-mk "A Soldier's Rune"
+(questadd (qst-mk "Àï»Î¤ÎÀÐÈÇ"
'questentry-rune-l
(kern-ui-paginate-text
- "One of the Runes is carried by the Warritrix."
+ "ÀÐÈǤΰì¤Ä¤ÏÆ®»Î¤¬¿È¤Ë¤Ä¤±¤Æ¤¤¤ë¡£"
)
'quest-assign-notify
'quest-status-inprogress
)
))
-(questadd (qst-mk "A Lost Rune"
+(questadd (qst-mk "¼º¤ï¤ì¤¿ÀÐÈÇ"
'questentry-rune-f
(kern-ui-paginate-text
- "King Clovis once possessed a rune, but he fell during the Goblin Wars."
+ "¥¯¥í¡¼¥Ó¥¹²¦¤Ï¤«¤Ä¤ÆÀÐÈǤò»ý¤Ã¤Æ¤¤¤¿¡£¤·¤«¤·"
+ "¤½¤ì¤Ï¥´¥Ö¥ê¥óÀïÁè¤Î¤È¤¼º¤ï¤ì¤¿¡£"
)
'quest-assign-notify
'quest-status-inprogress
)
))
-(questadd (qst-mk "A Rune in the Void"
+(questadd (qst-mk "µõ¶õ¤ÎÃæ¤ÎÀÐÈÇ"
'questentry-rune-d
(kern-ui-paginate-text
- "Legends tell of a temple in the void, which housed a rune."
+ "¸À¤¤ÅÁ¤¨¤Ç¤Ïµõ¶õ¤ÎÃæ¤Ë»û±¡¤¬¤¢¤ê¡¢¤½¤³¤ËÀÐÈÇ"
+ "¤¬º×¤é¤ì¤Æ¤¤¤ë¤½¤¦¤À¡£"
)
'quest-assign-notify
'quest-status-inprogress
)
))
-(questadd (qst-mk "A Rune in Fire"
+(questadd (qst-mk "²Ð¤ÎÃæ¤ÎÀÐÈÇ"
'questentry-rune-w
(kern-ui-paginate-text
- "A rune was found amongst the hoard of a dragon lairing in the Fire Sea."
+ "²Ð¤Î³¤¤Ë¤¢¤ëε¤Î¤Í¤°¤é¤ÎÊõʪ¸Ë¤ÇÀÐÈǤò¸«¤Ä¤±"
+ "¤¿¡£"
)
'quest-assign-notify
'quest-status-inprogress
)
))
-(questadd (qst-mk "A Rune in the Ruins"
+(questadd (qst-mk "ÇÑÔÒ¤ÎÃæ¤ÎÀÐÈÇ"
'questentry-rune-s
(kern-ui-paginate-text
- "A rune can be found in Old Absalot, beneath the ruins."
+ "ÀÐÈǤÏÇÑÔҤο¿²¼¤Î¸Å¥¢¥Ö¥µ¥í¥Ã¥È¤Ë¤¢¤ë¤À¤í"
+ "¤¦¡£"
)
'quest-assign-notify
'quest-status-inprogress
's_runestone_r
(tbl-build
- ;;'on-update 'quest-allrunes-update
+ 'on-update 'quest-rune-s-update
'bonus-xp 0
)
))
-(questadd (qst-mk "A Rune in the Sea"
+(questadd (qst-mk "³¤¤ÎÃæ¤ÎÀÐÈÇ"
'questentry-rune-c
(kern-ui-paginate-text
- "A rune once belonged to the pirate Ghertie."
+ "ÀÐÈǤϤ«¤Ä¤Æ³¤Â±¤Î¥¬¡¼¥Æ¥£¡¼¤¬»ý¤Ã¤Æ¤¤¤¿¡£"
)
'quest-assign-notify
'quest-status-inprogress
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; wise questgroup
-(questadd (qst-mk "The Wise"
+(questadd (qst-mk "¸¼Ô¤¿¤Á"
'questentry-wise
(kern-ui-paginate-text
- "The Wise have great influence over affairs in the Shard. Seeking them out may be critical to your success."
+ "¸¼Ô¤Ï¥·¥ã¥ë¥É¤ÎÃϤÇÂ礤ʱƶÁÎϤò»ý¤Ä¼Ôã¤À¡£"
+ "¾¡Íø¤Î¤¿¤á¤Ë¤ÏÈà¤é¤ò¸«¤Ä¤±½Ð¤¹¤³¤È¤¬ÉԲķç¤À¡£"
)
'quest-assign-notify
'quest-status-inprogress
)
))
-(questadd (qst-mk "The Enchanter"
+(questadd (qst-mk "ËâÆ»»Õ"
'questentry-enchanter
(kern-ui-paginate-text
- "The Enchanter is a great and knowledgable Wizard, one of the Wise of the present age."
+ "ËâÆ»»Õ¤Ï°ÎÂç¤ÇÃμ±¤Î¤¢¤ëËâ½Ñ»Õ¤Ç¡¢¸½ºß¤Î¸¼Ô¤Î"
+ "°ì¿Í¤À¡£"
)
'quest-assign-subquest
'quest-status-inprogress
)
))
-(questadd (qst-mk "The Alchemist"
+(questadd (qst-mk "Ï£¶â½Ñ»Õ"
'questentry-alchemist
(kern-ui-paginate-text
- "The Alchemist is one of the wise."
+ "Ï£¶â½Ñ»Õ¤Ï¸¼Ô¤Î°ì¿Í¤À¡£"
)
'quest-assign-subquest
'quest-status-inprogress
)
))
-(questadd (qst-mk "The MAN"
+(questadd (qst-mk "¤Ë¤ó¤²¤ó"
'questentry-the-man
(kern-ui-paginate-text
- "The MAN is one of the wise."
+ "¤Ë¤ó¤²¤ó¤Ï¸¼Ô¤Î°ì¿Í¤À¡£"
)
'quest-assign-subquest
'quest-status-inprogress
)
))
-(questadd (qst-mk "The Engineer"
+(questadd (qst-mk "µ»»Õ"
'questentry-engineer
(kern-ui-paginate-text
- "The Alchemist is one of the wise."
+ "µ»»Õ¤Ï¸¼Ô¤Î°ì¿Í¤À¡£"
)
'quest-assign-subquest
'quest-status-inprogress
)
))
-(questadd (qst-mk "The Necromancer"
+(questadd (qst-mk "»àÎî½Ñ»Õ"
'questentry-necromancer
(kern-ui-paginate-text
- "The Necromancer is one of the wise."
+ "»àÎî½Ñ»Õ¤Ï¸¼Ô¤Î°ì¿Í¤À¡£"
)
'quest-assign-subquest
'quest-status-inprogress
)
))
-(questadd (qst-mk "The Warritrix"
+(questadd (qst-mk "Æ®»Î"
'questentry-warritrix
(kern-ui-paginate-text
- "The Warritrix is one of the wise."
+ "Æ®»Î¤Ï¸¼Ô¤Î°ì¿Í¤À¡£"
)
'quest-assign-subquest
'quest-status-inprogress
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(questadd (qst-mk "A Haunted Inn"
+(questadd (qst-mk "½É²°¤ÎË´Îî"
'questentry-ghertie
(kern-ui-paginate-text
- "A ghost haunts the inn at Oparine. Why does it linger in undeath?"
+ "¥ª¥Ñ¡¼¥ê¥ó¤Î½É¤Ë¤ÏÍ©Î¤¤¤ë¡£¤Ê¤¼»à¤ó¤Ç¤â¤½¤³"
+ "¤ËµïºÂ¤Ã¤Æ¤¤¤ë¤Î¤«¡©"
)
'quest-assign-notify
'quest-status-inprogress
)
))
-(questadd (qst-mk "Blood Price: Dragon"
+(questadd (qst-mk "²ÁÃͤ¢¤ëε¤Î·ì"
'questentry-dragon
(kern-ui-paginate-text
- "The Alchemist has offered to trade you information on the wherabouts of a Rune, in exchange for the blood of a dragon."
+ "Ï£¶â½Ñ»Õ¤Ïε¤Î·ì¤ò»ý¤Ã¤Æ¤¯¤ì¤Ð¸ò´¹¤ÇÀÐÈǤΤ¢¤ê"
+ "¤«¤ò¶µ¤¨¤ë¤È¸À¤Ã¤¿¡£"
)
'quest-assign-notify
'quest-dragon-update
)
))
-(questadd (qst-mk "A Soldiers Justice"
+(questadd (qst-mk "Àï»Î¤¿¤Á¤ÎÀµµÁ"
'questentry-warrjustice
(kern-ui-paginate-text
- "The Warritrix has been slain by treachery. Will this crime go unpunished?"
+ "Æ®»Î¤Ï΢ÀÚ¤ê¤Ë¤è¤ê»¦¤µ¤ì¤¿¡£¤³¤Îºá¤¬ºÛ¤«¤ì¤ë¤³"
+ "¤È¤Ï¤Ê¤¤¤Î¤«¡©"
)
'quest-assign-subquest
'quest-status-inprogress
;;'avenged - completed justice quest
))
-(questadd (qst-mk "Bandit Troubles"
+(questadd (qst-mk "Åð±¤ÎÌäÂê"
'questentry-bandits
(kern-ui-paginate-text
- "Gregor, an old charcoal burner, has asked for your help in dealing with some troublesome bandits that have been plaguing the great forest."
+ "ú¾Æ¤¤ÎÏ·¿Í¥°¥ì¥´¡¼¥ë¤Ë¡¢¿¹¤ÎÌñ²ð»ö¤Ç¤¢¤ëÅð±"
+ "¤«¤é½õ¤±¤ÆÍߤ·¤¤¤ÈÍê¤Þ¤ì¤¿¡£"
""
- "He suggests that the Rangers at Green Tower will be able to assist in this task."
+ "ÎФÎÅã¤Î·ÙÈ÷Â⤬¤³¤ÎÌäÂê¤Î¼ê½õ¤±¤Ë¤Ê¤ë¤«¤â¤·¤ì"
+ "¤Ê¤¤¤È¸À¤ï¤ì¤¿¡£"
)
'quest-assign-notify
'quest-status-inprogress
(define (quest-complete quest)
(if (and (quest-assigned? quest) use-quest-pane)
- (kern-log-msg "^c+mQuest completed:^c-\n^c+m" (qst-title quest) "^c-")
+ (kern-log-msg "^c+mËÁ¸±¤ò´°Î»¤·¤¿:^c-\n^c+m" (qst-title quest) "^c-")
)
(qst-complete! quest)
)
;; causes a notification on assignment
(define (quest-assign-notify quest target)
(let ((notifytext (if (qst-complete? quest)
- "^c+mQuest completed:^c-\n^c+m"
- "^c+mNew quest:^c-\n^c+m"
+ "^c+mËÁ¸±¤ò´°Î»¤·¤¿:^c-\n^c+m"
+ "^c+m¿·¤·¤¤ËÁ¸±:^c-\n^c+m"
)))
(if use-quest-pane
(kern-log-msg notifytext (qst-title quest) "^c-")
(println "quest-notify")
(lambda (quest)
(if (and (quest-assigned? quest) use-quest-pane)
- (kern-log-msg "^c+mQuest updated:^c-\n^c+m" (qst-title quest) "^c-")
+ (kern-log-msg "^c+mËÁ¸±¤¬¿Ê¤ó¤À:^c-\n^c+m" (qst-title quest) "^c-")
)
(if (not (null? subfunction))
(subfunction quest))
(define (r2a-statue-hail knpc kpc)
(begin
- (let ((resp (kern-conv-get-reply kpc)))
- (if (eq? resp 'onus)
+ (let ((resp (kern-conv-get-string kpc)))
+ (if (string=? resp "¥»¥¥Ë¥ó")
(begin
(shake-map 15)
(blit-map p_absalot_passage 5 15 1 5 m_lava_bridge)
(let ((loc (mk-loc p_shard
merciful-death-x
merciful-death-y)))
- (kern-log-msg "From her watery grave...")
- (kern-log-msg "...THE MERCIFUL DEATH ARISES!")
+ (kern-log-msg "³¤¤ÎÊ褫¤é¡Ä")
+ (kern-log-msg "¡Ä»üÈῼ¤¤»à¹æ¤¬Éâ¾å¤·¤¿¡ª")
(shake-map 10)
(kern-place-set-subplace p_merciful_death loc)
(kern-map-set-dirty)
(define reagent-types
(list
- (list 'sulphorous_ash "sulphurous ash" s_sulphorous_ash)
- (list 'ginseng "ginseng" s_ginseng)
- (list 'garlic "garlic" s_garlic)
- (list 'spider_silk "spider silk" s_spider_silk)
- (list 'blood_moss "blood moss" s_blood_moss)
- (list 'black_pearl "black pearl" s_black_pearl)
- (list 'nightshade "nightshade" s_nightshade)
- (list 'mandrake "mandrake" s_mandrake)
- (list 't_royal_cape "royal cape mushroom" s_royal_cape)
+ (list 'sulphorous_ash "ⲫ¤Î³¥" s_sulphorous_ash)
+ (list 'ginseng "¿Í»²" s_ginseng)
+ (list 'garlic "ÂçÉÇ" s_garlic)
+ (list 'spider_silk "ÃØéá¤Î»å" s_spider_silk)
+ (list 'blood_moss "·ì¤ÎÂÝ" s_blood_moss)
+ (list 'black_pearl "¹õ¿¿¼î" s_black_pearl)
+ (list 'nightshade "¥Ê¥¤¥È¥·¥§¥¤¥É" s_nightshade)
+ (list 'mandrake "¥Þ¥ó¥É¥ì¥¤¥¯" s_mandrake)
+ (list 't_royal_cape "¥í¥¤¥ä¥ë¥±¡¼¥×Âû" s_royal_cape)
))
(map (lambda (type) (apply mk-reagent-type type)) reagent-types)
(kern-load "r2a_mech.scm")
(mk-dungeon-room
- 'p_road_to_absalot_1 "Passage to Absalot"
+ 'p_road_to_absalot_1 "¥¢¥Ö¥µ¥í¥Ã¥È¤Ø¤ÎÆ»"
(list
"rn rn rn r4 !! r2 rn rc ,, ,, ,, ra r8 r8 r4 !! r2 rn rn "
"rn rn rn rc !! ra rc {{ ,, .. ,, {{ {{ {{ re !! ra rn rn "
(mk-place-music p_road_to_absalot_1 'ml-dungeon-adventure)
(mk-dungeon-room
- 'p_fire_bridge "Fire Bridge"
+ 'p_fire_bridge "²Ð¤Î¶¶"
(list
"xx xx xx rr rr xx xx xx ,, ,, ,, xx xx xx xx xx xx xx xx "
"xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rr "
(mk-place-music p_fire_bridge 'ml-dungeon-adventure)
(mk-dungeon-room
- 'p_road_to_absalot_3 "Passage to Absalot"
+ 'p_road_to_absalot_3 "¥¢¥Ö¥µ¥í¥Ã¥È¤Ø¤ÎÆ»"
(list
"rn rn rn r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 rn rn rn "
"rn rn rc {C !! !! !c {{ {{ {{ {{ {{ !a !! !! {A ra rn rn "
(bind
(kern-mk-char
'ch_r2a_statue ; tag
- "Statue" ; name
+ "Áü" ; name
sp_statue ; species
nil ; occ
s_statue ; sprite
(kern-mk-place
'p_absalot_passage ; tag
- "Secret Passage" ; name
+ "±£¤·ÄÌÏ©" ; name
nil ; sprite
(kern-mk-map nil 19 40 pal_expanded
(list
)
(mk-tower
- 'p_gate_to_absalot "Gate To Absalot"
+ 'p_gate_to_absalot "¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÌç"
(list
"^^ ^^ ^^ ^^ ^^ ^^ ^^ xx xx xx xx xx ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
"^^ ^^ ^^ xx xx xx xx xx ,, ,, ,, xx xx xx xx rr ^^ ^^ ^^ "
(mk-place-music p_gate_to_absalot 'ml-small-town)
(mk-tower
- 'p_tower_of_absalot "Tower of Absalot"
+ 'p_tower_of_absalot "¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÅã"
(list
"^^ tt tt tc %% te bb %% .. .. ta tc bb ta tc %% %% %c ^^ "
"^^ ta tt %b ~f %% %% %% %% =| %d bb %b %% %% %% ~f ^3 ^^ "
(define roland-greetings
(list
- "Well met!"
- "Hail, Wanderer!"
+ "¤³¤ó¤Ë¤Á¤Ï¡ª"
+ "¤â¤·¡¢Ì¤¤¿ÍÅ¡ª"
))
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Roland is a knight errant, serving Lord Froederick.
-;; He is currently imprisoned by bandits in a cell in the slimy cave.
-;; Roland is a potential party member.
+;; ¥í¡¼¥é¥ó¥É¤Ïι¤Îµ³»Î¤Ç¡¢¥¯¥í¡¼¥Ó¥¹²¦¤Ë»Å¤¨¤Æ¤¤¤¿¡£
+;; Èà¤Ïº£¤Ç¤ÏÇ´¶Ý¤Îƶ·¢¤ÎÏ´¤ËÊá¤é¤¨¤é¤ì¤Æ¤¤¤ë¡£
+;; ¥í¡¼¥é¥ó¥É¤ÏÃç´Ö¤Ë¤Ê¤ë¡£
;;----------------------------------------------------------------------------
(define (roland-join knpc kpc)
(if (is-player-party-member? knpc)
- (say knpc "Yes, I am still with you. Lead on!")
+ (say knpc "¤½¤¦¡£´û¤ËÃç´Ö¤Ë¤Ê¤Ã¤Æ¤¤¤ë¡£¤ªÆ³¤¤¯¤À¤µ¤ì¡ª")
(if (roland-joined? knpc)
(begin
- (say knpc "I am honored to rejoin you.")
+ (say knpc "ºÆ¤ÓÃç´Ö¤Ë²Ã¤ï¤Ã¤¿¤³¤È¤ò̾ÍÀ¤Ë»×¤¦¡£")
(join-player knpc)
(kern-conv-end)
)
;; yes - will the player accept his continued allegiance to
;; Froederick?
(begin
- (say knpc "I thank you for freeing me! I owe you my life, and will gladly join you. What say you?")
+ (say knpc "²òÊü¤·¤Æ¤¯¤ì¤¿¤³¤È¤Ë´¶¼Õ¤¹¤ë¡ª¤¢¤Ê¤¿¤ÏÌ¿¤Î²¸¿Í¤À¡£¤¢¤Ê¤¿¤ÎÃç´Ö¤Ë²Ã¤ï¤ê¤¿¤¤¡£¤É¤¦¤À¤í¤¦¤«¡©")
(if (yes? kpc)
(begin
- (say knpc "I am honored! Those vile rogues took my "
- "iron chest which contains my equipment. It should be "
- "around here somewhere.")
+ (say knpc "¸÷±É¤Ë»×¤¦¡ª"
+ "¤Ê¤é¤º¼Ô¤¿¤Á¤Ï»ä¤Î³»¤ä»ý¤Áʪ¤òÃ¥¤Ã¤¿¡£"
+ "¤³¤Î¤¢¤¿¤ê¤Ë¤¢¤ë¤Ï¤º¤À¡£")
(roland-join-player knpc))
- (say knpc "[sadly] As you will.")))
- (say knpc "I am locked in this cell! Free me from this dishonour, "
- "and you will gain an ally.")
+ (say knpc "¡ÎÈᤷ¤½¤¦¤Ë¡Ï¤½¤¦Ë¾¤à¤Ê¤é¡£")))
+ (say knpc "Ï´¤ËÊĤ¸¹þ¤á¤é¤ì¤Æ¤·¤Þ¤Ã¤¿¤Î¤À¡ª¤³¤³¤«¤é½Ð¤·¤Æ¡¢"
+ "Ãç´Ö¤Ë¤·¤Æ¤¯¤À¤µ¤ì¡£")
))))
(define roland-conv
;; on the other hand, is a feature of the ifc mechanism (see ifc.scm).
(method 'default
(lambda (knpc kpc)
- (say knpc "I'm afraid I can't help you with that.")))
+ (say knpc "»ÄÇ°¤Ê¤¬¤é¡¢¤½¤ì¤Ï¼ê½õ¤±¤Ç¤¤½¤¦¤Ë¤Ê¤¤¡£")))
(method 'hail
(lambda (knpc kpc)
(if (roland-joined? knpc)
- (say knpc "I will aid thee any way I can.")
+ (say knpc "¤Ç¤¤ë¤Ê¤é¤¢¤Ê¤¿¤Î¤ª¼êÅÁ¤¤¤¬¤·¤¿¤¤¡£")
(roland-join knpc kpc))))
- (method 'bye (lambda (knpc kpc) (say knpc "Farewell.")))
+ (method 'bye (lambda (knpc kpc) (say knpc "¤µ¤è¤¦¤Ê¤é¡£")))
(method 'job
(lambda (knpc kpc)
- (say knpc "I am a knight errant.")))
- (method 'name (lambda (knpc kpc) (say knpc "I am Roland.")))
+ (say knpc "ι¤Îµ³»Î¤À¡£")))
+ (method 'name (lambda (knpc kpc) (say knpc "»ä¤Ï¥í¡¼¥é¥ó¥É¤À¡£")))
(method 'join roland-join)
(method 'cell
(lambda (knpc kpc)
- (say knpc "Use picklocks on a locked door to open it. Or, cast "
- "an unlock spell.")))
+ (say knpc "¸°³«¤±Æ»¶ñ¤¬¤¢¤ì¤ÐÈâ¤ò³«¤±¤é¤ì¤ë¡£"
+ "¤½¤¦¤Ç¤Ê¤±¤ì¤Ð¡¢Èâ¤ò³«¤±¤ë¼öʸ¤ò¾§¤¨¤Æ¤¯¤À¤µ¤ì¡£")))
(method 'clov
(lambda (knpc kpc)
- (say knpc "I was with him the day he fell in battle. "
- "The enemy ambushed us, and I was knocked senseless. "
- "I dreamt that a hideous beast dragged the King down into Tartos. "
- "When I awoke I was in a camp hospital.")))
+ (say knpc "»ä¤Ï²¦¤¬Åݤ줿Æü¡¢¶¦¤ËÀï¤Ã¤Æ¤¤¤¿¤Î¤À¡£"
+ "²¦¤È»ä¤ÏŨ¤ÎÂÔ¤ÁÉú¤»¤Ë²ñ¤¤¡¢µ¤¤ò¼º¤Ã¤¿¡£"
+ "¤½¤Î»þ¡¢±£¤ì¤Æ¤¤¤¿½Ã¤¬²¦¤òÃϹö¤Ë°ú¤¤º¤ê¹þ¤àÌ´¤ò¸«¤¿¡£"
+ "Ìܤ¬³Ð¤á¤ë¤È¡¢»ä¤ÏÌîÀïɱ¡¤Ë¤¤¤¿¤Î¤À¡£")))
(method 'free
(lambda (knpc kpc)
- (say knpc "I was waylaid and kidnapped by the bandits in this "
- "cave. They've locked me in this cell to hold me for "
- "ransom.")))
+ (say knpc "ÂÔ¤ÁÉú¤»¤Ë¤¢¤¤¡¢¤³¤Îƶ·¢¤ËͶ²ý¤µ¤ì¤Æ¤·¤Þ¤Ã¤¿¤Î¤À¡£"
+ "ÅÛ¤é¤Ï»ä¤ò¤³¤ÎÏ´¤ËÊĤ¸¹þ¤á¡¢¿ÈÂå¶â¤òÍ׵ᤷ¤Æ¤¤¤ë¡£")))
(method 'pick
(lambda (knpc kpc)
- (say knpc "Bandits and thieves usually carry picklocks.")))
+ (say knpc "Åð±¤Ï¾ï¤Ë¸°³«¤±Æ»¶ñ¤ò»ý¤Ã¤Æ¤¤¤ë¡£")))
(method 'spel
(lambda (knpc kpc)
- (say knpc "You should ask a Wizard about spells.")))
+ (say knpc "¼öʸ¤ÏËâ½Ñ»Õ¤Ëʹ¤¤¤Æ¤¯¤À¤µ¤ì¡£")))
(method 'trig
(lambda (knpc kpc)
- (say knpc "I know Trigave is a small town, a crossroad of "
- "the north, with much history.")))
+ (say knpc "¥È¥ê¥°¥ì¥¤¥Ö¤ÏË̤ÎÆ»¤¬¸òº¹¤¹¤ë¤È¤³¤í¤Ë¤¢¤ë¾®¤µ¤ÊÄ®¤À¡£"
+ "¤½¤³¤Ë¤ÏŤ¤Îò»Ë¤¬¤¢¤ë¡£")))
(method 'knig
(lambda (knpc kpc)
- (say knpc "I was a squire of King Clovis in the Goblin Wars. "
- "When the wars ended, I took to wandering.")
+ (say knpc "»ä¤Ï¥´¥Ö¥ê¥óÀïÁè¤Î¤³¤í¥¯¥í¡¼¥Ó¥¹²¦¤Ë»Å¤¨¤Æ¤¤¤¿¡£"
+ "ÀïÁ褬½ª¤ï¤ê¡¢Êüϲ¤¹¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£")
))
))
(bind
(kern-mk-char
'ch_roland ; tag
- "Roland" ; name
+ "¥í¡¼¥é¥ó¥É" ; name
sp_human ; species
oc_warrior ; occ
s_knight ; sprite
result-no-target)
((eqv? (kern-place-get-terrain loc) t_rune_altar)
(shake-map 5)
- (kern-log-msg "A LOCK IS RELEASED!")
+ (kern-log-msg "Éõ°õ¤Ï²ò¤«¤ì¤¿¡ª")
(kern-obj-remove-from-inventory kuser ktype 1)
(kern-place-set-terrain loc t_active_altar)
(send-signal kuser demon-gate 'on)
;; special extended interface for rune of leadership: summon the ghost of the
;; warritrix when the player picks it up
(define (rune-li-get kobj kchar)
- (kern-log-msg "An apparition appears!")
+ (kern-log-msg "²¿¤«¤ÎË´Î¸½¤ì¤¿¡ª")
(kern-obj-put-at (mk-warritrix)
(kern-obj-get-location kobj))
(let ((sprite (kern-obj-get-sprite kobj)))
(method 'get rune-s-get)))
;; rune types
-(mk-quest-obj-type 't_rune_k "Rune of Knowledge" s_runestone_k layer-item rune-k-ifc)
-(mk-quest-obj-type 't_rune_p "Rune of Power" s_runestone_p layer-item rune-p-ifc)
-(mk-quest-obj-type 't_rune_s "Rune of Skill" s_runestone_s layer-item rune-s-ifc)
-(mk-quest-obj-type 't_rune_c "Rune of Curiosity" s_runestone_c layer-item rune-c-ifc)
-(mk-quest-obj-type 't_rune_f "Rune of Freedom" s_runestone_f layer-item rune-f-ifc)
-(mk-quest-obj-type 't_rune_w "Rune of Wisdom" s_runestone_w layer-item rune-w-ifc)
-(mk-quest-obj-type 't_rune_d "Rune of Discretion" s_runestone_d layer-item rune-d-ifc)
-(mk-quest-obj-type 't_rune_l "Rune of Leadership" s_runestone_l layer-item rune-l-ifc)
-(mk-quest-obj-type 't_rune_l_init "Rune of Leadership" s_runestone_l layer-item rune-li-ifc)
+(mk-quest-obj-type 't_rune_k "Ã챤ÎÀÐÈÇ" s_runestone_k layer-item rune-k-ifc)
+(mk-quest-obj-type 't_rune_p "ÎϤÎÀÐÈÇ" s_runestone_p layer-item rune-p-ifc)
+(mk-quest-obj-type 't_rune_s "µ»Ç½¤ÎÀÐÈÇ" s_runestone_s layer-item rune-s-ifc)
+(mk-quest-obj-type 't_rune_c "»×θ¤ÎÀÐÈÇ" s_runestone_c layer-item rune-c-ifc)
+(mk-quest-obj-type 't_rune_f "¼«Í³¤ÎÀÐÈÇ" s_runestone_f layer-item rune-f-ifc)
+(mk-quest-obj-type 't_rune_w "ÍýÀ¤ÎÀÐÈÇ" s_runestone_w layer-item rune-w-ifc)
+(mk-quest-obj-type 't_rune_d "ʬÊ̤ÎÀÐÈÇ" s_runestone_d layer-item rune-d-ifc)
+(mk-quest-obj-type 't_rune_l "ÅýÀ©¤ÎÀÐÈÇ" s_runestone_l layer-item rune-l-ifc)
+(mk-quest-obj-type 't_rune_l_init "ÅýÀ©¤ÎÀÐÈÇ" s_runestone_l layer-item rune-li-ifc)
;; list of all rune types
(define rune-types
;; ============================================================================
-;; scrolls.scm -- useable scrolls
+;; scrolls.scm -- »È¤¨¤ë´¬Êª
;; ============================================================================
(kern-mk-sprite-set 'ss_scrolls 32 32 3 4 0 0 "scrolls.png")
;; Scroll List
;;-----------------------------------------------------------------------------------------
-(mk-scroll 't_an_tym_scroll "An Tym (Time Stop) scroll" s_an_tym_scroll an-tym) ;; context-any
-(mk-scroll 't_in_mani_corp_scroll "In Mani Corp (Resurrection) scroll" s_in_mani_corp_scroll in-mani-corp) ;; context-any
-(mk-scroll 't_vas_rel_por_scroll "Vas Rel Por (Gate) scroll" s_vas_rel_por_scroll vas-rel-por) ;; context-any
-(mk-scroll 't_xen_corp_scroll "Xen Corp (Death Bolt) scroll" s_xen_corp_scroll scroll-xen-corp)
-(mk-scroll 't_sanct_lor_scroll "Sanct Lor (Invisibility) scroll" s_sanct_lor_scroll sanct-lor) ;; context-any
-(mk-scroll 't_in_quas_xen_scroll "In Quas Xen (Clone) scroll" s_in_quas_xen_scroll scroll-in-quas-xen)
-(mk-scroll 't_in_vas_por_ylem_scroll "In Vas Por Ylem (Tremor) scroll" s_in_vas_por_ylem_scroll scroll-in-vas-por-ylem)
-(mk-scroll 't_an_xen_ex_scroll "An Xen Ex (Charm) scroll" s_an_xen_ex_scroll scroll-an-xen-ex)
-(mk-scroll 't_in_an_scroll "In An (Negate Magic) scroll" s_in_an_scroll in-an) ;; context-any
-(mk-scroll 't_in_ex_por_scroll "In Ex Por (Magic Unlock) scroll" s_in_ex_por_scroll in-ex-por) ;; context-any??
-(mk-scroll 't_vas_mani_scroll "Vas Mani (Great Heal) scroll" s_vas_mani_scroll vas-mani) ;; context-any
-(mk-scroll 't_wis_quas_scroll "Wis Quas (Reveal) scroll" s_wis_quas_scroll wis-quas) ;; context-any
-(mk-scroll 't_wis_an_ylem_scroll "Wis An Ylem (X-Ray Vision) scroll" s_wis_an_ylem_scroll wis-an-ylem) ;; context-any
-(mk-scroll 't_rel_xen_quas_scroll "Rel Xen Quas (Illusion of Beastliness) scroll" s_rel_xen_quas_scroll rel-xen-quas)
-(mk-scroll 't_test_paralyze_scroll "Paralyze Me!" s_an_tym_scroll scroll-paralyze)
\ No newline at end of file
+(mk-scroll 't_an_tym_scroll "»þ´ÖÄä»ß <An Tym> ¤Î´¬Êª" s_an_tym_scroll an-tym) ;; context-any
+(mk-scroll 't_in_mani_corp_scroll "ÁÉÀ¸ <In Mani Corp> ¤Î´¬Êª" s_in_mani_corp_scroll in-mani-corp) ;; context-any
+(mk-scroll 't_vas_rel_por_scroll "Ìç <Vas Rel Por> ¤Î´¬Êª" s_vas_rel_por_scroll vas-rel-por) ;; context-any
+(mk-scroll 't_xen_corp_scroll "»à <Xen Corp> ¤Î´¬Êª" s_xen_corp_scroll scroll-xen-corp)
+(mk-scroll 't_sanct_lor_scroll "ÉԲĻë <Sanct Lor> ¤Î´¬Êª" s_sanct_lor_scroll sanct-lor) ;; context-any
+(mk-scroll 't_in_quas_xen_scroll "Ê£À½ <In Quas Xen> ¤Î´¬Êª" s_in_quas_xen_scroll scroll-in-quas-xen)
+(mk-scroll 't_in_vas_por_ylem_scroll "ÃÏ¿Ì <In Vas Por Ylem> ¤Î´¬Êª" s_in_vas_por_ylem_scroll scroll-in-vas-por-ylem)
+(mk-scroll 't_an_xen_ex_scroll "̥λ <An Xen Ex> ¤Î´¬Êª" s_an_xen_ex_scroll scroll-an-xen-ex)
+(mk-scroll 't_in_an_scroll "ÄÀÌÛ <In An> ¤Î´¬Êª" s_in_an_scroll in-an) ;; context-any
+(mk-scroll 't_in_ex_por_scroll "Éõ°õ²ò½ü <In Ex Por> ¤Î´¬Êª" s_in_ex_por_scroll in-ex-por) ;; context-any??
+(mk-scroll 't_vas_mani_scroll "Âç²óÉü <Vas Mani> ¤Î´¬Êª" s_vas_mani_scroll vas-mani) ;; context-any
+(mk-scroll 't_wis_quas_scroll "²Ä»ë <Wis Quas> ¤Î´¬Êª" s_wis_quas_scroll wis-quas) ;; context-any
+(mk-scroll 't_wis_an_ylem_scroll "Æ©»ë <Wis An Ylem> ¤Î´¬Êª" s_wis_an_ylem_scroll wis-an-ylem) ;; context-any
+(mk-scroll 't_rel_xen_quas_scroll "½Ã¸¸»ë <Rel Xen Quas> ¤Î´¬Êª" s_rel_xen_quas_scroll rel-xen-quas)
+(mk-scroll 't_test_paralyze_scroll "áã¤ì¤µ¤»¤Æ¡ª" s_an_tym_scroll scroll-paralyze)
\ No newline at end of file
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Old Absalot.
+;; ¸Å¥¢¥Ö¥µ¥í¥Ã¥È
;;----------------------------------------------------------------------------
(define selene-bed oa-bed3)
(define selene-mealplace oa-tbl2)
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Selene is a female cult member of the Accursed.
-;; She is unstable, wicked, and depraved.
+;; ¥»¥ì¥Í¤Ï¼ö¤ï¤ì¤¿¼Ô¤Î¶µ¤¨¤Ë½¾¤¦½÷À¤Ç¤¢¤ë¡£
+;; Èà½÷¤ÏÉÔ°ÂÄê¤Ç¡¢ÉÔÆ»ÆÁ¤Ç¡¢ÂÄÍ¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (selene-hail knpc kpc)
- (say knpc "[This wild-eyed young woman stares at you impishly]"))
+ (say knpc "¡Î¤³¤Î¼ã¤¤½÷À¤Ï¤¢¤Ê¤¿¤ò¤¤¤¿¤º¤é¤Ã¤Ý¤¤ÌܤǸ«¤Æ¤¤¤ë¡£¡Ï"))
(define (selene-default knpc kpc)
- (say knpc "[She giggles. It is an evil sound]"))
+ (say knpc "¡ÎÈà½÷¤ÏÉÔ²÷¤Ê²»¤òΩ¤Æ¤Æ¾Ð¤Ã¤¿¡£¡Ï"))
(define (selene-name knpc kpc)
- (say knpc "Selene."))
+ (say knpc "¥»¥ì¥Í¡£"))
(define (selene-join knpc kpc)
- (say knpc "[She shakes here head emphatically]"))
+ (say knpc "¡ÎÈà½÷¤ÏƬ¤ò¿¶¤ê¡¢¤Ï¤Ã¤¤ê¤ÈÃǤä¿¡£¡Ï"))
(define (selene-job knpc kpc)
- (say knpc "[She shrugs] I play with things."))
+ (say knpc "¡ÎÈà½÷¤Ï¸ª¤ò¤¹¤¯¤á¤¿¡£¡Ïʪ¤ÇÍ·¤ó¤Ç¤¤¤ë¤Î¡£"))
(define (selene-bye knpc kpc)
- (say knpc "[She calls out after your back] Be seeing you, hero!"))
+ (say knpc "¡ÎÈà½÷¤Ï¤¢¤Ê¤¿¤¬µî¤Ã¤¿¸å¡¢ÂçÀ¼¤Ç¸À¤Ã¤¿¡£¡Ï¤Þ¤¿²ñ¤¤¤Þ¤·¤ç¤¦¡¢±Ñͺ¤µ¤ó¡ª"))
(define (selene-play knpc kpc)
- (say knpc "Things... people..."))
+ (say knpc "ʪ¡Ä¿Í¡Ä¡£"))
(define (selene-peop knpc kpc)
- (say knpc "I like to make them do what I want."))
+ (say knpc "¿Í¤ò¤·¤¿¤¤¤è¤¦¤Ë¤¹¤ë¤Î¤¬¹¥¤¤Ê¤Î¡£"))
(define (selene-want knpc kpc)
- (say knpc "Whatever I want. I don't care. I just like to make people do it. "
- "If they don't do it... [she shrugs and giggles]"))
+ (say knpc "¤·¤¿¤¤¤³¤È²¿¤Ç¤â¡£Â¾¤Ï¤É¤¦¤Ç¤â¤¤¤¤¤Î¡£¤¿¤À¿Í¤ò¤·¤¿¤¤¤è¤¦¤Ë¤¹¤ë¤Î¤¬¹¥¤¡£"
+ "¤â¤·¿Í¤¬¤½¤¦¤·¤Ê¤«¤Ã¤¿¤é¡Ä¡ÎÈà½÷¤Ï¸ª¤ò¤¹¤¯¤á¡¢¥¯¥¹¥¯¥¹¤È¾Ð¤Ã¤¿¡£¡Ï"))
(define (selene-accu knpc kpc)
- (say knpc "It's not so bad, hero. It's kind of fun."))
+ (say knpc "¤½¤ó¤Ê¤Ë°¤¯¤Ê¤¤¤Î¡¢±Ñͺ¤µ¤ó¡£¤É¤Á¤é¤«¤È¸À¤¦¤È³Ú¤·¤¤¤Î¡£"))
(define (selene-fun knpc kpc)
- (say knpc "Being Accursed? Sure it is! My favorite part is the sacrifices."))
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¤Ë¤Ê¤ê¤¿¤¤¡©¤â¤Á¤í¤ó¤¤¤¤¤è¡ª»ä¤Ïµ¾À·¤Î´Ö¤¬¹¥¤¡£"))
(define (selene-sacr knpc kpc)
- (say knpc "You'll find out, silly!"))
+ (say knpc "¼«Ê¬¤Çõ¤·¤Ê¤µ¤¤¡¢¥Ð¥«¡ª"))
(define (selene-denn knpc kpc)
- (say knpc "It's easy to make him do what I want. He's afraid of me. "
- "And he wants me."))
+ (say knpc "Èà¤ò¤·¤¿¤¤¤è¤¦¤Ë¤¹¤ë¤Î¤Ï´Êñ¤Ê¤Î¡£Èà¤Ï»ä¤òÉݤ¬¤Ã¤Æ¤ë¡£"
+ "¤½¤·¤Æ»ä¤òÍߤ·¤¬¤Ã¤Æ¤¤¤ë¡£"))
(define (selene-sila knpc kpc)
- (say knpc "[She suddenly looks afraid, and becomes vicious] "
- "Why are you bothering me? Go away!")
+ (say knpc "¡ÎÈà½÷¤ÏÆÍÁ³¤ª¤Ó¤¨¤¿¤è¤¦¤Ë¸«¤¨¤¿¡£¤½¤·¤Æ¶§Ë½¤Ë¤Ê¤Ã¤¿¡£¡Ï"
+ "²¿¤Ç»ä¤òº¤¤é¤»¤ë¤Î¡©¤¢¤Ã¤Á¹Ô¤Ã¤Æ¡ª")
(kern-conv-end))
(define selene-conv
(method 'play selene-play)
(method 'peop selene-peop)
+ (method 'men selene-peop)
(method 'want selene-want)
(method 'accu selene-accu)
(method 'fun selene-fun)
(bind
(kern-mk-char
'ch_selene ; tag
- "Selene" ; name
+ "¥»¥ì¥Í" ; name
selene-species ; species
selene-occ ; occ
s_townswoman ; sprite
(kern-mk-place
'p_shard
- "The Shard Surface"
+ "¥·¥ã¥ë¥É¤ÎÃÏ"
nil ; sprite
m_shard ; map
#f ;; wraps
-;; 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
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Old Absalot
+;; ¸Å¥¢¥Ö¥µ¥í¥Ã¥È
;;----------------------------------------------------------------------------
(define silas-bed oa-bed1)
(define silas-mealplace oa-tbl3)
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Silas is the leader of the evil cult of the Accursed.
-;; He is a wizard of considerable power.
+;; ¥µ¥¤¥é¥¹¤Ï¼ö¤ï¤ì¤¿¼Ô¤Î°¤·¤¶µ¤¨¤Î»ØƳ¼Ô¤Ç¤¢¤ë¡£
+;; Èà¤ÏÃíÌܤ¹¤Ù¤ÎϤò»ý¤Ã¤¿Ëâ½Ñ»Õ¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (silas-hail knpc kpc)
(if (silas-met? (kobj-gob-data knpc))
- (say knpc "Hello again, Wanderer.")
+ (say knpc "¤Þ¤¿²ñ¤Ã¤¿¤Ê¡£Ì¤¤¿Í¤è¡£")
(begin
(silas-set-met! (kobj-gob-data knpc))
- (say knpc "[You meet a charming older man] Hail, traveler. "
- "If I am not mistaken, you are a Wanderer. Am I right?")
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÏÌ¥ÏÇŪ¤ÊÏ·¿Í¤È²ñ¤Ã¤¿¡£¡Ï¤è¤¦¤³¤½¡¢Î¹¤ÎÊý¡£"
+ "»ä¤Î¹Í¤¨°ã¤¤¤Ç¤Ê¤±¤ì¤Ð¡¢·¯¤Ï̤¤¿Í¤Ç¤¢¤í¤¦¡£¤É¤¦¤«¤Í¡©")
(if (yes? kpc)
- (say knpc "I knew it! I've actually been expecting you.")
- (say knpc "[He clearly does not believe you] "
- "Really, you are too modest. "
- "I've been expecting you for some time.")))))
+ (say knpc "¤½¤¦¤À¤È»×¤Ã¤¿¡ª·¯¤òÂԤäƤ¤¤¿¤è¡£")
+ (say knpc "¡ÎÈà¤ÏÌÀ¤é¤«¤Ë¤¢¤Ê¤¿¤Î¸À¤¦¤³¤È¤ò¿®¤¸¤Æ¤¤¤Ê¤¤¡£¡Ï"
+ "¤½¤¦¤«¡£Â¿¤¯¤ò¸ì¤é¤Ê¤¤¤Î¤À¤Ê¡£"
+ "¤º¤Ã¤È·¯¤òÂԤäƤ¤¤¿¡£")))))
(define (silas-default knpc kpc)
- (say knpc "I'm afraid I cannot help you with that."))
+ (say knpc "»ÄÇ°¤À¤¬¤½¤ì¤Ï¼ê½õ¤±¤Ç¤¤Ì¡£"))
(define (silas-name knpc kpc)
- (say knpc "Forgive me, I am Silas. And you, my friend, "
- "need no introduction."))
+ (say knpc "¼ºÎé¡£»ä¤Ï¥µ¥¤¥é¥¹¤À¡£"
+ "·¯¤Ï¡¢Í§¤è¡¢¸À¤ï¤º¤È¤â¤è¤¤¡£"))
(define (silas-ask-help knpc kpc)
(cond ((yes? kpc)
- (say knpc "I can't tell you how gratified I am to hear that. "
- "With you on my side we will bring a new age of hope and "
- "peace to the Shard. When you are ready to begin, "
- "I have a quest for you.")
+ (say knpc "¤½¤ÎÅú¤¨¤¬Ê¹¤±¤¿´î¤Ó¤ò¸À¤¤É½¤¹¤³¤È¤¬¤Ç¤¤Ê¤¤¡£"
+ "·¯¤¬»ä¤Î¦¤Ë¤Ä¤¤¤¿¤³¤È¤Ç¡¢¥·¥ã¥ë¥É¤Ë´õ˾¤È°ÂÄê¤Î¿·¤·¤¤»þÂå¤ò¤â¤¿¤é¤¹¤³¤È¤¬¤Ç¤¤ë¤À¤í¤¦¡£"
+ "½àÈ÷¤Ï¤Ç¤¤Æ¤¤¤ë¤«¡£·¯¤¬¤¹¤Ù¤¤³¤È¤¬¤¢¤ë¡£")
(silas-set-will-help! (kobj-gob-data knpc))
(make-allies knpc kpc)
)
(else
- (say knpc "Although success is most doubtful now, "
- "I shall have to do my best without you. "
- "It is a pity. You know, in the past, the appearance of a "
- "Wanderer always occurred at a pivotal moment in history. "
- "The actions -- or inactions -- of the Wanderer sometimes "
- "decided the fate of the world for centuries thereafter.")
+ (say knpc "º£¤Î¤Þ¤Þ¤Ç¤ÏÀ®¸ù¤Ïµ¿¤ï¤·¤¤¤¬¡¢"
+ "·¯¤Ê¤·¤ÇºÇÁ±¤ò¿Ô¤¯¤µ¤Í¤Ð¤Ê¤é¤Ê¤¤¡£"
+ "»ÄÇ°¤À¡£·¯¤ÏÃΤäƤ¤¤ë¤À¤í¤¦¡£"
+ "²áµî¤Ë̤¤¿Í¤¬¸½¤ì¤ë¤Î¤Ï¾ï¤ËÎò»Ë¤¬ÊѤï¤ë¤È¤¤Ç¤¢¤Ã¤¿¡£"
+ "̤¤¿Í¤Î¹Ô¤¤¡Ä¤¢¤ë¤¤¤Ï¹Ô¤ï¤Ê¤¤¤³¤È¡Ä¤¬»þ¤È¤·¤Æ¤½¤Î¸å¤Î¿ôɴǯ¤Î±¿Ì¿¤ò·è¤á¤¿¤Î¤À¡£")
)))
(define (silas-join knpc kpc)
- (say knpc "[Chuckling] Actually, I was hoping to convince you to join ME. "
- "I have a most difficult job ahead of me, but with your help I know it "
- "can be done. Will you help me?")
+ (say knpc "¡ÎÈà¤Ï¾Ð¤Ã¤¿¡£¡Ï¼ÂºÝ¡¢·¯¤ò»ä¤ÎÃç´Ö¤Ë²Ã¤¨¤è¤¦¤ÈÀâÆÀ¤¹¤ë¤Ä¤â¤ê¤À¤Ã¤¿¡£"
+ "»ä¤ÎÌܤÎÁ°¤Ë¤Ï¶Ë¤á¤Æº¤Æñ¤Ê»Å»ö¤¬¤¢¤ë¡£¤À¤¬¡¢·¯¤ÎÎϤȶ¦¤Ë¤¢¤ì¤ÐÀ®¤·¿ë¤²¤é¤ì¤ë¤Ç¤¢¤í¤¦¡£"
+ "»ä¤Î¼ê½õ¤±¤ò¤·¤Æ¤ß¤Ì¤«¡©")
(silas-ask-help knpc kpc)
)
(define (silas-job knpc kpc)
- (say knpc "My goal is to bring a new golden age to the Shard. "
- "Many obstacles lie before me, "
- "and I greatly need someone with your talents. "
- "Will you help me, Wanderer? I cannot do this without you.")
+ (say knpc "»ä¤ÎÌÜɸ¤Ï¤³¤Î¥·¥ã¥ë¥É¤Ë¿·¤·¤¤²«¶â»þÂå¤ò¤â¤¿¤é¤¹¤³¤È¤À¡£"
+ "¿¤¯¤Î¾ã³²¤¬»ä¤ÎÁ°¤Ë¤Ï²£¤¿¤ï¤Ã¤Æ¤¤¤ë¡£"
+ "¤½¤·¤Æ¤³¤ÎÌÜŪ¤Î¤¿¤á¤Ë¤ÏºÍǽ¤¢¤ë¼Ô¤¬É¬ÍפÀ¡£"
+ "̤¤¿Í¤è¡£»ä¤Î¼ê½õ¤±¤ò¤·¤Æ¤ß¤Ì¤«¡©·¯¤¬¤¤¤Ê¤±¤ì¤ÐÀ®¤·¿ë¤²¤é¤ì¤Ê¤¤¡£")
(silas-ask-help knpc kpc)
)
(define (silas-help knpc kpc)
- (say knpc "Will you help me in my task?")
+ (say knpc "»ä¤Î¼ê½õ¤±¤ò¤·¤Æ¤ß¤Ì¤«¡©")
(silas-ask-help knpc kpc)
)
(define (silas-bye knpc kpc)
- (say knpc "Farewell, Wanderer, and good fortune!"))
+ (say knpc "¤µ¤è¤¦¤Ê¤é¡¢Ì¤¤¿Í¡¢¤½¤·¤Æ¹¬±¿¤ò¡ª"))
;; Tier 2
(define (silas-expe knpc kpc)
- (say knpc "Yes, I have heard of your coming. "
- "I knew that sooner or later you would appear. "
- "I have studied the history of the Wanderers quite extensively."))
+ (say knpc "¤½¤¦¤À¡£·¯¤¬Í褿¤³¤È¤Ïʹ¤¤¤Æ¤¤¤¿¡£"
+ "ÃÙ¤«¤ìÁᤫ¤ì·¯¤¬¸½¤ì¤ë¤³¤È¤Ï¤ï¤«¤Ã¤Æ¤¤¤¿¡£"
+ "̤¤¿Í¤ÎÎò»Ë¤Ë¤Ä¤¤¤Æ¤ÏÉý¹¤¯Ä´ºº¤·¤Æ¤¤¤ë¡£"))
(define (silas-hist knpc kpc)
- (say knpc "When the library above was burnt most of the archives were lost. "
- "I'm afraid the best record of the Wanderers is now in this feeble book. "
- "[He taps his head]"))
+ (say knpc "ÃϾå¤Î¿Þ½ñ´Û¤Ï¾Æ¤±Íî¤Á¡¢ÂçȾ¤ÎµÏ¿¤¬¼º¤ï¤ì¤Æ¤·¤Þ¤Ã¤¿¡£"
+ "̤¤¿Í¤ÎµÏ¿¤Ï¤³¤³¤Ë¤¢¤ë¤ï¤º¤«¤ÊËܤ˻ĤäƤ¤¤ë¤À¤±¤«¤âÃΤì¤Ì¡£"
+ "¡ÎÈà¤ÏƬ¤ò¿¶¤Ã¤¿¡£¡Ï"))
(define (silas-wand knpc kpc)
- (say knpc "All Wanderers arrive through the Shrine Gate, as you did. But did you know there is another Gate?")
+ (say knpc "Á´¤Æ¤Î̤¤¿Í¤Ïº×ÃŤÎÌç¤òÄ̤äÆÍ褿¡£·¯¤Î¤è¤¦¤Ë¤À¡£¤À¤¬¡¢Ê̤ÎÌ礬¤¢¤ë¤³¤È¤òÃΤäƤ¤¤ë¤«¤Í¡©")
(if (yes? kpc)
- (say knpc "You are well-learned already! Of course I am speaking of the Demon Gate.")
- (say knpc "Indeed there is. It is known as the Demon Gate.")))
+ (say knpc "¤è¤¯¤ï¤«¤Ã¤Æ¤¤¤ë¤Ê¡£¤â¤Á¤í¤ó°Ëâ¤ÎÌç¤Î¤³¤È¤À¡£")
+ (say knpc "¤½¤ì¤Ï³Î¤«¤Ë¸ºß¤¹¤ë¡£°Ëâ¤ÎÌç¤È¤·¤ÆÃΤé¤ì¤Æ¤¤¤ë¤â¤Î¤À¡£")))
(define (silas-demo knpc kpc)
- (say knpc "For a long time the Demon Gate connected the Shard to other worlds. "
- "This was a golden age of progress and enlightenment, "
- "when Wizards from this world and others would freely mingle, "
- "sharing knowledge and commerce.")
+ (say knpc "±ó¤¤ÀΡ¢°Ëâ¤ÎÌç¤Ï¥·¥ã¥ë¥É¤ÈÊ̤ÎÀ¤³¦¤ò·ë¤ó¤Ç¤¤¤¿¡£"
+ "¤½¤ì¤ÏÃΤȿÊÊâ¤Î²«¶â»þÂå¤Ç¡¢"
+ "Ëâ½Ñ»Õ¤¿¤Á¤Ï¤³¤ÎÀ¤³¦¤ÈÊ̤ÎÀ¤³¦¤ò¼«Í³¤Ë¹Ô¤Í褷"
+ "Ã챤Èʪ¤ò¶¦Í¤·¤Æ¤¤¤¿¡£")
(prompt-for-key)
- (say knpc "But eventually, trouble began to brew. "
- "One of the other worlds began to conquer the others, "
- "using the gate to move its armies. For fear that the Shard also would "
- "be invaded our Wizards sealed the Demon Gate with eight locks, and divided the "
- "keys among themselves for safe-keeping."))
+ (say knpc "¤À¤¬¡¢ºÇ½ªÅª¤Ë¤ÏÌäÂ꤬µ¯¤³¤ê»Ï¤á¤¿¡£"
+ "¤¢¤ëÊ̤ÎÀ¤³¦¤Î¼Ô¤¬¡¢Ìç¤ò»È¤Ã¤Æ¼«¤é¤Îʼ¤òÆ°¤«¤·¡¢Â¾¤òÀ¬Éþ¤·»Ï¤á¤¿¤Î¤À¡£"
+ "¥·¥ã¥ë¥É¤Ë¿Ê¹¶¤µ¤ì¤ë¤³¤È¤ò¶²¤ì¤¿Ëâ½Ñ»Õ¤¿¤Á¤Ï¡¢°Ëâ¤ÎÌç¤ËȬ¤Ä¤ÎÉõ°õ¤ò»Ü¤·"
+ "Ȭ¤Ä¤Ëʬ¤±¤é¤ì¤¿¸°¤ò¼é¤ë¤³¤È¤Ë¤·¤¿¡£"))
(define (silas-key knpc kpc)
(if (any-in-inventory? kpc rune-types)
- (say knpc "The keys are special runes, like the one you already carry.")
- (say knpc "The keys are special runes. Unfortunately, they have been lost through the ages.")))
+ (say knpc "¸°¤Ï·¯¤¬»ý¤Ã¤Æ¤¤¤ë¤è¤¦¤ÊÆÃÊ̤ÊÀÐÈǤÀ¡£")
+ (say knpc "¸°¤ÏÆÃÊ̤ÊÀÐÈǤÀ¡£»ÄÇ°¤À¤¬¤½¤ì¤é¤Ï¤³¤Î»þÂå¤Ë¼º¤ï¤ì¤Æ¤·¤Þ¤Ã¤¿¡£")))
(define (silas-rune knpc kpc)
- (say knpc "I have made it my goal to recover all of the lost runes. Even if "
- "we choose to keep the Demon Gate locked forever, we should at least know that "
- "the runes are all accounted for and safely guarded. Don't you agree?")
+ (say knpc "»ä¤ÏÌÜŪ¤Î¤¿¤áÁ´¤Æ¤Î¼º¤ï¤ì¤¿ÀÐÈǤò¼è¤êÌᤵ¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£"
+ "²¾¤Ë°Ëâ¤ÎÌç¤ò±Ê±ó¤ËÉõ°õ¤¹¤ë¤³¤È¤òÁªÂò¤·¤¿¤È¤·¤Æ¤â¡¢"
+ "ÀÐÈǤιÔÊý¤òÃΤꡢ¤½¤·¤Æ°ÂÁ´¤Ë´ÉÍý¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£Æ±°Õ¤¹¤ë¤«¤Í¡©")
(if (yes? kpc)
- (say knpc "Of course, it is merely sound policy.")
- (say knpc "But consider if the runes were to fall into the wrong hands, "
- "or if some day we should need to evacuate the Shard, "
- "or if we needed to call on assistance from the other worlds? "
- "Surely it is good to have the option of opening the Demon Gate, "
- "even if we never intend to exercise it.")))
+ (say knpc "¤â¤Á¤í¤ó¤À¡£¤³¤ì¤Ï¤Þ¤Ã¤È¤¦¤ÊÊý¿Ë¤Ç¤¢¤í¤¦¡£")
+ (say knpc "¤·¤«¤·¹Í¤¨¤Æ¤ß¤è¡£¤â¤·ÀÐÈǤ¬°¤·¤¼Ô¤Î¼ê¤ËÍî¤Á¤¿¤é¡¢"
+ "¤â¤·¥·¥ã¥ë¥É¤òµî¤é¤Í¤Ð¤Ê¤é¤Ê¤¤¤È¤¤¬Í褿¤é¡¢"
+ "¤â¤·Ê̤ÎÀ¤³¦¤Î½õ¤±¤¬É¬Íפˤʤ俤Ȥ·¤¿¤é¡©"
+ "°Ëâ¤ÎÌç¤ò·è¤·¤Æ³«¤±¤ë¤Ä¤â¤ê¤¬¤Ê¤¤¤È¤·¤Æ¤â¡¢ÁªÂò»è¤¬¤¢¤ë¤Î¤Ï¤è¤¤¤³¤È¤À¤í¤¦¡£")))
;; Accursed, Wise
(define (silas-accu knpc kpc)
- (say knpc "[He chuckles] Yes, I am Accursed. Unfortunately that name has come "
- "to be demonized by the popular imagination. All sorts of wild tales abound "
- "regarding our supposed activities. I assure you that none of them are true. But "
- "we cannot defend ourselves by revealing what we really do, for we are all sworn "
- "to secrecy."))
+ (say knpc "¡ÎÈà¤Ï¾Ð¤Ã¤¿¡£¡Ï¤½¤ÎÄ̤ꡣ»ä¤Ï¼ö¤ï¤ì¤¿¼Ô¤À¡£"
+ "»ÄÇ°¤Ê¤³¤È¤Ë¡¢¤½¤ì¤Ï¿¤¯¤Î¼Ô¤¿¤Á¤Î°ËâŪ¤Ê¶õÁÛ¤«¤é¤¤¿¸Æ¤Ó̾¤À¡£"
+ "¤¢¤é¤æ¤ëÆÍÈô¤ÊÏäˤϲ桹¤Î³èÆ°¤¬´Ø¤ï¤Ã¤Æ¤¤¤ë¤È¤µ¤ì¤Æ¤¤¤ë¡£"
+ "»ä¤Ï¤½¤ì¤é¤ÏÁ´¤Æµ¶¤ê¤À¤ÈÃǸÀ¤¹¤ë¡£"
+ "¤·¤«¤·²æ¡¹¤Î¿¿¤Î¹Ô¤¤¤òÌÀ¤«¤¹¤³¤È¤Ç¼«¤é¤ÎÊÛ¸î¤ò¤¹¤ë¤³¤È¤Ï¤Ç¤¤Ê¤¤¡£"
+ "²æ¡¹¤Ï¤ß¤ÊÈëÌ©¤òÀÀ¤Ã¤Æ¤¤¤ë¤«¤é¤À¡£"))
(define (silas-secr knpc kpc)
- (say knpc "The rites of the Accursed are kept secret to protect them from "
- "profane people, and to protect foolish people from attempting them! They are "
- "sacred and dangerous, and not intended for the uninitiated. But I assure you, "
- "they do not involve anything harmful to innocents!"))
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¤Î¶µµÁ¤Ï³°Éô¤Î¼Ô¤Ë¤ÏÈëÌ©¤Ë¤µ¤ì¼é¤é¤ì¤Æ¤¤¤ë¡£"
+ "¤½¤·¤Æ¶ò¤«¤Ê¼Ô¤¬¤Þ¤Í¤è¤¦¤È¤¹¤ë¤³¤È¤òËɤ¤¤Ç¤¤¤ë¡ª"
+ "¿ÀÀ»¤Ç´í¸±¡¢¤½¤·¤Æ̵ÃΤʼԤˤÏ̵ÍѤΤâ¤Î¤À¡£"
+ "¤À¤¬ÃǸÀ¤·¤è¤¦¡£¤½¤ì¤Ï²¿¤âÃΤé¤Ê¤¤¿Í¡¹¤ò´¬¤¹þ¤à¤â¤Î¤Ç¤Ï¤Ê¤¤¡ª"))
(define (silas-wise knpc kpc)
- (say knpc "Ah, yes. The so-called Wise. You know, they are part of a "
- "venerable and useful tradition. At least, it was a useful tradition in bygone "
- "days. [Sigh] I fear that now the Wise are as often an impediment to the Shard as "
- "they are a help. Consider this whole business with Absalot."))
+ (say knpc "¤¢¤¢¡¢¤½¤¦¤À¡£¤¤¤ï¤æ¤ë¸¼Ô¡£·¯¤ÏÃΤäƤ¤¤ë¤Ç¤¢¤í¤¦¡£"
+ "Èà¤é¤Ïº·É¤¹¤Ù¤¡¢¤½¤·¤Æ²ÁÃͤΤ¢¤ëÅÁÅý¤Î°ì´Ä¤À¡£¾¯¤Ê¤¯¤È¤â²á¤®¤·Æü¤Î²ÁÃͤ¢¤ëÅÁÅý¤Ç¤¢¤Ã¤¿¡£"
+ "¡Î¤¿¤á©¡Ïº£Æü¤Î¸¼Ô¤Ï¥·¥ã¥ë¥É¤ÎÎÏź¤¨¤À¤±¤Ç¤Ê¤¯¡¢Ë¸¤²¤Ë¤â¤Ê¤Ã¤Æ¤¤¤ë¡£"
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤Ç¤Î¹Ô¤¤¤ò¹Í¤¨¤Æ¤ß¤¿¤Þ¤¨¡£"))
(define (silas-absa knpc kpc)
- (say knpc "By now you are no doubt familiar with the story. The Enchanter, in "
- "misguided jealousy of our secrets, is obsessed with eliminating the "
- "Accursed. The Stewardess of Glasdrin is hungry for power, and dreams of a "
- "military empire. She plans to conquer or raze the cities of the Shard one by "
- "one, Absalot was merely the first and most convenient target. She easily "
- "manipulated the evidence against Absalot and convinced the other cities and the "
- "Enchanter to destroy it. The rest is history."))
+ (say knpc "º£¤Ê¤é·¯¤Ï´Ö°ã¤¤¤Ê¤¯Íý²ò¤·¤Æ¤¤¤ë¤À¤í¤¦¡£"
+ "ËâÆ»»Õ¡¢²æ¡¹¤Î¶µ¤¨¤Ë´Ö°ã¤Ã¤¿Åʤߤò»ý¤Ä¼Ô¤Ï¼ö¤ï¤ì¤¿¼Ô¤òÌǤܤ¹¤³¤È¤Ë¿´¤òÃ¥¤ï¤ì¤Æ¤ª¤ê¡¢"
+ "¥°¥é¥¹¥É¥ê¥ó¤ÎÅý¼£¼Ô¤ÏÎϤ˵²¤¨·³»öÄë¹ñ¤ÎÌ´¤òÊú¤¤¤Æ¤¤¤ë¡£"
+ "Èà½÷¤Ï¥·¥ã¥ë¥É¤ÎÄ®¤ò°ì¤Ä°ì¤ÄÀ¬Éþ¤¹¤ë¤«ÌǤܤ¹¤Ä¤â¤ê¤À¡£"
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤ÏºÇ¤âÅÔ¹ç¤Î¤è¤¤ºÇ½é¤ÎÌÜɸ¤À¤Ã¤¿¤Ë²á¤®¤Ê¤¤¡£"
+ "Èà½÷¤Ï´Êñ¤Ë¾Úµò¤òºî¤ê¾å¤²¡¢Â¾¤ÎÄ®¤ÈËâÆ»»Õ¤òÇ˲õ¤¹¤ë¤è¤¦Àâ¤Éú¤»¤¿¡£"
+ "¸å¤ÏÃΤäƤÎÄ̤ê¤À¡£"))
;; Philosophy
(define (silas-evil knpc kpc)
- (say knpc "What, really, is evil? Mind you, I am not saying that evil does "
- "not exist. I simply ask you to challenge your conventional notions of what is "
- "evil. If an authoritative figure tells us something is wrong, shall we take "
- "them at their word? Are the authorities not people like us, with their own "
- "agendas? Everyone acts from their own selfish motives, you know, whether or not "
- "they admit it.")
+ (say knpc "°¤È¤ÏËÜÅö¤Ï²¿¤Ê¤Î¤«¡©Ç°¤Î¤¿¤á¤Ë¸À¤¦¤¬¡¢»ä¤Ï°¤Ï¸ºß¤·¤Ê¤¤¤È¸À¤Ã¤Æ¤¤¤ë¤Î¤Ç¤Ï¤Ê¤¤¡£"
+ "¤¿¤À°¤È¤Ï²¿¤«¤È¤¤¤¦¤³¤ì¤Þ¤Ç¤Î·¯¤Î´ÑÇ°¤òÌ䤦¤Æ¤¤¤ë¤Î¤À¡£"
+ "¤â¤·¸¢°Ò¤Î¤¢¤ë¼Ô¤¬²æ¡¹¤Ë²¿¤¬°¤Ç¤¢¤ë¤«¤ò¸À¤Ã¤¿¤Ê¤é¤Ð¡¢²æ¡¹¤Ï¤½¤Î¸ÀÍÕ¤ò¤½¤Î¤Þ¤Þ¼õ¤±Æþ¤ì¤ë¤Ù¤¤À¤í¤¦¤«¡©"
+ "²æ¡¹¤È¤Ï°ã¤¦¸¢°Ò¤Î¤¢¤ë¼Ô¤¿¤Á¤Ï¡¢Èà¤é¼«¿È¤ÎÌÜŪ¤¬¤¢¤ë¤Î¤Ç¤Ï¤Ê¤¤¤«¡©"
+ "¤¢¤é¤æ¤ë¹ÔÆ°¤Ï¡¢¤½¤ì¤òǧ¤á¤è¤¦¤Èǧ¤á¤Þ¤¤¤È¡¢³Æ¡¹¤ÎÍø¸ÊŪ¤ÊÆ°µ¡¤Ë´ð¤Å¤¤¤Æ¤¤¤ë¡£")
(prompt-for-key)
- (say knpc "And indeed, Wanderer, that is as it should be! All should strive "
- "after their own interests, for that is the natural way of things. All Men are "
- "pieces in a game they cannot avoid playing. To deny the game, to deny one's own "
- "part in it, to accept the belief that one's own interests are not as important "
- "as those of another, these are all deceptions propogated by one's opponents."))
+ (say knpc "¤½¤·¤Æ¼ÂºÝ¤Ë¡¢Ì¤¤¿Í¤è¡¢¤½¤¦¤¢¤ë¤Ù¤¤Ê¤Î¤À¡ª"
+ "Á´¤Æ¤Î¼Ô¤Ï¼«¿È¤ÎÍø±×¤Î¤¿¤á¤ËÀ臘¤Ù¤¤À¡£¤½¤ì¤¬¼«Á³¤Ê¿¶¤ëÉñ¤¤¤Ç¤¢¤ë¡£"
+ "¿Í¤Ï³§¡¢È´¤±½Ð¤¹¤³¤È¤¬¤Ç¤¤Ê¤¤¥²¡¼¥à¤Î¶ð¤Ê¤Î¤À¡£"
+ "¥²¡¼¥à¤òµñÈݤ¹¤ë¤³¤È¤Ï¼«¤é¤òµñÈݤ¹¤ë¤³¤È¤Ç¤¢¤ê¡¢"
+ "¼«Ê¬¤ÎÍø±×¤è¤ê¾¼Ô¤ÎÍø±×¤òÍ¥À褹¤Ù¤¤È¤¤¤¦¹Í¤¨¤Ï¡¢Á´¤Æ¶¥ÁèÁê¼ê¤Îή¤·¤¿±³¤Ç¤¢¤ë¡£"))
(define (silas-good knpc kpc)
- (say knpc "You ask me of good, and I ask you in return, what is it that you "
- "most desire? A thing has value only when it is desired by Men. How ironic, that "
- "Men are taught to suppress their desires, to quench them with forbearance, as "
- "if they were evil because they were desires, when in fact the opposite is true! "
- "I tell you a great secret, it is the desire of certain Men that all other Men "
- "quench their desires!"))
+ (say knpc "Á±¤Ë¤Ä¤¤¤Æ¿Ò¤Í¤Æ¤¤¤ë¤Ê¤é¤ÐÅú¤¨¤è¤¦¡£·¯¤¬°ìÈÖÍߤ·¤Æ¤¤¤ë¤â¤Î¤Ï²¿¤À¡©"
+ "ʪ»ö¤ÏÍߤ¹¤ë¼Ô¤¬¤¤¤Æ½é¤á¤Æ²ÁÃͤò»ý¤Ä¡£"
+ "¤À¤¬µÕ¤Ë¿Í¤ÏÍߤ¹¤ë¤³¤È¤Ï°¤Ç¤¢¤ë¤«¤Î¤è¤¦¤Ë¡¢Íß˾¤òÍÞ¤¨¿ÉÊú¤¹¤ë¤è¤¦¶µ¤¨¤é¤ì¤Æ¤¤¤ë¡£"
+ "¤½¤ì¤ÏÁ´¤¯¤ÎµÕ¤Ç¤¢¤ë¡ª"
+ "·¯¤Ë½ÅÂç¤ÊÈëÌ©¤ò¶µ¤¨¤è¤¦¡£¤¢¤ë¼ï¤Î¼Ô¤¿¤Á¤ÎÍß˾¤Ï¡¢Â¾¤Î¼Ô¤¿¤Á¤ÎÍß˾¤ò²¡¤µ¤¨¹þ¤à¤³¤È¤À¡ª"))
(define (silas-desi knpc kpc)
- (say knpc "Yes, as the spirit animates the flesh, so desire animates the "
- "spirit. Without it the spirit is listless and void. This is the first step of "
- "the Accursed, to acknowledge their own desires as what they are: the ultimate "
- "good, worthy of all sacrifice and all striving."))
+ (say knpc "¤½¤¦¤À¡£º²¤¬ÆùÂΤòÆ°¤«¤¹¤è¤¦¤Ë¡¢Íß˾¤¬º²¤òÆ°¤«¤¹¡£"
+ "Íß˾¤¬¤Ê¤±¤ì¤Ðº²¤Ï̵µ¤ÎϤǶõµõ¤À¡£"
+ "¼ö¤ï¤ì¤¿¼Ô¤ÎÂè°ìÊâ¤Ï¡¢¸Ê¤ÎÍß˾¡¢¤Ä¤Þ¤êµæ¶Ë¤ÎÁ±¡¢Á´¤Æ¤òµ¾À·¤Ë¤·¡¢Á´¤Æ¤òÅÒ¤±¤ë²ÁÃͤΤ¢¤ë¤â¤Î¤Ï²¿¤«¤òÃΤ뤳¤È¤À¡£"))
(define (silas-sacr knpc kpc)
- (say knpc "The doctrine of the Accursed holds that sacrifice is the ladder of "
- "desire. Sacrifice is the inevitable outcome of choice, for not all things are "
- "possible! To make the object of desires possible, other possibilities must be "
- "denied. As the branch of a tree can be cut by shears, so each choice one makes "
- "shears off an entire branch of the future. That is what we mean by sacrifice: "
- "the pruning of the tree of possibilities."))
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¤Î¶µµÁ¤Ç¤Ïµ¾À·¤ÏÍß˾¤Î¤Ï¤·¤´¤Ç¤¢¤ë¡£"
+ "µ¾À·¤ÏÁªÂò¤ÎÈò¤±¤é¤ì¤Ê¤¤·ë²Ì¤À¡£Á´¤Æ¤ò¼ê¤Ë¤¹¤ë¤³¤È¤Ï¤Ç¤¤Ê¤¤¡ª"
+ "¤¢¤ëÍß˾¤Î¼Â¸½¤òÌܻؤ¹¤Ê¤é¡¢Â¾¤Î²ÄǽÀ¤Ï¼º¤ï¤ì¤ë¡£"
+ "Ìڤλޤ¬¤Ï¤µ¤ß¤Ë¤è¤Ã¤ÆÀÚ¤êÍî¤È¤µ¤ì¤ë¤è¤¦¤Ë¡¢¿ÍÀ¸¤Î¹Ô¤Àè¤Î»Þʬ¤«¤ì¤âÁªÂò¤ÎÅÙ¤ËÀÚ¤êÍî¤È¤µ¤ì¤ë¡£"
+ "¤½¤ì¤¬²æ¡¹¤Îµ¾À·¡¢²ÄǽÀ¤ÎÌڤλޤò´¢¤ë¤³¤È¡¢¤Î°ÕÌ£¤À¡£"))
;; People
(define (silas-ench knpc kpc)
- (say knpc "'Tis a pity he is such a foe to the Accursed. But I'm afraid he is "
- "old and inflexible, and once he has decided something is evil there is no "
- "changing his mind. Unfortunately his notions of good and evil are misguided and "
- "unworkable."))
+ (say knpc "Èब¤¢¤Î¤è¤¦¤Ê¼ö¤ï¤ì¤¿¼Ô¤ÎŨ¤Ç¤¢¤ë¤³¤È¤Ï»ÄÇ°¤À¡£"
+ "¤À¤¬¡¢Èब¸Å¤¯¡¢Í»Ä̤¬Íø¤«¤º¡¢¤½¤·¤Æ°ìÅÙ°¤È·è¤á¤¿¤â¤Î¤Ï¿´¤ÎÃæ¤Ç·è¤·¤ÆÊѤ¨¤Ê¤¤¡¢¤È¤¤¤¦¤³¤È¤ò»ä¤Ï¶²¤ì¤Æ¤¤¤ë¡£"
+ "ÉÔ¹¬¤Ê¤³¤È¤ËÈà¤ÎÁ±¤È°¤Î´ÑÇ°¤Ï¸í¤Ã¤Æ¤ª¤ê¡¢¤«¤Ä¼Â¸½ÉÔ²Äǽ¤À¡£"))
(define (silas-deni knpc kpc)
- (say knpc "Dennis is an earnest but frankly unimaginative young man."))
+ (say knpc "¥Ç¥Ë¥¹¤Ï¿¿ÌÌÌܤÀ¤¬¡¢Î¨Ä¾¤Ë¸À¤Ã¤ÆÁÛÁüÎϤ˷礱¤ë¼ã¤¤ÃˤÀ¡£"))
(define (silas-sele knpc kpc)
- (say knpc "Selene is a talented young woman. "
- "Unfortunately her powers will always be inhibited by her insatiable "
- "cruelty."))
+ (say knpc "¥»¥ì¥Í¤ÏºÍǽ¤Î¤¢¤ë¼ã¤¤½÷À¤À¡£"
+ "ÉÔ¹¬¤Ê¤³¤È¤Ë¡¢Èà½÷¤ÎÎϤÏË°¤¯¤Ê¤»ÄµÔ¤µ¤Ë¾ï¤ËÍÞ°µ¤µ¤ì¤Æ¤¤¤ë¡£"))
;; Quest-related
(define (silas-ques knpc kpc)
rune-types)))
(define (give-last-rune)
- (say knpc "I see you have all save 1 of the runes. Please forgive me for "
- "a small deception, but I have hidden the last rune here in Old "
- "Absalot. Consider it one last test for you to find it.")
+ (say knpc "ºÇ¸å¤Î°ì¤Ä¤ò½ü¤¯Á´¤Æ¤ÎÀÐÈǤò»ý¤Ã¤Æ¤¤¤ë¤è¤¦¤À¤Ê¡£"
+ "¾¯¤··¯¤òñÙ¤·¤Æ¤¤¤¿¤³¤È¤òµö¤·¤ÆÍߤ·¤¤¡£ºÇ¸å¤Î°ì¤Ä¤Ï»ä¤¬¤³¤Î¸Å¥¢¥Ö¥µ¥í¥Ã¥È¤Ë±£¤·¤¿¤Î¤À¡£"
+ "¤½¤ì¤ò¸«¤Ä¤±¤ë¤Î¤¬·¯¤ÎºÇ¸å¤Î»îÎý¤À¤È¹Í¤¨¤Æ¤¯¤ì¡£")
(quest-data-update-with 'questentry-rune-s 'silasinfo 1 (quest-notify nil))
(quest-data-assign-once 'questentry-rune-s)
)
(define (continue-quest)
- (say knpc "I see you are still missing at least one rune. Don't give up, "
- "Wanderer! Ask among the Wise, delve into the deeps, search far and wide."))
+ (say knpc "ºÇ¸å¤Î°ì¤Ä¤¬¸«¤Ä¤«¤é¤Ê¤¤¤è¤¦¤À¤Ê¡£Ì¤¤¿Í¤è¡¢¤¢¤¤é¤á¤ë¤Ê¡ª"
+ "¸¼Ô¤Ë¿Ò¤Í¡¢¿¼Ê¥¤òõ¤ê¡¢±ó¤¯¹¤¯Ãµ¤¹¤Î¤À¡£"))
(define (end-quest)
(quest-done! quest #t)
- (say knpc "Well done, Wanderer! You have collected all the lost runes, "
- "a feat worthy of legend. Well done, indeed!")
+ (say knpc "¤è¤¯¤ä¤Ã¤¿¡¢Ì¤¤¿Í¤è¡£¼º¤ï¤ì¤¿ÀÐÈÇ¡¢ÅÁÀâ¤Î±É¸÷¤Î»þÂå¤ÏÁ´¤Æ¤½¤í¤Ã¤¿¡£"
+ "ËÜÅö¤Ë¤è¤¯¤ä¤Ã¤¿¡ª")
(prompt-for-key)
- (say knpc "Now that all the runes are recovered, it is imperative that "
- "they be kept safe. Forgive me for being overly suspicious, but I do not trust "
- "their keeping to the Wise, not even to the Enchanter himself.")
+ (say knpc "º£¡¢Á´¤Æ¤ÎÀÐÈǤ¬Ìá¤Ã¤¿¡£°ÂÁ´¤ËÊݴɤµ¤ì¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£"
+ "µ¿¤¤¿¼¤¤°Õ¸«¤Ç¤¹¤Þ¤Ê¤¤¤¬¡¢»ä¤Ï¸¼Ô¤ÎÀÐÈǤδÉÍý¤ò¿®ÍѤǤ¤Ê¤¤¡£"
+ "ËâÆ»»Õ¼«¿È¤Ç¤µ¤¨¤½¤¦¤À¤í¤¦¡£")
(prompt-for-key)
- (say knpc "I know what you are thinking, my friend, but perish the thought! "
- "I could not possibly keep them here with me. Nor do I want to. "
- "No, I have something much more daring in mind. ")
+ (say knpc "·¯¤¬²¿¤ò¹Í¤¨¤Æ¤¤¤ë¤«¤Ï¤ï¤«¤ë¡¢Í§¤è¡¢¤À¤¬¤½¤¦¤Ç¤Ï¤Ê¤¤¡ª"
+ "¤³¤³¤Ç»ä¤¬´ÉÍý¤¹¤ë¤³¤È¤Ê¤ÉÅþÄì¤Ç¤¤Ê¤¤¡£¤½¤·¤Æ˾¤ó¤Ç¤â¤¤¤Ê¤¤¡£"
+ "¤½¤¦¤Ç¤Ï¤Ê¤¯¡¢¤â¤Ã¤ÈÂçÃÀ¤Ê¹Í¤¨¤¬¤¢¤ë¤Î¤À¡£")
(prompt-for-key)
- (say knpc "Wanderer, the time has come to grasp the nettle. Indeed, I "
- "sense that this is what brought you to the Shard. Take the keys, find the Gate, "
- "and unlock it. Face what lies within. Be bold, and you will usher in a New "
- "Age. Will you do this?")
+ (say knpc "̤¤¿Í¤è¡£¿Ê¤à¤Ù¤»þ¤¬Í褿¡£"
+ "¤³¤Î¤¿¤á¤Ë·¯¤¬¥·¥ã¥ë¥É¤Ë¸Æ¤Ð¤ì¤¿¤Î¤À¤È»ä¤Ï»×¤Ã¤Æ¤¤¤ë¡£"
+ "¸°¤ò¼ê¤Ë¼è¤ê¡¢Ìç¤òõ¤·¡¢¤½¤ÎÉõ°õ¤ò²ò¤¯¡£¤½¤Î¸þ¤³¤¦¤Ë¤¢¤ë¤â¤Î¤ÈÂÐÌ̤¹¤ë¡£"
+ "ͦµ¤¤ò¼¨¤»¡£¤½¤·¤Æ¿·¤·¤¤»þÂå¤ÎÀ褬¤±¤È¤Ê¤ë¤Î¤À¡£¤ä¤Ã¤Æ¤¯¤ì¤ë¤«¡©")
(if (yes? kpc)
- (say knpc "Then I will tell you a great secret hidden even from the "
- "Wise: the gods yet live, as do their foes. I know not which you will face. But "
- "this I know: their foes sealed the Gate. ")
- (say knpc "[His shoulders slump] It was not your burden to bear, "
- "Wanderer, for you are a stranger to this "
- "world. Keep the keys safe, at least, if you will not change your mind.")))
+ (say knpc "¤Ê¤é¤Ð¸¼Ô¤Ë¤â±£¤µ¤ì¤¿½ÅÂç¤ÊÈëÌ©¤ò¶µ¤¨¤è¤¦¡§¿À¤Ï¤Þ¤ÀÀ¸¤¤Æ¤¤¤ë¡¢¤½¤ÎŨ¤âƱ¤¸¡£"
+ "·¯¤¬²¿¤ò¸«¤ë¤«¤Ï¤ï¤«¤é¤Ê¤¤¡£¤À¤¬¡¢¤³¤Î¤³¤È¤Ï¤ï¤«¤Ã¤Æ¤¤¤ë¡§Èà¤é¤ÎŨ¤¬Ìç¤òÉõ°õ¤·¤¿¡£")
+ (say knpc "¡ÎÈà¤Ï¸ª¤òÍî¤È¤·¤¿¡£¡Ï¤³¤ì¤Ï·¯¤¬É餦¤Ù¤¤³¤È¤Ç¤Ï¤Ê¤¤¡¢Ì¤¤¿Í¤è¡¢·¯¤Ï¤³¤ÎÀ¤³¦¤Î¤è¤½¼Ô¤À¡£"
+ "¾¯¤Ê¤¯¤È¤â¡¢¸°¤Ï°ÂÁ´¤ËÊݴɤ·¤Æ¤ª¤¤Ê¤µ¤¤¡£·¯¤¬¹Í¤¨¤òÊѤ¨¤ë¤Ä¤â¤ê¤¬¤Ê¤¤¤Î¤Ç¤¢¤ì¤Ð¡£")))
(define (offer-quest)
- (say knpc "Wanderer, I have a most important task for you: find the eight "
- "rune-keys which lock the Demon Gate. Will you do this?")
+ (say knpc "̤¤¿Í¤è¡£·¯¤¬¤¹¤Ù¤ºÇ¤â½ÅÍפʻŻö¤¬¤¢¤ë¡£"
+ "°Ëâ¤ÎÌç¤òÉõ°õ¤¹¤ëȬ¤Ä¤Î¸°¤ÎÀÐÈǤòõ¤»¡£¤ä¤Ã¤Æ¤¯¤ì¤ë¤«¡©")
(if (yes? kpc)
(begin
(quest-accepted! quest #t)
(cond
((has-all-runes?)
- (say knpc "You already have the runes?")
+ (say knpc "¤¹¤Ç¤ËÀÐÈǤò»ý¤Ã¤Æ¤¤¤ë¤Ê¡©")
(prompt-for-key)
(end-quest)
)
((missing-only-s-rune?)
(give-last-rune))
(#t
- (say knpc "I know I can count on you. There is a most clever man, "
- "an Alchemist, who lives on Oparine. Perhaps you know of him already. He would "
- "be a good place to start."))
+ (say knpc "Íê¤ê¤Ë¤Ê¤ê¤½¤¦¤Ê¼Ô¤òÃΤäƤ¤¤ë¡£ºÇ¤â¸¤¤ÃË¡¢¥ª¥Ñ¡¼¥ê¥ó¤ÎÏ£¶â½Ñ»Õ¤À¡£"
+ "¤â¤·¤«¤¹¤ë¤È¤¹¤Ç¤ËÈà¤òÃΤäƤ¤¤ë¤«¤âÃΤì¤Ê¤¤¤¬¡£"
+ "Èà¤òºÇ½é¤Ë¿Ò¤Í¤ë¤È¤è¤¤¤À¤í¤¦¡£"))
))
- (say knpc "It is imperative that we find them. I am disappointed, my "
- "friend, but no doubt you have your reasons.")))
+ (say knpc "¤½¤ì¤ò¸«¤Ä¤±¤ë¤Î¤Ï²æ¡¹¤ÎµÁ̳¤À¡£¼ºË¾¤·¤¿¡¢Í§¤è¡£"
+ "¤À¤¬¡¢·¯¤Ë¤Ï·¯¤ÎÍýͳ¤¬¤¢¤ë¤³¤È¤Ïµ¿¤ï¤Ê¤¤¡£")))
(if (silas-will-help? gob)
(if (quest-done? quest)
- (say knpc "Seek the Demon Gate!")
+ (say knpc "°Ëâ¤ÎÌç¤òõ¤»¡ª")
(if (quest-accepted? quest)
(if (has-all-runes?)
(end-quest)
(give-last-rune)
(continue-quest)))
(offer-quest)))
- (say knpc "Join me, and there will be quests and glory in abundance. "
- "You will become the most famous Wanderer -- indeed, "
- "the greatest hero of the Shard -- for all time."))
+ (say knpc "»ä¤ÎÃç´Ö¤Ë¤Ê¤ê¤Ê¤µ¤¤¡£¤½¤³¤Ë¤Ï¿¤¯¤Î¤¹¤Ù¤¤³¤È¤È±É¸÷¤¬¤¢¤ë¡£"
+ "·¯¤Ï¤¢¤é¤æ¤ë»þÂå¤ÇºÇ¤â̾¹â¤¤Ì¤¤¿Í¡Ä¥·¥ã¥ë¥É¤ÇºÇ¤â°ÎÂç¤Ê±Ñͺ¡Ä¤Ë¤Ê¤ì¤ë¤Ç¤¢¤í¤¦¡£"))
))
(define (pissed-off-silas knpc kpc)
)
(define (silas-noss knpc kpc)
- (say knpc "[His face freezes] How did you learn that name, friend?")
+ (say knpc "¡ÎÈà¤Îɽ¾ð¤¬Åà¤ê¤Ä¤¤¤¿¡£¡Ïͧ¤è¡¢¤É¤Î¤è¤¦¤Ë¤·¤Æ¤½¤Î̾¤òÃΤä¿¡©")
(kern-conv-get-reply kpc)
- (say knpc "Have you been nosing around in other people's property?")
+ (say knpc "¾¤Î¼Ô¤¿¤Á¤Ë¤â¤½¤Î¤è¤¦¤ËÓ̤®¤Þ¤ï¤Ã¤Æ¤¤¤ë¤Î¤«¡©")
(if (yes? kpc)
- (say knpc "How unfortunate. I'm afraid it is time for you to leave.")
- (say knpc "I think you have. I think you have been misbehaving, "
- "and now you are telling a fib. You are not welcome here. "
- "Leave at once."))
+ (say knpc "²¿¤È¤¤¤¦¤³¤È¤À¡£»ÄÇ°¤À¤¬·¯¤ÈÊ̤ì¤ë¤È¤¤¬Í褿¤è¤¦¤À¡£")
+ (say knpc "¤½¤¦¤Ç¤¢¤í¤¦¡£·¯¤Î¹Ô¤¤¤Ï̵ºîË¡¤Ç¡¢¤½¤·¤Æº£¤Ï¾®¤µ¤Ê±³¤ò¤Ä¤¤¤Æ¤¤¤ë¡£"
+ "·¯¤Ï¤³¤³¤Ç¤Ï´¿·Þ¤µ¤ì¤Ê¤¤¡£"
+ "¤¿¤À¤Á¤Ëµî¤ê¤Ê¤µ¤¤¡£"))
(pissed-off-silas knpc kpc)
(kern-conv-end)
)
(bind
(kern-mk-char
'ch_silas ; tag
- "Silas" ; name
+ "¥µ¥¤¥é¥¹" ; name
silas-species ; species
silas-occ ; occ
s_silas ; sprite
(define (check-wriggle kactor)
(cond ((null? (kern-char-get-arms kactor)) #t)
(else
- (kern-log-msg "Must unready arms!")
+ (kern-log-msg "ÁõÈ÷¤ò³°¤µ¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡ª")
#f
)))
(define sk_jump
- (mk-skill "Jump" "Jump over impassable terrain"
+ (mk-skill "Ä·¤Ö" "Ä̤ì¤Ê¤¤¾ì½ê¤òÈô¤Ó±Û¤¨¤ë"
0
0
#f
))
(define sk_arm_trap
- (mk-skill "Arm Trap" "Allows character to use beartraps and caltrops"
+ (mk-skill "櫤ò»Å³Ý¤±¤ë" "¥È¥é¥Ð¥µ¥ß¤äÅ´É©¤ò»Å³Ý¤±¤ë"
0
0
#f
))
(define sk_sprint
- (mk-skill "Sprint" "Move quickly, in a straight line, for a short distance"
+ (mk-skill "Áö¤ë" "û¤¤Ä¾Àþ¤ò¤¹¤Ð¤ä¤¯°ÜÆ°¤¹¤ë"
0
0
#f
))
(define sk_wriggle
- (mk-skill "Wriggle" "Squeeze through tight spots"
+ (mk-skill "Ǧ¤Ó¹þ¤à" "¶¹¤¤¾ì½ê¤òÄ̤êÈ´¤±¤ë"
base-move-ap ;; ap
0 ;; mp
#f ;; wilderness?
(define sk_disarm_trap
;; fixme: should some special tools be required?
- (mk-skill "Disarm Trap" "Disarm a trap on a door or chest"
+ (mk-skill "櫤ò³°¤¹" "Èâ¤äÈ¢¤Î櫤ò³°¤¹"
0 ;; ap
0 ;; mp
#f ;; wilderness?
))
(define sk_stealth
- (mk-skill "Stealth" "Avoid detection"
+ (mk-skill "±£¤ì¤ë" "¸«¤Ä¤«¤é¤Ê¤¤¤è¤¦¤Ë¤¹¤ë"
base-move-ap ;; ap
0 ;; mp
#f ;; wilderness?
))
(define sk_reach
- (mk-skill "Reach" "Handle objects more than one tile away"
+ (mk-skill "¿¤Ð¤¹" "1¤Ä¸þ¤³¤¦¤Î¤â¤Î¤òÁàºî¤¹¤ë"
base-move-ap ;; ap
0 ;; mp
#f ;; wilderness?
))
(define sk_butcher
- (mk-skill "Butcher" "Turn an animal corpse into food or materials"
+ (mk-skill "²Ã¹©¤¹¤ë" "ưʪ¤Î»àÂΤò¿©ÎÁ¤äÆ»¶ñ¤Ë¤¹¤ë"
0 ;; ap
0 ;; mp
#f ;; wilderness?
))
(define sk_pickpocket
- (mk-skill "Pickpocket" "Take something from an NPC"
+ (mk-skill "Åð¤à" "¾¿Í¤Îʪ¤ò¼è¤ë"
base-move-ap ;; ap
0 ;; mp
#f ;; wilderness?
))
(define sk_unlock
- (mk-skill "Unlock" "Unlock a door with a picklock"
+ (mk-skill "¤³¤¸³«¤±¤ë" "¸°³«¤±Æ»¶ñ¤ÇÈâ¤ò³«¤±¤ë"
0
0
#f
;; skill.
(define sks_warrior
- (kern-mk-skill-set "Warrior" (list
+ (kern-mk-skill-set "Àï»Î" (list
(list 1 sk_sprint)
(list 2 sk_jump)
)))
(define sks_ranger
- (kern-mk-skill-set "Ranger" (list
+ (kern-mk-skill-set "·ÙÈ÷Ââ°÷" (list
(list 1 sk_sprint)
(list 2 sk_jump)
(list 3 sk_arm_trap)
)))
(define sks_wrogue
- (kern-mk-skill-set "Wrogue" (list
+ (kern-mk-skill-set "¤Ê¤é¤º¼Ô" (list
(list 1 sk_sprint)
(list 1 sk_arm_trap)
(list 2 sk_unlock)
)))
(define sks_wright
- (kern-mk-skill-set "Wright" (list
+ (kern-mk-skill-set "¿¦¿Í" (list
(list 1 sk_arm_trap)
(list 2 sk_unlock)
(list 3 sk_disarm_trap)
)))
(define sks_wanderer
- (kern-mk-skill-set "Wanderer" (list
+ (kern-mk-skill-set "̤¤¿Í" (list
(list 2 sk_sprint)
(list 3 sk_jump)
(list 3 sk_unlock)
;;----------------------------------------------------------------------------
-;; Slimy Cavern
+;; Ç´¶Ý¤Îƶ·¢
;;
-;; Wherein the player fights some slimes, some bandits, and optionally rescues
-;; Roland.
+;; ¤³¤³¤Ç¥×¥ì¥¤¥ä¡¼¤ÏÇ´¶Ý¡¢Åð±¤ÈÀ臘¡£¤½¤·¤Æ¥í¡¼¥é¥ó¥É¤òµß½Ð¤¹¤ë¡£
;;----------------------------------------------------------------------------
(kern-load "slimy-cavern-zones.scm")
(kern-mk-place 'p_slimy_cavern ; tag
- "Slimy Cavern" ; name
+ "Ç´¶Ý¤Îƶ·¢" ; name
nil ; sprite
m_slimy_cavern ; map
#f ; wraps
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In the monster town of Kun.
+;; ²øʪ¤Î¼¥¯¡¼¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_slywan
(list 0 0 kun-road "working")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Slywan is a thief (an accomplished pickpocket)
-;; living in the monster village of Kun.
+;; ¥¹¥é¥¤¥ï¥ó¤ÏÅ¥ËÀ(¥¹¥ê¤Î̾¿Í¤Ç¤¢¤ë)¤Ç¡¢²øʪ¤Î¼¥¯¡¼¥ó¤Ë½»¤ó¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (slywan-hail knpc kpc)
- (kern-log-msg "You meet a lithe man.")
- (say knpc "G'day")
+ (kern-log-msg "¤¢¤Ê¤¿¤ÏÇؤÎÄ㤤ÃˤȲñ¤Ã¤¿¡£")
+ (say knpc "¤è¤ª¡£")
)
(define (slywan-default knpc kpc)
- (say knpc "[He shrugs and smiles wanly]")
+ (say knpc "¡ÎÈà¤Ï¸ª¤ò¤¹¤¯¤á¤ÆǦ¤Ó¾Ð¤¤¤ò¤·¤¿¡£¡Ï")
)
(define (slywan-name knpc kpc)
- (say knpc "Slywan, at your service")
+ (say knpc "¥¹¥é¥¤¥ï¥ó¡¢²¿¤Ç¤â¤É¤¦¤¾¡£")
)
(define (slywan-join knpc kpc)
- (say knpc "Sorry, mate")
+ (say knpc "°¤¤¤Ê¡¢Í§¤è¡£")
)
(define (slywan-job knpc kpc)
- (say knpc "This and that. You know.")
+ (say knpc "¤³¤ì¤È¤¢¤ì¤À¡£¤ï¤«¤ë¤À¤í¡©")
)
(define (slywan-bye knpc kpc)
(kern-dice-roll "1d20"))))
(take-player-gold q)
(kern-obj-add-to-inventory knpc t_gold_coins q)
- (say knpc "Seeya")
+ (say knpc "¤Þ¤¿¤Ê¡£")
))
(define (slywan-this knpc kpc)
- (say knpc "And that"))
+ (say knpc "¤½¤·¤Æ¤¢¤ì¤À¡£"))
(define (slywan-that knpc kpc)
- (say knpc "And this"))
+ (say knpc "¤½¤·¤Æ¤³¤ì¤À¡£"))
(define (slywan-bust knpc kpc)
- (say knpc "Oops! Gotta go!")
+ (say knpc "¤ª¤Ã¤È¡ª¹Ô¤«¤Ê¤¯¤Æ¤Ï¡ª")
(kern-obj-add-effect knpc ef_invisibility nil)
(kern-char-set-fleeing knpc #t)
(kern-being-set-current-faction knpc faction-outlaw)
)
(define (slywan-thie knpc kpc)
- (say knpc "What? Did somebody steal from gold from you?")
+ (say knpc "¤Ê¤Ë¡©¥ª¥ì¤¬¥ª¥Þ¥¨¤«¤é¥«¥Í¤òÅð¤ó¤À¤Ã¤Æ¡©")
(if (yes? kpc)
(begin
- (say knpc "Surely you're not accusing me?")
+ (say knpc "ÅܤäƤ롩")
(if (yes? kpc)
(slywan-bust knpc kpc)
- (say knpc "Oh... heh. Of course not. Sorry, I didn't see anything.")))
- (say knpc "You're lucky, this is a rough town. Don't trust anybody!")))
+ (say knpc "¤ª¤ª¡Ä¤Ø¤Ã¤Ø¡£¤â¤Á¤í¤ó¤½¤¦¤À¤è¤Ê¡£°¤¤¤Ê¡¢¸«¤Ä¤«¤é¤Ê¤«¤Ã¤¿¡£")))
+ (say knpc "¤è¤«¤Ã¤¿¤Ê¡£¤³¤³¤Ï¤Ò¤É¤¤Ä®¤À¡£Ã¯¤â¿®¤¸¤Á¤ã¤¤¤±¤Ê¤¤¡ª")))
(define slywan-conv
(ifc nil
(kern-char-force-drop
(kern-mk-char
'ch_slywan ; tag
- "Slywan" ; name
+ "¥¹¥é¥¤¥ï¥ó" ; name
slywan-species ; species
slywan-occ ; occ
s_brigand ; sprite
(if (eqv? kbeing
(kern-get-player))
(begin
- (kern-log-msg "You stumble upon a hidden forest glade.\nKnavish figures skulk about with drawn blades!")
+ (kern-log-msg "ÌÚ¡¹¤Ç±£¤µ¤ì¤¿¶õ¤ÃϤò¸«¤Ä¤±¤¿¡£È´¤¿È¤Î¿Ï¤ò»ý¤Ã¤¿²ø¤·¤¤¿Í±Æ¤¬¤¦¤í¤Ä¤¤¤Æ¤¤¤ë¡ª")
(kern-place-set-subplace p_bandit_hideout_l1
(eval-loc bandit-hideout-loc))
(kern-map-set-dirty)
(if (eqv? kbeing
(kern-get-player))
(begin
- (kern-log-msg "The forest grows wild...\nThe trees here are choked with webbing, and horrid wrapped HUSKS dangle.\nYou have found the entrance to Angriss's Lair!")
+ (kern-log-msg "ÌÚ¡¹¤¬Í𻨤ËÀ¸¤¨¤Æ¤¤¤ë¡Ä\nÌڤˤÏÌÖ¤¬¤«¤±¤é¤ì¤Æ¤ª¤ê¡¢¶²¤í¤·¤¤¡Ö»Ä³¼¡×¤¬Êñ¤Þ¤ì¤Ö¤é²¼¤¬¤Ã¤Æ¤¤¤ë¡£\n¤³¤³¤¬¥¢¥ó¥°¥ê¥¹¤Î½»¤ß²È¤ÎÆþ¤ê¸ý¤«¤â¤·¤ì¤Ê¤¤¡ª")
(kern-place-set-subplace p_angriss_lair
(eval-loc angriss-lair-loc))
(kern-map-set-dirty)
(if (eqv? kbeing
(kern-get-player))
(begin
- (kern-log-msg "You find a hidden entrance to a secure, undisclosed location!")
+ (kern-log-msg "°ÂÁ´¤Ê¾ì½ê¤Ë±£¤µ¤ì¤¿Æþ¤ê¸ý¤ò¸«¤Ä¤±¤¿¡ª")
(kern-place-set-subplace p_mans_hideout
(eval-loc the-mans-hideout-loc))
(kern-map-set-dirty)
(if (eqv? kbeing
(kern-get-player))
(begin
- (kern-log-msg "Through a hidden track, you find a strange forested nook in the mountainside!")
+ (kern-log-msg "±£¤µ¤ì¤¿¾®Æ»¤ò¤¿¤É¤ë¤È¡¢»³¤ÎÃæÊ¢¤ÎÌÚ¡¹¤Çʤ¤ï¤ì¤¿´ñ̯¤Ê¾ì½ê¤Ë¤¿¤É¤êÃ夤¤¿¡ª")
(kern-place-set-subplace p_brundegardt
(eval-loc brundegardt-loc))
(kern-map-set-dirty)
;; The Warritrix's note
;; ----------------------------------------------------------------------------
(mk-reusable-item
- 't_warritrix_orders "Military Orders" s_lexicon norm
+ 't_warritrix_orders "ºîÀïÌ¿Îá½ñ" s_lexicon norm
(lambda (klexicon kuser)
(kern-ui-page-text
- "Orders to the Warritrix"
- "Ever faithful servant of Glasdrin,"
- "we suspect a coven of the Accursed are hiding"
- "in the deeps of the Lost Halls. Proceed at"
- "once to investigate. Leave no cavern"
- "unexplored.\n"
- "--Commander Jeffries\n"
- "P.S. These orders are to be destroyed."
- )))
+ "Æ®»Î¤Ø¤ÎÌ¿Îá½ñ"
+ "¥°¥é¥¹¥É¥ê¥ó¤ÇºÇ¤âÃé¼Â¤ÊÊô»Å¼Ô¡¢"
+ "¼º¤ï¤ì¤¿ÅÂƲ¤Î±ü¿¼¤¯¤Ç¼ö¤ï¤ì¤¿¼Ô¤¬½¸¤Þ¤Ã¤Æ¤¤¤ë"
+ "µ¿¤¤¤¬¤¢¤ë¡£"
+ "¤¹¤°¤ËÄ´ºº¤ò³«»Ï¤»¤è¡£Æ¶·¢¤òÁ´¤Æõº÷¤¹¤ë¤Þ¤Ç¤Ï"
+ "Î¥¤ì¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£"
+ "¡Ý»ÊÎá´±¥¸¥§¥Õ¥ê¡¼¥º"
+ "Äɵ¡¡¤³¤ÎÌ¿Îá½ñ¤Ï¤¿¤À¤Á¤ËÇË´þ¤¹¤ë¤³¤È¡£")))
;; Kraken lakes kraken trigger
(define (spawn-kraken-lakes-sea-serpent kbeing)
- (kern-log-msg "Your disturb something in the water...")
+ (kern-log-msg "¿å¤ÎÃæ¤Ë²¿¤«¤¬¤¤¤ë¡Ä")
(kern-obj-put-at (spawn-npc 'kraken 8) (mk-loc p_deepness 31 34))
(kern-obj-put-at (spawn-npc 'kraken 8) (mk-loc p_deepness 32 35))
(kern-obj-put-at (spawn-npc 'kraken 8) (mk-loc p_deepness 30 29))
(define lost-halls-loc (list 'p_shard 39 75))
;; Power core for voidship
-(mk-quest-obj-type 't_power_core "ancient power core" s_power_core layer-item obj-ifc)
+(mk-quest-obj-type 't_power_core "¸ÅÂå¤Îϧ¿´" s_power_core layer-item obj-ifc)
;; Luximene begins the game as a Lich King, when defeated he drops his skull,
;; which can be used with the Necromancer to summon his shade.
-(mk-quest-obj-type 't_lich_skull "King Luximenes skull" s_gold_skull layer-item obj-ifc)
+(mk-quest-obj-type 't_lich_skull "¥é¥¯¥·¥Þ¥Ë²¦¤ÎƬ³¸¹ü" s_gold_skull layer-item obj-ifc)
;; grow -- trigger hook fx to create items (eg, growing reagents, hence the name)
(define (grow-trig ktrig ktype-tag dice)
;; bMP = basis for max Mana (max MP = bMP + level * bMP/10)
;; vr = vision radius (0..19)
;; tag name st in dx spd bHP bMP vr mmode weap morph xp sspr armrdc mvsnd
-(mk-species 'sp_balron "balron" 50 50 50 100 50 10 13 mmode-fly t_horns giant 50 s_asleep nil sound-walking )
-(mk-species 'sp_bull "bull" 20 1 5 100 20 0 6 mmode-walk t_horns nil 2 s_bull nil sound-walking )
-(mk-species 'sp_cave_goblin "cave goblin" 12 8 12 100 12 2 14 mmode-walk t_hands humanoid 2 s_asleep nil sound-walking )
-(mk-species 'sp_forest_goblin "forest goblin" 8 10 14 100 8 4 16 mmode-walk t_hands humanoid 2 s_asleep nil sound-walking )
-(mk-species 'sp_ghast "ghast" 10 10 10 100 10 2 8 mmode-phase t_hands humanoid 2 s_asleep nil nil )
-(mk-species 'sp_gint "gint" 50 3 8 100 50 2 20 mmode-large t_hands giant 10 s_asleep nil sound-walking )
-(mk-species 'sp_green_slime "green slime" 2 2 2 100 6 0 5 mmode-walk t_acid_spray nil 2 s_slime_asleep nil sound-squishing )
-(mk-species 'sp_fire_slime "fire slime" 2 2 2 100 6 0 5 mmode-walk t_fire_glob nil 2 s_red_slime_asleep nil sound-squishing )
-(mk-species 'sp_human "human" 10 10 10 100 10 2 13 mmode-walk t_hands humanoid 2 s_asleep nil sound-walking )
-(mk-species 'sp_insect "insects" 1 1 18 200 3 0 4 mmode-hover t_stinger nil 1 nil nil nil )
-(mk-species 'sp_nixie "nyad" 10 10 10 100 10 2 19 mmode-fish t_hands humanoid 2 s_shoals nil sound-splashing )
-(mk-species 'sp_queen_spider "queen spider" 18 6 12 100 20 4 10 mmode-crawl t_G_fangs nil 4 s_asleep "1d2" sound-walking )
-(mk-species 'sp_skeleton "skeleton" 12 8 12 100 12 2 10 mmode-walk t_hands humanoid 3 s_asleep nil sound-walking )
-(mk-species 'sp_snake "snake" 2 2 14 100 6 0 6 mmode-walk t_fangs nil 1 s_asleep nil sound-walking )
-(mk-species 'sp_bat "bat" 2 2 14 120 2 0 19 mmode-fastfly t_fangs nil 1 s_asleep nil nil )
-(mk-species 'sp_rat "rat" 4 2 12 100 6 0 6 mmode-crawl t_F_fangs nil 1 s_asleep nil nil )
-(mk-species 'sp_spider "spider" 12 6 14 120 8 2 10 mmode-fastcrawl t_fangs nil 2 s_asleep nil sound-walking )
-(mk-species 'sp_statue "statue" 1 1 1 100 99 0 1 mmode-none nil nil 0 nil "16" nil )
-(mk-species 'sp_troll "troll" 14 6 12 100 20 2 10 mmode-walk t_horns humanoid 3 s_asleep nil sound-walking )
-(mk-species 'sp_yellow_slime "yellow slime" 4 4 4 100 12 2 6 mmode-walk t_acid_spray nil 2 nil nil sound-squishing )
-(mk-species 'sp_kraken "kraken" 30 3 20 100 30 4 19 mmode-fish t_tentacles nil 10 s_shoals "1d4" sound-splashing )
-(mk-species 'sp_great_kraken "kraken" 10 5 8 100 30 0 19 mmode-fish t_G_fangs nil 10 s_shoals "1d4" sound-splashing )
-(mk-species 'sp_kraken_tentacle "kraken" 30 1 20 100 10 2 19 mmode-fish t_tentacles nil 10 s_shoals nil sound-splashing )
-(mk-species 'sp_sea_serpent "sea serpent" 20 2 14 100 20 4 19 mmode-fish t_G_fangs nil 8 s_asleep "2d4" sound-walking )
-(mk-species 'sp_wolf "wolf" 8 2 12 100 8 0 13 mmode-fastrun t_fangs nil 2 s_asleep nil sound-walking )
-(mk-species 'sp_gazer "gazer" 6 20 6 100 10 8 16 mmode-hover t_prismatic_gaze nil 8 s_gazer_asleep nil nil )
-(mk-species 'sp_headless "headless" 12 0 10 100 14 0 6 mmode-walk t_hands humanoid 2 s_asleep nil sound-walking )
-(mk-species 'sp_wisp "wisp" 2 20 16 140 8 8 9 mmode-hover nil nil 4 nil nil nil )
-(mk-species 'sp_dragon "dragon" 20 10 10 100 50 8 9 mmode-fly t_G_fangs nil 20 s_dragon_asleep "2d4" sound-walking )
-(mk-species 'sp_zorn "zorn" 10 10 10 100 10 2 9 mmode-phase t_beak nil 4 s_asleep nil sound-walking )
-(mk-species 'sp_demon "demon" 14 14 14 100 14 8 12 mmode-fly t_hands humanoid 8 s_asleep nil sound-walking )
-(mk-species 'sp_lich "lich" 12 14 14 100 20 10 9 mmode-walk t_hands humanoid 8 s_asleep nil sound-walking )
-(mk-species 'sp_carabid "carabid" 30 1 10 100 8 0 3 mmode-walk t_pincers nil 8 s_carabid_asleep "4d4+4" sound-walking )
-(mk-species 'sp_ratling "ratling" 6 8 14 110 4 2 12 mmode-fastrun t_F_fangs humanoid 2 s_asleep nil sound-walking )
-(mk-species 'sp_griffin "griffin" 20 8 12 120 25 0 19 mmode-fly t_beak nil 3 s_griffin_asleep nil nil )
-(mk-species 'sp_griffin_chick "griffin chick" 5 8 10 100 8 0 19 mmode-fastfly t_beak nil 2 s_griffin_chick_asleep nil nil )
-(mk-species 'sp_deer "deer" 7 1 14 120 8 0 13 mmode-fastrun t_horns nil 1 s_asleep nil sound-walking )
-(mk-species 'sp_chicken "chicken" 1 1 3 100 1 0 13 mmode-walk t_beak nil 1 s_asleep nil sound-walking )
+(mk-species 'sp_balron "¥Ð¥ë¥í¥ó" 50 50 50 100 50 10 13 mmode-fly t_horns giant 50 s_asleep nil sound-walking )
+(mk-species 'sp_bull "µí" 20 1 5 100 20 0 6 mmode-walk t_horns nil 2 s_bull nil sound-walking )
+(mk-species 'sp_cave_goblin "ƶ·¢¥´¥Ö¥ê¥ó" 12 8 12 100 12 2 14 mmode-walk t_hands humanoid 2 s_asleep nil sound-walking )
+(mk-species 'sp_forest_goblin "¿¹¥´¥Ö¥ê¥ó" 8 10 14 100 8 4 16 mmode-walk t_hands humanoid 2 s_asleep nil sound-walking )
+(mk-species 'sp_ghast "Ë´Îî" 10 10 10 100 10 2 8 mmode-phase t_hands humanoid 2 s_asleep nil nil )
+(mk-species 'sp_gint "µð¿Í" 50 3 8 100 50 2 20 mmode-large t_hands giant 10 s_asleep nil sound-walking )
+(mk-species 'sp_green_slime "Î理ÎÇ´¶Ý" 2 2 2 100 6 0 5 mmode-walk t_acid_spray nil 2 s_slime_asleep nil sound-squishing )
+(mk-species 'sp_fire_slime "±ê¤ÎÇ´¶Ý" 2 2 2 100 6 0 5 mmode-walk t_fire_glob nil 2 s_red_slime_asleep nil sound-squishing )
+(mk-species 'sp_human "¿Í´Ö" 10 10 10 100 10 2 13 mmode-walk t_hands humanoid 2 s_asleep nil sound-walking )
+(mk-species 'sp_insect "º«Ãî" 1 1 18 200 3 0 4 mmode-hover t_stinger nil 1 nil nil nil )
+(mk-species 'sp_nixie "¥Ë¥¥·¡¼" 10 10 10 100 10 2 19 mmode-fish t_hands humanoid 2 s_shoals nil sound-splashing )
+(mk-species 'sp_queen_spider "½÷²¦¥°¥â" 18 6 12 100 20 4 10 mmode-crawl t_G_fangs nil 4 s_asleep "1d2" sound-walking )
+(mk-species 'sp_skeleton "³¼¹ü" 12 8 12 100 12 2 10 mmode-walk t_hands humanoid 3 s_asleep nil sound-walking )
+(mk-species 'sp_snake "¥Ø¥Ó" 2 2 14 100 6 0 6 mmode-walk t_fangs nil 1 s_asleep nil sound-walking )
+(mk-species 'sp_bat "¥³¥¦¥â¥ê" 2 2 14 120 2 0 19 mmode-fastfly t_fangs nil 1 s_asleep nil nil )
+(mk-species 'sp_rat "¥Í¥º¥ß" 4 2 12 100 6 0 6 mmode-crawl t_F_fangs nil 1 s_asleep nil nil )
+(mk-species 'sp_spider "¥¯¥â" 12 6 14 120 8 2 10 mmode-fastcrawl t_fangs nil 2 s_asleep nil sound-walking )
+(mk-species 'sp_statue "Áü" 1 1 1 100 99 0 1 mmode-none nil nil 0 nil "16" nil )
+(mk-species 'sp_troll "¥È¥í¥ë" 14 6 12 100 20 2 10 mmode-walk t_horns humanoid 3 s_asleep nil sound-walking )
+(mk-species 'sp_yellow_slime "²«¿§¤¤Ç´¶Ý" 4 4 4 100 12 2 6 mmode-walk t_acid_spray nil 2 nil nil sound-squishing )
+(mk-species 'sp_kraken "¥¯¥é¡¼¥±¥ó" 30 3 20 100 30 4 19 mmode-fish t_tentacles nil 10 s_shoals "1d4" sound-splashing )
+(mk-species 'sp_great_kraken "¥¯¥é¡¼¥±¥ó" 10 5 8 100 30 0 19 mmode-fish t_G_fangs nil 10 s_shoals "1d4" sound-splashing )
+(mk-species 'sp_kraken_tentacle "¥¯¥é¡¼¥±¥ó" 30 1 20 100 10 2 19 mmode-fish t_tentacles nil 10 s_shoals nil sound-splashing )
+(mk-species 'sp_sea_serpent "³¤¥Ø¥Ó" 20 2 14 100 20 4 19 mmode-fish t_G_fangs nil 8 s_asleep "2d4" sound-walking )
+(mk-species 'sp_wolf "ϵ" 8 2 12 100 8 0 13 mmode-fastrun t_fangs nil 2 s_asleep nil sound-walking )
+(mk-species 'sp_gazer "¥²¥¤¥¶¡¼" 6 20 6 100 10 8 16 mmode-hover t_prismatic_gaze nil 8 s_gazer_asleep nil nil )
+(mk-species 'sp_headless "¼ó¤Ê¤·" 12 0 10 100 14 0 6 mmode-walk t_hands humanoid 2 s_asleep nil sound-walking )
+(mk-species 'sp_wisp "¤¿¤Ê¤Ó¤¯¸÷" 2 20 16 140 8 8 9 mmode-hover nil nil 4 nil nil nil )
+(mk-species 'sp_dragon "ε" 20 10 10 100 50 8 9 mmode-fly t_G_fangs nil 20 s_dragon_asleep "2d4" sound-walking )
+(mk-species 'sp_zorn "¥¾¡¼¥ó" 10 10 10 100 10 2 9 mmode-phase t_beak nil 4 s_asleep nil sound-walking )
+(mk-species 'sp_demon "°Ëâ" 14 14 14 100 14 8 12 mmode-fly t_hands humanoid 8 s_asleep nil sound-walking )
+(mk-species 'sp_lich "¥ê¥Ã¥Á" 12 14 14 100 20 10 9 mmode-walk t_hands humanoid 8 s_asleep nil sound-walking )
+(mk-species 'sp_carabid "¥ª¥µ¥à¥·" 30 1 10 100 8 0 3 mmode-walk t_pincers nil 8 s_carabid_asleep "4d4+4" sound-walking )
+(mk-species 'sp_ratling "¥Í¥º¥ß¿Í´Ö" 6 8 14 110 4 2 12 mmode-fastrun t_F_fangs humanoid 2 s_asleep nil sound-walking )
+(mk-species 'sp_griffin "¥°¥ê¥Õ¥£¥ó" 20 8 12 120 25 0 19 mmode-fly t_beak nil 3 s_griffin_asleep nil nil )
+(mk-species 'sp_griffin_chick "¥°¥ê¥Õ¥£¥ó¤Î¿÷" 5 8 10 100 8 0 19 mmode-fastfly t_beak nil 2 s_griffin_chick_asleep nil nil )
+(mk-species 'sp_deer "¼¯" 7 1 14 120 8 0 13 mmode-fastrun t_horns nil 1 s_asleep nil sound-walking )
+(mk-species 'sp_chicken "·Ü" 1 1 3 100 1 0 13 mmode-walk t_beak nil 1 s_asleep nil sound-walking )
;; tag name st in dx spd bHP bMP vr mmode weap morph xp sspr armrdc mvsnd
;; species that don't move around
;; tag name st in dx spd bHP bMP vr mmode weap morph xp sspr armrdc
-(mk-stationary-species 'sp_dryad "dryad" 12 12 4 100 12 6 6 mmode-walk nil nil 8 s_forest nil )
-(mk-stationary-species 'sp_hydra "hydra" 20 2 10 140 30 8 6 mmode-walk t_tentacles nil 10 nil nil )
-(mk-stationary-species 'sp_mimic "mimic" 11 3 10 100 15 0 5 mmode-walk t_fangs nil 2 s_chest "1d2")
+(mk-stationary-species 'sp_dryad "ÌÚ¤ÎÀº" 12 12 4 100 12 6 6 mmode-walk nil nil 8 s_forest nil )
+(mk-stationary-species 'sp_hydra "¥Ò¥É¥é" 20 2 10 140 30 8 6 mmode-walk t_tentacles nil 10 nil nil )
+(mk-stationary-species 'sp_mimic "µ¼ÂÖ" 11 3 10 100 15 0 5 mmode-walk t_fangs nil 2 s_chest "1d2")
;;----------------------------------------------------------------------------
;; This list of the undead species is used by spells which affect the undead.
(define (slime-generator-step kgen kstepper)
(define (mkslime)
- (kern-log-msg "A slime emerges from the ooze!")
+ (kern-log-msg "Ç´¶Ý¤¬¤¢¤Õ¤ì½Ð¤Æ¤¤¿¡ª")
(mk-green-slime))
(let* ((kplace (loc-place (kern-obj-get-location kstepper)))
(slimes (filter is-green-slime? (kern-place-get-beings kplace))))
;; not willing to address at this point.
;; ----------------------------------------------------------------------------
-(kern-set-spell-words "An"
- "Bet"
- "Corp"
- "Des"
- "Ex"
- "Flam"
- "Grav"
- "Hur"
- "In"
- "Jux"
- "Kal"
- "Lor"
- "Mani"
- "Nox"
- "Ort"
- "Por"
- "Quas"
- "Rel"
- "Sanct"
- "Tym"
- "Uus"
- "Vas"
- "Wis"
- "Xen"
- "Ylem"
- "Zu")
+(kern-set-spell-words "An(¥¢¥ó)"
+ "Bet(¥Ù¥Ã¥È)"
+ "Corp(¥³¡¼¥×)"
+ "Des(¥Ç¥¹)"
+ "Ex(¥¤¥¯¥¹)"
+ "Flam(¥Õ¥é¥à)"
+ "Grav(¥°¥é¥ô)"
+ "Hur(¥Ò¥å¡¼)"
+ "In(¥¤¥ó)"
+ "Jux(¥¸¥å¥¯)"
+ "Kal(¥«¥ë)"
+ "Lor(¥í¡¼)"
+ "Mani(¥Þ¥Ë)"
+ "Nox(¥Î¥¯¥¹)"
+ "Ort(¥ª¡¼¥È)"
+ "Por(¥Ý¡¼)"
+ "Quas(¥¯¥¡¥¹)"
+ "Rel(¥ì¥ë)"
+ "Sanct(¥µ¥ó¥¯¥È)"
+ "Tym(¥Æ¥£¥à)"
+ "Uus(¥¦¡¼¥¹)"
+ "Vas(¥ô¥¡¥¹)"
+ "Wis(¥¦¥£¥¹)"
+ "Xen(¥¼¥ó)"
+ "Ylem(¥¤¥§¥à)"
+ "Zu(¥º)")
;; ----------------------------------------------------------------------------
;; The only purpose of this list is to prevent the scheme gc from harvesting
;; tag name handler code L context sprite mixture
;; ========== ================================ ======= ==== = ========= ====== =======
;; First Circle
-(mk-spell 'an_nox "Cure Poison <An Nox>" an-nox "AN" 1 context-any s_an_nox (list garlic ginseng))
-(mk-spell 'an_zu "Awaken <An Zu>" an-zu "AZ" 1 context-any s_an_zu (list garlic ginseng))
-(mk-spell 'grav_por "Magic Missile <Grav Por>" grav-por "GP" 1 context-town s_grav_por (list sulphorous_ash black_pearl))
-(mk-spell 'in_lor "Light <In Lor>" in-lor "IL" 1 context-any s_in_lor (list sulphorous_ash))
-(mk-spell 'mani "Minor Healing <Mani>" mani "M" 1 context-any s_mani (list ginseng spider_silk))
-(mk-spell 'wis_sanct "Detect Traps <Wis Sanct>" wis-sanct "WS" 1 context-town s_wis_sanct (list sulphorous_ash))
-(mk-spell 'an_sanct_ylem "Disarm Trap <An Sanct Ylem>" an-sanct-ylem "ASY" 1 context-town s_an_sanct_ylem (list blood_moss))
-(mk-spell 'ylem_an_ex "Web <Ylem An Ex>" ylem-an-ex "YAE" 1 context-town s_ylem_an_ex (list spider_silk black_pearl))
-(mk-spell 'bet_ylem_hur "Conjure Smoke <Bet Ylem Hur>" bet-ylem-hur "BYH" 1 context-town s_bet_ylem_hur (list sulphorous_ash))
+(mk-spell 'an_nox "²òÆÇ <An Nox>" an-nox "AN" 1 context-any s_an_nox (list garlic ginseng))
+(mk-spell 'an_zu "³ÐÀà <An Zu>" an-zu "AZ" 1 context-any s_an_zu (list garlic ginseng))
+(mk-spell 'grav_por "ËâË¡¤ÎÌð <Grav Por>" grav-por "GP" 1 context-town s_grav_por (list sulphorous_ash black_pearl))
+(mk-spell 'in_lor "¸÷ <In Lor>" in-lor "IL" 1 context-any s_in_lor (list sulphorous_ash))
+(mk-spell 'mani "¾®²óÉü <Mani>" mani "M" 1 context-any s_mani (list ginseng spider_silk))
+(mk-spell 'wis_sanct "æ«ÃµÃÎ <Wis Sanct>" wis-sanct "WS" 1 context-town s_wis_sanct (list sulphorous_ash))
+(mk-spell 'an_sanct_ylem "櫲ò½ü <An Sanct Ylem>" an-sanct-ylem "ASY" 1 context-town s_an_sanct_ylem (list blood_moss))
+(mk-spell 'ylem_an_ex "ÌÖ <Ylem An Ex>" ylem-an-ex "YAE" 1 context-town s_ylem_an_ex (list spider_silk black_pearl))
+(mk-spell 'bet_ylem_hur "±ìËë <Bet Ylem Hur>" bet-ylem-hur "BYH" 1 context-town s_bet_ylem_hur (list sulphorous_ash))
;; Second Circle
-(mk-spell 'sanct_nox "Poison Ward <Sanct Nox>" sanct-nox "SN" 2 context-any s_sanct_nox (list nightshade garlic t_royal_cape))
-(mk-spell 'an_sanct "Unlock <An Sanct>" an-sanct "AS" 2 context-town s_an_sanct (list sulphorous_ash blood_moss))
-(mk-spell 'sanct "Lock <Sanct>" sanct "S" 2 context-town s_sanct (list sulphorous_ash spider_silk))
-(mk-spell 'an_xen_corp "Turn Undead <An Xen Corp>" an-xen-corp "AXC" 2 context-town s_an_xen_corp (list garlic sulphorous_ash))
-(mk-spell 'in_wis "Locate <In Wis>" in-wis "IW" 2 context-any s_in_wis (list nightshade))
-(mk-spell 'in_bet_xen "Summon Vermin <In Bet Xen>" in-bet-xen "IBX" 2 context-town s_in_bet_xen (list spider_silk blood_moss sulphorous_ash))
-(mk-spell 'rel_hur "Change Wind <Rel Hur>" rel-hur "RH" 2 context-any s_rel_hur (list sulphorous_ash blood_moss))
-(mk-spell 'in_nox_por "Poison Bolt <In Nox Por>" in-nox-por "INP" 2 context-town s_in_nox_por (list nightshade blood_moss black_pearl))
-(mk-spell 'an_xen_bet "Calm Spiders <An Xen Bet>" an-xen-bet "AXB" 2 context-town s_an_xen_bet (list spider_silk garlic))
-(mk-spell 'bet_flam_hur "Fire Spray <Bet Flam Hur>" bet-flam-hur "BFH" 2 context-town s_bet_flam_hur (list black_pearl sulphorous_ash blood_moss))
-(mk-spell 'in_quas_wis "Vision <In Quas Wis>" in-quas-wis "IQW" 2 context-any s_in_quas_wis (list nightshade mandrake))
-(mk-spell 'xen_zu "Sleep <Xen Zu>" xen-zu "XZ" 2 context-town s_in_zu (list spider_silk ginseng))
+(mk-spell 'sanct_nox "ÂÑÆÇ <Sanct Nox>" sanct-nox "SN" 2 context-any s_sanct_nox (list nightshade garlic t_royal_cape))
+(mk-spell 'an_sanct "³«¾û <An Sanct>" an-sanct "AS" 2 context-town s_an_sanct (list sulphorous_ash blood_moss))
+(mk-spell 'sanct "»Ü¾û <Sanct>" sanct "S" 2 context-town s_sanct (list sulphorous_ash spider_silk))
+(mk-spell 'an_xen_corp "ÉÔ»à´Ô <An Xen Corp>" an-xen-corp "AXC" 2 context-town s_an_xen_corp (list garlic sulphorous_ash))
+(mk-spell 'in_wis "°ÌÃÖ <In Wis>" in-wis "IW" 2 context-any s_in_wis (list nightshade))
+(mk-spell 'in_bet_xen "Ã´Ô <In Bet Xen>" in-bet-xen "IBX" 2 context-town s_in_bet_xen (list spider_silk blood_moss sulphorous_ash))
+(mk-spell 'rel_hur "É÷ÊѲ½ <Rel Hur>" rel-hur "RH" 2 context-any s_rel_hur (list sulphorous_ash blood_moss))
+(mk-spell 'in_nox_por "ÆÇ·â <In Nox Por>" in-nox-por "INP" 2 context-town s_in_nox_por (list nightshade blood_moss black_pearl))
+(mk-spell 'an_xen_bet "ÂÐÃØéá <An Xen Bet>" an-xen-bet "AXB" 2 context-town s_an_xen_bet (list spider_silk garlic))
+(mk-spell 'bet_flam_hur "²Ð̸ <Bet Flam Hur>" bet-flam-hur "BFH" 2 context-town s_bet_flam_hur (list black_pearl sulphorous_ash blood_moss))
+(mk-spell 'in_quas_wis "ÀéΤ´ã <In Quas Wis>" in-quas-wis "IQW" 2 context-any s_in_quas_wis (list nightshade mandrake))
+(mk-spell 'xen_zu "ºÅ̲ <Xen Zu>" xen-zu "XZ" 2 context-town s_in_zu (list spider_silk ginseng))
;; Third Circle
-(mk-spell 'in_flam_grav "Fire Field <In Flam Grav>" in-flam-grav "IFG" 3 context-town s_in_flam_grav (list sulphorous_ash black_pearl spider_silk))
-(mk-spell 'in_nox_grav "Poison Field <In Nox Grav>" in-nox-grav "ING" 3 context-town s_in_nox_grav (list nightshade black_pearl spider_silk))
-(mk-spell 'in_zu_grav "Sleep Field <In Zu Grav>" in-zu-grav "IZG" 3 context-town s_in_zu_grav (list ginseng black_pearl spider_silk))
-(mk-spell 'vas_flam "Fire Ball <Vas Flam>" vas-flam "VF" 3 context-town s_vas_flam (list sulphorous_ash black_pearl))
-(mk-spell 'vas_lor "Great Light <Vas Lor>" vas-lor "VL" 3 context-any s_vas_lor (list mandrake sulphorous_ash))
-(mk-spell 'in_flam_sanct "Fire Ward <In Flam Sanct>" in-flam-sanct "IFS" 3 context-any s_in_flam_sanct (list garlic sulphorous_ash t_royal_cape))
-(mk-spell 'vas_an_nox "Mass Cure Poison <Vas An Nox>" vas-an-nox "VAN" 3 context-any s_vas_an_nox (list mandrake garlic ginseng))
-(mk-spell 'an_ort_xen "Dispel Magic <An Ort Xen>" an-ort-xen "AOX" 3 context-any s_in_an (list garlic mandrake sulphorous_ash))
+(mk-spell 'in_flam_grav "²Ð±ê¾ì <In Flam Grav>" in-flam-grav "IFG" 3 context-town s_in_flam_grav (list sulphorous_ash black_pearl spider_silk))
+(mk-spell 'in_nox_grav "ÆǾì <In Nox Grav>" in-nox-grav "ING" 3 context-town s_in_nox_grav (list nightshade black_pearl spider_silk))
+(mk-spell 'in_zu_grav "ºÅ̲¾ì <In Zu Grav>" in-zu-grav "IZG" 3 context-town s_in_zu_grav (list ginseng black_pearl spider_silk))
+(mk-spell 'vas_flam "²Ðµå <Vas Flam>" vas-flam "VF" 3 context-town s_vas_flam (list sulphorous_ash black_pearl))
+(mk-spell 'vas_lor "¶¯¸÷ <Vas Lor>" vas-lor "VL" 3 context-any s_vas_lor (list mandrake sulphorous_ash))
+(mk-spell 'in_flam_sanct "ÂѲР<In Flam Sanct>" in-flam-sanct "IFS" 3 context-any s_in_flam_sanct (list garlic sulphorous_ash t_royal_cape))
+(mk-spell 'vas_an_nox "Á´²òÆÇ <Vas An Nox>" vas-an-nox "VAN" 3 context-any s_vas_an_nox (list mandrake garlic ginseng))
+(mk-spell 'an_ort_xen "æËâË¡ <An Ort Xen>" an-ort-xen "AOX" 3 context-any s_in_an (list garlic mandrake sulphorous_ash))
;; Fourth Circle
-(mk-spell 'an_grav "Dispel Field <An Grav>" an-grav "AG" 4 context-any s_an_grav (list black_pearl sulphorous_ash))
-;;(mk-spell 'uus_por "Ascend <Uus Por>" uus-por "UP" 4 context-any nil (list blood_moss spider_silk))
-;;(mk-spell 'des_por "Descend <Des Por>" des-por "DP" 4 context-any nil (list blood_moss spider_silk))
-(mk-spell 'in_sanct_grav "Force Field <In Sanct Grav>" in-sanct-grav "ISG" 4 context-town s_in_sanct_grav (list mandrake black_pearl spider_silk))
-(mk-spell 'in_sanct "Protection <In Sanct>" in-sanct "IS" 4 context-any s_in_sanct (list sulphorous_ash ginseng garlic))
-(mk-spell 'wis_quas "Reveal <Wis Quas>" wis-quas "WQ" 4 context-any s_wis_quas (list nightshade sulphorous_ash))
-(mk-spell 'bet_por "Blink <Bet Por>" bet-por "BP" 4 context-town s_bet_por (list black_pearl blood_moss))
-(mk-spell 'vas_sanct_nox "Mass Poison Ward <Vas Sanct Nox>" vas-sanct-nox "VSN" 3 context-any s_vas_sanct_nox (list mandrake nightshade garlic t_royal_cape))
-(mk-spell 'ort_grav "Lightning Bolt <Ort Grav>" ort-grav "OG" 1 context-town s_ort_grav (list black_pearl mandrake sulphorous_ash))
+(mk-spell 'an_grav "æËâË¡¾ì <An Grav>" an-grav "AG" 4 context-any s_an_grav (list black_pearl sulphorous_ash))
+;;(mk-spell 'uus_por "¾å¾º <Uus Por>" uus-por "UP" 4 context-any nil (list blood_moss spider_silk))
+;;(mk-spell 'des_por "²¼¹ß <Des Por>" des-por "DP" 4 context-any nil (list blood_moss spider_silk))
+(mk-spell 'in_sanct_grav "¾ãÊÉ <In Sanct Grav>" in-sanct-grav "ISG" 4 context-town s_in_sanct_grav (list mandrake black_pearl spider_silk))
+(mk-spell 'in_sanct "Êݸî <In Sanct>" in-sanct "IS" 4 context-any s_in_sanct (list sulphorous_ash ginseng garlic))
+(mk-spell 'wis_quas "²Ä»ë <Wis Quas>" wis-quas "WQ" 4 context-any s_wis_quas (list nightshade sulphorous_ash))
+(mk-spell 'bet_por "Ä·Ìö <Bet Por>" bet-por "BP" 4 context-town s_bet_por (list black_pearl blood_moss))
+(mk-spell 'vas_sanct_nox "Á´ÂÑÆÇ <Vas Sanct Nox>" vas-sanct-nox "VSN" 3 context-any s_vas_sanct_nox (list mandrake nightshade garlic t_royal_cape))
+(mk-spell 'ort_grav "Íë·â <Ort Grav>" ort-grav "OG" 1 context-town s_ort_grav (list black_pearl mandrake sulphorous_ash))
;; Fifth Circle
-(mk-spell 'in_ex_por "Magic Unlock <In Ex Por>" in-ex-por "IEP" 5 context-any s_in_ex_por (list sulphorous_ash blood_moss))
-(mk-spell 'an_ex_por "Magic Lock <An Ex Por>" an-ex-por "AEP" 5 context-any s_an_ex_por (list sulphorous_ash blood_moss garlic))
-(mk-spell 'in_zu "Mass Sleep <In Zu>" in-zu "IZ" 5 context-town s_in_zu (list nightshade spider_silk ginseng))
-(mk-spell 'vas_mani "Great Heal <Vas Mani>" vas-mani "VM" 5 context-any s_vas_mani (list mandrake spider_silk ginseng))
-(mk-spell 'rel_tym "Quickness <Rel Tym>" rel-tym "RT" 5 context-any s_rel_tym (list sulphorous_ash blood_moss mandrake))
-(mk-spell 'kal_xen "Summon Beast <Kal Xen>" kal-xen "KX" 5 context-town s_kal_xen (list spider_silk mandrake))
-(mk-spell 'rel_xen_quas "Illusion of Beastliness <Rel Xen Quas>" rel-xen-quas "RXQ" 5 context-town s_rel_xen_quas (list nightshade blood_moss))
+(mk-spell 'in_ex_por "Éõ°õ²ò½ü <In Ex Por>" in-ex-por "IEP" 5 context-any s_in_ex_por (list sulphorous_ash blood_moss))
+(mk-spell 'an_ex_por "Éõ°õ <An Ex Por>" an-ex-por "AEP" 5 context-any s_an_ex_por (list sulphorous_ash blood_moss garlic))
+(mk-spell 'in_zu "Á´ºÅ̲ <In Zu>" in-zu "IZ" 5 context-town s_in_zu (list nightshade spider_silk ginseng))
+(mk-spell 'vas_mani "Âç²óÉü <Vas Mani>" vas-mani "VM" 5 context-any s_vas_mani (list mandrake spider_silk ginseng))
+(mk-spell 'rel_tym "¹â®²½ <Rel Tym>" rel-tym "RT" 5 context-any s_rel_tym (list sulphorous_ash blood_moss mandrake))
+(mk-spell 'kal_xen "½Ã¾¤´Ô <Kal Xen>" kal-xen "KX" 5 context-town s_kal_xen (list spider_silk mandrake))
+(mk-spell 'rel_xen_quas "½Ã¸¸»ë <Rel Xen Quas>" rel-xen-quas "RXQ" 5 context-town s_rel_xen_quas (list nightshade blood_moss))
;; Sixth Circle
-(mk-spell 'in_an "Negate Magic <In An>" in-an "IA" 6 context-any s_in_an (list garlic mandrake sulphorous_ash))
-(mk-spell 'wis_an_ylem "X-Ray Vision <Wis An Ylem>" wis-an-ylem "WAY" 6 context-any s_wis_an_ylem (list mandrake sulphorous_ash))
-(mk-spell 'an_xen_ex "Charm <An Xen Ex>" an-xen-ex "AXE" 6 context-town s_an_xen_ex (list black_pearl nightshade spider_silk))
-(mk-spell 'in_vas_por_ylem "Tremor <In Vas Por Ylem>" in-vas-por-ylem "IVPY" 6 context-town s_in_vas_por_ylem (list mandrake blood_moss sulphorous_ash))
-(mk-spell 'quas_an_wis "Confusion <Quas An Wis>" quas-an-wis "QAW" 6 context-town s_quas_an_wis (list mandrake nightshade))
-(mk-spell 'vas_uus_ylem "Raise Ship <Vas Uus Ylem>" vas-uus-ylem "VUY" 6 context-world s_vas_uus_ylem (list mandrake blood_moss spider_silk))
-(mk-spell 'in_rel_por "Telekinesis <In Rel Por>" in-rel-por "IRP" 6 context-town s_in_rel_por (list black_pearl blood_moss spider_silk))
-(mk-spell 'vas_por "Teleport Party <Vas Por>" vas-por "VP" 6 context-world s_vas_por (list mandrake black_pearl blood_moss))
+(mk-spell 'in_an "ÄÀÌÛ <In An>" in-an "IA" 6 context-any s_in_an (list garlic mandrake sulphorous_ash))
+(mk-spell 'wis_an_ylem "Æ©»ë <Wis An Ylem>" wis-an-ylem "WAY" 6 context-any s_wis_an_ylem (list mandrake sulphorous_ash))
+(mk-spell 'an_xen_ex "̥λ <An Xen Ex>" an-xen-ex "AXE" 6 context-town s_an_xen_ex (list black_pearl nightshade spider_silk))
+(mk-spell 'in_vas_por_ylem "ÃÏ¿Ì <In Vas Por Ylem>" in-vas-por-ylem "IVPY" 6 context-town s_in_vas_por_ylem (list mandrake blood_moss sulphorous_ash))
+(mk-spell 'quas_an_wis "º®Íð <Quas An Wis>" quas-an-wis "QAW" 6 context-town s_quas_an_wis (list mandrake nightshade))
+(mk-spell 'vas_uus_ylem "°úÍÈ <Vas Uus Ylem>" vas-uus-ylem "VUY" 6 context-world s_vas_uus_ylem (list mandrake blood_moss spider_silk))
+(mk-spell 'in_rel_por "Ç°ÎÏ <In Rel Por>" in-rel-por "IRP" 6 context-town s_in_rel_por (list black_pearl blood_moss spider_silk))
+(mk-spell 'vas_por "½Ö´Ö°ÜÆ° <Vas Por>" vas-por "VP" 6 context-world s_vas_por (list mandrake black_pearl blood_moss))
;; Seventh Circle
-(mk-spell 'in_nox_hur "Poison Wind <In Nox Hur>" in-nox-hur "INH" 7 context-town s_in_nox_hur (list nightshade sulphorous_ash blood_moss))
-(mk-spell 'in_zu_hur "Wind of Sleep <In Zu Hur>" in-zu-hur "IZH" 7 context-town s_in_zu_hur (list mandrake ginseng blood_moss))
-(mk-spell 'in_quas_corp "Fear <In Quas Corp>" in-quas-corp "IQC" 7 context-town s_in_quas_corp (list nightshade mandrake garlic))
-(mk-spell 'sanct_lor "Invisibility <Sanct Lor>" sanct-lor "SL" 7 context-any s_sanct_lor (list nightshade mandrake blood_moss))
-(mk-spell 'xen_corp "Death Bolt <Xen Corp>" xen-corp "XC" 7 context-town s_xen_corp (list nightshade black_pearl))
-(mk-spell 'in_quas_xen "Clone <In Quas Xen>" in-quas-xen "IQX" 7 context-town s_in_quas_xen (list nightshade mandrake sulphorous_ash spider_silk blood_moss ginseng))
+(mk-spell 'in_nox_hur "ÆÇÉ÷ <In Nox Hur>" in-nox-hur "INH" 7 context-town s_in_nox_hur (list nightshade sulphorous_ash blood_moss))
+(mk-spell 'in_zu_hur "ºÅ̲É÷ <In Zu Hur>" in-zu-hur "IZH" 7 context-town s_in_zu_hur (list mandrake ginseng blood_moss))
+(mk-spell 'in_quas_corp "¶²ÉÝ <In Quas Corp>" in-quas-corp "IQC" 7 context-town s_in_quas_corp (list nightshade mandrake garlic))
+(mk-spell 'sanct_lor "ÉԲĻë <Sanct Lor>" sanct-lor "SL" 7 context-any s_sanct_lor (list nightshade mandrake blood_moss))
+(mk-spell 'xen_corp "Ȉ <Xen Corp>" xen-corp "XC" 7 context-town s_xen_corp (list nightshade black_pearl))
+(mk-spell 'in_quas_xen "Ê£À½ <In Quas Xen>" in-quas-xen "IQX" 7 context-town s_in_quas_xen (list nightshade mandrake sulphorous_ash spider_silk blood_moss ginseng))
;; Eighth Circle
-(mk-spell 'kal_xen_nox "Summon Slime <Kal Xen Nox>" kal-xen-nox "KXN" 8 context-town s_kal_xen_nox (list spider_silk mandrake nightshade))
-(mk-spell 'in_flam_hur "Flame Wind <In Flam Hur>" in-flam-hur "IFH" 8 context-town s_in_flam_hur (list mandrake sulphorous_ash blood_moss))
-(mk-spell 'in_vas_grav_corp "Death Wind <In Vas Grav Corp>" in-vas-grav-corp "IVGC" 8 context-town s_in_vas_grav_corp (list mandrake sulphorous_ash nightshade))
-(mk-spell 'an_tym "Time Stop <An Tym>" an-tym "AT" 8 context-any s_an_tym (list mandrake garlic blood_moss))
-(mk-spell 'kal_xen_corp "Summon Undead <Kal Xen Corp>" kal-xen-corp "KXC" 8 context-town s_kal_xen_corp (list spider_silk mandrake nightshade))
-(mk-spell 'in_mani_corp "Resurrection <In Mani Corp>" in-mani-corp "IMC" 8 context-any s_in_mani_corp (list garlic ginseng spider_silk sulphorous_ash blood_moss mandrake))
-(mk-spell 'vas_rel_por "Gate <Vas Rel Por>" vas-rel-por "VRP" 8 context-any s_vas_rel_por (list sulphorous_ash mandrake black_pearl))
+(mk-spell 'kal_xen_nox "Í»²ò <Kal Xen Nox>" kal-xen-nox "KXN" 8 context-town s_kal_xen_nox (list spider_silk mandrake nightshade))
+(mk-spell 'in_flam_hur "±êÉ÷ <In Flam Hur>" in-flam-hur "IFH" 8 context-town s_in_flam_hur (list mandrake sulphorous_ash blood_moss))
+(mk-spell 'in_vas_grav_corp "»àÉ÷ <In Vas Grav Corp>" in-vas-grav-corp "IVGC" 8 context-town s_in_vas_grav_corp (list mandrake sulphorous_ash nightshade))
+(mk-spell 'an_tym "»þ´ÖÄä»ß <An Tym>" an-tym "AT" 8 context-any s_an_tym (list mandrake garlic blood_moss))
+(mk-spell 'kal_xen_corp "ÉԻྤ´Ô <Kal Xen Corp>" kal-xen-corp "KXC" 8 context-town s_kal_xen_corp (list spider_silk mandrake nightshade))
+(mk-spell 'in_mani_corp "ÁÉÀ¸ <In Mani Corp>" in-mani-corp "IMC" 8 context-any s_in_mani_corp (list garlic ginseng spider_silk sulphorous_ash blood_moss mandrake))
+(mk-spell 'vas_rel_por "Ìç <Vas Rel Por>" vas-rel-por "VRP" 8 context-any s_vas_rel_por (list sulphorous_ash mandrake black_pearl))
(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)))
;; load the file, too.
;;----------------------------------------------------------------------------
(load "naz.scm")
-(kern-script-version "0.7.0")
+(kern-script-version "0.7.1")
;; Setup progress bar for loading. I arrived at the number by printing the
;; current number of steps in src/foogod.c:foogod_progress_bar_finish().
-(kern-progress-bar-start "Loading" 205)
+(kern-progress-bar-start "Æɤ߹þ¤ßÃæ" 205)
;; Wrap the original definition of (load ...) with one that advances the
;; progress bar.
;;----------------------------------------------------------------------------
(kern-mk-char
'ch_wanderer
- "The Wanderer" ; name
+ "̤¤¿Í" ; name
sp_human ; species
oc_wanderer ; occ
s_wanderer ; sprite
;;----------------------------------------------------------------------------
(kern-mk-astral-body
'sun ; tag
- "Fyer (the sun)" ; name
+ "¥Õ¥£¥¢(ÂÀÍÛ)" ; name
1 ; relative astronomical distance
1 ; minutes per phase (n/a for sun)
(/ (* 24 60) 360) ; minutes per degree
;; with respect to phase vs sun position
;;----------------------------------------------------------------------------
(mk-moon 'lumis ; tag
- "Lumis" ; name
+ "¥ë¥ß¥¹" ; name
5 ; hours per phase
60 ; hours per revolution
22 ; initial arc
;; with respect to phase vs sun position
;;----------------------------------------------------------------------------
(mk-moon 'ord ; tag
- "Ord" ; name
+ "¥ª¡¼¥É" ; name
9 ; hours per phase
36 ; hours per revolution
67 ; initial arc
;;----------------------------------------------------------------------------
(define (start-scene kplayer)
- (kern-log-msg "A dark gate rises in a quiet clearing...")
+ (kern-log-msg "°Å¤¤Ì礬²¿¤â¤Ê¤¤½ê¤«¤éÉ⤫¤Ó¾å¤¬¤ê¡Ä")
(moongate-animate black-gate blackgate-stages)
(kern-sleep 2000)
(kern-obj-put-at kplayer (list p_moongate_clearing 11 12))
(kern-log-enable #t)
- (kern-log-msg "Then closes without a trace...")
+ (kern-log-msg "¤½¤·¤ÆÀ×·Á¤â¤Ê¤¯¾Ã¤¨µî¤Ã¤¿¡Ä")
(moongate-animate black-gate (reverse blackgate-stages))
(kern-sleep 1000)
- (kern-log-msg "You lie dreaming for a while, of another life...")
+ (kern-log-msg "¤·¤Ð¤é¤¯¤Î´Ö¡¢Ê̤οÍÀ¸¤ÎÌ´¤ò¸«¤Æ¤¤¤¿¤è¤¦¤À¡Ä")
(kern-sleep 2000)
(kern-log-enable #f)
(kern-char-set-sleep ch_wanderer #f)
(kern-player-set-follow-mode)
(kern-log-enable #t)
- (kern-log-msg "...then awaken to a strange new world.")
- (kern-log-msg "To the southwest you see a cave.")
+ (kern-log-msg "¡ÄÌܳФá¤ë¤È¤½¤³¤Ï´ñ̯¤Ê¿·¤·¤¤À¤³¦¤À¤Ã¤¿¡£")
+ (kern-log-msg "ÆîÀ¾¤Ëƶ·¢¤¬¸«¤¨¤ë¡£")
)
(define (simple-start kplayer)
))
-(mk-obj-type 't_statue_of_justice "ancient statue" s_headless_w_sword_statue layer-mechanism
+(mk-obj-type 't_statue_of_justice "¸Å¤¤ÀÐÁü" s_headless_w_sword_statue layer-mechanism
(ifc nil
(method 'xamine (lambda (knpc kpc)
- (kern-log-msg "A worn engraving reads 'STRIKE FOR JUSTICE'")))
+ (kern-log-msg "¡ÖÀµµÁ¤Î¤¿¤á¤ËÂǤơפȤ¤¤¦¾Ã¤¨¤«¤«¤Ã¤¿Ê¸¾Ï¤¬¹ï¤Þ¤ì¤Æ¤¤¤ë¡£")))
(method 'attack soj-strike)
))
(define (soj-accuse knpc kpc)
- (say knpc "Whom do you accuse?")
+ (say knpc "¹ðȯ¤µ¤ì¤ë¤Î¤Ï狼¡©")
(let ((kchar (ui-target (kern-obj-get-location kpc) 19 obj-is-char?)))
(cond ((null? kchar)
- (say knpc "Do you wish to withdraw your charge?")
+ (say knpc "¹ðȯ¤ò¼è¤ê²¼¤²¤ë¤«¡©")
(cond ((yes? kpc)
- (say knpc "Cursed are you: for trifling with serious matters, "
- "a trifling nuisance will haunt your sleep.")
+ (say knpc "¼ö¤ï¤ì¤è¡£·Ú¡¹¤·¤¯Áû¤®¤òµ¯¤³¤¹¼Ô¤è¡£"
+ "·Ú¤¤â¤Î¤¬¿²¤Æ¤¤¤ë¤È¤¤Ë¸½¤ì¤ë¤Ç¤¢¤í¤¦¡£")
(unrest-curse-apply-new kpc 'insect-party-l1)
(kern-conv-end))
(else
(soj-accuse knpc kpc))
))
(else
- (say knpc "Are you certain that you wish to accuse " (kern-obj-get-name kchar) "?")
+ (say knpc "Áʤ¨¤ë¤Î¤Ï³Î¤«¤Ë" (kern-obj-get-name kchar) "¤«¡©")
(cond ((no? kpc)
(soj-accuse knpc kpc))
(else
- (say knpc (kern-obj-get-name kchar) ", you stand accused by " (kern-obj-get-name kpc) ". ")
+ (say knpc (kern-obj-get-name kchar) "¤è¡£Æò¤Ï" (kern-obj-get-name kpc) "¤Ë¹ðȯ¤µ¤ì¤¿¡£")
(soj-get-evidence knpc kpc kchar)
))
))
))
(define (soj-get-evidence knpc kpc kchar)
- (say knpc (kern-obj-get-name kpc) ", produce your evidence.")
+ (say knpc (kern-obj-get-name kpc) "¤è¡£¤½¤Î¾Úµò¤ò¼¨¤»¡£")
(let ((ktype (kern-ui-select-item kpc)))
(cond ((null? ktype)
- (say knpc "Do you have any other evidence?")
+ (say knpc "Ê̤ξڵò¤Ï¤¢¤ë¤«¡©")
(cond ((no? kpc)
(shake-map 15)
- (say knpc "For accusing another with insufficient evidence, "
- "you are guilty of bearing false witness. "
- "Your punishment is exile.")
+ (say knpc "ÉԳΤ«¤Ê¾Úµò¤Ç¾¤Î¼Ô¤òÁʤ¨¤¿¼Ô¤Ï¡¢µ¶¾Ú¤Îºá¤ÈƱ¤¸¤Ç¤¢¤ë¡£"
+ "Æò¤òÄÉÊü¤Î·º¤Ë½è¤¹¡£")
;; todo: implement exile
(make-enemies knpc kpc)
(kern-obj-relocate kpc
((or (not (equal? ktype t_stewardess_journal))
(not (defined? 'ch_steward))
(not (equal? kchar ch_steward)))
- (say knpc "Justice will weigh the evidence.")
+ (say knpc "ÀµµÁ¤Ï¤½¤Î¾Úµò¤ÇÎ̤é¤ì¤ë¤Ç¤¢¤í¤¦¡£")
(log-dots 10 1000)
- (say knpc "The evidence is insufficient.")
+ (say knpc "¤³¤Î¾Úµò¤Ç¤ÏÉÔ½½Ê¬¤Ç¤¢¤ë¡£")
(prompt-for-key)
(soj-get-evidence knpc kpc kchar)
)
(else
- (say knpc "Justice will weigh the evidence.")
+ (say knpc "ÀµµÁ¤Ï¤½¤Î¾Úµò¤ÇÎ̤é¤ì¤ë¤Ç¤¢¤í¤¦¡£")
(log-dots 10 1000)
- (say knpc (kern-obj-get-name kchar) ", you are guilty of betrayal. Your punishment is death, "
- "and may your name be a curse forevermore.")
- (aside kpc 'ch_ini "Justice at last!")
+ (say knpc (kern-obj-get-name kchar) "¤è¡£Æò¤Ï΢ÀÚ¤ê¤Îºá¤òÈȤ·¤¿¡£Æò¤Ø¤Îȳ¤Ï»à¤À¡£"
+ "¤½¤·¤Æ¤½¤Î̾¤Ï±Ê±ó¤Ë¼ö¤ï¤ì¤ë¤Ç¤¢¤í¤¦¡£")
+ (aside kpc 'ch_ini "¤Ä¤¤¤ËÀµµÁ¤¬¡ª")
(kern-being-set-current-faction kchar faction-monster)
(quest-data-update-with 'questentry-warritrix 'avenged 1 (quest-notify (grant-party-xp-fn 200)))
(define (soj-hail knpc kpc)
- (say knpc "Do you seek justice?")
+ (say knpc "Æò¤ÏÀµµÁ¤òµá¤á¤ë¤â¤Î¤«¡©")
(cond ((no? kpc)
- (say knpc "Then cursed are you: an unjust man would live among beasts, "
- "so beasts will give you no rest.")
+ (say knpc "¤·¤«¤é¤Ð¼ö¤ï¤ì¤è¡£ÉÔÀµ¤òƯ¤¯¼Ô¤Ï½Ã¤ÎÃæ¤ÇÀ¸¤¤è¡£"
+ "½Ã¤ÏÆò¤òµÙ¤Þ¤»¤Ì¤Ç¤¢¤í¤¦¡£")
(unrest-curse-apply-new kpc 'wolf-party-l2)
(kern-conv-end))
(else
- (say knpc "Speak truly, or be cursed. Do you accuse another of theft, false witness, oath-breaking, or betrayal?")
+ (say knpc "¿¿¼Â¤òÏ仡¢¤·¤«¤é¤º¤Ð¼ö¤ï¤ì¤è¡£Åð¤ß¡¢µ¶¾Ú¡¢°ãÈ¿¡¢Î¢ÀÚ¤ê¤Ç¾¤Î¼Ô¤òÁʤ¨¤ë¤«¡©")
(cond ((no? kpc)
- (say knpc "Then go in peace, and do not strike me again in vain.")
+ (say knpc "¤·¤«¤é¤ÐÊ¿²º¤ËÀ¸¤¤è¡£¤½¤·¤ÆÆóÅÙ¤È̵°ÕÌ£¤Ë²æ¤òÂǤĤʡ£")
(kern-conv-end))
(else
- (say knpc "Be warned! If you accuse with insufficient evidence, you shall be guilty of bearing false witness, and shall be punished. "
- "Are you certain you want to accuse another at this time?")
+ (say knpc "·Ù¹ð¤¹¤ë¡ª³Î¸Ç¤¿¤ë¾Úµò¤Ê¤·¤Ç¾¤Î¼Ô¤òÁʤ¨¤ë¼Ô¤Ï¡¢µ¶¾Ú¤Îºá¤òÈȤ·¤Æ¤¤¤ë¤Î¤ÈƱ¤¸¤Ç¤¢¤ë¡£¤½¤·¤Æȳ¤»¤é¤ì¤ë¤Ç¤¢¤í¤¦¡£"
+ "º£¡¢ËÜÅö¤ËÁʤ¨¤ë¤«¡©")
(cond ((no? kpc)
- (say knpc "If you accuse truly, then go in peace and gather more evidence. But if you accuse falsely, do not strike me again.")
+ (say knpc "¿¿¼Â¤òµá¤á¤ë¤Ê¤éÊ¿²º¤ËÀ¸¤¡¢¤½¤·¤Æ¾Úµò¤ò½¸¤á¤è¡£¤À¤¬Â¾¤Î¼Ô¤Ëºá¤òÃ夻¤ë¤Ê¤éÆóÅ٤Ȳæ¤òÂǤĤʡ£")
(kern-conv-end))
(else
- (say knpc "JUSTICE SUMMONS THE ASSEMBLY!")
+ (say knpc "ÀµµÁ¤Î²¼¤Ë¾¤½¸¤¹¤ë¡ª")
(shake-map 5)
(soj-assemble-everyone (kern-obj-get-location knpc))
(soj-accuse knpc kpc))
(let ((kchar
(kern-mk-char
'ch_soj ; tag
- "Statue of Justice" ; name
+ "ÀµµÁ¤ÎÁü" ; name
sp_statue ; species
nil ; occ
s_headless_w_sword_statue ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Glasdrin
+;; ¥°¥é¥¹¥É¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_stew
(list 0 0 gv-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Victoria is the temporal ruler of Glasdrin,
-;; bearing the title of Stewardess.
+;; ¥ô¥£¥¯¥È¥ê¥¢¤Ï¥°¥é¥¹¥É¥ê¥ó¤Î°ì»þŪ¤Ê»ØƳ¼Ô¤Ç¡¢Åý¼£¼Ô¤Î̾¤òÇØÉé¤Ã¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (stew-hail knpc kpc)
(if (not (stew-met? (kobj-gob-data knpc)))
(begin
- (say knpc "[You meet a stately woman with an air of authority] "
- "Hail, Wanderer. I have heard of your coming.")
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï°Ò¸·¤Îɺ¤¦½÷À¤È²ñ¤Ã¤¿¡£¡Ï"
+ "¤è¤¦¤³¤½¡¢Ì¤¤¿Í¤è¡£¤¢¤Ê¤¿¤¬Íè¤ë¤³¤È¤Ïʹ¤¤¤Æ¤¤¤Þ¤·¤¿¡£")
(stew-met! (kobj-gob-data knpc)))
- (say knpc "[You meet a stately woman with an air of authority] "
- "Hail again, Wanderer.")))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï°Ò¸·¤Îɺ¤¦½÷À¤È²ñ¤Ã¤¿¡£¡Ï"
+ "¤Þ¤¿²ñ¤¤¤Þ¤·¤¿¤Í¡¢Ì¤¤¿Í¤è¡£")))
(define (stew-default knpc kpc)
- (say knpc "I cannot help you with that."))
+ (say knpc "¤½¤ì¤Ï¼ê½õ¤±¤Ç¤¤Þ¤»¤ó¡£"))
(define (stew-name knpc kpc)
- (say knpc "I am Victoria, Stewardess of Glasdrin."))
+ (say knpc "»ä¤Ï¥ô¥£¥¯¥È¥ê¥¢¡¢¥°¥é¥¹¥É¥ê¥ó¤ÎÅý¼£¼Ô¤Ç¤¹¡£"))
(define (stew-join knpc kpc)
- (say knpc "How bold!"))
+ (say knpc "²¿¤ÈÂçÃÀ¤Ê¡ª"))
(define (stew-job knpc kpc)
- (say knpc "I am the Stewardess of Glasdrin."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÎÅý¼£¼Ô¤Ç¤¹¡£"))
(define (stew-bye knpc kpc)
- (say knpc "Keep to the path, Wanderer."))
+ (say knpc "¼«¤é¤ÎÆ»¤ò¿Ê¤ß¤Ê¤µ¤¤¡¢Ì¤¤¿Í¤è¡£"))
;; Warritrix...
(define (stew-warr knpc kpc)
(cond ((player-found-warritrix?)
- (if (ask? knpc kpc "I heard of her passing. Surely you do not think I had anything to do with it?")
+ (if (ask? knpc kpc "Èà½÷¤¬¤³¤ÎÀ¤¤òµî¤Ã¤¿¤³¤È¤Ïʹ¤¤Þ¤·¤¿¡£»ä¤¬²¿¤«´Ø¤ï¤Ã¤¿¤È¤Ï¡¢¤â¤Á¤í¤ó¹Í¤¨¤Æ¤¤¤Þ¤»¤ó¤Í¡©")
+ (say knpc "ÅöÁ³¤Ç¤¹¡£¤¦¤ï¤µ¤Ï̵»ë¤·¤Ê¤µ¤¤¡£¤½¤ì¤Ï»ä¤ÎÀ¯Å¨¤¬¹¤á¤¿¤â¤Î¤Ç¤¹¡£")
(begin
- (say knpc "If you dare to accuse me, strike the statue in the courtyard. "
- "But I warn you: you are a homeless vagrant, and I am ruler of the most powerful city in the land. "
- "It will be my word against yours, and we deal harshly with false accusers.")
- (aside kpc 'ch_ini "Doubt not, you treacherous witch, that we will accuse you, "
- "and with more than just words.")
+ (say knpc "ÂçÃÀ¤Ë¤â»ä¤òÁʤ¨¤ë¤Î¤Ê¤é¤Ð¡¢ÃæÄí¤ÎÀÐÁü¤òÂǤÁ¤Ê¤µ¤¤¡£"
+ "¤Ç¤â·Ù¹ð¤·¤Þ¤¹¡£¤¢¤Ê¤¿¤Ï½É¤Ê¤·¤ÎÉ÷ÍèË·¡¢¤½¤·¤Æ»ä¤Ï¤³¤ÎÃϤǺǤâÎϤΤ¢¤ëÄ®¤Î»ÙÇۼԤʤΤǤ¹¡£"
+ "¤½¤ì¤Ï»ä¤È¤¢¤Ê¤¿¤Î¸ÀÍÕ¤âƱ¤¸¡£¤½¤·¤Æµ¶¤ê¤Î¹ðȯ¿Í¤Ï¸·¤·¤¯È³¤»¤é¤ì¤ë¤Ç¤·¤ç¤¦¡£")
+ (aside kpc 'ch_ini "̤¤¤Ê¤É¤Ê¤¤¡£Î¢ÀÚ¤ê¼Ô¤ÎËâ½÷¤è¡¢²æ¡¹¤Ï¤¢¤Ê¤¿¤òÁʤ¨¤ë¡£"
+ "¤¢¤Ê¤¿°Ê¾å¤Î¸ÀÍդǤâ¤Ã¤Æ¡£")
)
- (say knpc "Of course not. Ignore the rumours. They are spread by jealous political rivals.")
))
((quest-data-assigned? 'questentry-wise)
- (say knpc "I have not seen her in some time. I believe she has been called away on some errand.")
+ (say knpc "¤·¤Ð¤é¤¯²ñ¤Ã¤Æ¤ª¤ê¤Þ¤»¤ó¡£²¿¤«¤ÎǤ̳¤Î¿ë¹ÔÃæ¤È»×¤¤¤Þ¤¹¡£")
(quest-data-update 'questentry-warritrix 'assignment 1)
)
(else
- (say knpc "One of our finest warriors. I believe she is out on patrol right now.")
+ (say knpc "²æ¤é¤ÎºÇ¤âÍ¥¤ì¤¿Àï»Î¤Ç¤¹¡£º£¤Ï·ÙÈ÷¤Ë½Ð¤Æ¤¤¤ë¤È»×¤¤¤Þ¤¹¡£")
(quest-data-update 'questentry-warritrix 'general-loc 1)
)
))
(define (stew-erra knpc kpc)
- (say knpc "Speak with Commander Jeffries, he may know the details."))
+ (say knpc "¥¸¥§¥Õ¥ê¡¼¥º»ÊÎá´±¤Ëʹ¤¤¤Æ¤¯¤À¤µ¤¤¡£Èà¤Ê¤é¾Ü¤·¤¤¤³¤È¤òÃΤäƤ¤¤ë¤Ï¤º¤Ç¤¹¡£"))
;; Steward...
(define (stew-stew knpc kpc)
- (say knpc "Glasdrin is ruled by an elected Steward, "
- "who is charged with the safekeeping of the City and the Realm. "
- ))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÏÁª½Ð¤µ¤ì¤¿Åý¼£¼Ô¤Ë¤è¤Ã¤Æ¼£¤á¤é¤ì¤Æ¤¤¤Þ¤¹¡£"
+ "¤½¤ÎÀÕ̳¤ÏÄ®¤ÈÎÎÅÚ¤ò¼é¤ë¤³¤È¤Ë¤¢¤ê¤Þ¤¹¡£"))
(define (stew-real knpc kpc)
- (say knpc "The Realm of Glasdrin extends west to the Fens and southeast to "
- "the Great Wood. We also maintain a presence between the surface and "
- "the Underworld."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÎÎÎÅڤϡ¢À¾¤Î¼¾ÃÏÂÓ¤«¤éÆîÅì¤Î¿¹¤Þ¤Ç¤Ç¤¹¡£"
+ "ÃϾå¤ÈÃϲ¼¤Î°Ý»ý¤â¹Ô¤Ã¤Æ¤¤¤Þ¤¹¡£"))
;; Rune...
(define (stew-rune knpc kpc)
(if (quest-data-assigned? 'questentry-wise)
- (say knpc "I know the Warritrix wore... wears a Rune about her neck, "
- "but I know not what it signifies.")
- (say knpc "I know the Warritrix wears a Rune about her neck, "
- "but I know not what it signifies.")
+ (say knpc "Æ®»Î¤ÏÀÐÈǤò¼ó¤Ë³Ý¤±¤Æ¤¤¤Þ¤·¤¿¡Ä¤¤¤Þ¤¹¡£"
+ "¤Ç¤â¡¢²¿¤¬½ñ¤«¤ì¤Æ¤¤¤ë¤Î¤«¤ÏÃΤê¤Þ¤»¤ó¡£")
+ (say knpc "Æ®»Î¤ÏÀÐÈǤò¼ó¤Ë³Ý¤±¤Æ¤¤¤Þ¤¹¡£"
+ "¤Ç¤â¡¢²¿¤¬½ñ¤«¤ì¤Æ¤¤¤ë¤Î¤«¤ÏÃΤê¤Þ¤»¤ó¡£")
)
(quest-data-assign-once 'questentry-rune-l)
)
(define (stew-wore knpc kpc)
(if (quest-data-assigned? 'questentry-wise)
- (say knpc "What are you implying? It was merely a slip of the tongue.")
+ (say knpc "²¿¤¬¸À¤¤¤¿¤¤¤Î¤Ç¤¹¡©¾¯¤·¸À¤¤´Ö°ã¤¨¤¿¤À¤±¤Ç¤¹¡£")
(stew-default knpc kpc)
))
;; Absalot...
(define (stew-absa knpc kpc)
- (say knpc "Absalot was a cancer on the land. It had to be removed "
- "completely before its evil spread. Surely you see the wisdom "
- "of this?")
+ (say knpc "¥¢¥Ö¥µ¥í¥Ã¥È¤Ï¤³¤ÎÃϤÎɤǡ¢"
+ "°¤¬¹¤¬¤ëÁ°¤Ë´°Á´¤Ë¼è¤ê½ü¤«¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£"
+ "¤³¤Î·èÃǤˤĤ¤¤Æ¤ÏÍý²ò¤·¤Æ¤¤¤¿¤À¤±¤Þ¤¹¤Í¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "The loss of innocent lives is always a tragedy, but it is "
- "impossible to fight wars without them.")
- (say knpc "What do you know of affairs of state? You are little more "
- "than a common rogue.")))
+ (say knpc "ºá¤Î¤Ê¤¤¿Í¤Þ¤ÇÌ¿¤òÍî¤È¤·¤¿¤³¤È¤ÏÈá·à¤Ç¤¹¡£"
+ "¤·¤«¤·¡¢¤½¤Îµ¾À·¤Ê¤·¤ËÀ臘¤³¤È¤Ï¤Ç¤¤Ê¤¤¤Î¤Ç¤¹¡£")
+ (say knpc "¤¢¤Ê¤¿¤Ë²¿¤¬¤ï¤«¤ë¤È¤¤¤¦¤Î¤Ç¤¹¤«¡©"
+ "¤¢¤Ê¤¿¤Ï¤¿¤À¤Î¤Ê¤é¤º¼Ô¤Ç¤·¤ç¤¦¡£")))
(define (stew-inno knpc kpc)
- (say knpc "Not all the citizens of Absalot were wicked, "
- "but they tolerated wickedness in their midst."))
+ (say knpc "¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÁ´¤Æ¤Î¼Ô¤¬¼Ù°¤À¤Ã¤¿¤ï¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£"
+ "¤·¤«¤·¼Ù°¤µ¤ÎÃæ¤Ë¤¢¤ê¡¢¤½¤ì¤ËÂФ·´²Âç¤Ç¤·¤¿¡£"))
(define (stew-wick knpc kpc)
- (say knpc "The people of Absalot engaged in human sacrifice and "
- "demon-worship. They began to have converts in other cities, even "
- "here."))
+ (say knpc "¥¢¥Ö¥µ¥í¥Ã¥È¤Î¿Í¡¹¤Ï¿Í´Ö¤ÎÀ¸ìÓ¤ä°Ëâ¿òÇÒ¤ò¹Ô¤Ã¤Æ¤¤¤Þ¤·¤¿¡£"
+ "¤½¤·¤Æ¾¤ÎÄ®¡Ä¤³¤ÎÄ®¤Ë¤â²þ½¡¼Ô¤¬¸½¤ì»Ï¤á¤Þ¤·¤¿¡£"))
(define (stew-conv knpc kpc)
- (say knpc "When we learned of them, we burned them at the stake. "
- "I met with the Wise and the leaders of the other cities to decide "
- "what to do.")
+ (say knpc "¤½¤Î¤³¤È¤òÃΤ俤Ȥ¡¢Èà¤é¤ò²Ð·º¤Ë¤·¤Þ¤·¤¿¡£"
+ "»ä¤Ï¸¼Ô¤ä¾¤ÎÄ®¤Î»ØƳ¼Ô¤¿¤Á¤È²ñ¤¤¡¢¤É¤¦¤¹¤ë¤Î¤«·è¤á¤Þ¤·¤¿¡£")
(prompt-for-key)
- (say knpc "Some of the Wise were squeamish, but in the end "
- "we overruled their dissent and formed a coalition army. "
- "It marched on Absalot, razed it and sealed "
- "the passage so that none may build on that site ever again."))
+ (say knpc "¸¼Ô¤ÎÃæ¤Î²¿¿Í¤«¤Ïí´í°¤·¤Þ¤·¤¿¡£¤·¤«¤·¡¢"
+ "»ä¤¿¤Á¤ÏÈà¤é¤ÎÈ¿Âаո«¤òµÑ²¼¤·¡¢Ï¢¹ç·³¤ò·ëÀ®¤·¤Þ¤·¤¿¡£"
+ "¤½¤·¤Æ¥¢¥Ö¥µ¥í¥Ã¥È¤Ë¿Ê·³¤·¡¢ÆóÅ٤ȺƷú¤Ç¤¤Ì¤è¤¦Ç˲õ¤·ÄÌÏ©¤òÉõº¿¤·¤¿¤Î¤Ç¤¹¡£"))
(define (stew-wise knpc kpc)
- (say knpc "The Wise are an aid to the rulers of the cities, but alone they "
- "have little power. Even the Enchanter could not stand against the "
- "armed might of Glasdrin should he ever stand in our way.")
+ (say knpc "¸¼Ô¤ÏÄ®¤Î»ØƳ¼Ô¤ò±ç½õ¤·¤Æ¤¤¤Þ¤¹¤¬¡¢°ì¿Í¤Ç¤Ï¾®¤µ¤ÊÎϤ·¤«¤¢¤ê¤Þ¤»¤ó¡£"
+ "¤«¤Ä¤Æ»ä¤¿¤Á¤ËÈ¿ÂФ·¤¿ËâÆ»»Õ¤Ç¤µ¤¨¡¢¥°¥é¥¹¥É¥ê¥ó¤ÎÎϤˤÏÄñ¹³¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£")
(quest-wise-subinit 'questentry-enchanter)
)
(define (stew-rogu knpc kpc)
- (say knpc "Where do you come from? What is your purpose in our land? "
- "For all we know you are a spy, a scout at the vanguard of an alien "
- "army. Are you?")
+ (say knpc "¤¢¤Ê¤¿¤Ï¤É¤³¤«¤éÍ褿¤Î¤Ç¤¹¤«¡©²æ¡¹¤ÎÃϤǤÎÌÜŪ¤Ï¡©"
+ "¤â¤·¤ä°Û¹ñ¤Î·³Ââ¤ÎÀ͸ô¤Ç¤Ï¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "Hmm. If I believed you I would throw you to the inquisitors "
- "and torture the truth out of you. But I think you are a poser "
- "and a self-inflated fool. You will vanish into obscurity like "
- "the Wanderers that preceded you.")
- (say knpc "No, I think you are merely a vagabond, here by "
- "accident. All the same, I will be watching you carefully, "
- "Wanderer. If you betray my city you will know my wrath at the "
- "hands of our torturers."))
+ (say knpc "¤¦¤¦¤à¡£¤â¤·¤¢¤Ê¤¿¤Î¸À¤¦¤³¤È¤¬ËÜÅö¤Ê¤é¡¢¿ÒÌä¼Ô¤ÎÃæ¤ËÅꤲ¹þ¤ß¡¢"
+ "¹éÌä¤Ë¤«¤±Á´¤Æ¤òÅǤ½Ð¤µ¤»¤ë¤Ç¤·¤ç¤¦¡£"
+ "¤·¤«¤·¡¢¼ÂºÝ¤Ë¤Ï¸ØÂçÌÑÁÛ¤òÊú¤¨¤¿¶ò¤«¤ÊÌÜΩ¤Á¤¿¤¬¤ê²°¤Ç¤·¤ç¤¦¡£"
+ "̤¤¿Í¤è¡¢Ìµ¤«¤é½Ð¤Ç¤¿¤è¤¦¤Ë̵¤Ë¾Ã¤¨¤Ê¤µ¤¤¡£")
+ (say knpc "¤¨¤¨¡£¤¢¤Ê¤¿¤Ï¶öÁ³¤³¤³¤ËÍ褿¤¿¤À¤ÎÉ÷ÍèË·¤Ç¤·¤ç¤¦¡£"
+ "¤¤¤º¤ì¤Ë¤»¤è¡¢Ì¤¤¿Í¤è¡¢¤¢¤Ê¤¿¤Ë¤ÏÃí°Õ¤¹¤Ù¤¤Ç¤¹¡£"
+ "¤³¤ÎÄ®¤ËÇؤ¯¤è¤¦¤Ê¤³¤È¤¬¤¢¤ì¤Ð¡¢¹éÌä¼Ô¤Î¼ê¤Ë¤è¤Ã¤Æ»ä¤ÎÅܤê¤òÃΤ뤳¤È¤Ç¤·¤ç¤¦¡£"))
(kern-conv-end))
;; Townspeople...
(define (stew-glas knpc kpc)
- (say knpc "Glasdrin is a beacon of light in these dark times. "
- "Time and again her paladins have sacrificed for the good of "
- "the realm, and turned back the tide of darkness. The Peninsula "
- "owes much to this city."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Ï°Å°Ç¤ÎÃæ¤Ë¤¢¤ëƳ¤¤Î¸÷¤Ç¤¹¡£"
+ "À»µ³»Î¤¿¤Á¤Ï¤³¤ÎÎÎÅÚ¤ÎÀµµÁ¤Î¤¿¤á¤Ë¿È¤ò¤µ¤µ¤²¡¢°Ç¤ò²¡¤·Ìᤷ¤Æ¤¤¤Þ¤¹¡£"
+ "ȾÅç¤Î¿Í¡¹¤Ï¤³¤ÎÄ®¤Î²¸·Ã¤Ë¤¢¤º¤«¤Ã¤Æ¤¤¤Þ¤¹¡£"))
(define (stew-unde knpc kpc)
- (say knpc "The Underworld is a sunless realm where monsters breed. "
- "I am committed to purging it of these evil creatures, "
- "for they are a menace to all."))
+ (say knpc "Ãϲ¼À¤³¦¤ÏÆü¤Î¤¢¤¿¤é¤Ê¤¤²øʪ¤ÎÀ¸¤Þ¤ì¤ë¾ì½ê¤Ç¤¹¡£"
+ "»ä¤Ë¤ÏÁ´¤Æ¤Ë¤È¤Ã¤Æ¶¼°Ò¤Ç¤¢¤ë°¤·¤¼Ô¤¿¤Á¤ò°ìÁݤ¹¤ëµÁ̳¤¬¤¢¤ê¤Þ¤¹¡£"))
(define stew-conv
(ifc glasdrin-conv
(method 'join stew-join)
(method 'city stew-glas)
+ (method 'town stew-glas)
(method 'glas stew-glas)
(method 'warr stew-warr)
(method 'erra stew-erra)
(method 'conv stew-conv)
(method 'wise stew-wise)
(method 'rogu stew-rogu)
+ (method 'wrog stew-rogu)
(method 'unde stew-unde)
))
(bind
(kern-char-force-drop
(kern-mk-char 'ch_steward ; tag
- "Victoria" ; name
+ "¥ô¥£¥¯¥È¥ê¥¢" ; name
sp_human ; species
nil ; occ
s_lady ; sprite
(let ((gob (kobj-gob-data knpc)))
(if (not (ankh-done? gob))
(begin
- (say knpc "[A vibrating voice fills your head] "
- "At the dawn of the next age, how will the world be made?")
- (let ((resp (kern-conv-get-reply kpc)))
- (if (not (eq? resp 'anew))
- (say knpc "Then the new age has not yet come.")
+ (say knpc "¡ÎƬ¤ÎÃæ¤Ç¿Ì¤¨¤ëÀ¼¤¬¶Á¤¤¤¿¡£¡Ï"
+ "¼¡¤Î»þÂå¤ÎÌëÌÀ¤±¤Ë¡¢À¤³¦¤Ï¤É¤Î¤è¤¦¤Ë¤Ê¤ë¤«¡©")
+ (let ((resp (kern-conv-get-string kpc)))
+ (if (not (string=? resp "¥µ¥¤¥»¥¤"))
+ (say knpc "¤Ê¤é¤Ð¿·¤·¤¤»þÂå¤Ï¤Þ¤Àˬ¤ì¤Ê¤¤¤Ç¤¢¤í¤¦¡£")
(begin
- (say knpc "THEN THE NEW AGE HAS BEGUN!")
+ (say knpc "¤Ê¤é¤Ð¿·¤·¤¤»þÂ夬»Ï¤Þ¤ë¡ª")
(shake-map 15)
(kern-map-flash 500)
(shake-map 15)
- (kern-map-flash 500)
+ (kern-map-flash 500)
(shake-map 15)
(ankh-done! gob)
(blit-map (loc-place (kern-obj-get-location knpc))
(bind
(kern-mk-char
'ch_ankh ; tag
- "Ankh" ; name
+ "¥¢¥ó¥¯" ; name
ankh-species ; species
ankh-occ ; occ
s_ankh ; sprite
;;----------------------------------------------------------------------------
-;; Terrains
+;; ÃÏ·Á
;;----------------------------------------------------------------------------
(define (terrain-effect-burn obj)
(if (and (> (kern-dice-roll "1d20") 10)
(kern-obj-is-being? obj)
(kern-obj-add-effect obj ef_poison nil))
- (kern-log-msg "Noxious fumes!")))
+ (kern-log-msg "ÆÇ̸¤À¡ª")))
;; swamp logic:
;; 1) swamp only effects you on your turn (ie the 'slow progress' doesnt mean you get whacked 3 times before your next turn)
(kern-obj-add-effect obj ef_poison nil)
(if (kern-place-is-wilderness? (loc-place (kern-obj-get-location obj)))
(if (is-player-party-member? obj)
- (kern-log-msg "Noxious fumes!"))
- (msg-log-visible (kern-obj-get-location obj) "Noxious fumes!")
+ (kern-log-msg "ÆÇ̸¤À¡ª"))
+ (msg-log-visible (kern-obj-get-location obj) "ÆÇ̸¤À¡ª")
)
)
))
(list
;; tag name pclass sprite t light step-on
;; ================= ============== ============= ============== = ===== =======
- (list 't_stars "stars" pclass-space s_stars trn 0 'chasm-fall)
- (list 't_deep "deep water" pclass-deep s_deep trn 0 nil)
- (list 't_sunlit_deep "deep water" pclass-deep s_deep trn 64 nil)
- (list 't_shallow "water" pclass-deep s_shallow trn 0 nil)
- (list 't_blendable_shoals "shallow water" pclass-shoals s_shoals trn 0 nil)
- (list 't_shoals "shallow water" pclass-shoals s_shoals trn 0 nil)
- (list 't_sludge "oily sludge" pclass-sludge s_sludge trn 0 nil)
- (list 't_shallow_sludge "oily sludge" pclass-shallows s_shallow_sludge trn 0 nil)
- (list 't_grass "grass" pclass-grass s_grass trn 0 nil)
- (list 't_sunlit_grass "grass" pclass-grass s_grass trn 64 nil)
- (list 't_dirt "dirt" pclass-grass s_dirt trn 0 nil)
- (list 't_gravel "gravel" pclass-grass s_gravel trn 0 nil)
- (list 't_trees_v "trees" pclass-trees s_trees trn 0 nil)
- (list 't_trees "trees" pclass-trees s_trees lgt 0 nil)
- (list 't_trees_d "trees" pclass-trees s_trees dns 0 nil)
+ (list 't_stars "À±¡¹" pclass-space s_stars trn 0 'chasm-fall)
+ (list 't_deep "¿¼¤¤¿å" pclass-deep s_deep trn 0 nil)
+ (list 't_sunlit_deep "¿¼¤¤¿å" pclass-deep s_deep trn 64 nil)
+ (list 't_shallow "¿å" pclass-deep s_shallow trn 0 nil)
+ (list 't_blendable_shoals "Àõ¤¤¿å" pclass-shoals s_shoals trn 0 nil)
+ (list 't_shoals "Àõ¤¤¿å" pclass-shoals s_shoals trn 0 nil)
+ (list 't_sludge "¤Ì¤«¤ë¤ß" pclass-sludge s_sludge trn 0 nil)
+ (list 't_shallow_sludge "¤Ì¤«¤ë¤ß" pclass-shallows s_shallow_sludge trn 0 nil)
+ (list 't_grass "ÁðÃÏ" pclass-grass s_grass trn 0 nil)
+ (list 't_sunlit_grass "ÁðÃÏ" pclass-grass s_grass trn 64 nil)
+ (list 't_dirt "ÅÚ" pclass-grass s_dirt trn 0 nil)
+ (list 't_gravel "º½Íø" pclass-grass s_gravel trn 0 nil)
+ (list 't_trees_v "ÌÚ¡¹" pclass-trees s_trees trn 0 nil)
+ (list 't_trees "ÌÚ¡¹" pclass-trees s_trees lgt 0 nil)
+ (list 't_trees_d "ÌÚ¡¹" pclass-trees s_trees dns 0 nil)
- (list 't_forest_v "forest" pclass-forest s_forest trn 0 nil)
- (list 't_forest "forest" pclass-forest s_forest hvy 0 nil)
- (list 't_forest_d "forest" pclass-forest s_forest 7 0 nil)
- (list 't_forest_l "forest" pclass-forest s_forest dns 0 nil)
- (list 't_forest_b "forest" pclass-forest s_forest opq 0 nil)
+ (list 't_forest_v "¿¹" pclass-forest s_forest trn 0 nil)
+ (list 't_forest "¿¹" pclass-forest s_forest hvy 0 nil)
+ (list 't_forest_d "¿¹" pclass-forest s_forest 7 0 nil)
+ (list 't_forest_l "¿¹" pclass-forest s_forest dns 0 nil)
+ (list 't_forest_b "¿¹" pclass-forest s_forest opq 0 nil)
- (list 't_hills "hills" pclass-hills s_hills dns 0 nil)
- (list 't_mountains_v "mountains" pclass-vmountains s_mountains trn 0 nil)
- (list 't_mountains_b "mountains (below)" pclass-space s_mountains trn 0 nil)
- (list 't_mountains "mountains" pclass-mountains s_mountains opq 0 nil)
- (list 't_fake_mountains "mountains" pclass-grass s_mountains opq 0 nil)
- (list 't_bog "bog" pclass-hills s_bog trn 0 'terrain-effect-swamp)
- (list 't_lava "lava" pclass-hills s_lava trn 128 'terrain-effect-lava)
- (list 't_fake_lava "lava" pclass-grass s_lava trn 128 nil)
- (list 't_deep_lava "deep lava" pclass-deep s_deep_lava trn 16 'great-burn)
- (list 't_fire_terrain "fire" pclass-grass s_field_fire trn 512 'burn)
- (list 't_fireplace "fireplace" pclass-grass s_fireplace trn 2048 'burn)
+ (list 't_hills "µÖ" pclass-hills s_hills dns 0 nil)
+ (list 't_mountains_v "»³Ì®" pclass-vmountains s_mountains trn 0 nil)
+ (list 't_mountains_b "»³Ì®¤Î¤Õ¤â¤È" pclass-space s_mountains trn 0 nil)
+ (list 't_mountains "»³Ì®" pclass-mountains s_mountains opq 0 nil)
+ (list 't_fake_mountains "»³Ì®" pclass-grass s_mountains opq 0 nil)
+ (list 't_bog "¾ÂÃÏ" pclass-hills s_bog trn 0 'terrain-effect-swamp)
+ (list 't_lava "ÍÏ´ä" pclass-hills s_lava trn 128 'terrain-effect-lava)
+ (list 't_fake_lava "ÍÏ´ä" pclass-grass s_lava trn 128 nil)
+ (list 't_deep_lava "¿¼¤¤ÍÏ´ä" pclass-deep s_deep_lava trn 16 'great-burn)
+ (list 't_fire_terrain "±ê" pclass-grass s_field_fire trn 512 'burn)
+ (list 't_fireplace "ÃÈϧ" pclass-grass s_fireplace trn 2048 'burn)
- (list 't_cobblestone "cobblestone" pclass-grass s_cobblestone trn 0 nil)
- (list 't_gold_cobble "cobblestone" pclass-grass s_gold_cobble trn 0 nil)
- (list 't_cyan_cobble "cobblestone" pclass-grass s_cyan_cobble trn 0 nil)
- (list 't_gray_cobble "cobblestone" pclass-grass s_gray_cobble trn 0 nil)
- (list 't_blue_cobble "cobblestone" pclass-grass s_blue_cobble trn 0 nil)
- (list 't_olive_cobble "cobblestone" pclass-grass s_olive_cobble trn 0 nil)
- (list 't_white_cobble "cobblestone" pclass-grass s_white_cobble trn 0 nil)
- (list 't_black_tile "floor tile" pclass-grass s_black_tile trn 0 nil)
- (list 't_gold_spiral_tile "floor tile" pclass-grass s_gold_spiral_tile trn 0 nil)
- (list 't_blue_spiral_tile "floor tile" pclass-grass s_blue_spiral_tile trn 0 nil)
- (list 't_tombstone "tombstone" pclass-boulder s_tombstone trn 0 nil)
- (list 't_tombstone2 "tombstone" pclass-boulder s_tombstone2 trn 0 nil)
+ (list 't_cobblestone "Àоö" pclass-grass s_cobblestone trn 0 nil)
+ (list 't_gold_cobble "Àоö" pclass-grass s_gold_cobble trn 0 nil)
+ (list 't_cyan_cobble "Àоö" pclass-grass s_cyan_cobble trn 0 nil)
+ (list 't_gray_cobble "Àоö" pclass-grass s_gray_cobble trn 0 nil)
+ (list 't_blue_cobble "Àоö" pclass-grass s_blue_cobble trn 0 nil)
+ (list 't_olive_cobble "Àоö" pclass-grass s_olive_cobble trn 0 nil)
+ (list 't_white_cobble "Àоö" pclass-grass s_white_cobble trn 0 nil)
+ (list 't_black_tile "¾²¥¿¥¤¥ë" pclass-grass s_black_tile trn 0 nil)
+ (list 't_gold_spiral_tile "¾²¥¿¥¤¥ë" pclass-grass s_gold_spiral_tile trn 0 nil)
+ (list 't_blue_spiral_tile "¾²¥¿¥¤¥ë" pclass-grass s_blue_spiral_tile trn 0 nil)
+ (list 't_tombstone "ÊèÀÐ" pclass-boulder s_tombstone trn 0 nil)
+ (list 't_tombstone2 "ÊèÀÐ" pclass-boulder s_tombstone2 trn 0 nil)
- (list 't_impassable_cobblestone "cobblestone" pclass-wall s_cobblestone trn 0 nil)
- (list 't_flagstones "flagstones" pclass-grass s_flagstone trn 0 nil)
- (list 't_inv_wall "flagstones" pclass-repel s_flagstone trn 0 'burn)
- (list 't_doorway "doorway" pclass-grass s_stone_arch trn 0 nil) ;;dont use this if poss
- (list 't_leftwing "castle wall" pclass-wall s_leftwing trn 0 nil)
- (list 't_rightwing "castle wall" pclass-wall s_rightwing trn 0 nil)
- (list 't_ship_hull "ship's bulwark" pclass-wall s_wall trn 0 nil)
- (list 't_ship_hull2 "ship's hull" pclass-wall s_wall opq 0 nil)
- (list 't_sh_hull_NE "ship's hull" pclass-wall s_wall_b trn 0 nil)
- (list 't_sh_hull_NW "ship's hull" pclass-wall s_wall_a trn 0 nil)
- (list 't_sh_hull_SE "ship's hull" pclass-wall s_wall_c trn 0 nil)
- (list 't_sh_hull_SW "ship's hull" pclass-wall s_wall_d trn 0 nil)
- (list 't_mast "mast" pclass-wall s_mast trn 0 nil)
- (list 't_ships_wheel "ship's wheel" pclass-wall s_ships_wheel trn 0 nil)
- (list 't_deck "deck" pclass-grass s_deck trn 0 nil)
- (list 't_boulder "boulder" pclass-boulder s_boulder lgt 0 nil)
- (list 't_wall_rock_v "rock wall" pclass-wall s_wall_rock trn 0 nil)
- (list 't_wall_rock "rock wall" pclass-wall s_wall_rock opq 0 nil)
- (list 't_fake_wall_rock "rock wall" pclass-forest s_secret_rock opq 0 nil)
- (list 't_wall_v "wall" pclass-wall s_wall_stone trn 0 nil)
- (list 't_wall "wall" pclass-wall s_wall_stone opq 0 nil)
- (list 't_fake_wall "wall" pclass-forest s_wall_stone opq 0 nil)
- (list 't_wall_torch "wall torch" pclass-wall s_wall_torch opq 1024 'terrain-effect-torch)
- (list 't_arrow_slit "arrow slit" pclass-bars s_arrow_slit trn 0 nil)
- (list 't_window_in_stone "window" pclass-bars s_window_in_stone trn 0 nil)
- (list 't_window_in_rock "window" pclass-bars s_window_in_rock trn 0 nil)
- (list 't_secret_door "secret door" pclass-grass s_secret_door opq 0 nil)
- (list 't_sea_wall_v "sea wall" pclass-wall s_wall trn 0 nil)
- (list 't_sea_wall "sea wall" pclass-wall s_wall opq 0 nil)
- (list 't_sea_wall_NE "sea wall" pclass-wall s_wall_b opq 0 nil)
- (list 't_sea_wall_NW "sea wall" pclass-wall s_wall_a opq 0 nil)
- (list 't_sea_wall_SE "sea wall" pclass-wall s_wall_c opq 0 nil)
- (list 't_sea_wall_SW "sea wall" pclass-wall s_wall_d opq 0 nil)
- (list 't_ankh "ankh" pclass-wall s_ankh trn 0 nil)
- (list 't_statue "statue" pclass-wall s_statue trn 0 nil)
- (list 't_altar "altar" pclass-boulder s_altar trn 0 nil)
- (list 't_rune_altar "rune altar" pclass-boulder s_altar trn 64 nil)
- (list 't_active_altar "activated rune altar" pclass-boulder s_active_altar trn 512 nil)
- (list 't_pillar "pillar" pclass-wall s_pillar trn 0 nil)
- (list 't_false_pillar "pillar" pclass-grass s_pillar trn 0 nil)
- (list 't_counter_2x1_w "counter" pclass-boulder s_counter_2x1_w trn 0 nil)
- (list 't_counter_2x1_c "counter" pclass-boulder s_counter_2x1_c trn 0 nil)
- (list 't_counter_2x1_e "counter" pclass-boulder s_counter_2x1_e trn 0 nil)
- (list 't_counter_1x1 "counter" pclass-boulder s_counter_1x1 trn 0 nil)
- (list 't_bridge_WE "bridge" pclass-bridge s_ew_bridge trn 0 nil)
- (list 't_bridge_NS "bridge" pclass-bridge s_ns_bridge trn 0 nil)
- (list 't_lava_bridge_NS "bridge" pclass-bridge s_ns_bridge trn 0 nil)
- (list 't_chasm "chasm" pclass-space s_null trn 0 nil)
- (list 't_void "empty space" pclass-space s_null trn 0 nil)
- (list 't_trail_0 "trail" pclass-grass s_trail_0 trn 0 nil)
- (list 't_trail_1 "trail" pclass-grass s_trail_1 trn 0 nil)
- (list 't_trail_2 "trail" pclass-grass s_trail_2 trn 0 nil)
- (list 't_trail_3 "trail" pclass-grass s_trail_3 trn 0 nil)
- (list 't_trail_4 "trail" pclass-grass s_trail_4 trn 0 nil)
- (list 't_trail_5 "trail" pclass-grass s_trail_5 trn 0 nil)
- (list 't_trail_6 "trail" pclass-grass s_trail_6 trn 0 nil)
- (list 't_trail_7 "trail" pclass-grass s_trail_7 trn 0 nil)
- (list 't_trail_8 "trail" pclass-grass s_trail_8 trn 0 nil)
- (list 't_trail_9 "trail" pclass-grass s_trail_9 trn 0 nil)
- (list 't_trail_a "trail" pclass-grass s_trail_a trn 0 nil)
- (list 't_trail_b "trail" pclass-grass s_trail_b trn 0 nil)
- (list 't_trail_c "trail" pclass-grass s_trail_c trn 0 nil)
- (list 't_trail_d "trail" pclass-grass s_trail_d trn 0 nil)
- (list 't_trail_e "trail" pclass-grass s_trail_e trn 0 nil)
- (list 't_trail_f "trail" pclass-grass s_trail_f trn 0 nil)
- (list 't_A "an A" pclass-wall s_A trn 0 nil)
- (list 't_B "a B" pclass-wall s_B trn 0 nil)
- (list 't_fake_B "a B" pclass-forest s_B trn 0 nil)
- (list 't_C "a C" pclass-wall s_C trn 0 nil)
- (list 't_D "a D" pclass-wall s_D trn 0 nil)
- (list 't_E "an E" pclass-wall s_E trn 0 nil)
- (list 't_F "an F" pclass-wall s_F trn 0 nil)
- (list 't_G "a G" pclass-wall s_G trn 0 nil)
- (list 't_H "an H" pclass-wall s_H trn 0 nil)
- (list 't_I "an I" pclass-wall s_I trn 0 nil)
- (list 't_J "a J" pclass-wall s_J trn 0 nil)
- (list 't_K "a K" pclass-wall s_K trn 0 nil)
- (list 't_L "an L" pclass-wall s_L trn 0 nil)
- (list 't_M "an M" pclass-wall s_M trn 0 nil)
- (list 't_N "an N" pclass-wall s_N trn 0 nil)
- (list 't_O "an O" pclass-wall s_O trn 0 nil)
- (list 't_fake_O "an O" pclass-forest s_O trn 0 nil)
- (list 't_P "a P" pclass-wall s_P trn 0 nil)
- (list 't_Q "a Q" pclass-wall s_Q trn 0 nil)
- (list 't_R "an R" pclass-wall s_R trn 0 nil)
- (list 't_S "an S" pclass-wall s_S trn 0 nil)
- (list 't_T "a T" pclass-wall s_T trn 0 nil)
- (list 't_U "a U" pclass-wall s_U trn 0 nil)
- (list 't_V "a V" pclass-wall s_V trn 0 nil)
- (list 't_W "a W" pclass-wall s_W trn 0 nil)
- (list 't_X "an X" pclass-wall s_X trn 0 nil)
- (list 't_Y "a Y" pclass-wall s_Y trn 0 nil)
- (list 't_Z "a Z" pclass-wall s_Z trn 0 nil)
- (list 't_rune_A "a runic A" pclass-wall s_rune_A trn 0 nil)
- (list 't_rune_B "a runic B" pclass-wall s_rune_B trn 0 nil)
- (list 't_rune_C "a runic C" pclass-wall s_rune_C trn 0 nil)
- (list 't_rune_D "a runic D" pclass-wall s_rune_D trn 0 nil)
- (list 't_rune_E "a runic E" pclass-wall s_rune_E trn 0 nil)
- (list 't_rune_F "a runic F" pclass-wall s_rune_F trn 0 nil)
- (list 't_rune_G "a runic G" pclass-wall s_rune_G trn 0 nil)
- (list 't_rune_H "a runic H" pclass-wall s_rune_H trn 0 nil)
- (list 't_rune_I "a runic I" pclass-wall s_rune_I trn 0 nil)
- (list 't_rune_J "a runic J" pclass-wall s_rune_J trn 0 nil)
- (list 't_rune_K "a runic K" pclass-wall s_rune_K trn 0 nil)
- (list 't_rune_L "a runic L" pclass-wall s_rune_L trn 0 nil)
- (list 't_rune_M "a runic M" pclass-wall s_rune_M trn 0 nil)
- (list 't_rune_N "a runic N" pclass-wall s_rune_N trn 0 nil)
- (list 't_rune_O "a runic O" pclass-wall s_rune_O trn 0 nil)
- (list 't_rune_P "a runic P" pclass-wall s_rune_P trn 0 nil)
- (list 't_rune_Q "a runic Q" pclass-wall s_rune_Q trn 0 nil)
- (list 't_rune_R "a runic R" pclass-wall s_rune_R trn 0 nil)
- (list 't_rune_S "a runic S" pclass-wall s_rune_S trn 0 nil)
- (list 't_rune_T "a runic T" pclass-wall s_rune_T trn 0 nil)
- (list 't_rune_U "a runic U" pclass-wall s_rune_U trn 0 nil)
- (list 't_rune_V "a runic V" pclass-wall s_rune_V trn 0 nil)
- (list 't_rune_W "a runic W" pclass-wall s_rune_W trn 0 nil)
- (list 't_rune_X "a runic X" pclass-wall s_rune_X trn 0 nil)
- (list 't_rune_Y "a runic Y" pclass-wall s_rune_Y trn 0 nil)
- (list 't_rune_Z "a runic Z" pclass-wall s_rune_Z trn 0 nil)
- (list 't_rune_TH "a runic TH" pclass-wall s_rune_TH trn 0 nil)
- (list 't_rune_EE "a runic EE" pclass-wall s_rune_EE trn 0 nil)
- (list 't_rune_NG "a runic NG" pclass-wall s_rune_NG trn 0 nil)
- (list 't_rune_EA "a runic EA" pclass-wall s_rune_EA trn 0 nil)
- (list 't_rune_ST "a runic ST" pclass-wall s_rune_ST trn 0 nil)
- (list 't_rune_DOT "a runic ." pclass-wall s_rune_DOTSEP trn 0 nil)
- (list 't_equip_sign "an equipment shop sign" pclass-wall s_torch_sign opq 0 nil)
- (list 't_weapon_sign "an arms shop sign" pclass-wall s_shield_sign opq 0 nil)
- (list 't_healer_sign "a hospital sign" pclass-wall s_ankh_sign opq 0 nil)
- (list 't_tavern_sign "a tavern sign" pclass-wall s_beer_sign opq 0 nil)
- (list 't_inn_sign "an inn sign" pclass-wall s_bed_sign opq 0 nil)
- (list 't_alchemy_sign "an alchemy sign" pclass-wall s_potion_sign opq 0 nil)
- (list 't_magic_sign "a reagent shop sign" pclass-wall s_mushroom_sign opq 0 nil)
- (list 't_str_sign "a sign of strength" pclass-wall s_axe_sign trn 1024 nil)
- (list 't_dex_sign "a sign of dexterity" pclass-wall s_key_sign trn 1024 nil)
- (list 't_wis_sign "a sign of wisdom" pclass-wall s_book_sign trn 1024 nil)
- (list 't_nat_rock "natural stone wall" pclass-wall s_nat_rock opq 0 nil)
- (list 't_fake_wall_nrock "natural stone wall" pclass-forest s_secret_nrock opq 0 nil)
+ (list 't_impassable_cobblestone "Àоö" pclass-wall s_cobblestone trn 0 nil)
+ (list 't_flagstones "ÉßÀÐ" pclass-grass s_flagstone trn 0 nil)
+ (list 't_inv_wall "ÉßÀÐ" pclass-repel s_flagstone trn 0 'burn)
+ (list 't_doorway "½ÐÆþ¸ý" pclass-grass s_stone_arch trn 0 nil) ;;dont use this if poss
+ (list 't_leftwing "¾ëÊÉ" pclass-wall s_leftwing trn 0 nil)
+ (list 't_rightwing "¾ëÊÉ" pclass-wall s_rightwing trn 0 nil)
+ (list 't_ship_hull "Á¥¤ÎËÉÊÉ" pclass-wall s_wall trn 0 nil)
+ (list 't_ship_hull2 "Á¥ÂÎ" pclass-wall s_wall opq 0 nil)
+ (list 't_sh_hull_NE "Á¥ÂÎ" pclass-wall s_wall_b trn 0 nil)
+ (list 't_sh_hull_NW "Á¥ÂÎ" pclass-wall s_wall_a trn 0 nil)
+ (list 't_sh_hull_SE "Á¥ÂÎ" pclass-wall s_wall_c trn 0 nil)
+ (list 't_sh_hull_SW "Á¥ÂÎ" pclass-wall s_wall_d trn 0 nil)
+ (list 't_mast "ÈÁÃì" pclass-wall s_mast trn 0 nil)
+ (list 't_ships_wheel "ÂÉÎØ" pclass-wall s_ships_wheel trn 0 nil)
+ (list 't_deck "¹ÃÈÄ" pclass-grass s_deck trn 0 nil)
+ (list 't_boulder "ÀÐ" pclass-boulder s_boulder lgt 0 nil)
+ (list 't_wall_rock_v "´äÊÉ" pclass-wall s_wall_rock trn 0 nil)
+ (list 't_wall_rock "´äÊÉ" pclass-wall s_wall_rock opq 0 nil)
+ (list 't_fake_wall_rock "´äÊÉ" pclass-forest s_secret_rock opq 0 nil)
+ (list 't_wall_v "ÊÉ" pclass-wall s_wall_stone trn 0 nil)
+ (list 't_wall "ÊÉ" pclass-wall s_wall_stone opq 0 nil)
+ (list 't_fake_wall "ÊÉ" pclass-forest s_wall_stone opq 0 nil)
+ (list 't_wall_torch "Êɤξ¾ÌÀ" pclass-wall s_wall_torch opq 1024 'terrain-effect-torch)
+ (list 't_arrow_slit "¶¹´Ö" pclass-bars s_arrow_slit trn 0 nil)
+ (list 't_window_in_stone "Áë" pclass-bars s_window_in_stone trn 0 nil)
+ (list 't_window_in_rock "Áë" pclass-bars s_window_in_rock trn 0 nil)
+ (list 't_secret_door "±£¤·Èâ" pclass-grass s_secret_door opq 0 nil)
+ (list 't_sea_wall_v "³¤¤ÎÊÉ" pclass-wall s_wall trn 0 nil)
+ (list 't_sea_wall "³¤¤ÎÊÉ" pclass-wall s_wall opq 0 nil)
+ (list 't_sea_wall_NE "³¤¤ÎÊÉ" pclass-wall s_wall_b opq 0 nil)
+ (list 't_sea_wall_NW "³¤¤ÎÊÉ" pclass-wall s_wall_a opq 0 nil)
+ (list 't_sea_wall_SE "³¤¤ÎÊÉ" pclass-wall s_wall_c opq 0 nil)
+ (list 't_sea_wall_SW "³¤¤ÎÊÉ" pclass-wall s_wall_d opq 0 nil)
+ (list 't_ankh "¥¢¥ó¥¯" pclass-wall s_ankh trn 0 nil)
+ (list 't_statue "Áü" pclass-wall s_statue trn 0 nil)
+ (list 't_altar "º×ÃÅ" pclass-boulder s_altar trn 0 nil)
+ (list 't_rune_altar "ÀÐÈǤΤ¢¤ëº×ÃÅ" pclass-boulder s_altar trn 64 nil)
+ (list 't_active_altar "³èÆ°Ãæ¤ÎÀÐÈǤΤ¢¤ëº×ÃÅ" pclass-boulder s_active_altar trn 512 nil)
+ (list 't_pillar "Ãì" pclass-wall s_pillar trn 0 nil)
+ (list 't_false_pillar "Ãì" pclass-grass s_pillar trn 0 nil)
+ (list 't_counter_2x1_w "Âæ" pclass-boulder s_counter_2x1_w trn 0 nil)
+ (list 't_counter_2x1_c "Âæ" pclass-boulder s_counter_2x1_c trn 0 nil)
+ (list 't_counter_2x1_e "Âæ" pclass-boulder s_counter_2x1_e trn 0 nil)
+ (list 't_counter_1x1 "Âæ" pclass-boulder s_counter_1x1 trn 0 nil)
+ (list 't_bridge_WE "¶¶" pclass-bridge s_ew_bridge trn 0 nil)
+ (list 't_bridge_NS "¶¶" pclass-bridge s_ns_bridge trn 0 nil)
+ (list 't_lava_bridge_NS "¶¶" pclass-bridge s_ns_bridge trn 0 nil)
+ (list 't_chasm "µµÎö" pclass-space s_null trn 0 nil)
+ (list 't_void "µõ¶õ" pclass-space s_null trn 0 nil)
+ (list 't_trail_0 "ƻ" pclass-grass s_trail_0 trn 0 nil)
+ (list 't_trail_1 "ƻ" pclass-grass s_trail_1 trn 0 nil)
+ (list 't_trail_2 "ƻ" pclass-grass s_trail_2 trn 0 nil)
+ (list 't_trail_3 "ƻ" pclass-grass s_trail_3 trn 0 nil)
+ (list 't_trail_4 "ƻ" pclass-grass s_trail_4 trn 0 nil)
+ (list 't_trail_5 "ƻ" pclass-grass s_trail_5 trn 0 nil)
+ (list 't_trail_6 "ƻ" pclass-grass s_trail_6 trn 0 nil)
+ (list 't_trail_7 "ƻ" pclass-grass s_trail_7 trn 0 nil)
+ (list 't_trail_8 "ƻ" pclass-grass s_trail_8 trn 0 nil)
+ (list 't_trail_9 "ƻ" pclass-grass s_trail_9 trn 0 nil)
+ (list 't_trail_a "ƻ" pclass-grass s_trail_a trn 0 nil)
+ (list 't_trail_b "ƻ" pclass-grass s_trail_b trn 0 nil)
+ (list 't_trail_c "ƻ" pclass-grass s_trail_c trn 0 nil)
+ (list 't_trail_d "ƻ" pclass-grass s_trail_d trn 0 nil)
+ (list 't_trail_e "ƻ" pclass-grass s_trail_e trn 0 nil)
+ (list 't_trail_f "ƻ" pclass-grass s_trail_f trn 0 nil)
+ (list 't_A "A¤Îʸ»ú" pclass-wall s_A trn 0 nil)
+ (list 't_B "B¤Îʸ»ú" pclass-wall s_B trn 0 nil)
+ (list 't_fake_B "B¤Îʸ»ú" pclass-forest s_B trn 0 nil)
+ (list 't_C "C¤Îʸ»ú" pclass-wall s_C trn 0 nil)
+ (list 't_D "D¤Îʸ»ú" pclass-wall s_D trn 0 nil)
+ (list 't_E "E¤Îʸ»ú" pclass-wall s_E trn 0 nil)
+ (list 't_F "F¤Îʸ»ú" pclass-wall s_F trn 0 nil)
+ (list 't_G "G¤Îʸ»ú" pclass-wall s_G trn 0 nil)
+ (list 't_H "H¤Îʸ»ú" pclass-wall s_H trn 0 nil)
+ (list 't_I "I¤Îʸ»ú" pclass-wall s_I trn 0 nil)
+ (list 't_J "J¤Îʸ»ú" pclass-wall s_J trn 0 nil)
+ (list 't_K "K¤Îʸ»ú" pclass-wall s_K trn 0 nil)
+ (list 't_L "L¤Îʸ»ú" pclass-wall s_L trn 0 nil)
+ (list 't_M "M¤Îʸ»ú" pclass-wall s_M trn 0 nil)
+ (list 't_N "N¤Îʸ»ú" pclass-wall s_N trn 0 nil)
+ (list 't_O "O¤Îʸ»ú" pclass-wall s_O trn 0 nil)
+ (list 't_fake_O "O¤Îʸ»ú" pclass-forest s_O trn 0 nil)
+ (list 't_P "P¤Îʸ»ú" pclass-wall s_P trn 0 nil)
+ (list 't_Q "Q¤Îʸ»ú" pclass-wall s_Q trn 0 nil)
+ (list 't_R "R¤Îʸ»ú" pclass-wall s_R trn 0 nil)
+ (list 't_S "S¤Îʸ»ú" pclass-wall s_S trn 0 nil)
+ (list 't_T "T¤Îʸ»ú" pclass-wall s_T trn 0 nil)
+ (list 't_U "U¤Îʸ»ú" pclass-wall s_U trn 0 nil)
+ (list 't_V "V¤Îʸ»ú" pclass-wall s_V trn 0 nil)
+ (list 't_W "W¤Îʸ»ú" pclass-wall s_W trn 0 nil)
+ (list 't_X "X¤Îʸ»ú" pclass-wall s_X trn 0 nil)
+ (list 't_Y "Y¤Îʸ»ú" pclass-wall s_Y trn 0 nil)
+ (list 't_Z "Z¤Îʸ»ú" pclass-wall s_Z trn 0 nil)
+ (list 't_rune_A "A¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_A trn 0 nil)
+ (list 't_rune_B "B¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_B trn 0 nil)
+ (list 't_rune_C "C¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_C trn 0 nil)
+ (list 't_rune_D "D¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_D trn 0 nil)
+ (list 't_rune_E "E¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_E trn 0 nil)
+ (list 't_rune_F "F¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_F trn 0 nil)
+ (list 't_rune_G "G¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_G trn 0 nil)
+ (list 't_rune_H "H¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_H trn 0 nil)
+ (list 't_rune_I "I¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_I trn 0 nil)
+ (list 't_rune_J "J¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_J trn 0 nil)
+ (list 't_rune_K "K¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_K trn 0 nil)
+ (list 't_rune_L "L¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_L trn 0 nil)
+ (list 't_rune_M "M¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_M trn 0 nil)
+ (list 't_rune_N "N¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_N trn 0 nil)
+ (list 't_rune_O "O¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_O trn 0 nil)
+ (list 't_rune_P "P¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_P trn 0 nil)
+ (list 't_rune_Q "Q¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_Q trn 0 nil)
+ (list 't_rune_R "R¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_R trn 0 nil)
+ (list 't_rune_S "S¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_S trn 0 nil)
+ (list 't_rune_T "T¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_T trn 0 nil)
+ (list 't_rune_U "U¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_U trn 0 nil)
+ (list 't_rune_V "V¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_V trn 0 nil)
+ (list 't_rune_W "W¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_W trn 0 nil)
+ (list 't_rune_X "X¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_X trn 0 nil)
+ (list 't_rune_Y "Y¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_Y trn 0 nil)
+ (list 't_rune_Z "Z¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_Z trn 0 nil)
+ (list 't_rune_TH "TH¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_TH trn 0 nil)
+ (list 't_rune_EE "EE¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_EE trn 0 nil)
+ (list 't_rune_NG "NG¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_NG trn 0 nil)
+ (list 't_rune_EA "EA¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_EA trn 0 nil)
+ (list 't_rune_ST "ST¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_ST trn 0 nil)
+ (list 't_rune_DOT ".¤Î¸ÅÂåʸ»ú" pclass-wall s_rune_DOTSEP trn 0 nil)
+ (list 't_equip_sign "Æ»¶ñ²°¤Î´ÇÈÄ" pclass-wall s_torch_sign opq 0 nil)
+ (list 't_weapon_sign "Éð´ï²°¤Î´ÇÈÄ" pclass-wall s_shield_sign opq 0 nil)
+ (list 't_healer_sign "ɱ¡¤Îɽ»¥" pclass-wall s_ankh_sign opq 0 nil)
+ (list 't_tavern_sign "¼ò¾ì¤Î´ÇÈÄ" pclass-wall s_beer_sign opq 0 nil)
+ (list 't_inn_sign "½É²°¤Î´ÇÈÄ" pclass-wall s_bed_sign opq 0 nil)
+ (list 't_alchemy_sign "³Ø¹»¤Îɽ»¥" pclass-wall s_potion_sign opq 0 nil)
+ (list 't_magic_sign "Ìô²°¤Î´ÇÈÄ" pclass-wall s_mushroom_sign opq 0 nil)
+ (list 't_str_sign "ÏÓÎϤΤ·¤ë¤·" pclass-wall s_axe_sign trn 1024 nil)
+ (list 't_dex_sign "ÉÒ¾¹¤Î¤·¤ë¤·" pclass-wall s_key_sign trn 1024 nil)
+ (list 't_wis_sign "ÃÎǽ¤Î¤·¤ë¤·" pclass-wall s_book_sign trn 1024 nil)
+ (list 't_nat_rock "¼«Á³ÀФÎÊÉ" pclass-wall s_nat_rock opq 0 nil)
+ (list 't_fake_wall_nrock "¼«Á³ÀФÎÊÉ" pclass-forest s_secret_nrock opq 0 nil)
))
(map (lambda (terrain) (apply kern-mk-terrain terrain)) terrains)
;; Make some blended shore terrain types
(define (mk-shore-terrain tag . sprites)
- (kern-mk-terrain tag "shallow water" pclass-shoals
+ (kern-mk-terrain tag "Àõ¤¤¿åί¤ê" pclass-shoals
(mk-composite-sprite (cons s_shoals sprites))
trn 0 nil))
)
(list
-(list 't_bulwark_x_ns "bulwark" pclass-wall opq s_bulwark_ns)
-(list 't_bulwark_x_ew "bulwark" pclass-wall opq s_bulwark_ew)
+(list 't_bulwark_x_ns "ËÉÊÉ" pclass-wall opq s_bulwark_ns)
+(list 't_bulwark_x_ew "ËÉÊÉ" pclass-wall opq s_bulwark_ew)
-(list 't_bulwark_v_ne "bulwark" pclass-boulder trn s_bulwark_sw)
-(list 't_bulwark_v_nw "bulwark" pclass-boulder trn s_bulwark_se)
-(list 't_bulwark_v_se "bulwark" pclass-boulder trn s_bulwark_nw)
-(list 't_bulwark_v_sw "bulwark" pclass-boulder trn s_bulwark_ne)
+(list 't_bulwark_v_ne "ËÉÊÉ" pclass-boulder trn s_bulwark_sw)
+(list 't_bulwark_v_nw "ËÉÊÉ" pclass-boulder trn s_bulwark_se)
+(list 't_bulwark_v_se "ËÉÊÉ" pclass-boulder trn s_bulwark_nw)
+(list 't_bulwark_v_sw "ËÉÊÉ" pclass-boulder trn s_bulwark_ne)
-(list 't_bulwark_x_ne "bulwark" pclass-wall opq s_bulwark_sw)
-(list 't_bulwark_x_nw "bulwark" pclass-wall opq s_bulwark_se)
-(list 't_bulwark_x_se "bulwark" pclass-wall opq s_bulwark_nw)
-(list 't_bulwark_x_sw "bulwark" pclass-wall opq s_bulwark_ne)
+(list 't_bulwark_x_ne "ËÉÊÉ" pclass-wall opq s_bulwark_sw)
+(list 't_bulwark_x_nw "ËÉÊÉ" pclass-wall opq s_bulwark_se)
+(list 't_bulwark_x_se "ËÉÊÉ" pclass-wall opq s_bulwark_nw)
+(list 't_bulwark_x_sw "ËÉÊÉ" pclass-wall opq s_bulwark_ne)
-(list 't_stair_un "stairs" pclass-grass trn s_stair_n)
-(list 't_stair_uw "stairs" pclass-grass trn s_stair_w)
-(list 't_stair_ue "stairs" pclass-grass trn s_stair_e)
-(list 't_stair_us "stairs" pclass-grass trn s_stair_s)
+(list 't_stair_un "³¬ÃÊ" pclass-grass trn s_stair_n)
+(list 't_stair_uw "³¬ÃÊ" pclass-grass trn s_stair_w)
+(list 't_stair_ue "³¬ÃÊ" pclass-grass trn s_stair_e)
+(list 't_stair_us "³¬ÃÊ" pclass-grass trn s_stair_s)
-(list 't_tank_l "metal tank" pclass-mountains opq s_tank_l)
-(list 't_tank_d "metal tank" pclass-mountains opq s_tank_d)
-(list 't_tank_nw "metal tank" pclass-mountains opq s_tank_nw)
-(list 't_tank_ne "metal tank" pclass-mountains opq s_tank_ne)
-(list 't_tank_sw "metal tank" pclass-mountains opq s_tank_sw)
-(list 't_tank_se "metal tank" pclass-mountains opq s_tank_se)
+(list 't_tank_l "¶â°¤ÎÍÆ´ï" pclass-mountains opq s_tank_l)
+(list 't_tank_d "¶â°¤ÎÍÆ´ï" pclass-mountains opq s_tank_d)
+(list 't_tank_nw "¶â°¤ÎÍÆ´ï" pclass-mountains opq s_tank_nw)
+(list 't_tank_ne "¶â°¤ÎÍÆ´ï" pclass-mountains opq s_tank_ne)
+(list 't_tank_sw "¶â°¤ÎÍÆ´ï" pclass-mountains opq s_tank_sw)
+(list 't_tank_se "¶â°¤ÎÍÆ´ï" pclass-mountains opq s_tank_se)
)
)
)
(list
-(list 't_rail_ew "railing" pclass-boulder trn (list s_deck s_bulwark_ew))
-(list 't_rail_ns "railing" pclass-boulder trn (list s_deck s_bulwark_ns))
+(list 't_rail_ew "ºô" pclass-boulder trn (list s_deck s_bulwark_ew))
+(list 't_rail_ns "ºô" pclass-boulder trn (list s_deck s_bulwark_ns))
-(list 't_bulwark_n "bulwark" pclass-boulder trn (list s_shallow s_deck_s s_bulwark_ew))
-(list 't_bulwark_w "bulwark" pclass-boulder trn (list s_shallow s_deck_e s_bulwark_ns))
-(list 't_bulwark_e "bulwark" pclass-boulder trn (list s_shallow s_deck_w s_bulwark_ns))
-(list 't_bulwark_s "bulwark" pclass-boulder trn (list s_shallow s_deck_n s_bulwark_ew))
+(list 't_bulwark_n "ËÉÊÉ" pclass-boulder trn (list s_shallow s_deck_s s_bulwark_ew))
+(list 't_bulwark_w "ËÉÊÉ" pclass-boulder trn (list s_shallow s_deck_e s_bulwark_ns))
+(list 't_bulwark_e "ËÉÊÉ" pclass-boulder trn (list s_shallow s_deck_w s_bulwark_ns))
+(list 't_bulwark_s "ËÉÊÉ" pclass-boulder trn (list s_shallow s_deck_n s_bulwark_ew))
-(list 't_bulwark_v_n "bulwark" pclass-boulder trn (list s_deck_s s_bulwark_ew))
-(list 't_bulwark_v_w "bulwark" pclass-boulder trn (list s_deck_e s_bulwark_ns))
-(list 't_bulwark_v_e "bulwark" pclass-boulder trn (list s_deck_w s_bulwark_ns))
-(list 't_bulwark_v_s "bulwark" pclass-boulder trn (list s_deck_n s_bulwark_ew))
+(list 't_bulwark_v_n "ËÉÊÉ" pclass-boulder trn (list s_deck_s s_bulwark_ew))
+(list 't_bulwark_v_w "ËÉÊÉ" pclass-boulder trn (list s_deck_e s_bulwark_ns))
+(list 't_bulwark_v_e "ËÉÊÉ" pclass-boulder trn (list s_deck_w s_bulwark_ns))
+(list 't_bulwark_v_s "ËÉÊÉ" pclass-boulder trn (list s_deck_n s_bulwark_ew))
-(list 't_bulwark_w_ne "bulwark" pclass-boulder trn (list s_shallow s_bulwark_sw))
-(list 't_bulwark_w_nw "bulwark" pclass-boulder trn (list s_shallow s_bulwark_se))
-(list 't_bulwark_w_se "bulwark" pclass-boulder trn (list s_shallow s_bulwark_nw))
-(list 't_bulwark_w_sw "bulwark" pclass-boulder trn (list s_shallow s_bulwark_ne))
+(list 't_bulwark_w_ne "ËÉÊÉ" pclass-boulder trn (list s_shallow s_bulwark_sw))
+(list 't_bulwark_w_nw "ËÉÊÉ" pclass-boulder trn (list s_shallow s_bulwark_se))
+(list 't_bulwark_w_se "ËÉÊÉ" pclass-boulder trn (list s_shallow s_bulwark_nw))
+(list 't_bulwark_w_sw "ËÉÊÉ" pclass-boulder trn (list s_shallow s_bulwark_ne))
-(list 't_bulwark_d_ne "bulwark" pclass-boulder trn (list s_deck s_bulwark_ne))
-(list 't_bulwark_d_nw "bulwark" pclass-boulder trn (list s_deck s_bulwark_nw))
-(list 't_bulwark_d_se "bulwark" pclass-boulder trn (list s_deck s_bulwark_se))
-(list 't_bulwark_d_sw "bulwark" pclass-boulder trn (list s_deck s_bulwark_sw))
+(list 't_bulwark_d_ne "ËÉÊÉ" pclass-boulder trn (list s_deck s_bulwark_ne))
+(list 't_bulwark_d_nw "ËÉÊÉ" pclass-boulder trn (list s_deck s_bulwark_nw))
+(list 't_bulwark_d_se "ËÉÊÉ" pclass-boulder trn (list s_deck s_bulwark_se))
+(list 't_bulwark_d_sw "ËÉÊÉ" pclass-boulder trn (list s_deck s_bulwark_sw))
-(list 't_tank_d_nw "metal tank" pclass-mountains opq (list s_deck s_tank_nw))
-(list 't_tank_d_ne "metal tank" pclass-mountains opq (list s_deck s_tank_ne))
-(list 't_tank_d_sw "metal tank" pclass-mountains opq (list s_deck s_tank_sw))
-(list 't_tank_d_se "metal tank" pclass-mountains opq (list s_deck s_tank_se))
+(list 't_tank_d_nw "¶â°¤ÎÍÆ´ï" pclass-mountains opq (list s_deck s_tank_nw))
+(list 't_tank_d_ne "¶â°¤ÎÍÆ´ï" pclass-mountains opq (list s_deck s_tank_ne))
+(list 't_tank_d_sw "¶â°¤ÎÍÆ´ï" pclass-mountains opq (list s_deck s_tank_sw))
+(list 't_tank_d_se "¶â°¤ÎÍÆ´ï" pclass-mountains opq (list s_deck s_tank_se))
)
)
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In the monster village of Kun.
+;; ²øʪ¤Î¼¥¯¡¼¥ó
;;----------------------------------------------------------------------------
(define tetzl-bed campfire-3)
(define tetzl-mealplace cantina-1)
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Tetzl is a sentient spider of giant size,
-;; living in the monster village of Kun.
+;; ¥Æ¥Ä¥ë¤ÏµðÂç¤Ê¥¯¥â¤Î¿¦¿Í¤Ç¡¢²øʪ¤Î¼¥¯¡¼¥ó¤Ë½»¤ó¤Ç¤¤¤ë¡£
;;
-;; Currently, no dialog or quests, but this seems a missed opportunity...
+;; ¸½ºß¡¢¥»¥ê¥Õ¤â¥¤¥Ù¥ó¥È¤â¤Ê¤¤¡£¤·¤«¤·¡¢µ¡²ñ¤¬¤Ê¤¤¤è¤¦¤À¡Ä¡£
;;----------------------------------------------------------------------------
(bind
(kern-mk-char
'ch_tetzl ; tag
- "Tetzl" ; name
+ "¥Æ¥Ä¥ë" ; name
tetzl-species ; species
tetzl-occ ; occ
s_spider ; sprite
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In The MAN's hideout, a secure undisclosed location.
+;; °ÂÁ´¤Ë±£¤µ¤ì¤¿¾ì½ê¤Ë¤¢¤ë¤Ë¤ó¤²¤ó¤Î±£¤ì²È
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_man
(list 0 0 mans-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Yvonne, known as "The MAN", is a female rogue of pre-eminent skill,
-;; living in a secure undisclosed location (The MAN's hideout).
-;;
+;; ¡Ö¤Ë¤ó¤²¤ó¡×¤È¤·¤ÆÃΤé¤ì¤ë¥¤¥ô¥©¥ó¥Ì¤ÏÂî±Û¤·¤¿µ»½Ñ¤ò»ý¤Ã¤¿¤Ê¤é¤º¼Ô¤Î½÷À¤Ç
+;; ¤¢¤ë¡£°ÂÁ´¤ÊÃΤé¤ì¤Æ¤¤¤Ê¤¤¾ì½ê(¤Ë¤ó¤²¤ó¤Î±£¤ì²È)¤Ë½»¤ó¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (man-hail knpc kpc)
- (say knpc "[You meet an attractive, middle-aged woman with a catlike poise "
- "and easy bearing] Hello, Good-looking."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï¿Í¤ò°ú¤¤Ä¤±¤ë¤è¤¦¤Ê¡¢Ç¤Î¤è¤¦¤Ë¿È·Ú¤ÊÃæǯ¤Î½÷À¤È²ñ¤Ã¤¿¡£¡Ï"
+ "¤³¤ó¤Ë¤Á¤Ï¡£¤¹¤Æ¤¤ÊÊý¡£"))
(define (man-default knpc kpc)
- (say knpc "You've got me there, hotshot."))
+ (say knpc "¤¼¤Ò¸«¤Æ¤ß¤¿¤¤¤ï¡£"))
(define (man-name knpc kpc)
- (say knpc "I'm Yvonne. But everybody calls me The MAN."))
+ (say knpc "»ä¤Ï¥¤¥ô¥©¥ó¥Ì¡¢¤Ç¤â¿Í¤Ï¤Ë¤ó¤²¤ó¤È¸Æ¤Ö¤ï¡£"))
(define (man-join knpc kpc)
- (say knpc "Can't say I'm not tempted, handsome, but when it comes to "
- "business I like to work alone."))
+ (say knpc "Ì¥ÎÏŪ¤ÊÊý¡¢°ú¤«¤ì¤ë¤â¤Î¤¬¤Ê¤¤¤È¤Ï¸À¤¨¤Ê¤¤¤ï¤Í¡£¤Ç¤â¡¢²¿¤«¤ò¤¹¤ë¤Ê¤é°ì¿Í¤ÎÊý¤¬¤¤¤¤¤ï¡£"))
(define (man-job knpc kpc)
- (say knpc "Hm. How shall I put this? I suppose the truth is easiest: "
- "I'm a Wrogue."))
+ (say knpc "¤½¤¦¤Í¡£»ä¤ÎΩ¤Á°ÌÃÖ¤ò¤É¤³¤ËÃÖ¤¯¤«¡©Åú¤¨¤Ï´Êñ¡¢»ä¤Ï¤Ê¤é¤º¼Ô¤è¡£"))
(define (man-bye knpc kpc)
- (say knpc "Bye bye..."))
+ (say knpc "¥Ð¥¤¥Ð¥¤¡Ä"))
;; Misc
(define (man-man knpc kpc)
- (say knpc "[She laughs easily] Were you expecting someone... manlier?")
+ (say knpc "¡ÎÈà½÷¤Ï¾¯¤·¾Ð¤Ã¤¿¡£¡Ï¤â¤·¤«¤·¤Æ¡ÄÃˤÀ¤È»×¤Ã¤Æ¤¿¤«¤·¤é¡©")
(kern-conv-get-yes-no? kpc)
- (say knpc "The MAN is an acronym for the Mistress of Acquisitive "
- "Nature. Do you like it?")
+ (say knpc "¤Ë¤ó¤²¤ó(MAN)¤Ï¶¯Íߤʵ¤¼Á¤Î½÷²¦(Mistress of Acquisitive Nature)¤ÎƬʸ»ú¤è¡£"
+ "µ¤¤ËÆþ¤Ã¤Æ¤¯¤ì¤¿¤«¤·¤é¡©")
(kern-conv-get-yes-no? kpc)
- (say knpc "I think it was the Engineer who originally coined it. "
- "You know those engineering types, suckers for an acronym."))
+ (say knpc "¤¿¤·¤«µ»»Õ¤¬ºÇ½é¤Ë¤½¤¦¸Æ¤ó¤À¤È»×¤¦¤ï¡£"
+ "¤³¤¦¤ä¤Ã¤Æºî¤é¤ì¤¿ÄÖ¤ê¤Ë¤À¤Þ¤µ¤ì¤ë¤Î¤Í¡£"))
(define (man-wrog knpc kpc)
- (say knpc "A Wrogue specializes in breaking rules. Tell me, stranger, "
- "do you like to break the rules?")
+ (say knpc "¤Ê¤é¤º¼Ô¤È¤Ïµ¬Â§Çˤê¤ÎÀìÌç²È¤è¡£"
+ "¸«ÃΤé¤ÌÊý¤è¡¢¶µ¤¨¤Æ¤¯¤À¤µ¤¤¤Ê¡£µ¬Â§¤òÇˤë¤Î¤Ï¹¥¤¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "[She feigns a shocked look. It really is quite fetching.] "
- "Naughty boy! I may have to edify your character with a "
- "spanking before you leave.")
- (say knpc "Oh, so you're a square? I do like squares. Perhaps you'll "
- "rub off on me. [She gives you a cutely innocent look]")))
+ (say knpc "¡ÎÈà½÷¤Ï¶Ã¤¤¤¿¤Õ¤ê¤ò¤·¤¿¡£¤½¤ì¤Ï¤È¤Æ¤âÌ¥ÎÏŪ¤À¤Ã¤¿¡£¡Ï"
+ "°¤¤»Ò¤Í¡ª·¯¤¬µ¢¤ëÁ°¤ËÊ¿¼êÂǤÁ¤ò¤·¤Æ¶µ°é¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤ï¤Í¡£")
+ (say knpc "¤ª¤ä¤ª¤ä¡¢¤É¤¦¤·¤Æ¤½¤ó¤Ê¤Ë»Í³ÑÄ¥¤Ã¤Æ¤¤¤ë¤Î¡©»Í³ÑÄ¥¤Ã¤¿¤Î¤ÏËÜÅö¤Ë¹¥¤¤è¡£"
+ "¤â¤·¤«¤¹¤ë¤È¤½¤ì¤Ç»ä¤òËᤤ¤Æ¤¯¤ì¤ë¤Î¤«¤·¤é¡©¡ÎÈà½÷¤Ï¤¢¤Ê¤¿¤ò̵¼Ùµ¤¤Ë¸«¤¿¡£¡Ï")))
(define (man-rule knpc kpc)
- (say knpc "A rule, a lock, a secret, a riddle. I love to break them all "
- "and see what lies behind. It's curiousity mainly, and the challenge "
- "of the crack. Look around, do you see much wealth here in my home?")
+ (say knpc "µ¬Â§¡¢¸°¡¢ÈëÌ©¡¢Ææ¡£»ä¤Ï¤½¤ì¤é¤òÁ´¤Æ²õ¤·¡¢¤½¤Î¸þ¤³¤¦¤Ë¤¢¤ë¤â¤Î¤ò¸«¤¿¤¤¡£"
+ "¤½¤ì¤Ï¹¥´ñ¿´¤Î¤¿¤á¡¢¤½¤·¤ÆÄ©Àï¤Î¤¿¤á¤è¡£"
+ "¤Þ¤ï¤ê¤ò¸«¤Æ¡£¤³¤³¤Ë¤¢¤ëÇüÂç¤ÊÉÙ¤¬¤ï¤«¤ë¤«¤·¤é¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "Sigh. Either you come from a poor childhood or you haven't "
- "bothered to look.")
- (say knpc "No, despite my moniker I'm not that acquisitive. There's no "
- "pleasure for me in HAVING, only in DOING. Once a thing is done "
- "I've no further interest in it. The most interesting and valuable "
- "things I've acquired are secrets.")))
+ (say knpc "¤Ï¤¡¡£ÉϤ·¤¤»Ò¶¡»þÂå¤ò¤¹¤´¤·¤¿¤Î¤«¡¢¤½¤ì¤È¤â²¿¤â¸«¤¨¤Æ¤¤¤Ê¤¤¤Î¤«¡£")
+ (say knpc "¤¤¤¤¤¨¡£»ä¤Ï¤¢¤À̾¤È°ã¤Ã¤Æ¤½¤ó¤Ê¤Ë¶¯ÍߤǤϤʤ¤¤ï¡£"
+ "»ä¤Ï¡Ö»ý¤Ä¡×¤³¤È¤Ë¤Ï¶½Ì£¤Ï¤Ê¤¤¤Î¡£¤¿¤À¡Ö¤¹¤ë¡×¤À¤±¤è¡£"
+ "°ìÅÙ¤ä¤Ã¤Æ¤·¤Þ¤¨¤Ð¡¢¤½¤Î¸å¤Ë¤Ï¶½Ì£¤Ï¤Ê¤¤¡£"
+ "»ä¤¬µá¤á¤ëºÇ¤â¶½Ì£¿¼¤¯²ÁÃͤ¢¤ë¤â¤Î¤Ï¡¢ÈëÌ©¤½¤Î¤â¤Î¤è¡£")))
(define (man-secr knpc kpc)
- (say knpc "Just try me."))
+ (say knpc "»ä¤Ç»î¤·¤Æ¤´¤é¤ó¤Ê¤µ¤¤¡£"))
(define (man-enem knpc kpc)
- (say knpc "The Warritrix has a mighty enemy in the person of the "
- "Stewardess of Glasdrin."))
+ (say knpc "Æ®»Î¤Î¶¯ÎϤÊŨ¤Ï¥°¥é¥¹¥É¥ê¥ó¤ÎÅý¼£¼Ô¤«¤âÃΤì¤Ê¤¤¤ï¡£"))
(define (man-stew knpc kpc)
- (say knpc "I read her diary once. She really ought to keep it locked up "
- "better. She hates the Warritrix for defying her at Absalot."))
+ (say knpc "Èà½÷¤ÎÆüµ¤ò°ìÅÙÆɤó¤À¤³¤È¤¬¤¢¤ë¤Î¡£"
+ "ËÜÅö¤ÏÈà½÷¤òÊá¤é¤¨¤¿¤Û¤¦¤¬¤¤¤¤¤Î¤«¤â¤·¤ì¤Ê¤¤¡£"
+ "Èà½÷¤Ï¥¢¥Ö¥µ¥í¥Ã¥È¤ÇÇؤ¤¤¿Æ®»Î¤òÁþ¤ó¤Ç¤¤¤ë¤Î¤è¡£"))
(define (man-hate knpc kpc)
- (say knpc "You can read the Stewardess's diary for yourself. "
- "Would you like to know how?")
+ (say knpc "Åý¼£¼Ô¤ÎÆüµ¤ò¼«Ê¬¤ÇÆɤó¤Ç¤ß¤Ê¤µ¤¤¡£"
+ "¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤«ÃΤꤿ¤¤¡©")
(if (yes? kpc)
- (say knpc "Just remember two little words: Wis Quas. "
- "I'm sure a sharp guy like you can figure out the rest.")
- (say knpc "Oh, but you're missing out! "
- "It's simply dripping with political intrigue.")))
+ (say knpc "¤¿¤À¤³¤ÎÆó¤Ä¤Î¸ÀÍÕ¤ò³Ð¤¨¤Æ¤ª¤±¤Ð¤¤¤¤¤ï¡£¥¦¥£¥¹¡¦¥¯¥¡¥¹<Wis Quas>¤è¡£"
+ "¤¢¤Ê¤¿¤Ï±Ô¤¤¤«¤é¤É¤³¤Ë¤¢¤ë¤«¤Ï¤ï¤«¤ë¤Ç¤·¤ç¤¦¡£")
+ (say knpc "¤¢¤¢¡¢¤Ç¤â¤¢¤Ê¤¿¤Ï¸«Íî¤È¤·¤Æ¤¤¤ë¤ï¡£"
+ "¤³¤ì¤ÏÀ¯¼£Åª¤ÊËÅά¤è¡£")))
;; Wise Queries
(define (man-wiza knpc kpc)
- (say knpc "Yes, they're powerful. But I've pilfered their secrets."))
+ (say knpc "¤½¤¦¡¢¤È¤Æ¤â¶¯¤¤¡£¤Ç¤â»ä¤ÏÈà¤é¤ÎÈëÌ©¤òÅð¤ß¤¿¤¤¡£"))
(define (man-wrig knpc kpc)
- (say knpc "A clever bunch, but they've yet to design a lock I can't crack."))
+ (say knpc "¸¤µ¤Î«¡¢¤Ç¤â»ä¤¬³«¤±¤é¤ì¤Ê¤¤¸°¤Ï¤Þ¤Àºî¤ì¤Ê¤¤¤è¤¦¤Í¡£"))
(define (man-warr knpc kpc)
- (say knpc "The Warritrix is legendary for her noble demeanor. I do not know "
- "her well, but I do know her enemies, perhaps better than she."))
+ (say knpc "Èà½÷¤Ï¤½¤ÎÍ¥²í¤Ê¿¶¤ëÉñ¤¤¤ÇÃΤé¤ì¤Æ¤¤¤ë¡£"
+ "»ä¤ÏÈà½÷¤Î¤³¤È¤Ï¾Ü¤·¤¯¤ÏÃΤé¤Ê¤¤¤±¤ì¤É¡¢¤½¤ÎŨ¤Ï¡¢¤â¤·¤«¤¹¤ë¤ÈÈà½÷¼«¿È¤è¤ê¤â¤è¤¯ÃΤäƤ¤¤ë¤«¤â¤·¤ì¤Ê¤¤¤ï¡£"))
(define (man-necr knpc kpc)
- (say knpc "A useful fellow, the dead know many things forgotten by the "
- "living, and he knows how to charm them."))
+ (say knpc "ÊØÍø¤Êͧã¤è¡£"
+ "»à¿Í¤ÏÀ¸¤¤Æ¤¤¤ë¿Í¤¬Ëº¤ì¤¿¤¿¤¯¤µ¤ó¤Î¤³¤È¤òÃΤäƤ¤¤ë¡£"
+ "¤½¤·¤ÆÈà¤Ï¤É¤¦¤ä¤Ã¤Æʹ¤½Ð¤¹¤Î¤«ÃΤäƤ¤¤ë¤Î¤è¡£"))
(define (man-alch knpc kpc)
- (say knpc "I understand he's a clever little worm, but I don't have much "
- "to do with him."))
+ (say knpc "¸¤¤¿Í¤Ê¤Î¤Ï¤ï¤«¤Ã¤Æ¤ë¤±¤É¡¢Èà¤È¤Ï¹ç¤ï¤Ê¤¤¤ï¤Í¡£"))
(define (man-engi knpc kpc)
- (say knpc "I'd love to challenge myself with a lock of his design, but "
- "alas, he keeps no secrets or treasure to lock up!"))
+ (say knpc "Èà¤ÎÀß·×½ñ¤Î«¤ËÄ©À路¤Æ¤ß¤¿¤¤¤ï¡£"
+ "¤Ç¤â¡¢¤¢¤¢¡¢Èà¤Ë¤Ï±£¤·¤Æ¤¤¤ëÈëÌ©¤âÊõ¤â¤Ê¤¤¤Î¤è¡ª"))
(define (man-ench knpc kpc)
- (say knpc "My most favorite wizard. I do love to hear him go on and on in "
- "that virtuous vein of his! But he really should keep his stuff more "
- "secure."))
+ (say knpc "»ä¤ÎºÇ°¦¤ÎËâ½Ñ»Õ¡£"
+ "Èà¤ÎÏäòʹ¤¤Ë¹Ô¤¯¤Î¤â¡¢¤½¤Î¹â·é¤ÊÀ³Ê¤âÂç¹¥¤¤è¡ª"
+ "¤Ç¤â¼«Ê¬¤Îʪ¤Ï¤â¤Ã¤È¤Á¤ã¤ó¤È¤·¤Þ¤Ã¤ÆÃÖ¤¯¤Ù¤¤Í¡£"))
;; Accursed Queries
(define (man-accu knpc kpc)
- (say knpc "They speak of freedom, by which they mean the freedom to enslave others. "
- "Some who would break the rules join them, only to find themselves enchained. "
- "A nasty bunch."))
+ (say knpc "Èà¤é¤¬¼«Í³¤Ë¤Ä¤¤¤ÆÏ乤Ȥ¡¢¤½¤ì¤Ï¾¼Ô¤òÅÛÎì¤Ë¤¹¤ë¼«Í³¤ò°ÕÌ£¤¹¤ë¡£"
+ "µ¬Â§¤òÇˤäÆÈà¤é¤Ë²Ã¤ï¤Ã¤¿¼Ô¤â¤¤¤ë¤ï¡£¤Ç¤â¤ï¤«¤Ã¤¿¤Î¤ÏÈà¤é¼«¿È¤¬º¿¤Ç¤Ä¤Ê¤¬¤ì¤Æ¤¤¤ë¤È¤¤¤¦¤³¤È¤À¤±¡£"
+ "ÉÔ²÷¤Î«¤è¡£"))
;; Rune
(define (man-rune knpc kpc)
- (say knpc "Runes... I once knew a pirate that carried a Rune. Have you "
- "heard the tale of Ghertie and the Merciful Death?")
+ (say knpc "ÀÐÈǡĤ«¤Ä¤Æ³¤Â±¤¬»ý¤Ã¤Æ¤¤¤¿¤Î¤òÃΤäƤ¤¤ë¤ï¡£"
+ "¥¬¡¼¥Æ¥£¡¼¤È¡Ö»üÈῼ¤¤»à¡×¹æ¤ÎÏäòÃΤäƤ¤¤ë¤«¤·¤é¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "You are already well-traveled. I like an experienced man.")
- (say knpc "Ask around Oparine about Ghertie."))
- (say knpc "If you can find where the Merciful Death lies you can raise it "
- "with a spell. Do you know the spell?")
+ (say knpc "¤¤¤í¤¤¤íι¤·¤Æ¤ë¤Î¤Í¡£·Ð¸³Ë¤«¤Ê¿Í¤Ï¹¥¤¤è¡£")
+ (say knpc "¥ª¥Ñ¡¼¥ê¥ó¤Ç¥¬¡¼¥Æ¥£¡¼¤Ë¤Ä¤¤¤Æʹ¤¤¤Æ¤´¤é¤ó¤Ê¤µ¤¤¡£"))
+ (say knpc "¤â¤·»üÈῼ¤¤»à¤ò¸«¤Ä¤±¤¿¤é¡¢¼öʸ¤Ç°ú¤¾å¤²¤é¤ì¤ë¤ï¡£"
+ "¼öʸ¤Ï¤ï¤«¤ë¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "Well, aren't we the accomplished magician? I hope you don't "
- "know any love spells, Wizard!")
+ (say knpc "¤Þ¤¢¡¢¤¢¤Ê¤¿¤Ï¤¢¤é¤æ¤ëËâË¡¤òÃΤäƤ¤¤ë¤Î¡©"
+ "°¦¤ÎËâË¡¤ÏÃΤé¤Ê¤±¤ì¤Ð¤¤¤¤¤±¤ì¤É¡¢ËâË¡»È¤¤¤µ¤ó¡ª")
(begin
- (say knpc "Mix mandrake, blood moss and spider silk, then chant Vas "
- "Uus Ylem next to the spot where the ship has sunk.")
+ (say knpc "¥Þ¥ó¥É¥ì¥¤¥¯¡¢·ì¤ÎÂÝ¡¢¤½¤·¤ÆÃØéá¤Î»å¤òÄ´¹ç¤·¤Æ¡¢"
+ "¥ô¥¡¥¹¡¦¥¦¡¼¥¹¡¦¥¤¥§¥à<Vas Uus Ylem>¤È¾§¤¨¤ë¡£"
+ "¤½¤·¤ÆÁ¥¤¬ÄÀ¤ó¤À¾ì½ê¤ò»Ø¤·¼¨¤·¤Ê¤µ¤¤¡£")
(quest-data-update 'questentry-rune-c 'shipraise 1)
)
)
- (say knpc "Ghertie will not give up the location of her ship freely. But "
- "even the dead have desires, indeed that is the worst part of "
- "death! And Ghertie desires nothing more than ^c+mrevenge^c-. Mark that word "
- "well, and remember it when you meet her ghost.")
+ (say knpc "¥¬¡¼¥Æ¥£¡¼¤Ï¥¿¥À¤Ç¤ÏÁ¥¤Î¾ì½ê¤ò¸À¤ï¤Ê¤¤¤Ç¤·¤ç¤¦¤Í¡£"
+ "¤Ç¤â»à¤ó¤Ç¤·¤Þ¤Ã¤Æ¤â´ê˾¤Ï¤¢¤ë¤ï¡£¤¿¤È¤¨ºÇ°¤Î»à¤ËÊý¤ò¤·¤Æ¤â¡ª"
+ "¥¬¡¼¥Æ¥£¡¼¤¬Ë¾¤ó¤Ç¤¤¤ë¤Î¤Ï¡¢¤¿¤À^c+mÉü½²^c-¤Î¤ß¤è¡£"
+ "¤³¤Î¸ÀÍÕ¤ò½ñ¤Î±¤á¤Æ¤ª¤¤Ê¤µ¤¤¡£¤½¤·¤ÆÈà½÷¤ÎÍ©Îî¤È¤¢¤Ã¤¿¤È¤»×¤¤½Ð¤¹¤Î¤è¡£")
(quest-data-update 'questentry-rune-c 'info 1)
(quest-data-assign-once 'questentry-rune-c)
(quest-data-update 'questentry-ghertie 'ghertieid 1)
)
(define (man-chan knpc kpc)
- (say knpc "So you've met Chanticleer? No doubt HE was the one who told you where to find me! "
- "[Sigh] Well, I hope the irresponsible wrogue is well."))
+ (say knpc "¥ª¥ó¥É¥ê¤È²ñ¤Ã¤¿¤Î¡©Èà¤Ï»ä¤Îµï¾ì½ê¤ò¤·¤ã¤Ù¤Ã¤¿¤Ë°ã¤¤¤Ê¤¤¤ï¡£"
+ "¤Ï¤¡¡£¤¨¤¨¡¢¤¢¤Î̵ÀÕǤ¤Ê¤Ê¤é¤º¼Ô¤Ï¸µµ¤¤Ê¤è¤¦¤Í¡£"))
(define man-conv
(ifc basic-conv
(define (mk-the-man)
(bind
(kern-mk-char 'ch_man ; tag
- "The MAN" ; name
+ "¤Ë¤ó¤²¤ó" ; name
sp_human ; species
oc_wrogue ; occ
s_brigandess ; sprite
;;----------------------------------------------------------------------------
(kern-mk-place
'p_thiefs_den ; tag
- "Thief's Den" ; name
+ "Å¥ËÀ¤Î½»¤ß²È" ; name
nil ; sprite
m_thiefs_den ; map
#f ; wraps
-;; Thorald is a character in the Tutorial game.
+;; ¥½¥é¥ë¥É¤Ï¥Á¥å¡¼¥È¥ê¥¢¥ë¤ÎÅоì¿Íʪ¤Ç¤¢¤ë¡£
(define (thorald-mixi knpc kpc)
- (say knpc "To M)ix spells first press the 'M' key. "
- "Then type the first letter of each spell syllable followed by ENTER. "
- "For example, In Ex Por would be: i, e, p, ENTER.")
+ (say knpc "Ä´¹ç¤¹¤ë¤¿¤á¤Ë¤Ï¡¢¤Þ¤º'm'¥¡¼¤ò²¡¤¹¡£"
+ "¤½¤·¤Æ¡¢¼öʸ¤Î¤½¤ì¤¾¤ì¤ÎºÇ½é¤Îʸ»ú¤òÆþÎϤ·¡¢Enter¤ò²¡¤¹¡£"
+ "Î㤨¤Ð¡¢In Ex Por ¤Ê¤é i, e, p, Enter ¤À¡£")
(prompt-for-key)
- (say knpc "Next, select the reagents using the space bar. ")
+ (say knpc "¼¡¤Ë¡¢ÈëÌô¤ò¥¹¥Ú¡¼¥¹¥Ð¡¼¤ÇÁª¤Ö¡£")
(prompt-for-key)
- (say knpc "Next, press ENTER and type the number of mixtures to make. "
- "Just mix 1 for now. ")
+ (say knpc "ºÇ¸å¤Ë¡¢Ä´¹ç¤·À¸À®¤¹¤ë¿ô¤òÆþÎϤ·Enter¤ò²¡¤¹¡£"
+ "º£¤Ï1¤ÄÄ´¹ç¤¹¤ì¤Ð¤è¤¤¡£")
(prompt-for-key)
- (say knpc "You can see what spells you have mixed with the Z)tatus command. "
- "Why don't you try mixing one now? Talk to me again when you've succeeded.")
+ (say knpc "¤É¤Î¼öʸ¤òÄ´¹ç¤·¤¿¤«¤Ï'z'¥³¥Þ¥ó¥É¤Ç¸«¤ë¤³¤È¤¬¤Ç¤¤ë¡£"
+ "1¤ÄÄ´¹ç¤·¤Æ¤ß¤Æ¤Ï¤É¤¦¤À¡©¤¦¤Þ¤¯¤¤¤Ã¤¿¤é¤Þ¤¿Ïä·¤«¤±¤Æ¤¯¤ì¡£")
(kern-conv-end)
)
(ifc nil
(method 'bye
(lambda (knpc kpc)
- (say knpc "Oh, I'm sure we'll be seeing more of each other.")))
+ (say knpc "¤ª¤ª¡¢¤Þ¤¿²ñ¤ª¤¦¡£")))
(method 'default
(lambda (knpc kpc)
- (say knpc "I can't help you with that.")))
+ (say knpc "¤½¤ì¤Ï¼ê½õ¤±¤Ç¤¤ó¤Ê¡£")))
(method 'hail
(lambda (knpc kpc)
- (kern-log-msg "You meet a bored old man.")
+ (kern-log-msg "¤¢¤Ê¤¿¤ÏÂà¶þ¤½¤¦¤ÊÏ·¿Í¤ËÏä·¤«¤±¤¿¡£")
(if (in-inventory? kpc in_ex_por)
- (say knpc "I see you have an In Ex Por spell. "
- "Ask me about casting it if you don't know how.")
- (say knpc "Welcome to the tutorial. Why don't you ask me about my job, "
- "or maybe that door over there.")
+ (say knpc "In Ex Por ¤Î¼öʸ¤Ï¤Ç¤¤¿¤è¤¦¤À¤Ê¡£"
+ "¤É¤¦¾§¤¨¤ë¤«¤ï¤«¤é¤Ê¤«¤Ã¤¿¤éʹ¤¤¤Æ¤¯¤ì¡£")
+ (say knpc "¥Á¥å¡¼¥È¥ê¥¢¥ë¤Ø¤è¤¦¤³¤½¡£»ä¤Î»Å»ö¤Ë¤Ä¤¤¤Æ¤¿¤º¤Í¤Æ¤ß¤Æ¤Ï¤É¤¦¤À¡©"
+ "¤½¤ì¤È¤âÈâ¤Î¤³¤È¤òÃΤꤿ¤¤¤Î¤«¤Í¡©")
)))
(method 'join
(lambda (knpc kpc)
- (say knpc "Yes, let's get this show on the road. "
- "Press 'F' and I'll follow you. "
- "Later if you want me to take turns moving with you, press 'F' again. "
- "And if you want me to explore while you wait, press '2'. "
- "You can always press 'F' again to get me to follow you.")
+ (say knpc "¤è¤·¡¢¤Ç¤Ï¹Ô¤³¤¦¡£"
+ "'f'¤ò²¡¤¹¤È»ä¤Ï¤ªÁ°¤Î»Ø¼¨¤Ë½¾¤¦¡£"
+ "¤ªÁ°¤Î¸å¤ò¤Ä¤¤¤Æ¤¤ÆÍߤ·¤¤¤Ê¤é¤â¤¦°ìÅÙ'f'¤ò²¡¤»¤Ð¤è¤¤¡£"
+ "¤½¤·¤Æ¤ªÁ°¤¬ÂԤäƤ¤¤ë´Ö¤Ë»ä¤Ëõº÷¤·¤ÆÍߤ·¤¤¾ì¹ç¤Ï'2'¤ò²¡¤¹¤Î¤À¡£"
+ "'f'¤ò²¡¤»¤Ð¤É¤³¤Ë¤¤¤Æ¤âÌá¤Ã¤Æ¤¤Æ¡¢ºÆ¤Ó¸å¤Ë¤Ä¤¤¤Æ¹Ô¤¯¤¾¡£")
(join-player knpc)
(kern-conv-end)
))
(method 'name
(lambda (knpc kpc)
- (say knpc "I'm Thorald. Hi.")))
+ (say knpc "»ä¤Ï¥½¥é¥ë¥É¤À¡£¤è¤í¤·¤¯¡£")))
(method 'job
(lambda (knpc kpc)
- (say knpc "I'm just the hired help.")))
+ (say knpc "»ä¤Ï¤¿¤ÀÀâÌÀ¤¹¤ë¤¿¤á¤Ë¸Û¤ï¤ì¤Æ¤¤¤ë¤Î¤À¡£")))
(method 'door
(lambda (knpc kpc)
- (say knpc "Yes, I know a spell that can open that magically locked door. "
- "Imagine that! Why don't you ask me about it?")
+ (say knpc "¤½¤¦¡¢»ä¤Ï¤³¤ÎËâË¡¤ÇÉõ°õ¤µ¤ì¤¿Èâ¤ò³«¤¯¼öʸ¤òÃΤäƤ¤¤ë¡£"
+ "¹Í¤¨¤è¡ª¼¡¤Ï²¿¤òʹ¤±¤Ð¤è¤¤¤«¡©")
))
(method 'spel
(lambda (knpc kpc)
- (say knpc "The In Ex Por spell unlocks magically locked doors. "
- "To mix it you'll need sulphurous ash and blood moss. "
- "Ask me about mixing if you don't know how.")))
+ (say knpc "Èâ¤ÎÉõ°õ¤ò²ò¤¯¤Î¤Ï In Ex Por ¤Î¼öʸ¤Ç¤¢¤ë¡£"
+ "¤½¤·¤Æ¤½¤ì¤òÄ´¹ç¤¹¤ë¤Ë¤Ïⲫ¤Î³¥¤È·ì¤ÎÂݤ¬É¬ÍפÀ¡£"
+ "Ä´¹ç¤¹¤ëÊýË¡¤¬²ò¤é¤Ê¤±¤ì¤Ð¤¿¤º¤Í¤è¡£")))
(method 'mix thorald-mixi)
(method 'mixi thorald-mixi)
(method 'cast
(lambda (knpc kpc)
- (say knpc "To C)ast a spell press 'c' and then enter the first letter of each magic word. "
- "For example, to cast In Ex Por you enter 'i', 'e' and 'p'. "
- "Use backspace if you mess up. "
- "When the spell is right hit ENTER to cast it. "
- "In Ex Por requires you to target the door.")))
+ (say knpc "¼öʸ¤ò¾§¤¨¤ë¤Ë¤Ï'c'¤ò²¡¤·¡¢ËâË¡¤Î¤½¤ì¤¾¤ì¤ÎºÇ½é¤Îʸ»ú¤òÆþÎϤ¹¤ë¡£"
+ "Î㤨¤Ð¡¢In Ex Por ¤ò¾§¤¨¤ë¤Ê¤é'i', 'e', ¤½¤·¤Æ'p'¤À¡£"
+ "¤ï¤«¤é¤Ê¤¯¤Ê¤Ã¤¿¤é¥Ð¥Ã¥¯¥¹¥Ú¡¼¥¹¤ò²¡¤»¤Ð¤è¤¤¡£"
+ "¼öʸ¤òÀµ¤·¤¯ÆþÎϤǤ¤¿¤Ê¤é¡¢Enter¤ò²¡¤·¤Æ¾§¤¨¤ë¡£"
+ "In Ex Por ¤ÏÈâ¤ò¼¨¤¹É¬Íפ¬¤¢¤ë¤¾¡£")))
))
-
+
(define (thorald-ai kchar) #t)
(define (mk-thorald)
(kern-mk-char
'ch_thorald ; tag
- "Thorald Greybeard" ; name
+ "¥½¥é¥ë¥É¡¦¥°¥ì¥¤¥Ù¥¢¡¼¥É" ; name
sp_human ; species
oc_wrogue ; occ
s_companion_wizard ; sprite
)
nil
))
+
+(kern-dictionary
+ "¥È¥Ó¥é" "door" "Èâ"
+ "¥¸¥å¥â¥ó" "spel" "¼öʸ"
+ "¥Á¥ç¥¦¥´¥¦" "mix" "Ä´¹ç"
+ "¥È¥Ê¥¨¥ë" "cast" "¾§¤¨¤ë")
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Bole
+;; ¥Ü¥ì
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_thud
(list 0 0 bole-bedroom-thud "idle")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Thud is the bodyguard of Kathryn, and currently abides in Bole,
-;; where they seek a certain thief. Various other NPCs suggest
-;; that Thud is at best half human, perhaps having ogre blood,
-;; or a sorcerous (summoned or vat-born) origin...
+;; ¥É¥ó¤Ï¥¥ã¥¹¥ê¥ó¤ÎÍÑ¿´ËÀ¤Ç¡¢º£¤Ï¤³¤Î¤¢¤¿¤ê¤ËÅ¥ËÀ¤¬¤¤¤ë¤È»×¤¤¡¢¥Ü¥ì¤Ëα¤Þ¤Ã
+;; ¤Æ¤¤¤ë¡£Â¿¤¯¤Î¾¤ÎÅоì¿Íʪ¤Ï¥É¥ó¤ÏȾʬ¤Ï¿Í´Ö¤Ç¥ª¡¼¥¬¤Î·ì¤¬Î®¤ì¤Æ¤¤¤ë¡¢¤Þ¤¿
+;; ¤ÏËâ½Ñ(¾¤´Ô¤µ¤ì¤¿¡¢¤Þ¤¿¤Ïºî¤é¤ì¤¿)¤È¹Í¤¨¤Æ¤¤¤ë¡Ä¡£
;;
-;; Thud is a potential party member (and an eventual betrayer).
-;; He accompanies Kathrun, and joins the party when and if she does.
+;; ¥É¥ó¤ÏÃç´Ö¤Ë¤Ê¤ë(¤½¤·¤Æ΢ÀÚ¤ë)¡£
+;; Èà¤Ï¥¥ã¥¹¥ê¥ó¤ÎÃç´Ö¤Ç¡¢Èà½÷¤¬Ãç´Ö¤Ë²Ã¤ï¤ë¤ÈÈà¤â²Ã¤ï¤ë¡£
;;----------------------------------------------------------------------------
(define (thud-hail knpc kpc)
- (say knpc "[You are certain that the figure before you is part ogre. "
- "Three meters tall and smoldering with menace, he regards you with "
- "half-lidded eyes.]"))
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÎÁ°¤Ë¤¢¤ë¤Î¤Ï³Î¤«¤Ë¥ª¡¼¥¬¤Î°ìÉô¤À¡£"
+ "¿ÈŤÏ3¥á¡¼¥È¥ëÄø¤¢¤ê¡¢°Ò°µÅª¤À¡£"
+ "Èà¤ÏÌܤòºÙ¤á¤Æ¤¢¤Ê¤¿¤ò¤Ë¤é¤ó¤À¡£¡Ï"))
(define (thud-default knpc kpc)
- (say knpc "[His threatening gaze does not waver]"))
+ (say knpc "¡ÎÈà¤Î°Ò°µÅª¤ÊÌܤÏÆ°¤«¤Ê¤«¤Ã¤¿¡£¡Ï"))
(define (thud-name knpc kpc)
- (say knpc "Thud no like you."))
+ (say knpc "¥É¥ó¤Ï¡¡¤ªÁ°¤¬¡¡·ù¤¤¡£"))
(define (thud-join knpc kpc)
(if (is-player-party-member? ch_kathryn)
(begin
- (say knpc "[Seeing Kathryn with you, he grunts his assent]")
+ (say knpc "¡Î¥¥ã¥¹¥ê¥ó¤È¤¢¤Ê¤¿¤ò¸«¤ë¤È¡¢Èà¤ÏÉÔËþ¤²¤ËƱ°Õ¤·¤¿¡£¡Ï")
(kern-char-join-player knpc)
(kern-conv-end))
- (say knpc "[He sneers]")))
+ (say knpc "¡ÎÈà¤Ï¤¢¤¶¾Ð¤Ã¤¿¡£¡Ï")))
(define (thud-job knpc kpc)
- (say knpc "Thud love kill."))
+ (say knpc "¥É¥ó¤Ï¡¡»¦¤¹¤Î¤¬¡¡Âç¹¥¤¡£"))
(define (thud-kathryn knpc kpc)
- (say knpc "Thud no kill"))
+ (say knpc "¥É¥ó¤Ï¡¡»¦¤µ¤Ê¤¤¡£"))
(define (thud-thud knpc kpc)
- (say knpc "You talk me? YOU TALK ME?! THUD PICK TEETH WITH YOU BONES!!"))
+ (say knpc "²¶¤Î¤³¤È¤«¡©¡¡²¶¡¡¤Î¡¡¤³¡¡¤È¡¡¤«¡¡¡©¡¡¥É¥ó¤Ï¡¡¤ªÁ°¤Î¡¡¹ü¤Ç¡¡»õ¤ò¡¡¤Û¤¸¤ë¤¾¡ª¡ª"))
(define (thud-thief knpc kpc)
- (say knpc "[He becomes enraged] THIEF TRICK THUD! THUD FIND THIEF! THUD KILL THIEF!"))
+ (say knpc "¡ÎÈà¤ÏÅܤê½Ð¤·¤¿¡ÏÅ¥ËÀ¤Ï¡¡¥É¥ó¤ò¡¡¤À¤Þ¤·¤¿¡ª¥É¥ó¤Ï¡¡Å¥ËÀ¤ò¡¡¸«¤Ä¤±¤ë¡ª¥É¥ó¤Ï¡¡Å¥ËÀ¤ò¡¡»¦¤¹¡ª"))
(define (thud-find knpc kpc)
- (say knpc "[He calms down a bit] Red Lady find thief. He no can hide."))
+ (say knpc "¡ÎÈà¤Ï¾¯¤·Íî¤ÁÃ夤¤¿¡ÏÀÖ¤¤¡¡½Ê½÷¤¬¡¡Å¥ËÀ¤ò¡¡¸«¤Ä¤±¤ë¡£¡¡Å¥ËÀ¤Ï¡¡±£¤ì¡¡¤é¤ì¤Ê¤¤¡£"))
(define (thud-red-lady knpc kpc)
- (say knpc "[He gives you a murderous look] You stay away Red Lady."))
+ (say knpc "¡ÎÈà¤Ï¶²¤í¤·¤¤ÌܤĤ¤Ç¤¢¤Ê¤¿¤ò¸«¤¿¡ÏÀÖ¤¤¡¡½Ê½÷¤«¤é¡¡Î¥¤ì¤í¡£"))
(define thud-conv
(ifc nil
(method 'hail thud-hail)
(method 'bye
(lambda (knpc kpc)
- (say knpc "[His eyes bore into your back as you walk away]")))
+ (say knpc "¡ÎÈà¤Ï¤¦¤ó¤¶¤ê¤·¤¿ÌܤǤ¢¤Ê¤¿¤¬µî¤ë¤Î¤ò¸«¤Æ¤¤¤¿¡£¡Ï")))
(method 'job thud-job)
(method 'name thud-name)
(method 'join thud-join)
(kern-char-arm-self
(kern-mk-char
'ch_thud ;;.....tag
- "Thud" ;;.......name
+ "¥É¥ó" ;;.......name
sp_troll ;;.....species
oc_warrior ;;...occupation
s_troll ;;......sprite
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Tim is a maimed, drooling madman, currently trapped outside
-;; the Tower of Brundegart.
+;; ¥Æ¥£¥à¤ÏÊÒÏӤΤʤ¤¡¢¤è¤À¤ì¤ò¤¿¤é¤·¤¿¤ª¤«¤·¤ÊÃˤǡ¢¥Ö¥ë¥ó¥Ç¥¬¡¼¥É¤ÎÅã¤Î³°¤Ë
+;; Êá¤é¤ï¤ì¤Æ¤¤¤ë¡£
;;
-;; Once a seeker of knowledge (and power),
-;; his body was ravaged by griffins (and their hungry chicks),
-;; and his mind broken by contact with the EYE of Brundegart.
-;; (One rather assumes the maiming did not help his mental state,
-;; for that matter...)
+;; ¤«¤Ä¤Æ¤ÏÃÎ(¤ÈÎÏ)¤Îõµá¼Ô¤Ç¤¢¤Ã¤¿¡£Èà¤ÎÆùÂΤϥ°¥ê¥Õ¥£¥ó(¤È¤½¤ÎÊ¢¤ò¶õ¤«¤»¤¿
+;; ¿÷)¤ËÃ¥¤ï¤ì¡¢Èà¤ÎÀº¿À¤Ï¥Ö¥ë¥Ì¤ÎÌܤȤÎÀÜ¿¨¤ÇÇ˲õ¤µ¤ì¤¿¡£
;;----------------------------------------------------------------------------
(define (tim-hail knpc kpc)
- (meet "You meet a drooling madman with only one arm.")
- (say knpc "I have seen the eye!"))
+ (meet "¤¢¤Ê¤¿¤Ï¤è¤À¤ì¤ò¤¿¤é¤·¤¿ÊÒÏӤΤª¤«¤·¤ÊÃˤȲñ¤Ã¤¿¡£")
+ (say knpc "Ìܤò¸«¤Æ¤¤¤¿¤Î¤À¡ª"))
(define (tim-eye knpc kpc)
- (say knpc "So wise I am now, because of the eye. Would you be wise?")
+ (say knpc "Ìܤò¸«¤ë¤³¤È¤Ç»ä¤ÏÃÎÎϤòÆÀ¤¿¤Î¤À¡£¤¢¤Ê¤¿¤ÏÃÎÎϤòµá¤á¤ë¼Ô¤«¡©")
(cond ((yes? knpc)
- (say knpc "Alas, my friend, I have lost the key!"))
+ (say knpc "¤¢¤¢¡¢Í§¤è¡£¸°¤ò¤Ê¤¯¤·¤Æ¤·¤Þ¤Ã¤¿¤Î¤À¡ª"))
(else
- (say knpc "Fool!")
+ (say knpc "¶ò¤«¤Ê¡ª")
(kern-conv-end))))
(define (tim-key knpc kpc)
- (say knpc "It was my key! I found it on the dead man. "
- "First they took my arm, then the lion-birds took my key!"))
+ (say knpc "»ä¤Î¸°¤À¡ª¤½¤³¤Î»à¤ó¤À¼Ô¤¬»ý¤Ã¤Æ¤¤¤¿¡£"
+ "»â»Ò¤Î¤è¤¦¤ÊÄ»¤Ë¡¢ºÇ½é¤ÏÏÓ¤òÃ¥¤ï¤ì¡¢¼¡¤Ë¸°¤òÃ¥¤ï¤ì¤¿¤Î¤À¡ª"))
(define (tim-arm knpc kpc)
- (say knpc "They chose me as I walked among the hills, "
- "and brought me here to feed their young."))
+ (say knpc "µÖ¤òÊ⤤¤Æ¤¤¤ë¤È¤¡¢»ä¤¬Áª¤Ð¤ì¤¿¡£"
+ "¤½¤·¤Æ¿÷¤ËÍ¿¤¨¤ë¤¿¤á¤³¤³¤Ë±¿¤Ð¤ì¤¿¤Î¤À¡£"))
(define (tim-name knpc kpc)
- (say knpc "Do not pretend to not know me! "
- "One who is all-wise is necessarily famous! That's logic!"))
+ (say knpc "ÃΤé¤Ê¤¤¤Õ¤ê¤ò¤¹¤ë¤Ê¡ª"
+ "¤³¤ÎÁ´Ç½¤Î¼Ô¤òÃΤé¤Ì¼Ô¤Ê¤É¤¤¤Ê¤¤¡ª¤³¤ì¤ÏɬÁ³¤À¡ª"))
(define (tim-job knpc kpc)
- (say knpc "I will bring enlightenment to the world!"))
+ (say knpc "¤³¤ÎÀ¤³¦¤ËÃΤθ÷¤ò¤â¤¿¤é¤¹¼Ô¤À¡ª"))
(define (tim-enli knpc kpc)
- (say knpc "Yes! The eye! The eye... [He curls into a fetal ball and sobs]")
+ (say knpc "¤½¤ÎÄ̤ê¤Ç¤¢¤ë¡ªÌܤÀ¡ªÌÜ¡Ä¡ÎÈà¤ÏÂÛ»ù¤Î¤è¤¦¤Ë¤¦¤º¤¯¤Þ¤ê¡¢µã¤¤Ê¤¬¤é¤Ä¤Ö¤ä¤¤¤¿¡£¡Ï")
(kern-conv-end))
(define (tim-lion knpc kpc)
- (say knpc "[He shrieks and cowers] Do you see them?! "
- "Have they come for my other arm? The chicks are so hungry! So cruel!"))
+ (say knpc "¡ÎÈà¤ÏÈáÌĤò¤¢¤²½Ì¤³¤Þ¤Ã¤¿¡£¡Ï¸«¤¿¤Î¤«¡©¡ª"
+ "¤â¤¦ÊÒÊý¤ÎÏÓ¤ò¼è¤ê¤ËÍ褿¤Î¤«¡©¿÷¤Ï¤½¤ó¤Ê¤ËÊ¢¤ò¶õ¤«¤»¤Æ¤¤¤ë¤Î¤«¡ª¶²¤í¤·¤¤¡ª"))
(define tim-conv
(ifc nil
(method 'hail tim-hail)
(method 'eye tim-eye)
+ (method 'me tim-eye)
(method 'key tim-key)
(method 'arm tim-arm)
(method 'name tim-name)
(kern-char-arm-self
(kern-mk-char
'ch_tim ;;..........tag
- "Tim" ;;.......name
+ "¥Æ¥£¥à" ;;.......name
sp_human ;;.....species
oc_wizard ;;.. .occupation
s_wizard ;;..sprite
(method 'start ktmr-start!)
))
-(mk-obj-type 't_timer "timer" '() layer-mechanism timer-ifc)
+(mk-obj-type 't_timer "»þ·×" '() layer-mechanism timer-ifc)
(define (mk-timer target-tag timeout sig)
(bind (kern-mk-obj t_timer 1)
;; ----------------------------------------------------------------------------
-;; tools.scm -- "usable" stuff that isn't a book, scroll or potion
+;; tools.scm -- ËÜ¡¢´¬Êª¡¢Ìô¤Ç¤Ï¤Ê¤¤¡Ö»È¤¨¤ë¡×¤â¤Î
;; ----------------------------------------------------------------------------
;; torch -- use two in-lor spells
-(mk-usable-item 't_torch "torch" s_torch norm
+(mk-usable-item 't_torch "¾¾ÌÀ" s_torch norm
(lambda (kobj kuser)
(kern-obj-add-effect kuser ef_torchlight nil)
result-ok))
(kern-char-task-end kchar)
)
(else
- (kern-log-msg "Picklock broke!")
+ (kern-log-msg "¸°³«¤±Æ»¶ñ¤¬²õ¤ì¤¿¡ª")
(kern-obj-remove-from-inventory kchar t_picklock 1)
(kern-char-task-end kchar)
)
(mk-reusable-item
- 't_picklock "picklock" s_picklock norm
+ 't_picklock "¸°³«¤±Æ»¶ñ" s_picklock norm
(lambda (kobj kuser)
(if (not (has-skill? kuser sk_unlock))
result-lacks-skill
(let ((ktarg (ui-target (kern-obj-get-location kuser) 1 (mk-ifc-query 'unlock))))
(cond ((null? ktarg) result-no-target)
(else
- (kern-char-task-begin kuser "picking a lock" 'picklock-proc ktarg)
+ (kern-char-task-begin kuser "¾ûÁ°³°¤·" 'picklock-proc ktarg)
result-ok
))))))
;; gem -- use peer spell
-(mk-usable-item 't_gem "gem" s_gem norm
+(mk-usable-item 't_gem "ÊõÀÐ" s_gem norm
(lambda (kgem kuser)
(powers-view kuser kuser 12)
result-ok))
;; sledge-hammer -- shatter rocks
-(mk-reusable-item 't_pick "pick" s_pick v-hard
+(mk-reusable-item 't_pick "¤Ä¤ë¤Ï¤·" s_pick v-hard
(lambda (ktool kuser)
(let ((loc (kern-ui-target (kern-obj-get-location kuser)
1)))
(let ((kter (kern-place-get-terrain loc)))
(cond ((eqv? kter t_boulder)
(kern-log-msg (kern-obj-get-name kuser)
- " pulverizes a boulder!")
+ "¤Ï´ä¤òºÕ¤¤¤¿¡ª")
(kern-place-set-terrain loc t_grass)
(cond ((> (kern-dice-roll "1d20") 16)
- (kern-log-msg "The pick shatters!")
+ (kern-log-msg "¤Ä¤ë¤Ï¤·¤¬²õ¤ì¤¿¡ª")
(kern-obj-remove-from-inventory kuser ktool 1)))
result-ok)
(else
result-no-effect)))))))
;; sextant -- gives location
-(mk-reusable-item 't_sextant "sextant" s_sextant hard
+(mk-reusable-item 't_sextant "ϻʬµ·" s_sextant hard
(lambda (ktool kuser)
(let ((loc (kern-obj-get-location kuser)))
(cond ((kern-place-is-wilderness? (loc-place loc))
- (kern-log-msg "You are at [x="
- (cadr loc) " y=" (caddr loc) "]")
+ (kern-log-msg "[x="
+ (cadr loc) " y=" (caddr loc) "]¤Ë¤¤¤ë¡£")
result-ok)
(else
- (kern-log-msg "Usable only in the wilderness!")
+ (kern-log-msg "³°¤Ç¤·¤«»È¤¨¤Ê¤¤¡ª")
result-not-here)))))
;; ----------------------------------------------------------------------------
(buried-quan buried))))
(kern-obj-put-at kobj
(kern-obj-get-location kburied))
- (kern-log-msg "You dig up something!")
+ (kern-log-msg "²¿¤«¤ò·¡¤ê½Ð¤·¤¿¡ª")
(kern-obj-remove kburied)))
(define buried-ifc
(eqv? (kern-obj-get-type kobj)
t_buried))
-(mk-reusable-item 't_shovel "shovel" s_shovel v-hard
+(mk-reusable-item 't_shovel "¥·¥ã¥Ù¥ë" s_shovel v-hard
(lambda (kshovel kuser)
(let ((ktarg (filter is-buried?
(kern-get-objects-at
(kern-obj-get-location kuser)))))
(cond ((null? ktarg)
- (kern-log-msg "Nothing buried here!")
+ (kern-log-msg "²¿¤âËä¤Þ¤Ã¤Æ¤¤¤Ê¤«¤Ã¤¿¡ª")
result-no-effect)
(else
(signal-kobj (car ktarg) 'digup (car ktarg) nil)
result-ok)))))
-(mk-reusable-item 't_chrono "chronometer" s_chrono hard
+(mk-reusable-item 't_chrono "²ûÃæ»þ·×" s_chrono hard
(lambda (kclock kuser)
(let* ((time (kern-get-time))
(hour (number->string
(min (if (< (time-minute time) 10)
(string-append "0" minbase)
minbase)))
- (kern-log-msg "The chronometer reads " hour ":" min)
+ (kern-log-msg "²ûÃæ»þ·×¤Ï" hour "»þ" min "ʬ¤À¡£")
result-ok)))
(define clock-hand-icons (list s_clock_hand_n s_clock_hand_ne s_clock_hand_se s_clock_hand_s s_clock_hand_sw s_clock_hand_nw))
(min (if (< (time-minute time) 10)
(string-append "0" minbase)
minbase)))
- (kern-log-msg "The clock reads " hour ":" min)
+ (kern-log-msg "»þ·×¤Ï" hour "»þ" min "ʬ¤À¡£")
result-ok))))
(ifc '()
(method 'handle
))
)))
-(mk-obj-type 't_clock "clock"
+(mk-obj-type 't_clock "»þ·×"
(mk-composite-sprite (list s_clock_body s_clock_hand_n s_clock_spin))
layer-mechanism clock-ifc)
(bind kclock nil)
kclock))
-(mk-obj-type 't_broken_clock "clock"
+(mk-obj-type 't_broken_clock "»þ·×"
s_clock_stopped
layer-mechanism broken-clock-ifc)
(ifc '()
(method 'handle
(lambda (kmirror kuser)
- (kern-log-msg (kern-obj-get-name kuser) " spots " (kern-obj-get-name kuser) " in the mirror")
+ (kern-log-msg (kern-obj-get-name kuser) "¤Ï¶À¤ÎÃæ¤Ë" (kern-obj-get-name kuser) "¤ò¸«¤Ä¤±¤¿¡£")
result-ok))
(method 'step
(lambda (kmirror kuser)
))
))
-(mk-obj-type 't_mirror "mirror"
+(mk-obj-type 't_mirror "¶À"
'()
layer-mechanism mirror-ifc)
))
))
-(mk-obj-type 't_shelf "set of shelves"
+(mk-obj-type 't_shelf "ê"
s_bookshelf
layer-mechanism shelf-ifc)
kstop))
;; grease -- inert object, required for the Wriggle skill
-(mk-obj-type 't_grease "grease" s_grease layer-item obj-ifc)
+(mk-obj-type 't_grease "Ȏ" s_grease layer-item obj-ifc)
;;----------------------------------------------------------------------------
;; rope-and-hook -- use the wrogue's Reach skill. Works like telekineses but
;;
(mk-reusable-item
- 't_rope_hook "rope & hook" s_rope_hook hard
+ 't_rope_hook "¸°ÄÞÉÕ¤¤ÎÆì" s_rope_hook hard
(lambda (kobj kuser)
(if (not (has-skill? kuser sk_reach))
result-lacks-skill
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In the monster village of Kun.
+;; ²øʪ¤Î¼¥¯¡¼¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_tooth
(list 0 0 campfire-4 "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Tooth is a nervous ratling, running a black market and pawn shop
-;; in the monster village of Kun. It appears that he is suffering from
-;; the surplus (or lack) of some stimulant.
+;; ¥Þ¥¨¥Ð¤Ï¿À·Ð¼Á¤Ê¥Í¥º¥ß¿Í´Ö¤Ç¡¢²øʪ¤Î¼¥¯¡¼¥ó¤Ç°Ç»Ô¤È¼Á¤ò±Ä¤ó¤Ç¤¤¤ë¡£
+;; ²¿¤«¤Î¶½Ê³ºÞ¤Î¼è¤ê¤¹¤®(¤Þ¤¿¤Ï¶ØÃǾɾõ)¤Ç¶ì¤·¤ó¤Ç¤¤¤ë¤è¤¦¤Ë¸«¤¨¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (tooth-hail knpc kpc)
- (kern-log-msg "You meet a shifty old rat with one enormous incisor. He shakes and shivers nervously. "
- "Too much caffeine? Black lotus withdrawal? You aren't sure.")
- (say knpc "Psst. Looking for a deal? I got deals. All kinds of deals! Good deals! Bad deals! "
- "You name it, you make it, it's your call! No questions asked. No answers given.")
+ (kern-log-msg "¤¢¤Ê¤¿¤Ï¤º¤ë¸¤½¤¦¤ÊǯϷ¤¤¤¿Â礤ÊÁ°»õ¤Î¥Í¥º¥ß¤È²ñ¤Ã¤¿¡£Èà¤Ï¿À·Ð¼Á¤½¤¦¤Ë¿Ì¤¨¡¢ÂΤòÍɤ餷¤Æ¤¤¤ë¡£"
+ "¥«¥Õ¥§¥¤¥ó¤Î¼è¤ê¤¹¤®¡©¥Ö¥é¥Ã¥¯¥í¡¼¥¿¥¹¤¬½Ð¤¿¡©¤¢¤Ê¤¿¤Ë¤Ï²¿¤â¤ï¤«¤é¤Ê¤¤¡£")
+ (say knpc "¤Á¤ç¤Ã¤È¡£¾¦Ç䤫¤¤¡©¾¦Çä¤Ï¤¢¤ë¤è¡£¤É¤ó¤Ê¾¦Çä¤â¤¢¤ë¤è¡ª¤¤¤¤¾¦Ç䡪°¤¤¾¦Ç䡪"
+ "¸À¤Ã¤È¤¯¤ì¡¢ÍÑ°Õ¤¹¤ë¤è¡¢·è¤á¤È¤¯¤ì¡ª²¿¤âʹ¤¤¤Æ¤Ê¤¤¡¢²¿¤â¸À¤¨¤Ê¤¤¡£")
)
(define (tooth-default knpc kpc)
- (say knpc "Don't know. Don't know about that. Information? Not my game.")
+ (say knpc "ÃΤé¤Ê¤¤¡£¤½¤ì¤ÏÃΤé¤Ê¤¤¡£¾ðÊó¡©²¶¤Ë¤Ï´Ø·¸¤Ê¤¤¡£")
)
(define (tooth-name knpc kpc)
- (say knpc "Tooth. I'm well-known! Well-respected. My customers love me. "
- "They always come back. Tell their friends about me? No way! "
- "Deals are too good. They keep it to themselves. I'm a well-kept secret! A well-known secret!")
+ (say knpc "¥Þ¥¨¥Ð¡£Í̾¤À¤è¡ªÉ¾È½¤¤¤¤¤è¡£¤ªµÒ¤Ï¤ß¤ó¤Êµ¤¤ËÆþ¤Ã¤Æ¤ë¡£"
+ "¤ß¤ó¤Ê¤Þ¤¿Íè¤ë¡£¤ªµÒ¤Î¤ªÍ§Ã£¤Ï²¶¤Î¤³¤ÈÏ䷤Ƥ롩¾éÃÌ¡ª"
+ "¾¦Çä¤Ï¤È¤Ã¤Æ¤â¤¤¤¤¤è¡£¤ªµÒ¤Ï¤ß¤ó¤ÊÈëÌ©¤Ë¤·¤Æ¤ë¡£²¶¤Ï¤¹¤´¤¤ÈëÌ©¡ªÍ̾¤ÊÈëÌ©¡ª")
)
(define (tooth-join knpc kpc)
- (say knpc "Can't, mate. Got my shop to run. Bills to pay. Guards to dodge. Too busy! Need the action!")
+ (say knpc "¤Ç¤¤Ê¤¤¡£Í§¤è¡£Å¹¤·¤Ê¤¤ã¡£¼Ú¶âÊÖ¤µ¤Ê¤¤ã¡£±Òʼ¤«¤éƨ¤²¤Ê¤¤ã¡£Ë»¤·¤¹¤®¤ë¡ªÆ°¤«¤Ê¤¤ã¡ª")
)
(define (tooth-job knpc kpc)
- (say knpc "Deals! Deals! Deals! Deals! Deals! Let's make one. Right now. "
- "Right here. Let's do it. Ready? Here we go.")
+ (say knpc "¾¦Ç䡪¾¦Ç䡪¾¦Ç䡪¾¦Ç䡪¾¦Ç䡪¾¦Ç䡪¤µ¤¢¤ä¤í¤¦¡£¤¹¤°¤ä¤í¤¦¡£"
+ "¤³¤³¤Ç¤ä¤í¤¦¡£°ì½ï¤Ë¤ä¤í¤¦¡£½àÈ÷¤Ç¤¤¿¡©¤µ¤¢¤¤¤³¤¦¡£")
(tooth-trade knpc kpc)
)
(define (tooth-bye knpc kpc)
- (say knpc "Going so soon? Leaving already? I've got more stuff! Lots more! "
- "Good stuff! But it won't stay! No! It flies off the shelves! Leave at your own risk...!"
- "[He goes on like this as you walk away]")
+ (say knpc "¤½¤ó¤Ê¤ËÁ᤯¹Ô¤¯¤Î¡©¤â¤¦µ¢¤ë¤Î¡©¤â¤Ã¤È¤¢¤ë¤è¡ª¤¿¤¯¤µ¤ó¤¢¤ë¤è¡ª"
+ "¤¤¤¤¤â¤Î¡ª¤Ç¤â¤³¤³¤Ë¤Ï¤Ê¤¤¡ª¤¤¤¤¤ä¡ªÃª¤«¤éÈô¤ó¤Ç¤¤¤Ã¤¿¡ª¼«¸ÊÀÕǤ¤Ç¡Ä¡ª"
+ "¡ÎÈà¤Ï¤¢¤Ê¤¿¤¬µî¤ë¤Þ¤Ç¤³¤Î¤è¤¦¤Ê¤³¤È¤ò¸À¤¤Â³¤±¤¿¡£¡Ï")
)
(define tooth-merch-msgs
(list nil ;; closed
- "Look here, look at this marvelous stuff! All quality! Rare, valuable, hard-to-find!" ;; buy
- "Got stuff? I'll take it. Where did you get it? I don't want to know." ;; sell
- "Everything reasonably priced! How do I stay in business? I don't know! See for yourself!" ;; trade
- "Is that all? I've got more!" ;; sold-something
- "Wait! Where you going? Come back, have another look! Did you see my collection of scrolls?" ;; sold-nothing
- "Come back when you have more! I'm always looking!" ;; bought-something
- "I need the good stuff! Magical stuff, gems, artifacts!" ;; bought-nothing
- "Don't forget the basics! Oil, gems, picklocks!" ;; traded-something
- "Wait! Where you going? Come back, have another look! Did you see my collection of scrolls?" ;; traded-nothing
+ "¤³¤ì¸«¤Æ¡¢¤³¤Î¤¹¤´¤¤¤Î¸«¤Æ¡ªÁ´Éô¤¤¤¤¡ªÄÁ¤·¤¤¡¢ÌòΩ¤Ä¡¢Â¾¤Ë¤Ê¤¤¡ª" ;; buy
+ "»ý¤Áʪ¡©¼õ¤±¼è¤ë¡£¤É¤³¤Ç¸«¤Ä¤±¤¿¡©¤É¤¦¤Ç¤â¤¤¤¤¡£" ;; sell
+ "Á´Éô¤ªÇ㤤ÆÀ¡ª¤É¤¦¤ä¤Ã¤ÆÌÙ¤±¤Æ¤ë¡©¤ï¤«¤é¤Ê¤¤¡ª¼«Ê¬¤Ç³Î¤«¤á¤Æ¡ª" ;; trade
+ "¤½¤ì¤À¤±¡©¤Þ¤À¤¢¤ë¤è¡ª" ;; sold-something
+ "ÂԤơª¤É¤³¹Ô¤¯¡©Ìá¤Ã¤Æ¡¢Ê̤θ«¤Æ¡ª²¶¤Î´¬Êª¥³¥ì¥¯¥·¥ç¥ó¸«¤¿¡©" ;; sold-nothing
+ "¤â¤Ã¤È¤¢¤Ã¤¿¤é¤Þ¤¿Íè¤Æ¡ª¤¤¤Ä¤Ç¤â¸«¤ë¤è¡ª" ;; bought-something
+ "¤â¤Ã¤È¤¤¤¤¤â¤Î¡ªËâË¡¤Î¤â¤Î¡¢ÊõÀС¢·Ý½ÑÉÊ¡ª" ;; bought-nothing
+ "´ðËܤò˺¤ì¤Ê¤¤¡ª²Ð±ê¥Ó¥ó¡¢ÊõÀС¢¸°³«¤±Æ»¶ñ¡ª" ;; traded-something
+ "ÂԤơª¤É¤³¹Ô¤¯¡©Ìá¤Ã¤Æ¡¢Ê̤θ«¤Æ¡ª²¶¤Î´¬Êª¥³¥ì¥¯¥·¥ç¥ó¸«¤¿¡©" ;; traded-nothing
))
(define tooth-catalog
(list
- (list t_picklock 5 "Unlock doors! Takes a bit of skill!")
- (list t_gem 20 "Find hidden rooms and passages! Thieves love 'em!")
- (list t_grease 25 "In a tight squeeze? Grease is the word!")
-
- (list t_oil 5 "Perfect for fighting slimes!")
- (list t_slime_vial 30 "Kal Xen Nox in a bottle! Great for escaping the guards!")
- (list t_arrow 3 "Gotta have lots of arrows!")
- (list t_bolt 3 "Can't have too many bolts!")
- (list t_smoke_bomb 4 "Make a clean getaway under cover!")
-
- (list t_spiked_helm 300 "Use your head in a fight!")
- (list t_spiked_shield 300 "Rare item! For aggressive fighters!")
-
- (list t_dagger_4 (* 4 65) "Very nice! Small, easy to conceal, but with a fierce bite!")
- (list t_sword_2 (* 2 85) "Better than the average sword! Look at that keen edge!")
- (list t_sword_4 (* 4 85) "The finest! The very best! A weapon for the true artist of death!")
- (list t_morning_star_2 (* 2 105) "A truly awesome weapon! Lay waste to whole parties!")
-
- (list t_leather_helm_2 (* 2 100) "For the wrogue who needs that little bit of extra protection!")
- (list t_chain_coif_4 (* 4 100) "See that tight weave? The banded reinforcement? Turns any blade and softens the blow!")
- (list t_iron_helm_4 (* 4 150) "Very rare! Blows to the head will feel like pillows!")
-
- (list t_armor_leather_2 (* 2 150) "Want to pilfer a Gint armory? Steal gems from trolls? You'll need something light but effective like this!")
- (list t_armor_leather_4 (* 4 150) "This once belonged to an old wrogue! He died of old age on a bed of gold coins! Now you can, too!")
- (list t_armor_chain_4 (* 4 330) "This is perfect for the scrapper who likes to be in the thick without getting slowed down!")
- (list t_armor_plate_4 (* 4 660) "Shrug off the blows of gints and trolls in this amazing plate armour! There's nothing like it anywhere else!")
-
- (list t_xen_corp_scroll (* 7 base-scroll-cost) "The assassin's favorite! Kills instantly!")
- (list t_sanct_lor_scroll (* 7 base-scroll-cost) "The wrogue's favorite! Perfect for sneaking in and out unseen!")
- (list t_an_xen_ex_scroll (* 6 base-scroll-cost) "If you can't beat them, have them join you with this charm spell!")
- (list t_in_ex_por_scroll (* 4 base-scroll-cost) "Magic doors won't stop you when you carry plenty of these!")
- (list t_wis_quas_scroll (* 4 base-scroll-cost) "Perfect for finding hidden doors (and invisible foes)!")
- (list t_in_quas_xen_scroll (* 7 base-scroll-cost) "Ever wish there was two of you? With this scroll there can be!")
- (list t_an_tym_scroll (* 8 base-scroll-cost) "For when you really get into trouble this scroll will stop time and let you get out!")
+ (list t_picklock 5 "Èâ¤ò³«¤±¤ë¡ª¤Á¤ç¤Ã¤Èµ»¤¬¤¤¤ë¡ª")
+ (list t_gem 20 "ÈëÌ©¤ÎÉô²°¤ÈÆ»¤ò¸«¤Ä¤±¤ë¡ªÅ¥ËÀ¤Ï¥³¥ì¤¬Âç¹¥¤¡ª")
+ (list t_grease 25 "¶¹¤¤¤È¤³¤ËÆþ¤ë¡©»é¤À¡ª")
+
+ (list t_oil 5 "Ç´¶Ý¤ÈÀ臘¤Î¤Ë°ìÈÖ¡ª")
+ (list t_slime_vial 30 "Kal Xen Nox¤òÉӵͤᤷ¤¿¡ª±Òʼ¤«¤éƨ¤²¤ë¤Î¤Ë¤¤¤¤¡ª")
+ (list t_arrow 3 "Ìð¤Ï¤¤¤Ã¤Ñ¤¤¤¤¤ë¤è¡ª")
+ (list t_bolt 3 "ÃƤÏ¿¤¹¤®¤ë¤³¤È¤Ï¤Ê¤¤¡ª")
+ (list t_smoke_bomb 4 "¤è¤¯¸«¤¨¤ëƨ¤²Æ»¤òºî¤ë¡ª")
+
+ (list t_spiked_helm 300 "Ƭ¤ÇÀ廊¡ª")
+ (list t_spiked_shield 300 "ÄÁ¤·¤¤Êª¡ª¹¶·â¤¬Âç¹¥¤¤Ê¿Í¤Ë¡ª")
+
+ (list t_dagger_4 (* 4 65) "¤È¤Ã¤Æ¤â¤¤¤¤¡ª¾®¤µ¤¤¡¢±£¤»¤ë¡¢¤Ç¤âÒû¤à¤ÈÉݤ¤¡ª")
+ (list t_sword_2 (* 2 85) "ÉáÄ̤ηõ¤è¤ê¤¤¤¤¡ª¤³¤ÎÀÚ¤ÃÀè¤ò¸«¤Æ¡ª")
+ (list t_sword_4 (* 4 85) "°ìÈÖ¤¤¤¤¡ªºÇ¶¯¡ªËÜʪ¤Î»à¤Î·Ý½Ñ²È¤ÎÉð´ï¡ª")
+ (list t_morning_star_2 (* 2 105) "ËÜÅö¤Ë¥«¥Ã¥³¥¤¥¤Éð´ï¡ª¤Þ¤È¤á¤ÆÅݤ»¡ª")
+
+ (list t_leather_helm_2 (* 2 100) "¤Á¤ç¤Ã¤È;ʬ¤ËËɸ椬Íפë¤Ê¤é¤º¼Ô¸þ¤±¡ª")
+ (list t_chain_coif_4 (* 4 100) "¤³¤Î¤¤Ä¤¤ÌÖÌܸ«¤Æ¡©¤³¤Î¶¯¤¤·ë¤Ó¤Ä¤¡©¤É¤ó¤Ê¿Ï¤âϤ餲¤ë¡ª")
+ (list t_iron_helm_4 (* 4 150) "¤È¤Ã¤Æ¤âÄÁ¤·¤¤¡ªÆ¬¤ò²¥¤é¤ì¤Æ¤âËí¤°¤é¤¤¤Ë¤·¤«´¶¤¸¤Ê¤¤¡ª")
+
+ (list t_armor_leather_2 (* 2 150) "µð¿Í¤ÎÉð´ï¸Ë¤ÎÅ¥ËÀ¤Ë¤Ê¤ê¤¿¤¤¡©¥È¥í¥ë¤«¤éÊõÀФòÅð¤ß¤¿¤¤¡©¤³¤ì¤ß¤¿¤¤¤Ê·Ú¤¯¤Æ¤¤¤¤¤ä¤Ä¤«Íפ롪")
+ (list t_armor_leather_4 (* 4 150) "ÀΤΤʤ餺¼Ô¤¬»ý¤Ã¤Æ¤¿¡ª¶â²ß¤Î¥Ù¥Ã¥É¤Çǯ¼è¤Ã¤Æ»à¤ó¤À¡ª¤¢¤ó¤¿¤â¤Ç¤¤ë¡ª")
+ (list t_armor_chain_4 (* 4 330) "¤³¤ì¤Ï´°àú¡ªÆ°¤¤Î¥¸¥ã¥Þ¤Ë¤Ê¤é¤Ê¤¯¤Æ¶¯¤¤¡ª")
+ (list t_armor_plate_4 (* 4 660) "µð¿Í¤È¥È¥í¥ë¤¬²¥¤Ã¤Æ¤â¸ú¤«¤Ê¤¤¤¹¤´¤¤³»¡ª¤³¤³°Ê³°¤Ë¤Ê¤¤¡ª")
+
+ (list t_xen_corp_scroll (* 7 base-scroll-cost) "°Å»¦¼Ô¤¬¹¥¤¡ª¤¹¤°»¦¤»¤ë¡ª")
+ (list t_sanct_lor_scroll (* 7 base-scroll-cost) "¤Ê¤é¤º¼Ô¤¬¹¥¤¡ª¸«¤¨¤Ê¤¯¤Ê¤Ã¤Æ½ÐÆþ¤ê¤¹¤ë¡ª")
+ (list t_an_xen_ex_scroll (* 6 base-scroll-cost) "Åݤ»¤Ê¤¤¥ä¥Ä¤Ï¤³¤Î¼öʸ¤ÇÃç´Ö¤Ë¤·¤í¡ª")
+ (list t_in_ex_por_scroll (* 4 base-scroll-cost) "¥³¥¤¥Ä¤¬¤¤¤Ã¤Ñ¤¤¤¢¤ì¤Ð¡¢ËâË¡¤ÎÈâ¤â»ß¤á¤é¤ì¤Ê¤¤¡ª")
+ (list t_wis_quas_scroll (* 4 base-scroll-cost) "¸«¤¨¤Ê¤¤Èâ(¤½¤·¤Æ¸«¤¨¤Ê¤¤Å¨)¤ò¸«¤Ä¤±¤ë¤Î¤Ë´°àú¡ª")
+ (list t_in_quas_xen_scroll (* 7 base-scroll-cost) "¼«Ê¬¤¬Æó¿ÍÍߤ·¤¤¡©¤³¤Î´¬Êª¤òÆɤᡪ")
+ (list t_an_tym_scroll (* 8 base-scroll-cost) "ËÜÅö¤Ë¥ä¥Ð¥¤¤È¤¤Ï¤³¤Î´¬Êª¤òÆɤó¤Ç»þ´Ö¤ò»ß¤á¤Æƨ¤²¤í¡ª")
))
(define (tooth-trade knpc kpc) (conv-trade knpc kpc "trade" tooth-merch-msgs tooth-catalog))
(bind
(kern-mk-char
'ch_tooth ; tag
- "Tooth" ; name
+ "¥Þ¥¨¥Ð" ; name
tooth-species ; species
tooth-occ ; occ
s_rat ; sprite
((or (= roll 20)
(> (+ roll bonus) avoid))
(kern-log-msg (kern-obj-get-name kchar)
- " ^c+gavoids^c- a "
+ "¤Ï"
(trap-type-name ttype)
- " trap!"))
+ "¤Î櫤ò^c+g¤«¤ï¤·¤¿^c-¡ª"))
(else
- (kern-log-msg (kern-obj-get-name kchar) " ^c+rtrips^c- a "
+ (kern-log-msg (kern-obj-get-name kchar) "¤Ï"
(trap-type-name ttype)
- " trap!")
+ "¤Î櫤Ë^c+r¤«¤«¤Ã¤¿^c-¡ª")
(apply (eval (trap-type-proc (trap-type trap)))
(list kchar kobj))))))
(> (+ roll bonus)
(trap-detect-dc trap))))
(kern-log-msg (kern-obj-get-name kchar)
- " ^c+gfinds^c- a "
+ "¤Ï"
(trap-type-name ttype)
- " trap!")
+ "¤Î櫤ò^c+g¸«¤Ä¤±¤¿^c-¡ª")
(trap-set-detected! trap #t))
((or (= roll 1)
(< (+ roll bonus) (trap-fumble-dc trap)))
(define (sleep-trap-proc actor subject) (apply-sleep actor))
(define (spike-trap-proc actor subject)
- (kern-obj-apply-damage actor "ouch"
+ (kern-obj-apply-damage actor "¤¢¤¢¤Ã"
(kern-dice-roll "1d6")))
(define (bomb-trap-proc actor subject)
(ifccall subject 'self-destruct)
)
-(define lightning-trap (mk-trap-type "lightning" 'lightning-trap-proc))
-(define burn-trap (mk-trap-type "burn" 'burn-trap-proc))
-(define poison-trap (mk-trap-type "poison" 'poison-trap-proc))
-(define sleep-trap (mk-trap-type "sleep" 'sleep-trap-proc))
-(define spike-trap (mk-trap-type "spike" 'spike-trap-proc))
-(define bomb-trap (mk-trap-type "bomb" 'bomb-trap-proc))
-(define self-destruct-trap (mk-trap-type "self-destruct" 'self-destruct-trap-proc))
+(define lightning-trap (mk-trap-type "ÅÅ·â" 'lightning-trap-proc))
+(define burn-trap (mk-trap-type "±ê" 'burn-trap-proc))
+(define poison-trap (mk-trap-type "ÆÇ" 'poison-trap-proc))
+(define sleep-trap (mk-trap-type "ºÅ̲" 'sleep-trap-proc))
+(define spike-trap (mk-trap-type "¥È¥²" 'spike-trap-proc))
+(define bomb-trap (mk-trap-type "Çúȯ" 'bomb-trap-proc))
+(define self-destruct-trap (mk-trap-type "¼«Çú" 'self-destruct-trap-proc))
;; ----------------------------------------------------------------------------
-;; Level 1 of the Thief's Ladder
+;; Å¥ËÀ¤Î¤Ï¤·¤´ 1³¬
;; ----------------------------------------------------------------------------
(mk-dungeon-room
- 'p_traps_1 "Riddles in the Dark"
+ 'p_traps_1 "°Ç¤ÎÃæ¤ÎÆæ"
(list
"rr rr rr rr rr rr rr xx xx xx xx xx xx xx xx xx xx rr rr "
"rr rr rr xx xx xx xx xx ,, ,, ,, xx xx ,, ,, ,, xx rr rr "
"rr rr xx ,, ,, ,, xx xx ,, ,, ,, xx xx xx xx xx rr rr rr "
"rr rr xx xx xx xx xx xx xx xx xx xx rr rr rr rr rr rr rr "
)
- (put (mk-riddle 'egg 't_lava 3 5 3 9 #f
- "All who would pass must answer the riddle:\n\n"
- " In a marble hall white as milk\n"
- " Lined with skin soft as silk\n"
- " Within a fountain crystal clear\n"
- " A golden apple doth appear\n"
- " No doors there are to this stronghold\n"
- " Yet thieves break in to steal its gold.\n"
+ (put (mk-riddle "¥¿¥Þ¥´" 't_lava 3 5 3 9 #f
+ "¤³¤³¤òÄ̤é¤ó¤È¤¹¤ë¤â¤Î¤Ï¤³¤ÎÆæ¤ò²ò¤¯¤Ù¤·¡£\n\n"
+ "¡¡Æý¤Î¤´¤È¤¯Çò¤¤ÂçÍýÀФÎÅÂƲ¤Ë\n"
+ "¡¡¸¨¤Î¤´¤È¤½À¤é¤«¤Ê¥«¡¼¥Æ¥ó\n"
+ "¡¡¿å¾½¤ÎÀô¤ÎÃæ¤Ë\n"
+ "¡¡²«¶â¤Î¤ê¤ó¤´¤¬¸½¤ì¤ë\n"
+ "¡¡¤³¤ÎºÖ¤ËÈâ¤Ï¤Ê¤·\n"
+ "¡¡¤·¤«¤·¤½¤ì¤Ï²õ¤µ¤ì²«¶â¤ÏÅð¤Þ¤ì¤ë¡£"
) 4 14)
- (put (mk-riddle 'few 't_lava 8 5 3 9 #f
- "All who would pass must answer the riddle:\n\n"
+ (put (mk-riddle "few" 't_lava 8 5 3 9 #f
+ "¤³¤³¤òÄ̤é¤ó¤È¤¹¤ë¤â¤Î¤Ï¤³¤ÎÆæ¤ò²ò¤¯¤Ù¤·¡£\n\n"
+ "¡¡²æ¤Ï£³Ê¸»ú¤Îñ¸ì¤ò±£¤·»ý¤Ä¡£\n"
+ "¡¡£²¤ò²Ã¤¨¤ë¤È¡¢¤è¤ê¾¯¤Ê¤¯¤Ê¤ë¡£\n"
" I know a word of letters three.\n"
- " Add two, and fewer there will be."
+ " Add two, and fewer there will be.\n"
+ "¡ÎÃí°Õ¡§±Ñ¸ì¤ÇÅú¤¨¤ë¤³¤È¡£Tab¥¡¼¤ò²¡¤¹¤È¥í¡¼¥Þ»ú¡¦¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È¤¬ÀÚ¤êÂؤï¤ë¡£¡Ï"
) 9 4)
- (put (mk-riddle 'eye 't_lava 13 5 3 9 #f
- "All who would pass must answer the riddle:\n\n"
+ (put (mk-riddle "eye" 't_lava 13 5 3 9 #f
+ "¤³¤³¤òÄ̤é¤ó¤È¤¹¤ë¤â¤Î¤Ï¤³¤ÎÆæ¤ò²ò¤¯¤Ù¤·¡£\n\n"
+ "¡¡È¯²»¤Ï£±Ê¸»ú\n"
+ "¡¡¤·¤«¤·É®µ¤Ï£³Ê¸»ú\n"
+ "¡¡£²¤Äʸ»ú¤¢¤ê\n"
+ "¡¡¤½¤·¤Æ£²¤Ä¤Î¤ß²æ¤ÎÃæ¡£\n"
+ "¡¡²æ¤ÏÊ£¿ô¡¢¤½¤·¤Æñ¿ô¡¢\n"
+ "¡¡¹õ¤¯¡¢ÀĤ¯¡¢³¥¿§¡£\n"
+ "¡¡½ª¤ï¤ê¤«¤éÆɤó¤Ç¤â\n"
+ "¡¡²æ¤Î°ÕÌ£¤ÏƱ¤¸¡£\n"
" Pronounced as one letter,\n"
" but written with three.\n"
" Two letters there are\n"
" I'm double, and single,\n"
" and black, blue and gray.\n"
" When read from both ends\n"
- " I'm the same either way."
+ " I'm the same either way.\n"
+ "¡ÎÃí°Õ¡§±Ñ¸ì¤ÇÅú¤¨¤ë¤³¤È¡£¡Ï"
) 14 14)
(put (mk-ladder-down 'p_traps_2 9 15) 14 2)
(put (mk-ladder-up 'p_bole 43 6) 4 16)
;; ----------------------------------------------------------------------------
-;; Level 2 of the Thief's Ladder
+;; Å¥ËÀ¤Î¤Ï¤·¤´ 2³¬
;; ----------------------------------------------------------------------------
(mk-dungeon-room
- 'p_traps_2 "The Choice"
+ 'p_traps_2 "ÁªÂò"
(list
"xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
"xx ,, ,, ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, ,, ,, xx "
"xx xx xx xx xx xx xx !! !! !! !! !! !! xx xx xx xx xx xx "
"xx xx xx xx xx xx xx .W .I .S .E .L .Y xx xx xx xx xx xx "
)
- (put (mk-step-clue "Doesn't the other way look better?") 13 15)
- (put (mk-step-clue "Doesn't the other way look better?") 6 15)
+ (put (mk-step-clue "Ê̤ÎÆ»¤ÎÊý¤¬¤è¤¤¤Î¤Ç¤Ï¡©") 13 15)
+ (put (mk-step-clue "Ê̤ÎÆ»¤ÎÊý¤¬¤è¤¤¤Î¤Ç¤Ï¡©") 6 15)
;; secret path through wall
(put (mk-secret-path) 9 14)
;; ----------------------------------------------------------------------------
(kern-load "traps_3_mechs.scm")
(mk-dungeon-room
- 'p_traps_3 "Fun with Levers"
+ 'p_traps_3 "¥ì¥Ð¡¼Í·¤Ó"
(list
"xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
"xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx "
;; Level 4 of the Thief's Ladder
;; ----------------------------------------------------------------------------
(mk-dungeon-room
- 'p_traps_4 "Labyrinth of Burning Glass"
+ 'p_traps_4 "dz¤¨¤ë¥¬¥é¥¹¤Î̵Ü"
(list
"xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
"xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ~, ,, ,, ,, ,, ,, xx "
(mk-dungeon-room
- 'p_treasury2 "Lost Treasury of Luximene"
+ 'p_treasury2 "¼º¤ï¤ì¤¿¥é¥¯¥·¥Þ¥Ë¤ÎÊõʪ¸Ë"
(list
"xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
"xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
(kern-load "jim.scm")
(bind
(kern-mk-char 'ch_jim ; tag
- "Jim" ; name
+ "¥¸¥à" ; name
sp_human ; species
nil ; occ
s_townsman ; sprite
(kern-load "gwen.scm")
(bind
(kern-mk-char 'ch_gwen ; tag
- "Gwen" ; name
+ "¥°¥Ù¥ó" ; name
sp_human ; species
nil ; occ
s_gwen ; sprite
(kern-load "chanticleer.scm")
(bind
(kern-mk-char 'ch_chant ; tag
- "Chanticleer" ; name
+ "¥ª¥ó¥É¥ê" ; name
sp_human ; species
nil ; occ
s_chanticleer ; sprite
(kern-load "earl.scm")
(bind
(kern-mk-char 'ch_earl ;; tag
- "Earl" ;; name
+ "¥¤¥¢¥ë" ;; name
sp_human ;; species
nil ;; occ
s_townsman ;; sprite
;;----------------------------------------------------------------------------
(kern-mk-place
'p_trigrave ; tag
- "Trigrave" ; name
+ "¥È¥ê¥°¥ì¥¤¥Ö" ; name
s_town ; sprite
;; Blit the buildings over the basic terrain map.
;; Setup progress bar for loading. I arrived at the number by printing the
;; current number of steps in src/foogod.c:foogod_progress_bar_finish().
-(kern-progress-bar-start "Loading" 75)
+(kern-progress-bar-start "Æɤ߹þ¤ßÃæ" 75)
;; Wrap the original definition of (load ...) with one that advances the
;; progress bar.
;; Player Character
(kern-mk-char
'ch_wanderer
- "The Wanderer" ; name
+ "̤¤¿Í" ; name
sp_human ; species
oc_wanderer ; occ
s_wanderer ; sprite
;; Sun
(kern-mk-astral-body
'sun ; tag
- "Fyer (the sun)" ; name
+ "¥Õ¥£¥¢(ÂÀÍÛ)" ; name
1 ; relative astronomical distance
1 ; minutes per phase (n/a for sun)
(/ (* 24 60) 360) ; minutes per degree
; ;; The moon Lumis is the source gate, which means it opens the source moongates
; ;; on its phases. We designate this by using the source-moon-ifc as its ifc.
; (mk-moon 'lumis ; tag
-; "Lumis" ; name
+; "¥ë¥ß¥¹" ; name
; 2 ; hours per phase
; 24 ; hours per revolution
; 90 ; initial arc
; ;; same order as Lumis. In fact, they don't even need to be the same set of
; ;; gates.
; (mk-moon 'ord ; tag
-; "Ord" ; name
+; "¥ª¡¼¥É" ; name
; 1 ; hours per phase
; 12 ; hours per revolution
; 180 ; initial arc
;; Tutorial
(define (tutorial kplayer)
(kern-obj-put-at kplayer (list p_tutorial_town 9 9))
- (kern-log-msg "Welcome to the tutorial. If you want to go back to the main menu hit the 'q' key for Q)uit.")
- (kern-log-msg "Your main character appears in the center of the view to the left. See him? Move him by pressing the arrow keys.")
+ (kern-log-msg "¥Á¥å¡¼¥È¥ê¥¢¥ë¤Ø¤è¤¦¤³¤½¡£ºÇ½é¤Î¥á¥Ë¥å¡¼¤ËÌá¤ê¤¿¤¤¤È¤¤Ï'q'¤ò²¡¤·¤Æ½ªÎ»¤·¤Æ¤¯¤À¤µ¤¤¡£")
+ (kern-log-msg "¤¢¤Ê¤¿¤Î¥¥ã¥é¥¯¥¿¡¼¤Ïº¸¤Î¥¦¥£¥ó¥É¥¦¤ÎÃæ±û¤Ë¤¤¤Þ¤¹¡£Èब¤ï¤«¤ê¤Þ¤¹¤«¡©Ìð°õ¥¡¼¤ò²¡¤¹¤È°ÜÆ°¤·¤Þ¤¹¡£")
)
;;----------------------------------------------------------------------------
;; the line after it.
(kern-add-hook 'new_game_start_hook 'tutorial)
-(kern-progress-bar-finish)
\ No newline at end of file
+(kern-progress-bar-finish)
;; Map
;;----------------------------------------------------------------------------
(mk-dungeon-room
- 'p_tutorial_cave "Tutorial Cave"
+ 'p_tutorial_cave "¥Á¥å¡¼¥È¥ê¥¢¥ë¤Îƶ·¢"
(list
"rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
"rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
"rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
)
(put (spawn-pt 'bat) 7 7)
- (put (mk-step-clue "Now would be a good time to U)se a torch!") 7 15)
- (put (mk-step-clue "Kill the bat, then enter F)ollow mode and look around. "
- "When you're done, go back to the ladder and press E)nter to climb back up.")
+ (put (mk-step-clue "'u'¥¡¼¤Ç¾¾ÌÀ¤ò»È¤¦¤È¤è¤¤¤Ç¤·¤ç¤¦¡ª") 7 15)
+ (put (mk-step-clue "¥³¥¦¥â¥ê¤òÅݤ·¤¿¸å¡¢'f'¥¡¼¤ò²¡¤·¤Æ¤¢¤¿¤ê¤òÄ´¤Ù¤Æ¤ß¤Þ¤·¤ç¤¦¡£"
+ "Ä´¤Ù½ª¤ï¤Ã¤¿¤é¡¢¤Ï¤·¤´¤ËÌá¤Ã¤Æ'e'¥¡¼¤ò²¡¤¹¤ÈÅФäƽФé¤ì¤Þ¤¹¡£")
7 14)
(put (mk-ladder-up 'p_tutorial_wilderness 9 15) 7 17)
)
(mk-tower
- 'p_tutorial_town "Tutorial Town"
+ 'p_tutorial_town "¥Á¥å¡¼¥È¥ê¥¢¥ë¤ÎÄ®"
(list
"xx xx xx xx xx xx xx xx xx ,, xx xx xx xx xx xx xx xx xx "
"xx xx xx xx xx xx xx xx xx ,, xx xx xx xx xx xx xx xx xx "
(put (mk-lever 'p1) 5 10)
(put (kern-tag 'p2 (mk-portcullis)) 10 13)
(put (mk-lever 'p2) 9 14)
- (put (mk-step-clue "To the left is a chest. O)pen it by pressing the 'o' key followed by an arrow key. "
- "Then G)et the items by pressing the 'g' key followed by an arrow.")
+ (put (mk-step-clue "º¸¤ËÊõÈ¢¤¬¤¢¤ê¤Þ¤¹¡£'o'¥¡¼¤ò²¡¤·¤¿¸å¡¢Ìð°õ¥¡¼¤ò²¡¤¹¤È³«¤±¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£"
+ "¤½¤Î¸å'g'¥¡¼¤ò²¡¤·¤¿¸å¡¢Ìð°õ¥¡¼¤ò²¡¤·¤Æ¡¢¼è¤Ã¤Æ¤¯¤À¤µ¤¤¡£")
6 6)
- (put (mk-step-clue "You better R)eady your weapons and armor. "
- "Press the 'r' key. In the window above you can select weapons and armor to wear or "
- "remove by pressing the SPACEBAR. Experiment with this a bit. "
- "When you're done amusing yourself press the ESC key."
+ (put (mk-step-clue "Éð´ï¤ÈËɶñ¤ÇÀ襤¤ËÈ÷¤¨¤¿¤Û¤¦¤¬¤è¤¤¤Ç¤·¤ç¤¦¡£"
+ "'r'¥¡¼¤ò²¡¤·¤Æ¤¯¤À¤µ¤¤¡£¾å¤Î¥¦¥£¥ó¥É¥¦¤ÇÉð´ï¤äËɶñ¤òÁªÂò¤·¡¢¥¹¥Ú¡¼¥¹¥Ð¡¼¤ÇÁõÈ÷¤·¤¿¤ê¼è¤ê³°¤·¤¿¤ê¤Ç¤¤Þ¤¹¡£¿§¡¹¤È»î¤·¤Æ¤ß¤Þ¤·¤ç¤¦¡£"
+ "½½Ê¬¤À¤È»×¤Ã¤¿¤éESC¥¡¼¤ò²¡¤·Ìá¤Ã¤Æ¤¯¤À¤µ¤¤¡£"
)
6 8)
- (put (mk-step-clue "To check your equipment Z)tatus, hit the 'z' key. "
- "Scroll through the panes with the arrow keys. "
- "When you're done hit the ESC key."
+ (put (mk-step-clue "ÁõÈ÷¤ò³Îǧ¤¹¤ë¤¿¤á¤Ë'z'¥¡¼¤ò²¡¤·¤Æ¤¯¤À¤µ¤¤¡£"
+ "º¸±¦¤ÎÌð°õ¥¡¼¤ò²¡¤¹¤È¥¦¥£¥ó¥É¥¦¤¬ÀÚ¤êÂؤï¤ê¤Þ¤¹¡£"
+ "ESC¤ò²¡¤¹¤ÈÌá¤ê¤Þ¤¹¡£"
)
6 9)
- (put (mk-step-clue "To open the portcullis you need to H)andle the lever to the left. "
- "Press 'h', move the crosshair over the lever with the arrow keys, "
- "and then press enter.")
+ (put (mk-step-clue "³Ê»Ò¸Í¤ò³«¤±¤ë¤Ë¤Ïº¸¤Î¥ì¥Ð¡¼¤òÁàºî¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£"
+ "'h'¥¡¼¤ò²¡¤·¡¢Ìð°õ¥¡¼¤Ç½½»ú¥«¡¼¥½¥ë¤ò¥ì¥Ð¡¼¤Ë¤¢¤ï¤»¡¢Enter¥¡¼¤ò²¡¤·¤Þ¤¹¡£")
6 10)
- (put (mk-step-clue "If you want to identify the objects around you, use the X)amine command by pressing 'x'. "
- "The cursor over whatever you want to look at. "
- "Non-player characters (NPCs) like the snake will be highlighted with a box. "
- "Red means hostile, yellow means neutral and green means friendly. "
- "Hostile NPC's will attack you on sight. "
- "When done hit the ESC key.")
+ (put (mk-step-clue "¤Þ¤ï¤ê¤Ë¤¢¤ë¤â¤Î¤Ë¤Ä¤¤¤ÆÃΤꤿ¤¤¤È¤¤Ï'x'¥¡¼¤ò²¡¤·¤Æ¤¯¤À¤µ¤¤¡£"
+ "¸«¤¿¤¤¤â¤Î¤Î¾å¤Ë¥«¡¼¥½¥ë¤ò¤¢¤ï¤»¤é¤ì¤Þ¤¹¡£"
+ "¥×¥ì¥¤¥ä¡¼¤Ç¤Ê¤¤¥¥ã¥é¥¯¥¿¡¼(NPC)¡¢Î㤨¤Ð¥Ø¥Ó¤Î¤è¤¦¤Ê¤â¤Î¤Ï»Í³Ñ¤Ç¶¯Ä´¤µ¤ì¤Æ¤¤¤Þ¤¹¡£"
+ "ÀÖ¿§¤ÏŨÂÐŪ¡¢Î理Ïͧ¹¥Åª¡¢²«¿§¤Ï¤É¤Á¤é¤Ç¤â¤Ê¤¤¤³¤È¤òɽ¤·¤Æ¤¤¤Þ¤¹¡£"
+ "ŨÂÐŪ¤ÊNPC¤Ï¤¢¤Ê¤¿¤ò¸«¤Ä¤±¤ë¤È¹¶·â¤·¤Æ¤¯¤ë¤Ç¤·¤ç¤¦¡£"
+ "ESC¥¡¼¤ò²¡¤¹¤ÈÌá¤ê¤Þ¤¹¡£")
6 13)
- (put (mk-step-clue "Once you open the portcullis you'll have to fight the snake. "
- "To A)ttack press 'a' and cursor over the target, then press ENTER.")
+ (put (mk-step-clue "³Ê»Ò¸Í¤ò³«¤±¤ë¤È¥Ø¥Ó¤ÈÀï¤ï¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤Ç¤·¤ç¤¦¡£"
+ "¹¶·â¤¹¤ë¤È¤¤Ï'a'¥¡¼¤ò²¡¤·¡¢¥«¡¼¥½¥ë¤òÌÜɸ¤Ë¹ç¤ï¤»¡¢Enter¥¡¼¤ò²¡¤·¤Þ¤¹¡£")
9 13)
- (put (mk-step-clue "To O)pen a door just try to step through it.") 13 13)
+ (put (mk-step-clue "Èâ¤ÏÄÌ¤í¤¦¤È¤¹¤ë¤À¤±¤Ç³«¤¤Þ¤¹¡£") 13 13)
(put (mk-door) 13 12)
- (put (mk-step-clue "S)earch corpses using the 's' key followed by an arrow key. You can also S)earch for invisible items with this command.") 12 10)
+ (put (mk-step-clue "Ë´³¼¤ò's'¥¡¼¤ÈÌð°õ¥¡¼¤ÇÄ´¤Ù¤Æ¤ß¤Þ¤·¤ç¤¦¡£¤³¤Î¥³¥Þ¥ó¥É¤Ï¸«¤¨¤Ê¤¤¤â¤Î¤òõ¤¹¤¿¤á¤Ë¤â»È¤¨¤Þ¤¹¡£") 12 10)
(put (mk-corpse2 (list (list 20 't_picklock)
(list 10 'sulphorous_ash)
(list 10 'blood_moss)
)) 11 10)
(put (mk-locked-door) 13 8)
- (put (mk-step-clue "U)se the picklocks from the corpse to unlock this door. "
- "Press 'u' for U)se, select the item, then target the door. "
- "If your picklock breaks, just try again!"
+ (put (mk-step-clue "Ë´³¼¤¬»ý¤Ã¤Æ¤¤¤¿¸°³«¤±Æ»¶ñ¤ò»È¤Ã¤Æ¤³¤ÎÈâ¤ò³«¤±¤Þ¤·¤ç¤¦¡£"
+ "'u'¥¡¼¤ò²¡¤·¡¢¹àÌܤòÁª¤Ó¡¢Èâ¤ËÌÜɸ¤ò¤¢¤ï¤»¤Þ¤¹¡£"
+ "¸°³«¤±Æ»¶ñ¤¬²õ¤ì¤Æ¤â¡¢²¿ÅÙ¤â»î¤·¤Æ¤¯¤À¤µ¤¤¡ª"
) 13 9)
(put (kern-tag 'p3 (mk-portcullis)) 12 13)
(put (mk-magic-locked-door) 13 4)
(put (mk-thorald) 12 5)
- (put (mk-step-clue "T)alk to NPC's by hitting the 't' key and targeting them. "
- "Then enter keywords to ask them questions. Most NPC's respond to NAME and JOB. "
- "NPC's usually give you clues to more keywords in their responses. "
- "To end a conversation type 'bye' or just hit ENTER. "
- "If you think an NPC would be a good addition to your party, ask them to JOIN. "
- "Now talk to Thorald and ask him about the door. ")
+ (put (mk-step-clue "'t'¥¡¼¤ò²¡¤·¡¢NPC¤ËÌÜɸ¤ò¤¢¤ï¤»¤ë¤È²ñÏäǤ¤Þ¤¹¡£"
+ "ʹ¤¤¿¤¤¥¡¼¥ï¡¼¥É¤òÆþÎϤ·Enter¤ò²¡¤·¤Æ¤¯¤À¤µ¤¤¡£¤Û¤È¤ó¤É¤ÎNPC¤Ï¡Ö̾Á°¡×¤ä¡Ö»Å»ö¡×¤ËÂФ·¤Æ¤³¤¿¤¨¤Þ¤¹¡£"
+ "¿¤¯¤Î¾ì¹çNPC¤Î¤³¤¿¤¨¤Ë¤Ï¿·¤·¤¤¥¡¼¥ï¡¼¥É¤Î¼ê¤¬¤«¤ê¤¬´Þ¤Þ¤ì¤Æ¤¤¤Þ¤¹¡£"
+ "²ñÏäò½ª¤¨¤ë¤¿¤á¤Ë¤Ï¡Ö¤µ¤è¤Ê¤é¡×¡¢¤Þ¤¿¤Ï²¿¤âÆþÎϤ»¤º¤ËEnter¥¡¼¤ò²¡¤·¤Þ¤¹¡£"
+ "NPC¤ò¤¢¤Ê¤¿¤ÎÃç´Ö¤Ë²Ã¤¨¤¿¤¤¤È¹Í¤¨¤¿¤Ê¤é¡¢¡ÖÃç´Ö¡×¤È¤¿¤º¤Í¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£"
+ "¥½¥é¥ë¥É¤È²ñÏä·¤ÆÈâ¤Ë¤Ä¤¤¤Æ¤¿¤º¤Í¤Æ¤ß¤Þ¤·¤ç¤¦¡£")
13 7)
- (put (mk-step-clue "You're about to leave town and enter the wilderness. "
- "In the wilderness your entire party will appear as a single icon. ")
+ (put (mk-step-clue "¤¢¤Ê¤¿¤ÏÄ®¤òµî¤ê¹ÓÌî¤Ë½Ð¤è¤¦¤È¤·¤Æ¤Þ¤¹¡£"
+ "Ä®¤Î³°¤Ç¤Ï¤¢¤Ê¤¿¤ÈÃç´Ö¤Ï1¤Ä¤Î¥¢¥¤¥³¥ó¤Çɽ¼¨¤µ¤ì¤Þ¤¹¡£")
9 0)
)
(kern-mk-place
'p_tutorial_wilderness
- "The Tutorial Wilderness"
+ "¥Á¥å¡¼¥È¥ê¥¢¥ë¤Î¹ÓÌî"
nil ; sprite
(kern-mk-map
nil 19 19 pal_expanded
;; objects:
(list
- (put (mk-step-clue "A)ttack the bandits to the south. "
- "Combat will take place on a special map. "
- "When combat is over press '<' or just walk off the edge of the map.")
+ (put (mk-step-clue "Æî¤Ë¤¤¤ëÅð±¤ÈÀ襤¤Þ¤·¤ç¤¦¡£"
+ "ÀïÆ®¤ÏÊ̤ÎÃÏ¿Þ¾å¤Ç¹Ô¤ï¤ì¤Þ¤¹¡£"
+ "À襤¤Ï¡¢'<'¤ò²¡¤¹¤«¡¢Ã¼¤Þ¤Ç°ÜÆ°¤¹¤ë¤È½ªÎ»¤·¤Þ¤¹¡£")
9 10)
(put (mk-npc-party 'bandit-party-l1) 9 13)
- (put (mk-step-clue "You can K)amp in the wilderness to heal your party. Try it now.") 9 13)
+ (put (mk-step-clue "¹ÓÌî¤Ç¤Ï¥¥ã¥ó¥×¤ÇÂÎÎϤò²óÉü¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¤³¤³¤Ç»î¤·¤Æ¤ß¤Þ¤·¤ç¤¦¡£('k'¥³¥Þ¥ó¥É)") 9 13)
- (put (mk-step-clue "Enter the cave below by stepping onto it.")
+ (put (mk-step-clue "²¼¤Îƶ·¢¤Ë¤Ï½Å¤Ê¤ë¤ÈÆþ¤ì¤Þ¤¹¡£")
9 14)
(put (mk-dungeon 'p_tutorial_cave 7 17) 9 15)
- (put (mk-step-clue "B)oard the ship by stepping onto it and pressing 'b'. "
- "Then sail to the dock in the northeast corner using the arrow keys.") 14 5)
- (put (mk-step-clue "F)ire your cannons at the bandits on the island by pressing 'f' and an arrow key. "
- "A ship can only fire broadside, so you may have to maneuver a bit.")
+ (put (mk-step-clue "Á¥¤Î¾å¤Ë°ÜÆ°¤·¤Æ'b'¤ò²¡¤¹¤È¾è¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£"
+ "ËÌÅì¤Îü¤Þ¤ÇÌð°õ¥¡¼¤Ç°ÜÆ°¤·¾åΦ¤·¤Þ¤·¤ç¤¦¡£") 14 5)
+ (put (mk-step-clue "'f'¥¡¼¤ÈÌð°õ¥¡¼¤ò²¡¤·¤ÆÅç¤Ë¤¤¤ëÅð±¤òˤ·â¤·¤Þ¤·¤ç¤¦¡£"
+ "Á¥¤Ï¦Ì̤ÎÊý¸þ¤Î¤ßˤ·â¤Ç¤¤Þ¤¹¡£¤è¤Ã¤Æ¾¯¤·¹Í¤¨¤ÆÁàºî¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£")
15 4)
- (put (mk-step-clue "F)ire your cannons at the bandits on the island by pressing 'f' and an arrow key. "
- "A ship can only fire broadside, so you may have to maneuver a bit.")
+ (put (mk-step-clue "'f'¥¡¼¤ÈÌð°õ¥¡¼¤ò²¡¤·¤ÆÅç¤Ë¤¤¤ëÅð±¤òˤ·â¤·¤Þ¤·¤ç¤¦¡£"
+ "Á¥¤Ï¦Ì̤ÎÊý¸þ¤Î¤ßˤ·â¤Ç¤¤Þ¤¹¡£¤è¤Ã¤Æ¾¯¤·¹Í¤¨¤ÆÁàºî¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£")
15 6)
- (put (mk-step-clue "F)ire your cannons at the bandits on the island by pressing 'f' and an arrow key. "
- "A ship can only fire broadside, so you may have to maneuver a bit.")
+ (put (mk-step-clue "'f'¥¡¼¤ÈÌð°õ¥¡¼¤ò²¡¤·¤ÆÅç¤Ë¤¤¤ëÅð±¤òˤ·â¤·¤Þ¤·¤ç¤¦¡£"
+ "Á¥¤Ï¦Ì̤ÎÊý¸þ¤Î¤ßˤ·â¤Ç¤¤Þ¤¹¡£¤è¤Ã¤Æ¾¯¤·¹Í¤¨¤ÆÁàºî¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£")
16 5)
(put (mk-ship) 15 5)
(put (mk-npc-party 'bandit-party-l1) 16 14)
- (put (mk-step-clue "That's it for the tutorial. There's lots more info in the USERS_GUIDE. "
- "You'll find one in the doc directory where you installed the game, or "
- "you can find one online at the project website. "
- "You may exit the tutorial now by Q)uitting the game with the 'q' key. "
- "Have fun!") 17 1)
+ (put (mk-step-clue "¤³¤ì¤Ç¥Á¥å¡¼¥È¥ê¥¢¥ë¤Ï½ª¤ï¤ê¤Ç¤¹¡£ÀâÌÀ½ñ¤Ë¤Ï¤â¤Ã¤È¿¤¯¤Î¾ðÊ󤬽ñ¤«¤ì¤Æ¤¤¤Þ¤¹¡£"
+ "¤½¤ì¤Ï¤³¤Î¥²¡¼¥à¤ò¥¤¥ó¥¹¥È¡¼¥ë¤·¤¿¾ì½ê¤Îdoc¥Ç¥£¥ì¥¯¥È¥ê¡¢¤Þ¤¿¤Ï"
+ "¥ª¥ó¥é¥¤¥ó¤Î¥¦¥§¥Ö¥µ¥¤¥È¤Ë¤¢¤ê¤Þ¤¹¡£"
+ "'q'¥¡¼¤ò²¡¤¹¤È¥Á¥å¡¼¥È¥ê¥¢¥ë¤ò½ªÎ»¤·¤Þ¤¹¡£"
+ "¤½¤ì¤Ç¤ÏËÜÊÔ¤ò¤ª³Ú¤·¤ß¤¯¤À¤µ¤¤¡ª") 17 1)
) ;; end of objects
;;----------------------------------------------------------------------------
-;; Valus
+;; ¥ô¥¡¥ë¥¹
;;
-;; Initially a prisoner of Glasdrin, he becomes the new Steward after the
-;; trial.
+;; ºÇ½é¤Ï¥°¥é¥¹¥É¥ê¥ó¤Î¼ü¿Í¤À¤¬¡¢¸å¤Ë¿·¤·¤¤Åý¼£¼Ô¤È¤Ê¤ë¡£
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; Initially, in a prison cell in the dungeons below Glasdrin.
-;; After the trial of the Stewardess, Valus is assigned Jeffries schedule.
+;; ºÇ½é¤Ï¥°¥é¥¹¥É¥ê¥ó¤ÎÃϲ¼¤ÎÆÈ˼¤Ë¤¤¤ë¡£
+;; Åý¼£¼Ô¤È¤Ê¤Ã¤¿¸å¤Ï¡¢¥ô¥¡¥ë¥¹¤Ï¥¸¥§¥Õ¥ê¡¼¥º¤Î¥¹¥±¥¸¥å¡¼¥ë¤Ë½¾¤¦¡£
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Valus is an imprisoned nobleman, once in the service of the late
-;; Steward of Glasdrin, now languishing in the dungeons below Glasdrin.
-;;
+;; ¥ô¥¡¥ë¥¹¤ÏÅê¹ö¤µ¤ì¤¿µ®Â²¤Ç¡¢¸å¤Ë¥°¥é¥¹¥É¥ê¥ó¤ÎÅý¼£¼Ô¤Ë¤Ê¤ë¤¬¡¢º£¤ÏÃϲ¼¤Î´Æ
+;; ¹ö¤ÇÍîÃÀ¤·¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (valus-hail knpc kpc)
- (say knpc "Welcome, stranger.")
+ (say knpc "¤è¤¦¤³¤½¡¢¸«ÃΤé¤Ì¼Ô¤è¡£")
)
(define (valus-name knpc kpc)
(if (player-stewardess-trial-done?)
- (say knpc "I am Valus, Steward of Glasdrin.")
- (say knpc "I am Valus, lord of all I survey [he gestures around the cell].")
+ (say knpc "»ä¤Ï¥ô¥¡¥ë¥¹¡¢¥°¥é¥¹¥É¥ê¥ó¤ÎÅý¼£¼Ô¤À¡£")
+ (say knpc "»ä¤Ï¥ô¥¡¥ë¥¹¡¢¸«ÅϤ¹¸Â¤ê¤Î¤³¤ÎÀ¤³¦¤Î²¦¤À¡£¡ÎÈà¤Ï¿È¿¶¤ê¤ÇÆÈ˼¤ò¼¨¤·¤¿¡£¡Ï")
))
(define (valus-job knpc kpc)
(cond ((player-stewardess-trial-done?)
- (say knpc "The people of Glasdrin released me from prison, thanks to the evidence in that diary you found. "
- "It seems I am in your debt.")
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Î¿Í¡¹¤¬»ä¤òÏ´¤«¤é²òÊü¤·¤Æ¤¯¤ì¤¿¡£¾Úµò¤È¤Ê¤Ã¤¿¤¢¤ÎÆüµ¤ò¸«¤Ä¤±¤Æ¤¯¤ì¤¿¤³¤È¤Ë´¶¼Õ¤¹¤ë¡£"
+ "·¯¤Ï»ä¤Î²¸¿Í¤À¡£")
(prompt-for-key)
- (say knpc "After I was released they elected me their new Steward.")
+ (say knpc "¤½¤Î¸å¡¢»ä¤Ï¿·¤·¤¤Åý¼£¼Ô¤ËÁª¤Ð¤ì¤¿¡£")
)
(else
- (say knpc "I'm just enjoying my retirement.")
+ (say knpc "ÂàÌò¸å¤Î¿ÍÀ¸¤ò³Ú¤·¤ó¤Ç¤¤¤ë¡£")
)))
-(define (valus-join kpc kpc)
- (cond ((player-stewardess-trial-done?) (say knpc "My duties keep me here."))
- (else (say knpc "On the contrary, why don't you open the door and join me?"))
- ))
+(define (valus-join knpc kpc)
+ (if (player-stewardess-trial-done?)
+ (say knpc "¤³¤³¤ò¼é¤ë¤Î¤¬»ä¤ÎµÁ̳¤À¡£")
+ (say knpc "µÕ¤Ë¿Ò¤Í¤ë¤¬¡¢¤Ê¤¼Èâ¤ò³«¤±Ãç´Ö¤Ë²Ã¤¨¤Ì¤Î¤À¡©")
+ ))
;; Special
(define (valus-comm knpc kpc)
(if (player-stewardess-trial-done?)
- (say knpc "Janice will make a fine commander. I remember when she was just a squad leader.")
- (say knpc "Jeffries is the new Commander. He makes a good pet for the Stewardess. I wasn't such a good dog, myself.")
+ (say knpc "¥¸¥ã¥Ë¥¹¤Ï¤è¤¤»ÊÎá´±¤Ë¤Ê¤ë¤À¤í¤¦¡£Èà½÷¤¬Ã±¤Ê¤ëʬÂâŤÀ¤Ã¤¿¤³¤í¤«¤é¤½¤¦¿®¤¸¤Æ¤¤¤ë¡£")
+ (say knpc "¥¸¥§¥Õ¥ê¡¼¥º¤¬¿·¤·¤¤»ÊÎá´±¤À¡£Èà¤ÏÅý¼£¼Ô¤Î¤è¤¸¤¤Ç¤¢¤ë¡£¤ï¤¿¤·¤Ï¤½¤¦¤Ê¤ì¤Ê¤«¤Ã¤¿¡£")
))
(define (valus-pet knpc kpc)
- (say knpc "After Absalot, she blamed me for the deaths of civilians, "
- "and accused me of drunkenness and unnatural acts with trolls.")
- (aside 'ch_ini "I thought the part about the trolls was true.")
+ (say knpc "¥¢¥Ö¥µ¥í¥Ã¥È¤Î¸å¡¢Èà½÷¤Ï»ä¤Ë»Ô̱¤Î»à¤ÎÀÕǤ¤òÉé¤ï¤»¤¿¡£"
+ "¤½¤·¤Æ¡¢Âç¼ò¤È¥È¥í¥ë¤È¤ÎÉÔŬÀڤʹ԰٤ˤĤ¤¤Æ»ä¤òÈóÆñ¤·¤¿¡£")
+ (aside kpc 'ch_ini "¥È¥í¥ë¤ÎÉôʬ¤ÏËÜÅö¤À¤Ã¤¿¤È»×¤¦¤¬¡£")
)
(define (valus-trol knpc kpc)
- (say knpc "What can I say? Those trolls know how to party. [He smiles dryly]")
+ (say knpc "²¿¤È¤¤¤¨¤Ð¤è¤«¤Ã¤¿¤Î¤À¤í¤¦¤«¡©¤¢¤Î¥È¥í¥ë¤¿¤Á¤Ï¤ª³Ú¤·¤ß¤òÃΤäƤ¤¤¿¤Î¤À¡£¡ÎÈà¤ÏÎä¤ä¤ä¤«¤Ë¾Ð¤Ã¤¿¡£¡Ï")
(prompt-for-key)
- (say knpc "But seriously, she had me imprisoned for asking too many questions. "
- "The former Steward went insane under mysterious circumstances. "
- "For some reason she didn't like me poking into the matter.")
+ (say knpc "¤·¤«¤·¡¢¾éÃ̤Ϥµ¤Æ¤ª¤¡¢Èà½÷¤Ï»ä¤òÅê¹ö¤·¿ô¿¤¯¤Î¿ÒÌä¤ò¹Ô¤Ã¤¿¡£"
+ "Á°Ç¤¤ÎÅý¼£¼Ô¤Ï´ñ̯¤Ê¾õ¶·¤ÎÃæ¤Ç¤ª¤«¤·¤¯¤Ê¤Ã¤¿¡£"
+ "Íýͳ¤Ï¤ï¤«¤é¤Ê¤¤¤¬¡¢Èà½÷¤Ï»ä¤¬¤½¤ÎÌäÂê¤Ë´³¾Ä¤¹¤ë¤³¤È¤ò·ù¤Ã¤Æ¤¤¤¿¡£")
)
(define (valus-absa knpc kpc)
- (say knpc "War is hell, friend. All of this nonsense about the Accursed aside, "
- "the mages of Absalot were growing too powerful. "
- "Every commander knows the legend of Isin.")
+ (say knpc "ͧ¤è¡¢ÀïÁè¤ÏÃϹö¤À¡£¼ö¤ï¤ì¤¿¼Ô¤Ë´Ø¤¹¤ë¤¿¤ï¤´¤È¤Ï¤È¤â¤«¤¯¡¢"
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤ÎËâ½Ñ»Õ¤¿¤Á¤Ï¤¢¤Þ¤ê¤Ë¤â¶¯ÎϤˤʤäƤ¤¤¿¡£"
+ "»ÊÎá´±¤Ï³§¥¤¥·¥ó¤Î¸À¤¤ÅÁ¤¨¤òÃΤäƤ¤¤ë¡£")
)
(define (valus-isin knpc kpc)
- (say knpc "According to legend, the sorceress Isin almost single-handedly defeated two armies. "
- "The army of Tulemane was so utterly vanquished that their city has been forgotten. ")
+ (say knpc "¸À¤¤ÅÁ¤¨¤Ç¤Ï¡¢¤½¤Î¥¤¥·¥ó¤Î½÷Ëâ½Ñ»Õ¤Ï¤Û¤Ü°ì¿Í¤ÇÆó¤Ä¤Î·³¤òÂǤÁÉ餫¤·¤¿¤½¤¦¤À¡£"
+ "¥È¥¥¡¼¥ì¥Þ¥ó¤Î·³¤Ï´°Á´¤ËÀ¬Éþ¤µ¤ì¡¢Èà¤é¤ÎÄ®¤Ï˺¤ì¤é¤ì¤¿¡£")
(prompt-for-key)
- (say knpc "Glasdrin's army finally overcame her, but with such heavy losses that it had to abandon its objective. "
- "We have never forgotten the lesson.")
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Î·³¤ÏºÇ¸å¤Ë¤ÏÈà½÷¤Ë¾¡Íø¤·¤¿¡£¤À¤¬¡¢Â»¼º¤Î½ÅÂ礵¤Î¤¿¤á¡¢¤½¤ÎÌÜŪ¤òÇË´þ¤»¤¶¤ë¤ò¤¨¤Ê¤«¤Ã¤¿¡£"
+ "²æ¡¹¤Ï¶µ·±¤ò˺¤ì¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£")
)
(define (valus-less knpc kpc)
- (say knpc "The lesson of the Battle of Isin is to never let wizards get too powerful. "
- "And if they do, don't try to face them in open combat. "
- "You know, I've always wondered why that battle took place.")
+ (say knpc "¥¤¥·¥ó¤È¤ÎÀ襤¤«¤éÆÀ¤¿¶µ·±¤Ï¡¢Ëâ½Ñ»Õ¤¿¤Á¤ËÎϤòÍ¿¤¨¤¹¤®¤Æ¤Ï¤Ê¤é¤Ê¤¤¤È¤¤¤¦¤³¤È¤À¡£"
+ "¤½¤·¤Æ¡¢¤â¤·¤½¤¦¤Ê¤Ã¤Æ¤âÀµÌ̤«¤éÀ襤¤òÄ©¤ó¤Ç¤Ï¤Ê¤é¤Ê¤¤¡£"
+ "¤Ê¤¼¤¢¤Î¾ì½ê¤ÇÀï¤ï¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤«¤Ã¤¿¤Î¤«¡¢»ä¤Ï¾ï¤Ëµ¿Ìä¤Ë»×¤Ã¤Æ¤¤¤ë¡£")
)
;; new....
(define (valus-stew knpc kpc)
(if (player-stewardess-trial-done?)
- (say knpc "Now that I am steward there will be some changes around here.")
- (say knpc "That mad-woman's policies will be the ruin of Glasdrin.")
+ (say knpc "»ä¤¬Åý¼£¼Ô¤È¤Ê¤Ã¤¿º£¡¢¤³¤Î¼þÊÕ¤âÊѤï¤ë¤À¤í¤¦¡£")
+ (say knpc "¤¢¤Î¶¸¤Ã¤¿½÷¤ÎÅý¼£¤Ç¥°¥é¥¹¥É¥ê¥ó¤ÏÊø²õ¤¹¤ë¤À¤í¤¦¡£")
))
(define (valus-poli knpc kpc)
- (say knpc "The goal of the Stewardess is to increase her own power at the expense of all else. ")
+ (say knpc "Åý¼£¼Ô¤ÎÌÜŪ¤Ï¾¤ÎÁ´¤Æ¤òµ¾À·¤Ë¤·¤Æ¤Ç¤â¼«¿È¤Î¸¢ÎϤòÁý¤¹¤³¤È¤À¡£")
)
(define (valus-chan knpc kpc)
- (say knpc "My first concern is the security, stability and dominance of Glasdrin.")
+ (say knpc "»ä¤Î°ìÈ֤δؿ´»ö¤Ï°ÂÁ´¡¢°ÂÄê¡¢¤½¤·¤Æ¥°¥é¥¹¥É¥ê¥ó¤Ë¤è¤ë»ÙÇÛ¤À¡£")
)
(define (valus-domi knpc kpc)
- (if (ask? knpc kpc "The only way a city or state can ensure its own security is to dominate others, don't you agree?")
- (say knpc "Yes, all wise statesmen know this, and strive to make their own state the strongest.")
- (say knpc "If we permit other states to surpass us in strength, then they will dominate us. "
- "As Steward, I am responsible for taking action to prevent that.")
+ (if (ask? knpc kpc "Ä®¤ä¹ñ¤¬¼«¤é¤Î°ÂÁ´¤òÊݾ㤹¤ëÍ£°ì¤ÎÆ»¤Ï¡¢Â¾¤ò»ÙÇÛ¤¹¤ë¤³¤È¤Ç¤¢¤ë¡£·¯¤ÏƱ°Õ¤¹¤ë¤«¡©")
+ (say knpc "¤½¤¦¤À¡£Í¥¤ì¤¿»ØƳ¼Ô¤Ê¤éï¤Ç¤âÃΤäƤ¤¤ë¡£¤½¤·¤Æ¼«¤é¤Î¹ñ¤òºÇ¤â¶¯ÎϤʤâ¤Î¤Ë¤¹¤ë¤¿¤áÀ臘¤Î¤À¡£")
+ (say knpc "¤â¤·Â¾¤ÎÄ®¤¬²æ¡¹¤è¤ê¶¯ÎϤˤʤì¤Ð²æ¡¹¤Ï»ÙÇÛ¤µ¤ì¤ë¤À¤í¤¦¡£"
+ "Åý¼£¼Ô¤È¤·¤Æ¡¢»ä¤Ë¤Ï¤½¤ì¤òÁ˻ߤ¹¤ë¤¿¤á¹ÔÆ°¤¹¤ëÀÕǤ¤¬¤¢¤ë¤Î¤À¡£")
))
(define valus-conv
(method 'hail valus-hail)
(method 'job valus-job)
(method 'name valus-name)
+ (method 'valu valus-name)
(method 'join valus-join)
(method 'absa valus-absa)
(method 'less valus-less)
(method 'pet valus-pet)
(method 'poli valus-poli)
- (method 'reti (lambda (knpc kpc) (say knpc "Formerly, I was the Commander of Glasdrin.")))
+ (method 'reti (lambda (knpc kpc) (say knpc "¤«¤Ä¤Æ»ä¤Ï¥°¥é¥¹¥É¥ê¥ó¤Î»ÊÎá´±¤À¤Ã¤¿¡£")))
(method 'ruin valus-poli)
(method 'secu valus-domi)
(method 'stab valus-domi)
(define (mk-valus)
(bind
(kern-mk-char 'ch_valus ; tag
- "Valus" ; name
+ "¥ô¥¡¥ë¥¹" ; name
sp_human ; species
oc_warrior ; occ
s_fallen_paladin ; sprite
))
))
-(mk-obj-type 't_shipswheel "ship's wheel" s_shipswheel layer-mechanism shipwheel-ifc)
+(mk-obj-type 't_shipswheel "ÂÉÎØ" s_shipswheel layer-mechanism shipwheel-ifc)
(define (vehicle-mk-wheel facing)
(let ((kwheel (kern-mk-obj t_shipswheel 1)))
(kern-mk-vehicle-type 't_ship ; tag
- "ship" ; name
+ "Á¥" ; name
s_ship ; sprite
m_ship_n ; map
t_cannon ; ordnance
(list
(list (vehicle-mk-wheel facing) 4 6)
(list (arms-mk-cannon (facing-turn-90right facing)) 7 6)
- (list (arms-mk-cannon (facing-turn-90left facing)) 1 6)
+ (list (arms-mk-cannon (facing-turn-90left facing)) 1 6)
(list (kern-mk-obj t_onramp 1) 0 8)
(list (kern-mk-obj t_onramp 1) 8 8)
)))
)))
(kern-mk-vehicle-type 't_voidship ; tag
- "voidship" ; name
+ "µõ¶õÁ¥" ; name
s_void_ship ; sprite
m_voidship_n ; map
t_cannon ; ordnance
;; Map
;; ----------------------------------------------------------------------------
(mk-19x19-town
- 'p_void_temple "Temple of the Void" s_shrine
+ 'p_void_temple "µõ¶õ¤Î»û±¡" s_shrine
(list
"cc cc cc cc cc cc cc .. .. .. .. .. cc cc cc cc cc cc cc "
"cc cc cc cc cc cc cc cc .. .. .. cc cc cc cc cc cc cc cc "
(kern-mk-place
'p_voidgap_entrance
- "Passage to Voidgap"
+ "µõ¶õ¤Î¶¹´Ö¤Ø¤ÎÆ»"
s_dungeon ; sprite
(kern-mk-map nil 19 19 pal_expanded
(list
(kern-mk-place
'p_voidgap_exit
- "Tunnels at Voidgap"
+ "µõ¶õ¤Î¶¹´Ö¤Îƶ·¢"
s_dungeon ; sprite
(kern-mk-map nil 19 19 pal_expanded
(list
(kern-mk-place
'p_voidgap_1
- "Voidgap Tunnels"
+ "µõ¶õ¤Î¶¹´Ö¤Îƶ·¢"
nil ; sprite
(kern-mk-map nil 19 19 pal_expanded
(list
(kern-mk-place
'p_voidgap_2
- "Voidgap Tunnels"
+ "µõ¶õ¤Î¶¹´Ö¤Îƶ·¢"
nil ; sprite
(kern-mk-map nil 19 19 pal_expanded
(list
(kern-mk-place
'p_voidgap_3
- "Voidgap Tunnels"
+ "µõ¶õ¤Î¶¹´Ö¤Îƶ·¢"
nil ; sprite
(kern-mk-map nil 19 19 pal_expanded
(list
(kern-mk-place
'p_voidgap_4
- "Voidgap Tunnels"
+ "µõ¶õ¤Î¶¹´Ö¤Îƶ·¢"
nil ; sprite
(kern-mk-map nil 19 19 pal_expanded
(list
(kern-mk-place
'p_voidgap_5
- "Voidgap Tunnels"
+ "µõ¶õ¤Î¶¹´Ö¤Îƶ·¢"
nil ; sprite
(kern-mk-map nil 19 19 pal_expanded
(list
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Clarissa (known as the Warritrix) was in life a powerful female Warrior
-;; of superlative might and warcraft. Now slain, she may be encountered
-;; as a shade, summoned by the use of the Rune of Leadership,
-;; found among her effects where her corpse lies (in the Broken Sanctuary
-;; in the Lost Halls).
+;; ¥¯¥é¥ê¥Ã¥µ(Æ®»Î¤È¤·¤ÆÃΤé¤ì¤Æ¤¤¤ë)¤Ï¡¢À¸¤¤Æ¤¤¤ë¤È¤¤Ë¤ÏÈæÎà¤Ê¤¶¯¤µ¤Èµ»¤Î
+;; ½÷Àï»Î¤Ç¤¢¤Ã¤¿¡£»¦¤µ¤ì¤¿º£¡¢Ë´³¼¤Î¦(¼º¤ï¤ì¤¿ÅÂƲ¤ÎÇ˲õ¤µ¤ì¤¿º×ÃÅ)¤ÇÅýÀ©¤Î
+;; ÀÐÈǤÎÎϤˤè¤Ã¤Æ±Æ¤Ë¤Ê¤Ã¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (warr-hail knpc kpc)
- (meet "The spectre of a calm, stately woman confronts you.")
- (say knpc "Hail, Wanderer.")
+ (meet "ÀŤ«¤Ê°Ò¸·¤Î¤¢¤ë½÷À¤ÎË´Î¤¢¤Ê¤¿¤ÎÌܤÎÁ°¤Ë¤¤¤ë¡£")
+ (say knpc "¤è¤¯Í褿¤Ê¡£Ì¤¤¿Í¤è¡£")
(quest-data-update 'questentry-warritrix 'found 1)
(quest-data-icon! 'questentry-warritrix 's_ghost)
(quest-data-complete 'questentry-warritrix)
)
(define (warr-name knpc kpc)
- (say knpc "I was Clarissa, known to many as the Warritrix.")
+ (say knpc "»ä¤Ï¥¯¥é¥ê¥Ã¥µ¡£Â¿¤¯¤Î¼Ô¤Ë¤ÏÆ®»Î¤È¤·¤ÆÃΤé¤ì¤Æ¤¤¤¿¡£")
)
(define (warr-join knpc kpc)
- (say knpc "Would that we had met in life!")
+ (say knpc "À¸¤¤Æ¤¤¤ë¤È¤¤Ë²ñ¤Ã¤Æ¤¤¤ì¤Ð¡ª")
)
(define (warr-job knpc kpc)
- (say knpc "To serve justice. Do you the same?")
+ (say knpc "ÀµµÁ¤Ë»Å¤¨¤ë¤³¤È¤À¡£¤ª¤Þ¤¨¤âƱ¤¸¤«¡©")
(if (yes? kpc)
(begin
- (say knpc "To serve justice you must know what is just. "
- "I was ordered to explore these caves completely, "
- "and when my party was weak from fighting off monsters, "
- "we were ambushed by Accursed assassins, and all slain. "
- "Tell me, is it just to avenge my death on my betrayers?")
+ (say knpc "ÀµµÁ¤Ë»Å¤¨¤ë¤¿¤á¤Ë¤ÏÀµµÁ¤òÃΤé¤Í¤Ð¤Ê¤é¤Ì¡£"
+ "»ä¤Ï¤³¤Îƶ·¢¤ò´°Á´¤Ëõº÷¤¹¤ë¤³¤È¤òÌ¿¤¸¤é¤ì¤¿¡£"
+ "ÉôÂ⤬²øʪ¤¿¤Á¤È¤ÎÀ襤¤Ç¼å¤ê²Ì¤Æ¤¿¤È¤¡¢"
+ "¼ö¤ï¤ì¤¿¼Ô¤Î°Å»¦¼Ô¤ÎÂÔ¤ÁÉú¤»¤Ë²ñ¤Ã¤¿¡£¤½¤·¤Æ¤ß¤Ê»¦¤µ¤ì¤¿¡£"
+ "Åú¤¨¤Æ¤¯¤ì¡£Î¢ÀÚ¤ê¼Ô¤Ø¤ÎÉü½²¤ò²Ì¤¿¤·¤Æ¤¯¤ì¤ë¤«¡©")
(yes? kpc)
- (say knpc "Justice hastens not to punish, but rather to reward. "
- "Betrayers will be rewarded with ruin, "
- "schemers and plotters will bring their own downfall, "
- "those who seek power will be powerless in their hour of need. "
- "Do not avenge me, but rather seek the truth.")
+ (say knpc "ÀµµÁ¤Ïȳ¤Ç¤Ï¤Ê¤¯Ê󤤤ˤè¤Ã¤Æ¤â¤¿¤é¤µ¤ì¤ë¡£"
+ "»ä¤ò»¦¤·¤¿¼Ô¤Ë¤Ï¤³¤ÎÇÑÔÒ¤¬¤Õ¤µ¤ï¤·¤¯¡¢"
+ "ËÅά¤ò¹Í¤¨¤¿¼Ô¤Ï¼«¤é¤Î¼ºµÓ¤ò¾·¤¯¤À¤í¤¦¡£"
+ "ÎϤòµá¤á¤ë¼Ô¤Ï¼«¤é¤Î½õ¤±¤òµá¤á¤ë¤È¤¤Ë¤ÏÎϤò¼º¤¦¤â¤Î¤À¡£"
+ "Éü½²¤¹¤ë¤Ê¡£¤½¤ì¤è¤ê¤â¿¿¼Â¤òµá¤á¤ë¤Ù¤¤À¡£")
)
- (say knpc "Injustice is served well by inaction."))
+ (say knpc "ÉÔÀµ¤Ï²¿¤â¤·¤Ê¤¤¤³¤È¤Ë¤è¤Ã¤Æ¤Ê¤µ¤ì¤ë¤Î¤À¡£"))
)
(define (warr-trut knpc kpc)
- (say knpc "To find the truth, you must find evidence."))
+ (say knpc "¿¿¼Â¤òµá¤á¤è¡£¤½¤Î¤¿¤á¤Ë¤Ï¾Úµò¤¬É¬ÍפÀ¡£"))
(define (warr-warr knpc kpc)
- (say knpc "It was a title I bore to gratify others. "
- "In truth, I was just another paladin."))
+ (say knpc "¾¤Î¼Ô¤¬Ë«¤á¾Î¤¨¤ë¤½¤Î̾¤Ë¤Ï¤¦¤ó¤¶¤ê¤·¤Æ¤¤¤¿¡£"
+ "ËÜÅö¤Î¤³¤È¤ò¸À¤¨¤Ð¡¢»ä¤ÏÂçÀª¤ÎÀ»µ³»Î¤ÎÃæ¤Î°ì¿Í¤Ë²á¤®¤Ê¤«¤Ã¤¿¤Î¤À¡£"))
(define (warr-evid knpc kpc)
- (say knpc "The wrogues are masters of finding what others try to hide, "
- "and the MAN is master of all wrogues.")
+ (say knpc "¤Ê¤é¤º¼Ô¤Ï¾¤¬±£¤½¤¦¤È¤·¤¿¤â¤Î¤òõ¤¹¤³¤È¤ËŤ±¤Æ¤¤¤ë¡£"
+ "¤½¤·¤Æ¤½¤ÎÁ´¤Æ¤Î¤Ê¤é¤º¼Ô¤ÎĺÅÀ¤¬¤Ë¤ó¤²¤ó¤À¡£")
(quest-wise-subinit 'questentry-the-man)
(quest-data-update 'questentry-the-man 'common 1)
)
(define (warr-wise knpc kpc)
- (say knpc "The Wise are deceived and divided in their opinions. "
- "The Accursed have done their work well."))
+ (say knpc "¸¼Ô¤ÏÏǤ蘆¤ìʬÃǤµ¤ì¤¿¡£"
+ "¼ö¤ï¤ì¤¿¼Ô¤Ï¤è¤¯¤ä¤Ã¤¿¤â¤Î¤À¡£"))
(define (warr-bye knpc kpc)
(if (warr-must-go? (gob knpc))
(begin
- (say knpc "We will not meet again, Wanderer.")
- (kern-log-msg "The spirit vanishes.")
+ (say knpc "¤â¤¦²ñ¤¦¤³¤È¤Ï¤Ê¤¤¤À¤í¤¦¡£Ì¤¤¿Í¤è¡£")
+ (kern-log-msg "Îî¤Ï¾Ã¤¨µî¤Ã¤¿¡£")
(kern-obj-remove knpc))
(begin
- (say knpc "Have you asked me all you need to know?")
+ (say knpc "ʹ¤¤¿¤¤¤³¤È¤ÏÁ´¤Æʹ¤¤¤¿¤«¡©")
(if (yes? kpc)
- (say knpc "Know that I must go soon, I am called to the Void.")
- (say knpc "Then I will try to remain a bit longer.")
+ (say knpc "¤â¤¦¤¹¤°¹Ô¤«¤Í¤Ð¤Ê¤é¤Ì¡£µõ¶õ¤Ø¤È¸Æ¤Ð¤ì¤Æ¤¤¤ë¤Î¤À¡£")
+ (say knpc "¤Ê¤é¤Ð¤â¤¦¾¯¤·¤³¤³¤Ëα¤Þ¤Ã¤Æ¤¤¤è¤¦¡£")
)
(warr-end-conv (gob knpc)))))
;; Quest-related
(define (warr-rune knpc kpc)
- (say knpc "You may keep the Rune. I know not its purpose. I have carried it "
- "all these years in honour of King Clovis, my godfather, "
- "who gave it to me."))
+ (say knpc "¤ª¤Þ¤¨¤ÏÀÐÈǤò½¸¤á¤Æ¤¤¤ë¤Î¤À¤Ê¡£¤½¤ÎÌÜŪ¤Ï¤ï¤«¤é¤Ì¤¬¡£"
+ "¤³¤³²¿Ç¯¤«¤Î´Ö¤Ï̾¹â¤¥¯¥í¡¼¥Ó¥¹²¦¡¢»ä¤Î̾¤Å¤±¤Î¿Æ¤«¤é¼ø¤«¤Ã¤¿ÀÐÈǤò»ý¤ÁÊ⤤¤Æ¤¤¤¿¡£"))
(define (warr-clov knpc kpc)
- (say knpc "King Clovis carried a Rune of his own. He fell in battle during the "
- "Goblin Wars and the Rune was lost. Do you wish to find it?")
+ (say knpc "¥¯¥í¡¼¥Ó¥¹²¦¤ÏÀÐÈǤò»ý¤ÁÊ⤤¤Æ¤¤¤¿¡£"
+ "Èà¤Ï¥´¥Ö¥ê¥óÀïÁè¤Ç¤ÎÀ襤¤ÇÌ¿¤òÍî¤È¤·¤¿¡£¤½¤ÎÀÐÈǤòõ¤·¤Æ¤¤¤ë¤«¡©")
(if (yes? kpc)
(begin
- (say knpc "If anyone knows where it is, it would be the goblins. "
- "Go to Green Tower and seek out Gen. Ask him of ^c+mClovis^c-.")
+ (say knpc "¤â¤·¤É¤³¤Ë¤¢¤ë¤«ÃΤäƤ¤¤ë¼Ô¤¬¤¤¤ë¤È¤¹¤ì¤Ð¡¢¤½¤ì¤Ï¥´¥Ö¥ê¥ó¤À¡£"
+ "ÎФÎÅã¤Ø¹Ô¤¥¸¥§¥ó¤òõ¤·¡¢Èà¤Ë^c+m¥¯¥í¡¼¥Ó¥¹^c-¤Î¤³¤È¤ò¿Ò¤Í¤Ê¤µ¤¤¡£")
(quest-data-update 'questentry-rune-f 'gen 1)
(quest-data-assign-once 'questentry-rune-f)
)
- (say knpc "If you do, ask me now, for like all who are dead I am pulled "
- "to the Void, and cannot resist for long."
+ (say knpc "¤â¤·Ãµ¤¹¤Ä¤â¤ê¤Ê¤é¡¢º£»ä¤Ë¿Ò¤Í¤Ê¤µ¤¤¡£"
+ "Á´¤Æ¤Î»à¤ó¤À¼Ô¤ÈƱ¤¸¤è¤¦¤Ëµõ¶õ¤Ø¤È°ú¤´ó¤»¤é¤ì¤Æ¤¤¤ë¡£Ä¹¤¤´Ö¤³¤³¤Ë¤Ï¤¤¤é¤ì¤Ê¤¤¡£"
))
)
(define (warr-just knpc kpc)
- (say knpc "Justice is the only ideal which needs no theory "
- "or philosophy or deity to uphold it. It is the undeniable, "
- "irresistible ideal."))
+ (say knpc "ÀµµÁ¤Ïñ¤Ê¤ëÌÜɸ¤Ë²á¤®¤º¡¢¤½¤ì¤ò»Ù¤¨¤ëÍýÏÀ¤â¡¢»×Áۤ⡢¿®¶Ä¤âɬÍפȤ·¤Ê¤¤¡£"
+ "¤½¤ì¤ÏÈÝÄê¤Ç¤¤Ê¤¤ÌÜɸ¤À¡£"))
(define (warr-absa knpc kpc)
- (say knpc "The Stewardess ordered the destruction of Absalot under the "
- "pretense that it spread Accursed practices. "
- "But is not the lust for power a true sign of one Accursed?")
+ (say knpc "Åý¼£¼Ô¤Ï¤½¤³¤¬¼ö¤ï¤ì¤¿¼Ô¤Î½¬´·¤ò¹¤á¤Æ¤¤¤ë¤³¤È¤ò¸ý¼Â¤Ë"
+ "»ä¤Ë¥¢¥Ö¥µ¥í¥Ã¥È¤òÇ˲õ¤¹¤ë¤è¤¦Ì¿¤¸¤¿¡£"
+ "¤À¤¬¡¢ÎϤؤμ¹Ãå¤ÏÀµ¤Ë¼ö¤ï¤ì¤¿¼Ô¤Î¾Ú¤Ç¤Ï¤Ê¤¤¤Î¤«¡©")
(yes? kpc)
- (say knpc "Indeed it is.")
+ (say knpc "¤½¤¦¤Ê¤Î¤Ç¤¢¤í¤¦¤Ê¡£")
)
(define (warr-void knpc kpc)
- (say knpc "All spirits are Wanderers in the Void."))
+ (say knpc "Á´¤Æ¤ÎÎî¤Ïµõ¶õ¤Î̤¤¿Í¤Ç¤¢¤ë¡£"))
(define (warr-assa knpc kpc)
- (say knpc "They were expecting us, although no one knew we were here "
- "except the Stewardess of Glasdrin and Commander Jeffries."))
+ (say knpc "Èà¤é¤Ï»ä¤¿¤Á¤òÂÔ¤ÁÉú¤»¤Æ¤¤¤¿¡£"
+ "¤³¤³¤ËÍè¤ë¤³¤È¤òÃΤäƤ¤¤ë¤Î¤Ï¡¢¥°¥é¥¹¥É¥ê¥ó¤ÎÅý¼£¼Ô¤È»ÊÎá´±¤Î¥¸¥§¥Õ¥ê¡¼¥º°Ê³°¤Ï¤¤¤Ê¤¤¤Ë¤â´Ø¤ï¤é¤º¤À¡£"))
(define (warr-jeff knpc kpc)
- (say knpc "The silver deeds of noble youth are tarnished by the guilt of "
- "age. Better is one who striving, dies, than a hero ruined "
- "by success."))
+ (say knpc "¶ä¤Î¤è¤¦¤Ê¼ã¤¤º¢¤Î¹âµ®¤Ê¹Ô¤¤¤Ï¡¢ºÐ¤ò¤È¤Ã¤Æ¤«¤é¤Î²á¤Á¤Çµ±¤¤ò¼º¤Ã¤¿¡£"
+ "±Ñͺ¤¬¾¡Íø¤Ë¤è¤Ã¤ÆÉåÇÔ¤¹¤ë¤Ê¤é¤Ð¡¢Ê³Æ®¤·»à¤Ì¤Û¤¦¤¬¤Þ¤À¤è¤¤¡£"))
(define (warr-powe knpc kpc)
(say knpc
- "Those who see an enemy in every face can never have enough power, "
- "but the fearless hold it in contempt."))
+ "¤¢¤é¤æ¤ë¤â¤Î¤òŨ¤È¤ß¤Ê¤¹¼Ô¤¿¤Á¤Ï·è¤·¤Æ½½Ê¬¤ÊÎϤòÆÀ¤ë¤³¤È¤Ï¤Ç¤¤Ê¤¤¡£"
+ "¤À¤¬¡¢¶²¤ì¤òÃΤé¤Ì¼Ô¤Ï·ÚÊΤÎÃæ¤Ç¤½¤ì¤òÄϤ߼è¤ë¤Î¤À¡£"))
(define warr-conv
(ifc basic-conv
(bind
(kern-mk-char
'ch_warr ; tag
- "Warritrix" ; name
+ "Æ®»Î" ; name
warr-species ; species
warr-occ ; occ
s_ghost ; sprite
))
;; Make a kernel portcullis type
-(mk-obj-type 't_weather_vane "weather vane" s_weather_vane layer-mechanism
+(mk-obj-type 't_weather_vane "É÷¸«" s_weather_vane layer-mechanism
weather-vane-ifc)
;; Define a constructor
(mk-tower
- 'p_westpass "Westpass"
+ 'p_westpass "À¾Â¦¤Ø¤ÎÆ»"
(list
"^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {a tt tt || || || || || || "
"^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ tt tt || || || || || || "
;;(println "wind=" wind "gob=" gob "loc=" loc)
(define (turn amap dir)
(cond ((< (wind-bridge-delay gob) 2)
- (kern-log-msg "The bridge creaks in the wind!")
+ (kern-log-msg "¶¶¤ÏÉ÷¤Ç¤¤·¤à²»¤òΩ¤Æ¤¿¡ª")
(wind-bridge-inc-delay! gob))
(else
(kern-blit-map (kern-place-map (loc-place loc))
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; The schedule below is for the place "Enchanter's Tower Ground Floor"
+;; ËâÆ»»Õ¤ÎÅã¤Î1³¬
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_zane
(list 0 0 enchtwr-zane-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Zane is a ranger of the Fens. He camps at the Enchanter's Tower,
-;; where he sells various outdoorsman gear needful for questing among
-;; the poisonous swamps of the region.
+;; ¥¼¥¤¥ó¤Ï¼¾ÃÏÂӤηÙÈ÷Ââ°÷¤Ç¤¢¤ë¡£Èà¤ÏËâÆ»»Õ¤ÎÅã¤Ç¥¥ã¥ó¥×¤·¡¢¤³¤Î¤¢¤¿¤ê¤Î
+;; ÆǤξ¤ǤÎÌî³°³èÆ°¤ÇɬÍפÊʪ¤òÇä¤Ã¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
(define zane-merch-msgs
(list nil ;; closed
- "I don't trust those town armories. I make my own equipment. Lemme show you what I got." ;; buy
+ "Ä®¤Îʪ¤Ï¿®ÍѤǤ¤Ê¤¤¡£¼«Ê¬¤Çºî¤Ã¤Æ¤ë¡£¸«¤»¤Æ¤ä¤í¤¦¡£" ;; buy
nil ;; sell
nil ;; trade
- "Watch your step out there." ;; bought-something
- "Suit yourself, bub." ;; bought-nothing
+ "¤³¤Î¤¢¤¿¤ê¤Ç¤Ï¸µ¤Ëµ¤¤ò¤Ä¤±¤í¡£" ;; bought-something
+ "¹¥¤¤Ë¤·¤Ê¡£" ;; bought-nothing
nil
nil
nil
(define zane-catalog
(list
;; reagents
- (list ginseng (* 5 reagent-price-mult) "This stuffs good for healing.")
- (list garlic (* 4 reagent-price-mult) "You gotta have garlic for warding.")
- (list blood_moss (* 6 reagent-price-mult) "Hard to find this stuff.")
- (list nightshade (* 8 reagent-price-mult) "This only grows in really damp places.")
- (list mandrake (* 10 reagent-price-mult) "All the powerful spells require these guys.")
+ (list ginseng (* 5 reagent-price-mult) "¤³¤ì¤Ï²óÉü¤Ë¸ú¤¯¡£")
+ (list garlic (* 4 reagent-price-mult) "ɵ¤¤Ë¤Ê¤Ã¤¿¤È¤¤¤¤ë¤Ï¤º¤À¡£")
+ (list blood_moss (* 6 reagent-price-mult) "¤³¤ì¤Ï¤Ê¤«¤Ê¤«¸«¤Ä¤«¤é¤Ê¤¤¡£")
+ (list nightshade (* 8 reagent-price-mult) "¤³¤ì¤ÏËÜÅö¤Ë¥¸¥á¥¸¥á¤·¤¿½ê¤Ç¤·¤«°é¤¿¤Ê¤¤¡£")
+ (list mandrake (* 10 reagent-price-mult) "¶¯¤¤¼öʸ¤Ë¤Ï¥³¥¤¥Ä¤¬¤¤¤ë¡£")
;; potions
- (list t_heal_potion 21 "This stuff really helps in emergencies.")
- (list t_cure_potion 21 "Even the best get poisoned sometimes. You gotta carry extra of these guys.")
- (list t_poison_immunity_potion 21 "If you know you have to cross poisonous terrain, drink one of these first.")
+ (list t_heal_potion 21 "¤³¤ì¤Ï¥ä¥Ð¥¤¤È¤ËÜÅö¤ËÌò¤ËΩ¤Ä¡£")
+ (list t_cure_potion 21 "ÆǤˤϤ³¤ì¤¬°ìÈÖ¤¤¤¤¡£Í¾Ê¬¤Ë»ý¤Ã¤Æ¤ª¤±¡£")
+ (list t_poison_immunity_potion 21 "ÆǤΤ¢¤ë¾ì½ê¤òÄ̤ë¤È¤¤Ï¡¢¤Þ¤º¤³¤ì¤ò°û¤ó¤Ç¤ª¤±¡£")
;; bows, arrows and bolts
;; (as an accomplished Ranger, he is also a bowyer and fletcher)
- (list t_self_bow 30 "This little guy is lightweight and rapid fire.")
- (list t_bow 90 "The basic bow is the perfect all-around weapon. Cheap, light, with good range.")
- (list t_long_bow 300 "These are perfect for hunting fast game in the open.")
- (list t_great_bow 700 "The paladin's worst nightmare. This baby will take out armored troops at long range.")
+ (list t_self_bow 30 "¤³¤Î¾®¤µ¤¤¥ä¥Ä¤Ï·Ú¤¯¤ÆÁÇÁ᤯·â¤Æ¤ë¡£")
+ (list t_bow 90 "¤³¤ÎµÝ¤Ï¤É¤ó¤Ê¤È¤¤â»È¤¨¤ë¡£°Â¤¯¤Æ·Ú¤¤¡£¼ÍÄø¤â¤¤¤¤¡£")
+ (list t_long_bow 300 "³«¤±¤¿¾ì½ê¤Î¼í¤Ë¤Ï´°àú¤À¡£")
+ (list t_great_bow 700 "À»µ³»Î¤Î°Ì´¤À¡£¥³¥¤¥Ä¤Ï±ó¤¯¤«¤é¤Ç¤â³»¤ò¤Ö¤ÁÈ´¤±¤ë¤À¤í¤¦¡£")
- (list t_arrow 2 "I make these special, but I can part with a quiverful.")
- (list t_bolt 2 "I make crossbow bolts to trade with town militias.")
+ (list t_arrow 2 "¤³¤ì¤ÏÆÃÊÌÀ½¤À¡£¤À¤¬Çä¤Ã¤Æ¤ä¤í¤¦¡£")
+ (list t_bolt 2 "Ä®¤Î̱ʼ¤Î¤¿¤á¤Ë¥¯¥í¥¹¥Ü¥¦¤ÎÌð¤òºî¤Ã¤Æ¤ë¡£")
))
(define (zane-trade knpc kpc) (conv-trade knpc kpc "buy" zane-merch-msgs zane-catalog))
(define (zane-ench knpc kpc)
- (say knpc "Yeah, he's locked himself inside, see. "
- "He doesn't need people interrupting "
- "him all the time. If you're serious, you'll find a way in."))
+ (say knpc "¤¢¤¢¡¢¤³¤ÎÃæ¤ËÊĤ¸¤³¤â¤Ã¤Æ¤¤¤ë¡£¸«¤Æ¤ß¤í¡£"
+ "ï¤Ë¤â¤¸¤ã¤Þ¤µ¤ì¤¿¤¯¤Ê¤¤¤è¤¦¤À¡£"
+ "ËÜÅö¤Ë²ñ¤¤¤¿¤±¤ì¤Ð¡¢Æþ¤ëÊýË¡¤ò¸«¤Ä¤±¤Ê¤±¤ì¤Ð¤Ê¤é¤ó¤Ê¡£"))
(define (zane-fens knpc kpc)
- (say knpc "You're right in the middle of 'em, bub. They can be dangerous, "
- "so watch yourself."))
+ (say knpc "¤³¤³¤¬¤½¤Î¤É¿¿¤óÃæ¤À¡£¤È¤Æ¤â´í¸±¤À¡£"
+ "µ¤¤ò¤Ä¤±¤í¡£"))
(define zane-conv
(ifc ranger-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 "Ask somebody else.")))
- (method 'hail (lambda (knpc kpc) (say knpc "[He nods]")))
- (method 'bye (lambda (knpc kpc) (say knpc "Be seeing ya, buddy")))
+ (method 'default (lambda (knpc kpc) (say knpc "¾¤Î¥ä¥Ä¤Ëʹ¤¤Ê¡£")))
+ (method 'hail (lambda (knpc kpc) (say knpc "¡ÎÈà¤Ï¤¦¤Ê¤º¤¤¤¿¡£¡Ï")))
+ (method 'bye (lambda (knpc kpc) (say knpc "¤¸¤ã¤¢¤Ê¡£")))
(method 'job (lambda (knpc kpc)
- (say knpc "I'm a Ranger. I patrol the Fens.")))
- (method 'name (lambda (knpc kpc) (say knpc "Zane.")))
+ (say knpc "·ÙÈ÷Ââ°÷¤À¡£¼¾ÃÏÂÓ¤ò·ÙÈ÷¤·¤Æ¤ë¡£")))
+ (method 'name (lambda (knpc kpc) (say knpc "¥¼¥¤¥ó¡£")))
(method 'join (lambda (knpc kpc)
- (say knpc "Sorry, bub, I already got a job to do.")))
+ (say knpc "°¤¤¤Ê¡£¤â¤¦»Å»ö¤¬¤¢¤ë¡£")))
(method 'ench zane-ench)
(method 'fens zane-fens)
(method 'dang
(lambda (knpc kpc)
- (say knpc "Poisonous and teeming with monsters. "
- "You planning to spend much time in them?")
+ (say knpc "ÆǤȲøʪ¤Ç¤¤¤Ã¤Ñ¤¤¤À¡£"
+ "¤·¤Ð¤é¤¯¤³¤³¤Ë¤¤¤ë¤Ä¤â¤ê¤«¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "You'll want the poison immunity spell. "
- "You know it?")
+ (say knpc "ÆǤËÂФ¹¤ë¼öʸ¤¬¤¤¤ë¤Ï¤º¤À¡£"
+ "ÃΤäƤ뤫¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "Good. I can sell you the fixin's.")
- (say knpc "Mix Nightshade and Garlic and chant "
- "Sanct Nox. I've got extra reagents I can "
- "sell you.")
+ (say knpc "¤Ê¤é¤¤¤¤¡£ºàÎÁ¤ÏÇä¤Ã¤Æ¤ä¤ë¤¾¡£")
+ (say knpc "¥Ê¥¤¥È¥·¥§¥¤¥É¤ÈÂçÉǤòÄ´¹ç¤·¡¢Sanct Nox¤È¾§¤¨¤í¡£"
+ "ÈëÌô¤Ï¤¿¤¯¤µ¤ó»ý¤Ã¤Æ¤¤¤ë¤Î¤ÇÇä¤Ã¤Æ¤ä¤Ã¤Æ¤â¤¤¤¤¤¾¡£")
))
- (say knpc "Ok")
+ (say knpc "¤½¤ì¤¬¤¤¤¤¡£")
)))
(method 'pois
(lambda (knpc kpc)
- (say knpc "A green potion or the An Nox spell will cure "
- "poison.")))
+ (say knpc "ÎФÎÌô¤«An Nox¤Î¼öʸ¤Ç¼£¤ë¡£")))
(method 'poti
(lambda (knpc kpc)
- (say knpc "I got some extra I can sell you.")))
+ (say knpc "¤¿¤¯¤µ¤ó»ý¤Ã¤Æ¤¤¤ë¤Î¤ÇÇä¤Ã¤Æ¤ä¤ë¤¾¡£")))
(method 'mons
(lambda (knpc kpc)
- (say knpc "Slimes, bandits and undead mostly.")))
+ (say knpc "Ç´¶Ý¡¢Å𱡢ÉÔ»à¤Î¼Ô¤É¤â¡£")))
(method 'reag
(lambda (knpc kpc)
- (say knpc "I collect 'em where I can. "
- "I can sell you my extras.")))
+ (say knpc "¼«Ê¬¤Ï¤É¤³¤Ç¤â¸«¤Ä¤±¤é¤ì¤ë¡£"
+ "¤¢¤Þ¤Ã¤¿Ê¬¤ÏÇä¤Ã¤Æ¤ä¤ë¤¾¡£")))
(method 'buy zane-trade)
(method 'sell zane-trade)
(method 'trad zane-trade)
(kern-char-arm-self
(kern-mk-char
tag ;;..........tag
- "Zane" ;;.......name
+ "¥¼¥¤¥ó" ;;.......name
sp_human ;;.....species
oc_ranger ;;.. .occupation
s_companion_ranger ;;..sprite
;; enter
(lambda (zqug kparty dir dims)
- (kern-status-set-title "Quest Log")
+ (kern-status-set-title "ËÁ¸±¤ÎµÏ¿")
(zqug-dims! zqug dims)
(zqug-party! zqug kparty)
(zqug-store-max-entry! zqug)
OSDN Git Service
