Yoko
http://forum.yoko.com.ua/

Parse error
http://forum.yoko.com.ua/viewtopic.php?f=3&t=12784
Page 1 of 1

Author:  CHemax [ 2007-11-18 21:06:28 ]
Post subject:  Parse error

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

Author:  Scripts Writer [ 2007-11-18 21:14:03 ]
Post subject: 

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

Author:  CHemax [ 2007-11-18 21:18:39 ]
Post subject: 

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

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

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

Author:  Scripts Writer [ 2007-11-18 21:32:38 ]
Post subject: 

Во всём файле

Author:  CHemax [ 2007-11-18 21:38:55 ]
Post subject: 

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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/