1;;---------------------------------------------------------------------------- 2;; Map 3;;---------------------------------------------------------------------------- 4(kern-mk-map 5 'm_glasdrin 31 31 pal_expanded 6 (list 7 "xx xx xx xx xx .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. xx xx xx xx xx " 8 "xx ,, ,, ,, xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx cc ++ cc xx " 9 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, cc cc cc xx " 10 "xx ,, ,, ,, xx xx xx xx xx xx xx xx xx xx xx x! xx xx xx xx xx xx xx xx xx xx xx cc cc cc xx " 11 "xx xx ,, xx xx xx .A .R .M .S ]] xx ,, ,, ,, ,, ,, ,, ,, xx .M .E .D .I .C .K xx xx ,, xx xx " 12 ".. xx ,, xx ,, ,, ,, ,, ,, ,, ,, xx ,, pp ,, ,, ,, pp ,, xx ,, ,, ,, ,, ,, ,, xx xx ,, xx .. " 13 ".. xx ,, xx ,, xx @@ @@ @@ @@ @@ xx ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, xx xx ,, xx .. " 14 ".. xx ,, xx ,, ,, ,, ,, ,, ,, ,, xx ,, pp ,, ,, ,, pp ,, xx ,, ,, ,, ,, ,, ,, xx xx ,, xx .. " 15 ".. xx ,, xx xx xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, xx xx ,, xx .. " 16 ".. xx ,, xx xx xx xx xx ,, sA xx xx ,, pp ,, ,, ,, pp ,, xx xx xx ,, sH xx xx xx xx ,, xx .. " 17 ".. xx ,, xx ,, ,, xx .. cc .. xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx cc .. xx ,, ,, xx ,, xx .. " 18 ".. xx ,, xx ,, ,, ,, cc cc xx xx ,, xx xx ,, ,, ,, xx xx ,, xx xx cc cc ,, ,, ,, xx ,, xx .. " 19 ".. xx ,, xx xx xx xx .. cc xx ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx cc .. xx xx xx xx ,, xx .. " 20 ".. xx ,, xx ,, ,, xx .. cc xx ,, ,, ,, xx w+ ,, w+ xx ,, ,, ,, xx cc .. xx ,, ,, xx ,, xx .. " 21 ".. xx ,, xx ,, ,, ,, cc cc xx ,, ,, ,, xx cc cc cc xx ,, ,, ,, xx cc cc ,, ,, ,, xx ,, xx .. " 22 ".. xx ,, xx xx xx xx .. cc xx xx xx xx x! cc cc cc x! xx xx xx xx cc .. xx xx xx xx ,, xx .. " 23 ".. xx ,, ,, cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc ,, ,, xx .. " 24 ".. xx ,, xx xx xx xx xx xx xx .. .. .. .. cc cc cc t3 tt tt t5 xx xx xx xx xx xx xx ,, xx .. " 25 ".. xx ,, xx .H .O .T .E .L xx .. .. .. .. cc cc cc tt ~3 ~5 tt xx .H .O .L .Y ]] xx ,, xx .. " 26 ".. xx ,, xx ,, ,, ,, ,, ,, ,, .. .. .. .. cc cc cc tt ~a ~c tt xx .G .R .A .I .L xx ,, xx .. " 27 ".. xx ,, xx @@ @@ @@ @@ @@ sI .. .. .. .. cc cc cc ta tt tt tc ws ,, ,, ,, ,, ,, xx ,, xx .. " 28 ".. xx ,, xx ,, ,, ,, ,, ,, ,, cc cc cc cc cc cx cc cc cc cc cc ,, ,, ,, ,, ,, ,, xx ,, xx .. " 29 ".. xx ,, xx x! ,, ,, ,, ,, ws bb .. .. bb cc cc cc bb bb bb bb ws ,, ,, 00 ,, && xx ,, xx .. " 30 ".. xx ,, xx xx ,, xx ,, xx xx .. .. .. .. cc cc cc bb .. .. .. sT ,, ,, 00 ,, ,, xx ,, xx .. " 31 ".. xx ,, xx ,, ,, xx ,, ,, xx .. .. .. .. cc cc cc bb .. tC t7 xx ,, ,, ,, ,, ,, xx ,, xx .. " 32 ".. xx ,, xx ,, ,, xx ,, ,, xx .. .. .. bb cc cc cc bb .. tb tc xx ,, [[ @@ ]] xx xx ,, xx .. " 33 "xx xx ,, xx xx xx xx xx xx xx xx xx xx x! cc w+ cc x! xx xx xx xx ,, ,, ,, ,, xx xx ,, xx xx " 34 "xx ,, ,, ,, xx xx xx xx xx xx ,, ,, ,, w+ cc cc cc w+ ,, ,, ,, xx xx xx xx xx xx ,, ,, ,, xx " 35 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, w+ cc cc cc w+ ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 36 "xx ,, ,, ,, xx xx xx xx xx xx ,, ,, ,, w+ cc cc cc w+ ,, ,, ,, xx xx xx xx xx xx ,, ,, ,, xx " 37 "xx xx xx xx xx .. .. .. .. xx xx xx xx xx cc cc cc xx xx xx xx xx .. .. .. .. xx xx xx xx xx " 38 ) 39 40) 41 42;;---------------------------------------------------------------------------- 43;; Characters 44;;---------------------------------------------------------------------------- 45(kern-load "patch.scm") 46(kern-load "angela.scm") 47(kern-load "jess.scm") 48(kern-load "chester.scm") 49(kern-load "steward.scm") 50(kern-load "ini.scm") 51(kern-load "jeffreys.scm") 52(kern-load "statue-of-justice.scm") 53(kern-load "janice.scm") 54 55;;---------------------------------------------------------------------------- 56;; Place 57;;---------------------------------------------------------------------------- 58(kern-mk-place 59 'p_glasdrin ; tag 60 "Glasdrin" ; name 61 s_keep ; sprite 62 m_glasdrin ; map 63 #f ; wraps 64 #f ; underground 65 #f ; large-scale (wilderness) 66 #f ; tmp combat place 67 nil ; subplaces 68 nil ; neighbors 69 70 (list ;; objects: 71 72 (put (mk-monman) 0 0) 73 74 ;; npcs 75 (put (mk-patch) 0 0) 76 (put (mk-angela) 0 0) 77 (put (mk-jess) 0 0) 78 (put (mk-chester) 0 0) 79 (put (mk-steward) 0 0) 80 (put (mk-ini) 0 0) 81 (put (mk-jeffreys) 0 0) 82 (put (mk-janice) 0 0) 83 (put (mk-bull) 19 24) 84 85 ;; guards 86 (put (guard-pt 'glasdrin-halberdier) 15 25) 87 (put (guard-pt 'glasdrin-halberdier) 14 12) 88 (put (guard-pt 'glasdrin-halberdier) 16 12) 89 (put (guard-pt 'glasdrin-crossbowman) 12 28) 90 (put (guard-pt 'glasdrin-crossbowman) 18 28) 91 92 ;; doors 93 (put (mk-windowed-door) 21 21) 94 (put (mk-locked-door) 24 11) 95 (put (mk-locked-door) 24 14) 96 (put (mk-locked-door) 6 11) 97 (put (mk-locked-door) 6 14) 98 (put (mk-locked-door) 11 11) 99 (put (mk-locked-door) 19 11) 100 (put (mk-windowed-door) 8 9) 101 (put (mk-door) 5 5) 102 (put (mk-door) 5 7) 103 (put (mk-windowed-door) 15 13) 104 105 ;; hospital 106 (put (mk-windowed-door) 22 9) 107 108 109 ;; wall doors 110 (put (mk-locked-door) 3 16) 111 (put (mk-locked-door) 27 16) 112 (put (mk-locked-door) 2 4) 113 (put (mk-locked-door) 4 2) 114 (put (mk-door) 26 28) 115 (put (mk-door) 28 26) 116 117 ;; inn 118 (put (mk-windowed-door) 9 21) 119 (put (mk-door) 9 19) 120 (put (kern-tag 'glasdrin-inn-room-1-door (mk-locked-door)) 5 23) 121 (put (kern-tag 'glasdrin-inn-room-2-door (mk-locked-door)) 7 23) 122 (put (mk-bed) 4 25) 123 (put (mk-bed) 8 25) 124 (put (mk-clock) 4 21) 125 126 ;; NPC beds 127 (put (mk-bed) 26 10) 128 (put (mk-bed) 4 13) 129 (put (mk-bed) 26 13) 130 (put (mk-bed) 4 10) 131 (put (mk-bed) 11 14) 132 (put (mk-bed) 29 28) 133 (put (mk-bed) 19 14) 134 (put (mk-bed) 1 29) 135 136 ;; ladder down to prison 137 (put (mk-ladder-down 'p_prison 6 4) 2 2) 138 139 ;; Stewardess's chest 140 (put (let* ((kchest (make-invisible (mk-chest nil '((1 t_stewardess_journal)))))) 141 (kcontainer-lock-with-key kchest 't_stewardess_chest_key) 142 kchest) 143 10 14) 144 145 ;; Statue of justice 146 (put (kern-mk-obj t_statue_of_justice 1) 15 21) 147 148 ) 149 150 151 ;; on-entry hook 152 (list 'on-entry-to-dungeon-room 153 'lock-inn-room-doors 154 ) 155 (list ;; edge entrances 156 (list northwest 16 30) 157 (list northeast 14 30) 158 ) 159) 160 161(mk-place-music p_glasdrin 'ml-large-town) 162