EasyUO Mining hardcore, manual, free.

Block

New member
Регистрация
10.03.2020
Сообщения
16
Реакции
2
Баллы
3
Все просто, но придется решить одну задачу.
Из двух У и одной Х построить прямоугольник. И поставить задать место, верхний левый круг прямоугольника в виде Х У координаты, прописав все это в скрипте.
вписать эти координаты, и смотреть как это мило работает. Во время работы строка чата в уо должна быть пустой или скрипт не будет ходить. Короче не пишите не чего в уо, во время работы скрипта.

Код:
initEvents
deletejournal
msg  $
main:
move xxx xxx 0 // Начало Х У
key end

kop:
Finditem NPF Ñ_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
target 5s


findpoz:
if #CHARDIR = 4
{
set #LTARGETX #CHARPOSX
set #LTARGETY #CHARPOSY + 1
set #LTARGETZ 0
event macro 22 0
gosub wait
}
if #CHARDIR = 0
{
set #LTARGETX #CHARPOSX
set #LTARGETY #CHARPOSY - 1
set #LTARGETZ 0
event macro 22 0
set %scan 0
gosub wait
}

sub wait
    for %scan 1 3 1
    {
    scanJournal %scan

          if There_is_nothing_ in #JOURNAL
          {
          event SysMessage MOVE
          goto npoz
          }

          if Òû in #JOURNAL
          {
          event SysMessage EBASHIM
          goto npoz
          }



          if Âû_ in #JOURNAL
          {
          event SysMessage EBASHIM
          deletejournal
          Goto kop
          }

          if You_loosen in #JOURNAL
          {
          event SysMessage EBASHIM
          deletejournal
          Goto kop
          }
          }
gosub wait
return

npoz:
set %ox #CHARPOSX
set %oy #CHARPOSY

if #CHARDIR = 4
key end

   if #CHARPOSX = %ox && #CHARPOSY = %oy && #CHARDIR = 4 || #CHARPOSY => ÓÓÓ && #CHARDIR = 4 ; правая грань У
   {
   Key PGDN
   Key PGDN
   key PGUP
   goto kop
   }

if #CHARDIR = 0
key PGUP

   if #CHARPOSX = %ox && #CHARPOSY = %oy && #CHARDIR = 0 || #CHARDIR = 0 &&  #CHARPOSY <= 347 ; Левая грань У
   {
   Key PGDN
   Key PGDN
   key end
   goto kop
   }

   if #CHARPOSX => XXX ; нижняя грань Х,
   goto main

goto kop
return
 

MadCat23rus

New member
Регистрация
23.03.2020
Сообщения
3
Реакции
0
Баллы
1
Ребятки, добрый день. Кто шарит, подскажите, можно ли этот скрипт упростить, до простой копки вокруг себя, с назначением пары-тройки точек?
И как быстро потом раскидать руду по 1 штучке? Спасибо заранее.
 

Block

New member
Регистрация
10.03.2020
Сообщения
16
Реакции
2
Баллы
3
Код:
main:
For %x -2 2 1
{
    For %y  -2 2 1
    {
    gosub kop
    re:
    }
}

goto main

sub kop
Finditem NPF C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
target 5s
set #LTARGETX #CHARPOSX + %x
set #LTARGETY #CHARPOSY + %y
event macro 22 0

wait:
          for %scan 1 3 1
          {
                    scanJournal %scan

                    if There_is_nothing_ in #JOURNAL
                    {
                    event SysMessage MOVE
                    deletejournal
                    goto re
                    }

                    if Ou in #JOURNAL
                    {
                    event SysMessage EBASHIM
                    deletejournal
                    goto re
                    }



                    if Âû_ in #JOURNAL ; Ручками пишем в изи уо Вы_ <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                    {
                    event SysMessage EBASHIM
                    deletejournal
                    gosub kop
                    }

                    if You_loosen in #JOURNAL
                    {
                    event SysMessage EBASHIM
                    deletejournal
                    gosub kop
                    }
                }
                goto wait
return
 
Последнее редактирование:
  • Like
Реакции: MadCat23rus

Block

New member
Регистрация
10.03.2020
Сообщения
16
Реакции
2
Баллы
3
А второй
Нада кинуть руду под ноги и выставить не ИД ее, А ее тип. ид оно само найдет :)


set %ore ; Тип стека руды
set %1ore ; тип 1 рудинки

main:
finditem %ore G_2
if #findcount > 0
{
ExEvent Drag #findID 1
wait 5
ExEvent DropC #BACKPACKID
wait 5
}
Fidnitem %1ore C_ , #BACKPACKID
if #findcount > 0
{
set #LOBJECTID #FINDID
event macro 17 0
wait 5
}
return





оба скрипта не проверял но должны работать)
 
  • Like
Реакции: MadCat23rus

MadCat23rus

New member
Регистрация
23.03.2020
Сообщения
3
Реакции
0
Баллы
1
Спасибо тебе добрый человек))
 

OneS

New member
Регистрация
14.04.2020
Сообщения
1
Реакции
0
Баллы
1
Все просто, но придется решить одну задачу.
Из двух У и одной Х построить прямоугольник. И поставить задать место, верхний левый круг прямоугольника в виде Х У координаты, прописав все это в скрипте.
вписать эти координаты, и смотреть как это мило работает. Во время работы строка чата в уо должна быть пустой или скрипт не будет ходить. Короче не пишите не чего в уо, во время работы скрипта.

Код:
initEvents
deletejournal
msg  $
main:
move xxx xxx 0 // Начало Х У
key end

kop:
Finditem NPF Ñ_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
target 5s


findpoz:
if #CHARDIR = 4
{
set #LTARGETX #CHARPOSX
set #LTARGETY #CHARPOSY + 1
set #LTARGETZ 0
event macro 22 0
gosub wait
}
if #CHARDIR = 0
{
set #LTARGETX #CHARPOSX
set #LTARGETY #CHARPOSY - 1
set #LTARGETZ 0
event macro 22 0
set %scan 0
gosub wait
}

sub wait
    for %scan 1 3 1
    {
    scanJournal %scan

          if There_is_nothing_ in #JOURNAL
          {
          event SysMessage MOVE
          goto npoz
          }

          if Òû in #JOURNAL
          {
          event SysMessage EBASHIM
          goto npoz
          }



          if Âû_ in #JOURNAL
          {
          event SysMessage EBASHIM
          deletejournal
          Goto kop
          }

          if You_loosen in #JOURNAL
          {
          event SysMessage EBASHIM
          deletejournal
          Goto kop
          }
          }
gosub wait
return

npoz:
set %ox #CHARPOSX
set %oy #CHARPOSY

if #CHARDIR = 4
key end

   if #CHARPOSX = %ox && #CHARPOSY = %oy && #CHARDIR = 4 || #CHARPOSY => ÓÓÓ && #CHARDIR = 4 ; правая грань У
   {
   Key PGDN
   Key PGDN
   key PGUP
   goto kop
   }

if #CHARDIR = 0
key PGUP

   if #CHARPOSX = %ox && #CHARPOSY = %oy && #CHARDIR = 0 || #CHARDIR = 0 &&  #CHARPOSY <= 347 ; Левая грань У
   {
   Key PGDN
   Key PGDN
   key end
   goto kop
   }

   if #CHARPOSX => XXX ; нижняя грань Х,
   goto main

goto kop
return
Парни помогите разобраться до это-го почти не когда не пользивался макросами :) Только там где-то Uo-Pilot использовал вокруг себя капал а тут прям сервер заципил и хочеться научиться пользоваться EasyUO. Есть может где-то рус видео урок по нему или может кто расписать в кратце что к чему ? Буду очень благодарен.
 

Block

New member
Регистрация
10.03.2020
Сообщения
16
Реакции
2
Баллы
3
Пиши в дискорде MikhailZZ