Yoko
http://forum.yoko.com.ua/

Magery
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1297		 Page 1 of 1
Author:  CANNABIS [ 2004-09-06 01:19:55 ]
Post subject:  Magery
Народ помогите,скиньте скрипт на Маджери,чтоб кастовал Инлор на себя пока мана не кончится,потом хавал и медетировал до полной маны и потом все снова
заранее спасибо
Author:  kuviCk [ 2004-09-08 13:31:52 ]
Post subject:  Re: Magery
CANNABIS wrote:
Народ помогите,скиньте скрипт на Маджери,чтоб кастовал Инлор на себя пока мана не кончится,потом хавал и медетировал до полной маны и потом все снова
заранее спасибо


На!
Code:
sub Magery() 
var LastTimer 
while not uo.Dead() 
uo.DeleteJournal() 
CheckLag() 
while uo.Mana>=10 
uo.Cast('Night Sight','self') 
wait(3000) 
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 
wend 
end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(500) 
until uo.InJournal('backpack') 
end sub
Author:  fank2 [ 2004-09-30 05:55:51 ]
Post subject: 
А вот он пишет укажите цель....чё делать ? это связано со скоростями? (я играю на ДРВ)
Надо просто поставить задержку подольше и всё ?
Author:  BETEPAH [ 2004-09-30 14:39:51 ]
Post subject: 
fank2 wrote:
А вот он пишет укажите цель....чё делать ? это связано со скоростями? (я играю на ДРВ)
Надо просто поставить задержку подольше и всё ?


uo.Cast('Night Sight','self')
Проблема в этой строчке ......замени
uo.waifortargetself()
wait(500)
uo.Cast('Night Sight'')
Author:  fank2 [ 2004-10-01 14:17:50 ]
Post subject: 
Ошибка какаето ..напиши весь скрипт целеком малоли я гдето ошибся ))
Author:  Kiro [ 2004-10-01 22:37:32 ]
Post subject: 
Code:
 
sub Magery() 
var LastTimer 
while not uo.Dead() 
uo.DeleteJournal() 
CheckLag() 
while uo.Mana>=10 
uo.waittargetself()
wait(500) 
uo.Cast('Night Sight')
wait(3000) 
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 
wend 
end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(500) 
until uo.InJournal('backpack') 
end sub

там была небольшая ошибка...
Author:  Worth [ 2004-10-13 00:47:16 ]
Post subject: 
Можно усовершенствовать использование скила Медитации. Я предлагаю сделать так:

sub Harm()
var exit=0
repeat
repeat
uo.cast('Harm')
uo.waittargetself()
wait(3500)
until uo.mana<6

exit=0
repeat
uo.DeleteJournal()
uo.useskill('Meditation')

repeat
wait(100)
until uo.InJournal("You must wait") or uo.InJournal("You lose your concentration")
if uo.InJournal("You must wait") then
exit=1;
end if
until exit==1

repeat
wait(500)
until uo.mana==uo.int

until False
end sub


p.s. Кстати, посмотрите, почему-то у меня не начинает заново кастовать после пополнения маны :(
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/