Yoko
http://forum.yoko.com.ua/

Make Last модуль
http://forum.yoko.com.ua/viewtopic.php?f=20&t=8198		 Page 1 of 1
Author:  Nmy [ 2006-07-11 20:40:02 ]
Post subject:  Make Last модуль
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:
Author:  Nmy [ 2006-07-11 21:44:20 ]
Post subject: 
скрипт для БСа
делает буклер и ложыт их в мешок, когда мешок полный, кладёт в другой...
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
Author:  klonuk [ 2006-07-14 08:18:37 ]
Post subject: 
Скрипт писал под даркуо подойдут и под олдп
Указываем рунбуки и ждемс
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
Author:  Deivil [ 2006-09-29 16:29:26 ]
Post subject: 
Spasibo Uze nenada otvet na vopros nashel sam Thx
Author:  Edred [ 2006-09-29 17:04:53 ]
Post subject: 
Скрипт на make last для Forest Wars:

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


:lol:
Author:  Mihail [ 2006-09-29 20:57:41 ]
Post subject: 
я не понял - для чего это :(

p.s. так же я не понял что за команда
Code:
Del('You put|fail|World Save')
Author:  Edred [ 2006-09-29 21:31:23 ]
Post subject: 
это функция скриптоваятеля. Приведена в конце скрипта.

Code:
Sub del(msg) 
   while uo.injournal(msg) 
   uo.setJournalLine(uo.injournal(msg)-1,"Is Empty!") 
   wend 
end sub
Author:  Mihail [ 2006-09-29 21:49:00 ]
Post subject: 
а.. не заметил.. удобная вещь, сенк
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/