Yoko

All sides of Injection
It is currently 2025-12-22 09:41:54

All times are UTC+02:00




Post new topic  Reply to topic  [ 5 posts ] 
Author Message
PostPosted: 2005-06-30 14:18:52 
Offline

Joined: 2004-12-13 01:27:00
Posts: 190
Code:
var book1='0x4018BA23' 
var book2='0x40187C0F'
var book3='0x4006BD45' 
var seifformap1='0x4034D8E3' # 1 сэйф
var seifformap2='0x4035104F' # 2-ой
var recall='0x1F4C' # тип рекола
var meshok='0x0E76' # тип пустых мешков
var mapa='0x14EB' # тип мапы нерасшифрованной
var ydochka='0x0DC0' # тип удочки
var time
var tEat='0x097B' # тип еды(фишстэйки)
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()
ToEat()
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") then
UO.findtype(mapa,'0x0000','ground')
UO.moveitem('finditem','-1','backpack')
end if
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
endsub
sub proverka()
if uo.injournal("attacking") and uo.injournal("you") then
uo.say("НУ гнида...встречу выебу.")
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<>200
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
endsub
sub ToEat()
UO.UseObject(seifformap2)
UO.FindType(tEat,'0x0000',seifformap2)
if UO.FindCount() > 0 then
UO.MoveItem('finditem','20','backpack')
end if
repeat
CheckLag()
uo.UseType(tEat)
while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead()
wait(100)
wend
until uo.InJournal('too full') or UO.Dead()
UO.FindType(tEat, '0x0000','backpack')
if UO.FindCount() > 0 then
UO.MoveItem('finditem','20',seifformap2)
end if
end sub


Он открывает рунбуку, начинает тащить скролы рекала, патом появляется надпись Target Canceled и скролы остаютяс в паке, а бука не перезаряжается :(


Top
   
 Post subject:
PostPosted: 2005-06-30 22:59:01 
Offline
Expert!
User avatar

Joined: 2004-10-15 22:38:04
Posts: 1396
Location: Moscow City.
Code:
uo.UseObject(kniga) 
wait(3000)
uo.Lclick(296,91)

Меня так непрет.
Code:
uo.recall("id","1")

Юзаю так нет праблем.


Top
   
 Post subject:
PostPosted: 2005-06-30 23:08:25 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Для конкретного случая:
Code:
uo.UseObject(kniga) 
wait(3000)
uo.Lclick(296,91)

заменить на
Code:
uo.recall(kniga,'1')


Top
   
 Post subject:
PostPosted: 2005-06-30 23:49:06 
Offline

Joined: 2004-12-13 01:27:00
Posts: 190
Большое спасибо, отдельно эту часть скрипта нельзя почему то запустить... попробую застать ето в автономном режиме.


Top
   
 Post subject:
PostPosted: 2005-07-05 00:16:29 
Offline

Joined: 2004-12-13 01:27:00
Posts: 190
дык поможите люди добрые, скриптеры...


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

All times are UTC+02:00


Who is online

Users browsing this forum: Bing [Bot] and 3 guests


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:  
Powered by phpBB® Forum Software © phpBB Limited