worlds/haxima-1.002/thud.scm

   1 ;;----------------------------------------------------------------------------
   2 ;; Constants
   3 ;;----------------------------------------------------------------------------
   4 (define thud-start-lvl  6)
   5
   6 ;;----------------------------------------------------------------------------
   7 ;; Schedule
   8 ;;
   9 ;; ¥Ü¥ì
  10 ;;----------------------------------------------------------------------------
  11 (kern-mk-sched 'sch_thud
  12                (list 0  0  bole-bedroom-thud "idle")
  13                (list 9  0  bole-dining-hall  "idle")
  14                (list 10 0  bole-courtyard   "idle")
  15                (list 12 0  bole-dining-hall   "idle")
  16                (list 23 0  bole-bedroom-thud "idle")
  17                )
  18
  19 ;;----------------------------------------------------------------------------
  20 ;; Gob
  21 ;;
  22 ;; Quest flags, etc, go here.
  23 ;;----------------------------------------------------------------------------
  24 (define (thud-mk) nil)
  25
  26 ;;----------------------------------------------------------------------------
  27 ;; Conv
  28 ;;
  29 ;; ¥É¥ó¤Ï¥¥ã¥¹¥ê¥ó¤ÎÍÑ¿´ËÀ¤Ç¡¢º£¤Ï¤³¤Î¤¢¤¿¤ê¤ËÅ¥ËÀ¤¬¤¤¤ë¤È»×¤¤¡¢¥Ü¥ì¤ËÎ±¤Þ¤Ã
  30 ;; ¤Æ¤¤¤ë¡£Â¿¤¯¤ÎÂ¾¤ÎÅÐ¾ì¿ÍÊª¤Ï¥É¥ó¤ÏÈ¾Ê¬¤Ï¿Í´Ö¤Ç¥ª¡¼¥¬¤Î·ì¤¬Î®¤ì¤Æ¤¤¤ë¡¢¤Þ¤¿
  31 ;; ¤ÏËâ½Ñ(¾¤´Ô¤µ¤ì¤¿¡¢¤Þ¤¿¤Ïºî¤é¤ì¤¿)¤È¹Í¤¨¤Æ¤¤¤ë¡Ä¡£
  32 ;;
  33 ;; ¥É¥ó¤ÏÃç´Ö¤Ë¤Ê¤ë(¤½¤·¤ÆÎ¢ÀÚ¤ë)¡£
  34 ;; Èà¤Ï¥¥ã¥¹¥ê¥ó¤ÎÃç´Ö¤Ç¡¢Èà½÷¤¬Ãç´Ö¤Ë²Ã¤ï¤ë¤ÈÈà¤â²Ã¤ï¤ë¡£
  35 ;;----------------------------------------------------------------------------
  36 (define (thud-hail knpc kpc)
  37   (say knpc "¡Î¤¢¤Ê¤¿¤ÎÁ°¤Ë¤¢¤ë¤Î¤Ï³Î¤«¤Ë¥ª¡¼¥¬¤Î°ìÉô¤À¡£"
  38        "¿ÈÄ¹¤Ï3¥á¡¼¥È¥ëÄø¤¢¤ê¡¢°Ò°µÅª¤À¡£"
  39        "Èà¤ÏÌÜ¤òºÙ¤á¤Æ¤¢¤Ê¤¿¤ò¤Ë¤é¤ó¤À¡£¡Ï"))
  40
  41 (define (thud-default knpc kpc)
  42   (say knpc "¡ÎÈà¤Î°Ò°µÅª¤ÊÌÜ¤ÏÆ°¤«¤Ê¤«¤Ã¤¿¡£¡Ï"))
  43
  44 (define (thud-name knpc kpc)
  45   (say knpc "¥É¥ó¤Ï¡¡¤ªÁ°¤¬¡¡·ù¤¤¡£"))
  46
  47 (define (thud-join knpc kpc)
  48   (if (is-player-party-member? ch_kathryn)
  49       (begin
  50         (say knpc "¡Î¥¥ã¥¹¥ê¥ó¤È¤¢¤Ê¤¿¤ò¸«¤ë¤È¡¢Èà¤ÏÉÔËþ¤²¤ËÆ±°Õ¤·¤¿¡£¡Ï")
  51         (kern-char-join-player knpc)
  52         (kern-conv-end))
  53       (say knpc "¡ÎÈà¤Ï¤¢¤¶¾Ð¤Ã¤¿¡£¡Ï")))
  54
  55 (define (thud-job knpc kpc)
  56   (say knpc "¥É¥ó¤Ï¡¡»¦¤¹¤Î¤¬¡¡Âç¹¥¤¡£"))
  57
  58 (define (thud-kathryn knpc kpc)
  59   (say knpc "¥É¥ó¤Ï¡¡»¦¤µ¤Ê¤¤¡£"))
  60
  61 (define (thud-thud knpc kpc)
  62   (say knpc "²¶¤Î¤³¤È¤«¡©¡¡²¶¡¡¤Î¡¡¤³¡¡¤È¡¡¤«¡¡¡©¡¡¥É¥ó¤Ï¡¡¤ªÁ°¤Î¡¡¹ü¤Ç¡¡»õ¤ò¡¡¤Û¤¸¤ë¤¾¡ª¡ª"))
  63
  64 (define (thud-thief knpc kpc)
  65   (say knpc "¡ÎÈà¤ÏÅÜ¤ê½Ð¤·¤¿¡ÏÅ¥ËÀ¤Ï¡¡¥É¥ó¤ò¡¡¤À¤Þ¤·¤¿¡ª¥É¥ó¤Ï¡¡Å¥ËÀ¤ò¡¡¸«¤Ä¤±¤ë¡ª¥É¥ó¤Ï¡¡Å¥ËÀ¤ò¡¡»¦¤¹¡ª"))
  66
  67 (define (thud-find knpc kpc)
  68   (say knpc "¡ÎÈà¤Ï¾¯¤·Íî¤ÁÃå¤¤¤¿¡ÏÀÖ¤¤¡¡½Ê½÷¤¬¡¡Å¥ËÀ¤ò¡¡¸«¤Ä¤±¤ë¡£¡¡Å¥ËÀ¤Ï¡¡±£¤ì¡¡¤é¤ì¤Ê¤¤¡£"))
  69
  70 (define (thud-red-lady knpc kpc)
  71   (say knpc "¡ÎÈà¤Ï¶²¤í¤·¤¤ÌÜ¤Ä¤¤Ç¤¢¤Ê¤¿¤ò¸«¤¿¡ÏÀÖ¤¤¡¡½Ê½÷¤«¤é¡¡Î¥¤ì¤í¡£"))
  72
  73 (define thud-conv
  74   (ifc nil
  75        (method 'default thud-default)
  76        (method 'hail thud-hail)
  77        (method 'bye
  78                (lambda (knpc kpc)
  79                  (say knpc "¡ÎÈà¤Ï¤¦¤ó¤¶¤ê¤·¤¿ÌÜ¤Ç¤¢¤Ê¤¿¤¬µî¤ë¤Î¤ò¸«¤Æ¤¤¤¿¡£¡Ï")))
  80        (method 'job  thud-job)
  81        (method 'name thud-name)
  82        (method 'join thud-join)
  83
  84        (method 'find thud-find)
  85        (method 'kath thud-kathryn)
  86        (method 'kill thud-job)
  87        (method 'lady thud-red-lady)
  88        (method 'love thud-job)
  89        (method 'red  thud-red-lady)
  90        (method 'thie thud-thief)
  91        (method 'thud thud-thud)
  92        ))
  93
  94 ;;----------------------------------------------------------------------------
  95 ;; First-time constructor
  96 ;;----------------------------------------------------------------------------
  97 (define (mk-thud)
  98   (bind
  99     (kern-char-arm-self
 100      (kern-mk-char
 101       'ch_thud ;;.....tag
 102       "¥É¥ó" ;;.......name
 103       sp_troll ;;.....species
 104       oc_warrior ;;...occupation
 105       s_troll ;;......sprite
 106       faction-men ;;..faction
 107       4 ;;............custom strength modifier
 108       0 ;;............custom intelligence modifier
 109       2 ;;............custom dexterity modifier
 110       2 ;;............custom base hp modifier
 111       1 ;;............custom hp multiplier (per-level)
 112       0 ;;............custom base mp modifier
 113       0 ;;............custom mp multiplier (per-level)
 114       max-health;;..current hit points
 115       -1  ;;...........current experience points
 116       max-health ;;..current magic points
 117       0
 118       thud-start-lvl  ;;..current level
 119       #f ;;...........dead?
 120       'thud-conv ;;...conversation (optional)
 121       sch_thud ;;.....schedule (optional)
 122       'townsman-ai ;;..........custom ai (optional)
 123       nil ;;..........container (and contents)
 124       ;;.........readied arms (in addition to the container contents)
 125       (list
 126        t_2h_axe
 127        t_iron_helm
 128        t_armor_plate
 129        )
 130       nil ;;..........hooks in effect
 131       ))
 132    (thud-mk)))