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

BS help!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3631		 Page 1 of 1
Author:  HellFire [ 2005-04-08 19:15:33 ]
Post subject:  BS help!
Дайте плиз скрипт на БС:чтобы делал брал инги из сундука,делал катаны,плавил и кушал... З.Ы. для ДРВ :roll:
еще можно впихнуть спирит спик) :lol:
Author:  HellFire [ 2005-04-09 17:56:21 ]
Post subject: 
народ ну помогите плиз... http://yoko.netroof.net/forum/viewtopic.php?t=689 этот скрипт не идет..пишет:No item found, хотя везде поменял,что надо.в Поиске ничего подходящего/работающего не нашел :(
Author:  Red dragon [ 2005-04-09 18:09:08 ]
Post subject: 
HellFire wrote:
народ ну помогите плиз... http://yoko.netroof.net/forum/viewtopic.php?t=689 этот скрипт не идет..пишет:No item found, хотя везде поменял,что надо.в Поиске ничего подходящего/работающего не нашел :(

Та же самая проблема.
Author:  Gromiz [ 2005-04-09 20:07:36 ]
Post subject: 
попробуйте......
положите в сундук море ингов....и в пак ингов скоко можете, и в руку молоток :arrow: запустите....

Code:
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
Author:  HellFire [ 2005-04-09 20:44:02 ]
Post subject: 
Gromiz wrote:
попробуйте......
положите в сундук море ингов....и в пак ингов скоко можете, и в руку молоток :arrow: запустите....

Code:
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:
Author:  Gromiz [ 2005-04-09 21:04:54 ]
Post subject: 
типы заменил на свои....???
и инги положил (туда-сюда?) и скуй 1 дагер сам...
Author:  HellFire [ 2005-04-09 23:13:49 ]
Post subject: 
Gromiz wrote:
типы заменил на свои....???
и инги положил (туда-сюда?) и скуй 1 дагер сам...

все спасибо... :lol:
Author:  HellFire [ 2005-04-09 23:17:02 ]
Post subject: 
может кто то сможет добавить в скрипт поедание фиш стейков и спирит спик? :(
Author:  Gromiz [ 2005-04-09 23:33:46 ]
Post subject: 
пробуй.......
Code:
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
Author:  Red dragon [ 2005-04-10 05:36:11 ]
Post subject: 
Gromiz wrote:
пробуй.......
Code:
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 проб. После Ворлд Сэве сбивается .
Author:  Gromiz [ 2005-04-10 10:42:07 ]
Post subject: 
а так??пробуй.......
Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/