Imaginemos! 2/Imaginemos2.iso/PC/PRETEND2.EXE/PLUTO.DXR/00011.ls

Text File | 1996-09-10 | 1.3 KB | 68 lines

on cleanUp
  repeat with i = 1 to 48
    set the visible of sprite i to 1
    set the puppet of sprite i to 0
  end repeat
end

on clickFunction
  if (the clickOn <> 0) and (the clickOn <> 46) then
    puppetSound(0)
  end if
end

on wait howLong
  updateStage()
  startTimer()
  repeat while the timer < howLong
    nothing()
    if the mouseDown and (the clickOn <> 0) and (soundBusy(1) = 0) then
      exit
    end if
  end repeat
end

on door_Move
  if soundBusy(1) = 0 then
    puppetSound("Door")
  end if
  updateStage()
  set x to the visible of sprite 46
  set dir to integer(x - 0.5)
  set t to integer(not x - 0.5) + 47
  repeat with r = 1 to 5
    if (r / 2 * 2) <> r then
      set the visible of sprite t to not x
    else
      set the visible of sprite t to x
    end if
    if (the visible of sprite t = 0) and (r <> 5) then
      set t to t + dir
      next repeat
    end if
    wait(5)
  end repeat
  repeat while soundBusy(1)
    nothing()
  end repeat
end

on changeMovie whichMovie, whichFrame
  global gCurPath
  sound playFile 1, gCurPath & "Trans.aif"
  go(whichFrame, whichMovie)
end

on startMovie
  global gCurPath
  preLoadCast()
  set the mouseDownScript to "clickFunction"
  set the visible of sprite 47 to 0
  set the visible of sprite 48 to 0
end

on stopMovie
  unLoadCast()
  cleanUp()
end