日本語版

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

;;----------------------------------------------------------------------------
;; Constants
;;----------------------------------------------------------------------------
(define jorn-lvl 5)
(define jorn-species sp_human)
(define jorn-occ oc_wrogue)

;;----------------------------------------------------------------------------
;; Schedule
;; 
;; ÎФÎÅã
;;----------------------------------------------------------------------------
(define jorn-bed gt-jorn-bed)
(define jorn-mealplace gt-ws-tbl1)
(define jorn-workplace gt-jorn-hut)
(define jorn-leisureplace gt-ws-hall)
(kern-mk-sched 'sch_jorn
               (list 0  0 jorn-bed          "sleeping")
               (list 11 0 jorn-mealplace    "eating")
               (list 12 0 jorn-workplace    "working")
               (list 18 0 jorn-mealplace    "eating")
               (list 19 0 jorn-leisureplace "idle")
               (list 24 0 jorn-workplace    "working")               
               )

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

(define (jorn-on-death knpc)
        (kern-obj-put-at (kern-mk-obj t_skull_ring_j 1) (kern-obj-get-location knpc))
        )

;;----------------------------------------------------------------------------
;; Conv
;; 
;; ¥¸¥ç¡¼¥ó¤Ï¸µ³¤Â±¤Î°­Åޤǡ¢º£¤ÏÎФÎÅã¤Ë¤¤¤ë¡£
;; Èà¤Ï¤«¤Ä¤Æ»üÈῼ¤¤»à¹æ¤Î¾èÁÈ°÷¤Ç¡¢Ë´Îî¤È¤Ê¤Ã¤¿¥¬¡¼¥Æ¥£Á¥Ä¹¤ËÉü½²¤Î¤¿¤áÄɤï
;; ¤ì¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------

;; Basics...
(define (jorn-hail knpc kpc)
  (say knpc "¡Î¤¢¤Ê¤¿¤ÏÍð˽¤½¤¦¤ÊÉÔµ¡·ù¤ÊÃˤȲñ¤Ã¤¿¡£¡Ï²¿¤À¡©"))

(define (jorn-default knpc kpc)
  (say knpc "¾¤òÅö¤¿¤Ã¤Æ¤¯¤ì¡£"))

(define (jorn-name knpc kpc)
  (say knpc "²¶¤Ï¥¸¥ç¡¼¥ó¤À¡£Ê¹¤¤¤¿¤³¤È¤¢¤ë¤«¡©")
   (quest-data-update 'questentry-ghertie 'jorn-loc 1)
  (if (yes? kpc)
      (say knpc "¤½¤ê¤ã¤¤¤¤¡£·Ù¹ð¤µ¤ì¤¿¤À¤í¤¦¡©")
      (say knpc "¤ªµ¤¤ÎÆǤˡ£²ø²æ¤·¤¿¤¯¤Ê¤¤¤À¤í¤¦¡©")))

(define (jorn-join knpc kpc)
  (say knpc "¡ÎÈà¤ÏÎä¤ä¤ä¤«¤Ë¾Ð¤Ã¤¿¡£¡Ï"))

(define (jorn-job knpc kpc)
  (say knpc "¤¢¤ó¤¿¤Ë¤Ï´Ø·¸¤Ê¤¤¤Í¡£"))

(define (jorn-bye knpc kpc)
  (say knpc "¡ÎÈà¤Ï¤¢¤Ê¤¿¤ò̵»ë¤·¤¿¡£¡Ï"))


;; Town & Townspeople

;; Quest-related
(define (jorn-pira knpc kpc)
  (say knpc "áû¤Ë¤µ¤ï¤ëÅÛ¤À¤Ê¡£"))

(define (jorn-ring knpc kpc)
      (quest-data-update 'questentry-ghertie 'jorn-loc 1)
        (say knpc "¡ÎÈà¤ÏÎ䤿¤¤ÌܤǤ¢¤Ê¤¿¤ò¸«¤¿¡£¡Ï¤Ê¤Ë¡©¤³¤ì¤¬Íߤ·¤¤¤Î¤«¡©")
        (if (no? kpc)
            (say knpc "¤Ê¤éÌÛ¤Ã¤Æ¤í¡£")
            (begin
              (say knpc "¤Ê¤é¤Ð¤³¤Î»Ø¤òÀÚ¤é¤Í¤Ð¤Ê¤é¤ó¤Ê¡£"
                   "¤É¤¦¤À¡©ÀÚ¤ë½àÈ÷¤Ï¤Ç¤­¤¿¤«¡©")
              (if (no? kpc)
                  (say knpc "¡ÎÈà¤Ï¤¢¤¶¾Ð¤Ã¤¿¡£¡Ï¤½¤¦¤Ï»×¤ï¤Ê¤¤¤Í¡£")
                  (begin
                    (say knpc "¡Î¶«¤ÓÀ¼¤ò¾å¤²¤ë¤È¡¢Èà¤Ï¸«¤¨¤Ê¤¤¤Û¤É¤Î®¤µ¤Ç·õ¤òÈ´¤­¡¢¤¢¤Ê¤¿¤ÈƱ¤¸¤è¤¦¤ËÀÚ¤ê¤Ä¤±¤Æ¤­¤¿¡ª¡Ï")
                    (kern-being-set-base-faction knpc faction-outlaw)
                    (kern-conv-end))))))

(define jorn-conv
  (ifc basic-conv

       ;; basics
       (method 'default jorn-default)
       (method 'hail jorn-hail)
       (method 'bye  jorn-bye)
       (method 'job  jorn-job)
       (method 'name jorn-name)
       (method 'join jorn-join)
       
       ;; other responses
       (method 'pira jorn-pira)
       (method 'gher jorn-pira)
       (method 'merc jorn-pira)
       (method 'ring jorn-ring)

       ))

(define (mk-jorn)
        (let ((knpc
                (kern-mk-char 
                        'ch_jorn           ; tag
                        "¥¸¥ç¡¼¥ó"         ; name
                        jorn-species     ; species
                        jorn-occ         ; occ
                        s_brigand        ; sprite
                        faction-men      ; starting alignment
                        2 0 1            ; str/int/dex
                        0 0              ; hp mod/mult
                        0 0              ; mp mod/mult
                        max-health ; hp
                        -1                ; xp
                        max-health ; mp
                        0
                        jorn-lvl
                        #f               ; dead
                        'jorn-conv       ; conv
                        sch_jorn           ; sched
                        'spell-sword-ai  ; special ai

                        ;; container
                        (mk-inventory (list
                                (list 1 t_sword_2)
                                (list 1 t_dagger_4)
                                (list 1 t_armor_leather_2)
                                (list 1 t_leather_helm_2)
                                (list 67 t_gold_coins)
                                (list 3 t_picklock)
                                (list 3 t_heal_potion)
                        ))
                        nil              ; readied
                )))
                (bind knpc  (jorn-mk))
                (kern-char-force-drop knpc #t)
                (kern-char-arm-self knpc)
                (kern-obj-add-effect knpc 
                        ef_generic_death
                        'jorn-on-death)
                knpc
        ))