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

Вот вам скрипт на таминг )
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2513		 Page 1 of 1
Author:  GimFlex [ 2005-01-07 13:31:38 ]
Post subject:  Вот вам скрипт на таминг )
#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
Author:  GimFlex [ 2005-01-07 13:32:34 ]
Post subject: 
в ближайшее время добавлю подкормку как чара так и животины ))
Author:  Sfagnum [ 2005-01-07 14:56:50 ]
Post subject:  Re: Вот вам скрипт на таминг )
Question wrote:
crafted by GimFlex from DRW v 1.00
:lol: :lol: :lol:
я бы сказал v 0.00 ;)
Author:  GimFlex [ 2005-01-07 15:05:01 ]
Post subject: 
хех ну можно и так сказать но впереди много времени а этот скрипт можно сказать холст для начинающих желающих освоить скриптование и сюда в принципе можно стоко добавить разных режимов но это чуть попозже времени щас нету просто :)
Author:  GimFlex [ 2005-01-07 16:31:58 ]
Post subject: 
если уж скачали скажите ваши впечатления от проделанной мной работы :)
Author:  joker_psix [ 2005-01-07 19:50:59 ]
Post subject: 
Не помню откуда качал :) но скрипт работает замечательно

Code:
######################################## 
#  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
Author:  BETEPAH [ 2005-01-07 21:57:56 ]
Post subject: 
Я лучше промалчу )))) в Скрипты просто гляньте оба ))
Author:  joker_psix [ 2005-01-07 23:32:16 ]
Post subject: 
BETEPAH wrote:
Я лучше промалчу )))) в Скрипты просто гляньте оба ))


лениво ... Поиск намного лучше =)
Author:  GimFlex [ 2005-01-08 19:16:11 ]
Post subject: 
joker_psix wrote:
Не помню откуда качал :) но скрипт работает замечательно

Code:
######################################## 
#  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


мде лол :)
Author:  necron [ 2005-01-10 03:21:14 ]
Post subject:  Re: Вот вам скрипт на таминг )
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 типа, у тебя только один.
Author:  GimFlex [ 2005-01-29 14:05:00 ]
Post subject: 
#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

Версия обновилась :)
Author:  KrafteR [ 2005-01-29 23:03:04 ]
Post subject: 
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.], как сказал люпус(сорри если ник не правильно написал), пиши без точек, читать удобнее.
Author:  GimFlex [ 2005-02-06 17:23:33 ]
Post subject: 
#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
Author:  KTO nyKHyJI??? [ 2005-02-06 20:48:03 ]
Post subject: 
Code:
 i`m noob
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/