Mac Ga Ichiban! 1997 December/macgaichiban199712.bin/MOVIES/SCR.DXR/00065.ls

Text File | 1997-07-08 | 759 b | 28 lines

on yubicursor
  set yubino to the number of member "YUBI"
  cursor([yubino, yubino + 1])
end

on button
  set cname to item 1 of the name of cast the castNum of sprite clickOn()
  set the castNum of sprite clickOn() to the number of member (cname & ",on")
  repeat while the stillDown
    if rollOver(clickOn()) then
      set the castNum of sprite clickOn() to the number of member (cname & ",on")
      updateStage()
      next repeat
    end if
    set the castNum of sprite clickOn() to the number of member (cname & ",off")
    updateStage()
  end repeat
  set the castNum of sprite clickOn() to the number of member (cname & ",off")
  updateStage()
end

on wait t
  set etime to ticks() + t
  repeat while etime > ticks()
    nothing()
  end repeat
end