A Virtual Reality Guide to Texas/CD.iso/texdata/trnsprtr.dir/00519_pda forward button.ls

Text File | 1998-06-17 | 1.5 KB | 50 lines

on mouseDown
  global gPDAPict, gPDAQT, gPictNum, gPictStart, gPictEnd
  puppetSound(3, "tick")
  set rollState to the castNum of sprite the clickOn
  set downState to rollState + 10
  set the castNum of sprite the clickOn to downState
  updateStage()
  repeat while the stillDown
    if rollOver(the clickOn) then
      set the castNum of sprite the clickOn to downState
      if gPDAQT then
        if the type of member the castNum of sprite 48 = #digitalVideo then
          set the movieRate of sprite 48 to 2
        end if
      end if
      updateStage()
      next repeat
    end if
    set the castNum of sprite the clickOn to rollState
    if gPDAQT then
      if the type of member the castNum of sprite 48 = #digitalVideo then
        set the movieRate of sprite 48 to 1
      end if
    end if
    updateStage()
  end repeat
  if gPDAQT then
    if the type of member the castNum of sprite 48 = #digitalVideo then
      set the movieRate of sprite 48 to 1
    end if
    updateStage()
  end if
  if rollOver(the clickOn) then
    if gPDAPict then
      if gPictNum < gPictEnd then
        set gPictNum to gPictNum + 1
      else
        set gPictNum to gPictStart
      end if
      set the text of field "pict counter" to gPictNum - gPictStart + 1 & " of " & gPictEnd - gPictStart + 1
      set the castNum of sprite 46 to gPictNum
    end if
    set the castNum of sprite the clickOn to downState
    updateStage()
  else
    set the castNum of sprite the clickOn to rollState
    updateStage()
  end if
end