worlds/haxima-1.002/tetzl.scm

   1 ;;----------------------------------------------------------------------------
   2 ;; Constants
   3 ;;----------------------------------------------------------------------------
   4 (define tetzl-lvl 2)
   5 (define tetzl-species sp_spider)
   6 (define tetzl-occ oc_wright)
   7
   8 ;;----------------------------------------------------------------------------
   9 ;; Schedule
  10 ;;
  11 ;; In the monster village of Kun.
  12 ;;----------------------------------------------------------------------------
  13 (define tetzl-bed campfire-3)
  14 (define tetzl-mealplace cantina-1)
  15 (define tetzl-workplace cantina-1)
  16 (define tetzl-leisureplace cantina-1)
  17 (kern-mk-sched 'sch_tetzl
  18                (list 0  0 tetzl-bed          "sleeping")
  19                (list 7  0 tetzl-mealplace    "eating")
  20                (list 8  0 tetzl-workplace    "working")
  21                (list 12 0 tetzl-mealplace    "eating")
  22                (list 13 0 tetzl-workplace    "working")
  23                (list 18 0 tetzl-mealplace    "eating")
  24                (list 19 0 tetzl-leisureplace "idle")
  25                (list 22 0 tetzl-bed          "sleeping")
  26                )
  27
  28 ;;----------------------------------------------------------------------------
  29 ;; Gob
  30 ;;----------------------------------------------------------------------------
  31 (define (tetzl-mk) nil)
  32
  33 ;;----------------------------------------------------------------------------
  34 ;; Conv
  35 ;;
  36 ;; Tetzl is a sentient spider of giant size,
  37 ;; living in the monster village of Kun.
  38 ;;
  39 ;; Currently, no dialog or quests, but this seems a missed opportunity...
  40 ;;----------------------------------------------------------------------------
  41
  42
  43 (define (mk-tetzl)
  44   (bind
  45    (kern-mk-char
  46     'ch_tetzl           ; tag
  47     "Tetzl"             ; name
  48     tetzl-species         ; species
  49     tetzl-occ              ; occ
  50     s_spider     ; sprite
  51     faction-men      ; starting alignment
  52     1 0 1            ; str/int/dex
  53     0 0              ; hp mod/mult
  54     0 0              ; mp mod/mult
  55     max-health ; hp
  56     -1                   ; xp
  57     max-health ; mp
  58         0
  59     tetzl-lvl
  60     #f               ; dead
  61     nil         ; conv
  62     sch_tetzl           ; sched
  63     nil              ; special ai
  64     nil              ; container
  65     nil              ; readied
  66     )
  67    (tetzl-mk)))