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

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

;;----------------------------------------------------------------------------
;; Schedule
;; 
;; ¥°¥é¥¹¥É¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_patch
               (list 0  0  gdp-bed "sleeping")
               (list 7  0  ghg-s1  "eating")
               (list 8  0  gh-ward "working")
               (list 11 0  ghg-s1  "eating")
               (list 12 0  gh-ward "working")
               (list 17 0  ghg-s1  "eating")
               (list 18 0  gc-hall "idle")
               (list 21 0  gdp-hut "idle")
               (list 22 0  gdp-bed "sleeping")
               )

;;----------------------------------------------------------------------------
;; Gob
;;----------------------------------------------------------------------------
(define (patch-mk) (list 'townsman))

;;----------------------------------------------------------------------------
;; Conv
;; 
;; ¥°¥é¥¹¥É¥ê¥ó¤Ë½»¤àÏ·¿Í¤ÎËâ½Ñ»Õ¤Ç¡¢°å»Õ¤È¤·¤ÆƯ¤¤¤Æ¤¤¤ë¡£
;; Èà¤Ï´ãÂÓ¤ò¤·¤Æ¤¤¤Æ¡¢¡Ö´ãÂÓ¤ÎÀèÀ¸¡×¤È¤·¤ÆÃΤé¤ì¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------

;; Basics...
(define (patch-hail knpc kpc)
  (say knpc "¡Î¤¢¤Ê¤¿¤Ï´ãÂÓ¤ò¤·¤¿¸µµ¤¤ÊËâ½Ñ»Õ¤ÎÏ·¿Í¤È²ñ¤Ã¤¿¡£¡Ï"
       "¤³¤ó¤Ë¤Á¤Ï¡¢Î¹¤ÎÊý¡£"))

(define (patch-default knpc kpc)
  (say knpc "¤½¤ì¤Ï¼ê½õ¤±¤Ç¤­¤Ê¤¤¤Ê¡£"))

(define (patch-name knpc kpc)
  (say knpc "¿Í¡¹¤Ï»ä¤ò´ãÂÓ¤ÎÀèÀ¸¤È¸Æ¤ó¤Ç¤¤¤ë¡£"))

(define (patch-join knpc kpc)
  (say knpc "¤¤¤¤¤ä¡£¤³¤³¤Ë¤¤¤ë¤Î¤¬»ä¤Î̳¤á¤À¡¢Ì¤¤¿Í¤è¡£"))

(define (patch-job knpc kpc)
  (say knpc "¤³¤Îɱ¡¤ÇƯ¤¤¤Æ¤¤¤ë¡£¼£ÎŤ¬É¬Íפ«¤Í¡©")
  (if (kern-conv-get-yes-no? kpc)
      (patch-trade knpc kpc)
      (say knpc "ɬÍפʤȤ­¤Ë¼£ÎŤ·¤è¤¦¡£")))

(define (patch-bye knpc kpc)
  (say knpc "¤ª¤À¤¤¤¸¤Ë¡ª"))

;; Trade...
(define (patch-trade knpc kpc)
  (if (trade-services knpc kpc
                      (list
                       (svc-mk "²óÉü" 30 heal-service)
                       (svc-mk "¼£Ìþ" 30 cure-service)
                       (svc-mk "ÁÉÀ¸" 100 resurrect-service)))
      (begin
        (say knpc "¾¤Ë²¿¤«¤¹¤ë¤³¤È¤¬¤¢¤ë¤«¤Í¡©")
        (patch-trade knpc kpc))
      (begin
        (say knpc "¾¤Ë²¿¤«¤¢¤ë¤«¤Í¡©")
        (if (kern-conv-get-yes-no? kpc)
            (patch-trade knpc kpc)
            (say knpc "¤è¤í¤·¤¤¡£")))))
  
;; Patch...
(define (patch-patc knpc kpc)
  (say knpc "¥¯¥í¥Ý¥ê¥¹¤ÇÊÒÌܤò¼º¤Ã¤¿¡£¤½¤³¤Ï¤È¤Æ¤â°Å¤¤¤Î¤ÇËÜÅö¤ÏɬÍפʤ«¤Ã¤¿¤Î¤À¡£"
       "¡ÎÈà¤Ï¸«¤¨¤ë¤Û¤¦¤ÎÌܤò¥¦¥£¥ó¥¯¤·¤¿¡£¡Ï"))

(define (patch-kurp knpc kpc)
  (say knpc "À»µ³»Î¤Ï̵ܤÎÁ°Àþ¤ò¼é¤Ã¤Æ¤¤¤ë¡£"
       "¤½¤·¤Æ¡¢¼ã¤¤¤³¤íʼÌò¤Ë½¢¤¤¤Æ¤¤¤¿¤È¤­¤Ï¡¢¤½¤³¤Ë¤¤¤¿¤Î¤À¡£"))

(define (patch-tour knpc kpc)
  (say knpc "Á´¤Æ¤Î¥°¥é¥¹¥É¥ê¥ó¤Î»Ô̱¤ÏʼÌò¤ÎµÁ̳¤¬¤¢¤ë¡£"
       "»ä¤Ï°å»Õ¤À¤Ã¤¿¡£"))

(define (patch-medi knpc kpc)
  (say knpc "°å»Õ¤Ï¼£ÎŤε»½Ñ¤ËŤ±¤¿Ëâ½Ñ»Õ¤À¡£"
       "Á´¤Æ¤ÎÀ»µ³»Î¤ÎÉôÂâ¤Ë¤ÏÀ襤¤ò»Ù±ç¤¹¤ë¤¿¤á°å»Õ¤¬²Ã¤ï¤Ã¤Æ¤¤¤ë¡£"
       "ÀïÆ®¤Î´ðÁ÷±Îý¤â¼õ¤±¤ë¡£¤·¤«¤·»ä¤Ïû·õ¤ò°ìÅٻȤ俤À¤±¤À¡£"))

(define (patch-dagg knpc kpc)
  (say knpc "¤½¤¦¤À¡£Ã»·õ¤òÏ»¥ö·î»ý¤ÁÊ⤭¡¢¤Ä¤¤¤Ë¤½¤ì¤ò»È¤Ã¤¿¡Ä¡£"
       "¿æ»ö¤ÎÈ֤ǥ¤¥â¤ÎÈé¤òÇí¤¤¤¿¤Î¤À¡£"))

(define (patch-dung knpc kpc)
  (say knpc "²øʪ¤¿¤Á¤Ï¿¼Ê¥¤ÇÀ¸¤Þ¤ì¤ë¡£Åۤ餬ÃϾå¤ËÍè¤ëÁ°¤Ë»ß¤á¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£"
       "¤½¤¦»×¤¦¤À¤í¤¦¡©")
  (if (kern-conv-get-yes-no? kpc)
      (say knpc "¤½¤ÎÄ̤ꡪ¤À¤«¤éÀ»µ³»Î¤Ï¤½¤³¤ËÉôÂâ¤òÃÖ¤­¡¢Ãæ´Ö¤ò·ÙÈ÷¤·¤Æ¤¤¤ë¤Î¤À¡£"
           "̵ܤǽõ¤±¤¬É¬ÍפʤéÈà¤é¤òõ¤·¤Ê¤µ¤¤¡£ÉôÂâ¤Ë¤Ï°å»Õ¤¬¤¤¤ë¡£")
      (say knpc "¥´¥Û¥ó¡ªÈà¤é¤¬ÅܤêÅļˤ˵¢¤Ã¤Æ¤·¤Þ¤¦¤¾¡ª")))

(define (patch-doc knpc kpc)
  (say knpc "»ä¤Ï°å»Õ¤À¡£¼£ÎŤ¬É¬Íפ«¤Í¡©")
  (if (kern-conv-get-yes-no? kpc)
      (patch-trade knpc kpc)
      (say knpc "¤è¤í¤·¤¤¡£½õ¤±¤¬É¬Íפˤʤ俤餳¤Îɱ¡¤ËÍè¤Ê¤µ¤¤¡£"
           "·¯¤Î¤è¤¦¤ÊËÁ¸±¼Ô¤ÏÀ襤¤Ç¤É¤ì¤À¤±¥Ü¥í¥Ü¥í¤Ë¤Ê¤ë¤«¡¢»ä¤ÏÃΤäƤ¤¤ë¡ª")))

(define (patch-hosp knpc kpc)
  (say knpc "¤½¤¦¤À¡£¥°¥é¥¹¥É¥ê¥ó¤ÎÀ»µ³»Î¤Ï¾ï¤ËÀï¤Ã¤Æ¤¤¤ë¡£"
       "ÆÍÁ³Íè¤ëËÁ¸±¼Ô¤ä¼¤Îɵ¤¤Î¼Ô¤â¿Ç¤ë¡£"))

;; Townspeople...

(define patch-conv
  (ifc glasdrin-conv

       ;; basics
       (method 'default patch-default)
       (method 'hail patch-hail)
       (method 'bye  patch-bye)
       (method 'job  patch-job)
       (method 'name patch-name)
       (method 'join patch-join)
       
       ;; trade
       (method 'trad patch-trade)
       (method 'heal patch-trade)
       (method 'cure patch-trade)
       (method 'resu patch-trade)
       (method 'help patch-trade)

       ;; patch
       (method 'patc patch-patc)
       (method 'kurp patch-kurp)
       (method 'tour patch-tour)
       (method 'medi patch-medi)
       (method 'dagg patch-dagg)
       (method 'dung patch-dung)
       (method 'doc  patch-doc)
       (method 'hosp patch-hosp)
       (method 'outp patch-dung)

       ;; town & people

       ))

(define (mk-patch)
  (bind 
   (kern-mk-char 'ch_patch           ; tag
                 "´ãÂÓ"              ; name
                 sp_human            ; species
                 oc_wizard           ; occ
                 s_companion_wizard  ; sprite
                 faction-glasdrin         ; starting alignment
                 1 3 0               ; str/int/dex
                 0 0                 ; hp mod/mult
                 0 0                 ; mp mod/mult
                 max-health -1 max-health 0 6            ; hp/xp/mp/AP_per_turn/lvl
                 #f                  ; dead
                 'patch-conv         ; conv
                 sch_patch           ; sched
                 'townsman-ai                 ; special ai
                 (mk-inventory (list (list 1 t_staff)))                 ; container
                 (list t_dagger)                 ; readied
                 )
   (patch-mk)))