menu help
Blitz3D Forums/Blitz3D Beginners Area/menu help
| ||
ok i searched the forums and didn't see the problem anywere so i'm posting this. i so far have a background and three buttons. now if i click on the first one it works but if i try to use the other buttons they don't work. Not sure why though cause they were written in the same way as the first one.; A 3rd person space shooter ; By R. Manwiller ; Type player Field ent,x,y,z,kills,hp,score End Type mainmenu() End Function mainmenu() Graphics 800,600,16,0 SetBuffer BackBuffer() AutoMidHandle True mainbg=LoadImage("media\mbg.bmp") button1=LoadImage("media\button1.bmp") button2=LoadImage("media\button2.bmp") button3=LoadImage("media\button3.bmp") mouseim=LoadImage("media\mouseim.bmp") ;MaskImage mouseim,255,255,255 Repeat Cls TileImage mainbg DrawImage button1,400,300 DrawImage button2,400,400 DrawImage button3,730,562 DrawImage mouseim,MouseX()+6,MouseY()+12 If ImagesOverlap(mouseim,MouseX(),MouseY(),button1,400,300) And MouseHit(1) startup() Else If ImagesOverlap(mouseim,MouseX(),MouseY(),button2,400,400) And MouseHit(1) config() Else If ImagesOverlap(mouseim,MouseX(),MouseY(),button3,730,562) And MouseHit(1) End EndIf Flip Until KeyHit(1) End Function Function config() Cls gw=Input("what is your screen width? ") gh=Input("what is your screen height? ") cd=Input("what is your color depth? ") fileout=WriteFile ("config.dat") WriteInt (fileout,gw) WriteInt (fileout,gh) WriteInt (fileout,cd) Print "press any key to continue" WaitKey() End Function Function Startup() filein=OpenFile("config.dat") If filein>0 gw=ReadInt(filein) gh=ReadInt(filein) cd=ReadInt(filein) Graphics3D gw,gh,cd,0 Else Graphics3D 800,600,16,0 End If SetBuffer BackBuffer() End Function |
| ||
Do something like: If mousehit (1) If ImagesOverlap(mouseim,MouseX(),MouseY(),button1,400,300) startup() Else If ImagesOverlap(mouseim,MouseX(),MouseY(),button2,400,400) config() Else If ImagesOverlap(mouseim,MouseX(),MouseY(),button3,730,562) End EndIf endif |
| ||
thankyou so much that worked with a hitch almost it didn't like the part in slashs where it was so i moved it down a lineElse If ImagesOverlap(mouseim,MouseX(),MouseY(),button3,730,562) /End/ |