Скрипты / просьбы скриптов

assasin · 14 августа, 2010

парни помогите пожалуйста.... начал играть на этом сервере... качаю асасина нужен скрипт на снупинг и стилинг....

assasin · 15 августа, 2010

парни ну помогите со скриптом на стилинг... (( ну неужели ни кто не в силах нубу помочь... =(

responsible · 15 августа, 2010

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

sub stealing()

var item = '0x19b9'; Вместо 0x19b9 впиши id той вещи, которую хочешь украсть - команда ,info

repeat

uo.findtype(item,-1,'lastcontainer')

uo.useskill("Stealing","finditem")

wait(15000); Задержка зависит от DEX, сам смотри, сколько у тебя занимает времени steal одной вещи

until UO.Dead()

wend

end sub

assasin · 15 августа, 2010

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

sub stealing()

var item = '0x19b9'; Вместо 0x19b9 впиши id той вещи, которую хочешь украсть - команда ,info

repeat

uo.findtype(item,-1,'lastcontainer')

uo.useskill("Stealing","finditem")

wait(15000); Задержка зависит от DEX, сам смотри, сколько у тебя занимает времени steal одной вещи

until UO.Dead()

wend

end sub

спасибо большое щас буду мазговать как его запускать=)

Heroline · 29 августа, 2010

на бс

sub main()

while uo.count('0x1BF2')>9 # тут проставить кол-во ингов, необходимое для выковываемой вещи

UO.Exec("waitmenu 'What do you wish to make?' 'Armor' 'Select armor' 'Chainmail' 'Select item' 'Gnomish Chainmail Coif'") # здесь вписывается, что куем

UO.Exec("waittargetobject '^0x1BF2'")

UO.Exec("useobject '^0x13E3'")

wait(2000)

UO.Exec("waittargetobject '^0x13C0'") # здесь вписываем тип вещи, определяется командой ",info"

Wait (300)

UO.Exec("useobject '^0x0FBB'")

Wait (3000)

UO.Exec("useobject '^0x097b'") # еда, жареная рыба, или заменяем на свое

wend

end sub

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

наковальни и тонги постепенно ломаются

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

Нехрена оно не роботает

responsible · 29 августа, 2010

Снупинг. Запускаем, выбираем объект для снупинга и идем пить чай)

sub snooping()
   uo.addobject('SnoopCharter');
    while uo.targeting()
     wait(250)
      wend
       while UO.Life > 0
        uo.waittargetobject('SnoopCharter');
         UO.Exec("usetype '0x13c6'");
    wait(10000)
    wend
end sub

Catherine · 4 сентября, 2010

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

Danke · 4 сентября, 2010

проще всего поставить хаммер ))

Catherine · 4 сентября, 2010

проще всего поставить хаммер ))

по подробнее пожалста

Danke · 4 сентября, 2010

по подробнее пожалста

UO Hammer - программа похожая на Injection со встроенными макросами на Lumberjacking, Mining, Fishing.

http://middle-earth.ru/forum/index.php?sho...amp;#entry69453

Вообще... аська в профиле... если че, спрашивай...

Catherine · 19 сентября, 2010

Напишите скрипт дял прокачки боукрафта после 70, чтобы крафтил или луки или кросбоу, токо не стрелы или болты

Schutze · 20 сентября, 2010

Помогите пожалуйста дописать скриптик на майнинг. Вот он:

sub main()

var i

While UO.Life>0

for i=1 to 14

kopat()

uo.press(34)

kopat()

for i=1 to 15

wait(500)

uo.press(36)

wend

end sub

sub kopat()

var where_x,where_y,coords,i

UO.DeleteJournal()

where_x=uo.getx()

where_y=uo.gety()

for i=-2 to 2

uo.print("Тайл "+str(i+3)+"/5")

coords="waittargettile "+" 1339 "+str(where_x)+" "+str(where_y+i)+" 0"

uo.exec(coords)

uo.exec("usetype '0x143C'") # Здесь прописываем тип кирки

UO.DeleteJournal()

while (not (UO.InJournal("stop mining") or UO.InJournal("far") or UO.InJournal("no ore") or UO.InJournal("cannot")))

wait(1000)

wend

sub heal()

While UO.WEIGHT < 30000

wait(300)

if UO.Life < 70 then

UO.Exec("bandageself")

wait(6000)

endif

wend

end sub

sub guards()

While UO.WEIGHT < 30000

wait(300)

if UO.Life < 90 then

uo.say('.guards')

wait(6000)

endif

wend

end sub

Нада чтоб при вылете сообщения типа ('Ouch! You hit yourself with your tool!') он продолжил скрипт. А то стопится на месте и всё =( Заранее спасибо!

Danke · 20 сентября, 2010

while (not (UO.InJournal("stop mining") or UO.InJournal("far") or UO.InJournal("no ore") or UO.InJournal("cannot") or UO.InJournal("tool")))

Schutze · 20 сентября, 2010

while (not (UO.InJournal("stop mining") or UO.InJournal("far") or UO.InJournal("no ore") or UO.InJournal("cannot") or UO.InJournal("tool")))

Сори я с инжектом не так сильно дружу)

в готовом виде это будет выглядеть вот так?

sub stop()

while (not (UO.InJournal("stop mining") or UO.InJournal("far") or UO.InJournal("no ore") or UO.InJournal("cannot") or UO.InJournal("tool")))

wait(1000)

endif

wend

end sub

Еше раз спасибо за внимание =)

Danke · 20 сентября, 2010

sub main()
var i
While UO.Life>0
for i=1 to 14
kopat()
uo.press(34)
next
uo.print("GO назад =)")
kopat()
for i=1 to 15
wait(500)
uo.press(36)
next
uo.press(34)
wend
end sub

sub kopat()
var where_x,where_y,coords,i
UO.DeleteJournal()
where_x=uo.getx()
where_y=uo.gety()
for i=-2 to 2
uo.print("Тайл "+str(i+3)+"/5")
coords="waittargettile "+" 1339 "+str(where_x)+" "+str(where_y+i)+" 0"
uo.exec(coords)
uo.exec("usetype '0x143C'") # Здесь прописываем тип кирки
UO.DeleteJournal()
while (not (UO.InJournal("stop mining") or UO.InJournal("far") or UO.InJournal("no ore") or UO.InJournal("cannot") or UO.InJournal("tool")))
wait(1000)
wend
next
end sub

sub heal()
While UO.WEIGHT < 30000
wait(300)
if UO.Life < 70 then
UO.Exec("bandageself")
wait(6000)
endif
wend
end sub

sub guards()
While UO.WEIGHT < 30000
wait(300)
if UO.Life < 90 then
uo.say('.guards')
wait(6000)
endif
wend
end sub

Schutze · 20 сентября, 2010

Благодарю ! =)

Schutze · 20 сентября, 2010

Проверил, так же как и было =( На этом Ouche стопит и всё. Не хочет продолжать путь приходится заново ставить на место и стартовать.

Danke · 20 сентября, 2010

sub main()
var i
While UO.Life>0
for i=1 to 14
kopat()
uo.press(34)
next
uo.print("GO назад =)")
kopat()
for i=1 to 15
wait(500)
uo.press(36)
next
uo.press(34)
wend
end sub

sub kopat()
var where_x,where_y,coords,i,t
UO.DeleteJournal()
where_x=uo.getx()
where_y=uo.gety()
for i=-2 to 2
uo.print("Тайл "+str(i+3)+"/5")
coords="waittargettile "+" 1339 "+str(where_x)+" "+str(where_y+i)+" 0"
uo.exec(coords)
uo.exec("usetype '0x143C'") # Здесь прописываем тип кирки
t=0
while (not (UO.InJournal("stop mining") or UO.InJournal("far") or UO.InJournal("no ore") or UO.InJournal("cannot") or UO.InJournal("tool") or t>10))
wait(1000)
t=t+1
wend
next
end sub

sub heal()
While UO.WEIGHT < 30000
wait(300)
if UO.Life < 70 then
UO.Exec("bandageself")
wait(6000)
endif
wend
end sub

sub guards()
While UO.WEIGHT < 30000
wait(300)
if UO.Life < 90 then
uo.say('.guards')
wait(6000)
endif
wend
end sub

Danke · 20 сентября, 2010

Фразы для хамера на мининг

Файл mining.hll

[strings to continue]
You put some
You cannot prospect
You fail to find any usable ore
[strings to end]
there is no more ore here to mine.
There is no ore here to mine
That is too far away
[string numbers to continue]
24032
24033
24034
24035
24036
24037
24038
24039
44291
[string numbers to end]
44288
36013

korish · 21 октября, 2010

если кому делать не чего замутите скрипт этот под наш шард

sub maning()

var mx, my, mz, i, j, jor, ser, noto

Uo.exec("set norbcheck 1"); для рекола

uo.exec("set norbcalc 1"); тоже

uo.print('0x0E85')

uo.exec('addobject Shovel')

while uo.targeting()

wait(100)

wend

uo.print('0x7F39DD43')

uo.exec('addobject Runebook')

while uo.targeting()

wait(100)

wend

na4alo:

mx = UO.GetX("self")

my = UO.GetY("self")

mz = UO.GetZ("self")

UO.DeleteJournal()

for i = mx-2 to mx+2

for j = my -2 to my+2

UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j))

while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore")

UO.DeleteJournal()

if uo.waiting() then

uo.canceltarget()

endif

UO.Waittargettile("1341", str(i), str(j), str(mz))

UO.Useobject("Shovel")

while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")

wait (500)

if uo.injournal("heavy") or uo.dead() then

pwav()

Pause()

endif

for jor = 0 to 9

ser = uo.journalserial(jor)

noto = uo.getnotoriety(ser)

if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then

if uo.waiting() then

uo.canceltarget()

endif

Save()

pwavw()

wait(180000) ; время в секундах при ожидании пока уйдет ПК

loot()

wait(3000)

goto reccal

endif

if uo.weight > 10000 then ; Максимальный вес при котором домой с рудой

goto end

endif

wend

UO.DeleteJournal()

goto na4alo

end:

if uo.waiting() then

uo.canceltarget()

endif

uo.exec("recall Runebook 21") ; домой ( в рунбуке слот 1 )

wait(10000)

loot()

wait(3000)

reccal:

uo.deletejournal()

if uo.waiting() then

uo.canceltarget()

endif

uo.exec("recall Runebook 94") ; в шахту ( в рунбуке слот 8 )

mx = UO.GetX("self")

my = UO.GetY("self")

wait(10000)

if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then

goto reccal

endif

goto na4alo

end sub

sub loot() ; перекладка руды в сундук

if uo.waiting() then

uo.canceltarget()

endif

VAR a,Exit

VAR UnloadCont='0x7FEAB71C' ; АЙДИ сундука для руды

DIM Ore[5]

Ore[0]=0x19B9 ; 4 and more ore

Ore[1]=0x19B7 ; 1 ore

Ore[2]=0x19BA ; 2 ore

Ore[3]=0x19B8 ; 3 ore

UO.SetReceivingContainer(UnloadCont)

wait(500)

For a=0 to 3

Exit=0

repeat

UO.FindType(Ore[a])

if UO.GetQuantity('finditem')>0 then

UO.Grab('0','finditem')

wait(1500)

Else

Exit=1

endif

until Exit==1

end sub

sub save()

var i, t_len = 2 ;

DIM t [ val( str( t_len ) ) ]

t[0] = "0x0191"

t[1] = "0x0190"

uo.ignore( "self" )

uo.set('finddistance',12)

repeat

for i = 0 to t_len -1

uo.findtype( t, "-1", "ground" )

If uo.FindCount() Then

If uo.getNotoriety( "finditem" ) == 1 or uo.getNotoriety( "finditem" ) == 3 Then ; если синий или серый, игнор

uo.Ignore( "finditem" )

Else

uo.msg('.recall') ; функция телепорта

wait(3000)

End If

next

wait( 300 )

until false

End Sub

sub pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА

uo.playwav("C:\Program Files\ICQ6.5\sounds\Default\CallOnHold")

endsub

sub pwavw(); звук при появлении ПК

uo.playwav("C:\Program Files\ICQ6.5\sounds\Default\CallConnected")

endsub

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO )

UO.DeleteJournal()

REPEAT

WAIT(3000)

UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!")

UNTIL UO.InJournal('GO')

UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!")

endif

end sub

Lamark · 21 октября, 2010

cho zahotel [=

korish · 22 октября, 2010

cho zahotel [=

знаю хотеть не вредно

MeSSiR · 22 октября, 2010

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

korish · 23 октября, 2010

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

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

MeSSiR · 23 октября, 2010

так в чем проблема? Вставляй хоть тысячу макросов в 1 файл и будет тебе СЧАСТЬЕ

Скрипты / просьбы скриптов

Рекомендуемые сообщения

assasin 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

assasin 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

responsible 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

assasin 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Heroline 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

responsible 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Catherine 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Danke 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Catherine 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Danke 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Catherine 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Schutze 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Danke 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Schutze 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Danke 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Schutze 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Schutze 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Danke 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

Danke 0

Поделиться сообщением

Ссылка на сообщение

Поделиться на другие сайты

korish 0

Поделиться сообщением