Может ктонибуть написать скрипт=)

[litauen]

Помогите пожалуйста сделать скрипт к сервиру http://eliciumuo.666.lt/
Скрипт на Бс просто чтобы метал бы с своём backpack и даггеры делал! Да и если не тяжело то переплавку по одному также чтобы мелат лежал в backpack plz ocen nuzen!

[Dimage]

Юзайте поиск

Code: Select all

############################################################################################
#File info##################################################################################
############################################################################################
;Copiraten: by ICe aka ICeCREAm                                                            #
;     Mail: Hoob@narod.ru  писать с пометкой UO                                            #
;      Icq: 222228147 писать с пометкой UO                                                 #
;      WWW: http://hoob.narod.ru      >                                                    #
;[; plz not sale outside for russia,for all questions call #911 or (Hoob@narod.ru) ask me;]#
#############################################################(с) 2005 made in russia :) ####


sub Blacksmithing() 
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 
end if 

uo.FindType('0x0F51',-1,'backpack') 
wait(500) 

if uo.GetQuantity('finditem') then 
uo.WaitTargetObject('finditem') 
uo.UseObject('0x40001072') ; Форж 
end if 

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

[litauen]

Посиб большое=)