Yoko

All sides of Injection
It is currently 2017-09-23 21:52:59

All times are UTC+02:00




Post new topic  Reply to topic  [ 3 posts ] 
Author Message
PostPosted: 2017-04-18 16:01:33 
Offline

Joined: 2012-07-27 23:43:14
Posts: 212
народ помогите солюшеном. кекс выкладывает логи в сундук:

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

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


Top
   
PostPosted: 2017-04-19 11:51:57 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2745
Location: Иваново
Так то это ад. :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:

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2017-04-19 16:26:31 
Offline

Joined: 2012-07-27 23:43:14
Posts: 212
Мир спспспспспспс! ты все конструкции делаешь как по html5 :D то что я скинул, эт где то года 2005!


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 3 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: Google [Bot] and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited