Chip 1997 July/CHIP_CD_1997_07_PL.iso/knowhow/internet/media/files/nmain.dir/00006.ls

Text File | 1997-03-24 | 1.4 KB | 45 lines

on mainEvents
  pause()
  if the colorDepth > 1 then
    set the colorDepth to 1
  end if
  set the immediate of sprite 3 to 1
  when mouseDown then mouseHandler
end

on mouseHandler
  if (the mouseH > (the width of sprite 2 + the left of sprite 2)) or (the mouseV > (the top of sprite 2 + 20)) then
    exit
  end if
  if (the mouseH >= the left of sprite 3) and (the mouseH <= the right of sprite 3) and ((the mouseV >= the top of sprite 3) and (the mouseV <= the bottom of sprite 3)) then
    exit
  end if
  set h to the mouseH
  set os2h to h - the locH of sprite 2
  set os3h to h - the locH of sprite 3
  set os4h to h - the locH of sprite 4
  set os5h to h - the locH of sprite 5
  set os6h to h - the locH of sprite 6
  set v to the mouseV
  set os2v to v - the locV of sprite 2
  set os3v to v - the locV of sprite 3
  set os4v to v - the locV of sprite 4
  set os5v to v - the locV of sprite 5
  set os6v to v - the locV of sprite 6
  repeat while the stillDown
    set h to the mouseH
    set v to the mouseV
    set the locH of sprite 2 to h - os2h
    set the locV of sprite 2 to v - os2v
    set the locH of sprite 3 to h - os3h
    set the locV of sprite 3 to v - os3v
    set the locH of sprite 4 to h - os4h
    set the locV of sprite 4 to v - os4v
    set the locH of sprite 5 to h - os5h
    set the locV of sprite 5 to v - os5v
    set the locH of sprite 6 to h - os6h
    set the locV of sprite 6 to v - os6v
    updateStage()
  end repeat
end