// title: Chi-Tor
// author: Fabien Freling
// desc: (Major Jam 8)
// script: wren
import "random" for Random
var W = 240
var H = 136
var R = Random.new()
var TileSize = 8
var DbgBox = false
class Color {
static black { 0 }
static purple { 1 }
static red { 2 }
static orange { 3 }
static yellow { 4 }
static green_light { 5 }
static green { 6 }
static green_dark { 7 }
static white { 12 }
}
class Star {
construct new(x, y, size, scrollSpeed, color) {
_x = x
_y = y
_size = size
_scrollSpeed = scrollSpeed
_color = color
}
update() {
_x = _x - _scrollSpeed
}
draw() {
TIC.circ(_x, _y, _size, _color)
}
expired {
_x + _size < 0
}
}
class Bullet {
construct new(x, y) {
_x = x
_y = y
_w = 8
_h = 6
_speed = 5
}
x { _x }
y { _y }
w { _w }
h { _h }
update() {
_x = _x + _speed
}
draw() {
//TIC.rect(_x, _y, _w, _h, 4)
TIC.spr(288, _x, _y - 4, 0)
}
expired {
_x > W
}
}
class Enemy {
construct new(x, y) {
_x = x
_y = y
_w = 8
_h = 8
_speed = 1
_alive = true
}
x { _x }
y { _y }
w { _w }
h { _h }
expired { !_alive }
update() {
_x = _x - _speed
if (_x < -_w) {
_alive = false
}
}
draw() {
TIC.spr(258, _x - _w / 2, _y - _h / 2, 0)
}
hit() {
_alive = false
}
}
class Player {
construct new(x, y) {
_x = x
_y = y
_w = 16
_h = 16
// box size
_bw = 12
_bh = 10
_speed = 1
_bullets = []
_alive = true
}
x { _x }
y { _y }
w { _w }
h { _h }
bw { _bw }
bh { _bh }
bullets { _bullets }
alive { _alive }
update() {
if (TIC.btn(0)) {
_y = _y - _speed
}
if (TIC.btn(1)) {
_y = _y + _speed
}
if (TIC.btn(2)) {
_x = _x - _speed
}
if (TIC.btn(3)) {
_x = _x + _speed
}
_x = _x.clamp(_w / 2, W - _w / 2)
_y = _y.clamp(_h / 2, H - _h / 2)
if (TIC.btnp(4, 5, 10)) {
shoot()
}
for (b in _bullets) {
b.update()
}
while (_bullets.count > 0 && _bullets[0].expired) {
_bullets.removeAt(0)
}
}
draw() {
if (!_alive) {
return
}
TIC.spr(256, _x - _w / 2, _y - _h / 2, 0, 1, 0, 0, 2, 2)
for (b in _bullets) {
b.draw()
}
if (DbgBox) {
TIC.rectb(_x - _w / 2, _y - _h / 2, _w, _h, 5)
TIC.rectb(_x - _bw / 2, _y - _bh / 2, _bw, _bh, Color.red)
}
}
shoot() {
_bullets.add(Bullet.new(_x + _w / 2, _y))
}
die() {
_alive = false
}
}
class Explosion {
construct new(x, y) {
_x = x
_y = y
_countdown = 10
_t = 0
}
expired { _t > _countdown }
update() {
_t = _t + 1
}
draw() {
if (_t <= 2) {
TIC.circ(_x, _y, 10, Color.white)
} else if (_t <= 4) {
TIC.circ(_x, _y, 10, Color.red)
} else if (_t <= 6) {
TIC.circ(_x - 4, _y - 4, 4, Color.white)
TIC.circ(_x - 4, _y + 4, 4, Color.white)
TIC.circ(_x + 4, _y + 4, 4, Color.white)
TIC.circ(_x + 4, _y - 4, 4, Color.white)
} else if (_t <= 8) {
TIC.circ(_x - 4, _y - 4, 4, Color.red)
TIC.circ(_x - 4, _y + 4, 4, Color.red)
TIC.circ(_x + 4, _y + 4, 4, Color.red)
TIC.circ(_x + 4, _y - 4, 4, Color.red)
}
}
}
class World {
construct new() {
_t = 0
_stars = []
_enemies = []
_vfx = []
_player = Player.new(W / 2, H / 2)
_world_x = 0
_world_y = 0
_w_offset_x = 0
_world_scroll_speed = 60 / 2
// init background
for (i in 0..W) {
update()
}
_remap = Fn.new {|tile, x, y|
if (tile == 33) {
this.spawn(tile, x, y)
return 0
}
return tile
}
}
collect(list) {
var i = 0
while (i < list.count) {
//System.print("%(list[i])")
if (list[i].expired) {
//System.print("remove element from list")
list.removeAt(i)
} else {
i = i + 1
}
}
}
spawn(tile, x, y) {
_enemies.add(Enemy.new(x * 4, y * 4))
TIC.mset(x, y, 0)
}
update() {
if (_player.alive) {
_player.update()
for (s in _stars) {
s.update()
}
}
for (e in _enemies) {
e.update()
}
for (v in _vfx) {
v.update()
}
// Generation
//
// small stars
if (_t % 30 == 0) {
_stars.add(Star.new(W, R.int(0,H), 1, 1, 12))
}
// medium stars
var width = 10
var spaceBetween = width * 10
var speed = 0.1
var mediumTick = (spaceBetween + width) / speed
if (_t % mediumTick == 0) {
_stars.add(Star.new(W, R.int(0,H-20), width, speed, 13))
}
// Map scrolling
if (_t % _world_scroll_speed == 0) {
_world_x = _world_x + 1
}
_w_offset_x = -(_t % _world_scroll_speed) / (_world_scroll_speed / 8)
if (_player.alive) {
_t = _t + 1
}
// Collect
while (_stars.count > 0 && _stars[0].expired) {
_stars.removeAt(0)
}
collect(_enemies)
collect(_vfx)
// Collisions
var i = 0
while (i < _player.bullets.count) {
var b = _player.bullets[i]
var touched = false
for (e in _enemies) {
if (collide(b.x, b.y, b.w, b.h, e.x, e.y, e.w, e.h)) {
_player.bullets.removeAt(i)
e.hit()
_vfx.add(Explosion.new(e.x + e.w / 2, e.y + e.h / 2))
touched = true
break
}
}
if (!touched) {
i = i + 1
}
}
if (_player.alive) {
var bx = _player.x - _player.bw / 2
var by = _player.y - _player.bh / 2
if (!(fgCheck(bx, by) &&
fgCheck(bx, by + _player.bh) &&
fgCheck(bx + _player.bw, by + _player.bh) &&
fgCheck(bx + _player.bw, by))) {
_player.die()
_vfx.add(Explosion.new(_player.x, _player.y))
}
for (e in _enemies) {
if (collide(bx, by, _player.bw, _player.bh, e.x, e.y, e.w, e.h)) {
_player.die()
_vfx.add(Explosion.new(_player.x, _player.y))
}
}
}
}
collide(x1, y1, w1, h1, x2, y2, w2, h2) {
// [x1] [x2]
if (x1 + w1 < x2) {
return false
}
// [x2] [x1]
if (x1 > x2 + w2) {
return false
}
// [y1]
// [y2]
if (y1 + h2 < y2) {
return false
}
// [y2]
// [y1]
if (y1 > y2 + h2) {
return false
}
return true
}
fgCheck(x, y) {
var mapX = ((x + _w_offset_x) / TileSize) + _world_x
var mapY = (y / TileSize) + _world_y
var tile = TIC.mget(mapX, mapY)
if (tile == 0) {
return true
}
//System.print("collision at %(x), %(y)!")
return false
}
draw() {
for (s in _stars) {
s.draw()
}
TIC.map(_world_x, _world_y, 30 + 1, 17 + 1, _w_offset_x, 0, 0, 1, _remap)
for (v in _vfx) {
v.draw()
}
for (e in _enemies) {
e.draw()
}
_player.draw()
}
}
class Game is TIC{
state { _state }
static start { "start" }
static game { "game" }
construct new() {
_t=0
_x=96
_y=24
_state = Game.start
_world = World.new()
}
TIC() {
update()
draw()
_t=_t+1
}
update() {
_world.update()
}
draw() {
TIC.cls(0)
_world.draw()
}
}
//
// 001:eccccccccc888888caaaaaaaca888888cacccccccacc0ccccacc0ccccacc0ccc
// 002:ccccceee8888cceeaaaa0cee888a0ceeccca0ccc0cca0c0c0cca0c0c0cca0c0c
// 003:eccccccccc888888caaaaaaaca888888cacccccccacccccccacc0ccccacc0ccc
// 004:ccccceee8888cceeaaaa0cee888a0ceeccca0cccccca0c0c0cca0c0c0cca0c0c
// 005:2222222223312331231123112111211122222222233123312311231121112111
// 017:cacccccccaaaaaaacaaacaaacaaaaccccaaaaaaac8888888cc000cccecccccec
// 018:ccca00ccaaaa0ccecaaa0ceeaaaa0ceeaaaa0cee8888ccee000cceeecccceeee
// 019:cacccccccaaaaaaacaaacaaacaaaaccccaaaaaaac8888888cc000cccecccccec
// 020:ccca00ccaaaa0ccecaaa0ceeaaaa0ceeaaaa0cee8888ccee000cceeecccceeee
// 033:0000000000000000000000000002200000022000000000000000000000000000
// 034:0000000000000000000000000003300000033000000000000000000000000000
// 064:0000000000000000000000000000000200000022000002220000222200022221
// 065:0000000000002222022222222222222222222222212222221112222211112222
// 066:0000000022220000222222202222222222222222222222222222222222222222
// 067:0000000000000000000000002000000022000000222000002222000022222000
// 068:0000000000011000001111000111111011111111000110000001100000011000
// 080:0002222200022222002222220022222200222222022222220222222202222222
// 081:1112222221222222222222222222222222222222222222222222222222222222
// 082:2222222222222222222222222222222222222222222222222222222222222222
// 083:2222200022222000222222002222220022222200222222202222222022222220
// 096:0222222202222222022222220022222200222222002222220002222200022222
// 097:2222222222222222222222222222222222222222222222222222222222222222
// 098:2222222222222222222222222222222222222222222222222222222222222222
// 099:2222222022222220222222202222220022222200222222002222200022222000
// 112:0002222200002222000002220000002200000002000000000000000000000000
// 113:2222222222222222222222222222222222222222022222220000222200000000
// 114:2222222222222222222222222222222222222222222222202222000000000000
// 115:2222200022220000222000002200000020000000000000000000000000000000
//
//
// 000:00000000000000000ccc000000eccccc00eeeeee4ddddddd4cccccdd43ddddcc
// 001:00000000000000000000000000000000ee990000ddaa9900ddaaaa90ccaaaaa9
// 002:2000000202333320032222300320023003200230032222300233332020000002
// 016:43dddddd4ddddddd4eeeeeee0ccccccc00000000000000000000000000000000
// 017:ddccccccddddddd0eeeeee000000000000000000000000000000000000000000
// 032:0000000099aab000899aabbc08899aab08899aab899aabbc99aab00000000000
//
//
//
// 000:00000000ffffffff00000000ffffffff
// 001:0123456789abcdeffedcba9876543210
// 002:0123456789abcdef0123456789abcdef
//
//
// 000:000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000304000000000
//
//
// 000:1a1c2c5d275db13e53ef7d57ffcd75a7f07038b76425717929366f3b5dc941a6f673eff7f4f4f494b0c2566c86333c57
//