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

добовление к выкладке
http://forum.yoko.com.ua/viewtopic.php?f=20&t=17974
Page 1 of 1

Author:  dubd [ 2017-04-18 16:01:33 ]
Post subject:  добовление к выкладке

народ помогите солюшеном. кекс выкладывает логи в сундук:

Code:
sub DropToChest() 
if uo.Waiting() then
uo.CancelTarget()
end if
var a,Exit
dim Logs[1]
Logs[0]=0x1BDD
uo.SetReceivingContainer(Chest)
wait(500)
for a=0 to 0
Exit=0
repeat


ещё есть реагент с тайпом 0x0F90

подскажите пожалуйста - как правильней его добавить сюда!

Author:  Mirage [ 2017-04-19 11:51:57 ]
Post subject:  Re: добовление к выкладке

Так то это ад. :twisted:

Вообще скрипт должен выглядеть примерно вот так:

Code:
sub drop_reg()
   var BEKBag = '0x4054EA21' ; ID откуда скидывать
   var REGBag = '0x4040DA70' ; ID куда скидывать
   var n
   Dim r[2]
   r[1] = '0x1BDD'
   r[2] = '0x0F90'
   For n = 1 To 2
      UO.FindType( r[n] , -1 ,BEKBag)
      if UO.FindCount()
         UO.MoveItem( 'finditem', 0, REGBag)
         wait(500)
      endif
   next
end sub


Если в перспективе будешь добавлять элементы можно использовать такую конструкцию:

Code:
### Вспомогательные константы ###
VAR lootwait = 300
var timemove,TType,Color, SourceContainer,X,Y,Z
var ContFrom = uo.getserial('backpack')
var ContTarget = uo.getserial('lastcontainer')
### ################## ###

sub main1()
    PUT2(0xf0f, 0xf30, '-1', ContFrom, ContTarget,'','','')
endsub

sub main2()
    PUT1('0x0EED', '-1', ContFrom, ContTarget,'','','')
    PUT1(-1, '0x0482', ContFrom, ContTarget,'','','')
endsub

Sub PUT2(Type1, Type2, Color, SourceContainer, TargetContainer,X,Y,Z)
    for TType = Type1 to Type2
        PUT1(TType, Color, SourceContainer, TargetContainer,X,Y,Z)
    next
end sub
Sub PUT1(Type, Color, SourceContainer, TargetContainer,X,Y,Z)
    UO.FindType(Type, Color, SourceContainer)
    while UO.FindCount()
        timemove=UO.Timer()
        uo.MoveItem('finditem',0,TargetContainer,X,Y,Z)
        repeat
            wait(lootwait)
        until UO.ContainerOf('finditem')<>uo.GetSerial(TargetContainer) || timemove+30>UO.Timer()
        UO.FindType(Type, Color, SourceContainer)
    wend
end sub


Функции PUT1 и PUT2 второстепенные функции для передвижения, их куданибудь в конец скрипта закинуть ближе к чеклагу.
main1 - переместит все драгоценные камни из бэкпака в последний открытый контейнер.
main2 - переместит золото и все цветные вещи. Причем если кучек золота 5 - переместит все 5 кучек. Если 10 серебряных мечей и 2 серебряных лука - переместит все оружие 1 строкой.
Для просмотра типов предметов можно использовать программу инсайдУО - если предметы идут друг за другом как свитки камни бижутерия - можно взять 2 крайних типа и вставить без кавычек в процедуру put2. Если предметы раскиданы как тряпки или оружие то тип в кавычках вставляется в процедуру put1 друг за другом. :roll:

Author:  dubd [ 2017-04-19 16:26:31 ]
Post subject:  Re: добовление к выкладке

Мир спспспспспспс! ты все конструкции делаешь как по html5 :D то что я скинул, эт где то года 2005!

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