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

Text File | 1995-08-22 | 976 b | 28 lines

on writeIndex startCast, endCast
  global outPutString
  set outPutString to EMPTY
  set lineCount to 1
  repeat with n = startCast to endCast
    set castName to the name of cast n
    put castName into line lineCount of outPutString
    set lineCount to lineCount + 1
    repeat with i = 1 to the number of words in the text of cast n
      if the foreColor of word i of field n = 249 then
        put word i of field n && the number of lines in word 1 to i of field n into line lineCount of outPutString
        put word i of field n && the number of lines in word 1 to i of field n
        set lineCount to lineCount + 1
      end if
    end repeat
  end repeat
  set castName to "sky.lst"
  put the pathName & castName
  set writeObject to FileIO(mnew, "write", the pathName & castName)
  if not objectp(writeObject) then
    put writeObject
    alert("somethings fucked up jame")
  else
    writeObject(mWriteString, outPutString)
    writeObject(mdispose)
  end if
end