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("##########################")