Yoko
http://forum.yoko.com.ua/

Грит хел с условием
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4404		 Page 1 of 1
Author:  Qualis Eram [ 2005-07-04 16:18:50 ]
Post subject:  Грит хел с условием
Привет

Вот хотелось бы чтобы умные люди помогли подправить процедуру:
Code:
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:
SUB Steelskin()
Var Type='0x0F09' 
Var Color='0x0835' 
Uo.FindType(Type, Color, 2) 
Uo.UseObject('finditem') 
END SUB

Чтобы пробавал вначале пить Стил скин если его не то пробовал пить стоунскин......
Author:  Qualis Eram [ 2005-07-07 07:28:13 ]
Post subject: 
Прани ну не игнорьте плиз топик епта!!!
Author:  Askaneli [ 2005-07-07 08:10:06 ]
Post subject: 
Qualis Eram wrote:
Прани ну не игнорьте плиз топик епта!!!

А кто сказал что игнорят.
Посмотри скока просмотров.
Так что не игнорят. :D
Author:  666Man666 [ 2005-07-07 11:06:49 ]
Post subject: 
Уже в 100-раз... говорю, все эти "автоматические хрени" тока мешают ПВП.... ну кроме авто куре :) юзайте руки.... ёпть...
Author:  Qualis Eram [ 2005-07-07 22:43:55 ]
Post subject: 
666Man666 wrote:
Уже в 100-раз... говорю, все эти "автоматические хрени" тока мешают ПВП.... ну кроме авто куре :) юзайте руки.... ёпть...
Да это не автономник.........я и так на кнопку нажимаю просто у меня все клаивиши почти в уо забиты на клаве с шифтом и с альтом и контрлом.........Нужно просто чтобы если хп стоко я нажимал кнопку всю туже и делал Хеал а если хп больше то делал Грит хел плиз
Author:  I'm [ 2005-07-12 01:40:28 ]
Post subject: 
666Man666 wrote:
Уже в 100-раз... говорю, все эти "автоматические хрени" тока мешают ПВП.... ну кроме авто куре :) юзайте руки.... ёпть...

Да нескажи я 1 время бегас со звуковыми сигналами :lol: :lol: :lol:
Author:  omi4 [ 2005-07-12 02:06:18 ]
Post subject: 
Code:
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
Author:  Qualis Eram [ 2005-07-13 17:34:31 ]
Post subject: 
omi4 wrote:
Code:
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
не пашит чего он скриптик то?
Author:  Dard [ 2005-07-15 18:18:24 ]
Post subject: 
Попробуй вместо:
Code:
If Uo.GetHP()<UO.GetMaxHP() Then
поставить:
Code:
If UO.Life < UO.STR Then

А дальше вместо Uo.GetHP поставь UO.Life, должно заработать.
Author:  Qualis Eram [ 2005-07-17 02:55:36 ]
Post subject: 
Dard wrote:
Попробуй вместо:
Code:
If Uo.GetHP()<UO.GetMaxHP() Then
поставить:
Code:
If UO.Life < UO.STR Then

А дальше вместо Uo.GetHP поставь UO.Life, должно заработать.
Так и чего будет кидать магию Хел когда у меня меньше 65 хп и когда больше 65 будет кастить Гх?
Author:  Dard [ 2005-07-17 17:27:24 ]
Post subject: 
А ты пробовал?
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/