BS help!

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
HellFire
Posts: 89
Joined: 2004-10-02 23:47:48

BS help!

Post by HellFire »

Дайте плиз скрипт на БС:чтобы делал брал инги из сундука,делал катаны,плавил и кушал... З.Ы. для ДРВ :roll:
еще можно впихнуть спирит спик) :lol:
Top
HellFire
Posts: 89
Joined: 2004-10-02 23:47:48

Post by HellFire »

народ ну помогите плиз... http://yoko.netroof.net/forum/viewtopic.php?t=689 этот скрипт не идет..пишет:No item found, хотя везде поменял,что надо.в Поиске ничего подходящего/работающего не нашел :(
Top
Red dragon
Posts: 25
Joined: 2005-04-04 20:45:29

Post by Red dragon »

HellFire wrote:народ ну помогите плиз... http://yoko.netroof.net/forum/viewtopic.php?t=689 этот скрипт не идет..пишет:No item found, хотя везде поменял,что надо.в Поиске ничего подходящего/работающего не нашел :(
Та же самая проблема.
Top
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Post 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
Top
HellFire
Posts: 89
Joined: 2004-10-02 23:47:48

Post 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:
Top
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Post by Gromiz »

типы заменил на свои....???
и инги положил (туда-сюда?) и скуй 1 дагер сам...
Top
HellFire
Posts: 89
Joined: 2004-10-02 23:47:48

Post by HellFire »

Gromiz wrote:типы заменил на свои....???
и инги положил (туда-сюда?) и скуй 1 дагер сам...
все спасибо... :lol:
Top
HellFire
Posts: 89
Joined: 2004-10-02 23:47:48

Post by HellFire »

может кто то сможет добавить в скрипт поедание фиш стейков и спирит спик? :(
Top
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Post 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
Top
Red dragon
Posts: 25
Joined: 2005-04-04 20:45:29

Post 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 проб. После Ворлд Сэве сбивается .
Top
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Post 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
Top
Post Reply

Return to “Scripting Ore”