Clicking Module

[Aange10]

I absolutely hate Turing's built in clicking detection. The buttonmoved function is terrible. Honestly, its results feels random at best. It is probably me using it wrong, but I don't care. It's too complicated, and the documentation sucks. So I made my own.

It's VERY simple to use. Firstly, you need to know the the Turing Walkthrough has a fabulous Module guide if you get stuck.

With that bit out of the way, here is how you use the module:

You need to copy the module (At the bottom) and save it to a file in the same folder as where you'll be using it. You have to name it "DetectClick.tu". Make sure it is .tu and not .t. (There are ways to import the module without doing this. However, I will not cover those ways as they are covered in the tutorial) Now, in the file you are using it in, at the top, on very FIRST line you need to type import DetectClick.

Whoo! You now have the module imported to your program! Now using it is the simple part. The module has two functions that output TRUE if a click has happened, and FALSE if a click has not happened. The syntax for using these functions are easy; here is an example:

Turing:

import DetectClick loop     var mouseX, mouseY, mouseB : int     Mouse.Where (mouseX, mouseY, mouseB)      if DetectClick.Click (mouseB, "left") = true then          put "You've clicked!"      else          put "You have not clicked."     end if end loop

The module's two function's syntax's are as followed:

Click (mouseState : int, buttonToCheck : string)
QuickClick (mouseState : int, buttonToCheck : string)

The accepted terms for buttonToCheck are "left", "right", "middle", "null" and "nill". Using any other string (NOT case sensitive) will result in an error, telling you your problem.
The difference between Click and QuickClick is that a QuickClick will only detect a click if they press and release the mouse within 500ms, while Click does not have that restriction.

* If you have trouble feel free to ask for help, but REFER to the tutorial on Modules before doing so.
Remmember to call the functions of the module you must put "DetectClick." before it.


Here is the Module:

Turing:

unit module DetectClick     export QuickClick, Click         var lTimer, mTimer, rTimer : int := 0     var QlTimer, QmTimer, QrTimer : int := 0             fcn QC (mb : int, state : int, var timer : int) : boolean             if mb = state then             % Detect if its the first click             if timer = 0 then                 timer := Time.Elapsed ()             end if         else             % Check mouse timer and see if < 500 ms has passed             if Time.Elapsed () - timer <= 500 then                 % Click                 timer := 0                 result true             else                 % Reset if they released after 500 ms                 timer := 0             end if         end if         result false             end QC         fcn C (mb : int, state : int, var timer : int) : boolean     if mb = state then             % Detect if its the first click             if timer = 0 then                 timer := Time.Elapsed ()             end if         else             % They are ending a click             if timer not= 0 then                 timer := 0                 result true             end if         end if     end C         fcn QuickClick ( mb : int, button : string) : boolean         var state : int         % See what we are looking for         if Str.Lower (button) = "left" then             state := 1             result QC (mb, state, QlTimer)         elsif Str.Lower (button) = "right" then             state := 100             result QC (mb, state, QrTimer)         elsif Str.Lower (button) = "middle" then             state := 10             result QC (mb, state, QmTimer)         elsif Str.Lower (button) = "nill" or Str.Lower (button) = "null" then             result false         else             cls             put "ERROR IN CLICK FUNCTION. Appropriate strings are \"left\", \"right\", \"middle\", \"null\", or \"nill\"."             View.Update             delay (1000)             result false         end if     end QuickClick     fcn Click ( mb : int, button : string) : boolean         var state : int         % See what we are looking for         if Str.Lower (button) = "left" then             state := 1             result QC (mb, state, lTimer)         elsif Str.Lower (button) = "right" then             state := 100             result QC (mb, state, rTimer)         elsif Str.Lower (button) = "middle" then             state := 10             result QC (mb, state, mTimer)         elsif Str.Lower (button) = "nill" or Str.Lower (button) = "null" then             result false         else             cls             put "ERROR IN CLICK FUNCTION. Appropriate strings are \"left\", \"right\", \"middle\", \"null\", or \"nill\"."             View.Update             delay (1000)         end if     end Click end DetectClick

AT THE BOTTOM I have included a working example of the module.