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

;;----------------------------------------------------------------------------
;; Constants
;;----------------------------------------------------------------------------
(define kalc-lvl 6)
(define kalc-species sp_human)
(define kalc-occ oc_wizard)

;;----------------------------------------------------------------------------
;; Schedule
;; 
;; ¥«¥ë¥·¥Õ¥¡¥¯¥¹¤Ï¿¤¯¤Î¾ì½ê¤ò(·î¤ÎÌç¤ò»È¤Ã¤Æ)ι¤·¡¢ÅÁ¸À¤Ê¤É¤ò±¿¤ó¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------
(define kalc-bed cheerful-bed-2)
(define kalc-mealplace )
(define kalc-workplace )
(define kalc-leisureplace )
(kern-mk-sched 'sch_kalc
               (list 0  0 kalc-bed          "sleeping")
               (list 7  0 bilge-water-seat-5 "eating")
               (list 8  0 enchtwr-hall       "idle")
               (list 11 0 g-fountain         "idle")
               (list 12 0 ghg-s6             "eating")
               (list 13 0 eng-workshop       "idle")
               (list 16 0 trigrave-tavern-hall "idle")
               (list 17 0 trigrave-tavern-table-3b "eating")
               (list 19 0 gt-ws-hall           "idle")
               (list 23 0 kalc-bed          "sleeping")
               )

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

;;----------------------------------------------------------------------------
;; Conv
;; 
;; ¥«¥ë¥·¥Õ¥¡¥¯¥¹¤Ï½÷À­¤ÎËâ½Ñ»Õ¤Ç¡¢Â¿¤¯¤Î·î¤ÎÌç¤ÎÃ챤¬¤¢¤ë¡£
;; Èà½÷¤Ï¿¤¯¤Î¾ì½ê¤ò(·î¤ÎÌç¤ò»È¤Ã¤Æ)ι¤·¡¢ÅÁ¸À¤Ê¤É¤ò±¿¤ó¤Ç¤¤¤ë¡£
;; ¥«¥ë¥·¥Õ¥¡¥¯¥¹¤ÏÃç´Ö¤Ë¤Ê¤ë¡£
;;----------------------------------------------------------------------------

;; Basics...
(define (kalc-hail knpc kpc)
  (meet "¡Î¤¢¤Ê¤¿¤Ï¤«¤ï¤¤¤é¤·¤¤Ëâ½Ñ»Õ¤È²ñ¤Ã¤¿¡£¡Ï")
  (say knpc "¤³¤ó¤Ë¤Á¤Ï¡¢Î¹¿Í¤µ¤ó¡£")
  )

(define (kalc-name knpc kpc)
  (say knpc "¥«¥ë¥·¥Õ¥¡¥¯¥¹¤Ç¤¹¤ï¡£¤¢¤Ê¤¿¤Ï¡Ä¡©")
  (kern-conv-get-reply kpc)
  (say knpc "²ñ¤¨¤Æ¤¦¤ì¤·¤¤¤Ç¤¹¤ï¡£")
  )

(define (kalc-join knpc kpc)
  (if (is-player-party-member? knpc)
      (say knpc "¤â¤¦Ãç´Ö¤Ç¤¹¤ï¡ª")
      (begin
        (say knpc "¤¤¤¤¤Ç¤¹¤ï¡£³Ú¤·¤½¤¦¡ª")
        (join-player knpc)
        (kern-conv-end)
        )
  ))

(define (kalc-job knpc kpc)
  (say knpc "Ìç¤Çι¤ò¤·¤Æ¡¢¿Í¡¹¤Î´Ö¤òÁö¤ê²ó¤ë¤³¤È¤Ç¤¹¤ï¡£")
  )

(define (kalc-bye knpc kpc)
  (say knpc "¤Þ¤¿²ñ¤¨¤ëµ¤¤¬¤·¤Þ¤¹¤ï¡ª")
  )

(define (kalc-gate knpc kpc)
  (say knpc "·î¤ÎÌç¤Ç¤¹¤ï¡£¤É¤¦¤Ê¤Ã¤Æ¤¤¤ë¤«¤´Â¸ÃΤ«¤·¤é¡©")
  (if (yes? kpc)
      (say knpc "¤É¤¦¤·¤Æ³§ÍͤâƱ¤¸¤è¤¦¤Ë¤·¤Ê¤¤¤Î¤«¤·¤é¡£")
      (say knpc "¥ë¥ß¥¹¤ÎÁ꤬Æþ¤ê¸ý¤ò·è¤á¤Æ¡¢¥ª¡¼¥É¤ÎÁ꤬½Ð¸ý¤Î·è¤á¤ë¤Î¤Ç¤¹¤Î¤è¡ª")))

(define (kalc-lumi knpc kpc)
  (say knpc "¥ë¥ß¥¹¤Ï²«¿§¤¯¤æ¤Ã¤¯¤êÆ°¤¯Êý¤Î·î¤Î¤³¤È¤Ç¤¹¤ï¡£"))

(define (kalc-ord knpc kpc)
  (say knpc "¥ª¡¼¥É¤ÏÀĤ¯Â®¤¯Æ°¤¯Êý¤Î·î¤Ç¤¹¤ï¡£"))

(define (kalc-engi knpc kpc)
  (say knpc "»ä¤Ïµ»»Õ¤òˬÌ䤷¤¿¿ô¾¯¤Ê¤¤¼Ô¤Î°ì¿Í¤Ç¤¹¤ï¡ª"
       "·î¤ÎÌç¤ò»È¤ï¤Ê¤±¤ì¤ÐÈà¤Î¾ì½ê¤Ë¤Ï¹Ô¤±¤Þ¤»¤ó¤Î¡£"
       "¥ª¡¼¥É¤¬Ëþ·î¤Ë¶á¤¤¤È¤­¤ËÆþ¤ì¤Ð¤è¤¤¤Î¤Ç¤¹¤ï¡£"))

(define (kalc-peop knpc kpc)
  (say knpc "ËâÆ»»Õ¤äµ»»Õ¡¢Ä®¤ÎÌò¿Í¤ÎÅÁ¸À¤òÅÁ¤¨¤Æ¤¤¤Þ¤¹¤Î¡£"
       "°ÂÁ´¤ÇÁ᤯²¿¤«¤ò±¿¤ÖɬÍפ¬¤¢¤ë¡¢Âå¶â¤ò»Ùʧ¤Ã¤Æ¤¯¤ì¤ëÊý¤Ê¤éï¤Ç¤â¤Ç¤¹¤ï¡ª"))

(define (kalc-pay knpc kpc)
  (say knpc "¤Ê¤«¤Ê¤«¤Î²Ô¤®¤Ë¤Ê¤ê¤Þ¤¹¤ï¡£"))

(define kalc-conv
  (ifc basic-conv

       ;; basics
       (method 'default (lambda (knpc kpc) (say knpc "¤É¤¦¤«¤·¤é¡£")))
       (method 'hail kalc-hail)
       (method 'bye  kalc-bye)
       (method 'job  kalc-job)
       (method 'name kalc-name)
       (method 'join kalc-join)
       
       (method 'gate kalc-gate)
       (method 'lumi kalc-lumi)
       (method 'ord  kalc-ord)
       (method 'engi kalc-engi)
       (method 'peop kalc-peop)
       (method 'erra kalc-peop)
       (method 'pay  kalc-pay)
       ))

(define (mk-kalcifax)
  (bind 
   (kern-mk-char 
    'ch_kalc           ; tag
    "¥«¥ë¥·¥Õ¥¡¥¯¥¹"       ; name
    kalc-species         ; species
    kalc-occ              ; occ
    s_blue_wizard
    faction-men      ; starting alignment
    0 7 0            ; str/int/dex
    (/ pc-hp-off 2)  ; hp bonus
    (/ pc-hp-gain 2) ; hp per-level bonus
    pc-mp-off        ; mp bonus
    pc-mp-gain       ; mp per-level bonus
    max-health ; hp
    -1  ; xp
    max-health ; mp
    0
    kalc-lvl
    #f               ; dead
    'kalc-conv         ; conv
    sch_kalc           ; sched
    'townsman-ai              ; special ai
    nil              ; container
    (list            ;; readied
     t_staff
     )
    )
   (kalc-mk)))