Yoko :: Ребят, есть у кого скриптик?

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

Ребят, есть у кого скриптик? http://forum.yoko.com.ua/viewtopic.php?f=20&t=14447	Page 1 of 1

Author:	simbiot [ 2009-02-23 08:56:47 ]
Post subject:	Ребят, есть у кого скриптик?
Скрипт берет из сундука вещи разных мастей(химию) и кидает в сумку которая в бекпаке. Разные цвета химии по разным координатам сумки. Года 3 назад я воял себе такой скрипт, но потерял, и не помню че там писал. Очень выручите!! В зарание спасибо...

Author:	Kynep [ 2009-02-23 12:20:27 ]
Post subject:	Re: Ребят, есть у кого скриптик?
simbiot wrote: Скрипт берет из сундука вещи разных мастей(химию) и кидает в сумку которая в бекпаке. Разные цвета химии по разным координатам сумки. Года 3 назад я воял себе такой скрипт, но потерял, и не помню че там писал. Очень выручите!! В зарание спасибо... Code: UO.MoveItem('finditem', 'кол-во', 'backpack', 'x', 'y', 'z') x,y,z коорды в паке. 0,0,0 левый верхний угол пака

Author:

simbiot [ 2009-02-23 16:08:50 ]

Post subject:

Спасибо! Вот только количество не пашет

(

Вот такой скрипт берет из чаможана 1 хелку, а по сути должен 2

Code:

Sub ToEat()

var Chest='0x41208947'
var Typeheal='0x0F0C' ## - Хелы
var Cololrheal='0x0000' ## - Хелы


UO.FindType(Typeheal,Cololrheal,Chest)
If UO.GetQuantity('finditem') >= 1 Then
UO.MoveItem('finditem', '2' ,'backpack','150','50','0')
   Wait(500)
      EndIf
###################################
   EndIf
Else
   UO.Print("Netu HIMII")
EndIf
end sub

Author:	simbiot [ 2009-02-23 16:10:56 ]
Post subject:
И еще, как переделать что бы не в бекпак а в сумку которая в паке или гденить рядом

Author:

simbiot [ 2009-02-23 16:37:36 ]

Post subject:

Способен ли этот скрипт перетащить мне 5 хелок когда я в начале укажу откуда брать и куда тащить? Раньше я писал что-то вроде этого и он работал. Подскажите в чем проблема? Пожалуйста!

Code:

Sub ToEat()

uo.print('!!OTKYDA!! ')
uo.exec('addobject Chest')
while uo.targeting()
wait(100)
wend 

uo.print('!!KYDA!! ')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend

var Bag
var Chest
var Typeheal='0x0F0C' ## - Хелы
var Cololrheal='0x0000' ## - Хелы


UO.FindType(Typeheal,Cololrheal,Chest)
If UO.GetQuantity('finditem') >= 1 Then
UO.MoveItem('finditem', '5' ,'Bag','150','50','0')
   Wait(500)
      EndIf
   EndIf
Else
   UO.Print("Netu HIMII")
EndIf
end sub

Author:

simbiot [ 2009-02-23 19:37:53 ]

Post subject:

Вот поковырялся, вроде работает. Но че делать с количеством хз

Code:

Sub ToEat()

UO.Print( 'Select sending container' )
   UO.Exec('addobject TmpCont1')
   While UO.Targeting()
      Wait(100)
   Wend
   UO.Print( 'Select targeting container' )
   UO.Exec('addobject TmpCont2')
   While UO.Targeting()
      Wait(100)
   Wend

UO.FindType(0x0F0C,0x0000,'TmpCont1' )
      If UO.FindCount() > 0 Then
         UO.MoveItem( 'finditem', '0', 'TmpCont2','100','50','0')
   Wait(500)
      EndIf
   EndIf
Else
   UO.Print("Netu HIMII")
EndIf
end sub

А вот скриптик предлогает Edred, вообщем то я его и переделал. Он не работает, выдает ошибку на отмеченой строке:

Code:

sub AutoMove2()
; Автоматическое перекладывание некучкующихся предметов одного типа и цвета
; из одного контейнера в другой. Осуществляется драг на контейнер.
; v.1.05b (c) Edred
;
   VAR MyPause = 600
   VAR Type1, Color1, s, n, SerStopka, SumCol = 0, Howmany='200'
   UO.Print( 'Select sending container' )
   UO.Exec('addobject TmpCont1')
   While UO.Targeting()
      Wait(100)
   Wend
   UO.Print( 'Select targeting container' )
   UO.Exec('addobject TmpCont2')
   While UO.Targeting()
      Wait(100)
   Wend
   UO.Print( 'Select type for move' )
   UO.Exec('addobject TmpObj1')
   While UO.Targeting()
      Wait(100)
   Wend
   Type1 = UO.GetGraphic( 'TmpObj1' )
   Color1 = UO.GetColor( 'TmpObj1' )
   While UO.Targeting()
      Wait(100)
   Wend
   Howmany = UO.asmInputString("4",Howmany) ####Вот тут дает ошибку##
   If Howmany == '4' Then
      UO.Print( 'Invalid count of objects!' )
      return
   Endif
   repeat
      UO.FindType( Type1, Color1, 'TmpCont1' )
      If UO.FindCount() > 0 Then
         UO.MoveItem( 'finditem', '0', 'TmpCont2' )
         Wait( MyPause )
         CheckLag()
         SumCol = SumCol + 1
         If SumCol == val(Howmany) Then
            UO.Print( 'Script finished' )
            return
         Endif
      Else
         UO.Print( 'Script finished' )
         return
      Endif
   until False
endsub

Author:	Savage [ 2009-02-24 07:18:55 ]
Post subject:
Надо ставить мод на инжу ASM ищи в разлеле модификаций.

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/