worlds/haxima-1.002/joel.scm

   1 ;;----------------------------------------------------------------------------
   2 ;; Constants
   3 ;;----------------------------------------------------------------------------
   4 (define joel-lvl 3)
   5 (define joel-species sp_human)
   6 (define joel-occ nil)
   7
   8 ;;----------------------------------------------------------------------------
   9 ;; Schedule
  10 ;;
  11 ;; ¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÌç¤ÎÁ°
  12 ;;----------------------------------------------------------------------------
  13 (define joel-bed (list 'p_gate_to_absalot 8 9 1 1))
  14 (define joel-mealplace joel-bed)
  15 (define joel-workplace (list 'p_gate_to_absalot 7 10 5 5))
  16 (define joel-leisureplace joel-workplace)
  17 (kern-mk-sched 'sch_joel
  18                (list 0  0 joel-bed          "sleeping")
  19                (list 5  0 joel-mealplace    "eating")
  20                (list 6  0 joel-workplace    "working")
  21                (list 12 0 joel-mealplace    "eating")
  22                (list 13 0 joel-workplace    "working")
  23                (list 18 0 joel-mealplace    "eating")
  24                (list 19 0 joel-leisureplace "idle")
  25                (list 21 0 joel-bed          "sleeping")
  26                )
  27
  28 ;;----------------------------------------------------------------------------
  29 ;; Gob
  30 ;;----------------------------------------------------------------------------
  31 (define (joel-mk) nil)
  32
  33 ;;----------------------------------------------------------------------------
  34 ;; Conv
  35 ;;
  36 ;; ¥¸¥ç¥¨¥ë¤ÏÁÇËÑ¤Êµí»ô¤¤¤Ç¡¢¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÄ®¤ÎÇË²õ¤µ¤ì¤¿Ìç¤ÎÁ°¤ÇÊüËÒ¤ò¤·¤ÆÊë
  37 ;; ¤é¤·¤Æ¤¤¤ë¡£
  38 ;;----------------------------------------------------------------------------
  39
  40 ;; Basics...
  41 (define (joel-hail knpc kpc)
  42   (kern-log-msg "¤¢¤Ê¤¿¤ÏÁÇËÑ¤Êµí»ô¤¤¤È²ñ¤Ã¤¿¡£")
  43   (say knpc "¤è¤ª¡£")
  44   )
  45
  46 (define (joel-default knpc kpc)
  47   (say knpc "¤ï¤«¤é¤ó¤Ê¤¢¡¢ÁêËÀ¡£"))
  48
  49 (define (joel-name knpc kpc)
  50   (say knpc "¥¸¥ç¥¨¥ë¡£"))
  51
  52 (define (joel-join knpc kpc)
  53   (say knpc "¤¤¤ó¤ä¡£"))
  54
  55 (define (joel-job knpc kpc)
  56   (say knpc "µí¤ò»ô¤Ã¤È¤ë¡£Ê¿ÏÂ¤Ç¤¨¤¨¤³¤Ã¤¿¡£"))
  57
  58 (define (joel-peac knpc kpc)
  59   (say knpc "¤½¤¦¤µ¤¢¡£¤³¤³¤Ï¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÀÎ¤ÎÌç¤À¤¢¡£"))
  60
  61 (define (joel-absa knpc kpc)
  62   (say knpc "Ãæ¤ËÆþ¤ê¤¿¤¤¤Î¤±¡©")
  63   (if (yes? kpc)
  64       (say knpc "¤ä¤á¤È¤±¡£²¼¤Ï¹ó¤¤ÅÛ¤¬¤¤¤Ã¤Ñ¤¤¤ª¤ë¡£")
  65       (say knpc "¤½¤ì¤¬¤¨¤¨¡£")))
  66
  67 (define (joel-nast knpc kpc)
  68   (say knpc "¥²¥¤¥¶¡¼¡©ÉÔ»à¤Î¼Ô¡©¸å¤Ï¤ï¤«¤ó¤Í¤¨¡£"
  69        "À»µ³»Î¤¿¤Á¤¬Ç¿¤ò»Ä¤·¤ÆÉõ°õ¤¹¤ëÁ°¤«¤é¡¢¤³¤³¤Ï¤Ò¤Ç¤¨½ê¤À¤Ã¤¿¡£"))
  70
  71 (define (joel-fest knpc kpc)
  72   (say knpc "¥°¥é¥¹¥É¥ê¥ó¤«¤éÍè¤¿À»µ³»Î¤¿¤Á¤¬¥¢¥Ö¥µ¥í¥Ã¥È¤òÇË²õ¤·¤¿¡£"
  73         "¿Í¤¬¤¤¤Ê¤¯¤Ê¤Ã¤¿¤é²øÊª¤É¤â¤¬Æþ¤Ã¤Æ¤¤¿¤Î¤µ¤¢¡£"))
  74
  75 (define (joel-gaze knpc kpc)
  76   (say knpc "Àº¿À¤ÎÅÛÎì¼ç¡£¤¤¤Ä¤Ç¤âÂ¾¤ÎÅÛ¤ò»ÙÇÛ¤Ç¤¤ë¤Î¤µ¤¢¡£"
  77        "µ¤¤¤¤Ä¤±¤Ê¤¤¤È¡¢¤ª¤á¤¨¤âÅÛÎì¤Ë¤Ê¤ë¤¾¡£"))
  78
  79 (define (joel-unde knpc kpc)
  80   (say knpc "Í©Îî¡¢³¼¹ü¡¢¸å¤ÏÃÎ¤ê¤¿¤¯¤Í¤¨¡£"))
  81
  82 (define (joel-bye knpc kpc)
  83   (say knpc "¤¸¤ã¤¢¤Ê¤¢¡£"))
  84
  85 (define joel-conv
  86   (ifc basic-conv
  87
  88        ;; basics
  89        (method 'default joel-default)
  90        (method 'hail joel-hail)
  91        (method 'bye joel-bye)
  92        (method 'job joel-job)
  93        (method 'name joel-name)
  94        (method 'join joel-join)
  95
  96        (method 'peac joel-peac)
  97        (method 'nice joel-peac)
  98        (method 'absa joel-absa)
  99        (method 'nast joel-nast)
 100        (method 'stuf joel-nast)
 101        (method 'mons joel-nast)
 102        (method 'fest joel-fest)
 103        (method 'pala joel-fest)
 104        (method 'unde joel-unde)
 105        (method 'gaze joel-gaze)
 106        ))
 107
 108 (define (mk-joel)
 109   (bind
 110    (kern-mk-char
 111     'ch_joel           ; tag
 112     "¥¸¥ç¥¨¥ë"         ; name
 113     joel-species         ; species
 114     joel-occ              ; occ
 115     s_companion_shepherd     ; sprite
 116     faction-men      ; starting alignment
 117     1 0 1            ; str/int/dex
 118     0 0              ; hp mod/mult
 119     0 0              ; mp mod/mult
 120     max-health ; hp
 121     -1                   ; xp
 122     max-health ; mp
 123     0
 124     joel-lvl
 125     #f               ; dead
 126     'joel-conv         ; conv
 127     sch_joel           ; sched
 128     'townsman-ai              ; special ai
 129     nil              ; container
 130     (list t_staff
 131                                                  )              ; readied
 132     )
 133    (joel-mk)))