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

rebjata dovedite do uma skript na BS,a to ja nix..a nemogu))
http://forum.yoko.com.ua/viewtopic.php?f=20&t=6939		 Page 1 of 1
Author:  Dim [ 2006-03-12 16:42:08 ]
Post subject:  rebjata dovedite do uma skript na BS,a to ja nix..a nemogu))
Vmesto Bronz shelds mne nado ringmail sleeves!!!!
Zaranie blagodarju!!!))) :D


sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Shield','Shield','bronze shield') ;?oi eoai
UO.UseType(0x1BEF) ;Eiae ae?iia

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 ;A?aiy nicaaiey aaaa?a
EndIf

UO.FindType('0x1B72',-1,'backpack')
wait(500)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x400D7F9C) ; Oi??
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x4032B444') ;Coiaoe n eiaaie
wait(1000)
UO.Grab('750','finditem')
Endif
wait(1000)
wend
end sub
Author:  Kynep [ 2006-03-12 17:09:49 ]
Post subject:  Re: rebjata dovedite do uma skript na BS,a to ja nix..a nemo
Dim wrote:
Vmesto Bronz shelds mne nado ringmail sleeves!!!!
Zaranie blagodarju!!!))) :D


sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Shield','Shield','bronze shield') ;?oi eoai
UO.UseType(0x1BEF) ;Eiae ae?iia

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 ;A?aiy nicaaiey aaaa?a
EndIf

UO.FindType('0x1B72',-1,'backpack')
wait(500)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x400D7F9C) ; Oi??
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x4032B444') ;Coiaoe n eiaaie
wait(1000)
UO.Grab('750','finditem')
Endif
wait(1000)
wend
end sub



Во первых ставь код в теги, во вторых попробуй хотябы почитать инструкцию к инже и уроки Едреда.

Вот скрипт готовый, поменяй ID форжи на которой плавить будешь,
чтоб узнать его напиши в игре ,info , появится окно в котором смотри первую строчку ID=0х00000000 число другое будет и вставь его в скрипт

Code:
sub BlacksmithyIM() 

VAR Exit=0, LastTimer 
while Exit<>1 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Armor','Armor','Ring Mail','Ring Mail', 'ringmail sleeves') ;?oi eoai 
UO.UseType(0x1BEF) ;Eiae ae?iia 

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 ;A?aiy nicaaiey aaaa?a 
EndIf 

UO.FindType('0x13EE',-1,'backpack') 
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x400D7F9C)   ;  <---- ТУТ ПОСТАВЬ ID ФОРЖИ!!!!
Endif 

UO.FindType('0x1BEF',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x4032B444') ;Coiaoe n eiaaie 
wait(1000) 
UO.Grab('750','finditem') 
Endif 
wait(1000) 
wend 
end sub


Пробуй
Author:  Dim [ 2006-03-12 17:14:43 ]
Post subject: 
BOLJ6OE SPASIBO!!!!!!!!!!!!!!!!!!!!!!!!!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/