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

Грамотные люди посмотрите плз
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1468		 Page 1 of 1
Author:  TapakaH [ 2004-09-26 09:26:56 ]
Post subject:  Грамотные люди посмотрите плз
сваял свой первый скрипт на спарринг. есличто не так сделал поправьте плз

Code:
sub spar()
VAR ban='' тип бандажек
VAR bban='' тип кровавых бандажек
VAR tazik=''тип миски
VAR opp='' ID 2го чара

wile NOT UO.Dead()
 UO.Exec("warmode 1")
   wait(100)
    UO.Attack('opp')
     while UO.Life<=60 or UO.GetHP(opp)<=100
      wait(100)
       UO.Exec("warmode 0")
wend
UO.SetArm('CWeapon')
 UO.FindType('ban')
  If UO.GetQuantity('finditem')<=20 Then
   UO.FindType('bban','backpack')
    UO.WaitTargetType('tazik')
     UO.UseObject('finditem')
Endif
while UO.Life=UO.Str 
 UO.DeleteJournal() 
  UO.BandageSelf()  
    wait(500) 
     Until UO.InJournal('put') OR UO.InJournal('help') OR UO.InJournal('cure') 
      Repeat
wend
wile UO.GetHP('opp') == 256
 UO.FindType('ban','backpack')
  UO.WaitTargetType('opp')
   UO.UseObject('finditem')
    repeat
wend
wait(500)
UO.Arm('CWeapon')
wait(100)
wend
end sub
Author:  Yoko [ 2004-09-26 19:24:27 ]
Post subject: 
главный критерий это работает он или нет
если он тебя устраивает значит всё в порядке
Author:  TapakaH [ 2004-09-26 22:02:13 ]
Post subject: 
Yoko wrote:
главный критерий это работает он или нет
если он тебя устраивает значит всё в порядке

Тот не работал, я его чутка передел, но возникла проблема, чар не останавливается когда у второго чара которого бьют хп падает ниже 100

Code:
sub spar()
VAR ban='0x0E21' #тип бандажек
VAR bban='0x0E20' #тип кровавых бандажек
VAR tazik='0x1008'#тип миски
VAR opp='0x0006DC87' #ID 2го чара

while NOT UO.Dead()
 UO.Exec("warmode 1")
   wait(100)
    UO.Attack("opp")
     While UO.Life>=60 or UO.GetHP("opp")>=200
      wait(150)
       UO.GetHP("opp")
       repeat
       wend
       UO.Exec("warmode 0")
        
UO.SetArm('CWeapon')
 UO.FindType('ban')
  If UO.GetQuantity('finditem')<=20 Then
   UO.FindType('bban','backpack')
    UO.WaitTargetType('tazik')
     UO.UseObject('finditem')
Endif
while UO.Life==UO.Str
 UO.DeleteJournal() 
  UO.BandageSelf()
   Repeat
    wait(500) 
     Until UO.InJournal("put") OR UO.InJournal("help") OR UO.InJournal("cure") 
      
wend
 UO.FindType('ban','backpack')
  UO.WaitTargetObject("opp")
   UO.UseObject('finditem')
    repeat
     Until UO.InJournal("dont need")
wait(500)
UO.Arm('CWeapon')
wait(100)
wend
end sub


и вчем беда ума не приложу.
Author:  Yoko [ 2004-09-27 01:53:10 ]
Post subject: 
проверь чему именно равняются uo.gethp когда жизнь оппонента падает до нужного уровня
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/