Грит хел с условием

Qualis Eram · Post by **Qualis Eram** » 2005-07-04 16:18:50

Привет

Вот хотелось бы чтобы умные люди помогли подправить процедуру:

SUB FGHeal() 
   Var ManaNeed=11 
   Var ManaNeedScroll=5 
   If Uo.Life<UO.Str Then 
      Uo.FindType('0x1F49',-1,'my') 
      If Uo.FindCount()>0 Then 
         If Uo.Mana>=ManaNeedScroll Then 
            Uo.WaitTargetSelf() 
            Uo.UseObject('finditem') 
            Uo.Print('Cast scroll!') 
         Else 
   UO.Print('Low mana!')
         Endif 
      Else 
         If Uo.Mana>=ManaNeed Then 
            Uo.Cast('Greater Heal','self') 
            Uo.Print('Cast spellbook!') 
         Else 
            Uo.Print('Low mana!') 
         Endif 
      Endif 
   Else 
      Uo.Print('Ok') 
   Endif 
END SUB

Вот скриптик.....чтобы хотелось чтобы его подправили:
1. Чтобы когда у Вас хелсиков было меньше 65 он кастовал Хеал (пробовал со скрола а потом если нет то с книги)
2. Если хелсов выше 65 то он кастовал Грит хел со скрола если нет скрола то с книги.

Еще одна тема:

Code: Select all

SUB Steelskin()
Var Type='0x0F09' 
Var Color='0x0835' 
Uo.FindType(Type, Color, 2) 
Uo.UseObject('finditem') 
END SUB

Чтобы пробавал вначале пить Стил скин если его не то пробовал пить стоунскин......

Qualis Eram · Post by **Qualis Eram** » 2005-07-07 07:28:13

Прани ну не игнорьте плиз топик епта!!!

Askaneli · Post by **Askaneli** » 2005-07-07 08:10:06

Qualis Eram wrote:Прани ну не игнорьте плиз топик епта!!!

А кто сказал что игнорят.
Посмотри скока просмотров.
Так что не игнорят.

666Man666 · Post by **666Man666** » 2005-07-07 11:06:49

Уже в 100-раз... говорю, все эти "автоматические хрени" тока мешают ПВП.... ну кроме авто куре

юзайте руки.... ёпть...

Qualis Eram · Post by **Qualis Eram** » 2005-07-07 22:43:55

666Man666 wrote:Уже в 100-раз... говорю, все эти "автоматические хрени" тока мешают ПВП.... ну кроме авто куре юзайте руки.... ёпть...

Да это не автономник.........я и так на кнопку нажимаю просто у меня все клаивиши почти в уо забиты на клаве с шифтом и с альтом и контрлом.........Нужно просто чтобы если хп стоко я нажимал кнопку всю туже и делал Хеал а если хп больше то делал Грит хел плиз

I'm · Post by **I'm** » 2005-07-12 01:40:28

666Man666 wrote:Уже в 100-раз... говорю, все эти "автоматические хрени" тока мешают ПВП.... ну кроме авто куре юзайте руки.... ёпть...

Да нескажи я 1 время бегас со звуковыми сигналами :lol:

omi4 · Post by **omi4** » 2005-07-12 02:06:18

Code: Select all

sub FGHeal() 
   Var ManaNeed=11 
   Var ManaNeedScroll=5 
   If Uo.GetHP()<UO.GetMaxHP() Then

      If UO.GetHP>65 then
         Uo.FindType('0x1F31',-1,'my') 
         If Uo.FindCount()>0 Then 
            If Uo.Mana>=ManaNeedScroll Then 
               Uo.WaitTargetSelf() 
               Uo.UseObject('finditem') 
               Uo.Print('Cast scroll!') 
            Else 
               UO.Print('Low mana!') 
            Endif 
         Else 
            If Uo.Mana>=ManaNeed Then 
               Uo.Cast('Heal','self') 
               Uo.Print('Cast spellbook!') 
            Else 
               Uo.Print('Low mana!') 
            Endif 
      Endif 

      If UO.GetHP<65 then
         Uo.FindType('0x1F49',-1,'my') 
         If Uo.FindCount()>0 Then 
            If Uo.Mana>=ManaNeedScroll Then 
               Uo.WaitTargetSelf() 
               Uo.UseObject('finditem') 
               Uo.Print('Cast scroll!') 
            Else 
               UO.Print('Low mana!') 
            Endif 
         Else 
            If Uo.Mana>=ManaNeed Then 
               Uo.Cast('Greater Heal','self') 
               Uo.Print('Cast spellbook!') 
            Else 
               Uo.Print('Low mana!') 
            Endif 
         Endif 
      Endif
      
   Else 
      Uo.Print('Ok') 
   Endif 
end sub

Qualis Eram · Post by **Qualis Eram** » 2005-07-13 17:34:31

omi4 wrote:

Code: Select all

sub FGHeal() 
   Var ManaNeed=11 
   Var ManaNeedScroll=5 
   If Uo.GetHP()<UO.GetMaxHP() Then

      If UO.GetHP>65 then
         Uo.FindType('0x1F31',-1,'my') 
         If Uo.FindCount()>0 Then 
            If Uo.Mana>=ManaNeedScroll Then 
               Uo.WaitTargetSelf() 
               Uo.UseObject('finditem') 
               Uo.Print('Cast scroll!') 
            Else 
               UO.Print('Low mana!') 
            Endif 
         Else 
            If Uo.Mana>=ManaNeed Then 
               Uo.Cast('Heal','self') 
               Uo.Print('Cast spellbook!') 
            Else 
               Uo.Print('Low mana!') 
            Endif 
      Endif 

      If UO.GetHP<65 then
         Uo.FindType('0x1F49',-1,'my') 
         If Uo.FindCount()>0 Then 
            If Uo.Mana>=ManaNeedScroll Then 
               Uo.WaitTargetSelf() 
               Uo.UseObject('finditem') 
               Uo.Print('Cast scroll!') 
            Else 
               UO.Print('Low mana!') 
            Endif 
         Else 
            If Uo.Mana>=ManaNeed Then 
               Uo.Cast('Greater Heal','self') 
               Uo.Print('Cast spellbook!') 
            Else 
               Uo.Print('Low mana!') 
            Endif 
         Endif 
      Endif
      
   Else 
      Uo.Print('Ok') 
   Endif 
end sub

не пашит чего он скриптик то?

Dard · Post by **Dard** » 2005-07-15 18:18:24

Попробуй вместо:

Code: Select all

If Uo.GetHP()<UO.GetMaxHP() Then

поставить:

Code: Select all

If UO.Life < UO.STR Then

А дальше вместо Uo.GetHP поставь UO.Life, должно заработать.

Qualis Eram · Post by **Qualis Eram** » 2005-07-17 02:55:36

Dard wrote:Попробуй вместо:
Code: Select all
If Uo.GetHP()<UO.GetMaxHP() Then
поставить:
Code: Select all
If UO.Life < UO.STR Then
А дальше вместо Uo.GetHP поставь UO.Life, должно заработать.

Так и чего будет кидать магию Хел когда у меня меньше 65 хп и когда больше 65 будет кастить Гх?

Dard · Post by **Dard** » 2005-07-17 17:27:24

А ты пробовал?