Yoko

KrafteR wrote:

Code: Select all

################################################################
;Magery v.1.00. (c) DamneD
;Чар берёт из сундука Nighshade и кастует Poison на себя.
;Если Mana закончилась- медетирует.
;Если Nighshade в backpack'е закончился, берёт из сундука.
;
;
;
sub Magery() 
   VAR NS='0x0F88' ; Тип Nighshade.
   VAR Sunduk='0x400BFED4' ; Сериал(ID) Сундука.
   VAR Kolvo=10 ; Количество регов, которое чар берёт из сундука.
   While NOT UO.Dead() 
      While UO.Mana>=9 AND UO.NS>0 ; здесь можно менять со скаких маны чар начнёт медетировать, то же число следует поставить в строку *.
         UO.DeleteJournal() 
         UO.Cast('Poison', 'self') 
         wait(3000) 
      wend 
      If UO.Mana<9 Then ;*
         While UO.Mana<UO.Int 
            UO.DeleteJournal() 
            UO.Useskill('Meditation') 
            Repeat 
               wait(100) 
            until UO.InJournal("You are") OR UO.InJournal("You lose") 
         Wend 
      Endif 
      If UO.NS==0 Then 
   UO.FindType(NS, '-1', Sunduk) 
   UO.Grab(str(Kolvo), 'finditem') 
   repeat 
      wait(100) 
   until UO.NS>0 
Endif
   Wend 
end sub 
################################################################
;Благодарность хотелось бы выразить людям, которые помогали и советовали,
;как правильно сконструировать данное ЧУДО, а именно: 666Man666, Yoko,
;gmur, Worth, Askaneli.
;Особо хочется выразить благодарность и напоить пивом на несколько лет вперёд
;Edred'a, который является больше чем соавтором этого скрипта.

Если что-то не понятно, то спрашивайте, с радостью дам ответы на вопросы по этому скрипту.

Cooler! wrote: Это не такоеуж и чудо как ты говоришь ) Вообще не плохо.

Cooler! wrote:не такоеуж и чудо как ты говоришь ) Вообще не плохо.

Edred wrote:

Cooler! wrote: Это не такоеуж и чудо как ты говоришь ) Вообще не плохо.

Это его первый скрипт... дай человеку насладиться успехом

ИМХО, через некоторое время у него есть шанс стать весьма неплохим скриптером.

Cooler! wrote:Это не такое уж и чудо как ты говоришь ) Вообще не плохо.

sub Magery() 
var LastTimer 
while not uo.Dead() 
uo.DeleteJournal() 
CheckLag() 
while uo.Mana>=10 
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 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(500) 
until uo.InJournal('backpack') 
end sub

BETEPAH wrote:Гмурыч......дык нету секрета ..... да при касте поизона на себя у нас не отнимается жизнь, поизон дешовый в смысле манны , и нужен всего один рег .
А то что ты выложил отличается только тем что в Крафтерном он берет реги если мало ))) ..а так тоже самое......вообще велосипед можно сделать по разному .....у когото руль спереди у когото сзади ......и оба
ездят нормально. ))) главное веть результат