Rev 1001 | Details | Compare with Previous | Last modification | View Log
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 881 | alone | 1 | ;Процедуры вывода "Об игре" и "Об авторах" |
| 2 | ; |
||
| 3 | ;ABOUT |
||
| 4 | |||
| 5 | ;Эти переменные нужно взять |
||
| 6 | ;из основной программы, либо компилировать |
||
| 7 | ;в составе основной проги! |
||
| 8 | ;-------------------- |
||
| 9 | ;PG_VIEW EQU 7 |
||
| 10 | ;PAGE EQU 0 |
||
| 889 | alone | 11 | ;MKEYSp1 EQU 0 |
| 881 | alone | 12 | ;CURSCR EQU 0 |
| 13 | ;PR64 EQU 0 |
||
| 14 | ;IM2M2 EQU 0 |
||
| 15 | ;IM2N EQU 0 |
||
| 16 | ;-------------------- |
||
| 17 | |||
| 971 | alone | 18 | PRINTER_SCREEN=0x4000;#c000 |
| 19 | |||
| 881 | alone | 20 | PRINTER |
| 21 | ;d=0..1 |
||
| 22 | ; LD A,16 |
||
| 23 | ; LD (CURSCR-1),A |
||
| 24 | CALL PAGE_PG_VIEW |
||
| 25 | |||
| 26 | PUSH BC |
||
| 27 | PUSH DE |
||
| 971 | alone | 28 | if EGA |
| 29 | xor a |
||
| 30 | ld (curscrnum_int),a |
||
| 31 | ld e,a |
||
| 32 | OS_SETSCREEN |
||
| 33 | ;ld a,(user_scr1_high) ;ok |
||
| 34 | ;SETPGC000 |
||
| 35 | endif |
||
| 881 | alone | 36 | |
| 37 | PRTER XOR A |
||
| 889 | alone | 38 | LD (MKEYSp1),A |
| 881 | alone | 39 | |
| 40 | LD DE,#1800 |
||
| 971 | alone | 41 | LD HL,PRINTER_SCREEN+0x1800;#D800 |
| 881 | alone | 42 | LD BC,32 |
| 43 | PRTLP0 LD (HL),E |
||
| 44 | CPI |
||
| 45 | JP PE,PRTLP0 |
||
| 46 | HALT |
||
| 47 | DEC D |
||
| 48 | JR NZ,PRTLP0-3 |
||
| 49 | |||
| 971 | alone | 50 | LD HL,PRINTER_SCREEN;#C000 |
| 51 | LD DE,PRINTER_SCREEN+1;#C001 |
||
| 881 | alone | 52 | LD BC,6143 |
| 53 | LD (HL),L |
||
| 54 | LDIR |
||
| 55 | |||
| 56 | POP DE |
||
| 57 | POP BC |
||
| 58 | LD A,D ;Если D=1 - заходим в описание первый раз |
||
| 59 | OR E ;Если DE=0 - выход из описания в меню |
||
| 60 | RET Z |
||
| 61 | DEC D |
||
| 62 | JR Z,PRTLP1 |
||
| 63 | INC D |
||
| 64 | JR PRTLP2 ;Продолжение описания с адреса DE |
||
| 1002 | alone | 65 | PRTLP1 |
| 66 | if RUS |
||
| 67 | LD HL,#1202;3 ;координаты |
||
| 68 | else |
||
| 69 | LD HL,#1201;3 ;координаты |
||
| 70 | endif |
||
| 881 | alone | 71 | LD DE,ABGM1 ;об игре |
| 72 | INC C |
||
| 73 | DEC C |
||
| 74 | JR Z,PRTLP2 |
||
| 75 | LD DE,AUTR ;об авторах |
||
| 76 | PRTLP2 CALL PR64 |
||
| 77 | |||
| 78 | ;можно юзать токен смены координат: 0,1,X,Y |
||
| 79 | |||
| 80 | INC DE |
||
| 81 | LD A,(DE) |
||
| 82 | DEC A |
||
| 83 | JR NZ,PRTLP5 |
||
| 84 | INC DE |
||
| 85 | EX DE,HL |
||
| 86 | LD D,(HL) |
||
| 87 | INC HL |
||
| 88 | LD E,(HL) |
||
| 89 | INC HL |
||
| 90 | EX DE,HL |
||
| 91 | JR PRTLP2 |
||
| 92 | |||
| 93 | PRTLP5 |
||
| 94 | EX DE,HL |
||
| 95 | INC HL |
||
| 96 | LD D,(HL) |
||
| 97 | INC HL |
||
| 98 | LD E,(HL) |
||
| 99 | INC HL |
||
| 100 | LD A,(HL) |
||
| 101 | INC HL |
||
| 102 | LD C,(HL) |
||
| 103 | INC HL |
||
| 104 | LD B,(HL) |
||
| 105 | EX DE,HL |
||
| 106 | PUSH BC |
||
| 107 | PUSH BC |
||
| 108 | |||
| 971 | alone | 109 | LD DE,PRINTER_SCREEN+0x1800;#D800 |
| 881 | alone | 110 | LD B,23 |
| 111 | PRTLP4 PUSH BC |
||
| 112 | ADD HL,HL |
||
| 113 | ADC A,A |
||
| 114 | CALL ATRLIN |
||
| 115 | POP BC |
||
| 116 | DJNZ PRTLP4 |
||
| 117 | |||
| 118 | ;Ожид. клавишу |
||
| 119 | PRTLP3 LD H,25 ;скорость мигания во фреймах |
||
| 120 | HALT |
||
| 889 | alone | 121 | LD A,(MKEYSp1) |
| 881 | alone | 122 | AND %00010000 ;Fire |
| 123 | LD B,A |
||
| 889 | alone | 124 | LD A,(KEYSp1) |
| 881 | alone | 125 | AND %10000000 ;Enter |
| 126 | OR B |
||
| 127 | JR NZ,PRTER |
||
| 128 | DEC H |
||
| 129 | JR NZ,PRTLP3+2 |
||
| 971 | alone | 130 | LD DE,PRINTER_SCREEN+0x1ae0;#DAE0 |
| 881 | alone | 131 | LD A,6 ;Цвет мигания |
| 132 | XOR 6 |
||
| 133 | LD ($-1),A |
||
| 134 | LD C,A |
||
| 135 | CALL ATRLP |
||
| 136 | JR PRTLP3 |
||
| 137 | |||
| 138 | ATRLIN LD C,7 |
||
| 139 | JR NC,$+4 |
||
| 140 | LD C,4 |
||
| 141 | ATRLP LD B,32 |
||
| 142 | EX DE,HL |
||
| 143 | LD (HL),C |
||
| 144 | INC HL |
||
| 145 | DJNZ $-2 |
||
| 146 | EX DE,HL |
||
| 147 | RET |
||
| 148 | |||
| 149 | AUTR |
||
| 1000 | alone | 150 | if RUS |
| 881 | alone | 151 | DB "Художник",13 |
| 1000 | alone | 152 | DB "Кирилл Каган (Surfin Bird)",13 |
| 153 | db "(цвет - Sergio Neznany)",13 |
||
| 154 | db 13 |
||
| 881 | alone | 155 | |
| 156 | DB "Композиторы:",13 |
||
| 157 | DB "Дмитрий Жемков (C-jeff)",13 |
||
| 158 | DB "Андрей Пеунов (Bedjamen)",13 |
||
| 159 | DB "n1k-o",13,13 |
||
| 160 | |||
| 161 | DB "Программисты:",13 |
||
| 162 | DB "Александр Шушков (Axor)",13 |
||
| 163 | DB "Александр Синяков (SAM style)",13 |
||
| 164 | DB "Сергей Бульба",13 |
||
| 165 | DB "Дмитрий Быстров (Alone Coder)",13,13 |
||
| 166 | |||
| 167 | DB "Авторы сценария:",13 |
||
| 168 | DB "Владимир Сивов",13 |
||
| 169 | DB "Александр Разумов",13,13 |
||
| 1000 | alone | 170 | else |
| 171 | DB "Graphics:",13 |
||
| 172 | DB "Kirill Kagan (Surfin' Bird)",13 |
||
| 173 | db "(colour - Sergio Neznany)",13 |
||
| 174 | db 13 |
||
| 881 | alone | 175 | |
| 1000 | alone | 176 | DB "Music:",13 |
| 177 | DB "Dmitry Zhemkov (C-jeff)",13 |
||
| 178 | DB "Andrey Peunov (Bedjamen)",13 |
||
| 179 | DB "n1k-o",13,13 |
||
| 180 | |||
| 181 | DB "Code:",13 |
||
| 182 | DB "Aleksandr Shushkov (Axor)",13 |
||
| 183 | DB "Aleksandr Sinyakov (SAM style)",13 |
||
| 184 | DB "Sergey Bulba",13 |
||
| 185 | DB "Dmitry Bystrov (Alone Coder)",13,13 |
||
| 186 | |||
| 187 | DB "Script:",13 |
||
| 188 | DB "Vladimir Sivov",13 |
||
| 189 | DB "Aleksandr Razumov",13 |
||
| 190 | db "(English - Serg Yakimovich)",13 |
||
| 1002 | alone | 191 | db "(Proofreading - Equinox)",13 |
| 1000 | alone | 192 | db 13 |
| 193 | endif |
||
| 194 | |||
| 881 | alone | 195 | DB "(c) 2003-2008, Perspective",0 |
| 196 | |||
| 1000 | alone | 197 | if RUS |
| 881 | alone | 198 | DB 1,58,23,"В меню",0,2 |
| 1000 | alone | 199 | else |
| 200 | DB 1,58,23," Back",0,2 |
||
| 201 | endif |
||
| 202 | |||
| 1002 | alone | 203 | if RUS |
| 881 | alone | 204 | DB %00010000,%01000000 ;атрибутная раскраска по строкам |
| 1002 | alone | 205 | DB %00100010 |
| 206 | else |
||
| 207 | DB %00100000,%10000000 ;атрибутная раскраска по строкам |
||
| 208 | DB %01000100 |
||
| 209 | endif |
||
| 881 | alone | 210 | DW 0 ;адрес продолжения текста, 0,0-конец |
| 211 | |||
| 1000 | alone | 212 | ABGM1 ;INCBIN "VERA_ZX1.C" ;текст об игре1 |
| 213 | if RUS |
||
| 214 | db 0,1,14,1,"Вера",0,1,0,3 |
||
| 215 | else |
||
| 216 | db 0,1,14,1,"Vera",0,1,0,3 |
||
| 217 | endif |
||
| 218 | if RUS |
||
| 219 | db " Холодный северный ветер, свистевший в голых ветвях деревьев,",13 |
||
| 220 | db "подгонял низко летящие тяжелые свинцовые тучи, грозившие",13 |
||
| 221 | db "разразиться долгим и нудным дождем. Иногда среди них появлялись",13 |
||
| 222 | db "просветы, но они были настолько малы, что убывающий бледный",13 |
||
| 223 | db "месяц едва помещался в них и с трудом разгонял тот мрак, что",13 |
||
| 224 | db "царил сейчас вокруг.",13 |
||
| 225 | db 13 |
||
| 226 | db " Деревянные полусгнившие столбы, поддерживающие потрескавшиеся",13 |
||
| 227 | db "изваяния древних идолов, окружили заброшенное капище и угрожающе",13 |
||
| 228 | db "поскрипывали, как будто предупреждая чужаков, без разрешения",13 |
||
| 229 | db "вторгшихся на запретную территорию о том, что подобное кощунство",13 |
||
| 230 | db "не останется безнаказанным." |
||
| 231 | db 13 |
||
| 232 | db " Их было двое. Один, высокий и худой, закутанный в балахон -",13 |
||
| 233 | db "черный колдун Зловет. Он лихорадочно разгребал деревянной",13 |
||
| 234 | db "лопатой землю на вершине небольшого кургана, время от времени,",13 |
||
| 235 | db "издавая странные звуки, похожие то на хриплый зловещий шепот, то",13 |
||
| 236 | db "на страшные завывания жуткого зверя." |
||
| 237 | else |
||
| 238 | db " The cold north wind whistled in the bare branches of trees and",13 |
||
| 1001 | alone | 239 | db "drove the heavy leaden clouds that threatened to burst into a",13 |
| 240 | db "long boring rain. Sometimes gaps appeared between them, but they",13 |
||
| 241 | db "were so small that the pale waning moon barely fit into them",13 |
||
| 1000 | alone | 242 | db "and only partially dispelled the darkness that reigned around.",13 |
| 243 | db 13 |
||
| 1001 | alone | 244 | db " Half-decayed wooden pillars supported the cracked statues of",13 |
| 1000 | alone | 245 | db "ancient idols that surrounded the abandoned temple and creaked",13 |
| 1001 | alone | 246 | db "with menace, as if to warn strangers who might invade the",13 |
| 247 | db "forbidden territory without permission that such blasphemy would",13 |
||
| 1000 | alone | 248 | db "not remain unpunished.",13 |
| 249 | db 13 |
||
| 250 | db " There were two of them. The first one, tall and thin, wrapped",13 |
||
| 1001 | alone | 251 | db "in a hooded cloak, was the black sorcerer Evilon. He frantically",13 |
| 252 | db "raked the earth at the top of a small mound with a wooden",13 |
||
| 253 | db "shovel. From time to time, he made strange sounds, like a hoarse",13 |
||
| 254 | db "ominous whisper, then like the howls of a terrible beast.",13 |
||
| 1000 | alone | 255 | endif |
| 256 | |||
| 257 | if RUS |
||
| 258 | db 0,1,59,23,"Далее",0 |
||
| 259 | else |
||
| 260 | db 0,1,59,23,"Next",0 |
||
| 261 | endif |
||
| 262 | |||
| 881 | alone | 263 | DB 0 |
| 264 | DB 0,0,64 |
||
| 265 | DW ABGM2 |
||
| 266 | |||
| 1000 | alone | 267 | ABGM2 ;INCBIN "VERA_ZX2.C" ;текст об игре2 |
| 268 | db 0,1,0,1 |
||
| 269 | if RUS |
||
| 270 | db " Вторым участником этой сцены был волк-оборотень, по кличке",13 |
||
| 271 | db "Обжора, абсолютно седой, громадного роста и с неутолимым",13 |
||
| 272 | db "чувством голода в яростных желтых глазах. Он молча сидел в",13 |
||
| 273 | db "стороне и поглядывал по сторонам, охраняя погрузившегося в",13 |
||
| 274 | db "ритуал колдуна.",13 |
||
| 275 | db 13 |
||
| 276 | db " Яркий зеленый свет вдруг на мгновение осветил вершину кургана",13 |
||
| 277 | db "и сразу же погас. Зловет поднялся с колен и, сжимая в руках",13 |
||
| 278 | db "жезл, бросил взгляд на волка: ",34,"Все, серый, отправляйся в логово,",13 |
||
| 279 | db "пока ты мне не нужен, а у меня есть еще кое-какие дела",34,".",0,1,29,12 |
||
| 280 | db "* * *",0,1,0,14 |
||
| 281 | db " Старейшина Хевор задумчиво смотрел на свет чадящих факелов",13 |
||
| 282 | db "освещавших небольшую часть его двора. Где-то на краю освещаемого",13 |
||
| 283 | db "участка мелькнула, одетая в рванину, фигура провидца Глеба. За",13 |
||
| 284 | db "его способности к провидению, ему была выделена маленькая",13 |
||
| 285 | db "сараюшка, по совместительству использующаяся для хранения дров.",13 |
||
| 286 | db "Погрузившись в свои думы, Хевор не услышал, что со спины к нему",13 |
||
| 287 | db "кто-то подошел..." |
||
| 288 | else |
||
| 289 | db " The second participant in this scene was a werewolf named",13 |
||
| 1001 | alone | 290 | db "Eager, grey-haired all over, of enormous stature and with an",13 |
| 1000 | alone | 291 | db "insatiable hunger in his furious yellow eyes. He sat aside",13 |
| 292 | db "silently and looked around, guarding the the sorcerer who was",13 |
||
| 293 | db "deep into the ritual.",13 |
||
| 294 | db 13 |
||
| 295 | db " A bright green light suddenly illuminated the top of the mound",13 |
||
| 296 | db "for a moment and immediately went out. Evilon rose from his",13 |
||
| 297 | db "knees and clutching the staff in his hands, glanced at the wolf:",13 |
||
| 298 | db 34,"That's all, grey thing, go to the lair, until I need you.",13 |
||
| 299 | db "I have some other things to do.",34,0,1,29,13 |
||
| 300 | db "* * *",0,1,0,15 |
||
| 301 | db " Elder Hevor gazed thoughtfully at the glowing torches",13 |
||
| 1001 | alone | 302 | db "illuminating a small part of his courtyard. Somewhere at the",13 |
| 303 | db "edge of the illuminated place a figure glimmered, clad in rags.",13 |
||
| 304 | db "This was Gleb, the seer, who was granted a small firewood shed",13 |
||
| 305 | db "for his gift of prophecy. Sinking into his thoughts, Hevor",13 |
||
| 306 | db "did not hear somebody approaching from behind..." |
||
| 1000 | alone | 307 | endif |
| 308 | |||
| 309 | if RUS |
||
| 310 | db 0,1,25,23,"Верьте в добро",0 |
||
| 311 | else |
||
| 312 | db 0,1,23,23,"Believe in goodness",0 |
||
| 313 | endif |
||
| 314 | |||
| 881 | alone | 315 | DS 6 |