Yoko

All sides of Injection
It is currently 2024-03-28 21:41:34

All times are UTC+02:00




Post new topic  Reply to topic  [ 37 posts ]  Go to page Previous 1 2
Author Message
PostPosted: 2011-11-17 01:10:03 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Azazello1988 wrote:
Сделал под Гритстр


Code:
sub inviz()
   VAR Exit=0, LastTimer
   VAR Bag = '0x41d2cd13' ; Сумка где лежат реги
   VAR BaGofKeG ='0x41D2CDA1' ; Сумка где лежат кеги
   VAR Bag2 = '0x41d2cd3e' ; Сумка куда кидать полные кеги
   VAR Reg = '0x0F86' ; Рег
   uo.useobject( Bag )
   uo.useobject( Bag2 )
   uo.useobject( BaGofKeG )
   while Exit<>1
      UO.DeleteJournal()
      UO.FindType( Reg ,-1, 'backpack' ) ;
      If UO.GetQuantity('finditem')<10 then
         UO.FindType( Reg ,'0x0000', Bag )
         wait(1000)
         UO.Grab('770','finditem')
         wait(1000)
      Endif
      LastTimer=UO.Timer()
      UO.DeleteJournal()
      UO.UseType(Reg)
      UO.WaitMenu('What','Greater')
      wait(1000)
      If UO.InJournal("You have no") then
         UO.FindType('0x1940','0x0000', BaGofKeG )
         wait(500)
         uo.grab('1','finditem')
         wait(2000)
         UO.UseObject('finditem')
         UO.WaitTargetType('0x0F09')
         wait(1500)
         UO.UseObject('finditem')
         UO.WaitTargetObject('backpack')
         wait(1500)
         UO.FindType('0x1940','0x0000','backpack')
         wait(500)
         UO.MoveItem('finditem', '1', bag2 )
         wait(1500)
      Endif
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("Вы смешали") AND NOT UO.InJournal("Fail") AND NOT UO.InJournal("неудача") AND NOT UO.InJournal("You toss the failed")
         wait(50)
      wend
      If UO.InJournal("Вы смешали") then
         repeat
            wait(100)
         until UO.Timer()>=LastTimer+100
      Else
      EndIf
   wend
end sub
Разница же есть :) Сразу например видно что 4 строка снизу нафиг не нужна. Да собственно как и треть скрипта...

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
PostPosted: 2011-11-17 18:25:02 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
Вы куда все пропали? Вас наверное перебанили :lol:


Top
   
PostPosted: 2011-11-23 17:36:09 
Offline

Joined: 2011-11-14 14:16:06
Posts: 11
Скрипт на тайминг жуков\юников\найтов\драконов...
Code:
sub tamming()
uo.print('Kogo budem Priruchat?')
uo.exec('addobject kobyla')
while uo.targeting()
     wait(250)
wend
var i=0
uo.deletejournal()
while i==0
  uo.deletejournal()
  uo.waittargetobject('kobyla')
  uo.useskill('Animal Taming')
  while not uo.injournal('It seems|Приручить не')
     wait(300)
   wend
   if uo.injournal('as a master') then
      return
   endif   
wend

end sub


после запуска появляется таргет, таргетом на цель. Таймит пока не затаймит!

_________________
Алкоголик


Top
   
PostPosted: 2011-11-23 19:42:55 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Code:
sub AnimalTaming()
   UO.Print('Где эта скотина?')
   UO.Exec('addobject Animal')
   while uo.Targeting()
      wait(100)
   wend
   UO.DeleteJournal()
   while not UO.InJournal('It seems|see the creature|already|rememb')
      UO.DeleteJournal()
      UO.WaitTargetObject('Animal') 
      UO.Useskill('Animal Taming')
      repeat
         wait(100)
      until UO.InJournal('fail|It seems|already|rememb')
      wait(500)
      If Uo.InJournal('It seems|already') Then
         wait(1500)
         uo.useobject('Animal')
         Gong(3)
         return
      Endif
   wend
   Gong(2)
end sub
Sub Gong(times) ; play wav-file
   VAR i
   for i=1 to times
      UO.Exec("playwav C:\WINDOWS\Media\ringin.wav"); тут ВНИМАТЕЛЬНО укажи путь к файлу БЕЗ расширения
      wait(500) ; time to play sample at once
   next
end sub
так для ездовых лучше нано?

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
PostPosted: 2011-11-23 20:50:17 
Offline

Joined: 2011-11-14 14:16:06
Posts: 11
Ну да, с седланием оно лучше (:
а в макросе
Code:
Gong()
это рассчитано на оповещение?

_________________
Алкоголик


Top
   
PostPosted: 2011-11-23 21:57:25 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Ага. Когда садится делает ТА ДА ДА!

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
PostPosted: 2011-11-24 05:20:22 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
А что конкретно запрещено на сервере? Сам инжект или добыча ресурсов на скриптах? Дело в том, что подумываю побегать где-нибудь, 4-мя или 5-ю чарами. И конечно на ижекте, т.к. руками играть бееее :lol:


Top
   
PostPosted: 2011-11-24 06:46:20 
Offline

Joined: 2011-11-14 14:16:06
Posts: 11
ZeroDX wrote:
А что конкретно запрещено на сервере? Сам инжект или добыча ресурсов на скриптах? Дело в том, что подумываю побегать где-нибудь, 4-мя или 5-ю чарами. И конечно на ижекте, т.к. руками играть бееее :lol:

НУ.. на о1 добыча ресурсов запрещена, грубо говоря на всем кроме пилота (: на о2, разрешено на не полностью автоматическом макросе в 1 окно
Так же на о1, Инжект условно разрешен, на простейшем уровне, кастануть заклинание, хильнуться, взять пуху с щитом, слезть\сесть на лошадь... Автострелка запрещена, автолут запрещен, резать трупы\ресать\диспел(в каком-то роде, точно не знаю) на макросах запрещено юзать..

_________________
Алкоголик


Top
   
PostPosted: 2011-11-24 07:05:51 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
Я уже грубый нарушитель оказывается =(


Top
   
PostPosted: 2011-11-24 18:04:38 
Offline

Joined: 2011-11-14 14:16:06
Posts: 11
ZeroDX wrote:
Я уже грубый нарушитель оказывается =(

Угу, поэтому проще не бегать, дабы не попасть под раздачу )

_________________
Алкоголик


Top
   
PostPosted: 2011-11-24 18:14:37 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
Окей =) Все равно зайти не могу.


Top
   
PostPosted: 2011-11-25 20:01:46 
Offline

Joined: 2011-11-15 17:40:55
Posts: 5
Мужики, подскажите, на О2 на стрелах или штифтах боукрафт растёт?


Top
   
PostPosted: 2011-11-25 21:22:05 
Offline

Joined: 2011-11-14 14:16:06
Posts: 11
Azazello1988 wrote:
Мужики, подскажите, на О2 на стрелах или штифтах боукрафт растёт?

нет

_________________
Алкоголик


Top
   
PostPosted: 2012-02-26 19:21:27 
Offline

Joined: 2012-02-26 18:55:33
Posts: 2
Ребята, проблема с вышеуказанным макросом на майнинг. Начинает копать нормально, а потом возникает 3 проблемы:

1) то он очень торопиться и постоянно вылетает надписаь you loosen some ore....
2) после очередного копка, снова тыкает на кирку и вылетает сообщение "где нужно копать", но не копает, просто стоит....
3) частенько вылетает ошибка "Error: no target to cancel"

Помогите пжлста)

Заранее благодарен!


Top
   
PostPosted: 2012-12-26 02:19:29 
Offline
User avatar

Joined: 2012-12-22 19:14:29
Posts: 125
Ram wrote:
Ребята, проблема с вышеуказанным макросом на майнинг. Начинает копать нормально, а потом возникает 3 проблемы:

1) то он очень торопиться и постоянно вылетает надписаь you loosen some ore....
2) после очередного копка, снова тыкает на кирку и вылетает сообщение "где нужно копать", но не копает, просто стоит....
3) частенько вылетает ошибка "Error: no target to cancel"

Помогите пжлста)

Заранее благодарен!


Code:
sub mine()
 var waittime = 9000
 var x, y, i, t, tmp, inside, goto_x, st, first
 var ms1 = "there is nothing here to mine for"
 var ms2 = "Это слишком далеко отсюда."
 var ms3 = "You put the "
 var ms4 = "You loosen some rocks but fail to find any useable ore."
 var ms5 = "Тут не осталось руды."
 var ms6 = "туда вам не дотянуться"
 var ms7 = "you can't see that"
 var ms8 = "тут не осталось руды"
 var ms9 = "you you loosen some rocks but fail to find any useable ore"
 first=UO.GetX()
 start:
 inside=0
 for y=-2 to 2
  for x=-2 to 2
    while not UO.Hidden()
    uo.Warmode("0")
    uo.print("Hiding")
    uo.UseSkill("Hiding")
    wait(4000)
   wend
   repeat
    uo.deletejournal()
    t = UO.Timer()
    UO.Exec ("waittargettile "+" 1343 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
    UO.exec ("usetype 0x0E85")
    repeat
    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 waittime = 9000
 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)


те же самые траблы(((
1) то он очень торопиться и постоянно вылетает надписаь you loosen some ore....
2) после очередного копка, снова тыкает на кирку и вылетает сообщение "где нужно копать", но не копает, просто стоит....

скажите инжект читает сообщения на русском?


Top
   
PostPosted: 2014-02-18 19:04:56 
Offline
User avatar

Joined: 2012-12-22 19:14:29
Posts: 125
выложу то что "запрещено" до сих пор..

Code:
sub dogon()
   if uo.getglobal('check_dogon') == '0' then
      uo.setglobal('check_dogon','1')
      repeat
         if uo.getdistance('lasttarget') > 0 and UO.GetX('lasttarget') <> 0 then
            #if uo.getx('lasttarget') <> uo.getx() and uo.gety('lasttarget') <> uo.gety() and UO.GetX('lasttarget') <> 0 then
            #if UO.GetX('lasttarget') <> 0 then
            hod(UO.GetX('lasttarget'),UO.Gety('lasttarget'))
            wait(5)
         else
            wait(10)
         end if
      until 0
   else
      uo.setglobal('check_dogon','0')
      uo.exec('terminate dogon')
   end if
end sub

sub hod(xko,yko)
   var mx=UO.GetX()
   var my=UO.GetY()
   if mx == xko and my > yko then
      UO.Press(33)
   endif
   if mx == xko and my < yko then
      UO.Press(35)
   endif
   if mx < xko and my == yko then
      UO.Press(34)
   endif
   if mx < xko and my > yko then
      UO.Press(39)
   endif
   if mx < xko and my < yko then
      UO.Press(40)
   endif
   if mx > xko and my == yko then
      UO.Press(36)
   endif
   if mx > xko and my > yko then
      UO.Press(38)
   endif
   if mx > xko and my < yko then
      UO.Press(37)
   endif
end sub


Code:
sub WS_X_WS() 
   ; -----------------------------------------------------
   var LTimer, MyMana
   var mX = UO.GetX('laststatus')
   var mY = UO.GetY('laststatus')
   var mZ = UO.GetZ('laststatus')
   var mT = '400'
   ; -- Wall of Stone # 1 --------------------------------
   if UO.GetX('laststatus') > UO.GetX('self') then
      UO.WaitTargetTile( mT, STR(mX-2), STR(mY), STR(mZ))
      UO.Cast('Wall of Stone')
   else
      UO.WaitTargetTile( mT, STR(mX+2), STR(mY), STR(mZ))
      UO.Cast('Wall of Stone')
   endif
   LTimer = UO.Timer()
   MyMana = UO.Mana
   repeat
      wait(100)
   until UO.Mana < MyMana || UO.Timer() > LTimer+30
   ; -- Wall of Stone # 2 --------------------------------
   if UO.GetY('laststatus') > UO.GetY('self') then
      UO.WaitTargetTile( mT, STR(mX), STR(mY-2), STR(mZ))
      UO.Cast('Wall of Stone')
   else
      UO.WaitTargetTile( mT, STR(mX), STR(mY+2), STR(mZ))
      UO.Cast('Wall of Stone')
   endif
   LTimer = UO.Timer()
   MyMana = UO.Mana
   repeat
      wait(100)
   until UO.Mana < MyMana || UO.Timer() > LTimer+30
   ; -- Fire Field ---------------------------------------
   if UO.GetY('laststatus') > UO.GetY('self') then
      UO.WaitTargetTile( mT, STR(mX), STR(mY-2), STR(mZ))
      UO.Cast('Fire Field')
   else
      UO.WaitTargetTile( mT, STR(mX), STR(mY+2), STR(mZ))
      UO.Cast('Fire Field')
   endif
end sub


Code:
sub Loot4() 
   VAR i,Exit 
   DIM Loot[20]
   
   
   Loot[0]=0x0EED ; gp
   Loot[1]=0x0F7B ; BM
   Loot[2]=0x0F7A ; BP
   Loot[3]=0x0F84 ; GA
   Loot[4]=0x0F85 ; GI
   Loot[5]=0x0F86 ; MR
   Loot[6]=0x0F88 ; NS
   Loot[7]=0x0F8C ; SA
   Loot[8]=0x0F8D ; SS
   Loot[9]=0x1078 ;gray dragon hide
   Loot[10]=0x19B7 ;Dragon Ore 1
   Loot[11]=0x19B9 ;Dragon Ore 4
   Loot[12]=0x1411 ;arm
   Loot[13]=0x1410 ;arm
   Loot[14]=0x1414 ;arm
   Loot[15]=0x0E21 ;ban
   Loot[16]=0x0F78 ;batw
   Loot[17]=0x0F8B ;pumise
   Loot[18]=0x0F82 ;dragon`s blood
   Loot[19]=0x0F91 ;Wyrm's Hearts
   Loot[20]=0x0E34 ;blank scrolls
   UO.SetReceivingContainer('0x4163B13F') ;ID backpacka
   uo.waittargetobject('lastcorpse')
   uo.UseType('0x0F51')
   For i=0 to 20
      Exit=0
      repeat
         UO.FindType(Loot[i],-1,'lastcontainer')           
         if UO.GetQuantity('finditem') then
            UO.Grab('0','finditem')
            wait(100)
         Else
            Exit=1
         endif
      until Exit==1 OR uo.injournal("loot")
   Next 
   UO.UnSetReceivingContainer()
end sub


Code:
sub SortItem()
   var n_1, Wait_Time=1100
   Dim Items[13]
   Items[0] = 9
   Items[1] = '0x0E20' ; ????? ????
   Items[2] = '0x0E20' ; ?????? ???????
   Items[3] = '0x0F3F' ; ??????
   Items[4] = '0x1BFB' ; ?????
   Items[5] = '0x09B0' ; ????? (??????????) 1
   Items[6] = '0x0E20' ; ????? (??????????) 2
   Items[7] = '0x0E76' ; ????? (???????)
   Items[8] = '0x0EB5' ; ??????
   Items[9] = '0x0EFC' ; Shrink
   Items[10] = '0x0E25' ; Regen Hp
   Items[11] = '0x0E26' ; Regen Mana
   Items[11] = '0x0F06' ; blood
   Items[13] = '0x0F9E' ; scissors
   UO.Set('grabdelay','250')
   ;================================================= ===============
   ; ????????? ?????:
   ;================================================= ==========================
   If UO.Count('0x0F0B') Then ; Refresh
      REPEAT
         UO.FindType('0x0F0B','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>142 or UO.GetY('finditem')<>60 Then
               UO.MoveItem('finditem','all','-1','142','60','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x0F0E') Then ; BoTTLES
      REPEAT
         UO.FindType('0x0F0E','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>159 or UO.GetY('finditem')<>165 Then
               UO.MoveItem('finditem','all','-1','159','165','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x0F0D') Then ; Expolojn
      REPEAT
         UO.FindType('0x0F0D','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>44 or UO.GetY('finditem')<>60 Then
               UO.MoveItem('finditem','all','-1','44','60','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x0F09','0x0388') Then ; MAHKu
      REPEAT
         UO.FindType('0x0F09','0x0388','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>44 or UO.GetY('finditem')<>60 Then
               UO.MoveItem('finditem','all','-1','100','60','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x0F09','0x0060') Then ; uHBu3Ku
      REPEAT
         UO.FindType('0x0F09','0x0060','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>56 or UO.GetY('finditem')<>60 Then
               UO.MoveItem('finditem','all','-1','56','60','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x0F09','0x084D') Then ; stilkins
      REPEAT
         UO.FindType('0x0F09','0x084D','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>68 or UO.GetY('finditem')<>60 Then
               UO.MoveItem('finditem','all','-1','68','60','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x0F0C') Then ; Great Heal potion
      REPEAT
         UO.FindType('0x0F0C','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>77 or UO.GetY('finditem')<>60 Then
               UO.MoveItem('finditem','all ','-1','77','60','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   ; ????????? ????:
   ;================================================= ==========================
   If UO.Count('0x0E21') Then ; CLEAN BANDAGES
      REPEAT
         UO.FindType('0x0E21','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>152 or UO.GetY('finditem')<>85 Then
               UO.MoveItem('finditem','all','-1','152','85','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x0E79') Then ; CyMKa
      REPEAT
         UO.FindType('0x0E79','- 1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>162 or UO.GetY('finditem')<>75 Then
               UO.MoveItem('finditem','all','-1','162','75','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x0E9B') Then ; Stypka
      REPEAT
         UO.FindType('0x0E9B','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>70 or UO.GetY('finditem')<>170 Then
               UO.MoveItem('finditem','all','-1','70','170','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x0F51') Then ; DaggeR
      REPEAT
         UO.FindType('0x0F51','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>60 or UO.GetY('finditem')<>170 Then
               UO.MoveItem('finditem','all','-1','60','170','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x13F4 ') Then ; Crock
      REPEAT
         UO.FindType('0x13F4 ','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>110 or UO.GetY('finditem')<>160 Then
               UO.MoveItem('finditem','all','-1','110','160','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ======================
   If UO.Count('0x0EFA') Then ; Spell Book
      REPEAT
         UO.FindType('0x0EFA','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>160 or UO.GetY('finditem')<>35Then
               UO.MoveItem('finditem','all','-1','160','35','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x0EFC') Then ; Shrink
      REPEAT
         UO.FindType('0x0EFC','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>136 or UO.GetY('finditem')<>60 Then
               UO.MoveItem('finditem','all','-1','125','60','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x0E25') Then ; Regen Hp
      REPEAT
         UO.FindType('0x0E25','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>136 or UO.GetY('finditem')<>60 Then
               UO.MoveItem('finditem','all','-1','119','60','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x1F5F') Then ; fs
      REPEAT
         UO.FindType('0x0E26','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>136 or UO.GetY('finditem')<>60 Then
               UO.MoveItem('finditem','all','-1','100','60','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x1F4A') Then ; lt
      REPEAT
         UO.FindType('0x0E26','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>136 or UO.GetY('finditem')<>60 Then
               UO.MoveItem('finditem','all','-1','100','60','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x0F06') Then ; blood
      REPEAT
         UO.FindType('0x0F06','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>136 or UO.GetY('finditem')<>60 Then
               UO.MoveItem('finditem','all','-1','87','60','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   If UO.Count('0x0F9E') Then ; scissors
      REPEAT
         UO.FindType('0x0F9E','-1','2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>60 or UO.GetY('finditem')<>170 Then
               UO.MoveItem('finditem','all','-1','40','170','0')
               Wait(Wait_Time)
               UO.Ignore('finditem')
            Else
               UO.Ignore('finditem')
            End If
         End If
      Until UO.FindCount()==0 or UO.Dead()
   End If
   ;================================================= ==========================
   For n_1 = 1 TO Items[0]
      If UO.Count(Items[n_1]) Then
         REPEAT
            UO.FindType(Items[n_1],'-1','2')
            If UO.FindCount() Then
               If UO.GetX('finditem')<>150 or UO.GetY('finditem')<>135 Then
                  UO.MoveItem('finditem','all','-1','150','135','0')
                  Wait(Wait_Time)
                  UO.Ignore('finditem')
               Else
                  UO.Ignore('finditem')
               End If
            End If
         Until UO.FindCount()==0 or UO.Dead()
      End If
   Next
   UO.IgnoreReset()
   UO.Print("SortItem Done!")
end sub


Top
   
PostPosted: 2014-02-20 20:28:26 
Offline
User avatar

Joined: 2012-12-22 19:14:29
Posts: 125
поделитесь работаспособным минигом пофигу на что стелс изи инджу пилот итд..


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 37 posts ]  Go to page Previous 1 2

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 8 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited