[nazghul-jp/nazghul-jp.git] / worlds / haxima-1.002 / fing.scm

;;----------------------------------------------------------------------------
;; Constants
;;----------------------------------------------------------------------------

;;----------------------------------------------------------------------------
;; Schedule
;; 
;; ¥ª¥Ñ¡¼¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_fing
               (list 0  0  sea-witch-bay        "idle")
               (list 6  0  sea-witch-shore      "idle")
               (list 8  0  sea-witch-bay        "idle")
               (list 20 0  sea-witch-shore      "idle")
               )

;;----------------------------------------------------------------------------
;; Gob
;;----------------------------------------------------------------------------
(define (fing-mk) nil)

;;----------------------------------------------------------------------------
;; Conv
;; 
;; ¥Õ¥£¥ó¤Ï¥Ë¥­¥·¡¼¤ÎÃËÀ­¤Ç¡¢°ì²¤Î²¦»Ò¤Ç¤¢¤ë¡£
;; Èà¤Ï¡¢°¦¤¹¤ë¿Í´Ö¤Î½÷À­¥ê¥¢¤Î¶á¤¯¤Ë¤¤¤ë¤¿¤á¡¢¥ª¥Ñ¡¼¥ê¥ó¤Ë½»¤ó¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------

;; Basics...
(define (fing-hail knpc kpc)
  (say knpc "¡Î¤¢¤Ê¤¿¤Ï¥Ë¥­¥·¡¼¤È²ñ¤Ã¤¿¡£¡Ï¤³¤ó¤Ë¤Á¤Ï¡£Î¦¤Î¿Í¡£"))

(define (fing-default knpc kpc)
  (say knpc "¤â¤·¤«¤¹¤ë¤È¡¢Ê̤ÎΦ¤Î¿Í¤Ê¤éÃΤäƤ¤¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¡£"))

(define (fing-name knpc kpc)
  (say knpc "»ä¤Ï¥Õ¥£¥ó¤Ç¤¹¡£"))

(define (fing-join knpc kpc)
  (say knpc "¤³¤Î´ß¤«¤éÎ¥¤ì¤ë¤³¤È¤Ï¤Ç¤­¤Ê¤¤¤Î¤Ç¤¹¡£"))

(define (fing-job knpc kpc)
  (say knpc "»ä¤Ï¤³¤Îë¡Ä¤¤¤¨¡¢³¤¤Î¿Í¤Î²¦»Ò¤Ç¤¹¡£"))

(define (fing-bye knpc kpc)
  (say knpc "¤µ¤è¤¦¤Ê¤é¡¢Î¦¤Î¿Í¡£"))

;; Shores...
(define (fing-shor knpc kpc)
  (say knpc "»ä¤Ï°¦¤¹¤ë¿Í¤Î¦¤Ë¤¤¤ë¤¿¤á¡¢¤³¤Î´ß¤òÎ¥¤ì¤ë¤ï¤±¤Ë¤Ï¤¤¤«¤Ê¤¤¤Î¤Ç¤¹¡£"))

(define (fing-love knpc kpc)
  (say knpc "¤·¤«¤·¤Ê¤¬¤é¡¢»ä¤Î°¦¤¹¤ë¿Í¤ÏΦ¤òÎ¥¤ì¤ë¤³¤È¤¬¤Ç¤­¤Ê¤¤¤Î¤Ç¤¹¡£"
       "Èà½÷¤Ï³¤¤Î¿Í¤Î²¦½÷¤Ç¤¹¡£"
       "¿ÆÀÚ¤ÇÀ¿¼Â¡¢¤½¤·¤Æ¼«¿È¤Î¼ö¤¤¤Ë¤â¤«¤«¤ï¤é¤º´õ˾¤ò¼Î¤Æ¤Æ¤¤¤Ê¤¤¤Î¤Ç¤¹¡£"))

(define (fing-sea knpc kpc)
  (say knpc "³¤¤Î²¼¤Ë¤Ï¤¿¤¯¤µ¤ó¤Î²¦¹ñ¡¢¤¿¤¯¤µ¤ó¤Î°äÀס¢Æ¶·¢¡¢"
       "ÄÀ¤ó¤ÀÁ¥¡¢¤½¤·¤Æ¤¹¤Ð¤é¤·¤¤ºâÊõ¤¬¤¢¤ê¤Þ¤¹¡£ËâË¡»È¤¤¡¢"
       "ʼ»Î¤ÈÎ϶¯¤¤À¸¤­Êª¤¬¤¤¤Þ¤¹¡ªµ¤Ê¬¤ò³²¤¹¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢"
       "¤½¤ì¤ËÈæ¤Ù¤ë¤È´¥¤¤¤¿ÃϤϤȤƤâÂà¶þ¤Ç¤·¤ç¤¦¤Í¡£"
       ))

(define (fing-curs knpc kpc)
  (say knpc "¤½¤ì¤Ï³¤¤Î¿Í¤ÎÌäÂê¤Ç¤¹¡£"))

;; Townspeople...
(define (fing-opar knpc kpc)
  (say knpc "¤¢¤Ê¤¿Êý¤Î¤è¤¦¤ÊΦ¤Î¿Í¤Ë¤Ï¤è¤¤½ê¤À¤È»×¤¤¤Þ¤¹¡£"))

(define (fing-gher knpc kpc)
  (say knpc "»ä¤¿¤Á¤ÏÈà½÷¤ò²¼¤«¤é¾Þ»¿¤·¤Æ¤¤¤Þ¤·¤¿¡ª"
       "²¿¤ÈÁÇÁ᤯¡¢²¿¤È¹Ó¡¹¤·¤¤¤«¡ª"
       "Íò¤È¸«¤Þ¤¬¤¦¤è¤¦¤Ê½÷À­¤Ç¤·¤¿¡£"
       "Èà½÷¤Î¼ê²¼¤Ï¡¢¤É¤¦¤ä¤éÈá»´¤ÊºÇ´ü¤ò¿ë¤²¤¿¤è¤¦¤Ç¤¹¡£"))

(define (fing-crew knpc kpc)
  (say knpc "¥¬¡¼¥Æ¥£¡¼¤Î¼ê²¼¤ÏÅì¤ÎÅç¤Ø¤ÈÁ¥¤ò¿Ê¤á¤Þ¤·¤¿¡£"
       "¤½¤·¤Æ¾åΦ¤·¡¢ÆóÅÙ¤ÈÌá¤Ã¤Æ¤¯¤ë¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£"
       "Èà½÷¤ÎÁ¥¤â¼º¤ï¤ì¤Þ¤·¤¿¡£"))

(define (fing-alch knpc kpc)
  (say knpc "»ä¤Î°¦¤·¤¤¿Í¤È¤è¤¯Ï䷤Ƥ¤¤Þ¤¹¤¬¡¢¼»ÅʤϤ·¤Æ¤¤¤Þ¤»¤ó¡£"
       "Èà¤Ï¤¢¤Þ¤ê¤Ë¤âºÐ¤ò¤È¤êÂÀ¤Ã¤Æ¤¤¤Æ¡¢¤É¤ó¤Ê¤Û¤ìÌô¤âÈà½÷¤Îµ¿¤¤¤ÎÌܤˤϸú¤«¤Ê¤¤¤«¤é¤Ç¤¹¡ª"))

(define (fing-osca knpc kpc)
  (say knpc "Èà¤Î¤³¤È¤ÏÃΤê¤Þ¤»¤ó¡£"))

(define (fing-henr knpc kpc)
  (say knpc "ͦ´º¤ÊΦ¤Î¿Í¤À¤Èʹ¤­¤Þ¤·¤¿¡£"))

(define (fing-bart knpc kpc)
  (say knpc "¥´¥Ö¥ê¥ó¤Ï¤¢¤Þ¤ê¸«¤¿¤³¤È¤¬¤¢¤ê¤Þ¤»¤ó¡£Èà¤é¤Ï³¤¤ò¶²¤ì¤Æ¤¤¤ë¤È»×¤¤¤Þ¤¹¡£"
       "Èà¤Ï¥´¥Ö¥ê¥ó¤Î´Ö¤Ç¤ÏÊѤï¤ê¼Ô¤Ç¤·¤ç¤¦¡£"))


(define fing-conv
  (ifc nil

       ;; basics
       (method 'default fing-default)
       (method 'hail fing-hail)
       (method 'bye fing-bye)
       (method 'job fing-job)
       (method 'name fing-name)
       (method 'join fing-join)
       
       ;; Shores
       (method 'shor fing-shor)
       (method 'love fing-love)
       (method 'sea fing-sea)
       (method 'deep fing-sea)
       (method 'bay  fing-sea)
       (method 'curs fing-curs)

       ;; town & people
       (method 'opar fing-opar)
       (method 'alch fing-alch)
       (method 'gher fing-gher)
       (method 'crew fing-crew)
       (method 'osca fing-osca)
       (method 'henr fing-henr)
       (method 'bart fing-bart)
       (method 'lia  fing-love)

       ))

(define (mk-fing)
  (bind 
   (kern-mk-char 'ch_fing           ; tag
                 "¥Õ¥£¥ó"           ; name
                 sp_nixie           ; species
                 oc_warrior         ; occ
                 s_nixie_civilian    ; sprite
                 faction-men         ; starting alignment
                 1 2 0               ; str/int/dex
                 0 0                 ; hp mod/mult
                 0 0                 ; mp mod/mult
                 max-health -1 max-health 0 3  ; hp/xp/mp/AP_per_turn/lvl
                 #f                  ; dead
                 'fing-conv         ; conv
                 sch_fing           ; sched
                 'townsman-ai                 ; special ai
                 (mk-inventory (list (list 10 t_spear)))                ; container
                 nil                 ; readied
                 )
   (fing-mk)))