Page 1 of 1

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

Posted: 2004-11-14 12:52:38
by zarg
Дайте пож скрипт чтобы чар перетаскивал все найденные объекты по типу в пешок

Posted: 2004-11-14 13:03:52
by 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

Posted: 2004-11-14 14:23:09
by zarg
AGRS wrote:

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

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

Posted: 2004-11-14 15:18:04
by zarg
мда..... а настроить то я не смог :oops:

Posted: 2004-11-14 18:27:38
by Yoko
то что возможно надо менять Type, Color, Cont,'backpack',LootTime
то чего тут нет и надо либо писать либо выкидывать  CheckLag()

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

Posted: 2004-11-14 21:18:47
by AGRS
Вах! Народ отсталый. Надо набор стандартных функций пособрать, в соседнем разделе опубликовать.