6502/8bitworkshop
1
0
Fork 0
mirror of https://github.com/sehugg/8bitworkshop.git synced 2024-11-25 03:34:05 +00:00
Code Issues Projects Releases Wiki Activity
d5460c991f
8bitworkshop/test/ecs/jumper.ecs
Steven Hugg 0fc860f524 ecs: updated unit tests
2022-02-27 19:46:33 -06:00

686 lines
13 KiB
Plaintext
Raw Blame History

//#resource "vcs-ca65.h"
import "vcslib.ecs"
import "sprites.ecs"
import "score.ecs"
import "sound.ecs"
import "velocity.ecs"
import "kernel2.ecs"
import "random.ecs"
import "versatile.ecs"
import "music.ecs"
// TODO: not yet used
component Activity
activity: enum [Standing,Walking,Jumping]
end
component Enemy
end
component Gravity
end
component Jumper
end
system MoveJoyVel
// dampen velocity
on frame8 do with [HasXpos]
---
lda {{<xvel}}
lsr
clc
adc #4
sta {{<xvel}}
---
// move left and right
on joyleft do with [HasXpos]
---
lda {{<xvel}}
sec
sbc #1
cmp #2
bcc @nomove
sta {{<xvel}}
@nomove:
---
on joyright do with [HasXpos]
---
lda {{<xvel}}
clc
adc #1
cmp #14
bcs @nomove
sta {{<xvel}}
@nomove:
---
end
system Gravity
on frame8 do foreach [Gravity]
---
lda {{get bitmap}}
cmp #{{&DudeStanding1}}-{{&Blank}}+1
bcc @skip
lda {{<yvel}}
cmp #14
bcs @nofall
clc
adc #2
bne @done
@nofall:
lda #15
@done:
sta {{<yvel}}
@skip:
---
on xmoved do with [TinyVelY]
---
lda {{<yvel}}
cmp #7
bcc @nodown
{{!checkplatform}}
@nodown:
---
on ymoved do with [TinyVelY]
---
lda {{<yvel}}
cmp #7
bcc @nodown
{{!checkplatform}}
@nodown:
---
on joybutton do with [Player]
---
; TODO
lda {{get bitmap}}
cmp #{{&DudeStanding1}}-{{&Blank}}+1
bcs @nojump
lda #0
sta {{get yvel}}
lda #{{&DudeJumping1}}-{{&Blank}}
sta {{set bitmap}}
{{!playsound 0 1 5}}
@nojump:
---
end
system PlatformJumper
on platformstopped do with [Jumper]
---
lda {{<ypos}}
and #$fe
sta {{<ypos}}
---
on platformstopped do if [Player]
---
lda {{<yvel}}
cmp #8
beq @skip
lda #8
sta {{<yvel}}
lda #{{&DudeStanding1}}-{{&Blank}}
sta {{set bitmap}}
{{!playsound 0 2 5}}
@skip:
---
on platformnotstopped do if [Player]
---
lda #{{&DudeJumping1}}-{{&Blank}}
sta {{set bitmap}}
---
end
resource PFCollideMask ---
.byte $10,$20,$40,$80 ; PF0
.byte $80,$40,$20,$10,$08,$04,$02,$01 ; PF1
.byte $01,$02,$04,$08,$10,$20,$40,$80 ; PF2
.byte $80,$40,$20,$10,$08,$04,$02,$01 ; PF2
.byte $01,$02,$04,$08,$10,$20,$40,$80 ; PF1
.byte $80,$40,$20,$10 ; PF0
---
resource PFCollideReg ---
.byte $d,$d,$d,$d
.byte $e,$e,$e,$e,$e,$e,$e,$e
.byte $f,$f,$f,$f,$f,$f,$f,$f
.byte $f,$f,$f,$f,$f,$f,$f,$f
.byte $e,$e,$e,$e,$e,$e,$e,$e
.byte $d,$d,$d,$d
---
system EnemyMotion
on stopped do if [Enemy]
---
lda #5
sta {{<yvel}}
---
on frame16 do foreach [Enemy]
---
lda {{<xvel}}
adc {{<Les.xpos}}
and #15
sta {{<xvel}}
---
end
system EnemyCollider
on preframe do once
---
sta CXCLR
---
on postframe do once
---
lda CXPPMM
bpl @nocollide
{{!enemyspawn}}
@nocollide:
---
on enemyspawn do once
---
{{!nextrand8}}
and #$e0
clc
adc {{get Les.xpos}}
and #$7f
clc
adc #10
sta {{set Rock.xpos}}
{{!nextrand8}}
and #$20
clc
adc {{get Les.ypos}}
and #$7f
clc
adc #24
sta {{set Rock.ypos}}
; TODO:
;inc {{set Rock.bitmap}}
---
end
system EnemyDifficulty
locals 1
on preframe do foreach [Enemy]
---
{{!nextrand8}}
lsr
lsr
cmp {{get PlayerScore.digits}}
bcs @nomove
; run away from player
lda {{get xpos}}
cmp #2
bcc @nox
cmp #140
bcs @nox
sec
sbc {{get Les.xpos}}
bcc @xdec
inc {{set xpos}}
inc {{set xpos}}
@xdec:
dec {{set xpos}}
@nox:
; move Y a bit
lda {{get ypos}}
cmp #40
bcc @nomove
cmp #170
bcs @nomove
sec
sbc {{get Les.ypos}}
bcc @ydec
inc {{set ypos}}
inc {{set ypos}}
@ydec:
dec {{set ypos}}
@nomove:
---
end
//
scope Main
using FrameLoop, ResetConsole
using Kernel2Digit, BCDMath
using Kernel2Sprite
using SetXPos, SetHorizPos
using TinyMover
using Gravity
using VersatilePlayfield
using PlatformJumper
using FrameCounter
entity FrameCount [FrameCount]
end
// TODO: this has to be after FrameCounter
// for velocity damping to work correctly
// but "after" keyword might be better
using Joystick, JoyButton, MoveJoyVel with [Player]
using EnemyCollider
using EnemyDifficulty
entity Level1 [VersatilePlayfield]
decode vcs_versatile
---
.................... .. .. ..
.................... .. .. 01
.................... e8 .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
............xxx..... .. .. ..
.............x...... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.................... .. .. ..
.........xxx........ .. .. ..
..........xx........ .. .. ..
...........x........ .. .. ..
.................... .. .. ..
.................... 18 .. ..
.................... .. .. ..
xxxx................ .. .. ..
xxx................. .. .. ..
xx.................. .. .. ..
x................... .. .. ..
.................... .. .. ..
.................... 28 .. ..
.................... .. .. ..
....xxxxxx.......... .. .. ..
......xxxx.......... .. .. ..
........x........... .. .. ..
.................... .. .. ..
............xxx..... .. .. ..
.............xx..xxx .. .. ..
..............x...xx .. .. ..
..................xx .. .. ..
...................x .. .. ..
...................x .. .. ..
.................... .. .. ..
.................... 38 .. ..
.....xxxx........... .. .. ..
......xxx........... .. .. ..
.......xx........... .. .. ..
........x........... .. .. ..
.................... .. .. ..
.................... 48 .. ..
............xxx..... .. .. ..
.............xx..... .. .. ..
..............x..... .. .. ..
.................... .. .. ..
.................... 58 .. ..
..................xx .. .. ..
.................xxx .. .. ..
................xxxx .. .. ..
..................xx .. .. ..
...................x .. .. ..
.................... .. .. ..
.................... .. 82 ..
.................... .. .. ..
.................... .. 84 ..
.................... .. .. ..
.................... .. 86 ..
.................... .. .. ..
.................... 68 .. ..
............xxxxxx.. .. .. ..
............xxxxxx.. .. .. ..
--- end
entity Blank [Bitmap,Colormap]
decode vcs_sprite
---
........ 00
---
end
entity DudeStanding1 [Bitmap,Colormap,Activity]
const activity = Standing
decode vcs_sprite
---
..xxx... f8
.xxxxx.. f8
x.xxxx.. f8
.xxx.x.. f8
x.xxxxx. f8
x.xxxx.. f8
..xx.... f8
..xxxx.. f8
...xxx.. f8
...xx... f8
...xx... f8
..xxx... 38
..xxx... 48
.x.xxx.. 58
x..xxx.. 68
x..xx.x. 78
x..xx..x 88
...xxx.. 98
..xxxx.. 98
..x..x.. 98
..x..xx. 98
.xx...x. 98
.x....x. 98
.x....x. f8
xx....xx f8
---
end
entity DudeJumping1 [Bitmap,Colormap,Activity]
const activity = Jumping
const colormapdata = DudeStanding1.colormapdata
decode vcs_bitmap
---
x.xxx...
.xxxxx..
x.xxxx..
.xxx.x..
..xxxxx.
..xxxx..
..xx....
..xxx...
...xxx..
...xx...
x..xx...
x.xxx..x
x.xxx.x.
.x.xxx..
...xx...
...xx...
...xx...
...xxx..
..xxxx..
.xx..xx.
.x....x.
.x....x.
.x....x.
.x....x.
xx....xx
---
end
entity Coin1 [Bitmap,Colormap]
decode vcs_sprite
---
00001000 ca
01001001 dc
00100010 ee
00000000 0e
00011110 0e
00100011 ee
01000101 ee
10001001 ee
11111001 ee
11101001 ee
11011001 ee
11111001 dc
11111001 ca
11011010 ca
10111100 ca
01111000 ca
---
end
entity Coin2 [Bitmap,Colormap]
decode vcs_sprite
---
..xxxx.. ca
.xxxxxx. dc
xxxxxxxx ee
x..xx..x 0e
xx.xx.xx 0e
xxxxxxxx ee
xxxxxxxx ee
.xx..xx. ee
.xxxxxx. ee
.xx..xx. ee
..xxxx.. dc
...xx... ca
........ ca
---
end
entity Empty [Sprite,HasBitmap,HasColormap]
const bitmap = #Blank
const colormap = #Blank
end
entity Les [Sprite,HasBitmap,HasColormap,HasXpos,HasYpos,TinyVelX,TinyVelY,Player,Jumper,Gravity]
var xpos = 73
var ypos = 90
var bitmap = #DudeJumping1
const colormap = #DudeStanding1
var plyrflags = $00
var xvel = 8
var yvel = 7
end
entity Rock [Sprite,HasBitmap,HasColormap,HasXpos,HasYpos,Enemy]
var bitmap = #Coin1
const colormap = #Coin1
var xpos = 73
var ypos = 140
end
entity PlayerScore [BCDScore2]
var scorecolor = $ca
end
entity TimerScore [BCDScore2]
var scorecolor = $0e
var digits = $00
end
entity Kernel [KernelSection, BGColor]
const lines = 174
var bgcolor = $80
end
entity Slot0 [SpriteSlot]
var sprite = #Les
end
entity Slot1 [SpriteSlot]
var sprite = #Rock
end
// SOUNDS
using SoundEngine
entity SFXNull [SoundEffect]
const duration = 0
const sounddata = [0]
end
entity SFXJump [SoundEffect]
const duration = 14
const sounddata = [
$81,$83,$85,
$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,
$a8]
end
entity SFXBounce [SoundEffect]
const duration = 10
const sounddata = [
$02,$03,$04,$08,$10,$20,$40,$20,$10,
$a4]
end
entity SFXScore [SoundEffect]
const duration = 11
const sounddata = [
$02,$03,$04,$08,$10,$20,$10,$20,$10,$08,
$a2]
end
entity SFXScore2 [SoundEffect]
const duration = 11
const sounddata = [
$02,$03,$04,$08,$10,$20,$10,$20,$10,$08,
$a8]
end
// TODO: make sfx have priority over music?
entity SFX1 [SoundChannel] end
entity SFX2 [SoundChannel] end
// MUSIC
using MusicPlayer
entity MusicPlayer [MusicPlayer]
const volume = 10
const tempo = 31
end
entity Music1 [MusicChannel] end
entity Music2 [MusicChannel] end
//
using Random
system GameManager
// start the game? set timer to 99
on joybutton do select [#TimerScore]
---
lda {{<digits}}
bne @skip
lda #$99
sta {{<digits}}
@skip:
---
// decrease the timer every 16 frames
on frame16 do foreach [#TimerScore]
---
lda {{<digits}}
beq @done
{{!SubBCD2 1}}
lda {{<digits}}
bne @done
{{!timerexpired}}
@done:
---
// add score for each new spawn
on enemyspawn do begin
foreach [#PlayerScore]
---
{{!AddBCD2 1}}
{{!playsound 1 3 10}}
---
// add timer for each new spawn
foreach [#TimerScore]
---
{{!AddBCD2 10}}
---
end
// subtract one when player wraps around vertically
on ymoved do begin
---
lda {{<yvel}}
cmp #7
bcc @nowrap
lda {{<ypos}}
cmp #2
bcs @nowrap
{{!playerwrapped}}
inc {{set ypos}}
@nowrap:
---
end
// TODO: doesn't work yet
on playerwrapped do with [#PlayerScore]
---
{{!SubBCD2 1}}
---
// each frame, game is either running or stopped
on preframe do once
---
lda {{<TimerScore.digits}}
bne @gameon
{{!gamestopped}}
jmp @done
@gameon:
{{!gamerunning}}
@done:
---
// stop everything when game is stopped
// TODO: if "Sprite" it overwrites array elements
on gamestopped do foreach [TinyVelX,TinyVelY]
// on gamestopped do foreach [Sprite]
---
lda #8
sta {{set xvel}}
sta {{set yvel}}
---
// set colors when game is stopped
on gamestopped do once
---
lda #$4c
sta {{set TimerScore.scorecolor}}
lda #$02
sta {{set Kernel.bgcolor}}
---
// set colors when game is running
on gamerunning do once
---
lda #$0a
sta {{set TimerScore.scorecolor}}
lda #$80
sta {{set Kernel.bgcolor}}
; blink when timer is close to zero
lda {{get TimerScore.digits}}
cmp #$20
bcs @nocolor
lda {{get FrameCount:frame}}
lsr
lsr
and #$07
ora #$40
sta {{set Kernel.bgcolor}}
@nocolor:
---
// play music when timer expires
on timerexpired do once
---
;{{^SampleMusic}}
{{!playmusic SampleMusic}}
---
on xxx_preframeloop do once
---
;{{^IntroMusic}}
{{!playmusic IntroMusic}}
---
end
entity [Random8]
end
end
// TODO: use byte array too?
resource IntroMusic ---
.byte $27,$90,$2c,$8f,$2f,$8f,$33,$8f,$38,$8f,$3b,$8f,$20,$23,$88,$3a,$83,$38,$82,$37,$83,$38,$20,$ff
---
Reference in New Issue View Git Blame Copy Permalink