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

Нужен скрипт на спарринг с куклой
http://forum.yoko.com.ua/viewtopic.php?f=17&t=13397		 Page 1 of 1
Author:  Staxxx [ 2008-03-20 21:08:59 ]
Post subject:  Нужен скрипт на спарринг с куклой
не поиграл в уо 3 года и всё збыл, нужна кароче такая Фенса чтобы он просто и тупо бил куклу =) заранее спасибо добрым, откликнувшимся людям =)
Author:  Dron D. [ 2008-03-20 21:38:03 ]
Post subject: 
Code:
##################################################################
#                                                                 #
#                       Sparring  ver. 1.0                        #
#                                                                 #
###################################################################

   VAR Char1='0x00229AEC'      #   ID первого чара
   VAR Char2='0x000A3B21'      #   ID второго чара
   VAR MinLife=50              #   минимальная жизнь
   
   VAR TazikType='0x1008'      #   Тип тазика с водой
   VAR BloodBndg='0x0E20'      #   тип кровавых бинтов

##################################################################   
                                                                 #
   VAR Enemy, GO, STOP                                           #
   VAR GO1=  'GOO-1'                                             #
   VAR GO2=  'GOO-2'                                             #
   VAR STOP1='STOP-1'                                            #
   VAR STOP2='STOP-2'                                            #
                                                                 #
##################################################################

sub Start()   
uo.DeleteJournal()
    if UO.GetSerial('self')==Char1 then
      Enemy=Char2
      GO=GO2
      STOP=STOP2
    else
      Enemy=Char1
      GO=GO1
      STOP=STOP1
    endif
      uo.DeleteJournal()
      wait(4000)
While not uo.InJournal(GO1) or not uo.InJournal(GO2)
      uo.say(GO)
      wait(3000)
wend     
IF uo.InJournal('Ready') then
      wait(3200)
   Sparring()
else 
      uo.Say('Ready')
      wait(5000)
  Sparring()
end sub   

sub Sparring()   
UO.Exec('warmode 1')
uo.DeleteJournal()
uo.DeleteJournal()
REPEAT
if uo.InJournal('apply bandages to self') then
StopWar()
else
wait(5000)
UO.Attack(Enemy)
end if
until uo.Life<=MinLife or uo.InJournal(STOP1) or uo.InJournal(STOP2) or uo.InJournal('apply bandages to self')
StopWar()
end sub   

sub StopWar()   
IF uo.InJournal(STOP1) or uo.InJournal(STOP2) then
  UO.Exec("warmode 0")
  wait(1000)
  UO.Exec("warmode 0")
 Heling()
else
# While not uo.InJournal('apply bandages to self')
#    UO.Say(STOP)
#    UO.Exec("warmode 0")
#    wait(2000)
# wend   
     UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(2000)
     UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(2000)
     UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(2000)
     UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(1000)
     UO.Exec("warmode 0")
     wait(200)
UO.Say(STOP)
     UO.Exec("warmode 0")
     wait(1000)
     UO.Exec("warmode 0")
     wait(200)
end if
 Heling()
end sub 

sub Heling()   
         UO.FindType('0x0E21','0x0000','backpack')
      If UO.GetQuantity('finditem')<50 Then
         UO.FindType('0x0E20','0x0000','backpack')
         UO.WaitTargetType(TazikType)
         UO.UseObject('finditem')
         wait(1000)
      Endif
      while  uo.Life<uo.STR
         uo.SetArm('armset')
         uo.disarm()
         wait(200)
         while uo.Life<uo.STR
            uo.bandageself()
            wait(3000)
            UO.Exec("warmode 0")
         wend
         uo.arm('armset')
         wait(2000)
      wend     
     UO.Exec("warmode 0")
     wait(200)
     Start()
end sub
 


p.s. буквально в соседнем разделе валялся, поиск иногда юзай, быстрее скрипт найдешь
Author:  Staxxx [ 2008-03-20 21:51:21 ]
Post subject: 
дануна =) заюзал так там ни чё не нашел, big thx


авватарка жесть =)))))
Author:  Staxxx [ 2008-03-20 22:08:36 ]
Post subject: 
аааааа пля мне надо КУКЛУ бить а не с чаром драться что за люди Image
Author:  Dron D. [ 2008-03-20 22:22:03 ]
Post subject: 
а... просто куклой часто называют чара которого бьют)
а скрипт на прокачку с такой куклой врядли найдешь, проще самому сообразить написать

Я в скриптинге не силен, попробуй это)

Code:
sub killdummy()
var dummy = '0x000000' #id dummy 
while not uo.dead()
uo.usefromground(dummy)
wait(5500) #payzy sam po vremeni otredaktiruy
wend
end sub
Author:  BoBBaH [ 2008-03-20 22:44:23 ]
Post subject: 
Чтобы бить куклу используй УО пилот(сорри Ёко). Как? в уо забиваешь на кнопку Last Object и в пилоте ставишь в окошке для биндов нужную кнопку, а в окошке скрипт пишешь macros #1 все ну там еще задержку поставь!
Author:  Tiny [ 2008-03-21 00:06:33 ]
Post subject: 
BoBBaH wrote:
Чтобы бить куклу используй УО пилот(сорри Ёко). Как? в уо забиваешь на кнопку Last Object и в пилоте ставишь в окошке для биндов нужную кнопку, а в окошке скрипт пишешь macros #1 все ну там еще задержку поставь!

Да простит тебя Ёко. Аминь.
Author:  GAUHAR [ 2008-03-21 04:51:15 ]
Post subject: 
Code:
sub ts_TRAINonDummy()
   VAR Tdummy = '0x1070'   #Тренировочная кукла в обычном состоянии.
   VAR IDdummy
   UO.Print("ВЫБЕРИ ТРЕНИРОВОЧНУЮ КУКЛУ")
   UO.AddObject('TRGT')
   while UO.Targeting()
      wait(100)
   wend
   IDdummy = UO.GetSerial('TRGT')
   UO.DeleteJournal()
   repeat
      #CheckLag()
      UO.UseObject('TRGT')
      while Tdummy == UO.GetGraphic(IDdummy) and not UO.InJournal("already learned it all")
         wait(100)
      wend
      while Tdummy <> UO.GetGraphic(IDdummy) and not UO.InJournal("already learned it all")
         wait(100)
      wend
   until UO.InJournal("already learned it all")
   if UO.InJournal("already learned it all") then
      UO.Print("ТРЕНИРОВКА ЗАВЕРШЕНА")
   endif
endsub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/