Parse error

[CHemax]

Ошибка Parse error пишет при запуске любого скрипт !Что мне делать?

[Scripts Writer]

Ковычку или скобку не закрыл

[CHemax]

в скрипте?если да то вот пример

sub AutoMove2()
; Àâòîìàòè÷åñêîå ïåðåêëàäûâàíèå íåêó÷êóþùèõñÿ ïðåäìåòîâ îäíîãî òèïà è öâåòà
; èç îäíîãî êîíòåéíåðà â äðóãîé. Îñóùåñòâëÿåòñÿ äðàã íà êîíòåéíåð.
; v.1.05b (c) Edred
;
VAR MyPause = 600
VAR Type1, Color1, s, n, SerStopka, SumCol = 0, Howmany='200'
UO.Print( 'Select sending container' )
UO.Exec('addobject TmpCont1')
While UO.Targeting()
Wait(100)
Wend
UO.Print( 'Select targeting container' )
UO.Exec('addobject TmpCont2')
While UO.Targeting()
Wait(100)
Wend
UO.Print( 'Select type for move' )
UO.Exec('addobject TmpObj1')
While UO.Targeting()
Wait(100)
Wend
Type1 = UO.GetGraphic( 'TmpObj1' )
Color1 = UO.GetColor( 'TmpObj1' )
While UO.Targeting()
Wait(100)
Wend

If Howmany == '' Then
UO.Print( 'Invalid count of objects!' )
return
Endif
repeat
UO.FindType( Type1, Color1, 'TmpCont1' )
If UO.FindCount() > 0 Then
UO.MoveItem( 'finditem', '0', 'TmpCont2' )
Wait( MyPause )

SumCol = SumCol + 1
If SumCol == val(Howmany) Then
UO.Print( 'Script finished' )
return
Endif
Else
UO.Print( 'Script finished' )
return
Endif
until False
end sub

пишет туже ошибку

[Scripts Writer]

Во всём файле

[CHemax]

а понел !спс,Ошибка исправлена