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