日本語版

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

;;----------------------------------------------------------------------------
;; Constants
;;----------------------------------------------------------------------------
(define jake-lvl 2)
(define jake-species sp_gint)
(define jake-occ nil)

;;----------------------------------------------------------------------------
;; Schedule
;; 
;; ¥¯¡¼¥ó
;;----------------------------------------------------------------------------
(define jake-bed )
(kern-mk-sched 'sch_jake
               (list 0  0 cantina-counter-zzz "sleeping")
               (list 9  0 cantina-counter "working")
               )

;;----------------------------------------------------------------------------
;; Gob
;;----------------------------------------------------------------------------
(define (jake-mk) (list #t))
(define (jake-left? gob) (car gob))
(define (jake-left! gob val) (set-car! gob val))

;;----------------------------------------------------------------------------
;; Conv
;; 
;; ¥¸¥§¥¤¥¯¤È¥Ñ¡¼¥·¡¼¤Ïµð¿Í(2¤Ä¤ÎƬ¤Î¤¢¤ëµð¿Í)¤Ç¡¢²øʪ¤Î¼¥¯¡¼¥ó¤Ë½»¤ó¤Ç¤¤¤ë¡£
;; ¥¸¥§¥¤¥¯¤ÏÌîÈڤʺ¸¤ÎƬ¤Ç¡¢¼ò¾ì¤ÎÍÑ¿´ËÀ¤ò¤·¤Æ¤¤¤ë¡£
;; ¥Ñ¡¼¥·¡¼¤Ï¾åÉʤʱ¦Â¦¤ÎƬ¤Ç¡¢¼ò¾ì¤Î¼ç¿Í¤È¤·¤Æ·Ð±Ä¤ò¤·¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------

(define (left-head? knpc)
  (jake-left? (gob knpc)))
(define (left-head! knpc)
  (jake-left! (gob knpc) #t)
  (say knpc "¤³¤³¤À¡ª"))
(define (right-head! knpc)
  (jake-left! (gob knpc) #f)
  (say knpc "¤¤¤«¤¬¤Ê¤µ¤ê¤Þ¤·¤¿¤«¡©"))

;; Basics...
(define (jake-hail knpc kpc)
  (kern-log-msg "¤¢¤Ê¤¿¤Ï2¤Ä¤ÎƬ¤Î¤¢¤ëµð¿Í¤È²ñ¤Ã¤¿¡£°ìÊý¤Ï¹Ó¡¹¤·¤¯¸«¤¨¡¢¤â¤¦°ìÊý¤Ï¡¢²¿¤È¸À¤¦¤«¡Ä¡Ä¡¢"
                "¿À·Ð¼Á¤È¸À¤Ã¤Æ¤â¸À¤¤²á¤®¤Ç¤Ï¤Ê¤¤¤À¤í¤¦¡£")
  (if (left-head? knpc)
      (say knpc "¤è¤ª¡ªË·¤ä¡ª")
      (say knpc "¤è¤¦¤³¤½¡¢¾®¤µ¤¤¤ªÊý¡£")
      ))

(define (jake-default knpc kpc)
  (if (left-head? knpc)
      (say knpc "¥Õ¥ó¡¢ÃΤ뤫¤è¡ª¥Ñ¡¼¥·¡¼¤Ëʹ¤±¡ª")
      (say knpc "Æñ¤·¤¤¤ªÏäǤ´¤¶¤¤¤Þ¤¹¡£")
      ))

(define (jake-name knpc kpc)
  (if (left-head? knpc)
      (say knpc "¥¸¥§¥¤¥¯¤À¡ª¤½¤·¤Æ¤³¤Ã¤Á¤¬¥Ñ¡¼¥·¡¼¤À¡ª¡Îº¸¤ÎƬ¤Ï±¦¤ò¸þ¤¤¤¿¡£¡Ï")
      (say knpc "¥Ñ¡¼¥·¥Ð¥ë¤Ç¤´¤¶¤¤¤Þ¤¹¡£¤½¤·¤Æ¤³¤Á¤é¤¬¤ï¤¿¤¯¤·¤Î±Ê±ó¤Îͧ¡¢¥¸¥§¥¤¥¯¤Ç¤´¤¶¤¤¤Þ¤¹¡£¡Îº¸¤ÎƬ¤¬±¦Â¦¤Ë¤¦¤Ê¤º¤¤¤¿¡£¡Ï")
      ))

(define (jake-join knpc kpc)
  (if (left-head? knpc)
      (say knpc "¥Ï¥Ã¡ª¥Ï¥Ã¡ª¥Ï¥Ã¡ª")
      (say knpc "¤¢¤¢¡¢¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£¿È¤Ë;¤ë¤ªÍ¶¤¤¤Ç¤´¤¶¤¤¤Þ¤¹¡£")
      ))

(define (jake-job knpc kpc)
  (if (left-head? knpc)
      (say knpc "¤â¤Á¤í¤óÍÑ¿´ËÀ¤À¡ª¤µ¤¢¡¢°û¤à¤«½Ð¤Æ¹Ô¤¯¤«¤À¡ª")
      (begin
        (say knpc "¤ï¤¿¤¯¤·¤ÏŹ¼ç·ó¥Ð¡¼¥Æ¥ó¥À¡¼¤Ç¤´¤¶¤¤¤Þ¤¹¡£²¿¤«¤ª°û¤ß¤Ë¤Ê¤ê¤Þ¤¹¤«¡©")
        (if (yes? kpc)
            (jake-trade knpc kpc)
            (say knpc "¹Í¤¨Ä¾¤·¤Æ¤¯¤À¤µ¤¤¤Þ¤»¡£ºÇ¹âµé¤Î¤â¤Î¤ò¤ª½Ð¤·¤¤¤¿¤·¤Þ¤¹¡£")
            ))))

(define (jake-bye knpc kpc)
  (if (left-head? knpc)
      (say knpc "¤¸¤ã¤¢¤Ê¡ª")
      (say knpc "¤µ¤è¤¦¤Ê¤é¡£¤Þ¤¿²ñ¤¤¤Þ¤·¤ç¤¦¡£")
      ))

(define (jake-jake knpc kpc)
  (if (left-head? knpc)
      (say knpc "¤¢¤¡¡©²¿¤ÎÍѤÀ¡©")
      (begin
        (say knpc "ËÜÅö¤Ë¥¸¥§¥¤¥¯¤ÈÏä·¤¿¤¤¤Î¤Ç¤¹¤«¡©")
        (if (yes? kpc)
            (left-head! knpc)))
      ))

(define (jake-perc knpc kpc)
  (if (left-head? knpc)
      (begin
        (say knpc "¤Ê¤Ë¡©¥Ñ¡¼¥·¡¼¤ÈÏä·¤¿¤¤¤Î¤«¡©")
        (if (yes? kpc)
            (right-head! knpc)
            ))
      (say knpc "¤Ï¤¤¡£¤½¤ì¤Ï¤ï¤¿¤¯¤·¤Ç¤¹¡£²¿¤Ê¤ê¤È¤ª¿½¤·ÉÕ¤±¤¯¤À¤µ¤¤¤Þ¤»¡£")
      ))

(define (jake-drin knpc kpc)
  (if (left-head? knpc)
      (say knpc "¥Ñ¡¼¥·¡¼¤Ë¸À¤¨¡ª")
      (jake-trade knpc kpc)))


;; Trade...
(define jake-merch-msgs
  (list nil ;; closed
        "¥á¥Ë¥å¡¼¤Ç¤´¤¶¤¤¤Þ¤¹¡£" ;; buy
        nil ;; sell
        nil ;; trade
        "¤ª¼êÅÁ¤¤¤Ç¤­¤¿¤³¤È¤ò´î¤Ð¤·¤¯»×¤¤¤Þ¤¹¡£" ;; bought-something
        "¡Î¤¿¤á©¡Ï¤¢¤¢¡¢¤ï¤¿¤¯¤·¤ÏÍîÃÀ¤¤¤¿¤·¤Þ¤·¤¿¡£" ;; bought-nothing
        nil
        nil
        nil
        nil
   ))

(define jake-catalog
  (list
   (list t_food 7 "¤¹¤Ð¤é¤·¤¤»ÒÍÓ¥í¡¼¥¹¥È¤Ç¤´¤¶¤¤¤Þ¤¹¡ª¶²¤ì¤Ê¤¬¤é¡¢¿Í´Ö¤Ë¤Ï¤â¤Ã¤¿¤¤¤Ê¤¤¤â¤Î¤Ë¤´¤¶¤¤¤Þ¤¹¡£")
   (list t_beer 4 "¤Ï¤ë¤«±ó¤¯¤Îͭ̾¤Ê¥¸¥ã¥¤¥¢¥ó¥È¥¹¥Ñ¡¼¤Î¾ú¤¼Ô¤«¤é¼è¤ê´ó¤»¤¿¥é¥¬¡¼¥Ó¡¼¥ë¤Ç¤´¤¶¤¤¤Þ¤¹¡£")
   (list t_wine 6 "¥ï¥¤¥óÀìÌç¤ÎÅ¥ËÀ¤«¤éÄ󶡤µ¤ì¤¿ºÇ¹â¤Î¥ï¥¤¥ó¤Ç¤´¤¶¤¤¤Þ¤¹¡£¥´¥Û¥ó¡Ä¸«³Ð¤¨¤Î¤Ê¤¤¥Ü¥È¥ë¤À¤È¤è¤¤¤Î¤Ç¤¹¤¬¡£")
   ))

(define (jake-trade knpc kpc) (conv-trade knpc kpc "buy" jake-merch-msgs jake-catalog))

;; Town & Townspeople

;; Quest-related

(define jake-conv
  (ifc basic-conv

       ;; basics
       (method 'default jake-default)
       (method 'hail jake-hail)
       (method 'bye  jake-bye)
       (method 'job  jake-job)
       (method 'name jake-name)
       (method 'join jake-join)
       
       ;; trade
       (method 'drin jake-drin)
       (method 'trad jake-trade)
       (method 'buy  jake-trade)

       ;; town & people
       (method 'jake jake-jake)
       (method 'perc jake-perc)
       ))

(define (mk-jake)
  (bind 
   (kern-mk-char 
    'ch_jake           ; tag
    "¥¸¥§¥¤¥¯¤È¥Ñ¡¼¥·¥Ð¥ë"             ; name
    jake-species         ; species
    jake-occ              ; occ
    s_gint     ; sprite
    faction-men      ; starting alignment
    0 0 0            ; str/int/dex
    0 0              ; hp mod/mult
    0 0              ; mp mod/mult
    max-health ; hp
    -1                   ; xp
    max-health ; mp
    0
    jake-lvl
    #f               ; dead
    'jake-conv         ; conv
    sch_jake           ; sched
    'townsman-ai              ; special ai
    nil              ; container
    nil              ; readied
    )
   (jake-mk)))