What PC? 1996 August/WPCAUG96.ISO/growaug.dxr/00070_groanimatesection.ls

Text File | 1996-06-17 | 1.9 KB | 67 lines

on groanimatesection
  global playvid
  if the castNum of sprite 10 <> "93" then
    set the castNum of sprite 4 to 19
  end if
  if the castNum of sprite 10 <> "94" then
    set the castNum of sprite 5 to 20
  end if
  if the castNum of sprite 10 <> "95" then
    set the castNum of sprite 6 to 21
  end if
  set the castNum of sprite 27 to 99
  set the castNum of sprite 28 to 98
  if the mouseUp then
    case the rollOver of
      "4":
        if the castNum of sprite 10 <> "93" then
          set the castNum of sprite 4 to 47
        end if
      "5":
        if the castNum of sprite 10 <> "94" then
          set the castNum of sprite 5 to 48
        end if
      "6":
        if the castNum of sprite 10 <> "95" then
          set the castNum of sprite 6 to 49
        end if
      "27":
        set the castNum of sprite 27 to 101
      "28":
        set the castNum of sprite 28 to 100
    end case
  end if
  case the clickOn of
    "4":
      puppetSound(0)
      set the castNum of sprite 10 to 93
      set the castNum of sprite 4 to 51
      updateStage()
      if the movieTime of sprite 10 < the duration of cast 93 then
        set the movieRate of sprite 10 to 1
      end if
    "5":
      puppetSound(0)
      set the castNum of sprite 10 to 94
      set the castNum of sprite 5 to 52
      updateStage()
      if the movieTime of sprite 10 < the duration of cast 94 then
        set the movieRate of sprite 10 to 1
      end if
    "6":
      puppetSound(0)
      set the castNum of sprite 10 to 95
      set the castNum of sprite 6 to 53
      updateStage()
      if the movieRate of sprite 10 < the duration of cast 94 then
        set the movieRate of sprite 10 to 1
      end if
    "27":
      if the castNum of sprite 10 <> "0" then
        if the type of member the member of sprite 10 = #digitalVideo then
          set the movieRate of sprite 10 to 0
        end if
      end if
  end case
end