日本語版

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

;;----------------------------------------------------------------------------
;; Constants
;;----------------------------------------------------------------------------
(define alex-lvl 8)
(define alex-species sp_human)
(define alex-occ oc_wizard)

;;----------------------------------------------------------------------------
;; Schedule
;; 
;; ¥¯¥í¥Ý¥ê¥¹¤ÎÀ»µ³»Î¤ÎºÖ
;;----------------------------------------------------------------------------
(define alex-bed ph-bed3)
(define alex-mealplace ph-tbl3)
(define alex-workplace ph-hall)
(define alex-leisureplace ph-dine)
(kern-mk-sched 'sch_alex
               (list 0  0 alex-bed          "sleeping")
               (list 7  0 alex-mealplace    "eating")
               (list 8  0 alex-workplace    "working")
               (list 12 0 alex-mealplace    "eating")
               (list 13 0 alex-workplace    "working")
               (list 18 0 alex-mealplace    "eating")
               (list 19 0 alex-leisureplace "idle")
               (list 22 0 alex-bed          "sleeping")
               )

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

;;----------------------------------------------------------------------------
;; Conv
;; 
;; ¥¢¥ì¥Ã¥¯¥¹¤Ï¥°¥é¥¹¥É¥ê¥ó·³¤ÎÂâĹ¤Ç¡¢¥¯¥í¥Ý¥ê¥¹¤ÎÉÔ»à¤Î¼Ô¤Î³¬¤ò¼é¤ëÂèÆóÁØÃó
;; ÆÖÃϤÇǤ̳¤Ë¤Ä¤¤¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------

;; Basics...
(define (alex-hail knpc kpc)
  (say knpc "¤è¤¦¤³¤½¡¢ËÁ¸±¼Ô¤è¡£²æ¡¹¤ÎÊɤθå¤í¦¤Ï¾¯¤·¤Ï°ÂÁ´¤À¡£"))

(define (alex-name knpc kpc)
  (say knpc "¥°¥é¥¹¥É¥ê¥ó·³¤Î¥¢¥ì¥Ã¥¯¥¹ÂâŤÀ¡£"))

(define (alex-job knpc kpc)
  (say knpc "ÀïÆ®Ëâ½Ñ»Õ¡¢¤½¤·¤Æ¤³¤ÎÃóÆÖÃϤλشø´±¤À¡£²æ¡¹¤ÎÌç¤òÄ̤ꤿ¤¤¤Î¤«¤Í¡©")
  (if (yes? kpc)
      (alex-pass knpc kpc)
      (say knpc "µ¤¤¬ÊѤï¤Ã¤¿¤é¹ç¸ÀÍդˤĤ¤¤Æ¿Ò¤Í¤Æ¤¯¤ì¡£")))

(define (alex-bye knpc kpc)
  (say knpc "Êɤγ°¤Ç¤ÏÇظå¤Ëµ¤¤ò¤Ä¤±¤í¡£"))

(define (alex-warm knpc kpc)
  (say knpc "ÀïÆ®Ëâ½Ñ»Õ¤Ï¡¢ÀïÆ®ËâË¡¤ÎÀìÌç²È¤À¡£»ä¤ÎºÇÂç¤Î¤Ê¤ä¤ß¤¬¤ï¤«¤ë¤«¤Í¡©")
  (yes? kpc)
  (say knpc "ÈëÌô¤ò¤É¤¦¸«¤Ä¤±¤ë¤«¤À¡£±ü¤Ë¹Ô¤¯Á°¤ËÈ÷¤¨¤ë¤Î¤ò˺¤ì¤ë¤Ê¡ª"))

(define (alex-garr knpc kpc)
  (say knpc "¤³¤³¤Ï¥¯¥í¥Ý¥ê¥¹¤Ë¤ª¤±¤ë·³¤Î»°¤Ä¤ÎÃóÆÖÃϤΰì¤Ä¤À¡£"
       "Âè°ìÁØÃóÆÖÃϤϲøʪ¤¬ÃϾå¤Ø½Ð¤Ê¤¤¤è¤¦¤Ë¥¯¥í¥Ý¥ê¥¹¤ÎÆþ¤ê¸ý¤ò¼é¤Ã¤Æ¤¤¤ë¡£")
  (prompt-for-key)
  (say knpc "¤³¤ÎÂèÆóÁØÃóÆÖÃϤϲ¼¤Î¼ýÍƽê¤ò´ÉÍý¤·¡¢ÉÔ»à¤Î¼Ô¤ò¿©¤¤»ß¤á¤ë¡£")
  (prompt-for-key)
  (say knpc "Âè»°ÁØÃóÆÖÃϤϡĤɤ³¤Ø³¤¯¤«¤ï¤«¤é¤Ê¤¤Æ»¤ò¼é¤Ã¤Æ¤¤¤ë¡£")
  )

(define (alex-unde knpc kpc)
  (say knpc "¥¯¥í¥Ý¥ê¥¹¤Î¤³¤ÎÁؤˤϡ¢ÉÔ»à¤Î¼Ô¤¬»ÙÇÛ¤¹¤ë¸Å¤¤ºÖ¤¬¤¢¤ë¡£»ä¤Î¹Í¤¨¤òÃΤꤿ¤¤¤«¡©")
  (if (yes? kpc)
      (say knpc "ÉÔ»à¤Î¼Ô¤É¤â¤Ï¥ê¥Ã¥Á¤Ë»Å¤¨¤Æ¤¤¤ë¤Î¤À¤È¹Í¤¨¤Æ¤¤¤ë¡£")
      (say knpc "¤Ê¤é¤Ð·¯¤òº®Í𤵤»¤Ê¤¤¤¿¤á²¿¤â¸À¤ï¤Ê¤¤¤Ç¤ª¤³¤¦¡ª")))

(define (alex-lich knpc kpc)
  (say knpc "¥ê¥Ã¥Á¤È¤Ï²¿¤«¡©¤½¤ì¤ÏÉÔ»à¤ÎËâ½Ñ»Õ¤Ç¤¢¤ë¡£¥ê¥Ã¥Á¤Ï¼öʸ¤ÈƱ¤¸¤è¤¦¤Ë»à¼Ô¤òÁà¤ë¤³¤È¤¬¤Ç¤­¤ë¡£ºÇ¤â¶²¤í¤·¤¤Å¨¤À¡£"))

(define (alex-pass knpc kpc)
  (say knpc "¹ç¸ÀÍդϡֿ¼Ê¥¡×¤À¡£"))

(define (alex-thir knpc kpc)
  (say knpc "Âè»°ÁØÃóÆÖÃϤȤÏÏ¢Íí¤¬¼è¤ì¤Ê¤¯¤Ê¤Ã¤Æ¤¤¤ë¡£"
       "Ï¢Ââ¤ÎÀï»Î¤Î°ì¿Í¤¬²¼¤Î¼ýÍƽê¤Ë¤¤¤ë¡£"
       "»ä¤ÏÈबËÜÅö¤Ë¤ª¤«¤·¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿¤Î¤Ç¤Ï¤Ê¤¤¤«¤È¶²¤ì¤Æ¤¤¤ë¡£¿¼¤¤¾ì½ê¤Ï¿Í¤ò¤½¤Î¤è¤¦¤Ë¤·¤Æ¤·¤Þ¤¦¡£"))

(define (alex-pris knpc kpc)
  (say knpc "¼ýÍƽê¤Ø¹Ô¤­¤¿¤±¤ì¤Ð¡¢¤Ï¤·¤´¤ò²¼¤ê¤Ê¤µ¤¤¡£"))

(define (alex-firs knpc kpc)
  (say knpc "Âè°ìÁØÃóÆÖÃϤعԤ­¤¿¤±¤ì¤Ð¡¢¤Ï¤·¤´¤ò¾å¤ê¡¢Ë̤عԤ­¡¢¤½¤Î¸åÀ¾¤Ø¹Ô¤­¤Ê¤µ¤¤¡£"))

(define alex-conv
  (ifc kurpolis-conv

       ;; basics
       (method 'hail alex-hail)
       (method 'bye alex-bye)
       (method 'job alex-job)
       (method 'name alex-name)

       (method 'warm alex-warm)
       (method 'garr alex-garr)
       (method 'comm alex-garr)
       (method 'lich alex-lich)
       (method 'pass alex-pass)

       (method 'thir alex-thir)
       (method 'pris alex-pris)
       (method 'firs alex-firs)
       ))

(define (mk-alex)
  (bind 
   (kern-mk-char 
    'ch_alex           ; tag
    "¥¢¥ì¥Ã¥¯¥¹"       ; name
    alex-species         ; species
    alex-occ              ; occ
    s_companion_wizard     ; sprite
    faction-men      ; starting alignment
    2 5 1            ; str/int/dex
    0 0              ; hp mod/mult
    0 0              ; mp mod/mult
    max-health ; hp
    -1                   ; xp
    max-health ; mp
    0
    alex-lvl
    #f               ; dead
    'alex-conv         ; conv
    sch_alex           ; sched
    'townsman-ai              ; special ai
    nil              ; container
    (list t_sword
                t_shield
                t_leather_helm
                                                 t_armor_leather_2
                                                 )               ; readied
    )
   (alex-mk)))