Викопировка из части растра

дякую
значить скрипт буде тоді виглядати ось так:
@Map.Layers.SetState 301 0
$P=@Dialog.OpenFile *bmp виберіть растр
$MC=@Map.Count
$N1=0
@Map.DeselectAll
%Pochatok
$N1=$N1+1
$LID=@Map.Object[$N1].LayerID
@If ($LID<>2000333084) then @Goto %Next
@Map.Object[$N1].Parameter[id30111]=$P
%Next
@if $N1<$MC then @Goto %Pochatok

$Char=@Calc Char(59) $Char=@DequoteText $Char @Dialog.OpenFile *.bmp$Char*.tiff виберіть растр