Mac Ga Ichiban! 1996 June/macgaichiban199606.bin/MOVIES/PHOTOCD/00033.ls

Text File | 1996-03-27 | 748 b | 29 lines

global nowlabel

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 cast (cname & ",on")
  updateStage()
  repeat while the stillDown
    if rollOver(clickOn()) then
      set the castNum of sprite clickOn() to the number of cast (cname & ",on")
      updateStage()
      next repeat
    end if
    set the castNum of sprite clickOn() to the number of cast (cname & ",off")
    updateStage()
  end repeat
  set the castNum of sprite clickOn() to the number of cast (cname & ",off")
  updateStage()
end

on back
  if key() = RETURN then
    cursor(-1)
    set the keyDownScript to EMPTY
    puppetSound(0)
    puppetTransition(23)
    go(nowlabel)
  end if
end