worlds/haxima-1.002/amy.scm

   1 ;;----------------------------------------------------------------------------
   2 ;; Constants
   3 ;;----------------------------------------------------------------------------
   4 (define amy-lvl 1)
   5 (define amy-species sp_human)
   6 (define amy-occ oc_wright)
   7
   8 ;;----------------------------------------------------------------------------
   9 ;; Schedule
  10 ;;
  11 ;; µßÉÏ±¡(ÌÂ¤¤¿Í¤ÎÃç´Ö¤Ë¤Ê¤ë¤Þ¤Ç)
  12 ;;----------------------------------------------------------------------------
  13 (define amy-bed poorh-bed2)
  14 (define amy-mealplace poorh-sup2)
  15 (define amy-workplace poorh-pasture)
  16 (define amy-leisureplace poorh-dining)
  17 (kern-mk-sched 'sch_amy
  18                (list 0  0 amy-bed          "sleeping")
  19                (list 7  0 amy-mealplace    "eating")
  20                (list 8  0 amy-workplace    "working")
  21                (list 12 0 amy-mealplace    "eating")
  22                (list 13 0 amy-workplace    "working")
  23                (list 18 0 amy-mealplace    "eating")
  24                (list 19 0 amy-leisureplace "idle")
  25                (list 22 0 amy-bed          "sleeping")
  26                )
  27
  28 ;;----------------------------------------------------------------------------
  29 ;; Gob
  30 ;;----------------------------------------------------------------------------
  31 (define (amy-mk) nil)
  32
  33 ;;----------------------------------------------------------------------------
  34 ;; Conv
  35 ;;
  36 ;; ¥¨¥¤¥ß¡¼¤Ï¿¦¿Í¤Î½÷À¤À¤¬¡¢¿¦¤ò¼º¤Ã¤Æ¤¤¤ë¡£
  37 ;; Èà½÷¤ÏµßÉÏ±¡¤Ë¤¤¤ë¡£
  38 ;; ¥¨¥¤¥ß¡¼¤ÏÃç´Ö¤Ë¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£
  39 ;;----------------------------------------------------------------------------
  40
  41 ;; Basics...
  42 (define (amy-hail knpc kpc)
  43   (meet "¤¢¤Ê¤¿¤Ï·Ð¸³Ë¤«¤½¤¦¤Ê¿¦¿Í¤Î½÷À¤È²ñ¤Ã¤¿¡£")
  44   (say knpc "¤³¤ó¤Ë¤Á¤Ï¡£")
  45   )
  46
  47 (define (amy-name knpc kpc)
  48   (say knpc "¥¨¥¤¥ß¡¼¤È¸Æ¤ó¤Ç¤¯¤À¤µ¤¤¡£")
  49   )
  50
  51 (define (amy-join knpc kpc)
  52   (if (is-player-party-member? knpc)
  53       (say knpc "¤â¤¦Ãç´Ö¤Ë²Ã¤ï¤Ã¤Æ¤¤¤Þ¤¹¡ª")
  54       (begin
  55         (say knpc "¤½¤¦¸À¤Ã¤Æ¤¯¤ì¤ë¤È¤Ï»×¤Ã¤Æ¤Ê¤«¤Ã¤¿¤ï¡ª")
  56         (join-player knpc)
  57         (kern-conv-end)
  58         )))
  59
  60 (define (amy-job knpc kpc)
  61   (say knpc "¤¨¤¨¡Ä¡¢½¤Íý²°¤òÀ¸¶È¤È¤·¤Æ¤¤¤ë¤Î¤À¤±¤ì¤É¡¢"
  62        "ºÇ¶á¤Ï¤¢¤Þ¤ê»Å»ö¤¬¤Ê¤¤¤Î¤è¡£")
  63   )
  64
  65 (define (amy-bye knpc kpc)
  66   (say knpc "¤µ¤è¤¦¤Ê¤é¡£")
  67   )
  68
  69 (define (amy-mean knpc kpc)
  70   (say knpc "Èà¤Ï¤¹¤Ð¤é¤·¤¤¿Í¤Ç¤¹¡£"
  71        "¤³¤ÎµßÉÏ±¡¤Ë¤¤¤Ê¤±¤ì¤Ð¡¢»ä¤Ï¤É¤¦¤Ê¤Ã¤Æ¤¤¤¿¤«¤ï¤«¤ê¤Þ¤»¤ó¡£"
  72        "»ä¤Î¶»¤ò¥¸¥í¥¸¥í¸«¤ë¤³¤È¤â¤Ê¤¤¤Ç¤¹¤·¡£")
  73   )
  74
  75 (define (amy-tink knpc kpc)
  76   (say knpc "½¤Íý²°¤ÏÅÏ¤êÊâ¤¯¿¦¿Í¤Ç¤¹¡£"
  77        "Ä®¤«¤éÄ®¤Ø¤ÈÎ¹¤·¡¢¿§¡¹¤Ê¿Í¤Î¤â¤Î¤ò½¤Íý¤·¤Þ¤¹¡£")
  78   )
  79
  80 (define (amy-luck knpc kpc)
  81   (say knpc "¿Í¡¹¤Ï¸«ÃÎ¤é¤Ì¼Ô¤Ë¿À·Ð¼Á¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£"
  82        "¤ß¤ó¤Ê¼ö¤ï¤ì¤¿¼Ô¤Î¤»¤¤¤Ç¤¹¡£")
  83   )
  84
  85 (define (amy-accu knpc kpc)
  86   (say knpc "¼ö¤ï¤ì¤¿¼Ô¤È¤¤¤¦¤Î¤Ï°¤ò¿òÇÒ¤¹¤ëÈëÌ©¤Î¼Ù¶µ¤Î¿®¼Ô¤¿¤Á¤Ç¤¹¡£")
  87   )
  88
  89 ;; Quest-related
  90
  91 (define amy-conv
  92   (ifc basic-conv
  93
  94        ;; basics
  95        (method 'hail amy-hail)
  96        (method 'bye amy-bye)
  97        (method 'job amy-job)
  98        (method 'name amy-name)
  99        (method 'join amy-join)
 100
 101
 102        (method 'mean amy-mean)
 103        (method 'tink amy-tink)
 104        (method 'luck amy-luck)
 105        (method 'accu amy-accu)
 106        ))
 107
 108 (define (mk-amy)
 109   (bind
 110    (kern-mk-char
 111     'ch_amy           ; tag
 112     "¥¨¥¤¥ß¡¼"             ; name
 113     amy-species         ; species
 114     amy-occ              ; occ
 115     s_companion_tinker ; sprite
 116     faction-men      ; starting alignment
 117     2 4 4            ; str/int/dex
 118     pc-hp-off  ; hp bonus
 119     pc-hp-gain ; hp per-level bonus
 120     1 ; mp off
 121     1 ; mp gain
 122     max-health ; hp
 123     -1                   ; xp
 124     max-health ; mp
 125     0
 126     amy-lvl
 127     #f               ; dead
 128     'amy-conv         ; conv
 129     sch_amy           ; sched
 130     'townsman-ai              ; special ai
 131     nil              ; container
 132     (list
 133      t_armor_leather
 134      t_leather_helm
 135      t_sling
 136      t_sword
 137     ))
 138    (amy-mk)))