日本語版

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

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

;;----------------------------------------------------------------------------
;; Schedule
;; 
;; ¥ª¥Ñ¡¼¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_bart
               (list 0  0  black-barts-bed      "sleeping")
               (list 11 0  black-barts-ship     "working")
               (list 18 0  bilge-water-hall     "idle")
               (list 23 0  black-barts-bed      "sleeping")
               )

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

;;----------------------------------------------------------------------------
;; Conv
;; 
;; ¥Ð¡¼¥È¤Ï°û¤ó¤À¤¯¤ì¤Î¥´¥Ö¥ê¥ó¤Î¤Á¥¿¦¿Í¤Ç¡¢¥ª¥Ñ¡¼¥ê¥ó¤Ë½»¤ó¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------

;; Basics...
(define (bart-hail knpc kpc)
  (say knpc "¡Î¤¢¤Ê¤¿¤Ï¸ý¿ô¤Î¾¯¤Ê¤½¤¦¤Ê¡¢¥¦¥£¥¹¥­¡¼¤Î½­¤¤¤Î¤¹¤ë¥´¥Ö¥ê¥ó¤È²ñ¤Ã¤¿¡£¡Ï"
       "¥¦¥ó¡£"))

(define (bart-default knpc kpc)
  (say knpc "¥¨¡¼¡©"))

(define (bart-name knpc kpc)
  (say knpc "¥Ð¡¼¥È¡£"))

(define (bart-join knpc kpc)
  (say knpc "¡ÎÈà¤Ï¤¢¤Ê¤¿¤ò´ñ̯¤½¤¦¤Ë¤ß¤Æ¡¢Æ¬¤ò¿¶¤Ã¤¿¡£¡Ï"))

(define (bart-job knpc kpc)
  (say knpc "¥Ð¡¼¥È¤ÏÁ¥¤òºî¤ë¡£¤è¤¤Á¥¡£"))

(define (bart-bye knpc kpc)
  (say knpc "¥¸¥ã¡£"))

;; Trade...
(define (bart-trade knpc kpc)

  (define (buy-ship)
    (let* ((town (loc-place (kern-obj-get-location knpc)))
           (town-loc (kern-place-get-location town))
           (ship-loc (loc-offset town-loc east)))
      (if (ship-at? ship-loc)
          (say knpc "¥à¡£Á¥Ãå¾ì¡¢¾ì½ê¤Ê¤¤¡£¤Þ¤ºÁ¥Æ°¤«¤»¡£")
          (begin
            (kern-obj-relocate (mk-ship) ship-loc nil)
            (take-player-gold oparine-ship-price)
            (say knpc "Á¥¡¢³°¤Ë¤¢¤ë¡£")
            ))))

  (define (sell-ship)
    (let* ((town (loc-place (kern-obj-get-location knpc)))
           (town-loc (kern-place-get-location town))
           (ship-loc (loc-offset town-loc east))
           (kship (kern-place-get-vehicle ship-loc)))
      (if (null? kship)
          (say knpc "¥Ð¡¼¥ÈÁ¥¸«¤¨¤Ê¤¤¡£Á¥Ãå¾ì»ß¤á¤í¡£¤Þ¤¿Í褤¡£")
          (begin
            (say knpc "¤³¤Î¥Ü¥íÁ¥Çä¤ë¡©¥Ð¡¼¥È¶â²ß" 
                 oparine-ship-tradein-price
                 "ËçÅϤ¹¡£¤¤¤¤¡©")
            (if (kern-conv-get-yes-no? kpc)
                (begin
                  (say knpc "¥Ð¡¼¥Èµ¤Á°¤¤¤¤¡£¤¢¤ó¤¿±¿¤¤¤¤¡£")
                  (kern-obj-remove kship)
                  (give-player-gold oparine-ship-tradein-price))
                (say knpc "¥à¡£Á¥¤¹¤°ÄÀ¤à¡£"))))))

  (if (not (string=? "working" (kern-obj-get-activity knpc)))
      (say knpc "º£Æ¯¤«¤Ê¤¤¡£º£°û¤à¡ª")
      (begin
        (say knpc "Á¥¡¢Ç㤦¡©")
        (if (yes? kpc)
            (begin
              (say knpc "Á¥¡¢¶â²ß" oparine-ship-price "Ëç¡£Á¥Íߤ·¤¤¡©")
              (if (kern-conv-get-yes-no? kpc)
                  (if (player-has-gold? oparine-ship-price)
                      (buy-ship)
                      (begin
                        (say knpc "¶â²ß­¤ê¤Ê¤¤¡£¥Ð¡¼¥È¤À¤Þ¤¹¡©"
                             "¡ÎÈà¤ÏÃÏÌ̤ËÂäòÅǤ¤¤¿¡£¡Ï")
                        (kern-conv-end)))
                  (say knpc "¤¤¤¤¡£±Ë¤²¡£")))
            (begin
              (say knpc "Á¥¡¢Çä¤ë¡©")
              (if (yes? kpc)
                  (sell-ship)
                  (begin
                    (say knpc "¤Ê¤é¤Ð¡¢¥Ð¡¼¥È²¿¤¹¤ë¡©")
                    (kern-conv-end))))))))

;; Drink...
(define (bart-drink knpc kpc)
  (if (not (string=? "working" (kern-obj-get-activity knpc)))
      (say knpc "°û¤à¡ª")
      (say knpc "º£Æ¯¤¯¡£¸å°û¤à¡£")))


;; Townspeople...
(define (bart-opar knpc kpc)
  (say knpc "µû¤Î½­¤¤¤¹¤ë¡£"))

(define (bart-gher knpc kpc)
  (say knpc "¥Ä¡¦¥°¡£°­¤¤º²¡£¡ÎÈà¤Ï¶õÃæ¤Ë´ñ̯¤Ê¿Þ·Á¤òÉÁ¤¤¤¿¡£¡Ï"))

(define (bart-alch knpc kpc)
  (say knpc "¥Ò¡¦¥ê¥å¡¦¥È¡£Ç³¤¨¤ëÄ®¤«¤éÍ褿¡£"
       "°ì²¤ª¤Ü¤¨¤Æ¤ë¡£"))

(define (bart-seaw knpc kpc)
  (say knpc "µû¤Î½­¤¤¤¹¤ë¡£"))

(define (bart-osca knpc kpc)
  (say knpc "¥Ä¡¦¥È¡£¥Ð¡¼¥È¤è¤¤ÏÃÃΤé¤Ê¤¤¡£"))

(define (bart-henr knpc kpc)
  (say knpc "¥Ð¡¼¥Èͧ¤À¤Á¡£¤è¤¤¼òºî¤ë¡ª¥Ð¡¼¥È°û¤à¹¥¤­¡£"))

(define bart-conv
  (ifc basic-conv

       ;; basics
       (method 'default bart-default)
       (method 'hail bart-hail)
       (method 'bye bart-bye)
       (method 'job bart-job)
       (method 'name bart-name)
       (method 'join bart-join)
       
       ;; drink
       (method 'drin bart-drink)

       ;; trade
       (method 'trad bart-trade)
       (method 'ship bart-trade)
       (method 'buy bart-trade)
       (method 'sell bart-trade)

       ;; town & people
       (method 'opar bart-opar)
       (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
                 "¥Ð¡¼¥È"           ; name
                 sp_forest_goblin    ; species
                 nil                 ; occ
                 s_fgob_civilian     ; sprite
                 faction-men         ; starting alignment
                 0 0 0               ; str/int/dex
                 0 0                 ; hp mod/mult
                 0 0                 ; mp mod/mult
                 max-health -1 max-health 0 1  ; hp/xp/mp/AP_per_turn/lvl
                 #f                  ; dead
                 'bart-conv         ; conv
                 sch_bart           ; sched
                 'townsman-ai                 ; special ai
                 (mk-inventory (list (list 1 t_axe)))                 ; container
                 nil                 ; readied
                 )
   (bart-mk)))