Yoko

Posted: **2004-04-09 12:33:28**

У кого нить есть скрипт на медитацию? Заранее благодарен.=))

Posted: **2004-04-09 13:50:09**

sub idiotmeditate()
uo.useskill("Meditation")
end sub

Posted: **2004-04-09 19:08:09**

У меня тож вопрос про скрипт на медитацию! НО мне надо с курсой! Чтоб он одевал курсу на время потом ее снимал и медитировал! Очень прошу!

Posted: **2004-04-09 20:46:14**

в смысле с курсой? с вещью курсованой? и какой тогда смысл медитации?

Posted: **2004-04-09 21:26:04**

Code: Select all

VAR kursa         = 0x1517 ; Рубашка курсовая 
VAR eda           = 0x09bb ; свинина
Var Mana          = 70     ; Мана перца
VAR i=0;
VAR Localtime;
sub meditate()
UO.DeleteJournal()
repeat
  if i>300 then
  UO.Print("edaa")
    uo.usetype(eda)
    i=0
  endif 
  i=i+1
  uo.equipt("Shirt", kursa) 
  UO.Print("Equip")
  repeat 
   wait(500) 
   test()
  until UO.Mana < Mana
  repeat
  uo.unequip('Shirt') 
  wait(500)
  Until NOT UO.InJournal("You have no")
  UO.UseSkill('Meditation')
  wait(500)
  repeat
   if UO.InJournal("You lose your concentration") then
    UO.UseSkill('Meditation')
    UO.SetJournalLine(UO.InJournal("You lose your concentration")-1,"Fixed") 
   endif
   wait(500) 
   
   test()
  Until UO.InJournal("at peace")

  wait(500) 
  test()
  UO.SetJournalLine(UO.InJournal("at peace")-1,"Fixed")
Until UO.SkillVal('Meditation',1)==1000
end sub

sub test()
var start;
 if UO.InJournal("World save has been initiated.") then
  UO.SetJournalLine(UO.InJournal("World save")-1,"Fixed")
  UO.Click('self')
  start=UO.Timer()
  repeat
   wait(500)
  until UO.InJournal("TvoeImya: TvoeImya") or UO.Timer() - start > 300 

 end if
end sub

Posted: **2004-04-09 21:34:17**

кста, можете улучшить, например не обязателньо задавать точное значение маны