Mac Ga Ichiban! 1996 June/macgaichiban199606.bin/MOVIES/SOUNDF/00068.ls

Text File | 1996-03-27 | 1.5 KB | 60 lines

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")
  puppetSound("back")
  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 playqt number
  set the movieRate of sprite number to 1
  updateStage()
end

on ffqt number
  set the movieRate of sprite number to 2
  updateStage()
end

on rewqt number
  set the movieRate of sprite number to -1
  updateStage()
end

on stopqt number
  set the movieRate of sprite number to 0
  updateStage()
end

on qtbutton
  global qtnum
  if qtnum <> clickOn() then
    puppetSound("qt")
    updateStage()
    set ccname to item 1 of the name of cast the castNum of sprite qtnum
    set the castNum of sprite qtnum to the number of cast (ccname & ",off")
    updateStage()
    set qtnum to clickOn()
    set cname to item 1 of the name of cast the castNum of sprite qtnum
    set the castNum of sprite qtnum to the number of cast (cname & ",on")
    updateStage()
  end if
end

on visiblefalse
  set spnumlis to [9, 10, 11, 12]
  repeat with i in spnumlis
    set the visible of sprite i to 0
  end repeat
end