evoke20.thump

#l 2 8 images/hoshi.png
#l 2 12 images/evoke-text.png
#l 2 16 images/evoke.png

pi $0, si 0 // $0 = 0
pi $1, si 1 // $1 = 1
pi $2, si 2
pi $3, si 3
pi $8, si 8
pi $16, si 16
pi $32, si 32
pi $127, si 127
pi $128, si 128
pi $190, si 190
pi $255, si 255

pi $starsize, si 2

pi $stars, si 0
pi $storex, si 0
pi $storey, si 0
@genstarsloop
pi $x, si 0, rnd $x
pi $y, si 210, rnd $y
x $stars, yi 0, zi 20, s $x
x $stars, yi 1, zi 20, s $y
pi $stars, add $1, seq $0
j @genstarsloop

pi $textoffset, s $0
pi $waitglitch, s $0

@render

pi $y, si 0
@clearscreen
xi 0, y $y, zi 4, si 0, sf $0
xi 0, y $y, zi 5, si 0, sf $0
xi 0, y $y, zi 6, si 0, sf $0
pi $y, add $1, seq $0
j @clearscreen

pi $y, si 0
pi $stars, si 0
@starloop
x $stars, yi 0, zi 20, g $x
x $stars, yi 1, zi 20, g $y

pi $starheight, si 0
@starheightloop
x $x, y $y, zi 4, si 100, sf $starsize
x $x, y $y, zi 5, si 100, sf $starsize
x $x, y $y, zi 6, si 100, sf $starsize
pi $y, add $1
pi $starheight, add $1, seq $starsize
j @starheightloop
pi $_, s $stars, mod $3
pi $x, add $_, add $1
x $stars, yi 0, zi 20, s $x
pi $stars, add $1, seq $0
j @starloop

pi $y, si 0
@border1
xi 0, y $y
zi 4,si 70, sf $255
zi 5,si 146, sf $255
zi 6,si 153, sf $255
pi $y, add $1, seq $16
j @border1

xi 0, y $y
zi 4,si 37, sf $255
zi 5,si 93, sf $255
zi 6,si 195, sf $255
pi $y, add $1

pi $y, add $190
xi 0, y $y
zi 4,si 37, sf $255
zi 5,si 93, sf $255
zi 6,si 195, sf $255
pi $y,add $1

pi $skip, s $y, add $16
@border2
xi 0, y $y
zi 4,si 70, sf $255
zi 5,si 146, sf $255
zi 6,si 153, sf $255
pi $y, add $1, seq $skip
j @border2

pi $_, si 8, spt $_ // set sprite table to z=8
pi $x, si 0
@loop
pi $y, s $x, add $offset, sin $y, div $2, add $32
x $x, y $y, zi 4, spa $1
pi $x, add $16, seq $0
j @loop // jump to @loop


pi $x, s $0
pi $_, si 12, spt $_
pi $i, s $textoffset
pi $xoffset, s $offset, mod $16
@scroll
pi $realx, s $x, add $xoffset
x $realx, yi 230, zi 4, spa $i
pi $i, add $1
pi $x, add $16, seq $0
j @scroll

pi $_, s $offset, mod $16, seq $15
j @continue
j @add

@add
pi $textoffset, add $1
j @continue

@continue

pi $i, si 0
pi $_, si 16, spt $_
pi $x, si 0
@evoke
pi $bounce, s $offset, sin $bounce, div $8
pi $y, s $i, div $16, mul $16, add $bounce, sub $32
x $x, y $y, zi 4, spa $i
pi $x, add $16
pi $i, add $1, seq $0
j @evoke

pi $offset, add $1
pi $waitglitch, add $1, seq $32
j @postglitch
pi $waitglitch, si 31
pi $x, si 0, rnd $x // $x = random()
pi $y, si 20, rnd $y // $y = random() (in range of 0 - 3)
pi $v, si 0, rnd $v // $v = random()
x $x, y $y, zi 1, s $v // GLITCH!!
@postglitch
w $16
j @render