MeSSiR 0 Жалоба Опубликовано 16 июня, 2011 Прокачка скилла Coocking с 33х до 57 (дальше не качается) # Create by MeSSiR ##################### MIDDLE-EARTH.RU ########################## # Скрипт для прокачки скилла Coocking. Работает по принципу # поднимания с пола сырой еды и последующим приготовлением # на Small Forge (Круглая печь). # Для работы скрипта необходимо: # - Встать рядом c круглой печью (Small Forge). # - На пол положить сырую еду ################################################################ # Для старта необходимо в перечне макросов выбрать нужный в # зависимости от типа еды, которую будем готовить. ###################### Настройка переменных #################### var stop=50 # Стоп-отметка уровня скилла, когда нужно # будет остановить прокачку для того, чтоб # не расходовать зря ресурс. uo.set('finddistance','2') sub Fish() var smell='0x097A' var t=0 while true checkitems(smell) uo.deletejournal() uo.waittargetobject('~0x0FB1') uo.usetype(smell) repeat wait(1000) t=t+1 Until uo.injournal('You put') or t > 20 t=0 wend end sub sub Chicken_Meat() var smell='0x09B9' var t=0 while true checkitems(smell) uo.deletejournal() uo.waittargetobject('~0x0FB1') uo.usetype(smell) repeat wait(1000) t=t+1 Until uo.injournal('You put') or t > 20 t=0 wend end sub sub Meat() var smell='0x09F1' var t=0 while true checkitems(smell) uo.deletejournal() uo.waittargetobject('~0x0FB1') uo.usetype(smell) repeat wait(1000) t=t+1 Until uo.injournal('You put') or t > 20 t=0 wend end sub Sub checkitems(smell) uo.msg(".pray") while uo.countground('0x0FB1') < 1 uo.print("Нет печи рядом!") uo.msg("Не могу работать!") wait(5000) wend while uo.count(smell) < 1 uo.findtype(smell,-1,'ground') if uo.findcount() then uo.moveitem('finditem','1','backpack') wait(1000) else uo.print("Нет выбранного сырья на земле!") uo.msg("Не могу работать!") wait(5000) endif wend while uo.skillval('Cooking',1) >= stop*10 uo.msg("Стоп-отметка! Скилл прокачался до "+str(stop)) wait(5000) wend end sub Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты