Оскомовцв, собираемся тут.

Mirage · Post by **Mirage** » 2011-11-17 01:10:03

Azazello1988 wrote:Сделал под Гритстр

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 строка снизу нафиг не нужна. Да собственно как и треть скрипта...

ZeroDX · Post by **ZeroDX** » 2011-11-17 18:25:02

Вы куда все пропали? Вас наверное перебанили :lol:

Baal Shem Tov · Post by **Baal Shem Tov** » 2011-11-23 17:36:09

Скрипт на тайминг жуков\юников\найтов\драконов...

Code: Select all

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

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

Mirage · Post by **Mirage** » 2011-11-23 19:42:55

Code: Select all

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

так для ездовых лучше нано?

Baal Shem Tov · Post by **Baal Shem Tov** » 2011-11-23 20:50:17

Ну да, с седланием оно лучше (:
а в макросе

Code: Select all

Gong()

это рассчитано на оповещение?

Mirage · Post by **Mirage** » 2011-11-23 21:57:25

Ага. Когда садится делает ТА ДА ДА!

ZeroDX · Post by **ZeroDX** » 2011-11-24 05:20:22

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

Baal Shem Tov · Post by **Baal Shem Tov** » 2011-11-24 06:46:20

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

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

ZeroDX · Post by **ZeroDX** » 2011-11-24 07:05:51

Я уже грубый нарушитель оказывается =(

Baal Shem Tov · Post by **Baal Shem Tov** » 2011-11-24 18:04:38

ZeroDX wrote:Я уже грубый нарушитель оказывается =(

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

ZeroDX · Post by **ZeroDX** » 2011-11-24 18:14:37

Окей =) Все равно зайти не могу.

Azazello1988 · Post by **Azazello1988** » 2011-11-25 20:01:46

Мужики, подскажите, на О2 на стрелах или штифтах боукрафт растёт?

Baal Shem Tov · Post by **Baal Shem Tov** » 2011-11-25 21:22:05

Azazello1988 wrote:Мужики, подскажите, на О2 на стрелах или штифтах боукрафт растёт?

нет

Ram · Post by **Ram** » 2012-02-26 19:21:27

Ребята, проблема с вышеуказанным макросом на майнинг. Начинает копать нормально, а потом возникает 3 проблемы:

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

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

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

tyca7 · Post by **tyca7** » 2012-12-26 02:19:29

Ram wrote:Ребята, проблема с вышеуказанным макросом на майнинг. Начинает копать нормально, а потом возникает 3 проблемы:

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

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

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

Code: Select all

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) после очередного копка, снова тыкает на кирку и вылетает сообщение "где нужно копать", но не копает, просто стоит....

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

tyca7 · Post by **tyca7** » 2014-02-18 19:04:56

выложу то что "запрещено" до сих пор..

Code: Select all

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: Select all

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: Select all

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: Select all

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

tyca7 · Post by **tyca7** » 2014-02-20 20:28:26

поделитесь работаспособным минигом пофигу на что стелс изи инджу пилот итд..

Yoko

Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.

Re: Оскомовцв, собираемся тут.