А вот есть еще старый вариант типа с продажей, все сделано на кликах, но работал нормал, на гампы не стал делать не из за того что не знаю из за чего, а просто глючил че то
Code: var Izdelie = '0x1413' ; горжетки var Box1 = '0x40074D1C' ; бокс где металл var Box2 = '0x40242D30' ; Бакпак персонажа var INSTR = '0x1EB8' ; инструмент тинкера var Metal = '0x1BF2' var kol_met = '2000' ; по сколько хапаем металла VAR MaxWeight= ((uo.STR*3.5)+39)
sub main() ; Так как сначала изготавливаем инструмент, то эта процедура делает инструмент uo.setreceivingcontainer(Box2) ; Бакпак по умолчанию приемный контейнер while not uo.dead() ; нет то берем uo.say('bank') wait(2000) uo.useobject(Box1) ; открываем бокс с металлом wait(1000) uo.findtype('0x0eed') ; Ищем золото и сбрасываем в сундук uo.moveitem('finditem','0',Box1) wait(1000) if uo.count(INSTR) < 2 then uo.findtype(INSTR,'-1',Box1) wait(500) UO.grab('1','finditem') Wait(2000) end if if uo.count(Metal) < 11 then ; ---- Если металла мало берем uo.findtype(Metal,'-1',Box1) wait(500) UO.grab(Kol_met,'finditem') Wait(1000) end if while uo.count('0x13E3') < 10 ; если молотков мало то делаем UO.usetype(INSTR) ; ---------- Делаем молотки wait(3000) UO.LClick(422,311) ; перелистываем на страницу wait(2000) UO.LClick(273,170) ; делаем молоток wait(6000) wend
while uo.count('0x0FBB') < 10 ; если тонгов мало то делаем UO.usetype(INSTR) ; ---------- Делаем тонги wait(3000) UO.LClick(422,311) ; перелистываем на страницу wait(2000) UO.LClick(275,148) ; делаем тонг wait(6000) wend go_bs() proizv() wend end sub
sub proizv() while uo.count(Metal) > 20 and UO.Weight < MaxWeight UO.usetype('0x13E3') ; ---------- Используем молоток wait(1500) UO.LClick(323,454) wait(5000) ; Изготовим последнюю вещь wend sell() end sub
sub go_bs() gotoxy(2520,579,1) gotoxy(2527,578,1) uo.opendoor() gotoxy(2527,572,1) gotoxy(2535,572,1) end sub
sub go_bank() gotoxy(2531,572,1) gotoxy(2526,577,1) uo.opendoor() gotoxy(2527,579,1) gotoxy(2519,579,1) gotoxy(2509,561,1) end sub
sub sell() var z,x, kol_ves kol_ves = uo.count(Izdelie) wait(500) gotoxy(2533,574,1) while kol_ves > 1 uo.say('Dag sell') wait(1000) for z=0 to 10 UO.LClick(213,77) ; Два раза на предмете wait(50) UO.LClick(213,77) ; wait(200) UO.LClick(343,199) ; на стрелке вниз wait(200) uo.print('prodano ' + str(z)) next UO.LClick(315,420) ; Кнопка Ацепт wait(500) kol_ves = uo.count(Izdelie) uo.print(str(kol_ves)) WAIT(1000) wend wait(500) go_bank() ; Бежим к банку end sub
;;;; Ходилка не знаю чья
Sub gotoxy(x,y,prec) VAR ld=0,ldc=0 VAR dx,dy VAR mx,my VAR ox,oy,mk,k
start: mx=Uo.GetX() my=Uo.GetY() dx=mx-x IF dx<0 then dx=0-dx endIF dy=my-y IF dy<0 then dy=0-dy endIF IF dy>dx then dx=dy End IF IF dx<=prec then return End IF IF dx<3 then mk=70 else mk=15 End IF ox=mx oy=my for k=1 to mk mx=Uo.GetX() my=Uo.GetY() IF mx<>ox or my<>oy then goto sdidapl End IF wait(10) next sdidapl: mx=Uo.GetX() my=Uo.GetY() dx=mx-x IF dx<0 then dx=0-dx endIF dy=my-y IF dy<0 then dy=0-dy endIF IF dy>dx then dx=dy End IF IF dx<=prec then return End IF IF ld==dx then ldc=ldc+1 ;IF ldc>50 then ; Uo.print("Zastrial!"+"***"+" "+Time()) ; Stoplocation = 1 ; return ; End IF else ld=dx End IF IF mx==x then IF my==y then return endIF IF my>y then Uo.Press(33) goto start endIF Uo.Press(35) goto start End IF IF mx<x then IF my>y then Uo.Press(39) goto start endIF IF my==y then Uo.Press(34) goto start endIF Uo.Press(40) goto start End IF IF my<y then Uo.Press(37) goto start endIF IF my==y then Uo.Press(36) goto start endIF Uo.Press(38) goto start
end sub
#++++++++++++++++++++++++++++++++ Sub Time() VAR Date,nTime,uTime,i uTime=str(Uo.Time()) nTime="" for i=0 to Len(uTime) nTime=uTime[Len(uTime)-i]+nTime IF (i==2) or (i==4) then nTime=":"+nTime End IF next uTime=str(Uo.Date()) Date="" for i=0 to Len(uTime) Date=uTime[Len(uTime)-i]+Date IF (i==2) or (i==4) then Date="."+Date End IF next uTime=nTime+" @ "+Date return uTime end sub #++++++++++++++++++++++++++++++++ Sub GetNumb(C,I) VAR J,T,K J=0 K=1 While K>0 J=J+1 IF (Mid(C,J,1)==" ") Or (J>=Len(C)-1) Then IF I==0 Then T=Val(Left(C,J)) Else T=GetNumb(Right(C,Len(C)-J-1),I-1) EndIF K=0 EndIF wend return T end sub
sub Metka_Tile() repeat uo.infotile() wait(1000) until false end sub
|