Page 1 of 1

Помогите

Posted: 2008-01-15 11:24:42
by Avel Mink
1.Добавьте пожалуйста в скрипт, если не найдена бутыль в которую нужно кидать стрелку, кастуется на себя Dispel

Code: Select all

Sub UnParalyze() ; Кидание стрелки в антифриз, для выхода из парализа 
Var Type='0x0F0D' 
Var Color='0x0B99' 
UO.FindType(Type, Color, 2)
If UO.Mana>=4 Then
	UO.Cast('Magic Arrow','finditem') 
     
Else 
   UO.Print("############")
   UO.Print("###  No mana  ###") 
   UO.Print("############")
Endif 
Endsub 
2.Нужен небольшой скрипт, который при запуске атачил персонажа, который последний тебя атаковал (будь-то магия или физически)

Posted: 2008-01-15 12:23:16
by stickman
1.

Code: Select all

Sub UnParalyze() ; Кидание стрелки в антифриз, для выхода из парализа 
Var Type='0x0F0D' 
Var Color='0x0B99' 
UO.FindType(Type, Color, 2)
if uo.findcount('finditem') = 0 then
uo.cast('Dispel', 'self')
else
If UO.Mana>=4 Then 
   UO.Cast('Magic Arrow','finditem') 
      Else 
   UO.Print("############") 
   UO.Print("###  No mana  ###") 
   UO.Print("############") 
Endif 
endif
Endsub 

Posted: 2008-01-15 15:02:44
by Kynep
stickman wrote:1.
Работа над ошибками:

Code: Select all

Sub UnParalyze() ; Кидание стрелки в антифриз, для выхода из парализа 
Var Type='0x0F0D' 
Var Color='0x0B99' 
UO.FindType(Type, Color, 'ground')
if uo.findcount() == 0 then
uo.cast('Dispel', 'self')
else
If UO.Mana >= 4 Then 
   UO.Cast('Magic Arrow','finditem') 
      Else 
   UO.Print("############") 
   UO.Print("###  No mana  ###") 
   UO.Print("############") 
Endif 
endif
Endsub 

Posted: 2008-01-16 01:28:38
by stickman
Kynep wrote:
stickman wrote:1.
Работа над ошибками:

Code: Select all

Sub UnParalyze() ; Кидание стрелки в антифриз, для выхода из парализа 
Var Type='0x0F0D' 
Var Color='0x0B99' 
UO.FindType(Type, Color, 'ground')
if uo.findcount() == 0 then
uo.cast('Dispel', 'self')
else
If UO.Mana >= 4 Then 
   UO.Cast('Magic Arrow','finditem') 
      Else 
   UO.Print("############") 
   UO.Print("###  No mana  ###") 
   UO.Print("############") 
Endif 
endif
Endsub 


:mrgreen:

Posted: 2008-01-17 12:47:59
by NBKua

Code: Select all

   UO.Print("############")
   UO.Print("###  No mana  ###")
   UO.Print("############")
абезательна замени эти строки на вот такие ато работать нибуит

Code: Select all

   UO.Print("##########################")
   UO.Print("###  ВСЕ ПРИЕХАЛИ ЖОППА  ТУД ###")
   UO.Print("##########################")