I dont think i can do that, here is my script
`--------------------------
set display mode 800,600,32
load image "Images/ad1.bmp" ,1
load sound "sound/ad1ffx.wav", 100
paste image 1,0,0
play sound 100
wait 5500
delete image 1
delete sound 100
cls
load image "Images/ad2.bmp",2
load sound "sound/spacefighterffx.wav",101
paste image 2,0,0
play sound 101
wait 7500
delete image 2
delete sound 101
cls
`--------------------------
sync on
sync rate 40
Load sound "sound/spacefightermenu.wav",102
load sound "sound/buttonclick.wav",103
loop sound 102
`------------------------------------------------------
load image "Images/menu.bmp",3
load image "Images/newgame.bmp",4
load image "Images/newgameov.bmp",5
load image "Images/Password.bmp",6
load image "Images/passwordov.bmp",7
load image "Images/Instructions.bmp",8
load image "Images/Instructionsov.bmp",9
load image "Images/exit.bmp",10
load image "Images/exitov.bmp",11
load image "Images/Instructions_Screen.bmp",12
`------------------------------------------------------
MainMenu:
do
paste image 3,0,0
paste image 4,25,290
paste image 6,25,390
paste image 8,25,480
paste image 10,625,425
`----------------------------------------------------------
`-------------Buttons---------
`-------Menu----------
Mx=MouseX(): My=MouseY(): Mc=MouseClick()
If Mx>23 And My>295 And Mx<399 And My<373 And Mc=1
If PutImg1 <> 2
Paste Image 5,25,290
PutImg1 = 2:
Endif
If Mc=1
Play Sound 103
`Gosub Whatever
Endif
Repeat
Until MouseClick()=0
Else
If PutImg1 <> 1
Paste Image 4,25,290
PutImg1 = 1:
Endif
Endif
`-------Password----------
If Mx>24 And My>385 And Mx<423 And My<472 And Mc=1
If PutImg2 <> 2
Paste Image 7,25,390
PutImg2 = 2:
Endif
If Mc=1
Play Sound 103
`Gosub Whatever
Endif
Repeat
Until MouseClick()=0
Else
If PutImg1 <> 1
Paste Image 6,25,390
PutImg1 = 1:
Endif
Endif
`-------Instructions----------
If Mx>24 And My>477 And Mx<501 And My<563 And Mc=1
If PutImg3 <> 2
Paste Image 9,25,480
PutImg2 = 2:
Endif
If Mc=1
Play Sound 103
Gosub Instructions
Endif
Repeat
Until MouseClick()=0
Else
If PutImg1 <> 1
Paste Image 8,25,480
PutImg1 = 1:
Endif
Endif
`-------Exit----------
If Mx>627 And My>431 And Mx<782 And My<504 And Mc=1
If PutImg4 <> 2
Paste Image 11,625,425
PutImg2 = 2:
Endif
If Mc=1
Play Sound 103
End
Endif
Repeat
Until MouseClick()=0
Else
If PutImg1 <> 1
Paste Image 10,625,425
PutImg1 = 1:
Endif
Endif
`----------------Button End------------------------
sync:loop
`------------------------------------------------------------
Instructions:
Paste Image 12,0,0
do
`------------Menu Back Button-----------------
Mx=MouseX(): My=MouseY(): Mc=MouseClick()
If Mx>573 And My>500 And Mx<790 And My<585 And Mc=1
If PutImg5 <> 2
Paste Image 11,625,425
PutImg2 = 2:
Endif
If Mc=1
Play Sound 103
Gosub MainMenu
Endif
Repeat
Until MouseClick()=0
Else
If PutImg1 <> 1
Paste Image 10,625,425
PutImg1 = 1:
Endif
Endif
`------------End Menu Back Button--------------
sync:loop
`-----------------------------------------------------------
Password:
Do
Sync
Loop
`--------------------------------------------------
NewGame:
I tried to take out the paste image commands at the top that put the button in (not the one in the linking buttons and mouseover code) hoping that it would work because if mouse is not over it, it should be displaying the normal image, but it didnt work.
http://www.Bevansfunbox.com