Mac Ga Ichiban! 1997 October/macgaichiban199710.bin/MOVIES/JIYU.Dxr/00080.ls

Text File | 1997-08-08 | 785 b | 30 lines

on wait t
  set etime to ticks() + t
  repeat while etime > ticks()
    nothing()
  end repeat
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")
  updateStage()
  wait(5)
  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 yubicursor
  set yubino to the number of member "YUBI"
  cursor([yubino, yubino + 1])
end