cуда загляни http://www.uoo.ru/phpBB/viewtopic.php?t=179357&029026Код: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