Народ скинте скрипт норм на магеру плз!!!

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
*James*
Posts: 3
Joined: 2004-11-27 03:40:46

Народ скинте скрипт норм на магеру плз!!!

Post by *James* »

Что бы Каставал поисон и медит и кушал ! плз
Зарание Благодарен!
KrafteR
Posts: 260
Joined: 2004-07-22 16:07:11
Contact:

Re: Народ скинте скрипт норм на магеру плз!!!

Post by KrafteR »

*James* wrote:Что бы Каставал поисон и медит и кушал ! плз
Зарание Благодарен!

Code: Select all

sub Magery()
VAR NS='0x0F88'
VAR Sunduk='0x4021C658'
VAR Kolvo=10
VAR k = 0, j
VAR LastTimer
while NOT UO.Dead() 
While UO.NS<=1
UO.FindType(NS, -1, Sunduk)
If UO.FindCount()==0 Then
UO.Print("NS not found, script terminated")
else
j = UO.GetQuantity( 'finditem' )
If j > Kolvo Then
UO.Print("I can use" + str( j ) + "NS")
else
UO.Print("I can't use" + str( j ) + "NS")
Endif
If Kolvo == 1 Then
UO.FindType( NS )
UO.MoveItem( 'finditem', '2', Sunduk )
wait(500)
Else
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
Endif
Endif
wend
while UO.Mana>=9
UO.Cast('Poison','self')
wait(3000)
wend
while UO.Mana<UO.Int 
LastTimer=UO.Timer() 
UO.UseSkill('Meditation') 
repeat 
wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200 
UO.DeleteJournal() 
wait(2000) 
wend 
Wend
end sub 
Кушалку сам вставишь, и если не будешь ничего, кроме VAR'ок менять, то работать будет =)
Post Reply