DarkBasic Mouse over question - GameCreators Forum

Author

Message

Kadath

21

Years of Service

User Offline

Joined: 13th Apr 2003

Location:

Posted: 14th Apr 2003 02:55

Link

Hi all,

I'm new to the forums and to DarkBASIC so I hope my question doesn't come off as foolish. I've been racking my brain for the last couple of days trying to figure out this problem.

The main screen of my game consists of a town map which links to all the main locations of the game. My problem is that I can't for the life of me figure out how to have the game display the building name when the mouse moves over it. I've been able to have the building name show up on specific x,y coordinates but I'm not sure how I would go about marking the whole area as a 'hotspot' for the building description.

Obviously I'm not looking for someone to write the code for me (wheres the fun in that? ^_^) but if anyone could point me in the right direction with a few pointers or suggestions the help would be GREATLY appreciated.

Back to top

Profile PM

Great Knight

21

Years of Service

User Offline

Joined: 25th Feb 2003

Location:

Posted: 14th Apr 2003 07:36 Edited at: 14th Apr 2003 07:37

Link

Is this what you were looking for. There is a easyer way of doing it with gosubs but all well.

+ Code Snippet

box 0,0,100,100

do

if mousex()<100 and mousey()<100 and mousex()>0 and mousey()>0
set cursor screen height()/2,screen width()/2
print "hello"
wait 1000

cls
box 0,0,100,100
else
endif

loop
end

Back to top

Profile PM

Kadath

21

Years of Service

User Offline

Joined: 13th Apr 2003

Location:

Posted: 14th Apr 2003 08:04 Edited at: 14th Apr 2003 08:05

Link

Ahh this will certainly help, thank you very much! I'll have to work on devising a method with gosubs once I get a little more used to the code, this will deffinitely help for now though.

I'm off to try this out. Thanks again! ^_^

"This my man, was the American dream in action! We'd be fools not to ride this strange torpedo till the end" ~Hunter S. Thompson

Back to top

Profile PM

Great Knight

21

Years of Service

User Offline

Joined: 25th Feb 2003

Location:

Posted: 14th Apr 2003 08:22

Link

No problem

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 14th Apr 2003 10:36

Link

I answered a question like this a few days ago - check it out for a more expandable system.

http://www.darkbasicpro.com/apollo/view.php?t=8622&b=4

Back to top

Profile PM Email Website

Kadath

21

Years of Service

User Offline

Joined: 13th Apr 2003

Location:

Posted: 14th Apr 2003 22:24

Link

Thanks for the input IanM but correct me if I'm wrong but your code is for DarkBasicPro is it not? Either that or I'm an idiot that can't figure this out, lol. I should have stated this more clearly but I'm using just regular ol' DarkBasic. I was going to try and see if your code was adaptable to DarkBASIC but I thought I would ask first, a simple yes or no is all I need. I like solving these kinda things myself, but I'm certainly not going to get into it if there is no way to change it to a working format for DarkBASIC.

What can I say?.. I thrive on the tedious. ^_^

Oh and just for some general info, assuming all goes well I may be posting a few screenshots within a week or two. Now don't get all jumpy thinking I'm moving to fast for a noob, lol, the games graphics are 2D and I'm just using Deluxe Paint II and Neopaint (my old friends hehe..) to whip together the graphics real quick like. The game itself was ment to be purely a 'demo' game to get my feet wet in DarkBASIC it's just happened to snowball from there. I thought I would mention it because I think the game itself has at least a somewhat interesting premise.. More on that later though.

"This my man, was the American dream in action! We'd be fools not to ride this strange torpedo till the end" ~Hunter S. Thompson

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 14th Apr 2003 22:43

Link

Yes - Apart from the box command that I couldn't get to blank the previous text for some strange reason...

If you want to solve it yourself, don't let me stop you

dim MyZone_X1(10)
dim MyZone_Y1(10)
dim MyZone_X2(10)
dim MyZone_Y2(10)
dim MyZone_Active(10)

sync on

for i=0 to 10
   x=rnd(630)
   y=rnd(470)
   MakeZone(i, x, y, x+10, y+10)
next i

Z=-1
do
   ` Erase previous text
   if Z >= 0
      ink 0,0
      text 0, 0, "Mouse is in zone : " + str$(Z)
   endif

Z=FindZone( mousex(), mousey() )

` Report new text
   if Z >= 0
      ink rgb(255,255,255),0
      text 0, 0, "Mouse is in zone : " + str$(Z)
   endif
   sync
loop

function MakeZone(Z, x1, y1, x2, y2)
   MyZone_X1(Z)=x1
   MyZone_Y1(Z)=y1
   MyZone_X2(Z)=x2
   MyZone_Y2(Z)=y2
   MyZone_Active(Z)=1
   box x1, y1, x2+1, y2+1
endfunction

function DeleteZone(Z)
   MyZone_Active(Z)=0
endfunction

function InZone(Z, x, y)
   if MyZone_Active(Z) = 0 then exitfunction 0
   if x < MyZone_X1(Z) then exitfunction 0
   if x > MyZone_X2(Z) then exitfunction 0
   if y < MyZone_Y1(Z) then exitfunction 0
   if y > MyZone_Y2(Z) then exitfunction 0
endfunction 1

function FindZone(x, y)
   for Z=0 to 10
      if InZone(Z, x, y) then exitfunction Z
   next Z
endfunction -1

+ Code Snippet

dim MyZone_X1(10)
dim MyZone_Y1(10)
dim MyZone_X2(10)
dim MyZone_Y2(10)
dim MyZone_Active(10)

sync on

for i=0 to 10
   x=rnd(630)
   y=rnd(470)
   MakeZone(i, x, y, x+10, y+10)
next i

Z=-1
do
   ` Erase previous text
   if Z >= 0
      ink 0,0
      text 0, 0, "Mouse is in zone : " + str$(Z)
   endif

   Z=FindZone( mousex(), mousey() )

   ` Report new text
   if Z >= 0
      ink rgb(255,255,255),0
      text 0, 0, "Mouse is in zone : " + str$(Z)
   endif
   sync
loop


function MakeZone(Z, x1, y1, x2, y2)
   MyZone_X1(Z)=x1
   MyZone_Y1(Z)=y1
   MyZone_X2(Z)=x2
   MyZone_Y2(Z)=y2
   MyZone_Active(Z)=1
   box x1, y1, x2+1, y2+1
endfunction

function DeleteZone(Z)
   MyZone_Active(Z)=0
endfunction

function InZone(Z, x, y)
   if MyZone_Active(Z) = 0 then exitfunction 0
   if x < MyZone_X1(Z) then exitfunction 0
   if x > MyZone_X2(Z) then exitfunction 0
   if y < MyZone_Y1(Z) then exitfunction 0
   if y > MyZone_Y2(Z) then exitfunction 0
endfunction 1

function FindZone(x, y)
   for Z=0 to 10
      if InZone(Z, x, y) then exitfunction Z
   next Z
endfunction -1

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / DarkBasic Mouse over question