Yoko

Code: Select all

sub main()
   VAR kursa         = 0x1515 ; Ðóáàøêà êóðñîâàÿ
VAR eda           = 0x097B ; ñâèíèíà
Var Mana          = 100     ; Ìàíà ïåðöà
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 
end sub