OSDN Git Service

日本語版
[nazghul-jp/nazghul-jp.git] / worlds / haxima-1.002 / thorald.scm
index 139eb31..930a944 100644 (file)
@@ -1,18 +1,18 @@
-;; 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
@@ -94,3 +94,9 @@
          )
    nil
    ))
+
+(kern-dictionary
+       "¥È¥Ó¥é"     "door" "Èâ"
+       "¥¸¥å¥â¥ó"   "spel" "¼öʸ"
+       "¥Á¥ç¥¦¥´¥¦" "mix"  "Ä´¹ç"
+       "¥È¥Ê¥¨¥ë"   "cast" "¾§¤¨¤ë")