Stop Button Help

[calmrr3]

Hello,

I have a start button which executes the following script:

Code: Select all

global tNumber
on mouseUp
   startTiming
   add 1 to tNumber
end mouseUp

   on startTiming
   
   lock screen for visual effect
   
   repeat with z = 1 to 27
   
   repeat with y = 1 to 27
      put y into line y of temp
   end repeat
   sort temp by random(10000) 
   
   repeat with y = 1 to 27
   set the points of graphic ("Line "  & z) to the loc of graphic ("tCircle" & z) & return & the loc of graphic ("tCircle" &  line y of temp)
       end repeat
     
   set the visible of graphic ("Line "  & z)  to not the visible of graphic ("Line "  & z)

   If the optionKey is down then
      show graphic ("Line " & z)
      exit to top
   end if
   send "startTiming" to me in random(90) + 30 ticks
 end repeat
unlock screen with visual effect dissolve very fast
end startTiming

Beside the Start Button I would like a button that stops it (Currently holding the optionKey does this)

[dunbarx]

Well, you have a recursive handler running, and if you see that the line that checks for the state of the optionKey determines whether to continue or not, can you think of a way to implement that with a button press on the card?

Look up the "is within" operator, and consider that in conjunction with the "mouseLoc" function and the "rect" of an object. Oh, and the "mouse" function. You can do this.

Craig

[Klaus]

Hi calmrr3,

looks like you want to CANCEL the pending message named "startTiming"
Do this: Add global variable that will hold that message ID:

Code: Select all

global tStartTimingMessageID

 on startTiming   
  lock screen for visual effect
  repeat with z = 1 to 27
    repeat with y = 1 to 27
      put y into line y of temp
    end repeat
    sort temp by random(10000)
    repeat with y = 1 to 27
         set the points of graphic ("Line "  & z) to the loc of graphic ("tCircle" & z) & return & the loc of graphic ("tCircle" &  line y of temp)
           end repeat
    set the visible of graphic ("Line "  & z)  to not the visible of graphic ("Line "  & z)
    # If the optionKey is down then
    # show graphic ("Line " & z)
    # exit to top
    # end if
    send "startTiming" to me in random(90) + 30 ticks
    ## Now store the MESSAGE ID of the "send..." operation:
    put the result into tStartTimingMessageID
  end repeat
  unlock screen with visual effect dissolve very fast
end startTiming

Then you can later do this in your STOP button:

Code: Select all

# global tStartTimingMessageID
on mouseup
  cancel tStartTimingMessageID
end mouseup

Hope I understood your problem right


Best

Klaus

[dunbarx]

What Klaus said. He is introducing a fabulous new way to stop your recursive handler. The "send in time" command sets up a queue of "pending' messages, and these can be accessed and cancelled. This is actually a cleaner and more direct way to do what you need. The important thing lurking here is that since control is returned to the user while all this is running, you have access to that queue and can modify it.

But still do it the old fashioned way, as I hinted earlier, as it is a method more in the trenches, so to speak, albeit old-fashioned.

Craig

[calmrr3]

I think I may be doing something wrong, The animation starts fine but I have to force quit LiveCode to get it to stop. Maybe i've applied the script in the wrong place:

Stack Script:

Code: Select all

global tStartTimingMessageID

 on startTiming   
  lock screen for visual effect
  repeat with z = 1 to 27
    repeat with y = 1 to 27
      put y into line y of temp
    end repeat
    sort temp by random(10000)
    repeat with y = 1 to 27
         set the points of graphic ("Line "  & z) to the loc of graphic ("tCircle" & z) & return & the loc of graphic ("tCircle" &  line y of temp)
           end repeat
    set the visible of graphic ("Line "  & z)  to not the visible of graphic ("Line "  & z)
    # If the optionKey is down then
    # show graphic ("Line " & z)
    # exit to top
    # end if
    send "startTiming" to me in random(90) + 30 ticks
    ## Now store the MESSAGE ID of the "send..." operation:
    put the result into tStartTimingMessageID
  end repeat
  unlock screen with visual effect dissolve very fast
end startTiming

Start button Script:

Code: Select all

on mouseUp
   startTiming
end mouseUp

Stop button Script

Code: Select all

global tStartTimingMessageID
on mouseup
  cancel tStartTimingMessageID
end mouseup

[Klaus]

Hmmm, just made a little test stack with tis simple stack script:

Code: Select all

global tStartTimingMessageID
on startTiming   
    add 1 to fld 1
    send "startTiming" to me in 1 secs
    ## Now store the MESSAGE ID of the "send..." operation:
    put the result into tStartTimingMessageID
end startTiming

And these two buttons "Start" and "Stop" with scripts as in your last example
and everything works as exspected.

No idea, sorry, anything else in your script(s)?

[calmrr3]

I've tried to attach the file,

I think it has something to do with a repeat loop.. but thats just a guess really!

[Klaus]

HI,

ouch, you generated 27 "startTiming" messages per cycle

Put it outside the repeat loop and that's it:

Code: Select all

global tStartTimingMessageID

on startTiming
   lock screen for visual effect
   repeat with z = 1 to 27
      repeat with y = 1 to 27
         put y into line y of temp
      end repeat
      sort temp by random(10000)
      repeat with y = 1 to 27
         set the points of graphic ("Line "  & z) to the loc of graphic ("tCircle" & z) & return & the loc of graphic ("tCircle" &  line y of temp)
      end repeat
          set the visible of graphic ("Line "  & z)  to not the visible of graphic ("Line "  & z)
   end repeat

   ## NOW :-)
   send "startTiming" to me in random(90) + 30 ticks
   put the result into tStartTimingMessageID
   unlock screen with visual effect dissolve very fast
end startTiming

Best

Klaus

[calmrr3]

Ahh I see,

Thanks once again for your help!