Professor Iris' Fun Field Trip - Animal Safari/Iris.iso/pc/discover/shared.dir/00711.ls

Text File | 1995-06-18 | 1.2 KB | 42 lines

on copyScreenRegionMac
  global copyObj, pictureFlag, gLineDrawing, gCaptPict
  if objectp(copyObj) then
    copyObj(mdispose)
  end if
  set templateLeft to the left of sprite gLineDrawing
  set templateTop to the top of sprite gLineDrawing
  set templateRight to the right of sprite gLineDrawing
  set templateBottom to the bottom of sprite gLineDrawing
  set copyObj to StageToCast(mnew, templateTop, templateLeft, templateBottom, templateRight)
  set i to the castNum of sprite gCaptPict
  set the picture of cast i to copyObj(mGetHandle)
  set pictureFlag to 1
  updateStage()
end

on copyScreenRegionPC
  global copyObj, pictureFlag, gLineDrawing, gCaptPict, gPCcounter
  if objectp(copyObj) then
    copyObj(mdispose)
  end if
  set copyObj to movutils(mnew)
  set i to the castNum of sprite gCaptPict
  set the picture of cast i to copyObj(mStageToCast, the rect of sprite gLineDrawing)
  set pictureFlag to 1
  updateStage()
end

on copyMacOrPC
  if the machineType = 256 then
    copyScreenRegionPC()
  else
    copyScreenRegionMac()
  end if
end

on resetCastMember
  global savePicHandle, pictureFlag, gLineDrawing
  set the castNum of sprite gLineDrawing to the number of cast "PutItHere"
  set pictureFlag to 0
end