Yoko

All sides of Injection
It is currently 2026-01-21 22:51:33

All times are UTC+02:00




Post new topic  Reply to topic  [ 8 posts ] 
Author Message
 Post subject: Make Last модуль
PostPosted: 2006-07-11 20:40:02 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
Code:
while uo.count( type , color )
Del('You put|fail|World Save')
uo.FindType( type , 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


вот собственно решыл выложыть... может комуто пригодится...
Code:
uo.ongump('with text','Make Last')

мне иногда крешыл, решыл трабл другим способом...

search keywords: Make Last makelast

удачи :twisted:

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2006-07-11 21:44:20 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
скрипт для БСа
делает буклер и ложыт их в мешок, когда мешок полный, кладёт в другой...
Code:
sub BS()
VAR Exit = 0, k, bag
VAR color = '0x052D'
VAR item = '0x1B73'
VAR chesttoput = '0x4009AECB'
VAR chestwithbags = '0x4009B6A4'
VAR chestwithings = '0x4009A0CD'

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.Count('0x1BEF') < 10 then
UO.FindType('0x1BEF', color , chestwithings )
UO.moveitem('finditem','100','backpack')
checklag()
end if

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

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

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2006-07-14 08:18:37 
Offline
User avatar

Joined: 2006-05-23 11:48:22
Posts: 145
Скрипт писал под даркуо подойдут и под олдп
Указываем рунбуки и ждемс
Code:

#by klonuk 11.07.06 www.darkuo.ru
sub Zaradka()
uo.Set('norbcheck','1')
 uo.Set('norbcalc','1')
uo.print("Ykagute book dla zaradki")
uo.exec('addobject recallbook')
while uo.targeting()
wait(100)
wend
UO.DeleteJournal()
repeat
UO.DeleteJournal()
uo.exec("recall recallbook 1")
wait(1000)

until UO.InJournal("for recharge|to recharge")
uo.Set('norbcheck','0')
 uo.Set('norbcalc','0')
endsub


_________________
Если бы Бог хотел, чтобы человек всегда думал головой, он создал бы Колобка...


Top
   
 Post subject:
PostPosted: 2006-09-29 16:29:26 
Offline
User avatar

Joined: 2004-12-23 12:05:53
Posts: 81
Spasibo Uze nenada otvet na vopros nashel sam Thx


Top
   
 Post subject:
PostPosted: 2006-09-29 17:04:53 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
Скрипт на make last для Forest Wars:

Code:
sub MakeLast()
UO.Say( '.makelast' )
endsub


:lol:

_________________
Ни один скрипт не работает? Пора обновить Инжект...
Все работает, но хочется большего? Пора переходить на стелс...


Top
   
 Post subject:
PostPosted: 2006-09-29 20:57:41 
Offline
Expert!
User avatar

Joined: 2005-05-20 20:30:10
Posts: 548
я не понял - для чего это :(

p.s. так же я не понял что за команда
Code:
Del('You put|fail|World Save') 


Top
   
 Post subject:
PostPosted: 2006-09-29 21:31:23 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
это функция скриптоваятеля. Приведена в конце скрипта.

Code:
Sub del(msg) 
   while uo.injournal(msg)
   uo.setJournalLine(uo.injournal(msg)-1,"Is Empty!")
   wend
end sub

_________________
Ни один скрипт не работает? Пора обновить Инжект...

Все работает, но хочется большего? Пора переходить на стелс...


Top
   
 Post subject:
PostPosted: 2006-09-29 21:49:00 
Offline
Expert!
User avatar

Joined: 2005-05-20 20:30:10
Posts: 548
а.. не заметил.. удобная вещь, сенк


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

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users 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