home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / random.dir / 00279_Script_279 < prev    next >
Text File  |  1996-03-11  |  768b  |  29 lines
  1. --on exitFrame
  2. --  global gCastNum
  3. --  
  4. --  put FALSE into changed
  5. --  --put field 2000 into tmp
  6. --  repeat with i = 110 to 268
  7. --    put i into gCastNum
  8. --    put item 1 of the name of cast i into theName
  9. --    
  10. --    repeat with j = 1 to the number of lines in tmp
  11. --      
  12. --      if line j of tmp contains theName then
  13. --        --        alert "cast "&i&" was changed to :"&line j of tmp
  14. --        put TRUE into changed
  15. --        exit repeat
  16. --      end if
  17. --    end repeat
  18. --    
  19. --    if changed then
  20. --      set the name of cast i to line j of tmp
  21. --      delete line j of tmp
  22. --      put FALSE into changed
  23. --    else
  24. --      alert "cast "&i&" was not changed"
  25. --    end if
  26. --  end repeat
  27. --  put tmp into field 1998
  28. --  beep
  29. --end