1(kern-load "gregor.scm") 2 3;;----------------------------------------------------------------------------- 4;; Make some chests containing items to get the player started. 5;; These will be placed on the map in the shrine room in the SW. 6;;----------------------------------------------------------------------------- 7(define supplies_chest 8 (mk-chest 9 nil ;; trap 10 11 '( 12 13 ;; Food 14 (10 t_food) 15 16 ;; Gold 17 (10 t_gold_coins) 18 19 ;; Reagents 20 (10 sulphorous_ash) 21 (10 ginseng) 22 (10 garlic) 23 (10 spider_silk) 24 (6 blood_moss) 25 (6 black_pearl) 26 (3 nightshade) 27 (3 mandrake) 28 29 ;; Items 30 (2 t_heal_potion) 31 (2 t_cure_potion) 32 (2 t_mana_potion) 33 (6 t_torch) 34 (3 t_picklock) 35 36 ;; Arms 37 (1 t_sword) 38 (1 t_shield) 39 (1 t_staff) 40 41 (1 t_sling) 42 (1 t_self_bow) 43 (20 t_arrow) 44 45 ;; Hints/instructions 46 (1 t_manual) 47 (1 t_letter_from_enchanter) 48 (1 t_spell_book_white_magick_1 ) 49 (1 t_spell_book_force_magick_12 ) 50 ) 51 )) 52 53 54 55;;---------------------------------------------------------------------------- 56;; Moongate Clearing 57;; 58;; This is where the player starts out. 59;;---------------------------------------------------------------------------- 60(kern-mk-place 'p_moongate_clearing "Moongate Clearing" 61 s_shrine ;; sprite 62 (kern-mk-map 'm_moongate_clearing 23 28 pal_expanded 63 (list 64 "^3 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^d t3 tt tt tt td ^3 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^5 " 65 "^^ {{ {{ {{ ^^ ^^ ^^ ^c t3 tt tt || || ^b ^^ ^^ {{ {{ {{ ^^ {{ {{ ^^ " 66 "^^ {{ {{ {{ {{ ^^ t3 tt tt || tt tt || |% ^a ^^ {C t7 {{ ^^ ^^ {{ ^^ " 67 "^^ {{ {{ {{ {{ {C tt || || || || tt || || |% ^e t3 tt {A {{ ^^ {{ ^^ " 68 "^^ ^^ {{ {{ {C t3 || || || || tt tt tt || || tt tt tt t5 {A {{ {{ ^^ " 69 "^^ ^^ ^^ ^^ t3 tt || || || tt tt tt tt tt tt tt tt tt tt td {{ ^^ ^^ " 70 "^^ ^^ ^^ ^^ || || || || tt tt tc bb ta tt tt tt tt tt || ^b ^^ ^^ ^c " 71 "^^ ^^ ^^ ^^ || || || tt tt bb .. .. .. bb tt tt tt || || |% ^a ^c |& " 72 "^^ ^^ ^^ ^c || || tt tt tt td .. .. .. tb tt tt tt tt || || || || || " 73 "^^ ^c |# || || || tt tt bb .. .. .. .. .. bb tt tt tt tt tt tt tt tt " 74 "^^ |# || || || || tt tc .. .. .. .. .. .. .. ta tt tt tt tt tt tt tc " 75 "{{ |A || || || || tt bb .. .. .. .. .. .. .. bb tt tt tt tt tt tc {& " 76 "{{ {% |A || || tt tt t5 .. .. .. .. .. .. .. t3 tt tc {# {% te {# {{ " 77 "^^ {{ {{ {{ {% ta tt tt bb .. .. .. .. .. bb tt tc {# {{ {{ {{ {{ {{ " 78 "^^ ^^ ^^ {{ {{ {% ta tt tt td .. .. .. tb tt tt {# ^^ ^^ {{ {{ ^^ ^^ " 79 "^^ ^^ ^^ ^^ {{ {{ {% ta tt bb .. .. .. bb tt tt {A ^^ ^^ ^^ {{ {{ ^^ " 80 "^^ ^^ {7 ^^ ^^ ^^ {{ {% tt td .. .. .. tb tt tt td {{ ^^ ^^ {{ {{ ^^ " 81 "^^ {3 .. {1 {5 ^^ {{ {{ tt bb .. .. .. bb tt tt {B {{ {{ {{ {{ ^^ ^^ " 82 "^^ {2 .. .. {4 ^^ {{ {{ tt td .. .. .. tb tt tt tt tt t5 {A ^^ ^^ ^^ " 83 "^^ {a .. {8 {c ^^ {{ {{ tt bb .. .. .. bb te bb te bb tt t5 ^^ ^^ ^^ " 84 "^^ ^^ {e ^^ ^^ ^^ {{ {{ tt td .. .. .. .. .. .. .. .. ta tt ^^ ^^ ^^ " 85 "^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ tt bb .. .. .. .. .. .. .. .. bb tt ^^ ^^ ^^ " 86 "^^ ^^ ,H ,A ,I ,L ^^ ^^ tt t5 .. .. .. .. .. .. .. .. tb tt ^a ^^ ^^ " 87 "^^ {3 .. .. .. .. {5 ^^ ta tc bb .. bb t7 bb .. .. .. bb tt t5 ^a ^^ " 88 "^^ {2 .. .. .. .. .. {9 .. .. .. tC t3 tt td .. .. .. tb tt tt t5 ^e " 89 "^^ {2 .. .. .. .. {4 ^^ t3 || tt tt tt tt bb .. .. .. bb tt tt tt t5 " 90 "^^ ,S ,E ,E ,K ,E ,R ^^ || || || tt tt tc .. .. .. .. .. ta tt tt tt " 91 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ta || tt tt tc bb .. .. .. .. .. bb ta tt tc " 92 ) 93 ) 94 #f #f #f #f 95 ;; subplaces 96 nil 97 ;; neighbors 98 nil 99 100 ;; *** contents of the place *** 101 (list 102 (list (kern-tag 'black-gate (mk-moongate nil)) 11 11) 103 (list (mk-gregor) 1 23) 104 (list supplies_chest 1 24) 105 ) 106 107 nil ;; hooks 108 (list ;; edge entrances 109 (list north 16 27) 110 (list east 0 11) 111 (list west 22 10) 112 (list northeast 8 27) 113 (list southeast 9 0) 114 (list southwest 22 7) 115 ) 116) ;; end of place p_moongate_clearing 117 118(mk-place-music p_moongate_clearing 'ml-small-town) 119