Вот вам скрипт на таминг )

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Вот вам скрипт на таминг )

Post by GimFlex »

#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
Last edited by GimFlex on 2005-01-29 14:07:55, edited 4 times in total.
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post by GimFlex »

в ближайшее время добавлю подкормку как чара так и животины ))
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Re: Вот вам скрипт на таминг )

Post by Sfagnum »

Question wrote:crafted by GimFlex from DRW v 1.00
:lol: :lol: :lol:
я бы сказал v 0.00 ;)
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post by GimFlex »

хех ну можно и так сказать но впереди много времени а этот скрипт можно сказать холст для начинающих желающих освоить скриптование и сюда в принципе можно стоко добавить разных режимов но это чуть попозже времени щас нету просто :)
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post by GimFlex »

если уж скачали скажите ваши впечатления от проделанной мной работы :)
Top
joker_psix
Posts: 53
Joined: 2004-10-09 18:48:36

Post by joker_psix »

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

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
Top
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:
Contact BETEPAH

Post by BETEPAH »

Я лучше промалчу )))) в Скрипты просто гляньте оба ))
Все просто.
BETEPAH ™
Top
joker_psix
Posts: 53
Joined: 2004-10-09 18:48:36

Post by joker_psix »

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


лениво ... Поиск намного лучше =)
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post by GimFlex »

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


мде лол :)
Top
necron
Posts: 14
Joined: 2004-04-19 18:43:26
Contact:
Contact necron

Re: Вот вам скрипт на таминг )

Post by necron »

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 типа, у тебя только один.
lol
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post by GimFlex »

#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

Версия обновилась :)
Top
KrafteR
Posts: 260
Joined: 2004-07-22 16:07:11
Contact:
Contact KrafteR

Post by KrafteR »

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.], как сказал люпус(сорри если ник не правильно написал), пиши без точек, читать удобнее.
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post by GimFlex »

#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
Top
KTO nyKHyJI???
Posts: 143
Joined: 2004-12-28 19:31:44

Post by KTO nyKHyJI??? »

Code: Select all

 i`m noob
Top
Post Reply

Return to “Scripting Ore”