Image Clear Help (Menus) - GameCreators Forum

Author

Message

x_THOR_x

19

Years of Service

User Offline

Joined: 26th Feb 2007

Location:

Posted: 18th Nov 2011 04:13

Link

I had an example menu for a while that I found in the code database here. I have been messing around with it but I am having some trouble. When I click on the START button it loads a 2nd menu but if I move my mouse over the screen the buttons from the first menu screen show through the 2nd menu screen. I cant figure out how to stop this, I tried everything I could think of. Is there a way to CLEAR the images from the first menu once the user makes a selection?

set display mode 1600,900,32

global CMenu
global nextfreeimage as integer

` Image numbers. Note that over images are followed by their respective down image.
mainmenu = freeImage()
    optiononeover = freeImage()
        optiononedown = freeImage()
    optiontwoover = freeImage()
        optiontwodown = freeImage()
    optionthreeover = freeImage()
        optionthreedown = freeImage()
menutwo = freeImage()

` load menus
load image "Images/Title.png",mainmenu,1
load image "Images/Title2.png",menutwo,1

` Load each selected text
load image "Images/Menu1Select.png",optiononeover,1
load image "ImagesMenu2Select.png",optiontwoover,1
load image "Images/Menu3Select.png",optionthreeover,1

`Load down state text
load image "Images/Menu1click.png",optiononedown,1
load image "ImagesMenu2click.png",optiontwodown,1
load image "Images/Menu3click.png",optionthreedown,1

Load Sound "Sound/Menu.wav", 1
loop sound 1

sync on
` Set the starting menu
CMenu=1
do
 
 Menu( CMenu, optiononeover, optionthreedown, 653, 482)
 
 sync

loop

function freeImage()

` Find the first free image number
    repeat
     ` Go to the next image number  (Starts at 1 to not produce an error)
     inc nextfreeimage
     ` Don't leave the loop till the image doesn't exist
    until image exist(nextfreeimage)=0

endfunction nextfreeimage

function Menu(menuID, mstart, mend, x, y)

`set local y value to check for clicked images
    local resety as integer : resety = y
    
    ` Show the background
    paste image menuID,0,0
    
    ` Go though each menu selection image
    for t= mstart to mend step 2
        ` Check if the mouse is on the menu selection
        if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
            ` Show the current selected image
            paste image t,x,y,1
			   ` Check for mouse clicks
			   if mouseclick()>0
			   	` Show clicked version of the image
			   	paste image t+1,x,y,1
			   	sync
			   	` Wait for the user to let go of the mouse buttons
			   	MouseWait()
					` Check again to make sure the mouse is still in the right area for a click
					if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
        				` Call the MenuSelect() function
        				MenuSelect(t)
        		   endif
        		endif
        endif
        ` Go to the next menu selection; inc value is about the image size plus space between.
        inc y,116
    next t

endfunction

function MenuSelect(Choice)
 
 ` Selected by mouseover image number
 select Choice
   
  ` Menu Option 1
  case 2
   ` Change to the first menu
   CMenu=1
  endcase

` Menu Option 2
  case 4
  
  endcase
  
  ` Menu Option 3
  case 6
   ` Change to the other menu
   `CMenu=8
   end
  endcase

case default
  endcase

endselect

endfunction

function MouseWait()

` Wait for the user to let go of the mouse buttons
 repeat
 until mouseclick()=0
 
endfunction

+ Code Snippet

set display mode 1600,900,32

global CMenu
global nextfreeimage as integer

` Image numbers. Note that over images are followed by their respective down image.
mainmenu = freeImage()
    optiononeover = freeImage()
        optiononedown = freeImage()
    optiontwoover = freeImage()
        optiontwodown = freeImage()
    optionthreeover = freeImage()
        optionthreedown = freeImage()
menutwo = freeImage()

` load menus
load image "Images/Title.png",mainmenu,1
load image "Images/Title2.png",menutwo,1

` Load each selected text
load image "Images/Menu1Select.png",optiononeover,1
load image "ImagesMenu2Select.png",optiontwoover,1
load image "Images/Menu3Select.png",optionthreeover,1

`Load down state text
load image "Images/Menu1click.png",optiononedown,1
load image "ImagesMenu2click.png",optiontwodown,1
load image "Images/Menu3click.png",optionthreedown,1

Load Sound "Sound/Menu.wav", 1
loop sound 1

sync on
` Set the starting menu
CMenu=1
do
 
 Menu( CMenu, optiononeover, optionthreedown, 653, 482)
 
 sync

loop

function freeImage()

    ` Find the first free image number
    repeat
     ` Go to the next image number  (Starts at 1 to not produce an error)
     inc nextfreeimage
     ` Don't leave the loop till the image doesn't exist
    until image exist(nextfreeimage)=0

endfunction nextfreeimage

function Menu(menuID, mstart, mend, x, y)

    `set local y value to check for clicked images
    local resety as integer : resety = y
    
    ` Show the background
    paste image menuID,0,0
    
    ` Go though each menu selection image
    for t= mstart to mend step 2
        ` Check if the mouse is on the menu selection
        if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
            ` Show the current selected image
            paste image t,x,y,1
			   ` Check for mouse clicks
			   if mouseclick()>0
			   	` Show clicked version of the image
			   	paste image t+1,x,y,1
			   	sync
			   	` Wait for the user to let go of the mouse buttons
			   	MouseWait()
					` Check again to make sure the mouse is still in the right area for a click
					if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
        				` Call the MenuSelect() function
        				MenuSelect(t)
        		   endif
        		endif
        endif
        ` Go to the next menu selection; inc value is about the image size plus space between.
        inc y,116
    next t

endfunction


function MenuSelect(Choice)
 
 ` Selected by mouseover image number
 select Choice
   
  ` Menu Option 1
  case 2
   ` Change to the first menu
   CMenu=1
  endcase

  ` Menu Option 2
  case 4
  
  endcase
  
  ` Menu Option 3
  case 6
   ` Change to the other menu
   `CMenu=8
   end
  endcase

  case default
  endcase

 endselect

endfunction


function MouseWait()

 ` Wait for the user to let go of the mouse buttons
 repeat
 until mouseclick()=0
 
endfunction

Back to top

Profile PM

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 18th Nov 2011 13:24

Link

At a quick glance it looks like the program uses t to pick which images to paste. So t needs to be increased for each menu... as far as I can tell.

Back to top

Profile PM Email Website

x_THOR_x

19

Years of Service

User Offline

Joined: 26th Feb 2007

Location:

Posted: 19th Nov 2011 05:40

Link

Im not quite sure what you mean but I will keep trying.

Back to top

Profile PM

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 19th Nov 2011 09:37

Link

A lot of that looks like my code. Do you remember which message you got that from? If you repaste the background image all will be cleared.

It's actually easier to use SPRITEs instead so you don't use PASTE IMAGE and overwrite the background image. If you use SPRITEs you change the image number used and the background remains intact.

Back to top

Profile PM Email

x_THOR_x

19

Years of Service

User Offline

Joined: 26th Feb 2007

Location:

Posted: 19th Nov 2011 17:19

Link

I got it from the Code Database a while ago.

http://www.thegamecreators.com/?m=codebase_view&i=5a0b2048565c568ac987a79da71b1c54

Back to top

Profile PM

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 19th Nov 2011 17:53

Link

Did you make new backgrounds that cover the entire screen size you want to use? If it doesn't fully cover the screen it won't look right. Can you post your modified media?

Back to top

Profile PM Email

x_THOR_x

19

Years of Service

User Offline

Joined: 26th Feb 2007

Location:

Posted: 19th Nov 2011 21:54

Link

Here is what I have so far. Images also attached.

Rem ***** Main Source File *****
set display mode 1600,900,32

global CMenu
global nextfreeimage as integer

` Image numbers. Note that over images are followed by their respective down image.
mainmenu = freeImage()
    optiononeover = freeImage()
        optiononedown = freeImage()
    optiontwoover = freeImage()
        optiontwodown = freeImage()
    optionthreeover = freeImage()
        optionthreedown = freeImage()
menutwo = freeImage()

` load menus
load image "Images/Title.png",mainmenu,1
load image "Images/Title2.png",menutwo,1

` Load each selected text
load image "Images/Menu1Select.png",optiononeover,1
load image "ImagesMenu2Select.png",optiontwoover,1
load image "Images/Menu3Select.png",optionthreeover,1

`Load down state text
load image "Images/Menu1click.png",optiononedown,1
load image "ImagesMenu2click.png",optiontwodown,1
load image "Images/Menu3click.png",optionthreedown,1

sync on
` Set the starting menu
CMenu=1
do
 
 Menu( CMenu, optiononeover, optionthreedown, 653, 482)
 
 sync

loop

function freeImage()

` Find the first free image number
    repeat
     ` Go to the next image number  (Starts at 1 to not produce an error)
     inc nextfreeimage
     ` Don't leave the loop till the image doesn't exist
    until image exist(nextfreeimage)=0

endfunction nextfreeimage

function Menu(menuID, mstart, mend, x, y)

`set local y value to check for clicked images
    local resety as integer : resety = y
    
    ` Show the background
    paste image menuID,0,0
    
    ` Go though each menu selection image
    for t= mstart to mend step 2
        ` Check if the mouse is on the menu selection
        if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
            ` Show the current selected image
            paste image t,x,y,1
			   ` Check for mouse clicks
			   if mouseclick()>0
			   	` Show clicked version of the image
			   	paste image t+1,x,y,1
			   	sync
			   	` Wait for the user to let go of the mouse buttons
			   	MouseWait()
					` Check again to make sure the mouse is still in the right area for a click
					if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
        				` Call the MenuSelect() function
        				MenuSelect(t)
        		   endif
        		endif
        endif
        ` Go to the next menu selection; inc value is about the image size plus space between.
        inc y,116
    next t

endfunction

function MenuSelect(Choice)
 
 ` Selected by mouseover image number
 select Choice
   
  ` Menu Option 1
  case 2
   ` Change to the first menu
   CMenu=1
  endcase

` Menu Option 2
  case 4
  
  endcase
  
  ` Menu Option 3
  case 6
   ` Change to the other menu
   `CMenu=8
   end
  endcase

case default
  endcase

endselect

endfunction

function MouseWait()

` Wait for the user to let go of the mouse buttons
 repeat
 until mouseclick()=0
 
endfunction

+ Code Snippet

Rem ***** Main Source File *****
set display mode 1600,900,32

global CMenu
global nextfreeimage as integer

` Image numbers. Note that over images are followed by their respective down image.
mainmenu = freeImage()
    optiononeover = freeImage()
        optiononedown = freeImage()
    optiontwoover = freeImage()
        optiontwodown = freeImage()
    optionthreeover = freeImage()
        optionthreedown = freeImage()
menutwo = freeImage()

` load menus
load image "Images/Title.png",mainmenu,1
load image "Images/Title2.png",menutwo,1

` Load each selected text
load image "Images/Menu1Select.png",optiononeover,1
load image "ImagesMenu2Select.png",optiontwoover,1
load image "Images/Menu3Select.png",optionthreeover,1

`Load down state text
load image "Images/Menu1click.png",optiononedown,1
load image "ImagesMenu2click.png",optiontwodown,1
load image "Images/Menu3click.png",optionthreedown,1


sync on
` Set the starting menu
CMenu=1
do
 
 Menu( CMenu, optiononeover, optionthreedown, 653, 482)
 
 sync

loop

function freeImage()

    ` Find the first free image number
    repeat
     ` Go to the next image number  (Starts at 1 to not produce an error)
     inc nextfreeimage
     ` Don't leave the loop till the image doesn't exist
    until image exist(nextfreeimage)=0

endfunction nextfreeimage

function Menu(menuID, mstart, mend, x, y)

    `set local y value to check for clicked images
    local resety as integer : resety = y
    
    ` Show the background
    paste image menuID,0,0
    
    ` Go though each menu selection image
    for t= mstart to mend step 2
        ` Check if the mouse is on the menu selection
        if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
            ` Show the current selected image
            paste image t,x,y,1
			   ` Check for mouse clicks
			   if mouseclick()>0
			   	` Show clicked version of the image
			   	paste image t+1,x,y,1
			   	sync
			   	` Wait for the user to let go of the mouse buttons
			   	MouseWait()
					` Check again to make sure the mouse is still in the right area for a click
					if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
        				` Call the MenuSelect() function
        				MenuSelect(t)
        		   endif
        		endif
        endif
        ` Go to the next menu selection; inc value is about the image size plus space between.
        inc y,116
    next t

endfunction


function MenuSelect(Choice)
 
 ` Selected by mouseover image number
 select Choice
   
  ` Menu Option 1
  case 2
   ` Change to the first menu
   CMenu=1
  endcase

  ` Menu Option 2
  case 4
  
  endcase
  
  ` Menu Option 3
  case 6
   ` Change to the other menu
   `CMenu=8
   end
  endcase

  case default
  endcase

 endselect

endfunction


function MouseWait()

 ` Wait for the user to let go of the mouse buttons
 repeat
 until mouseclick()=0
 
endfunction

Back to top

Profile PM

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 19th Nov 2011 22:59

Link

One of the things I put in the original that your version doesn't have is the words on the background of the non-selected menu items. Without words the user won't know what's there unless they move the mouse over the menu items that cannot be seen. The attached image is what you should be using for your title screen instead (I just threw it together so it's not perfect).

Those menu item images really need to have a transparent background so you don't see the red background in them.

Back to top

Profile PM Email

x_THOR_x

19

Years of Service

User Offline

Joined: 26th Feb 2007

Location:

Posted: 21st Nov 2011 03:54 Edited at: 21st Nov 2011 03:55

Link

Ok I got that fixed. I decided to get rid of the LOAD option for now. I just have a START and EXIT option. But now when I move the mouse over the exit option, nothing happens and if I click it, it doesnt work.

Attachment Uploaded

set display mode 1600,900,32

global CMenu
global nextfreeimage as integer

` Image numbers. Note that over images are followed by their respective down image.
mainmenu = freeImage()
    optiononeover = freeImage()
        optiononedown = freeImage()
    optiontwoover = freeImage()
        optiontwodown = freeImage()
    optionthreeover = freeImage()
        optionthreedown = freeImage()
menutwo = freeImage()

` load menus
load image "Images/Title.png",mainmenu,1

` Load each selected text
load image "Images/Menu1Select.png",optiononeover,1
load image "ImagesMenu2Select.png",optiontwoover,1

`Load down state text
load image "Images/Menu1click.png",optiononedown,1
load image "ImagesMenu2click.png",optiontwodown,1

sync on
` Set the starting menu
CMenu=1
do
 
 Menu( CMenu, optiononeover, optionthreedown, 1149, 510)
 
 sync

loop

function freeImage()

` Find the first free image number
    repeat
     ` Go to the next image number  (Starts at 1 to not produce an error)
     inc nextfreeimage
     ` Don't leave the loop till the image doesn't exist
    until image exist(nextfreeimage)=0

endfunction nextfreeimage

function Menu(menuID, mstart, mend, x, y)

`set local y value to check for clicked images
    local resety as integer : resety = y
    
    ` Show the background
    paste image menuID,0,0
    
    ` Go though each menu selection image
    for t= mstart to mend step 4
        ` Check if the mouse is on the menu selection
        if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
            ` Show the current selected image
            paste image t,x,y,1
			   ` Check for mouse clicks
			   if mouseclick()>0
			   	` Show clicked version of the image
			   	paste image t+1,x,y,1
			   	sync
			   	` Wait for the user to let go of the mouse buttons
			   	MouseWait()
					` Check again to make sure the mouse is still in the right area for a click
					if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
        				` Call the MenuSelect() function
        				MenuSelect(t)
        		   endif
        		endif
        endif
        ` Go to the next menu selection; inc value is about the image size plus space between.
        inc y,88
    next t

endfunction

function MenuSelect(Choice)
 
 ` Selected by mouseover image number
 select Choice
   
  ` Menu Option 1
  case 2
   ` Change to the first menu
   CMenu=1
  endcase

` Menu Option 2 End Game
  case 4
  End
  endcase

endselect

endfunction

function MouseWait()

` Wait for the user to let go of the mouse buttons
 repeat
 until mouseclick()=0
 
endfunction

+ Code Snippet

set display mode 1600,900,32

global CMenu
global nextfreeimage as integer

` Image numbers. Note that over images are followed by their respective down image.
mainmenu = freeImage()
    optiononeover = freeImage()
        optiononedown = freeImage()
    optiontwoover = freeImage()
        optiontwodown = freeImage()
    optionthreeover = freeImage()
        optionthreedown = freeImage()
menutwo = freeImage()

` load menus
load image "Images/Title.png",mainmenu,1


` Load each selected text
load image "Images/Menu1Select.png",optiononeover,1
load image "ImagesMenu2Select.png",optiontwoover,1


`Load down state text
load image "Images/Menu1click.png",optiononedown,1
load image "ImagesMenu2click.png",optiontwodown,1


sync on
` Set the starting menu
CMenu=1
do
 
 Menu( CMenu, optiononeover, optionthreedown, 1149, 510)
 
 sync

loop

function freeImage()

    ` Find the first free image number
    repeat
     ` Go to the next image number  (Starts at 1 to not produce an error)
     inc nextfreeimage
     ` Don't leave the loop till the image doesn't exist
    until image exist(nextfreeimage)=0

endfunction nextfreeimage

function Menu(menuID, mstart, mend, x, y)

    `set local y value to check for clicked images
    local resety as integer : resety = y
    
    ` Show the background
    paste image menuID,0,0
    
    ` Go though each menu selection image
    for t= mstart to mend step 4
        ` Check if the mouse is on the menu selection
        if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
            ` Show the current selected image
            paste image t,x,y,1
			   ` Check for mouse clicks
			   if mouseclick()>0
			   	` Show clicked version of the image
			   	paste image t+1,x,y,1
			   	sync
			   	` Wait for the user to let go of the mouse buttons
			   	MouseWait()
					` Check again to make sure the mouse is still in the right area for a click
					if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
        				` Call the MenuSelect() function
        				MenuSelect(t)
        		   endif
        		endif
        endif
        ` Go to the next menu selection; inc value is about the image size plus space between.
        inc y,88
    next t

endfunction


function MenuSelect(Choice)
 
 ` Selected by mouseover image number
 select Choice
   
  ` Menu Option 1
  case 2
   ` Change to the first menu
   CMenu=1
  endcase

  ` Menu Option 2 End Game
  case 4
  End
  endcase
  

 endselect

endfunction




function MouseWait()

 ` Wait for the user to let go of the mouse buttons
 repeat
 until mouseclick()=0
 
endfunction

Back to top

Profile PM

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 21st Nov 2011 07:21

Link

It's because you changed the STEP 2 to STEP 4 in the FOR/NEXT loop checking for the buttons. It's at STEP 2 because it skips every other image number because the first image is the mouse hover image and the next one after that is the clicked image. The exit image is a bit off because each image needs to be exactly the same size for it to line up properly.

set display mode 1600,900,32

global CMenu
global nextfreeimage as integer

` Image numbers. Note that over images are followed by their respective down image.
mainmenu = freeImage()
    optiononeover = freeImage()
        optiononedown = freeImage()
    optiontwoover = freeImage()
        optiontwodown = freeImage()
    optionthreeover = freeImage()
        optionthreedown = freeImage()
menutwo = freeImage()

` load menus
load image "Images/Title.png",mainmenu,1

` Load each selected text
load image "Images/Menu1Select.png",optiononeover,1
load image "Images/Menu2Select.png",optiontwoover,1

`Load down state text
load image "Images/Menu1click.png",optiononedown,1
load image "Images/Menu2click.png",optiontwodown,1

sync on
` Set the starting menu
CMenu=1
do
 
 Menu( CMenu, optiononeover, optionthreedown, 1149, 510)
 
 sync

loop

function freeImage()

` Find the first free image number
    repeat
     ` Go to the next image number  (Starts at 1 to not produce an error)
     inc nextfreeimage
     ` Don't leave the loop till the image doesn't exist
    until image exist(nextfreeimage)=0

endfunction nextfreeimage

function Menu(menuID, mstart, mend, x, y)

`set local y value to check for clicked images
    local resety as integer : resety = y
    
    ` Show the background
    paste image menuID,0,0
    
    ` Go though each menu selection image
    for t= mstart to mend step 2
        ` Check if the mouse is on the menu selection
        if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
            ` Show the current selected image
            paste image t,x,y,1
			   ` Check for mouse clicks
			   if mouseclick()>0
			   	` Show clicked version of the image
			   	paste image t+1,x,y,1
			   	sync
			   	` Wait for the user to let go of the mouse buttons
			   	MouseWait()
					` Check again to make sure the mouse is still in the right area for a click
					if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
        				` Call the MenuSelect() function
        				MenuSelect(t)
        		   endif
        		endif
        endif
        ` Go to the next menu selection; inc value is about the image size plus space between.
        inc y,144
	 next t

endfunction

function MenuSelect(Choice)
 
 ` Selected by mouseover image number
 select Choice
   
  ` Menu Option 1
  case 2
   ` Change to the first menu
   CMenu=1
  endcase

` Menu Option 2 End Game
  case 4
  End
  endcase

endselect

endfunction

function MouseWait()

` Wait for the user to let go of the mouse buttons
 repeat
 until mouseclick()=0
 
endfunction

+ Code Snippet

set display mode 1600,900,32

global CMenu
global nextfreeimage as integer

` Image numbers. Note that over images are followed by their respective down image.
mainmenu = freeImage()
    optiononeover = freeImage()
        optiononedown = freeImage()
    optiontwoover = freeImage()
        optiontwodown = freeImage()
    optionthreeover = freeImage()
        optionthreedown = freeImage()
menutwo = freeImage()

` load menus
load image "Images/Title.png",mainmenu,1


` Load each selected text
load image "Images/Menu1Select.png",optiononeover,1
load image "Images/Menu2Select.png",optiontwoover,1


`Load down state text
load image "Images/Menu1click.png",optiononedown,1
load image "Images/Menu2click.png",optiontwodown,1


sync on
` Set the starting menu
CMenu=1
do
 
 Menu( CMenu, optiononeover, optionthreedown, 1149, 510)
 
 sync

loop

function freeImage()

    ` Find the first free image number
    repeat
     ` Go to the next image number  (Starts at 1 to not produce an error)
     inc nextfreeimage
     ` Don't leave the loop till the image doesn't exist
    until image exist(nextfreeimage)=0

endfunction nextfreeimage

function Menu(menuID, mstart, mend, x, y)

    `set local y value to check for clicked images
    local resety as integer : resety = y
    
    ` Show the background
    paste image menuID,0,0
    
    ` Go though each menu selection image
    for t= mstart to mend step 2
        ` Check if the mouse is on the menu selection
        if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
            ` Show the current selected image
            paste image t,x,y,1
			   ` Check for mouse clicks
			   if mouseclick()>0
			   	` Show clicked version of the image
			   	paste image t+1,x,y,1
			   	sync
			   	` Wait for the user to let go of the mouse buttons
			   	MouseWait()
					` Check again to make sure the mouse is still in the right area for a click
					if mousex()=>x and mousey()=>y and mousex()<=x+image width(t) and mousey()<=y+image height(t)
        				` Call the MenuSelect() function
        				MenuSelect(t)
        		   endif
        		endif
        endif
        ` Go to the next menu selection; inc value is about the image size plus space between.
        inc y,144
	 next t

endfunction


function MenuSelect(Choice)
 
 ` Selected by mouseover image number
 select Choice
   
  ` Menu Option 1
  case 2
   ` Change to the first menu
   CMenu=1
  endcase

  ` Menu Option 2 End Game
  case 4
  End
  endcase
  

 endselect

endfunction




function MouseWait()

 ` Wait for the user to let go of the mouse buttons
 repeat
 until mouseclick()=0
 
endfunction

Back to top

Profile PM Email

x_THOR_x

19

Years of Service

User Offline

Joined: 26th Feb 2007

Location:

Posted: 25th Nov 2011 03:36

Link

Thank you very much Grog, I see where I got stuck now.
Thank you again.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Image Clear Help (Menus)