I once used a bit map to make an interactive menu to put onto a 3D object, dose any one have any ideas how to refine this as I need some help.
here is a snap shot
here is my code
`*** this is for the selling texture ***
function textureBuyer1(Gold,Object,Object_price,Rate,Mx#,My#,Items$,BuyorSell$,hilow1$)
`*** this is for chaning the bit map ***
if image exist(1)>0 then delete image 1
create bitmap 2,640,480
copy bitmap 1,2
set current bitmap 2
`*** left bottom button ***
if mouseclick()=1 and Mx# > 75 and Mx# < 145 and My# > 415 and My# < 450
copy bitmap 4,0,0,270,183,2,75,415,147,450
`*****************
ink rgb(255,255,255),0
set cursor 87,415 : print "Buy"
Swich_On = 1
else
`*** this is what the swich looks like normaly ***
copy bitmap 3,0,0,270,183,2,75,415,147,450
`*****************
ink rgb(0,125,255),0
set cursor 87,415 : print "Buy"
endif
`*** right bottom button ***
if mouseclick()=1 and Mx# > 165 and Mx# < 245 and My# > 415 and My# < 450
copy bitmap 4,0,0,270,183,2,175,415,247,450
`*****************
ink rgb(255,255,255),0
set cursor 179,417 : print "Sell"
Swich_On = 1
else
`*** this is what the swich looks like normaly ***
copy bitmap 3,0,0,270,183,2,175,415,247,450
`*****************
ink rgb(0,125,255),0
set cursor 179,417 : print "Sell"
endif
if mouseclick()=0 then Swich_On = 0
`*** right top button ***
if mouseclick()=1 and Mx# > 175 and Mx# < 247 and My# > 365 and My# < 397
copy bitmap 4,0,0,270,183,2,175,363,247,397
else
copy bitmap 3,0,0,270,183,2,175,363,247,397
endif
`*** left top button ***
if mouseclick()=1 and Mx# > 75 and Mx# < 147 and My# > 365 and My# < 397
copy bitmap 4,0,0,270,183,2,75,363,147,397
else
copy bitmap 3,0,0,270,183,2,75,363,147,397
endif
`*** the big button ***
if mouseclick()=1 and Mx# > 454 and Mx# < 572 and My# > 263 and My# < 314
copy bitmap 4,0,0,270,183,2,454,263,572,314
ink rgb(255,255,255),0
set cursor 467,272 : print "Except"
else
copy bitmap 3,0,0,270,183,2,454,263,572,314
ink rgb(0,125,255),0
set cursor 467,272 : print "Except"
endif
`*** this what is info printed on to the object ***
ink rgb(0,125,255),0
set cursor 65,25 : print BuyorSell$
set cursor 299,77 : print "Raetings ",hilow1$,Rate
set cursor 299,140 : print "Holdeding ",Object
set cursor 65,325 : print Items$
set cursor 300,350 : print "Total ",Object_price
set cursor 300,415 : print "Gold ",Gold
`*** the mouse box ***
ink rgb(0,0,255),0
box Mx#,My#,Mx#+7,My#+7
get image 1,0,0,640,480,1
set current bitmap 0
endfunction Swich_On
I'd love to have time to play around with this more, but if I do it will set my project back a lot, so if any one is up for helping me I will be most grateful, any examples, code or help files will be of great use, thanks in advance.
edit
don't know why the image wont come up, so sorry about that.
Soul sucking devils, twisting the body's of the damned, slivering slim drips from every poor, sin licking at ears, and a smell so bad it stings the eyes, welcome to the darkness.
