Медитация! =)

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
chikatilo
Posts: 10
Joined: 2005-07-10 02:22:25
Contact:

Медитация! =)

Post by chikatilo »

При запуске пишется "Медитируем..." и скрипт вырубается(
помогите плиз! раньше помоему он у меня работал а щас хз почему непашет(

Code: Select all

sub Meditation() 
   var Food = '0x097B'      ;Тип еды
   var Curse = '0x1515'     ;Тип курсы 
   var typeCurse = 'cloak' 
   var int, i=1, time 
   UO.Undress() 
   Repeat 
      wait(500) 
   Until UO.ObjAtLayer(typeCurse)=='' OR time+100<UO.Timer() 
   int=UO.INT 

   While True 
      UO.DeleteJournal() 

      if UO.Mana>=int then 
         UO.UseType(Curse) 
         time=UO.Timer() 
         While UO.Mana>=int AND time+100>UO.Timer() 
            wait(500) 
         Wend 
      endif 

      time=UO.Timer() 
      UO.Undress() 
      Repeat 
         wait(500) 
      Until UO.ObjAtLayer(typeCurse)=='' OR time+100<UO.Timer() 
      int=UO.INT 

      time=UO.Timer() 
      UO.UseSkill("Meditation") 
      Repeat 
         wait(500) 
      Until UO.InJournal('You attempt') OR time+100<UO.Timer() 

      time=UO.Timer() 
      UO.UseType(Curse) 
      Repeat 
         wait(500) 
      Until UO.InJournal('You lose') OR UO.InJournal('You are') OR time+100<UO.Timer() 

      if i==50 then 
         UO.DeleteJournal() 
         repeat 
            UO.UseType(Food) 
            wait(500) 
         until UO.InJournal("simply too full") 
         i=1 
      else 
         i=i+1 
      endif 

   Wend 
end sub

Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Re: Медитация! =)

Post by Kynep »

chikatilo wrote:При запуске пишется "Медитируем..." и скрипт вырубается(
помогите плиз! раньше помоему он у меня работал а щас хз почему непашет(

Code: Select all

sub Meditation() 
   var Food = '0x097B'      ;Тип еды
   var Curse = '0x1515'     ;Тип курсы 
   var typeCurse = 'cloak' 
   var int, i=1, time 
   UO.Undress() 
   Repeat 
      wait(500) 
   Until UO.ObjAtLayer(typeCurse)=='' OR time+100<UO.Timer() 
   int=UO.INT 

   While True 
      UO.DeleteJournal() 

      if UO.Mana>=int then 
         UO.UseType(Curse) 
         time=UO.Timer() 
         While UO.Mana>=int AND time+100>UO.Timer() 
            wait(500) 
         Wend 
      endif 

      time=UO.Timer() 
      UO.Undress() 
      Repeat 
         wait(500) 
      Until UO.ObjAtLayer(typeCurse)=='' OR time+100<UO.Timer() 
      int=UO.INT 

      time=UO.Timer() 
      UO.UseSkill("Meditation") 
      Repeat 
         wait(500) 
      Until UO.InJournal('You attempt') OR time+100<UO.Timer() 

      time=UO.Timer() 
      UO.UseType(Curse) 
      Repeat 
         wait(500) 
      Until UO.InJournal('You lose') OR UO.InJournal('You are') OR time+100<UO.Timer() 

      if i==50 then 
         UO.DeleteJournal() 
         repeat 
            UO.UseType(Food) 
            wait(500) 
         until UO.InJournal("simply too full") 
         i=1 
      else 
         i=i+1 
      endif 

   Wend 
end sub

Ептить вот это замуты :shock:

На поробуй, типы проставь сам

Code: Select all

sub medit()
VAR cursa=0x144F
VAR j, tekmana
uo.undress() 
wait(1000) 
repeat
      UO.UseType(0x097B) # Что кушаем
      wait(1000) 
      tekmana=uo.int 
      wait(100) 
      checklag() 
      uo.usetype(cursa); Cursed Hat 
      uo.useskill ("Spirit Speak") 
      wait(2000) 
      j=0 
      repeat 
      wait(10) 
      j=j+1 
      until (uo.mana <= tekmana-1) or (j>1000) 
      checklag() 
      uo.undress() 
      wait(100) 
      checklag() 
      uo.useskill ("Meditation") 
      Wait(3000) 
until uo.dead() 
end sub

sub checklag() 
uo.deletejournal() 
uo.click('backpack') 
Repeat 
wait(100) 
Until UO.InJournal("backpack") 
end sub 
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Post by Kynep »

ZWERb wrote:НУ А СМЫСЛ?????? НУ НИКАКОГО СМЫСЛА!!!!!!
МЕДИТАЦИЯ без МАГИИ - НЕ НУЖНО АБСОЛЮТНО!!!
А прокачав магию хотябы до 70.0 будет медитации ГМ!
единственное что этот скрипт можна под хилинг переделать! Вот тогда в нем польза ЕСТЬ!
Не знаешь не говори, неделю назад прокачал магери с 30 до ГМ медитация была 30 щаст стала 86, качал с медитацией
kahe
Posts: 25
Joined: 2009-11-14 12:48:27

Post by kahe »

ZWERb wrote:
Cooper wrote: Не знаешь не говори, неделю назад прокачал магери с 30 до ГМ медитация была 30 щаст стала 86, качал с медитацией
если ручьки кривые...
Я на In LOR с 50.0 магию до 70.4 поднял!
и медитация была 50.0 Стала ГМ!
Умница только на твоём шарде медитация легко качается...на ДРВ у тебя первая магия будет а медитацию будешь докачивать...
PS:скрипт чётко работает,только задержку на курсу поставил больше а то медленно спадает и курсу быстро снимает
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Post by Mirage »

а на нашем шарде магия стоит 200К золота (набивается за час полтора) а медитацию надо качать. Так что смыс л на куре качать был бы... Но нет курсовых вещей :) Так что мы например качаем насоздании еды (корм животным) ну или на инлоре изначально. Правда тогда магия опережает медит. раза в полтора.
+ медитация качается иногда от удачного входа а иногда (как у нас) от удачного завершения.
Post Reply