помогите плиз вставить в этот скрипт еще сброс руды нишки до голды
sub main()
var i
uo.print("Poneslas`!!!")
While UO.Life>0
for i=1 to 12
kopat()
uo.press(34)
wait(500)
uo.press(34)
next
uo.press(34)
wait(500)
uo.press(34)
wait(500)
uo.press(34)
uo.print("Idem nazad!!!")
kopat()
for i=1 to 11
uo.press(36)
wait(500)
uo.press(36)
next
uo.press(36)
wait(500)
uo.press(36)
wend
end sub
sub kopat()
var where_x,where_y,coords,i
UO.DeleteJournal()
where_x=uo.getx()
where_y=uo.gety()
for i=-2 to 2
uo.print("Kopaem "+str(i+3)+"/5")
coords="waittargettile "+" 1339 "+str(where_x)+" "+str(where_y+i)+" 0"
uo.exec(coords)
uo.exec("usetype '0x0E86'")
UO.DeleteJournal()
repeat
wait(1000)
until (uo.inJournal("You stop mining") or uo.inJournal("far") or uo.inJournal("You can't mine or dig anything there.") or uo.inJournal("cannot mine") or uo.inJournal("dig") or uo.inJournal("stop") or uo.inJournal("mining elsewhere") or uo.inJournal("no line") or uo.inJournal("nothing"))
next
end sub
Toggle shoutbox Chat
|
Мининг Скрипт
Started by vasa2008, Feb 13 2014 23:43
1 reply to this topic
#1
Posted 13 February 2014 - 23:43
#2
Posted 22 August 2014 - 21:10
Темка старая... Но мало ли кому понадобится
Скидывает то что в процедуре Sub drop()
sub main() var x, y,z VAR LastTimer var ms1="can't see" var ms2="heavy" var ms3="location" var ms4="far away" var ms5="in rock" var ms6="elsewhere" var ms7="nothing" var ms8="You cannot mine" var ms9="Correct code." var h1="Gypsum" var h2="Zink" var h3="Stone" var h4="Marble" var h5="Sandstone" var h6="Plaster" var ore1="Marganece" var ore2="Iron" var ore3="Copper" var ore4="Tourmaline" var ore5="Tin" var ore6="Bronze" var ore7="Lead" var ore8="Corrundum" var ore9="Titan" UO.Set('finddistance','2') z=UO.GetZ("self") for x=-2 to 2 for y=-2 to 2 UO.Print(str(x)+" "+str(y)) Repeat UO.DeleteJournal() UO.Exec("warmode 0") UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),z) UO.UseType('0x0E85') CheckLag() LastTimer=UO.Timer() Repeat If uo.lastgump('replyed') == 0 && uo.lastgump('text') == 'Please enter code:' Then uo.textopen() uo.textprint('Ахтунг') While not uo.InJournal(ms9) wait(100) Wend End If wait(100) 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 UO.InJournal(ms8) or UO.InJournal(ms9) or UO.InJournal(ore1) or UO.InJournal(ore2) or UO.InJournal(ore3) or UO.InJournal(ore4) or UO.InJournal(ore5) or UO.InJournal(ore6) or UO.InJournal(ore7) or UO.InJournal(ore8) or UO.InJournal(ore9) or UO.InJournal(h1) or UO.InJournal(h2) or UO.InJournal(h3) or UO.InJournal(h4) or UO.InJournal(h5) or UO.InJournal(h6) or UO.Timer()>LastTimer+500 uo.exec("warmode 1") wait(50) uo.exec("warmode 0") Until UO.InJournal(ms3) or UO.InJournal(ms4) or UO.InJournal(ms5) or UO.InJournal(ms6) or UO.InJournal(ms7) or UO.InJournal(ore1) or UO.InJournal(ore2) or UO.InJournal(ore3) or UO.InJournal(ore4) or UO.InJournal(ore5) or UO.InJournal(ore6) or UO.InJournal(ore7) or UO.InJournal(ore8) or UO.InJournal(ore9) or UO.InJournal(h1) or UO.InJournal(h2) or UO.InJournal(h3) or UO.InJournal(h4) or UO.InJournal(h5) or UO.InJournal(h6) drop() next next end sub Sub drop() var i var amount=15 dim color[15] color[0]='0x06D6' ;Marganece color[1]='0x0000' ;Iron color[2]='0x0601' ;Copper color[3]='0x04C2' ;Tourmaline color[4]='0x052D' ;Tin color[5]='0x0488' ;Bronze color[6]='0x084D' ;Lead color[7]='0x060C' ;Corrundum color[8]='0x0453' ;Titan color[9]='0x03E3' ;Gypsum color[10]='0x0026' ;Zink color[11]='0x0909' ;Stone color[12]='0x079E' ;Marble color[13]='0x0090' ;Sandstone color[14]='0x0097' ;Plaster uo.ignorereset() repeat uo.deletejournal() for i = 0 to amount-1 uo.findtype('0x19B9',color[i],'backpack') if uo.Targeting()==1 then uo.canceltarget() end if If uo.findcount() > 0 then UO.WaitTargetObject('finditem') UO.Drophere('finditem') Wait(100) End If Next end sub Sub CheckLag() UO.DeleteJournal() UO.Click('backpack') repeat wait(100) until UO.InJournal("backpack") end sub
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users