mouse click deletes? - GameCreators Forum

Author

Message

Graysire

12

Years of Service

User Offline

Joined: 18th Oct 2013

Location:

Posted: 17th Jan 2014 18:57

Link

can't seem to make it so that when you click on an object twice, it deletes. Any suggestions?

Back to top

Profile PM

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 17th Jan 2014 19:09

Link

Here's a quick example. You can replace the DLL call by simply specifying the number of milliseconds allowed between clicks. The call simply gets the delay time set in the system.

+ Code Snippet


load dll "c:\windows\system32\user32.dll", 1
clickDelay = call dll(1,"GetDoubleClickTime")


clicks = 0
clickStamp = 0

Do
    cls


    if mouseclick() = 1 and mflag = 0
        mflag = 1
        inc clicks
        clickStamp = timer()
    endif
    if mouseclick() = 0 then mflag = 0
    
    T = timer()
    if clickStamp + clickDelay < timer() then clicks = 0
    
    if clicks = 2
        rem delete object here
    endif


    set cursor 0,0
    print clicks

loop

If you need more advanced mouse control, take a look at my library.
http://forum.thegamecreators.com/?m=forum_view&t=201158&b=6

http://zimnox.com

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 18th Jan 2014 11:52

Link

I think this version of Phaelax's code works slightly better:

+ Code Snippet

set display mode desktop width(), desktop height(), 32
sync on : sync rate 60 : sync

autocam off
position camera 0, 100, -400
point camera 0, 0, 0

load dll "c:\windows\system32\user32.dll", 1
clickDelay = call dll(1,"GetDoubleClickTime")

make object cube 1, 100

clicks = 0
clickStamp = 0

Do

    if mouseclick() = 1 and mflag = 0
        mflag = 1
        inc clicks
        clickStamp = timer()
    endif
    if mouseclick() = 0 and clicks <> 2 then mflag = 0
    
    T = timer()
    if clickStamp + clickDelay < timer() then clicks = 0
    
    if clicks = 2
        if object exist(1) then delete object 1
    endif


    set cursor 0,0
    print clicks
    
    sync

loop

The original version allowed me to continually increment the number of clicks recorded which I assumed wasn't intended