Код:
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 F2 #wt // LastObject
if lastmsg You can't make
alarm
end_script
end_if
double_left 69, 58
wait #wt
left 268, 68
wait #wt
double_left 233, 64
wait 4000
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
cуда загляни http://www.uoo.ru/phpBB/viewtopic.php?t=179357&029026