The Weather Channel - Everything Weather/TheWeatherChannel-EverythingWeather-Win31.iso/twcia/sky/sky.dxr/00028.ls

Text File | 1995-08-22 | 1.0 KB | 37 lines

on mouseDown
  global passWord
  set index to the mouseWord
  set article to the castNum of sprite the clickOn
  if the controlDown or the optionDown then
    colorSet(article, index)
  end if
  if the foreColor of word index of field article <> 249 then
    exit
  end if
  repeat with start = index down to 1
    if the foreColor of word start of field article = 255 then
      exit repeat
    end if
    if (word start of field article contains ",") or (word start of field article contains ".") then
      if start <> index then
        exit repeat
      end if
    end if
  end repeat
  repeat with end = index to the maxinteger
    if the foreColor of word end of field article = 255 then
      exit repeat
    end if
    if (word end of field article contains ",") or (word end of field article contains ".") then
      set end to end + 1
      exit repeat
    end if
  end repeat
  set passWord to word start + 1 to end - 1 of field article
  set x to offset(RETURN, passWord)
  if x then
    put " " into char x of passWord
  end if
  showSearch()
end