Okay, youll need some images for some testing
The mouse is 20x20. the two other images are 640x20
Rem Project: Bomber Pro
Rem Created: 07/06/03 15:28:03
Rem ***** Main Source File *****
REM Initialise The Program
TopOfProgram:
SYNC ON
SYNC RATE 60
HIDE MOUSE
INK RGB(0,0,40),0
BOX 0,0,639,479
REM Run A Main Menu
REM ---------------
REM Firstly, Load Media
`LOAD IMAGE "Menu\Bg1.bmp",1
`LOAD IMAGE "Menu\Bg2.bmp",2
LOAD IMAGE "Menu\Bg3.bmp",3
LOAD IMAGE "Menu\Bg3.bmp",4
LOAD IMAGE "Menu\Bg4.bmp",5
LOAD IMAGE "Menu\Bg4.Bmp",6
`LOAD IMAGE "Menu\Banner.Bmp",7
`LOAD IMAGE "Menu\Exit.Bmp",8
`LOAD IMAGE "Menu\Plane.bmp",9
`LOAD IMAGE "Menu\Bomb.bmp",10
`LOAD IMAGE "Menu\Title.Bmp",11
`LOAD IMAGE "Menu\Sun.bmp",12
LOAD IMAGE "Menu\Mouse.Bmp",13
REM Variables For Loop
BG1 = 0
BG2 = 0
BG3 = 0
BG4 = 0
PlaneX = 670
PlaneY = 70
REM Begin The Main Menu Loop:
DO
REM Display Mouse Sprite
MX = MOUSEX()
MY = MOUSEY()
SPRITE 1,MX,MY,13
REM Control Water
BG3 = BG3 + 2
BG4 = BG4 + 3
IF BG3 = 640 THEN BG3 = 0
IF BG4 = 639 THEN BG4 = 0
SPRITE 3,BG3,440,3
SPRITE 4,(BG3-640),440,4
SPRITE 5,BG4,460,5
SPRITE 6,(BG4-640),460,6
REM End Main Menu Loop
SYNC
LOOP
This code works perfectly in DBC so im out of ideas!!
We are borg... You will be assimilated - Your technological distinctiveness will be added to our own... Resistance is futile!
Current Project: Bomber Pro