Про макрос

[fl4y3r]

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

Незнания законов не освобождает от ответствености )

[GM Samuil]

На дату постов смотрим.

Правильно скрипты не стареют. И кто-то тут говорил, что трудно заставить пересесть на москвич... видимо, не так уж и сложно.
Ах да, мы уже попрощались.

[-=SweD=-]

какая разница , скрипты они же не стареют )

Я к тому что это было на Зулу, и давно. Про Оском я наслышан, поэтому я не пользуюсь инжектом. Хотя заходить пробовал

[-=SweD=-]

Ах да, мы уже попрощались.

Это не запрещает мне высказывать своё мнение на Форуме.

[fl4y3r]

так в чём проблема , дай Самуилу свой скрипт на Пилоте, и ты свободен.

[TODO]

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

[Elm Street]

Не кто-то, а я говорил

ТОДО, посмотри лс, пж.

[GM Samuil]

В наших сердцах он так и останется несправедливо осужденным лгуном и инжектором.
А ведь была возможность попробовать очистить свое имя.

[-=Leo=-]

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

[-=SweD=-]

В наших сердцах он так и останется несправедливо осужденным лгуном и инжектором.
А ведь была возможность попробовать очистить свое имя.

я Вас не оскрорблял, есть кто выше Вас, что бы обжаловать Ваше не справедливое решение?

[Elm Street]

Сеньор Пагак в роли судей апелляционного суда, кассационного, верховного и конституционного

[TODO]

Сеньор Пагак в роли судей апелляционного суда, кассационного, верховного и конституционного

отец и сын и святой дух в одном бренном теле !

[GM Samuil]

Сеньор Пагак в роли судей апелляционного суда, кассационного, верховного и конституционного

пусть сразу шлет ему скрипт. Я его посмотрю и скажу свое мнение.

[Кирюха]

Сеньор Пагак в роли судей апелляционного суда, кассационного, верховного и конституционного

Косачку не надо, Апелляционный суд либо оставляет как есть, либо понижает, а Коссационный может прибавить, будет у него не 5к а 50к. =))

[Elm Street]

В жизни можно по цепочке и то есть НО, а тут упераемся в Пагака и дальше как хотите
И Пагак тоже может под настроение прибавить =)))

[Кирюха]

Данный скрипт, даже очень не плохой, только он не работает, только по тому что изменили на русский язык. Раньше писалось "there is no ore" а теперь "Тут не осталось руды." , теперь на пилоте не по капать? Разрешите капать и рубить на Injection или EasyUo, но в ручную писать защитный код и будет всем счастье.

if lastmsg you see
alarm
alarm
alarm
alarm
wait 1500
end_if
if lastmsg you have been
send F7 // use skill stealth
wait 1500
end_if
send f1 //LastObject, WaitForTarget, TargetSelf
wait 2000
set #r random 4
//Проверка наличия руды
if lastmsg there is no ore
if #r = 0
send up 500
send up 500
end_if
if #r = 1
send right 500
send right 500
end_if
if #r = 2
send down 500
send down 500
end_if
if #r = 3
send left 500
send left 500
end_if
end_if
if lastmsg you see
alarm
alarm
alarm
alarm
wait 1500
end_if
wait 8000
if #r = 1
send right 500
send right 500
end_if
if #r = 2
send down 500
send down 500
end_if
if #r = 3
send left 500
send left 500
end_if
end_if
if lastmsg you have been
send f7 // use skill stealth
wait 1500
end_if
//Не допускать выход из шахты
if charposy > 828
send right 500
send right 500
send right 500
send right 500
send right 500
send right 500
send right 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send left 500
send left 500
send left 500
send left 500
send left 500
end_if

[BapBap3LX]

// start in 1506x2850

// Настройки:

//

// Замените Ф2 на вашу кнопку копки

// Замените в строке "set #maxwght 420" 420 на вес, при котором бежать к сундуку

// Замените в процедуре "resource_waydrop" в строке "set #maxwght 45" 45 на вес, при котором можно бежать назад к точке копки

// Замените в процедуре "resource_waydrop" координаты бэкпака (как в скрине мышка: первая цифра - Х, вторая У), друние не трогать

// set #backpx 0

// set #backpy 726

// Замените в процедуре "resource_waydrop" координаты Сундука, куда перетаскивать (из точки перед сундуком!!)

// set #sundx 0

// set #sundy 0



//При достижении этого веса бежать относить

set #maxwght 400


while charposy < 3013

//Главный цикл ходьбы


if wght > #maxwght

call resource_waydrop

end_if

send f12 500

while lastmsg <> there is no ore here to mine

if lastmsg = try mining in rock

break

end_if

wait 4000

send f12 500

end_while


if charposy = 2858 or charposy = 2863 or charposy = 2869 or charposy = 2875 or charposy = 2883 or charposy = 2890 or charposy = 2891 or charposy = 2893 or charposy = 2895 or charposy = 2897 or charposy = 2901 or charposy = 2904 or charposy = 2942 or charposy = 2980 or charposy = 2985 or charposy = 3000

if chardir <> 2

send PageDown 500

end_if

send PageDown 500

if charposy = 2883

send PageDown 500

end_if

end_if



if chardir <> 4

send end 500

end_if

send end 500


if charposy = 2943

if chardir <> 4

send end 500

end_if

send end 500

send end 500

end_if


if charposy = 2945 or charposy = 2947 or charposy = 2963 or charposy = 2968 or charposy = 2973 or charposy = 2975

send home 500

send home 500

end_if


end_while



if charposy = 3013 and charposx <> 1517

while charposx <> 1517

while charposx > 1517

send home 500

end_while

while charposx < 1517

send PageDown 500

end_while

end_while

end_if


while charposy > 2850

// Назад к точке начала

double_right 714, 275

if charposy = 2963

while charposx <> 1523

double_right 697, 548

end_while

end_if

if charposy = 2912

while charposx <> 1519

double_right 457, 247

end_while

end_if

if charposy = 2882

while charposx <> 1510

double_right 457, 247

end_while

end_if

if charposy = 2851

while charposx <> 1506

double_right 457, 247

end_while

end_if

end_while


proc resource_waydrop


// Вес пустого чара, без руды (у сундука ждать пока меньше или равный не станет)

set #maxwght 35


set #backx charposx

set #backy charposy


// Координаты бэкпака (как в скрине мышка: первая цифра - Х, вторая У), друние не трогать


set #backpx 888

set #backpy 410


// Координаты Сундука, куда перетаскивать (из точки перед сундуком!!)


set #sundx 421

set #sundy 251



set #backpmaxx #backpx + 142

set #backpmaxy #backpy + 114


set #InPos 0

set #InPos3 0

set #rock 0


while #InPos <> 1

if charposy = 2883 or charposy = 2889 or charposy = 2891 or charposy = 2893 or charposy = 2952

send PageUp 500

else

break

end_if

end_while


set #InPos 0


while #InPos <> 1

// К сундуку

// double_right 714, 275

if charposy < 3014 and charposy > 2963

while charposx <> 1517

while charposx > 1517

double_right 483, 313

end_while

while charposx < 1517

double_right 734, 496

end_while

end_while

while charposy > 2963

double_right 714, 275

end_while

end_if

if charposy < 2964 and charposy > 2912

while charposx <> 1523

while charposx > 1523

double_right 483, 313

end_while

while charposx < 1523

double_right 734, 496

end_while

end_while

while charposy > 2912

double_right 714, 275

end_while

end_if

if charposy < 2913 and charposy > 2882

if charposy = 2911

while charposy <> 2912

send End 500

end_while

end_if

while charposx <> 1519

while charposx > 1519

double_right 483, 313

end_while

while charposx < 1519

double_right 734, 496

end_while

end_while

while charposy > 2882

double_right 714, 275

end_while

end_if

if charposy < 2883 and charposy > 2851

while charposx <> 1510

while charposx > 1510

double_right 483, 313

end_while

while charposx < 1510

double_right 734, 496

end_while

end_while

while charposy > 2851

double_right 714, 275

end_while

end_if

if charposy = 2851 and charposx = 1510

set #InPos 1

end_if

end_while

MaraneL [EА]: (7:58 PM) //DROP


while wght > #maxwght

set #nowx #backpx

set #nowy #backpy

while #nowx < #backpmaxx

while #nowy < #backpmaxy

if_not wght > #maxwght

break 2

end_if

set lastobjecttype 0

left #nowx, #nowy

if lastobjecttype = 6585 or lastobjecttype = 6583 or lastobjecttype = 6584 or lastobjecttype = 6586

wait 500

drag #nowx, #nowy #sundx, #sundy all

wait 1000

end_if

set #nowy #nowy + 5

end_while

set #nowx #nowx + 5

set #nowy #backpy

if #nowx > #backpmaxx

set #nowx #backpx + 1

set #backpy #backpy + 1

end_if

send Escape

end_while

end_while



//END DROP


while wght > #maxwght

wait 5000

end_while


set #InPos 0

set #InPos2 0

while #InPos <> 1

// К месту


if charposy < 3013 and charposy > 2963

while charposx <> 1517

while charposx > 1517

double_right 483, 313

end_while

while charposx < 1517

double_right 734, 496

end_while

end_while

while #InPos2 <> 1

if charposy > #backy or charposy > 3013 or charposy = #backy

set #inPos2 1

else

double_right 437, 538

end_if

end_while

set #inPos2 0

end_if

if charposy < 2964 and charposy > 2912

while charposy = 2915

send End 500

end_while

while charposx <> 1523

while charposx > 1523

double_right 483, 313

end_while

while charposx < 1523

double_right 734, 496

end_while

end_while

while #InPos2 <> 1

if charposy > #backy or charposy > 2964 or charposy = #backy

set #inPos2 1

else

double_right 437, 538

end_if

end_while

set #inPos2 0

end_if

if charposy < 2913 and charposy > 2881

if charposy = 2883

while charposy <> 2882

send PageUp 500

end_while

end_if

while charposx <> 1519

while charposx > 1519

double_right 483, 313

end_while

while charposx < 1519

double_right 734, 496

end_while

end_while

while #InPos2 <> 1

if charposy > #backy or charposy > 2913 or charposy = #backy

set #inPos2 1

else

double_right 437, 538

end_if

end_while

set #inPos2 0

end_if

if charposy < 2882 and charposy > 2850

if charposy = 2883

while charposy <> 2882

send PageUp 500

end_while

end_if

while charposx <> 1510

while charposx > 1510

double_right 483, 313

end_while

while charposx < 1510

double_right 734, 496

end_while

end_while

while #InPos2 <> 1

if charposy > #backy or charposy > 2882 or charposy = #backy

set #inPos2 1

else

double_right 437, 538

end_if

end_while

set #inPos2 0

end_if



if #backy = charposy

if charposy = 2883 or charposy = 2889 or charposy = 2891 or charposy = 2893 or charposy = 2952

while #rock <> 3

if #prevx = charposx

set #rock #rock + 1

else

set #prevx charposx

end_if

send home 500

end_while

set #rock 1

set #Rocky charposy + 1

set #Rockx charposx - 2

while #InPos3 <> 1

while charposy <> #rocky

while charposy > #rocky

send PageUp 500

end_while

while charposy < #rocky

send End 500

end_while

end_while

while charposx <> #rockx

while charposx > #rockx

send Home 500

end_while

while charposx < #rockx

send PageDown 500

end_while

set #rocky #rocky - 1

end_while

if charposy = #rocky and charposx = #rockx

set #InPos3 1

end_if

end_while

end_if

while #backx <> charposx

double_right 458, 280

end_while

end_if

if #backy = charposy and #backx = charposx

set #InPos 1

else

if charposy < #backy

double_right 461, 515

end_if

if charposy > #backy

double_right 713, 271

end_if

end_if

end_while


end_proc




Вот тоже на пилоте ранше капал и тоже из за русского языка теперь неработает . А так на пилоте он и до сундука дойдёт и сам выложит.

[TODO]

ваши макросы говно ))) т.к. там координаты четко прописаны )))) а если у меня игровая зона иначе расположена? надо писат ьмакросы с перменной ))) выставил ОДНУ ТОЧНКУ а все остальные уже +- от ключевой точки выставляются ))) вот так пишут .ПРО

[Кирюха]

Значит надо просить что бы поменяли обратно на Английский язык, тогда можно будет дальше рубить и капать на пилоте, тогда и нарушать меньше будут.

Что вы на это скажете Господин Самуил?

[GM Samuil]

Без комментариев... это у Вас одного видимо такая проблема.