помогите определить действие скрипта
Posted: 2006-05-01 16:39:14
Code: Select all
Отличный скрипт на фишинг. Ловит: 1 тип трулек, 1 типпрайз, сети, а так же карты. Реколиится по 2м рункам полностью забитых рунами для ловли, 1 рунбука с 1 слотом домой, качает хайд, надо 2хауз сейфа или других сейфов таво типа. Спирит вроде не качает, скрипт будет доработан. Автор неизвестный, после доработки будет принадлежать гилде [Do3oP], так как все же здесь есть косяки, но не сильно действующие на ловлю, точнее в мешок для рыбок не скидывает рыбки, приходица возица, также будет доработан рес чара, но бомб и всякая хня подобного рода, а карты кидает по 200 в большие сумки.
#############################################
var book1='0x4015DF2C' #Рунбука 1 (Забитая рунами для ловли)
var book2='0x4015DDE6' # 2-ая (Забитая рунами для ловли)
var book3='0x40453217' # 3-ая (На первом месте руна к сейфам...остальные руны в этой рунбуке не используються)
var seifformap1='0x4004B30E' # 1сейф
var seifformap2='0x40295BD0' # 2-ой
var recall='0x1F4C' # Тип реколов
var meshok='0x0E75' # Тип простой сумочки(в неё карты складываться будут)
var mapa='0x14EB' # Тип кладовой карты
var Prize='0x0DD6' #Prize fish
var rare='0x0DD6' #Truly rare fish
var setka='0x0DCA' #An fishing net
var symkaprize='0x40295BD0' #Сумочка для рыбок маленьких
var ydochka='0x0DBF' # Тип удочки
var time
sub main()
var i
while not uo.dead()
for i=1 to 9
repeat
port(i,book1)
fish()
next
port(1,book3)
unload()
recharg(seifformap2,book1)
kolmap()
for i=1 to 9
repeat
port(i,book2)
fish()
next
port(1,book3)
unload()
recharg(seifformap2,book2)
kolmap()
wend
endsub
sub port(n,book)
var oldX=UO.GetX()
var oldY=UO.GetY()
NoTarget()
UO.UseObject(book)
FastLootCheck()
CheckLag()
UO.LClick(135, n*15+55)
time=UO.Timer()
Repeat
wait(500)
Until oldX<>UO.GetX() OR oldY<>UO.GetY() OR time+200<UO.Timer()
end sub
sub FastLootCheck()
UO.DeleteJournal()
wait(600)
if UO.InJournal("FastLoot") OR UO.InJournal("World save") then
CheckLag()
endif
end sub
sub NoTarget()
if UO.Waiting() then
UO.CancelTarget()
endif
end sub
sub fish()
hiding()
var i,j, isfishing
var mx = UO.GetX('self')
var my = UO.GetY('self')
var mz = UO.GetZ('self')
UO.DeleteJournal()
repeat
for i = mx-6 to mx+6
for j = my-6 to my+6
isfishing = 1
while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(251))
UO.Usetype(ydochka)
while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water")
wait(100)
wend
proverka()
if not UO.Hidden('self') then
hiding()
end if
proverka()
if UO.InJournal("treasure") or UO.InJournal("Prize") or UO.InJournal("rare") or UO.InJournal("net") then
UO.findtype(mapa,'0x0000','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Prize,'0x01BB','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x05FC','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x0607','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x0604','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x05EF','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x05E5','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x05EA','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x0600','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x05ED','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x0603','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x05E0','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x0601','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x05E9','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x05F6','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x05FA','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x0608','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x05F0','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x05F5','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(Rare,'0x05FB','ground')
UO.moveitem('finditem','-1','backpack')
wait(200)
UO.findtype(setka,'0x07D5','ground')
UO.moveitem('finditem','-1','backpack')
end if
proverka()
if UO.InJournal("out a fish") then
isfishing = 0
end if
wend
UO.DeleteJournal()
next
next
until 1
end sub
sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
endsub
sub hiding()
UO.Warmode("0")
while not UO.Hidden()
UO.DeleteJournal()
UO.UseSkill("Hiding")
while NOT UO.InJournal("You")
wait(1000)
wend
wend
end sub
sub unload()
hiding()
UO.FindType(mapa, '-1', 'backpack')
while UO.GetQuantity('finditem') > 0
UO.MoveItem('finditem','-1',seifformap1)
CheckLag()
Wait(700)
UO.FindType(mapa,'-1','backpack')
wend
UO.FindType(Prize, '-1', 'backpack')
while UO.GetQuantity('finditem') > 0
UO.MoveItem('finditem','-1',symkaprize)
CheckLag()
Wait(700)
UO.FindType(Prize,'-1','backpack')
wend
UO.FindType(rare, '-1', 'backpack')
while UO.GetQuantity('finditem') > 0
UO.MoveItem('finditem','-1',symkaprize)
CheckLag()
Wait(700)
UO.FindType(rare,'-1','backpack')
wend
UO.FindType(setka, '-1', 'backpack')
while UO.GetQuantity('finditem') > 0
UO.MoveItem('finditem','-1',seifformap2)
CheckLag()
Wait(700)
UO.FindType(setka,'-1','backpack')
wend
endsub
sub proverka()
if uo.injournal("attacking") and uo.injournal("you") then
uo.print("guards")
endif
if UO.Life<150 then
uo.say()
endif
endsub
sub recharg(syndyk,kniga)
uo.useobject(syndyk)
uo.findtype(recall,'-1',syndyk)
wait(3000)
uo.moveitem('finditem','9','backpack')
wait(3000)
uo.UseObject(kniga)
wait(3000)
uo.Lclick(296,91)
endsub
sub kolmap()
var k
var meshochek
uo.useobject(seifformap1)
uo.findtype(mapa,'-1',seifformap1)
if uo.findcount()>=200 then
uo.findtype(meshok,'-1',seifformap1)
meshochek=uo.getserial('finditem')
uo.moveitem('finditem','1','backpack')
k=0
while k<>255
UO.FindType(mapa,'0x0000',seifformap1)
UO.MoveItem('finditem','1',meshochek)
CheckLag()
wait(600)
k=k+1
wend
uo.findtype(meshok,'-1','backpack')
uo.moveitem('finditem','1',seifformap2)
endif 
