unfug.thump

#l 2 8 img/msgothic_16x16pn.png

pi $1, si 1
pi $py, si 0
pi $255, si 255
pi $i, si 0
pi $16, si 16
pi $256, si 256
pi $127, si 127

pi $i, si 0
@yloop3
xi 0, y $i, zi 11, s $255, sf $255
pi $_, s $256, pi $i, add $1, seq $_, j @yloop3

pi $i, si 0
@yloop
xi 0, y $i, zi 4, s $i, sf $127
xi 0, y $i, zi 5, si 127, sf $255
pi $_, si 255, sub $i
xi 128, y $i, zi 6, s $_, sf $127
pi $_, s $256, pi $i, add $1, seq $_, j @yloop

pi $test, si 255

pi $y, si 0
@yloop2
pi $_, si 0, pi $offset, rnd $_
pi $r, rnd $_
pi $_, si 8, spt $_ // set sprite table (word)
pi $y, add $16
x $r, y $y, zi 4, sp8 $offset // draw sprite
pi $_, si 10, pi $numrep, rnd $_
pi $j, si 0
@rep
x $r, y $y, zi 4, sp8 $offset // draw sprite
pi $r, add $1
pi $j, add $1
pi $j, seq $numrep, j @rep
pi $_, si 16, pi $i, add $1, seq $_, j @yloop2

//pi $_, si 11
//zi 5, cp8 $_

// func poker, it brings GLITCH!!
pi $_, si 0, pi $x, rnd $_
pi $_, si 4, pi $y, rnd $_
pi $z, si 1
pi $_, si 0, pi $v, rnd $_
x $x, y $y, z $z, s $v // poke