Нужен скрипт на спарринг с куклой

Staxxx · Post by **Staxxx** » 2008-03-20 21:08:59

не поиграл в уо 3 года и всё збыл, нужна кароче такая Фенса чтобы он просто и тупо бил куклу =) заранее спасибо добрым, откликнувшимся людям =)

Dron D. · Post by **Dron D.** » 2008-03-20 21:38:03

Code: Select all

##################################################################
#                                                                 #
#                       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. буквально в соседнем разделе валялся, поиск иногда юзай, быстрее скрипт найдешь

Staxxx · Post by **Staxxx** » 2008-03-20 21:51:21

дануна =) заюзал так там ни чё не нашел, big thx

авватарка жесть =)))))

Staxxx · Post by **Staxxx** » 2008-03-20 22:08:36

аааааа пля мне надо КУКЛУ бить а не с чаром драться что за люди

Dron D. · Post by **Dron D.** » 2008-03-20 22:22:03

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

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

Code: Select all

sub killdummy()
var dummy = '0x000000' #id dummy 
while not uo.dead()
uo.usefromground(dummy)
wait(5500) #payzy sam po vremeni otredaktiruy
wend
end sub

BoBBaH · Post by **BoBBaH** » 2008-03-20 22:44:23

Чтобы бить куклу используй УО пилот(сорри Ёко). Как? в уо забиваешь на кнопку Last Object и в пилоте ставишь в окошке для биндов нужную кнопку, а в окошке скрипт пишешь macros #1 все ну там еще задержку поставь!

Tiny · Post by **Tiny** » 2008-03-21 00:06:33

BoBBaH wrote:Чтобы бить куклу используй УО пилот(сорри Ёко). Как? в уо забиваешь на кнопку Last Object и в пилоте ставишь в окошке для биндов нужную кнопку, а в окошке скрипт пишешь macros #1 все ну там еще задержку поставь!

Да простит тебя Ёко. Аминь.

GAUHAR · Post by **GAUHAR** » 2008-03-21 04:51:15

Code: Select all

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