помогите найти тему

[BoBBaH]

была тут тема, в которой кто-то(и надо узнать кто) выставлял скрипт такого действия лошадь в углу зажимаем камнями вроде бъем ее и качаем энимал лор ну и еще что-то подскажите я блин ищу ищу а найти некак, очень нужен скрипт.

[ZWERb]

была тут тема, в которой кто-то(и надо узнать кто) выставлял скрипт такого действия лошадь в углу зажимаем камнями вроде бъем ее и качаем энимал лор ну и еще что-то подскажите я блин ищу ищу а найти некак, очень нужен скрипт.

Не знаю как на анималлор но на зажимание животины и качании на ней боевые писал скрипт я! Лови

Code: Select all

####################################################################
##############        D R W             ############################
####################################################################
###################  v 1.2b        #################################
####################################################################
#################   UNHOLY     #####################################
####################################################################


var BandCL ='0x0E21' ; Тип чистых бинтов
var BandBL ='0x0E20' ; Тип грязных бинтов
var Moy ='0x40011782' ; ID Мойки
var GEPTBA ='0x003096A5' ; ID Жертвы
var Mech = '0x0F52' ; Тип Мечя
var Wit ='0x1B7A' ; тип Щита
;Ну вот пожалуй и все! Приступим!

Sub Main()
while 1 > 0
UO.Equipt('Rhand',mech)
wait(500)
UO.Equipt('Lhand',Wit)
wait(500)
While uo.getHP(GEPTBA)> 100
if uo.life < 20 then
while uo.Life<uo.str
uo.warmode(0)
uo.bandageself()
wait(1000)
wend
UO.Equipt('Rhand',mech)
wait(500)
UO.Equipt('Lhand',Wit)
wait(500)
end if
uo.warmode(0)
CheckLag()
uo.attack(GEPTBA)
wait(1500)
wend
Bint()
wend
end sub 

Sub Bint()
while uo.GetHP(GEPTBA)<uo.GetMaxHP(GEPTBA)
uo.warmode(0)
UO.WaitTargetObject(GEPTBA)
UO.UseType(BandCL)
wait(3000)
wend
while uo.Life<uo.str
uo.warmode(0)
uo.bandageself()
wait(1000)
wend
UO.Equipt('Rhand',mech)
UO.Equipt('Lhand',Wit)
wait(500)
uo.warmode(0)
uo.useskill('Spirit Speak')
wait(1500)
UO.WaitTargetObject(Moy) 
UO.UseType(BandBL)
wait(1500)
end sub 

Sub CheckLag()
   DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
   return
end sub

Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub

[BoBBaH]

ок попробуем)