+1 скрипт без каментов как мужчина без достоинства, выглядит норм, а по назначению не работает!!!Уровень образования тут не причем...
Просто, если бы все было очевидно - тогда все сами писали бы скрипты, и выкладывать их смысла не имело бы.
А если выкладывать - так с комментами, как их пользовать (что в скрипте переписать, какие сундуки при этом нужны и т.д.)
У меня такая же проблема (скрипт не работает, пишет "You cannot see the target" - видимо, как раз про сундуки), сейчас пытаюсь разобраться - но пока без результата...
Toggle shoutbox Chat
|
BS
#21
Posted 10 January 2008 - 20:10
#22
Posted 02 October 2008 - 22:45
#23
Posted 23 February 2009 - 18:44
Del('You put|fail|World Save')
uo.FindType('0x1BEF', color ,'backpack')
checklag()
uo.recall(uo.GetSerial('finditem'), 3 )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
wend
end sub
можно исправить убрать от в del('You put|fail|World Save') слово fail
= del('You put|World Save')
и добавить в середину это:
if UO.InJournal('fail') then repeat endif
#24
Posted 23 February 2009 - 19:04
#25
Posted 23 February 2009 - 19:27
исправил фэил и добавил разгрузку и всё путём)
#27
Posted 23 February 2009 - 20:01
###Copyright to NMY### sub BS() VAR Exit = 0, k, bag VAR color = '0x06D6' VAR item = '0x1B76' VAR chesttoput = '0x400A568A' VAR chestwithbags = '0x40018C6D' VAR chestwithings = '0x40018C6D' uo.Deletejournal() uo.useobject(chesttoput) checklag() uo.useobject(chestwithbags) checklag() uo.useobject(chestwithings) checklag() while Exit<>1 If uo.injournal('World Save') then wait(30000) end if While not UO.Hidden() uo.warmode(0) UO.UseSkill('Hiding') Wait(4000) Wend check: uo.findtype('0x0E76', -1 , chesttoput ) if uo.findcount() then del('255|bag') uo.click('finditem') repeat wait(100) until uo.injournal('bag') if uo.injournal('255') then uo.ignore('finditem') goto check else bag = uo.getserial('finditem') end if else uo.findtype('0x0E76', -1 , chestwithbags ) bag = uo.getserial('finditem') uo.moveitem( bag , 0 , chesttoput ) checklag() end if find: uo.findtype( item , color ,'backpack') If UO.FindCount() Then UO.moveitem('finditem', 0 , bag ) checklag() goto find end if if UO.InJournal('fail') then repeat endif If UO.Count('0x1BEF') < 10 then UO.FindType('0x1BEF', color , chestwithings ) If uo.FindCount() == 0 then return end if UO.moveitem('finditem','100','backpack') checklag() end if If UO.Weight > 500 Then #Вес при котором разгружаться wait (500) itemdrop() endif Del('You put|World Save') uo.FindType('0x1BEF', color ,'backpack') checklag() uo.recall(uo.GetSerial('finditem'), 3 ) k = 0 while NOT UO.InJournal('You put') AND ( k < 30 ) k = k + 1 wait(500) wend wend end sub Sub checklag() del('backpack') uo.click('backpack') repeat wait(50) until uo.injournal('backpack') del('backpack') end sub Sub del(msg) while uo.injournal(msg) uo.setJournalLine(uo.injournal(msg)-1,"Is Empty!") wend end sub sub itemdrop() VAR LastTimer var Cont = '0x400CAE0B' # куда скидывать DIM type[1] type[1]=0x1B73 # сереал предмета который вы делаете wait(800) While UO.Count(type[1])>0 UO.FindType(type[1],-1,-1) UO.MoveItem('finditem',0,Cont) wait(400) uo.print(type[1]) Wend bs() end sub
#28
Posted 18 May 2009 - 10:02
shto nepravelna ?
#29
Posted 08 December 2015 - 06:26
а можно простенький скрипт без сумок и сундуков чтобы просто делал и плавип то что наделал и снова делал пока инги не кончатса.
тока зарегился , щас на острове очень бс нужен , а то даже 2 левалы люлей вешают в моем треше (
1 user(s) are reading this topic
0 members, 1 guests, 0 anonymous users