Hi Im working on a breakout style game.
I was trying to make a border with pipes by using the paste sprite command but when i tryo to paste sprites I dont see them. here is the code
Sync On
Sync Rate 0
byc=1
bxc=1
px=224
bx=100
by=100
Hide Mouse
CLS
Do
Sync
REM Check to quit
If escapekey()=1
Exit
endif
REM Get Images
REM Regular Paddle
Load Bitmap "D:\temp\paddle.bmp",1
Get Image 1,0,0,62,31
REM Blocks
Load Bitmap "D:\temp\blocks.bmp",2
Get Image 2,0,0,124,62
REM ball
Load Bitmap "D:\temp\ball.bmp",3
Get Image 3,0,0,31,31
REM Get Ready
Load Bitmap "D:\temp\getready.bmp",4
Get Image 4,0,0,168,18
REM Game Over
Load Bitmap "D:\temp\gameover.bmp",5
Get Image 5,0,0,153,20
REM High Score
Load Bitmap "D:\temp\highscore.bmp",6
Get Image 6,0,0,229,60
REM Pipes
Load Bitmap "D:\temp\pipes.bmp",7
REM Top Left
Get Image 7,0,0,31,31
REM Top center
Get Image 8,31,0,62,31
REM Main Screen
Load Bitmap "D:\temp\arinoidmain.bmp",9
Get Image 9,0,0,191,98
REM 0 32 64 96 128 160 192
REM Make Sprites
Sprite 1,px,450,1
Sprite 2,50,50,2
Sprite 3,bx,by,3
Sprite 4,200,200,4
Sprite 5,300,300,5
Sprite 6,400,400,6
rem makes this a function
If LeftKey()=1
px=px-10
endif
If RightKey()=1
px=px+10
endif
If px<=0
px=0
endif
If px>=580
px=580
endif
rem draw border
Sprite 7,0,0,7
Sprite 8,31,0,8
Paste Sprite 8,62,0
rem move ball
If bx<=-10
bxc=1
endif
If bx>=620
bxc=2
endif
If bxc=1
bx=bx+10
endif
If bxc=2
bx=bx-10
endif
If by<=-10
byc=1
endif
If by>=460
byc=2
endif
If byc=1
by=by+10
endif
If byc=2
by=by-10
endif
set current bitmap 0
Sync
Loop
The paste sprite is about 40 lines from the end.
Thanks for any help.
