I do not know if this is a bug or not, but I get an error:
Failed to create 'CreateASMFooter::FindLabel'
Any idea what this might mean. I posted my source, just in case
`****************************************
`Setup the Screen
`****************************************
Set Window Size 640,480
Set Display Mode 640,480,32
sync on
sync rate 0
`****************************************
`Variables
`****************************************
paddle_x as integer
paddle_y as integer
paddle_width as integer
paddle_height as integer
ball_speed as float
block_width as integer
block_height as integer
max_blocks as integer
`****************************************
`Assign Variable Values
`****************************************
paddle_x = 320
paddle_y = 445
paddle_width = 75
paddle_height = 19
block_width = 40
block_height = 10
max_blocks = 128
ball_speed# = .75
`Make The Game Grid
ox=0
oy=0
dim grid(16,8)
grid(1,1)=1:grid(2,1)=1:grid(3,1)=1:grid(4,1)=1
grid(5,1)=1:grid(6,1)=1:grid(7,1)=1:grid(8,1)=1
grid(9,1)=1:grid(10,1)=1:grid(11,1)=1:grid(12,1)=1
grid(13,1)=1:grid(14,1)=1:grid(15,1)=1:grid(16,1)=1
grid(1,2)=1:grid(2,2)=1:grid(3,2)=1:grid(4,2)=1
grid(5,2)=1:grid(6,2)=1:grid(7,2)=1:grid(8,2)=1
grid(9,2)=1:grid(10,2)=1:grid(11,2)=1:grid(12,2)=1
grid(13,2)=1:grid(14,2)=1:grid(15,2)=1:grid(16,2)=1
grid(1,3)=1:grid(2,3)=1:grid(3,3)=1:grid(4,3)=1
grid(5,3)=1:grid(6,3)=1:grid(7,3)=1:grid(8,3)=1
grid(9,3)=1:grid(10,3)=1:grid(11,3)=1:grid(12,3)=1
grid(13,3)=1:grid(14,3)=1:grid(15,3)=1:grid(16,3)=1
grid(1,4)=1:grid(2,4)=1:grid(3,4)=1:grid(4,4)=1
grid(5,4)=1:grid(6,4)=1:grid(7,4)=1:grid(8,4)=1
grid(9,4)=1:grid(10,4)=1:grid(11,4)=1:grid(12,4)=1
grid(13,4)=1:grid(14,4)=1:grid(15,4)=1:grid(16,4)=1
grid(1,5)=1:grid(2,5)=1:grid(3,5)=1:grid(4,5)=1
grid(5,5)=1:grid(6,5)=1:grid(7,5)=1:grid(8,5)=1
grid(9,5)=1:grid(10,5)=1:grid(11,5)=1:grid(12,5)=1
grid(13,5)=1:grid(14,5)=1:grid(15,5)=1:grid(16,5)=1
grid(1,6)=1:grid(2,6)=1:grid(3,6)=1:grid(4,6)=1
grid(5,6)=1:grid(6,6)=1:grid(7,6)=1:grid(8,6)=1
grid(9,6)=1:grid(10,6)=1:grid(11,6)=1:grid(12,6)=1
grid(13,6)=1:grid(14,6)=1:grid(15,6)=1:grid(16,6)=1
grid(1,7)=1:grid(2,7)=1:grid(3,7)=1:grid(4,7)=1
grid(5,7)=1:grid(6,7)=1:grid(7,7)=1:grid(8,7)=1
grid(9,7)=1:grid(10,7)=1:grid(11,7)=1:grid(12,7)=1
grid(13,7)=1:grid(14,7)=1:grid(15,7)=1:grid(16,7)=1
grid(1,8)=1:grid(2,8)=1:grid(3,8)=1:grid(4,8)=1
grid(5,8)=1:grid(6,8)=1:grid(7,8)=1:grid(8,8)=1
grid(9,8)=1:grid(10,8)=1:grid(11,8)=1:grid(12,8)=1
grid(13,8)=1:grid(14,8)=1:grid(15,8)=1:grid(16,8)=1
for i = 1 to max_blocks
for x = 0 to 15
for y = 0 to 7
if grid(x,y) = 1
sprite i, ox+x*block_width, oy+y*block_height,10
endif
next y
next x
next i
`****************************************
`Load Media
`****************************************
load image "images/paddle.bmp",1
load image "images/ball.bmp",2
sprite 101, 320, 240, 2
offset sprite 101, 10, 10
set sprite 101, 0, 1
rotate sprite 101, 225
sprite 100,paddle_x,paddle_y,1
`****************************************
`Main Loop
`****************************************
do
cls
`\\ Load new level if needed
if level=1
restore level1
read b
for a = 1 to b
read x
read y
sprite a,x,y,10
next a
endif
`\\ Move paddle
if rightkey()=1 then paddle_x = paddle_x + 2
if leftkey()=1 then paddle_x = paddle_x - 2
`\\ Position sprites
sprite 100,paddle_x,paddle_y,1
move sprite 101,ball_speed#
`\\ Bounce against a horizontal surface
if sprite y(101) < 20 or sprite collision (101,100)
rotate sprite 101, FixWrapvalue(180-sprite angle(101))
endif
`\\ Bounce against a vertical surface
if sprite x(101) < 20 or sprite x(101) > 620
rotate sprite 101, FixWrapvalue( (270-sprite angle(101)) + 90 )
endif
`\\ Check if paddle is beyond screen
if paddle_x <= 0 then paddle_x = 0
if paddle_x >= 565 then paddle_x = 565
sync
loop
function FixWrapvalue(Value as float)
Value = wrapvalue( Value )
if Value < 0.0 then inc Value, 360.0
endfunction Value
There's no problem so large it can't be solved by killing the user off, deleting their files, closing their account and reporting their REAL earnings to the IRS.
