日本語版

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

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

;;----------------------------------------------------------------------------
;; Schedule
;;
;; ¥È¥ê¥°¥ì¥¤¥Ö
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_gwen
               (list 0  0  trigrave-gwens-bed        "sleeping")
               (list 8  0  trigrave-tavern-table-1a  "eating")
               (list 9  0  trigrave-inn-counter      "working")
               (list 13 0  trigrave-tavern-table-1d  "eating")
               (list 14 0  trigrave-inn-counter      "working")
               (list 20 0  trigrave-tavern-table-1a  "eating")
               (list 21 0  trigrave-inn-counter      "working")
               )

;;----------------------------------------------------------------------------
;; Gob
;;
;; Quest flags, etc, go here.
;;----------------------------------------------------------------------------
(define (gwen-mk) nil)

;;----------------------------------------------------------------------------
;; Conv
;;
;; ¥°¥Ù¥ó¤Ï½É²°¤Î¼ç¿Í¤Ç¡¢Í¥²í¤ÇÆæ¤Î¿¤¤½÷À­¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
(define (gwen-trade knpc kpc)
  (if (not (string=? "working" (kern-obj-get-activity knpc)))
      (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 "¤¢¤Ê¤¿¤Î¤ªÉô²°¤Ï¤â¤¦³«¤¤¤Æ¤¤¤Þ¤¹¡ª")
            ;; no - ask if player needs a room
            (begin
              (say knpc "¤ªÉô²°¤¬¸æÆþ¤êÍѤǤ¹¤«¡©")
              (if (kern-conv-get-yes-no? kpc)
                  ;; yes - player wants a room
                  (begin
                    (say knpc 
                         "ÎÁ¶â¤Ï¶â²ß" trigrave-inn-room-price "Ëç¡¢"
                         "¤³¤ÎÄ®¤Ë¤¤¤ë´Ö¡¢²¿Å٤Ǥâ½ÐÆþ¤ê¤Ç¤­¤Þ¤¹¡£"
                         "¤è¤í¤·¤¤¤Ç¤¹¤«¡©")
                    (if (kern-conv-get-yes-no? kpc)
                        ;; yes - player agrees to the price
                        (let ((gold (kern-player-get-gold)))
                          ;; does player have enough gold?
                          (if (>= gold trigrave-inn-room-price)
                              ;; yes - player has enough gold
                              (begin
                                (kern-player-set-gold 
                                 (- gold 
                                    trigrave-inn-room-price))
                                (say knpc "1¹æ¼¼¤Ç¤¹¡£¤´¤æ¤Ã¤¯¤ê¤É¤¦¤¾¡ª")
                                (send-signal knpc door 'unlock)
                                (kern-conv-end)
                                )
                              ;; no - player does not have enouvh gold)
                              (say knpc "»ÄÇ°¤Ç¤¹¤¬¤ª¶â¤¬Â­¤ê¤Þ¤»¤ó¡ª")))
                        ;; no - player does not agree to the price
                        (say knpc 
                             "¤³¤³¤è¤êÎɤ¤½É¤Ï¡¢¤³¤ÎȾÅç¤Ë¤Ï¤¢¤ê¤Þ¤»¤ó¤è¡ª")))
                  ;; no - player does not want a room
                  (say knpc "¤Þ¤¿¤Îµ¡²ñ¤Ë¤É¤¦¤¾¡£")))))))

(define (gwen-thie knpc kpc)
  (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
       ;; 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 "»ÄÇ°¤Ê¤¬¤é¤ª¼êÅÁ¤¤¤Ç¤­¤Þ¤»¤ó¡£")))
       (method 'hail
               (lambda (knpc kpc)
                 (kern-print "¡Î¤¢¤Ê¤¿¤Ï³¥¿§¤ÎÉþ¤òÃ夿̥ÎÏŪ¤Ê½÷À­¤È²ñ¤Ã¤¿¡£"
                             "¹ø¤Î¥Ù¥ë¥È¤Ë¤ÏºÙ¤¯Ä¹¤¤^c+m·õ^c-¤¬¸«¤¨¤ë¡£¡Ï\n")
                 (say knpc "¤è¤¦¤³¤½¡£Î¹¤ÎÊý¡£")))
       (method 'bye (lambda (knpc kpc) (say knpc "¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£")))
       (method 'job 
               (lambda (knpc kpc) 
                 (say knpc "¥È¥ê¥°¥ì¥¤¥Ö¤Î½É²°¤ò¤·¤Æ¤ª¤ê¤Þ¤¹¡£")
                 (gwen-trade knpc kpc)))
       (method 'name (lambda (knpc kpc) (say knpc "»ä¤Ï¥°¥Ù¥ó¤Ç¤¹¡£")))
       (method 'trad gwen-trade)
       (method 'join 
               (lambda (knpc kpc) 
                 (say knpc "»ä¤Îι¤Ï¤â¤¦½ª¤ï¤ê¤Þ¤·¤¿¡£"
                      "¤Ç¤â¡¢¤ªÍ¶¤¤¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£")))
       (method 'chan
               (lambda (knpc kpc)
                 (say knpc "¤¢¤Î¤ªÄ´»Ò¼Ô¤ÏÉáÃʤϼò¾ì¤Ë¤¤¤Þ¤¹¡£"
                      "ÌëÃÙ¤¯¤Ê¤ë¤ÈÁ¥¾è¤ê¤ß¤¿¤¤¤Ë¿ì¤Ã¤ÆÉô²°¤ËÌá¤Ã¤Æ¤­¤Þ¤¹¡£")))
       (method 'civi 
               (lambda (knpc kpc) 
                 (say knpc "¤³¤Î¤¢¤¿¤ê¤Î¤³¤È¤òÏä¹ÅԻԤοͤϤ¢¤Þ¤ê¤¤¤Þ¤»¤ó¡£")))
       (method 'earl
               (lambda (knpc kpc)
                 (say knpc "ÁÇŨ¤Ê¡¢¤Ç¤âʪ˺¤ì¤Î·ã¤·¤¤¤´Ï·¿Í¤Ç¤¹¡£"
                      "Èà¤Ï»ä¤Î½É¤ÎÆî¤ÇŹ¤òÀÚ¤êÀ¹¤ê¤·¤Æ¤Þ¤¹¡£")))
       (method 'enem 
               (lambda (knpc kpc) (say knpc "¤¢¤Ê¤¿¤Ë¤Ï´Ø·¸¤Î¤Ê¤¤¤³¤È¤Ç¤¹¡£")))
       (method 'esca 
               (lambda (knpc kpc)
                 (say knpc "¤â¤·¡¢Å¨¤äÃѤ¸¤ë¤Ù¤­¹Ô¤¤¤«¤é¿È¤ò±£¤·¤¿¤¤¤Ê¤é¡¢"
                      "¤³¤Î¥·¥ã¥ë¥É¤Î˺¤ì¤é¤ì¤¿ÃϤè¤êÎɤ¤¾ì½ê¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¡£")))
       (method 'inn  
               (lambda (knpc kpc)
                 (say knpc "½É²°¤Ï³Ú¤·¤¤»Å»ö¤Ç¤¹¡£"
                            "ι¿Í¤«¤é¿§¡¹¤ÊÏäòʹ¤±¤Þ¤¹¤«¤é¡£")))
       (method 'jim
               (lambda (knpc kpc)
                 (say knpc "¥Ï¥ó¥µ¥à¤Ê¡¢¤Ç¤â¾¯¤·¹Ó¤Ã¤Ý¤¤¿Í¤Ç¤¹¡£"
                      "Èà¤ÏÅì¤Îü¤ÇÃÃÌê²°¤ò±Ä¤ó¤Ç¤Þ¤¹¡£")))
       (method 'news gwen-news)
       (method 'stor gwen-news)
       (method 'room gwen-trade)
       (method 'sham 
               (lambda (knpc kpc) (say knpc "¤¢¤Ê¤¿¤Ë¤Ï´Ø·¸¤Î¤Ê¤¤¤³¤È¤Ç¤¹¡£")))
       (method 'swor
               (lambda (knpc kpc) 
                 (say knpc "ͧ¿Í¤«¤é¾ù¤ê¼õ¤±¤¿¤â¤Î¤Ç¤¹¡£")))
       (method 'tave
               (lambda (knpc kpc)
                 (say knpc "¡ÖÍÛµ¤¤ÊÇաפϤ³¤ÎÄ®¤ÎÆˤ¢¤ê¤Þ¤¹¡£")))
       (method 'thie gwen-thie)
       (method 'trig 
               (lambda (knpc kpc) 
                 (say knpc "¤³¤³¤ÏÅÔ»Ô¤«¤éÎ¥¤ì¤¿¾®¤µ¤ÊÄ®¤Ç¤¹¡£"
                      "¤¿¤¯¤µ¤ó¤Î¿Í¤¬Æ¨¤ì¤ë¤¿¤á¤Ë¤³¤³¤Ë¤¤¤Þ¤¹¡£")))

       ))