Here's the code
NOTE: Just a work-in-progress ok?
Happy?====> EDITED TWICE
Graphics 800,600 ;Images COE=LoadImage["cube_of_evil.bmp"] hand=LoadImage["hand.bmp"] title=LoadImage["title.bmp"] Xbound=LoadImage["X-boundary"] Ybound=LoadImage["Y-boundary"] mouse=LoadImage["mouse.bmp"] new0=LoadImage["newgame.bmp"] highscore0=LoadImage["highscore.bmp"] Global highscore1=LoadImage["highscore1.bmp"] options0=LoadImage["options.bmp"] Global options1=LoadImage["options1.bmp"] Global neww=LoadImage["newgame1.bmp"] ;Fonts fntArial=LoadFont["Arial",48,False,True,False] fntbroadway=LoadFont["Broadway",36,False,False,False] fntgameover=LoadFont["Chiller",48,True,True,False] While Not KeyDown[1] SetFont fntArial Color 0,0,255 .menu SetFont fntbroadway Cls DrawImage title,200,0 DrawImage new0,300,250,0 DrawImage highscore0,300,300,0 DrawImage options0,300,350,0 DrawImage mouse,MouseX(),MouseY() HighlightNewGame[mouse,MouseX(),MouseY(),300,250,205,31] HighlightHighScore[mouse,MouseX(),MouseY(),300,300,205,31] HighlightOptions[mouse,MouseX(),MouseY(),300,350,205,31] Delay 25 Flip Wend Function HighlightNewGame[a1%,a2%,a3%,a4%,a5%,a6%,a7%] If ImageRectOverlap[a1,a2,a3,a4,a5,a6,a7] DrawImage neww,300,250,0 End If End Function Function HighlightHighScore[a1%,a2%,a3%,a4%,a5%,a6%,a7%] If ImageRectOverlap[a1,a2,a3,a4,a5,a6,a7] DrawImage highscore1,300,300,0 EndIf End Function Function HighlightOptions[a1%,a2%,a3%,a4%,a5%,a6%,a7%] If ImageRectOverlap[a1,a2,a3,a4,a5,a6,a7] DrawImage options1,300,350,0 EndIf End Function Function Click1[HighlightNewGame] If MouseDown[1] And HighlightNewGame = 1 Then Goto newgame EndIf End Function .newgame Text 400,300,"NEW GAME" Delay 5000 End
NOTE: Just a work-in-progress ok?
Happy?====> EDITED TWICE