sub drop() var dr = '0x19B9' #Сюда тип uo.findtype(dr,'0x06D6','backpack') if uo.findcount() then uo.drophere('finditem') else uo.print ('Net dropa') end if end sub
Вот в этот мининг буду благодарен
Sub mine() var x, y, i, t, tmp, inside, goto_x, st, first VAR ms1 = "There is nothing here to mine for" VAR ms2 = "You can't use" VAR ms3 = "You put " VAR ms4 = "You loosen some rocks" VAR ms5 = "location" VAR ms6 = "Try mining" VAR ms7 = "You can't see that" VAR ms8 = "You stop" VAR ms9 = "That is too" first=UO.GetX() start: inside=0 for y=-1 to 1 for x=-1 to 1 repeat uo.deletejournal() t = UO.Timer() UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0") UO.exec ("usetype 0x0E85") 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 UO.InJournal(ms9) OR ((t + 100) < UO.Timer()) until not UO.InJournal(ms8) next next end sub
sub main() var i While UO.Life>0 for i=1 to 7 mine() uo.press(34) wait(500) uo.press(34) wait(500) uo.press(34) next uo.press(33) wait(500) uo.press(33) wait(500) uo.press(33) mine() for i=1 to 7 uo.press(36) wait(500) uo.press(36) wait(500) uo.press(36) next uo.press(33) wait(500) uo.press(33) wait(500) uo.press(33) wend end sub
Sub mine() var type = '0x19B9' #тип var color = '0x06D6' #цвет ### var x, y, i, t, tmp, inside, goto_x, st, first VAR ms1 = "There is nothing here to mine for" VAR ms2 = "You can't use" VAR ms3 = "You put " VAR ms4 = "You loosen some rocks" VAR ms5 = "location" VAR ms6 = "Try mining" VAR ms7 = "You can't see that" VAR ms8 = "You stop" VAR ms9 = "That is too" first=UO.GetX() start: inside=0 for y=-1 to 1 for x=-1 to 1 repeat uo.deletejournal() t = UO.Timer() UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0") UO.exec ("usetype 0x0E85") ## uo.findtype(type,color,'backpack') if uo.findcount() then uo.drophere('finditem') else uo.print ('Net dropa') end if ## 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 UO.InJournal(ms9) OR ((t + 100) < UO.Timer()) until not UO.InJournal(ms8) next next end sub
sub main() var i While UO.Life>0 for i=1 to 7 mine() uo.press(34) wait(500) uo.press(34) wait(500) uo.press(34) next uo.press(33) wait(500) uo.press(33) wait(500) uo.press(33) mine() for i=1 to 7 uo.press(36) wait(500) uo.press(36) wait(500) uo.press(36) next uo.press(33) wait(500) uo.press(33) wait(500) uo.press(33) wend end sub