20 replies to this topic

[Aizen]

Приветствую всех. Переделал малость. Без килов энтов/элемов и т.д. тупо рубить/копать.

Тестил по паре часов оба скрипта. Вроде не глючат.

 

Забыл как под спойлер кидать...

Майнинг:Если появляется окно антимакроса встает на паузу пока не введете код (неверный код не вводил, поэтому незнаю какое сообщение появляется, если кто попробует напищите - добавлю в скрипт), выкидывает/пропускает все что указано в hX oreX. Разделил то что для кравта/починки домов и арма/вепов.

Если не надо что-то выкидывать/пропускать то удалить в 2х местах скрипта запись вида "or UO.InJournal(ore1)"- не будет выкидывать Marganece.

msX не трогать, иначе не будет копать.

Sub drop() найти "color[0]='0x06D6' ;Marganece", удалить строку. Упорядочить список. И изменить значения в var amount=15 dim color[15]. 

Последняя запись color[14] а в переменных указано 15. отсчет идет с 0, поэтому и 15

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(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(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 smelt()
   UO.set('finddistance',1)
   UO.IgnoreReset()
   While not uo.dead()
      UO.FindType('0x19B9',-1,'ground')
      UO.WaitTargetObject('finditem')
      UO.Grab('1','finditem')
      CheckLag()
      UO.UseType('0x19B7')
      wait(500)
   Wend
end sub

Sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(100)
   until UO.InJournal("backpack")
end sub

Sub test() #Вырубает все кроме main
   uo.exec('terminate alln_main')
end sub

Ламбер. Ничего не пропускат и не выкидывает. Если доберусь до него исправлю.

Изменять только "var read = 1" на 1/0. При маркировке "0" в паке должна быть кирка.

var MaxTraceDistance = 1 ; Максимальная длина обхода. Желательно ставить с расчета возможных препятсвий. Если ставить очень большие числа, кодилка может пойти в обход пол мира чтобы дойти к соседнему дереву.
var TraceLoopIncrease = 1 ; Увеличение MaxTraceDistance при исчерпании количества ходов.
var LimitTrace = 10 ; Сколько шагов в обе стороны от начальной точки обхода прекращают ходилку (выхода нет).
var Speed = 3 ; Сколько шагов делать за раз между проверками.
var DynamicPause = 30 ; Минимальные паузы в циклах. Чем меньше число - тем меньше рывков и тем больше нагрузка процессора.
var steptimer = 2 ; Таймер на шаг(Значение 1 = 100мс). Время за которое чар проходит 1 тайл, если за это время чар не сдвинется с места скрипт расценит это как препятствие и начнет обходить.
var read = 1      ;1 если считывать из файла, 0 если собирать из клиента

sub Lumberjacking()
   var flag, treecount = 0, clicks, TopX = 324, TopY = 65, i = 0, j = 0, k = 0, r = 0, q = 0, ii, jj, circle, timer, f = file("C:\trees.dat")
   dim TreeX[5000], TreeY[5000], TreeT[5000]
   dim TreeTile[29]
   TreeTile[0]=3277
   TreeTile[1]=3280
   TreeTile[2]=3283
   TreeTile[3]=3286
   TreeTile[4]=3289
   TreeTile[5]=3291
   TreeTile[6]=3294
   TreeTile[7]=3296
   TreeTile[8]=3299
   TreeTile[9]=3302
   TreeTile[10]=3393
   TreeTile[11]=3394
   TreeTile[12]=3395
   TreeTile[13]=3396
   TreeTile[14]=3415
   TreeTile[15]=3416
   TreeTile[16]=3417
   TreeTile[17]=3418
   TreeTile[18]=3419
   TreeTile[19]=3438
   TreeTile[20]=3439
   TreeTile[21]=3440
   TreeTile[22]=3441
   TreeTile[23]=3442
   TreeTile[24]=3460
   TreeTile[25]=3461
   TreeTile[26]=3462
   TreeTile[27]=3290
   TreeTile[28]=3288
   if read == 1 then
      uo.print("Download coordinates from a file...")
      f.open()
      treecount = safe call f.ReadNumber()
      for i = 1 to treecount
         TreeT[i] = safe call f.ReadNumber()
         TreeX[i] = safe call f.ReadNumber()
         TreeY[i] = safe call f.ReadNumber()
      next
      f.close()
   else
      uo.print("Collect coordinates of the client...")
      repeat
         clicks = 0
         flag = 0
         uo.deletejournal()
         uo.usetype("0x0F43")
         while not uo.targeting()
            wait(100)
         wend
         while uo.targeting()
            wait(100)
         wend
         uo.deletejournal()
         #####################
         # Проверяем дерево ли это #
         ###################
         flag = 0
         for k = 0 to 28
            if uo.lasttile(0) == TreeTile[k] then
               flag = 1
            end if
         next
         if uo.lasttile(1) == uo.getx() and uo.lasttile(2) == uo.gety() then
            flag = 2
         end if
         if flag == 1 then
            treecount = treecount + 1
            TreeX[treecount] = uo.lasttile(1)
            TreeY[treecount] = uo.lasttile(2)
            TreeT[treecount] = uo.lasttile(0)
            uo.print("Trees found "+str(treecount)+" : x="+str(uo.Lasttile(1))+" y="+str(uo.LastTile(2))+" "+str(treecount))
         end if
      until (flag == 2) or (treecount == 5000)
      uo.print("The coordinates of the trees recorded in the file C:\trees.dat")
      SaveToFile(treecount, TreeX, TreeY, TreeT)
   end if
   uo.print("Trees found: "+str(treecount))
   wait(2000)
   ##########################
   # Ходим по собранным координатам #
   #########################
   while 1 == 1
      if treecount > 0 then
         for i = 1 to treecount
            uo.print("Go to the tree "+str(i)+": x="+str(TreeX[i])+" y="+str(TreeY[i]))
            flag = Walker(TreeX[i], TreeY[i], 1)
            if flag == 1 then
               circle = 0
               repeat
                  uo.deletejournal()
                  uo.waittargettile(TreeT[i], TreeX[i], TreeY[i], uo.GetZ())
                  uo.usetype("0x0F43")
                  timer = uo.timer()
                  while not uo.injournal("far away|nothing|reach|stop") and not uo.timer() > timer + 300
                     wait(100)
                  wend
               until uo.injournal("far away|nothing")
            end if
         next
      end if
   wend
end Sub

Sub SaveToFile(treecount, TreeX, TreeY, TreeT)
   var f=file("C:\trees.dat")
   var s = 0, i = 0
   f.open()
   f.create()
   s=safe call f.writeln(treecount)
   for i = 1 to treecount
      s=safe call f.writeln(str(TreeT[i])+" "+str(TreeX[i])+" "+str(TreeY[i]))
   next
   f.close()
end Sub

Sub Walker(GoX, GoY, Prec)
   var LastDir
   var MoveRes
   var TracerCnt
   uo.setglobal("GlobalGoX", str(GoX))
   uo.setglobal("GlobalGoY", str(GoY))
   while not IsEnd(GoX,GoY,Prec)
      TracerCnt = MaxTraceDistance
      repeat
         LastDir=GoUntilHit(GoX,GoY,Prec)
         if IsEnd(GoX,GoY,Prec) then
            return 1
         end if
         MoveRes = FullAroundTrace(LastDir,GoX,GoY,Prec,TracerCnt)
         if TracerCnt > LimitTrace then
            return 0
         endif
         TracerCnt = TracerCnt + TraceLoopIncrease
      until MoveRes == 1
   wend
   return 1
end Sub

Sub FullAroundTrace(StartDir,GoX,GoY,Prec,MaxTrace)
   var LineX=UO.GetX()
   var LineY=UO.GetY()
   var CurDir=StartDir
   var Direction=CountDirection(GoX,GoY,CurDir,Prec)
   var StartX,StartY
   var MovesDone=0
   repeat
      StartX=UO.GetX()
      StartY=UO.GetY()
      CurDir=Tracer(CurDir,Direction,Prec)
      if (CurDir==GetDir(GoX,GoY,Prec)) then
         return 1
      endif
      if MovesDone>0 and PrevMoveCross(GetDirToDir(UO.GetDir(),Prec),LineX,LineY,GoX,GoY,StartX,StartY,Prec) then
         return 1
      end if
      MovesDone=MovesDone+1
      CurDir=AddToDir(CurDir,-Direction,Prec)
   until MovesDone>MaxTrace
   return 0
end Sub

Sub CountDirection(GoX,GoY,StartDir,Prec)
   var GoDir=GetDir(GoX,GoY,Prec)
   var MyX=UO.GetX()
   var MyY=UO.GetY()
   if GoDir<StartDir then
      return -1
   end if
   if GoDir>StartDir then
      return 1
   end if
   if Abs(MyX-GoX)>Abs(MyY-GoY) then
      if (GoDir==3) or (GoDir==7) then
         return -1
      else
         return 1
      end if
   else
      if (GoDir==1) or (GoDir==5) then
         return -1
      else
         return 1
      end if
   end if
end Sub

Sub PrevMoveCross(Dir,x1,y1,x2,y2,StartX,StartY,Prec)
   var x3,y3,x4,y4
   x3=StartX
   y3=StartY
   x4=StartX+(XFromDir(Dir)-StartX)*Speed
   y4=StartY+(YFromDir(Dir)-StartY)*Speed
   return LinesCrossing(x1,y1,x2,y2,x3,y3,x4,y4,Prec)
end Sub

Sub LinesCrossing(x1,y1,x2,y2,x3,y3,x4,y4,Prec)
   if x1==x3 and y1==y3 then
      return false
   end if
   var ua1=(x4-x3)*(y1-y3)-(y4-y3)*(x1-x3)
   var ub1=(y4-y3)*(x2-x1)-(x4-x3)*(y2-y1)
   var ua2=(x2-x1)*(y1-y3)-(y2-y1)*(x1-x3)
   var ub2=(y4-y3)*(x2-x1)-(x4-x3)*(y2-y1)
   #Check for parallel lines
   if (ub1 == 0) or (ub2 == 0) then
      return false
   end if
   var u1=ua1/ub1
   var u2=ua2/ub2
   if IsDiap(u1,0,1,0.01) and IsDiap(u2,0,1,0.01) then
      return true
   else
      return false
   end if
end Sub

Sub IsDiap(X,X0,X1,Prec)
   if X<=X0+Prec and X>=X1-Prec or X>=X0-Prec and X<=X1+Prec then
      return true
   end if
   return false
end Sub

Sub GoUntilHit(GoX,GoY,Prec)
   var LastDir
   LastDir=GetDir(GoX,GoY,Prec)
   var CouldMove
   repeat
      LastDir=GetDir(GoX,GoY,Prec)
      if LastDir<>0 and not IsEnd(GoX,GoY,Prec) then
         CouldMove=TurnAndGoDir(LastDir, Prec)
      end if
   until LastDir==0 or IsEnd(GoX,GoY,Prec) or not CouldMove
   return LastDir
end Sub

Sub IsEnd(GoX,GoY,Prec)
   if Abs(UO.GetX()-GoX)<=Prec and Abs(UO.GetY()-GoY)<=Prec then
      return true
   else
      return false
   end if
end Sub

Sub GetDir(GoX,GoY,Prec)
   var MyX=UO.GetX()
   var MyY=UO.GetY()
   var DiffX=Abs(UO.GetX()-GoX)
   var DiffY=Abs(UO.GetY()-GoY)
   var GoDir=0
   if (DiffX/(DiffY+0.1))>=2 then
      if (MyX>GoX) then
         GoDir=7
      else
         GoDir=3
      end if
   else
      if (DiffY/(DiffX+0.1))>=2 then
         if (MyY>GoY) then
            GoDir=5
         else
            GoDir=1
         end if
      else
         if (MyX>GoX) and (MyY>GoY) then
            GoDir=6
         else
            if (MyX>GoX) and (MyY<GoY) then
               GoDir=8
            else
               if (MyX<GoX) and (MyY>GoY) then
                  GoDir=4
               else
                  if (MyX<GoX) and (MyY<GoY) then
                     GoDir=2
                  end if
               end if
            end if
         end if
      end if
   end if
   return GoDir
end Sub

Sub Tracer(StartDir,Direction,Prec)
   var CurDir=StartDir
   var Result
   repeat
      Result=TurnAndGoDir(CurDir, Prec)
      if not Result then
         CurDir=AddToDir(CurDir,Direction,Prec)
      end if
   until Result
   return Result
end Sub

Sub AddToDir(Dir,Cnt,Prec)
   var NewDir=Dir
   NewDir=NewDir+Cnt
   while NewDir>8
      NewDir=NewDir-8
   wend
   while NewDir<1
      NewDir=NewDir+8
   wend
   return NewDir
end Sub

Sub XFromDir(Dir)
   if Dir==2 or Dir==3 or Dir==4 then
      return (UO.GetX() + 1)
   end if
   if Dir==6 or Dir==7 or Dir==8 then
      return (UO.GetX() - 1)
   end if
   return (UO.GetX())
end Sub

Sub YFromDir(Dir)
   if Dir==8 or Dir==1 or Dir==2 then
      return (UO.GetY() + 1)
   end if
   if Dir==4 or Dir==5 or Dir==6 then
      return (UO.GetY() - 1)
   end if
   return (UO.GetY())
end Sub

Sub TurnAndGoDir(Dir, Prec)
   var StartDir=GetDirToDir(UO.GetDir(), Prec), StartX=UO.GetX(), StartY=UO.GetY(), EndDir, timer
   #Start Primary test
   if GoDir(Dir, Prec) then
      return Dir
   else
      return 0
   end if
end Sub

Sub GetDirToDir(GotDir,Prec)
   var ChangedDir=-GotDir
   ChangedDir=AddToDir(ChangedDir,5,Prec)
   return ChangedDir
end Sub

Sub GoDir(Dir, Prec)
   var circle, StartDir=GetDirToDir(UO.GetDir(), Prec), StartX=UO.GetX(), StartY=UO.GetY(), EndDir, timer
   dim Dirs[9]
   Dirs[1]=35
   Dirs[2]=40
   Dirs[3]=34
   Dirs[4]=39
   Dirs[5]=33
   Dirs[6]=38
   Dirs[7]=36
   Dirs[8]=37
   var DistanceX=Abs(UO.GetX()-val(UO.GetGlobal("GlobalGoX")))
   var DistanceY=Abs(UO.GetY()-val(UO.GetGlobal("GlobalGoY")))
   var GoDistance
   if (DistanceX - Prec) < Speed and (DistanceX - Prec) > (DistanceY - Prec) then
      GoDistance=DistanceX - Prec
   else
      if (DistanceY - Prec) < Speed and (DistanceY - Prec) > (DistanceX - Prec) then
         GoDistance=DistanceY - Prec
      else
         GoDistance=Speed
      end if
   end if
   circle = 0
   repeat
      UO.Press(Dirs[Dir])
      timer = uo.timer() + steptimer
      repeat
         EndDir=GetDirToDir(UO.GetDir(), Prec)
         wait(DynamicPause)
      until StartDir<>EndDir or StartY<>UO.GetY() or StartX<>UO.GetX() or timer <= uo.timer()
      if StartDir<>EndDir then
         GoDistance = GoDistance + 1
         StartDir = EndDir
      end if
      circle = circle + 1
   until circle == GoDistance or GoDistance == 0 or timer <= uo.timer()
   if timer <= uo.timer() then
      return false
   else
      return true
   end if
end Sub

Sub Abs(X)
   if X>0 then
      return X
   else
      return ( - X)
   end if
end Sub

[ExTjUtY]

Eto kaneshno harasho chto zdelal ti takoj scp nu tut na injecti tokimi scp nekto nepolzujutsa, na easyuo vsjo proshe I bolshe funkcij tam ubevajet, letajet skidivajet, chinitsa itd. Na inject tut v osnavnom toka PvP scripti. Prosta dlja macrosa easyuo udobnej I pabolshe vazmoznostej.
P.S I da vapros zachem ti tam dobavljal etu pauzu na to kogda anti macros viletajet??? Eslji on viskakivajet toka pri ubijstvo npc, a tak kak on tebe tam neubevajet npc , zachem???

[Aizen]

Я на инжекте привык, да и не хочется учить новый язык с нуля. Пауза нужна, т.к. чар будет пытаться продолжить копать, стойт таймер по истечении которого чар переходит к следующему тайлу. т.е. пока висит табличка скрипт может "все выкопать" тупо скипнув все тайлы.

Простые скрипты - не жалко выложить. А вот посложнее бесплатно врядли кто даст.

Сейчас заканчиваю с реколами по шахтам, килом, разгрузкой/выгрузкой руды, хилок/бинтов/хавки, починка шмота и т.д. Ну и Сваливалка от врагов с таймаутом в N минут.

[Bunchara]

Привет ,запускаю твой скрипт и он эрор дает

http://radikal.ru/fp...daf7f3a7b36c16f

 

И еще не можешь добавить что бы персонаж уходил в инвиз когда кто-то рядом (Элементы например)

[Aizen]

Ошибка сразу вылетает или через некоторое время? У меня все нормально. Мб настройки на вкладке Main не верные. Закинь это в скрипт. Запускай через start а не через main

sub start()
uo.say(',exec main')
uo.say(',exec alert')
end sub

Sub alert()
   uo.deletejournal()
   While not uo.dead() 
      While not UO.InJournal(":")
         Wait(10)
      Wend
      If uo.injournal("[Chaos]") or uo.injournal("[Criminal]") or UO.InJournal("Elemental") Then
         uo.exec("warmode 1")
         wait(10)
         uo.exec("warmode 0")
         wait(100)
         uo.say(".drink invis")
         uo.textopen()
         uo.exec('terminate all')
      End If
      Wait(100)     
   Wend   
end Sub

[salaveciits]

Guys, please zdelaitje shtobi on posle plavki u banke nashol etat prokljatij Box, a to vsjo vremja "box not found"i script ostanavilsja. A nado shtobi postavil ingi v banke i obratno v kapalku - prodalzhal... Zaranije spasibo za assistance!

 

 

; Set Up The Following Variables:
set %maxWeight 620 ; Max svars
set %box AWWAMMD ; Kastes ID, kur likt ruudu
set %xCoord 2511 ; X koordinaata tieshi pie kastes
set %yCoord 560 ; Y koordinaata tieshi pie kastes
set %dropMarganece #true ; #true - nomet Marganece ruudu , #false - nenomet
set %dropTin #true ; #true - nomet tinu , #false - nenomet
set %dropBronze #true
set %dropLead #true
set %dropCorrundum #true
set %dropGold #false
set %dropTourmaline #true
set %dropSilver #true
set %dropMarble #false
set %dropZink #false
set %dropGypsum #false
set %dropSandstone #false
set %dropCopper #false
set %dropIron #false
set %dropTitan #false
set %dropStone #false
set %dropPlaster #false
set %skillItemChange #false ; #true - mainiis dreebes, #false - nemainiis
set %recall #true ; #true - lidos ar runebook, #false - skries taapat
; Do Not Set These Items If %skillItemChange #false
set %skillRobe xxxxxx ; Skill Roba (ID)
set %skillCloak xxxxx ; Skill Cloack (ID)
set %skillMask xxxxxx ; Skill Mask (ID)
set %simpleRobe xxxxx ; Parasta Roba (ID)
set %simpleCloak xxxxx ; Parastais cloack (ID)
set %simpleMask xxx ; Platemail helms (TYPE/ID)
; End Of Changable Clothes List
; Do Not Set These Numbers If %recall #false
set %runebookID XEBBMMD ; Runebooka ID
set %runeNumberToHome 1 ; Runas Nr uz maaju
set %runeNumberToCave 3 ; Runas Nr uz alu
set %amountRecalls 2 LXZRJMD ; cik recall panjemt, kad vinji beigushies
; End Of Set Up Part

set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH_RMK
set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL

if %recall
{
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToCave 3
}
if %dropMarganece
set %MarganeceCol 1750
if %dropTin
set %TinCol 1325
if %dropBronze
set %BronzeCol 1160
if %dropLead
set %LeadCol 2125
if %dropCorrundum
set %CorrundumCol 1548
if %dropGold
set %GoldCol 1093
if %dropTourmaline
set %TourmalineCol 1218
if %dropSilver
set %SilverCol 1153
if %dropMarble
set %MarbleCol 1950
if %dropZink
set %ZinkCol 38
if %dropGypsum
set %GypsumCol 995
if %dropSandstone
set %SandstoneCol 144
if %dropCopper
set %CopperCol 1537
if %dropIron
set %IronCol 0
if %dropTitan
set %TitanCol 1107
if %dropStone
set %StoneCol 2313
if %dropPlaster
set %PlasterCol 151
event sysmessage Setting Paperdoll in right position..
event macro 8 1
wait 30
event macro 8 1
wait 30
contpos 780 -26
finditem QRM_FJM_GKM C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 30
}
set %skill %skillRobe , _ , %skillCloak , _ , %skillMask
gosub gettingStarted
gosub initevents
set %k 0
set %lastK 0

start: ; KOORDINAATES


 GOSUB LJING
 GOSUB LJING

goto start

sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub element
gosub checkWeight
move %1 %2 1
finditem NPF_QPF C
if #findcnt = 0
{
display ok Pickaxe wasn't found!
pause
}
set #lobjectid #findid
event macro 17 0
target 7s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 10
set %overtime #scnt + 25
gosub scan
return

sub checkWeight
if #weight > %maxWeight
{
if ! %dropMarganece && ! %dropTin && ! %dropBronze && ! %dropLead && ! %dropCorrundum
+ && ! %dropGold && ! %dropTourmaline && ! %dropSilver && ! %dropMarble && ! %dropZink
+ && ! %dropGypsum && ! %dropSandstone && ! %dropCopper && ! %dropIron
+ && ! %dropTitan && ! %dropStone && ! %dropPlaster
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropMarganece || %dropTin || %dropBronze || %dropLead || %dropCorrundum
+ || %dropGold || %dropTourmaline || %dropSilver || %dropMarble || %dropZink
+ || %dropGypsum || %dropSandstone || %dropCopper || %dropIron || %dropTitan || %dropStone || %dropPlaster
{
gosub dropTrashLogs
return
}
}
return



sub scan
scan:
scanjournal
gosub checkHP
if hungry in #sysmsg
{
gosub eat
return
}
if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) )
return
if ( ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) )
return
%get fixed
if ( ( Try_mining_elsewhere in #sysmsg ) || ( You_have_no_line_of_sight_to_that_location in #sysmsg )
+ || ( You_can't_use_the in #journal ) || ( You_cannot_mine_so_close_to_yourself in #journal ) )
return
gosub element
gosub checkHP
if #scnt >= %overtime
return
goto scan
return

sub port
msg .arm$
gosub checkHP
set %k %k + 1
gosub element
if G in #charstatus
event macro 6 0
event macro 6 0
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
repeat
{
click %x1 %y1
wait 10
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 21
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
gosub moveItems
gosub back
return

sub moveItems
ignoreitem reset 1
ignoreitem %simpleRobe , _ , %simpleCloak 1
ignoreitem %skill 1
gosub runToBox
gosub Plavka
event macro 13 21
finditem %box G_3
wait 10
if #findcnt = 0
{
event Sysmessage Box Not Found!
halt
}
repeat
{
finditem %item c_ , #backpackid
if #findcnt >= 1
{
if world_save_has_been in #sysmsg
wait 15s
exevent Drag #Findid #findstack
exevent Dropc %box
wait %dropDelay
}
}
until #findcnt = 0
ignoreitem reset 1
if %recall
gosub recalls
gosub food
return

sub back
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
{
gosub openRunebook
click 261 215 ; Recharge runebook 2x
wait 10
}
gosub openRunebook
repeat
{
click %x2 %y2
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 21
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
return

sub runToBox
repeat
{
move %xCoord %yCoord 0 3s
wait 10
}
until #charposx = %xCoord && #charposy = %yCoord
return

sub follow&kill
msg .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
wait 20
gosub loot
set %time #scnt + 20
repeat
{
event pathfind %charX %charY %charz 1 3s
wait 1s
gosub ghost
if #scnt > %time
return
}
until #charposx = %charX && #charposy = %charY
return

sub checkHP
if #hits < #maxhits
{
msg .arm$
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
gosub follow&kill
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
}
return

sub openRunebook
finditem %runebookID C_ , #backpackid
if #findcnt = 0
{
event sysmessage Runebook not found!
halt
}
set #lobjectid #findid
event macro 17 0
while #contname <> generic_gump && #contsize <> 577_426
wait 1
return

sub ghost
if #charghost = YES || %0 = 1
{
terminate uo
halt
}
return

sub changeClothesTo
repeat
{
finditem %1 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %1 C_ , #backpackid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %3 C_ , #backpackid
}
until #findcnt = 0
return

sub fixed
set %k %k + 1
%to %bca %be # . %all
{
repeat
{
set %up # . %cares
%done %start , _ , %else %end , _ , %up
%lastdo %race # . %Wsave
%lastdo %eaea # . %alpha # . %beta # . %gamma
%upgrade 25
%done %start , _ , %else %end , _ , %up
}
until # . %gems = 0
}
return

sub eat
finditem ZBM C
set #lobjectid #findid
event macro 17 0
wait 10
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 10
event macro 17 0
wait 2s
return

sub initevents
set %rescourse finding
str left %rescourse 4
set %save #strres
set %done %save , item
set %iii kill
str left string 1
set %asd #strres , %iii
set %start % . %asd
str left CADY 1
set %end #strres
str left character 4
set %who #strres
set %cares %who , id
str left %do 4
set %lastdo ex , #strres , t
set %race dragrace
str left %race 4
set %race #strres
set %Wsave %save , id
str right skopg 3
set %jasl #strres
str left drive 2
set %eaea #strres , %jasl
str left post 3
set %number %who , #strres
set %alpha %number , x
set %beta %number , y
set %gamma %number , z
set %repsawn waitrespawn
str left %repsawn 4
set %upgrade #strres
str left tilbery 3
set %almost #strres
str left unuquady 2
set %past #strres , %almost
set %gems %save , cnt
set %else IJG
return

sub Instalyze
if % . %1 <= 8
set %x . %2 260
else
set %x . %2 420
if % . %1 = 1 || % . %1 = 9
set %y . %2 260
if % . %1 = 2 || % . %1 = 10
set %y . %2 275
if % . %1 = 3 || % . %1 = 11
set %y . %2 290
if % . %1 = 4 || % . %1 = 12
set %y . %2 305
if % . %1 = 5 || % . %1 = 13
set %y . %2 320
if % . %1 = 6 || % . %1 = 14
set %y . %2 335
if % . %1 = 7 || % . %1 = 15
set %y . %2 350
if % . %1 = 8 || % . %1 = 16
set %y . %2 365
return

sub dropTrashLogs
dropLoop:
finditem ZLK_DWJ C_ , #backpackid
if #findcnt = 0
{
wait 20
if #weight >= %maxweight
{
if %recall
gosub port
if ! %recall
gosub moveItems
return
}
if #weight < %maxweight
return
}
if #findcol = %MarganeceCol || #findcol = %TinCol || #findcol = %BronzeCol
+ || #findcol = %LeadCol || #findcol = %CorrundumCol
+ || #findcol = %GoldCol || #findcol = %TourmalineCol || #findcol = %SilverCol
+ || #findcol = %MarbleCol || #findcol = %ZinkCol
+ || #findcol = %GypsumCol || #findcol = %SandstoneCol || #findcol = %CopperCol
+ || #findcol = %IronCol || #findcol = %TitanCol
+ || #findcol = %StoneCol || #findcol = %PlasterCol
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 20
}
ignoreitem #findid 1
wait 10
goto dropLoop
return

sub loot
set %lootTime #scnt + 20
finditem YFM G_4
if #findcnt >= 1
{
set #lobjectid #findid
set %body #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt
wait 1
wait 10
repeat
{
finditem %loot C_ , %body
if #findcnt = 0 || #scnt > %lootTime
{
ignoreitem %body 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 40
}
until #false
}
return

sub gettingStarted
set %afk true
set %ell qaerty
str left %ell 1
set %abc #strres , #strres , #strres
set %a1 #strres
str left %ell 2
str right #strres 1
set %cba %abc , #strres , %a1
set %bca %cba , #strres
str right %afk 1
set %bca %bca , #strres
set %bra %bca , b
set %n1 nlogif
str right %n1 2
set %to #strres
str left %n1 1
set %be #strres
str right %n1 2
str left #strres 1
set %be #strres , %be
set %tour jour
set %navigate nalliwate
str left %navigate 3
set %all %tour , #strres
set %navigate gost
str left %navigate 3
set %ac #strres
str right pub 2
set %get %ac , #strres
set %do events
str right linit 4
set %toGo #strres , %do
return

sub element
if %lastK >= %k
gosub ghost 1
set %lastK %k
finditem ED G
if #findcnt <> 0
{
msg .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
finditem ED G
set %element #findid
msg .arm$
set #ltargetid %element
event macro 27 0
repeat
{
finditem %element
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
wait 20
gosub loot
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
set %time #scnt + 20
repeat
{
event pathfind %charX %charY %charz 1 3s
wait 1s
gosub ghost
if #scnt > %time
return
}
until #charposx = %charX && #charposy = %charY
}
return

Sub Plavka
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return

sub recalls
finditem WTL C_ , #backpackid
if #findstack <= 2 || #findcnt = 0
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
wait 20
finditem WTL C_ , %box
exevent drag #findid %amountRecalls
exevent dropc #backpackid
wait 20
}
return

[Aizen]

Это раздел инжекта.

[Bunchara]

Спасибо Дружище !! пойду попробую 

[Aizen]

Если опять вылетит то заметь на каком этапе - при хождении, выгрузке и .т.д

[Bunchara]

 

Ошибка сразу вылетает или через некоторое время? У меня все нормально. Мб настройки на вкладке Main не верные. Закинь это в скрипт. Запускай через start а не через main

sub start()
uo.say(',exec main')
uo.say(',exec alert')
end sub

Sub alert()
   uo.deletejournal()
   While not uo.dead() 
      While not UO.InJournal(":")
         Wait(10)
      Wend
      If uo.injournal("[Chaos]") or uo.injournal("[Criminal]") or UO.InJournal("Elemental") Then
         uo.exec("warmode 1")
         wait(10)
         uo.exec("warmode 0")
         wait(100)
         uo.say(".drink invis")
         uo.textopen()
         uo.exec('terminate all')
      End If
      Wait(100)     
   Wend   
end Sub

 

Это тупо в конец скрипта засунуть?

[ExTjUtY]

To salavecis

sub moveItems
ignoreitem reset 1
ignoreitem %simpleRobe , _ , %simpleCloak 1
ignoreitem %skill 1
gosub runToBox
gosub Plavka
event macro 13 21
finditem %box G_3
wait 10

pamegini pamainit uz finditem XXXXX - X vieta boxa Id ieraksti

[Bunchara]

Я извиняюсь , по русски можно ? 

[Bunchara]

Не эрор тажке вылетакт

[salaveciits]

To salavecis

sub moveItems
ignoreitem reset 1
ignoreitem %simpleRobe , _ , %simpleCloak 1
ignoreitem %skill 1
gosub runToBox
gosub Plavka
event macro 13 21
finditem %box G_3
wait 10

pamegini pamainit uz finditem XXXXX - X vieta boxa Id ieraksti

 

Es ieliku box ID, pasties lejaa, bet tas pats, BOx not found

 

sub moveItems
ignoreitem reset 1
ignoreitem %simpleRobe , _ , %simpleCloak 1
ignoreitem %skill 1
gosub runToBox
gosub Plavka
event macro 13 21
finditem %box AWWAMMD
wait 10
if #findcnt = 0

[ExTjUtY]

bez %box finditem AWWAMMD

[salaveciits]

ok meegjinu...

[salaveciits]

neee tas pats, grrrrrrr

Ir idejas kaa lai palaizh?

[Aizen]

Не эрор тажке вылетакт

Попробуй ламбер. Если вылетит то знач проблема инжы. И сделай скрин настроек инжы Main

[Bunchara]

вот

[Aizen]

http://c2n.me/iQjtp6

У тебя чтото с инжой. Скачай новый. Для всех версия клиентов, не требует прописывать в ilpatch ничего

http://forum.yoko.co...pic.php?p=94698

Да и еще. Ошибка то когда вылетает? Сразу?