Yoko

All sides of Injection
It is currently 2026-01-17 19:17:35

All times are UTC+02:00




Post new topic  Reply to topic  [ 4 posts ] 
Author Message
PostPosted: 2004-12-23 15:12:33 
Offline

Joined: 2004-12-21 18:07:38
Posts: 3
В общем вот мое извращение:
sub recall()
uo.CancelMenu()
uo.WaitMenu ('Spell Circles','Fourth Circle','Spell Circle','Recall')
uo.UseType('0x0E34')
wait(4500)
uo.sayu(',exec recall')
end sub

Можете сделать его нормальным %). Тоесть заменить мое извращение с запуском скрипта командой sayu и добавить функцию чтоб после того как бланки закончились скрипт отключался. Я думаю это не сложно для знающих людей, помогите плиз, а то я в скриптах шарю на примитивном уровне %).


Top
   
 Post subject:
PostPosted: 2004-12-23 17:16:42 
Offline
Expert!
User avatar

Joined: 2004-10-15 22:38:04
Posts: 1396
Location: Moscow City.
1) "Дети, подняли головы и смотрим в правый угол экрана... Я кому сказал! Ищим надпись "По... так очем это я, ищим надпись "Поиск"
Кликаем на неё (1 раза должно хватить), справо от строки "Ключевые слова:" есть окошко ввода там мы напишим чтонить типо: "Э... так нето вот типо "Inscript", кликаем "Hайти", опять ждем, откроется страничка де можно будет найти все что угодно :lol:


2) Для криворуких и тд.
Пройдя пункт 1 обнаруженно.
Жалк непомню кто автор ;)
Code:
sub InscriptRecall()    
   UO.CancelMenu()
   UO.AutoMenu('Spell Circle 4','Recall')
   UO.AutoMenu('Spell Circles','Fourth Circle')
#Здесь вбей ИД сундука, из которго брать реги, бланки, и туда же будут складываться готовые реколы.
var Container='0x4005E6A9'
var exit=0

repeat
#Лепим свитки
while UO.Count('0x0E34','0x0000')>0 and exit<>1
      UO.DeleteJournal()
      UO.UseType('0x0E34','0x0000')
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")
         wait(500)
      wend   
#Если кончаются реги пополняем запас из сундука
if UO.Count('0x0F86')==0 then
   CheckLag()
   UO.FindType('0x0F86','0x0000',Container)
   If UO.GetQuantity('finditem')>0 Then
      UO.MoveItem('finditem','400','backpack')
   Else
      exit=1
      endif
   endif
if UO.Count('0x0F7A')==0 then
   CheckLag()
   UO.FindType('0x0F7A','0x0000',Container)
   If UO.GetQuantity('finditem')>0 Then
      UO.MoveItem('finditem','400','backpack')
   Else
      exit=1
      endif
   endif
if UO.Count('0x0F7B')==0 then
   CheckLag()
   UO.FindType('0x0F7B','0x0000',Container)
   If UO.GetQuantity('finditem')>0 Then
      UO.MoveItem('finditem','400','backpack')
   Else
      exit=1
      endif
   endif
wend   
CheckLag()
#Складываем готовые свитки в сундук
UO.FindType('0x1F4C')
while not UO.GetQuantity('finditem')==0
UO.MoveItem('finditem','0',Container)
wait(500)
UO.FindType('0x1F4C')
wend
#Достаём бланки из сундука
UO.FindType('0x0E34','0x0000',Container)
If UO.GetQuantity('finditem')>0 Then
      UO.MoveItem('finditem','250','backpack')
      endif   
wait(500)
until UO.GetQuantity('finditem')==0   
UO.CancelMenu()   
end sub

sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(500)
   until UO.InJournal('backpack')
end sub


Top
   
 Post subject:
PostPosted: 2004-12-24 16:01:29 
Offline

Joined: 2004-12-21 18:07:38
Posts: 3
I'm wrote:
1) "Дети, подняли головы и смотрим в правый угол экрана... Я кому сказал! Ищим надпись "По... так очем это я, ищим надпись "Поиск"
Кликаем на неё (1 раза должно хватить), справо от строки "Ключевые слова:" есть окошко ввода там мы напишим чтонить типо: "Э... так нето вот типо "Inscript", кликаем "Hайти", опять ждем, откроется страничка де можно будет найти все что угодно :lol:


2) Для криворуких и тд.
Пройдя пункт 1 обнаруженно.
Жалк непомню кто автор ;)
А теперь для особо непонятлевых или слишком умных, нафиг мне это ваше Г. мне нужен простой маленький скрипт, а ты суешь мне это гавно. В общем не умеешь или не хочешь сделать то что просят тогда нефиг постить тут, умник блин.

Поиск я уже юзал и нашел подходящий скрипт. Мне просто было интересно как командой exec запускать скрипт, поэтому и хотел не переделке моего скрипта узнать как это делается, но уже сам понял %). Так что тему можно закрывать.


Top
   
PostPosted: 2004-12-25 02:16:13 
Offline
Expert!
User avatar

Joined: 2004-10-15 22:38:04
Posts: 1396
Location: Moscow City.
Errorr wrote:
Можете сделать его нормальным %). Тоесть заменить мое извращение с запуском скрипта командой sayu и добавить функцию чтоб после того как бланки закончились скрипт отключался. Я думаю это не сложно для знающих людей, помогите плиз, а то я в скриптах шарю на примитивном уровне %).

На мой взгляд отвечает всем параметрам запроса.
А нафиг топик было делать коли в поиск зашел и все нашел?
Можно было в самом начале двинуться туда...
или нельзя надо чтоб дорогу указали?


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: No registered users and 5 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:  
cron
Powered by phpBB® Forum Software © phpBB Limited