Ретро-ЯП Millfork для Atari, Apple II, ZX Spectrum, MSX, CP/M, NES, Game Boy и MS-DOS

**breeze** · 06.09.2024, 21:47

Ну шо, таки допилил Онимацию, теперь почти настоящий боудер получился

Как обычно сырки:

boulder.mfk:

Код:

import stdio


import sprites


array titleStr = "Boulder Dash ]["


array(byte) heroSpr0a = [0,$24,$3c,$5a,$5a,$3c,$18,$3c,$42,$18,0,$18,0]
array(byte) heroSpr0b = [0,$24,$3c,$7e,$5a,$3c,$18,$3c,$42,$18,0,$18,0]
array(byte) heroSpr0c = [0,$24,$3c,$7e,$7e,$3c,$18,$3c,$42,$18,0,$18,0]
array(byte) heroSpr1a = [0,$18,$42,$18,0,$18,0,0,$66,0]
array(byte) heroSpr1b = [0,$18,$24,$18,0,$18,0,0,$66,0]
array(byte) heroSpr1c = [0,$18,$24,$18,0,$18,0,$60,$06,0]
array(byte) heroSpr2a = [0,$24,$24,$24,0]
array(byte) heroSpr2b = [0,$24,$24,$04,0]


array(pointer) aFrames0 = [
	heroSpr0a, heroSpr0b, heroSpr0c,
	heroSpr0a, heroSpr0b, heroSpr0c,
	heroSpr0a, heroSpr0b, heroSpr0c,
	heroSpr0a, heroSpr0a, heroSpr0a, heroSpr0a,
	heroSpr0a, heroSpr0a, heroSpr0a, heroSpr0a,
	heroSpr0a, heroSpr0a, heroSpr0a, heroSpr0a
]
array(pointer) aFrames1 = [
	heroSpr1a, heroSpr1a, heroSpr1a,
	heroSpr1a, heroSpr1a, heroSpr1a,
	heroSpr1a, heroSpr1a, heroSpr1a,
	heroSpr1b, heroSpr1c, heroSpr1b, heroSpr1c,
	heroSpr1b, heroSpr1c, heroSpr1b, heroSpr1c,
	heroSpr1b, heroSpr1c, heroSpr1b, heroSpr1c
]
array(pointer) aFrames2 = [
	heroSpr2a, heroSpr2a, heroSpr2a,
	heroSpr2a, heroSpr2a, heroSpr2a,
	heroSpr2a, heroSpr2a, heroSpr2a,
	heroSpr2a, heroSpr2b, heroSpr2a, heroSpr2b,
	heroSpr2a, heroSpr2b, heroSpr2a, heroSpr2b,
	heroSpr2a, heroSpr2b, heroSpr2a, heroSpr2b
]
array(byte)    aTime  = [
	150, 3,  3,
	150, 3,  3,
	150, 3,  3,
	10,  10, 10, 10,
	10,  10, 10, 10,
	10,  10, 10, 10
]


byte color0 = $56
byte color1 = $0e
byte color2 = $c6


noinline asm void wait(byte register(a) f) {
  clc
  adc os_RTCLOK.b2
  .rt_check:
  cmp os_RTCLOK.b2
  bne .rt_check
  rts
}


void printAt(byte x, byte y, byte i) {
	poke(84, y)
	poke(85, x)


	putword(i)
	putstrz("   "z)
}


void main() {
	byte pX
	byte pY
	byte joy


	byte posFrame
	byte curTime


	word curFrame0
	word curFrame1
	word curFrame2
	
	sprInit()


	putstr(titleStr , titleStr.length)
	new_line()
	putstrz("Use JoyStick, LOOK!"z)
	new_line()


	pX = 120
	pY = 116
	putstrz("PosX: "z)
	putword(pX)
	new_line()
        putstrz("PosY: "z)
	putword(pY)
	new_line()
	joy = peek(632)
	putstrz("JoyStick: "z)
	putword(joy)


	posFrame = 0
	curTime = aTime[posFrame]
	curFrame0 = aFrames0[posFrame]
	curFrame1 = aFrames1[posFrame]
	curFrame2 = aFrames2[posFrame]


	sprShow(0, curFrame0, heroSpr0a.length, color0, pX, pY)
	sprShow(1, curFrame1, heroSpr1a.length, color1, pX, pY+7)
	sprShow(2, curFrame2, heroSpr2a.length, color2, pX, pY+11)


	while (true) {
		wait(1)
		joy = peek(632)


		if (joy == 11 || joy == 10 || joy == 9) {
			pX -= 1
		} else if (joy == 7 || joy == 6 || joy == 5) {
			pX += 1
		}
		if (joy == 14 || joy == 10 || joy == 6) {
			pY -= 1
		} else if (joy == 13 || joy == 9 || joy == 5) {
			pY += 1
		}
		if (joy != 15) {
			sprShow(0, curFrame0, heroSpr0a.length, color0, pX, pY)
			sprShow(1, curFrame1, heroSpr1a.length, color1, pX, pY+7)
			sprShow(2, curFrame2, heroSpr2a.length, color2, pX, pY+11)
			printAt(8, 2, pX)
			printAt(8, 3, pY)
			printAt(12, 4, joy)
		} else {
			printAt(12, 4, joy)
		}


		curTime -= 1
		if (curTime == 0) {
			posFrame += 1
			if (posFrame == aTime.length) {
				posFrame = 0
			}
			curTime = aTime[posFrame]
			curFrame0 = aFrames0[posFrame]
			curFrame1 = aFrames1[posFrame]
			curFrame2 = aFrames2[posFrame]
			
			sprShow(0, curFrame0, heroSpr0a.length, color0, pX, pY)
			sprShow(1, curFrame1, heroSpr1a.length, color1, pX, pY+7)
			sprShow(2, curFrame2, heroSpr2a.length, color2, pX, pY+11)
                }


	}




}

блок спрайтов без изменений

**breeze** · 07.09.2024, 14:34

Я конечно знатно прифигел, пока разбирался со спрайтами на атари и как ими рулить. Но я честно не подозревал какая ещё большая Ж с «ракетами». Это какой-то ппц:

Каждый спрайт имеет ширину 8 пикселей и всего 2 цвета (1 + прозрачный)
есть 4 «нормальных» спрайта шириной 8 пикселей... и 4 спрайта ракет шириной всего 2(!) пикселя...
но мы можем расположить их вместе, чтобы получить 5 спрайтов.

В смысле 2 пикселя? o_O Нахрена оно мне такое надо это недопаделие?
Я честно думал, что у меня будет 4 спрайта игроков и 4 спрайта противников (ракет) и сталкиваясь будет срабатывать коллизия.
А тут получается всего 4 спрайта и какие-то 4 каличных пульки.

Я в печали. Вообще тогда какой-либо смысл юзания спрайтов сваливается в 0. Смысл? Если даже сделать например 2 спрайта игрока и 2 спрайта противника, то как я понял коллизии между ними нет?
@Shiny тебе слово.

**Shiny** · 07.09.2024, 15:47

Сообщение от breeze

А тут получается всего 4 спрайта и какие-то 4 каличных пульки.

Я в печали. Вообще тогда какой-либо смысл юзания спрайтов сваливается в 0. Смысл? Если даже сделать например 2 спрайта игрока и 2 спрайта противника, то как я понял коллизии между ними нет?
@Shiny тебе слово.

Нормальные там пульки. Насчет столкновений не интересовался, но в Mapping есть описание по адресам $D000 и дальше.

- - - Добавлено - - -

Вот книга по pmg.

**breeze** · 07.09.2024, 16:08

Сообщение от Shiny

Вот книга по pmg.

О! ну хоть что-то стало понятнее. Спасибо буду копать.

Collisions

53248 - Missile 0 to playfield collision
53249 - Missile 1 to playfield collision
53250 - Missile 2 to playfield collision
53251 - Missile 3 to playfield collision

53256 - Missile 0 to player collision
53257 - Missile 1 to player collision
53258 - Missile 2 to player collision
53259 - Missile 3 to player collision

53260 - Player 0 to player collisions
53261 - Player 1 to player collisions
53262 - Player 2 to player collisions
53263 - Player 3 to player collisions

53252 - Player 0 to playfield
53253 - Player 1 to playfield
53254 - Player 2 to playfield
53255 - Player 3 to playfield

Осталось понять что есть «playfield»? Что-то типа тайлсета?

**Shiny** · 07.09.2024, 16:21

Грубо говоря в GR.3 точки, поставленные цветом 1,2,3 это и есть playfield

https://www.atariarchives.org/agagd/chapter1.php

**breeze** · 07.09.2024, 22:35

Если долго мучаться, что-нибудь получится

В результате «мучений» родился AirWolf на минималках XD

Player 0 и Player 1 это анимация вертолёта с лопостями

Player2 - противник (в данном случае анимированный пульсирующий шарег)

Если они сталкиваются то +1 к смерти и вертолёт кидает на середину экрана (в оригинале конечно же должен быть тыдыщь)

Если нажать «огонь» на жопстике то вылетает 1 ракета (пока) и летил либо до края экрана, либо до противника.

При столкновении начисляются очки, а противника рандомит по оси Y.

ps. Сырки уже немного разрослись, поэтому не буду засирать форум, кому интересно архив в атачменте.

- - - Добавлено - - -

Сообщение от Shiny

Грубо говоря в GR.3 точки, поставленные цветом 1,2,3 это и есть playfield

https://www.atariarchives.org/agagd/chapter1.php

Спасибо гляну, надо пейзаж уже рисовать

**Advertiser** · 07.09.2024, 22:35

**Shiny** · 08.09.2024, 05:24

Сообщение от breeze

Спасибо гляну, надо пейзаж уже рисовать

Я просто нарисовал в Atari Tools для примера.

**andrews** · 08.09.2024, 08:47

Сообщение от breeze

надо пейзаж уже рисовать

1)вертолет при движении вправо не разворачивается на экране. 2)Какая кнопка fire на клавиатуре в Altirra?

**Shiny** · 08.09.2024, 09:29

Сообщение от andrews

1)вертолет при движении вправо не разворачивается на экране. 2)Какая кнопка fire на клавиатуре в Altirra?

вангую, что Ctrl

- - - Добавлено - - -

Вообще это годный пример, но было б неплохо добавить несколько снарядов, как в SuperCobra

**andrews** · 08.09.2024, 11:45

Ну даже без фона вполне себе миниGame. Только пару-тройку звуков добавить( при попадании во врага и при гибели вертолетика и звук вращающихся лопастей). Как там с поддержкой звуков в этом софте? Хорошо бы конечно и чтобы "рожа" периодически отпулькивалась. Ну и текст сделать размером поменьше никак нельзя?

ZXPRESS •	ZXART •
ZXTUNES •	ZX Spectrum Old Demos •
Virtual TR-DOS •	World of Spectrum •

User Tag List

Тема: Ретро-ЯП Millfork для Atari, Apple II, ZX Spectrum, MSX, CP/M, NES, Game Boy и MS-DOS

Опции темы

Отображение

Эти 2 пользователя(ей) поблагодарили breeze за это полезное сообщение:

Этот пользователь поблагодарил Shiny за это полезное сообщение:

Эти 2 пользователя(ей) поблагодарили breeze за это полезное сообщение:

Информация о теме

Пользователи, просматривающие эту тему

Похожие темы

Компилятор Turbo Rascal для > 30 ретро-платформ (NES, Atari, Amiga, Gameboy, ZX, X86)

Bad Apple для MSX/MSX2

Перенос игр с Game Boy на ZX Spectrum

Game Boy Advance

Game Boy Advance в Питере.

Ваши права