Mining.

rebenok · Post by **rebenok** » 2005-08-31 17:19:15

Нужен скрипт просто на обкопку себя. Без разных наворотов. Накопал 600 веса - отключился

Спасибо.)

neokron111 · Post by **neokron111** » 2005-09-01 06:20:20

Копает вокруг себя в хайде(наворот ыыы))

sub minround() 
VAR Kirka = '0x0E86' ; Тип Кирки 
VAR MaxVes = 600 ; Максимальный вес, подымаемый чаром минус 10-15 стоунов 
VAR TileNum = '1339' ; Тайл пола пещеры (наиболее распространенный тип, чтобы узнать тип воспользуйся командой ,infotile и таргетом на тайл в пещере) 
VAR x, y, t, k 
VAR MaxTime = 100 ; измеряется в 1/10 сек. 
VAR ms1 = "There is no ore here to mine" 
VAR ms2 = "You can't use" 
VAR ms3 = "You put the" 
VAR ms4 = "You loosen some rocks" 
VAR ms5 = "You are too far away" 
VAR ms6 = "Try mining in rock" 
VAR ms7 = "You can't see that" 
for y=-2 to 2
for x=-2 to 2 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("Прячемся...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
k = 0 
repeat 
UO.DeleteJournal() 
t = UO.Timer() 
k = k + 1 
UO.CancelTarget() 
wait(300) 
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 
UO.UseType( Kirka ) 
repeat 
wait(300) 
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer()) 
If UO.Weight > MaxVes Then 
UO.Print(" Overweight!" ) 
return 
Endif 
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) 
next 
next 
endsub

rebenok · Post by **rebenok** » 2005-09-01 18:05:08

neokron111 wrote:Копает вокруг себя в хайде(наворот ыыы))

Спасибо огромное

neokron111 · Post by **neokron111** » 2005-09-02 14:32:11

Вот еще один...мне больше нравиться...

Code: Select all

sub Mining()
var mx, my, mz, i, j, z
for z = 1 to 100 
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
hide()
for i = mx-2 to mx+2
	for j = my -2 to my +2
		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("where") and not UO.InJournal("in rock") and not UO.InJournal("iron")
hide()			
UO.DeleteJournal()
			UO.Waittargettile("1341", str(i), str(j), str(mz))
			UO.Usetype("0x0e85")
			while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("where") and not UO.InJournal("no ore here") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
				wait (100)
			wend
		wend
		UO.DeleteJournal()
	next
next
		UO.Press(34)
			wait(100)
		UO.Press(34)
			wait(100)
		UO.Press(34)
			wait(100)
		UO.Press(34)
			wait(100)
next
end sub

sub hide() 
 while not UO.Hidden() 
   uo.WarMode("0") 
   uo.UseSkill("Hiding") 
     wait(1500) 
 wend 
end sub

rebenok · Post by **rebenok** » 2005-09-02 15:27:27

neokron111 wrote:Вот еще один...мне больше нравиться...

Thanks)

some · Post by **some** » 2007-06-02 10:20:10

neokron111 wrote:Вот еще один...мне больше нравиться...

Code: Select all

sub Mining()
var mx, my, mz, i, j, z
for z = 1 to 100 
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
hide()
for i = mx-2 to mx+2
	for j = my -2 to my +2
		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("where") and not UO.InJournal("in rock") and not UO.InJournal("iron")
hide()			
UO.DeleteJournal()
			UO.Waittargettile("1341", str(i), str(j), str(mz))
			UO.Usetype("0x0e85")
			while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("where") and not UO.InJournal("no ore here") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
				wait (100)
			wend
		wend
		UO.DeleteJournal()
	next
next
		UO.Press(34)
			wait(100)
		UO.Press(34)
			wait(100)
		UO.Press(34)
			wait(100)
		UO.Press(34)
			wait(100)
next
end sub

sub hide() 
 while not UO.Hidden() 
   uo.WarMode("0") 
   uo.UseSkill("Hiding") 
     wait(1500) 
 wend 
end sub

спасибо большое скрипт очень хороший,мне нравится.
только возникла маленькая проблемка,можно ли в него запихнуть убегание от пк ? (улет по рунке) и какую нибудь ходилку ?
я новичок в инжекте , сам буду разбираться, но если кто хочет помочь то спасибо большое.
играю на шарде fwuo