525 lines
11 KiB
Plaintext
525 lines
11 KiB
Plaintext
|
|
//#resource "vcs-ca65.h"
|
|
|
|
import "vcslib.ecs"
|
|
import "sprites.ecs"
|
|
|
|
// https://csanyk.com/2014/02/topology-metropolis-superman-atari-2600/
|
|
|
|
component RoomGraphics
|
|
graphics: array 0..8 of 0..255
|
|
end
|
|
|
|
component Room
|
|
fgcolor: 0..255
|
|
bgcolor: 0..255
|
|
gfx: [VersatilePlayfield]
|
|
north: [Room]
|
|
east: [Room]
|
|
south: [Room]
|
|
west: [Room]
|
|
end
|
|
|
|
component Location
|
|
room: [Room]
|
|
end
|
|
|
|
component Enemy
|
|
end
|
|
|
|
component Moving
|
|
speed: 1..15
|
|
end
|
|
|
|
|
|
system SuperFly
|
|
on gowest do with [Location]
|
|
---
|
|
ldy {{<room}}
|
|
lda {{<Room:west}},y
|
|
sta {{<room}}
|
|
---
|
|
on goeast do with [Location]
|
|
---
|
|
ldy {{<room}}
|
|
lda {{<Room:east}},y
|
|
sta {{<room}}
|
|
---
|
|
on gonorth do with [Location]
|
|
---
|
|
ldy {{<room}}
|
|
lda {{<Room:north}},y
|
|
sta {{<room}}
|
|
---
|
|
on gosouth do with [Location]
|
|
---
|
|
ldy {{<room}}
|
|
lda {{<Room:south}},y
|
|
sta {{<room}}
|
|
---
|
|
on joyleft do with [Location,HasXpos,Moving]
|
|
---
|
|
lda {{<xpos}}
|
|
sec
|
|
sbc {{<speed}}
|
|
jcs @nomove
|
|
{{!gowest}}
|
|
lda #142
|
|
@nomove:
|
|
sta {{<xpos}}
|
|
---
|
|
on joyright do with [Location,HasXpos,Moving]
|
|
---
|
|
lda {{<xpos}}
|
|
clc
|
|
adc {{<speed}}
|
|
cmp #142
|
|
jcc @nomove
|
|
{{!goeast}}
|
|
lda #2
|
|
@nomove:
|
|
sta {{<xpos}}
|
|
---
|
|
on joyup do with [Location,HasYpos,Moving]
|
|
---
|
|
lda {{<ypos}}
|
|
sec
|
|
sbc {{<speed}}
|
|
jcs @nomove
|
|
{{!gonorth}}
|
|
lda #200
|
|
@nomove:
|
|
sta {{<ypos}}
|
|
---
|
|
on joydown do with [Location,HasYpos,Moving]
|
|
---
|
|
lda {{<ypos}}
|
|
clc
|
|
adc {{<speed}}
|
|
cmp #220
|
|
jcc @nomove
|
|
{{!gosouth}}
|
|
lda #2
|
|
@nomove:
|
|
sta {{<ypos}}
|
|
---
|
|
end
|
|
|
|
system BadMove
|
|
on postframe do foreach [Enemy]
|
|
---
|
|
{{!joyright}}
|
|
---
|
|
end
|
|
|
|
|
|
system RoomShuffle
|
|
on postframe do select [Location,Sprite]
|
|
---
|
|
ldy {{%ecount}}
|
|
ldx {{<Slot1.sprite}}
|
|
bmi @empty ; empty slot, load 1st entry
|
|
@loop:
|
|
inx
|
|
cpx {{%ecount}}
|
|
bcc @norecycle
|
|
; TODO: need to get index of specific entity
|
|
@empty:
|
|
ldx #1 ; skip null sprite and super dude?
|
|
@norecycle:
|
|
lda {{<Location:room}},x
|
|
cmp {{<Superdude.room}}
|
|
beq @exit
|
|
dey
|
|
bne @loop
|
|
ldx #$ff
|
|
@exit:
|
|
stx {{<Slot1.sprite}}
|
|
---
|
|
end
|
|
|
|
|
|
|
|
scope Main
|
|
|
|
using FrameLoop, Kernel2Sprite
|
|
using Joystick, JoyFaceDirection
|
|
using SuperFly
|
|
using BadMove
|
|
using RoomShuffle
|
|
//using MoveJoyX, MoveJoyY
|
|
using SetXPos, SetHorizPos
|
|
//using SpriteShuffler, SpriteHider
|
|
|
|
entity Kernel [KernelSection, BGColor]
|
|
const lines = 192
|
|
const bgcolor = 0xa2
|
|
end
|
|
|
|
entity NullShape [Bitmap,Colormap]
|
|
decode vcs_sprite
|
|
---
|
|
........ 00
|
|
---
|
|
end
|
|
|
|
entity Superdude1 [Bitmap,Colormap]
|
|
decode vcs_sprite
|
|
---
|
|
......xx 52
|
|
.....xx. 54
|
|
x....xx. 48
|
|
.x...xx. 48
|
|
..x..xxx 48
|
|
...x.xx. 48
|
|
....xx.. 46
|
|
...xxx.. 88
|
|
...xxx.. 86
|
|
..xxxx.x 86
|
|
..xxxxx. 86
|
|
.xxx.x.. 86
|
|
.xxx.... 88
|
|
xxx..... 86
|
|
xxx..... 86
|
|
xx...... 86
|
|
xx...... 46
|
|
x....... 46
|
|
---
|
|
end
|
|
|
|
entity BexButhor1 [Bitmap,Colormap]
|
|
decode vcs_sprite
|
|
---
|
|
x....... 04
|
|
.xx..... 04
|
|
..xx.... 04
|
|
..x.x... 04
|
|
..x..... 04
|
|
..x..xx. 46
|
|
..x.xxx. 48
|
|
..x.xxx. 48
|
|
..x.xxxx 48
|
|
..x.xxx. 48
|
|
..x.xxx. 48
|
|
..x.xx.. 46
|
|
..xxxxx. 2a
|
|
..xxxxx. 2a
|
|
..xxxxxx 28
|
|
..xxxxxx 28
|
|
..xxxxxx 28
|
|
...xxxxx 28
|
|
...xxxx. 28
|
|
....xxx. 26
|
|
....xx.. c8
|
|
....xx.. c8
|
|
....xx.. c8
|
|
....xx.. c6
|
|
....xx.. c6
|
|
....xx.. c6
|
|
....xxx. 04
|
|
....xxx. 04
|
|
---
|
|
end
|
|
|
|
entity NullRoom [Room,VersatilePlayfield]
|
|
const fgcolor = $0
|
|
const bgcolor = $0
|
|
const north = #NullRoom
|
|
const south = #NullRoom
|
|
const east = #NullRoom
|
|
const west = #NullRoom
|
|
const data = [0]
|
|
end
|
|
|
|
entity InsideDailyPlanet [Room,VersatilePlayfield]
|
|
const fgcolor = $0c
|
|
const bgcolor = $12
|
|
const north = #InsideDailyPlanet
|
|
const south = #InsideDailyPlanet
|
|
const east = #OutsideDailyPlanet
|
|
const west = #OutsideDailyPlanet
|
|
decode vcs_versatile
|
|
---
|
|
.................... .. c0 ..
|
|
.................... .. .. 01
|
|
.................... 08 .. ..
|
|
.................... .. .. ..
|
|
.................... .. .. ..
|
|
.................... .. .. ..
|
|
.................... .. .. ..
|
|
..................xx .. .. ..
|
|
.....xxxx.........xx .. .. ..
|
|
.....xxxx........xxx .. .. ..
|
|
.....xxxx.......xxxx .. .. ..
|
|
.....xxxx.......xxxx .. .. ..
|
|
.....xxxx.......xxxx .. .. ..
|
|
.....xxxx.......xxx. .. .. ..
|
|
.....xxxx.......xx.. .. .. ..
|
|
.....xxxx.......x... .. .. ..
|
|
.....xxxx.......x..x .. .. ..
|
|
.....xxxx.......x.xx .. .. ..
|
|
.....xxxx.......x.xx .. .. ..
|
|
.....xxxx.......x.xx .. 60 ..
|
|
.....xxxxxxx....x.xx .. .. ..
|
|
.xx..xxxxxxx....x.xx .. .. ..
|
|
.xx..xxxxxxx....x..x .. .. ..
|
|
.xx..xxxxxxx....x... .. .. ..
|
|
.xx..xxxxxxx....xx.. .. .. ..
|
|
.xx..xxxxxxx....xxx. .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xx.x .. .. ..
|
|
.xx..xxxxxxx....xx.x .. 50 ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xx.x .. .. ..
|
|
.xx..xxxxxxx....xx.x .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xxxx .. 44 ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xx.x .. .. ..
|
|
.xx..xxxxxxx....xx.x .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xxxx .. 46 ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx.xx.xxxx .. .. ..
|
|
.xx..xxxxxxx.xx.xxxx .. .. ..
|
|
.xx..xxxxxxx.xx.xxxx .. .. ..
|
|
.xx..xxxxxxx.xx.xxxx .. .. ..
|
|
.xx..xxxxxxx.xx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. 38 ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
xxxx.xxxxxxxxxx.xxxx .. .. ..
|
|
xxxxxxxxxxxxxxx.xxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. 00
|
|
xxxxxxxxxxxxxxxxxxxx .. c8 ..
|
|
xxxxxxxxxxxxxxx.xxxx .. .. ..
|
|
xxxxxxxxxxxxxxx.xxxx .. .. ..
|
|
xxxxxxxxxxxxxx...xxx .. .. ..
|
|
xxxxxxxxxxxxx.....xx .. .. ..
|
|
xxxxxxxxxxxxx.....xx .. .. ..
|
|
xxxxxxxxxxxx.......x .. .. ..
|
|
xxxxxxxxxxxxxxx.xxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx 08 .. ..
|
|
xxxxxxxxxxxxxxxxxxxx 06 .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. 18 ..
|
|
xxxx.x.x.x.xxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
---
|
|
end
|
|
|
|
// xxxxxxx....xxxxxx...
|
|
// xxx...x.x...xxxx..xx
|
|
// xxx.x....x....xx....
|
|
|
|
entity OutsideDailyPlanet [Room,VersatilePlayfield]
|
|
const fgcolor = $0c
|
|
const bgcolor = $12
|
|
const north = #InsideDailyPlanet
|
|
const south = #InsideDailyPlanet
|
|
const east = #InsideDailyPlanet
|
|
const west = #InsideDailyPlanet
|
|
//9f9f 9f 0c fc 3e 38 46 44 506070a0000000
|
|
decode vcs_versatile
|
|
---
|
|
.................... .. 70 ..
|
|
.................... .. .. 01
|
|
.................... a8 .. ..
|
|
.................... .. .. ..
|
|
.................... .. .. ..
|
|
.................... .. .. ..
|
|
.................... .. .. ..
|
|
..................xx .. .. ..
|
|
.....xxxx.........xx .. .. ..
|
|
.....xxxx........xxx .. .. ..
|
|
.....xxxx.......xxxx .. .. ..
|
|
.....xxxx.......xxxx .. .. ..
|
|
.....xxxx.......xxxx .. .. ..
|
|
.....xxxx.......xxx. .. .. ..
|
|
.....xxxx.......xx.. .. .. ..
|
|
.....xxxx.......x... .. .. ..
|
|
.....xxxx.......x..x .. .. ..
|
|
.....xxxx.......x.xx .. .. ..
|
|
.....xxxx.......x.xx .. .. ..
|
|
.....xxxx.......x.xx .. 60 ..
|
|
.....xxxxxxx....x.xx .. .. ..
|
|
.xx..xxxxxxx....x.xx .. .. ..
|
|
.xx..xxxxxxx....x..x .. .. ..
|
|
.xx..xxxxxxx....x... .. .. ..
|
|
.xx..xxxxxxx....xx.. .. .. ..
|
|
.xx..xxxxxxx....xxx. .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xx.x .. .. ..
|
|
.xx..xxxxxxx....xx.x .. 50 ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xx.x .. .. ..
|
|
.xx..xxxxxxx....xx.x .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xxxx .. 44 ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xx.x.xx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xx.x .. .. ..
|
|
.xx..xxxxxxx....xx.x .. .. ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx....xxxx .. 46 ..
|
|
.xx..xxxxxxx....xxxx .. .. ..
|
|
.xx..xxxxxxx.xx.xxxx .. .. ..
|
|
.xx..xxxxxxx.xx.xxxx .. .. ..
|
|
.xx..xxxxxxx.xx.xxxx .. .. ..
|
|
.xx..xxxxxxx.xx.xxxx .. .. ..
|
|
.xx..xxxxxxx.xx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. 38 ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
.xx..xxxxxxxxxx.xxxx .. .. ..
|
|
xxxx.xxxxxxxxxx.xxxx .. .. ..
|
|
xxxxxxxxxxxxxxx.xxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. 00
|
|
xxxxxxxxxxxxxxxxxxxx .. c8 ..
|
|
xxxxxxxx.xxxxxxxxxxx .. .. ..
|
|
xxxxxxxx.xxxxxxxxxxx .. .. ..
|
|
xxxxxxx...xxxxxxxxxx .. .. ..
|
|
xxxxxx.....xxxxxxxxx .. .. ..
|
|
xxxxxx.....xxxxxxxxx .. .. ..
|
|
xxxxx.......xxxxxxxx .. .. ..
|
|
xxxxxxxx.xxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. .. ..
|
|
xxxxxxxxxxxxxxxxxxxx 08 .. ..
|
|
xxxxxxxxxxxxxxxxxxxx 06 .. ..
|
|
xxxxxxxxxxxxxxxxxxxx .. 06 ..
|
|
x.x.xxxxxxxxxxxxxxxx .. .. ..
|
|
x.x.x.x.x.x.xxxxxxxx .. .. ..
|
|
x.x.x.x.x.x.x.x.x.x. .. .. ..
|
|
x.x.x.x.x.x.x.x.x.x. .. .. ..
|
|
x.x.x.x.x.x.x.x.x.x. .. 18 ..
|
|
x.x.x.x.x.x.x.x.x.x. .. 06 ..
|
|
3f 3f
|
|
3f 3f
|
|
3f 3f
|
|
3f 3f
|
|
3f 3f
|
|
3f 3f
|
|
3f 3f
|
|
3f 3f
|
|
---
|
|
end
|
|
|
|
/*
|
|
entity NullSprite [Location,Sprite,HasBitmap,HasColormap,HasXpos,HasYpos,Player]
|
|
var ypos = 224
|
|
const bitmap = #BexButhor1
|
|
const colormap = #BexButhor1
|
|
const plyrflags = $00
|
|
end
|
|
*/
|
|
|
|
entity Superdude [Location,Sprite,HasBitmap,HasColormap,HasXpos,HasYpos,Player,Moving]
|
|
var room = #OutsideDailyPlanet
|
|
var xpos = 40
|
|
var ypos = 30
|
|
const bitmap = #Superdude1
|
|
const colormap = #Superdude1
|
|
var plyrflags = $05
|
|
const speed = 2
|
|
end
|
|
|
|
entity BexButhor [Location,Sprite,HasXpos,HasYpos,HasBitmap,HasColormap,Enemy,Moving]
|
|
var room = #OutsideDailyPlanet
|
|
var xpos = 100
|
|
var ypos = 30
|
|
const bitmap = #BexButhor1
|
|
const colormap = #BexButhor1
|
|
var plyrflags = $00
|
|
const speed = 1
|
|
end
|
|
|
|
entity JBexButhor [Location,Sprite,HasXpos,HasYpos,HasBitmap,HasColormap,Enemy,Moving]
|
|
var room = #OutsideDailyPlanet
|
|
var xpos = 100
|
|
var ypos = 60
|
|
const bitmap = #BexButhor1
|
|
const colormap = #BexButhor1
|
|
var plyrflags = $00
|
|
const speed = 1
|
|
end
|
|
|
|
entity KBexButhor [Location,Sprite,HasXpos,HasYpos,HasBitmap,HasColormap,Enemy,Moving]
|
|
var room = #InsideDailyPlanet
|
|
var xpos = 50
|
|
var ypos = 90
|
|
const bitmap = #BexButhor1
|
|
const colormap = #BexButhor1
|
|
var plyrflags = $00
|
|
const speed = 1
|
|
end
|
|
|
|
entity Slot0 [SpriteSlot]
|
|
var sprite = #Superdude
|
|
end
|
|
entity Slot1 [SpriteSlot]
|
|
var sprite = 0 // $ff
|
|
end
|
|
|
|
using VersatilePlayfield with #Superdude.room
|
|
|
|
end
|
|
|
|
|
|
/*
|
|
InsideDailyPlanetDS
|
|
.word SubwayGraphics
|
|
.byte WHITE - 2
|
|
.byte BLUE + 10
|
|
.byte <GreenSubwayDS ; pointer to north room
|
|
.byte <BlueSubwayDS ; pointer to east room
|
|
.byte <YellowSubwayDS ; pointer to south room
|
|
.byte <PinkSubwayDS ; pointer to west room
|
|
*/ |