на магию:
Repeat (1)
Send (F11,4000) магия Poison или другая
End_Repeat
send (tab,1000)
While mana < 100 Этот параметр подгоняйте под себя сами
*сюда влезает Anonymous*
While mana < int в посл. версии эти параметры
(стр, инт, дех) возвращены
*отсюда вылезает Anonymous*
Send (F10,4000) Медитация
End_while
Stealth:
send F12 Хайдимся
wait 6500
repeat (3)
wait 500
send end шаг вправо
end_repeat
repeat (3) шаг влево
wait 500
send PageUp
end_repeat
Ресист и хилинг:
:main
set #r 0
send F9 3000 //кастуем либо фаер филд либо энерджи филд
:heal
if hits < str
say ,bandageself //хилим себя, можно заменить на макрос
//ЛастОбджект, ВеэтФоТаргет, ТрагетСелф
set #r 0
wait 2500
goto heal
end_if
set #r #r + 1
wait 1000
if #r = 5 // переменная отвечает за ожидание 5
//секунд, если в течение этого времени дамаг не был
//нанесен, то считается, что действие филда
//прекратилось
goto medit
else
goto heal
end_if
:medit
if hits < str //вдруг все таки лагануло и филд все еще
//наносит дамаг, лишняя проверочка не помешает
goto heal
end_if
if mana < int
sendex ^m //макрос медитации
wait 2500
goto medit
end_if
say Full MANA
goto main
end_script
Мининг by WK (IMG:
style_emoticons/default/smile.gif) На F1 LastObject обкапывает вокруг себя 25 клеток.
set #Msg 99
set #x 232
set #y 235
for #ii 1 5 1
for #i 1 5 1
while #Msg <> 0
send f1
waitfortarget 10000
left #x #y
gosub CheckMsg
end_while
set #x #x + 23
set #y #y - 23
set #Msg 99
end_for
set #y #y + 138
set #x #x - 92
end_for
:stop
alarm
end_script
//========================= SubRoutines ==========================
:CheckMsg
Repeat 10
set #Msg 99
//if lastmsg you see
//goto stop
//end_if
if lastmsg you put
set #Msg 1
break
end_if
if lastmsg your skill
set #Msg 2
break
end_if
if lastmsg you loosen
set #Msg 3
wait 1000
break
end_if
if lastmsg world
wait 6000
break
end_if
if lastmsg there
set #Msg 0
break
end_if
if lastmsg try
set #Msg 0
break
end_if
End_Repeat
return
Fishing: (F8 -> "LastObject", F9 -> "LastTarget")
// Задержка, зависит от скорости
set #x 5500
set #y 550
// Первый вариант, 5 точек...
repeat 1000
send F8 #y
left 238, 315
wait #x
send F8 #y
left 291, 210
wait #x
send F8 #y
left 303, 292
wait #x
send F8 #y
left 309, 369
wait #x
send F8 #y
left 401, 203
wait #x
end_repeat
// Второй вариант, рубашишь по точке пока не вылезет что там нема рыбы, потом просто точку меняешь
repeat 1000
send F8 #y
send F9 #x
end_repeat
Animal Lore: (F4 - "Use Skill -> Animal Lore", F9 -> "LastTarget")
// Задержка, зависит от скорости
set #x 750
set #y 9750
// А вот и сам скрипт
repeat 1000
send F4 #x
send F9 #y
end_repeat
Animal Lore: (F4 - "Use Skill -> Animal Lore", F9 -> "LastTarget")
// Задержка, зависит от скорости
set #x 750
set #y 9750
set #count 0 // пременная, которая будет отсчитывать время, когда он проголодается
repeat 1000
send F4 #x
set #count #count + #x
send F9 #y
set #count #count + #x
if (#count) > 1799999 // 1800000 - это 30 минут
double_left 961, 683 // вот с этим уже тяжелее, тут надо указать координаты еды
wait (#x) // столько он её будет есть
set (#count) 0 // сбрасываем счётчик...
double_left 370, 323 // до этой строки "LastTarget" у тебя еда, тут надо указать координаты животного
wait (#y) // и тогда "LastTarget" снова укажет на животное
end_if
end_repeat
Вот такие вот проблемы. Ставить на скрипт можно в началах этих промежутков ( 13:00 - 13:30 ) или если ты ставишь на скрипт где-то в 13:15 то тогда ты #count в объявлении присваиваешь 1800000/2, т.е. 900000, в будующем он всё равно обнулится.
для ручной рубки, ходим только и кликаем на новые деревья когда это надо:
set #rtimer 0
set #msg 99
while #msg <> 0
if #msg = 2
send F2 1000 //lastobject, waitfortarget, lasttarget
else
send f1 //lastobject
waitfortarget 10000
end_if
gosub 1
end_while
end_script
:1
set #timer timer
while #rtimer < 30000 //время проверки результатов 1й рубки
set #msg 99
if lastmsg you put the logs in
set #msg 2
break
end_if
if lastmsg your skill in lumberjacking
set #msg 2
break
end_if
if lastmsg you hack at the tree for a while
set #msg 2
break
end_if
if lastmsg there are no logs
break
end_if
if lastmsg you can't think of a way
break
end_if
if lastmsg vendor buy bank
//произнося vendor buy bank останавливаем скрипт
set #msg 0
send Escape
break
end_if
if lastmsg guards
//произнося guards прекращаем
//данную проверку результатов рубки (на случай
//если ластмессага глюканула)
send Escape
break
end_if
set #rtimer timer - #timer
End_while
send Escape
return
Мининг:
:begin
repeat 41
:verx
if hits < str
say guards
say NE VZRbIBATb!
end_if
send f1
wait 500
if lastmsg there is no
send pageup
goto enda
else
wait 4500
goto verx
end_if
:enda
end_repeat
if chardir = 2
send home
else
send home
send home
end_if
repeat 41
:niz
if hits < str
say guards
say NE VZRbIBATb!
end_if
send f1
wait 500
if lastmsg there is no
send end
goto endb
else
wait 4500
goto niz
end_if
:endb
end_repeat
if chardir = 6
send pagedown
else
send pagedown
send pagedown
end_if
goto begin
Долгий, но эффективный макрос на резист, хилинг, магию, медетацию.
:begin
send f3 // каст спел фаер филд, вэйт фор таргет.
wait 2000
left 420, 276 // кастует перед собой фаервол, для этого надо быть голому и без(!!) лошади.
wait 5000
if lastmsg spell // проверка на физл
goto begin
end_if
send pageup
repeat 3
send home
wait 300
end_repeat
repeat 12
if hits > 80
send f10 // хилинг
repeat 5
send pagedown
wait 300
end_repeat
send f11 // медитация
repeat 5
send home
wait 300
end_repeat
end_if
end_repeat
repeat 2
send end
wait 300
end_repeat
repeat 3
send pagedown
wait 300
end_repeat
while hits < 250 and mana < 50
send f10
wait 1000
send f11
wait 5000
end_while
на фишинг для корабля
:1
send F11
wait 2500
while lastmsg you see
flash
msg Alert
send F12
goto 2
end_while
goto 1
2:
send F12
wait 7000
if hits = str
then
goto 1
else
goto 2
end_while
F11 - юз удочка таргет море(локатион)(ассист)
F12 - юз бандаги на себя + оружие в руки(ассист)
когда видешь кого-нить выкидывается табличка Alert если никого нет рядом(и если есть все равно=) хилиться с задержкой 7000 для хилинга и атаки
макро на ветеринарию:
while_not hits < str //статы лошади
send F10 1000 //аттак ласт
end_while
send Tab 500
send F2 4000 //ластобжект (бинты) - ласттаргет
if lastmsg you can't see
repeat 99
alarm
wait 3000
end_repeat
end_if
if hits = 0
repeat 99
alarm
wait 3000
end_repeat
end_if
Скрипт сождающий суммона и килляющий его (для этого вы должны быть в вар моде). Прокачивается магия и комбат.
:begin
send Delete
wait 600
left 262, 65
wait 800
left 262, 65
wait 800
double_left 212, 67
waitfortarget 1000
left 361, 289
wait 10000
if lastmsg initiated.
wait 15000
end_if
if lastmsg The spell fizzles.
goto begin
end_if
double_left 352, 288
wait 40000
if hits < 80
send End
waitfortarget 800
left 400, 269
wait 3000
end_if
Где End - Greater Heal, Delete - Summ. creature
Макрос на продажу множества предметов нескладывающихся в один стек:
say Vendor sell
wait 500
Repeat 100
double_left 199, 92
left 343, 201
end_repeat
left <314, 423>
end_script
мининг Ф8 - ласт обжект, Ф7 - ласт лбжект ласт таргет
set #dx 0
set #dy 0
set $n no ore
set $f fail
set $pk pack
set $e error
set $st starving
set $d damage
set $dt destroyed
set $ys you see:
for #dy 0 88 44
for #dx 0 176 44
set #x 312
set #y 298
set #x #x + #dx
set #y #y + #dy
send F8
waitfortarget
wait 1000
:a
left #x #y
while lastmsg <> $pk
wait 1000
if lastmsg = $dt
double_left 877, 433
goto a
end_if
if lastmsg = $ys
goto hana
end_if
if lastmsg = $n
goto fuck
end_if
if lastmsg = $f or lastmsg = $e or lastmsg = $st or lastmsg = $d
goto dig
end_if
end_while
:dig
while lastmsg <> $n
send F7 1000
while lastmsg <> $pk
wait 1000
if lastmsg = $dt
double_left 877, 433
goto a
end_if
if lastmsg = $n
goto fuck
end_if
if wght > 1000 or lastmsg = $ys
goto hana
end_if
if lastmsg = $f or lastmsg = $e or lastmsg = $st or lastmsg = $d
goto dig
end_if
end_while
end_while
:fuck
end_for
end_for
for #dy 0 88 44
for #dx 0 132 44
set #x 334
set #y 320
set #x #x + #dx
set #y #y + #dy
send F8
waitfortarget
wait 1000
:b
left #x #y
while lastmsg <> $pk
wait 1000
if lastmsg = $dt
double_left 877, 433
goto b
end_if
if lastmsg = $ys
goto hana
end_if
if lastmsg = $n
goto fuck1
end_if
if lastmsg = $f or lastmsg = $e or lastmsg = $st or lastmsg = $d
goto dig
end_if
end_while
:dig
while lastmsg <> $n
send F7 1000
while lastmsg <> $pk
wait 1000
if lastmsg = $dt
double_left 877, 433
goto b
end_if
if lastmsg = $n
goto fuck
end_if
if wght > 1000 or lastmsg = $ys
goto hana
end_if
if lastmsg = $f or lastmsg = $e or lastmsg = $st or lastmsg = $d
goto dig
end_if
end_while
end_while
:fuck1
end_for
end_for
:hana
end_script
копает внизу 27 тайлов примерно 5х4 и копки посередине тайлов
Картография, очистка бэкпака. Работает медленно но верно (IMG:
style_emoticons/default/smile.gif) Всякие полезные вещи типа спелбуки и ключей лучше выложить заранее (IMG:
style_emoticons/default/smile.gif)
//-------------- Cartography Clear Bag-------------
set #cx1 522 //verhnij levij ugol bpacka
set #cx2 #cx1 + 121
set #cy1 561 //verhnij levij ugol bpacka
set #cy2 #cy1 + 110
set #trx 342 //trash can
set #try 244
:Start
for #j #cy1 #cy2
//say #j
for #i #cx1 #cx2 1
//say #i
if #i, #j 3758732
drag #i, #j #trx, #try
end_if
end_for
end_for
goto Start
end_script
Боукрафт, делаем шафты (IMG:
style_emoticons/default/smile.gif)
//------------------ Boucraft shafts --------------
:Start
drag 347, 251 611, 631 1 // с пола в пак кладем 1 лог
wait 200
send F1 // ластобжект
waitfortarget
left 341, 247 // тыкаю в пол потому как не хочет в паке тыкать (IMG:
style_emoticons/default/sad.gif) баг наверное
wait 500
double_left 107, 62
wait 2000
goto Start
end_script
Боукрафт, делаем болты...
перья в паке, шафты на полу
:Start
drag 338, 255 580, 617 1 // с полу кладем в пак 1 шафт
wait 200
double_left 579, 611 // юзаем его
wait 500
double_left 61, 60
wait 4000
goto Start
end_script
Макрос на стелс... для Утопии...
Клавиши, забинденные в УО:
F10 -> UseSkill -> Hidding,
F5 -> UseSkill -> Stealth.
Скрипт:
//Переменные-----------------------------------------
set $a You cannot seem to hide here
set $b You have revealed yourself
set $c You must wait to perform another action
//Скрипт------------------------------------------------
:begin
send F10
wait 5500
if lastmsg $c
wait 2000
goto begin
end_if
if lastmsg $a
goto begin
else
send F5
wait 500
if lastmsg $b
wait 2500
goto begin
else
repeat 2
send Right
wait 50
end_repeat
repeat 2
send Left
wait 50
end_repeat
wait 2500
end_if
end_if
//Конец--------------------------------------------------
Работает просто прекрасно! никаких сбоев... (IMG:
style_emoticons/default/smile.gif)
скрипт на БС
repeat 600
send F3 2000 // шлём макрос LastObject, объектом заранее выбрана стопка слитков
repeat 2500 // ждём открытия меню проверяя цвет
if 240, 53 986895
break 1
else
end_if
end_repeat
double_left 201, 61 // выбираем в меню оружие
wait 2500 repeat 2000 // ждём открытия меню
if 229, 57 986895
break 1
else
end_if
end_repeat
double_left 66, 61 // выбираем в меню мечи
wait 1700
repeat 1700 // ждём открытия меню
if 229, 57 986895
break 1 else
end_if
end_repeat
double_left 160, 62 // выбираем в меню катаны
wait 7000 // ждём пока сделается
end_repeat
end_script
Мининг Копает до перегруза а потом пищит(Ф1 ласт оббкт/Ф11 Шаг в стороу ВЕСТ):
:nachalo
repeat 9999
send f1
wait 300
left 344, 200
wait 4000
if wght > 450
alarm
alarm
alarm
end_if
if lastmsg There is no ore here to mine
goto drugoi
end_if
end_repeat
:drugoi
repeat 9999
send f1
wait 300
left 288, 221
wait 4000
if wght > 450
alarm
alarm
alarm
end_if
if lastmsg There is no ore here to mine
goto tretij
end_if
end_repeat
:tretij
repeat 9999
send f1
wait 300
left 284, 249
wait 4000
if wght > 450
alarm
alarm
alarm
end_if
if lastmsg There is no ore here to mine
send F11
send F11
goto nachalo
end_if
end_repeat