+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





