BBS in a Box 2/BBS in a box - Trilogy II.iso/Files/Hyper/Q-R/ResGenie™ 1.0/ResGenie™/ResGenie™.rsrc/TEXT_206_movefiletwort.txt

Text File | 1993-08-02 | 1.6 KB | 43 lines

if MovePathOne is MovePathTwo then
beep
close window MoveFileTwo
do restext("TEXT", "Exit", colorauthoringpath)
end if
if there is not a window movefileone then
answer "Do you want to continue to copy resources to" &&¬
movefileone &"?" with "Yes" or "New"
if it is "Yes" then do restext ("TEXT", "finishOne", colorauthoringpath)
else do restext ("TEXT", "Makeonefile", colorauthoringpath)
do restext("TEXT", "Exit", colorauthoringpath)
end if
if word 1 of what is "Added:" then
beep
do restext("TEXT", "Exit", colorauthoringpath)
end if
put what into process
repeat with x = 1 to the number of chars in process
get char x of process
if it is ";" then put "," into char x of process
end repeat
put item 1 of process into ResType
if  ResType is "Empty" then do restext("TEXT", "Exit", colorauthoringpath)
put item 3 of process into ResID
CopyRes MovePathTwo,MovePathOne, ResType,ResID
if it is "Cancel" then do restext("TEXT", "Exit", colorauthoringpath)
if it is empty then do restext("TEXT", "Exit", colorauthoringpath)
if it is "Yes" then do restext("TEXT", "Exit", colorauthoringpath)
if it is "Error: Copy aborted" then do restext("TEXT", "Exit", colorauthoringpath)
put the text of window MoveFileOne into TheText
put  process & return before line 1 of TheText
put "Added: " before char 1 of line 1 of theTEXT
set the text of window MoveFileOne to TheText
if there is a window "Resource List" then
if  movefileone is "Current Stack" then
set the text of window "Resource List" to theTEXT
end if
end if
if there is a window holdstackname then
if "Browse: " & movefileone is holdstackname then
set the text of window holdstackname to theTEXT
end if
end if