Подскажите по медитации

sub Medit() 

VAR CharM=UO.Mana 
VAR cursa = 0x1F03  
UO.UnDress() 
wait(200) 
While not UO.dead() 
UO.UseType(cursa) 
wait(200)
If CharM < 100 Then
   UO.UnDress()
   Else
   wait (50)
Endif
While UO.Mana < 100
UO.UseSkill('Meditation') 
UO.DeleteJournal() 
wait(5000)
Wend 
UO.DeleteJournal()
Wend 
end sub

З.Ы. Мне нужно не готовый скрипт, а обьяснение почему так...

Top

Profile

Reply with quote

Kynep

Post subject: Re: Подскажите по медитации

PostPosted: 2006-04-09 13:37:28

Offline

Expert!

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

uisran wrote:

Почему чар не снимает курсу?

З.Ы. Мне нужно не готовый скрипт, а обьяснение почему так...

Code:

sub Medit() 

VAR CharM=UO.Mana 
VAR cursa = 0x1F03  
UO.UnDress() 
wait(200) 
While not UO.dead() 
UO.UseType(cursa) 
wait(200)
repeat
wait(100)
until  CharM < 100
UO.UnDress()
While UO.Mana < 100
UO.UseSkill('Meditation') 
UO.DeleteJournal() 
wait(5000)
Wend 
UO.DeleteJournal()
Wend 
end sub

[/code]

Top

Profile

Reply with quote

uisran

Post subject:

PostPosted: 2006-04-09 14:56:12

Offline

Joined: 2005-01-21 10:00:30
Posts: 64
Location: 74

Лучше вот так ))

Code:

sub Medit() 

VAR CharM=UO.Mana 
VAR cursa = 0x400F31C7  ; ID курсы
UO.UnDress() 
wait(200) 
While not UO.dead() 
UO.UseType(cursa) 
wait(200) 
repeat 
wait(100) 
until  UO.Mana < 97 
UO.UnDress() 
While UO.Mana < 100 
UO.UseSkill('Meditation') 
UO.DeleteJournal() 
wait(5000) 
Wend 
UO.DeleteJournal() 
Wend 
end sub

Top

Profile

Reply with quote

Kynep

Post subject:

PostPosted: 2006-04-09 15:26:35

Offline

Expert!

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

uisran wrote:

Лучше вот так ))

Code:

sub Medit() 

VAR CharM=UO.Mana 
VAR cursa = 0x400F31C7  ; ID курсы
UO.UnDress() 
wait(200) 
While not UO.dead() 
UO.UseType(cursa) 
wait(200) 
repeat 
wait(100) 
until  UO.Mana < 97 
UO.UnDress() 
While UO.Mana < 100 
UO.UseSkill('Meditation') 
UO.DeleteJournal() 
wait(5000) 
Wend 
UO.DeleteJournal() 
Wend 
end sub

Это не надо, оставь тип:

Code:

VAR cursa = 0x400F31C7  ; тип поставь 0х0000

Потому что дальше у тебя идет

Code:

UO.UseType(cursa)

Если хочешь все таки оставить ID, то поменяй на:

Code:

UO.UseObject(cursa)

Top

Profile

Reply with quote

uisran

Post subject:

PostPosted: 2006-04-09 16:12:43

Offline

Joined: 2005-01-21 10:00:30
Posts: 64
Location: 74

Cooper wrote:

Это не надо, оставь тип:

Code:

VAR cursa = 0x400F31C7  ; тип поставь 0х0000

Потому что дальше у тебя идет

Code:

UO.UseType(cursa)

точно.. забыл :oops:

Top

Profile

Reply with quote

Kynep

Post subject:

PostPosted: 2006-04-09 16:22:41

Offline

Expert!

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

uisran wrote:

точно.. забыл :oops:

Бывает ))) :wink:

Top

Profile

Reply with quote

uisran

Post subject:

PostPosted: 2006-04-09 22:55:54

Offline

Joined: 2005-01-21 10:00:30
Posts: 64
Location: 74

Добавил спирит

Code:

sub Medit() 

VAR CharM=UO.Mana 
VAR cursa = 0x400F31C7  ; ID ъєЁё√
VAR LastTimer=UO.Timer()
UO.UnDress() 
wait(200) 
While not UO.dead() 
wait(3000)
UO.UseObject(cursa) 
wait(200) 
uo.print("Spirit Speak") 
uo.useskill ("Spirit Speak") 
repeat 
wait(10) 
until UO.Mana < 99
repeat 
wait(100) 
until  UO.Mana < 99 
UO.UnDress()
While UO.Mana < 100 
UO.UseSkill('Meditation') 
UO.DeleteJournal() 
wait(5000) 
Wend 
UO.DeleteJournal() 
Wend 
end sub

Top

Profile

Reply with quote

Post new topic Reply to topic

Page 1 of 1

[ 7 posts ]

Home » Board index » Scripts » Scripting Ore

All times are UTC+02:00

Who is online

Users browsing this forum: Bing [Bot] and 1 guest

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

Yoko

Подскажите по медитации

Who is online