Script mining

[Rboy]

Code: Select all

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=420
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 ("  ")
end if 
until uo.injournal("loosen")or uo.injournal("You put") or uo.injournal("nothing") or uo.injournal("can't reach") or uo.inJournal("too far") or uo.InJournal("Try mining") or i>50 
if uo.injournal("nothing")or uo.injournal("can't reach")or uo.injournal("too far")or uo.InJournal("Try mining")or (rep>10) then ;or uo.injournal("Iron")or uo.InJournal("Copper")or uo.injournal("Rusty") 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("Ñêðèïò çàâåðøèëñÿ") 
uo.playwav("j6_1.wav") 
end sub

[Demos]

Code: Select all

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

sub Plavka()      ; Pereplavka rudi
var MaxVes=410
VAR Ing1 = '0x1BEF' ;
VAR Ing2 = '0x1BF2' ;
repeat
UO.Findtype('0x19B9', '-1','0x400B7D14')
If UO.Findcount() == 0 Then
UO.Findtype('0x19B8', '-1','0x400B7D14')
If UO.Findcount() == 0 Then
UO.Findtype('0x19BA', '-1','0x400B7D14')
If UO.Findcount() == 0 Then
UO.Findtype('0x19B7', '-1','0x400B7D14')
If UO.Findcount() == 0 Then     
UO.Say( "Bbboy" )
Return
Endif
Endif
Endif
Endif
UO.Exec( "moveitem finditem 1" )
Wait( 1200 )
UO.Useobject( 'finditem' )
Wait( 1200 )
If UO.Weight > MaxVes Then
UO.Findtype( Ing1, -1, -1 )
If UO.Findcount() > 0 Then
UO.Drophere( 'finditem' )
Wait( 1200 )
Endif
UO.Findtype( Ing2, -1, -1 )
If UO.Findcount() > 0 Then
UO.Drophere( 'finditem' )
Wait( 1200 )
Endif
Endif
until uo.findcount()== 0
UO.Say( "Bbboy" )
endsub 


\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\


sub DropOrePol()   ; Dropaet govno na pol
VAR n
Dim Drop[10]    ; ***
Drop[1] = '0x07A1' ; Это цвета а не тайпы
Drop[2] = '0x07A1' ; Если мало 10 то допиши сколько нужно
Drop[3] = '0x0000' ; изменив цифру на сколько получилось строк там где стоит ***. Изначально [10]
Drop[4] = '0x049A'
Drop[5] = '0x04A5'   
Drop[6] = '0x0601'
Drop[7] = '0x052D'
Drop[8] = '0x0488'
Drop[9] = '0x084D'
Drop[10] = '0x060C'

For n = 1 To 10    ; ***                                            
UO.FindType('0x19B9', Drop[n] ,'backpack')
If UO.FindCount() then
UO.MoveItem('finditem', -1 ,'ground')
wait(1000)
Endif
Next

end sub

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

sub DropIngotBank()     ; kidaet ingi v bank v 
VAR Meshok = '0x400884D7'
VAR Ingots = '0x1BEF'
UO.FindType(Ingots,'-1','-1')
repeat
if UO.GetQuantity('finditem')>0 then
uo.usefromground('0x0ED4')
UO.FindType( Ingots, -1, -1 )
UO.MoveItem( 'finditem', 0, Meshok )
wait( 500 )
until UO.GetQuantity('finditem')==0
UO.Print( 'Kalyan' ) 
end sub