Discovering Nature in the City/LUONTOCD.iso/pc/files/toolmswe.dxr/00001.ls

Text File | 1996-12-16 | 1.4 KB | 80 lines

on tellPrintText
  tell the stage
    printText()
  end tell
end

on tellPrintPicture
  tell the stage
    printPicture()
  end tell
end

on tellclipBoardText
  tell the stage
    clipBoardText()
  end tell
end

on tellclipBoardPicture
  tell the stage
    clipBoardPicture()
  end tell
end

on tellshowPic
  tell the stage
    showPic()
  end tell
  forget(window "toolmiaw")
end

on tellshowSound
  tell the stage
    showSound()
  end tell
  forget(window "toolmiaw")
end

on miawpointer
  set myCursor to [3, 4]
  repeat with channel = 5 to 10
    set the cursor of sprite channel to myCursor
    if rollOver(channel) = 0 then
      cursor(-1)
    end if
    if the mouseDown then
      exit repeat
    end if
  end repeat
  exit
  cursor(-1)
end

on miawTextButton N, s
  set the puppet of sprite N to 1
  set H to the locH of sprite N
  set V to the locV of sprite N
  set the locH of sprite N to H + 2
  set the locV of sprite N to V + 2
  updateStage()
  repeat while the mouseDown = 1
    if rollOver(N) = 1 then
      set the locH of sprite N to H + 2
      set the locV of sprite N to V + 2
      updateStage()
      next repeat
    end if
    set the locH of sprite N to H
    set the locV of sprite N to V
    updateStage()
  end repeat
  set the locH of sprite N to H
  set the locV of sprite N to V
  updateStage()
  set the puppet of sprite N to 0
  if rollOver(N) = 1 then
    do(s)
  end if
end