Динамическая графика 1994 г.

Анимаци в растровой графике - Управление спрайтами с клавиатуры с использованием прерываний 2~го рода.


2.1.5. Управление спрайтами с клавиатуры с использованием прерываний 2~го рода.

Выше мы уже говорили, что существуют два основных метода управления движением спрайтов. Первый - это управление от клавиатуры или джойстика, т.е. управление от пользователя. Второй - автоматическое управление из программы. Обычно герои игры (пользовательские персонажи) управляются от клавиатуры, а монстры (непользовательские персонажи) управляются автоматически по заранее заданному алгоритму. При этом алгоритм управления ими может быть достаточно сложным и использовать методы искусственного интеллекта

Листинг 11

Загрузчик процедуры, управляющей спрайтом от клавиатуры.

10 REM *** Загрузчик машинного кода

20 LET adr=53100: LET long=250: LET check=81326: LET sum=0 30 FOR k=0 TO long-1: READ a 40 POKE (adr+k),a: LET sum=sum+a 50 NEXT k

60 IF sumocheck THEN PRINT "??": STOP 100 REM *** Данные для машинного кода

110

DATA

042

,011,

092,

017

,004

120

DATA

000

,025,

126,

230

,001

130

DATA

050

,095,

208,

032

,011

140

DATA

042

,096,

208,

237

,075

150

DATA

106

,207,

205,

196

,209

160

DATA

201

,03C,

008,

025

,078

170

DATA

025

,070,

025,

126

,230

180

DATA

001

,050,

093,

208

,025

190

DATA

126

,033,

009,

213

,017

200

DATA

063

.000.

025.

061

.032

210 DATA 252,034,096,208,205 220 DATA 093,210,237,067,106 230 DATA 207,243,175,071,050 240 DATA 094,208,062,207,033 250 DATA 002,206,119,035,016 260 DATA 252,062,206,237,071 270 DATA 237,094,251,201,000

280

DATA

000,

000,

000

,000

,000

290

DATA

000,

000,

000

,000

,000

300

DATA

000,

000,

000

,000

,255

310

DATA

243,

245,

197

,213

,229

320

DATA

008,

245,

008

,221

,229

330

DATA

058,

095,

208

,254

,000

340

DATA

040,

024,

205

,007

,208

350

DATA

058,

094,

208

,254

,000

360

DATA

040,

014,

058

,093

,208

370

DATA

254,

000,

040

,007

,205

380

DATA

123,

207,

175

,050

,095

390

DATA

208,

195,

252

,207

,221

400

DATA

225,

008,

241

,008

,225

410

DATA

209,

193,

241

,251

,201

420

DATA

237,

075,

106

,207

,042

430

DATA

096,

208,

062

,239

,219

440

DATA

254,

203,

103

,040

,044

450

DATA

203,

095,

040

,031

,203

460

DATA

087,

040,

018

,062

,247

470

DATA

219,

254,

203

,103

,040

480

DATA

001,

201,

013

,013

,013

490

DATA

121,

230,

252

,200

,024

500

DATA

025,

012,

012

,012

,062

510

DATA

231,

145,

216

,024

,016

520 DATA 005,005,005,120,230 530 DATA 252,200,024,007,004 540 DATA 004.004.062.153.144

550 DATA 216,197,237,075,106 560 DATA 207,205,196,209,193 570 DATA 205,093,210,050,094 580 DATA 208,237,067,106,207 590 DATA 201,000,000,000,064 600 DATA 215,000,000,000,000

Формат управляющей процедуры.

DBF FNh (s,x,y,c,n)

s - переключатель (SWITCH). Если 8=1, процедура должна быть включена. Если 8=0 - процедура выключается. Необходимость в специальном способе отключения процедуры связана с тем, что процедура размещается и работает в памяти резидентно, от прерываний. Поэтому ее нетрудно включить, но выключить ее из БЕЙСИКа не удастся, если не предусмотреть для этого специальные меры. Интересно, что после того, как процедура отработает и Вы в БЕЙСИКе войдете в режим редактирования программы, спрайт может продолжать бегать по экрану, подчиняясь нажатиям управляющих клавиш. Для отключения процедуры и предусмотрен параметр 8=0. Вызов процедуры для отключения можно делать с одним этим параметром, не указывая все прочие. В этом случае процедуру выключения спрайта можно определить, как Fn z(s).

х,у - координаты исходной позиции спрайта. За начало отсчета принимается левый верхний угол экрана.

0<=х<=231 0<=у<=154

с - флаг детекции коллизии. 1 - включен. 0 - выключен.

п - номер спрайта (1...10).

Листинг 12

Процедура, управляющая спрайтом от клавиатуры

Адрес Маш-код Метка Мнемоника

Комментарий•

YXLAST DEFW #0000

LD HL,(#5С0В)

LD DE,#0004

ADD HL,DE

LD A,(HL)

AND #01

LD (SWTCH),A

CF6A 0000

CF6C 2А0В5С

CF6F 110400 CF72 19

CF73 7Е CF74 Е601

CF76 325FD0 CF79 200В

3R NZ,CONT

CF7B CF7E CF82

CF85 CF86 CF88 CF89 CF8A CF8B CF8C CF8D CF8E

2A60D0 S-LAST LD HL,(ADSPR) ED4B6ACF LD BC,(#CF6A)

CDC4D1 CALL SPRDRV-S

C9

1E08

19

4E

19

46

19

7E

E601

RET

LD

ADD

LD

ADD

LD

ADD

LD

AND

E, #08 HL,DE C,(HL) HL, DE В,(HL) HL,DE A,(HL) #01

Последние координаты у и x. ;По ним можно определить, например, где произошла коллизия с препятствием. Установление адресов параметров функции пользователя Fn (). Сдвиг от DEFADD на 4 байта, переход к первому параметру. Прием параметра 8. Маскирование старших битов .

Запомнили в переменной. Если 8=1, то выключаться не надо и работу продолжаем .

Адрес шаблона спрайта-Последние координаты у,х Стирание спрайта вызовом драйвера SPRDRV-S. Выключение процедуры. Сдвиг еще на 8 байтов ко второму параметру. Координата х. Переход к 3-му пар-ру. Координата у. Переход к пар-ру с. Приняли параметр. Маскирование старших битов.

Адрес Маш.код Метка Мненоиика__Комментарий.

CF90 325DD0 LD (#D05D) ,А ;Запомнили состояние фла-

;га детекции коллизии в программной переменной.

CF93

19

ADD

HL,DE

Переход к пар-ру п.

CF94

LD

A,(HL)

Приняли номер спрайта.

CF95

2109D5

LD

HL,#D509

Определение начала

CF98

113F00

LD

DE,#003F

шаблона спрайта в таб

CF9B

19 LOOP

ADD

HL,DE

лице по его номеру (см.

CF9C

3D

DEC

A

комментарий на с.26).

CF9D

20FC

JR

NZ,LOOP

CF9F

2260D0

LD

(ADSPR),HL

Запомнили начало шаблона

CFA2

CD5DD2

CALL

SPRDRV-P

Печать спрайта (см. с. 44).

CFA5

ED436ACF

LD

(YXLAST)

ВС

Текущие координаты у,х.

CFA9

F3

DI

Отключение прерываний, на время организации процедуры обработки IM2.

CFAA

AF

XOR

A

Обнуление аккумулятора.

CFAB

47

LD

B,A

Нуль в счетчике "В".

CFAC

325ED0

LD

(COLLIZ)

A

Инициализация переменной

CFAF

3ECF

LD

A,#CF

Формирование таблицы

CFB1

2102СЕ

LD

HL,#CE02

для IM 2. Начиная с ад

CFB4

77 LOOP

LD

(HL),A

реса #СЕ02 256 байтов

CFB5

23

INC

HL

памяти заполняются кодом

CFB6

10FC

DJNZ

LOOP

#CF. Теперь если мы выс

CFB8

3ECE

LD

A,#CE

тавим в регистре I код

CFBA

ED47

LD

I, A

#СЕ, то независимо от того, что будет на шине

;данных в момент прихода

прерывания, в качестве

;процедуры для его обработки будет назначена процедура, начинающаяся ;с адреса #CECF.

Адрес Маш.код Метка Мнемоника

Комментарий.

;Включение прерываний ;второго рода. ;Разрешение прерываний. ;Возврат.

CFBC ED5E

IM 2

EI

RET

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

CFBE CFBF CFCO CFC1 CFC2 CFC3 CFC4 CFC5 CFC6 CFC7 CFC8 CFC9 CFCA CFCB CFCC CFCD CFCE

FB С9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

RST #38

CFCF FF

CFD0 F3

CFD1 CFD2 CFD3 CFD4 CFD5

F5 С5 D5 Е5 08

DI

PUSH AF PUSH ВС PUSH DE PUSH HL EX AF,AF*

;Начало процедуры обработки прерываний 2-го ;рода. RST #38 - это ;сканирование клавиатурь ;в поисках нажатой клав* ;ши.

;На время обработки IM ; прерывания надо отключать, иначе возможно ;зависание компьютера.

Сохранение всех основных регистров на машинном стеке.

Адрес Наш.код Метка Мнемоника

Комментарий.

CFD6

F5

PUSH

AF

CFD7

08

EX

AF,AF'

CFD8

DDE 5

PUSH

IX

CFDA

3A5FD0

LD

A, (SWTCH)

Переменная SWTCH несет в себе параметр в, определяющий режим Вкл/Выкл

CFDD

FEOO

CP

#00

Если выставлено "Выкл",

CFDF

2818

OR

Z,EXIT

то ничего делать не надо и проследуем на выход.

CFE1

CD07D0

CALL

KEYB

Вызов процедуры, обрабатывающей прерывания 2-го рода

CFE4

3A5EDO

LD

A,(COLLIZ)

Была коллизия при по-

CFE7

FEOO

CP

#00 ;следней печати спрайта?

CFE9

280E

OR

Z.EXIT

Если нет, пройти иа выход.

CFEB

3A5DDO

LD

A.(FLAG)

Если коллизия была, проверяем флаг детекции

CFEE

FEOO

CP

#oo

коллизии.

CFFO

2807

OR

Z.EXIT

Если он отключен, переход на выход.

CFF2

CD7BCF

CALL

S-LAST

Если ои включен, стира-еи спрайт последний раз.

CFF5

AF

XOR

A ;Обнуление аккумулятора.

CFF6

325FD0

LD (SWTCH),A

Засылка иуля в эту пере

менную обеспечит прекра

щение обработки прерыва

ний на следующем проходе

CFF9

C3FCCF

EXIT

OP

END ;Шаг вперед.

CFFC

DDE1

END

POP

IX

CFFE

08

EX

AF.AF'

CFFF

F1

POP

AF

Финишные операции.

D000

08

EX

AF.AF1

Балансировка стека.

DO 01

El

POP

HL

Разрешение преры

D002

D1

POP

DE

ваний .

Адрес Маш.код Метка Мнемоника

Комментарий.

D003 D004 D005 D006

С1 F1 FB С9

POP ВС POP AF EI RET

Возврат

ED4B6ACF

2A60D0

D007 DOOB DOOE

3EEF

D014 D016 D018 D01A D01C D01E

D010 DBFE D012 CB67

282C CB5F 281F CB57 2812 3EF7

D020 DBFE DO22 CB67

D024 2801

ВС, (YXLAST) HL,(ADSPR)

A, #EF

JR

BIT

JR

BIT

3R

LD

IN A,(#FE) BIT 4,A

Z, DOWN 3, A Z,UP 2,A

Z,RIGHT A,#F7

IN A, (#FE) BIT 4,A

JR Z,#D027

KEYB LD LD LD

Координаты y,x Адрес шаблона спрайта. Старший байт адреса порта, равный #EF, указывает на правый полу-ряд верхнего (цифрового) ряда клавиатуры. Порт клавиатуры. Бит 4 соответствует клавише "6" (вниз). Если эта клавиша нажата, бит - выключен. Подробности см. в книге "Программирование в "машинном коде", с.92-94.

Движение "вниз". Проверка клавиши "7" Движение "вверх"-Проверка клавиши "8" Движение "вправо". Старший байт адреса порта, равный #F7, указывает на левый верхний полуряд клавиатуры.

Порт клавиатуры. Проверка клавиши "5" ("влево")-Движение влево.

Адрес Маш.код Метка Мнемоника

Комментарий -

:Выход из процедуры.

D026 С9

RET

Уменьшение координаты х на три единицы.

Проверка на выход за пределы экрана Выход, если так. Иначе продолжить работу Увеличение координаты х на три единицы.

Проверка на выход за пределы экрана. Возврат, если так. Иначе продолжить работу Уменьшение координаты у на три единицы. (Напомним, что у нас за начало отсчета принят левый верхний угол, поэтому при движении вверх координата у не увеличивается, как обычно, а уменьшается.) Проверка на выход за пределы экрана. Возврат, если так. Иначе продолжить работу Увеличение координаты у иа три единицы.

Проверка на выход за пределы экрана.

С С С

А,С #FC

Z

NEXT

С

с с

A,#E7

С

С

NEXT В В В

OD OD OD 79

E6FC

C8 1819 ОС ОС ОС 3EE7 91 D8 1810 05 05 05

LEFT

DEC

DEC

DEC

LD

AND

RET

JR

INC

INC

INC

LD

SUB

RET

JR

DEC

DEC

DEC

D027 D028 D029 D02A D02B

D02D D02E DO 30 D031 D032 DO 33 D035 D036 D037 DO 39 DO ЗА D03B

RIGHT

UP

D03C DO 3D D03F D040 D042 D043 D044 DO 4 5 D047

78

E6FC

C8

1807

04

04

04

3E99 90

LD

AND

RET

JR

INC

INC

INC

LD

SUB

А,В #FC Z

NEXT В В В

A,#99 В

DOWN

Адрес Маш.код Метка Мнемоника

Комментарий.

D048 D049

DO4A ED4B6ACF

D04E CDC4D1

D051 С1

D052 CD5DD2

D055 325EDO

ED436ACF С9 00 00

00 40

00 00 00 00

D8 С5

NEXT

D058 D05C D05D D05E

FLAG COLLIZ

D05F D060

D062 D063 D064 D065

SWTCH ADSPR

RET С PUSH ВС

LD ВС,(YXLAST)

CALL SPRDRV-S

POP ВС

CALL SPRDRV-P

LD (COLLIZ),A

LD (YXLAST),ВС RET

DEFB 00 DEFB 00

DEFB 00 DEFW 0000

NOP NOP NOP NOP

Возврат, если так. Запомнили новые координаты.

Прежде чем печатать спрайт в новом месте, нужно стереть его в старом, для чего восста иовили предыдущие к, у. Стирание спрайта (см. с. 40)

Восстановление новых координат. Печать спрайта (см. с. 44)

После выхода из процедуры печати спрайта аккумулятор несет информацию о том, произошла коллизия (1) или нет (о).

Запомнили новые координаты в качестве текущих. Флаг детекции коллизии Если коллизия при печати спрайта была, эта переменная включается. Параметр в. Адрес начала шаблона спрайта.




СОДЕРЖАНИЕ:


  Оставте Ваш отзыв:

  НИК/ИМЯ
  ПОЧТА (шифруется)
  КОД



Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Реклама - Реклама и объявления ...
Аналитика - Проблемы развития Спектрума в 21-м веке! (по мнению железячника)
Обзор - юмористический обзоp новинок пpогpаммного обеспечения: 38 Попугаев, Фриц из Персии, Крокодила гена и Чебрушка, Любовь с первого взгляда, Dooma - 2, Marasm.
Gaме station - Недавно я прошел игру KING`S BOUNTY... Поэтому, даю вам описание "что, где и как проходить".
Игры - ELITE: Когда звезды были моими!

В этот день...   29 марта