new help with makeing a button for the mouse

[BadMrBox]

You can of course just call notepad using

Code: Select All | Copy To Clipboard

Shell("notepad.exe")

[Leonheart]

Yeah, but last time I used that, black command prompt showed for millisec. Arghh,

[the_laughing_man]

ok well i am doing some thing
there is nothing more to do but work  what can i say
i would love to make a rpg like wow in fb ?
 i think we could do that . rpg

[BadMrBox]

i would love to make a rpg like wow in fb ?  i think we could do that . rpg

Seriously... now I know you are just fooling around with us.

[hexdude!]

If you're just trying to learn some FB by practice, I'd suggest that simple games are easier than a shell. For example, to me, writing a shell seems like a big complicated job, even though I've written some simple games before.

If I were you I'd start with a very simple game (like duck shooting or something) and then try a slightly more complex one (like pong), then keep taking small steps until you get to a level of confidence. When you can figure out exactly what a project to write an OS or WOW clone will take, then you're at the right stage to start considering if you want to do that.

[the_laughing_man]

im back all
how is all doing it has been some time .
now i am thinking about it i want to make a game like empire earth.

so i got the mouse going i am going to work on makeing bars for the game 

[the_laughing_man]

i want to make this start of the game
 
so i will get started i will put up my code up ones i can click
on a human in the game an move him and build some thing he can fight or brake ....
and for him or her to cut down trees and bring it back to a house
so wood will go up .... just a start

[rens]

@BadMrBox

Just a thought. Why not check for mousekey first, instead of checking for the mousearea the whole time!

Code: Select All | Copy To Clipboard

screenres 640,480,32,2

Dim as Integer mousex, mousey, mousebuttons, buttonposx, buttonposy, exittheloop, theloop,selected

Type buttonset
    sizex as integer
    sizey as integer
    posx  as integer
    posy  as integer
    image as any Ptr
End Type

    Const True = 1
    Const False = Not True
       
Dim buttons(2) as buttonset

buttons(0).sizex = 100
buttons(0).sizey = 30
buttons(0).posx  = 50
buttons(0).posy  = 50
buttons(0).image = imagecreate(buttons(0).sizex,buttons(0).sizey)
bload "button.bmp",buttons(0).image


buttons(1).sizex = 100
buttons(1).sizey = 30
buttons(1).posx  = 100
buttons(1).posy  = 90
buttons(1).image = imagecreate(buttons(1).sizex,buttons(1).sizey)
bload "button.bmp",buttons(1).image

buttons(2).sizex = 100
buttons(2).sizey = 30
buttons(2).posx  = 50
buttons(2).posy  = 130
buttons(2).image = imagecreate(buttons(2).sizex,buttons(2).sizey)
bload "button.bmp",buttons(2).image

Do

ScreenLock

For theloop = 0 to 2
Put (buttons(theloop).posx,buttons(theloop).posy),buttons(theloop).image,PreSet
Next

Locate 1,1:? "Press the button"
GetMouse mousex, mousey , , mousebuttons
     
if mousebuttons=1 Then
For theloop=0 To 2
        If mousex > buttons(theloop).posx And mousex < buttons(theloop).posx + buttons(theloop).sizex Then
            If mousey > buttons(theloop).posy and mousey < buttons(theloop).posy + buttons(theloop).sizey Then
            selected=theloop
            exittheloop = TRUE
            EndIf
        End If
Next
End If

ScreenUnLock

Sleep 1,1
   
loop Until exittheloop = TRUE
Locate 2,2: ? "button";selected
Sleep
End

[nkk_kan]

You are one year late, sir. 

You could do it that way too. It was just an example. (although yours will be a bit more efficient)

[neo]

sorry had lots of stuff to do
i was the guy with the shell
an i am not trying to make  os
but gui so i know how it works
and to say i made it with help ......
i don't know everything lol but im back
ps.... old name was the laughing man
new name neo ...... 

[neo]

ps the plan is to have a Gui for free basic software for all the programmer have a place to put there fb code
all  i have to do is set it up an look a bit better ... new code will be up as soon as i can fix it
extreme_black_ops@hotmail.com