Yoko
http://forum.yoko.com.ua/

Нужен скрипт для инжи на майнинг
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1463		 Page 1 of 1
Author:  SoliD [ 2004-09-25 20:19:42 ]
Post subject:  Нужен скрипт для инжи на майнинг
Паманите плз нужен простой скрипт который ставить перса в хайд и копает вокруг себя.... Никакой защиты и рунбуков! памагите плз..
Author:  fank2 [ 2004-09-25 21:47:30 ]
Post subject: 
Пожалоста ))) мог бы и в асю стукнуть )))

sub Mining()
var mx, my, mz, i, j
repeat
uo.addobject("Shovel",0x4008003D) ;ID Лопаты или кирки
na4:
; gotoxy(5136,1181) ;
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my-4 to my+4
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Now Mining In: "+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")
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)
endif
wend
UO.DeleteJournal()
if uo.Weight>820 then ;
end sub
goto na4
endif
next
next
until uo.dead()
end sub
Author:  TOPORik [ 2004-09-27 00:00:55 ]
Post subject: 
fank2 wrote:
Пожалоста ))) мог бы и в асю стукнуть )))

sub Mining()
var mx, my, mz, i, j
repeat
uo.addobject("Shovel",0x4008003D) ;ID Лопаты или кирки
na4:
; gotoxy(5136,1181) ;
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my-4 to my+4
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Now Mining In: "+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")
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)
endif
wend
UO.DeleteJournal()
if uo.Weight>820 then ;
end sub
goto na4
endif
next
next
until uo.dead()
end sub

я скачал твой скрипт и када запускаю мне пишет что ошибка в 40-вой строке ! а этой строки там в помине нету !
Author:  fank2 [ 2004-09-27 18:37:37 ]
Post subject: 
Сорри нетот .....о тон :


sub mining()
var kirk=uo.GetSerial(uo.ObjAtLayer('Rhand'));
var i
var mx=uo.GetX()-2
var my=uo.GetY()-2
var rep=0
var MW=500 ; max weight
if uo.GetGraphic(uo.ObjAtLayer('Rhand'))<>"0x0E85" and uo.GetGraphic(uo.ObjAtLayer('Rhand'))<>"0x0E86" then
uo.findtype(0x0E85)
if uo.findcount()==0 then
uo.print("Нет кирки!!!")
return 0
end if
kirk=uo.GetSerial('finditem')
uo.equip('Rhand','finditem')
end if
minst:
rep=rep+1
if uo.weight>MW or uo.dead() then
goto minex
end if
uo.deletejournal()
uo.exec("waittargettile tilenum "+str(mx)+" "+str(my)+" 0")
uo.useobject(kirk);
i=0
wait(200)
uo.exec("resend")
repeat
wait(700)
i=i+1
if uo.injournal("is attacking you") then
uo.say("guards")
end if
until uo.injournal("loosen")or uo.injournal("You put") or uo.injournal("no ore") or uo.inJournal("You can't") or uo.InJournal("Try mining") or i>50
if uo.injournal("no ore")or uo.injournal("You can't")or uo.InJournal("Try mining")or (rep>10) then
wait(1000)
rep=0
my=my+1
if my>uo.GetY()+2 then
my=uo.GetY()-2
mx=mx+1
end if
if mx>uo.GetX()+2 then
goto minex
else
goto minst
end if
end if
goto minst
minex:
uo.print("Скрипт завершился")
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/