Yoko

All sides of Injection
It is currently 2025-10-14 22:27:11

All times are UTC+02:00




Post new topic  Reply to topic  [ 4 posts ] 
Author Message
PostPosted: 2011-04-07 00:42:41 
Offline
User avatar

Joined: 2011-03-12 18:38:22
Posts: 2
Задумка следующая: 4ар кастует на себя стрелку, по исте4ению маны юзает спирит и медитирует. Если реги в паке закан4иваются,- добирает их в коли4естве 500шт из сейфа.
Code:
var NS=('0x0F88')
var BP=('0x0F7A')
sub strelka() #стрелка+спирит+медитация и добирает реги из сейфа#
while not uo.dead()
if uo.getquantity(NS)==0 then
doborNS()
wait(1000)
end if
if uo.getquantity(BP)==0 then
doborBP()
wait(1000)
end if
if uo.mana > 12 then
uo.cast('Magic Arrow')
uo.waittargetself()
wait(2100)
else
UO.UseSkill("Spirit Speak")
wait(3000)
while UO.Mana<UO.Int
UO.UseSkill("Meditation")
wait(3000)
wend
wait(2000)
end if
wend
end sub

sub doborNS()
uo.FindType(NS,'-1','0x40524901') # ID сейфа=0x40524901 #
uo.Grab('500','finditem')
wait(1000)
end sub

sub doborBP()
uo.FindType(BP,'-1','0x40524901')
uo.Grab('500','finditem')
wait(1000)
end sub


Проблема:
Если рег закан4ивается в бэкпаке,- 4ар на4инает его добирать до тех пор, пока не выберет весь из сейфа. Хотя я ставлю всего 500 шт.:(


Top
   
PostPosted: 2011-04-07 06:53:42 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Достаточно было прочитать уроки чтобы добиться от скрипта работоспособности ;)
Code:
var count = '0x40524901'
var i
sub strelka() #стрелка+спирит+медитация и добирает реги из сейфа#
   DIM reg[2]
   reg[0]='0x0F88'
   reg[1]='0x0F7A'
   while not uo.dead()
      for i = 0 to 1
         if uo.count(reg[i])<2 then
            dobor(reg[i])
         end if
      next
      if uo.mana > 12 then
         uo.waittargetself()
         uo.cast('Magic Arrow')
         wait(2100)
      else
         UO.UseSkill("Spirit Speak")
         wait(3000)
         while UO.Mana<UO.Int
            UO.UseSkill("Meditation")
            wait(3000)
         wend
         wait(2000)
      end if
   wend
end sub
sub dobor(item)
   uo.FindType(item,'-1',count)
   uo.Grab('500','finditem')
   wait(1000)
end sub

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
PostPosted: 2011-04-07 11:32:28 
Offline
User avatar

Joined: 2011-03-12 18:38:22
Posts: 2
Пасиба за помощь и за то, 4то не отпинали)
Я только у4усь :)


Top
   
PostPosted: 2011-04-07 12:40:49 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Честно с утра хотел чтото матное написать, так-как ошибка в принципе часто встречающаяся, но потом посмотрел - по мануалу скрипт написан правильно в принципе. Так что тут просто косметика.

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


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

All times are UTC+02:00


Who is online

Users browsing this forum: Bing [Bot] and 7 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