Yoko

All sides of Injection
It is currently 2024-04-19 23:54:04

All times are UTC+02:00




Post new topic  Reply to topic  [ 6 posts ] 
Author Message
PostPosted: 2004-04-09 12:33:28 
Offline

Joined: 2004-04-08 18:24:46
Posts: 21
У кого нить есть скрипт на медитацию? Заранее благодарен.=))


Top
   
 Post subject:
PostPosted: 2004-04-09 13:50:09 
Offline
Site Admin
User avatar

Joined: 2004-04-03 16:49:38
Posts: 1964
sub idiotmeditate()
uo.useskill("Meditation")
end sub


Top
   
 Post subject:
PostPosted: 2004-04-09 19:08:09 
Offline

Joined: 2004-04-09 19:07:00
Posts: 16
У меня тож вопрос про скрипт на медитацию! НО мне надо с курсой! Чтоб он одевал курсу на время потом ее снимал и медитировал! Очень прошу!


Top
   
 Post subject:
PostPosted: 2004-04-09 20:46:14 
Offline
User avatar

Joined: 2004-04-06 12:27:32
Posts: 118
в смысле с курсой? с вещью курсованой? и какой тогда смысл медитации?


Top
   
 Post subject: скрипт
PostPosted: 2004-04-09 21:26:04 
Offline

Joined: 2004-04-09 21:23:08
Posts: 3
Code:
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


Top
   
 Post subject:
PostPosted: 2004-04-09 21:34:17 
Offline

Joined: 2004-04-09 21:23:08
Posts: 3
кста, можете улучшить, например не обязателньо задавать точное значение маны :)


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 6 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: Google [Bot] and 31 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited