What PC? 1997 February/WPCFEB97.ISO/multi/times/data/image.dir/00069.ls

Text File | 1996-08-12 | 517 b | 22 lines

on mouseDown
  repeat while the stillDown
    set the castNum of sprite the clickOn to 70
    updateStage()
  end repeat
end

on mouseUp
  global theImageList, recentPage, theDeleteLine
  set the castNum of sprite the clickOn to 69
  updateStage()
  if theDeleteLine <> 0 then
    delete line theDeleteLine of theImageList
    setOffStage("29")
    set theDeleteLine to 0
    repeat with n = 30 to 44
      set the castNum of sprite n to cast "blank"
    end repeat
    go(string("recent" & recentPage))
  end if
end