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
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
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