Одевалка для ПВП Альфа

[Thasd]

Подскожите скрипт чтобы сам oдевалcя у столбов.

Ja ranse polzovalsia etim macrom

Code: Select all

sub Stuff()
UO.LDblClick(334,233);pervi stolb
wait(200)
UO.LClick(209,305);lama
wait(150)
UO.LDblClick(334,233);pervi stolb
wait(150)
UO.LClick(209,186);binti
wait(200)
UO.LDblClick(334,233);pervi stolb
wait(200)
UO.LClick(210,205);potions
wait(150)
UO.LDblClick(334,233);pervi
wait(200)
UO.LClick(209,226);regentai
wait(150)
UO.LDblClick(377,277);ftaroi stolb
wait(200)
UO.LClick(144,205);armor
wait(150)
UO.LDblClick(422,322);trety stolb
wait(200)
UO.LClick(59,202);Swordsmaship
wait(150)
UO.LClick(173,206);Sword
wait(150)
UO.LDblClick(422,322);trety
wait(200)
UO.LClick(58,262);Archery
wait(150)
UO.LClick(214,205);Bow
end sub

No jesli ktonibut v etat mament prixodit na target UO.LDblClick mark sbivajetsa. Ja iscio probaval etat makr viewtopic.php?p=15058#15058 no stota on nerabotaet.

[I'm]

И почему поиск неработает нормально?

[Thasd]

Ja nasol adyn makr zdelani autoram "666Man666" nerabotaet.

Для молодых бойцов.(Скрипты для ПВП Альфа) viewtopic.php?p=15058#15058

######### Одевалка ##########
Сразу скажу, настраивать сложно, и муторно...
Одевается у столбов каторые !НЕ У БАНКА!

Code: Select all

sub Dress_alfa_man()
If UO.Dead() Then
   UO.Print("You are Dead")
   Return
End If
var n

Dim Select[4]
Select[0] = 3
Select[1] = '1'  ; Бинты
Select[2] = '12' ; Химия 2
Select[3] = '3'  ; Реги

Dim Item[4]
Item[0] = 3
Item[1] = '0x0E21'
Item[2] = '0x09B0'
Item[3] = '0x0E76'

If UO.GetGlobal('NorbcalcCheck')<>'yes' Then
   UO.Set('norbcalc','1')
   UO.SetGlobal('NorbcalcCheck','yes')
End If
If UO.GetGlobal('DressCheck')<>'on' Then
   UO.SetGlobal('DressCheck','on')
      If NOT UO.ObjAtLayer('Torso') or UO.Count('0x0EFA')==0 Then ;Проверка на пак
         UO.UseObject('backpack')
         Wait(1000)
      End If
      If UO.CountGround('0x0ED4','0x08BB') and UO.CountGround('0x0ED4','0x079B') Then
         If NOT UO.ObjAtLayer('Torso') Then
            UO.Recall('0x4001361C','7') ; Армор(Композит)
               REPEAT
                  Wait(300)
               Until UO.ObjAtLayer('Torso')
         End If
         If NOT UO.ObjAtLayer('Horse') Then
            UO.Recall('0x40013766','4') ; Зострич
               REPEAT
                  Wait(300)
               Until UO.ObjAtLayer('Horse')
         End If
         For n = 1 TO Select[0]
            If UO.Count(Item[n])==0 Then
               UO.Recall('0x40013766',Select[n])
               UO.DeleteJournal()
                  REPEAT
                     Wait(300)
                  Until UO.InJournal("You put")
            End If
         Next
         UO.Print('Done!')
      Else
         UO.Print("I don't see equipment stone!")
      End If
   UO.SetGlobal('DressCheck','off')
Else
   UO.Print("Wait")
End If
end sub