1;;---------------------------------------------------------------------------- 2;; Constants 3;;---------------------------------------------------------------------------- 4(define jones-lvl 6) 5(define jones-species sp_human) 6(define jones-occ nil) 7 8;;---------------------------------------------------------------------------- 9;; Schedule 10;; 11;; In the Keep guarding Kurpolis. 12;;---------------------------------------------------------------------------- 13(define jones-bed ph-bed1) 14(define jones-mealplace ph-tbl1) 15(define jones-workplace ph-arms) 16(define jones-leisureplace ph-hall) 17(kern-mk-sched 'sch_jones 18 (list 0 0 jones-bed "sleeping") 19 (list 7 0 jones-mealplace "eating") 20 (list 8 0 jones-workplace "working") 21 (list 12 0 jones-mealplace "eating") 22 (list 13 0 jones-workplace "working") 23 (list 18 0 jones-mealplace "eating") 24 (list 19 0 jones-leisureplace "idle") 25 (list 22 0 jones-bed "sleeping") 26 ) 27 28;;---------------------------------------------------------------------------- 29;; Gob 30;;---------------------------------------------------------------------------- 31(define (jones-mk) nil) 32 33;;---------------------------------------------------------------------------- 34;; Conv 35;; 36;; Jones runs the supply depot for the Glasdrin militia. 37;; He is stationed in the Keep guarding Kurpolis. 38;;---------------------------------------------------------------------------- 39 40;; Basics... 41(define (jones-name knpc kpc) 42 (say knpc "Jonesy at yer service.")) 43 44(define (jones-job knpc kpc) 45 (say knpc "I run the Supply Depot for the Glasdrin militia. Would you like to buy some supplies?") 46 (if (yes? kpc) 47 (jones-trade knpc kpc) 48 (say knpc "If you ever need any I'll be right here."))) 49 50;; Trade... 51(define jones-merch-msgs 52 (list "Come by the Supply Depot between 9:00AM and 6:00PM." 53 "I keep the basics in stock." 54 nil 55 nil 56 "Are you sure you have enough? You better get some more." 57 "I hope you've got enough, for your sake." 58 )) 59 60(define jones-catalog 61 (list 62 (list t_arrow 1 "Down here you'll go through arrows like a troll goes through grog!") 63 (list t_bolt 1 "You can run out of bolts in the blink of a gazer's eye!") 64 (list t_oil 6 "Yes, stock up on plenty of that flaming oil. It gets worse deeper down.") 65 (list t_torch 6 "You don't want to run out of torches down here!") 66 (list t_heal_potion 23 "Yes, they are spendy, but healing potions are hard to get and critical to have.") 67 (list t_mana_potion 23 "You better buy extra mana potions. Your mages will be working overtime.") 68 (list t_food 10 "There's nothing worse than runnning out of food when you're lost in the lower levels.") 69 )) 70 71(define (jones-trade knpc kpc) (conv-trade knpc kpc "buy" jones-merch-msgs jones-catalog)) 72 73;; Quest-related 74 75(define jones-conv 76 (ifc kurpolis-conv 77 78 ;; basics 79 (method 'job jones-job) 80 (method 'name jones-name) 81 82 ;; trade 83 (method 'trad jones-trade) 84 (method 'buy jones-trade) 85 86 )) 87 88(define (mk-jones) 89 (bind 90 (kern-mk-char 91 'ch_jones ; tag 92 "Jones" ; name 93 jones-species ; species 94 jones-occ ; occ 95 s_townsman ; sprite 96 faction-men ; starting alignment 97 2 0 0 ; str/int/dex 98 0 0 ; hp mod/mult 99 0 0 ; mp mod/mult 100 max-health ; hp 101 -1 ; xp 102 max-health ; mp 103 0 104 jones-lvl 105 #f ; dead 106 'jones-conv ; conv 107 sch_jones ; sched 108 'townsman-ai ; special ai 109 nil ; container 110 (list t_axe 111 t_armor_chain) ; readied 112 ) 113 (jones-mk))) 114