Yoko

Posted: **2009-04-30 07:19:22**

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

#############################################
############## Кровь с пола #################
#############################################
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

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

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

Posted: **2009-04-30 07:23:32**

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

Posted: **2009-04-30 08:20:45**

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

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

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

Posted: **2009-04-30 08:37:35**

Kynep wrote:
Snapus wrote:Помогите пожалуйста ! Есть скрипт на питье крови с пола:
помогите разобраться:
На сколько клеток он ищет кровь и как изменить.
И почему порой в окне скрипта зависают не выполненые команды и начинает тормозить уо. Может в скрипте есть ошибка ?
Заранее спасибо!
Ссылки на нужную часть хелпа приветствуются.
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 ! так и должно быть?

Posted: **2009-04-30 08:42:31**

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

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

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

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

Posted: **2009-04-30 08:54:34**

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

,set quiet 0
,set quiet 1

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

Posted: **2009-04-30 09:01:31**

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

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

Posted: **2009-04-30 09:54:22**

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!!!") Проверьте правельно написал ?

Posted: **2009-04-30 10:24:16**

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

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

Yoko

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

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

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

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

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