Yoko
http://forum.yoko.com.ua/

Народ скинте скрипт норм на магеру плз!!!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2704		 Page 1 of 1
Author:  *James* [ 2005-01-18 16:24:14 ]
Post subject:  Народ скинте скрипт норм на магеру плз!!!
Что бы Каставал поисон и медит и кушал ! плз
Зарание Благодарен!
Author:  KrafteR [ 2005-01-18 17:53:17 ]
Post subject:  Re: Народ скинте скрипт норм на магеру плз!!!
*James* wrote:
Что бы Каставал поисон и медит и кушал ! плз
Зарание Благодарен!

Code:
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'ок менять, то работать будет =)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/