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

спаринг + спирит спик
http://forum.yoko.com.ua/viewtopic.php?f=17&t=12213		 Page 1 of 1
Author:  xarek [ 2007-07-13 11:35:23 ]
Post subject:  спаринг + спирит спик
Code:
sub Training() 
var bandage='0x0E21' # Oei aeioia 
var washing='0x40421E56' # Oei ei?uoa 
var bloody='0x0E20' # Oei e?iaaauo aeioia 
# Nia?eia 1.00. 
  uo.AddObject('opponent') 
  while uo.Targeting() 
    wait(100) 
  wend 
  while not uo.Dead() 
    if uo.GetHp('opponent') <> uo.GetMaxHp('opponent') then 
      uo.WarMode(false) 
      Walk(4186,426) 
      while uo.GetHp('opponent') <> uo.GetMaxHp('opponent') 
        uo.WaitTargetObject('opponent') 
        uo.UseType(bandage) 
        wait(3500) 
        uo.GetHp('opponent') 
      wend 
    end if 
    if uo.GetHp('self') <> uo.GetMaxHp('self') then 
      uo.WarMode(false) 
      Walk(4186,426) 
      while uo.GetHp('self') <> uo.GetMaxHp('self') 
        uo.WaitTargetObject('self') 
        uo.UseType(bandage) 
        wait(3500) 
      wend 
      uo.WaitTargetObject(washing) 
      uo.UseType(bloody) 
      wait(750) 
    end if  
    uo.WarMode(true) 
    Shield()    
    uo.Attack('opponent') 
    wait(500) 
    Walk(4185,426) 
    while (uo.GetHp('opponent') > uo.GetMaxHp('opponent')/2) && (uo.Life > 100) 
      wait(500) 
    wend 
  wend 
end sub 
    
sub Shield() 
  var shield='0x1B76' 
  uo.FindType(shield,'-1','backpack') 
  if uo.FindCount() then 
    uo.UseObject('finditem')
    uo.usetype('0x0F51')
  end if 
end sub 

sub Walk(x,y) 
go: 
while not uo.getX() == x || not uo.getY() == y 
if not uo.getX() == x then 
if uo.getX() > x then 
uo.press(36) 
else 
uo.press(34) 
endif 
endif 
if not uo.getY() == y && uo.getX() == x then 
if uo.getY() > y then 
uo.press(33) 
else 
uo.press(35) 
endif 
endif 
checklag() 
wend 
checklag() 
if not uo.getX() == x || not uo.getY() == y then 
goto go 
endif 
endsub  


sub CheckLag() 
if uo.Waiting()>0 then 
uo.Exec('canceltarget') 
end if 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until uo.InJournal('backpack') 
while uo.injournal('backpack') 
uo.setJournalLine(uo.Injournal('backpack')-1,'is Empty!') 
wend 
end sub



МОжете в Этот скрипт Добавить чтоб он ещё прокачивал спирит спик. и можете ещё показать что вы и куда ДОбавили:) Зарнее спасибки)
Author:  666||TORCHKI [ 2007-07-13 12:28:44 ]
Post subject: 
Одевает шит и пуху,юзает спирит спеак.

Code:
Shield()   
    wait(150)
    uo.UseSkill('Spirit Speak')
   wait(1000) 
    uo.Attack('opponent')


Code:
sub Training()
var bandage='0x0E21' # Oei aeioia
var washing='0x40421E56' # Oei ei?uoa
var bloody='0x0E20' # Oei e?iaaauo aeioia
# Nia?eia 1.00.
  uo.AddObject('opponent')
  while uo.Targeting()
    wait(100)
  wend
  while not uo.Dead()
    if uo.GetHp('opponent') <> uo.GetMaxHp('opponent') then
      uo.WarMode(false)
      Walk(4186,426)
      while uo.GetHp('opponent') <> uo.GetMaxHp('opponent')
        uo.WaitTargetObject('opponent')
        uo.UseType(bandage)
        wait(3500)
        uo.GetHp('opponent')
      wend
    end if
    if uo.GetHp('self') <> uo.GetMaxHp('self') then
      uo.WarMode(false)
      Walk(4186,426)
      while uo.GetHp('self') <> uo.GetMaxHp('self')
        uo.WaitTargetObject('self')
        uo.UseType(bandage)
        wait(3500)
      wend
      uo.WaitTargetObject(washing)
      uo.UseType(bloody)
      wait(750)
    end if 
    uo.WarMode(true)
    Shield()   
    wait(150)
    uo.UseSkill('Spirit Speak')
   wait(1000) 
    uo.Attack('opponent')
    wait(500)
    Walk(4185,426)
    while (uo.GetHp('opponent') > uo.GetMaxHp('opponent')/2) && (uo.Life > 100)
      wait(500)
    wend
  wend
end sub
   
sub Shield()
  var shield='0x1B76'
  uo.FindType(shield,'-1','backpack')
  if uo.FindCount() then
    uo.UseObject('finditem')
    uo.usetype('0x0F51')
  end if
end sub

sub Walk(x,y)
go:
while not uo.getX() == x || not uo.getY() == y
if not uo.getX() == x then
if uo.getX() > x then
uo.press(36)
else
uo.press(34)
endif
endif
if not uo.getY() == y && uo.getX() == x then
if uo.getY() > y then
uo.press(33)
else
uo.press(35)
endif
endif
checklag()
wend
checklag()
if not uo.getX() == x || not uo.getY() == y then
goto go
endif
endsub 


sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
while uo.injournal('backpack')
uo.setJournalLine(uo.Injournal('backpack')-1,'is Empty!')
wend
end sub
Author:  Scripts Writer [ 2007-07-13 14:49:43 ]
Post subject: 
Code:
sub Training() 
var bandage='0x0E21' # Oei aeioia 
var washing='0x40421E56' # Oei ei?uoa 
var bloody='0x0E20' # Oei e?iaaauo aeioia 
# Nia?eia 1.00. 
  uo.AddObject('opponent') 
  while uo.Targeting() 
    wait(100) 
  wend 
  while not uo.Dead() 
    if uo.GetHp('opponent') <> uo.GetMaxHp('opponent') then 
      uo.WarMode(false) 
      Walk(4186,426) 
      while uo.GetHp('opponent') <> uo.GetMaxHp('opponent') 
        uo.WaitTargetObject('opponent') 
        uo.UseType(bandage) 
        wait(3500) 
        uo.GetHp('opponent') 
      wend 
    end if 
    if uo.GetHp('self') <> uo.GetMaxHp('self') then 
      uo.WarMode(false) 
      Walk(4186,426) 
      while uo.GetHp('self') <> uo.GetMaxHp('self') 
        uo.WaitTargetObject('self') 
        uo.UseType(bandage) 
        wait(3500) 
      wend 
      uo.WaitTargetObject(washing) 
      uo.UseType(bloody) 
      wait(750) 
    end if 
    uo.WarMode(true) 
    Shield()    
    uo.DeleteJournal()
    wait(150) 
    SpS()
    uo.Attack('opponent') 
    wait(500) 
    Walk(4185,426) 
    while (uo.GetHp('opponent') > uo.GetMaxHp('opponent')/2) && (uo.Life > 100) 
      wait(500) 
    wend 
  wend 
end sub 
    
sub Shield() 
  var shield='0x1B76' 
  uo.FindType(shield,'-1','backpack') 
  if uo.FindCount() then 
    uo.UseObject('finditem') 
    uo.usetype('0x0F51') 
  end if 
end sub 

sub Walk(x,y) 
go: 
while not uo.getX() == x || not uo.getY() == y 
if not uo.getX() == x then 
if uo.getX() > x then 
uo.press(36) 
else 
uo.press(34) 
endif 
endif 
if not uo.getY() == y && uo.getX() == x then 
if uo.getY() > y then 
uo.press(33) 
else 
uo.press(35) 
endif 
endif 
checklag() 
wend 
checklag() 
if not uo.getX() == x || not uo.getY() == y then 
goto go 
endif 
endsub 

sub SpS()
  uo.WarMode(false) 
  uo.UseSkill('Spirit Speak') 
  while not uo.InJournal('You fail') and not uo.InJournal('You establish a connection to the netherworld.') 
    wait(100) 
    CheckLag() 
  wend 
  uo.WarMode(true)
end sub

sub CheckLag()
  uo.DeleteJournal()
  uo.Click('backpack')
  repeat
    wait(100)
  until uo.InJournal('backpack')
end sub
Author:  666||TORCHKI [ 2007-07-13 20:31:29 ]
Post subject: 
ага с отделным скриптом на спирит лучше будет )
Author:  Scripts Writer [ 2007-07-13 20:40:40 ]
Post subject: 
666||TORCHKI wrote:
ага с отделным скриптом на спирит лучше будет )


Задержка 1000 после юзскила а затем сразу атака будет неприемлима
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/