Yoko

All sides of Injection
https://yoko.uokit.com/

BS help!

https://yoko.uokit.com/viewtopic.php?t=3631

Page 1 of 1

BS help!

Posted: 2005-04-08 19:15:33
by HellFire
Дайте плиз скрипт на БС:чтобы делал брал инги из сундука,делал катаны,плавил и кушал... З.Ы. для ДРВ :roll:
еще можно впихнуть спирит спик) :lol:

Posted: 2005-04-09 17:56:21
by HellFire
народ ну помогите плиз... http://yoko.netroof.net/forum/viewtopic.php?t=689 этот скрипт не идет..пишет:No item found, хотя везде поменял,что надо.в Поиске ничего подходящего/работающего не нашел :(

Posted: 2005-04-09 18:09:08
by Red dragon
HellFire wrote:народ ну помогите плиз... http://yoko.netroof.net/forum/viewtopic.php?t=689 этот скрипт не идет..пишет:No item found, хотя везде поменял,что надо.в Поиске ничего подходящего/работающего не нашел :(
Та же самая проблема.

Posted: 2005-04-09 20:07:36
by Gromiz
попробуйте......
положите в сундук море ингов....и в пак ингов скоко можете, и в руку молоток :arrow: запустите....

Code: Select all

sub BlacksmithyIM() 

VAR Exit=0, LastTimer 
while Exit<>1 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем 
UO.UseType(0x1BEF) ;Инги айрона 

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(500) 
wend 

If UO.InJournal("You have failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 ;Время создания дагера 
EndIf 

UO.FindType('0x0F51',-1,'backpack')   ;тип дагера
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40167255) ; Форж 
Endif 

UO.FindType('0x1BEF',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x4013F8F2') ;Cундук с ингами 
wait(1000) 
UO.Grab('100','finditem') 
Endif 
wait(1000) 
wend 
wend 
end sub

Posted: 2005-04-09 20:44:02
by HellFire
Gromiz wrote:попробуйте......
положите в сундук море ингов....и в пак ингов скоко можете, и в руку молоток :arrow: запустите....

Code: Select all

sub BlacksmithyIM() 

VAR Exit=0, LastTimer 
while Exit<>1 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем 
UO.UseType(0x1BEF) ;Инги айрона 

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(500) 
wend 

If UO.InJournal("You have failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 ;Время создания дагера 
EndIf 

UO.FindType('0x0F51',-1,'backpack')   ;тип дагера
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40167255) ; Форж 
Endif 

UO.FindType('0x1BEF',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x4013F8F2') ;Cундук с ингами 
wait(1000) 
UO.Grab('100','finditem') 
Endif 
wait(1000) 
wend 
wend 
end sub
no item found :roll:

Posted: 2005-04-09 21:04:54
by Gromiz
типы заменил на свои....???
и инги положил (туда-сюда?) и скуй 1 дагер сам...

Posted: 2005-04-09 23:13:49
by HellFire
Gromiz wrote:типы заменил на свои....???
и инги положил (туда-сюда?) и скуй 1 дагер сам...
все спасибо... :lol:

Posted: 2005-04-09 23:17:02
by HellFire
может кто то сможет добавить в скрипт поедание фиш стейков и спирит спик? :(

Posted: 2005-04-09 23:33:46
by Gromiz
пробуй.......

Code: Select all

sub BlacksmithyIM() 
VAR Exit=0, LastTimer 

VAR eda = '0x097B'     ;тип еды
repeat 
UO.UseSkill('Spirit') 
wait (600) 
uo.usetype(eda) 
wait (300) 
CheckLag() 

while Exit<>1 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем 
UO.UseType(0x1BEF) ;Инги айрона 

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(500) 
wend 

If UO.InJournal("You have failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 ;Время создания дагера 
EndIf 

UO.FindType('0x0F51',-1,'backpack')   ;тип дагера
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40167255) ; Форж 
Endif 

UO.FindType('0x1BEF',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x4013F8F2') ;Cундук с ингами 
wait(1000) 
UO.Grab('100','finditem') 
Endif 
wait(1000) 
wend 
wend 
end sub 

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

Posted: 2005-04-10 05:36:11
by Red dragon
Gromiz wrote:пробуй.......

Code: Select all

sub BlacksmithyIM() 
VAR Exit=0, LastTimer 

VAR eda = '0x097B'     ;тип еды
repeat 
UO.UseSkill('Spirit') 
wait (600) 
uo.usetype(eda) 
wait (300) 
CheckLag() 

while Exit<>1 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем 
UO.UseType(0x1BEF) ;Инги айрона 

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(500) 
wend 

If UO.InJournal("You have failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 ;Время создания дагера 
EndIf 

UO.FindType('0x0F51',-1,'backpack')   ;тип дагера
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40167255) ; Форж 
Endif 

UO.FindType('0x1BEF',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x4013F8F2') ;Cундук с ингами 
wait(1000) 
UO.Grab('100','finditem') 
Endif 
wait(1000) 
wend 
wend 
end sub 

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
   UO.DeleteJournal() 
end sub
только 1 проб. После Ворлд Сэве сбивается .

Posted: 2005-04-10 10:42:07
by Gromiz
а так??пробуй.......

Code: Select all

sub BlacksmithyIM() 
VAR Exit=0, LastTimer 

VAR eda = '0x097B'     ;тип еды
repeat 
UO.UseSkill('Spirit') 
wait (600) 
uo.usetype(eda) 
wait (300) 
CheckLag() 

while Exit<>1 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем 
UO.UseType(0x1BEF) ;Инги айрона 

CheckLag() 
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(500) 
wend 

If UO.InJournal("You have failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 ;Время создания дагера 
EndIf 

UO.FindType('0x0F51',-1,'backpack')   ;тип дагера
wait(500) 
CheckLag() 
If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40167255) ; Форж 
Endif 
CheckLag() 
UO.FindType('0x1BEF',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x4013F8F2') ;Cундук с ингами 
wait(1000) 
UO.Grab('100','finditem') 
Endif 
wait(1000) 
wend 
wend 
end sub 

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
   UO.DeleteJournal() 
end sub
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited