Yoko
http://forum.yoko.com.ua/

Перетаскивать
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1948		 Page 1 of 1
Author:  zarg [ 2004-11-14 12:52:38 ]
Post subject:  Перетаскивать
Дайте пож скрипт чтобы чар перетаскивал все найденные объекты по типу в пешок
Author:  AGRS [ 2004-11-14 13:03:52 ]
Post subject: 
Code:
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
Author:  zarg [ 2004-11-14 14:23:09 ]
Post subject: 
AGRS wrote:
Code:
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

АГЕРЕСИК всегда выручит :)))) спасибо
Author:  zarg [ 2004-11-14 15:18:04 ]
Post subject: 
мда..... а настроить то я не смог :oops:
Author:  Yoko [ 2004-11-14 18:27:38 ]
Post subject: 
то что возможно надо менять Type, Color, Cont,'backpack',LootTime
то чего тут нет и надо либо писать либо выкидывать  CheckLag()

так что, как видишь, не всё так просто для тех, кто не хочет разбираться
Author:  AGRS [ 2004-11-14 21:18:47 ]
Post subject: 
Вах! Народ отсталый. Надо набор стандартных функций пособрать, в соседнем разделе опубликовать.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/