Page 1 of 1

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

Posted: 2005-07-04 16:18:50
by Qualis Eram
Привет

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

Code: Select all

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 
Чтобы пробавал вначале пить Стил скин если его не то пробовал пить стоунскин......

Posted: 2005-07-07 07:28:13
by Qualis Eram
Прани ну не игнорьте плиз топик епта!!!

Posted: 2005-07-07 08:10:06
by Askaneli
Qualis Eram wrote:Прани ну не игнорьте плиз топик епта!!!
А кто сказал что игнорят.
Посмотри скока просмотров.
Так что не игнорят. :D

Posted: 2005-07-07 11:06:49
by 666Man666
Уже в 100-раз... говорю, все эти "автоматические хрени" тока мешают ПВП.... ну кроме авто куре :) юзайте руки.... ёпть...

Posted: 2005-07-07 22:43:55
by Qualis Eram
666Man666 wrote:Уже в 100-раз... говорю, все эти "автоматические хрени" тока мешают ПВП.... ну кроме авто куре :) юзайте руки.... ёпть...
Да это не автономник.........я и так на кнопку нажимаю просто у меня все клаивиши почти в уо забиты на клаве с шифтом и с альтом и контрлом.........Нужно просто чтобы если хп стоко я нажимал кнопку всю туже и делал Хеал а если хп больше то делал Грит хел плиз

Posted: 2005-07-12 01:40:28
by I'm
666Man666 wrote:Уже в 100-раз... говорю, все эти "автоматические хрени" тока мешают ПВП.... ну кроме авто куре :) юзайте руки.... ёпть...
Да нескажи я 1 время бегас со звуковыми сигналами :lol: :lol: :lol:

Posted: 2005-07-12 02:06:18
by omi4

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

Posted: 2005-07-13 17:34:31
by Qualis Eram
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
не пашит чего он скриптик то?

Posted: 2005-07-15 18:18:24
by Dard
Попробуй вместо:

Code: Select all

If Uo.GetHP()<UO.GetMaxHP() Then
поставить:

Code: Select all

If UO.Life < UO.STR Then

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

Posted: 2005-07-17 02:55:36
by Qualis Eram
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 будет кастить Гх?

Posted: 2005-07-17 17:27:24
by Dard
А ты пробовал?