Mac Ga Ichiban! 1997 December/macgaichiban199712.bin/MOVIES/TRUE.DXR/00092.ls

Text File | 1997-11-13 | 818 b | 32 lines

global gframelabel, size

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()
  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

on back
  if key() = RETURN then
    set the keyDownScript to EMPTY
    cursor(-1)
    go(gframelabel)
  end if
end