日本語版

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

;;----------------------------------------------------------------------------
;; Constants
;;----------------------------------------------------------------------------
(define dennis-lvl 3)
(define dennis-species sp_human)
(define dennis-occ oc_wright)

;;----------------------------------------------------------------------------
;; Schedule
;; 
;; ¸Å¥¢¥Ö¥µ¥í¥Ã¥È
;;----------------------------------------------------------------------------
(define dennis-bed oa-bed2)
(define dennis-mealplace oa-tbl1)
(define dennis-workplace oa-slaves)
(define dennis-leisureplace oa-dining-hall)
(kern-mk-sched 'sch_dennis
               (list 0  0 dennis-bed          "sleeping")
               (list 7  0 dennis-mealplace    "eating")
               (list 8  0 dennis-workplace    "working")
               (list 12 0 dennis-mealplace    "eating")
               (list 13 0 dennis-workplace    "working")
               (list 18 0 dennis-mealplace    "eating")
               (list 19 0 dennis-leisureplace "idle")
               (list 22 0 dennis-bed          "sleeping")
               )

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

;;----------------------------------------------------------------------------
;; Conv
;; 
;; ¥Ç¥Ë¥¹¤Ï¼ö¤ï¤ì¤¿¼Ô¤Î¿®Êô¼Ô¤Ç¡¢¸Å¥¢¥Ö¥µ¥í¥Ã¥È¤Ë½»¤ó¤Ç¤¤¤ë¡£
;; Èà¤Ï¿®¤¸¤ä¤¹¤¤¤¬¡¢¤Þ¤À´°Á´¤Ë¤ÏÀ÷¤Þ¤Ã¤Æ¤¤¤Ê¤¤¡£
;;----------------------------------------------------------------------------

;; Basics...
(define (dennis-hail knpc kpc)
  (say knpc "¤³¤ó¤Ë¤Á¤Ï¡£"))

(define (dennis-default knpc kpc)
  (say knpc "¤½¤Î¤¢¤¿¤ê¤Î¤³¤È¤Ï¤ï¤«¤ê¤Þ¤»¤ó¡£"))

(define (dennis-name knpc kpc)
  (say knpc "¥Ç¥Ë¥¹¤Ç¤¹¡£"))

(define (dennis-join knpc kpc)
  (say knpc "¡ÎÈà¤Ï¤¢¤¶¾Ð¤Ã¤¿¡£¡Ï¤½¤¦¤Ï»×¤¤¤Þ¤»¤ó¡£Î¹¤Î¿Í¡£"))

(define (dennis-job knpc kpc)
  (say knpc "¥µ¥¤¥é¥¹»Õ¤ÎÀ¸Å̤Ǥ¹¡£"))

(define (dennis-bye knpc kpc)
  (say knpc "¤µ¤è¤¦¤Ê¤é¡£"))

;; Tier 2
(define (dennis-stud knpc kpc)
  (say knpc "¥µ¥¤¥é¥¹»Õ¤«¤é¡¢¼«Ê¬¤Î°Õ»×¤Ë½¸Ã椹¤ë¤³¤È¡¢¤½¤·¤Æ»ä¤ÎÁ°¿Ê¤Î˸¤²¤Ë¤Ê¤ë¤â¤Î¤òµ¾À·¤Ë¤¹¤ë¤³¤È¤ò¶µ¤ï¤Ã¤Æ¤¤¤Þ¤¹¡£»ä¤Ï¼«Ê¬¤ÎÍß˾¤ËÅþã¤Ç¤­¤ë¤³¤È¤Ç¤·¤ç¤¦¡£¤½¤¦¤Ç¤Ê¤¯¤Æ¤â¡¢¾¯¤Ê¤¯¤È¤â¼ö¤ï¤ì¤¿¼Ô¤ÎÀ¸¤­Êý¤ò¶Ë¤á¤ë¤³¤È¤¬¤Ç¤­¤ë¤Ç¤·¤ç¤¦¡£"))

(define (dennis-accu knpc kpc)
  (say knpc "¼ö¤ï¤ì¤¿¼Ô¤Ï¸í²ò¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¸Ê¤ÎÍß˾¤òÄɤ¤µá¤á¤ë¤Î¤Ï¡¢°­¤Ç¤Ï¤Ê¤¯Á±¤Ê¤Î¤Ç¤¹¡ª¤Ê¤¼²æ¡¹¤ÎŨ¤Ï¤½¤ì¤¬¤ï¤«¤é¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©"))

(define (dennis-enem knpc kpc)
  (say knpc "¥°¥é¥¹¥É¥ê¥ó¤ÎµÔ»¦¼Ô¤È¶ò¤«¤Êǯ´ó¤ê¤ÎËâÆ»»Õ¤Ï¤µ¤é¤Ê¤ë·ì¤òµá¤á¤Æ¤¤¤ë¤Î¤Ç¤¹¡ª"))

(define (dennis-ways knpc kpc)
  (say knpc "¼ö¤ï¤ì¤¿¼Ô¤ÎÀ¸¤­Êý¤ÏÃʳ¬Åª¤ËÀ¸Å̤ËÌÀ¤«¤µ¤ì¤Æ¤¤¤­¤Þ¤¹¡£¤½¤ì¤¾¤ì¤ÎÃʳ¬¤Ç¿®Êô¼Ô¤ÏÎϤòÆÀ¤Æ¤¤¤­¤Þ¤¹¡£¼¡¤ÎÃʳ¬¤Ë㤹¤ë¤¿¤á¤Ë¤Ï¡¢À¸Å̤Ϥդµ¤ï¤·¤¤µ¾À·¤ò¤µ¤µ¤²¤ëµ·¼°¤ò¹Ô¤ï¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£"))

(define (dennis-sacr knpc kpc)
  (say knpc "µ¾À·¤Îµ·¼°¤ÏÈëÌ©¤Ë¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¤¢¤Ê¤¿¤Î¤è¤¦¤Ê²¿¤âÃΤé¤Ê¤¤¿Í¤Ë¤ÏÏ令ޤ»¤ó¡£"))

(define (dennis-powe knpc kpc)
  (say knpc "ÁÛÁü¤â¤Ç¤­¤Ê¤¤¤è¤¦¤ÊÎϤ¬¡¢¤½¤ì¤ò¤Ä¤«¤ß¼è¤ë°Õ»Ö¤Î¤¢¤ë¼Ô¤òÂԤäƤ¤¤Þ¤¹¡£"))

(define (dennis-sila knpc kpc)
  (say knpc "¥µ¥¤¥é¥¹»Õ¤ÏÎϤΤ¢¤ëËâ½Ñ»Õ¡¢¤½¤·¤Æ¸­ÌÀ¤ÊÀèÀ¸¤Ç¤¹¡£"))

(define (dennis-absa knpc kpc)
  (say knpc "¤¢¤Î¶ò¤«¼Ô¤¿¤Á¤Ï¡¢²æ¡¹¤¬¤½¤³¤Ë¤¤¤ë¤È¹Í¤¨¤Æ¥¢¥Ö¥µ¥í¥Ã¥È¤òÇ˲õ¤·¤Þ¤·¤¿¡ª¤·¤«¤·Èà¤é¤ÏÄ®¤Î¿¿²¼¤Ë¤¢¤ë¤³¤Î¸Å¤¤¥¢¥Ö¥µ¥í¥Ã¥È¤Î¤³¤È¤òÃΤê¤Þ¤»¤ó¤Ç¤·¤¿¡£"))

(define (dennis-old knpc kpc)
  (say knpc "¤³¤Î°äÀפòÊ⤤¤Æ¤¤¤ë¤È¡¢°Ú·É¤ÎÇ°¤Ë¶î¤é¤ì¤Þ¤¹¡£¾¯¤·ÉÔµ¤Ì£¤Ç¤¹¤¬¡£¸ÅÂå¤Î¿Í¡¹¤Ï´ñ̯¤Ê¿®¶Ä¤ò»ý¤Ã¤Æ¤¤¤¿¤Î¤Ç¤¹¤Í¡ª"))

(define (dennis-sele knpc kpc)
  (say knpc "¡ÎÈà¤Ï´é¤òÀÖ¤¯¤·¤¿¡£¡Ï°­¤¤¤³¤È¤Ï¸À¤¤¤Þ¤»¤ó¡£Èà½÷¤Ë¤Ï¶á¤Å¤«¤Ê¤¤¤Û¤¦¤¬¤¤¤¤¤Ç¤¹¤è¡ª")
  (kern-conv-end)
  )

(define dennis-conv
  (ifc basic-conv

       ;; basics
       (method 'default dennis-default)
       (method 'hail dennis-hail)
       (method 'bye dennis-bye)
       (method 'job dennis-job)
       (method 'name dennis-name)
       (method 'join dennis-join)
       
       (method 'sele dennis-sele)
       (method 'stud dennis-stud)
       (method 'teac dennis-stud)
       (method 'accu dennis-accu)
       (method 'enem dennis-enem)
       (method 'ways dennis-ways)
       (method 'sacr dennis-sacr)
       (method 'powe dennis-powe)
       (method 'sila dennis-sila)
       (method 'absa dennis-absa)
       (method 'old dennis-old)
       ))

(define (mk-dennis)
  (bind 
   (kern-mk-char 
    'ch_dennis           ; tag
    "¥Ç¥Ë¥¹"             ; name
    dennis-species         ; species
    dennis-occ              ; occ
    s_townsman     ; sprite
    faction-men      ; starting alignment
    0 1 0            ; str/int/dex
    0 0              ; hp mod/mult
    0 0              ; mp mod/mult
    max-health ; hp
    -1                   ; xp
    max-health ; mp
    0
    dennis-lvl
    #f               ; dead
    'dennis-conv         ; conv
    sch_dennis           ; sched
    'spell-sword-ai              ; special ai
    nil              ; container
    (list t_staff)              ; readied
    )
   (dennis-mk)))