The Weather Channel - Everything Weather/TheWeatherChannel-EverythingWeather-Win31.iso/twcia/tornado/tornado.dxr/00080.ls

Text File | 1995-08-22 | 1.1 KB | 30 lines

on writeIndex startCast, endCast
  global outPutString
  set outPutString to EMPTY
  set lineCount to 1
  repeat with n = startCast to endCast
    set the foreColor of word the number of words in field n of field n to 236
    set castName to the name of cast n
    put castName into line lineCount of outPutString
    put castName
    set lineCount to lineCount + 1
    repeat with i = 1 to the number of words in the text of cast n
      if 255 <> the foreColor of word i of field n 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 && the foreColor of word i of field n
        set lineCount to lineCount + 1
      end if
    end repeat
  end repeat
  set castName to "tornado.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