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

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

О и правда можно =) спасибо =)

а Скрипт этот я проверил не зовёт чего то =(( может не всегда когда в шахте атакуют монстры в журнале пишится что атачат? =\

 

А этот скрипт работает =)

 

sub GuardMacros()

while not uo.dead()

if uo.life < uo.str then

uo.msg(".guards")

wait(10000)

endif

 

wait(1000)

wend

end sub

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

С переплавкой тишина

Я вот на старом форуме успел найти скрипт на МИНИНГ

 

sub main() # перед запуском выключите Num Lock

var i,x

var a=7 # величина ромба по периметру которого ходит чар.

wait(1000)

while not UO.dead()

for i=1 to a

start1:

UO.DeleteJournal()

wait(100)

uo.exec("usetype 'pickaxe'") # в обжект тайп прописать кирку под именем pickaxe

wait (500)

UO.LClick (400,311)

wait (1500)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (383,236)

wait(10000)

If not (UO.InJournal("no ore here to mine.") or UO.InJournal("you cannot mine that.")) then

UO.DeleteJournal()

goto start1

endif

uo.press(34)

next

for x=1 to 1

wait(500)

uo.press(35)

next

for i=1 to a

start2:

UO.DeleteJournal()

wait(100)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (400,311)

wait (1500)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (383,236)

wait(10000)

If not (UO.InJournal("no ore here to mine.") or UO.InJournal("you cannot mine that.")) then

UO.DeleteJournal()

goto start2

endif

uo.press(35)

next

for x=1 to 1

wait(500)

uo.press(36)

next

for i=1 to a

start3:

UO.DeleteJournal()

wait(100)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (400,311)

wait (1500)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (383,236)

wait(10000)

If not (UO.InJournal("no ore here to mine.") or UO.InJournal("you cannot mine that.")) then

UO.DeleteJournal()

goto start3

endif

uo.press(36)

next

for x=1 to 1

wait(500)

uo.press(33)

next

for i=1 to a

start4:

UO.DeleteJournal()

wait(100)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (400,311)

wait (1500)

uo.exec("usetype 'pickaxe'")

wait (500)

UO.LClick (383,236)

wait(10000)

If not (UO.InJournal("no ore here to mine.") or UO.InJournal("you cannot mine that.")) then

UO.DeleteJournal()

goto start4

endif

uo.press(33)

next

for x=1 to 1

wait (500)

uo.press(34)

next

wend

end sub

 

Кстати подскажите какие строки и куда нужно вставить что бы он ещё гвардов звал ?

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

Привет всем ) играл года 3 назад или больше...щас вот опять решил, когда есть время =)

Как я понял тот форум невосстановиться , а новичкам было бы очень приятно и полезно посещать сию тему, если суда будут скидывать скрипты которые пригодяться новичкам ....Мининг,спаринг,перплавка руды и тд и тп...Ну и другие скрипты тоже конечно...заранее спасибо

p.s если создал не в том разделе извеняюсь или тему со скриптами с того форума восстановят , то пардон.