日本語版

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

;;----------------------------------------------------------------------------
;; Constants
;;----------------------------------------------------------------------------
(define kathryn-start-lvl  6)

;;----------------------------------------------------------------------------
;; Schedule
;; 
;; In Bole.
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_kathryn
               (list 0  0  bole-bed-kathryn "sleeping")
               (list 9  0  bole-table-1 "eating")
               (list 10 0  bole-courtyard   "idle")
               (list 12 0  bole-table-1 "eating")
               (list 13 0  bole-dining-hall "idle")
               (list 18 0  bole-table-1 "eating")
               (list 19 0  bole-dining-hall "idle")
               (list 23 0  bole-bed-kathryn "sleeping")
               )

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

;;----------------------------------------------------------------------------
;; Conv
;; 
;; ¥­¥ã¥¹¥ê¥ó¤Ï¶¯Íߤʽ÷À­¤ÎËâ½Ñ»Õ¤Ç¡¢ËâÆ»»Õ¤«¤éÎϤÎÀÐÈǤòÅð¤à¤³¤È¤ò·ÀÌó¤·¤¿Å¥
;; ËÀ(¥Í¥º¥ß)¤«¤é¤½¤ì¤ò¼è¤êÌ᤹¤¿¤á¥Ü¥ì¤Ë¤¤¤ë¡£¡Ä³Î¼Â¤ËËâÆ»»Õ¤Ï²¿¤âÏ䷤Ƥ¤¤Ê
;; ¤¤¡£
;; Èà½÷¤Ï¸ý¤¬¤¦¤Þ¤¯¡¢Îä¹ó¤Ç¤¢¤ë¡£
;; 
;; ¥­¥ã¥¹¥ê¥ó¤ÏÃç´Ö¤Ë¤Ê¤ë(¤½¤·¤ÆºÇ¸å¤Ë¤Ï΢ÀÚ¤ë)¡£
;; Èà½÷¤Ë¤Ï¹Ó¡¹¤·¤¤¥É¥ó¤¬¤Ä¤¤¤Æ¤¤¤Æ¡¢Èà½÷¤¬Ãç´Ö¤Ë¤Ê¤ì¤ÐÈà¤âÃç´Ö¤Ë¤Ê¤ë¡£
;;----------------------------------------------------------------------------
(define (kathryn-hail knpc kpc)
  (say knpc "¡Î¤¢¤Ê¤¿¤ò·ÚÊΤÎÌܤǸ«¤ë¤­¤ì¤¤¤Ê½÷À­¤È²ñ¤Ã¤¿¡£¡Ï¤Ï¤¤¡©"))

(define (kathryn-default knpc kpc)
  (say knpc "¡ÎÈà½÷¤Ï¤¢¤Ê¤¿¤ò¤ï¤¶¤È̵»ë¤·¤¿¡£¡Ï"))

(define (kathryn-name knpc kpc)
  (say knpc "¤è¤½¼Ô¤Ë¤Ï̾Á°¤ò¸À¤ï¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤¤¤ë¤Î¡£"
       "¤½¤ì¤è¤ê¡¢ÃΤꤿ¤¤¤³¤È¤¬¤¢¤ì¤ÐÊ̤ÎÅۤˤ­¤­¤Ê¤µ¤¤¤è¡£"
       "²ÈÃܤ¬¤¿¤¯¤µ¤ó¤¤¤ëÊÕ¤ê¤Î¡Ä¡£"))

(define (kathryn-join knpc kpc)
  (say knpc "¡ÎÈà½÷¤Ï¤à¤»¤ë¤Û¤É¾Ð¤Ã¤¿¡£¡Ï"))

(define (kathryn-job knpc kpc)
  (say knpc "¡Î¤¢¤¶¾Ð¤¤¤Ê¤¬¤é¡Ï½¤Æ»½÷¤è¡£¶â²ß500Ëç¤Ç¤´Êô»Å¤·¤Þ¤·¤ç¤¦¤«¡©"))


(define (kathryn-blowjob knpc kpc)
  (say knpc "·ùÌ£¤è¡£¤µ¤Ã¤µ¤È¾Ã¤¨¤Ê¤µ¤¤¡£"))

(define (kathryn-clients knpc kpc)
  (say knpc "»ä¤ÎµÒ¤Ï̾Á°¤òÌÀ¤«¤µ¤Ê¤¤¤â¤Î¤è¡£"
       "¤¿¤À°ì¤ÄÃΤäƤª¤¯¤Ù¤­¤Ê¤Î¤Ï¡¢Èà¤é¤òÅܤ餻¤Æ¤Ï¤Ê¤é¤Ê¤¤¤È¤¤¤¦¤³¤È¤è¡£"))

(define (kathryn-things knpc kpc)
  (say knpc "¤¢¤Ê¤¿¤Î¤è¤¦¤Ê¿Í¤Ë¤Ï¤ï¤«¤é¤Ê¤¤¥â¥Î¤è¡£"))

(define (kathryn-thief knpc kpc)
  (say knpc "¡ÎÈà½÷¤ÏàÄàѤÊÌܤǤ¢¤Ê¤¿¤ò¸«¤¿¡£¡Ï¤Ê¤ë¤Û¤É¤Í¡£¤â¤·¤«¤¹¤ë¤È¶¨ÎϤ·¹ç¤¨¤ë¤«¤â¤·¤ì¤Ê¤¤¡£"
       "¤³¤³¤Ø¤ÏµÒ¤ÎÂå¤ï¤ê¤Ë̾Á°¤òÌÀ¤«¤µ¤Ê¤¤Çä¿Í¤«¤é¥â¥Î¤ò»ÅÆþ¤ì¤ë¤¿¤á¤ËÍ褿¤Î¡£"))

(define (kathryn-seller knpc kpc)
  (say knpc "¥â¥Î¤¬Åð¤Þ¤ì¤¿¤È¤ï¤«¤Ã¤¿¤È¤­¤Î¥·¥ç¥Ã¥¯¤òÁÛÁü¤·¤Æ¤ß¤Æ¡ª"
        "¶â¤È°ú¤­´¹¤¨¤Ë¥â¥Î¤òÍ׵ᤷ¤¿¤é¡¢¤¹¤°¤ËÌܤÎÁ°¤«¤é¾Ã¤¨¤¿¤Î¤è¡ª"))

(define (kathryn-vanish knpc kpc)
  (say knpc "¥Ñ¥Ã¤È¡ª¤¤¤Ê¤¯¤Ê¤Ã¤¿¡ªÆ©ÌÀ¤Î»ØÎؤò»ý¤Ã¤Æ¤¤¤¿¤Ë°ã¤¤¤Ê¤¤¡£"
       "¥É¥ó¤È°ì½ï¤Ë¤½¤³¤é¤¸¤å¤¦¤òõ¤·¤¿¤ï¡£"))

(define (kathryn-search knpc kpc)
  (define (do-join)
    (say knpc "¤¹¤Ð¤é¤·¤¤¡ª¤³¤Î¤¢¤¿¤ê¤ÇÅ¥ËÀ¤Ë¤Ä¤¤¤Æ²¿¤«ÃΤäƤ¤¤ë¤«Ê¹¤¤¤Æ¤ß¤Þ¤·¤ç¤¦¡£")
    (if (in-inventory? knpc t_wis_quas_scroll)
        (begin
          (say knpc "¤¢¤¢¡¢¤³¤Î´¬Êª¤Ï¤­¤Ã¤ÈÌò¤ËΩ¤Ä¤ï¡£"
               "»ý¤Ã¤Æ¤ª¤¤¤Æ¡£¤³¤ÎËâË¡¤ÎÅۤϤ褯¤ï¤«¤é¤Ê¤¤¤±¤É¡£")
          (kern-obj-remove-from-inventory knpc t_wis_quas_scroll 1)
          (kern-obj-add-to-inventory kpc t_wis_quas_scroll 1)))
    (kern-char-join-player knpc)
    (if (and (defined? 'ch_thud)
             (is-alive? ch_thud))
        (begin
          (say knpc "¿ÆÀ̤Υɥó¤â²Ã¤ï¤Ã¤Æ¤¤¤¤¤«¤·¤é¡£"
               "¤³¤¤¤Ä¤Ï¥¬¥­¤ß¤¿¤¤¤Ê¤â¤Î¤Ç¡¢»ä¤¬¤¤¤Ê¤¤¤È¤É¤¦¤·¤è¤¦¤â¤Ê¤¤¤«¤é¡£")
          (kern-char-join-player ch_thud)))
    (kern-conv-end))
  (say knpc "»ä¤¿¤Á¤ÎÌÜŪ¤ÏƱ¤¸¤è¤¦¤Í¡£¼ê¤òÁȤó¤Ç°­ÅÞ¤òÊá¤Þ¤¨¤Æ¥â¥Î¤ò¼è¤êÊÖ¤·¤Þ¤·¤ç¤¦¡£"
       "Ê󽷤ϽФ¹¤ï¡£"
       "¤â¤·¥â¥Î¤ò¼è¤êÌ᤻¤ì¤Ð¡¢»ä¤È¥É¥ó¤Ë¤Ï½½Ê¬¤Ê³Û¤Ë¤Ê¤ë¤Î¡£"
       "¤É¤¦¡©¥¿¥Õ¤ÊÊý¡£Ãç´Ö¤Ë²Ã¤ï¤é¤Ê¤¤¡©")
  (if (kern-conv-get-yes-no? kpc)
      (do-join)
      (begin
        (say knpc "¡ÎÈà½÷¤ÏÆ°Íɤ·¤¿¡£¡Ï¤¢¤¢¡¢¤É¤¦¤«½õ¤±¤Æ¡ª"
             "»ä¤Î¥Ü¥¹¤Ï¶¯¤¯¤ÆÍð˽¤Ê¤Î¡ª"
             "¤â¤·Ãµ¤·¤Æ¤¤¤ë¥â¥Î¤¬¼è¤êÊÖ¤»¤Ê¤±¤ì¤Ð¡¢°ìÀ¸±£¤ì¤ÆÀ¸¤­¤Æ¤¤¤«¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡ª"
             "¤É¤¦¤«Ãç´Ö¤Ë²Ã¤ï¤Ã¤Æ¡©")
        (if (kern-conv-get-yes-no? kpc)
            (do-join)
            (begin
              (say knpc "¡ÎÈà½÷¤Ï¿°¤È¤Þ¤Ä¤²¤ò¶á¤Å¤±¤¿¡£¡Ï"
                   "¤¨¤¨¡¢¥¿¥Õ¤ÊÊý¡£¤¢¤Ê¤¿¤Î¾¡¤Á¤è¡£¤¯¤À¤é¤Ê¤¤¥â¥Î¤Ï¤É¤¦¤Ç¤â¤¤¤¤¡£"
                   "¤¢¤Ê¤¿°Ê³°¤Ë¤Ï¤¤¤Ê¤¤¤Î¤è¡£°ì½ï¤Ëõ¤·¤Þ¤·¤ç¤¦¡£"
                   "¤É¤¦¤«¤ª´ê¤¤¡£¤ª´ê¤¤¤·¤Þ¤¹¡Ä¡£")
              (if (kern-conv-get-yes-no? kpc)
                  (do-join)
                  (say knpc "¡ÎÈà½÷¤ÏÅܤê¤Ç´é¤òÀÖ¤¯¤·¡¢¶âÀÚ¤êÀ¼¤ò¾å¤²¤¿¡£¡Ï¥Ð¥«¡ª"
                       "²ò·è¤¹¤ëÊýË¡¤¬¤Ê¤¤¤¯¤»¤Ë¡ª"
                       "¤¢¤Ê¤¿¤¬Ãµ¤·¤Æ¤¤¤ë¤Î¤Ï¡¢¤³¤ÎÃϤǺǤâ°Å¤­Ëâ½Ñ»Õ¤¬âˤó¤Ç¤¤¤ëʪ¤Ê¤Î¤è¡ª"
                       "Å¥ËÀ¤òÊá¤Þ¤¨¤Æ±Ê±ó¤Î¶ìÄˤòÍ¿¤¨¤Æ¤ä¤ë¤ï¡ª"
                       "¤¢¤Ê¤¿¤Ï´Ø¤ï¤é¤Ê¤¤¤Û¤¦¤¬¿È¤Î¤¿¤á¤è¡ª")
                  (kern-conv-end)))))))

(define (kathryn-tavern knpc kpc)
  (say knpc "¤¤¤¤½ê¤è¡£¤¢¤Ê¤¿¤¬¥´¥­¥Ö¥ê¤Ê¤é¤Í¡£"))

(define (kathryn-companion knpc kpc)
  (say knpc "¥É¥ó¡©»ä¤Î¡Ä¿ÆÀ̤衣"))

(define (kathryn-cousin knpc kpc)
  (say knpc "±ó¤¤¿ÆÀÌ¡£"))

(define (kathryn-bill knpc kpc)
  (say knpc "¤¢¤Î¼¤Î¥Ð¥«¡©¤­¤Ã¤È¿¹¤ÇÆ»¶ñ¤ò»È¤¦¤¿¤á¤Ë½Ð¤Æ¹Ô¤Ã¤¿¤Î¤Ç¤·¤ç¤¦¡£"
       "°ì½ï¤Ë¹Ô¤Ã¤Æ¤­¤¿¤é¡©"))

(define (kathryn-hackle knpc kpc)
  (say knpc "¤¢¤Î¥¤¥«¥ì¤¿»ó¸Ñ¡©¾®À¸òº¹¤¹¤ë½ê¤Ë¤¤¤ë¡©"
       "¤¢¤Î½¹¤µ¤Ï¼£¤é¤Ê¤¤¤Ç¤·¤ç¤¦¤Í¡£»ÄÇ°¤À¤±¤É¡£"))

(define (kathryn-may knpc kpc)
  (say knpc "½É²°¤Î¡©Á§º÷¹¥¤­¤Î¥Ð¥Ð¥¢¤è¡£¤¢¤Ê¤¿¤Ï¶â¤ò»ý¤Ã¤Æ¤Ê¤µ¤½¤¦¤À¤±¤É¡¢"
       "¤â¤·»ý¤Ã¤Æ¤¤¤ì¤Ð¡¢¿²¤ë¤È¤­¤ÏËí¤Î²¼¤Ë±£¤·¤Æ¤ª¤¯¤³¤È¤Í¡£"))

(define (kathryn-melvin knpc kpc)
  (say knpc "ÎÁÍý¿Í¤Î¡©±ø¤¤°û¤ó¤À¤¯¤ì¤Îǯ´ó¤ê¤è¡£"))

(define (kathryn-sorceress knpc kpc)
  (say knpc "¡ÎÈà½÷¤Ï¶Ã¤¤¤¿¤Õ¤ê¤ò¤·¤Æ¼ê¤Ç¸ý¤òʤ¤Ã¤¿¡£¡Ï¤¢¤¢¡ª»ä¤Î¾®¤µ¤Ê±ø¤ì¤¿ÈëÌ©¤Ëµ¤¤Å¤¤¤¿¤ï¤Í¡ª"
       "¾Ã¤¨¤¦¤»¤Ê¤µ¤¤¡£¤µ¤â¤Ê¤¤¤È¾¾ÌÀ¤Î¤è¤¦¤Ëdz¤ä¤¹¤ï¤è¡£"))

(define (kathryn-scro knpc kpc)
  (if (is-player-party-member? knpc)
      (say knpc "»ý¤Ã¤Æ¤¤¤ë¤Î¤Ï¤¢¤Ê¤¿¤Ë¤¢¤²¤¿°ìËç¤À¤±¤è¡£"
           "¤É¤³¤Ç¼ê¤ËÆþ¤ë¤Î¤«¤â¤ï¤«¤é¤Ê¤¤¤ï¡ª")
      (say knpc "´¬Êª¡©¡ÎÈà½÷¤Ï¾Ð¤Ã¤¿¡£¡Ï»ä¤Î¥Ý¥±¥Ã¥È¤Ë¼ê¤òÆþ¤ì¤Æ¤ß¤ë¡©"
           "¼«Ê¬¤Î¿´ÇÛ¤ò¤·¤Ê¤µ¤¤¤è¡£")))


(define kathryn-conv
  (ifc nil
       (method 'default kathryn-default)
       (method 'hail kathryn-hail)
       (method 'bye  (lambda (knpc kpc) (say knpc "À¶¡¹¤·¤¿¤ï¡£")))
       (method 'job  kathryn-job)
       (method 'name kathryn-name)
       (method 'join kathryn-join)

       (method 'blow kathryn-blowjob)
       (method 'bill kathryn-bill)
       (method 'clie kathryn-clients)
       (method 'comp kathryn-companion)
       (method 'cous kathryn-cousin)
       (method 'fait kathryn-seller)
       (method 'hack kathryn-hackle)
       (method 'item kathryn-seller)
       (method 'inn  kathryn-tavern)
       (method 'may  kathryn-may)
       (method 'meet kathryn-thief)
       (method 'melv kathryn-melvin)
       (method 'nun  kathryn-blowjob)
       (method 'ring kathryn-search)
       (method 'sear kathryn-search)
       (method 'sell kathryn-seller)
       (method 'sorc kathryn-sorceress)
       (method 'witc kathryn-sorceress)
       (method 'tave kathryn-tavern)
       (method 'thud kathryn-companion)
       (method 'thie kathryn-thief)
       (method 'vani kathryn-vanish)
       (method 'vill kathryn-search)
       (method 'scro kathryn-scro)
       ))

;;----------------------------------------------------------------------------
;; First-time constructor
;;----------------------------------------------------------------------------
(define (mk-kathryn)
  (bind 
   (kern-char-force-drop
    (kern-char-arm-self
     (kern-mk-char 
      'ch_kathryn ;;..tag
      "¥­¥ã¥¹¥ê¥ó" ;;....name
      sp_human ;;.....species
      oc_wizard ;;....occupation
      s_wizard ;;.....sprite
      faction-men ;;..faction
      0 ;;............custom strength modifier
      4 ;;............custom intelligence modifier
      0 ;;............custom dexterity modifier
      2 ;;............custom base hp modifier
      1 ;;............custom hp multiplier (per-level)
      4 ;;............custom base mp modifier
      2 ;;............custom mp multiplier (per-level)
      max-health ;; current hit points
      -1  ;;...........current experience points
      max-health ;; current magic points
      0
      kathryn-start-lvl  ;;..current level
      #f ;;...........dead?
      'kathryn-conv ;;conversation (optional)
      sch_kathryn ;;..schedule (optional)
      'spell-sword-ai ;;...custom ai (optional)
      ;;..............container (and contents)
      (mk-inventory
       (list
        (list 1 t_kathryns_letter)
        (list 100 t_gold_coins)
        (list 5 sulphorous_ash )
        (list 5 ginseng )
        (list 5 garlic )
        (list 3 spider_silk )
        (list 3 blood_moss )
        (list 2 black_pearl )
        (list 1 nightshade )
        (list 1 mandrake )
        (list 1 t_wis_quas_scroll)
        ))
      ;;..............readied arms (in addition to the container contents)
      (list
       t_staff
       )
      nil ;;..........hooks in effect
      ))
    #t)
   (kathryn-mk)))