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