Перетаскивать

[zarg]

Дайте пож скрипт чтобы чар перетаскивал все найденные объекты по типу в пешок

[AGRS]

Code: Select all

SUB DropTypeToCont(Type, Color, Cont)
; Сбрасывание всех предметов типа (Type, Color) из пака в Cont
  Repeat
    UO.FindType(Type, Color, 'backpack')
    UO.Print('DropTypeToCont - '+STR(UO.FindCount()))
    If UO.FindCount()>0 Then
      UO.MoveItem('finditem', '0', Cont)
      Wait(LootTime)
      CheckLag()
    EndIf
    UO.FindType(Type, Color, 'backpack')
  Until UO.FindCount()<1
END SUB

[zarg]

Code: Select all

SUB DropTypeToCont(Type, Color, Cont)
; Сбрасывание всех предметов типа (Type, Color) из пака в Cont
  Repeat
    UO.FindType(Type, Color, 'backpack')
    UO.Print('DropTypeToCont - '+STR(UO.FindCount()))
    If UO.FindCount()>0 Then
      UO.MoveItem('finditem', '0', Cont)
      Wait(LootTime)
      CheckLag()
    EndIf
    UO.FindType(Type, Color, 'backpack')
  Until UO.FindCount()<1
END SUB

АГЕРЕСИК всегда выручит ))) спасибо

[zarg]

мда..... а настроить то я не смог

[Yoko]

то что возможно надо менять Type, Color, Cont,'backpack',LootTime
то чего тут нет и надо либо писать либо выкидывать  CheckLag()

так что, как видишь, не всё так просто для тех, кто не хочет разбираться

[AGRS]

Вах! Народ отсталый. Надо набор стандартных функций пособрать, в соседнем разделе опубликовать.