Yoko

#1-Если переменную mod=1 изменить на mod=0, то когда чар затамит
# животину(ездовую), то он сядет на нее и скрипт закончится.
#2-Введите тип вашего таминг стафа 'tamstaf' в переменных
###############################################
#crafted by GimFlex from DRW v 1.01
###############################################
##ПЕРЕМЕННЫЕ##
#############
var mod=1
var tamstaf='0x13F9'
###############################################
sub main()
uo.exec('addobject Animal')
while uo.targeting()
wait(100)
wend
wait(1000)
UO.Say('All release')
wait(2000)
while NOT UO.Dead()
UO.DeleteJournal()
UO.WaitTargetObject('Animal')
UO.UseType(tamstaf)
CheckLag()
repeat
wait(1000)
until UO.InJournal('You fail') OR UO.InJournal('It seems')
If Uo.InJournal('It seems') Then
If mod==0 Then
UO.Useobject('Animal')
else
UO.Say('All release')
Endif
Endif
wend
end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub

в ближайшее время добавлю подкормку как чара так и животины ))

Question wrote:crafted by GimFlex from DRW v 1.00

я бы сказал v 0.00

хех ну можно и так сказать но впереди много времени а этот скрипт можно сказать холст для начинающих желающих освоить скриптование и сюда в принципе можно стоко добавить разных режимов но это чуть попозже времени щас нету просто

если уж скачали скажите ваши впечатления от проделанной мной работы

Не помню откуда качал но скрипт работает замечательно

Я лучше промалчу )))) в Скрипты просто гляньте оба ))

BETEPAH wrote:Я лучше промалчу )))) в Скрипты просто гляньте оба ))

лениво ... Поиск намного лучше =)

joker_psix wrote:Не помню откуда качал но скрипт работает замечательно

Code: Select all

######################################## 
#  Revenant / Antares /  Animal Taming      
######################################## 
# В загончик площадью один тайл загоняется туча живности 
# все равно какой, любых видов и расцветок, лишь бы тамилась. 
# Для корректной работы желательно больше 50 шт. 
# Отпускаете ее и ждете пока забудет вас (на Антаресе - 5 мин) 
# Заползаете в этот же загончик. 
# Единственный раз запускается процедура saver() при которой 
# скрипт заносит ID всех тварей в файл count.dat 
# после этого смело запускаете процедуру main() и идете 
# досматривать фильм по телеку 
# Да, и еще, галочка в TWI отнюдь не помешает для первого запуска. 

var f=file("C:\count.dat") 
var i, ii 
var food='0x097B'  ; еда, по умолчанию лук 

sub saver() 
dim a[50] 
var ser, nam 
var s=0 
var exit=0 
uo.ignorereset() 
uo.set('finddistance','3') 
i=0 
repeat 
    repeat 
       uo.findtype('-1','-1','ground') 
       if not UO.FindCount() then 
          exit=1 
       endif 
       uo.ignore("finditem") 
       wait(100) 
    until uo.IsNPC("finditem") and uo.getserial("finditem")<>uo.getserial("self") or not UO.FindCount() 
    if not exit then 
       i=i+1 
       ser = uo.getserial("finditem") 
       ii=i 
       a[i]=ser 
       uo.Print('ser = '+ a[i]) 
       uo.Print(uo.GetName(ser)) 
    endif  
    wait(100) 
until i==50 or exit==1    
uo.Print('Open file') 
    f.open() 
    f.create() 
    uo.Print('elements = '+ str(ii)) 
        s=safe call f.writeln(ii) 
    for i=1 to ii 
        s=safe call f.writeln(a[i]) 
    next 
    f.close() 
 uo.Print('All IP saved')    
end sub 

sub main() 
dim b[50] 
var count=0 
   VAR LastTimer, start 
f.open() 
ii=safe call f.ReadNumber() 
       uo.Print('ii='+str(ii)) 
for i=1 to ii 
     b[i]=safe call f.ReadString() 
next 
f.close() 
uo.DeleteJournal() 
while not uo.Dead() 
  uo.DeleteJournal() 
  start = UO.Timer() 
  for i=1 to ii 
    uo.Print("Живность номер " +str(i)) 
    repeat 
      UO.DeleteJournal() 
      uo.WaitTargetObject(b[i]) 
      UO.Useskill('Animal Taming') 
      LastTimer=UO.Timer() 
      repeat 
         wait(1000) 
      until UO.InJournal('You fail') OR UO.InJournal('It seems')  OR UO.InJournal('You can not see')OR UO.InJournal('away') OR UO.InJournal('remember') OR UO.InJournal('cancelled')OR UO.InJournal('already')OR UO.InJournal('target')OR UO.Timer()>LastTimer+400 
    until Uo.InJournal('It seems') OR UO.InJournal('remember') OR UO.InJournal('cancelled')OR UO.InJournal('already')OR UO.InJournal('target') 
    uo.Say('All release') 
  next 
  eat() 
wend 
end sub 

sub eat() 
    UO.DeleteJournal() 
    repeat 
      if UO.Count(food)>0 then    
         UO.UseType(food)    
         wait(500) 
      else 
         return 
      end if 
    Until UO.InJournal("stuffed!") OR UO.InJournal("think") 
end sub

мде лол

Question wrote:#Очень прост в приминении и универсальный, наслаждайтесь
#Просто запустите, он попросит указать существо и все, идите спать
#crafted by GimFlex from DRW v 1.00
##############################################
sub animaltaming()
uo.exec('addobject Animal')
while uo.targeting()
wait(100)
wend
wait(1000)
UO.Say('All release')
wait(2000)
while NOT UO.Dead()
UO.DeleteJournal()
UO.WaitTargetObject('Animal')
UO.UseType('0x13F8')
CheckLag()
repeat
wait(1000)
until UO.InJournal('You fail') OR UO.InJournal('It seems')
If Uo.InJournal('It seems') Then
UO.Say('All release')
Endif
wend
end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub

UO.UseType('0x13F8')
Эта палка может быть в 2 положениях, значит иметь 2 типа, у тебя только один.

#1-Если переменную mod=1 изменить на mod=0, то когда чар затамит
# животину(ездовую), то он сядет на нее и скрипт закончится.
#2-Введите тип вашего таминг стафа 'tamstaf' в переменных
###############################################
#crafted by GimFlex from DRW v 1.01
###############################################
##ПЕРЕМЕННЫЕ##
#############
var mod=1
var tamstaf='0x13F9'
###############################################
sub main()
uo.exec('addobject Animal')
while uo.targeting()
wait(100)
wend
wait(1000)
UO.Say('All release')
wait(2000)
while NOT UO.Dead()
UO.DeleteJournal()
UO.WaitTargetObject('Animal')
UO.UseType(tamstaf)
CheckLag()
repeat
wait(1000)
until UO.InJournal('You fail') OR UO.InJournal('It seems')
If Uo.InJournal('It seems') Then
If mod==0 Then
UO.Useobject('Animal')
else
UO.Say('All release')
Endif
Endif
wend
end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub

Версия обновилась

Question wrote:#1-Если переменную mod=1 изменить на mod=0, то когда чар затамит
# животину(ездовую), то он сядет на нее и скрипт закончится.
#2-Введите тип вашего таминг стафа 'tamstaf' в переменных
###############################################
#crafted by GimFlex from DRW v 1.01
###############################################
##ПЕРЕМЕННЫЕ##
#############
var mod=1
var tamstaf='0x13F9'
###############################################
sub main()
uo.exec('addobject Animal')
while uo.targeting()
wait(100)
wend
wait(1000)
UO.Say('All release')
wait(2000)
while NOT UO.Dead()
UO.DeleteJournal()
UO.WaitTargetObject('Animal')
UO.UseType(tamstaf)
CheckLag()
repeat
wait(1000)
until UO.InJournal('You fail') OR UO.InJournal('It seems')
If Uo.InJournal('It seems') Then
If mod==0 Then
UO.Useobject('Animal')
else
UO.Say('All release')
Endif
Endif
wend
end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub

Версия обновилась

Сорри за оффтоп, но дружеский совет, пиши [code.][/code.], как сказал люпус(сорри если ник не правильно написал), пиши без точек, читать удобнее.

#1-Если переменную mod=1 изменить на mod=0, то когда чар затамит
# животину(ездовую), то он сядет на нее и скрипт закончится.
#Если оставить mod=1 он просто стоит и тамит животинку
#2-Введите тип вашего таминг стафа 'tamstaf' в переменных
##
#crafted by GimFlex from DRW v 1.01
##ПЕРЕМЕННЫЕ##
var mod=1
var tamstaf='0x13F9'
##
sub main()
uo.exec('addobject Animal')
while uo.targeting()
wait(100)
wend
wait(1000)
UO.Say('All release')
wait(2000)
while NOT UO.Dead()
UO.DeleteJournal()
UO.WaitTargetObject('Animal')
UO.UseType(tamstaf)
CheckLag()
repeat
wait(1000)
until UO.InJournal('You fail') OR UO.InJournal('It seems')
If Uo.InJournal('It seems') Then
If mod==0 Then
UO.Useobject('Animal')
else
UO.Say('All release')
Endif
Endif
wend
end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub