Миниг и рекол.

[Incorrect User]

Хочу сделать скрипт на мининг, чистый, минимально короткий, который будет очень быстро реагировать и работать. В миниге нужно 1. Чтобы выкапывал всю руду по 1 разу, и некоторые, указанные - 2 раза. Ходьба будет по координатам, такого плана проверка что если чар находится в определенных координатах то делает 5 шагов на N, или 5 шагов на S, потому что копает через один тайл в сторону и соответственно сделать 5 шагов в любую из 4 сторон чтобы стать на чистый участок. Уже собрал координаты точек 3-х интересующих меня шахт.
Нужно чтобы чар контролировал шаги, чтобы не убежал куда нибудь, и если все же сбился с пути то реколился домой и сообщал что заблудился.

Рекол, нужно чтобы хорошо и быстро определял на игроков, к примеру сейчас у меня скрипт на рекол, на уопилот, проверяет только по ластмсг, если что то видит то сравнивает с тем что задано в условии, если совпадает то либо копает дальше, либо убивает гварда, если видит что угодно другое. Даже собственную кирку то улетает. Проблема в том что когда например скрипт убивает гварда то на некоторое время перестает проверять сообщения сервера и если в это время кто то прибежит он может пропустить это и меня конечно же убьют. Там есть некоторые игроки, похоже на инже играют, находят меня даже когда я в хайде и прямо стают на тот тайл на котором стою я, и как то раздетекчивают меня при этом сами оставаясь в хайде, прямо чудеса вытворяют Чар копает в хайде так что нужно еще и проверку чтобы если чар раздетектился то он сразу жал трекинг, и если появилось окно что кого то нашел то так же жал рекол. Да и сам процес улетания можно обдумать, может кидать стену возле себя в сторону откуда бежит игрок, хотя бывает что стают прямо на меня...

Можно еще сделать просто плавку и выгрузку в сундук, но не ботом, а нажатием кнопки. 100% бот не нужен который и ресается и сам все приносит и относит... Нужно просто чтобы копал и реколился, а прилетать в шахту, закидывать ресурсы в пак и прочее не нужно. Когда он копает я всегда у компа. Вот только антимакрос разве что добавить, где то он был на форуме.

Скрипт хочу сделать целиком новый, чтобы вспомнить то что я уже забыл и узнать все то что я еще не знал. Пока что пойду читать фак.chm по функциям, освежу немного память а то даже какие галочки в первой вкладке инжекта уже не помню что значат Конечно же любая возможная помощь в написании, с пониманием того что вопросов может быть много и глупых приветствуется

[ZeroDX]

1. Чтобы выкапывал всю руду по 1 разу, и некоторые, указанные - 2 раза.

Не понял =D

Ходьба будет по координатам, такого плана проверка что если чар находится в определенных координатах то делает 5 шагов на N, или 5 шагов на S, потому что копает через один тайл в сторону и соответственно сделать 5 шагов в любую из 4 сторон чтобы стать на чистый участок.

просто отходить -легко. отходить с проверками на кол-во пройденных тайлов и обходом препятствий - максимально коротко не получится

Рекол, нужно чтобы хорошо и быстро определял на игроков

тема Палево =D

к примеру сейчас у меня скрипт на рекол, на уопилот

не нашёл блевательного смайлика

Проблема в том что когда например скрипт убивает гварда то на некоторое время перестает проверять сообщения сервера и если в это время кто то прибежит он может пропустить это и меня конечно же убьют

решение в многопоточности, глобалках и управляющих потоках (имхо)

Там есть некоторые игроки, похоже на инже играют, находят меня даже когда я в хайде и прямо стают на тот тайл на котором стою я, и как то раздетекчивают меня при этом сами оставаясь в хайде, прямо чудеса вытворяют

Интересно как они это делают... может сервер отправляет клиенту даже спрятанных чаров, а клиент их просто не отрисовывает?

Да и сам процес улетания можно обдумать, может кидать стену возле себя в сторону откуда бежит игрок

а разве можно кастовать стену в момент каста рекола? или кастовать до рекола, но это время. проще поставить ящик... или несколько

Можно еще сделать просто плавку и выгрузку в сундук, но не ботом, а нажатием кнопки

чего сразу не плавить? пару строк всего

Вот только антимакрос разве что добавить, где то он был на форуме.

если не найдёшь - помогу чем смогу

дрв?

[Incorrect User]

Из одного тайла некоторая руда может выкопаться сразу а некоторая копается за 2-3 раза по 1-несколько ингов за раз.

Обход препятствий не нужен, нужно когда чар находится в опрделеленных координатах до делать 5 шагов в нужную сторону, координаты собраны так что препятствий нет при ходьбе таким образом.

Да, кинуть стену, или энерджифилд, чтобы отгородиться а потом уже инвиз-рекол. Была еще мысль чтобы чар жал рекол и кидал на противника любой итем чтобы открылось трейд окно, когда оно открыто то нет возможности юзать предметы и соответственно скролы и на меня не смогут их использовать, но это палево и могут просто скрипт на закрытие трейда сделать его кстати если ты в инвизе и кидаешь на чара предмет то окно открывается но для чара на которого кинул предмет его не видно. Можно и камень ставить... посто они весят хорошо. Хотя я думаю обычного инвиз-рекола будет достаточно.

FWUO

[Mirage]

2 ZeroDX
1) железо копнул - пошел дальше. Валорит копнул - вычистил всю жилу. Жадничает барин.

2 автор
в принципе я никогда не ставил целью поработить весь мир в лице одного шарда но я никогда не понимал зачем мутить с реколлами и рунбуками когда можно поставить самый не дорогой "сортир" ВОЗЛЕ 1 пещеры и просто таскать руду туда сюда. Притом что как правило в недалеке от пещеры тусит лекарь-реинкарнатор либо на сервере работает перелет на "маркет"/к кресту с кнопки в меню когда ты гост.
Я копал сутками в течении недели вот таким не замысловатым вариантом:

Code: Select all

var bag = '0x4018A728'  ; сундук куда скидывать руду и откуда брать инструменты
var instr = 'тип кирки или лопаты'
var ore1 = '0x19B7'
var ore2 = '0x19BA'
var ore3 = '0x19B8'
var ore4 = '0x19B9'
var Lasttimer

sub main()
repeat
walker(1874, 267, 0)
UO.UseObject(bag)
wait(1000)
putore()    ; скидываем руду
getinstr()  ; добираем инструменты
walker(1874, 267, 0)
walker(1874, 271, 0)
walker(1887, 271, 0)
walker(1897, 271, 0)
walker(1904, 271, 0)
Mine()
walker(1912, 273, 0)
Mine()
walker(1916, 281, 0)
Mine()
walker(1921, 276, 0)
Mine()
walker(1921, 269, 0)
Mine()
walker(1924, 264, 0)
Mine()
walker(1917, 271, 0)
walker(1901, 271, 0)
walker(1887, 271, 0)
walker(1874, 271, 0)
walker(1874, 267, 0)
until UO.Dead()
end sub

Sub getinstr()
get(instr, bag, 3, 1)
get(instr, bag, 3, 1)
get(instr, bag, 3, 1)
endsub
Sub putore()
put(ore1,bag)
put(ore2,bag)
put(ore3,bag)
put(ore4,bag)
end sub

сходил в пещеру, выкопал, отнес домой, добрал инструментов по необходимости. Обходит за цикл респа пещеру в пол игрового экрана. Когда выкапывался последний тайл на первом происходил респ. Ну в крайнем случае делал один холостой пробег по точкам.

Mine() - частный случай моего добывающего скрипта с обкопом вокруг себя.
Ходилка Брейкера. Самая путевая из программных на момент написания скрипта. Сундук встроен в ворота - чар владелей может в него закинуть руду, враги достать не могут.
Ресалку не показываю - реализовывал уже на стелсе. Инжект не очень любит когда чара убивают/оживляют (по моим наблюдениям).
Даже если чара будут гопать - ну и фиг с ними. Все равно бот будет копать когда ПК спят. А написать грамотного "отжимателя" руды в разы сложнее чем "рудокопа".

PS если все таки очень очень хочется то что в первом сообщении темы и очень очень не хочется пользоваться поиском то треба переезжать на скриптовый маркет. Там такие скрипты могут за определённую мзду оформить и настроить.

[ZeroDX]

Скрипт хочу сделать целиком новый, чтобы вспомнить то что я уже забыл и узнать все то что я еще не знал.

Это означает, что человек хочет написать всё сам. чё сразу в поиск то? и так форум мертвый, а тут по посту в день хоть какое-нибудь оживление.

Code: Select all

walker(1904, 271, 0)
Mine()
walker(1912, 273, 0)
Mine()
walker(1916, 281, 0)
Mine()
walker(1921, 276, 0)
Mine()
walker(1921, 269, 0)
Mine()
walker(1924, 264, 0)
Mine()

жуть у меня такой был

[Incorrect User]

зачем мутить с реколлами и рунбуками

Никаких рунбуков и реколов, кроме рекола домой при опасности или перевесе. Бот не нужен. Копает только когда я у компа, сам лечу в нужную шахту, в нужное место, нучжно чтобы только копал убивал гвардов и улетал когда ловят. Кстати вся вышка у нас копается по 1 разу, мне айрон и нужно рыть до упора

[Incorrect User]

И сразу вопрос, как проверить что на экране появился гамп? uo.LastGump? Как оно работает? Мне нужно после юза кирки проверять на антимакроса гамп.

[Mirage]

Code: Select all

sub AntiMacro()
   ;   while not uo.Dead()
   if not uo.LastGump('replyed') then   ; если открылось какое то окно
      if uo.LastGump('text', 0) == 'Привет, добытчик!' then ; и слова заголовка
         Gong(3)   
         wait(5000)
      endif
   endif
   ;   wend
end sub

Вы никак не поймете что если админ против копания скриптом то никакая система не поможет.
Когда на одном шарде были математическая сумма - написали макрос, стала сумма и разница, написали макрос, стало умножение и деление. Напишут макрос - заставят корни вычислять или тыкать в кнопку с картинкой...

[Incorrect User]

Ничего не менялось и не меняется уже давно, и не изменится.

[Incorrect User]

Заготовка, меня интересует, как сделать ожидание/проверку что кирка заюзалась? uo.usetype(). И еще интересует как сделать чтобы скрипт начал сначала, например чар нажал на кирку, вылез антимакрос, он его ввел, и чтобы скрипт не бежал дальше вниз а перешел на начало где заново жмет на кирку.

Code: Select all

var pause
pause = 0
sub Mining()
var coordx, coordy, tilex, tiley, circle
coordx = uo.getx('self')
coordy = uo.gety('self')
  for tilex = coordx - 2 to coordx + 2 
    for tiley = coordy - 2 to coordy + 2
      uo.waittargettile('1341', str(tilex), str(tiley))
      uo.usetype()
      if not uo.LastGump('replyed') then
      if uo.LastGump('text', 0) == 'Antimacros System' then
         AntiMacros()
      endif
   endif 
end sub

[Mirage]

ну правильно, только паузу то потерял.
PS нельзя поставить паузу между использованием объекта и прицелом.

[Incorrect User]

ну правильно, только паузу то потерял

Паузу после AntiMacros()? И как скрипт в начало после ввода антимакроса пересести?

[Incorrect User]

Может так? Пока проверить не могу в игре.

Code: Select all

uo.usetype()
      if not uo.LastGump('replyed') then
      if uo.LastGump('text', 0) == 'Antimacros System' then
         AntiMacros()
      endif
        else
         uo.waittargettile('1341', str(tilex), str(tiley))
   endif

[Juicy Fruit]

Code: Select all

var pause
pause = 0
sub Mining()
var coordx, coordy, tilex, tiley, circle
coordx = uo.getx('self')
coordy = uo.gety('self')
  for tilex = coordx - 2 to coordx + 2 
    for tiley = coordy - 2 to coordy + 2
lab:
      uo.waittargettile('1341', str(tilex), str(tiley))
      uo.usetype()
      if not uo.LastGump('replyed') then
      if uo.LastGump('text', 0) == 'Antimacros System' then
         AntiMacros()
goto lab
      endif
   endif
#сюда паузу на время копки сунуть бы не помешало
next #for должен закрываться next'ом
next #for должен закрываться next'ом
end sub

[Incorrect User]

На строке ниже вылазит runtime error.

Code: Select all

uo.waittargettile('1339', str(tilex), str(tiley), str(tilez))

Весь код

Code: Select all

var pause
sub Mining()
var coordx, coordy, coordz, tilex, tiley, tilez, circle
pause = 0
coordx = uo.getx('self')
coordy = uo.gety('self')
coordz = uo.getz('self')
 for tilex = coordx - 2 to coordx + 2 
    for tiley = coordy - 2 to coordy + 2
      uo.waittargettile('1339', str(tilex), str(tiley), str(tilez))
      uo.usetype(0x0E85, 0x0000)
      if not uo.LastGump('replyed') then
      if uo.LastGump('text', 0) == 'Antimacros System' then
         AntiMacros()
      endif
         endif
end sub

[Juicy Fruit]

Это ок

Code: Select all

coordz = uo.getz('self')

но где инициализация для

Code: Select all

tilez

из

Code: Select all

uo.waittargettile('1339', str(tilex), str(tiley), str(tilez))

Мб надо так?

Code: Select all

uo.waittargettile('1339', str(tilex), str(tiley), str(coordz))

[ZeroDX]

и переводить в строки необязательно

[Incorrect User]

Вот так работает, и антимакрос вводит как надо. Поехали дальше

Code: Select all

var pause
pause = 0

sub Mining()
var coordx, coordy, coordz, tilex, tiley, circle
circle = 0
coordx = uo.getx('self')
coordy = uo.gety('self')
coordz = uo.getz('self')
 for tilex = coordx - 2 to coordx + 2 
    for tiley = coordy - 2 to coordy + 2
mine:
      uo.waittargettile('1339', str(coordx), str(coordy), str(coordz))
      uo.usetype(0x0E85, 0x0000)
      wait(500)
      if not uo.LastGump('replyed') then
      if uo.LastGump('text', 0) == 'Antimacros System' then
      uo.deletejournal()
      while not uo.injournal('success')
         AntiMacros()
         wait(1000)
         wend
      endif
      endif
end sub

sub AntiMacros() 
   dim reindex[8] 
   reindex[0] = 11 
   reindex[1] = 12 
   reindex[2] = 13 
   reindex[3] = 10 
   reindex[4] = 16 
   reindex[5] = 14 
   reindex[6] = 17 
   reindex[7] = 15 
   var GumpID = 0 
   var ButtonID = 0 
   var ButtonText 
   var i = 18 
   if uo.LastGump('text', 4) <> "0" then 
      i = 19 
   end if 
   GumpID = val(Mid(uo.LastGump('command', i), 16, 4)) 
   ButtonID = reindex[GumpID-2225] 
   ButtonText = uo.LastGump('command', ButtonID) 
   uo.LClick(Val(Mid(ButtonText, 7, 3)), Val(Mid(ButtonText, 11, 3))) 
   while not uo.LastGump('replyed') 
      wait(100) 
   wend 
end sub

[Juicy Fruit]

Code: Select all

uo.waittargettile('1339', str(tilex), str(tiley), str(coordz))

Ато будет рыть всегда под собой.

[Incorrect User]

Ок, запутался уже Теперь доделываю до конца копалку вокруг себя. Потом перейдем к реколу.