problem with mouse code - GameCreators Forum

developer forums

Newcomers DBPro Corner / problem with mouse code

Author

Message

instinto criador

Years of Service

User Offline

Joined: 19th Dec 2006

Location:

Posted: 17th Mar 2009 04:45

Link

Please, someone could say me how can I to do the sprite to continue following the mouse same that this run too fast? Thank you, sorry for my english:

+ Code Snippet

create bitmap 1,640,480
cls rgb(200,100,50)

line 20,20,50,20
line 20,20,20,40
line 20,40,50,40
line 50,40,50,20

get image 2,20,20,51,41

delete bitmap 1

x as float
x=200

sync on
do

if rightkey()=1 then inc x,0.15
if leftkey()=1 then dec x,0.15

olda=a
a=mousex()
sprite 3,x,100,2
if mouseclick()=1 and a>sprite x(3) and a<sprite x(3)+30

if a-olda>0
inc x,a-olda
else
if a-olda<0
inc x,a-olda

endif
endif
endif
sync
loop

Profile PM Email

BMacZero

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 17th Mar 2009 18:40

Link

It looks like you want to be able to drag the block with the mouse?

In that case, it isn't working because if the user moves the mouse too quickly, it will move off the sprite before the program can detect it.

I'm having a hard time describing it, but this code fixes that. See if you can figure out what I changed:

+ Code Snippet

create bitmap 1,640,480
cls rgb(200,100,50)

line 20,20,50,20
line 20,20,20,40
line 20,40,50,40
line 50,40,50,20

get image 2,20,20,51,41

delete bitmap 1

x as float
x=200

sync on
do

if rightkey()=1 then inc x,0.15
if leftkey()=1 then dec x,0.15

olda=a
a=mousex()
sprite 3,x,100,2

if mouseclick()=1 and a>sprite x(3) and a<sprite x(3)+30
    clicked=1

endif

if clicked=1
    if mouseclick()=0
        clicked=0
    
    endif
    if a-olda>0
        inc x,a-olda
        else
        if a-olda<0
            inc x,a-olda
        
        endif
        
    endif
    
endif
sync
loop

Profile PM Email Website

instinto criador

Years of Service

User Offline

Joined: 19th Dec 2006

Location:

Posted: 18th Mar 2009 23:52

Link

Perfect! It's exactly that! Thank you vey much!

Profile PM Email

Server time is: 2024-11-25 10:47:37
Your offset time is: 2024-11-25 10:47:37

Sorry your browser is not supported!

Newcomers DBPro Corner / problem with mouse code