X-Git-Url: http://git.osdn.net/view?p=nazghul-jp%2Fnazghul-jp.git;a=blobdiff_plain;f=worlds%2Fhaxima-1.002%2Fthorald.scm;h=930a944c17847d0ee8f3043acac0938f0c36d225;hp=139eb31f66d1fb90eb7e8e1fce8f81cee0e2b8f3;hb=b7c03f64054728fbc44912f23072e2dc581a1dcc;hpb=b7e0472e04898913774c2bd1e74589292933bdf8 diff --git a/worlds/haxima-1.002/thorald.scm b/worlds/haxima-1.002/thorald.scm index 139eb31..930a944 100644 --- a/worlds/haxima-1.002/thorald.scm +++ b/worlds/haxima-1.002/thorald.scm @@ -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) ) @@ -20,62 +20,62 @@ (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" "¾§¤¨¤ë")