Автомат

[abas]

Может ли быть такой скрипт ??если у мен 30 хп чтобы автоматом я рекалился домой.Или если в меня кидают бомбу и я нивижу чтобы овтоматом она поднялась?А если мана к примеру 15 чтобы пило автоматически??Если есть такие скрипты выложите тут ....

[flake]

Code: Select all

sub Afftamat()
UO.Exec( 'set finddistance 2' )
Repeat
  
  If UO.Life < 30 Then
      UO.Cast( 'Recall', 'айди_руны' )
  EndIf

  If UO.Mana < 15 Then
    UO.UseType( 'тип_бутылки', 'цвет_бутылки' )
  EndIf


  UO.FindType( 'тип_бомбы', 'цвет_бомбы', 'ground' )
    If UO.FindCount() Then
      While UO.FindCount()
        UO.Grab( 'finditem' )
        Wait( 600 )
        UO.FindType( 'тип_бомбы', 'цвет_бомбы', 'ground' )
      Wend
    EndIf

  Wait( 500 )
Until UO.Dead()
end sub

[abas]

Спосибо за скрипт но я попробовал если у меня 12 нп он не рекалится дайте такой скрипт если меньше 30 то тогда рекол

[flake]

Как так не рекалится? Вписал айди руны?

[abas]

да

Code: Select all

sub Afftamat() -это забендил нажал ран функшен и начался граб некончаемый
UO.Exec( 'set finddistance 2' ) 
Repeat 

    If UO.Life < 30 Then 
      UO.Cast( 'Recall', '0x4175DC9E' ) 
  EndIf 
 
  If UO.Mana < 15 Then 
    UO.UseType( 'тип_бутылки', 'цвет_бутылки' ) 
  EndIf 


  UO.FindType( 'тип_бомбы', 'цвет_бомбы', 'ground' ) 
    If UO.FindCount() Then 
      While UO.FindCount() 
        UO.Grab( 'finditem' ) 
        Wait( 600 ) 
        UO.FindType( 'тип_бомбы', 'цвет_бомбы', 'ground' ) 
      Wend 
    EndIf 

  Wait( 500 ) 
Until UO.Dead() 
end sub

[теги =( I'm]

[flake]

Уууу....
Вставь везде нужные типы и цвета
И срочно иди читать учебники Едреда!

[Edred]

В данном случае не поможет. Учебник может пригодиться только тому, кто "помогите написать", а не "дайте мне".

[Kinder Zurpraiz]

ГЫ! Бывает, скрипт дадут, так ещо и обясняй типу куда записывать : )