blob: f1af35bf3131e6a06cc1ab378074dffd6842232a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
form Copy selected files...
word Prefix
word Suffix _copy
boolean Keep_original 1
endform
total_objects = numberOfSelected()
for i to total_objects
my_object[i] = selected(i)
endfor
for i to total_objects
selectObject: my_object[i]
@copy()
new[i] = selected()
endfor
if total_objects
selectObject: new[1]
for i from 2 to total_objects
plusObject: new[i]
endfor
endif
procedure copy ()
.name$ = extractWord$(selected$(), " ")
Copy: prefix$ + .name$ + suffix$
endproc
|
