Помогите разобраться со скриптом на кровь !!!

[Snapus]

Помогите пожалуйста ! Есть скрипт на питье крови с пола:

Code: Select all

#############################################
############## Кровь с пола #################
#############################################
sub Blood_pol() 
var n 
Dim Blood[6] 
Blood[1] = '0x122E' 
Blood[2] = '0x122D' 
Blood[3] = '0x122A' 
Blood[4] = '0x122B' 
Blood[5] = '0x122C' 
Blood[6] = '0x1645' 
While NOT UO.Dead() 
If UO.GetGlobal('UseBloodCheck')<>'on' Then 
UO.SetGlobal('UseBloodCheck','on') 
For n = 1 TO 6 
UO.FindType(Blood[n],'-1','1') 
If UO.FindCount() Then 
UO.UseObject('finditem') 
EndIf 
Next 
UO.SetGlobal('UseBloodCheck','off') 
Else 
UO.Print("Wait") 
EndIf 
end sub

помогите разобраться:
На сколько клеток он ищет кровь и как изменить.
И почему порой в окне скрипта зависают не выполненые команды и начинает тормозить уо. Может в скрипте есть ошибка ?

Заранее спасибо!
Ссылки на нужную часть хелпа приветствуются.

[Kynep]

Для начала оформите свою просьбу согласно Правилам.

[Kynep]

Помогите пожалуйста ! Есть скрипт на питье крови с пола:
помогите разобраться:
На сколько клеток он ищет кровь и как изменить.
И почему порой в окне скрипта зависают не выполненые команды и начинает тормозить уо. Может в скрипте есть ошибка ?
Заранее спасибо!
Ссылки на нужную часть хелпа приветствуются.

Code: Select all

sub Blood_pol() 
   var n 
   dim Blood[6] 
   Blood[0] = '0x122E' 
   Blood[1] = '0x122D' 
   Blood[2] = '0x122A' 
   Blood[3] = '0x122B' 
   Blood[4] = '0x122C' 
   Blood[5] = '0x1645' 

   UO.Set('finddistance', '3') #Радиус поиска 3 клетки вокруг чара.

   for n = 0 to 5 
      UO.FindType(Blood[n], '-1' , 'ground') 
      If UO.FindCount()> 0 Then
         repeat
            UO.UseObject('finditem')
            wait(500)
            UO.FindType(Blood[n], '-1' , 'ground') 
         until NOT UO.FindCount()
      endif 
   next 
   UO.Set('finddistance', '16')
end sub

Может так заработает, пробуйте.

[Snapus]

Помогите пожалуйста ! Есть скрипт на питье крови с пола:
помогите разобраться:
На сколько клеток он ищет кровь и как изменить.
И почему порой в окне скрипта зависают не выполненые команды и начинает тормозить уо. Может в скрипте есть ошибка ?
Заранее спасибо!
Ссылки на нужную часть хелпа приветствуются.

Code: Select all

sub Blood_pol() 
   var n 
   dim Blood[6] 
   Blood[0] = '0x122E' 
   Blood[1] = '0x122D' 
   Blood[2] = '0x122A' 
   Blood[3] = '0x122B' 
   Blood[4] = '0x122C' 
   Blood[5] = '0x1645' 

   UO.Set('finddistance', '3') #Радиус поиска 3 клетки вокруг чара.

   for n = 0 to 5 
      UO.FindType(Blood[n], '-1' , 'ground') 
      If UO.FindCount()> 0 Then
         repeat
            UO.UseObject('finditem')
            wait(500)
            UO.FindType(Blood[n], '-1' , 'ground') 
         until NOT UO.FindCount()
      endif 
   next 
   UO.Set('finddistance', '16')
end sub

Может так заработает, пробуйте.

Попробывал скрипт работает вполне вминяемо единственное если часто жать и он не находит крови он подвисает =(

Возможно ли это как то оптимизировать ?

P.S. постоянно в уо пишет finddistance 16 и finddistance 3 ! так и должно быть?

[Kynep]

Попробывал скрипт работает вполне вминяемо единственное если часто жать и он не находит крови он подвисает =(
Возможно ли это как то оптимизировать ?

Можно удалить wait(500), либо сделать поменьше, например wait(100).

P.S. постоянно в уо пишет finddistance 16 и finddistance 3 ! так и должно быть?

Можно в клиенте написать ,set injectecho 0, возможно поможет, либо ,set quiet 1, точно не помню. Псле этого нужно нажать кнопочку Save в закладке Main.

[Destruction]

injectecho отвечает за вывод в журнал инжекта сообщений инжекта

,set quiet 0
,set quiet 1

Не помню какой правильно

[Kynep]

injectecho отвечает за вывод в журнал инжекта сообщений инжекта
,set quiet 0
,set quiet 1
Не помню какой правильно

Ну почти угадал, блин про запятую забыл

[Snapus]

Code: Select all

sub Blood_pol()
If UO.Life<UO.Str Then
   var n 
   dim Blood[6] 
   Blood[0] = '0x122E' 
   Blood[1] = '0x122D' 
   Blood[2] = '0x122A' 
   Blood[3] = '0x122B' 
   Blood[4] = '0x122C' 
   Blood[5] = '0x1645' 

   UO.Set('finddistance', '3') #Радиус поиска 3 клетки вокруг чара. 

   for n = 0 to 5 
      UO.FindType(Blood[n], '-1' , 'ground') 
      If UO.FindCount()> 0 Then 
         repeat 
            UO.UseObject('finditem') 
            wait(200) 
            UO.FindType(Blood[n], '-1' , 'ground') 
         until NOT UO.FindCount() 
      endif 
   next 
   UO.Set('finddistance', '16') 
      Else 
      UO.Print("Your HP at maximum!!!") 
   Endif 
end sub

Попробывал добавить проверку на ХП(тоесть если хп меньше силы он ищет кровь если нет то пишет "Your HP at maximum!!!") Проверьте правельно написал ?

[Kynep]

Code: Select all

sub Blood_pol()
   var n 
   dim Blood[6] 
   Blood[0] = '0x122E' 
   Blood[1] = '0x122D' 
   Blood[2] = '0x122A' 
   Blood[3] = '0x122B' 
   Blood[4] = '0x122C' 
   Blood[5] = '0x1645' 

   If UO.Life < UO.Str then
      UO.Set('finddistance', '3') #Радиус поиска 3 клетки вокруг чара. 
      for n = 0 to 5 
         UO.FindType(Blood[n], '-1' , 'ground') 
         If UO.FindCount()> 0 Then 
            repeat 
               UO.UseObject('finditem') 
               wait(200) 
               UO.FindType(Blood[n], '-1' , 'ground') 
            until NOT UO.FindCount() 
         endif 
      next 
      UO.Set('finddistance', '16') 
   else 
      UO.Print("Your HP at maximum!!!") 
   endif 
end sub

Вот как-то так.