Magry

[P]

дайте скрипт на магию чтобы каставал инох на вещь в паке и медетировал

[ДРВ]

дайте скрипт на магию чтобы каставал инох на вещь в паке и медетировал

Code: Select all

sub PoisonSelf() 
while uo.mana >= uo.INT 
Uo.Exec("cast 'Poison' self") 
wait(4000) 
wend 

while uo.mana < UO.INT 
Uo.Exec("useskill Meditation") 
wait(3000) 
wend 
uo.exec("exec PoisonSelf") 
endsub

[P]

Нужно на придмет в паке а не на себя !

[ДРВ]

Нужно на придмет в паке а не на себя !

а какая разница?

[ghost_hnt]

Code: Select all

sub PoisonSelf() 
 UO.Cast('Poison', 'backpack') #поставь ID предмета в паке и оставь пак открытым 
         wait(3000) 
if uo.mana < 9 then 
UO.Useskill('Meditation') 
repeat
wait(3000) 
end if 
wend 
endsub

Разница большая - когда кастуешь на себя - тратятся ХП

или вот еще попробуй (!!!ТОЛЬКО ЗАМЕНИ СООБЩЕНИЯ СЕРВЕРА ПРИ СРЫВАНИИ МЕДИТАЦИИ!!!)

Code: Select all

sub pOISON()
  UO.Cast('Poison', 'backpack') 
         wait(3000) 
      wend 
      If UO.Mana<9 Then  
         While UO.Mana<UO.Int 
            UO.DeleteJournal() 
            wait(1000) 
            UO.Useskill('Meditation') 
            Repeat 
               wait(100) 
            until UO.InJournal("You are") OR UO.InJournal("Медитация") 
         Wend 
      Endif
      end sub

я блин все время с вендами путаю)!

[ДРВ]

Разница большая - когда кастуешь на себя - тратятся ХП

Только не на моем сервере!

[Edred]

Вот народ ленивый пошел, лень даже в прилепленных топиках порыться... Еду закомментировал, checklag() и deletejournal() прилепи к скрипту сам.

Code: Select all

#####################################################################
sub Magery() 
   ; ver. 2.01 (c) Edred
   ;
   ; Вводим сундук (пак) с найтшэдом, вводим подкормку чара.
   ;
   VAR sunduk = '0x40531245'
   VAR targ = '0x4041C420'
   VAR mir = 'You are at peace'
   VAR NS = '0x0F88'
;      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
   UO.UseObject( sunduk )
   wait(1000)
   CheckLag()
   While UO.SkillVal( 'Magery' ) < 1000
      If UO.Count( NS ) == 0 Then
         UO.Findtype( NS, '-1', sunduk )
         If UO.FindCount() == 0 Then
            UO.Print( 'NightShade not found, script terminated' )
            return
         Endif
         UO.MoveItem( 'finditem', '100' )
         wait(500)
         CheckLag()
      Endif
      If UO.Mana < 20 Then
         DeleteJournal( mir )
         repeat
            UO.UseSkill( 'Meditation' )
            wait(2000)
         until UO.InJournal( mir )
;         EatChar( sunduk, 2, 1, 60 )
      Endif
      UO.WaitTargetObject( targ )
      UO.Cast( 'Poison' )
      wait(3000)
   Wend
endsub

[ghost_hnt]

аахахах так у тебя прилеплено 11 страниц))
мог бы прогу какую-нить написать))
в них рыться оч долго и напряжно
и все равно спасибо тебе Endred