помогите со скриптом БС

Ask for help

Moderators: Murderator+, Murderator

Post Reply
Forester
Posts: 2
Joined: 2005-03-12 02:33:22

помогите со скриптом БС

Post by Forester »

скачал скрипт с вашего сайта поменял ID как там и сказано ..оно пишет что не может найти придмет..чо не так я делаю? вот скрипт с поправками для моих воржи и сундука
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(0x402F1767) ; ????
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x402CFA21') ;C????? ? ??????
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub
KrafteR
Posts: 260
Joined: 2004-07-22 16:07:11
Contact:

Re: помогите со скриптом БС

Post by KrafteR »

Forester wrote:скачал скрипт с вашего сайта поменял ID как там и сказано ..оно пишет что не может найти придмет..чо не так я делаю? вот скрипт с поправками для моих воржи и сундука
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(0x402F1767) ; ????
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x402CFA21') ;C????? ? ??????
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub

Линк откуда качал кинь, буд добр.
Forester
Posts: 2
Joined: 2005-03-12 02:33:22

Post by Forester »

извиняюсь щза задержку небыло инета воо линк http://yoko.netroof.net/forum/viewtopic.php?t=689
Post Reply