Все просто, но придется решить одну задачу.
Из двух У и одной Х построить прямоугольник. И поставить задать место, верхний левый круг прямоугольника в виде Х У координаты, прописав все это в скрипте.
вписать эти координаты, и смотреть как это мило работает. Во время работы строка чата в уо должна быть пустой или скрипт не будет ходить. Короче не пишите не чего в уо, во время работы скрипта.
Из двух У и одной Х построить прямоугольник. И поставить задать место, верхний левый круг прямоугольника в виде Х У координаты, прописав все это в скрипте.
вписать эти координаты, и смотреть как это мило работает. Во время работы строка чата в уо должна быть пустой или скрипт не будет ходить. Короче не пишите не чего в уо, во время работы скрипта.
Код:
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