Уважаемый Ветеран, я по поводу твоего скрипта на майнинг. Помоему на шарде ДРВ гмы поменяли тип рун(ну или ещё что то) как в рунбуке, так и простых рун... В результате когда он окапывается до максимального веса то не может реколиться домой и просто стоит и перекладывает руду в бэкпэке туда сюда... При появлении ПК, тоже никуда не уходит а просто пишет что инвалид индекс, ну вобщем ты знаешь... Может в свободное время подкоректируешь и выложишь обновленную версию скрипта?Ex-Brodyaga wrote:Veter, nastoyashie programirovanie nachinaetsya posle dinamicheskogo videleniya pamyati i OOP, a eto toje vse shalosti kak ti i skazalBETEPAH wrote:Харе Трепом заниматся )))
Завялися оба ........
То Эдред%
Ничего из скрипта твоего не брал (просто ты предложил идею, я придумал как сделать тоже но по другому)
То Асканели%
Надпись...."Гонки начанаются" .... Быоа написана для придания интереса......
Тоо Эдред и Асканели %
Ребят вы оба лучше меня програмируете (вы програмисты ,а я только самоучка)......я это не оспариваю ...(но зато я генератор идей да и сам что то могу ).....так что не мне с вами гонятся ))
Скрипты и Клуб.
Moderators: Murderator+, Murderator
Вот супер рабочий и проверенный скрипт !!! лучше его юзайте ..HellFire wrote:скрипт замечательный...все прекрасно работает...проверенно Занусси)))BETEPAH wrote:ТОПИК ОЧЕНЬ ЧАСТО МЕНЯЕТСЯ!!
СКРИПТЫ ДОРОБАТЫВАЮТСЯ И ПЕРЕПИСЫВАЮТСЯ (так что скрипт который вы скопировали раньше может быть уже другим)
Чтобы узнать поменялся ли скрипт, смотрите версию.
Мечта Большей части людей на этом форуме.
Скрипт на лумбер. (Mafia) v 1.7
Я его переделал, доработал, отредактировал. Отсылаю на Scripts!
НЕбольшое добавление Скрипт работает на Injection версии 4DZ
и выше ......ниже НИ НИ
Code: Select all
############################################ ### Lumberjacking / Рубка деревьев v3.7 ### ############################################ ### Шард Dragon World / www.drw.ru ############################################ ### Реавтор этого скрипта: BETEP [WOD] or BETEPAH ### ############################################ ############################################ ### Оформление дополнений cOoler [Sw!Ne$]### ############################################ ### ############################# ### Описание и настройка ### ############################# ### ### Чар бегает от дерева к дереву(координаты деревьев берет из файла). ### Вырубит, бежит к следующему,при логах 700 штук в паке порталится домой скидывает логи в сундук, ### после реколится обратно бежит к последнему дереву и продолжает рубить. ### Пример: В файле 100 деревьев, вы вырубив 74 дошли до придела в 700 логов сработала система рекола ### и вы "порталитесь" домой и складываете логи в сундук,после вы реколитесь обратно в лес и бежите к 75 дереву. ### Дойдя до 100 дерева (тоесть последнего в списке) чар перейдет к 1ому дереву.(Цикличность) ### ### Для тех то кто им пользуется сообщаю, переделал, доработал, отредактировал.! ### ### Нововведения: ### 1 )Логи складываются не на пол а в сундук. (BETEPAH) ### 2 )Рекол в лес и домой по РУНБУКЕ (а не по рункам). (BETEPAH) ### ВНИМАНИЕ!!! В СКРИПТЕ РУНБУКИ НАСТРОЕНЫ ПОД DRW (шард) ### 3 )Система Автомарка Убрана ,и переделана в сомостоятельное маркирование деревьев ### (раньше чар сам бегал по лесу и очень долго марчил деревья)теперь бегаем сами и просто прицелом по деревам ### (марчим также,как и раньше в руках кирка). (BETEPAH) ### 4 )Увеличен придел замаркированых деревьев да 500 шт. (BЕТЕРАН) ### 5 )Улучшна система Хайда (ходим, не бегаем). (BЕТЕРАН) ### 6 )Добавлена система InfoLogs. (Mguai, доработана BETEPAH) ### 7 )Добавлен выбор кирки.(cOoler,доработана BETEPAH) ### 8 )Система реконекта (выложаная сверху),хорошо сочетается с скриптом лумбер. (Fox M) ### ### !!! Чтобы скрипт заработал ВНИМАТЕЛЬНО прочтите настройки.!!!! ### ### Работает в 2ух режимах: ### 1)Маркировка ### 2)Рубка ### ################################### ### Режимы работы скрипта ### ################################### ### Режим первый - "Маркировка".### ################################### ### ### Этот режим отвечает за Маркирование(записывание координат) деревьев. ### Включается переменной var GetFromFile=0 ## 1 - координаты деревьев будут считыватся из файла, 0 - собиратся из клиента. ### То есть если GetFromFile=0 координаты деревьев собиратся из клиента. ### ### Маркировка происходит так. ### Поставте переменную GetFromFile равную 0 (GetFromFile=0 ). Положите в суммку к себе Топор,Рунбук(с Рунами домой и в лес) и !!Кирку!!. ### Идите в лес в котором вы хотите рубить.Запустите Скрипт main(),Инжект попросит вас указать Топор ### (появится прицел,прицелом на топор который вы с собой взяли),потом инжект попросит вас указать Рунбук(появится прицел,прицелом на него). ### Инжект сообщит вам что ('Собираем координаты деревьев в округе...'). Чар автоматом возмет в руки кирку и появится прицел. ### Теперь вы должны в любом порядке САМИ прицелом указать координаты (достаточно просто нажать прицелом на дерево). ### Если вы не промахнулись и "нажали" на дерево то инжект сообщит вам об этом (Найдено дерево "координаты дерева"). ### Причем что если даже вы нажмете два раза на одно дерево то он не "запомнит" его повторно. ### Ходите по лесу и марчите деревья,после того как вы "наберете" достаточное количество деревьев. ### Инжект напишет вам сообщение ('Анализ закончен, координаты деревьев записаны в файл C:\trees3.dat') и создаст файл на диске С:\ куда запишет ### координаты деревьев.Система марка зависит от Времени и переменной Area.При Area = 1, ###марк продлится примерно 20-25 мин.Остоновить марк нельзя, можно только дождатся его конца. ###500 .Это ПРИДЕЛ (можно хоть 10,хоть 499),но если вы замарчите 501 дерево то скрипт повиснет. ### После этого чар пойдет по координатам и будет вырубать деревья. ### ############################## ### Режим Второй - "Рубка".### ############################## ### ### Этот режим соответственоо отвечает за рубку. ### Включается переменной var GetFromFile=1 ## 1 - координаты деревьев будут считыватся из файла, 0 - собиратся из клиента ### То есть если GetFromFile=1 координаты деревьев будут считыватся из файла. И вам не надо будет сново марчить деревья. ### ### Рубка происходит так,Поставте переменную GetFromFile равную 1 ( GetFromFile=1 ). ### Положите в суммку к себе Топор и Рунбук(с Рунами домой и в лес). ### Внимание!!! В РУНБУКЕ РУНА В 1ом слоте ДОМОЙ,в 9ом В лес.После установок рун в РУНБУК. ### ВНИМАНИЕ!!! В СКРИПТЕ НОМЕРА РУН В РУНБУКЕ НАСТРОЕНЫ ПОД DRW (шард). ### ### Настройте скрипт под себя при помощи переменных. ################### ### Переменные: ### ################### ### 1)var TryHiding=1 ## 1 - перед тем как рубить дерево, будет пытаться уйти в хайд, 0 - не будет ### 2)var LogsQty=700 ## Количество логов, добыв которое надо реколиться домой. ### 3)var TryRecall=1 ## 1 - после того как соберет LogsQty логов, будет пытаться реколиться домой,складывать логи в сундук и реколиться обратно ### (нужно указать Рунбук в которой,1 ая руна домой, а 9 ая в лес), 0 - не будет реколится домой и выключит скрипт. ### 4)VAR Meshok='0x401C1142'## - Айди сундука в который должен складывать Логи.(айди сундука можно узнать написав ,info и прицелом на сундук ### (в данном случие этот Айди 0x401C1142).Переменная находится ниже в скрипте (примерно в районе 327 строки). ### ### После настройки: ### ### Идите в лес в котором вы хотите рубить.Запустите Скрипт Lumberjacking(),Инжект попросит вас указать Топор ### (появится прицел,прицелом на топор который вы с собой взяли),потом инжект попросит вас указать Рунбук(появится прицел,прицелом на него). ### После этого чар пойдет по координатам и будет вырубать деревья. ########### ### Код ### ########### sub Lumberjacking() var i=0,j=0,k=0,r=0,q=0,ii,jj var TopX=324,TopY=65 dim TreeX[500], TreeY[500],TreeT[500] dim TreeTile[10] var flag=0,treeCount=0,clicks=0,flag2=0 ###################### ### Меню / Options ### ###################### ############################################################################################ var f=file("C:\trees3.dat") ## - Путь к файлу в котором будут хранится координаты Деревьев. ### var Area=1 ## Размер обрабатываемой территории, можно менять от 1 до 4. ### var TryHiding=1 ## 1 - Перед тем как рубить дерево, будет пытаться уйти в хайд, 0 - не будет . ### var TryRecall=1 ## 1 - После того как соберет LogsQty логов, будет пытаться реколиться домой, # складывать логи в сундук и реколиться обратно (нужно указать Рунбук в которой,1 ая руна домой, а 9 ая в лес), 0 - не будет. ### var LogsQty=700 ## Количество логов, добыв которое надо реколиться домой. ### var GetFromFile=0 ## 0 - Координаты деревьев будут считыватся из файла, 0 - собиратся из клиента #(сначала соберите а потом считывайте из файла). ### uo.exec("set norbcheck 1")# Для рекола. ### uo.exec("set norbcalc 1") # Для рекола . ### ############################################################################################ ######################## ### Графика деревьев ### ######################## TreeTile[0]=3283 TreeTile[1]=3277 TreeTile[2]=3293 TreeTile[3]=3296 TreeTile[4]=3302 TreeTile[5]=3299 TreeTile[6]=3290 TreeTile[7]=3288 TreeTile[8]=3286 TreeTile[9]=3280 uo.exec("filterspeech on") uo.exec("filterspeech add 'Where do you want to use the pickaxe?'") uo.print('Выбери топор: ') uo.exec('addobject axe') while uo.targeting() wait(100) wend if TryRecall==1 then uo.print('Выбери PунБук: ') uo.exec('addobject Runebook') while uo.targeting() wait(100) wend end if ##################################### ### Загружаем координаты из файла ### ##################################### if GetFromFile==1 then uo.print('Загружаем координаты из файла...') f.open() TreeCount=safe call f.readNumber() for i=1 to TreeCount TreeT[i]=safe call f.ReadNumber() TreeX[i]=safe call f.ReadNumber() TreeY[i]=safe call f.ReadNumber() next f.close() else ###################################### ### Собираем координаты из клиента ### ###################################### uo.print('Выбери Кирку: ') uo.exec('addobject Pickaxe') while uo.targeting() wait(100) wend uo.print('Собираем координаты деревьев в округе...') for q=1 to Area if q==2 then gotoxy(uo.getx()+20,uo.gety()-10) end if if q==3 then gotoxy(uo.getx(),uo.gety()+20) end if if q==4 then gotoxy(uo.getx()-20,uo.gety()) end if for r=0 to 3 if r==1 then gotoxy(uo.getx()+10,uo.gety()) end if if r==2 then gotoxy(uo.getx(),uo.gety()+10) end if if r==3 then gotoxy(uo.getx()-10,uo.gety()) end if for j=0 to 8 for i=0 to 8 clicks=0 flag=0 uo.DeleteJournal() ####################### ### Кликаем на тайл ### ####################### uo.useobject('Pickaxe') waitForTarget() uo.DeleteJournal() WaitForTryRock() ############################### ### Проверяем дерево ли это ### ############################### flag=0 for k=0 to 9 if uo.LastTile(0)==TreeTile[k]+1 then flag=2 end if next if flag==0 then for k=0 to 9 if uo.LastTile(0)==TreeTile[k] then flag=1 end if next end if ######################### ### Кликнули на ствол ### ######################### if flag==1 then flag2=0 if treeCount>0 then for ii=1 to treeCount if treeX[ii]==uo.lastTile(1) AND treeY[ii]==uo.lastTile(2) then flag2=1 end if next end if if flag2==0 then treeCount=treeCount+1 TreeX[treeCount]=uo.LastTile(1) treeY[treeCount]=uo.lastTile(2) TreeT[treeCount]=uo.LastTile(0) uo.print('Найдено дерево: x='+str(uo.lasttile(1))+' y='+str(uo.lastTile(2))) end if end if ########################## ### Кликнули по листве ### ########################## if flag==2 then flag2=0 if treeCount>0 then for ii=1 to treeCount if treeX[ii]==uo.lastTile(1) AND treeY[ii]==uo.lastTile(2) then flag2=1 end if next end if if flag2==0 then treeCount=treeCount+1 TreeX[treeCount]=uo.LastTile(1) treeY[treeCount]=uo.LastTile(2) TreeT[treeCount]=uo.LastTile(0)-1 uo.print('Найдено дерево: x='+str(uo.lasttile(1))+' y='+str(uo.lastTile(2))) end if end if next next next next uo.exec("filterspeech off") uo.print('Анализ закончен, координаты деревьев записаны в файл C:\trees3.dat') SaveToFile(treeCount,TreeX,TreeY,TreeT) end if uo.print('Деревьев найдено: '+str(treeCount)) wait(2000) ###################################### ### Ходим по собранным координатам ### ###################################### while 1==1 if treeCount>0 then for i=1 to treeCount if TryRecall==1 AND uo.Count('ZLK')>=LogsQty then ToRecall() end if uo.print('Идем к дереву '+str(i)+': x='+str(treex[i])+' y='+str(treey[i])) infologs() flag=gotoxy(treex[i],treey[i]) if flag==1 then if TryHiding==1 then ToHide() end if GetTree(str(treeT[i]),str(treeX[i]),str(TreeY[i]),str(uo.getz())) end if next end if wend end sub sub GetTree(type,x,y,z) var i uo.print('Начинаем рубку дерева...') for i=0 to 15 if uo.warmode()==1 then return 0 end if wait(200) uo.deletejournal() uo.waittargettile(type,x,y,z) uo.useobject('axe') if WaitForChange()==1 then return 1 end if next return 0 end sub sub ToRecall() VAR Meshok='0x401C1142' ## - ID сундука в который чар должен складывать логи RecallToHome() wait(500) uo.press(36) wait(500) uo.press(36) wait(500) repeat wait(500) repeat wait(500) repeat wait(500) repeat wait(600) UO.SetReceivingContainer(Meshok) uo.findtype('ZLK') wait(500) UO.Grab('all','finditem') infologs() wait(500) until uo.GetQuantity('finditem')==0 UO.UnSetReceivingContainer() UO.SetReceivingContainer(Meshok) uo.findtype('ZLK') wait(500) UO.Grab('all','finditem') infologs() wait(500) until uo.GetQuantity('finditem')==0 UO.UnSetReceivingContainer() UO.SetReceivingContainer(Meshok) uo.findtype('ZLK') wait(500) UO.Grab('all','finditem') infologs() wait(500) until uo.GetQuantity('finditem')==0 UO.UnSetReceivingContainer() RecallToLumber() end sub sub RecallToHome() UO.Print("!!Прыгаем ДоМОЙ!!") uo.exec("recall Runebook 21") wait(10000) end sub sub RecallToLumber() UO.Print("!!Прыгаем в ЛЕС!!") uo.exec("recall Runebook 1025") wait(10000) end sub sub ToHide() while not UO.Hidden() uo.print('Пытаемся уйти в хайд...') uo.deletejournal() UO.UseSkill("Stealth") wait(4100) wend wait(100) end sub sub WaitForRecall() var Text1=uo.getname()+": The spell fizzles." var mess='',lastX=uo.getX(),lastY=uo.getY() for var i=0 to 200 mess=uo.journal(0) if uo.Journal(0)==Text1 then return 0 end if if uo.getX()<>lastX OR uo.getY()<>LastY then return 1 end if wait(50) next return 0 end sub sub WaitForHide() var Text1=uo.getname()+": You have hidden yourself well" var Text2=uo.getname()+": You can't seem to hide here." var mess for var i=0 to 200 mess=uo.journal(0) if uo.Journal(0)==Text1 then return 1 end if if uo.Journal(0)==Text2 then return 0 end if wait(50) next return 0 end sub sub WaitForChange() var Text1=uo.getname()+': You hack at the tree for a while, but fail to produce any useable wood.' var Text2='There are no logs here to chop.' var Text3="You can't reach this." var mess for var i=0 to 200 mess=uo.journal(0) if uo.Journal(0)==Text2 OR uo.Journal(0)==Text3 then return 1 end if if uo.Journal(0)==Text1 then return 0 end if if mess[0]=='Y' AND mess[1]=='o' AND mess[2]=='u' AND mess[4]=='p' AND mess[5]=='u' AND mess[6]=='t' then return 0 end if wait(50) next return 0 end sub sub WaitForTryRock() var Text1="That is too far away." var Text2="Try mining in rock." var Text3="There is no ore here to mine." var Text4="You have no line of sight to that location" var Text5="You can't see the target" for var i=0 to 50 if uo.Journal(0)==Text1 OR uo.Journal(0)==Text2 OR uo.Journal(0)==Text3 OR uo.Journal(0)==Text4 OR uo.Journal(0)==Text5 then return 1 end if wait(200) next return 0 end sub sub WaitForTarget() for var i=0 to 50 if uo.Targeting()==1 then return 1 end if wait(200) next return 0 end sub sub WaitForChangeXY(myX,myY,lastX,lastY) for var i=1 to 50 if lastX<>myX OR lastY<>myY then return 1 end if wait(200) next return 0 end sub sub gotoXY(x,y) var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0 for i=1 to 60 MyX=uo.getX(); MyY=uo.getY(); if LastX==MyX AND LastY==MyY then halt=halt+1 else halt=0 end if if halt>=10 then if uo.GetDir()==1 then for z=0 to 8 uo.press(40) next end if if uo.GetDir()==3 then for z=0 to 8 uo.press(37) next end if if uo.GetDir()==5 then for z=0 to 8 uo.press( 38 ) next end if if uo.GetDir()==7 then for z=0 to 8 uo.press(39) next end if halt=15 end if if abs(x-myX)<=1 AND abs(y-myY)<=2 then return 1 end if if x<=MyX then if y<=MyY then for z=0 to 3 uo.press( 38 ) next else for z=0 to 3 uo.press(37) next end if else if y<=MyY then for z=0 to 3 uo.press(39) next else for z=0 to 3 uo.press(40) next end if end if lastX=myX lastY=myY wait(200) next return 0 end sub sub abs(num) if num>=0 then return num else return num*(-1) end if end sub sub SaveToFile(TreeCount,TreeX,TreeY,TreeT) var f=file("C:\trees3.dat") var s=0,i=0 f.open() f.create() s=safe call f.writeln(TreeCount) for i=1 to TreeCount s=safe call f.writeln(str(TreeT[i])+' '+str(treeX[i])+' '+str(TreeY[i])) next f.close() end sub sub infologs() UO.Print('У вас всего '+Str(UO.Count('0x1BDD'))+' логов в сумке') UO.Print('Из них '+Str(UO.Count('0x1BDD','0x0000'))+' простых и ' +str(uo.count('0x1BDD')-uo.count('0x1BDD','0x0000'))+' цветных') end sub ############################################################## ### ВНИМАНИЕ!!! В СКРИПТЕ РУНБУКИ НАСТРОЕНЫ ПОД DRW (шард) ### ##############################################################
Профиксено много чего ...
Code: Select all
##########################################################
### Lumberjacking / Рубка деревьев v7.3 Full ###
##########################################################
### Шард Dragon World / www.drw.ru ###
##########################################################
### Внимание:
### Для работы скрипта нужна версия YokoInjection 4ZD.
### Скачать dll этой версии можно
### от сюда: http://www.swines.nm.ru/injection.zip
##########################################################
### По вопросам и предложениям обращаться сюда:
### ICQ: 333358386 [cOoler]
### Авторы:
### -За основу взят скрипт:"©Elthar aka Duo",
### за что его автору большое спасибо.
### -Редактировал и дополнял:"BETEPAH".
### -Идеи по доработке и переработке:"cOoler".
### -За неоценимую помощь спасибо:"Mafia".
### -За коректнную помощь и идеи:"Аskaneli".
### -За помощь в переработке скрипта спасибо:"Sfagnum"
### -А также за систему подсчета логов спасибо:"Mguai"
### Спасибо всем кто каким либо образом помогал в
### разработке этого скрипта.
#########################################################
############################
### Описание и настройка ###
############################
### Обратите внимание на значки "]![" ими выделенны важные сообщения.
###
### Чар бегает от дерева к дереву (координаты деревьев берет из файла).
### Вырубит, бежит к следующему, при логах 700 штук в паке порталится домой скидывает логи в сундук,
### после реколится обратно бежит к последнему дереву и продолжает рубить.
### Пример: В файле 100 деревьев, вы вырубив 74 дошли до придела в 700 логов сработала система рекола
### и вы "порталитесь" домой и складываете логи в сундук, после вы реколитесь обратно в лес и бежите к 75 дереву.
### Дойдя до 100 дерева (тоесть последнего в списке) чар перейдет к 1ому дереву.(Цикличность)
###
####################
### Нововведения ###
####################
### 1)Логи складываются не на пол а в сундук. [BETEPAH]
### 2)Рекол в лес и домой по рунбуке (а не по рункам). [BETEPAH]
### ]![ Внимание в скрипте номера рун в рунбуке настроены под ДРВ шард. ]![ [Шард]
### 3)Система автомарка убрана и переделана в сомостоятельное маркирование деревьев
### (раньше чар сам бегал по лесу и очень долго марчил деревья)теперь бегаем сами и просто прицелом по деревьям
### (марчим также, как и раньше в руках кирка). [BETEPAH]
### 4)Увеличен придел замаркированых деревьев до 500 шт. [BЕТЕРАН]
### 5)Улучшена система хайда (ходим, не бегаем). [BЕТЕРАН]
### 6)Добавлена система InfoLogs. [Mguai, доработана BETEPAH]
### 7)Добавлен выбор кирки. [cOoler, доработана BETEPAH]
### 8)Добавлена система защиты от ентов. [BETEPAH]
### 9)Убыстрена система рекола при атаке. [cOoler]
### 10)Добавлен реконнект. [FoX M, размещен cOoler]
### 11)Добавлены новые функции выбор на атаку и реконект. [cOoler]
### 12)Изменена система сброса логов в сундук. [cOoler]
### 13)Полностью изменен(упращен) рекол. [cOoler]
### 14)Добавлены выбор рун в рунбуке в лес и домой. [cOoler]
### 15)Добавлен каст на нападающего. [cOoler]
### 16)Добавлен выбор файла со звуком. [cOoler]
### 17)Добавлен речарж(заполнение скролами) рунбуки. [cOoler]
### 18)Добавлен рекол домой и выгруска логов после атаки. [cOoler]
### 19)Добавлена функция употребления пищи. [cOoler]
### 20)Полностью изменена функция употребления пищи. [cOoler]
### 21)Переработана система речаржа рунбуки. [cOoler]
### 22)Модифицированна система перемещения предметов. [Sfagnum]
### 23)Добавлена функция записи имен тех кто вас атачит. [cOoler]
### 24)Добавлены коментарии.Добавлена контроля за количеством логов по весу. [Sfagnum]
### 25)Убраны переходы при марке. [BETEPAH,Аskaneli]
### 26)Переделана система ожидания сейва координат в файл. [BETEPAH,Аskaneli]
### 27)Убрана система Ареа. [BETEPAH,Аskaneli]
### 28)Добавлена система подсчета деревьев. [BETEPAH,cOoler,Аskaneli]
### 29)Увеличен предел деревьев до 5000 шт. [BETEPAH,Аskaneli]
###
### ]![ Чтобы скрипт заработал внимательно прочтите настройки. ]![
###
###################################
### Режимы работы скрипта ###
###################################
### Работает в 2х режимах: ###
### 1)Маркировка ###
### 2)Рубка ###
###################################
### Режим Первый - "Маркировка" ###
###################################
### Этот режим отвечает за Маркирование(записывание координат) деревьев.
### Включается переменной var GetFromFile=0 ## 1 - координаты деревьев будут считыватся из файла, 0 - собиратся из клиента.
### То есть если GetFromFile=0 координаты деревьев собиратся из клиента.
###
### Маркировка происходит так:
### Поставте переменную GetFromFile равную 0 (GetFromFile=0).
### Положите к себе в сумку Топор, Рунбук(с рунами домой и в лес) и Кирку.
### Идите в лес в котором вы хотите рубить.
### Запустите Скрипт Lumberjacking(), инжект попросит вас указать Топор
### (появится прицел,прицелом на топор который вы с собой взяли), потом инжект попросит вас указать Рунбук(появится прицел,прицелом на него).
### Инжект сообщит вам что ('Собираем координаты деревьев в округе...').
### Инжект попросит вас указать Кирку(появится прицел,прицелом на неё).
### Теперь вы должны в любом порядке сами прицелом указать координаты(достаточно просто нажать прицелом на дерево).
### Если вы не промахнулись и "нажали" на дерево, то инжект сообщит вам об этом(Найдено дерево "координаты дерева").
### Причем что если даже вы нажмете два раза на одно дерево то он не "запомнит" его повторно.
### Ходите по лесу и марчите деревья.
### Для того чтобы остановить марк нажмите таргетом на себя.
### Инжект напишет вам сообщение ('Анализ закончен, координаты деревьев записаны в файл C:\trees3.dat') и создаст файл на диске
### С:\ куда запишет координаты деревьев.
### После этого чар пойдет по координатам и будет вырубать деревья.
###
##############################
### Режим Второй - "Рубка" ###
##############################
### Этот режим соответственно отвечает за рубку.
### Включается переменной var GetFromFile=1 ## 1 - координаты деревьев будут считыватся из файла, 0 - собиратся из клиента
### То есть если GetFromFile=1 координаты деревьев будут считыватся из файла.
### И вам не надо будет сново марчить деревья.
###
### Рубка происходит так:
### Поставте переменную GetFromFile равную 1 (GetFromFile=1).
### Положите к себе в сумку Топор и Рунбук(с рунами домой и в лес).
### ]![ Внимание в рунбуке руна в 1ом слоте "Домой", в 9ом слоте "В лес". ]![
### После установок рун в рунбук.
### ]![ Внимание в скрипте номера рун в рунбуке настроены под ДРВ шард. ]![
###
######################################
### Дополнительные функции скрипта ###
######################################
### В скрипте 3 доп. функции: ###
### 1)Речарж Рунбуки ###
### 2)Кушанье ###
### 3)Побег при Атаке ###
### 4)Реконнект ###
##########################################
### Функция Первая - "Речарж Рунбуки" ###
##########################################
### Этот режим соответственно отвечает за Речарж(заполнение скролами) Рунбуки.
### Включается переменной var RechargeBook=1 ## 1 - Включить речарж рунбуки, 0 - отключить речарж.
### То есть если RechargeBook=1 чар будет речаржить рунбуку.
###
### Речарж происходит так:
### Поставте переменную RechargeBook равную 1 (RechargeBooks=1).
### Положите в сундук, в который будут выгручаться логи, реколы.
### Чар берет 50 реколов из сундука, речаржет рунбуку, оставшиеся кладет обратно в сундук.
###
############################################
### Функция Вторая - "Употребление Пищи" ###
############################################
### Этот режим соответственно отвечает за Употребление Пищи.
### Включается переменной var EatingFood=1 ## 1 - Будем есть, 0 - нет.
### То есть если EatingFood=1 чар будет кушать.
###
### Употребление Пищи происходит так:
### Поставте переменную EatingFood равную 1 (EatingFood=1).
### Положите в сундук куда будут выгружаться логи и где лежат реколы - еду,
### тип которой вы указали тут var TypeFood='0x097B' ## - Тип еды которую будем кушать.(сейчас фиштейки)
### ]![ Советую положить в сундук побольше еды т.к. ели она кончиться скрипт встанет! ]![
### После того как чар выложит логи и речаржнет рунбуку, будет кушать.
### Он берет 20 единиц еды и кушает, что осталось выгружает обратно в сундук.
###
##########################################
### Функция Третья - "Побег при Атаке" ###
##########################################
### Этот режим соответственно отвечает за Побег при атаке ентов и не только.
### Включается переменной var AttackEnts=1 ## 1 - Включить рекол по руне(в паке) при атаке, 0 - отключить рекол.
### То есть если AttackEnts=1 чар будет реколиться при атаке.
###
### Побег происходит так:
### Поставте переменную AttackEnts равную 1 (AttackEnts=1).
### Замарчите Руну в безопастном месте.
### Положите к себе в сумку
### Руну(которую замарчили) и Реагенты.(Black Pearls,Blood Moss,Mandrake Root.)
### ]![ Внимание руна должна лежать в стандартном положении(как продается, толька замарканная). ]![
### При атаке вы автоматически телепортитесь на то место,
### где замаркана руна(в бакпаке).
### В это время записывается имя того кто вас атачил.
### При этом скрипт "отключается!"
### Что нада сделать далее:
### 1) Телепортироваться самому на место рубки.
### 2) 3апустить скрипт заново!
###
#######################################
### Функция Четвёртая - "Реконнект" ###
#######################################
### Этот режим соответственно отвечает за Реконнект при выкидывании с сервера.
### Включается переменной var Reconnect=0 ## 1 - Включить реконнект на сервер если выкинет, 0 - отключить реконнект.
### То есть если Reconnect=1 чар будет реколиться при атаке.
###
### Реконнект происходит так:
### Поставте переменную Reconnect равную 1 (Reconnect=1).
### Если вдруг повиснет игровая сфера или вас выкинет по любой другой причине
### реконнектор законнектит вса на сервер автоматически.
### Пишется время дисконнекта и коннекта на сервер.
###
### ]![ Настройте скрипт под себя при помощи переменных. ]![
###
##################
### Переменные ###
##################
###################################################################################################
var f=file("C:\trees3.dat") ## - Путь к файлу в котором будут хранится координаты деревьев.
###
var TryHiding=1 ## 1 - Перед тем как рубить дерево, будет пытаться уйти в хайд, 0 - не будет .
###
var TryRecall=1 ## 1 - После того как соберет LogsQty логов, будет пытаться реколиться домой,
### складывать логи в сундук и реколиться обратно , 0 - не будет.
###
var RechargeBook=1 ## 1 - Включить речарж рунбуки, 0 - отключить речарж.
###
var RuneToHome=4 ## - Номер руны Домой,по счёту в рунбуке.(сейчас в 4ом слоте,можно менять от 1-9)
###
var RuneToLumber=5 ## - Номер руны в Лес,по счёту в рунбуке.(сейчас в 5ом слоте,можно менять от 1-9)
###
var LogsQty=1500 ## - Количество логов, добыв которое надо реколиться домой.
###
var Quant=15 ## - Сколько раз чар будет ударять по дереву, прежде чем перейдет к другому.(стандарт - 15)
###
var GetFromFile=1 ## 1 - Координаты деревьев будут считыватся из файла, 0 - собиратся из клиента
### (сначала соберите а потом считывайте из файла).
###
var ControlOfDanger=1 ## 1 - Включить рекол по руне(в паке) при атаке, 0 - отключить рекол.
###
var CastAtAttack=0 ## 1 - Включить каст - "Magic Arrow" на напавшего, 0 - отключить каст.
###
var EatingFood=1 ## 1 - Будем есть, 0 - нет.
###
var TypeFood='0x097B' ## - Тип еды которую будем кушать.(сейчас фиштейки)
###
var Reconnect=1 ## 1 - Включить реконнект на сервер если выкинет, 0 - отключить реконнект.
###
var RecallDrop=0 ## 1 - Включить рекол после побега от ента домой и выложить логи, 0 -выключить.
###
var RecallLumber=0 ## 1 - Включить рекол в лес после указания обьектов, 0 - выключить.
###
var Chest='0x40203CC2' ## - ID сундука куда будут выгружаться логи, где должны лежать реколы и еда.
###
var LumberSound=('C:\Warning.wav') ## - Звук которы будет пригран при атаке.(замените на свой)
###
var OldX,OldY,time ## - Для рекола.
###
###################################################################################################
###
### После настройки:
### Идите в лес в котором вы хотите рубить.
### Запустите cкрипт Lumberjacking(), Инжект попросит вас указать Топор
### (появится прицел, прицелом на топор который вы с собой взяли),
### затем инжект попросит вас указать Рунбук(появится прицел, прицелом на него).
### После этого чар пойдет по координатам и будет вырубать деревья.
###########
### Код ###
###########
sub Lumberjacking()
var i=0,j=0,k=0,r=0,q=0,ii,jj
var TopX=324,TopY=65
dim TreeX[5000], TreeY[5000],TreeT[5000]
dim TreeTile[29]
var flag=0,treeCount=0,clicks=0,flag2=0
########################
### Графика деревьев ###
########################
TreeTile[0]=3277
TreeTile[1]=3280
TreeTile[2]=3283
TreeTile[3]=3286
TreeTile[4]=3289
TreeTile[5]=3291
TreeTile[6]=3294
TreeTile[7]=3296
TreeTile[8]=3299
TreeTile[9]=3302
TreeTile[10]=3393
TreeTile[11]=3394
TreeTile[12]=3395
TreeTile[13]=3396
TreeTile[14]=3415
TreeTile[15]=3416
TreeTile[16]=3417
TreeTile[17]=3418
TreeTile[18]=3419
TreeTile[19]=3438
TreeTile[20]=3439
TreeTile[21]=3440
TreeTile[22]=3441
TreeTile[23]=3442
TreeTile[24]=3460
TreeTile[25]=3461
TreeTile[26]=3462
TreeTile[27]=3290
TreeTile[28]=3288
uo.Exec("filterspeech on")
uo.Exec("filterspeech add 'Where do you want to use the pickaxe?'")
uo.Print('Выбери Топор: ')
uo.Exec('addobject Axe')
while uo.Targeting()
wait(100)
wend
if TryRecall==1 then
uo.Print('Выбери PунБук: ')
uo.Exec('addobject Runebook')
while uo.Targeting()
wait(100)
wend
end if
if ControlOfDanger==1 then
uo.Exec('exec ControlOfDanger')
end if
if Reconnect==1 then
uo.Exec('exec Reconnect')
end if
if RecallLumber==1 then
uo.Exec('exec RecallToLumber')
wait(9000)
end if
#####################################
### Загружаем координаты из файла ###
#####################################
if GetFromFile==1 then
uo.Print('Загружаем координаты из файла...')
f.open()
treeCount=safe call f.ReadNumber()
for i=1 to treeCount
TreeT[i]=safe call f.ReadNumber()
TreeX[i]=safe call f.ReadNumber()
TreeY[i]=safe call f.ReadNumber()
next
f.close()
else
######################################
### Собираем координаты из клиента ###
######################################
uo.Print('Выбери Кирку: ')
uo.Exec('addobject Pickaxe')
while uo.Targeting()
wait(100)
wend
uo.Print('Собираем координаты деревьев в округе...')
repeat
clicks=0
flag=0
uo.DeleteJournal()
#######################
### Кликаем на тайл ###
#######################
uo.UseObject('Pickaxe')
waitForTarget()
uo.DeleteJournal()
WaitForTryRock()
###############################
### Проверяем дерево ли это ###
###############################
flag=0
for k=0 to 28
if uo.LastTile(0)==TreeTile[k]+1 then
flag=2
end if
next
if flag==0 then
for k=0 to 28
if uo.LastTile(0)==TreeTile[k] then
flag=1
end if
next
end if
if uo.Lasttile(1)==uo.GetX() and uo.Lasttile(2)==uo.GetY() then
flag=3
end if
#########################
### Кликнули на ствол ###
#########################
if flag==1 then
flag2=0
if treeCount>0 then
for ii=1 to treeCount
if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then
flag2=1
end if
next
end if
if flag2==0 then
treeCount=treeCount+1
TreeX[treeCount]=uo.LastTile(1)
TreeY[treeCount]=uo.LastTile(2)
TreeT[treeCount]=uo.LastTile(0)
uo.Print('Найдено дерево номер '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2)))
end if
end if
##########################
### Кликнули по листве ###
##########################
if flag==2 then
flag2=0
if treeCount>0 then
for ii=1 to treeCount
if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then
flag2=1
end if
next
end if
if flag2==0 then
treeCount=treeCount+1
TreeX[treeCount]=uo.LastTile(1)
TreeY[treeCount]=uo.LastTile(2)
TreeT[treeCount]=uo.LastTile(0)-1
uo.print('Найдено дерево номер '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2)))
end if
end if
until (flag==3) or (treeCount==5000)
uo.Exec("filterspeech off")
uo.Print('Анализ закончен, координаты деревьев записаны в файл C:\trees3.dat')
SaveToFile(treeCount,TreeX,TreeY,TreeT)
end if
uo.Print('Деревьев найдено: '+str(treeCount))
wait(2000)
######################################
### Ходим по собранным координатам ###
######################################
while 1==1
if treeCount>0 then
for i=1 to treeCount
if TryRecall==1 and uo.Count('ZLK')>=LogsQty or uo.Weight>=uo.STR*4+20 then
ToRecall()
end if
uo.Print('Идем к дереву номер '+str(i)+': x='+str(TreeX[i])+' y='+str(TreeY[i]))
InfoLogs()
flag=GotoXY(TreeX[i],TreeY[i])
if flag==1 then
if TryHiding==1 then
ToHide()
end if
GetTree(str(TreeT[i]),str(TreeX[i]),str(TreeY[i]),str(uo.GetZ()))
end if
next
end if
wend
end sub
sub GetTree(Type,X,Y,Z)
var i
uo.Print('Начинаем рубку дерева...')
for i=0 to Quant
if uo.Warmode()==1 then
return 0
end if
wait(200)
uo.DeleteJournal()
uo.WaitTargetTile(Type,X,Y,Z)
uo.UseObject('Axe')
if WaitForChange()==1 then
return 1
end if
next
return 0
end sub
sub ToRecall()
RecallToHome()
DropLogs()
InfoLogs()
if RechargeBook==1 then
RechargeBook()
wait(4000)
end if
if EatingFood==1 then
EatingFood()
end if
wait(3000)
RecallToLumber()
end sub
sub RecallToHome()
uo.Print('Прыгаем Домой.')
RunebookRecall(RuneToHome)
end sub
sub RecallToLumber()
uo.Print('Прыгаем в Лес.')
RunebookRecall(RuneToLumber)
end sub
sub ToHide()
while not uo.Hidden()
uo.Print('Пытаемся уйти в хайд...')
uo.DeleteJournal()
uo.UseSkill('Stealth')
wait(4100)
wend
wait(100)
end sub
sub WaitForRecall()
var Text1=uo.GetName()+': The spell fizzles.'
var mess='',LastX=uo.GetX(),LastY=uo.GetY()
for var i=0 to 200
mess=uo.Journal(0)
if uo.Journal(0)==Text1 then
return 0
end if
if uo.GetX()<>LastX or uo.GetY()<>LastY then
return 1
end if
wait(50)
next
return 0
end sub
sub WaitForHide()
var Text1=uo.GetName()+': You have hidden yourself well'
var Text2=uo.GetName()+": You can't seem to hide here."
var mess
for var i=0 to 200
mess=uo.Journal(0)
if uo.Journal(0)==Text1 then
return 1
end if
if uo.Journal(0)==Text2 then
return 0
end if
wait(50)
next
return 0
end sub
sub WaitForChange()
var Text1=uo.GetName()+': You hack at the tree for a while, but fail to produce any useable wood.'
var Text2='There are no logs here to chop.'
var Text3="You can't reach this."
var Text4='That is too far away.'
var Text5="You can't do much in your current state."
var mess
for var i=0 to 200
mess=uo.Journal(0)
if uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 then
return 1
end if
if uo.Journal(0)==Text1 then
return 0
end if
if mess[0]=='Y' and mess[1]=='o' and mess[2]=='u' and mess[4]=='p' and mess[5]=='u' and mess[6]=='t' then
return 0
end if
wait(50)
next
return 0
end sub
sub WaitForTryRock()
var Text1='That is too far away.'
var Text2='Try mining in rock.'
var Text3='There is no ore here to mine.'
var Text4='You have no line of sight to that location'
var Text5="You can't see the target"
for var i=0 to 50
if uo.Journal(0)==Text1 or uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 or uo.Journal(0)==Text5 then
return 1
end if
wait(200)
next
return 0
end sub
sub WaitForTarget()
for var i=0 to 50
if uo.Targeting()==1 then
return 1
end if
wait(200)
next
return 0
end sub
sub WaitForChangeXY(myX,myY,LastX,LastY)
for var i=1 to 50
if LastX<>myX or LastY<>myY then
return 1
end if
wait(200)
next
return 0
end sub
sub GotoXY(x,y)
var myX,myY,LastX=0,LastY=0,i,halt=0,z,r=0
for i=1 to 60
myX=uo.GetX()
myY=uo.GetY()
if LastX==myX and LastY==myY then
halt=halt+1
else
halt=0
end if
if halt>=10 then
if uo.GetDir()==1 then
for z=0 to 8
uo.Press(40)
next
end if
if uo.GetDir()==3 then
for z=0 to 8
uo.Press(37)
next
end if
if uo.GetDir()==5 then
for z=0 to 8
uo.Press(38)
next
end if
if uo.GetDir()==7 then
for z=0 to 8
uo.Press(39)
next
end if
halt=15
end if
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then
return 1
end if
if x<=myX then
if y<=myY then
for z=0 to 3
uo.Press(38)
next
else
for z=0 to 3
uo.Press(37)
next
end if
else
if y<=myY then
for z=0 to 3
uo.Press(39)
next
else
for z=0 to 3
uo.Press(40)
next
end if
end if
LastX=myX
LastY=myY
wait(200)
next
return 0
end sub
sub Numb(num)
if num>=0 then
return num
else
return num*(-1)
end if
end sub
sub SaveToFile(treeCount,TreeX,TreeY,TreeT)
var f=file("C:\trees3.dat")
var s=0,i=0
f.open()
f.create()
s=safe call f.writeln(treeCount)
for i=1 to treeCount
s=safe call f.writeln(str(TreeT[i])+' '+str(TreeX[i])+' '+str(TreeY[i]))
next
f.close()
end sub
sub DropLogs()
var Time,Space
Time=Time()
Space=' '
uo.TextOpen()
uo.TextPrint("Выкладываем логи - " +Space +Time)
ToHide()
var a,Exit
dim Logs[1]
Logs[0]=0x1BDD
uo.Print('Выкладываем Логи.')
for a=0 to 0
MovingItems(Logs[a],'-1',-1,0)
next
uo.Print('Логи Выложены.')
end sub
sub InfoLogs()
uo.Print('У вас всего '+str(uo.Count('0x1BDD'))+' логов в сумке')
uo.Print('Из них '+str(uo.Count('0x1BDD','0x0000'))+' простых и ' +str(uo.Count('0x1BDD')-uo.Count('0x1BDD','0x0000'))+' цветных')
end sub
sub RunebookRecall(n)
OldX=uo.GetX()
OldY=uo.GetY()
repeat
uo.Exec('warmode 0')
uo.UseObject('Runebook')
CheckLag()
uo.LClick(135, n*15+55)
CheckLag()
time=uo.Timer()
repeat
wait(500)
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs') or uo.InJournal('fizzles') or time+200<uo.Timer()
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs')
end sub
sub Open(Container)
uo.DeleteJournal()
uo.UseObject(Container)
repeat
wait(500)
until uo.InJournal('Contains')
end sub
sub MovingItems(tItem,cItem,qItem,FromBackPack)
var idResivCont
var idSendCont
if FromBackPack==1 then
idResivCont=uo.GetSerial('backpack')
idSendCont=Chest
else
idSendCont=uo.GetSerial('backpack')
idResivCont=Chest
end if
CheckLag()
uo.FindType(tItem,cItem,idSendCont)
while uo.GetQuantity('finditem')>0
uo.MoveItem('finditem',qItem,idResivCont)
wait(1000)
CheckLag()
if qItem>0 then
return
end if
uo.FindType(tItem,cItem,idSendCont)
wend
end sub
sub RechargeBook()
var Time,Space
Time=Time()
Space=' '
uo.TextOpen()
uo.TextPrint("Речарим рунбуку - " +Space +Time)
repeat
MovingItems('0x1F4C','-1',-1,1)
uo.UseObject('Runebook')
wait(1000)
Checklag()
uo.Lclick(296,91)
wait(1000)
until uo.InJournal('charges are 50') or uo.InJournal('fully')
while uo.Count('0x1F4C')>0
MovingItems('0x1F4C','-1',-1,0)
end sub
sub EatingFood()
var Time,Space
Time=Time()
Space=' '
uo.TextOpen()
uo.TextPrint("Кушаем - " +Space +Time)
MovingItems(TypeFood,'-1',20,1)
repeat
CheckLag()
uo.UseType(TypeFood)
while not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not uo.Dead()
wait(100)
wend
until uo.InJournal('too full') or uo.Dead()
MovingItems(TypeFood,'-1',-1,0)
end sub
sub WriteNames()
var Time,Space
Time=Time()
Space=' '
uo.GetStatus("uo.JournalSerial(0)")
uo.SetGlobal("name",uo.GetName(uo.JournalSerial(0)))
uo.TextOpen()
uo.TextPrint("Вас атаковал - "+uo.GetName(uo.JournalSerial(0)) +Space +Time)
end sub
sub ControlOfDanger()
uo.DeleteJournal()
var Enemy='0x00000000'
repeat
if uo.InJournal('is attacking you') or uo.InJournal('OOPS !!!') or uo.InJournal('Wis Quas') then
WriteNames()
uo.Exec('terminate Lumberjacking')
Enemy=uo.JournalSerial(uo.InJournal('is attacking you')-1)
uo.PlayWav(LumberSound)
if CastAtAttack==1 then
uo.Cast('Magic Arrow',Enemy)
end if
uo.DeleteJournal()
RecallAtDanger()
end if
wait(1000)
until false
end sub
sub RecallAtDanger()
var mX,mY
reccal:
uo.DeleteJournal()
if uo.Waiting() then
uo.CancelTarget()
end if
mX=uo.GetX("self")
mY=uo.GetY("self")
uo.DeleteJournal()
uo.FindType('0x1F14',-1,'mY')
uo.Cast('Recall','finditem')
uo.TextOpen()
uo.TextPrint("Пытаемся сбежать!")
uo.SayU('This script coded by Cooler!')
uo.SayU('Fuck your self!')
wait(4000)
if not uo.GetX("self")<>mX and not uo.GetY("self")<>mY then
goto reccal
end if
uo.TextOpen()
uo.TextPrint("Сбежали удачно!")
if RecallDrop==1 then
RecallToHome()
DropLogs()
InfoLogs()
end if
Terminate()
end sub
sub Reconnect()
var ReconnectTime,rFlag
ReconnectTime='0'
rFlag=1
repeat
while (uo.ObjAtLayer('Bpack')=='')
if rFlag then
ReconnectTime=MakeTime()
rFlag=0
end if
wait(20000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.LdblClick(357,164)
uo.Lclick(616,459)
wait(3000)
wend
wait(3000)
if (rFlag==0) and (ReconnectTime<>'0') then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
rFlag=1
ReconnectTime='0'
end if
until false
end sub
sub MakeTime()
var d,t,ret,i
ret=str(uo.Time())
t=""
for i=0 to Len(ret)
t=ret[Len(ret)-i]+t
if (i==2) or (i==4) then
t=":"+t
end if
next
ret=str(uo.Date())
d=""
for i=0 to Len(ret)
d=ret[Len(ret)-i] + d
if (i==2) or (i==4) then
d="."+d
end if
next
ret=t+" @ "+d
return ret
end sub
sub Time()
var hh,mm,ss,hms,t=str(uo.Time())
if len(t)<=2 then
hh="0"
mm="0"
ss=t
endif
if len(t)==3 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-1)
endif
if len(t)==4 then
hh="0"
mm=left(t,len(t)-2)
ss=right(t,len(t)-2)
endif
if len(t)==5 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-1)
ss=right(t,len(t)-3)
endif
if len(t)==6 then
hh=left(t,len(t)-4)
hms=left(t,len(t)-2)
mm=right(hms,len(hms)-2)
ss=right(t,len(t)-4)
endif
return hh+":"+mm+":"+ss
end sub
sub Terminate()
uo.Print('Скрипт и все его функции выключены!')
uo.DeleteJournal()
uo.Exec('terminate all')
wait(100)
uo.Exec('terminate all')
wait(100)
uo.Exec('terminate all')
wait(100)
end sub
sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub
Kstati BETEPAH esli mozes.. zdelaj skript na veterinary... tipa ja dumaju sto sistema mogla bit takaja: polimorf -> gargoyle.. (ili demon.. karoche stob molotok smog otdet) i potom uze sistema kak u prostova scripta hiling otdevajem cursed molotok (smits hammer =] ) i tag dale.. ja dumaju ti znajesh kak rabotajet skript na hiling :DDD "anyway" zdu otveta 
В скриптах Саваджа посмотри......Yrilo wrote:ВЕТЕРАН поделись с саратником по шарду (DRW) YRILO [SW!NE$] боевыми скриптами!!!
http://yoko.netroof.net/forum/viewtopic ... 21&start=0
Кстате там же есть и на ветеринарию.
Все просто.
BETEPAH ™
BETEPAH ™
BETEPAH, у меня на твоём скрипте на мининг неработает рекол от ПК и Елементалек. Можешь подсказать в чём может быть дело(гамля на ДрВ). Не работал и рекол с рунбуки, но это я исправил.Пробывал вставить туда что-то типа:
никак не работает. Подскажи пожалуйсто.
Code: Select all
if uo.InJournal('is attacking you') or uo.InJournal('Wis Quas') thenот Элек на сообщение UO.InJournal("OOPS") реколься...Optical wrote:BETEPAH, у меня на твоём скрипте на мининг неработает рекол от ПК и Елементалек. Можешь подсказать в чём может быть дело(гамля на ДрВ). Не работал и рекол с рунбуки, но это я исправил.Пробывал вставить туда что-то типа:никак не работает. Подскажи пожалуйсто.Code: Select all
if uo.InJournal('is attacking you') or uo.InJournal('Wis Quas') then
ну а от ПК... нет универсальных вариантов.
Ну помогите в скрипт вставить, чтоб он именно от ПК реколился при:Sfagnum wrote:от Элек на сообщение UO.InJournal("OOPS") реколься...Optical wrote:BETEPAH, у меня на твоём скрипте на мининг неработает рекол от ПК и Елементалек. Можешь подсказать в чём может быть дело(гамля на ДрВ). Не работал и рекол с рунбуки, но это я исправил.Пробывал вставить туда что-то типа:никак не работает. Подскажи пожалуйсто.Code: Select all
if uo.InJournal('is attacking you') or uo.InJournal('Wis Quas') then
ну а от ПК... нет универсальных вариантов.
Code: Select all
if uo.InJournal('is attacking you') or uo.InJournal('Wis Quas') thenОптик ...как ты заметил тут стоит проверка на виз квиз ( Ревиал магия выбивающая из хайда ) и Атакинг ....когда тебя кто то атакует ...... попробуй просто сделать так if uo.InJournal(':') and not uo.InJournal('OOPS') thenOptical wrote:Ну помогите в скрипт вставить, чтоб он именно от ПК реколился при:Sfagnum wrote:от Элек на сообщение UO.InJournal("OOPS") реколься...Optical wrote:BETEPAH, у меня на твоём скрипте на мининг неработает рекол от ПК и Елементалек. Можешь подсказать в чём может быть дело(гамля на ДрВ). Не работал и рекол с рунбуки, но это я исправил.Пробывал вставить туда что-то типа:никак не работает. Подскажи пожалуйсто.Code: Select all
if uo.InJournal('is attacking you') or uo.InJournal('Wis Quas') then
ну а от ПК... нет универсальных вариантов.Спасибо.Code: Select all
if uo.InJournal('is attacking you') or uo.InJournal('Wis Quas') then
хз ...я скрипование забросил ....мож заработает ...идея тут такая ......он будет реагировать на надпись "you see :" которая выскакивает в журнале когда ты видешь кого нить точнее на знак :
И будет также игнорить ООРS которая перед Элемом .
Все просто.
BETEPAH ™
BETEPAH ™
Мой Автолоуд ....
Code: Select all
sub GHeal()
UO.FindType('0x0F0E','0x09BB',-1,'my')
UO.WaitTargetSelf()
UO.UseObject('finditem')
if UO.InJournal("potion")Then
UO.DeleteJournal()
UO.Cast('Greater Heal','self')
UO.Print("Заклинание!")
Else
Endif
Endif
End sub
sub Cure()
If UO.Poisoned() Then
UO.FindType('0x0F0E','0x09A6',-1,'my')
UO.UseObject('finditem')
UO.Print("ЛЕЧИТ!")
Endif
end sub
sub CureM()
UO.Cast('Cure','self')
UO.Print("ЛЕЧИТ!")
Endif
end sub
sub ref()
UO.FindType('0x0F0E','0x0997',-1,'my')
UO.UseObject('finditem')
UO.Print("СТАМИНА")
Endif
end sub
sub UnParalaise()
UO.FindType('0x0F0D','0x0B99',-1,'my')
wait(500)
UO.Cast('Magic Arrow','finditem')
UO.Print("Антипаралайз!")
endif
end sub
sub Mana()
UO.FindType('0x0F0E','0x09DF',-1,'my')
UO.WaitTargetSelf()
UO.UseObject('finditem')
UO.Print("Мана")
Endif
end sub
sub Flame()
UO.Set('lasttarget','laststatus')
UO.FindType('0x1F5F',-1,'my')
If UO.GetQuantity('finditem')>0 then
if UO.Mana>=22 then
UO.WaitTargetObject('lasttarget')
UO.UseObject('finditem')
UO.Print("Scroll")
else
UO.Print("Low mana!!! Scroll!")
endif
else
if UO.Mana>=45 then
UO.Cast('Flame Strike','laststatus')
UO.Print("Spell")
else
UO.Print("Low mana!!! Spell!")
endif
endif
end sub
sub Healing()
UO.SetArm('CWeapon')
wait(500)
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
end sub
sub Arrow()
VAR ManaNeed=4
UO.Set('lasttarget','laststatus')
if UO.Mana>=ManaNeed then
UO.Cast('Magic Arrow','laststatus')
else
UO.Print("Low mana!!!")
endif
end sub
sub Poison()
VAR ManaNeed=9
VAR ScrollManaNeed=4
UO.Set('lasttarget','laststatus')
If NOT UO.Poisoned('lasttarget') Then
UO.FindType('0x1F40',-1,'my')
If UO.GetQuantity('finditem')>0 Then
If UO.Mana>=ScrollManaNeed Then
UO.WaitTargetObject('lasttarget')
UO.UseObject('finditem')
UO.Print("Scroll")
Else
UO.Print("Low mana!!! Scroll!")
Endif
Else
If UO.Mana>=ManaNeed Then
UO.Cast('Poison','laststatus')
Else
UO.Print("Low mana!!!")
Endif
Endif
Else
Uo.Print("Character already poisoned!")
Endif
end sub
sub Paral()
UO.Set('lasttarget','laststatus')
UO.FindType('0x1F52',-1,'my')
If UO.GetQuantity('finditem')>0 then
if UO.Mana>=14 then
UO.WaitTargetObject('lasttarget')
UO.UseObject('finditem')
UO.Print("Scroll")
else
UO.Print("Low mana!!! Scroll!")
endif
else
if UO.Mana>=28 then
UO.Cast('Paralyze','laststatus')
UO.Print("Spell")
else
UO.Print("Low mana!!! Spell!")
endif
endif
end sub
sub Reagents()
VAR StoreRegCont=0x400271DE
VAR CharRegBag='CharRegBag'
VAR CountReg=30
VAR WaitTime=600
VAR MainSafe=0x40057901
uo.print('Выбери Мешок:')
uo.exec('addobject CharRegBag')
while uo.targeting()
wait(100)
wend
UO.UseObject(MainSafe)
UO.UseObject(StoreRegCont)
UO.SetReceivingContainer(CharRegBag)
wait(WaitTime)
if UO.BM<CountReg then
UO.FindType('0x0F7B','-1',StoreRegCont) ; BM
UO.Grab(STR((CountReg-UO.BM)),'finditem')
wait(WaitTime)
endif
if UO.BP<CountReg then
UO.FindType('0x0F7A','-1',StoreRegCont) ; BP
UO.Grab(STR(CountReg-UO.BP),'finditem')
wait(WaitTime)
endif
if UO.GA<CountReg then
UO.FindType('0x0F84','-1',StoreRegCont) ; GA
UO.Grab(STR(CountReg-UO.GA),'finditem')
wait(WaitTime)
endif
if UO.GS<CountReg then
UO.FindType('0x0F85','-1',StoreRegCont) ; GS
UO.Grab(STR(CountReg-UO.GS),'finditem')
wait(WaitTime)
endif
if UO.MR<CountReg then
UO.FindType('0x0F86','-1',StoreRegCont) ; MR
UO.Grab(STR(CountReg-UO.MR),'finditem')
wait(WaitTime)
endif
if UO.NS<CountReg then
UO.FindType('0x0F88','-1',StoreRegCont) ; NS
UO.Grab(STR(CountReg-UO.NS),'finditem')
wait(WaitTime)
endif
if UO.SA<CountReg then
UO.FindType('0x0F8C','-1',StoreRegCont) ; SA
UO.Grab(STR(CountReg-UO.SA),'finditem')
wait(WaitTime)
endif
if UO.SS<CountReg then
UO.FindType('0x0F8D','-1',StoreRegCont) ; SS
UO.Grab(STR(CountReg-UO.SS),'finditem')
endif
end:
UO.UnsetReceivingContainer()
end sub
sub Save()
UO.FindType('0x1F14',-1,'my')
wait(200)
UO.Print("!!Прыгаем!!")
UO.Cast('Recall','finditem')
end sub
sub Weak()
VAR ManaNeed=4
UO.Set('lasttarget','laststatus')
if UO.Mana>=ManaNeed then
UO.Cast('Reactive Armor','laststatus')
else
UO.Print("Low mana!!!")
endif
end sub
sub MassD()
VAR ManaNeed=10
UO.Cast('Mass Dispel','self')
else
UO.Print("Low mana!!!")
endif
end sub
sub Alarm()
repeat
if UO.InJournal("is attacking you") Then
UO.DeleteJournal()
uo.playwav("c:\inject\SOUND\chanting sound 01.wav")
Save()
endif
Wait(1000)
until false
end sub
sub Attack()
var Enemy = 0x00000000
repeat
if UO.InJournal("is attacking you") Then
Enemy = UO.JournalSerial(UO.InJournal("is attacking you")-1)
UO.Cast('Magic Arrow',Enemy)
Wait(1200)
UO.Cast('Magic Arrow',Enemy)
UO.DeleteJournal()
Save()
endif
Wait(1000)
until false
end sub
sub Hide()
repeat
while not UO.Hidden()
wait(100)
UO.Warmode("1")
uo.print("hiding...")
UO.UseSkill("Stealth")
wait(4100)
wend
wait(100)
until false
end sub
sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate all')
UO.Exec('exec autoload')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub
sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
sub Loot()
VAR WaitTime=500
VAR Exit=0, i
DIM Loot[142]
Loot[0]=0x0EED ; gp
Loot[1]=0x0F7B ; BM
Loot[2]=0x0F7A ; BP
Loot[3]=0x0F84 ; GA
Loot[4]=0x0F85 ; GI
Loot[5]=0x0F86 ; MR
Loot[6]=0x0F88 ; NS
Loot[7]=0x0F8C ; SA
Loot[8]=0x0F8D ; SS
Loot[9]=0x0F90 ; Dead Woods
Loot[10]=0x0F7E ; Sceleton Bones
Loot[11]=0x0F87 ; Eyes of newt
Loot[12]=0x1078 ; Hides
Loot[13]=0x1BFB ; Bolts
Loot[14]=0x0E34 ; Blanc Scroll
Loot[15]=0x0F25 ; Pieces of Amber
Loot[16]=0x0F16 ; Ametist
Loot[17]=0x0F20 ; Tourmaline
Loot[18]=0x0F26 ; Diamond
Loot[19]=0x0F30 ; Diamond
Loot[20]=0x0F8E ; Serpent Scales
Loot[21]=0x14EB ; Treassure Map
Loot[22]=0x0F79 ; Blackmoor
Loot[23]=0x0F3F ; Arrow
Loot[24]=0x0F79 ; Blackmoor
Loot[25]=0x0F91 ; Wirn hart
Loot[26]=0x0F78 ; Bat
Loot[27]=0x1F03 ; роба
Loot[28]=0x1515 ; плащь
Loot[29]=0x1B76 ; щит
Loot[30]=0x1414 ; перчи
Loot[31]=0x1410 ; руки
Loot[32]=0x1415 ; досп
Loot[33]=0x1411 ; ноги
Loot[34]=0x1413 ; горло
Loot[35]=0x1412 ; шлем
Loot[36]=0x0F0E ; бутылки
Loot[37]=0x0F0E ; бутылки
Loot[38]=0x0F0E ; бутылки
Loot[39]=0x0F0E ; бутылки
Loot[40]=0x0F0E ; бутылки
Loot[41]=0x1F5F ; скролы
Loot[42]=0x1F5F ; скролы
Loot[43]=0x1F5F ; скролы
Loot[44]=0x1F5F ; скролы
Loot[45]=0x0E76 ; Bag
Loot[46]=0x0E76 ; Bag
Loot[47]=0x09B0 ; Pounch
Loot[48]=0x09B0 ; Pounch
Loot[49]=0x1BDD ; Logs
Loot[50]=0x1BDD ; Logs
Loot[51]=0x1BDD ; Logs
Loot[52]=0x1BDD ; Logs
Loot[53]=0x1BDD ; Logs
Loot[54]=0x1BDD ; Logs
Loot[55]=0x1BDD ; Logs
Loot[56]=0x1BDD ; Logs
Loot[57]=0x1BDD ; Logs
Loot[58]=0x1BDD ; Logs
Loot[59]=0x1BDD ; Logs
Loot[60]=0x1BDD ; Logs
Loot[61]=0x1BDD ; Logs
Loot[62]=0x1BDD ; Logs
Loot[63]=0x1BEF ; инги
Loot[64]=0x1BEF ; инги
Loot[65]=0x1BEF ; инги
Loot[66]=0x1BEF ; инги
Loot[67]=0x1BEF ; инги
Loot[68]=0x1BEF ; инги
Loot[69]=0x1BEF ; инги
Loot[70]=0x1BEF ; инги
Loot[71]=0x19B9 ; руда
Loot[72]=0x19B9 ; руда
Loot[73]=0x19B9 ; руда
Loot[74]=0x19B9 ; руда
Loot[75]=0x19B9 ; руда
Loot[76]=0x19B9 ; руда
Loot[77]=0x19B9 ; руда
Loot[78]=0x1F03 ; роба
Loot[79]=0x1515 ; плащь
Loot[80]=0x1B76 ; щит
Loot[81]=0x1414 ; перчи
Loot[82]=0x1410 ; руки
Loot[83]=0x1415 ; досп
Loot[84]=0x1411 ; ноги
Loot[85]=0x1413 ; горло
Loot[86]=0x1412 ; шлем
Loot[87]=0x1F03 ; роба
Loot[88]=0x1515 ; плащь
Loot[89]=0x1B76 ; щит
Loot[90]=0x1414 ; перчи
Loot[91]=0x1410 ; руки
Loot[92]=0x1415 ; досп
Loot[93]=0x1411 ; ноги
Loot[94]=0x1413 ; горло
Loot[95]=0x1412 ; шлем
Loot[96]=0x1F03 ; роба
Loot[97]=0x1515 ; плащь
Loot[98]=0x1B76 ; щит
Loot[99]=0x1414 ; перчи
Loot[100]=0x1410 ; руки
Loot[101]=0x1415 ; досп
Loot[102]=0x1411 ; ноги
Loot[103]=0x1413 ; горло
Loot[104]=0x1412 ; шлем
Loot[105]=0x0E21 ; бинты
Loot[106]=0x13B9 ; викинг
Loot[107]=0x1406 ; мейса
Loot[108]=0x13B1 ; лук
Loot[109]=0x0F4F ; арбалет
Loot[110]=0x13FC ; тяжелый арб
Loot[111]=0x13FE ; катана
Loot[112]=0x143E ; алеба
Loot[113]=0x1F14 ; руна
Loot[114]=0x0F4C ; двойной топор
Loot[115]=0x1B7A ; шит дерево
Loot[116]=0x1541 ; повязка
Loot[117]=0x0E21 ; бинты
Loot[118]=0x13B9 ; викинг
Loot[119]=0x1406 ; мейса
Loot[120]=0x13B1 ; лук
Loot[121]=0x0F4F ; арбалет
Loot[122]=0x13FC ; тяжелый арб
Loot[123]=0x13FE ; катана
Loot[124]=0x143E ; алеба
Loot[125]=0x1F14 ; руна
Loot[126]=0x0F4C ; двойной топор
Loot[127]=0x1B7A ; шит дерево
Loot[128]=0x1541 ; повязка
Loot[129]=0x0E21 ; бинты
Loot[130]=0x13B9 ; викинг
Loot[131]=0x1406 ; мейса
Loot[132]=0x13B1 ; лук
Loot[133]=0x0F4F ; арбалет
Loot[134]=0x13FC ; тяжелый арб
Loot[135]=0x13FE ; катана
Loot[136]=0x143E ; алеба
Loot[137]=0x1F14 ; руна
Loot[138]=0x0F4C ; двойной топор
Loot[139]=0x1B7A ; шит дерево
Loot[140]=0x1541 ; повязка
Loot[141]=0x0E20 ; бинты (кровавые)
Loot[142]=0x0E20 ; бинты (кровавые)
UO.UseObject('lastcorpse')
if UO.GetQuantity('lastcorpse') then
UO.SetArm('temp')
UO.WaitTargetObject('lastcorpse')
UO.UseType('0x0F52') ;dagger
wait(500)
UO.Arm('temp')
wait(500)
endif
; UO.SetReceivingContainer('0x400935D4') ; loot store bag
For i=0 to 142
UO.FindType(Loot[i],-1,'ground')
if UO.GetQuantity('finditem') then
UO.Grab(STR(0),'finditem')
wait(WaitTime)
endif
if UO.GetQuantity('lastcorpse') then
UO.FindType(Loot[i],-1,'lastcorpse')
if UO.GetQuantity('finditem') then
if Loot[i]==0x1078 then
UO.WaitTargetObject('finditem')
UO.UseType('0x0F9E')
else
UO.Grab(STR(0),'finditem')
endif
wait(WaitTime)
endif
endif
next
; UO.UnSetReceivingContainer()
end sub
sub terminate()
UO.Print("ALL OFF")
uo.exec("terminate all")
end sub
sub pal()
UO.Set('lasttarget','laststatus')
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
uo.cast("Paralyze Field")
end sub
sub Repair()
VAR i,Exit,Part
VAR Molotok='0x13E3'
DIM Layers[8]
Layers[0]='Hat'
Layers[1]='Neck'
Layers[2]='Gloves'
Layers[3]='Arms'
Layers[4]='Torso'
Layers[5]='Legs'
Layers[6]='Lhand'
For i=0 to 6
Part=UO.ObjAtLayer(Layers[i])
If Part<>"" Then
Exit=0
While Exit==0
CheckLag() ;Delete journal
UO.WaitTargetObject(Part)
UO.UseSkill('Arms Lore')
Repeat
wait(500)
Until UO.InJournal('Defense') OR UO.InJournal('uncertain')
wait(1000)
If UO.InJournal('full repair') Then
Exit=1
Else
UO.UnEquip(Layers[i])
wait(500)
UO.WaitTargetObject(Part)
UO.UseType(Molotok)
wait(1000)
UO.Equip(Layers[i],Part)
EndIf
Wend
Endif
Next
UO.Print("!!Все починено!!")
uo.playwav("c:\inject\SOUND\REMINDER.wav")
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub
sub reactiv()
VAR ManaNeed=4
UO.Set('lasttarget','laststatus')
if UO.Mana>=ManaNeed then
UO.Cast('Reactive Armor','laststatus')
else
UO.Print("Low mana!!!")
endif
end sub
sub curem()
UO.Exec("waittargetself")
wait(100)
UO.Cast("Cure")
end sub
sub Bomb()
UO.FindType('0x0F0D','0x0B99','backpack')
;UO.FindType('0x0F0E','0x09DA','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
Wait(500)
UO.FindType('0x0F0D','0x0B99','backpack')
;UO.FindType('0x0F0E','0x09DA','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
Wait(500)
uo.playwav("c:\inject\SOUND\REMINDER.wav")
UO.Print("!ЖМИ!")
end sub
sub Bomb2()
UO.FindType('0x0F0D','0x0B99','ground')
UO.Cast('Magic Arrow','finditem')
end sub
sub SaveR()
UO.Print("!!Прыгаем!!")
uo.exec("recall 0x401668D9 1025")
end sub
sub fence()
var x,y,i
for x = -1 to 1
for y = -1 to 1
uo.findtype("подушка")
if uo.findcount() and x <> 0 and y <> 0 then
uo.drop("1",str(uo.getx()+x),str(uo.gety()+y),uo.getz(),"finditem")
i = 0
while uo.containerof("finditem") <> "0x00000000" and i < 10
wait(100)
i = i + 1
wend
endif
next
next
end sub
sub Sbroc()
VAR WaitTime=1000
VAR Bag='Bag'
VAR Exit=0, i
DIM Loot[157]
Loot[0]=0x0EED ; gp
Loot[1]=0x0F7B ; BM
Loot[2]=0x0F7A ; BP
Loot[3]=0x0F84 ; GA
Loot[4]=0x0F85 ; GI
Loot[5]=0x0F86 ; MR
Loot[6]=0x0F88 ; NS
Loot[7]=0x0F8C ; SA
Loot[8]=0x0F8D ; SS
Loot[9]=0x0F90 ; Dead Woods
Loot[10]=0x0F7E ; Sceleton Bones
Loot[11]=0x0F87 ; Eyes of newt
Loot[12]=0x1078 ; Hides
Loot[13]=0x1BFB ; Bolts
Loot[14]=0x0E34 ; Blanc Scroll
Loot[15]=0x0F25 ; Pieces of Amber
Loot[16]=0x0F16 ; Ametist
Loot[17]=0x0F20 ; Tourmaline
Loot[18]=0x0F26 ; Diamond
Loot[19]=0x0F30 ; Diamond
Loot[20]=0x0F8E ; Serpent Scales
Loot[21]=0x14EB ; Treassure Map
Loot[22]=0x0F79 ; Blackmoor
Loot[23]=0x0F3F ; Arrow
Loot[24]=0x0F79 ; Blackmoor
Loot[25]=0x0F91 ; Wirn hart
Loot[26]=0x0F78 ; Bat
Loot[27]=0x1F03 ; роба
Loot[28]=0x1515 ; плащь
Loot[29]=0x1B76 ; щит
Loot[30]=0x1414 ; перчи
Loot[31]=0x1410 ; руки
Loot[32]=0x1415 ; досп
Loot[33]=0x1411 ; ноги
Loot[34]=0x1413 ; горло
Loot[35]=0x1412 ; шлем
Loot[36]=0x0F0E ; бутылки
Loot[37]=0x0F0E ; бутылки
Loot[38]=0x0F0E ; бутылки
Loot[39]=0x0F0E ; бутылки
Loot[40]=0x0F0E ; бутылки
Loot[41]=0x1F5F ; скролы
Loot[42]=0x1F5F ; скролы
Loot[43]=0x1F5F ; скролы
Loot[44]=0x1F5F ; скролы
Loot[45]=0x0E76 ; Bag
Loot[46]=0x0E76 ; Bag
Loot[47]=0x09B0 ; Pounch
Loot[48]=0x09B0 ; Pounch
Loot[49]=0x1BDD ; Logs
Loot[50]=0x1BDD ; Logs
Loot[51]=0x1BDD ; Logs
Loot[52]=0x1BDD ; Logs
Loot[53]=0x1BDD ; Logs
Loot[54]=0x1BDD ; Logs
Loot[55]=0x1BDD ; Logs
Loot[56]=0x1BDD ; Logs
Loot[57]=0x1BDD ; Logs
Loot[58]=0x1BDD ; Logs
Loot[59]=0x1BDD ; Logs
Loot[60]=0x1BDD ; Logs
Loot[61]=0x1BDD ; Logs
Loot[62]=0x1BDD ; Logs
Loot[63]=0x1BEF ; инги
Loot[64]=0x1BEF ; инги
Loot[65]=0x1BEF ; инги
Loot[66]=0x1BEF ; инги
Loot[67]=0x1BEF ; инги
Loot[68]=0x1BEF ; инги
Loot[69]=0x1BEF ; инги
Loot[70]=0x1BEF ; инги
Loot[71]=0x19B9 ; руда
Loot[72]=0x19B9 ; руда
Loot[73]=0x19B9 ; руда
Loot[74]=0x19B9 ; руда
Loot[75]=0x19B9 ; руда
Loot[76]=0x19B9 ; руда
Loot[77]=0x19B9 ; руда
Loot[78]=0x1F03 ; роба
Loot[79]=0x1515 ; плащь
Loot[80]=0x1B76 ; щит
Loot[81]=0x1414 ; перчи
Loot[82]=0x1410 ; руки
Loot[83]=0x1415 ; досп
Loot[84]=0x1411 ; ноги
Loot[85]=0x1413 ; горло
Loot[86]=0x1412 ; шлем
Loot[87]=0x1F03 ; роба
Loot[88]=0x1515 ; плащь
Loot[89]=0x1B76 ; щит
Loot[90]=0x1414 ; перчи
Loot[91]=0x1410 ; руки
Loot[92]=0x1415 ; досп
Loot[93]=0x1411 ; ноги
Loot[94]=0x1413 ; горло
Loot[95]=0x1412 ; шлем
Loot[96]=0x1F03 ; роба
Loot[97]=0x1515 ; плащь
Loot[98]=0x1B76 ; щит
Loot[99]=0x1414 ; перчи
Loot[100]=0x1410 ; руки
Loot[101]=0x1415 ; досп
Loot[102]=0x1411 ; ноги
Loot[103]=0x1413 ; горло
Loot[104]=0x1412 ; шлем
Loot[105]=0x0E21 ; бинты
Loot[106]=0x13B9 ; викинг
Loot[107]=0x1406 ; мейса
Loot[108]=0x13B1 ; лук
Loot[109]=0x0F4F ; арбалет
Loot[110]=0x13FC ; тяжелый арб
Loot[111]=0x13FE ; катана
Loot[112]=0x143E ; алеба
Loot[113]=0x1F14 ; руна
Loot[114]=0x0F4C ; двойной топор
Loot[115]=0x1B7A ; шит дерево
Loot[116]=0x1541 ; повязка
Loot[117]=0x0E21 ; бинты
Loot[118]=0x13B9 ; викинг
Loot[119]=0x1406 ; мейса
Loot[120]=0x13B1 ; лук
Loot[121]=0x0F4F ; арбалет
Loot[122]=0x13FC ; тяжелый арб
Loot[123]=0x13FE ; катана
Loot[124]=0x143E ; алеба
Loot[125]=0x1F14 ; руна
Loot[126]=0x0F4C ; двойной топор
Loot[127]=0x1B7A ; шит дерево
Loot[128]=0x1541 ; повязка
Loot[129]=0x0E21 ; бинты
Loot[130]=0x13B9 ; викинг
Loot[131]=0x1406 ; мейса
Loot[132]=0x13B1 ; лук
Loot[133]=0x0F4F ; арбалет
Loot[134]=0x13FC ; тяжелый арб
Loot[135]=0x13FE ; катана
Loot[136]=0x143E ; алеба
Loot[137]=0x1F14 ; руна
Loot[138]=0x0F4C ; двойной топор
Loot[139]=0x1B7A ; шит дерево
Loot[140]=0x1541 ; повязка
Loot[141]=0x0E20 ; бинты (кровавые)
Loot[142]=0x0E20 ; бинты (кровавые)
Loot[143]=0x0F0E ; бутылки
Loot[144]=0x0F0D ; бутылки
Loot[145]=0x0F0D ; бутылки
Loot[146]=0x0F0D ; бутылки
Loot[147]=0x0F0D ; бутылки
Loot[148]=0x0F0D ; бутылки
Loot[149]=0x0F0D ; бутылки
Loot[150]=0x0F0D ; бутылки
Loot[151]=0x0F0D ; бутылки
Loot[152]=0x0F0D ; бутылки
Loot[153]=0x0F0D ; бутылки
Loot[154]=0x0F0D ; бутылки
Loot[155]=0x0F0D ; бутылки
Loot[156]=0x0F0D ; бутылки
Loot[157]=0x0F0D ; бутылки
uo.print('Выбери Сундук для СБРОСА:')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.exec("setdressspeed 800")
uo.undress()
uo.exec("setdressspeed 800")
uo.disarm()
wait(1000)
UO.UseObject('Bag')
UO.SetReceivingContainer('Bag')
For i=0 to 157
UO.FindType(Loot[i],-1,'backpack')
if UO.GetQuantity('finditem') then
UO.Grab(STR(0),'finditem')
wait(WaitTime)
endif
if UO.GetQuantity('backpack') then
UO.FindType(Loot[i],-1,'backpack')
if UO.GetQuantity('finditem') then
if Loot[i]==0x1078 then
UO.WaitTargetObject('finditem')
UO.UseType('0x0F9E')
else
UO.Grab(STR(0),'finditem')
endif
wait(WaitTime)
endif
endif
next
UO.UnSetReceivingContainer()
end sub
sub SBOR()
VAR WaitTime=1000
VAR Bag='Bag'
VAR Exit=0, i, p
DIM Loot[40]
Loot[0]=0x0EED ; gp
Loot[1]=0x0F7B ; BM
Loot[2]=0x0F7A ; BP
Loot[3]=0x0F84 ; GA
Loot[4]=0x0F85 ; GI
Loot[5]=0x0F86 ; MR
Loot[6]=0x0F88 ; NS
Loot[7]=0x0F8C ; SA
Loot[8]=0x0F8D ; SS
Loot[9]=0x1BFB ; Bolts
Loot[10]=0x0F3F ; Arrow
Loot[11]=0x1F03 ; роба
Loot[12]=0x1515 ; плащь
Loot[13]=0x1B76 ; щит
Loot[14]=0x1414 ; перчи
Loot[15]=0x1410 ; руки
Loot[16]=0x1415 ; досп
Loot[17]=0x1411 ; ноги
Loot[18]=0x1413 ; горло
Loot[19]=0x1412 ; шлем
Loot[20]=0x0F0E ; бутылки
Loot[21]=0x0F0E ; бутылки
Loot[22]=0x0F0E ; бутылки
Loot[23]=0x0F0D ; бутылки
Loot[24]=0x0F0D ; бутылки
Loot[25]=0x1F5F ; скролы
Loot[26]=0x1F5F ; скролы
Loot[27]=0x1F5F ; скролы
Loot[28]=0x1F5F ; скролы
Loot[29]=0x0E76 ; Bag
Loot[30]=0x0E76 ; Bag
Loot[31]=0x09B0 ; Pounch
Loot[32]=0x09B0 ; Pounch
Loot[33]=0x0E21 ; бинты
Loot[34]=0x13B9 ; викинг
Loot[35]=0x1F14 ; руна
Loot[36]=0x0F0D ; бутылки
Loot[37]=0x0F0D ; бутылки
Loot[38]=0x0F0D ; бутылки
Loot[39]=0x0F0D ; бутылки
Loot[40]=0x0F0D ; бутылки
DIM Armor[17]
Armor[0]=0x1F03 ; роба
Armor[2]=0x1515 ; плащь
Armor[3]=0x1B76 ; щит
Armor[4]=0x1414 ; перчи
Armor[5]=0x1410 ; руки
Armor[6]=0x1415 ; досп
Armor[7]=0x1411 ; ноги
Armor[8]=0x1413 ; горло
Armor[9]=0x1412 ; шлем
Armor[10]=0x13B9 ; викинг
Armor[11]=0x1406 ; мейса
Armor[12]=0x13B1 ; лук
Armor[13]=0x0F4F ; арбалет
Armor[14]=0x13FC ; тяжелый арб
Armor[15]=0x13FE ; катана
Armor[16]=0x143E ; алеба
Armor[17]=0x1541 ; повязка
uo.print('Выбери Сундук для СБОРА:')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
UO.UseObject('Bag')
UO.SetReceivingContainer('backpack')
For i=0 to 40
UO.FindType(Loot[i],-1,'Bag')
if UO.GetQuantity('finditem') then
UO.Grab(STR(0),'finditem')
wait(WaitTime)
endif
if UO.GetQuantity('Bag') then
UO.FindType(Loot[i],-1,'Bag')
if UO.GetQuantity('finditem') then
if Loot[i]==0x1078 then
UO.WaitTargetObject('finditem')
UO.UseType('0x0F9E')
else
UO.Grab(STR(0),'finditem')
endif
wait(WaitTime)
endif
endif
next
UO.UnSetReceivingContainer()
;UO.UseType('0x1F03')
;wait(WaitTime)
;UO.UseType('0x1515')
;wait(WaitTime)
UO.UseType('0x1B76')
wait(WaitTime)
UO.UseType('0x1414')
wait(WaitTime)
UO.UseType('0x1410')
wait(WaitTime)
UO.UseType('0x1415')
wait(WaitTime)
UO.UseType('0x1411')
wait(WaitTime)
UO.UseType('0x1413')
wait(WaitTime)
UO.UseType('0x1412')
wait(WaitTime)
UO.UseType('0x13B9')
wait(WaitTime)
UO.WaitTargetObject()
endif
end sub
sub S()
uo.addobject("undressbag")
while uo.targeting()
wait(100)
wend
uo.exec("setdressspeed 400")
uo.undress()
end sub
Все просто.
BETEPAH ™
BETEPAH ™
(((