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)))
68