Yoko

Code: Select all

sub sreset() 
   UO.SetEasyUO(80,"1") 
   UO.SetEasyUO(90,"1") 
end sub 


sub sparring() 
   VAR Char1='0x0001D165' 
   VAR Char2='0x0007D9E4' 
   VAR Enemy, ESelf, EEnemy 
   VAR Weapon, Shield, WpnType, ShldType 
   VAR TazikType='0x1008',BloodBndg='0x0E20' 
   VAR MinLife=60 
    

   if UO.GetSerial('self')==Char1 then 
      Enemy=Char2 
      EEnemy=90 
      ESelf=80 
   else 
      Enemy=Char1 
      EEnemy=80 
      ESelf=90 
   endif 

   Weapon=UO.ObjAtLayer('Rhand') 
   If Weapon<>"" Then 
      WpnType=UO.GetGraphic(Weapon) 
   Endif 

   Shield=UO.ObjAtLayer('Lhand') 
   If Shield<>"" Then 
      ShldType=UO.GetGraphic(Shield) 
   Endif 
    
   UO.SetEasyUO(ESelf,"0") 

   while NOT UO.Dead() 
    
      repeat 
         wait(500) 
      until UO.GetEasyUO(ESelf)=="0" AND UO.GetEasyUO(EEnemy)=="0" 
       
      UO.Exec("warmode 1") 
      UO.Attack(Enemy) 
       
      while UO.Life>=MinLife AND UO.GetEasyUO(EEnemy)=="0" 
         wait(100) 
      wend 

      UO.SetEasyUO(ESelf,"1") 
      UO.Exec("warmode 0") 
      wait(1000) 
      UO.Exec("warmode 0") 
;-------- Большая стирка, если у вас этого нет, вырезать. 
      UO.FindType('0x0E21','0x0000','backpack') 
      If UO.GetQuantity('finditem')<20 Then 
         UO.FindType('0x0E20','0x0000','backpack') 
         UO.WaitTargetType(TazikType) 
         UO.UseObject('finditem') 
         wait(1000) 
      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 

      If Shield<>"" Then 
         UO.Equipt('Lhand',ShldType) 
         wait(2000) 
      Endif 

      If Weapon<>"" Then 
         UO.Equipt('Rhand',WpnType) 
         wait(2000) 
      Endif 
       
      UO.UseSkill('Spirit Speak') 
      wait(3000) 
      UO.SetEasyUO(ESelf,"0") 
   wend 
end sub 

Code: Select all

REGEDIT4 
[HKEY_CURRENT_USER\Software\EasyUO] 
"*0"="TEST" 

Code: Select all

Windows Registry Editor Version 5.00 

[HKEY_CURRENT_USER\Software\EasyUO] 
"WndData.Top"=dword:00000148 
"WndData.Left"=dword:000000d1 
"WndData.Height"=dword:0000015d 
"WndData.Width"=dword:00000300 
"WndData.Split"=dword:0000006d 
"WndData.InitDir"="" 
"WndData.StayOnTop"=dword:00000000 
"WndData.PauseKey"=dword:0000000c 
"WndData.PauseContinue"=dword:00000000 
"Toolbar.Standard"=dword:00000001 
"Variables.Show"=dword:00000000 
"Variables.Standard"=dword:00000001 
"Variables.User"=dword:00000000 
"Variables.Defined"="" 
"*99"="0" 
"*1"="0" 
"*0"="0" 
"*2"="0"