Любителям легкого заработка посвящается
Код:
// Скрипт на тинкеринг для UOPilot 1.04 beta7 by WKnight
// Производство ожерелий
// Written by Devil Dun'Shaar
set #checklag 1 // включаем/выключаем проверку лагов.
set #lags 0
set #escr 0 // включаем/выключаем остановку скрипта
set #n 10 // количество предметов, через которое хотим делать проверку на лаги. Если #escr = 1, то количество предметов, которое хотим произвести.

:begin
if #checklag = 1
gosub chlg
end_if
gosub settime

:craft
repeat #n
send F1 #wt // LastObject
if lastmsg You can't  make
alarm
end_script
end_if
left 265, 68 
wait #wt
double_left  220, 62
wait #wt
double_left  60, 58 
wait #ct
right 82, 53
end_repeat
if #escr = 1
alarm
end_script
else 
goto begin
end_if

:settime
if #checklag = 0
:lags0
set #wt 750
gosub swtc
return
end_if
if #lags = 0
goto lags0
end_if
if #lags = 1
set #wt 1000
gosub swtc
return
end_if
if #lags = 2
set #wt 1500
gosub swtc
return
end_if
if #lags = 3
set #wt 2500
gosub swtc
return
end_if

:chlg
set timer
say lags?
while_not lastmsg lags?
if timer > 60000
goto chlg
end_if
if lastmsg error
goto chlg
end_if
end_while
set #tis timer
if #tis < 200
set #lags 0
end_if
if #tis > 300
set #lags 1
end_if
if #tis > 700
set #lags 2
end_if
if #tis > 1500
set #lags 3
end_if
return

:swtc
set #swt #wt * 3
set #ct 4000 - #swt
if #wt > 1500
set #ct 1000
end_if
return
Я не гарантирую, что скрипт не будет производить колец для ключей. Однако гарантирую, что скрипт способен просечь лаги и установить задержки в зависимости от силы лагов