Помогите со скриптом на дессанет

[durDom]

нужен скрипт чтоб дессанет кастовался автоматом
ну и если не трудно чтоб со скролов и регов (если нет скролов)
зарание спасибо

[duzik]

Code: Select all

sub dessanct()
var scroll=

uo.waittargetobject('laststatus')
uo.fintype(scroll)
if uo.findcount() then
uo.useobject('finditem')
else
uo.cast('Weaken')
end if
end sub

[Everix]

Code: Select all

Sub AutoWeaken()
   if uo.getglobal('AutoWeaken')<>'on' then
      uo.setglobal('AutoWeaken','on')
      uo.print('Auto Weaken cast is on')
   else
      uo.setglobal('AutoWeaken','off')
      uo.print('Auto Weaken cast is off')
   end if
end sub

sub Weaken()
   var loop=1,scroll=TYPE
   while loop==2
      if uo.getglobal('AutoWeaken')=='on' then
         repeat
            uo.deletejournal()
            uo.waittargetobject('laststatus') 
            uo.findtype(scroll) 
            if uo.findcount() then 
               uo.useobject('finditem') 
            else 
               uo.cast('Weaken') 
            end if
            if uo.injournal('An anti-magic field disturbs the spells.') then
               uo.setglobal('Weaken','off')
               uo.print('Auto Weaken cast is off')
            end if
            Casted()
         until uo.getglobal('AutoWeaken')<>'on'
      end if
      wait(100)
   wend
end sub

sub Casted()
   var PrevMana=uo.mana,n
      if uo.getglobal('AutoWeaken')=='on' then
         repeat
            wait(100)
         until uo.mana<PrevMana or uo.injournal('The spell fizzles') or uo.injournal('Target is not in line of sight') or uo.injournal('You can`t see the target') or uo.getglobal('AutoWeaken')<>'on'
      end if
end sub

[durDom]

Code: Select all

sub gh()
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("Greater Heal: "+STR(UO.Count("0x1F49")))
Else
UO.Print("Unsufficient mana")
Endif
Else
If UO.Mana>=ManaNeed Then
UO.Cast('Greater Heal','self')
UO.Print("SpellBook")
Else
UO.Print("Unsufficient mana")
Endif
Endif
Else
UO.Print("Your hit points is full")
Endif
end sub

этот скрипт написан не мной, но он качественный
хотелось бы чтоб был такой же не десанет и чтоб он автоматом перекаст делал
выше написанные скрипты не работают на шарде ):
Type=0x1F47 тайп скрола