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

Может ктонибуть написать скрипт=)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=10402		 Page 1 of 1
Author:  litauen [ 2006-12-09 11:19:49 ]
Post subject:  Может ктонибуть написать скрипт=)
Помогите пожалуйста сделать скрипт к сервиру http://eliciumuo.666.lt/
Скрипт на Бс просто чтобы метал бы с своём backpack и даггеры делал! Да и если не тяжело то переплавку по одному также чтобы мелат лежал в backpack plz ocen nuzen! :(
Author:  Dimage [ 2006-12-09 19:41:37 ]
Post subject: 
Юзайте поиск

Code:
############################################################################################
#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
Author:  litauen [ 2006-12-09 22:42:01 ]
Post subject: 
Посиб большое=)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/