home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Q-R / ResGenie™ 1.0 / ResGenie™ / ResGenie™.rsrc / TEXT_207_importfilewrt.txt < prev    next >
Encoding:
Text File  |  1993-08-02  |  1.3 KB  |  36 lines
  1. put what into process
  2. set cursor to watch
  3. repeat with x = 1 to the number of chars in process
  4. get char x of process
  5. if it is ";" then put "," into char x of process
  6. end repeat
  7. put item 1 of process into whatkind
  8. put item 2 of process into ResName
  9. if ResName is "<unnamed>" then put item 3 of process into ResName
  10. CopyRes importpath,importwhere,whatkind,ResName
  11. if it is empty then do restext ("TEXT", "Exit", colorauthoringpath)
  12. if there is a window "Resource List" then
  13. put the text of window "Resource List" into TheText
  14. if  offset (process, TheText) is "0" then
  15. put  process & return before line 1 of TheText
  16. sort TheText
  17. delete line 1 of theText
  18. set the text of window "Resource List" to TheText
  19. end if
  20. end if
  21. if whatkind is "snd " then
  22. if there is  a window "Sounds List" then put the text of window "Sounds List" into theTEXT
  23. if offset (process, theTEXT) is "0" then
  24. put process & return before line 1 of theTEXT
  25. put "Added: " before char 1 of line 1 of theTEXT
  26. set the text of window "Sounds List" to theTEXT
  27. end if
  28. end if
  29. if whatkind is "PICT" then
  30. if there is  a window "Pictures List" then put the text of window "Pictures List" into TheText
  31. if  offset (process, TheText) is "0" then
  32. put  process & return before line 1 of TheText
  33. put "Added: " before char 1 of line 1 of theTEXT
  34. set the text of window "Pictures List" to TheText
  35. end if
  36. end if