у меня есть скриптик под DK на мининг, только вот 2проблемы в нём: 1)3й точка копания - он уходит в ебеня
2)иногда перестаёт капать.
Code:
sub mine()
var x, y, i, tmp, inside, goto_x, st, first
st=0
first=UO.GetX()
start:
inside=0
for y=-2 to 2
for x=-2 to 2
try:
UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
UO.exec ("usetype 0x0E85")
#UO.Print (""+STR(x))
#UO.Print (""+STR(y))
i=0
while i< 100
if UO.InJournal("You loosen some rocks but fail to find any useable ore") then
wait (1000)
i=200
UO.DeleteJournal()
goto try
endif
if UO.InJournal("Try mining elsewhere") then
i=200
UO.DeleteJournal()
endif
if UO.InJournal("You cant mine in this Region.") then
i=200
UO.DeleteJournal()
endif
if UO.InJournal("You must wait to perform another action") then
wait (1000)
i=200
UO.DeleteJournal()
goto try
endif
if uo.InJournal("till")then
uo.playwav("D:\GAMER\Ultima Online\Inja\alert.wav")
wait(1000)
i=200
UO.DeleteJournal()
goto try
endif
if uo.InJournal("Elemental") or uo.InJournal("is attacking you")then
uo.playwav("D:\GAMER\Ultima Online\Inja\alert.wav")
killelem()
wait(1000)
;loot()
i=200
UO.DeleteJournal()
goto try
endif
if uo.InJournal("too heavy")then
uo.playwav("D:\GAMER\Ultima Online\Inja\alert.wav")
wait(1000)
i=200
UO.DeleteJournal()
goto try
endif
if UO.InJournal("There is nothing here to mine for") then
wait (1000)
i=200
UO.DeleteJournal()
endif
if UO.InJournal("You have no line of sight to that location") then
wait (1000)
i=200
UO.DeleteJournal()
endif
wait (500)
i=i+1
if uo.weight > 700 then
uo.findtype(0x19B9,0x06D6,2)
UO.MoveItem('finditem', '0', 'ground')
wait (100)
endif
wend
next
next
if st == 0 then
goto_x=UO.GetX()+5
while inside < 10
while UO.GetX() < goto_x
UO.Press (39, 1, 500)
inside=0
wend
while UO.GetX() > goto_x
UO.Press (37, 1, 500)
inside=0
wend
inside=inside+1
wait (300)
wend
st=1
goto start
endif
if st == 1 then
while inside < 10
while UO.GetX() < first
UO.Press (39, 1, 500)
inside=0
wend
while UO.GetX() > first
UO.Press (37, 1, 500)
inside=0
wend
inside=inside+1
wait (300)
wend
st=0
endif
end sub
#==============================================================
# CheckLag() - click on backpack and awaiting "backpack"
# message in journal.
#
# Journal has been deleted!!!
#--------------------------------------------------------------
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
Repeat
wait(1000)
Until UO.InJournal('backpack')
end sub
sub killelem()
VAR Count,Elem
uo.equipt('Rhand','0x1404')
UO.DeleteJournal()
UO.Exec('warmode 1')
UO.FindType('0x000E',-1,'ground')
Elem=UO.GetSerial('finditem')
wait (300)
UO.Attack(Elem)
repeat
wait(1000)
If UO.Life<100 Then
UO.UseType(0x182E)
Endif
until UO.IsNPC(Elem)==0
wait(3000)
UO.Exec('warmode 0')
wait(1000)
UO.Print("Sdoh skotina!")
end sub
Register
Login
FAQ
Search
для вот етово шарда :
!Но не нужно забывать что и гампы как правило связаны с этими картинками! т.е. например расскажу про систему антискриптрессурект на шарде NOVA... Так вот когда мы подходим к кресту в произвольном месте(как нам кажеться) выводиться гамп в котором нужно ввести число для воскрешения а само число нарисовано! Так вот этих гампов всего встеречаеться порядка 20 штук и каждый из них всегда выскакивает в своем месте + каждый из них имеет свой ID гампа! Догадались?? правильно! Суть скипта в том что когда выскакивает гамп типа X (это можно видеть в журнале) берем его ID и сравниваем с теми что у нас есть (заранее вбиты в скрипт ID гампов и для каждого из них число ответа и координаты поля ввода) и собственно вводим их куда требуеться!
