Page 1 of 1

Как.....

Posted: 2005-02-01 12:09:16
by Ekkie
Как к этому скрипту ещё медитацию прибавить??
sub a()
while UO.Count('0x1F37','0x0000') > 0
uo.waittargetself()
uo.usetype('0x1F37','0x0000')
wait(1000)
wend
end sub

Posted: 2005-02-01 13:11:35
by JIupus
для кого темы "Скрипты..." прикреплены?
Ояень советую заглядывать туда и в поиск: http://yoko.netroof.net/forum/viewtopic ... 4838#14838

Re: Как.....

Posted: 2005-02-01 13:13:16
by JIupus
Попробуй так

Code: Select all

sub a() 
while UO.Count('0x1F37','0x0000') > 0
   uo.waittargetself()
   uo.usetype('0x1F37','0x0000')
   wait(1000)
wend

Repeat
uo.deletejournal()
uo.useskill('Meditation')
Wait(3000)
Until UO.InJournal("You must wait to perform another action") or uo.mana >= uo.int

While uo.mana < uo.int
Wait(100)
Wend
Wait(100)

Wend
end sub

Re: Как.....

Posted: 2005-02-01 13:20:58
by Ekkie
JIupus wrote:Попробуй так

Code: Select all

sub a() 
while UO.Count('0x1F37','0x0000') > 0
   uo.waittargetself()
   uo.usetype('0x1F37','0x0000')
   wait(1000)
wend

Repeat
uo.deletejournal()
uo.useskill('Meditation')
Wait(3000)
Until UO.InJournal("You must wait to perform another action") or uo.mana >= uo.int
While uo.mana < uo.int
Wait(100)
Wend
Wait(100)

Wend
end sub

Не....Не работает медитациа.

Re: Как.....

Posted: 2005-02-01 13:32:58
by JIupus
Так должна работать

Code: Select all

sub a() 
while UO.Count('0x1F37','0x0000') > 0
   uo.waittargetself()
   uo.usetype('0x1F37','0x0000')
   wait(1000)
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
end sub

Re: Как.....

Posted: 2005-02-01 13:39:05
by Ekkie
JIupus wrote:Так должна работать

Code: Select all

sub a() 
while UO.Count('0x1F37','0x0000') > 0
   uo.waittargetself()
   uo.usetype('0x1F37','0x0000')
   wait(1000)
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
end sub

"Line 13: Variable undefind-LASTTIMER

Re: Как.....

Posted: 2005-02-01 14:10:43
by Askaneli

Code: Select all

sub a() 
Var LastTimer
while UO.Count('0x1F37','0x0000') > 0
   uo.waittargetself()
   uo.usetype('0x1F37','0x0000')
   wait(1000)
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
end sub

Re: Как.....

Posted: 2005-02-01 14:58:35
by Ekkie
Askaneli wrote:

Code: Select all

sub a() 
Var LastTimer
while UO.Count('0x1F37','0x0000') > 0
   uo.waittargetself()
   uo.usetype('0x1F37','0x0000')
   wait(1000)
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
end sub

Не как не медитирует...=((((

Re: Как.....

Posted: 2005-02-01 15:03:10
by Sfagnum
Ekkie wrote:
Askaneli wrote:

Code: Select all

sub a() 
Var LastTimer
while UO.Count('0x1F37','0x0000') > 0
   uo.waittargetself()
   uo.usetype('0x1F37','0x0000')
   wait(1000)
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

Не как не медитирует...=((((
ну промазал человек ;) теперь прально.

Re: Как.....

Posted: 2005-02-01 15:16:33
by Ekkie
Sfagnum wrote:
Ekkie wrote:
Askaneli wrote:

Code: Select all

sub a() 
Var LastTimer
while UO.Count('0x1F37','0x0000') > 0
   uo.waittargetself()
   uo.usetype('0x1F37','0x0000')
   wait(1000)
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

Не как не медитирует...=((((
ну промазал человек ;) теперь прально.

Ура !!! Ти мои спасител!!!

Re: Как.....

Posted: 2005-02-01 15:30:19
by Askaneli
Sfagnum wrote:
Ekkie wrote:
Askaneli wrote:

Code: Select all

sub a() 
Var LastTimer
while UO.Count('0x1F37','0x0000') > 0
   uo.waittargetself()
   uo.usetype('0x1F37','0x0000')
   wait(1000)
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

Не как не медитирует...=((((
ну промазал человек ;) теперь прально.

Я исправлял Var LastTimer поставил
В циклы не вникал !!!

Re: Как.....

Posted: 2005-02-01 15:51:50
by Sfagnum
Askaneli wrote:Я исправлял Var LastTimer поставил
В циклы не вникал !!!
будешь теперь отмазываться :lol:

Re: Как.....

Posted: 2005-02-02 06:11:09
by Askaneli
Sfagnum wrote:
Askaneli wrote:Я исправлял Var LastTimer поставил
В циклы не вникал !!!
будешь теперь отмазываться :lol:

Такой вот я !!!

Posted: 2005-02-02 11:42:32
by BETEPAH
Болтуны )))) топик Клоуз